mirror of
https://github.com/elliotnunn/sys7.1-doc-wip.git
synced 2024-06-12 14:29:29 +00:00
38 lines
879 B
Plaintext
38 lines
879 B
Plaintext
;
|
|
; 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 |