cif.s 378 B

1234567891011121314151617181920212223242526
  1. .sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text
  2. .sect .text
  3. .define cif~,cuf~
  4. .extern setint~,setfloat~
  5. ! $Id$
  6. cif~:
  7. mov (sp)+,r1
  8. mov (sp)+,r0
  9. jsr pc,setfloat~
  10. mov (sp)+,r0
  11. 1: jsr pc,setint~
  12. movif (sp)+,r0
  13. movf r0,-(sp)
  14. setd;seti
  15. jmp (r1)
  16. cuf~:
  17. mov (sp)+,r1
  18. mov (sp)+,r0
  19. jsr pc,setfloat~
  20. mov (sp)+,r0
  21. cmp r0,$02
  22. bne 1b
  23. clr -(sp)
  24. mov $04,r0
  25. br 1b