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

⟦e02755b3e⟧ TextFile

    Length: 765 (0x2fd)
    Types: TextFile
    Notes: R1k Text-file segment

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦344916b40⟧ 
            └─⟦this⟧

TextFile

with Hard;
with System;
package Pic is
    type Objet is private;

    function Creer
                (Nom : in Hard.Nom_Pic; Adresse : in Hard.Adresse) return Objet;

    procedure Associer_It (Pic : in Objet;
                           No : in Hard.No_Pic;
                           Adresse_It : in System.Address);
    procedure Inhiber_It (Pic : in Objet; No : in Hard.No_Pic);
    procedure Autoriser_It (Pic : in Objet; No : in Hard.No_Pic);

    procedure Image (Pic : in Objet);

    procedure Detruire (Pic : in Objet);
private
    type Objet is
        record
            Nom : Hard.Nom_Pic;
            Adresse : Hard.Adresse;
            R0, R1, R2, R3, R4, R5, R6, R7 : Hard.Adresse;
            Sources : Hard.Sources_Pic;
        end record;
end Pic