;
;	File:		ToolboxCastration.a
;
;	Contains:	This unimplements the Toolbox version of the following "bisexual" traps.
;
;	Written by:	Ed Tecot
;
;	Copyright:	© 1988-1991 by Apple Computer, Inc., all rights reserved.
;
;	Change History (most recent first):
;
;		 <4>	  3/4/91	dba		dty: get rid of SysVers conditionals
;		 <3>	 8/18/90	dba		most of the bisexual traps have been reused by now, at least in
;									System 7; all that remain are A824 and A82A, both of which are
;									assigned, but not yet used
;		 <2>	 2/22/90	EMT		Updated for System 7.0.
;				  1/7/88	EMT		Created.

; They were carried over into Mac Plus because they were misused by some applications,
; OverVue in particular.
;
;	Old Trap		Trap Word		New Trap
;	========		=========		========
;	GetZone			$A81A			HOpenResFile
;	SetZone			$A81B			HCreateResFile
;	MaxMem			$A81D			InvalMenuBar
;	NewPtr			$A81E			BitsDispatch
;	NewHandle		$A822			ResourceDispatch
;	DisposHandle	$A823			AliasDispatch
;	SetHandleSize	$A824
;	GetHandleSize	$A825			MenuDispatch
;	HLock			$A829			LayerDispatch
;	HUnlock			$A82A
;	CompactMem		$A84C			UserDelay
;	UprString		$A854			FontDispatch
;
; The following traps have not yet been unimplemented because an application is known
; to use it.
;
;	FlushEvents		$A832	(OverVue)

		  	MOVE.W	#$9F, D0				; Get Unimplemented core routine address
			_GetTrapAddress	NewTool

	IF 0 THEN
			MOVEQ	#$1A, D0				; GetZone			HOpenResFile
			_SetTrapAddress	NewTool
			MOVEQ	#$1B, D0				; SetZone			HCreateResFile
			_SetTrapAddress	NewTool
			MOVEQ	#$1D, D0				; MaxMem			InvalMenuBar
			_SetTrapAddress	NewTool
			MOVEQ	#$1E, D0				; NewPtr			BitsDispatch
			_SetTrapAddress	NewTool
			MOVEQ	#$22, D0				; NewHandle			ResourceDispatch
			_SetTrapAddress	NewTool
			MOVEQ	#$23, D0				; DisposHandle		AliasDispatch
			_SetTrapAddress	NewTool
	ENDIF

			MOVEQ	#$24, D0				; SetHandleSize
			_SetTrapAddress	NewTool

	IF 0 THEN
			MOVEQ	#$25, D0				; GetHandleSize		MenuDispatch
			_SetTrapAddress	NewTool
			MOVEQ	#$29, D0				; HLock				LayerDispatch
			_SetTrapAddress	NewTool
	ENDIF

			MOVEQ	#$2A, D0				; HUnlock
			_SetTrapAddress	NewTool

	IF 0 THEN
			MOVEQ	#$32, D0				; FlushEvents
			_SetTrapAddress	NewTool
			MOVEQ	#$4C, D0				; CompactMem		UserDelay
			_SetTrapAddress	NewTool
			MOVEQ	#$54, D0				; UprString			FontDispatch
			_SetTrapAddress	NewTool
	ENDIF