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

⟦d6af16dcb⟧ Ada Source

    Length: 5120 (0x1400)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Cl35, seg_040ced

Derivation

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

E3 Source Code



with Message;
with System;

package Cl35 is


    Adresse_Min : constant Natural := 0;
    Adresse_Max : constant Natural := 63;

    Taille_Entete : constant Natural := 1;
    Taille_Adresse : constant Natural := 1;
    Taille_Controle : constant Natural := 2;
    Taille_Commande : constant Natural := 1;
    Taille_Donnees : constant Natural := 4;
    Taille_Fin : constant Natural := 2;

    Code_Entete : constant System.Byte_String (0 .. 0) := (0 => 16#01#);

    Code_Ack : constant System.Byte_String (0 .. 0) := (0 => 16#06#);

    Code_Reemission_Ack : constant System.Byte_String (0 .. 0) := (0 => 16#15#);

    Code_Rapport_Evenement :
       constant System.Byte_String (0 .. 0) := (0 => 16#1D#);

    Code_Rapport_Parametres :
       constant System.Byte_String (0 .. 0) := (0 => 16#1E#);

    Code_Carte_Ok : constant System.Byte_String (0 .. 0) := (0 => 16#1F#);

    Code_Carte_Ko : constant System.Byte_String (0 .. 0) := (0 => 16#29#);

    Code_Rapport_Horloge :
       constant System.Byte_String (0 .. 0) := (0 => 16#24#);

    Code_Rapport_Site : constant System.Byte_String (0 .. 0) := (0 => 16#28#);

    Code_Veille : constant System.Byte_String (0 .. 0) := (0 => 16#2A#);

    Code_Reveille : constant System.Byte_String (0 .. 0) := (0 => 16#2B#);

    Code_Pilote : constant System.Byte_String (0 .. 0) := (0 => 16#2C#);

    Code_Fin : constant System.Byte_String (0 .. 1) :=
       (0 => 16#F1#, 1 => 16#F2#);


    function Coder_Message (Le_Message : Message.Objet)
                           return System.Byte_String;



    function Decoder_Message
                (La_Trame : System.Byte_String) return Message.Objet;





end Cl35;

E3 Meta Data

    nblk1=4
    nid=3
    hdr6=4
        [0x00] rec0=20 rec1=00 rec2=01 rec3=094
        [0x01] rec0=20 rec1=00 rec2=04 rec3=000
        [0x02] rec0=09 rec1=00 rec2=04 rec3=000
        [0x03] rec0=0a rec1=00 rec2=02 rec3=000
    tail 0x2153b70be861256acf8ba 0x42a00088462060003
Free Block Chain:
  0x3: 0000  00 02 03 fa 80 3a 20 20 20 20 63 6f 6e 73 74 61  ┆     :    consta┆
  0x2: 0000  00 00 00 60 80 23 42 79 74 65 5f 53 74 72 69 6e  ┆   ` #Byte_Strin┆