adf.s 224 B

123456789101112131415
  1. .sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text
  2. .sect .text
  3. .define adf~
  4. .extern setfloat~
  5. ! $Id$
  6. !size in r0
  7. adf~:
  8. mov (sp)+,r1
  9. jsr pc,setfloat~
  10. movf (sp)+,r0
  11. addf (sp)+,r0
  12. movf r0,-(sp)
  13. setd
  14. jmp (r1)