;
;	File:		IICTest.a
;
;	Contains:	xxx put contents here xxx
;
;	Written by:	xxx put writers here xxx
;
;	Copyright:	© 1992 by Apple Computer, Inc., all rights reserved.
;
;	Change History (most recent first):
;
;		<P2>	 6/11/92	DH		Added VDC Interrupt service routine
;
;

;
;	FileName:	MUNITest.a 
;
;	History:
;
;	05/20/91	gjs		Add 040 move16 for MUNI Block move...
;___________________________________________________________________________
;
;	INCLUDES
;___________________________________________________________________________
;
				PRINT ON
			
;___________________________________________________________________________
			
				CASE	OBJ				; allow upper and lower case
;___________________________________________________________________________
;
;	Segment Definitions
;___________________________________________________________________________
;
;				SEG		'IICTEST'	
;___________________________________________________________________________
;

				string		pascal
	
				print		off
				include		'SysEqu.a'
				include		'SysErr.a'
				include		'Traps.a'
;				include		'ToolEqu.a'
				print		on
;___________________________________________________________________________
;
;	EXPORTS
;___________________________________________________________________________
;
;
;		Exports for the IICTest.a code
;
				MACHINE		MC68040

EgretGlu		proc		export


StackFrame		record		0,increment
frameAddr		ds.l		1
retAddr			ds.l		1
parmBegin		equ			*
EgretPB			ds.l		1
parmSize		equ			*-parmBegin
				endr


		WITH	StackFrame
				link		a6,#0
;				pea			EnterMove16
;				_DebugStr
				move.l		(8,sp), a0
				_EgretDispatch
				tst.w		d0
				bne.s		MoveDone
getout
				unlk		a6
				rts

MoveDone	
;				pea			NotAligned
;				_DebugStr
				bra.s		getout
		ENDWITH
		
		STRING	PASCAL
EnterMove16		dc.b		'***  Begin Egret Glue...'
NotAligned		dc.b		'***  Buffer not quad long aligned...'
		ALIGN	2
		STRING	ASIS
		ENDP


		END