2 ; Christian Groessler, November-2002
4 ; cursor handling, internal function
17 jsr _mul40 ; function leaves with carry clear!
18 adc SAVMSC ; add start of screen memory
31 ldx cursor ; current cursor setting as requested by the user
37 cont: stx CRSINH ; update system variable
40 and #$7f ; clear high bit / inverse flag
41 finish: sta (OLDADR),y ; update on-screen display
44 turnon: ora #$80 ; set high bit / inverse flag