mirror of
https://github.com/elliotnunn/mac-rom.git
synced 2025-01-16 18:32:56 +00:00
0ba83392d4
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.
83 lines
1.7 KiB
Plaintext
83 lines
1.7 KiB
Plaintext
;
|
|
; File: DictionaryMgr.a
|
|
;
|
|
; Contains: Dictionary Manager dispatch table
|
|
;
|
|
;
|
|
; Written by: John Harvey
|
|
;
|
|
; Copyright: © 1989-1991 by Apple Computer, Inc., all rights reserved.
|
|
;
|
|
; Change History (most recent first):
|
|
;
|
|
; <4> 11/27/91 hsK Changed the Dictionary routine names.
|
|
; <1+> 11/27/91 hsK Change the names of Dictionary routines.
|
|
;
|
|
; To Do:
|
|
;
|
|
|
|
TITLE 'DictionaryMgr.a - Dictionary Manager package'
|
|
STRING ASIS
|
|
CASE OBJ
|
|
|
|
;
|
|
|
|
; Includes
|
|
|
|
PRINT OFF
|
|
|
|
LOAD 'StandardEqu.d'
|
|
include 'DispatchHelperPriv.a'
|
|
|
|
PRINT ON
|
|
|
|
|
|
;===============================================================================
|
|
;
|
|
; PROCEDURE DictionaryMgrPackEntry(); - Dictionary Manager PACK (kind of, really 'dimg'.
|
|
;
|
|
;===============================================================================
|
|
|
|
DictionaryMgrPackEntry PROC EXPORT
|
|
|
|
DC.W $A9FF ; package entry point (unused now)
|
|
DC.B 'dimg'
|
|
DC.W 16 ; package number
|
|
DC.W 1 ; version
|
|
|
|
;
|
|
; DispatchTable for DispatchHelper
|
|
;
|
|
MyDispatchTable
|
|
DC.W 0 ; dispatchFlags (always 0)
|
|
DC.B $00 ; first selector (0 for InitializeDictionary)
|
|
DC.B $08 ; last selector (8 for CompactDictionary)
|
|
|
|
;
|
|
; macro to build jump table
|
|
;
|
|
MACRO
|
|
JT &entry
|
|
IMPORT &entry
|
|
DC.W &entry - MyDispatchTable
|
|
ENDM
|
|
|
|
CASE OFF ; following are Pascal routines
|
|
|
|
|
|
JT InitializeDictionary_ATrap
|
|
JT OpenDictionary_ATrap
|
|
JT CloseDictionary_ATrap
|
|
JT InsertRecordToDictionary_ATrap
|
|
JT DeleteRecordFromDictionary_ATrap
|
|
JT FindRecordInDictionary_ATrap
|
|
JT FindRecordByIndexInDictionary_ATrap
|
|
JT GetDictionaryInformation_ATrap
|
|
JT CompactDictionary_ATrap
|
|
|
|
CASE OBJ
|
|
|
|
ENDPROC
|
|
|
|
END
|