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

26
mach/sun3/libce/cff.s Normal file
View File

@@ -0,0 +1,26 @@
.sect .text; .sect .rom; .sect .data; .sect .bss
.sect .text
.define cff
cff:
move.l (sp)+,a0
move.l (sp)+,d1
move.l (sp)+,d0
cmp.l d0,d1
beq 2f
cmp.l #4,d0
bne 1f
move.l (sp),d0
tst.l -(sp)
move.l a0,-(sp)
jsr (Fstod)
move.l d0,(4,sp)
move.l d1,(8,sp)
2:
rts
1:
move.l (sp),d0
move.l (4,sp),d1
move.l a0,(sp)
jsr (Fdtos)
move.l d0,(4,sp)
rts