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

⟦2e33da50e⟧ Ada Source

    Length: 3072 (0xc00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package General_Defs, seg_05025d, seg_051670

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 System;
package General_Defs is

    type Byte is range 0 .. 255;
    for Byte'Size use 8;

    type Byte_String is array (Natural range <>) of Byte;

    Taille_Trame : Integer := 1024;
    Debut_Trame : Byte_String (1 .. 2) := (16#3C#, 16#3C#);
    Fin_Trame : Byte_String (1 .. 2) := (16#3E#, 16#3E#);


    subtype Adresse is System.Address;

    --          *********************************
    --          * Parametres pour liaison serie *
    --          *********************************

    -- Stop Bit 1 ou 2
    subtype Stop_Bits is Integer range 1 .. 2;

    -- Nombre de bits par caractere, de 5 a 8
    subtype Nbre_Bits_Par_Caractere is Integer range 5 .. 8;

    -- Parite Sans, Paire, Impair
    type Parite is (None, Even, Odd);

    type Baud_Rate is (Bd300, Bd600, Bd1200, Bd2400, Bd4800, Bd9600, Bd19200);

    -- Plage du vecteur d'interruption pour l'utilisateur
    -- remarque : en realite il existe deux plages utilisateur possibles
    --      64 .. 140 et 142 .. 255  (140 utilise dans TDM - 141 est utilise pour le timer )

    subtype Vecteur_It is Integer range 64 .. 140;
    Valeur_Vecteur_It : constant Vecteur_It := 100;

    type Port is (Port_A, Port_B);

    function Egaux (Octet1 : Byte; Octet2 : Byte) return Boolean;

end General_Defs;

E3 Meta Data

    nblk1=2
    nid=0
    hdr6=4
        [0x00] rec0=21 rec1=00 rec2=01 rec3=076
        [0x01] rec0=0b rec1=00 rec2=02 rec3=001
    tail 0x217579994877d73344585 0x42a00088462060003