
  sta escape_mode
  sta escape_buffer_length
  sta scroll_region_start
  sta font_mode
  sta saved_font_mode
  sta saved_reverse_mode
  sta saved_row
  sta saved_column
  
  lda #$18    ; last line
  sta scroll_region_end     ; = 24
  
  rts


reverse_font_table = font_table + $0400
initialise_font:  
  sei
  ldx #<ROM_FONT ; font_mode in temp_ptr_z
  ldy #>ROM_FONT
  stx temp_ptr_z
  sty temp_ptr_z+1
  ldx #<font_table    
  ldy #>font_table
  stx temp_ptr_y
  sty temp_ptr_y+1
 