1234567891011121314151617181920212223242526 |
- .sect .text; .sect .rom; .sect .data; .sect .bss
- .sect .text
- .define cff
- cff:
- move.l (sp)+,a0
- move.l (sp)+,d1
- move.l (sp)+,d0
- cmp.l d0,d1
- beq 2f
- cmp.l #4,d0
- bne 1f
- move.l (sp),d0
- tst.l -(sp)
- move.l a0,-(sp)
- jsr (Fstod)
- move.l d0,(4,sp)
- move.l d1,(8,sp)
- 2:
- rts
- 1:
- move.l (sp),d0
- move.l (4,sp),d1
- move.l a0,(sp)
- jsr (Fdtos)
- move.l d0,(4,sp)
- rts
|