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

⟦e3d85af3b⟧ Ada Source

    Length: 3072 (0xc00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Definitions, seg_059a10

Derivation

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

E3 Source Code



package Definitions is

    Max_Energie : constant := 100;
    Max_Vitesse : constant := 10;
    Max_Seuil : constant := 50;
    Max_Colonnes : constant := 80;
    Max_Lignes : constant := 24;

    subtype Energie is Natural range 0 .. Max_Energie;
    subtype Vitesse is Natural range 0 .. Max_Vitesse;
    subtype Seuil_De_Clignotement is Natural range 0 .. Max_Seuil;



    type Position is

        record
            Colonne : Natural range 1 .. Max_Colonnes;
            Ligne : Natural range 1 .. Max_Lignes;
        end record;

    type Cellule is

        record
            Nature : Character;
            Numero : Natural;
        end record;


    type Cap is (Nord, Sud, Est, Ouest, Nord_Est,
                 Nord_Ouest, Sud_Est, Sud_Ouest);



end Definitions;

E3 Meta Data

    nblk1=2
    nid=2
    hdr6=2
        [0x00] rec0=26 rec1=00 rec2=01 rec3=000
        [0x01] rec0=00 rec1=1a rec2=04 rec3=505
    tail 0x21768a14a890f82bbe8a9 0x42a00088462060003
Free Block Chain:
  0x2: 0000  00 00 00 28 80 03 74 29 3b 03 00 00 00 00 00 00  ┆   (  t);       ┆