fef4.s 372 B

12345678910111213141516171819
  1. .sect .text; .sect .rom; .sect .data; .sect .bss
  2. .sect .text
  3. .define fef4
  4. fef4:
  5. move.l (4,sp),d0
  6. jsr (Fstod) ! convert to double
  7. lea (4,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. jsr (Fdtos) ! convert result to single
  14. move.l (sp),a0
  15. move.l (4,sp),d1
  16. move.l d0,(4,sp)
  17. move.l d1,(sp)
  18. jmp (a0)