mirror of
https://github.com/elliotnunn/sys7.1-doc-wip.git
synced 2024-10-31 19:05:04 +00:00
190 lines
5.0 KiB
Plaintext
190 lines
5.0 KiB
Plaintext
|
;
|
||
|
|
; File: PuppetString.MacPaint.a
|
||
|
|
;
|
||
|
|
; Contains: Puppet string conversion table custumized for MacPaint
|
||
|
|
;
|
||
|
|
; 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 event sequences specifically
|
||
|
|
; for MacPaint. MacPaint is identified as having a creator equal to 'MPNT'. The basic
|
||
|
|
; instructions are handled by the default table defined in PuppetString.Default.a.
|
||
|
|
;
|
||
|
|
;--------------------------------------------------------------------
|
||
|
|
|
||
|
|
LOAD 'ProcessMgrIncludes.D'
|
||
|
|
PRINT OFF
|
||
|
|
INCLUDE 'PuppetStringDefs.a'
|
||
|
|
PRINT ON
|
||
|
|
|
||
|
|
FUNC
|
||
|
|
BLANKS ON
|
||
|
|
STRING ASIS
|
||
|
|
|
||
|
|
TableTop
|
||
|
|
NumberOfEntries DC.B (EntriesBottom-EntriesTop)/6,0
|
||
|
|
EntriesTop
|
||
|
|
ResetEntry DC.W pstEventList ;Click in paint rectangle
|
||
|
|
DC.L RstEvtList-TableTop
|
||
|
|
CutEntry DC.W pstMenuItem
|
||
|
|
DC.W 3,3
|
||
|
|
CopyEntry DC.W pstMenuItem
|
||
|
|
DC.W 3,4
|
||
|
|
PasteEntry DC.W pstMenuItem
|
||
|
|
DC.W 3,5
|
||
|
|
SelectRectEntry DC.W pstEventList
|
||
|
|
DC.L SREvtList-TableTop
|
||
|
|
SelectAllEntry DC.W pstEventList
|
||
|
|
DC.L SAEvtList-TableTop
|
||
|
|
MemCopyEntry DC.W pstIllegalInstr
|
||
|
|
DC.L 0
|
||
|
|
OutlineRectEntry DC.W pstEventList
|
||
|
|
DC.L OREvtList-TableTop
|
||
|
|
EntriesBottom
|
||
|
|
RstEvtList
|
||
|
|
RstParamCount DC.W 0
|
||
|
|
RstEvtListOffset DC.L 6
|
||
|
|
RstEvtListCount DC.W (RstEvtListBottom-RstEvt1)/evtBlkSize
|
||
|
|
RstEvt1
|
||
|
|
RstEvt1what DC.W mButDwnEvt+evtMouseGlobal+evtIsImportant
|
||
|
|
RstEvt1message DC.L 0
|
||
|
|
RstEvt1when DC.L 0
|
||
|
|
RstEvt1where DC.W $69,$1D
|
||
|
|
RstEvt1modifiers DC.W 0
|
||
|
|
RstEvt2
|
||
|
|
RstEvt2what DC.W mButUpEvt+evtMouseGlobal+evtIsUnimportant
|
||
|
|
RstEvt2message DC.L 0
|
||
|
|
RstEvt2when DC.L 0
|
||
|
|
RstEvt2where DC.W $69,$1D
|
||
|
|
RstEvt2modifiers DC.W $80
|
||
|
|
RstEvtListBottom
|
||
|
|
|
||
|
|
SREvtList
|
||
|
|
SRParamCount DC.W (SREvtListOffset-SRParams)/6
|
||
|
|
SRParams
|
||
|
|
SRParam1 DC.L SRParam1LocStart-TableTop
|
||
|
|
DC.W SRParam1LocEnd-SRParam1LocStart
|
||
|
|
SRParam2 DC.L SRParam2LocStart-TableTop
|
||
|
|
DC.W SRParam2LocEnd-SRParam2LocStart
|
||
|
|
SREvtListOffset DC.L 6
|
||
|
|
SREvtListCount DC.W (SREvtListBottom-SREvt1)/evtBlkSize
|
||
|
|
SREvt1
|
||
|
|
SREvt1what DC.W mButDwnEvt+evtMouseGlobal+evtIsImportant
|
||
|
|
SREvt1message DC.L 0
|
||
|
|
SREvt1when DC.L 0
|
||
|
|
SREvt1where DC.W $29,$37
|
||
|
|
SREvt1modifiers DC.W 0
|
||
|
|
SREvt2
|
||
|
|
SREvt2what DC.W mButUpEvt+evtMouseGlobal+evtIsUnimportant
|
||
|
|
SREvt2message DC.L 0
|
||
|
|
SREvt2when DC.L 0
|
||
|
|
SREvt2where DC.W $29,$37
|
||
|
|
SREvt2modifiers DC.W $80
|
||
|
|
SREvt3
|
||
|
|
SREvt3what DC.W mButDwnEvt+evtMouseEither+evtIsImportant
|
||
|
|
SREvt3message DC.L 0
|
||
|
|
SREvt3when DC.L 0
|
||
|
|
SRParam1LocStart
|
||
|
|
SREvt3where DC.W 0,0
|
||
|
|
SRParam1LocEnd
|
||
|
|
SREvt3modifiers DC.W 0
|
||
|
|
SREvt4
|
||
|
|
SREvt4what DC.W mButUpEvt+evtMouseEither+evtIsUnimportant
|
||
|
|
SREvt4message DC.L 0
|
||
|
|
SREvt4when DC.L 0
|
||
|
|
SRParam2LocStart
|
||
|
|
SREvt4where DC.W 0,0
|
||
|
|
SRParam2LocEnd
|
||
|
|
SREvt4modifiers DC.W $80
|
||
|
|
SREvtListBottom
|
||
|
|
|
||
|
|
SAEvtList
|
||
|
|
SAParamCount DC.W 0
|
||
|
|
SAEvtListOffset DC.L 6
|
||
|
|
SAEvtListCount DC.W (SAEvtListBottom-SAEvt1)/evtBlkSize
|
||
|
|
SAEvt1
|
||
|
|
SAEvt1what DC.W mButDwnEvt+evtMouseGlobal+evtIsImportant
|
||
|
|
SAEvt1message DC.L 0
|
||
|
|
SAEvt1when DC.L 0
|
||
|
|
SAEvt1where DC.W $29,$37
|
||
|
|
SAEvt1modifiers DC.W 0
|
||
|
|
SAEvt2
|
||
|
|
SAEvt2what DC.W mButUpEvt+evtMouseGlobal+evtIsUnimportant
|
||
|
|
SAEvt2message DC.L 0
|
||
|
|
SAEvt2when DC.L 0
|
||
|
|
SAEvt2where DC.W $29,$37
|
||
|
|
SAEvt2modifiers DC.W $80
|
||
|
|
SAEvt3
|
||
|
|
SAEvt3what DC.W mButDwnEvt+evtMouseGlobal+evtIsImportant
|
||
|
|
SAEvt3message DC.L 0
|
||
|
|
SAEvt3when DC.L 0
|
||
|
|
SAEvt3where DC.W $29,$37
|
||
|
|
SAEvt3modifiers DC.W 0
|
||
|
|
SAEvt4
|
||
|
|
SAEvt4what DC.W mButUpEvt+evtMouseGlobal+evtIsUnimportant
|
||
|
|
SAEvt4message DC.L 0
|
||
|
|
SAEvt4when DC.L 0
|
||
|
|
SAEvt4where DC.W $29,$37
|
||
|
|
SAEvt4modifiers DC.W $80
|
||
|
|
SAEvtListBottom
|
||
|
|
OREvtList
|
||
|
|
ORParamCount DC.W (OREvtListOffset-ORParams)/6
|
||
|
|
ORParams
|
||
|
|
ORParam1 DC.L ORParam1LocStart-TableTop
|
||
|
|
DC.W ORParam1LocEnd-ORParam1LocStart
|
||
|
|
ORParam2 DC.L ORParam2LocStart-TableTop
|
||
|
|
DC.W ORParam2LocEnd-ORParam2LocStart
|
||
|
|
OREvtListOffset DC.L 6
|
||
|
|
OREvtListCount DC.W (OREvtListBottom-OREvt1)/evtBlkSize
|
||
|
|
OREvt1
|
||
|
|
OREvt1what DC.W mButDwnEvt+evtMouseGlobal+evtIsImportant
|
||
|
|
OREvt1message DC.L 0
|
||
|
|
OREvt1when DC.L 0
|
||
|
|
OREvt1where DC.W 280,28
|
||
|
|
OREvt1modifiers DC.W 0
|
||
|
|
OREvt2
|
||
|
|
OREvt2what DC.W mButUpEvt+evtMouseGlobal+evtIsUnimportant
|
||
|
|
OREvt2message DC.L 0
|
||
|
|
OREvt2when DC.L 0
|
||
|
|
OREvt2where DC.W 280,28
|
||
|
|
OREvt2modifiers DC.W $80
|
||
|
|
OREvt3
|
||
|
|
OREvt3what DC.W mButDwnEvt+evtMouseGlobal+evtIsImportant
|
||
|
|
OREvt3message DC.L 0
|
||
|
|
OREvt3when DC.L 0
|
||
|
|
OREvt3where DC.W 150,29
|
||
|
|
OREvt3modifiers DC.W 0
|
||
|
|
OREvt4
|
||
|
|
OREvt4what DC.W mButUpEvt+evtMouseGlobal+evtIsUnimportant
|
||
|
|
OREvt4message DC.L 0
|
||
|
|
OREvt4when DC.L 0
|
||
|
|
OREvt4where DC.W 150,29
|
||
|
|
OREvt4modifiers DC.W $80
|
||
|
|
OREvt5
|
||
|
|
OREvt5what DC.W mButDwnEvt+evtMouseEither+evtIsImportant
|
||
|
|
OREvt5message DC.L 0
|
||
|
|
OREvt5when DC.L 0
|
||
|
|
ORParam1LocStart
|
||
|
|
OREvt5where DC.W 0,0
|
||
|
|
ORParam1LocEnd
|
||
|
|
OREvt5modifiers DC.W 0
|
||
|
|
OREvt6
|
||
|
|
OREvt6what DC.W mButUpEvt+evtMouseEither+evtIsUnimportant
|
||
|
|
OREvt6message DC.L 0
|
||
|
|
OREvt6when DC.L 0
|
||
|
|
ORParam2LocStart
|
||
|
|
OREvt6where DC.W 0,0
|
||
|
|
ORParam2LocEnd
|
||
|
|
OREvt6modifiers DC.W $80
|
||
|
|
OREvtListBottom
|
||
|
|
|
||
|
|
END
|