2 ; Groepaz/Hitmen, 11.10.2015
8 .import soft80_internal_cursorxlsb
16 lda KEY_COUNT ; Get number of characters
17 bne L3 ; Jump if there are already chars waiting
20 jsr invertcursor ; set cursor on or off accordingly
22 L1: lda KEY_COUNT ; wait for key
26 jsr invertcursor ; set cursor on or off accordingly
28 L3: jsr KBDREAD ; Read char and return in A
32 ; Switch the cursor on or off (invert)
41 lda $01 ; enable RAM under I/O
52 ldx soft80_internal_cursorxlsb
66 ; do not use soft80_putcolor here to make sure the cursor is always
67 ; shown using the current textcolor without disturbing the "color voodoo"
74 sta (CRAM_PTR),y ; vram
77 lda (CRAM_PTR),y ; vram
80 sta (CRAM_PTR),y ; vram
84 nibble: .byte $f0, $0f
86 ;-------------------------------------------------------------------------------
87 ; force the init constructor to be imported
90 conio_init = soft80_init