prstr.s 284 B

1234567891011121314151617181920212223
  1. .define .prstr
  2. .sect .text
  3. .sect .rom
  4. .sect .data
  5. .sect .bss
  6. .sect .text
  7. .sect .text
  8. !het adres van de af te drukken string staat op de stack.
  9. .prstr:
  10. save [r1]
  11. movd 8(sp), r1
  12. 1:
  13. cmpqb 0, 0(r1)
  14. beq 2f
  15. movb 0(r1), tos
  16. jsr @.putchar
  17. addqd 1, r1
  18. br 1b
  19. 2:
  20. restore [r1]
  21. ret 4