DOSSEG
	.MODEL tiny                   
        .CODE                         
         ORG 0100h
     
Start:	        jmp    Inizio
		cont     DB 18
mioint:		push ax
		push cx
		dec cont
		jnz esci
		mov cx,0ffffh
su:        	in al,61h   ; altoparlante      ;61h
        	and al,0feh
        	xor al,02h     ;bit_speaker      ;02h
        	out 61h,al   ; scrivi sul port dell'altoparlante
		loop su
		mov cont,18
esci:		pop cx
		pop ax
		iret

inizio:		mov ah,25h	;funzione per settare il vettore interrupt
		mov al,1ch	;quale interrupt: 1ch è il timer
		lea dx, mioint
		int 21h
		
		lea dx,inizio	;indir. finale della routine (lunghezza)
		int 27h

	        end start