home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / german / irq.s < prev    next >
Text File  |  1995-03-17  |  552b  |  35 lines
  1. initirq:
  2.     move.w #$4000,$dff09a 
  3.     move.l $6c,OldVector 
  4.     move.l #Neuirq,$6c
  5.         move.w #$c000,$dff09a 
  6.  
  7. wait:
  8.     andi.b #64,$bfe001
  9.         bne  wait 
  10.  
  11.         move.w #$4000,$dff09a
  12.         move.l OldVector,$6c
  13.         move.w #$c000,$dff09a
  14.  
  15.         ILLEGAL
  16.     rts
  17.  
  18. Neuirq: 
  19.     movem.l d0-d2/a0-a1,-(a7)
  20.         move SR,-(sp)
  21.         move.w $dff01e,d0   
  22.         btst #5,d0 
  23.         bne.s makeirq
  24.         bra  Endirq 
  25.  
  26. Makeirq:
  27.        move.w #$fff,$dff180
  28.  
  29. Endirq:
  30.     move (sp)+,SR
  31.         movem.l (sp)+,d0-d2/a0-a1
  32.         DC.W $4ef9
  33.  
  34. OldVector: DC.L $0000
  35.