DAT SEGMENT
NN1 DW ?
DAT ENDS
CC SEGMENT
ASSUME CS:CC,DS:DAT
STA:
MOV AX, DAT
MOV DS, AX
MOV AH, 1
INT 21H
CALL TO_BIN
MOV BL, AL
INT 21H
CALL TO_BIN
MUL BL
AAM
MOV NN1, AX
CALL SW
MOV AH, 4CH
INT 21H
;-----------------------
TO_BIN PROC
CMP AL, 3AH
JB S2
SUB AL, 07H
S2:
SUB AL, 30H
RET
TO_BIN ENDP
;-----------------------
SW PROC
MOV BX, NN1
OR BX, 3030H
MOV DL, BH
MOV AH, 2
INT 21H
MOV DL, BL
INT 21H
RET
SW ENDP
;-----------------------
CC ENDS
END STA