mirror of
https://github.com/elliotnunn/mac-rom.git
synced 2025-01-28 16:33:33 +00:00
35 lines
743 B
Plaintext
35 lines
743 B
Plaintext
|
;
|
|||
|
|
; File: alDlogUtil.a
|
|||
|
|
;
|
|||
|
|
; Contains: alias manager dialog box utility routines in Assembly
|
|||
|
|
;
|
|||
|
|
; Written by: Prashant Patel
|
|||
|
|
;
|
|||
|
|
; Copyright: <09> 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
|
|||
|
|
|