Initial revision

This commit is contained in:
ceriel
1989-03-22 15:06:05 +00:00
parent 7768504a93
commit f3aff5704c
22 changed files with 424 additions and 0 deletions

20
mach/sun3/libce/cmf4.s Normal file
View 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