ack/mach/pdp/libem/cfi.s
1984-07-19 13:34:12 +00:00

16 lines
189 B
ArmAsm

/ $Header$
.text
.globl cfi~
.globl setfloat~,setint~
cfi~:
mov (sp)+,r1
mov (sp)+,r0
jsr pc,setint~
mov (sp)+,r0
jsr pc,setfloat~
movf (sp)+,r0
movfi r0,-(sp)
setd;seti
jmp (r1)