dane segment
n1 db 'Podaj liczbę L1: $'
max db 5
dlu db ?
buf db 0,0,0,0,0
dane ends

sts segment stack
256 dup (?)
sts ends

program segment
assume ds:dane,cs:program,ss:sts

start:
mov ax, seg dane
mov ds, ax

mov ah,9
mov dx, offset n1
int 21 h

mov ah,10
mov dx, offset max
int 21h

%poczotek zamiany ASCII na liczbe

mov di, offset buf
mov ah, [di]
sub ah, 30h
cmp ah, 10
jb dal11
sub ah, 7
dal11:
shl ah, 4
push ah
inc di
mov ah, [di]
sub ah, 30h
cmp ah, 10
jb dal12
sub ah,7
dal12:
pop al
or ah, al
inc di
mov al, [di]
sub al, 30h
cmp al, 10
jb dal13
sub al, 7
dal13:
shl al,4
push al
inc di
mov al, [di]
sub al, 30h
cmp al, 10
jb dal14
sub al,7
dal14:
pop bl
or al,bl
nop

mov ah,4ch
int 21h

program ends
end start