;
;	File:		AEPackEntry.a
;
;	Contains:	PACK 8 entry - AppleEvent Manager (stolen from MiscPatches.a)
;
;	Written by:	Tim Nichols
;
;	Copyright:	© 1992 by Apple Computer, Inc., all rights reserved.
;
;   This file is used in these builds: ROM
;
;	Change History (most recent first):
;
;		 <1>	 5/20/92	TN		first checked in
;
;	To Do:
;

			LOAD	'StandardEqu.d'
			INCLUDE	'DispatchHelperPriv.a'
			
;___________________________________________________________________________________
;
;			PACK 8 entry - AppleEvent Manager
;
;___________________________________________________________________________________

Pack8			PROC	EXPORT

Pack08Handle	EQU		App2Packs
Pack08Globals	EQU		ExpandMemRec.emPack8Globals

				MOVE.L		Pack08Handle,A0					; A0 = handle to PACK
				MOVE.L		ExpandMem, A1					; A1 = expanded memory area
				ADD.W		#Pack08Globals,A1				; A1 = pointer to PACK use count
				_ProcHelper									; let ProcHelper take over
				
				ENDPROC										; Pack8

			END ; of file