alarm.s 240 B

1234567891011121314151617181920
  1. .define _alarm
  2. .sect .text
  3. .sect .rom
  4. .sect .data
  5. .sect .bss
  6. .sect .text
  7. .extern _alarm
  8. .sect .text
  9. _alarm:
  10. tst.b -40(sp)
  11. link a6,#-0
  12. move.w 8(a6),-(sp)
  13. clr.w -(sp)
  14. jsr __Salarm
  15. add.l #4,sp
  16. unlk a6
  17. rts
  18. __Salarm: trap #0
  19. .data2 0x1B
  20. rts