adf8.s 257 B

123456789101112131415
  1. .sect .text; .sect .rom; .sect .data; .sect .bss
  2. .sect .text
  3. .define adf8
  4. adf8:
  5. move.l (sp)+,a1
  6. lea (8,sp),a0
  7. move.l (a0),d0
  8. move.l (4,a0),d1
  9. move.l (sp)+,(a0)
  10. move.l (sp)+,(4,a0)
  11. move.l a1,-(sp)
  12. jsr (Faddd)
  13. move.l d0,(4,sp)
  14. move.l d1,(8,sp)
  15. rts