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

⟦be70bb8ae⟧ Ada Source

    Length: 3072 (0xc00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, generic, package Trame_Serie, seg_056587

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



with General_Defs;
with File_Attente;
generic
    Taille_Trame : Integer := 1024;
    Numero_Port : General_Defs.Port;
package Trame_Serie is
    package G_Defs renames General_Defs;

    package File is new File_Attente (Element => G_Defs.Byte,
                                      Longueur_Max => Taille_Trame + 1);

    type Objet is limited private;  
    subtype Code_Taille_Trame is G_Defs.Byte_String (1 .. 2);
    subtype Chaine_Trame is G_Defs.Byte_String
                               (1 .. G_Defs.Debut_Trame'Length +
                                        Code_Taille_Trame'Length +
                                        G_Defs.Fin_Trame'Length + Taille_Trame);

    type Etat_Trame is (Debut, Fin, Autre);
    function Construire_Trame_Reception (Octet : G_Defs.Byte) return Etat_Trame;
    procedure Construire_Trame_Emission (Trame_Entree : in G_Defs.Byte_String;
                                         Trame_Formattee : out Chaine_Trame;
                                         Taille : out Integer);  
    procedure Extraire_Trame_Reception
                 (Trame_A_Lire : out G_Defs.Byte_String; Taille : out Integer);
    procedure Init;
    Erreur_Sur_Trame : exception;
    Taille_Trame_Trop_Grande : exception;

private
    type Objet is
        record
            Contenu_Trame : File.Objet;
            Nbre_Elements : Integer := 0;
        end record;
end Trame_Serie;

E3 Meta Data

    nblk1=2
    nid=0
    hdr6=4
        [0x00] rec0=18 rec1=00 rec2=01 rec3=012
        [0x01] rec0=0e rec1=00 rec2=02 rec3=001
    tail 0x21762497087c44305d7f3 0x42a00088462060003