@@ -12,6 +12,8 @@ fef4:
lea (12,sp),sp
jsr (Fdtos) ! convert result to single
move.l (sp),a0
- move.l d0,(sp)
+ move.l (4,sp),d1
+ move.l d0,(4,sp)
+ move.l d1,(sp)
jmp (a0)
@@ -11,7 +11,9 @@ fef8:
jsr (_frexp)
- move.l d1,(4,sp)
+ move.l (8,sp),d0
+ move.l d1,(8,sp)
move.l d0,(sp)
@@ -2,8 +2,8 @@
.sect .text
.define fif8
fif8:
- move.l (4,sp),d1
- move.l (8,sp),d0
+ move.l (4,sp),d0
+ move.l (8,sp),d1
lea (12,sp),a0
jsr (Fmuld) ! result in d0/d1
lea (4,sp),a0 ! build stack for modf