home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / german / irq-test.s < prev    next >
Text File  |  1995-03-17  |  489b  |  36 lines
  1. anzahl=20
  2.  
  3. initirq:
  4.  move.w #$4000,$dff09a
  5.  move.w #anzahl,count
  6.  move.l $6c,oldvector
  7.  move.l #newirq,$6c
  8.  move.w #$c000,$dff09a
  9.  
  10. waitmouse:
  11.  andi.b #64,$bfe001
  12.  bne waitmouse
  13.  
  14. stopirq:
  15.  move.w #$4000,$dff09a
  16.  move.l oldvector,$6c
  17.  move.w #$c000,$dff09a
  18.  illegal
  19.  rts
  20.  
  21. newirq:
  22.  movem.l d0-d2/a0-a1,-(a7)
  23.  move SR,-(sp)
  24.  subq.w #1,count
  25.  bne exitirq
  26.  move.w #anzahl,count
  27.  eor.b #2,$bfe001
  28. exitirq:
  29.  move (sp)+,SR
  30.  movem.l (sp)+,d0-d2/a0-a1
  31.  dc.w $4ef9
  32.  
  33. oldvector: dc.l 0
  34. count: dc.w 0
  35.  
  36.