mirror of
https://github.com/elliotnunn/mac-rom.git
synced 2024-12-27 10:29:32 +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.
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
|