mirror of
https://github.com/elliotnunn/boot3.git
synced 2024-06-18 15:29:37 +00:00
5b0f0cc134
Resource forks are included only for .rsrc files. These are DeRezzed into their data fork. 'ckid' resources, from the Projector VCS, are not included. The Tools directory, containing mostly junk, is also excluded.
83 lines
1.8 KiB
OpenEdge ABL
83 lines
1.8 KiB
OpenEdge ABL
|
|
{
|
|
Created: Saturday, July 27, 1991 at 8:25 PM
|
|
DeskBus.p
|
|
Pascal Interface to the Macintosh Libraries
|
|
|
|
Copyright Apple Computer, Inc. 1987-1991
|
|
All rights reserved
|
|
This file is used in these builds: Mac32 BigBang Sys606
|
|
|
|
|
|
Change History (most recent first):
|
|
|
|
<4> 7/30/91 JL Updated Copyright.
|
|
<3> 1/27/91 LN Checked in Database generate file from DSG.
|
|
<2> 10/8/90 JAL Added Inline to CountADBs.
|
|
|
|
To Do:
|
|
}
|
|
|
|
|
|
{$IFC UNDEFINED UsingIncludes}
|
|
{$SETC UsingIncludes := 0}
|
|
{$ENDC}
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
UNIT DeskBus;
|
|
INTERFACE
|
|
{$ENDC}
|
|
|
|
{$IFC UNDEFINED UsingDeskBus}
|
|
{$SETC UsingDeskBus := 1}
|
|
|
|
{$I+}
|
|
{$SETC DeskBusIncludes := UsingIncludes}
|
|
{$SETC UsingIncludes := 1}
|
|
{$IFC UNDEFINED UsingTypes}
|
|
{$I $$Shell(PInterfaces)Types.p}
|
|
{$ENDC}
|
|
{$SETC UsingIncludes := DeskBusIncludes}
|
|
|
|
TYPE
|
|
ADBAddress = SignedByte;
|
|
|
|
ADBOpBPtr = ^ADBOpBlock;
|
|
ADBOpBlock = RECORD
|
|
dataBuffPtr: Ptr; {address of data buffer}
|
|
opServiceRtPtr: Ptr; {service routine pointer}
|
|
opDataAreaPtr: Ptr; {optional data area address}
|
|
END;
|
|
|
|
ADBDBlkPtr = ^ADBDataBlock;
|
|
ADBDataBlock = PACKED RECORD
|
|
devType: SignedByte; {device type}
|
|
origADBAddr: SignedByte; {original ADB Address}
|
|
dbServiceRtPtr: Ptr; {service routine pointer}
|
|
dbDataAreaAddr: Ptr; {data area address}
|
|
END;
|
|
|
|
ADBSInfoPtr = ^ADBSetInfoBlock;
|
|
ADBSetInfoBlock = RECORD
|
|
siServiceRtPtr: Ptr; {service routine pointer}
|
|
siDataAreaAddr: Ptr; {data area address}
|
|
END;
|
|
|
|
|
|
PROCEDURE ADBReInit;
|
|
INLINE $A07B;
|
|
FUNCTION ADBOp(data: Ptr;compRout: ProcPtr;buffer: Ptr;commandNum: INTEGER): OSErr;
|
|
FUNCTION CountADBs: INTEGER;
|
|
INLINE $A077,$3E80;
|
|
FUNCTION GetIndADB(VAR info: ADBDataBlock;devTableIndex: INTEGER): ADBAddress;
|
|
FUNCTION GetADBInfo(VAR info: ADBDataBlock;adbAddr: ADBAddress): OSErr;
|
|
FUNCTION SetADBInfo(VAR info: ADBSetInfoBlock;adbAddr: ADBAddress): OSErr;
|
|
|
|
|
|
{$ENDC} { UsingDeskBus }
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
END.
|
|
{$ENDC}
|
|
|