home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 April / CHIP4_98.ISO / software / ccconrad / basic.exe / CHIP / Programme.Bas / Beispiele_2 / OUTHC573.BAS < prev    next >
Encoding:
BASIC Source File  |  1997-05-09  |  944 b   |  61 lines

  1. '**************************************
  2. '
  3. ' C-Control/BASIC       OUTHC573.BAS
  4. '
  5. ' Aufgabe:
  6. '
  7. ' - Porterweiterung fⁿr 32 Ausgaenge
  8. ' - 74HC573-Adressierung ⁿber P9...P12
  9. '
  10. '**************************************
  11. ' --- Definitionen --------------------
  12.  
  13. define Bus byteport[1]
  14. define Latch1 port[9]
  15. define Latch2 port[10]
  16. define Latch3 port[11]
  17. define Latch4 port[12]
  18. define Adresse byte
  19. define Daten byte
  20.  
  21. ' --- Programmoperationen -------------
  22.  
  23. Bus = OFF
  24. Latch1 = OFF
  25. Latch2 = OFF
  26. Latch3 = OFF
  27. Latch4 = OFF
  28. #Loop
  29.   print "Adresse 0...3, Daten 0...255"
  30.   input Adresse
  31.   input Daten 
  32.   on Adresse gosub Aus1, Aus2, Aus3, Aus4
  33.   print Adresse, Daten, "OK"
  34. goto Loop              'Endlosschleife
  35.  
  36. #Aus1
  37.   Bus = Daten
  38.   pulse Latch1
  39.   return
  40.  
  41. #Aus2
  42.   Bus = Daten
  43.   pulse Latch2
  44.   return
  45.  
  46. #Aus3
  47.   Bus = Daten
  48.   pulse Latch3
  49.   return
  50.  
  51. #Aus4
  52.   Bus = Daten
  53.   pulse Latch4
  54.   return
  55. end
  56.  
  57.  
  58.  
  59.  
  60.  
  61.