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

⟦7e813c592⟧ Ada Source

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

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;

    subtype Pourcent is Natural range 0 .. 100;

    function Creer (E1 : in Carte_Es.Numero_Sortie;
                    E2 : in Carte_Es.Numero_Sortie;
                    E3 : in Carte_Es.Numero_Sortie;
                    Avec : in Composant) return Objet;

    procedure Fixer (Un_Objet : in out Objet; A_La_Valeur : Utils.Pourcent);

    procedure Augmenter (Un_Objet : in out Objet; De : Utils.Pourcent := 1);

    procedure Diminuer (Un_Objet : in out Objet; De : 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=22 rec1=00 rec2=01 rec3=01c
        [0x01] rec0=05 rec1=00 rec2=02 rec3=001
    tail 0x2176a48c2893a4969f845 0x42a00088462060003