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

⟦30b6dfa75⟧ Ada Source

    Length: 3072 (0xc00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Potentiometre, seg_05b84e

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 Carte_Es;
with Ds1267;
with Utils;
with X9312;
package Potentiometre is
    type Composant is (Chip_X9312, Chip_Ds1267);
    type Objet (Base : Composant) is private;

    function Creer (S1 : in Carte_Es.Numero_Sortie;
                    S2 : in Carte_Es.Numero_Sortie;
                    S3 : in Carte_Es.Numero_Sortie;
                    Avec : in Composant) return Objet;
    procedure Fixer (Un_Objet : in out Objet; A_La_Valeur : in Utils.Pourcent);
    procedure Augmenter (Un_Objet : in out Objet; De : in Utils.Pourcent := 1);
    procedure Diminuer (Un_Objet : in out Objet; De : in Utils.Pourcent := 1);
    function Lire (Un_Objet : in Objet) return Utils.Pourcent;

private
    type Objet (Base : Composant) is
        record
            Valeur : Utils.Pourcent;
            case Base is
                when Chip_X9312 =>
                    Chip_X9312 : X9312.Objet;
                when Chip_Ds1267 =>
                    Chip_Ds1267 : Ds1267.Objet;
            end case;
        end record;
end Potentiometre;

E3 Meta Data

    nblk1=2
    nid=0
    hdr6=4
        [0x00] rec0=1b rec1=00 rec2=01 rec3=04c
        [0x01] rec0=04 rec1=00 rec2=02 rec3=001
    tail 0x2176b0002894b5e56a83e 0x42a00088462060003