12345678910111213141516171819202122232425262728293031323334 |
- .sect .text; .sect .rom; .sect .data; .sect .bss
- .define cuf
- .sect .rom
- L1: .data4 0x41f00000, 0x0
- .sect .text
- cuf:
- move.l (sp)+,a0
- move.l (sp)+,d1
- move.l (sp)+,d0 ! should be 4
- cmp.l #4,d1
- bne 1f
- move.l (sp),d0
- move.l a0,-(sp)
- jsr (Fflts)
- tst.l d0
- bpl 2f
- move.l #0x4f800000,d1
- jsr (Fadds)
- 2:
- move.l d0,(4,sp)
- rts
- 1:
- move.l (sp),d0
- tst.l -(sp)
- move.l a0,-(sp)
- jsr (Ffltd)
- tst.l d0
- bpl 2f
- lea (L1),a0
- jsr (Faddd)
- 2:
- move.l d1,(8,sp)
- move.l d0,(4,sp)
- rts
|