.model tiny
        .data
        .code
        mov ax,@data
        mov ds,ax


        mov ah,0ah ; acquisisce stringa
        int 21h
        mov si,dx  ;salva in si l'ind. di partenza della stringa

        mov al,10  ; va a capo
        mov ah,0eh
        int 10h

        mov al,[si]  ; stampa dimens., non significativo
        ;add al,48
        mov ah,0eh
        int 10h

        mov al,10  ; va a capo
        mov ah,0eh
        int 10h

        inc si
        mov al,[si]  ; stampa char letti.
        mov bl,al
        add al,48
        mov ah,0eh
        int 10h

        mov al,10  ; va a capo
        mov ah,0eh
        int 10h


        inc si

  su:   mov dl,[si]
        mov ah,2
        int 21h
        inc si
        dec bl
        jnz su

        mov ax,4c00h
        int 21h

        end