ack/mach/pdp/libem/fif.s

14 lines
150 B
ArmAsm
Raw Normal View History

1984-07-19 12:51:00 +00:00
.text
.globl fif~
.globl setfloat~
fif~:
mov (sp)+,r1
jsr pc,setfloat~
movf (sp)+,r0
modf (sp)+,r0
movf r0,-(sp)
movf r1,-(sp)
setd
1984-07-19 12:51:00 +00:00
jmp (r1)