;******************** Beispiel-Programm II *********************

start:
         move.l $6C.s,alte_Rout+2  ;Zeiger auf alte Routine retten
         move.l #neue_Rout,$6C.s   ;Adresse der neuen Routine in Zeiger
maus:    ;                                 -
         btst   #6,$BFE001       ;Warteschleife
         bne.s  maus
ende:
         move.l alte_Rout+2,$6C.s  ;alte Interrupt-Routine in Zeiger -
         clr.l d0
         rts                     ;Rueckkehr zu CLI,Seka,e.c.t.
neue_Rout: ;ab hier neue Interrupt-routine
         bchg   #1,$BFE001       ;zur Kontrolle Power-LED umschalten
         ;ab hier eigenes Programm
alte_Rout:
         jmp $1111111            ;und anschliessend in alte Routine
         ;springen

         ; by Marcus Roth in 1988