home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / hard.hdv / AEPC:DRIVERS / SSCCOM1.FIX.bas < prev    next >
BASIC Source File  |  2020-08-13  |  2KB  |  55 lines
  1. 10  REM  first verify copy of ssccom1
  2. 20 D$ =  CHR$(4)
  3. 30  ONERR  GOTO 1000
  4. 40  PRINT D$;"BLOAD SSCCOM1X,T$6D,A$4000"
  5. 50  FOR I = 1 TO 43
  6. 55  ONERR  GOTO 3000
  7. 60  READ OFF,V
  8. 70 J =  PEEK(16384 +OFF)
  9. 80  IF V < >J  THEN  GOTO 2000
  10. 90  NEXT I
  11. 110  ONERR  GOTO 4000
  12. 120  REM  now apply updates to copy of ssccom1
  13. 130  POKE 768,88
  14. 140  PRINT D$;"BSAVE SSCCOM1X,A$300,L1,T$6D,B$75B"
  15. 150  POKE 768,32: POKE 769,84: POKE 770,24
  16. 160  PRINT D$;"BSAVE SSCCOM1X,A$300,L3,T$6D,B$80B"
  17. 170  ONERR  GOTO 3000
  18. 180  FOR I = 1 TO 32
  19. 190  READ V
  20. 200  POKE 767 +I,V
  21. 210  NEXT I
  22. 220  ONERR  GOTO 4000
  23. 230  PRINT D$;"BSAVE SSCCOM1X,A$300,L32,T$6D,B$853"
  24. 240  POKE 768,32: POKE 769,91: POKE 770,24
  25. 250  PRINT D$;"BSAVE SSCCOM1X,A$300,L3,T$6D,B$8E0"
  26. 260  POKE 768,76: POKE 769,98: POKE 770,24: POKE 771,234
  27. 270  PRINT D$;"BSAVE SSCCOM1X,A$300,L4,T$6D,B$CCC"
  28. 280  PRINT "SSCCOM1X SUCCESSFULLY UPDATED"
  29. 290  END 
  30. 1000  PRINT "SSCCOM1X NOT FOUND"
  31. 1010  END 
  32. 2000  PRINT "VERIFY OF SSCCOM1X FAILED"
  33. 2010  PRINT "FOUND ";J;" NOT ";V;" AT OFFSET ";OFF
  34. 2020  END 
  35. 3000  PRINT "PREMATURE END OF DATA"
  36. 3010  END 
  37. 4000  PRINT "BSAVE OF UPDATE TO SSCCOM1X FAILED"
  38. 4010 V =  PEEK(222)
  39. 4020  PRINT "ERROR CODE ";V
  40. 4040  END 
  41. 5000  DATA  1883,51,2059,141,2060,55,2061,29
  42. 5010  DATA  2131,172,2132,59,2133,29,2134,173
  43. 5020  DATA  2135,66,2136,29,2137,56,2138,106
  44. 5030  DATA  2139,106,2140,106,2141,106,2142,13
  45. 5040  DATA  2143,67,2144,29,2145,153,2146,139
  46. 5050  DATA  2147,192,2148,173,2149,68,2150,29
  47. 5060  DATA  2151,74,2152,106,2153,106,2154,106
  48. 5070  DATA  2155,9,2156,11,2157,153,2158,138
  49. 5080  DATA  2159,192,2160,76,2161,134,2162,24
  50. 5090  DATA  2272,173,2273,53,2274,29
  51. 5100  DATA  3276,169,3277,2,3278,208,3279,14
  52. 6000  DATA  0,141,55,29,141,83,24,96
  53. 6010  DATA  238,83,24,173,53,29,96,173
  54. 6020  DATA  83,24,208,3,76,208,28,206,83
  55. 6030  DATA  24,169,2,76,222,28,234