dvf.s 224 B

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