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

15 lines
158 B
ArmAsm

/ $Header$
.text
.globl dvf~
.globl setfloat~
dvf~:
mov (sp)+,r1
jsr pc,setfloat~
movf (sp)+,r0
movf (sp)+,r1
divf r0,r1
movf r1,-(sp)
setd
jmp (r1)