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

⟦2bd169752⟧ Ada Source

    Length: 6144 (0x1800)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Scsi, seg_021fe6

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



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

    Scinc : constant := 1;
    Scnoinc : constant := 2;
    Scadd : constant := 3;
    Scmove : constant := 4;
    Scloop : constant := 5;
    Scnop : constant := 6;
    Scstop : constant := 7;
    Sccomp : constant := 8;
    Sccommerr : constant := 2;
    Scarbnberr : constant := 3;
    Scbadparmserr : constant := 4;
    Scphaseerr : constant := 5;
    Sccompareerr : constant := 6;
    Scmgrbusyerr : constant := 7;
    Scsequenceerr : constant := 8;
    Scbustoerr : constant := 9;
    Sccomplphaseerr : constant := 10;
    Sbsigword : constant := 16#4552#;
    Pmapsig : constant := 16#504D#;

    type Array0_242integer is array (0 .. 242) of Mac_Types.Integer;
    type Block0 is
        record
            Sbsig : Mac_Types.Integer;
            Sbblksize : Mac_Types.Integer;
            Sbblkcount : Longint;
            Sbdevtype : Mac_Types.Integer;
            Sbdevid : Mac_Types.Integer;
            Sbdata : Longint;
            Sbdrvrcount : Mac_Types.Integer;
            Ddblock : Longint;
            Ddsize : Mac_Types.Integer;
            Ddtype : Mac_Types.Integer;
            Ddpad : Array0_242integer;
        end record;

    type Array0_31char is array (0 .. 31) of Char;
    type Array0_15char is array (0 .. 15) of Char;
    type Array0_187integer is array (0 .. 187) of Mac_Types.Integer;
    type Partition is
        record
            Pmsig : Mac_Types.Integer;
            Pmsigpad : Mac_Types.Integer;
            Pmmapblkcnt : Longint;
            Pmpypartstart : Longint;
            Pmpartblkcnt : Longint;
            Pmpartname : Array0_31char;
            Pmpartype : Array0_31char;
            Pmlgdatastart : Longint;
            Pmdatacnt : Longint;
            Pmpartstatus : Longint;
            Pmlgbootstart : Longint;
            Pmbootsize : Longint;
            Pmbootaddr : Longint;
            Pmbootaddr2 : Longint;
            Pmbootentry : Longint;
            Pmbootentry2 : Longint;
            Pmbootcksum : Longint;
            Pmprocessor : Array0_15char;
            Pmpad : Array0_187integer;
        end record;

    type Scsiinstr is
        record
            Scopcode : Mac_Types.Integer;
            Scparam1 : Longint;
            Scparam2 : Longint;
        end record;

    function Scsireset return Oserr;
    pragma Interface (Mpwpascal, Scsireset, "SCSIRESET");

    function Scsiget return Oserr;
    pragma Interface (Mpwpascal, Scsiget, "SCSIGET");

    function Scsiselect (Targetid : Mac_Types.Integer) return Oserr;
    pragma Interface (Mpwpascal, Scsiselect, "SCSISELECT");

    function Scsicmd (Buffer : Ptr; Count : Mac_Types.Integer) return Oserr;
    pragma Interface (Mpwpascal, Scsicmd, "SCSICMD");

    function Scsiread (Tibptr : Ptr) return Oserr;
    pragma Interface (Mpwpascal, Scsiread, "SCSIREAD");

    function Scsirblind (Tibptr : Ptr) return Oserr;
    pragma Interface (Mpwpascal, Scsirblind, "SCSIRBLIND");

    function Scsiwrite (Tibptr : Ptr) return Oserr;
    pragma Interface (Mpwpascal, Scsiwrite, "SCSIWRITE");

    function Scsiwblind (Tibptr : Ptr) return Oserr;
    pragma Interface (Mpwpascal, Scsiwblind, "SCSIWBLIND");

    function Scsicomplete
                (Stat : Varinteger; Message : Varinteger; Wait : Longint)
                return Oserr;
    pragma Interface (Mpwpascal, Scsicomplete, "SCSICOMPLETE");

    function Scsistat return Mac_Types.Integer;
    pragma Interface (Mpwpascal, Scsistat, "SCSISTAT");

    function Scsiselatn (Targetid : Mac_Types.Integer) return Oserr;
    pragma Interface (Mpwpascal, Scsiselatn, "SCSISELATN");

    function Scsimsgin (Message : Varinteger) return Oserr;
    pragma Interface (Mpwpascal, Scsimsgin, "SCSIMSGIN");

    function Scsimsgout (Message : Mac_Types.Integer) return Oserr;
    pragma Interface (Mpwpascal, Scsimsgout, "SCSIMSGOUT");

end Scsi;

E3 Meta Data

    nblk1=5
    nid=0
    hdr6=a
        [0x00] rec0=21 rec1=00 rec2=01 rec3=024
        [0x01] rec0=1a rec1=00 rec2=02 rec3=042
        [0x02] rec0=1e rec1=00 rec2=03 rec3=028
        [0x03] rec0=19 rec1=00 rec2=04 rec3=054
        [0x04] rec0=04 rec1=00 rec2=05 rec3=000
    tail 0x2171dcd0283906e3a652b 0x42a00088462060003