home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V4D10.D64 / c64analyser (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  10.3 KB  |  189 lines
  1. 10 GOSUB900:CLR:REM SET LOAD ADDR
  2. 15 GOSUB980    :REM SETUP VARIABLES
  3. 20 GOSUB800    :REM LOAD THE ANALYSER
  4. 30 GOSUB500    :REM RELOCATION SETUP
  5. 40 :
  6. 50 REM  CHK OP-CODES FOR RELOCATION
  7. 60 :
  8. 70 IFCA>EATHENPRINT"RELOCATION OK":GOTO150
  9. 80 I=PEEK(CA):IFOC(I)=0THENPRINT"INVALID OP-CODE":END
  10. 90 IFOC(I)=1THENCA=CA+1:GOTO70
  11. 100 IFOC(I)=2THENCA=CA+2:GOTO70
  12. 110 AD=PEEK(CA+1)+PEEK(CA+2)*256:IFAD<A3ORAD>A4THENCA=CA+3:GOTO70
  13. 115 AD=AD-RF:HB=INT(AD/256):LB=AD-HB*256
  14. 120 POKECA+1,LB:POKECA+2,HB:CA=CA+3:GOTO70
  15. 150 PRINT"1. START ANALYSER = SYS";LA
  16. 160 PRINT"2. STOP  ANALYSER = SYS";LA+3
  17. 170 PRINT"3. DISPLAY DATA   = SYS";LA+6
  18. 180 PRINT
  19. 190 END
  20. 500 :
  21. 510 REM  RELOCATION SETUP
  22. 520 :
  23. 530 IFLA=38912THENCA=1:EA=0:RETURN
  24. 540 PRINT"RELOCATING ANALYSER"
  25. 550 CA=LA:EA=LA+1651:RF=38912-CA
  26. 560 PRINT"BUILDING OP-CODE TABLE"
  27. 565 OC(109)=3:OC(105)=2:OC(97)=2:OC(113)=2:OC(125)=3:OC(121)=3:OC(101)=2
  28. 567 OC(117)=2
  29. 570 OC(45)=3:OC(41)=2:OC(33)=2:OC(49)=2:OC(61)=3:OC(57)=3:OC(37)=2:OC(53)=2
  30. 580 OC(14)=3:OC(10)=1:OC(30)=3:OC(6)=3:OC(22)=2
  31. 590 OC(144)=2:OC(176)=2:OC(240)=2:OC(44)=3:OC(36)=2:OC(48)=2:OC(208)=2
  32. 600 OC(16)=2:OC(0)=1:OC(80)=2:OC(112)=2:OC(24)=1:OC(216)=1:OC(88)=1:OC(184)=1
  33. 610 OC(205)=3:OC(201)=2:OC(193)=2:OC(209)=2:OC(221)=3:OC(217)=3:OC(197)=2
  34. 620 OC(213)=2:OC(236)=3:OC(224)=2:OC(228)=2:OC(204)=3:OC(192)=2:OC(196)=2
  35. 630 OC(206)=3:OC(222)=3:OC(198)=2:OC(214)=2:OC(202)=1:OC(136)=1
  36. 640 OC(77)=3:OC(73)=2:OC(65)=2:OC(81)=2:OC(93)=3:OC(89)=3:OC(69)=2:OC(85)=2
  37. 650 OC(238)=3:OC(254)=3:OC(230)=2:OC(246)=2:OC(232)=1:OC(200)=1
  38. 660 OC(76)=3:OC(108)=3:OC(32)=3:OC(173)=3:OC(169)=2:OC(161)=2:OC(177)=2
  39. 670 OC(189)=3:OC(185)=3:OC(165)=2:OC(181)=2:OC(174)=3:OC(162)=2:OC(190)=3
  40. 680 OC(166)=2:OC(182)=2:OC(172)=3:OC(160)=2:OC(188)=3:OC(164)=2:OC(180)=2
  41. 690 OC(78)=3:OC(74)=1:OC(94)=3:OC(70)=2:OC(86)=2:OC(234)=1:OC(13)=3:OC(9)=2
  42. 700 OC(1)=2:OC(17)=2:OC(29)=3:OC(25)=3:OC(5)=2:OC(21)=2:OC(72)=1:OC(8)=1
  43. 710 OC(104)=1:OC(40)=1:OC(46)=3:OC(42)=1:OC(62)=3:OC(38)=2:OC(54)=2
  44. 720 OC(110)=3:OC(106)=1:OC(126)=3:OC(102)=2:OC(118)=2:OC(64)=1:OC(96)=1
  45. 730 OC(237)=3:OC(233)=2:OC(225)=2:OC(241)=2:OC(253)=3:OC(249)=3:OC(229)=2
  46. 740 OC(245)=2:OC(56)=1:OC(248)=1:OC(120)=1:OC(141)=3:OC(129)=2:OC(145)=2
  47. 745 OC(157)=3:OC(153)=3:OC(133)=2:OC(149)=2:OC(142)=3:OC(134)=2:OC(150)=2
  48. 750 OC(140)=3:OC(132)=2:OC(148)=2:OC(170)=1:OC(168)=1:OC(186)=1:OC(138)=1
  49. 760 OC(154)=1:OC(152)=1
  50. 770 PRINT"STARTING RELOCATION"
  51. 780 RETURN
  52. 800 :
  53. 810 REM  LOAD THE ANALYSER
  54. 820 :
  55. 830 LA=PEEK(55)+PEEK(56)*256
  56. 840 PRINT"[147] LOADING THE ANALYSER AT";LA
  57. 850 FORI=LATOLA+2047:READQ:POKEI,Q:X=X+Q:NEXT
  58. 860 IFX<>244880THENPRINT"LOAD FAILED":END
  59. 870 PRINT"LOAD OK":RETURN
  60. 900 :
  61. 910 REM  SETUP ANALYSER LOAD ADDR
  62. 920 :
  63. 925 DIMOC(255):I=0:CA=0:AD=0:LB=0:HB=0
  64. 930 HA=PEEK(55)+PEEK(56)*256:HA=HA-2048
  65. 940 HB=INT(HA/256):LB=HA-HB*256
  66. 950 POKE51,LB:POKE52,HB:POKE55,LB:POKE56,HB:POKE643,LB:POKE644,HB
  67. 960 RETURN
  68. 970 :
  69. 980 DIMOC(255):I=0:CA=0:AD=0:LB=0:HB=0: A3=38912:A4=40959:RETURN
  70. 1000 DATA 76,9,152,76,27,152,76,39,152,32,162,152,208,9,32,166,152,32,196
  71. 1010 DATA 152,32,212,152,32,223,152,96,32,162,152,240,3,32,4,153,32,223
  72. 1020 DATA 152,96,32,22,153,240,3,32,48,152,96,32,96,157,32,177,153,32
  73. 1030 DATA 231,153,32,5,154,32,106,157,32,83,154,32,230,154,32,255,154
  74. 1040 DATA 32,10,155,32,21,155,32,243,157,32,212,154,32,158,155,32,167
  75. 1050 DATA 155,32,200,155,32,243,157,32,209,155,32,32,158,32,247,155,32
  76. 1060 DATA 228,155,32,32,158,32,3,156,32,12,188,32,15,156,32,221,189,32
  77. 1070 DATA 135,180,32,33,171,32,29,156,32,121,156,32,60,157,240,197,32
  78. 1080 DATA 64,157,32,96,157,32,116,157,32,159,157,32,189,157,32,106,157
  79. 1090 DATA 32,237,157,96,173,116,158,96,206,116,158,162,1,173,8,3,141
  80. 1100 DATA 117,158,173,9,3,157,117,158,173,119,158,141,8,3,189,119,158
  81. 1110 DATA 141,9,3,96,165,160,141,123,158,165,161,141,124,158,165,162
  82. 1120 DATA 141,125,158,96,165,57,141,121,158,165,58,141,122,158,96,165
  83. 1130 DATA 58,201,250,144,30,173,116,158,208,14,162,1,173,177,158,188
  84. 1140 DATA 177,158,32,30,171,76,3,153,162,1,173,175,158,188,175,158,32
  85. 1150 DATA 30,171,96,238,116,158,162,1,173,117,158,141,8,3,189,117,158
  86. 1160 DATA 141,9,3,96,173,166,153,208,21,173,167,153,201,160,208,14,162
  87. 1170 DATA 1,173,193,158,188,193,158,32,30,171,169,0,96,169,255,96,173
  88. 1180 DATA 121,158,197,57,208,10,173,122,158,197,58,208,3,108,117,158
  89. 1190 DATA 173,128,158,56,233,1,141,128,158,176,20,173,129,158,56,233
  90. 1200 DATA 1,141,129,158,176,9,32,129,153,32,48,152,32,147,153,160,5,162
  91. 1210 DATA 0,189,121,158,32,165,153,232,136,208,246,165,57,141,121,158
  92. 1220 DATA 165,58,141,122,158,32,196,152,108,117,158,162,4,189,121,158
  93. 1230 DATA 157,142,158,202,208,247,173,121,158,141,142,158,96,162,4,189
  94. 1240 DATA 142,158,157,121,158,202,208,247,173,142,158,141,121,158,96
  95. 1250 DATA 141,0,160,238,166,153,208,3,238,167,153,96,162,0,189,0,0,157
  96. 1260 DATA 0,224,189,0,1,157,0,225,189,0,2,157,0,226,189,0,3,157,0,227
  97. 1270 DATA 189,0,4,157,0,228,189,0,5,157,0,229,189,0,6,157,0,230,189,0
  98. 1280 DATA 7,157,0,231,232,208,205,96,162,0,189,0,216,157,0,232,189,0
  99. 1290 DATA 217,157,0,233,189,0,218,157,0,234,189,0,219,157,0,235,232,208
  100. 1300 DATA 229,96,173,32,208,141,0,236,173,33,208,141,1,236,173,134,2
  101. 1310 DATA 141,2,236,173,21,208,141,3,236,173,17,208,141,4,236,173,22
  102. 1320 DATA 208,141,5,236,173,24,208,141,6,236,169,254,141,32,208,169,246
  103. 1330 DATA 141,33,208,169,14,141,134,2,169,0,141,21,208,169,27,141,17
  104. 1340 DATA 208,169,200,141,22,208,169,21,141,24,208,96,32,243,157,32,212
  105. 1350 DATA 154,32,228,155,32,32,158,32,247,155,173,166,153,174,167,153
  106. 1360 DATA 56,233,5,141,0,158,176,1,202,142,1,158,32,243,157,32,228,155
  107. 1370 DATA 32,32,158,32,3,156,32,12,188,32,15,156,162,1,173,60,159,188
  108. 1380 DATA 60,159,170,32,212,187,169,0,141,0,158,169,160,141,1,158,173
  109. 1390 DATA 166,153,56,237,0,158,141,45,159,173,167,153,237,1,158,141,44
  110. 1400 DATA 159,169,0,141,43,159,32,32,158,32,247,155,32,12,188,162,1,173
  111. 1410 DATA 118,159,188,118,159,162,0,32,7,187,32,170,177,141,54,159,140
  112. 1420 DATA 53,159,96,162,4,189,121,158,157,46,159,202,208,247,173,121
  113. 1430 DATA 158,141,46,159,96,162,0,169,32,157,0,4,157,0,5,157,0,6,232
  114. 1440 DATA 208,244,162,232,157,255,6,202,208,250,96,169,0,141,196,158
  115. 1450 DATA 169,9,141,197,158,96,24,174,196,158,172,197,158,32,240,255
  116. 1460 DATA 96,162,8,188,34,159,202,189,34,159,142,195,158,32,30,171,238
  117. 1470 DATA 196,158,32,10,155,174,195,158,202,208,231,169,23,141,196,158
  118. 1480 DATA 32,10,155,162,1,173,108,159,188,108,159,32,30,171,238,196,158
  119. 1490 DATA 32,10,155,162,1,173,110,159,188,110,159,32,30,171,169,4,141
  120. 1500 DATA 196,158,32,10,155,169,194,32,210,255,169,17,141,197,158,32
  121. 1510 DATA 10,155,169,194,32,210,255,169,30,141,197,158,32,10,155,169
  122. 1520 DATA 194,32,210,255,169,9,141,197,158,238,196,158,173,196,158,201
  123. 1530 DATA 23,240,6,32,10,155,76,92,155,169,4,141,196,158,169,9,141,197
  124. 1540 DATA 158,32,10,155,96,169,10,141,197,158,32,10,155,96,173,121,158
  125. 1550 DATA 141,45,159,173,122,158,141,44,159,169,0,141,43,159,32,32,158
  126. 1560 DATA 32,247,155,32,221,189,32,135,180,32,33,171,96,169,18,141,197
  127. 1570 DATA 158,32,10,155,96,173,48,159,141,43,159,173,49,159,141,44,159
  128. 1580 DATA 173,50,159,141,45,159,96,173,123,158,141,43,159,173,124,158
  129. 1590 DATA 141,44,159,173,125,158,141,45,159,96,162,1,173,140,158,188
  130. 1600 DATA 140,158,32,162,187,96,162,1,173,140,158,188,140,158,32,80,184
  131. 1610 DATA 96,162,1,173,51,159,188,51,159,162,0,32,7,187,96,169,9,141
  132. 1620 DATA 197,158,238,196,158,173,196,158,201,23,176,4,32,10,155,96,169
  133. 1630 DATA 0,32,228,255,240,251,201,136,240,45,201,135,240,7,201,133,240
  134. 1640 DATA 50,76,48,156,173,0,158,56,233,195,176,3,206,1,158,141,0,158
  135. 1650 DATA 173,1,158,201,160,176,10,169,0,141,0,158,169,160,141,1,158
  136. 1660 DATA 32,243,157,32,230,154,32,255,154,32,10,155,32,21,155,96,238
  137. 1670 DATA 112,159,96,173,1,158,205,167,153,144,10,208,9,173,0,158,205
  138. 1680 DATA 166,153,176,1,96,32,158,155,32,167,155,32,200,155,169,32,32
  139. 1690 DATA 210,255,169,48,32,210,255,32,29,156,169,194,32,210,255,162
  140. 1700 DATA 7,169,45,32,210,255,202,208,248,169,194,32,210,255,162,12,169
  141. 1710 DATA 45,32,210,255,202,208,248,238,196,158,32,10,155,173,196,158
  142. 1720 DATA 201,23,144,12,32,230,154,32,255,154,32,10,155,32,21,155,173
  143. 1730 DATA 53,159,141,121,158,173,54,159,141,122,158,32,158,155,32,167
  144. 1740 DATA 155,32,200,155,162,1,173,60,159,188,60,159,32,162,187,32,221
  145. 1750 DATA 189,32,135,180,32,33,171,169,0,32,228,255,240,251,201,133,240
  146. 1760 DATA 41,201,135,240,33,201,136,240,3,76,4,157,169,0,141,0,158,169
  147. 1770 DATA 160,141,1,158,32,230,154,32,255,154,32,10,155,32,21,155,32
  148. 1780 DATA 101,156,96,32,70,156,96,169,255,141,112,159,96,173,112,159
  149. 1790 DATA 96,169,102,141,128,158,169,6,141,129,158,169,0,141,166,153
  150. 1800 DATA 141,0,158,169,160,141,167,153,141,1,158,169,0,141,112,159,96
  151. 1810 DATA 120,173,1,0,41,253,141,1,0,96,173,1,0,9,2,141,1,0,88,96,173
  152. 1820 DATA 6,236,141,24,208,173,5,236,141,22,208,173,4,236,141,17,208
  153. 1830 DATA 173,3,236,141,21,208,173,2,236,141,134,2,173,1,236,141,33,208
  154. 1840 DATA 173,0,236,141,32,208,96,162,0,189,0,232,157,0,216,189,0,233
  155. 1850 DATA 157,0,217,189,0,234,157,0,218,189,0,235,157,0,219,232,208,229
  156. 1860 DATA 96,162,0,189,0,224,157,0,0,189,0,226,157,0,2,189,0,227,157
  157. 1870 DATA 0,3,189,0,228,157,0,4,189,0,229,157,0,5,189,0,230,157,0,6,189
  158. 1880 DATA 0,231,157,0,7,232,208,211,96,32,228,255,208,251,96,173,1,0
  159. 1890 DATA 41,254,141,1,0,162,0,160,5,189,0,160,157,121,158,232,136,208
  160. 1900 DATA 246,173,0,158,24,105,5,141,0,158,144,3,238,1,158,173,1,0,9
  161. 1910 DATA 1,141,1,0,96,173,43,159,141,131,158,173,44,159,141,132,158
  162. 1920 DATA 173,45,159,141,133,158,169,0,141,134,158,169,152,141,130,158
  163. 1930 DATA 32,94,158,14,131,158,176,22,206,130,158,14,132,158,144,3,238
  164. 1940 DATA 131,158,14,133,158,144,235,238,132,158,24,144,229,78,131,158
  165. 1950 DATA 96,24,173,131,158,109,132,158,208,12,176,10,109,133,158,208
  166. 1960 DATA 5,176,3,238,133,158,96,0,117,158,51,153,0,0,0,0,0,0,160,102
  167. 1970 DATA 6,0,0,0,0,0,134,112,0,0,0,130,158,0,0,0,0,0,84,82,65,67,69
  168. 1980 DATA 32,83,84,65,82,84,69,68,0,84,82,65,67,69,32,83,84,79,80,80
  169. 1990 DATA 69,68,0,147,158,161,158,78,79,32,84,82,65,67,69,32,68,65,84
  170. 2000 DATA 65,0,179,158,0,0,0,176,195,195,195,195,195,195,195,178,195
  171. 2010 DATA 195,195,195,195,195,195,195,195,195,195,195,174,0,194,32,76
  172. 2020 DATA 73,78,69,32,32,194,32,69,76,65,80,83,69,68,32,32,32,32,194
  173. 2030 DATA 0,194,32,32,78,79,32,32,32,194,32,84,73,77,69,32,40,83,69,67
  174. 2040 DATA 41,32,194,0,171,195,195,195,195,195,195,195,219,195,195,195
  175. 2050 DATA 195,195,195,195,195,195,195,195,195,179,0,0,11,159,244,158
  176. 2060 DATA 221,158,198,158,0,0,0,0,0,0,0,0,135,158,0,0,0,0,0,0,0,55,159
  177. 2070 DATA 19,173,195,195,195,195,195,195,195,177,195,195,195,195,195
  178. 2080 DATA 195,195,195,195,195,195,195,189,0,32,70,49,61,69,78,68,32,70
  179. 2090 DATA 53,61,85,80,32,70,55,61,68,79,87,78,0,63,159,86,159,0,131,32
  180. 2100 DATA 0,0,0,113,159,0,0,117,85,0,1,247,245,138,138,255,255,138,138
  181. 2110 DATA 255,255,138,138,251,255,138,138,255,255,138,138,255,255,138
  182. 2120 DATA 138,255,255,138,138,255,255,138,138,255,255,0,0,117,117,0,0
  183. 2130 DATA 117,117,0,0,117,117,0,0,117,117,0,0,117,117,0,0,117,117,0,0
  184. 2140 DATA 117,117,0,0,117,117,138,138,255,255,138,138,255,255,138,138
  185. 2150 DATA 255,255,138,138,255,255,138,138,255,139,202,138,255,254,138
  186. 2160 DATA 138,255,255,138,138,255,155,0,0,117,117,0,0,117,117,0,0,117
  187. 2170 DATA 117,0,130,117,119,0,0,117,117,0,0,247,117,0,0,117,117,0,3,245
  188. 2180 DATA 247
  189.