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

⟦2787b7845⟧ Ada Source

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

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



package Octet is

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

    Val_Max_Octet : constant Integer := 255;


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

    subtype Num_Bit is Natural range 0 .. 7;
    subtype T_Octet is Natural range 0 .. Val_Max_Octet;
    type T_Bit_Octet is array (Num_Bit) of Boolean;

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

    -- affichage

    procedure Afficher_Octet_Binaire (Un_Octet : T_Octet);
    procedure Afficher_Octet_Hexa (Un_Octet : T_Octet);
    function Lire_Octet_Binaire return T_Octet;
    function Lire_Octet_Hexa return T_Octet;



    -- conversion octet <--> tableau de bits

    function Convert_Octet (Bit_Octet : T_Bit_Octet) return T_Octet;
    function Convert_Bit (Octet_1 : T_Octet) return T_Bit_Octet;


    -- operation d'addition entre 2 bits (avec carry)

    procedure Add_Bit_C (Bit_1 : in out Boolean;
                         Bit_2 : Boolean;
                         Carry : in out Boolean);
    -- Conversions -------------------------------------------

    procedure Convert_Octet_Ascii (Un_Octet : Octet.T_Octet;
                                   Car_1, Car_2 : in out Character);
    function Convert_Ascii_Octet
                (Car_1, Car_2 : Character) return Octet.T_Octet;

    -- sans prise en compte et gestion des effets sur les flags

    function Test_Bit (Octet_1 : T_Octet; Bit : Num_Bit) return Boolean;

    procedure Set_Bit (Octet_1 : in out T_Octet; Bit : Num_Bit);

    procedure Res_Bit (Octet_1 : in out T_Octet; Bit : Num_Bit);

    function "and" (Octet_1, Octet_2 : T_Octet) return T_Octet;

    function "or" (Octet_1, Octet_2 : T_Octet) return T_Octet;

    function "xor" (Octet_1, Octet_2 : T_Octet) return T_Octet;

    function "not" (Octet_1 : T_Octet) return T_Octet;

    function Add (Octet_1, Octet_2 : T_Octet) return T_Octet;

    function Sub (Octet_1, Octet_2 : T_Octet) return T_Octet;

    function Neg (Octet_1 : T_Octet) return T_Octet;

    procedure Rrd (Octet_1, Octet_2 : in out T_Octet);

    procedure Rld (Octet_1, Octet_2 : in out T_Octet);



end Octet;

E3 Meta Data

    nblk1=5
    nid=2
    hdr6=6
        [0x00] rec0=22 rec1=00 rec2=01 rec3=034
        [0x01] rec0=1a rec1=00 rec2=04 rec3=048
        [0x02] rec0=0d rec1=00 rec2=05 rec3=000
        [0x03] rec0=1c rec1=00 rec2=03 rec3=068
        [0x04] rec0=06 rec1=00 rec2=02 rec3=001
    tail 0x2150bff42823062c770f2 0x42a00088462060003
Free Block Chain:
  0x2: 0000  00 03 00 81 80 12 3a 20 69 6e 20 6f 75 74 20 54  ┆      : in out T┆
  0x3: 0000  00 00 03 fc 80 03 65 74 3b 03 00 27 20 20 20 20  ┆      et;  '    ┆