some fixes

This commit is contained in:
ceriel 1989-05-01 18:32:24 +00:00
parent dfc5d7318c
commit bc1ab42895
3 changed files with 8 additions and 4 deletions

View file

@ -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)

View file

@ -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)

View file

@ -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