Tasm Minimal - Citire si afisare CIFRA citita de la tastatura

data segment
sir db "Numar $"
lg dw $-sir
data ends
code segment
assume cs:code,ds:data

start:
Mov ax,data
Mov ds,ax

mov ah,1
int 21h

mov nrcitit,al
sub nrcitit,'0' ;scadem cod asci pentru caracterul 0

mov dx,offset sir
mov bx,lg
sub bx,2
mov [bx],al

mov ah,9
int 21h

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