mirror of
https://github.com/elliotnunn/mac-rom.git
synced 2025-01-01 11:29:27 +00:00
0ba83392d4
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.
148 lines
5.1 KiB
Plaintext
148 lines
5.1 KiB
Plaintext
;
|
|
; File: TextEditPatch.a (formerly TE_Patches.a)
|
|
;
|
|
; Contains: This is the 'ptch' resource which loads TextEdit into the Plus/SE/MacII/Portable
|
|
;
|
|
; Written by: Russ Wetmore <RWW112487>, Sue Bartalo (most recently)
|
|
;
|
|
; Copyright: © 1987-1992 by Apple Computer, Inc., all rights reserved.
|
|
;
|
|
; Change History (most recent first):
|
|
;
|
|
; <8> 4/27/92 DTY Get rid of hasSplineFonts conditionals.
|
|
; <7> 8/30/91 DTY Define hasCQD here since itÕs no longer an available feature in
|
|
; BBSStartup. This keeps TextEdit.a happy.
|
|
; <6> 1/14/91 SMB (jdt) Added include file, fontPrivate.a.
|
|
; <5> 8/14/90 DTY Changed into a linked patch.
|
|
; <4> 6/22/90 SMB NEEDED FOR SIXPACK & 7.0: Adding more code to be cutback by
|
|
; including new file, TextEditInit.a
|
|
; <3> 1/16/90 SMB Including new TextEditPriv.a file.
|
|
; <2> 1/4/90 PKE Changed conditionals from SysVers >= $700 to SysVers >= $605.
|
|
; Updated header to BBS format.
|
|
; <1> 12/18/89 CCH Adding for the first time into BBS.
|
|
; BBS versions above:
|
|
;___________________________________________________________________________________________________
|
|
; EASE versions below:
|
|
; <1.6> 8/30/89 smb NEEDED FOR Scripts604 and 7.0: added ptchVersions for each build.
|
|
; <1.5> 8/25/89 SMB NEEDED FOR Scripts604 and 7.0: removed load of nEqu.d.
|
|
; <1.4> 7/20/89 smb NEEDED FOR 604!!! added 'Scripts604' in order to do 604 script
|
|
; system builds using the new TE.
|
|
; <1.3> 7/9/89 smb Moved include of ScriptPriv.a from TextEdit.a to here for 7.0.
|
|
; <1.2> 7/8/89 smb Added call to TEGlobalInit to initialize Big Bang vectors for TE.
|
|
; <1.1> 2/22/89 CCH <enter comment here>
|
|
; <1.0> 11/16/88 CCH Added to EASE.
|
|
;___________________________________________________________________________________________________
|
|
; To Do:
|
|
;
|
|
;___________________________________________________________________________________________________
|
|
|
|
LOAD 'StandardEqu.d'
|
|
INCLUDE 'LinkedPatchMacros.a'
|
|
|
|
; added <20July89smb>
|
|
IF (&TYPE('Scripts604') = 'UNDEFINED') THEN
|
|
Scripts604 EQU 0
|
|
ENDIF
|
|
|
|
IF Scripts604 | SysVers>= $605 THEN ; added Scripts604 <20July89smb>
|
|
INCLUDE 'ScriptPriv.a' ; <8July89smb>
|
|
ENDIF
|
|
INCLUDE 'TextEditPriv.a' ; <1/9/90smb>
|
|
INCLUDE 'fontPrivate.a' ; <20>
|
|
|
|
;
|
|
; <7> When hasCQD was defined in {AvailableFeatures} in BBSStartup, it was defined
|
|
; to be 0 for System builds, itÕs kept that way for future System builds. This
|
|
; file probably wonÕt be used in ROM builds, but in case it ever is, hasCQD
|
|
; is defined to be true for those builds.
|
|
;
|
|
|
|
if (&type('hasCQD') = 'UNDEFINED') then ; <7>
|
|
if forROM then ; <7>
|
|
hasCQD: equ 1 ; <7>
|
|
else ; <7>
|
|
hasCQD: equ 0 ; <7>
|
|
endif ; <7>
|
|
endif ; <7>
|
|
|
|
|
|
InsideTEPatch equ 1 ; signal in patch <S383>
|
|
|
|
ptchID Equ 0 ; <=== Whatever this resource ID is
|
|
;;ptchVersion Equ 1 ; <=== Whatever the version number is
|
|
|
|
; defined versions <30Aug89smb>
|
|
IF SysVers>= $605 THEN
|
|
ptchVersion Equ 4 ; 6.0.5 & Big Bang (gestaltTE4)
|
|
ELSEIF Scripts604 THEN
|
|
ptchVersion Equ 3 ; 604 Script Systems ptch0 (gestaltTE3)
|
|
ELSE
|
|
ptchVersion Equ 0 ; styled TE (pre-TextEdit 3.0)
|
|
ENDIF
|
|
|
|
Macro
|
|
InstVector &entryPt, &addr
|
|
Import &entryPt
|
|
Lea &entryPt,A0
|
|
Move.L A0,&addr
|
|
EndM
|
|
|
|
IF Scripts604 | SysVers>= $605 THEN ; added Scripts604 <20July89smb>
|
|
Include 'TextEdit.a' ; for 6.0.4 Script Systems and Big Bang <6July89smb>
|
|
ELSE
|
|
Include 'StyledTextEdit.a'
|
|
ENDIF
|
|
|
|
; ***************************************************************************
|
|
|
|
ROMS Plus,SE,II,Portable
|
|
|
|
MakePatch TEActivate,$A9D8
|
|
MakePatch TEAutoView,$A813
|
|
MakePatch TECalText,$A9D0
|
|
MakePatch TEClick,$A9D4
|
|
MakePatch TECopy,$A9D5
|
|
MakePatch TECut,$A9D6
|
|
MakePatch TEDeactivate,$A9D9
|
|
MakePatch TEDelete,$A9D7
|
|
MakePatch TEDispatch,$A83D
|
|
MakePatch TEDispose,$A9CD
|
|
MakePatch TEGetOffset,$A83C
|
|
MakePatch TEGetText,$A9CB
|
|
MakePatch TEIdle,$A9DA
|
|
MakePatch TEInit,$A9CC
|
|
MakePatch TEInsert,$A9DE
|
|
MakePatch TEKey,$A9DC
|
|
MakePatch TENew,$A9D2
|
|
MakePatch TEPaste,$A9DB
|
|
MakePatch TEPinScroll,$A812
|
|
MakePatch TEScroll,$A9DD
|
|
MakePatch TESelView,$A811
|
|
MakePatch TESetJust,$A9DF
|
|
MakePatch TESetSelect,$A9D1
|
|
MakePatch TESetText,$A9CF
|
|
MakePatch TEStylNew,$A83E
|
|
MakePatch TEUpdate,$A9D3
|
|
MakePatch TextBox,$A9CE
|
|
MakePatch xTrimMeasure,$07F4
|
|
MakePatch xFindWord,$07F8
|
|
MakePatch xFindLine,$07FC
|
|
MakePatch vPixel2Char,$0798
|
|
MakePatch vChar2Pixel,$079C
|
|
|
|
; *************************************************************************** <4>
|
|
IF SysVers>= $606 THEN ; <4>
|
|
Include 'TextEditInit.a' ; more code to be cutback <4>
|
|
ENDIF ; <4>
|
|
; ***************************************************************************
|
|
; Your boot-time initialization code, if any, goes here.
|
|
|
|
InstallTextEditPatches InstallProc (Plus,SE,II,Portable)
|
|
IF Scripts604 | SysVers>= $605 THEN ; added Scripts604 <20July89smb>
|
|
Import TEGlobalInit ; <6July89smb>
|
|
Bsr TEGlobalInit ; init TE vectors <6July89smb>
|
|
ENDIF
|
|
rts
|
|
EndProc
|
|
End
|