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

⟦5b771fcb3⟧ Ada Source

    Length: 36864 (0x9000)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Appletalk, seg_021fb2

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;
with Osutils;
package Appletalk is

    Afpbyterangelock : constant := 1;
    Afpvolclose : constant := 2;
    Afpdirclose : constant := 3;
    Afpforkclose : constant := 4;
    Afpcopyfile : constant := 5;
    Afpdircreate : constant := 6;
    Afpfilecreate : constant := 7;
    Afpdelete : constant := 8;
    Afpenumerate : constant := 9;
    Afpflush : constant := 10;
    Afpforkflush : constant := 11;
    Afpgetdirparms : constant := 12;
    Afpgetfileparms : constant := 13;
    Afpgetforkparms : constant := 14;
    Afpgetsinfo : constant := 15;
    Afpgetsparms : constant := 16;
    Afpgetvolparms : constant := 17;
    Afplogin : constant := 18;
    Afpcontlogin : constant := 19;
    Afplogout : constant := 20;
    Afpmapid : constant := 21;
    Afpmapname : constant := 22;
    Afpmove : constant := 23;
    Afpopenvol : constant := 24;
    Afpopendir : constant := 25;
    Afpopenfork : constant := 26;
    Afpread : constant := 27;
    Afprename : constant := 28;
    Afpsetdirparms : constant := 29;
    Afpsetfileparms : constant := 30;
    Afpsetforkparms : constant := 31;
    Afpsetvolparms : constant := 32;
    Afpwrite : constant := 33;
    Afpgetfldrparms : constant := 34;
    Afpsetfldrparms : constant := 35;
    Afpdtopen : constant := 48;
    Afpdtclose : constant := 49;
    Afpgeticon : constant := 51;
    Afpgticninfo : constant := 52;
    Afpaddappl : constant := 53;
    Afprmvappl : constant := 54;
    Afpgetappl : constant := 55;
    Afpaddcmt : constant := 56;
    Afprmvcmt : constant := 57;
    Afpgetcmt : constant := 58;
    Afpaddicon : constant := 192;
    Xpploadedbit : constant := 5;
    Xppunitnum : constant := 40;
    Xpprefnum : constant := -41;
    Scbmemsize : constant := 192;
    Xppflagclr : constant := 0;
    Xppflagset : constant := 128;
    Lapsize : constant := 20;
    Ddpsize : constant := 26;
    Nbpsize : constant := 26;
    Atpsize : constant := 56;
    Atpxovalue : constant := 32;
    Atpeomvalue : constant := 16;
    Atpstsvalue : constant := 8;
    Atptidvalidvalue : constant := 2;
    Atpsendchkvalue : constant := 1;

    type Abcalltype is (Tlapread, Tlapwrite, Tddpread, Tddpwrite,
                        Tnbplookup, Tnbpconfirm, Tnbpregister,
                        Tatpsndrequest, Tatpgetrequest, Tatpsdrsp,
                        Tatpaddrsp, Tatprequest, Tatpresponse);


    type Abprototype is (Lapproto, Ddpproto, Nbpproto, Atpproto);

    type Str32 is array (0 .. 32) of Character;
    type Abbyte is range 1 .. 127;
    type Lapadrblock is
        record
            Dstnodeid : Byte;
            Srcnodeid : Byte;
            Lapprottype : Abbyte;
        end record;

    type Addrblock is
        record
            Anet : Mac_Types.Integer;
            Anode : Byte;
            Asocket : Byte;
        end record;
    type Addrblockval is new Longint;

    type Entityname is
        record
            Objstr : Str32;
            Typestr : Str32;
            Zonestr : Str32;
        end record;
    type Entityptr is access Entityname;

    type Retranstype is
        record
            Retransinterval : Byte;
            Retranscount : Byte;
        end record;

    type Bdselement is
        record
            Buffsize : Mac_Types.Integer;
            Buffptr : Ptr;
            Datasize : Mac_Types.Integer;
            Userbytes : Longint;
        end record;

    type Bdstype is array (0 .. 7) of Bdselement;
    type Bdsptr is access Bdstype;
    type Bitmaptype is new Signedbyte;

    type Abusfiller is array (1 .. 48) of Signedbyte;
    type Abusrecord is
        record
            Abopcode : Abcalltype;
            Abresult : Mac_Types.Integer;
            Abuserreference : Longint;
            Filler : Abusfiller;
        end record;
    type Abrecptr is access Abusrecord;
    type Abrechandle is access Abrecptr;

    type Lapabusrecord is
        record
            Abopcode : Abcalltype;
            Abresult : Mac_Types.Integer;
            Abuserreference : Longint;
            Lapaddress : Lapadrblock;
            Lapreqcount : Mac_Types.Integer;
            Lapactcount : Mac_Types.Integer;
            Lapdataptr : Ptr;
        end record;

    type Ddpabusrecord is
        record
            Abopcode : Abcalltype;
            Abresult : Mac_Types.Integer;
            Abuserreference : Longint;
            Ddptype : Byte;
            Ddpsocket : Byte;
            Ddpaddress : Addrblock;
            Ddpreqcount : Mac_Types.Integer;
            Ddpactcount : Mac_Types.Integer;
            Ddpdataptr : Ptr;
            Ddpnodeid : Byte;
        end record;

    type Nbpabusrecord is
        record
            Abopcode : Abcalltype;
            Abresult : Mac_Types.Integer;
            Abuserreference : Longint;
            Nbpentityptr : Entityptr;
            Nbpbufptr : Ptr;
            Nbpbufsize : Mac_Types.Integer;
            Nbpdatafield : Mac_Types.Integer;
            Nbpaddress : Addrblock;
            Nbpretransmitinfo : Retranstype;
        end record;

    type Atpabusrecord is
        record
            Abopcode : Abcalltype;
            Abresult : Mac_Types.Integer;
            Abuserreference : Longint;
            Atpsocket : Byte;
            Atpaddress : Addrblock;
            Atpreqcount : Mac_Types.Integer;
            Atpdataptr : Ptr;
            Atprspbdsptr : Bdsptr;
            Atpbitmap : Bitmaptype;
            Atptransid : Mac_Types.Integer;
            Atpactcount : Mac_Types.Integer;
            Atpuserdata : Longint;
            Atpxo : Boolean;
            Atpeom : Boolean;
            Atptimeout : Byte;
            Atpretries : Byte;
            Atpnumbufs : Byte;
            Atpnumrsp : Byte;
            Atpbdssize : Byte;
            Atprspudata : Longint;
            Atprspbuf : Ptr;
            Atprspsize : Mac_Types.Integer;
        end record;

    type Afpcommandblock is
        record
            Cmdbyte : Byte;
            Startendflag : Byte;
            Forkrefnum : Mac_Types.Integer;
            Rwoffset : Longint;
            Reqcount : Longint;
            Newlineflag : Byte;
            Newlinechar : Char;
        end record;

    type Wdselement is
        record
            Entrylength : Mac_Types.Integer;
            Entryptr : Ptr;
        end record;

    type Array1_100char is array (1 .. 100) of Char;
    type Namestableentry is
        record
            Qlink : Osutils.Qelemptr;
            Nteaddress : Addrblock;
            Ntedata : Array1_100char;
        end record;

    type Mppparmtype is (Lapwriteparm, Attachphparm, Detachphparm,
                         Opensktparm, Closesktparm, Writeddpparm,
                         Openatpsktparm, Closeatpsktparm, Sendrequestparm,
                         Getrequestparm, Sendresponseparm, Addresponseparm,
                         Reltcbparm, Relrspcbparm, Registernameparm,
                         Lookupnameparm, Confirmnameparm, Removenameparm,
                         Setselfsendparm, Nsendrequestparm,
                         Killsendreqparm, Killgetreqparm, Killnbpparm);

    type Mppparamfiller is array (1 .. 16) of Signedbyte;
    type Mppparamblock is
        record
            Qlink : Osutils.Qelemptr;
            Qtype : Mac_Types.Integer;
            Iotrap : Mac_Types.Integer;
            Iocmdaddr : Ptr;
            Iocompletion : Procptr;
            Ioresult : Oserr;
            Ionameptr : Stringptr;
            Iovrefnum : Mac_Types.Integer;
            Iorefnum : Mac_Types.Integer;
            Cscode : Mac_Types.Integer;
            Filler : Mppparamfiller;
        end record;
    type Mpppbptr is access Mppparamblock;

    type Lapwritemppparamblock is
        record
            Qlink : Osutils.Qelemptr;
            Qtype : Mac_Types.Integer;
            Iotrap : Mac_Types.Integer;
            Iocmdaddr : Ptr;
            Iocompletion : Procptr;
            Ioresult : Oserr;
            Ionameptr : Stringptr;
            Iovrefnum : Mac_Types.Integer;
            Iorefnum : Mac_Types.Integer;
            Cscode : Mac_Types.Integer;
            Filler0 : Mac_Types.Integer;
            Wdspointer : Ptr;
        end record;

    type Attachdetachmppparamblock is
        record
            Qlink : Osutils.Qelemptr;
            Qtype : Mac_Types.Integer;
            Iotrap : Mac_Types.Integer;
            Iocmdaddr : Ptr;
            Iocompletion : Procptr;
            Ioresult : Oserr;
            Ionameptr : Stringptr;
            Iovrefnum : Mac_Types.Integer;
            Iorefnum : Mac_Types.Integer;
            Cscode : Mac_Types.Integer;
            Prottype : Byte;
            Filler1 : Byte;
            Handler : Ptr;
        end record;

    type Openclosewritemppparamblock is
        record
            Qlink : Osutils.Qelemptr;
            Qtype : Mac_Types.Integer;
            Iotrap : Mac_Types.Integer;
            Iocmdaddr : Ptr;
            Iocompletion : Procptr;
            Ioresult : Oserr;
            Ionameptr : Stringptr;
            Iovrefnum : Mac_Types.Integer;
            Iorefnum : Mac_Types.Integer;
            Cscode : Mac_Types.Integer;
            Socket : Byte;
            Checksumflag : Byte;
            Listener : Ptr;
        end record;

    type Registermppparamblock is
        record
            Qlink : Osutils.Qelemptr;
            Qtype : Mac_Types.Integer;
            Iotrap : Mac_Types.Integer;
            Iocmdaddr : Ptr;
            Iocompletion : Procptr;
            Ioresult : Oserr;
            Ionameptr : Stringptr;
            Iovrefnum : Mac_Types.Integer;
            Iorefnum : Mac_Types.Integer;
            Cscode : Mac_Types.Integer;
            Interval : Byte;
            Count : Byte;
            Entityptr : Ptr;
            Verifyflag : Byte;
            Filler3 : Byte;
        end record;

    type Lookupmppparamblock is
        record
            Qlink : Osutils.Qelemptr;
            Qtype : Mac_Types.Integer;
            Iotrap : Mac_Types.Integer;
            Iocmdaddr : Ptr;
            Iocompletion : Procptr;
            Ioresult : Oserr;
            Ionameptr : Stringptr;
            Iovrefnum : Mac_Types.Integer;
            Iorefnum : Mac_Types.Integer;
            Cscode : Mac_Types.Integer;
            Interval : Byte;
            Count : Byte;
            Entityptr : Ptr;
            Retbuffptr : Ptr;
            Retbuffsize : Mac_Types.Integer;
            Maxtoget : Mac_Types.Integer;
            Numgotten : Mac_Types.Integer;
        end record;

    type Confirmmppparamblock is
        record
            Qlink : Osutils.Qelemptr;
            Qtype : Mac_Types.Integer;
            Iotrap : Mac_Types.Integer;
            Iocmdaddr : Ptr;
            Iocompletion : Procptr;
            Ioresult : Oserr;
            Ionameptr : Stringptr;
            Iovrefnum : Mac_Types.Integer;
            Iorefnum : Mac_Types.Integer;
            Cscode : Mac_Types.Integer;
            Interval : Byte;
            Count : Byte;
            Entityptr : Ptr;
            Confirmaddr : Addrblock;
            Newsocket : Byte;
            Filler4 : Byte;
        end record;

    type Removemppparamblock is
        record
            Qlink : Osutils.Qelemptr;
            Qtype : Mac_Types.Integer;
            Iotrap : Mac_Types.Integer;
            Iocmdaddr : Ptr;
            Iocompletion : Procptr;
            Ioresult : Oserr;
            Ionameptr : Stringptr;
            Iovrefnum : Mac_Types.Integer;
            Iorefnum : Mac_Types.Integer;
            Cscode : Mac_Types.Integer;
            Interval : Byte;
            Count : Byte;
            Entityptr : Ptr;
        end record;

    type Setselfsendmppparamblock is
        record
            Qlink : Osutils.Qelemptr;
            Qtype : Mac_Types.Integer;
            Iotrap : Mac_Types.Integer;
            Iocmdaddr : Ptr;
            Iocompletion : Procptr;
            Ioresult : Oserr;
            Ionameptr : Stringptr;
            Iovrefnum : Mac_Types.Integer;
            Iorefnum : Mac_Types.Integer;
            Cscode : Mac_Types.Integer;
            Newselfflag : Byte;
            Oldselfflag : Byte;
        end record;

    type Killnbpmppparamblock is
        record
            Qlink : Osutils.Qelemptr;
            Qtype : Mac_Types.Integer;
            Iotrap : Mac_Types.Integer;
            Iocmdaddr : Ptr;
            Iocompletion : Procptr;
            Ioresult : Oserr;
            Ionameptr : Stringptr;
            Iovrefnum : Mac_Types.Integer;
            Iorefnum : Mac_Types.Integer;
            Cscode : Mac_Types.Integer;
            Nkillqel : Ptr;
        end record;

    type Atpparamfiller is array (1 .. 6) of Signedbyte;
    type Atpparamblock is
        record
            Qlink : Osutils.Qelemptr;
            Qtype : Mac_Types.Integer;
            Iotrap : Mac_Types.Integer;
            Iocmdaddr : Ptr;
            Iocompletion : Procptr;
            Ioresult : Oserr;
            Userdata : Longint;
            Reqtid : Mac_Types.Integer;
            Iorefnum : Mac_Types.Integer;
            Cscode : Mac_Types.Integer;
            Atpsocket : Byte;
            Atpflags : Byte;
            Addr_Block : Addrblock;
            Reqlength : Mac_Types.Integer;
            Reqpointer : Ptr;
            Bdspointer : Ptr;
            Filler : Atpparamfiller;
        end record;
    type Atppbptr is access Atpparamblock;

    type Sendnsendreqatpparamblock is
        record
            Qlink : Osutils.Qelemptr;
            Qtype : Mac_Types.Integer;
            Iotrap : Mac_Types.Integer;
            Iocmdaddr : Ptr;
            Iocompletion : Procptr;
            Ioresult : Oserr;
            Userdata : Longint;
            Reqtid : Mac_Types.Integer;
            Iorefnum : Mac_Types.Integer;
            Cscode : Mac_Types.Integer;
            Atpsocket : Byte;
            Atpflags : Byte;
            Addr_Block : Addrblock;
            Reqlength : Mac_Types.Integer;
            Reqpointer : Ptr;
            Bdspointer : Ptr;
            Numofbuffs : Byte;
            Timeoutval : Byte;
            Numofresps : Byte;
            Retrycount : Byte;
            Intbuff : Mac_Types.Integer;
        end record;

    type Sendrespatpparamblock is
        record
            Qlink : Osutils.Qelemptr;
            Qtype : Mac_Types.Integer;
            Iotrap : Mac_Types.Integer;
            Iocmdaddr : Ptr;
            Iocompletion : Procptr;
            Ioresult : Oserr;
            Userdata : Longint;
            Reqtid : Mac_Types.Integer;
            Iorefnum : Mac_Types.Integer;
            Cscode : Mac_Types.Integer;
            Atpsocket : Byte;
            Atpflags : Byte;
            Addr_Block : Addrblock;
            Reqlength : Mac_Types.Integer;
            Reqpointer : Ptr;
            Bdspointer : Ptr;
            Filler0 : Byte;
            Bdssize : Byte;
            Transid : Mac_Types.Integer;
        end record;

    type Getreqatpparamblock is
        record
            Qlink : Osutils.Qelemptr;
            Qtype : Mac_Types.Integer;
            Iotrap : Mac_Types.Integer;
            Iocmdaddr : Ptr;
            Iocompletion : Procptr;
            Ioresult : Oserr;
            Userdata : Longint;
            Reqtid : Mac_Types.Integer;
            Iorefnum : Mac_Types.Integer;
            Cscode : Mac_Types.Integer;
            Atpsocket : Byte;
            Atpflags : Byte;
            Addr_Block : Addrblock;
            Reqlength : Mac_Types.Integer;
            Reqpointer : Ptr;
            Bdspointer : Ptr;
            Bitmap : Byte;
            Filler1 : Byte;
        end record;

    type Addrespatpparamblock is
        record
            Qlink : Osutils.Qelemptr;
            Qtype : Mac_Types.Integer;
            Iotrap : Mac_Types.Integer;
            Iocmdaddr : Ptr;
            Iocompletion : Procptr;
            Ioresult : Oserr;
            Userdata : Longint;
            Reqtid : Mac_Types.Integer;
            Iorefnum : Mac_Types.Integer;
            Cscode : Mac_Types.Integer;
            Atpsocket : Byte;
            Atpflags : Byte;
            Addr_Block : Addrblock;
            Reqlength : Mac_Types.Integer;
            Reqpointer : Ptr;
            Bdspointer : Ptr;
            Rspnum : Byte;
            Filler2 : Byte;
        end record;

    type Killsendgetatpparamblock is
        record
            Qlink : Osutils.Qelemptr;
            Qtype : Mac_Types.Integer;
            Iotrap : Mac_Types.Integer;
            Iocmdaddr : Ptr;
            Iocompletion : Procptr;
            Ioresult : Oserr;
            Userdata : Longint;
            Reqtid : Mac_Types.Integer;
            Iorefnum : Mac_Types.Integer;
            Cscode : Mac_Types.Integer;
            Atpsocket : Byte;
            Atpflags : Byte;
            Addr_Block : Addrblock;
            Reqlength : Mac_Types.Integer;
            Reqpointer : Ptr;
            Bdspointer : Ptr;
            Akillqel : Ptr;
        end record;

    type Xppprmblktype is (Xppprmblk, Aspsizeblk, Aspabortprm);

    type Xppsubprmtype is (Aspopenprm, Aspsubprm);

    type Xppendprmtype is (Afploginprm, Aspendprm);

    type Xppparamfiller is array (1 .. 318) of Signedbyte;
    type Xppparamblock is
        record
            Qlink : Osutils.Qelemptr;
            Qtype : Mac_Types.Integer;
            Iotrap : Mac_Types.Integer;
            Iocmdaddr : Ptr;
            Iocompletion : Procptr;
            Ioresult : Oserr;
            Cmdresult : Longint;
            Iovrefnum : Mac_Types.Integer;
            Iorefnum : Mac_Types.Integer;
            Cscode : Mac_Types.Integer;
            Filler : Xppparamfiller;
        end record;
    type Xppparmblkptr is access Xppparamblock;

    type Abortxppparamblock is
        record
            Qlink : Osutils.Qelemptr;
            Qtype : Mac_Types.Integer;
            Iotrap : Mac_Types.Integer;
            Iocmdaddr : Ptr;
            Iocompletion : Procptr;
            Ioresult : Oserr;
            Cmdresult : Longint;
            Iovrefnum : Mac_Types.Integer;
            Iorefnum : Mac_Types.Integer;
            Cscode : Mac_Types.Integer;
            Abortscbptr : Ptr;
        end record;

    type Sizexppparamblock is
        record
            Qlink : Osutils.Qelemptr;
            Qtype : Mac_Types.Integer;
            Iotrap : Mac_Types.Integer;
            Iocmdaddr : Ptr;
            Iocompletion : Procptr;
            Ioresult : Oserr;
            Cmdresult : Longint;
            Iovrefnum : Mac_Types.Integer;
            Iorefnum : Mac_Types.Integer;
            Cscode : Mac_Types.Integer;
            Aspmaxcmdsize : Mac_Types.Integer;
            Aspquantumsize : Mac_Types.Integer;
            Numsesss : Mac_Types.Integer;
        end record;

    type Openxppparamblock is
        record
            Qlink : Osutils.Qelemptr;
            Qtype : Mac_Types.Integer;
            Iotrap : Mac_Types.Integer;
            Iocmdaddr : Ptr;
            Iocompletion : Procptr;
            Ioresult : Oserr;
            Cmdresult : Longint;
            Iovrefnum : Mac_Types.Integer;
            Iorefnum : Mac_Types.Integer;
            Cscode : Mac_Types.Integer;
            Sessrefnum : Mac_Types.Integer;
            Asptimeout : Byte;
            Aspretry : Byte;
            Serveraddr : Addrblock;
            Scbpointer : Ptr;
            Attnroutine : Ptr;
        end record;

    type Loginxppparamblock is
        record
            Qlink : Osutils.Qelemptr;
            Qtype : Mac_Types.Integer;
            Iotrap : Mac_Types.Integer;
            Iocmdaddr : Ptr;
            Iocompletion : Procptr;
            Ioresult : Oserr;
            Cmdresult : Longint;
            Iovrefnum : Mac_Types.Integer;
            Iorefnum : Mac_Types.Integer;
            Cscode : Mac_Types.Integer;
            Sessrefnum : Mac_Types.Integer;
            Asptimeout : Byte;
            Aspretry : Byte;
            Cbsize : Mac_Types.Integer;
            Cbptr : Ptr;
            Rbsize : Mac_Types.Integer;
            Rbptr : Ptr;
            Afpaddrblock : Addrblock;
            Afpscbptr : Ptr;
            Afpattnroutine : Ptr;
        end record;

    type Array0_295byte is array (0 .. 295) of Byte;
    type Endxppparamblock is
        record
            Qlink : Osutils.Qelemptr;
            Qtype : Mac_Types.Integer;
            Iotrap : Mac_Types.Integer;
            Iocmdaddr : Ptr;
            Iocompletion : Procptr;
            Ioresult : Oserr;
            Cmdresult : Longint;
            Iovrefnum : Mac_Types.Integer;
            Iorefnum : Mac_Types.Integer;
            Cscode : Mac_Types.Integer;
            Sessrefnum : Mac_Types.Integer;
            Asptimeout : Byte;
            Aspretry : Byte;
            Cbsize : Mac_Types.Integer;
            Cbptr : Ptr;
            Rbsize : Mac_Types.Integer;
            Rbptr : Ptr;
            Wdsize : Mac_Types.Integer;
            Wdptr : Ptr;
            Ccbstart : Array0_295byte;
        end record;

    function Openxpp (Xpprefnum : Mac_Types.Integer) return Oserr;
    pragma Interface (Mpwpascal, Openxpp, "OPENXPP");

    function Aspopensession
                (Thepbptr : Xppparmblkptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Aspopensession, "ASPOPENSESSION");

    function Aspclosesession
                (Thepbptr : Xppparmblkptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Aspclosesession, "ASPCLOSESESSION");

    function Aspabortos
                (Thepbptr : Xppparmblkptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Aspabortos, "ASPABORTOS");

    function Aspgetparms
                (Thepbptr : Xppparmblkptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Aspgetparms, "ASPGETPARMS");

    function Aspcloseall
                (Thepbptr : Xppparmblkptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Aspcloseall, "ASPCLOSEALL");

    function Aspuserwrite
                (Thepbptr : Xppparmblkptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Aspuserwrite, "ASPUSERWRITE");

    function Aspusercommand
                (Thepbptr : Xppparmblkptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Aspusercommand, "ASPUSERCOMMAND");

    function Aspgetstatus
                (Thepbptr : Xppparmblkptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Aspgetstatus, "ASPGETSTATUS");

    function Afpcommand
                (Thepbptr : Xppparmblkptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Afpcommand, "AFPCOMMAND");

    function Pattachph (Thepbptr : Mpppbptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pattachph, "PATTACHPH");

    function Pdetachph (Thepbptr : Mpppbptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pdetachph, "PDETACHPH");

    function Pwritelap (Thepbptr : Mpppbptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pwritelap, "PWRITELAP");

    function Popenskt (Thepbptr : Mpppbptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Popenskt, "POPENSKT");

    function Pcloseskt (Thepbptr : Mpppbptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pcloseskt, "PCLOSESKT");

    function Pwriteddp (Thepbptr : Mpppbptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pwriteddp, "PWRITEDDP");

    function Pregistername (Thepbptr : Mpppbptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pregistername, "PREGISTERNAME");

    function Plookupname (Thepbptr : Mpppbptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Plookupname, "PLOOKUPNAME");

    function Pconfirmname (Thepbptr : Mpppbptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pconfirmname, "PCONFIRMNAME");

    function Premovename (Thepbptr : Mpppbptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Premovename, "PREMOVENAME");

    function Psetselfsend (Thepbptr : Mpppbptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Psetselfsend, "PSETSELFSEND");

    function Pkillnbp (Thepbptr : Mpppbptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pkillnbp, "PKILLNBP");

    function Popenatpskt (Thepbptr : Atppbptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Popenatpskt, "POPENATPSKT");

    function Pcloseatpskt (Thepbptr : Atppbptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pcloseatpskt, "PCLOSEATPSKT");

    function Psendrequest (Thepbptr : Atppbptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Psendrequest, "PSENDREQUEST");

    function Pgetrequest (Thepbptr : Atppbptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pgetrequest, "PGETREQUEST");

    function Psendresponse (Thepbptr : Atppbptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Psendresponse, "PSENDRESPONSE");

    function Paddresponse (Thepbptr : Atppbptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Paddresponse, "PADDRESPONSE");

    function Preltcb (Thepbptr : Atppbptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Preltcb, "PRELTCB");

    function Prelrspcb (Thepbptr : Atppbptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Prelrspcb, "PRELRSPCB");

    function Pnsendrequest (Thepbptr : Atppbptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pnsendrequest, "PNSENDREQUEST");

    function Pkillsendreq (Thepbptr : Atppbptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pkillsendreq, "PKILLSENDREQ");

    function Pkillgetreq (Thepbptr : Atppbptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pkillgetreq, "PKILLGETREQ");

    procedure Buildlapwds (Wdsptr : Ptr;
                           Dataptr : Ptr;
                           Desthost : Mac_Types.Integer;
                           Prototype : Mac_Types.Integer;
                           Framelen : Mac_Types.Integer);
    pragma Interface (Mpwpascal, Buildlapwds, "BUILDLAPWDS");

    procedure Buildddpwds (Wdsptr : Ptr;
                           Headerptr : Ptr;
                           Dataptr : Ptr;
                           Netaddr : Addrblock;
                           Ddptype : Mac_Types.Integer;
                           Datalen : Mac_Types.Integer);
    pragma Interface (Mpwpascal, Buildddpwds, "BUILDDDPWDS");

    procedure Nbpsetentity (Buffer : Ptr;
                            Nbpobject : Str32;
                            Nbptype : Str32;
                            Nbpzone : Str32);
    pragma Interface (Mpwpascal, Nbpsetentity, "NBPSETENTITY");

    procedure Nbpsetnte (Nteptr : Ptr;
                         Nbpobject : Str32;
                         Nbptype : Str32;
                         Nbpzone : Str32;
                         Socket : Mac_Types.Integer);
    pragma Interface (Mpwpascal, Nbpsetnte, "NBPSETNTE");

    function Getbridgeaddress return Mac_Types.Integer;
    pragma Interface (Mpwpascal, Getbridgeaddress, "GETBRIDGEADDRESS");

    function Buildbds
                (Buffptr : Ptr; Bdsptr : Ptr; Buffsize : Mac_Types.Integer)
                return Mac_Types.Integer;
    pragma Interface (Mpwpascal, Buildbds, "BUILDBDS");

    function Mppopen return Oserr;
    pragma Interface (Mpwpascal, Mppopen, "MPPOPEN");

    function Mppclose return Oserr;
    pragma Interface (Mpwpascal, Mppclose, "MPPCLOSE");

    function Lapopenprotocol (Thelaptype : Abbyte; Protoptr : Ptr) return Oserr;
    pragma Interface (Mpwpascal, Lapopenprotocol, "LAPOPENPROTOCOL");

    function Lapcloseprotocol (Thelaptype : Abbyte) return Oserr;
    pragma Interface (Mpwpascal, Lapcloseprotocol, "LAPCLOSEPROTOCOL");

    function Lapwrite (Abrecord : Abrechandle; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Lapwrite, "LAPWRITE");

    function Lapread (Abrecord : Abrechandle; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Lapread, "LAPREAD");

    function Laprdcancel (Abrecord : Abrechandle) return Oserr;
    pragma Interface (Mpwpascal, Laprdcancel, "LAPRDCANCEL");

    function Ddpopensocket
                (Thesocket : Varbyteword; Sktlistener : Ptr) return Oserr;
    pragma Interface (Mpwpascal, Ddpopensocket, "DDPOPENSOCKET");

    function Ddpclosesocket (Thesocket : Byteword) return Oserr;
    pragma Interface (Mpwpascal, Ddpclosesocket, "DDPCLOSESOCKET");

    function Ddpread (Abrecord : Abrechandle;
                      Retcksumerrs : Boolean;
                      Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Ddpread, "DDPREAD");

    function Ddpwrite
                (Abrecord : Abrechandle; Dochecksum : Boolean; Async : Boolean)
                return Oserr;
    pragma Interface (Mpwpascal, Ddpwrite, "DDPWRITE");

    function Ddprdcancel (Abrecord : Abrechandle) return Oserr;
    pragma Interface (Mpwpascal, Ddprdcancel, "DDPRDCANCEL");

    function Atpload return Oserr;
    pragma Interface (Mpwpascal, Atpload, "ATPLOAD");

    function Atpunload return Oserr;
    pragma Interface (Mpwpascal, Atpunload, "ATPUNLOAD");

    function Atpopensocket
                (Addrrcvd : Addrblockval; Atpsocket : Varbyteword) return Oserr;
    pragma Interface (Mpwpascal, Atpopensocket, "ATPOPENSOCKET");

    function Atpclosesocket (Atpsocket : Byteword) return Oserr;
    pragma Interface (Mpwpascal, Atpclosesocket, "ATPCLOSESOCKET");

    function Atpsndrequest
                (Abrecord : Abrechandle; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Atpsndrequest, "ATPSNDREQUEST");

    function Atprequest (Abrecord : Abrechandle; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Atprequest, "ATPREQUEST");

    function Atpreqcancel
                (Abrecord : Abrechandle; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Atpreqcancel, "ATPREQCANCEL");

    function Atpgetrequest
                (Abrecord : Abrechandle; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Atpgetrequest, "ATPGETREQUEST");

    function Atpsndrsp (Abrecord : Abrechandle; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Atpsndrsp, "ATPSNDRSP");

    function Atpaddrsp (Abrecord : Abrechandle) return Oserr;
    pragma Interface (Mpwpascal, Atpaddrsp, "ATPADDRSP");

    function Atpresponse (Abrecord : Abrechandle; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Atpresponse, "ATPRESPONSE");

    function Atprspcancel
                (Abrecord : Abrechandle; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Atprspcancel, "ATPRSPCANCEL");

    function Nbpregister (Abrecord : Abrechandle; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Nbpregister, "NBPREGISTER");

    function Nbplookup (Abrecord : Abrechandle; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Nbplookup, "NBPLOOKUP");

    function Nbpextract (Thebuffer : Ptr;
                         Numinbuf : Mac_Types.Integer;
                         Whichone : Mac_Types.Integer;
                         Abentity : Entityname;
                         Address : Addrblock) return Oserr;
    pragma Interface (Mpwpascal, Nbpextract, "NBPEXTRACT");

    function Nbpconfirm (Abrecord : Abrechandle; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Nbpconfirm, "NBPCONFIRM");

    function Nbpremove (Abentity : Entityptr) return Oserr;
    pragma Interface (Mpwpascal, Nbpremove, "NBPREMOVE");

    function Nbpload return Oserr;
    pragma Interface (Mpwpascal, Nbpload, "NBPLOAD");

    function Nbpunload return Oserr;
    pragma Interface (Mpwpascal, Nbpunload, "NBPUNLOAD");

    procedure Removehdlblocks;
    pragma Interface (Mpwpascal, Removehdlblocks, "REMOVEHDLBLOCKS");

    function Getnodeaddress
                (Mynode : Mac_Types.Integer; Mynet : Mac_Types.Integer)
                return Oserr;
    pragma Interface (Mpwpascal, Getnodeaddress, "GETNODEADDRESS");

    function Ismppopen return Boolean;
    pragma Interface (Mpwpascal, Ismppopen, "ISMPPOPEN");

    function Isatpopen return Boolean;
    pragma Interface (Mpwpascal, Isatpopen, "ISATPOPEN");

end Appletalk;

E3 Meta Data

    nblk1=23
    nid=0
    hdr6=46
        [0x00] rec0=20 rec1=00 rec2=01 rec3=00a
        [0x01] rec0=1c rec1=00 rec2=02 rec3=024
        [0x02] rec0=1f rec1=00 rec2=03 rec3=014
        [0x03] rec0=24 rec1=00 rec2=04 rec3=022
        [0x04] rec0=20 rec1=00 rec2=05 rec3=044
        [0x05] rec0=1d rec1=00 rec2=06 rec3=00e
        [0x06] rec0=22 rec1=00 rec2=07 rec3=014
        [0x07] rec0=15 rec1=00 rec2=08 rec3=02a
        [0x08] rec0=1e rec1=00 rec2=09 rec3=02a
        [0x09] rec0=1f rec1=00 rec2=0a rec3=02c
        [0x0a] rec0=1e rec1=00 rec2=0b rec3=00a
        [0x0b] rec0=1f rec1=00 rec2=0c rec3=022
        [0x0c] rec0=1f rec1=00 rec2=0d rec3=008
        [0x0d] rec0=1c rec1=00 rec2=0e rec3=038
        [0x0e] rec0=1f rec1=00 rec2=0f rec3=03c
        [0x0f] rec0=1e rec1=00 rec2=12 rec3=01c
        [0x10] rec0=1d rec1=00 rec2=11 rec3=032
        [0x11] rec0=21 rec1=00 rec2=10 rec3=00a
        [0x12] rec0=00 rec1=00 rec2=23 rec3=010
        [0x13] rec0=1c rec1=00 rec2=13 rec3=02c
        [0x14] rec0=1e rec1=00 rec2=14 rec3=030
        [0x15] rec0=1d rec1=00 rec2=15 rec3=016
        [0x16] rec0=1d rec1=00 rec2=16 rec3=024
        [0x17] rec0=19 rec1=00 rec2=17 rec3=01c
        [0x18] rec0=16 rec1=00 rec2=18 rec3=072
        [0x19] rec0=15 rec1=00 rec2=19 rec3=07e
        [0x1a] rec0=15 rec1=00 rec2=1a rec3=066
        [0x1b] rec0=15 rec1=00 rec2=1b rec3=04e
        [0x1c] rec0=17 rec1=00 rec2=1c rec3=018
        [0x1d] rec0=17 rec1=00 rec2=1d rec3=076
        [0x1e] rec0=18 rec1=00 rec2=1e rec3=048
        [0x1f] rec0=18 rec1=00 rec2=1f rec3=064
        [0x20] rec0=16 rec1=00 rec2=20 rec3=068
        [0x21] rec0=18 rec1=00 rec2=21 rec3=006
        [0x22] rec0=12 rec1=00 rec2=22 rec3=000
    tail 0x2171dca3e83906dcf7f8e 0x42a00088462060003