home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Archives / HardwareProjects / InOutBoard.lha / In-Out-Board / Maxon_Bas_Sources / Port_Ausgabe_2.bas < prev    next >
Encoding:
BASIC Source File  |  1996-02-21  |  1.7 KB  |  61 lines
  1. '**************************************************************************
  2. '*                                                                        *
  3. '*                    Programm: Port_Ausgabe_2.bas                        *
  4. '*                                                                        *
  5. '*                      © 1996 Andreas Heinrich                           *
  6. '*                                                                        *
  7. '**************************************************************************
  8. '
  9. '
  10. '        Dieses Programm schreibt an Port 3 den Wert der Variable N
  11. '                   N kann über Input eingegeben werden.
  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
  25. '
  26. '**************************** Hauptprogramm *******************************
  27. '
  28. '
  29. '
  30. DO
  31. PRINT
  32. PRINT "   Gebe eine Zahl ein: ";
  33. '
  34. '     Die Zahl sollte natürlich im 8 Bit - Bereich liegen. ( 0 - 255 )
  35. '
  36. INPUT N
  37. GOSUB SCHREIBEN
  38. PRINT : PRINT "   Das Programm läßt sich mit Crtl-C unterbrechen."
  39. LOOP
  40. '
  41. '
  42. '************************** Unterprogramme ********************************
  43. '
  44. SCHREIBEN:
  45. '
  46. POKE 12570624&,248+A : REM  Adresse A selektieren
  47. POKE 12575489&,255 :   REM  Port als Ausgang schalten
  48. POKE 12574977&,N :     REM  Wert N schreiben
  49. POKE 12570624&,255 :   REM  Ready LED einschalten
  50. '
  51. RETURN
  52. '
  53. INIT:
  54. '
  55. POKE 12571136&,199 : REM    Busy,P-aus und SEL=Bitmuster Ausgabe
  56. POKE 12570624&,255 : REM    Adresse 7 selektieren (Ready LED ein)
  57. POKE 12575489&,0 :   REM    Port als Eingang schalten
  58. '
  59. RETURN
  60. '
  61.