; PROGRAMMED BY   : MOHAMMAD ALJADA
; DOWNLOADED FROM : WWW.GEOCITIES.COM/MOHJADA
; PROGRAM         : Convert HEX to DEC

.model small
.stack 64
.data
a db 0ah,0dh,0ah,0dh,'Enter a Hexa Digit : ','$'
b db 0ah,0dh,'Its Decimal Value Is :1'
t db ?,'$'
c db 0ah,0dh,'Press Y To Enter New Number Or Any Key To Exit.','$'
tt db ?,'$'
.code
main proc far
mov ax,@data
mov ds,ax

s1:
mov ah,09
lea dx,a
int 21h

mov ah,01
int 21h

cmp al,'a'
jae l1
sub al,11h
mov t,al
jmp l2
l1:
sub al,31h
mov t,al

l2:

mov ah,09
lea dx,b
int 21h

mov ah,09
lea dx,c
int 21h


mov ah,01
int 21h

cmp al,'Y'
je s1
cmp al,'y'
je s1


mov ah,4ch
int 21h
main endp
end main