mirror of
https://github.com/elliotnunn/mac-rom.git
synced 2024-09-06 18:54:30 +00:00
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: <09> 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<69>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<69>s kept that way for future System builds. This
|
|||
|
; file probably won<6F>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
|