putchar.s 216 B

1234567891011121314151617181920
  1. .define .putchar
  2. .sect .text
  3. .sect .rom
  4. .sect .data
  5. .sect .bss
  6. .sect .text
  7. .sect .text
  8. ! putchar, for a unix
  9. .putchar:
  10. enter [],0
  11. movqd 1,tos
  12. addr 8(fp),tos
  13. movqd 1,tos
  14. bsr WRITE
  15. adjspb -12
  16. exit []
  17. ret 0