81 lines
2.3 KiB
Plaintext
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
|