ack/mach/pdp/libem/adf.s
1994-06-24 14:02:31 +00:00

16 lines
224 B
ArmAsm

.sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text
.sect .text
.define adf~
.extern setfloat~
! $Id$
!size in r0
adf~:
mov (sp)+,r1
jsr pc,setfloat~
movf (sp)+,r0
addf (sp)+,r0
movf r0,-(sp)
setd
jmp (r1)