home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_1998-03_1998_CSW_Side_B.d64 / listing < prev    next >
Text File  |  2023-02-26  |  4KB  |  13 lines
  1.  
  2.  
  3.  
  4. ready.
  5.  
  6.  
  7. 1000 ;-------------------------------
  8. 1010 ; vdcroutines
  9. 1020 ; version 1.0
  10. 1030 ;-------------------------------
  11. 1040 ;
  12. 1050  .ba$c000
  13. 1060  .ob"@1:vdcnew,p,w"
  14. 1070 ;
  15. 1080 ;-------------------------------
  16. 1090 ;
  17. 1100 ;
  18. 1110  jmpregwrite
  19. 1120  jmpregread
  20. 1130  jmpramwrite
  21. 1140  jmpramread
  22. 1150 low brk
  23. 1160 high brk
  24. 1170 datbyte brk
  25. 1180 regnr brk
  26. 1190 regwrite ldaregnr
  27. 1200  sta$d600
  28. 1210 regwrit1 bit$d600
  29. 1220  bplregwrit1
  30. 1230  ldadatbyte
  31. 1240  sta$d601
  32. 1250  rts
  33. 1260 ;
  34. 1270 regread ldaregnr
  35. 1280  sta$d600
  36. 1290 regread1 bit$d600
  37. 1300  bplregread1
  38. 1310  lda$d601
  39. 1320  stadatbyte
  40. 1330  rts
  41. 1340 ;
  42. 1350 ramwrite lda#18
  43. 1360  sta$d600
  44. 1370 ramwrit1 bit$d600
  45. 1380  bplramwrit1
  46. 1390  ldahigh
  47. 1400  sta$d601
  48. 1410  lda#19
  49. 1420  sta$d600
  50. 1430 ramwrit2 bit$d600
  51. 1440  bplramwrit2
  52. 1450  ldalow
  53. 1460  sta$d601
  54. 1470  lda#31
  55. 1480  sta$d600
  56. 1490 ramwrit3 bit$d600
  57. 1500  bplramwrit3
  58. 1510 ;
  59. 1520  ldadatbyte
  60. 1530  sta$d601
  61. 1540  rts
  62. 1550 ;
  63. 2350 ramread lda#18
  64. 2360  sta$d600
  65. 2370 ramread1 bit$d600
  66. 2380  bplramread1
  67. 2390  ldahigh
  68. 2400  sta$d601
  69. 2410  lda#19
  70. 2420  sta$d600
  71. 2430 ramread2 bit$d600
  72. 2440  bplramread2
  73. 2450  ldalow
  74. 2460  sta$d601
  75. 2470  lda#31
  76. 2480  sta$d600
  77. 2490 ramread3 bit$d600
  78. 2500  bplramread3
  79. 2510  lda$d601
  80. 2520  stadatbyte
  81. 2530  rts
  82. 3580  .en
  83.  
  84. ready.
  85.  
  86.  
  87.  
  88.  
  89. ready.
  90.  
  91.  
  92. 10 dimh%(255):if fre(0)<>fre(1) then print"c64-mode only":stop
  93. 20 gosub 340
  94. 50 for i=1 to 4
  95. 60 poke49152+12,i
  96. 70 poke49152+13,0
  97. 80 poke49152+14,65+i
  98. 90 sys49152+6
  99. 100 next
  100. 110 print chr$(147)
  101. 120 for i=1 to 4
  102. 130 poke49152+12,i
  103. 140 poke49152+13,0
  104. 150 sys49152+9
  105. 160 printpeek(49152+14)
  106. 170 next
  107. 200 for i=0 to 255
  108. 210 poke49152+12,0
  109. 220 poke49152+13,i
  110. 230 poke49152+14,i
  111. 240 sys49152+6
  112. 250 next:print
  113. 270 for i=0 to 255
  114. 280 poke49152+12,0
  115. 290 poke49152+13,i
  116. 300 sys49152+9
  117. 310 h%(i)=peek(49152+14):next
  118. 320 for i= 0 to 255:printh%(i),;:next
  119. 330 end
  120. 340 cs=0:for i=49152 to 49301
  121. 350 readd:pokei,d:cs=cs+d:next:if 16483<>cs thenprintchr$(147)"data defekt":stop
  122. 360 return
  123. 370 data 76,16,192,76,34,192,76,52
  124. 380 data 192,76,101,192,0,0,0,0
  125. 390 data 173,15,192,141,0,214,44,0
  126. 400 data 214,16,251,173,14,192,141,1
  127. 410 data 214,96,173,15,192,141,0,214
  128. 420 data 44,0,214,16,251,173,1,214
  129. 430 data 141,14,192,96,169,18,141,0
  130. 440 data 214,44,0,214,16,251,173,13
  131. 450 data 192,141,1,214,169,19,141,0
  132. 460 data 214,44,0,214,16,251,173,12
  133. 470 data 192,141,1,214,169,31,141,0
  134. 480 data 214,44,0,214,16,251,173,14
  135. 490 data 192,141,1,214,96,169,18,141
  136. 500 data 0,214,44,0,214,16,251,173
  137. 510 data 13,192,141,1,214,169,19,141
  138. 520 data 0,214,44,0,214,16,251,173
  139. 530 data 12,192,141,1,214,169,31,141
  140. 540 data 0,214,44,0,214,16,251,173
  141. 550 data 1,214,141,14,192,96
  142.  
  143. ready.
  144.  
  145.  
  146.  
  147.  
  148. ready.
  149.  
  150.  
  151. 10 dimh%(255):if fre(0)<>fre(1) then print"c64-mode only":stop
  152. 20 gosub 340
  153. 50 printchr$(147)"reg readout"
  154. 60 ba=49152
  155. 70 for i=0 to 43
  156. 80 poke ba+15,i
  157. 90 sys ba+3
  158. 100 b=peek(ba+14)
  159. 110 print b,;
  160. 120 next
  161. 130 end
  162. 340 cs=0:for i=49152 to 49301
  163. 350 readd:pokei,d:cs=cs+d:next:if16483<>cs thenprintchr$(147)"data defekt":stop
  164. 360 return
  165. 370 data 76,16,192,76,34,192,76,52
  166. 380 data 192,76,101,192,0,0,0,0
  167. 390 data 173,15,192,141,0,214,44,0
  168. 400 data 214,16,251,173,14,192,141,1
  169. 410 data 214,96,173,15,192,141,0,214
  170. 420 data 44,0,214,16,251,173,1,214
  171. 430 data 141,14,192,96,169,18,141,0
  172. 440 data 214,44,0,214,16,251,173,13
  173. 450 data 192,141,1,214,169,19,141,0
  174. 460 data 214,44,0,214,16,251,173,12
  175. 470 data 192,141,1,214,169,31,141,0
  176. 480 data 214,44,0,214,16,251,173,14
  177. 490 data 192,141,1,214,96,169,18,141
  178. 500 data 0,214,44,0,214,16,251,173
  179. 510 data 13,192,141,1,214,169,19,141
  180. 520 data 0,214,44,0,214,16,251,173
  181. 530 data 12,192,141,1,214,169,31,141
  182. 540 data 0,214,44,0,214,16,251,173
  183. 550 data 1,214,141,14,192,96
  184.  
  185. ready.
  186.  
  187.