initialise_font; init font
  jsr initialise_screen ; init screen
  rts
  
;process incoming character
;inputs:
; A is inbound character
;outputs: 
; none, but screen and/or terminal state is updated.

vt100_process_inbound_char:
  tay
  lda escape_mode   ; handle esc mode
  beq :+            ; to far for branch to escape
  jmp handle_escape_char
:        
  lda ascii_to_petscii,y         ; ASCII to PETSCII
  beq @done         ; ignore non-printing chars     
  cmp #$01          ; something