type
  TVIC = record
    spr0_x      : Byte;
    spr0_y      : Byte;
    spr1_x      : Byte;
    spr1_y      : Byte;
    spr2_x      : Byte;
    spr2_y      : Byte;
    spr3_x      : Byte;
    spr3_y      : Byte;
    spr4_x      : Byte;
    spr4_y      : Byte;
    spr5_x      : Byte;
    spr5_y      : Byte;
    spr6_x      : Byte;
    spr6_y      : Byte;
    spr7_x      : Byte;
    spr7_y      : Byte;
    spr_hi_x    : Byte;
    cr1         : Byte;
    raster      : Byte;
    lp_x        : Byte;
    lp_y        : Byte;
    spr_ena     : Byte;
    cr2         : Byte;
    spr_exp_y   : Byte;
    mem         : Byte;
    irq         : Byte;
    irq_ena     : Byte;
    spr_dp      : Byte;
    spr_mcolor  : Byte;
    spr_exp_x   : Byte;
    spr_ss_col  : Byte;
    spr_sd_col  : Byte;
    border      : Byte;
    bg_color0   : Byte;
    bg_color1   : Byte;
    bg_color2   : Byte;
    bg_color3   : Byte;
    spr_color1  : Byte;
    spr_color2  : Byte;
    spr0_color  : Byte;
    spr1_color  : Byte;
    spr2_color  : Byte;
    spr3_color  : Byte;
    spr4_color  : Byte;
    spr5_color  : Byte;
    spr6_color  : Byte;
    spr7_color  : Byte;
  end;

var
  vic   : TVIC absolute $d000;
begin
  vic.border    := white;
  vic.bg_color0 := dark_grey;