 bcs @end_set_cursor_position    ; ..error!
  sty temp_ptr_x ; save row
  ; -- prepare col
  jsr get_number_from_esc_seq
  ldy escape_parameter    ; get col
  bne :+    ; 0 means 1
  iny
:
  dey         ; line 1 -> line 0        
  cpy #$28    ; >= 40?..
  bcs @end_set_cursor_position    ; ..error!        
  ldx temp_ptr_x ; restore row to X
  jsr cursor_plot   ; set crsr
@end_set_cursor_position:
  jmp @end_escape_seq
           

; --- J --- erase screen
@not_H:
  cmp #$4a      ;J?
  b