73 lines
2.0 KiB
Plaintext
73 lines
2.0 KiB
Plaintext
;
|
|
; File: PuppetString.Default.a
|
|
;
|
|
; Contains: Default puppet string conversion table.
|
|
;
|
|
; Written by: Phil Goldman
|
|
;
|
|
; Copyright: © 1986-1991 by Apple Computer, Inc., all rights reserved.
|
|
;
|
|
; Change History (most recent first):
|
|
;
|
|
; <0> x/xx/86 PYG New Today.
|
|
;
|
|
;--------------------------------------------------------------------
|
|
|
|
;--------------------------------------------------------------------
|
|
;
|
|
; This table is used to convert puppet instructions to an event sequence for the target
|
|
; process. Any application can define its own custom table (placed in an application
|
|
; file resource with the type equal to the creator of the application file, and an ID
|
|
; of 127). If that does not exist, we look for a table that *we* have customized for
|
|
; the app (type equal to application file creator, ID of -16458). If that does not
|
|
; exist, we use the table we defined here (resource type 'TWIT', ID -16458).
|
|
;
|
|
;--------------------------------------------------------------------
|
|
|
|
PRINT OFF
|
|
LOAD 'ProcessMgrIncludes.D'
|
|
INCLUDE 'PuppetStringDefs.a'
|
|
PRINT ON
|
|
|
|
FUNC
|
|
BLANKS ON
|
|
STRING ASIS
|
|
|
|
TableTop
|
|
NumberOfEntries DC.B (EntriesBottom-EntriesTop)/6,0
|
|
EntriesTop
|
|
ResetEntry DC.W pstNullInstr
|
|
DC.L 0
|
|
CutEntry DC.W pstIllegalInstr
|
|
DC.L 0
|
|
CopyEntry DC.W pstIllegalInstr
|
|
DC.L 0
|
|
PasteEntry DC.W pstIllegalInstr
|
|
DC.L 0
|
|
SelectRectEntry DC.W pstIllegalInstr
|
|
DC.L 0
|
|
SelectAllEntry DC.W pstIllegalInstr
|
|
DC.L 0
|
|
MemCopyEntry DC.W pstIllegalInstr
|
|
DC.L 0
|
|
OutlineRectEntry DC.W pstIllegalInstr
|
|
DC.L 0
|
|
Private1Entry DC.W pstIllegalInstr
|
|
DC.L 0
|
|
QuitEntry DC.W pstMenuString
|
|
DC.W strIDQuitMenu, strIDQuitItem
|
|
OpenEntry DC.W pstMenuString
|
|
DC.W strIDOpenMenu, strIDOpenItem
|
|
CancelEntry DC.W pstImplementCode
|
|
DC.L CancelImplCode-TableTop
|
|
EntriesBottom
|
|
|
|
CancelImplCode
|
|
_CancelSwitch ; Cancel the switch
|
|
move.l (sp)+,a0 ; Get ret addr
|
|
addq.w #4,sp ; get rid of param
|
|
move.w #1,(sp) ; non-0 retval signals success
|
|
jmp (a0) ; and return
|
|
|
|
END
|