Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!uunet!seismo!husc6!cmcl2!phri!dasys1!patth
From: patth@dasys1.UUCP (Patt Haring)
Newsgroups: comp.sys.apple
Subject: ProDOS Patch
Message-ID: <936@dasys1.UUCP>
Date: Wed, 29-Jul-87 06:26:35 EDT
Article-I.D.: dasys1.936
Posted: Wed Jul 29 06:26:35 1987
Date-Received: Sat, 1-Aug-87 01:27:04 EDT
Distribution: na
Organization: The Big Electric Cat
Lines: 48
Keywords: To Stop Trashing Track 0 - EXEC and SAVE

NEW
CLEAR
HOME
10 REM Stop ProDOS track 0 trashing
20 REM  patches by Stephen Thomas
30 REM       MacLagan Wright & Associates
40 REM       West Heidelberg, VIC Australia

100 TEXT : HOME: D$=CHR$(4):E=0
110 VTAB 12:? "Now patching ProDOS."
120 ONERR GOTO 500
130 IF PEEK (116)<96 THEN E=1:GOTO 500: REM Make sure there's room
140 PRINT D$;"UNLOCK PRODOS"
150 PRINT D$;"BLOAD PRODOS,A$2000,TSYS"

200 FOR ADR=22211 TO 22220 STEP 3 : REM Change four STAs to LDAs
210 :IF PEEK(ADR)=189 THEN E=2:GOTO 500
220 :IF PEEK(ADR)<>157 THEN E=3:GOTO 500
230 :POKE ADR,189
240 NEXT

300 ADR=20484:V(0)=189:V(1)=142:V(2)=192:REM Chg NOPs to LDA $C08E,X
310 FOR I=0 TO 2
320 :IF PEEK(ADR+I)<>234 THEN E=3:GOTO 500
330 :POKE ADR+I,V(I)
340 NEXT

400 PRINT D$;"BSAVE PRODOS,A$2000,TSYS"
410 PRINT:PRINT"Patches completed."
420 END

500 PRINT CHR$(7);"ERROR!! No patches were made."
510 ON E GOTO 530,540,550
520 ?"ProDOS file not found.":END
530 ?"File has already been patched.":END
540 ?"This version of ProDOS is not 1.1.1."
SAVE PATCHER.MCT
HOME
?"All done, the file has been"
?"EXECed and saved as 'PATCHER.MCT'."
?"The machine is now yours to"
?"do with as you please"
---------------------- cut here -----------------------

-- 
Patt Haring                       UUCP:    ..cmcl2!phri!dasys1!patth
Big Electric Cat                  Compu$erve: 76566,2510
New York, NY, USA                 MCI Mail: 306-1255;  GEnie:  PATTH