Cleanups for Creativision.
This commit is contained in:
@@ -1,17 +1,14 @@
|
||||
;* cgetc
|
||||
|
||||
.export _cgetc
|
||||
.include "creativision.inc"
|
||||
|
||||
.export _cgetc
|
||||
.include "creativision.inc"
|
||||
|
||||
_cgetc:
|
||||
lda #$80
|
||||
|
||||
L1:
|
||||
bit ZP_KEYBOARD
|
||||
bpl L1
|
||||
|
||||
lda ZP_KEYBOARD
|
||||
and #$7f
|
||||
rts
|
||||
|
||||
|
||||
lda #$80
|
||||
|
||||
L1: bit ZP_KEYBOARD
|
||||
bpl L1
|
||||
|
||||
lda ZP_KEYBOARD
|
||||
and #$7F
|
||||
rts
|
||||
|
||||
Reference in New Issue
Block a user