.MODEL Tiny        ;COM Programm
         .286
         .CODE

Resident: 
         ORG 100h
Start:   
         jmp  Install       ;Sprung zu Install
INew     PROC FAR           ;Die neue ISR
         pusha              ;Register sichern
         mov  ax,1000       ;Microsec.*1000=Milisec.
         mul  bx            ;Erg. in DX:AX
         mov  cx,dx         ;Anz. der Microsec. in
         mov  dx,ax         ;CX:DX
         mov  ah,86h        ;Funktion 86h: WAIT
         int  15h           ;Warten...
         popa               ;Register zurückschreiben
         iret               ;Zurück zum Aufrufer
INew     ENDP               ;Ende ISR

Install:                    ;Beginn transienter Teil
         mov  ah,25h
         mov  al,60h        ;Interrupt 60h ändern!
         mov  dx,OFFSET INew
         int  21h           ;Set Interrupt Vektor

         ;mov  dx,OFFSET Install
         ;int  27h          ;Resident, Methode 1

         mov  ax,3100h      ;ah=31h , al=00h
         mov  dx,((Install-Resident+16)/16)
         int  21h           ;Ende u. resident bleiben
         END  Start