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

⟦564865d0a⟧ Ada Source

    Length: 6144 (0x1800)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Config_Cl35, seg_04e8da

Derivation

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

with General_Defs;  
with Lecteur_68;  
with Parametre_68;
with Site_68;
with Carte_68;
with Plage_68;
with Lecteur_68;
with Jj_Hh_Mm_68;  
with Evenement_68;

package Config_Cl35 is

    package G_D renames General_Defs;

    Rapport_Parametre : constant G_D.Byte := 16#1E#;
    Rapport_Site : constant G_D.Byte := 16#28#;
    Rapport_Horloge : constant G_D.Byte := 16#24#;
    Rapport_Carte_Valide : constant G_D.Byte := 16#1F#;
    Rapport_Carte_Invalide : constant G_D.Byte := 16#29#;
    Rapport_Plage : constant G_D.Byte := 16#26#;
    Rapport_Evenement : constant G_D.Byte := 16#1D#;
    Rapport_Ack : constant G_D.Byte := 16#06#;
    Rapport_Nak : constant G_D.Byte := 16#15#;

    Pas_La_Fin_Rapport_Carte : constant Natural := 238;
    Pas_La_Fin_Rapport_Evenement : constant Natural := 239;

    function Cl35_Parametre
                (Lecteur : Lecteur_68.Object) return G_D.Byte_String;

    function Cl35_Site (Lecteur : Lecteur_68.Object) return G_D.Byte_String;

    function Cl35_Jjhhmm (Lecteur : Lecteur_68.Object;
                          Jjhhmm : Jj_Hh_Mm_68.Object) return G_D.Byte_String;

    function Cl35_Plage (Lecteur : Lecteur_68.Object; Plage : Plage_68.Object)
                        return G_D.Byte_String;

    function Cl35_Valide_Carte
                (Carte : Carte_68.Object;
                 Plage : Plage_68.Object;
                 Lecteur : Lecteur_68.Object) return G_D.Byte_String;

    function Cl35_Invalide_Carte
                (Carte : Carte_68.Object;
                 Plage : Plage_68.Object;
                 Lecteur : Lecteur_68.Object) return G_D.Byte_String;

    function Cl35_Valide_Groupe_Carte
                (De_La_Carte, A_La_Carte : Carte_68.Object;
                 Plage : Plage_68.Object;
                 Lecteur : Lecteur_68.Object) return G_D.Byte_String;

    function Cl35_Invalide_Groupe_Carte
                (De_La_Carte, A_La_Carte : Carte_68.Object;
                 Plage : Plage_68.Object;
                 Lecteur : Lecteur_68.Object) return G_D.Byte_String;

    function Cl35_Demande_Evenement
                (Lecteur : Lecteur_68.Object) return G_D.Byte_String;

    function Cl35_Beep (Lecteur : Lecteur_68.Object) return G_D.Byte_String;

    function Cl35_Demande_Parametre
                (Lecteur : Lecteur_68.Object) return G_D.Byte_String;

    function Cl35_Demande_Carte_Valide
                (Lecteur : Lecteur_68.Object) return G_D.Byte_String;

    function Cl35_Demande_Carte_Invalide
                (Lecteur : Lecteur_68.Object) return G_D.Byte_String;

    function Cl35_Demande_Horloge
                (Lecteur : Lecteur_68.Object) return G_D.Byte_String;

    function Cl35_Demande_Site
                (Lecteur : Lecteur_68.Object) return G_D.Byte_String;

    function Cl35_En_Veille
                (Lecteur : Lecteur_68.Object) return G_D.Byte_String;

    function Cl35_En_Service
                (Lecteur : Lecteur_68.Object) return G_D.Byte_String;

    function Cl35_Ack (Lecteur : Lecteur_68.Object) return G_D.Byte_String;

    function Cl35_Nak (Lecteur : Lecteur_68.Object) return G_D.Byte_String;

    function Cl35_Pilotage_1
                (Lecteur : Lecteur_68.Object) return G_D.Byte_String;


    ----------------------------------------------------------------------

    function Get_Type_Rapport (Bs : G_D.Byte_String) return G_D.Byte;
    function Get_Lecteur_Rapport
                (Bs : G_D.Byte_String) return Lecteur_68.T_Lecteur;
    function Get_Size_Rapport (Bs : G_D.Byte_String) return Natural;  
    function Get_Data_Rapport (Bs : G_D.Byte_String) return G_D.Byte_String;

    function Get_Parametre (Data : G_D.Byte_String) return Parametre_68.Object;
    function Get_Site (Data : G_D.Byte_String) return Site_68.Object;
    function Get_Jjhhmm (Data : G_D.Byte_String) return Jj_Hh_Mm_68.Object;
    function Get_Plage (Data : G_D.Byte_String) return Plage_68.Object;

    procedure Get_Carte (Data : G_D.Byte_String;
                         De_La_Carte, A_La_Carte : in out Carte_68.Object;
                         Indice_Fin : in out Natural);

    procedure Get_Evenement (Data : G_D.Byte_String;
                             Lecteur : Lecteur_68.T_Lecteur;
                             Evenement : in out Evenement_68.Object;
                             Indice_Fin : in out Natural);

    Rapport_Error : exception;



end Config_Cl35;

    nblk1=5
    nid=0
    hdr6=a
        [0x00] rec0=20 rec1=00 rec2=01 rec3=068
        [0x01] rec0=10 rec1=00 rec2=05 rec3=00a
        [0x02] rec0=18 rec1=00 rec2=02 rec3=048
        [0x03] rec0=1b rec1=00 rec2=04 rec3=028
        [0x04] rec0=16 rec1=00 rec2=03 rec3=000
    tail 0x2154a2570876f609d4b95 0x42a00088462060003