mirror of
https://github.com/elliotnunn/mac-rom.git
synced 2024-12-29 07:29:15 +00:00
61 lines
2.7 KiB
Plaintext
61 lines
2.7 KiB
Plaintext
|
; Version: 1.00
|
|||
|
|
; Created: Friday, October 20, 1989 at 9:11:52 PM
|
|||
|
|
; File: Folders.a
|
|||
|
|
;
|
|||
|
|
; Assembler Interface to the Macintosh Libraries
|
|||
|
|
; Copyright Apple Computer, Inc. 1989-90
|
|||
|
|
; All Rights Reserved
|
|||
|
|
;
|
|||
|
|
; This file is used in these builds: ROM System
|
|||
|
|
;
|
|||
|
|
; 1.3 prp 10/02/1989 Added Finder "Extension Folder" as kExtensionFolderType.
|
|||
|
|
; 1.2 prp 08/09/1989 Folders.a should not depend upon InternalMacros.a. 'false'
|
|||
|
|
; and 'true' constants are now hardcoded inside Folders.a.
|
|||
|
|
; 1.1 prp 06/08/1989 Alias Manager Trap # changed from $A825 to $A823
|
|||
|
|
; 1.0 prp 06/02/1989 Initial release. Folder manager now part of Alias
|
|||
|
|
; manager.
|
|||
|
|
; Change History (most recent first):
|
|||
|
|
;
|
|||
|
|
; <12> 5/12/92 DTY Add type for Fonts folder.
|
|||
|
|
; <11> 8/15/91 MH skip line after change history
|
|||
|
|
; <10> 8/14/91 JL changed lower case equ to EQU to match database output.
|
|||
|
|
; <9> 1/30/91 gbm sab, #38: Change the <20>already including this file<6C> variable to
|
|||
|
|
; all uppercase (for security reasons)
|
|||
|
|
; <8> 5/3/90 PP Change kSpoolFolderType to kPrintMonitorDocsFolderType.
|
|||
|
|
; <5> 3/20/90 PP Remove obsolete folder types.
|
|||
|
|
; <3+> 2/19/90 PP Add equate for "Control Panels" folder and remove equate for
|
|||
|
|
; kINITFolderType.
|
|||
|
|
; 6/2/89 dba roll into system sources
|
|||
|
|
;--------------------------------------------------------------------
|
|||
|
|
|
|||
|
|
IF &TYPE('__INCLUDINGFOLDERS__') = 'UNDEFINED' THEN
|
|||
|
|
__INCLUDINGFOLDERS__ SET 1
|
|||
|
|
|
|||
|
|
kOnSystemDisk EQU $8000
|
|||
|
|
|
|||
|
|
kCreateFolder EQU 1 ; true- create a folder or not
|
|||
|
|
kDontCreateFolder EQU 0 ; false
|
|||
|
|
|
|||
|
|
kSystemFolderType EQU 'macs' ; the system folder
|
|||
|
|
kDesktopFolderType EQU 'desk' ; the desktop folder; objects in this folder show on the desktop
|
|||
|
|
kTrashFolderType EQU 'trsh' ; the trash folder; objects in this folder show up in the trash
|
|||
|
|
kWhereToEmptyTrashFolderType EQU 'empt' ; the <20>empty trash<73> folder; Finder starts emptying from here down
|
|||
|
|
|
|||
|
|
kPrintMonitorDocsFolderType EQU 'prnt' ; Print Monitor documents
|
|||
|
|
|
|||
|
|
kStartupFolderType EQU 'strt' ; Finder objects (applications, documents, DAs, aliases to <20>) to open at startup go here
|
|||
|
|
kAppleMenuFolderType EQU 'amnu' ; Finder objects to put into the Apple menu go here
|
|||
|
|
kControlPanelFolderType EQU 'ctrl' ; Control Panels go here (may contain INITs)
|
|||
|
|
kExtensionFolderType EQU 'extn' ; Finder extensions go here
|
|||
|
|
kFontsFolderType EQU 'font' ; Fonts go here.
|
|||
|
|
|
|||
|
|
kPreferencesFolderType EQU 'pref' ; preferences for applications go here
|
|||
|
|
kTemporaryFolderType EQU 'temp' ; temporary files go here (deleted periodically, but don<6F>t rely on it)
|
|||
|
|
|
|||
|
|
macro
|
|||
|
|
_FindFolder
|
|||
|
|
moveq #0,d0
|
|||
|
|
dc.w $A823
|
|||
|
|
endm
|
|||
|
|
|
|||
|
|
ENDIF ; ...already included
|