18 lines
191 B
ArmAsm
18 lines
191 B
ArmAsm
|
;* cgetc
|
||
|
|
|
||
|
|
.export _cgetc
|
||
|
|
.include "creativision.inc"
|
||
|
|
|
||
|
|
_cgetc:
|
||
|
|
lda #$80
|
||
|
|
|
||
|
|
L1:
|
||
|
|
bit ZP_KEYBOARD
|
||
|
|
bpl L1
|
||
|
|
|
||
|
|
lda ZP_KEYBOARD
|
||
|
|
and #$7f
|
||
|
|
rts
|
||
|
|
|
||
|
|
|