home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_1998-03_1998_CSW_Side_B.d64 / reg readout (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  881b  |  34 lines
  1. 10 dimh%(255):if fre(0)<>fre(1) then print"c64-mode only":stop
  2. 20 gosub 340
  3. 50 printchr$(147)"reg readout"
  4. 60 ba=49152
  5. 70 for i=0 to 43
  6. 80 poke ba+15,i
  7. 90 sys ba+3
  8. 100 b=peek(ba+14)
  9. 110 print b,;
  10. 120 next
  11. 130 end
  12. 340 cs=0:for i=49152 to 49301
  13. 350 readd:pokei,d:cs=cs+d:next:if16483<>cs thenprintchr$(147)"data defekt":stop
  14. 360 return
  15. 370 data 76,16,192,76,34,192,76,52
  16. 380 data 192,76,101,192,0,0,0,0
  17. 390 data 173,15,192,141,0,214,44,0
  18. 400 data 214,16,251,173,14,192,141,1
  19. 410 data 214,96,173,15,192,141,0,214
  20. 420 data 44,0,214,16,251,173,1,214
  21. 430 data 141,14,192,96,169,18,141,0
  22. 440 data 214,44,0,214,16,251,173,13
  23. 450 data 192,141,1,214,169,19,141,0
  24. 460 data 214,44,0,214,16,251,173,12
  25. 470 data 192,141,1,214,169,31,141,0
  26. 480 data 214,44,0,214,16,251,173,14
  27. 490 data 192,141,1,214,96,169,18,141
  28. 500 data 0,214,44,0,214,16,251,173
  29. 510 data 13,192,141,1,214,169,19,141
  30. 520 data 0,214,44,0,214,16,251,173
  31. 530 data 12,192,141,1,214,169,31,141
  32. 540 data 0,214,44,0,214,16,251,173
  33. 550 data 1,214,141,14,192,96
  34.