; Version: 3.29
; Created: Friday, October 20, 1989 at 10:06:13 PM
;
; File: Traps.a
;
; Assembler Interface to the Macintosh Libraries
; Copyright Apple Computer, Inc. 1984-1992
; All Rights Reserved.
;
;	Change History (most recent first):
;
;	  <SM18>	 9/13/93	SAM		Removed the 24bit conds around the removate of SwapMMUMode,
;									StripAddress, and Translate24to32.  I also removed all the
;									redefinitions of Translate24to32 throughout the sources.
;	  <SMG2>	  9/1/93	chp		Took out _DMAIntInstall again. No one needs it now.
;	  <SM16>	 7/21/93	RC		back out <sm 15>
;	  <SM14>	 6/14/93	kc		Roll in Ludwig. (leave behind _DMAIntInstall for SAM)
;	   <LW5>	 4/26/93	KW		SM and Reality already use selector #11 that Ludwig was using
;									for SlotBlockXferCtl...so bump SlotBlockXferCtl's selector to 12
;	   <LW4>	 3/24/93	mal		Added _SlotBlockXferCtl trap.
;	   <LW3>	 3/16/93	chp		Remove obsolete DMAMgr macros to _HwPriv.
;	  <SM14> 	  4/7/93	CSS		Re-disable StripAddress and SwapMMUMode when
;									Supports24Bit is off.
;	  <SM13>	 3/30/93	IH		Add Display Manager Trap
;	  <SM12>	 11/16/92	CSS		Rollins from Reality:
;									<80> 11/7/92	JDR		Added _GetStdFilterProc, _SetDialogDefaultItem,
;															_SetDialogCancelItem, _SetDialogTracksCursor which are now
;															public.
;	  <SM11>	 11/10/92	CSS		Rollins from Reality:
;									<79> 10/17/92	PKE		For New IM: Add OPWORDs for new names for old routines TextBox,
;															TESetJust, Secs2Date, Date2Secs, KeyTrans, UprString.
;									<78> 10/16/92	DTY		Add BlockMoveData.
;									<77> 5/27/92	hsK		#1030902,<YK>: Remove the Dictionary manager dispatch macros and
;															put them into the new DictionaryEqu.a file.
;									<76> 5/13/92	hsK		#1029463: Changed the paramWordsInitializeDictionary to 5.
;									<75> 4/21/92	DTY		#1018901,<gbm>: Add GetNextFOND routine.  This routine will
;															return the next 'FOND' resource in the resource chain after the
;															one that was passed in.  This routine was needed because font
;															families can now be split across several files.
;	  <SM10>	 11/9/92	RB		Re-enable StripAddress and SwapMMUMode for non-24 bit mode,
;									since the slot manager requires this for the PrimaryInit of
;									video cards. PrimaryInit executes in 24 bit mode.
;	   <SM9>	 10/22/92	CSS		Added a check for Supports24Bit which if not defined means
;									that the calls StripAddress and SwapMMUMode should be nops.
;									Also, added ROMFastTraps to do direct trap calling rather than
;									use the atrap mechanism.  The call still goes through the trap table,
;									however.  Don't forget to turn the flag ROMFastTraps on in StandardEqu.a
;									when you wish to enable this feature.
;	   <SM8>	 6/19/92	RB		Updated the DMADispatch macros to use a HWPriv selector.
;									DMADispatch was a temporary trap previously.
;	   <SM7>	 6/10/92	CSS		Roll-in changes from Reality:
;									<77> 5/27/92	hsK	#1030902,<YK>: Remove the Dictionary manager dispatch macros and
;														put them into the new DictionaryEqu.a file.
;									<76> 5/13/92	hsK	#1029463: Changed the paramWordsInitializeDictionary to 5.
;									<74> 3/30/92	DCL	Removed _SndGetBufferStufferLoad and _SndGetMixerLoad. They are
;														not public.
;									<73> 3/10/92	DCL	For New Improved Inside Mac: Added Call names without Abbrevs.:
;														SecsToDate (Secs2Date) and DateToSecs (Date2Secs). Affected
;														Files: OSUtils.[ph], Traps.[aph].
;									<72> 3/9/92		DCL	For New Improved Inside Mac: Added Call names without Abbrevs.:
;														AppendResMenu (AddResMenu), DeleteMCEntries (DelMCEntries),
;														DeleteMenuItem (DelMenuItem), DisposeMCInfo (DispMCInfo),
;														GetMenuHandle (GetMHandle), InsertMenuItem (InsMenuItem),
;														SetMenuItemText (SetItem), GetMenuItemText (GetItem). Affected
;														Files: Menus.[ph], Traps.[aph].
;									<71> 2/18/92 	MH	Add defs, alternate spellings, and corrected Casing of some
;														labels to bring into concordance with the ETO 6 versions of
;														traps.a, traps.h and traps.p.  _Translate24To32 is temporarily
;														commented out until conflicts with other defintitions in the BBS
;														private sources can be resolved.  Please make sure that the
;														definition continues to be available in public releases of this
;														file.

;	   <SM6>	 5/20/92	KW		Rolled in P4,P5 from Cyclone
;	   <SM5>	 5/17/92	kc		Roll in Horror Changes. Comments follow:
;		<H4>	 3/11/92	SWC		Added _CursorADBDispatch OPWORD ($AADB) for new cursor code.
;									Note Brian McGhie's sense of humor...
;		<H3>	 2/14/92	SWC		Added _DockingDispatch OPWORD for docking code.
;		<H2>	01/27/92	jmp		(BG,Z6) Added _SoundDispatch OPWORD and a macro,
;									_SndSoundManagerVersion that makes use of it.
;		<SM1>	 4/24/92	CS		Integrate change <75> from reality for resource manager changes:
;									<75> 4/21/92 DTY 	#1018901,<gbm>: Add GetNextFOND routine. This routine will
;														return the next 'FOND' resource in the resource chain after the
;														one that was passed in.  This routine was needed because font
;														families can now be split across several files.
;----------------------------------------------------
;	Pre SuperMario Comments below
;----------------------------------------------------
;		<70>	 1/23/92	hsK		Changed the paramWordsInitializeDictionary  to 4.
;		<69>	12/26/91	RB		Added _PowerDispatch trap
;		<68>	11/21/91	YK		InputUtils were gone.  I'm happy to be able to do this.
;		<67>	10/30/91	YK		Corrected previous change.
;		<66>	10/30/91	YK		Added _ComponentDispatch trap number and its dispatch entries.
;		<65>	10/24/91	JH		Changed paramWordsInitializeDictionary from 6 to 5.
;		<64>	10/23/91	YK		Adding trap number for InputUtilsDispatch ($AA54) along with the
;									pack like dispatch routines.
;		<63>	10/17/91	JH		Adding trap number for DictionaryDispatch ($AA53) along with the
;									pack like dispatch routines.
;		<62>	 8/14/91	JL		Fixed DoDispatch macro for case sensitive assembling. Added
;									&upCase to determine if trap value is truly an opword or not.
;		<61>	  2/5/91	stb		dnf,dnf003: set the HFS bit (10 in the trap word) for all HFS
;									calls which have a dirID (CatSearch, Get|SetForeignPrivs) and
;									whose macros are currently wrong; privatize SaveRestoreBits.
;		<60>	 1/30/91	gbm		sab, #38: Change the ‘already including this file’ variable to
;									all uppercase (for security reasons)
;		<59>	 1/23/91	JL		fixed DebugUtil macros. They weren't using the correct name for
;									the selector.
;		<58>	 1/16/91	dnf		(DFH) Move SetupWDCB, SetupDef and ReadWDCB back in here.
;		<57>	 1/15/91	KON		Change capitalization on Pixmap32Bit to read PixMap32Bit. [csd]
;		<56>	  1/9/91	KON		GWorld trap macros need to set the high word of the selector to
;									the size of the parameter list. [CEL]
;		<55>	12/14/90	dba		<JDR> add MemoryDispatch calls, low-level debugging calls,
;									outline font calls, and made more use of the standard dispatcher
;									macro
;		<54>	12/11/90	JDR		KIP Adding the Sound Manager trap macros for the dispatched
;									routines.
;		<53>	 12/7/90	dba		<bbm/gbm> Add ResourceDispatch, ReadPartialResource,
;									WritePartialResource, and SetResourceSize.
;		<52>	 12/3/90	RLC		<ksm> Remove the dialog mgr private macros.
;		<51>	11/12/90	JL		Changed lower case equ to uppercase EQU to match MPW interfaces.
;		<50>	 11/2/90	DFH		Added new names for temp memory calls.
;		<49>	 9/25/90	JDR		Updating the Sound Manager traps and selectors.
;		<48>	 9/22/90	dnf		Add hfs selectors from AppleShare-land (dispatch values for
;									GetXCatInfo and volume mount calls)
;		<47>	 9/21/90	gbm		(Actually DDG) Fixed the picture utilities routine selectors to
;									use ProcHelper.
;		<46>	 9/19/90	DDG		Added the picture utilities routines.
;		<45>	 9/15/90	DC		Added interface for GetGray
;		<44>	 9/15/90	KON		Add CopyDeepMask and OpenCPicture traps.
;		<43>	 9/14/90	csd		Added _DeviceLoop
;		<42>	 8/30/90	KSM		Fix param words for Dialog Dispatcher.
;		<41>	 8/29/90	dnf		Add FSpExchangeFiles
;		<40>	 8/20/90	dvb		Remove "DrawGrayishString"
;		<39>	  8/6/90	dnf		Renumber selectors for _FSp traps
;		<38>	  8/6/90	dnf		Add macros for _MakeFSSpec and _FSp traps
;		<37>	  8/1/90	SAM		Added GetGestaltProcPtr definition.
;		<36>	 7/25/90	DFH		Removed InitApplication and CleanupApplication for good.
;		<35>	 7/24/90	DFH		Temporarily put InitApplication and CleanupApplication back in
;		<34>	 7/24/90	DFH		Removed _InitApplication and _CleanupApplication, since these
;									are private traps.
;		<33>	 7/14/90	DVB		Add DeltaRGB, CheckColors, and DrawGrayishString
;		<32>	  7/2/90	KSM		Add _GetStdFilterProc.
;		<31>	 6/28/90	DTY		Change _ScrollDelay to use DoDispatch macro.
;		<30>	 6/19/90	DVB		Add Get/SetPaletteUpdates
;		<29>	  6/8/90	KSM		Selectors for DialogDispatch should be public.
;		<28>	  6/7/90	KSM		Add DialogMgr dispatcher and IsFrontWindowModal.
;		<27>	  6/2/90	dnf		Change MakeFSSpec to A260 (i.e. hfsBit on) from A060.
;		<26>	 5/31/90	CL		Adding parameter count into the QDDone macro.
;		<25>	 5/30/90	DC		Added IconDispatch
;		<24>	 5/30/90	EMT		Added LayerDispatch trap.
;		<23>	 5/29/90	CL		Added QDDone macro and selector.
;		<22>	 5/24/90	KSM		Add ModalDialogMenuSetup trap.
;		<21>	 5/16/90	KON		Add OpenCPicture trap.
;		<20>	  5/4/90	dnf		Add MakeFSSpec dispatch macro
;		<18>	 4/29/90	KSM		Update the DoDispatch macro to remove assumptions about
;									assembler optimizations and put in significant error checking.
;		<17>	 4/20/90	KSM		Add InvalMenuBar trap, SaveRestoreBits dispatcher and its
;									macros, updated QDOffscreen macros.
;		<16>	 4/10/90	BBH		added Process Mgr traps _InitApplication and _CleanupApplication
;		<15>	 3/29/90	DVB		Add WhatPal pmgrdispatch
;		<14>	 3/16/90	dnf		Change DTOpen to DTGetPath; DTShutDown to DTCloseDown,
;									DTResetComment to DTClearComment, DTDeleteAPPL to DTRemoveAPPL
;									Moved _SetPMSP back in (from FIleMgrPrivate.a) Added
;									CommToolboxDispatch trap for Byron B. Han
;		<13>	  3/4/90	PKE		Changed LwrText, UprText, StripUprText opwords to LowerText,
;									UpperText, StripUpperText.
;		<12>	 2/26/90			Official MPW Version
;		<11>	  2/5/90	ngk		Change FileID traps from $A060 back to $A260
;		<10>	  2/4/90	GA		Added Trap Macro definition for "EgretDispatch" $A092
;		 <9>	  2/4/90	DNF		For some reason the scripts didn't pick up the right comment.
;									This change is really 7+
;		 <8>
;		<7+>	 1/30/90	DNF 	(with dba) renamed FSDispatch selectors and some traps.  dba
;									also replaced constants with symbols in the Palette Manager,
;									QDDispatch, and MFPrivate dispatch traps, as well as adding
;									a few synonyms with better spelling, adjusting formatting,
;									comments and generally making the file to his liking.
;		 <7>	 1/29/90	DVB 	Add argument-counts to PaletteDispatchs, add PMgrVersion trap
;		 <6>	 1/18/90	DNF 	(with dba) temporarily rename _GetIcon in the Desktop Database
;									Mgr. to avoid conflict with _GetIcon from the Toolbox Utilities;
;									also changed _HFSDispatch back to $A260 and used _FSDispatch for
;									$A060
;		 <5>	 1/14/90	DNF 	Fix fsControl macro
;		 <4>	 1/11/90	DVB 	Move the Palette Manager dispatches from PaletteEqu.a to here.
;		 <3>	  1/9/90	DNF 	Fix syntax errors in calls to DoHFSDispatch
;		 <2>	  1/9/90	DNF 	Replace constants with equates in HFS dispatch macros.	New
;									macro also allows new _HFSDispatch traps with the newHFS bit as
;									an input (i.e. not always on)
;	   <2.2>	 12/8/89	dnf 	Added new hfs traps (CatSearch, File ID's)
;	   <2.3>	 12/8/89	dnf 	Fix _FSCleanup macro
;	   <2.1>	11/20/89	EMT 	NEEDED FOR 6.0.5: Added _UserDelay trap for humane scrolling.
;	   <2.0>	 11/3/89	MSH 	Rolled new HcMac traps in from Reality sources:IdleUpdate,
;									IdleState,
;	   <1.9>	 9/19/89	PKE 	Added _StripText, _UprText, _StripUprText as names for new
;									flavors of _LwrString trap, and _LwrText as synonym for plain
;									old _LwrString.
;	   <1.8>	 8/30/89	dba 	added newHFS flag equate; made more similar to MPW 3.1b1
;	   <1.7>	  8/7/89	CCH 	Added _NewGestalt and _ReplaceGestalt traps.
;	   <1.6>	 5/20/89	GGD 	Moved the IOP manager trap definitions into Traps.a
;	   <1.5>	 5/18/89	CCH 	Changed _Gestalt trap to $A1AD.
;	   <1.4>	 4/23/89	PKE 	Moved _LwrString definition here (from ScriptEqu.a) to match
;									MPW.
;	   <1.3>	 2/24/89	rwh 	added HwPriv traps
;	   <1.2>	 2/21/89	CCH 	Added _Gestalt, _NewGestalt, _AlterGestalt, and _RemoveGestalt
;									traps.
;	   <1.1>	 1/28/89	GGD 	Added _InsXTime extended variant of _InsTime trap.
;	   <1.0>	 11/9/88	CCH 	Adding to EASE.
;	   <1.3>	10/18/88	MSH 	Added _NMInstall and _NMRemove traps..
;	   <1.2>	10/12/88	BBM 	added poweroff trap.
;	  <•1.1>	 9/14/88	CCH 	Updated EASE with the current rev of this file.
;				10/15/87	KLH 	Corrected _SetCPortPix to _SetPortPix.
;				 8/24/87	KLH 	Corrected _GetTimeout & _SetTimeout macros to have data in D0.
;				 6/11/87	KLH 	Removed PBSetPEOF per Bill Bruffey.
;				  6/4/87	KLH 	added _DebugStr.
;				 5/23/87	KLH 	added _WaitNextEvent, _ShutDown & _Unimplemented.
;				 4/28/87	KLH 	moved _SysEnvirons trap here from EnvironsEqu.a
;				 3/25/87	KLH 	_OpenCPicture removed because not needed (per DAF).
;				 3/23/87	KLH 	_CloseCPort trap # changed back to $A87D.
;				 2/26/87	KLH 	moved _SlotManager trap here from SlotTraps.a library.
;	  <C669>	 1/22/87	bbm 	fixed new resource manager trap ($A80C, not $A08C).
;	  <C666>	 1/22/87	DAF 	added DelSearch and DelComp traps
;	  <C628>	 1/14/87	bbm 	added new resource manager trap.
;	  <C637>	 1/14/87	EHB 	Added device/dispose traps
;	  <C544>	12/18/86	DAF 	Changed the name of SetEntry to SetEntries
;	  <C531>	12/15/86	FJL 	Tear off menu support, etc.
;	  <C532>	12/15/86	FJL 	Background notification manager support
;	  <C506>	12/11/86	GWN 	Added _GetOSDefault and _SETOSDefault. Enabled A345.
;	  <C496>	 12/9/86	DAF 	Added _GetWVariant,_GetCVariant,_SaveEntries,_RestoreEntries,
;	  <C489>	 12/8/86	RDC 	Added new DTInstall trap definition
;	  <C335>	 12/3/86	JSP 	Changed the three MMU traps to one (SwapMMUMode)
;	  <A296>	10/29/86	WRL 	Added traps for Get and Set DefaultStartup
;	  <A231>	10/16/86	MBK 	added traps for TextEdit
;	  <Cxxx>	10/14/86	EHB 	added traps for cursor routines
;	  <C212>	10/13/86	CSL 	changed name of ADBReset to ADBReInit
;	  <C147>	10/11/86	RDC 	added new OS traps for NuMac VBL handling
;	  <C172>	 9/24/86	BBM 	added macro for stripaddress
;				 9/23/86	NSJ 	new this date
;
;___________________________________________________________________________

	IF &TYPE('__INCLUDINGTRAPS__') = 'UNDEFINED' THEN
__INCLUDINGTRAPS__	SET	1

	IF (&TYPE('ROMFastTraps') = 'UNDEFINED') THEN
		IF (&TYPE('StandardEquROMFastTraps') = 'UNDEFINED') THEN
DoROMFastTraps SET 0
		ELSE
DoROMFastTraps SET StandardEquROMFastTraps
		ENDIF
	ELSE
DoROMFastTraps SET ROMFastTraps
	ENDIF

	IF (&TYPE('Supports24Bit') = 'UNDEFINED') THEN
		IF (&TYPE('StandardEquSupports24Bit') = 'UNDEFINED') THEN
DoSupports24Bit SET 0
		ELSE
DoSupports24Bit	SET StandardEquSupports24Bit
		ENDIF
	ELSE
DoSupports24Bit SET Supports24Bit
	ENDIF

; Equates for setting trap option bits

; for Device and File Manager routines

immed			EQU 		$200					; execute immediately, bypass I/O queue
async			EQU 		$400					; asynchronous, don't wait for completion

; for Memory Manager routines

clear			EQU 		$200
sys 			EQU 		$400

; for string routines

marks			EQU 		$200					; set to ignore/strip diacriticals
case			EQU 		$400					; set for case sensitivity

; for all Toolbox routines

autoPop 		EQU 		$400					; set to pop an extra return address


; for Get/Set & NGet/NSet TrapAddress

newTool   		EQU 		$600      				; Toolbox trap, under new ordering
newOS 			EQU 		$200      				; OS trap, under new ordering

; for HFS routines

newHFS			EQU 		$200

; Dispatch Macros (compatible with DispatchHelper macro)
;
; DoDispatch TrapRef,Selector[,ParamWords]

;	Purpose:	Sets up for a call to a trap that is a dispatching trap.
;
;	Inputs:		TrapRef - 		the dispatching trap number (i.e. $A8xx or _MyTrap)
;				Selector - 		the trap selector number (-128 thru 127 only!)
;				[,ParamWords] - (optional) number of WORDS of parameters this call takes
;
;	Outputs:	The output of this macro depends on its input, however, in general it produces:
;						MOVEQ	#Selector, D0
;						_MyTrap
;				or
;						MOVEQ	#Selector, D0
;						DC.W	$AFFF				; No opword is defined for $AFFF yet
;
;	WARNING:
;				Note: If you do not specify “ParamWords”, it assumes that:
;					The routine you are dispatching to is a procedure
;						--- AND ---
;					If you are using the DispatchHelper macro, you must insure
;					that this routine __NEVER__ goes away.
;					(The helper will assume that this “procedure” returns an OSErr
;					and will mess up your stack for you, free of charge).

		MACRO
		DoDispatch &trapRef,&selector,&paramWords
			lcla &selectorNum
			lcla &paramCount

			&selectorNum: seta &eval(&selector)
			if (&selectorNum > 127) OR (&selectorNum < -128) then
				aerror &CONCAT('Selector number for ', &TrapRef, ' “',&selector, '” is outside the range -128 to 127')
				exitm
			endif

			if (&paramWords = '') then
				&paramCount: seta 0					; Procedure call if &paramWords was not specified
			else
				&paramCount: seta &eval(&paramWords)
			endif
			if (&paramCount < 0) OR (&paramCount > 255) then
				aerror &CONCAT('Parameter words for ', &trapRef, ' “',&paramWords, '” is outside the range 0-255')
				exitm
			endif

			if &paramCount = 0 then
				moveq #&selectorNum, D0				; move the selector into D0 quickly
			else
				&paramCount: seta (&paramCount << 8) + (&selectorNum AND $ff)
				move.w #&paramCount, D0				; move the selector into D0
			endif

			if &type(&upcase(&trapRef)) ≠ 'OPWORD' then
				dc.w &trapRef
				exitm
			endif
			&trapRef
		ENDM

; QuickDraw

	IF NOT (DoROMFastTraps) THEN
_CopyMask 		OPWORD  	$A817
	ELSE
		MACRO
		_CopyMask
		lclc &OLDMACH
&OLDMACH SETC	&Setting('MACHINE')		; save the current Machine setting
		MACHINE	MC68020
		JSR		([$E00+$17*4])
		MACHINE	&OLDMACH
		ENDM
	ENDIF
	
_MeasureText  	OPWORD  	$A837
_GetMaskTable 	OPWORD  	$A836
_CalcMask 		OPWORD  	$A838
_SeedFill 		OPWORD  	$A839
_InitCursor   	OPWORD  	$A850
_SetCursor		OPWORD  	$A851
_HideCursor   	OPWORD  	$A852
_ShowCursor   	OPWORD  	$A853
_ShieldCursor 	OPWORD  	$A855
_ObscureCursor	OPWORD  	$A856
_BitAnd   		OPWORD  	$A858
_BitXOr   		OPWORD  	$A859
_BitNot   		OPWORD  	$A85A
_BitOr			OPWORD  	$A85B
_BitShift 		OPWORD  	$A85C
_BitTst   		OPWORD  	$A85D
_BitSet   		OPWORD  	$A85E
_BitClr   		OPWORD  	$A85F
_Random   		OPWORD  	$A861
_ForeColor		OPWORD  	$A862
_BackColor		OPWORD  	$A863
_ColorBit 		OPWORD  	$A864
_GetPixel 		OPWORD  	$A865
_StuffHex 		OPWORD  	$A866
_LongMul  		OPWORD  	$A867
_FixMul   		OPWORD  	$A868
_FixRatio 		OPWORD  	$A869
_HiWord   		OPWORD  	$A86A
_LoWord   		OPWORD  	$A86B
_FixRound 		OPWORD  	$A86C
_InitPort 		OPWORD  	$A86D
_InitGraf 		OPWORD  	$A86E
_OpenPort 		OPWORD  	$A86F
_LocalToGlobal	OPWORD  	$A870
_GlobalToLocal	OPWORD  	$A871
_GrafDevice   	OPWORD  	$A872
_SetPort  		OPWORD  	$A873
_GetPort  		OPWORD  	$A874
_SetPBits 		OPWORD  	$A875
_PortSize 		OPWORD  	$A876
_MovePortTo   	OPWORD  	$A877
_SetOrigin		OPWORD  	$A878
_SetClip  		OPWORD  	$A879
_GetClip  		OPWORD  	$A87A
_ClipRect 		OPWORD  	$A87B
_BackPat  		OPWORD  	$A87C
_ClosePort		OPWORD  	$A87D
_AddPt			OPWORD  	$A87E
_SubPt			OPWORD  	$A87F
_SetPt			OPWORD  	$A880
_EqualPt  		OPWORD  	$A881
_StdText  		OPWORD  	$A882
_DrawChar 		OPWORD  	$A883
_DrawString   	OPWORD  	$A884
_DrawText 		OPWORD  	$A885
_TextWidth		OPWORD  	$A886
_TextFont 		OPWORD  	$A887
_TextFace 		OPWORD  	$A888
_TextMode 		OPWORD  	$A889
_TextSize 		OPWORD  	$A88A
_GetFontInfo  	OPWORD  	$A88B
_StringWidth  	OPWORD  	$A88C
_CharWidth		OPWORD  	$A88D
_SpaceExtra   	OPWORD  	$A88E
_StdLine  		OPWORD  	$A890
_LineTo   		OPWORD  	$A891
_Line 			OPWORD  	$A892
_MoveTo   		OPWORD  	$A893
_Move 			OPWORD  	$A894
_ShutDown 		OPWORD  	$A895
_HidePen  		OPWORD  	$A896
_ShowPen  		OPWORD  	$A897
_GetPenState  	OPWORD  	$A898
_SetPenState  	OPWORD  	$A899
_GetPen   		OPWORD  	$A89A
_PenSize  		OPWORD  	$A89B
_PenMode  		OPWORD  	$A89C
_PenPat   		OPWORD  	$A89D
_PenNormal		OPWORD  	$A89E
_Unimplemented	OPWORD  	$A89F
_StdRect  		OPWORD  	$A8A0
_FrameRect		OPWORD  	$A8A1

	
	IF NOT (DoROMFastTraps) THEN
_PaintRect		OPWORD  	$A8A2
_EraseRect		OPWORD  	$A8A3
_InverRect		OPWORD  	$A8A4
_FillRect 		OPWORD  	$A8A5
	ELSE
		MACRO
		_PaintRect			
		lclc &OLDMACH
&OLDMACH SETC	&Setting('MACHINE')		; save the current Machine setting
		MACHINE	MC68020
		JSR		([$E00+$A2*4])
		MACHINE &OLDMACH
		ENDM

		MACRO
		_EraseRect			
		lclc &OLDMACH
&OLDMACH SETC	&Setting('MACHINE')		; save the current Machine setting
		MACHINE	MC68020
		JSR		([$E00+$A3*4])
		MACHINE	&OLDMACH
		ENDM
	
		MACRO
		_InverRect			
		lclc &OLDMACH
&OLDMACH SETC	&Setting('MACHINE')		; save the current Machine setting
		MACHINE	MC68020
		JSR		([$E00+$A4*4])
		MACHINE	&OLDMACH
		ENDM
	
		MACRO
		_FillRect			
		lclc &OLDMACH
&OLDMACH SETC &Setting('MACHINE')		; save the current Machine setting
		MACHINE	MC68020
		JSR		([$E00+$A5*4])
		MACHINE	&OLDMACH
		ENDM

	ENDIF

_EqualRect		OPWORD  	$A8A6
_SetRect  		OPWORD  	$A8A7
_OffsetRect   	OPWORD  	$A8A8
_InsetRect		OPWORD  	$A8A9
_SectRect 		OPWORD  	$A8AA
_UnionRect		OPWORD  	$A8AB
_Pt2Rect  		OPWORD  	$A8AC
_PtInRect 		OPWORD  	$A8AD
_EmptyRect		OPWORD  	$A8AE
_StdRRect 		OPWORD  	$A8AF
_FrameRoundRect	OPWORD  	$A8B0
_PaintRoundRect	OPWORD  	$A8B1
_EraseRoundRect	OPWORD  	$A8B2
_InverRoundRect	OPWORD  	$A8B3
_FillRoundRect	OPWORD  	$A8B4
_StdOval  		OPWORD  	$A8B6
_FrameOval		OPWORD  	$A8B7
_PaintOval		OPWORD  	$A8B8
_EraseOval		OPWORD  	$A8B9
_InvertOval   	OPWORD  	$A8BA
_FillOval 		OPWORD  	$A8BB
_SlopeFromAngle	OPWORD  	$A8BC
_StdArc   		OPWORD  	$A8BD
_FrameArc 		OPWORD  	$A8BE
_PaintArc 		OPWORD  	$A8BF
_EraseArc 		OPWORD  	$A8C0
_InvertArc		OPWORD  	$A8C1
_FillArc  		OPWORD  	$A8C2
_PtToAngle		OPWORD  	$A8C3
_AngleFromSlope	OPWORD  	$A8C4
_StdPoly  		OPWORD  	$A8C5
_FramePoly		OPWORD  	$A8C6
_PaintPoly		OPWORD  	$A8C7
_ErasePoly		OPWORD  	$A8C8
_InvertPoly   	OPWORD  	$A8C9
_FillPoly 		OPWORD  	$A8CA
_OpenPoly 		OPWORD  	$A8CB
_ClosePgon		OPWORD  	$A8CC
_ClosePoly		OPWORD  	$A8CC
_KillPoly 		OPWORD  	$A8CD
_OffsetPoly   	OPWORD  	$A8CE
_PackBits 		OPWORD  	$A8CF
_UnpackBits   	OPWORD  	$A8D0
_StdRgn   		OPWORD  	$A8D1
_FrameRgn 		OPWORD  	$A8D2
_PaintRgn 		OPWORD  	$A8D3
_EraseRgn 		OPWORD  	$A8D4
_InverRgn 		OPWORD  	$A8D5
_FillRgn  		OPWORD  	$A8D6
_BitMapRgn		OPWORD		$A8D7
_BitMapToRegion	OPWORD  	$A8D7
_NewRgn   		OPWORD  	$A8D8
_DisposRgn		OPWORD  	$A8D9
_DisposeRgn		OPWORD		$A8D9
_OpenRgn  		OPWORD  	$A8DA
_CloseRgn 		OPWORD  	$A8DB
_CopyRgn  		OPWORD  	$A8DC
_SetEmptyRgn  	OPWORD  	$A8DD
_SetRecRgn		OPWORD  	$A8DE
_RectRgn  		OPWORD  	$A8DF
_OfsetRgn 		OPWORD  	$A8E0
_OffsetRgn		OPWORD  	$A8E0
_InsetRgn 		OPWORD  	$A8E1
_EmptyRgn 		OPWORD  	$A8E2
_EqualRgn 		OPWORD  	$A8E3
_SectRgn  		OPWORD  	$A8E4
_UnionRgn 		OPWORD  	$A8E5
_DiffRgn  		OPWORD  	$A8E6
_XOrRgn   		OPWORD  	$A8E7
_PtInRgn  		OPWORD  	$A8E8
_RectInRgn		OPWORD  	$A8E9
_SetStdProcs  	OPWORD  	$A8EA
_StdBits  		OPWORD  	$A8EB

	IF NOT (DoROMFastTraps) THEN
_CopyBits 		OPWORD  	$A8EC
	ELSE
		MACRO
		_CopyBits			
		lclc &OLDMACH
&OLDMACH SETC	&Setting('MACHINE')		; save the current Machine setting
		MACHINE	MC68020
		JSR		([$E00+$EC*4])
		MACHINE	&OLDMACH
		ENDM
	ENDIF

_StdTxMeas		OPWORD  	$A8ED
_StdGetPic		OPWORD  	$A8EE
_ScrollRect   	OPWORD  	$A8EF
_StdPutPic		OPWORD  	$A8F0
_StdComment   	OPWORD  	$A8F1
_PicComment   	OPWORD  	$A8F2
_OpenPicture  	OPWORD  	$A8F3
_ClosePicture 	OPWORD  	$A8F4
_KillPicture  	OPWORD  	$A8F5
_DrawPicture  	OPWORD  	$A8F6
_Layout			OPWORD		$A8F7			; <71>
_ScalePt  		OPWORD  	$A8F8
_MapPt			OPWORD  	$A8F9
_MapRect  		OPWORD  	$A8FA
_MapRgn   		OPWORD  	$A8FB
_MapPoly  		OPWORD  	$A8FC

; Toolbox

_Count1Resources OPWORD  	$A80D
_Get1IxResource	OPWORD  	$A80E
_Get1IxType   	OPWORD  	$A80F
_Unique1ID		OPWORD  	$A810
_TESelView		OPWORD  	$A811
_TEPinScroll  	OPWORD  	$A812
_TEAutoView   	OPWORD  	$A813
_Pack8			OPWORD  	$A816
_FixATan2 		OPWORD  	$A818
_XMunger  		OPWORD  	$A819
_HOpenResFile 	OPWORD  	$A81A
_HCreateResFile	OPWORD  	$A81B
_Count1Types  	OPWORD  	$A81C
_Get1Resource 	OPWORD  	$A81F
_Get1NamedResource OPWORD 	$A820
_MaxSizeRsrc  	OPWORD  	$A821
_InsMenuItem  	OPWORD  	$A826
_InsertMenuItem	OPWORD  	$A826		;<72>
_HideDItem		OPWORD  	$A827
_ShowDItem		OPWORD  	$A828
_LayerDispatch	OPWORD		$A829
_Pack9			OPWORD  	$A82B
_Pack10   		OPWORD  	$A82C
_Pack11   		OPWORD  	$A82D
_Pack12   		OPWORD  	$A82E
_Pack13   		OPWORD  	$A82F
_Pack14   		OPWORD  	$A830
_Pack15   		OPWORD  	$A831
_ScrnBitMap   	OPWORD  	$A833
_SetFScaleDisable OPWORD  	$A834
_FontMetrics  	OPWORD  	$A835
_ZoomWindow   	OPWORD  	$A83A
_TrackBox 		OPWORD  	$A83B
_PrGlue			OPWORD		$A8FD			; <71>
_InitFonts		OPWORD  	$A8FE
_GetFName 		OPWORD  	$A8FF
_GetFNum  		OPWORD  	$A900
_FMSwapFont   	OPWORD  	$A901
_RealFont 		OPWORD  	$A902
_SetFontLock  	OPWORD  	$A903
_DrawGrowIcon 	OPWORD  	$A904
_DragGrayRgn  	OPWORD  	$A905
_NewString		OPWORD  	$A906
_SetString		OPWORD  	$A907
_ShowHide 		OPWORD  	$A908
_CalcVis  		OPWORD  	$A909
_CalcVBehind  	OPWORD  	$A90A
_ClipAbove		OPWORD  	$A90B
_PaintOne 		OPWORD  	$A90C

	IF NOT (DoROMFastTraps) THEN
_PaintBehind  	OPWORD  	$A90D
	ELSE
		MACRO
		_PaintBehind		
		lclc &OLDMACH
&OLDMACH SETC	&Setting('MACHINE')		; save the current Machine setting
		MACHINE	MC68020
		JSR		([$E00+$10D*4])
		MACHINE	&OLDMACH
		ENDM
	ENDIF
	
_SaveOld  		OPWORD  	$A90E
_DrawNew  		OPWORD  	$A90F
_GetWMgrPort  	OPWORD  	$A910
_CheckUpDate  	OPWORD  	$A911
_InitWindows  	OPWORD  	$A912
_NewWindow		OPWORD  	$A913
_DisposWindow 	OPWORD  	$A914
_DisposeWindow	OPWORD		$A914
_ShowWindow   	OPWORD  	$A915
_HideWindow   	OPWORD  	$A916
_GetWRefCon   	OPWORD  	$A917
_SetWRefCon   	OPWORD  	$A918
_GetWTitle		OPWORD  	$A919
_SetWTitle		OPWORD  	$A91A
_MoveWindow   	OPWORD  	$A91B
_HiliteWindow 	OPWORD  	$A91C
_SizeWindow   	OPWORD  	$A91D
_TrackGoAway  	OPWORD  	$A91E
_SelectWindow 	OPWORD  	$A91F
_BringToFront 	OPWORD  	$A920
_SendBehind   	OPWORD  	$A921
_BeginUpDate  	OPWORD  	$A922
_EndUpDate		OPWORD  	$A923
_FrontWindow  	OPWORD  	$A924
_DragWindow   	OPWORD  	$A925
_DragTheRgn   	OPWORD  	$A926
_InvalRgn 		OPWORD  	$A927
_InvalRect		OPWORD  	$A928
_ValidRgn 		OPWORD  	$A929
_ValidRect		OPWORD  	$A92A
_GrowWindow   	OPWORD  	$A92B
_FindWindow   	OPWORD  	$A92C
_CloseWindow  	OPWORD  	$A92D
_SetWindowPic 	OPWORD  	$A92E
_GetWindowPic 	OPWORD  	$A92F
_InitMenus		OPWORD  	$A930
_NewMenu  		OPWORD  	$A931
_DisposMenu   	OPWORD  	$A932
_DisposeMenu 	OPWORD		$A932
_AppendMenu   	OPWORD  	$A933
_ClearMenuBar 	OPWORD  	$A934
_InsertMenu   	OPWORD  	$A935
_DeleteMenu   	OPWORD  	$A936
_DrawMenuBar  	OPWORD  	$A937
_InvalMenuBar  	OPWORD  	$A81D
_HiliteMenu   	OPWORD  	$A938
_EnableItem   	OPWORD  	$A939
_DisableItem  	OPWORD  	$A93A
_GetMenuBar   	OPWORD  	$A93B
_SetMenuBar   	OPWORD  	$A93C
_MenuSelect   	OPWORD  	$A93D
_MenuKey  		OPWORD  	$A93E
_GetItmIcon   	OPWORD  	$A93F
_SetItmIcon   	OPWORD  	$A940
_GetItmStyle  	OPWORD  	$A941
_SetItmStyle  	OPWORD  	$A942
_GetItmMark   	OPWORD  	$A943
_SetItmMark   	OPWORD  	$A944
_CheckItem		OPWORD  	$A945
_GetItem  		OPWORD  	$A946
_GetMenuItemText	OPWORD  	$A946		;<72>
_SetItem  		OPWORD  	$A947
_SetMenuItemText	OPWORD  	$A947		;<72>
_CalcMenuSize 	OPWORD  	$A948
_GetMHandle   	OPWORD  	$A949
_GetMenuHandle	OPWORD  	$A949		;<72>
_SetMFlash		OPWORD  	$A94A
_PlotIcon 		OPWORD  	$A94B
_FlashMenuBar 	OPWORD  	$A94C
_AddResMenu   	OPWORD  	$A94D
_AppendResMenu 	OPWORD  	$A94D		;<72>
_PinRect  		OPWORD  	$A94E
_DeltaPoint   	OPWORD  	$A94F
_CountMItems  	OPWORD  	$A950
_InsertResMenu	OPWORD  	$A951
_DelMenuItem  	OPWORD  	$A952
_DeleteMenuItem	OPWORD  	$A952		;<72>
_UpdtControl  	OPWORD  	$A953
_NewControl   	OPWORD  	$A954
_DisposControl	OPWORD  	$A955
_DisposeControl	OPWORD		$A955
_KillControls 	OPWORD  	$A956
_ShowControl  	OPWORD  	$A957
_HideControl  	OPWORD  	$A958
_MoveControl  	OPWORD  	$A959
_GetCRefCon   	OPWORD  	$A95A
_SetCRefCon   	OPWORD  	$A95B
_SizeControl  	OPWORD  	$A95C
_HiliteControl	OPWORD  	$A95D
_GetCTitle		OPWORD  	$A95E
_SetCTitle		OPWORD  	$A95F
_GetCtlValue  	OPWORD  	$A960
_GetMinCtl		OPWORD  	$A961
_GetMaxCtl		OPWORD  	$A962
_SetCtlValue  	OPWORD  	$A963
_SetMinCtl		OPWORD  	$A964
_SetMaxCtl		OPWORD  	$A965
_TestControl  	OPWORD  	$A966
_DragControl  	OPWORD  	$A967
_TrackControl 	OPWORD  	$A968
_DrawControls 	OPWORD  	$A969
_GetCtlAction 	OPWORD  	$A96A
_SetCtlAction 	OPWORD  	$A96B
_FindControl  	OPWORD  	$A96C
_Draw1Control 	OPWORD  	$A96D
_Dequeue		OPWORD		$A96E		; <71>
_Enqueue		OPWORD		$A96F		; <71>
_WaitNextEvent	OPWORD  	$A860
_GetNextEvent 	OPWORD  	$A970

	IF NOT (DoROMFastTraps) THEN
_EventAvail   	OPWORD  	$A971
_GetMouse 		OPWORD  	$A972
_StillDown		OPWORD  	$A973
_Button   		OPWORD  	$A974
_TickCount		OPWORD  	$A975
_GetKeys  		OPWORD  	$A976
_WaitMouseUp  	OPWORD  	$A977
	ELSE
		MACRO
		_EventAvail 		
		lclc &OLDMACH
&OLDMACH SETC	&Setting('MACHINE')		; save the current Machine setting
		MACHINE	MC68020
		JSR		([$E00+$171*4])
		MACHINE	&OLDMACH
		ENDM
		
		MACRO
		_GetMouse			
		lclc &OLDMACH
&OLDMACH SETC	&Setting('MACHINE')		; save the current Machine setting
		MACHINE	MC68020
		JSR		([$E00+$172*4])
		MACHINE	&OLDMACH
		ENDM

		MACRO
		_StillDown			
		lclc &OLDMACH
&OLDMACH SETC	&Setting('MACHINE')		; save the current Machine setting
		MACHINE	MC68020
		JSR		([$E00+$173*4])
		MACHINE	&OLDMACH
		ENDM
	
		MACRO
		_Button 			
		lclc &OLDMACH
&OLDMACH SETC	&Setting('MACHINE')		; save the current Machine setting
		MACHINE	MC68020
		JSR		([$E00+$174*4])
		MACHINE	&OLDMACH
		ENDM
	
		MACRO
		_TickCount			
		lclc &OLDMACH
&OLDMACH SETC	&Setting('MACHINE')		; save the current Machine setting
		MACHINE	MC68020
		JSR		([$E00+$175*4])
		MACHINE	&OLDMACH
		ENDM
	
		MACRO
		_GetKeys			
		lclc &OLDMACH
&OLDMACH SETC	&Setting('MACHINE')		; save the current Machine setting
		MACHINE	MC68020
		JSR		([$E00+$176*4])
		MACHINE	&OLDMACH
		ENDM
	
		MACRO
		_WaitMouseUp		
		lclc &OLDMACH
&OLDMACH SETC	&Setting('MACHINE')		; save the current Machine setting
		MACHINE	MC68020
		JSR		([$E00+$177*4])
		MACHINE	&OLDMACH
		ENDM

	ENDIF

_UpdtDialog   	OPWORD  	$A978
_CouldDialog  	OPWORD  	$A979
_FreeDialog   	OPWORD  	$A97A
_InitDialogs  	OPWORD  	$A97B
_GetNewDialog 	OPWORD  	$A97C
_NewDialog		OPWORD  	$A97D
_SelIText 		OPWORD  	$A97E
_IsDialogEvent	OPWORD  	$A97F
_DialogSelect 	OPWORD  	$A980
_DrawDialog   	OPWORD  	$A981
_CloseDialog  	OPWORD  	$A982
_DisposDialog 	OPWORD  	$A983
_DisposeDialog	OPWORD		$A983
_FindDItem		OPWORD  	$A984
_Alert			OPWORD  	$A985
_StopAlert		OPWORD  	$A986
_NoteAlert		OPWORD  	$A987
_CautionAlert 	OPWORD  	$A988
_CouldAlert   	OPWORD  	$A989
_FreeAlert		OPWORD  	$A98A
_ParamText		OPWORD  	$A98B
_ErrorSound   	OPWORD  	$A98C
_GetDItem 		OPWORD  	$A98D
_SetDItem 		OPWORD  	$A98E
_SetIText 		OPWORD  	$A98F
_GetIText 		OPWORD  	$A990
_ModalDialog  	OPWORD  	$A991
_DetachResource	OPWORD  	$A992
_SetResPurge  	OPWORD  	$A993
_CurResFile   	OPWORD  	$A994
_InitResources	OPWORD  	$A995
_RsrcZoneInit 	OPWORD  	$A996
_OpenResFile  	OPWORD  	$A997
_UseResFile   	OPWORD  	$A998
_UpdateResFile	OPWORD  	$A999
_CloseResFile 	OPWORD  	$A99A
_SetResLoad   	OPWORD  	$A99B
_CountResources	OPWORD  	$A99C
_GetIndResource	OPWORD  	$A99D
_CountTypes   	OPWORD  	$A99E
_GetIndType   	OPWORD  	$A99F

	IF NOT (DoROMFastTraps) THEN
_GetResource  	OPWORD  	$A9A0
	ELSE
		MACRO
		_GetResource		
		lclc &OLDMACH
&OLDMACH SETC	&Setting('MACHINE')		; save the current Machine setting
		MACHINE	MC68020
		JSR		([$E00+$1A0*4])
		MACHINE	&OLDMACH
		ENDM
	ENDIF

_GetNamedResource OPWORD  	$A9A1

	IF NOT (DoROMFastTraps) THEN
_LoadResource 	OPWORD  	$A9A2
	ELSE
		MACRO
		_LoadResource		
		lclc &OLDMACH
&OLDMACH SETC	&Setting('MACHINE')		; save the current Machine setting
		MACHINE	MC68020
		JSR		([$E00+$1A2*4])
		MACHINE	&OLDMACH
		ENDM
	ENDIF
	
_ReleaseResource OPWORD  	$A9A3
_HomeResFile  	OPWORD  	$A9A4
_SizeRsrc 		OPWORD  	$A9A5
_GetResAttrs  	OPWORD  	$A9A6
_SetResAttrs  	OPWORD  	$A9A7
_GetResInfo   	OPWORD  	$A9A8
_SetResInfo   	OPWORD  	$A9A9
_ChangedResource OPWORD  	$A9AA
_AddResource  	OPWORD  	$A9AB
_AddReference 	OPWORD  	$A9AC
_RmveResource 	OPWORD  	$A9AD
_RmveReference	OPWORD  	$A9AE
_ResError 		OPWORD  	$A9AF
_WriteResource	OPWORD  	$A9B0
_CreateResFile	OPWORD  	$A9B1
_SystemEvent  	OPWORD  	$A9B2
_SystemClick  	OPWORD  	$A9B3
_SystemTask   	OPWORD  	$A9B4
_SystemMenu   	OPWORD  	$A9B5
_OpenDeskAcc  	OPWORD  	$A9B6
_CloseDeskAcc 	OPWORD  	$A9B7
_GetPattern   	OPWORD  	$A9B8
_GetCursor		OPWORD  	$A9B9
_GetString		OPWORD  	$A9BA
_GetIcon  		OPWORD  	$A9BB
_GetPicture   	OPWORD  	$A9BC
_GetNewWindow 	OPWORD  	$A9BD
_GetNewControl	OPWORD  	$A9BE
_GetRMenu 		OPWORD  	$A9BF
_GetNewMBar   	OPWORD  	$A9C0
_UniqueID 		OPWORD  	$A9C1
_SysEdit  		OPWORD  	$A9C2
_OpenRFPerm   	OPWORD  	$A9C4
_RsrcMapEntry 	OPWORD  	$A9C5
_Secs2Date		OPWORD  	$A9C6
_SecsToDate		OPWORD  	$A9C6
_SecondsToDate	OPWORD  	$A9C6	;											<79>
_Date2Secs		OPWORD  	$A9C7
_DateToSecs		OPWORD  	$A9C7
_DateToSeconds	OPWORD  	$A9C7	;											<79>
_SysBeep  		OPWORD  	$A9C8
_SysError 		OPWORD  	$A9C9
_PutIcon  		OPWORD  	$A9CA
_Munger   		OPWORD  	$A9E0
_HandToHand   	OPWORD  	$A9E1
_PtrToXHand   	OPWORD  	$A9E2
_PtrToHand		OPWORD  	$A9E3
_HandAndHand  	OPWORD  	$A9E4
_InitPack 		OPWORD  	$A9E5
_InitAllPacks 	OPWORD  	$A9E6
_Pack0			OPWORD  	$A9E7
_Pack1			OPWORD  	$A9E8
_Pack2			OPWORD  	$A9E9
_Pack3			OPWORD  	$A9EA
_FP68K			OPWORD  	$A9EB
_Pack4			OPWORD  	$A9EB
_Elems68K 		OPWORD  	$A9EC
_Pack5			OPWORD  	$A9EC
_Pack6			OPWORD  	$A9ED
_DECSTR68K		OPWORD  	$A9EE
_Pack7			OPWORD  	$A9EE
_PtrAndHand   	OPWORD  	$A9EF
_LoadSeg  		OPWORD  	$A9F0
_UnLoadSeg		OPWORD  	$A9F1
_Launch   		OPWORD  	$A9F2
_Chain			OPWORD  	$A9F3
_ExitToShell  	OPWORD  	$A9F4
_GetAppParms  	OPWORD  	$A9F5
_GetResFileAttrs OPWORD  	$A9F6
_SetResFileAttrs OPWORD  	$A9F7
_MethodDispatch	OPWORD  	$A9F8
_InfoScrap		OPWORD  	$A9F9
_UnlodeScrap  	OPWORD  	$A9FA
_UnloadScrap  	OPWORD  	$A9FA
_LodeScrap		OPWORD  	$A9FB
_LoadScrap		OPWORD  	$A9FB
_ZeroScrap		OPWORD  	$A9FC
_GetScrap 		OPWORD  	$A9FD
_PutScrap 		OPWORD  	$A9FE
_Debugger 		OPWORD  	$A9FF
_IconDispatch	OPWORD		$ABC9
_DisplayDispatch OPWORD		$ABEB
_DebugStr 		OPWORD  	$ABFF

; Resource Manager

_ResourceDispatch OPWORD	$A822

; PPCToolbox

_PPC			OPWORD		$A0DD				; <71>

; Alias Manager

_AliasDispatch	OPWORD		$A823				; <71>

selectReadPartialResource	EQU		1
selectWritePartialResource	EQU		2
selectSetResourceSize		EQU		3
selectGetNextFOND			equ		10

		MACRO
		_ReadPartialResource
			DoDispatch _ResourceDispatch,selectReadPartialResource
		ENDM

		MACRO
		_WritePartialResource
			DoDispatch _ResourceDispatch,selectWritePartialResource
		ENDM

		MACRO
		_SetResourceSize
			DoDispatch _ResourceDispatch,selectSetResourceSize
		ENDM

		Macro
		_GetNextFOND
			DoDispatch _ResourceDispatch,selectGetNextFOND
		EndM

; Device Manager (some shared by the File Manager)

_Open 			OPWORD  	$A000
_Close			OPWORD  	$A001
_Read 			OPWORD  	$A002
_Write			OPWORD  	$A003
_Control  		OPWORD  	$A004
_Status   		OPWORD  	$A005
_KillIO   		OPWORD  	$A006

; File Manager

_GetVolInfo   	OPWORD  	$A007
_Create   		OPWORD  	$A008
_Delete   		OPWORD  	$A009
_OpenRF   		OPWORD  	$A00A
_Rename   		OPWORD  	$A00B
_GetFileInfo  	OPWORD  	$A00C
_SetFileInfo  	OPWORD  	$A00D
_UnmountVol   	OPWORD  	$A00E
_HUnmountVol	OPWORD		$A20E			; unconditional (ignores open files)
_MountVol 		OPWORD  	$A00F
_Allocate 		OPWORD  	$A010
_GetEOF   		OPWORD  	$A011
_SetEOF   		OPWORD  	$A012
_FlushVol 		OPWORD  	$A013
_GetVol   		OPWORD  	$A014
_SetVol   		OPWORD  	$A015
_FInitQueue   	OPWORD  	$A016
_Eject			OPWORD  	$A017
_GetFPos  		OPWORD  	$A018
_SetFilLock 	OPWORD		$A041
_RstFilLock 	OPWORD		$A042
_SetFilType 	OPWORD		$A043
_SetFPos		OPWORD		$A044
_FlushFile		OPWORD		$A045

_HOpen			OPWORD  	$A200
_HGetVInfo		OPWORD  	$A207
_HCreate  		OPWORD  	$A208
_HDelete  		OPWORD  	$A209
_HOpenRF  		OPWORD  	$A20A
_HRename  		OPWORD  	$A20B
_HGetFileInfo 	OPWORD  	$A20C
_HSetFileInfo 	OPWORD  	$A20D
_AllocContig  	OPWORD  	$A210
_HSetVol  		OPWORD  	$A215
_HGetVol  		OPWORD  	$A214
_HSetFLock		OPWORD  	$A241
_HRstFLock		OPWORD  	$A242

; dispatch trap for remaining File Manager (and Desktop Manager) calls

_FSDispatch 	OPWORD		$A060
_HFSDispatch	OPWORD		$A260

; HFSDispatch selectors

selectFSControl				EQU		$0
selectOpenWD				EQU 	$1
selectCloseWD				EQU 	$2
selectCatMove				EQU 	$5
selectDirCreate 			EQU 	$6
selectGetWDInfo 			EQU 	$7
selectGetFCBInfo			EQU 	$8
selectGetCatInfo			EQU 	$9
selectSetCatInfo			EQU 	$A
selectSetVolInfo			EQU 	$B
selectSetPMSP				EQU 	$C
selectSetupWDCB				EQU		$D
selectSetupDef				EQU		$E
selectReadWDCB				EQU		$F
selectLockRng				EQU 	$10
selectUnlockRng 			EQU 	$11
selectCreateFileIDRef		EQU 	$14
selectDeleteFileIDRef		EQU 	$15
selectResolveFileIDRef 		EQU 	$16
selectExchangeFiles 		EQU 	$17
selectCatSearch 			EQU 	$18
selectOpenDF				EQU	 	$1A
selectMakeFSSpec			EQU		$1B

selectDTGetPath				EQU 	$20
selectDTCloseDown			EQU		$21
selectDTAddIcon 			EQU 	$22
selectDTGetIcon 			EQU 	$23
selectDTGetIconInfo 		EQU 	$24
selectDTAddAPPL 			EQU 	$25
selectDTRemoveAPPL			EQU 	$26
selectDTGetAPPL 			EQU 	$27
selectDTSetComment			EQU 	$28
selectDTRemoveComment		EQU 	$29
selectDTGetComment			EQU 	$2A
selectDTFlush				EQU 	$2B
selectDTReset				EQU 	$2C
selectDTGetInfo 			EQU 	$2D
selectDTOpenInform			EQU 	$2E
selectDTDelete				EQU 	$2F

selectGetVolParms			EQU 	$30
selectGetLogInInfo			EQU 	$31
selectGetDirAccess			EQU 	$32
selectSetDirAccess			EQU 	$33
selectMapID 				EQU 	$34
selectMapName				EQU 	$35
selectCopyFile				EQU 	$36
selectMoveRename			EQU 	$37
selectOpenDeny				EQU 	$38
selectOpenRFDeny			EQU 	$39
selectGetXCatInfo			EQU		$3A
selectGetVolMountInfoSize	EQU		$3F

selectGetVolMountInfo		EQU		$40
selectVolumeMount			EQU		$41

selectGetForeignPrivs		EQU 	$60
selectSetForeignPrivs		EQU 	$61

; DoHFSDispatch supports both the "_trap async" and old-style "_trap ,async" call formats
; by using two parameters.  hfsBit defaults to 1 (i.e. A260) but can be set zero (A060)

		macro
		DoHFSDispatch &selector,&async1,&async2,&hfsBit==newHFS
			moveq.l #&selector,d0
			_FSDispatch &hfsBit,&async1,&async2
		endm

		macro
		_FSControl &async1,&async2
			DoHFSDispatch selectFSControl,&async1,&async2
		endm

		macro
		_OpenWD &async1,&async2
			DoHFSDispatch selectOpenWD,&async1,&async2
		endm

		macro
		_CloseWD &async1,&async2
			DoHFSDispatch selectCloseWD,&async1,&async2
		endm

		macro
		_CatMove &async1,&async2
			DoHFSDispatch selectCatMove,&async1,&async2
		endm

		macro
		_DirCreate &async1,&async2
			DoHFSDispatch selectDirCreate,&async1,&async2
		endm

		macro
		_GetWDInfo &async1,&async2
			DoHFSDispatch selectGetWDInfo,&async1,&async2
		endm

		macro
		_GetFCBInfo &async1,&async2
			DoHFSDispatch selectGetFCBInfo,&async1,&async2
		endm

		macro
		_GetCatInfo &async1,&async2
			DoHFSDispatch selectGetCatInfo,&async1,&async2
		endm

		macro
		_SetCatInfo &async1,&async2
			DoHFSDispatch selectSetCatInfo,&async1,&async2
		endm

		macro
		_SetVolInfo &async1,&async2
			DoHFSDispatch selectSetVolInfo,&async1,&async2
		endm

		macro
		_SetPMSP &async1,&async2
			DoHFSDispatch selectSetPMSP,&async1,&async2
		endm

		macro
		_SetupWDCB &async1,&async2
			DoHFSDispatch selectSetupWDCB,&async1,&async2
		endm

		macro
		_SetupDef &async1,&async2
			DoHFSDispatch selectSetupDef,&async1,&async2
		endm

		macro
		_ReadWDCB &async1,&async2
			DoHFSDispatch selectReadWDCB,&async1,&async2
		endm

		macro
		_LockRng &async1,&async2
			DoHFSDispatch selectLockRng,&async1,&async2
		endm

		macro
		_UnlockRng &async1,&async2
			DoHFSDispatch selectUnlockRng,&async1,&async2
		endm

		macro
		_CreateFileIDRef &async1,&async2
			DoHFSDispatch selectCreateFileIDRef,&async1,&async2
		endm

		macro
		_DeleteFileIDRef &async1,&async2
			DoHFSDispatch selectDeleteFileIDRef,&async1,&async2
		endm

		macro
		_ResolveFileIDRef &async1,&async2
			DoHFSDispatch selectResolveFileIDRef,&async1,&async2
		endm

		macro
		_ExchangeFiles &async1,&async2
			DoHFSDispatch selectExchangeFiles,&async1,&async2
		endm

		macro
		_CatSearch &async1,&async2
			DoHFSDispatch selectCatSearch,&async1,&async2
		endm

		macro
		_OpenDF &async1,&async2
			DoHFSDispatch selectOpenDF,&async1,&async2,hfsBit=0
		endm

		macro
		_HOpenDF &async1,&async2
			DoHFSDispatch selectOpenDF,&async1,&async2
		endm

		macro
		_MakeFSSpec &async1,&async2
			DoHFSDispatch selectMakeFSSpec,&async1,&async2
		endm

		macro
		_GetVolParms &async1,&async2
			DoHFSDispatch selectGetVolParms,&async1,&async2
		endm

		macro
		_GetLogInInfo &async1,&async2
			DoHFSDispatch selectGetLogInInfo,&async1,&async2
		endm

		macro
		_GetDirAccess &async1,&async2
			DoHFSDispatch selectGetDirAccess,&async1,&async2
		endm

		macro
		_SetDirAccess &async1,&async2
			DoHFSDispatch selectSetDirAccess,&async1,&async2
		endm

		macro
		_MapID &async1,&async2
			DoHFSDispatch selectMapID,&async1,&async2
		endm

		macro
		_MapName &async1,&async2
			DoHFSDispatch selectMapName,&async1,&async2
		endm

		macro
		_CopyFile &async1,&async2
			DoHFSDispatch selectCopyFile,&async1,&async2
		endm

		macro
		_MoveRename &async1,&async2
			DoHFSDispatch selectMoveRename,&async1,&async2
		endm

		macro
		_OpenDeny &async1,&async2
			DoHFSDispatch selectOpenDeny,&async1,&async2
		endm

		macro
		_OpenRFDeny &async1,&async2
			DoHFSDispatch selectOpenRFDeny,&async1,&async2
		endm

		macro
		_GetXCatInfo &async1,&async2
			DoHFSDispatch selectGetXCatInfo,&async1,&async2
		endm

		macro
		_GetVolMountInfoSize &async1,&async2
			DoHFSDispatch selectGetVolMountInfoSize,&async1,&async2
		endm

		macro
		_GetVolMountInfo &async1,&async2
			DoHFSDispatch selectGetVolMountInfo,&async1,&async2
		endm

		macro
		_VolumeMount &async1,&async2
			DoHFSDispatch selectVolumeMount,&async1,&async2
		endm

		macro
		_GetForeignPrivs &async1,&async2
			DoHFSDispatch selectGetForeignPrivs,&async1,&async2
		endm

		macro
		_SetForeignPrivs &async1,&async2
			DoHFSDispatch selectSetForeignPrivs,&async1,&async2
		endm

; Desktop Manager calls

		macro
		_DTGetPath &async1,&async2
			DoHFSDispatch selectDTGetPath,&async1,&async2
		endm

		macro
		_DTCloseDown &async1,&async2
			DoHFSDispatch selectDTCloseDown,&async1,&async2
		endm

		macro
		_DTAddIcon &async1,&async2
			DoHFSDispatch selectDTAddIcon,&async1,&async2
		endm

		macro
		_DTGetIcon &async1,&async2
			DoHFSDispatch selectDTGetIcon,&async1,&async2
		endm

		macro
		_DTGetIconInfo &async1,&async2
			DoHFSDispatch selectDTGetIconInfo,&async1,&async2
		endm

		macro
		_DTAddAPPL &async1,&async2
			DoHFSDispatch selectDTAddAPPL,&async1,&async2
		endm

		macro
		_DTRemoveAPPL &async1,&async2
			DoHFSDispatch selectDTRemoveAPPL,&async1,&async2
		endm

		macro
		_DTGetAPPL &async1,&async2
			DoHFSDispatch selectDTGetAPPL,&async1,&async2
		endm

		macro
		_DTSetComment &async1,&async2
			DoHFSDispatch selectDTSetComment,&async1,&async2
		endm

		macro
		_DTRemoveComment &async1,&async2
			DoHFSDispatch selectDTRemoveComment,&async1,&async2
		endm

		macro
		_DTGetComment &async1,&async2
			DoHFSDispatch selectDTGetComment,&async1,&async2
		endm

		macro
		_DTFlush &async1,&async2
			DoHFSDispatch selectDTFlush,&async1,&async2
		endm

		macro
		_DTReset &async1,&async2
			DoHFSDispatch selectDTReset,&async1,&async2
		endm

		macro
		_DTGetInfo &async1,&async2
			DoHFSDispatch selectDTGetInfo,&async1,&async2
		endm

		macro
		_DTOpenInform &async1,&async2
			DoHFSDispatch selectDTOpenInform,&async1,&async2,hfsBit=0
		endm

		macro
		_DTDelete &async1,&async2
			DoHFSDispatch selectDTDelete,&async1,&async2,hfsBit=0
		endm

; High level FSSpec calls

_HighLevelFSDispatch 	OPWORD	$AA52

selectFSMakeFSSpec		EQU		$1
selectFSpOpenDF			EQU		$2
selectFSpOpenRF			EQU		$3
selectFSpCreate			EQU		$4
selectFSpDirCreate		EQU		$5
selectFSpDelete			EQU		$6
selectFSpGetFInfo		EQU		$7
selectFSpSetFInfo		EQU		$8
selectFSpSetFLock		EQU		$9
selectFSpRstFLock		EQU		$A
selectFSpRename			EQU		$B
selectFSpCatMove		EQU		$C
selectFSpOpenResFile	EQU		$D
selectFSpCreateResFile	EQU		$E
selectFSpExchangeFiles	EQU		$F

		macro
		_FSMakeFSSpec
			DoDispatch _HighLevelFSDispatch,selectFSMakeFSSpec
		endm

		macro
		_FSpOpenDF
			DoDispatch _HighLevelFSDispatch,selectFSpOpenDF
		endm

		macro
		_FSpOpenRF
			DoDispatch _HighLevelFSDispatch,selectFSpOpenRF
		endm

		macro
		_FSpCreate
			DoDispatch _HighLevelFSDispatch,selectFSpCreate
		endm

		macro
		_FSpDirCreate
			DoDispatch _HighLevelFSDispatch,selectFSpDirCreate
		endm

		macro
		_FSpDelete
			DoDispatch _HighLevelFSDispatch,selectFSpDelete
		endm

		macro
		_FSpGetFInfo
			DoDispatch _HighLevelFSDispatch,selectFSpGetFInfo
		endm

		macro
		_FSpSetFInfo
			DoDispatch _HighLevelFSDispatch,selectFSpSetFInfo
		endm

		macro
		_FSpSetFLock
			DoDispatch _HighLevelFSDispatch,selectFSpSetFLock
		endm

		macro
		_FSpRstFLock
			DoDispatch _HighLevelFSDispatch,selectFSpRstFLock
		endm

		macro
		_FSpRename
			DoDispatch _HighLevelFSDispatch,selectFSpRename
		endm

		macro
		_FSpCatMove
			DoDispatch _HighLevelFSDispatch,selectFSpCatMove
		endm

		macro
		_FSpOpenResFile
			DoDispatch _HighLevelFSDispatch,selectFSpOpenResFile
		endm

		macro
		_FSpCreateResFile
			DoDispatch _HighLevelFSDispatch,selectFSpCreateResFile
		endm

		macro
		_FSpExchangeFiles
			DoDispatch _HighLevelFSDispatch,selectFSpExchangeFiles
		endm

; Memory Manager

_InitZone 		OPWORD  	$A019
_GetZone  		OPWORD  	$A11A
_SetZone  		OPWORD  	$A01B
_FreeMem  		OPWORD  	$A01C
_MaxMem   		OPWORD  	$A11D

	IF NOT (DoROMFastTraps) THEN
_NewPtr   		OPWORD  	$A11E
_NewPtrSys      OPWORD      $A51E				; <71>
_NewPtrClear    OPWORD      $A31E				; <71>
_NewPtrSysClear OPWORD      $A71E				; <71>
_DisposePtr		OPWORD		$A01F
_DisposPtr		OPWORD  	$A01F
_SetPtrSize   	OPWORD  	$A020
_GetPtrSize   	OPWORD  	$A021
	ELSE
		Macro
		_NewPtr	&param1,&param2,&param3
		lclc &OLDMACH
		lcla &TRAPADD
&OLDMACH SETC	&Setting('MACHINE')		; save the current Machine setting
		MACHINE	MC68020
&TRAPADD SETA  0
		IF &UPCASE(&param1)='SYS' OR &UPCASE(&param2)='SYS' OR &UPCASE(&param3)='SYS' THEN
&TRAPADD SETA  &TRAPADD+$400
		ENDIF
		IF &UPCASE(&param1)='CLEAR' OR &UPCASE(&param2)='CLEAR' OR &UPCASE(&param3)='CLEAR' THEN
&TRAPADD SETA  &TRAPADD+$200
		ENDIF
		movem.l	d1-d2/a1,-(sp)
		move.w	#$A11E+&TRAPADD,d1
		jsr		([$400+$1E*4])
		movem.l	(sp)+,d1-d2/a1
		tst.w	d0
		MACHINE	&OLDMACH
		ENDM

		Macro
		_NewPtrSys
		_NewPtr Sys
		ENDM
		
		Macro
		_NewPtrClear
		_NewPtr Clear
		ENDM
	
		Macro
		_NewPtrSysClear
		_NewPtr Clear,Sys
		ENDM

		Macro
		_DisposePtr
		lclc &OLDMACH
&OLDMACH SETC	&Setting('MACHINE')		; save the current Machine setting
		MACHINE	MC68020
		movem.l	d1-d2/a0-a1,-(sp)
		jsr		([$400+$1F*4])
		movem.l	(sp)+,d1-d2/a0-a1
		tst.w	d0
		MACHINE	&OLDMACH
		ENDM
		
		Macro
		_DisposPtr
		_DisposePtr
		ENDM
		
		Macro
		_SetPtrSize
		lclc &OLDMACH
&OLDMACH SETC 	&Setting('MACHINE')		; save the current Machine setting
		MACHINE	MC68020
		movem.l	d1-d2/a0-a1,-(sp)
		jsr		([$400+$20*4])
		movem.l	(sp)+,d1-d2/a0-a1
		tst.w	d0
		MACHINE	&OLDMACH
		ENDM
		
		Macro
		_GetPtrSize
		lclc &OLDMACH
&OLDMACH SETC	&Setting('MACHINE')		; save the current Machine setting
		MACHINE	MC68020
		movem.l	d1-d2/a0-a1,-(sp)
		jsr		([$400+$21*4])
		movem.l	(sp)+,d1-d2/a0-a1
		tst.w	d0
		MACHINE	&OLDMACH
		ENDM

	ENDIF


	IF NOT (DoROMFastTraps) THEN 
_NewHandle		OPWORD  	$A122
_NewHandleClear OPWORD      $A322				; <71>
_DisposHandle 	OPWORD  	$A023
_DisposeHandle	OPWORD		$A023
_SetHandleSize	OPWORD  	$A024
_GetHandleSize	OPWORD  	$A025
	ELSE

		Macro
		_NewHandle	&param1,&param2,&param3
		lclc &OLDMACH
		lcla &TRAPADD
&OLDMACH SETC	&Setting('MACHINE')		; save the current Machine setting
		MACHINE	MC68020
&TRAPADD SETA  0
		IF &UPCASE(&param1)='SYS' OR &UPCASE(&param2)='SYS' OR &UPCASE(&param3)='SYS' THEN
&TRAPADD SETA  &TRAPADD+$400
		ENDIF
		IF &UPCASE(&param1)='CLEAR' OR &UPCASE(&param2)='CLEAR' OR &UPCASE(&param3)='CLEAR' THEN
&TRAPADD SETA  &TRAPADD+$200
		ENDIF
		movem.l	d1-d2/a1,-(sp)
		move.w	#$A122+&TRAPADD,d1
		jsr		([$400+$22*4])
		movem.l	(sp)+,d1-d2/a1
		tst.w	d0
		MACHINE	&OLDMACH
		ENDM
		
		Macro
		_NewHandleClear
		_NewHandle	Clear
		ENDM


		Macro
		_DisposeHandle
	lclc &OLDMACH
&OLDMACH SETC	&Setting('MACHINE')		; save the current Machine setting
		MACHINE	MC68020
		movem.l	d1-d2/a0-a1,-(sp)
		jsr		([$400+$23*4])
		movem.l	(sp)+,d1-d2/a0-a1
		tst.w	d0
		MACHINE	&OLDMACH
		ENDM

		Macro
		_DisposHandle
		_DisposeHandle
		ENDM

		Macro
		_SetHandleSize
		lclc &OLDMACH
&OLDMACH SETC	&Setting('MACHINE')		; save the current Machine setting
		MACHINE	MC68020
		movem.l	d1-d2/a0-a1,-(sp)
		jsr		([$400+$24*4])
		movem.l	(sp)+,d1-d2/a0-a1
		tst.w	d0
		MACHINE	&OLDMACH
		ENDM
		
		Macro
		_GetHandleSize
		lclc &OLDMACH
&OLDMACH SETC	&Setting('MACHINE')		; save the current Machine setting
		MACHINE	MC68020
		movem.l	d1-d2/a0-a1,-(sp)
		jsr		([$400+$25*4])
		movem.l	(sp)+,d1-d2/a0-a1
		tst.w	d0
		MACHINE	&OLDMACH
		ENDM

	ENDIF

_HandleZone   	OPWORD  	$A126
_ReallocHandle	OPWORD  	$A027
_RecoverHandle	OPWORD  	$A128

	IF NOT (DoROMFastTraps) THEN
_HLock			OPWORD  	$A029
	ELSE
		Macro
		_HLock
		lclc &OLDMACH
&OLDMACH SETC	&Setting('MACHINE')		; save the current Machine setting
		MACHINE	MC68020
		movem.l	d1-d2/a0-a1,-(sp)
		jsr		([$400+$29*4])
		movem.l	(sp)+,d1-d2/a0-a1
		tst.w	d0
		MACHINE	&OLDMACH
		Endm
	ENDIF
	
	IF NOT (DoROMFastTraps) THEN
_HUnlock  		OPWORD  	$A02A
	ELSE
		Macro
		_HUnlock
		lclc &OLDMACH
&OLDMACH SETC	&Setting('MACHINE')		; save the current Machine setting
		MACHINE	MC68020
		movem.l	d1-d2/a0-a1,-(sp)
		jsr		([$400+$2a*4])
		movem.l	(sp)+,d1-d2/a0-a1
		tst.w	d0
		MACHINE	&OLDMACH
		Endm
	ENDIF
	
_EmptyHandle  	OPWORD  	$A02B
_InitApplZone 	OPWORD  	$A02C
_SetApplLimit 	OPWORD  	$A02D

	IF NOT (DoROMFastTraps) THEN
_BlockMove		OPWORD  	$A02E
_BlockMoveData	OPWORD		$A22E
	ELSE
		Macro
		_BlockMove
		lclc &OLDMACH
&OLDMACH SETC	&Setting('MACHINE')		; save the current Machine setting
		MACHINE	MC68020
		movem.l d1-d2/a0-a1,-(sp)
		move.w	#$A02E,d1
		jsr 	([$400+$2E*4])
		movem.l	(sp)+,d1-d2/a0-a1
		tst.w	d0
		MACHINE	&OLDMACH
		Endm
		
		Macro
		_BlockMoveData
		lclc &OLDMACH
&OLDMACH SETC	&Setting('MACHINE')		; save the current Machine setting
		MACHINE	MC68020
		movem.l d1-d2/a0-a1,-(sp)
		move.w	#$A22E,d1
		jsr 	([$400+$2E*4])
		movem.l	(sp)+,d1-d2/a0-a1
		tst.w	d0
		MACHINE	&OLDMACH
		Endm

	ENDIF
	
_MemoryDispatch	OPWORD		$A05C
_MemoryDispatchA0Result OPWORD $A15C
_DeferUserFn	OPWORD		$A08F
_DebugUtil		OPWORD		$A08D

; Event Manager

_PostEvent		OPWORD  	$A02F
_PPostEvent   	OPWORD  	$A12F     				;preserves A0 on return

	IF NOT (DoROMFastTraps) THEN
_OSEventAvail 	OPWORD  	$A030
_GetOSEvent   	OPWORD  	$A031
	ELSE
		Macro
		_OSEventAvail
		lclc &OLDMACH
&OLDMACH SETC	&Setting('MACHINE')		; save the current Machine setting
		MACHINE	MC68020
		movem.l	d1-d2/a0-a1,-(sp)
		jsr		([$400+$30*4])
		movem.l	(sp)+,d1-d2/a0-a1
		tst.w	d0
		MACHINE	&OLDMACH
		ENDM

		Macro
		_GetOSEvent
		lclc &OLDMACH
&OLDMACH SETC	&Setting('MACHINE')		; save the current Machine setting
		MACHINE	MC68020
		movem.l	d1-d2/a0-a1,-(sp)
		jsr		([$400+$31*4])
		movem.l	(sp)+,d1-d2/a0-a1
		tst.w	d0
		MACHINE	&OLDMACH
		ENDM
	ENDIF
	
_FlushEvents  	OPWORD  	$A032

_VInstall 		OPWORD  	$A033
_VRemove  		OPWORD  	$A034
_OffLine  		OPWORD  	$A035
_MoreMasters  	OPWORD  	$A036
_WriteParam   	OPWORD  	$A038
_ReadDateTime 	OPWORD  	$A039
_SetDateTime  	OPWORD  	$A03A
_Delay			OPWORD  	$A03B
_CmpString		OPWORD  	$A03C
_DrvrInstall  	OPWORD  	$A03D
_DrvrRemove   	OPWORD  	$A03E
_InitUtil 		OPWORD  	$A03F
_ResrvMem 		OPWORD  	$A040
_GetTrapAddress	OPWORD  	$A146
_SetTrapAddress	OPWORD		$A047
_GetOSTrapAddress		OPWORD	$A346				; <71>
_SetOSTrapAddress		OPWORD	$A247				; <71>
_GetToolTrapAddress		OPWORD	$A746				; <71>
_SetToolTrapAddress		OPWORD	$A647				; <71>
_GetToolBoxTrapAddress	OPWORD	$A746				; <71>
_SetToolBoxTrapAddress	OPWORD	$A647				; <71>
_PtrZone  		OPWORD  	$A148
_HPurge   		OPWORD  	$A049
_HNoPurge 		OPWORD  	$A04A
_SetGrowZone  	OPWORD  	$A04B
_CompactMem   	OPWORD  	$A04C
_PurgeMem 		OPWORD  	$A04D
_AddDrive 		OPWORD  	$A04E
_RDrvrInstall 	OPWORD  	$A04F
_LwrString		OPWORD  	$A056
_UprString		OPWORD  	$A054
_UpperString	OPWORD  	$A054	;													<79>
_SetApplBase  	OPWORD  	$A057

	IF NOT (DoROMFastTraps) THEN
_HWPriv         OPWORD      $A198				; <71>
	ELSE
		Macro
		_HWPriv
		lclc &OLDMACH
&OLDMACH SETC	&Setting('MACHINE')		; save the current Machine setting
		MACHINE	MC68020
		movem.l	d1-d2/a1,-(sp)
		jsr		([$400+$98*4])
		movem.l	(sp)+,d1-d2/a1
		tst.w	d0
		MACHINE	&OLDMACH
		ENDM
	ENDIF

; New names for (mostly) new flavors of old LwrString trap (redone <13>)
_LowerText		OPWORD		$A056					;changed from _LwrText		<13>
_StripText		OPWORD  	$A256
_UpperText  	OPWORD  	$A456					;changed from _UprText		<13>
_StripUpperText OPWORD  	$A656					;changed from _StripUprText	<13>

; Temporary Memory routines

_OSDispatch   	OPWORD  	$A88F     				;Process Manager trap

selectTempMaxMem			EQU $15
selectTempFreeMem 			EQU $18
selectTempNewHandle			EQU $1D
selectTempHLock				EQU $1E
selectTempHUnlock 			EQU $1F
selectTempDisposeHandle		EQU $20
selectTempTopMem			EQU $16

				MACRO
				_TempMaxMem
				MOVE.W #selectTempMaxMem,-(SP)
				_OSDispatch
				ENDM

				MACRO
				_TempFreeMem
				MOVE.W #selectTempFreeMem,-(SP)
				_OSDispatch
				ENDM

				MACRO
				_TempNewHandle
				MOVE.W #selectTempNewHandle,-(SP)
				_OSDispatch
				ENDM

				MACRO
				_TempHLock
				MOVE.W #selectTempHLock,-(SP)
				_OSDispatch
				ENDM

				MACRO
				_TempHUnlock
				MOVE.W #selectTempHUnlock,-(SP)
				_OSDispatch
				ENDM

				MACRO
				_TempDisposeHandle
				MOVE.W #selectTempDisposeHandle,-(SP)
  				_OSDispatch
  				ENDM

				MACRO
				_TempTopMem
				MOVE.W #selectTempTopMem,-(SP)
  				_OSDispatch
  				ENDM

; Temporary Memory routines as they used to be named (before System 7.0)
selectMFMaxMem				EQU 21
selectMFFreeMem 			EQU 24
selectMFTempNewHandle		EQU 29
selectMFTempHLock			EQU 30
selectMFTempHUnlock 		EQU 31
selectMFTempDisposeHandle	EQU 32

				MACRO
				_MFMaxMem
				MOVE.W #selectMFMaxMem,-(SP)
				_OSDispatch
				ENDM

				MACRO
				_MFFreeMem
				MOVE.W #selectMFFreeMem,-(SP)
				_OSDispatch
				ENDM

				MACRO
				_MFTempNewHandle
				MOVE.W #selectMFTempNewHandle,-(SP)
				_OSDispatch
				ENDM

				MACRO
				_MFTempHLock
				MOVE.W #selectMFTempHLock,-(SP)
				_OSDispatch
				ENDM

				MACRO
				_MFTempHUnlock
				MOVE.W #selectMFTempHUnlock,-(SP)
				_OSDispatch
				ENDM

				MACRO
				_MFTempDisposHandle
				MOVE.W #selectMFTempDisposeHandle,-(SP)
				_OSDispatch
				ENDM

				MACRO
				_MFTempDisposeHandle
				MOVE.W #selectMFTempDisposeHandle,-(SP)
  				_OSDispatch
  				ENDM

; low-level memory control calls

selectHoldMemory			EQU		0
selectUnholdMemory			EQU		1
selectLockMemory			EQU		2
selectLockMemoryContiguous 	EQU		4
selectUnlockMemory			EQU		3
selectGetPhysical			EQU		5

selectDebuggerGetMax		EQU		0
selectDebuggerEnter			EQU		1
selectDebuggerExit			EQU		2
selectDebuggerPoll			EQU		3
selectGetPageState 			EQU		4
selectPageFaultFatal 		EQU		5
selectDebuggerLockMemory	EQU		6
selectDebuggerUnlockMemory 	EQU		7
selectEnterSupervisorMode	EQU		8

		MACRO
		_HoldMemory
			DoDispatch _MemoryDispatch,selectHoldMemory
		ENDM

		MACRO
		_UnholdMemory
			DoDispatch _MemoryDispatch,selectUnholdMemory
		ENDM

		MACRO
		_LockMemory
			DoDispatch _MemoryDispatch,selectLockMemory
		ENDM

		MACRO
		_LockMemoryContiguous
			DoDispatch _MemoryDispatch,selectLockMemoryContiguous
		ENDM

		MACRO
		_UnlockMemory
			DoDispatch _MemoryDispatch,selectUnlockMemory
		ENDM

		MACRO
		_GetPhysical
			DoDispatch _MemoryDispatchA0Result,selectGetPhysical
		ENDM

; DebugUtil calls

		MACRO
		_DebuggerGetMax
			DoDispatch _DebugUtil,selectDebuggerGetMax
		ENDM

		MACRO
		_DebuggerEnter
			DoDispatch _DebugUtil,selectDebuggerEnter
		ENDM

		MACRO
		_DebuggerExit
			DoDispatch _DebugUtil,selectDebuggerExit
		ENDM

		MACRO
		_DebuggerPoll
			DoDispatch _DebugUtil,selectDebuggerPoll
		ENDM

		MACRO
		_GetPageState
			DoDispatch _DebugUtil,selectGetPageState
		ENDM

		MACRO
		_PageFaultFatal
			DoDispatch _DebugUtil,selectPageFaultFatal
		ENDM

		MACRO
		_DebuggerLockMemory
			DoDispatch _DebugUtil,selectDebuggerLockMemory
		ENDM

		MACRO
		_DebuggerUnlockMemory
			DoDispatch _DebugUtil,selectDebuggerUnlockMemory
		ENDM

		MACRO
		_EnterSupervisorMode
			DoDispatch _DebugUtil,selectEnterSupervisorMode
		ENDM

_RelString		OPWORD  	$A050
_ReadXPRam		OPWORD  	$A051
_WriteXPRam   	OPWORD  	$A052
_InsTime  		OPWORD  	$A058
_InsXTime 		OPWORD  	$A458
_RmvTime  		OPWORD  	$A059
_PrimeTime		OPWORD  	$A05A
_PowerOff 		OPWORD  	$A05B
_MaxBlock 		OPWORD  	$A061
_PurgeSpace   	OPWORD  	$A162
_MaxApplZone  	OPWORD  	$A063
_MoveHHi  		OPWORD  	$A064
_StackSpace   	OPWORD  	$A065
_NewEmptyHandle   OPWORD  	$A166
_HSetRBit 		OPWORD  	$A067
_HClrRBit 		OPWORD  	$A068
_HGetState		OPWORD  	$A069
_HSetState		OPWORD  	$A06A
_InitFS   		OPWORD  	$A06C
_InitEvents   	OPWORD  	$A06D

	Macro							; SuperMario is a 32-bit only ROM
	_SwapMMUMode
	EndM
	Macro							; SuperMario is a 32-bit only ROM
	_StripAddress
	EndM
	Macro							; SuperMario is a 32-bit only ROM
	_Translate24To32
	EndM

_SetAppBase   	OPWORD  	$A057
_SlotVInstall 	OPWORD  	$A06F
_SlotVRemove  	OPWORD  	$A070
_AttachVBL		OPWORD  	$A071
_DoVBLTask		OPWORD  	$A072
_SIntInstall  	OPWORD  	$A075
_SIntRemove   	OPWORD  	$A076
_CountADBs		OPWORD  	$A077
_GetIndADB		OPWORD  	$A078
_GetADBInfo   	OPWORD  	$A079
_SetADBInfo   	OPWORD  	$A07A
_ADBReInit		OPWORD  	$A07B
_ADBOp			OPWORD  	$A07C
_GetDefaultStartup OPWORD 	$A07D
_SetDefaultStartup OPWORD 	$A07E
_InternalWait 	OPWORD  	$A07F
_RGetResource 	OPWORD  	$A80C
_GetVideoDefault OPWORD  	$A080
_SetVideoDefault OPWORD  	$A081
_DTInstall		OPWORD  	$A082
_SetOSDefault 	OPWORD  	$A083
_GetOSDefault 	OPWORD  	$A084

_IOPInfoAccess	OPWORD		$A086
_IOPMsgRequest	OPWORD		$A087
_IOPMoveData	OPWORD		$A088

; Power Manager

_PowerDispatch	OPWORD		$A09F
_PMgrOp   		OPWORD  	$A085
_IdleUpdate   	OPWORD  	$A285
_IdleState		OPWORD  	$A485
_SerialPower  	OPWORD  	$A685
_Sleep			OPWORD  	$A08A
_SleepQInstall  OPWORD      $A28A           ; <71>
_SlpQInstall    OPWORD      $A28A
_SleepQRemove   OPWORD      $A48A			; <71>
_SlpQRemove   	OPWORD  	$A48A

; Docking

_DockingDispatch OPWORD		$AA57

; New cursor stuff

_CursorADBDispatch OPWORD	$AADB

; Comm. Toolbox

_CommToolboxDispatch	OPWORD	$A08B

_SysEnvirons  	OPWORD  	$A090

; Egret Manager

_EgretDispatch	OPWORD		$A092			; <10>

_Gestalt			OPWORD	$A1AD
_NewGestalt 		OPWORD	$A3AD			; <1.7>
_ReplaceGestalt		OPWORD	$A5AD			; <1.7>
_GetGestaltProcPtr	OPWORD	$A7AD			; <37>

_InitProcMenu 	OPWORD  	$A808
_GetItemCmd   	OPWORD  	$A84E
_SetItemCmd   	OPWORD  	$A84F
_PopUpMenuSelect  OPWORD  	$A80B
_KeyTrans 		OPWORD  	$A9C3
_KeyTranslate 	OPWORD  	$A9C3	;												<79>

  				MACRO
  				_GetTimeOut
				suba.l a0,a0
  				_InternalWait
  				ENDM

  				MACRO
  				_SetTimeOut
  				MOVEA.W 	#1,A0
  				_InternalWait
  				ENDM

; TextEdit

_TEGetText		OPWORD  	$A9CB
_TEInit   		OPWORD  	$A9CC
_TEDispose		OPWORD  	$A9CD
_TextBox  		OPWORD  	$A9CE
_TETextBox  	OPWORD  	$A9CE	; New name for TextBox							<79>
_TESetText		OPWORD  	$A9CF
_TECalText		OPWORD  	$A9D0
_TESetSelect  	OPWORD  	$A9D1
_TENew			OPWORD  	$A9D2
_TEUpdate 		OPWORD  	$A9D3
_TEClick  		OPWORD  	$A9D4
_TECopy   		OPWORD  	$A9D5
_TECut			OPWORD  	$A9D6
_TEDelete 		OPWORD  	$A9D7
_TEActivate   	OPWORD  	$A9D8
_TEDeactivate 	OPWORD  	$A9D9
_TEIdle   		OPWORD  	$A9DA
_TEPaste  		OPWORD  	$A9DB
_TEKey			OPWORD  	$A9DC
_TEScroll 		OPWORD  	$A9DD
_TEInsert 		OPWORD  	$A9DE
_TESetJust		OPWORD  	$A9DF
_TESetAlignment	OPWORD  	$A9DF	; New name for TESetJust						<79>
_TEGetOffset  	OPWORD  	$A83C
_TEDispatch   	OPWORD  	$A83D
_TEStyleNew   	OPWORD  	$A83E

; Color Quickdraw

_OpenCPort		OPWORD  	$AA00
_InitCPort		OPWORD  	$AA01
_CloseCPort 	OPWORD		$A87D	; CloseCPort is actually $AA02, but should never be used
_NewPixMap		OPWORD  	$AA03
_DisposPixMap 	OPWORD  	$AA04
_DisposePixMap	OPWORD		$AA04
_CopyPixMap   	OPWORD  	$AA05
_SetPortPix   	OPWORD  	$AA06
_NewPixPat		OPWORD  	$AA07
_DisposPixPat 	OPWORD  	$AA08
_DisposePixPat	OPWORD		$AA08
_CopyPixPat   	OPWORD  	$AA09
_PenPixPat		OPWORD  	$AA0A
_BackPixPat   	OPWORD  	$AA0B
_GetPixPat		OPWORD  	$AA0C
_MakeRGBPat   	OPWORD  	$AA0D
_FillCRect		OPWORD  	$AA0E
_FillCOval		OPWORD  	$AA0F
_FillCRoundRect   OPWORD  	$AA10
_FillCArc 		OPWORD  	$AA11
_FillCRgn 		OPWORD  	$AA12
_FillCPoly		OPWORD  	$AA13
_RGBForeColor 	OPWORD  	$AA14
_RGBBackColor 	OPWORD  	$AA15
_SetCPixel		OPWORD  	$AA16
_GetCPixel		OPWORD  	$AA17
_GetCTable		OPWORD  	$AA18
_GetForeColor 	OPWORD  	$AA19
_GetBackColor 	OPWORD  	$AA1A
_GetCCursor   	OPWORD  	$AA1B
_SetCCursor   	OPWORD  	$AA1C
_AllocCursor  	OPWORD  	$AA1D
_GetCIcon 		OPWORD  	$AA1E
_PlotCIcon		OPWORD  	$AA1F
_OpenCPicture	OPWORD		$AA20
_OpColor  		OPWORD  	$AA21
_HiliteColor  	OPWORD  	$AA22
_CharExtra		OPWORD  	$AA23
_DisposCTable 	OPWORD  	$AA24
_DisposeCTable	OPWORD		$AA24
_DisposCIcon	OPWORD		$AA25
_DisposeCIcon	OPWORD		$AA25
_DisposCCursor	OPWORD		$AA26
_DisposeCCursor	OPWORD		$AA26
_SeedCFill		OPWORD  	$AA50
_CalcCMask		OPWORD  	$AA4F
_CopyDeepMask	OPWORD  	$AA51

; Routines for video devices

_GetMaxDevice 	OPWORD  	$AA27
_GetCTSeed		OPWORD  	$AA28
_GetDeviceList	OPWORD  	$AA29
_GetMainDevice	OPWORD  	$AA2A
_GetNextDevice	OPWORD  	$AA2B
_TestDeviceAttribute OPWORD   $AA2C
_SetDeviceAttribute OPWORD	$AA2D
_InitGDevice  	OPWORD  	$AA2E
_NewGDevice   	OPWORD  	$AA2F
_DisposGDevice	OPWORD  	$AA30
_DisposeGDevice	OPWORD		$AA30
_SetGDevice   	OPWORD  	$AA31
_GetGDevice   	OPWORD  	$AA32
_DeviceLoop		OPWORD		$ABCA

; Color Manager

_Color2Index  	OPWORD  	$AA33
_Index2Color  	OPWORD  	$AA34
_InvertColor  	OPWORD  	$AA35
_RealColor		OPWORD  	$AA36
_GetSubTable  	OPWORD  	$AA37
_UpdatePixMap 	OPWORD  	$AA38

; Dialog Manager

_NewCDialog   	OPWORD  	$AA4B

_MakeITable   	OPWORD  	$AA39
_AddSearch		OPWORD  	$AA3A
_AddComp  		OPWORD  	$AA3B
_SetClientID  	OPWORD  	$AA3C
_ProtectEntry 	OPWORD  	$AA3D
_ReserveEntry 	OPWORD  	$AA3E
_SetEntries   	OPWORD  	$AA3F
_QDError  		OPWORD  	$AA40
_SaveEntries  	OPWORD  	$AA49
_RestoreEntries   OPWORD  	$AA4A
_DelSearch		OPWORD  	$AA4C
_DelComp  		OPWORD  	$AA4D
_SetStdCProcs 	OPWORD  	$AA4E
_StdOpcodeProc	OPWORD  	$ABF8

; added to Toolbox for color

_SetWinColor  	OPWORD  	$AA41
_GetAuxWin		OPWORD  	$AA42
_SetCtlColor  	OPWORD  	$AA43
_GetAuxCtl		OPWORD  	$AA44
_NewCWindow   	OPWORD  	$AA45
_GetNewCWindow	OPWORD  	$AA46
_SetDeskCPat  	OPWORD  	$AA47
_GetCWMgrPort 	OPWORD  	$AA48
_GetCVariant  	OPWORD  	$A809
_GetWVariant  	OPWORD  	$A80A

; added to Menu Manager for color

_DelMCEntries 	OPWORD  	$AA60
_DeleteMCEntries	OPWORD  	$AA60		;<72>
_GetMCInfo		OPWORD  	$AA61
_SetMCInfo		OPWORD  	$AA62
_DispMCInfo   	OPWORD  	$AA63
_DisposeMCInfo 	OPWORD  	$AA63		;<72>
_GetMCEntry   	OPWORD  	$AA64
_SetMCEntries 	OPWORD  	$AA65

; Menu Manager

_MenuChoice   	OPWORD  	$AA66

; Dialog Manager?

_ModalDialogMenuSetup OPWORD $AA67
_DialogDispatch	OPWORD  	$AA68


selectGetStdFilterProc				EQU			3
paramWordsGetStdFilterProc			EQU			2

selectSetDialogDefaultItem			EQU			4
paramWordsSetDialogDefaultItem		EQU			3

selectSetDialogCancelItem			EQU			5
paramWordsSetDialogCancelItem		EQU			3

selectSetDialogTracksCursor			EQU			6
paramWordsSetDialogTracksCursor		EQU			3

		MACRO
		_GetStdFilterProc
		DoDispatch	_DialogDispatch,selectGetStdFilterProc,paramWordsGetStdFilterProc
		ENDM

		MACRO
		_SetDialogDefaultItem
		DoDispatch	_DialogDispatch,selectSetDialogDefaultItem,paramWordsSetDialogDefaultItem
		ENDM

		MACRO
		_SetDialogCancelItem
		DoDispatch	_DialogDispatch,selectSetDialogCancelItem,paramWordsSetDialogCancelItem
		ENDM

		MACRO
		_SetDialogTracksCursor
		DoDispatch	_DialogDispatch,selectSetDialogTracksCursor,paramWordsSetDialogTracksCursor
		ENDM

; Font Manager

_SetFractEnable	OPWORD  	$A814
_FontDispatch 	OPWORD		$A854

selectIsOutline				EQU		0
selectSetOutlinePreferred	EQU		1
selectGetOutlinePreferred	EQU		9
selectOutlineMetrics		EQU		8
selectSetPreserveGlyph		EQU		$A
selectGetPreserveGlyph		EQU		$B
selectFlushFonts			EQU		$C

		MACRO
		_IsOutline
			DoDispatch _FontDispatch,selectIsOutline
		ENDM

		MACRO
		_SetOutlinePreferred
			DoDispatch _FontDispatch,selectSetOutlinePreferred
		ENDM

		MACRO
		_GetOutlinePreferred
			DoDispatch _FontDispatch,selectGetOutlinePreferred
		ENDM

		MACRO
		_OutlineMetrics
			DoDispatch _FontDispatch,selectOutlineMetrics
		ENDM

		MACRO
		_SetPreserveGlyph
			DoDispatch _FontDispatch,selectSetPreserveGlyph
		ENDM

		MACRO
		_GetPreserveGlyph
			DoDispatch _FontDispatch,selectGetPreserveGlyph
		ENDM

		MACRO
		_FlushFonts
			DoDispatch _FontDispatch,selectFlushFonts
		ENDM

; Palette Manager

_InitPalettes 	OPWORD  	$AA90
_NewPalette   	OPWORD  	$AA91
_GetNewPalette	OPWORD  	$AA92
_DisposePalette	OPWORD  	$AA93
_ActivatePalette OPWORD  	$AA94
_SetPalette   	OPWORD  	$AA95
_GetPalette   	OPWORD  	$AA96
_PmForeColor  	OPWORD  	$AA97
_PmBackColor  	OPWORD  	$AA98
_AnimateEntry 	OPWORD  	$AA99
_AnimatePalette	OPWORD  	$AA9A
_GetEntryColor	OPWORD  	$AA9B
_SetEntryColor	OPWORD  	$AA9C
_GetEntryUsage	OPWORD  	$AA9D
_SetEntryUsage	OPWORD  	$AA9E
_CTab2Palette 	OPWORD  	$AA9F
_Palette2CTab 	OPWORD  	$AAA0
_CopyPalette  	OPWORD  	$AAA1
_PaletteDispatch OPWORD		$AAA2

; PaletteDispatch selectors

selectEntry2Index		EQU 	0
selectRestoreDeviceClut EQU 	2
selectResizePalette 	EQU 	3
selectZapLinks			EQU 	4
selectWhatPal			EQU		5
selectDeltaRGB			EQU		10
selectNewHiliteColor	EQU 	11
selectPMgrExit			EQU 	12
selectSaveFore			EQU 	13
selectSaveBack			EQU 	14
selectRestoreFore		EQU 	15
selectRestoreBack		EQU 	16
selectReleaseList		EQU 	18
selectSetDepth			EQU 	19
selectHasDepth			EQU 	20
selectPMgrVersion		EQU 	21
selectSetPaletteUpdates	EQU		22
selectGetPaletteUpdates	EQU		23
selectCheckColors		EQU		24
selectGetGray			EQU		25

		MACRO
		_Entry2Index
			DoDispatch _PaletteDispatch,selectEntry2Index,0
		ENDM

		MACRO
		_RestoreDeviceClut
			DoDispatch _PaletteDispatch,selectRestoreDeviceClut,0
		ENDM

		MACRO
		_ResizePalette
			DoDispatch _PaletteDispatch,selectResizePalette,0
		ENDM

		MACRO
		_ZapLinks
			DoDispatch _PaletteDispatch,selectZapLinks,0
		ENDM

		MACRO
		_WhatPal
			DoDispatch _PaletteDispatch,selectWhatPal,4
		ENDM

		MACRO
		_DeltaRGB
			DoDispatch _PaletteDispatch,selectDeltaRGB,8
		ENDM

		MACRO
		_NewHiliteColor
			DoDispatch _PaletteDispatch,selectNewHiliteColor,0
		ENDM

		MACRO
		_PMgrExit
			DoDispatch _PaletteDispatch,selectPMgrExit,0
		ENDM

		MACRO
		_SaveFore
			DoDispatch _PaletteDispatch,selectSaveFore,4
		ENDM

		MACRO
		_SaveBack
			DoDispatch _PaletteDispatch,selectSaveBack,4
		ENDM

		MACRO
		_RestoreFore
			DoDispatch _PaletteDispatch,selectRestoreFore,4
		ENDM

		MACRO
		_RestoreBack
			DoDispatch _PaletteDispatch,selectRestoreBack,4
		ENDM

		MACRO
		_ReleaseList
			DoDispatch _PaletteDispatch,selectReleaseList,4
		ENDM

		MACRO
		_SetDepth
			DoDispatch _PaletteDispatch,selectSetDepth,10
		ENDM

		MACRO
		_HasDepth
			DoDispatch _PaletteDispatch,selectHasDepth,10
		ENDM

		MACRO
		_PMgrVersion
			DoDispatch _PaletteDispatch,selectPMgrVersion,0
		ENDM

		MACRO
		_SetPaletteUpdates
			DoDispatch _PaletteDispatch,selectSetPaletteUpdates,6
		ENDM

		MACRO
		_CheckColors
			DoDispatch _PaletteDispatch,selectCheckColors,12
		ENDM

		MACRO
		_GetGray
			DoDispatch _PaletteDispatch,selectGetGray,12
		ENDM

; Sound Manager

_SoundDispatch	OPWORD		$A800
_SndDisposeChannel OPWORD 	$A801
_SndAddModifier	OPWORD  	$A802
_SndDoCommand 	OPWORD  	$A803
_SndDoImmediate	OPWORD  	$A804
_SndPlay  		OPWORD  	$A805
_SndControl   	OPWORD  	$A806
_SndNewChannel	OPWORD  	$A807

		MACRO
		_SndSoundManagerVersion
		MOVE.L	#$000C0008,D0
		_SoundDispatch
		ENDM

		MACRO
		_SndStartFilePlay
		MOVE.L	#$0D000008,D0
		_SoundDispatch
		ENDM

		MACRO
		_SndPauseFilePlay
		MOVE.L	#$02040008,D0
		_SoundDispatch
		ENDM

		MACRO
		_SndStopFilePlay
		MOVE.L	#$03080008,D0
		_SoundDispatch
		ENDM

		MACRO
		_SndChannelStatus
		MOVE.L	#$00100008,D0
		_SoundDispatch
		ENDM

		MACRO
		_SndManagerStatus
		MOVE.L	#$00140008,D0
		_SoundDispatch
		ENDM

		MACRO
		_SndGetSysBeepState
		MOVE.L	#$00180008,D0
		_SoundDispatch
		ENDM

		MACRO
		_SndSetSysBeepState
		MOVE.L	#$001C0008,D0
		_SoundDispatch
		ENDM

		MACRO
		_SndPlayDoubleBuffer
		MOVE.L	#$00200008,D0
		_SoundDispatch
		ENDM
		
		MACRO
		_MACEVersion
		MOVE.L	#$00000010,D0
		_SoundDispatch
		ENDM

		MACRO
		_Comp3to1
		MOVE.L	#$00040010,D0
		_SoundDispatch
		ENDM

		MACRO
		_Exp1to3
		MOVE.L	#$00080010,D0
		_SoundDispatch
		ENDM

		MACRO
		_Comp6to1
		MOVE.L	#$000C0010,D0
		_SoundDispatch
		ENDM

		MACRO
		_Exp1to6
		MOVE.L	#$00100010,D0
		_SoundDispatch
		ENDM

		MACRO
		_SPBVersion
		MOVE.L	#$00000014,D0
		_SoundDispatch
		ENDM

		MACRO
		_SndRecord
		MOVE.L	#$08040014,D0
		_SoundDispatch
		ENDM

		MACRO
		_SndRecordToFile
		MOVE.L	#$07080014,D0
		_SoundDispatch
		ENDM

		MACRO
		_SPBSignInDevice
		MOVE.L	#$030C0014,D0
		_SoundDispatch
		ENDM

		MACRO
		_SPBSignOutDevice
		MOVE.L	#$01100014,D0
		_SoundDispatch
		ENDM

		MACRO
		_SPBGetIndexedDevice
		MOVE.L	#$05140014,D0
		_SoundDispatch
		ENDM

		MACRO
		_SPBOpenDevice
		MOVE.L	#$05180014,D0
		_SoundDispatch
		ENDM

		MACRO
		_SPBCloseDevice
		MOVE.L	#$021C0014,D0
		_SoundDispatch
		ENDM

		MACRO
		_SPBRecord
		MOVE.L	#$03200014,D0
		_SoundDispatch
		ENDM

		MACRO
		_SPBRecordToFile
		MOVE.L	#$04240014,D0
		_SoundDispatch
		ENDM

		MACRO
		_SPBPauseRecording
		MOVE.L	#$02280014,D0
		_SoundDispatch
		ENDM

		MACRO
		_SPBResumeRecording
		MOVE.L	#$022C0014,D0
		_SoundDispatch
		ENDM

		MACRO
		_SPBStopRecording
		MOVE.L	#$02300014,D0
		_SoundDispatch
		ENDM

		MACRO
		_SPBGetRecordingStatus
		MOVE.L	#$0E340014,D0
		_SoundDispatch
		ENDM

		MACRO
		_SPBGetDeviceInfo
		MOVE.L	#$06380014,D0
		_SoundDispatch
		ENDM

		MACRO
		_SPBSetDeviceInfo
		MOVE.L	#$063C0014,D0
		_SoundDispatch
		ENDM

		MACRO
		_SPBMilliSecondsToBytes
		MOVE.L	#$04400014,D0
		_SoundDispatch
		ENDM

		MACRO
		_SPBBytesToMilliSeconds
		MOVE.L	#$04440014,D0
		_SoundDispatch
		ENDM

		MACRO
		_SetupSndHeader
		MOVE.L	#$0D480014,D0
		_SoundDispatch
		ENDM

		MACRO
		_SetupAIFFHeader
		MOVE.L	#$0B4C0014,D0
		_SoundDispatch
		ENDM

_SlotManager  	OPWORD  	$A06E
_ScriptUtil   	OPWORD  	$A8B5

	IF NOT (DoROMFastTraps) THEN
_SCSIDispatch 	OPWORD  	$A815
	ELSE
		Macro
		_SCSIDispatch
		lclc &OLDMACH
&OLDMACH SETC	&Setting('MACHINE')		; save the current Machine setting
		MACHINE	MC68020
		JSR		([$E00+$15*4])
		MACHINE	&OLDMACH
		ENDM
	ENDIF
	
_Long2Fix 		OPWORD  	$A83F
_Fix2Long 		OPWORD  	$A840
_Fix2Frac 		OPWORD  	$A841
_Frac2Fix 		OPWORD  	$A842
_Fix2X			OPWORD  	$A843
_X2Fix			OPWORD  	$A844
_Frac2X   		OPWORD  	$A845
_X2Frac   		OPWORD  	$A846
_NMInstall		OPWORD  	$A05E
_NMRemove 		OPWORD  	$A05F

; All QDOffscreen Routines go through one trap with a selector

_QDExtensions 	OPWORD  	$AB1D

selectNewGWorld 			EQU $00160000
selectLockPixels			EQU $00040001
selectUnlockPixels			EQU $00040002
selectUpdateGWorld			EQU $00160003
selectDisposeGWorld 		EQU $00040004
selectGetGWorld 			EQU $00080005
selectSetGWorld 			EQU $00080006
selectCTabChanged			EQU $00040007
selectPixPatChanged 		EQU $00040008
selectPortChanged			EQU $00040009
selectGDeviceChanged		EQU $0004000a
selectAllowPurgePixels		EQU $0004000b
selectNoPurgePixels 		EQU $0004000c
selectGetPixelsState		EQU $0004000d
selectSetPixelsState		EQU $0008000e
selectGetPixBaseAddr		EQU $0004000f
selectNewScreenBuffer		EQU $000e0010
selectDisposeScreenBuffer	EQU $00040011
selectGetGWorldDevice		EQU $00040012
selectQDDone				EQU $00040013
selectOffscreenVersion		EQU $00000014
selectNewTempScreenBuffer	EQU $000e0015
selectPixMap32Bit			EQU	$00040016
selectGetGWorldPixMap		EQU	$00040017

		MACRO
		DoQDExtensionsDispatch &selector
		lcla &value
		&value: seta &eval(&selector)
		move.l	#&value,d0
		_QDExtensions
		ENDM

		MACRO
		_NewGWorld
		DoQDExtensionsDispatch selectNewGWorld
		ENDM

		MACRO
		_LockPixels
		DoQDExtensionsDispatch selectLockPixels
		ENDM

		MACRO
		_UnlockPixels
		DoQDExtensionsDispatch selectUnlockPixels
		ENDM

		MACRO
		_UpdateGWorld
		DoQDExtensionsDispatch selectUpdateGWorld
		ENDM

		MACRO
		_DisposeGWorld
		DoQDExtensionsDispatch selectDisposeGWorld
		ENDM

		MACRO
		_GetGWorld
		DoQDExtensionsDispatch selectGetGWorld
		ENDM

		MACRO
		_SetGWorld
		DoQDExtensionsDispatch selectSetGWorld
		ENDM

		MACRO
		_CTabChanged
		DoQDExtensionsDispatch selectCTabChanged
		ENDM

		MACRO
		_PixPatChanged
		DoQDExtensionsDispatch selectPixPatChanged
		ENDM

		MACRO
		_PortChanged
		DoQDExtensionsDispatch selectPortChanged
		ENDM

		MACRO
		_GDeviceChanged
		DoQDExtensionsDispatch selectGDeviceChanged
		ENDM

		MACRO
		_AllowPurgePixels
		DoQDExtensionsDispatch selectAllowPurgePixels
		ENDM

		MACRO
		_NoPurgePixels
		DoQDExtensionsDispatch selectNoPurgePixels
		ENDM

		MACRO
		_GetPixelsState
		DoQDExtensionsDispatch selectGetPixelsState
		ENDM

		MACRO
		_SetPixelsState
		DoQDExtensionsDispatch selectSetPixelsState
		ENDM

		MACRO
		_GetPixBaseAddr
		DoQDExtensionsDispatch selectGetPixBaseAddr
		ENDM

		MACRO
		_NewScreenBuffer
		DoQDExtensionsDispatch selectNewScreenBuffer
		ENDM

		MACRO
		_DisposeScreenBuffer
		DoQDExtensionsDispatch selectDisposeScreenBuffer
		ENDM

		MACRO
		_GetGWorldDevice
		DoQDExtensionsDispatch selectGetGWorldDevice
		ENDM

		MACRO
		_QDDone
		DoQDExtensionsDispatch selectQDDone
		ENDM

		MACRO
		_OffscreenVersion
		moveq	#selectOffscreenVersion,d0
		_QDExtensions
		ENDM

		MACRO
		_NewTempScreenBuffer
		DoQDExtensionsDispatch selectNewTempScreenBuffer
		ENDM

		MACRO
        _PixMap32Bit
        DoQDExtensionsDispatch   selectPixMap32Bit
		ENDM

		MACRO
		_GetGWorldPixMap
		DoQDExtensionsDispatch selectGetGWorldPixMap
		ENDM

; Calls to symbolic debugger or MacsBug

		MACRO
		_SysBreak
		MOVE.W #-490, D0
		_SysError
		ENDM

		MACRO
		_SysBreakStr
		MOVE.W #-491, D0
		_SysError
		ENDM

		MACRO
		_SysBreakFunc
		MOVE.W #-492, D0
		_SysError
		ENDM

; HwPriv macros

		MACRO
		_DisableInstructionCache
		moveq   	#0,d0
		movea.l 	d0,a0
		_HwPriv
		ENDM

		MACRO
		_EnableInstructionCache
		moveq   	#0,d0
		movea.w 	#1,a0
		_HwPriv
		ENDM

		MACRO
		_FlushInstructionCache
		moveq   	#1,d0
		_HwPriv
		ENDM

		MACRO
		_DisableDataCache
		moveq   	#2,d0
		suba.l a0,a0
		_HwPriv
		ENDM

		MACRO
		_EnableDataCache
		moveq   	#2,d0
		movea.l 	d0,a0
		_HwPriv
		ENDM

		MACRO
		_FlushDataCache
		moveq   	#3,d0
		_HwPriv
		ENDM

		MACRO
		_FlushCacheRange
		moveq	#9,d0
		_HWPriv
		ENDM				

		MACRO
		_SlotBlockXferCtl	; user must setup A0
		moveq	#$C,d0
		_HWPriv
		ENDM

; UserDelay

_UserDelay		OPWORD  	$A84C

selectScrollDelay		EQU 0
paramWordsScrollDelay	EQU	5

		MACRO
		_ScrollDelay
		DoDispatch	_UserDelay,selectScrollDelay,paramWordsScrollDelay
		ENDM

; Picture Utilities

selectGetPictInfo			EQU	0
paramWordsGetPictInfo		EQU	8

selectGetPixMapInfo			EQU	1
paramWordsGetPixMapInfo		EQU	8

selectNewPictInfo			EQU	2
paramWordsNewPictInfo		EQU	6

selectRecordPictInfo		EQU	3
paramWordsRecordPictInfo	EQU	4

selectRecordPixMapInfo		EQU	4
paramWordsRecordPixMapInfo	EQU	4

selectRetrievePictInfo		EQU	5
paramWordsRetrievePictInfo	EQU	5

selectDisposePictInfo		EQU	6
paramWordsDisposePictInfo	EQU	2

		MACRO
		_GetPictInfo
			DoDispatch _Pack15,selectGetPictInfo,paramWordsGetPictInfo
		ENDM

		MACRO
		_GetPixMapInfo
			DoDispatch _Pack15,selectGetPixMapInfo,paramWordsGetPixMapInfo
		ENDM

		MACRO
		_NewPictInfo
			DoDispatch _Pack15,selectNewPictInfo,paramWordsNewPictInfo
		ENDM

		MACRO
		_RecordPictInfo
			DoDispatch _Pack15,selectRecordPictInfo,paramWordsRecordPictInfo
		ENDM

		MACRO
		_RecordPixMapInfo
			DoDispatch _Pack15,selectRecordPixMapInfo,paramWordsRecordPixMapInfo
		ENDM

		MACRO
		_RetrievePictInfo
			DoDispatch _Pack15,selectRetrievePictInfo,paramWordsRetrievePictInfo
		ENDM

		MACRO
		_DisposPictInfo
			DoDispatch _Pack15,selectDisposePictInfo,paramWordsDisposePictInfo
		ENDM

		MACRO
		_DisposePictInfo
			DoDispatch _Pack15,selectDisposePictInfo,paramWordsDisposePictInfo
		ENDM
		
; Dictionary Manager <77> put them into the DictionaryEqu.a file.

; Component Manager

_ComponentDispatch		OPWORD		$A82A

selectCallComponentFunction			EQU	0
selectRegisterComponent				EQU	1
selectUnregisterComponent			EQU	2
selectCountComponents				EQU	3
selectFindNextComponent				EQU	4
selectGetComponentInfo				EQU	5
selectGetComponentListModSeed		EQU	6
selectOpenComponent					EQU	7
selectCloseComponent				EQU	8
selectDestroyComponent				EQU	9
selectGetComponentInstanceError		EQU	10
selectSetComponentInstanceError		EQU	11
selectGetComponentInstanceStorage	EQU	12
selectSetComponentInstanceStorage	EQU	13
selectGetComponentInstanceA5		EQU	14
selectSetComponentInstanceA5		EQU	15
selectGetComponentRefcon			EQU	16
selectSetComponentRefcon			EQU	17
selectRegisterComponentResource		EQU	18
selectCountComponentInstances		EQU	19
selectRegisterComponentResourceFile	EQU	20
selectOpenComponentResFile			EQU	21
selectCleanUpApplicationComponents	EQU	22
selectInitComponentManager			EQU	23
selectCloseComponentResFile			EQU	24
selectComponentManagerVersion		EQU	25
selectxGetComponentParent			EQU	-26
selectxSetComponentParent			EQU	-27
selectCaptureComponent				EQU	28
selectUncaptureComponent			EQU	29
selectSetDefaultComponent			EQU	30
selectLoadComponent					EQU	31
selectUnloadComponent				EQU	32
selectOpenDefaultComponent			EQU	33

selectDelegateComponentCall			EQU	36

	MACRO
	_CallComponent
		DoDispatch	_ComponentDispatch,selectCallComponentFunction
	ENDM

	MACRO
	_RegisterComponent
		DoDispatch	_ComponentDispatch,selectRegisterComponent
	ENDM

	MACRO
	_UnregisterComponent
		DoDispatch	_ComponentDispatch,selectUnregisterComponent
	ENDM

	MACRO
	_CountComponents
		DoDispatch	_ComponentDispatch,selectCountComponents
	ENDM

	MACRO
	_FindNextComponent
		DoDispatch	_ComponentDispatch,selectFindNextComponent
	ENDM

	MACRO
	_GetComponentInfo
		DoDispatch	_ComponentDispatch,selectGetComponentInfo
	ENDM

	MACRO
	_GetComponentListModSeed
		DoDispatch	_ComponentDispatch,selectGetComponentListModSeed
	ENDM

	MACRO
	_OpenComponent
		DoDispatch	_ComponentDispatch,selectOpenComponent
	ENDM

	MACRO
	_CloseComponent
		DoDispatch	_ComponentDispatch,selectCloseComponent
	ENDM

	MACRO
	_DestroyComponent
		DoDispatch	_ComponentDispatch,selectDestroyComponent
	ENDM

	MACRO
	_GetComponentInstanceError
		DoDispatch	_ComponentDispatch,selectGetComponentInstanceError
	ENDM

	MACRO
	_SetComponentInstanceError
		DoDispatch	_ComponentDispatch,selectSetComponentInstanceError
	ENDM

	MACRO
	_GetComponentInstanceStorage
		DoDispatch	_ComponentDispatch,selectGetComponentInstanceStorage
	ENDM

	MACRO
	_SetComponentInstanceStorage
		DoDispatch	_ComponentDispatch,selectSetComponentInstanceStorage
	ENDM

	MACRO
	_GetComponentInstanceA5
		DoDispatch	_ComponentDispatch,selectGetComponentInstanceA5
	ENDM

	MACRO
	_SetComponentInstanceA5
		DoDispatch	_ComponentDispatch,selectSetComponentInstanceA5
	ENDM

	MACRO
	_GetComponentRefcon
		DoDispatch	_ComponentDispatch,selectGetComponentRefcon
	ENDM

	MACRO
	_SetComponentRefcon
		DoDispatch	_ComponentDispatch,selectSetComponentRefcon
	ENDM

	MACRO
	_RegisterComponentResource
		DoDispatch	_ComponentDispatch,selectRegisterComponentResource
	ENDM

	MACRO
	_CountComponentInstances
		DoDispatch	_ComponentDispatch,selectCountComponentInstances
	ENDM

	MACRO
	_RegisterComponentResourceFile
		DoDispatch	_ComponentDispatch,selectRegisterComponentResourceFile
	ENDM

	MACRO
	_OpenComponentResFile
		DoDispatch	_ComponentDispatch,selectOpenComponentResFile
	ENDM

	MACRO
	_CleanUpApplicationComponents
		DoDispatch	_ComponentDispatch,selectCleanUpApplicationComponents
	ENDM

	MACRO
	_InitComponentManager
		DoDispatch	_ComponentDispatch,selectInitComponentManager
	ENDM

	MACRO
	_CloseComponentResFile
		DoDispatch	_ComponentDispatch,selectCloseComponentResFile
	ENDM

	MACRO
	_ComponentManagerVersion
		DoDispatch	_ComponentDispatch,selectComponentManagerVersion
	ENDM


	MACRO
	_CaptureComponent
		DoDispatch	_ComponentDispatch,selectCaptureComponent
	ENDM

	MACRO
	_UncaptureComponent
		DoDispatch	_ComponentDispatch,selectUncaptureComponent
	ENDM

	MACRO
	_SetDefaultComponent
		DoDispatch	_ComponentDispatch,selectSetDefaultComponent
	ENDM

	MACRO
	_LoadComponent
		DoDispatch	_ComponentDispatch,selectLoadComponent
	ENDM

	MACRO
	_UnloadComponent
		DoDispatch	_ComponentDispatch,selectUnloadComponent
	ENDM

	MACRO
	_OpenDefaultComponent
		DoDispatch	_ComponentDispatch,selectOpenDefaultComponent
	ENDM

	MACRO
	_DelegateComponentCall
		DoDispatch	_ComponentDispatch,selectDelegateComponentCall
	ENDM

_InitDogCow                OPWORD                 $A89F		; <71>
_EnableDogCow              OPWORD                 $A89F		; <71>
_DisableDogCow             OPWORD                 $A89F		; <71>
_Moof                      OPWORD                 $A89F		; <71>
_HFSPinaforeDispatch       OPWORD                 $AA52		; <71>


	ENDIF	; already included...