home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1993 March / 64er_Magazin_93-03_1993_Markt__Technik_de_Side_B.d64 / modul-demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  34 lines
  1. 10 rem ** 64'er magazin 3/93 hardware
  2. 20 rem ** von nikolaus heusler
  3. 30 rem ** zwengauerweg 18, 8000 muenchen 71
  4. 40 rem -- allg. test/demo der modulplatine
  5. 100 poke56578,63:rem pa2 ausgang
  6. 110 print"[147]modulsteuerung
  7. 120 [153]"bitte mit tasten 1..8 ausgaenge schalten
  8. 130 print"zustandstabelle: 1  2  3  4  5  6  7  8
  9. 140 [153]"---------------------------------------
  10. 150 print"eingaenge      :
  11. 160 [153]"ausgaenge      :
  12. 170 print"---------------------------------------
  13. 200 [153]""[163]16);
  14. 210 [151]56579,0:[143] userport eingabe
  15. 220 [151]56576,255:[143] pa2=1 modul eingabe
  16. 230 a[178][194](56577):[143] zustand der eingaenge
  17. 240 [129]i[178]0[164]7:[143] acht schalter
  18. 250 a$[178]" * ":[143] an
  19. 260 [139](a[175](2[174]i))[178]0[167]a$[178]" . ":[143] aus
  20. 270 [153]a$;:[130]:[153]
  21. 300 [153][163]16);
  22. 310 [151]56579,255:[143] userport ausgabe
  23. 320 [151]56576,251:[143] pa2=0 modul ausgabe
  24. 330 [151]56577,b:[143] ausgaenge schalten
  25. 340 [129]i[178]0[164]7:[143] acht leitungen
  26. 350 a$[178]" * ":[143] an
  27. 360 [139](b[175](2[174]i))[178]0[167]a$[178]" . ":[143] aus
  28. 370 [153]a$;:[130]:[153]
  29. 400 [161]a$:[139]a$[179]"1"[176]a$[177]"8"[167]200
  30. 410 a[178][198](a$)[171]49:[143] umrechnung taste -> wert
  31. 420 c[178]2[174]a:[143] zweierpotenz
  32. 430 b[178](b[176]c)[175][168](b[175]c):[143] ex-or, bit invertieren
  33. 440 [137]200
  34.