2 ; Ullrich von Bassewitz, 2003-04-13
15 ; ------------------------------------------------------------------------
20 lda KEYBUF ; Do we have a character?
23 ; No character, enable cursor and wait
25 lda cursor ; Cursor currently off?
28 ora #%00000001 ; Cursor ON
33 ; If the cursor was enabled, disable it now
37 ldx #$00 ; Zero high byte
38 dec STATUS ; Clear bit zero
40 ; We have the character, clear avail flag
42 @L2: and #$7F ; Mask out avail flag
51 ; ------------------------------------------------------------------------
52 ; Switch the cursor off, disable capslock