Initial revision

mach/sun3/libce/cif.s

@@ -0,0 +1,23 @@
+.sect .text; .sect .rom; .sect .data; .sect .bss
+.sect .text
+.define cif
+cif:
+	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)
+	move.l	d0,(4,sp)
+	rts
+1:
+	move.l	(sp),d0
+	tst.l	-(sp)
+	move.l	a0,-(sp)
+	jsr	(Ffltd)
+	move.l	d1,(8,sp)
+	move.l	d0,(4,sp)
+	rts
+