DATA SEGMENT
ABCD DB 2 DUP(?)
ABIN DB 8 DUP(?)
RESULT DB 0
MSG DB 'PLEASE'
EN EQU $-MSG
DATA ENDS
CODE SEGMENT
ASSUME CS:CODE,DS:DATA
START: MOV AX,DATA
MOV DS,AX
LEA SI,MSG
MOV CX,LEN
A:MOV DL,[SI]
MOV AH,02H
INT 21H
INC SI
DEC CX
JNZ A
;*****************
LEA DI, ABCD
MOV CX, 2
B:MOV AH,07H
INT 21H
CMP AL,30H
JB B
CMP AL,39H
JA B
MOV [DI],AL
MOV DL,AL
MOV AH,02H
INT 21H
INC DI
DEC CX
JNZ B
;*************
MOV DL,0DH
MOV AH,02H
INT 21H
MOV DL,0AH
MOV AH,02H
INT 21H
;************
LEA SI,ABCD
MOV AL,[SI]
INC SI
SUB AL,30H
ADD AL,AL
MOV BL,AL
ADD AL,AL
ADD AL,AL
ADD AL,BL
MOV BL,[SI]
SUB BL,30H
ADD AL,BL
MOV RESULT,AL
;******************
LEA DI,ABIN
MOV CX,8
MOV BL,RESULT
AGAIN:MOV AL,30H
TEST AL,80H
JZ NEXT
INC AL
NEXT:MOV [DI],AL
SAL BL,1
INC DI
DEC CX
DEC DI
MOV SI,DI
MOV CX,8
MOV DL,[SI]
X: MOV AH,02H
INT 21H
DEC CX
JNZ X
MOV AH,4CH
INT 21H
CODE ENDS
END START