2 ; Christian Groessler, November-2002
4 ; get a char from the keyboard
9 .export _cgetc,setcursor
10 .import KEYBDV_wrapper
16 sta ICAX1Z ; fix problems with direct call to KEYBDV
17 .if .not .defined(__ATARIXL__)
25 .if .not .defined(__ATARIXL__)
42 adc SAVMSC ; add start of screen memory
55 ldx cursor ; current cursor setting as requested by the user
61 cont: stx CRSINH ; update system variable
64 and #$7f ; clear high bit / inverse flag
65 finish: sta (OLDADR),y ; update on-screen display
68 turnon: ora #$80 ; set high bit / inverse flag