mirror of
https://github.com/elliotnunn/sys7.1-doc-wip.git
synced 2024-06-12 14:29:29 +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: © 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
|