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 - metrics - download

⟦a620a0f36⟧ Ada Source

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

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 Octet;

package Mot is

    -- CONSTANTES -----------------------------------------------------------

    Val_Max_Mot : constant Integer := 65535;


    -- TYPES -----------------------------------------------------------------

    subtype T_Mot is Natural range 0 .. Val_Max_Mot;


    -- PROCEDURES -----------------------------------------------------------


    -- affichage, lecture

    procedure Afficher_Mot_Hexa (Mot : T_Mot);
    function Lire_Mot_Hexa return T_Mot;




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

    function Construire (Octet_1, Octet_2 : Octet.T_Octet) return T_Mot;

    function Poids_Fort (Mot : T_Mot) return Octet.T_Octet;

    function Poids_Faible (Mot : T_Mot) return Octet.T_Octet;

    function Add (Mot_1, Mot_2 : T_Mot) return T_Mot;

    function Neg (Mot : T_Mot) return T_Mot;

    function Sub (Mot_1, Mot_2 : T_Mot) return T_Mot;

    function "not" (Mot : T_Mot) return T_Mot;
    procedure Convert_Mot_Ascii (Un_Mot : Mot.T_Mot;
                                 Car_1, Car_2, Car_3, Car_4 : in out Character);

    function Convert_Ascii_Mot
                (Car_1, Car_2, Car_3, Car_4 : Character) return Mot.T_Mot;
    ----------------------------------------------------------------------------


end Mot;

E3 Meta Data

    nblk1=5
    nid=3
    hdr6=4
        [0x00] rec0=2a rec1=00 rec2=01 rec3=00a
        [0x01] rec0=09 rec1=00 rec2=02 rec3=000
        [0x02] rec0=1e rec1=00 rec2=03 rec3=02c
        [0x03] rec0=04 rec1=00 rec2=02 rec3=000
        [0x04] rec0=01 rec1=00 rec2=04 rec3=001
    tail 0x2150b896e822c71f63201 0x42a00088462060003
Free Block Chain:
  0x3: 0000  00 05 03 fc 80 03 65 74 3b 03 00 27 20 20 20 20  ┆      et;  '    ┆
  0x5: 0000  00 04 00 d1 80 10 69 6e 20 6f 75 74 20 54 5f 4f  ┆      in out T_O┆
  0x4: 0000  00 00 00 04 80 01 74 01 02 03 74 3b 06 00 00 00  ┆      t   t;    ┆