home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 January / 64er_Magazin_85-01_1985_Markt__Technik_de.d64 / hypra-kernal (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  6.3 KB  |  124 lines
  1. 600 poke56,96:poke55,0:clr
  2. 890 print"kopieren des rom ins ram":print
  3. 900 fori=6*4049to8*4096-1:pokei,peek(i+32768):nexti
  4. 999 rem data zeilen einlesen
  5. 1000 print"[147]":print:printtab(10);"lesen der data-zeilen":print:print
  6. 1010 t=0:of=32768
  7. 1020 t=t+1:reada:ifa=0then1100
  8. 1030 readb:rem anzahl der bytes
  9. 1032 readp1:rem pruefsumme
  10. 1033 p2=0
  11. 1035 print"block ";t;"  ";
  12. 1040 fori=a-oftoa-of-1+b
  13. 1050 readd:pokei,d
  14. 1051 p2=p2+d:ifp2>65535thenp2=p2-65536
  15. 1053 nexti
  16. 1055 ifp2<>p1then1070
  17. 1057 print"   ok"
  18. 1060 goto1020
  19. 1070 print"pruefsumme falsch: ";p2
  20. 1080 geta$:ifa$=""then1080
  21. 1090 goto1020
  22. 1100 print"fertig":end
  23. 7990 rem ab hier datas
  24. 7995 rem****************************************
  25. 7996 rem **zeilen 8000 - 9000 koennen fuer betriebssystem ohne fuktionstasten**
  26. 7997 rem **weggelassen werden**
  27. 8000 data64226,126,14014
  28. 8001 data232,134,198,201,133,144,4,201,141,144,3,76,66,235,157,119,2,72,152
  29. 8002 data72,160,0,196,2,208,13,185,41,251,221,119,2,240,11,200,192,176,208
  30. 8003 data243,104,168,104,76,66,235,200,185,41,251,201,133,144,4,201,141,144
  31. 8004 data238,236,137,2,176,233,157,119,2,232,134,198,76,15,251,133,76,207
  32. 8005 data34,36,34,44,56,13,137,76,79,65,68,134,76,73,83,84,13,138,83,65,86
  33. 8006 data69,135,82,85,78,13,139,83,89,83,136,63,70,82,69,40,48,41,13,140,83
  34. 8007 data89,83,54,52,55,51,56,13,133,136
  35. 8009 rem ****************************************
  36. 8010 data 60223,3,552
  37. 8011 data76,226,250
  38. 9000 rem ****************************************
  39. 9010 data58552,33,4800:rem $e4b8-$e4d8
  40. 9020 data133,147,169,0,133,144,165,186,208,4,169,8,133,186,201,3,144,248,164
  41. 9030 data183,208,3,76,16,247,166,185,76,145,248,234,234,234
  42. 9040 rem ****************************************
  43. 9050 data60647,9,530:rem $ece7-$ecef
  44. 9060 data83,89,83,54,52,53,55,48,13
  45. 9070 rem ****************************************
  46. 9080 data62637,23,3533:rem $f4ad-$f4c3
  47. 9090 data201,4,176,4,169,8,133,186,164,183,208,3,76,16,247,166,185,234,234
  48. 9100 data234,234,234,234
  49. 9110 rem ****************************************
  50. 9120 data63276,212,29783:rem$f72c-$f7ff
  51. 9130 data169,226,162,248,133,167,134,168,169,0,162,3,133,169,134,170,165,186
  52. 9140 data32,12,237,169,111,32,185,237,169,77,32,221,237,169,45,32,221,237
  53. 9150 data169,87,32,221,237,160,0,165,169,32,221,237,165,170,32,221,237,169
  54. 9160 data30,32,221,237,177,167,32,221,237,200,192,30,144,246,32,254,237,24
  55. 9170 data165,167,105,30,133,167,144,3,230,168,24,165,169,166,170,105,30,133
  56. 9180 data169,144,2,230,170,224,5,144,173,201,0,144,169,165,186,32,12,237,169
  57. 9190 data111,32,185,237,169,77,32,221,237,169,45,32,221,237,169,69,32,221
  58. 9200 data237,169,139,32,221,237,169,4,32,221,237,169,239,45,17,208,32,90,252
  59. 9210 data234,234,76,21,252,169,11,141,0,221,44,0,221,16,251,169,3,141,0,221
  60. 9220 data162,5,202,234,208,252,162,4,173,0,221,42,42,102,176,106,102,176,234
  61. 9230 data202,208,242,165,176,73,255,96,32,195,247,201,255,240,248,160,0,169
  62. 9240 data11,141,0,221,44,0,221,16,251
  63. 9250 rem ****************************************
  64. 9260 data63488,256,34399:rem $f800-f8ff
  65. 9270 data169,3,141,0,221,162,7,202,208,253,173,0,221,42,42,102,176,106,102
  66. 9280 data176,234,234,173,0,221,42,42,102,176,106,102,176,234,234,173,0,221
  67. 9290 data42,42,102,176,106,102,176,234,234,173,0,221,42,42,102,176,106,102
  68. 9300 data176,165,176,73,255,153,0,2,200,208,180,96,120,169,1,133,167,160,255
  69. 9310 data32,237,247,192,255,240,64,162,2,165,167,240,2,162,4,173,0,2,208,7
  70. 9320 data238,1,2,173,1,2,44,169,0,133,168,189,0,2,145,174,230,174,208,2,230
  71. 9330 data175,232,228,168,208,240,162,0,134,167,173,0,2,208,198,169,16,13,17
  72. 9340 data208,234,141,17,208,169,64,133,144,24,96,32,175,245,169,96,133,185
  73. 9350 data32,213,243,165,186,32,9,237,165,185,32,199,237,32,19,238,133,174
  74. 9360 data165,144,74,74,144,3,76,48,245,32,19,238,133,175,138,208,20,165,195
  75. 9370 data133,174,165,196,133,175,32,210,245,169,253,37,144,133,144,76,160
  76. 9380 data251,165,175,201,4,176,238,76,240,244,255,255,255,255,255,255,255
  77. 9390 data255,234,96,165,0,41,6,201,2,240,3,76,158,253,234,169,5,133,9,162
  78. 9400 data90,134,75,162,0,169,82,133,36,32,86,245,80
  79. 9410 rem ****************************************
  80. 9420 data63744,256,27098:rem$f900-$f9ff
  81. 9430 data254,184,173,1,28,197,36,240,9,198,75,208,239,169,10,76,105,249,80
  82. 9440 data254,184,173,1,28,149,37,232,224,7,208,243,32,151,244,165,22,69,23
  83. 9450 data69,24,69,25,69,26,240,7,198,9,208,192,76,30,244,165,24,197,6,240
  84. 9460 data3,76,11,244,133,34,169,6,133,49,76,60,4,165,18,166,19,133,22,134
  85. 9470 data23,165,6,133,24,165,7,133,25,169,0,69,22,69,23,69,24,69,25,133,26
  86. 9480 data32,52,249,162,90,32,86,245,160,0,80,254,184,173,1,28,217,36,0,240
  87. 9490 data6,202,208,237,76,81,245,200,192,8,208,234,32,86,245,80,254,184,173
  88. 9500 data1,28,145,48,200,208,245,160,186,80,254,184,173,1,28,153,0,1,200,208
  89. 9510 data244,32,224,248,165,56,197,71,240,3,76,246,244,32,233,245,197,58,240
  90. 9520 data3,76,2,245,160,0,169,85,32,82,4,185,0,6,133,119,44,0,24,16,251,169
  91. 9530 data16,141,0,24,44,0,24,48,251,162,0,138,102,119,42,42,102,119,42,42
  92. 9540 data141,0,24,138,102,119,42,42,102,119,42,42,141,0,24,138,102,119,42
  93. 9550 data42,102,119,42,42,141,0,24,138,102,119,42,42,102,119,42,42,141
  94. 9560 rem ****************************************
  95. 9570 data64000,226,25915:rem $fa00-$fae1
  96. 9580 data0,24,162,2,202,208,253,169,15,141,0,24,200,208,173,234,234,234,234
  97. 9590 data234,234,234,173,0,28,9,8,141,0,28,173,0,6,208,3,76,158,253,197,24
  98. 9600 data208,249,133,6,173,1,6,133,7,76,101,3,133,119,44,0,24,16,251,169,16
  99. 9610 data141,0,24,44,0,24,48,251,162,4,169,0,102,119,42,42,102,119,42,42,141
  100. 9620 data0,24,202,208,240,234,234,234,234,234,234,169,15,141,0,24,96,96,133
  101. 9630 data0,88,165,0,48,252,120,96,120,234,234,234,234,234,234,165,24,141,0
  102. 9640 data6,133,6,165,25,141,1,6,133,7,169,4,133,120,169,226,32,130,4,201,2
  103. 9650 data144,51,160,0,132,120,164,120,185,219,254,240,18,88,32,118,214,120
  104. 9660 data169,226,32,130,4,201,2,144,26,230,120,208,231,169,192,32,130,4,169
  105. 9670 data226,32,130,4,201,2,144,8,169,255,32,82,4,76,34,235,173,0,6,240,248
  106. 9680 data197,24,240,196,173,0,6,133,6,173,1,6,133,7,76,160,4,234,234,234,234
  107. 9690 data160,0,185,25,244,153
  108. 9700 rem ****************************************
  109. 9710 data64416,192,24821:rem $fba0-$fc5f
  110. 9720 data160,89,185,0,2,153,0,3,200,192,0,208,245,160,0,177,187,201,36,208
  111. 9730 data3,76,1,245,169,1,133,167,169,0,133,144,165,167,32,12,237,169,111
  112. 9740 data32,185,237,165,144,16,11,230,167,165,167,201,8,208,230,76,44,247
  113. 9750 data165,167,197,186,240,239,160,0,185,248,251,240,6,32,210,255,200,208
  114. 9760 data245,32,225,255,208,251,76,44,247,234,234,234,234,13,66,73,84,84,69
  115. 9770 data32,78,85,82,32,70,76,79,80,80,89,32,65,78,83,67,72,65,76,84,69,78
  116. 9780 data13,32,67,248,8,72,160,89,185,0,3,153,0,2,200,192,0,208,245,166,174
  117. 9790 data164,175,104,40,88,96,255,255,255,255,255,255,255,255,255,255,234
  118. 9800 data72,169,244,205,49,3,240,10,141,49,3,169,165,141,48,3,104,96,173,76
  119. 9810 data253,141,48,3,173,77,253,141,49,3,104,96,141,17,208,76,251,237
  120. 9820 rem ****************************************
  121. 9830 data64844,2,412:rem $fd4c-$fd4d
  122. 9840 data184,228
  123. 10000 data0
  124.