a 100
CALL 200
MOV  CL,4
SHL  AL,CL
MOV  BH,AL
CALL 200
ADD  BH,AL
MOV  AH,2
MOV  DL,0D
INT  21
MOV  DL,0A
INT  21
MOV  DL,BH
INT  21
INT  20

a 200
MOV  AH,8
INT  21
CMP  AL,30
JB   200
CMP  AL,46
JA   200
CMP  AL,39
JBE  216
CMP  AL,41
JAE  216
JMP  200
MOV  AH,2
MOV  DL,AL
INT  21
SUB  AL,30
CMP  AL,9
JBE  224
SUB  AL,7
RET

n hexinpro.com
r bx
0
r cx
125
w
q