
cursor_on:
  pha
  tya
  pha
          
  ldy $d3     ; get column
  lda ($d1),y ; save chr
  sta $ce 
  eor #$80    ; reverse char
  sta ($d1),y        
  lda ($f3),y ; save colour
  sta $0287
  lda $0286   ; set crsr colour
  sta ($f3),y
  inc $cf     ; set reverse phase
  lda #$14    ; set crsr counter..
  sta $cd     ; ..to max
  lda #$00    ; cursor on
  sta $cc 
  
  pla
  tay
  pla
  rts



; -------------------------------------
; moves the crsr to column Y
; and line 