home *** CD-ROM | disk | FTP | other *** search
/ Input 64 / Input_64_85-02_1985_Verlag_Heinz_Weise_de.d64 / reset-taster (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  6KB  |  186 lines
  1. 1 poke50257,16
  2. 10 poke53280,14:poke53281,6:print"[154]":print"[147]";:printchr$(142);
  3. 20 print"r e s e t"
  4. 30 forw=1to1000:next
  5. 40 v=53248
  6. 50 pokev+22,peek(v+22)and(255-8)or7:poke649,0
  7. 60 fori=0to2500:next
  8. 70 poke53280,14:poke53281,6:poke780,115:poke782,228:sys43806:printchr$(142)
  9. 80 print""tab(17)"kaum basic-bytes frei"
  10. 90 pokev+22,(peek(v+22)or8)and(255-7):poke198,0:poke649,10
  11. 100 print:print"ready."
  12. 110 fori=1to15:print" [146]";"[157]";:fori1=1to300:next:print" ";"[157]";
  13. 120 geta$:ifa$<>""then140
  14. 130 fori1=1to300:next:next
  15. 140 print"[147]"
  16. 150 printchr$(14):poke53280,7:poke53281,0:print"[158]"
  17. 160 print"           [196]er [210]eset-[212]aster"
  18. 170 print"           ================"
  19. 180 print"[215]ie oft hat man schon vor dem [208]roblem"
  20. 190 print"gestanden, dass der [210]echner beim [193]us-"
  21. 200 print"testen eines [208]rogrammes durch irgend-"
  22. 210 print"welche [198]ehler abgestuerzt ist."
  23. 220 print"[196]ie einzige [205]oeglichkeit war,dass man"
  24. 230 print"den [210]echner aus- und eingeschaltet hat."
  25. 240 print"[196]abei hat sich das [208]rogramm auf nimmer-"
  26. 250 print"wiedersehen in [204]uft aufgeloest."
  27. 260 print"[213]m dieses zu verhindern, gibt es eine"
  28. 270 print"elegante [205]oeglichkeit. [196]en [210][197][211][197][212]-[212]aster."
  29. 280 print"[197]r ermoeglicht einen [211]ystem-[210]eset, wobei";
  30. 290 print"der [210]echner in einen aehnlichen [218]ustand"
  31. 300 print"wie nach dem [197]inschalten versetzt wird."
  32. 310 zw=24:sw=2
  33. 320 gosub1650
  34. 330 print"[147]"
  35. 340 print"[193]lle [208]rogramme sind noch im [210][193][205] und"
  36. 350 print"koennen wiedergefunden werden."
  37. 360 print"[215]ie?  [199]anz einfach!!"
  38. 370 print"[197]in [194][193][211][201][195]-[208]rogramm kann mit der":printchr$(34);
  39. 380 print"[210][197]-[206][197][215]";:printchr$(34);" [210]outine aus [201][206][208][213][212]64[146]"
  40. 390 print"[193]usgabe 1/85 wieder zum [204]eben erweckt"
  41. 400 print"werden."
  42. 410 print"[205]aschinenprogramme sind sowieso auch"
  43. 420 print"ohne ";chr$(34);"[210][197]-[206][197][215]";chr$(34);" noch in [207]rdnung."
  44. 430 zw=24:sw=2
  45. 440 gosub1650
  46. 450 print"[147]"
  47. 460 print"      [215]ie funktioniert der [212]aster?"
  48. 470 print"[201]n dem [205]oment, da der [210]echner einge-"
  49. 480 print"schaltet wird,legt der [212]imer [206][197] 556"
  50. 490 print"eine ";chr$(34);"0";chr$(34);" auf die [210][197][211][197][212]-[204]eitung, wodurch"
  51. 500 print"die [195][208][213] in einen [210]uhezustand versetzt"
  52. 510 print"wird."
  53. 520 print"[196]anach folgt ein [213]ebergang von ";chr$(34);"0";chr$(34)
  54. 530 print"nach ";chr$(34);"1";chr$(34);", und der [210]echner wird veran-"
  55. 540 print"lasst zum [201]nhalt der [193]dressen $[198][198][198][195] "
  56. 550 print"und $[198][198][198][196] zu springen ([210][197][211][197][212]-[210]outine)."
  57. 560 print"[206]ach einem solchen [213]ebergang also,"
  58. 570 print"springt der [210]echner immer diese [210]outine"
  59. 580 print"an und wird in einen definierten"
  60. 590 print"[193]nfangszustand gesetzt."
  61. 600 zw=24:sw=2:gosub1650
  62. 610 print"[147]"
  63. 620 print"[205]it dem im folgenden beschriebenen"
  64. 630 print"[210][197][211][197][212]-[212]aster kann man den [211]prung zur"
  65. 640 print"[210][197][211][197][212]-[210]outine kuenstlich erzeugen."
  66. 650 print"[215]enn der [212]aster mit der [210][197][211][197][212]-[204]eitung" "
  67. 660 [153]"und mit der (NULL)asse-(NULL)eitung (chr$(NULL)str$) ver-"
  68. 670 [153]"bunden und anschliessend betaetigt"
  69. 680 [153]"wird, findet zwangsweise ein ";[199](34);"0 1";[199](34)
  70. 690 [153]"(NULL)ebergang statt."
  71. 700 [141]1580
  72. 710 [141]1150
  73. 720 [141]1650
  74. 730 [151]53281,15
  75. 740 [153]"load";
  76. 750 [153][199](142)
  77. 760 [153]"contwait                         ";
  78. 770 [153]"                         ";
  79. 780 [153]"   reset-tastercont          ";
  80. 790 [153]"                         ";
  81. 800 [153]"                         ";
  82. 810 [153]"                         ";
  83. 820 [153]"                         ";
  84. 830 [153]"                              ";
  85. 840 [153]"            sys(NULL)kerbecont       ";
  86. 850 [153]"           sysder tastercont    ";
  87. 860 [153]"stopnewsys(NULL)stop*newcont     sys  sicht auf diecont ";
  88. 870 [153]"             stopnewnewcontwait stoplogcoscont stopnewwaitnewcont    ";
  89. 880 [153]"                syswird ancont  ";
  90. 890 [153]"  stopsincontwait        stopsincont   sysloetpunkte";
  91. 900 [153]" descont            stopsincontwait 5     1";
  92. 910 [153]"  stopsincont                  syspin ";
  93. 920 [153]"6    stop*coscont stoplog cont 6   stopcoscont stoplogrndcont  sysstec";
  94. 930 [153]"kers.cont               stopgetcontwait    ";
  95. 940 [153]"  stoprndcont     stopgetcont                ";
  96. 950 [153]" sysund  cont    stopgetcont 4      2   stopgetcontwait ";
  97. 960 [153]"                         ";
  98. 970 [153]"stopsincont  stop*cont      stoprndcont  stopsincontwait  syspin 6: re";
  99. 980 [153]"setcont   syspin 2   cont stopgetcontwait     3   ";
  100. 990 [153]"   stopgetcont                     ";
  101. 1000 [153]"      stopgetcont     stoprndcont    stopgetcontwait   syspin ";
  102. 1010 [153]"2: gndcont   sys cont sysgeloetet.cont stoplogrndcont  ";
  103. 1020 [153]"      stop*coscont                 ";
  104. 1030 [153]"            stoplognewcont      stopnewcoscont   ";
  105. 1040 [153]"                         ";
  106. 1050 [153]"    stopnewwaitnewnewnewnewnewcontwait               ";
  107. 1060 [153]"                         ";
  108. 1070 [153]"                         ";
  109. 1080 [153]"                         ";
  110. 1090 [153]"                         ";
  111. 1100 [153]"                         ";
  112. 1110 [153]"                         ";
  113. 1120 [153]"                         ";
  114. 1130 zw[178]24:sw[178]2:[141]1730
  115. 1140 [137]1190
  116. 1150 [153]:[153]
  117. 1160 [153]"str$as atnnschliessen des (NULL)asters sehen (NULL)ie"
  118. 1170 [153]"im naechsten peekild."
  119. 1180 [142]
  120. 1190 [153]"load":[153][199](142);
  121. 1200 [153]"contwait          ";
  122. 1210 [153]" stecker mit tastercont      ";
  123. 1220 [153]"                         ";
  124. 1230 [153]"                         ";
  125. 1240 [153]"                         ";
  126. 1250 [153]"                         ";
  127. 1260 [153]"                         ";
  128. 1270 [153]"                         ";
  129. 1280 [153]" syssteckercont                 ";
  130. 1290 [153]"               sys(NULL)cont         ";
  131. 1300 [153]"                         ";
  132. 1310 [153]"    sys(NULL)cont                    ";
  133. 1320 [153]"        stoportantantantantantantantantansys(NULL)stoptantantantantanright$";
  134. 1330 [153]"cont                   stoptantantan=>=";
  135. 1340 [153]"tantantantantantantansys(NULL)cont      stop(NULL)cont          ";
  136. 1350 [153]"          stoptantan<cont stop-tancont         ";
  137. 1360 [153]"    stop(NULL)cont                    ";
  138. 1370 [153]"  stop(NULL)cont stop(NULL)cont  6stoportantantantantantan^or^cont stopmid$tantancont   ";
  139. 1380 [153]"               stoptantan<cont stop-tantantan<cont ";
  140. 1390 [153]"     stop-<(NULL)cont stepwait(NULL)andandandandandcont         ";
  141. 1400 [153]"       stop(NULL)cont stop(NULL)cont  2stop(NULL)cont      stop(NULL)(NULL)(NULL)cont (NULL)";
  142. 1410 [153]"(NULL)usrusrusrusrusrcont              stoptantan<cont stop-";
  143. 1420 [153]"tantantan<cont     sys(NULL)stop-<(NULL)cont stop(NULL)tantancont        ";
  144. 1430 [153]"          stoptantan<cont stop-tancont  stop/tantantantantantan";
  145. 1440 [153]"sys(NULL)stop/expcont stop(NULL)cont                   stoptan";
  146. 1450 [153]"tantan>=>tantantantantantantanexpcont   sys(NULL)cont  stop(NULL)cont     ";
  147. 1460 [153]"                  stop/tantantantantantan";
  148. 1470 [153]"tantantantantantantansys(NULL)stoptan(NULL)cont               ";
  149. 1480 [153]"                       sys(NULL)cont ";
  150. 1490 [153]"           sysso wird der ta";
  151. 1500 [153]"ster amcont       sys(NULL)cont          ";
  152. 1510 [153]"                         ";
  153. 1520 [153]"     systastercont     sysstecker a";
  154. 1530 [153]"ngeloetet.cont               ";
  155. 1540 [153]"                         ";
  156. 1550 zw[178]24:sw[178]2:[141]1730
  157. 1560 [141]1810
  158. 1570 [153]"cont";:[137]40
  159. 1580 [153]:[153]"(NULL)um peekauen des (NULL)val(NULL)val(NULL)-(NULL)atn(NULL)(NULL)val(NULL)s benoetigt"
  160. 1590 [153]"man einen 6-poligen str$right$(NULL) (NULL)tecker und"
  161. 1600 [153]"einen (NULL)aster ((NULL)chliesser).
  162. 1610 print:print"[196]er fertige [212]aster wird in den seriellen";
  163. 1620 print"[194][213][211] gesteckt und kann dann benutzt "
  164. 1630 print"werden."
  165. 1640 return
  166. 1650 printchr$(14)
  167. 1660 poke214,zw:poke211,sw:sys58640
  168. 1670 print"[215][197][201][212][197][210][160][205][201][212][160][215] ";
  169. 1680 getx$:poke204,0:ifx$=""then1680
  170. 1690 ifpeek(207)then1690
  171. 1700 poke204,1
  172. 1710 ifx$="w"thenreturn
  173. 1720 goto1680
  174. 1730 printchr$(142);
  175. 1740 poke214,zw:poke211,sw:sys58640
  176. 1750 print"weiter mit w ";
  177. 1760 getx$:poke204,0:ifx$=""then1760
  178. 1770 ifpeek(207)then1770
  179. 1780 poke204,1
  180. 1790 ifx$="w"thenreturn
  181. 1800 goto1760
  182. 1810 print"[147]":poke53280,7:poke53281,0:printchr$(14):print"[158]"
  183. 1820 print"[206]achdem [211]ie den [210][197][211][197][212]-[212]aster betaetigt"
  184. 1830 print"haben, erscheint folgendes [194]ild:"
  185. 1840 zw=24:sw=2:gosub1650:return
  186.