ack/mach/pdp/libem/sbf.s
1984-07-19 12:51:00 +00:00

14 lines
144 B
ArmAsm

.text
.globl sbf~
.globl setfloat~
sbf~:
mov (sp)+,r1
jsr pc,setfloat~
movf (sp)+,r0
subf (sp)+,r0
negf r0
movf r0,-(sp)
setl
jmp (r1)