Initial revision
This commit is contained in:
20
mach/sun3/libce/cmf4.s
Normal file
20
mach/sun3/libce/cmf4.s
Normal file
@@ -0,0 +1,20 @@
|
||||
.sect .text; .sect .rom; .sect .data; .sect .bss
|
||||
.sect .text
|
||||
.define cmf4
|
||||
cmf4:
|
||||
move.l (sp)+,a0
|
||||
move.l (sp)+,d1
|
||||
move.l (sp),d0
|
||||
move.l a0,-(sp)
|
||||
jsr (Fcmps)
|
||||
blt 1f
|
||||
bgt 2f
|
||||
clr.l (4,sp)
|
||||
rts
|
||||
1:
|
||||
move.l #-1,(4,sp)
|
||||
rts
|
||||
2:
|
||||
move.l #1,(4,sp)
|
||||
rts
|
||||
|
||||
Reference in New Issue
Block a user