;
;	File:			PuppetString.MacDraw.a
;
;	Contains:		Puppet string conversion table custumized for MacDraw
;
;	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 MacDraw.  MacDraw is identified as having a creator equal to 'MDRW'.  The basic
;	instructions are handled by the default table defined in PuppetString.Default.a
;
;--------------------------------------------------------------------

					PRINT	OFF
					LOAD	'ProcessMgrIncludes.D'
					INCLUDE	'PuppetStringDefs.a'
					PRINT	ON
					
					FUNC
					BLANKS	ON
					STRING	ASIS

LayoutMenuID		EQU		6
GridOnOffItem		EQU		9
ExtraMenuID			EQU		14
ExtraGridOffItem	EQU		13

TableTop				
NumberOfEntries		DC.B	(EntriesBottom-EntriesTop)/6,0
EntriesTop
ResetEntry			DC.W	pstEventCode
					DC.L	RstEvtCode-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	pstMenuItem
					DC.W	3,9
MemCopyEntry		DC.W	pstIllegalInstr
					DC.L	0
OutlineRectEntry	DC.W	pstEventCode
					DC.L	OREvtCode-TableTop
GridOnOffEntry		DC.W	pstMenuItem
					DC.W	LayoutMenuID,GridOnOffItem
EntriesBottom

RstEvtList
;RstEvtParamCount	DC.W	0
RstEvtListOffset	DC.L	6
RstEvtListCount		DC.W	(RstEvtListBottom-RstEvt1)/evtBlkSize
RstEvt1
RstEvt1what			DC.W	mButDwnEvt+evtMouseLocal+evtIsImportant
RstEvt1message		DC.L	0
RstEvt1when			DC.L	0
RstEvt1where		DC.W	5,5
RstEvt1modifiers	DC.W	0
RstEvt2
RstEvt2what			DC.W	mButUpEvt+evtMouseLocal+evtIsUnimportant
RstEvt2message		DC.L	0
RstEvt2when			DC.L	0
RstEvt2where		DC.W	5,5
RstEvt2modifiers	DC.W	$80
RstEvt3
RstEvt3what			DC.W	app4Evt
RstEvt3message		DC.B	((GridOnOffEntry-EntriesTop)/6)+2,0,0,0
RstEvt3when			DC.L	0
RstEvt3where		DC.W	0,0
RstEvt3modifiers	DC.W	$80
RstEvtListBottom

RstEvtCode
					SUBQ	#4,SP					;make room for result
					MOVE.W	#LayoutMenuID,-(SP)		;push menu id
					_GetMHandle
					TST.L	(SP)					;could we find it (might be DA menubar)
					BNE.S	RstEvtCodeFoundLayout	;if so, branch
					MOVE.L	(SP)+,A0				;get rid of 0 on stack and clear A0
					BRA.S	RstEvtCodeDone			;return w/ an error
RstEvtCodeFoundLayout
					MOVE.W	#GridOnOffItem,-(SP)	;push item num
					PEA		LayoutItemString		;push address of string	in Layout menu				
					_GetItem
					
					SUBQ	#4,SP					;make room for result
					MOVE.L	#'MENU',-(SP)
					MOVE.W	#ExtraMenuID,-(SP)		;push menu id
					_GetResource
					MOVE.W	#ExtraGridOffItem,-(SP)	;push item num
					PEA		ExtraItemString			;push address of string	in Layout menu				
					_GetItem
					
					MOVEQ.L	#0,D0					;clear out d0
					LEA		LayoutItemString,A0
					MOVE.B	(A0)+,D0				;d0.w <- length of LayoutItemString
					SWAP	D0
					LEA		ExtraItemString,A1
					MOVE.B	(A1)+,D0				;d0.w <- length of LayoutItemString
					_CmpString
					LEA		RstEvt3what,A0			;get data to be set in A0
					BEQ.S	RstEvtCodeAreEqual		;branch if strings were equal
					MOVE.W	#nullEvt,(A0)			;don't do menu selection
					BRA.S	RstEvtCodeMakeHdl
RstEvtCodeAreEqual
					MOVE.W	#app4Evt,(A0)			;do menu selection
RstEvtCodeMakeHdl
					LEA		RstEvtList,A0			;get top of list
					MOVE.L	#RstEvtListBottom-RstEvtList,D0	;get size of list
					_PtrToHand
					BEQ.S	RstEvtCodeDone			;if no error, branch
					SUB.L	A0,A0					;clear out a0
RstEvtCodeDone
					MOVE.L	(SP)+,A1				;get return address
					ADDQ.W	#4,SP					;get rid of parameter
					MOVE.L	A0,(SP)					;handle is return value
					JMP		(A1)
					
LayoutItemString	DC.L	0,0,0,0,0,0					
ExtraItemString		DC.L	0,0,0,0,0,0
					

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+evtMouseLocal+evtIsImportant
SREvt1message		DC.L	0
SREvt1when			DC.L	0
SREvt1where			DC.W	5,5
SREvt1modifiers		DC.W	0
SREvt2
SREvt2what			DC.W	mButUpEvt+evtMouseLocal+evtIsUnimportant
SREvt2message		DC.L	0
SREvt2when			DC.L	0
SREvt2where			DC.W	5,5
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

OREvtList
OREvtListOffset		DC.L	6
OREvtListCount		DC.W	(OREvtListBottom-OREvt11)/evtBlkSize
OREvt11
OREvt11what			DC.W	mButDwnEvt+evtMouseLocal+evtIsImportant
OREvt11message		DC.L	0
OREvt11when			DC.L	0
OREvt11where		DC.W	42,10
OREvt11modifiers	DC.W	0
OREvt12
OREvt12what			DC.W	mButUpEvt+evtMouseLocal+evtIsUnimportant
OREvt12message		DC.L	0
OREvt12when			DC.L	0
OREvt12where		DC.W	42,10
OREvt12modifiers	DC.W	$80
OREvt13
OREvt13what			DC.W	mButDwnEvt+evtMouseEither+evtIsImportant
OREvt13message		DC.L	0
OREvt13when			DC.L	0
ORParam11LocStart
OREvt13where		DC.W	0,0
ORParam11LocEnd
OREvt13modifiers	DC.W	0
OREvt14
OREvt14what			DC.W	mButUpEvt+evtMouseEither+evtIsUnimportant
OREvt14message		DC.L	0
OREvt14when			DC.L	0
ORParam12LocStart
OREvt14where		DC.W	0,0
ORParam12LocEnd
OREvt14modifiers	DC.W	$80
OREvt21
OREvt21what			DC.W	mButDwnEvt+evtMouseLocal+evtIsImportant
OREvt21message		DC.L	0
OREvt21when			DC.L	0
OREvt21where		DC.W	42,10
OREvt21modifiers	DC.W	0
OREvt22
OREvt22what			DC.W	mButUpEvt+evtMouseLocal+evtIsUnimportant
OREvt22message		DC.L	0
OREvt22when			DC.L	0
OREvt22where		DC.W	42,10
OREvt22modifiers	DC.W	$80
OREvt23
OREvt23what			DC.W	mButDwnEvt+evtMouseEither+evtIsImportant
OREvt23message		DC.L	0
OREvt23when			DC.L	0
ORParam21LocStart
OREvt23where		DC.W	0,0
ORParam21LocEnd
OREvt23modifiers	DC.W	0
OREvt24
OREvt24what			DC.W	mButUpEvt+evtMouseEither+evtIsUnimportant
OREvt24message		DC.L	0
OREvt24when			DC.L	0
ORParam22LocStart
OREvt24where		DC.W	0,0
ORParam22LocEnd
OREvt24modifiers	DC.W	$80
OREvt31
OREvt31what			DC.W	mButDwnEvt+evtMouseLocal+evtIsImportant
OREvt31message		DC.L	0
OREvt31when			DC.L	0
OREvt31where		DC.W	42,10
OREvt31modifiers	DC.W	0
OREvt32
OREvt32what			DC.W	mButUpEvt+evtMouseLocal+evtIsUnimportant
OREvt32message		DC.L	0
OREvt32when			DC.L	0
OREvt32where		DC.W	42,10
OREvt32modifiers	DC.W	$80
OREvt33
OREvt33what			DC.W	mButDwnEvt+evtMouseEither+evtIsImportant
OREvt33message		DC.L	0
OREvt33when			DC.L	0
ORParam31LocStart
OREvt33where		DC.W	0,0
ORParam31LocEnd
OREvt33modifiers	DC.W	0
OREvt34
OREvt34what			DC.W	mButUpEvt+evtMouseEither+evtIsUnimportant
OREvt34message		DC.L	0
OREvt34when			DC.L	0
ORParam32LocStart
OREvt34where		DC.W	0,0
ORParam32LocEnd
OREvt34modifiers	DC.W	$80
OREvt41
OREvt41what			DC.W	mButDwnEvt+evtMouseLocal+evtIsImportant
OREvt41message		DC.L	0
OREvt41when			DC.L	0
OREvt41where		DC.W	42,10
OREvt41modifiers	DC.W	0
OREvt42
OREvt42what			DC.W	mButUpEvt+evtMouseLocal+evtIsUnimportant
OREvt42message		DC.L	0
OREvt42when			DC.L	0
OREvt42where		DC.W	42,10
OREvt42modifiers	DC.W	$80
OREvt43
OREvt43what			DC.W	mButDwnEvt+evtMouseEither+evtIsImportant
OREvt43message		DC.L	0
OREvt43when			DC.L	0
ORParam41LocStart
OREvt43where		DC.W	0,0
ORParam41LocEnd
OREvt43modifiers	DC.W	0
OREvt44
OREvt44what			DC.W	mButUpEvt+evtMouseEither+evtIsUnimportant
OREvt44message		DC.L	0
OREvt44when			DC.L	0
ORParam42LocStart
OREvt44where		DC.W	0,0
ORParam42LocEnd
OREvt44modifiers	DC.W	$80
OREvtListBottom

OREvtCodeErr
					CLR.L	8(SP)						;return 0
					MOVE.L	(SP)+,(SP)					;trash the param
					RTS
OREvtCode
					LEA		OREvtList,A0				;addr of list
					MOVE.L	#OREvtListBottom-OREvtList,D0	;size of list
					_PtrToHand							;get copy
					BNE.S	OREvtCodeErr				;if error, branch
					MOVE.L	(SP)+,D0					;get ret addr
					MOVE.L	(SP)+,A1					;get evt record
					MOVE.L	A0,(SP)						;handle is retrun value
					MOVE.L	D0,-(SP)					;put back ret addr
					
; Here comes a whole lotta parameter stuffing...  It may look stupid to AND
; the message field with a constant, rather than the lomem LO3BYTES, and it is.
; The reason is that the pstEventList puppet event message field is defined to
; hold a pointer in the low three bytes.  Ergo, this is not a stripaddress
; operation, it is a field extraction operation.
					MOVE.L	(A0),A0						;hdl->ptr of evt list
					MOVE.L	evtMessage(A1),D0			;get pointer to param block
					ANDI.L	#$0FFFFFF,D0				;mask it to size
					MOVEA.L	D0,A1						;stick it in address reg

; Do param subst for ulh of rect
					MOVE.W	(A1),ORParam11LocStart-OREvtList(A0)
					MOVE.W	(A1),ORParam12LocStart-OREvtList(A0)
					MOVE.W	(A1),ORParam21LocStart-OREvtList(A0)
					MOVE.W	(A1)+,ORParam42LocStart-OREvtList(A0)
					MOVE.W	(A1),ORParam11LocStart-OREvtList+2(A0)
					MOVE.W	(A1),ORParam32LocStart-OREvtList+2(A0)
					MOVE.W	(A1),ORParam41LocStart-OREvtList+2(A0)
					MOVE.W	(A1)+,ORParam42LocStart-OREvtList+2(A0)

; Do param subst for lrh of rect
					MOVE.W	(A1),ORParam22LocStart-OREvtList(A0)
					MOVE.W	(A1),ORParam31LocStart-OREvtList(A0)
					MOVE.W	(A1),ORParam32LocStart-OREvtList(A0)
					MOVE.W	(A1)+,ORParam41LocStart-OREvtList(A0)
					MOVE.W	(A1),ORParam12LocStart-OREvtList+2(A0)
					MOVE.W	(A1),ORParam21LocStart-OREvtList+2(A0)
					MOVE.W	(A1),ORParam22LocStart-OREvtList+2(A0)
					MOVE.W	(A1),ORParam31LocStart-OREvtList+2(A0)

					RTS

					END