{
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}