home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / compsrcs / apple2 / 44 < prev    next >
Encoding:
Internet Message Format  |  1990-12-02  |  6.9 KB
  1. Path: wuarchive!zaphod.mps.ohio-state.edu!usc!rutgers!aramis.rutgers.edu!paul.rutgers.edu!yoko.rutgers.edu!jac
  2. From: jac@yoko.rutgers.edu (Jonathan A. Chandross)
  3. Newsgroups: comp.sources.apple2
  4. Subject: v001SRC022:  Patch ProDOS To Run On A Franklin
  5. Message-ID: <Dec.1.17.36.09.1990.25875@yoko.rutgers.edu>
  6. Date: 1 Dec 90 22:36:10 GMT
  7. Organization: Rutgers Univ., New Brunswick, N.J.
  8. Lines: 289
  9. Approved: jac@paul.rutgers.edu
  10.  
  11.  
  12. Submitted-by: NONE
  13. Posting-number: Volume 1, Source:22
  14. Archive-name: prodos/franklin/patch
  15. Architecture: ONLY_FRANKLIN
  16. Version-number: 1.00
  17.  
  18. This Basic program patches ProDOS to it will run on a Franklin.
  19.  
  20. Those of you without a Franklin probably won't find it to
  21. be of much interest.
  22.  
  23. Enjoy.
  24.  
  25.  
  26. =Manual
  27. -
  28. -
  29. -
  30. -
  31. -
  32. -
  33. -
  34. -
  35. -
  36. -             FINDPAT - Franklin ProDOS patcher
  37. -                       ProDOS patcher
  38. -
  39. -                        Version 1.00
  40. -
  41. -
  42. -
  43. -
  44. -This Applesoft program looks through any ProDOS system file
  45. -and look for the code that checks computer type.  This is
  46. -the code that causes ProDOS to lock up on Franklins.  I have
  47. -tested this patch finder on 1.0.1, ProDOS 8 1.3, 1.5, and
  48. -1.7.   It found and correctly patched all of them.   I
  49. -didn't spend much time making this user friendly as you
  50. -shouldn't have to use it much anyways.  When you get a new
  51. -version of ProDOS, just load up an older version (that you
  52. -have already patched for the Franklin) and run this program
  53. -with the new ProDOS file in the active volume.
  54. -
  55. -There are really 2 lines in the program you need be
  56. -concerned about:
  57. -
  58. -     Line 12 : i$="PRODOS"  This is the filename of the ProDOS
  59. -                            OS System file.  You probably won't
  60. -                            have to mess with it.
  61. -
  62. -     Line 13 : l$="15360"   Instead of spending time trying to
  63. -                            add the code to pull the file size
  64. -                            out of the DIR block, you must set
  65. -                            this string to be the DECIMAL length
  66. -                            of the ProDOS file you are patching.
  67. -
  68. -After you run the program if it finds the correct address to
  69. -patch, it will toss a barage of ^G's at you then ask you to
  70. -<B>oot <P>atch or <Q>uit.
  71. -
  72. -     <B>oot    Allows you to check first and verify that the
  73. -               patch address that the finder found is the
  74. -               correct patch.  Press <B> and the new ProDOS
  75. -               file should load up.
  76. -
  77. -     <P>atch   Actually put the patch onto the ProDOS file
  78. -               so it will boot automatically on the
  79. -               Franklin.  Your ProDOS file will be unlocked,
  80. -               saved, and then relocked.
  81. -
  82. -     <Q>uit    Exits.
  83. -
  84. -
  85. -
  86. -
  87. -
  88. -
  89. -
  90. -
  91. -
  92. -
  93. -
  94. -
  95. -
  96. -                           - 2 -
  97. -
  98. -
  99. -
  100. -If you have any questions, comments, concerns,  etc.  PLEASE
  101. -feel free to toss me some e-mail or call.
  102. -
  103. -
  104. -          dvac@drutx.ATT.COM
  105. -          Daniel Vachon
  106. -          AT&T, Denver, CO
  107. -
  108. -
  109. -
  110. -
  111. -
  112. -
  113. -
  114. -
  115. -
  116. -
  117. -
  118. -
  119. -
  120. -
  121. -
  122. -
  123. -
  124. -
  125. -
  126. -
  127. -
  128. -
  129. -
  130. -
  131. -
  132. -
  133. -
  134. -
  135. -
  136. -
  137. -
  138. -
  139. -
  140. -
  141. -
  142. -
  143. -
  144. -
  145. -
  146. -
  147. -
  148. -
  149. -
  150. -
  151. -
  152. -
  153. -
  154. -
  155. -
  156. -
  157. -
  158. -
  159. =Manual.tr
  160. -.\"
  161. -.\" Fake a paragraph so MS sets everthing.  (.BG done at first
  162. -.\" paragraph.)  Then reset the modes to what we want.  MS is
  163. -.\" braindamaged.
  164. -.\"
  165. -.\" Don't adjust margins (ragged right) and turn off hyphenation.
  166. -.\" No date.
  167. -.\"
  168. -.pl 11.0i
  169. -.LP
  170. -.na
  171. -.nr HY 0
  172. -.hy 0
  173. -.ND
  174. -.\"
  175. -.\" Title down 3 lines
  176. -.\"
  177. -.rs 
  178. -.sp 3
  179. -.ce
  180. -FINDPAT - Franklin ProDOS patcher
  181. -.ce
  182. -ProDOS patcher
  183. -.sp
  184. -.ce
  185. -Version 1.00
  186. -.sp 3
  187. -.LP
  188. -This Applesoft program looks through any ProDOS system file and look for
  189. -the code that checks computer type.
  190. -This is the code that causes ProDOS to lock up on Franklins.
  191. -I have tested this
  192. -patch finder on 1.0.1, ProDOS 8 1.3, 1.5, and 1.7.   It found and correctly
  193. -patched all of them.   I didn't spend much time making this user friendly as
  194. -you shouldn't have to use it much anyways.  When you get a new version of
  195. -ProDOS, just load up an older version (that you have already patched for the 
  196. -Franklin) and run this program with the new ProDOS file in the active volume.
  197. -.LP
  198. -There are really 2 lines in the program you need be concerned about:
  199. -.sp
  200. -.RS
  201. -.nf
  202. -Line 12 : i$="PRODOS"  This is the filename of the ProDOS
  203. -               OS System file.  You probably won't
  204. -               have to mess with it.
  205. -.sp
  206. -Line 13 : l$="15360"   Instead of spending time trying to
  207. -               add the code to pull the file size
  208. -               out of the DIR block, you must set
  209. -               this string to be the DECIMAL length
  210. -               of the ProDOS file you are patching.  
  211. -.fi
  212. -.RE
  213. -.LP
  214. -After you run the program if it finds the correct address to patch, it will
  215. -toss a barage of ^G's at you then ask you to <B>oot <P>atch or <Q>uit. 
  216. -.RS
  217. -.IP <B>oot 10n
  218. -Allows you to check first and verify that the patch address
  219. -that the finder found is the correct patch.  Press <B> and the new
  220. -ProDOS file should load up.
  221. -.IP <P>atch 10n
  222. -Actually put the patch onto the ProDOS file so it will boot automatically
  223. -on the Franklin.  Your ProDOS file will be unlocked, saved, and then relocked.
  224. -.IP <Q>uit 10n
  225. -Exits.
  226. -.RE
  227. -.KS
  228. -.LP
  229. -If you have any questions, comments, concerns, etc. PLEASE feel free
  230. -to toss me some e-mail or call.
  231. -.sp 2
  232. -.in 1.0i
  233. -.nf
  234. -dvac@drutx.ATT.COM
  235. -Daniel Vachon
  236. -AT&T, Denver, CO
  237. -.fi
  238. -.in 0
  239. -.KE
  240. =Read.Me
  241. -
  242. -Manual        on-line readable version of manual
  243. -Manual.tr    troff/nroff source to Manual
  244. -patcher        Patch program to allow ProDOS to run on a Franklin
  245. -roff        Unix shell script to produce Manual given Manual.tr
  246. -
  247. =patcher
  248. -0  REM   >> FRANKLIN PDOS PATCHER
  249. -1  REM   >>
  250. -2  REM   >> BY DAN VACHON
  251. -3  REM   >>   (02/10/89)
  252. -4  REM   >> dvac@drutx.ATT.COM
  253. -5  REM   >> AT&T, Denver, CO
  254. -6  REM   >>
  255. -7  TEXT : HOME 
  256. -8  D$ =  CHR$ (4)
  257. -10  PRINT "PRODOS FRANKLIN ACE 1000 PATCH FINDER"
  258. -11  REM   =============
  259. -12 I$ = "PRODOS"
  260. -13 L$ = "15360"
  261. -14  REM   =============
  262. -15  REM    i$=filename
  263. -16  REM    l$=file length (dec)
  264. -17  REM   =============
  265. -19  PRINT D$"BLOAD "I$",A$2000,TSYS"
  266. -20 A = 8192
  267. -25 B = A +  VAL (L$)
  268. -30  POKE 34,2
  269. -33  HOME 
  270. -35  VTAB 21: HTAB 1: PRINT "By Dan Vachon !ucbvax!ihnp4!drutx!dvac"
  271. -37  VTAB 22: HTAB 15: PRINT "(303) 538-5466/289-2548"
  272. -41  VTAB 5: PRINT " ADDRESS RANGE : "A" TO "B
  273. -42  VTAB 10: HTAB 17
  274. -45  PRINT A
  275. -50 I =  PEEK (A):J =  PEEK (A + 1)
  276. -60 K =  PEEK (A + 2):L =  PEEK (A + 3)
  277. -70  IF I <  > 10 THEN 100
  278. -75  IF J <  > 10 THEN 100
  279. -80  IF K <  > 168 THEN 100
  280. -85  IF L <  > 77 THEN 100
  281. -87  HOME 
  282. -90  PRINT "Found it!  Patch should be applied to"
  283. -92  PRINT ""
  284. -93  PRINT "address : ";(A + 8): PRINT 
  285. -94  POKE A + 8,234: POKE A + 9,234
  286. -95  PRINT "(P)ATCH PRODOS": PRINT "(B)OOT INTO PRODOS": PRINT "(Q)UIT TO BASIC"
  287. -96  GET I$: IF I$ = "B" THEN  CALL 8192
  288. -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 
  289. -98  IF I$ <  > "Q" GOTO 95
  290. -99  PRINT "PATCHER EXITED": END 
  291. -100 A = A + 1: IF A > B THEN  PRINT "NOT FOUND": END 
  292. -105  GOTO 42
  293. -900  REM   ==
  294. -901  REM   PDOS PATCHER 
  295. -902  REM   ==
  296. -
  297. =roff
  298. -nroff -ms Manual.tr > Manual
  299. + END OF ARCHIVE
  300.