jac@yoko.rutgers.edu (Jonathan A. Chandross) (12/02/90)
Submitted-by: NONE Posting-number: Volume 1, Source:22 Archive-name: prodos/franklin/patch Architecture: ONLY_FRANKLIN Version-number: 1.00 This Basic program patches ProDOS to it will run on a Franklin. Those of you without a Franklin probably won't find it to be of much interest. Enjoy. =Manual - - - - - - - - - - FINDPAT - Franklin ProDOS patcher - ProDOS patcher - - Version 1.00 - - - - -This Applesoft program looks through any ProDOS system file -and look for the code that checks computer type. This is -the code that causes ProDOS to lock up on Franklins. I have -tested this patch finder on 1.0.1, ProDOS 8 1.3, 1.5, and -1.7. It found and correctly patched all of them. I -didn't spend much time making this user friendly as you -shouldn't have to use it much anyways. When you get a new -version of ProDOS, just load up an older version (that you -have already patched for the Franklin) and run this program -with the new ProDOS file in the active volume. - -There are really 2 lines in the program you need be -concerned about: - - Line 12 : i$="PRODOS" This is the filename of the ProDOS - OS System file. You probably won't - have to mess with it. - - Line 13 : l$="15360" Instead of spending time trying to - add the code to pull the file size - out of the DIR block, you must set - this string to be the DECIMAL length - of the ProDOS file you are patching. - -After you run the program if it finds the correct address to -patch, it will toss a barage of ^G's at you then ask you to -<B>oot <P>atch or <Q>uit. - - <B>oot Allows you to check first and verify that the - patch address that the finder found is the - correct patch. Press <B> and the new ProDOS - file should load up. - - <P>atch Actually put the patch onto the ProDOS file - so it will boot automatically on the - Franklin. Your ProDOS file will be unlocked, - saved, and then relocked. - - <Q>uit Exits. - - - - - - - - - - - - - - - 2 - - - - -If you have any questions, comments, concerns, etc. PLEASE -feel free to toss me some e-mail or call. - - - dvac@drutx.ATT.COM - Daniel Vachon - AT&T, Denver, CO - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - =Manual.tr -.\" -.\" Fake a paragraph so MS sets everthing. (.BG done at first -.\" paragraph.) Then reset the modes to what we want. MS is -.\" braindamaged. -.\" -.\" Don't adjust margins (ragged right) and turn off hyphenation. -.\" No date. -.\" -.pl 11.0i -.LP -.na -.nr HY 0 -.hy 0 -.ND -.\" -.\" Title down 3 lines -.\" -.rs -.sp 3 -.ce -FINDPAT - Franklin ProDOS patcher -.ce -ProDOS patcher -.sp -.ce -Version 1.00 -.sp 3 -.LP -This Applesoft program looks through any ProDOS system file and look for -the code that checks computer type. -This is the code that causes ProDOS to lock up on Franklins. -I have tested this -patch finder on 1.0.1, ProDOS 8 1.3, 1.5, and 1.7. It found and correctly -patched all of them. I didn't spend much time making this user friendly as -you shouldn't have to use it much anyways. When you get a new version of -ProDOS, just load up an older version (that you have already patched for the -Franklin) and run this program with the new ProDOS file in the active volume. -.LP -There are really 2 lines in the program you need be concerned about: -.sp -.RS -.nf -Line 12 : i$="PRODOS" This is the filename of the ProDOS - OS System file. You probably won't - have to mess with it. -.sp -Line 13 : l$="15360" Instead of spending time trying to - add the code to pull the file size - out of the DIR block, you must set - this string to be the DECIMAL length - of the ProDOS file you are patching. -.fi -.RE -.LP -After you run the program if it finds the correct address to patch, it will -toss a barage of ^G's at you then ask you to <B>oot <P>atch or <Q>uit. -.RS -.IP <B>oot 10n -Allows you to check first and verify that the patch address -that the finder found is the correct patch. Press <B> and the new -ProDOS file should load up. -.IP <P>atch 10n -Actually put the patch onto the ProDOS file so it will boot automatically -on the Franklin. Your ProDOS file will be unlocked, saved, and then relocked. -.IP <Q>uit 10n -Exits. -.RE -.KS -.LP -If you have any questions, comments, concerns, etc. PLEASE feel free -to toss me some e-mail or call. -.sp 2 -.in 1.0i -.nf -dvac@drutx.ATT.COM -Daniel Vachon -AT&T, Denver, CO -.fi -.in 0 -.KE =Read.Me - -Manual on-line readable version of manual -Manual.tr troff/nroff source to Manual -patcher Patch program to allow ProDOS to run on a Franklin -roff Unix shell script to produce Manual given Manual.tr - =patcher -0 REM >> FRANKLIN PDOS PATCHER -1 REM >> -2 REM >> BY DAN VACHON -3 REM >> (02/10/89) -4 REM >> dvac@drutx.ATT.COM -5 REM >> AT&T, Denver, CO -6 REM >> -7 TEXT : HOME -8 D$ = CHR$ (4) -10 PRINT "PRODOS FRANKLIN ACE 1000 PATCH FINDER" -11 REM ============= -12 I$ = "PRODOS" -13 L$ = "15360" -14 REM ============= -15 REM i$=filename -16 REM l$=file length (dec) -17 REM ============= -19 PRINT D$"BLOAD "I$",A$2000,TSYS" -20 A = 8192 -25 B = A + VAL (L$) -30 POKE 34,2 -33 HOME -35 VTAB 21: HTAB 1: PRINT "By Dan Vachon !ucbvax!ihnp4!drutx!dvac" -37 VTAB 22: HTAB 15: PRINT "(303) 538-5466/289-2548" -41 VTAB 5: PRINT " ADDRESS RANGE : "A" TO "B -42 VTAB 10: HTAB 17 -45 PRINT A -50 I = PEEK (A):J = PEEK (A + 1) -60 K = PEEK (A + 2):L = PEEK (A + 3) -70 IF I < > 10 THEN 100 -75 IF J < > 10 THEN 100 -80 IF K < > 168 THEN 100 -85 IF L < > 77 THEN 100 -87 HOME -90 PRINT "Found it! Patch should be applied to" -92 PRINT "" -93 PRINT "address : ";(A + 8): PRINT -94 POKE A + 8,234: POKE A + 9,234 -95 PRINT "(P)ATCH PRODOS": PRINT "(B)OOT INTO PRODOS": PRINT "(Q)UIT TO BASIC" -96 GET I$: IF I$ = "B" THEN CALL 8192 -97 IF I$ = "P" THEN PRINT D$"UNLOCK PRODOS": PRINT D$"BSAVE PRODOS,TSYS,A$2000,L"L$: PRINT D$"LOCK PRODOS": PRINT : PRINT "PATCHED!": PRINT : END -98 IF I$ < > "Q" GOTO 95 -99 PRINT "PATCHER EXITED": END -100 A = A + 1: IF A > B THEN PRINT "NOT FOUND": END -105 GOTO 42 -900 REM == -901 REM PDOS PATCHER -902 REM == - =roff -nroff -ms Manual.tr > Manual + END OF ARCHIVE