supermario/base/SuperMarioProj.1994-02-09/Patches/ToolboxCastration.a
2019-06-29 23:17:50 +08:00

81 lines
2.3 KiB
Plaintext

;
; 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