2 ; Ullrich von Bassewitz, 06.08.1998
15 ;--------------------------------------------------------------------------
17 _cgetc: lda KEY_COUNT ; Get number of characters
18 bne L2 ; Jump if there are already chars waiting
20 ; Switch on the cursor if needed
24 jsr CURS_SET ; Set cursor to current position
29 L2: lda KEY_COUNT ; Check characters again
31 jsr CURS_OFF ; Switch cursor off, if characters available
33 jsr KBDREAD ; Read char and return in A
37 ;--------------------------------------------------------------------------
38 ; Module constructor/destructor
53 ; Set the new vector. I can only hope that this works for other C128