org 100h

.data

 marimeIntrodus db dub(0)
.code
        mov ax,@data
        mov ds,ax

        mov bx,80h  ;(setam cursorul pe casuta 80h, care contine lungimea sirului,vezi carte p120)
        mov al,es:[bx]; (copiem in al lungimea sirului)
        lea di, marimeIntrodus
        stosb         ;copiem lungimea sirului in marimeIntrodus

       mov bx,82h ;(setam cursorul la primul element din coada liniei de comanda, sarind peste spatiul stocat de la 81h)

       mov cx,0  ;(contor 0)

repeta:
       mov al,es:[bx]
       add al,20h    ;  convertim caracter mare in mic
       mov ah,0eh
       int 10h     ;afisam
       inc bx
       inc cx
       lea si,marimeIntrodus
       lodsb
       cmp cl,al    ;comparam daca am ajuns la capat
       jnz repeta

       iesire:
       mov ax,4c00h
       int 21h