1
0
mirror of https://github.com/cc65/cc65.git synced 2024-11-06 15:06:07 +00:00
cc65/libsrc/creativision/cgetc.s
2017-02-01 20:09:03 +01:00

15 lines
224 B
ArmAsm

;* cgetc
.export _cgetc
.include "creativision.inc"
_cgetc:
lda #$80
L1: bit ZP_KEYBOARD
bpl L1
lda ZP_KEYBOARD
and #$7F
rts