mirror of
https://github.com/elliotnunn/mac-rom.git
synced 2024-12-26 18:29:56 +00:00
4325cdcc78
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.
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
|