supermario/base/SuperMarioProj.1994-02-09/Toolbox/DictionaryMgr/DictionaryMgr.a
2019-06-29 23:17:50 +08:00

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