;
;	File:		TextEdit.a
;
;	Copyright:	© 1984-1990 by Apple Computer, Inc., all rights reserved.
;
;	Change History (most recent first):
;
;		 <2>	 9/27/90	dba		check in new version from Jim Lord
;
;	Modification History:
;		18 May 87	KLH	TEFromScrp glue used VAR ptr = 0, trashing low memory.
;		10 Jun 87	KLH	TEToScrap gets TEScrpLength as 0000xxxx (CLR high word).
;	*** MPW 3.0d2 ***
;		11 Feb 88	KLH	Changed C headers to work with new C compiler:
;						Changed to using standard glue in Interface.o, so
;						much glue removed from CInterface.o.
;	*** MPW 3.0d4 ***

	include 'macintosh.a'

teclick		proc	EXPORT
			move.l  d2,-(sp)				; save register d2
			move.l  8(sp),a0				; load address of first parameter
			move.l  (a0),-(sp)				; push value of first parameter
			move.b  19(sp),-(sp)			; push copy of second parameter
			move.l  22(sp),-(sp)			; push copy of third parameter
			dc.w	$A9D4					; trap to teclick
			move.l  (sp)+,d2				; restore register d2
			rts

	END