35 lines
478 B
ArmAsm
35 lines
478 B
ArmAsm
|
.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
|