 temp_ptr_y+1
  sta temp_ptr_w
  sty temp_ptr_w+1
  ; -- old line: --
  ; -- temp_ptr_x and temp_ptr_y
  dex             ; old line
  jsr set_line_vectors
  ; -- copy chars ond colours --
  ldy #$27        ; col 39
@scroll_one_char:
  lda (temp_ptr_x),y ; copy char
  sta (temp_ptr_z),y
  lda (temp_ptr_y),y ; copy colour
  sta (temp_ptr_w),y
  dey
  bpl @scroll_one_char
  cpx scroll_region_start         ; first line?
  bne @scroll_one_line         ; no -> go on
  jsr erase_line_by_vector   