putchr.nas.s 457 B

123456789101112131415161718192021222324252627282930313233
  1. .define putchr
  2. .sect .text
  3. .sect .rom
  4. .sect .data
  5. .sect .bss
  6. .sect .text
  7. ! output routine in monitor
  8. CRT = 0x013B
  9. ! output a charcter
  10. ! entry: ascii character in a
  11. putchr:
  12. push hl
  13. push bc
  14. ld hl,tab
  15. ld b,5
  16. 1: cp (hl)
  17. jr z,fetch
  18. inc hl
  19. inc hl
  20. djnz 1b
  21. 2: call CRT
  22. pop bc
  23. pop hl
  24. ret
  25. fetch: inc hl
  26. ld a,(hl)
  27. jr 2b
  28. ! conversion table for nascom characters
  29. tab: .data1 0x0D,0x00
  30. .data1 0x1B,0x1E
  31. .data1 0x08,0x1D
  32. .data1 0x0A,0x1F
  33. .data1 0x7F,0x00