DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

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 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download
Index: ┃ T V ┃

⟦05166e99e⟧ TextFile

    Length: 2104 (0x838)
    Types: TextFile
    Names: »V«

Derivation

└─⟦149519bd4⟧ Bits:30000546 8mm tape, Rational 1000, !projects 93-07-13
    └─ ⟦124ff5788⟧ »DATA« 
        └─⟦this⟧ 
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
    └─ ⟦6f12a12be⟧ »DATA« 
        └─⟦this⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─ ⟦d65440be7⟧ »DATA« 
        └─⟦this⟧

TextFile

--      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;