2 ; 2003-04-13, Ullrich von Bassewitz
3 ; 2013-07-26, Greg King
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
47 ora #$80 ; FUNCT pressed
55 ; ------------------------------------------------------------------------
56 ; Switch the cursor off, disable capslock. Code goes into the INIT segment
57 ; which may be reused after it is run.