DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

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 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download
Index: T V

⟦055db07ca⟧ TextFile

    Length: 2481 (0x9b1)
    Types: TextFile
    Names: »V«

Derivation

└─⟦149519bd4⟧ Bits:30000546 8mm tape, Rational 1000, !projects 93-07-13
    └─⟦124ff5788⟧ »DATA« 
        └─⟦this⟧ 
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
    └─⟦6f12a12be⟧ »DATA« 
        └─⟦this⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─⟦d65440be7⟧ »DATA« 
        └─⟦this⟧

TextFile

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_Octet_String (Un_Octet : Octet.T_Octet) return String;
    function Convert_String_Octet (Str : String) return Octet.T_Octet;
    function Convert_Ascii_Octet
                (Car_1, Car_2 : Character) return Octet.T_Octet;
    function Convert_Binaire_String (Un_Octet : Octet.T_Octet) return String;
    function Convert_String_Binaire (Str : String) 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;