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

15 lines
160 B
ArmAsm

/ $Header$
.text
.globl fef~
.globl setfloat~
fef~:
mov (sp)+,r1
jsr pc,setfloat~
movf (sp),r0
movei r0,-(sp)
movie $0,r0
movf r0,02(sp)
setd
jmp (r1)