home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / dexion / soft_stopper.s < prev    next >
Text File  |  1995-03-17  |  581b  |  51 lines
  1. start:
  2. even
  3. move.l d0-d7/a0-a6,-(a7)
  4. lea bstart(pc),a0
  5. lea ende(pc),a1
  6. move.l #$100,a2
  7. move.l a2,a3
  8.  
  9. copyschl:
  10. move.w (a0)+,(a2)+
  11. cmp.l a0,a1
  12. bne.s copyschl
  13. jsr (a3)
  14. move.l (a7)+,d0-d7/a0-a6
  15. rts
  16.  
  17. bstart:
  18. lea.l irbuffer+2(pc),a0
  19. move.l $68,(a0)
  20. lea newir(pc),a0
  21. move.l a0,$68
  22. rts
  23.  
  24. newir:
  25. move.l d0-d7/a0-a6,-(a7)
  26. move.b $bfec01,d1
  27. cmp.b #121,d0
  28. bne.s nospkey
  29. bsr prgstop
  30.  
  31. nospkey:
  32. move.l (a7)+,d0-d7/a0-a6
  33.  
  34. irbuffer:
  35. jmp $ffffffff
  36.  
  37. prgstop:
  38. move.w sr,d0
  39. move.w #$2700,sr
  40.  
  41. prgstopwait:
  42. move.b #120,$bfec01
  43.  
  44. erstloslassen:
  45. btst #6,$bfe001
  46. beq.s erstloslassen
  47. move.w d0,sr
  48. rts
  49.  
  50. ende:
  51.