fef8.s 333 B

12345678910111213141516171819
  1. .sect .text; .sect .rom; .sect .data; .sect .bss
  2. .sect .text
  3. .define fef8
  4. fef8:
  5. move.l (4,sp),d0
  6. move.l (8,sp),d1
  7. lea (8,sp),a0 ! build stack for frexp
  8. move.l a0,-(sp)
  9. move.l d1,-(sp)
  10. move.l d0,-(sp)
  11. jsr (_frexp)
  12. lea (12,sp),sp
  13. move.l (sp),a0
  14. move.l d0,(4,sp)
  15. move.l (8,sp),d0
  16. move.l d1,(8,sp)
  17. move.l d0,(sp)
  18. jmp (a0)