some fixes
This commit is contained in:
parent
dfc5d7318c
commit
bc1ab42895
|
@ -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)
|
||||
lea (12,sp),sp
|
||||
move.l (sp),a0
|
||||
move.l d1,(4,sp)
|
||||
move.l d0,(4,sp)
|
||||
move.l (8,sp),d0
|
||||
move.l d1,(8,sp)
|
||||
move.l d0,(sp)
|
||||
jmp (a0)
|
||||
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue