print.s 343 B

1234567891011121314151617181920212223242526
  1. .sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text
  2. .define printd
  3. .define printc
  4. ! $Id$
  5. printd:
  6. clrl r1
  7. ediv $10,r0,r0,r1
  8. beql I1
  9. pushl r1
  10. jsb printd
  11. movl (sp)+,r1
  12. I1:
  13. addb3 $'0',r1,r0
  14. printc:
  15. movb r0,Ich
  16. pushl $1
  17. pushab Ich
  18. pushl $2
  19. calls $3,WRITE
  20. rsb
  21. .sect .data
  22. Ich: .data1 0