DataMuseum.dk

top - download

    Length: 8375 (0x20b7)
    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;
with Osutils;
package Slots is

    Fcardischanged : constant := 1;
    Fckforsame : constant := 0;
    Fckfornext : constant := 1;
    Fwarmstart : constant := 2;
    Statenil : constant := 0;
    Statesdminit : constant := 1;
    Statepraminit : constant := 2;
    Statepinit : constant := 3;
    Statesinit : constant := 4;
    Smacos68000 : constant := 1;
    Smacos68020 : constant := 2;

    type Slotintqelement is
        record
            Sqlink : Ptr;
            Sqtype : Mac_Types.Integer;
            Sqprio : Mac_Types.Integer;
            Sqaddr : Procptr;
            Sqparm : Longint;
        end record;
    type Sqelemptr is access Slotintqelement;

    type Spblock is
        record
            Spresult : Longint;
            Spspointer : Ptr;
            Spsize : Longint;
            Spoffsetdata : Longint;
            Spiofilename : Ptr;
            Spsexecpblk : Ptr;
            Spstackptr : Ptr;
            Spmisc : Longint;
            Spreserved : Longint;
            Spioreserved : Mac_Types.Integer;
            Sprefnum : Mac_Types.Integer;
            Spcategory : Mac_Types.Integer;
            Spctype : Mac_Types.Integer;
            Spdrvrsw : Mac_Types.Integer;
            Spdrvrhw : Mac_Types.Integer;
            Sptbmask : Signedbyte;
            Spslot : Signedbyte;
            Spid : Signedbyte;
            Spextdev : Signedbyte;
            Sphwdev : Signedbyte;
            Spbytelanes : Signedbyte;
            Spflags : Signedbyte;
            Spkey : Signedbyte;
        end record;
    type Spblockptr is access Spblock;

    type Array0_1signedbyte is array (0 .. 1) of Signedbyte;
    type Sinforecord is
        record
            Sidirptr : Ptr;
            Siinitstatusa : Mac_Types.Integer;
            Siinitstatusv : Mac_Types.Integer;
            Sistate : Signedbyte;
            Sicpubytelanes : Signedbyte;
            Sitopofrom : Signedbyte;
            Sistatusflags : Signedbyte;
            Sitoconst : Mac_Types.Integer;
            Sireserved : Array0_1signedbyte;
        end record;
    type Sinforecptr is access Sinforecord;

    type Sdmrecord is
        record
            Sdbevsave : Procptr;
            Sdbuserrproc : Procptr;
            Sderrorentry : Procptr;
            Sdreserved : Longint;
        end record;

    type Fheaderrec is
        record
            Fhdiroffset : Longint;
            Fhlength : Longint;
            Fhcrc : Longint;
            Fhromrev : Signedbyte;
            Fhformat : Signedbyte;
            Fhtstpat : Longint;
            Fhreserved : Signedbyte;
            Fhbytelanes : Signedbyte;
        end record;
    type Fheaderrecptr is access Fheaderrec;

    type Seblock is
        record
            Seslot : Signedbyte;
            Sesrsrcid : Signedbyte;
            Sestatus : Mac_Types.Integer;
            Seflags : Signedbyte;
            Sefiller0 : Signedbyte;
            Sefiller1 : Signedbyte;
            Sefiller2 : Signedbyte;
            Seresult : Longint;
            Seiofilename : Longint;
            Sedevice : Signedbyte;
            Separtition : Signedbyte;
            Seostype : Signedbyte;
            Sereserved : Signedbyte;
            Serefnum : Signedbyte;
            Senumdevices : Signedbyte;
            Sebootstate : Signedbyte;
        end record;

    function Sintinstall (Sintqelemptr : Sqelemptr; Theslot : Mac_Types.Integer)
                         return Oserr;
    pragma Interface (Mpwpascal, Sintinstall, "SINTINSTALL");

    function Sintremove (Sintqelemptr : Sqelemptr; Theslot : Mac_Types.Integer)
                        return Oserr;
    pragma Interface (Mpwpascal, Sintremove, "SINTREMOVE");

    function Sreadbyte (Spblkptr : Spblockptr) return Oserr;
    pragma Interface (Mpwpascal, Sreadbyte, "SREADBYTE");

    function Sreadword (Spblkptr : Spblockptr) return Oserr;
    pragma Interface (Mpwpascal, Sreadword, "SREADWORD");

    function Sreadlong (Spblkptr : Spblockptr) return Oserr;
    pragma Interface (Mpwpascal, Sreadlong, "SREADLONG");

    function Sgetcstring (Spblkptr : Spblockptr) return Oserr;
    pragma Interface (Mpwpascal, Sgetcstring, "SGETCSTRING");

    function Sgetblock (Spblkptr : Spblockptr) return Oserr;
    pragma Interface (Mpwpascal, Sgetblock, "SGETBLOCK");

    function Sfindstruct (Spblkptr : Spblockptr) return Oserr;
    pragma Interface (Mpwpascal, Sfindstruct, "SFINDSTRUCT");

    function Sreadstruct (Spblkptr : Spblockptr) return Oserr;
    pragma Interface (Mpwpascal, Sreadstruct, "SREADSTRUCT");

    function Sreadinfo (Spblkptr : Spblockptr) return Oserr;
    pragma Interface (Mpwpascal, Sreadinfo, "SREADINFO");

    function Sreadpramrec (Spblkptr : Spblockptr) return Oserr;
    pragma Interface (Mpwpascal, Sreadpramrec, "SREADPRAMREC");

    function Sputpramrec (Spblkptr : Spblockptr) return Oserr;
    pragma Interface (Mpwpascal, Sputpramrec, "SPUTPRAMREC");

    function Sreadfheader (Spblkptr : Spblockptr) return Oserr;
    pragma Interface (Mpwpascal, Sreadfheader, "SREADFHEADER");

    function Snextsrsrc (Spblkptr : Spblockptr) return Oserr;
    pragma Interface (Mpwpascal, Snextsrsrc, "SNEXTSRSRC");

    function Snexttypesrsrc (Spblkptr : Spblockptr) return Oserr;
    pragma Interface (Mpwpascal, Snexttypesrsrc, "SNEXTTYPESRSRC");

    function Srsrcinfo (Spblkptr : Spblockptr) return Oserr;
    pragma Interface (Mpwpascal, Srsrcinfo, "SRSRCINFO");

    function Sckcardstat (Spblkptr : Spblockptr) return Oserr;
    pragma Interface (Mpwpascal, Sckcardstat, "SCKCARDSTAT");

    function Sreaddrvrname (Spblkptr : Spblockptr) return Oserr;
    pragma Interface (Mpwpascal, Sreaddrvrname, "SREADDRVRNAME");

    function Sfinddevbase (Spblkptr : Spblockptr) return Oserr;
    pragma Interface (Mpwpascal, Sfinddevbase, "SFINDDEVBASE");

    function Sfindbigdevbase (Spblkptr : Spblockptr) return Oserr;
    pragma Interface (Mpwpascal, Sfindbigdevbase, "SFINDBIGDEVBASE");

    function Initsdeclmgr (Spblkptr : Spblockptr) return Oserr;
    pragma Interface (Mpwpascal, Initsdeclmgr, "INITSDECLMGR");

    function Sprimaryinit (Spblkptr : Spblockptr) return Oserr;
    pragma Interface (Mpwpascal, Sprimaryinit, "SPRIMARYINIT");

    function Scardchanged (Spblkptr : Spblockptr) return Oserr;
    pragma Interface (Mpwpascal, Scardchanged, "SCARDCHANGED");

    function Sexec (Spblkptr : Spblockptr) return Oserr;
    pragma Interface (Mpwpascal, Sexec, "SEXEC");

    function Soffsetdata (Spblkptr : Spblockptr) return Oserr;
    pragma Interface (Mpwpascal, Soffsetdata, "SOFFSETDATA");

    function Sinitpramrecs (Spblkptr : Spblockptr) return Oserr;
    pragma Interface (Mpwpascal, Sinitpramrecs, "SINITPRAMRECS");

    function Sreadpbsize (Spblkptr : Spblockptr) return Oserr;
    pragma Interface (Mpwpascal, Sreadpbsize, "SREADPBSIZE");

    function Scalcstep (Spblkptr : Spblockptr) return Oserr;
    pragma Interface (Mpwpascal, Scalcstep, "SCALCSTEP");

    function Sinitsrsrctable (Spblkptr : Spblockptr) return Oserr;
    pragma Interface (Mpwpascal, Sinitsrsrctable, "SINITSRSRCTABLE");

    function Ssearchsrt (Spblkptr : Spblockptr) return Oserr;
    pragma Interface (Mpwpascal, Ssearchsrt, "SSEARCHSRT");

    function Supdatesrt (Spblkptr : Spblockptr) return Oserr;
    pragma Interface (Mpwpascal, Supdatesrt, "SUPDATESRT");

    function Scalcspointer (Spblkptr : Spblockptr) return Oserr;
    pragma Interface (Mpwpascal, Scalcspointer, "SCALCSPOINTER");

    function Sgetdriver (Spblkptr : Spblockptr) return Oserr;
    pragma Interface (Mpwpascal, Sgetdriver, "SGETDRIVER");

    function Sptrtoslot (Spblkptr : Spblockptr) return Oserr;
    pragma Interface (Mpwpascal, Sptrtoslot, "SPTRTOSLOT");

    function Sfindsinforecptr (Spblkptr : Spblockptr) return Oserr;
    pragma Interface (Mpwpascal, Sfindsinforecptr, "SFINDSINFORECPTR");

    function Sfindsrsrcptr (Spblkptr : Spblockptr) return Oserr;
    pragma Interface (Mpwpascal, Sfindsrsrcptr, "SFINDSRSRCPTR");

    function Sdeletesrtrec (Spblkptr : Spblockptr) return Oserr;
    pragma Interface (Mpwpascal, Sdeletesrtrec, "SDELETESRTREC");

    function Openslot
                (Paramblock : Osutils.Parmblkptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Openslot, "OPENSLOT");

end Slots;