Mammt

        .model small
        .stack
        .data
f1      db "Ciao",0
f2      db "Hello World!",0
f3      db "Siamo alla fine del mondo!",0
        .code
        mov ax,0b800h
        mov ds,ax
        mov ax,@data
        mov es,ax
        mov ax,0700h
        xor di,di
        mov cx,2000

ciclo1:
        mov [di],ax
        add di,2
        loop ciclo1

        xor si,si
        xor di,di
scrivi1:
        cmp es: byte ptr f1[si],0
        je fine1
            mov dl,es:f1[si]
            mov [di],dl
            inc si
            add di,2
            jmp scrivi1
fine1:
        mov ah,07h
        int 21h

        mov ax,0700h
        xor di,di
        mov cx,2000

ciclo2:
        mov [di],ax
        add di,2
        loop ciclo2

        xor si,si
        xor di,di
scrivi2:
        cmp es: byte ptr f2[si],0
        je fine2
            mov dl,es:f2[si]
            mov [di],dl
            inc si
            add di,2
            jmp scrivi2
fine2:
        mov ah,07h
        int 21h

        mov ax,0700h
        xor di,di
        mov cx,2000
ciclo3:
        mov [di],ax
        add di,2
        loop ciclo3

        xor si,si
        xor di,di
scrivi3:
        cmp es: byte ptr f3[si],0
        je fine3
            mov dl,es:f3[si]
            mov [di],dl
            inc si
            add di,2
            jmp scrivi3
fine3:
        mov ah,07h
        int 21h

        mov ax,0700h
        xor di,di
        mov cx,2000

        mov ah,4ch
        int 21h
        end