rendered paste bodyDATA_SEG SEGMENT
MSG1 DB "ENTER FIRST NO. $"
MSG2 DB 0AH,0DH,"ENTER THE SECOND NUMBER $"
MSG3 DB 0AH,0DH,"RESULT IS $"
DATA_SEG ENDS
CODE_SEG SEGMENT
ASSUME CS:CODE_SEG,DS:DATA_SEG
START:
MOV AX,DATA_SEG
MOV DS,AX
MOV AH,09H
LEA DX,MSG1
INT 21H
MOV AH,01H
INT 21H
CMP AL,3AH
JNB L1
AND AL,0FH
MOV BL,AL
JMP L3
L1:
SUB AL,37H
MOV BL,AL
L3:
MOV AH,09H
LEA DX,MSG2
INT 21H
MOV AH,01H
INT 21H
CMP AL,3AH
JNB L4
AND AL,0FH
JMP L5
L4:
SUB AL,37H
L5:
ADD AL,BL
MOV BL,AL
MOV CL,04
SHR AL,CL
CMP AL,0AH
JNB L6
ADD AL,30H
JMP L7
L6:
ADD AL,37H
L7:
AND BL,0FH
CMP BL,0AH
JNB L8
ADD BL,30H
JMP L9
L8:
ADD BL,37H
L9:
MOV CL,AL
MOV AH,09H
LEA DX,MSG3
INT 21H
MOV AL,CL
MOV DL,AL
MOV AH,02H
INT 21H
MOV DL,BL
MOV AH,02H
INT 21H
MOV AH,4CH
MOV AL,00H
INT 21H
CODE_SEG ENDS
END START