home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Archives / HardwareProjects / InOutBoard.lha / In-Out-Board / Maxon_Bas_Sources / Port_Ausgabe_1.bas < prev    next >
Encoding:
BASIC Source File  |  1996-02-21  |  2.3 KB  |  83 lines
  1. '**************************************************************************
  2. '*                                                                        *
  3. '*                    Programm: Port_Ausgabe_1.bas                        *
  4. '*                                                                        *
  5. '*                      © 1996 Andreas Heinrich                           *
  6. '*                                                                        *
  7. '**************************************************************************
  8. '
  9. '
  10. '        Dieses Programm schreibt an Port 3 den Wert der Variable N
  11. '             Dabei wird N hochgezählt bis 255 erreicht wird.
  12. '
  13. '
  14. '**************************************************************************
  15. '
  16. '  A=Port selektieren
  17. '  N=Wert an diesem Port geben
  18. '
  19. '
  20. A=3 : REM         Ausgabeport 3 wird ausgewählt -> IC 4
  21. N=0 : REM         Wert 0 in N
  22. '
  23. GOSUB INIT      : REM  Nach dem Einschalten einmal aufrufen
  24. GOSUB SCHREIBEN : REM  Wert 0 an Port 3 schreiben
  25. '
  26. '**************************** Hauptprogramm *******************************
  27. '
  28. '               Und hier wird an Port 3 der Wert N hochgezählt
  29. '
  30. NOCH_EINMAL:
  31. CLS
  32. FOR X=0 TO 255
  33. N=X
  34. LOCATE 2,1
  35. PRINT N :             REM  N auf Bildschirm ausgegeben
  36. GOSUB SCHREIBEN
  37. '
  38. t1=TIMER
  39. WHILE TIMER<=t1+.25 : REM  Zur besseren Kontrolle wird das Programm gebremst.
  40. '                          Um volle Geschwindigkeit zu bekommen, die
  41. '                          While und Wend - Anweisung herausnehmen.
  42. WEND
  43. NEXT X
  44. '
  45. PRINT
  46. PRINT "Noch einmal ? Dann die Taste > 1 < drücken."
  47. PRINT
  48. PRINT
  49. PRINT "Oder Abbruch mit Taste > 0 <."
  50. PRINT
  51. PRINT
  52. '                 Warten bis Taste gedrückt.
  53. '
  54. DO
  55. SLEEP
  56. a$=INKEY$
  57.  SELECT CASE a$
  58.    CASE="1" : GOTO NOCH_EINMAL :   REM   Und noch einmal
  59.    CASE="0" : PRINT "Ende" : END : REM   Programm beenden
  60.  END SELECT
  61. LOOP
  62. '
  63. '
  64. '************************** Unterprogramme ********************************
  65. '
  66. SCHREIBEN:
  67. '
  68. POKE 12570624&,248+A : REM  Adresse A selektieren
  69. POKE 12575489&,255   : REM  Port als Ausgang schalten
  70. POKE 12574977&,N     : REM  Wert N schreiben
  71. POKE 12570624&,255   : REM  Ready LED einschalten
  72. '
  73. RETURN
  74. '
  75. INIT:
  76. '
  77. POKE 12571136&,199 : REM    Busy,P-aus und SEL=Bitmuster Ausgabe
  78. POKE 12570624&,255 : REM    Adresse 7 selektieren (Ready LED ein)
  79. POKE 12575489&,0   : REM    Port als Eingang schalten
  80. '
  81. RETURN
  82. '
  83.