.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,0700h

			;Clear Screen
		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,f1[di]
		mov [di],dl
		inc si
		add di,2
		jmp scrivi1
fine1:

		mov ah,07h
		int 21h

			;Clear Screen
		xor di,di
		mov cx,2000
ciclo2:		mov [di],ax
		add di,2
		loop ciclo2

scrivi2:	cmp es: byte ptr f2[si],0
		je fine2
		mov dl,f1[di]
		mov [di],dl
		inc si
		add di,2
		jmp scrivi1

fine2:
		mov ah,07h
		int 21h

			;Clear Screen
		xor di,di
		mov cx,2000
ciclo3:		mov [di],ax
		add di,2
		loop ciclo3


scrivi3:	cmp es: byte ptr f3[si],0
		je fine3
		mov dl,f1[di]
		mov [di],dl
		inc si
		add di,2
		jmp scrivi3

fine3:
		mov ah,07h
		int 21h

	mov ah,4ch
	int 21h
	end