ack/mach/sun3/libce/cfi.s

22 lines
322 B
ArmAsm
Raw Permalink Normal View History

1989-03-22 15:06:05 +00:00
.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