;
;	File:		AEUtil.a
;
;	Contains:	xxx put contents here xxx
;
;	Written by:	xxx put writers here xxx
;
;	Copyright:	© 1990 by Apple Computer, Inc., all rights reserved.
;
;   This file is used in these builds: BigBang
;
;	Change History (most recent first):
;
;		 <1>	12/13/90	Lai		first checked in
;
;	To Do:
;

				
; =======================================================================================	
; Files needed by this Package
; =======================================================================================	 


	STRING	ASIS

	IMPORT	CreateList
; object type is an optional parameter
AE_CreateList PROC	EXPORT
	CMP.W	#$0706,D0		; is it create object?
	BNE.S	DoIt			; yes, branch to it	
	MOVE.L	(A7)+,A0			; get return address
	CLR.L	-(A7)			; nil means not an object
	MOVE.L	A0,-(A7)			; put back return addres
DoIt	JMP	CreateList		; now do it
	ENDP
	
	END