mov ah,01
int 21
cmp al,39
jle 010a
sub al,7
sub al,30

mov dl,al
mov cl,4
shl dl,cl

mov ah,01
int 21
cmp al,39
jle 011c
sub al,7
sub al,30

add al,dl
mov bl,al
int 20