DataMuseum.dk

top - download

    Length: 1969 (0x7b1)
    Types: TextFile
    Notes: R1k Text-file segment

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

TextFile

with System;
package Hard is
    -- Declarations generales
    type Byte is new Integer range 0 .. 255;
    for Byte'Size use 8;

    type Adresse is access Integer;
    Null_Adresse : constant Adresse := null;

    -- Declarations liees aux registres
    Max_Nom_Registre : constant := 15;
    type Nom_Registre is new String (1 .. Max_Nom_Registre);
    Null_Nom_Registre : constant Nom_Registre := (others => ' ');

    type Valeur_Registre is new Integer;
    Null_Valeur_Registre : constant Valeur_Registre := 0;

    -- Declarations liees aux ports
    Max_Nom_Port : constant := 15;
    type Nom_Port is new String (1 .. Max_Nom_Port);
    Null_Nom_Port : constant Nom_Port := (others => ' ');

    type Tvitesse is (V_1200, V_2400, V_4800, V_9600);

    type Params_Liaison is
        record
            Vitesse : Tvitesse;
            Parite : Boolean;
            Bit_Stop : Boolean;
        end record;  
    Config_Dess030 : constant Params_Liaison :=
       (Vitesse => V_9600, Parite => True, Bit_Stop => True);

    -- Declarations liees au PIC
    Max_Nom_Pic : constant := 15;
    type Nom_Pic is new String (1 .. Max_Nom_Pic);
    Null_Nom_Pic : constant Nom_Pic := (others => ' ');

    Max_Source : constant := 8;
    type No_Pic is range 1 .. Max_Source;

    type Source_Pic is
        record
            Vecteur : Byte;
            Adresse_It : System.Address;
        end record;  
    Null_Source_Pic : constant Source_Pic :=
       (Vecteur => 0, Adresse_It => System.Null_Address);
    type Sources_Pic is array (No_Pic) of Source_Pic;
    Null_Sources_Pic : constant Sources_Pic := (others => Null_Source_Pic);

    -- Declarations liees au cpu
    Max_Nom_Cpu : constant := 15;
    type Nom_Cpu is new String (1 .. Max_Nom_Cpu);
    Null_Nom_Cpu : constant Nom_Cpu := (others => ' ');

    Min_Priorite_Cpu : constant := 0;
    Max_Priorite_Cpu : constant := 7;
    type Priorite_Cpu is range Min_Priorite_Cpu .. Max_Priorite_Cpu;

end Hard