kill.s 328 B

12345678910111213141516171819202122232425262728
  1. .define _kill
  2. .sect .text
  3. .sect .rom
  4. .sect .data
  5. .sect .bss
  6. .sect .text
  7. .extern _kill
  8. .sect .text
  9. _kill:
  10. tst.b -40(sp)
  11. link a6,#-0
  12. move.w 10(a6), d2
  13. ext.l d2
  14. move.w 8(a6), d1
  15. ext.l d1
  16. move.l d2,-(sp)
  17. move.l d1,-(sp)
  18. jsr __Skill
  19. add.l #8,sp
  20. unlk a6
  21. rts
  22. __Skill: trap #0
  23. .data2 0x25
  24. bcc 1f
  25. jmp cerror
  26. 1:
  27. clr.l d0
  28. rts