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

        mov dl,'A'
        mov ah,02
        int 21h

acapo macro
mov dl,13
mov ah,02
int 21h
mov dl,10
mov ah,02
int 21h
endm

mov al,'I'
mov ah,14
int 10h


acapo

mov ah,14
mov al,'S'
push ax  ; passo il parametro nello stack
call scritta

acapo
mov al,'F'
mov ah,14
int 10h

mov ah,4ch
int 21h

scritta proc
        ;pop ax ;incasiniamo l'indir. di ritorno
        pop bx ;salvo l'ind di ritorno
        pop ax; prendo il parametro
        ;mov al,'E'
        ;mov ah,14
        int 10h
        push bx
        ret
scritta endp

vuota proc
   acapo
   nop
   ret
vuota endp


        mov ax,4c00h
        int 21h

        end