Tasm Minimal - Citire cifra cu cifra si afisare numar

data segment
nrcitit db ?
nrafisat db 5
sir db "Nr $"
lg dw $-sir
data ends
code segment
assume cs:code,ds:data

start:
Mov ax,data
Mov ds,ax

mov dx,offset sir
mov bx,dx
add bx,3
et:
mov ah,01
int 21h

sub al,'0'

cmp al,9
ja sfarsit
cmp al,0
jb sfarsit


add al,'0'
mov [bx],al
inc bx

jmp et

sfarsit:

mov ah,09
int 21h


mov ah,4ch
int 21h
code ends
end start