1234567891011121314151617181920212223 |
- .sect .text; .sect .rom; .sect .data; .sect .bss
- .sect .text
- .define fif4
- fif4:
- move.l (4,sp),d1
- move.l (8,sp),d0
- jsr (Fmuls) ! result in d0
- jsr (Fstod) ! convert to double
- lea (4,sp),a0 ! build stack for modf
- move.l a0,-(sp)
- move.l d1,-(sp)
- move.l d0,-(sp)
- jsr (_modf)
- lea (12,sp),sp
- jsr (Fdtos) ! convert result to single
- move.l d0,-(sp) ! save it
- move.l (8,sp),d0 ! also convert integer part to single
- move.l (12,sp),d1
- jsr (Fdtos)
- move.l d0,(8,sp) ! integer part
- move.l (sp)+,d0
- move.l d0,(8,sp) ! fraction part
- rts
|