DataMuseum.dk

top - download

    Length: 3939 (0xf63)
    Types: TextFile
    Names: »V«

└─⟦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 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;