;
;	File:		PPCPrivGlue.a
;
;	Contains:	Glue to private interface for the PPC Toolbox
;
;	Written by:	Victor Chang, Sangam, and Eric M. Trehus
;
;	Copyright:	© 1989-1991 by Apple Computer, Inc., all rights reserved.
;
;	Change History (most recent first):
;
;		 <3>	 8/27/91	JSM		Cleanup header.
;		 <2>	10/24/90	EMT		Add New internal glue and interfaces
;		 <1>	10/18/90	JSM		First checked in.
;
;
	PRINT	OFF
	INCLUDE	'SysEqu.a'
	INCLUDE	'ToolEqu.a'
	INCLUDE	'Traps.a'
	INCLUDE	'PPCToolBox.a'
	INCLUDE 'PPCPriv.a'
	PRINT	ON

;
;	The following routines are for internal use only.
;	Unlike other PPC routines, they use C calling conventions,
;	so they don't need to clean up the stack, and the result
;	can be left in D0.
;
;	OSErr PPCCloseUserSessions(unsigned char *userName);
;	short PPCCountAcceptedNetworkSessions(unsigned char *userName);
;	OSErr PPCCheckDupNBPName();
;

				CASE		OBJ

PPCCloseUserSessions	PROC	EXPORT
         		Move.L		(SP)+,A1        	;get return address
				Move.L		(SP),A0				;A0 contains the parameter
				Moveq		#CloseUserSessionsCmd,D0
				DC.W		$A0DD
				Jmp			(A1)
				ENDPROC

PPCCountAcceptedNetworkSessions	PROC	EXPORT
         		Move.L		(SP)+,A1        ;get return address
				Move.L		(SP),A0			;A0 contains the parameter
				Moveq		#CountAcceptedNetworkSessionsCmd,D0
				DC.W		$A0DD
				Jmp			(A1)
				ENDPROC

PPCCheckDupNBPName		PROC	EXPORT
         		Move.L		(SP)+,A1        	;get return address
				Moveq		#CheckDupNBPNameCmd,D0
				DC.W		$A0DD
				Jmp			(A1)
				ENDPROC

PPCEnable		PROC	EXPORT
         		Move.L		(SP)+,A1        	;get return address
				Moveq		#PPCEnableCmd,D0
				DC.W		$A0DD
				Jmp			(A1)
				ENDPROC
				
PPCDisable		PROC	EXPORT
         		Move.L		(SP)+,A1        	;get return address
				Moveq		#PPCDisableCmd,D0
				DC.W		$A0DD
				Jmp			(A1)
				ENDPROC		
				END