Initial Creativision Import
This commit is contained in:
17
libsrc/creativision/cgetc.s
Normal file
17
libsrc/creativision/cgetc.s
Normal file
@@ -0,0 +1,17 @@
|
||||
;* cgetc
|
||||
|
||||
.export _cgetc
|
||||
.include "creativision.inc"
|
||||
|
||||
_cgetc:
|
||||
lda #$80
|
||||
|
||||
L1:
|
||||
bit ZP_KEYBOARD
|
||||
bpl L1
|
||||
|
||||
lda ZP_KEYBOARD
|
||||
and #$7f
|
||||
rts
|
||||
|
||||
|
||||
Reference in New Issue
Block a user