Initial revision
This commit is contained in:
21
mach/sun3/libce/cfi.s
Normal file
21
mach/sun3/libce/cfi.s
Normal file
@@ -0,0 +1,21 @@
|
||||
.sect .text; .sect .rom; .sect .data; .sect .bss
|
||||
.sect .text
|
||||
.define cfi
|
||||
cfi:
|
||||
move.l (sp)+,a0
|
||||
move.l (sp)+,d1 ! should be 4
|
||||
move.l (sp)+,d0
|
||||
cmp.l #4,d0
|
||||
bne 1f
|
||||
move.l (sp),d0
|
||||
move.l a0,-(sp)
|
||||
jsr (Fints)
|
||||
move.l d0,(4,sp)
|
||||
rts
|
||||
1:
|
||||
move.l (sp)+,d0
|
||||
move.l (sp),d1
|
||||
move.l a0,-(sp)
|
||||
jsr (Fintd)
|
||||
move.l d0,(4,sp)
|
||||
rts
|
||||
Reference in New Issue
Block a user