;
;	File:		alDlogUtil.a
;
;	Contains:	alias manager dialog box utility routines in Assembly
;
;	Written by:	Prashant Patel
;
;	Copyright:	© 1989-1992 by Apple Computer, Inc.  All rights reserved.
;
;	Change History (most recent first):
;
;	   <SM2>	10/28/92	SWC		Changed the INCLUDEs to a LOAD of StandardEqu.d.
;	   <1.0>	 9/18/89	prp		Initial release.
;

			BLANKS		ON
			STRING		ASIS
			CASE		OFF

			LOAD	'StandardEqu.d'

; SetArrowCursor();
; Does a SetCursor with the arrow cursor
				PROC
				EXPORT	SetArrowCursor
SetArrowCursor:
				MOVE.L	GrafGlobals(a5), a0	; Point at QuickDraw globals
				PEA		arrow(a0)			; Push address of arrow cursor
				_SetCursor					; Set it as current
				RTS							; Return to C
				ENDPROC
				
				END