TITLE PROG7-6 ASCII TO BINARY CONVERSION MODULE
  PAGE 60,132
  .MODEL SMALL
EXTRN TEN:WORD
  PUBLIC ASC2B_CON
  .CODE
  ASC2B_CON PROC FAR
  PUSHF 
  PUSH DI
  PUSH CX
  SUB DI,DI 
  MOV CX,1 
A2B_LOOP: 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 A2B_LOOP 
  MOV AX,DI 
  POP CX 
  POP DI
  POPF
  RET
  ASC2B_CON ENDP
  END