mirror of
https://github.com/elliotnunn/sys7.1-doc-wip.git
synced 2024-06-12 14:29:29 +00:00
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}
|
|
|