home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 8 / amigaformatcd08.iso / in_the_mag / emulation / ql / qdos4amiga3.lha / C68_FIX040_bas < prev    next >
Text File  |  1995-09-21  |  961b  |  29 lines
  1. 100 REMark - This patch fixes the bug in
  2. 105 REMark - C68 programs which prevents
  3. 110 REMark - execution on SMSQ, SMSQE or
  4. 115 REMark - non 68000/68008 systems in
  5. 117 REMark - which the "PROCESSOR"  FN
  6. 118 REMark - ( or  PEEK(SYSBASE+161) )
  7. 120 REMark - returns the value $40.
  8. 130 :
  9. 140 REPeat loop
  10. 150   INPUT 'Filename> ';fnm$
  11. 160   IF fnm$='': STOP
  12. 170   fch = 4: OPEN#4;fnm$
  13. 190   fl = FLEN (#fch): IF fl > 4000: fl = 4000
  14. 200   patch = 0
  15. 210 :
  16. 220   FOR fp = 8 TO fl-8 STEP 2
  17. 230     GET #fch\(fp), ck1%,ck2%,ck3%
  18. 240     IF ck1% = HEX("0C28") AND ck2% = HEX("0030") AND ck3% = HEX("00A1")
  19. 250       BGET #fch,ck%
  20. 260       IF ck% = HEX("60"): PRINT 'File already patched': patch = fp
  21. 270       IF ck% <> HEX("63"): EXIT fp
  22. 280       BPUT #fch\(fp+6),HEX("60"): patch = fp: PRINT fp
  23. 290     END IF 
  24. 300   END FOR fp
  25. 305   CLOSE #fch
  26. 310   IF patch: INPUT 'DONE, FERTIG, FINI';a$: STOP
  27. 320   INPUT 'C68 Start-up code not recognised'; a$
  28. 330 END REPeat loop
  29.