mirror of
https://github.com/elliotnunn/mac-rom.git
synced 2024-12-28 16:31:01 +00:00
4325cdcc78
Resource forks are included only for .rsrc files. These are DeRezzed into their data fork. 'ckid' resources, from the Projector VCS, are not included. The Tools directory, containing mostly junk, is also excluded.
38 lines
878 B
Plaintext
38 lines
878 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 |