TITLE PROG7-4 CONVERT ASCII TO BINARY
  PAGE 60,132
  .MODEL SMALL
  .STACK 64
  .DATA
  TEN DW 10
  ASCNUM DB '09325'
  STRLEN DB 5
  ORG 10H
  BINNUM DW 0
  .CODE
  ASC2B_CON PROC FAR
  MOV AX,@DATA
  MOV DS,AX
  SUB DI,DI 
  MOV SI,OFFSET ASCNUM 
  MOV BL,STRLEN 
  SUB BH,BH 
  DEC BX 
  MOV CX,1 
AGAIN: MOV AL,[SI+BX] 
  AND AL,0FH 
  SUB AH,AH 
  MUL CX 
  ADD DI,AX 
  MOV AX,CX 
  MUL TEN 
  MOV CX,AX 
  DEC BX 
  JNS AGAIN 
  MOV BINNUM,DI 
  MOV AH,4CH
  INT 21H 
  ASC2B_CON ENDP
  END ASC2B_CON