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


        mov ah,1
        int 21h
        call scritta
        mov dl,al
        mov ah,2
        int 21h

        mov ax,4c00h
        int 21h


scritta proc
        sub al,32
        ret
scritta endp


        end