.MODEL tiny                   ; per il .COM
        .STACK                        ; lincare con opzione /TINY
                                      ; nelle additional global options
        .CODE                         
                                   ; del linker  (Options -> LINK Options ..)
        ORG 100h
        .STARTUP
        jmp     Install

Oldint        DWORD   ?               ; indir. della routine originale

nuovoint PROC   FAR                   ;v. libro di testo per le spiegaz.
        push ax

	mov ah,0eh
	mov al,7
	int 10h
esci:	pop ax
	iret
	;jmp cs:oldint			;salto extrasegmentale con prefisso
nuovoint ENDP

Install PROC
	mov	ax, 251ch	       ; richiesta di funzione 35h
			       ; restituisce il contenuto del
                                        ; vettore di interrupt (interrupt 09)
                                        ; cioe' l'indir. della routine di intr.

        mov     dx, OFFSET nuovoint     ; DS:DX puntano alla nuova routine intr.
        int     21h                     ; setta il vettore con l'indirizzo
                                        ; della nuova routine d'interrupt
        lea dx,install
        int     27h                     ; Terminate-and-Stay-Resident (TSR)

Install ENDP
        END