putchr.s 171 B

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