cc65/libsrc/creativision/cgetc.s

;* cgetc

        .export         _cgetc
        .include        "creativision.inc"

_cgetc:
        lda     #$80

L1:     bit     ZP_KEYBOARD
        bpl     L1

        lda     ZP_KEYBOARD
        and     #$7F
        rts
Initial Creativision Import 2013-12-05 11:40:44 +00:00			`;* cgetc`

Cleanups for Creativision. 2017-02-01 18:46:04 +00:00			`.export _cgetc`
			`.include "creativision.inc"`

Initial Creativision Import 2013-12-05 11:40:44 +00:00			`_cgetc:`
Cleanups for Creativision. 2017-02-01 18:46:04 +00:00			`lda #$80`

			`L1: bit ZP_KEYBOARD`
			`bpl L1`

			`lda ZP_KEYBOARD`
			`and #$7F`
			`rts`