TITLE PROG7-3 CONVERT BINARY TO ASCII
  PAGE 60,132
  .MODEL SMALL
  .STACK 64
  .DATA
  BINNUM DW 246DH
  ORG 10H
  ASCNUM DB 5 DUP ('0')
  .CODE
  B2ASC_CON PROC FAR
  MOV AX,@DATA
  MOV DS,AX
  MOV BX,10 
  MOV SI,OFFSET ASCNUM 
  ADD SI,5 
  DEC SI 
  MOV AX,BINNUM 
BACK: SUB DX,DX 
  DIV BX 
  OR DL,30H 
  MOV [SI],DL 
  DEC SI 
  CMP AX,0 
  JA BACK
  MOV AH,4CH
  INT 21H 
  B2ASC_CON ENDP
  END B2ASC_CON