 line
@scroll_one_line:
  ; -- new line: --
  ; -- temp_ptr_z and temp_ptr_w --
  jsr set_line_vectors
  lda temp_ptr_x ; screen line
  ldy temp_ptr_x+1
  sta temp_ptr_z
  sty temp_ptr_z+1
  lda temp_ptr_y ; colour line
  ldy temp_ptr_y+1
  sta temp_ptr_w
  sty temp_ptr_w+1
  ; -- old line: --
  ; -- temp_ptr_x and temp_ptr_y
  inx             ; old line
  jsr set_line_vectors
  ; -- copy chars and colours --
  ldy #$27        ; col 39
@scroll_one_char:
  lda (temp_ptr_x),y ; copy char
