some fixes
This commit is contained in:
parent
dfc5d7318c
commit
bc1ab42895
3 changed files with 8 additions and 4 deletions
|
@ -12,6 +12,8 @@ fef4:
|
||||||
lea (12,sp),sp
|
lea (12,sp),sp
|
||||||
jsr (Fdtos) ! convert result to single
|
jsr (Fdtos) ! convert result to single
|
||||||
move.l (sp),a0
|
move.l (sp),a0
|
||||||
move.l d0,(sp)
|
move.l (4,sp),d1
|
||||||
|
move.l d0,(4,sp)
|
||||||
|
move.l d1,(sp)
|
||||||
jmp (a0)
|
jmp (a0)
|
||||||
|
|
||||||
|
|
|
@ -11,7 +11,9 @@ fef8:
|
||||||
jsr (_frexp)
|
jsr (_frexp)
|
||||||
lea (12,sp),sp
|
lea (12,sp),sp
|
||||||
move.l (sp),a0
|
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)
|
move.l d0,(sp)
|
||||||
jmp (a0)
|
jmp (a0)
|
||||||
|
|
||||||
|
|
|
@ -2,8 +2,8 @@
|
||||||
.sect .text
|
.sect .text
|
||||||
.define fif8
|
.define fif8
|
||||||
fif8:
|
fif8:
|
||||||
move.l (4,sp),d1
|
move.l (4,sp),d0
|
||||||
move.l (8,sp),d0
|
move.l (8,sp),d1
|
||||||
lea (12,sp),a0
|
lea (12,sp),a0
|
||||||
jsr (Fmuld) ! result in d0/d1
|
jsr (Fmuld) ! result in d0/d1
|
||||||
lea (4,sp),a0 ! build stack for modf
|
lea (4,sp),a0 ! build stack for modf
|
||||||
|
|
Loading…
Reference in a new issue