home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 May / 64er_Magazin_85-05_1985_Markt__Technik_de.d64 / mps802.listing1 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  50 lines
  1. 10 poke56,96:poke55,0:clr
  2. 20 print"[147]mps-802-rom fuer vizawrite-deutsch":print:print
  3. 30 print "altes rom vorher in $6000-$7fff ablegen":print:print
  4. 80 print"lesen der data-zeilen":print:print
  5. 100 t=0
  6. 110 t=t+1:read a:ifa=0then240
  7. 120 read b: rem anzahl der bytes
  8. 130 read p1: rem pruefsumme
  9. 140 p2=0:print"block ";t;"  ";
  10. 150 fori=atoa-1+b
  11. 160 readd:pokei,d:p2=p2+d
  12. 170 nexti
  13. 180 ifp2<>p1then210
  14. 190 print"   ok"
  15. 200 goto110
  16. 210 print"pruefsumme falsch: ";p2;" statt ";p1:print
  17. 220 geta$:ifa$=""then220
  18. 230 goto110
  19. 240 print:print"fertig!":end
  20. 1000 rem **** block 1 ****
  21. 1010 data25600,8,609
  22. 1011 data0,88,165,165,165,26,0,0
  23. 1020 rem **** block 2 ****
  24. 1021 data25816,24,1852
  25. 1022 data190,80,144,144,80,190,0,0,188,66,66,66,66,188,0,0,188,2,2,2,2,188
  26. 1023 data0,0
  27. 1030 rem **** block 3 ****
  28. 1040 data 25920,8,254
  29. 1041 data56,68,130,0,0,0,0,0
  30. 1050 rem **** block 4 ****
  31. 1060 data26840,40,1897
  32. 1061 data4,170,42,170,28,2,0,0,28,162,34,162,28,0,0,0,60,130,2,132,62,0,0
  33. 1062 data0,63,64,146,146,146,108,0,0,1,1,1,1,1,1,1,1
  34. 1070 rem **** block 5 ****
  35. 1080 data26936,8,1024
  36. 1081 data128,128,128,128,128,128,128,128
  37. 1100 rem **** block 6 ****
  38. 1110 data26966,151,8055
  39. 1111 data0,255,0,0,0,255,16,16,16,16,0,0,0,0,15,15,15,15,0,0,0,240,16,16,16
  40. 1112 data16,16,16,16,31,0,0,0,0,3,3,3,3,3,3,3,3,0,0,0,31,16,16,16,16,16,16
  41. 1113 data16,240,16,16,16,16,16,16,16,31,16,16,16,16,16,16,16,255,0,0,0,0,255
  42. 1114 data0,0,0,0,0,0,0,255,255,0,0,0,0,0,0,0,0,0,0,0,0,255,255,192,192,192
  43. 1115 data192,192,192,192,192,224,224,224,224,224,224,224,224,7,7,7,7,7,7,7
  44. 1116 data7,30,4,8,16,32,64,0,0,15,15,15,15,0,0,0,0,0,0,0,0,240,240,240,240
  45. 1117 data16,16,16,240,0
  46. 1130 rem **** block 7 **** ;checksum
  47. 1140 data32763,1,107
  48. 1141 data107
  49. 10000 data0
  50.