putchr.s 229 B

1234567891011121314151617181920212223242526
  1. .define putchr
  2. .sect .text
  3. .sect .rom
  4. .sect .data
  5. .sect .bss
  6. .sect .text
  7. putchr:
  8. push hl
  9. push de
  10. push bc
  11. cp 0x0A
  12. jr nz,1f
  13. ld a,0x1F
  14. 1:
  15. ld c,a
  16. 2:
  17. in a,0xF1
  18. and 4
  19. jr z,2b
  20. ld a,c
  21. out 0xF0,a
  22. pop bc
  23. pop de
  24. pop hl
  25. ret