mac-rom/Patches/ToolboxCastration.a
Elliot Nunn 4325cdcc78 Bring in CubeE sources
Resource forks are included only for .rsrc files. These are DeRezzed into their data fork. 'ckid' resources, from the Projector VCS, are not included.

The Tools directory, containing mostly junk, is also excluded.
2017-12-26 09:52:23 +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