home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_26_1988_Transactor_Publishing.d64 / kernal++.bas (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  7KB  |  151 lines
  1. 100 gosub 190       : rem set up rom copy routine
  2. 110 sys 384         : rem copy roms to ram
  3. 120 gosub 190       : rem copy a chunk for replacement rom code
  4. 130 if q=0 goto 120 : rem loop till all rom chunks copied
  5. 140 poke 1,53       : rem switch out roms
  6. 150 sys 65526       : rem activate wedge
  7. 160 end
  8. 170 :
  9. 180 rem read a,n; poke n bytes starting at a
  10. 190 read a
  11. 200 if a=-1 then q=1: return
  12. 210 read n
  13. 220 for i=a to a+n-1
  14. 230 read b: poke i,b
  15. 240 next i
  16. 250 return
  17. 260 :
  18. 1000 data 384,28 : rem poke 28 byte rom copy routine to 384
  19. 1010 data 169, 160,  32, 135,   1, 169, 224, 160,   0, 132, 251, 133
  20. 1020 data 252, 162,  32, 177, 251, 145, 251, 200, 208, 249, 230, 252
  21. 1030 data 202, 208, 244,  96
  22. 1040 :
  23. 1050 data 57818,1 :rem 1 byte at $e1da
  24. 1060 data 008
  25. 1070 data 57896,3 :rem 3 bytes at $e228
  26. 1080 data 004, 160, 007
  27. 1090 data 58443,2 :rem 2 bytes at $e44b
  28. 1100 data 052, 247
  29. 1110 data 58504,14 :rem 14 bytes at $e488
  30. 1120 data 203, 069, 082, 078, 065, 076, 043, 043, 032, 214, 049, 046
  31. 1130 data 048, 032
  32. 1140 data 58551,13 :rem 13 bytes at $e4b7
  33. 1150 data 076, 079, 065, 068, 034, 048, 058, 042, 034, 044, 056, 044
  34. 1160 data 049
  35. 1170 data 58858,6 :rem 6 bytes at $e5ea
  36. 1180 data 076, 095, 246, 234, 162, 005
  37. 1190 data 59173,5 :rem 5 bytes at $e725
  38. 1200 data 076, 025, 250, 234, 234
  39. 1210 data 59346,2 :rem 2 bytes at $e7d2
  40. 1220 data 058, 250
  41. 1230 data 59746,3 :rem 3 bytes at $e962
  42. 1240 data 076, 008, 250
  43. 1250 data 60482,1 :rem 1 byte at $ec42
  44. 1260 data 132
  45. 1270 data 60536,3 :rem 3 bytes at $ec78
  46. 1280 data 023, 021, 026
  47. 1290 data 60543,1 :rem 1 byte at $ec7f
  48. 1300 data 025
  49. 1310 data 60587,1 :rem 1 byte at $ecab
  50. 1320 data 022
  51. 1330 data 60599,1 :rem 1 byte at $ecb7
  52. 1340 data 133
  53. 1350 data 60647,4 :rem 4 bytes at $ece7
  54. 1360 data 013, 082, 085, 078
  55. 1370 data 62158,3 :rem 3 bytes at $f2ce
  56. 1380 data 076, 113, 242
  57. 1390 data 62347,2 :rem 2 bytes at $f38b
  58. 1400 data 076, 019
  59. 1410 data 62777,2 :rem 2 bytes at $f539
  60. 1420 data 076, 019
  61. 1430 data 63066,2 :rem 2 bytes at $f65a
  62. 1440 data 234, 234
  63. 1450 data 63071,39 :rem 39 bytes at $f65f
  64. 1460 data 201, 131, 208, 003, 076, 238, 229, 201, 132, 208, 004, 162
  65. 1470 data 013, 208, 006, 201, 133, 208, 017, 162, 009, 120, 134, 198
  66. 1480 data 189, 182, 228, 157, 118, 002, 202, 208, 247, 076, 205, 229
  67. 1490 data 076, 254, 229
  68. 1500 data 63276,876 :rem 876 bytes at $f72c
  69. 1510 data 032, 083, 228, 169, 008, 133, 190, 096, 166, 122, 208, 036
  70. 1520 data 201, 064, 240, 114, 201, 062, 240, 110, 201, 095, 240, 030
  71. 1530 data 201, 037, 240, 038, 201, 094, 240, 037, 201, 047, 240, 033
  72. 1540 data 201, 061, 240, 029, 201, 033, 240, 007, 201, 035, 240, 026
  73. 1550 data 076, 124, 165, 076, 089, 249, 032, 077, 249, 032, 089, 225
  74. 1560 data 032, 058, 248, 076, 017, 249, 169, 001, 044, 169, 000, 076
  75. 1570 data 140, 248, 173, 001, 002, 240, 094, 032, 077, 249, 164, 183
  76. 1580 data 200, 169, 044, 153, 000, 002, 200, 169, 083, 153, 000, 002
  77. 1590 data 132, 183, 032, 060, 249, 169, 025, 032, 210, 255, 165, 144
  78. 1600 data 208, 014, 032, 225, 255, 240, 009, 032, 165, 255, 032, 210
  79. 1610 data 255, 076, 150, 247, 032, 066, 246, 076, 104, 247, 032, 077
  80. 1620 data 249, 173, 001, 002, 240, 038, 201, 035, 240, 049, 201, 081
  81. 1630 data 240, 035, 201, 036, 240, 054, 201, 092, 240, 025, 032, 050
  82. 1640 data 249, 160, 000, 185, 001, 002, 032, 168, 255, 200, 196, 183
  83. 1650 data 208, 245, 032, 174, 255, 076, 242, 247, 076, 017, 249, 240
  84. 1660 data 094, 169, 124, 141, 004, 003, 169, 165, 141, 005, 003, 173
  85. 1670 data 002, 002, 041, 015, 133, 190, 032, 122, 166, 076, 123, 164
  86. 1680 data 032, 060, 249, 169, 003, 133, 156, 032, 165, 255, 133, 158
  87. 1690 data 032, 165, 255, 133, 159, 166, 144, 208, 039, 198, 156, 208
  88. 1700 data 238, 166, 158, 164, 159, 032, 205, 189, 169, 032, 032, 210
  89. 1710 data 255, 032, 165, 255, 240, 006, 032, 210, 255, 076, 029, 248
  90. 1720 data 032, 058, 248, 032, 225, 255, 240, 004, 169, 002, 208, 201
  91. 1730 data 032, 066, 246, 076, 242, 247, 169, 013, 076, 210, 255, 032
  92. 1740 data 050, 249, 160, 000, 185, 104, 248, 032, 168, 255, 200, 192
  93. 1750 data 031, 208, 245, 032, 174, 255, 032, 050, 249, 160, 000, 185
  94. 1760 data 135, 248, 032, 168, 255, 200, 192, 005, 208, 245, 032, 174
  95. 1770 data 255, 076, 017, 249, 077, 045, 087, 000, 006, 025, 032, 066
  96. 1780 data 208, 173, 002, 007, 073, 004, 141, 002, 007, 141, 166, 007
  97. 1790 data 169, 065, 141, 001, 001, 032, 007, 239, 076, 066, 208, 077
  98. 1800 data 045, 069, 000, 006, 133, 185, 032, 077, 249, 166, 043, 164
  99. 1810 data 044, 173, 000, 002, 201, 061, 240, 002, 169, 000, 032, 158
  100. 1820 data 244, 176, 047, 165, 144, 041, 016, 208, 047, 173, 000, 002
  101. 1830 data 201, 037, 240, 043, 165, 174, 133, 045, 165, 175, 133, 046
  102. 1840 data 032, 089, 166, 032, 051, 165, 032, 142, 166, 173, 000, 002
  103. 1850 data 201, 094, 208, 019, 169, 000, 133, 157, 141, 000, 002, 076
  104. 1860 data 174, 167, 170, 208, 012, 162, 030, 044, 162, 028, 044, 162
  105. 1870 data 128, 169, 255, 133, 058, 108, 000, 003, 160, 002, 132, 188
  106. 1880 data 136, 132, 187, 136, 185, 001, 002, 240, 029, 201, 034, 240
  107. 1890 data 003, 200, 016, 244, 162, 000, 185, 002, 002, 157, 001, 002
  108. 1900 data 240, 010, 201, 034, 240, 006, 200, 232, 224, 037, 208, 238
  109. 1910 data 138, 168, 132, 183, 096, 032, 084, 249, 165, 186, 032, 180
  110. 1920 data 255, 169, 111, 032, 150, 255, 032, 165, 255, 032, 210, 255
  111. 1930 data 201, 013, 240, 004, 165, 144, 240, 242, 032, 171, 255, 076
  112. 1940 data 242, 247, 165, 186, 032, 177, 255, 169, 111, 076, 147, 255
  113. 1950 data 169, 096, 133, 185, 032, 213, 243, 165, 186, 032, 180, 255
  114. 1960 data 165, 185, 076, 150, 255, 032, 228, 248, 165, 190, 133, 186
  115. 1970 data 169, 000, 133, 144, 096, 173, 001, 002, 240, 209, 201, 068
  116. 1980 data 240, 033, 201, 042, 240, 035, 201, 048, 144, 197, 201, 060
  117. 1990 data 176, 193, 141, 032, 208, 172, 002, 002, 240, 007, 024, 152
  118. 2000 data 105, 010, 141, 032, 208, 141, 033, 208, 076, 242, 247, 032
  119. 2010 data 159, 249, 076, 242, 247, 169, 001, 168, 145, 043, 032, 051
  120. 2020 data 165, 165, 034, 133, 045, 165, 035, 133, 046, 032, 089, 166
  121. 2030 data 076, 242, 247, 169, 128, 141, 138, 002, 169, 000, 141, 032
  122. 2040 data 208, 234, 234, 141, 033, 208, 169, 153, 032, 210, 255, 169
  123. 2050 data 014, 076, 210, 255, 032, 044, 247, 032, 191, 227, 032, 159
  124. 2060 data 249, 032, 034, 228, 162, 251, 154, 169, 001, 133, 002, 173
  125. 2070 data 141, 002, 201, 001, 240, 006, 201, 004, 240, 004, 208, 034
  126. 2080 data 070, 002, 032, 231, 255, 160, 255, 200, 185, 253, 249, 153
  127. 2090 data 001, 002, 208, 247, 032, 228, 248, 165, 002, 208, 003, 169
  128. 2100 data 094, 044, 169, 037, 141, 000, 002, 076, 068, 247, 076, 134
  129. 2110 data 227, 048, 058, 063, 042, 000, 032, 159, 249, 108, 002, 160
  130. 2120 data 133, 172, 120, 169, 253, 141, 000, 220, 173, 001, 220, 201
  131. 2130 data 127, 240, 244, 088, 096, 016, 003, 076, 212, 231, 201, 023
  132. 2140 data 240, 003, 076, 042, 231, 165, 216, 240, 008, 169, 000, 133
  133. 2150 data 216, 133, 212, 240, 006, 165, 212, 208, 244, 230, 212, 076
  134. 2160 data 168, 230, 201, 021, 240, 015, 201, 022, 240, 029, 201, 025
  135. 2170 data 240, 035, 201, 026, 240, 060, 076, 068, 236, 169, 032, 145
  136. 2180 data 209, 173, 033, 208, 145, 243, 200, 196, 213, 144, 242, 240
  137. 2190 data 240, 176, 007, 160, 000, 162, 024, 032, 012, 229, 076, 168
  138. 2200 data 230, 162, 025, 202, 228, 214, 240, 011, 181, 217, 009, 128
  139. 2210 data 149, 217, 032, 255, 233, 048, 240, 032, 240, 233, 032, 036
  140. 2220 data 234, 164, 211, 076, 077, 250, 162, 255, 232, 181, 217, 009
  141. 2230 data 128, 149, 217, 032, 255, 233, 228, 214, 208, 242, 240, 206
  142. 2240 data 64767,3 :rem 3 bytes at $fcff
  143. 2250 data 076, 184, 249
  144. 2260 data 65135,3 :rem 3 bytes at $fe6f
  145. 2270 data 076, 002, 250
  146. 2280 data 65408,1 :rem 1 byte at $ff80
  147. 2290 data 016
  148. 2300 data 65526,3 :rem 3 bytes at $fff6
  149. 2310 data 076, 044, 247
  150. 2320 data -1
  151.