----------------------------------------------------------------------
    -- This process records the address translation simulation to file. --
    -- Video RAM address is translated (row,column) -> (linear).        --
    ----------------------------------------------------------------------
    --process(addr_rec.ready)
    process
    variable line_var : line;
    file     text_hnd : text;
    variable filename : string(1 to 55):= "C:\_downloads\processors\_to_board\vga_addr_records.txt";
    variable addr_var : integer;

    begin
        file_open(text_hnd, filename, write_mode);
        loop
        exit when simulation_done = '1';
            addr_var := addr_rec.addr;
            write(line_var, integer'image(addr_var));
            writeline(text_hnd, line_var);
        end loop;
        file_close(text_hnd);
        wait;
    end process;

    simulation_done <= '1' after 64 us;