bc.s 317 B

12345678910111213141516171819
  1. .data
  2. .xdef __BC
  3. .even
  4. __BC:
  5. link %a6,#-10
  6. move.l (%a6,26),-(%sp)
  7. move.l (%a6,22),-(%sp)
  8. move.l (%a6,18),-(%sp)
  9. move.l (%a6,14),-(%sp)
  10. move.l (%a6,10),-(%sp)
  11. move.w (%a6,8),%d0
  12. move.l 0xC8,%a0
  13. move.l (%a0,%d0.w),%a0
  14. jsr (%a0)
  15. move.l (%a6,-10),%d0
  16. move.l (%a6,-6),%d1
  17. move.w (%a6,-2),%d2
  18. unlk %a6
  19. rts