DataMuseum.dk Presents historical artifacts from the history of: Rational R1000/400

This is an automatic "excavation" of a thematic subset of artifacts from Datamuseum.dk's BitArchive. See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦f843dc430⟧ Ada Source

    Length: 3072 (0xc00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body D_Gui_Driver, seg_020ee4

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧ 

with Bus;
with Memoire;
with Z_Debug;
with Z80;
with Gui_Interface;
with Erreur;

use Z80;

package body D_Gui_Driver is

    -- VARIABLES ------------------------------------------------------------

    Cnt_Reset, Cnt_Quit, Cnt_Go, Cnt_Step, Cnt_Stop, Cnt_Open_Ok, Value :
       Integer := 0;
    Etat_Z80 : Z80.T_Etat;
    Ecran_Rafraichi : Boolean := True;
    Cnt_Memory_Add : Integer := 0;

    -- PROCEDURES -----------------------------------------------------------

    procedure Memory is separate;
    procedure Open is separate;
    procedure Reset is separate;
    procedure Quit is separate;
    procedure Go is separate;
    procedure Step is separate;
    procedure Stop is separate;
    procedure Error is separate;
    procedure Process_Event is

    begin
        Etat_Z80 := Z80.Etat;

        Memory;
        Error;
        Reset;
        Open;
        Quit;
        Go;
        Step;
        Stop;

        Etat_Z80 := Z80.Etat;

        if ((Etat_Z80 = Z80.Endormi) and then (not Ecran_Rafraichi)) then
            Z_Debug.Rafraichir_Ecran;
            Gui_Interface.Set_Message (Message => "Stop ");
            Ecran_Rafraichi := True;
        end if;
    end Process_Event;

end D_Gui_Driver;

    nblk1=2
    nid=0
    hdr6=4
        [0x00] rec0=2d rec1=00 rec2=01 rec3=00a
        [0x01] rec0=0a rec1=00 rec2=02 rec3=000
    tail 0x2170dd7b882405053881d 0x42a00088462060003