;
;	File:		LAPEqu.a
;
;	Copyright:	© 1990 by Apple Computer, Inc., all rights reserved.
;
;	Change History (most recent first):
;
;		 <6>	 8/15/91	MH		Add conditional assembly wrapper
;		 <5>	 6/14/91	JL		Checked in official MPW 3.2Ä version. Added correct spelling for
;									Phase II transition calls.
;		 <4>	 1/30/91	gbm		sab, #38: Change the Ôalready including this fileÕ variable to
;									all uppercase (for security reasons)
;		 <3>	  1/7/91	JH		(JDR) Do revision number 2
;		 <2>	  1/4/91	JDR		(dba) Removed the LAddAEQ and LRmvAEQ constants
;

;___________________________________________________________________________
;	Lap Manager Public Equates
;	© Apple Computer 1989
;	All rights reserved

 IF &TYPE('__INCLUDINGLAPEQU__') = 'UNDEFINED' THEN
__INCLUDINGLAPEQU__   SET 1

;
; LAP Manager call codes passed in D0 (call at [ATalkHk2] + 2)
;
LRdDispatch EQU 		1           					; Dispatch to protocol handler
LWrtInsert  EQU 		2           					; Insert in LAPWrite hook
LWrtRemove  EQU 		3           					; Remove from LAPWrite hook
LWrtGet 	EQU 		4           					; Get who's in LAPWrite hook
LSetInUse   EQU 		5           					; Set address in use flag
LGetSelfSend EQU		6           					; Get value of self send flag
LAARPAttach EQU 		7           					; Attach an AARP listener
LAARPDetach EQU 		8           					; Detach an AARP listener
LGetATalkInfo EQU   	9           					; Get AppleTalk info
LGetPortInfo EQU		10          					; Get port info
LOpenADEV   EQU 		11          					; Open ADEV file
LNSetInUse  EQU 		12          					; Port-based set-in-use call
LGetBridgeInfo EQU  	13          					; Get bridge info
LSetATalkInfo EQU   	14          					; Set AppleTalk info
LShutdownBridge EQU 	15          					; Shut down bridge
LInit   	EQU 		16          					; init run time LAP manager
LUsePortB   EQU 		17          					; request use of printer port
LFreePortB  EQU 		18          					; grant use of printer port
LStatPortB  EQU 		19          					; obtain current printer port status
LNetAlert   EQU 		20          					; notify user of network alert condition
L802Attach  EQU 		21          					; attach an 802.2 protocol handler
L802Detach  EQU 		22          					; detach an 802.2 protocol handler
LAddAEQ 	EQU 		23          					; add AppleTalk event queue entry
LRmvAEQ 	EQU 		24          					; remove AppleTalk event queue entry
LGetAEQ 	EQU 		25          					; get pointer to AppleTalk event queue
LLastCall   EQU 		LGetAEQ         				; Last valid call

;
; Flag bits passed in D1 on LWrtInsert
;
LWSelfSend  EQU 		7           					; ADEV handles self send
LWSrvrWks   EQU 		5           					; Honor server/wks bit
LWVMdefer   EQU 		4           					; buffer and defer incoming packets
LWReserved  EQU 		0           					; Reserved for internal use

;
; atlk call codes passed in D0 (call at atlk start plus 2)
;
AInstall	EQU 		1           					; Installation
AShutdown   EQU 		2           					; Shutdown
AGetInfo	EQU 		3           					; Get link information
AGetMCast   EQU 		4           					; Get multicast addr
ASetMCast   EQU 		5           					; Set multicast addr
ADelMCast   EQU 		6           					; Delete multicast addr
AOpen   	EQU 		7           					; Open an ATlk
AClose  	EQU 		8           					; Close an ATlk
AEnq		EQU			9								; send ENQ's for a node address
ADelAddr	EQU			10								; remove an established node address

;
; ADEV call code passed in D0 (call at ADEV start)
;

GetADEV 	EQU 		101             				; Get next ADEV
SelectADEV  EQU 		102             				; Select ADEV
ReSelADEV   EQU 		103             				; Re-selected ADEV

LAPMgrPtr   EQU 		$B18            				; This points to our start (???ATalkHk2?)
LAPMgrCall  EQU 		2           					; Offset to make LAP manager calls
atlkCall	EQU 		2           					; Offset to make atlk calls at

;
; Resource IDs
;
adevBaseID  EQU 		-4032           				; Base resource ID for ADEVs

;
; atlk AGetInfo call
;
														; (big enough to handle 6 byte link addr)

ATlkInfo	RECORD  	0           					; link information
Version 	DS.W		1           					; version number
InfoLength  DS.W		1           					; length of this rec
LinkSpeed   DS.L		1           					; speed of link in bits/second
BandWidth   DS.B		1           					; bandwidth factor
Reserved	DS.B		3
Flags   	DS.B		1           					; informative flags (see below)
LinkAdrLen  DS.B		1           					; link address length in bytes
LinkAddress DS.B		6           					; start of link address (reserve 6 bytes)
MaxNodes	DS.W		1           					; max. number of nodes (base zero)
Size		EQU 		*
			ENDR

AInfoVers   EQU 		3           					; version number describes reply buffer below
AInfoSz 	EQU 		ATlkInfo.Size       			; size in bytes of reply buffer

;
; atlk AGetInfo flags
;
AtlkExtended EQU		7           					; bit in on if link has extended addressing
AtlkROnly   EQU 		6           					; true if link is for router only ports

;	Transition Queue Structures

;	Transition Queue Element

ATQel			RECORD	0
AeQQLink		DS.L	1								; link field
AeQQType		DS.W	1								; queue type (dont care)
AeQCallAddr		DS.L	1								; procedure address
AeQSize			EQU		*
				ENDR

;	Transitions
; %%% Change spelling to match inside Mac
;AOpenTask		EQU		0								; q type for open
;ACloseTellTask	EQU		2
;ACloseAskTask	EQU		3
;ACanclAskTask	EQU		4
ATTransOpen			EQU		0							; Open Transition
ATTransClose		EQU		2							; Close Transition
ATTransClosePrep	EQU		3							; Close Prep Transition
ATTransCancelClose	EQU		4							; Cancel Close Prep

                   ENDIF	;  ...already included