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

⟦cb34da1ae⟧ Ada Source

    Length: 4096 (0x1000)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Start, seg_021fef

Derivation

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

E3 Source Code



--      Copyright (c) 1990 Meridian Software Systems, Inc.      --
with Mac_Types;
use Mac_Types;
package Start is

    type Defstarttype is (Slotdev, Scsidev);

    type Defstartarray is array (1 .. 4) of Signedbyte;
    type Defstartrec is
        record
            Defstart : Defstartarray;
        end record;
    type Defstartptr is access Defstartrec;

    type Slotdefstartrec is
        record
            Sdextdevid : Signedbyte;
            Sdpartition : Signedbyte;
            Sdslotnum : Signedbyte;
            Sdsrsrcid : Signedbyte;
        end record;

    type Scsidefstartrec is
        record
            Sdreserved1 : Signedbyte;
            Sdreserved2 : Signedbyte;
            Sdrefnum : Mac_Types.Integer;
        end record;

    type Defvideorec is
        record
            Sdslot : Signedbyte;
            Sdsresource : Signedbyte;
        end record;
    type Defvideoptr is access Defvideorec;

    type Defosrec is
        record
            Sdreserved : Signedbyte;
            Sdostype : Signedbyte;
        end record;
    type Defosptr is access Defosrec;

    procedure Getdefaultstartup (Paramblock : Defstartptr);
    pragma Interface (Mpwpascal, Getdefaultstartup, "GETDEFAULTSTARTUP");

    procedure Setdefaultstartup (Paramblock : Defstartptr);
    pragma Interface (Mpwpascal, Setdefaultstartup, "SETDEFAULTSTARTUP");

    procedure Getvideodefault (Paramblock : Defvideoptr);
    pragma Interface (Mpwpascal, Getvideodefault, "GETVIDEODEFAULT");

    procedure Setvideodefault (Paramblock : Defvideoptr);
    pragma Interface (Mpwpascal, Setvideodefault, "SETVIDEODEFAULT");

    procedure Getosdefault (Paramblock : Defosptr);
    pragma Interface (Mpwpascal, Getosdefault, "GETOSDEFAULT");

    procedure Setosdefault (Paramblock : Defosptr);
    pragma Interface (Mpwpascal, Setosdefault, "SETOSDEFAULT");

    procedure Settimeout (Count : Mac_Types.Integer);
    pragma Interface (Mpwpascal, Settimeout, "SETTIMEOUT");

    procedure Gettimeout (Count : in out Mac_Types.Integer);
    pragma Interface (Mpwpascal, Gettimeout, "GETTIMEOUT");

end Start;

E3 Meta Data

    nblk1=3
    nid=0
    hdr6=6
        [0x00] rec0=26 rec1=00 rec2=01 rec3=01c
        [0x01] rec0=19 rec1=00 rec2=02 rec3=068
        [0x02] rec0=07 rec1=00 rec2=03 rec3=000
    tail 0x2151d44f083906e4cff04 0x42a00088462060003