X
; the crsr ist turned off during 
; operation
; destroys all registers
; -------------------------------------
cursor_plot:
  jsr cursor_off
  
  stx $d6     ; set row
  sty $d3     ; set col
  jsr set_line_vectors
  ldx temp_ptr_x ; set screen line
  ldy temp_ptr_x+1
  stx $d1
  sty $d2
  ldx temp_ptr_y ; set color line
  ldy temp_ptr_y+1
  stx $f3
  sty $f4
  
  jsr cursor_on        
  rts
        

; -------------------------------------
; Print char in A to screen
; being awa