1
0
mirror of https://github.com/cc65/cc65.git synced 2024-12-25 17:29:50 +00:00
cc65/libsrc/creativision/cgetc.s

15 lines
224 B
ArmAsm
Raw Normal View History

2013-12-05 11:40:44 +00:00
;* cgetc
2017-02-01 18:46:04 +00:00
.export _cgetc
.include "creativision.inc"
2013-12-05 11:40:44 +00:00
_cgetc:
2017-02-01 18:46:04 +00:00
lda #$80
L1: bit ZP_KEYBOARD
bpl L1
lda ZP_KEYBOARD
and #$7F
rts