home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 April / CHIP4_98.ISO / software / ccconrad / basic.exe / CHIP / Programme.Bas / Beispiele_2 / INHC573.BAS < prev    next >
Encoding:
BASIC Source File  |  1997-06-13  |  1.1 KB  |  73 lines
  1. '**************************************
  2. '
  3. ' C-Control/BASIC       INHC573.BAS
  4. '
  5. ' Aufgabe:
  6. '
  7. ' - Porterweiterung fⁿr 32 Eingaenge
  8. ' - 74HC573-Adressierung ⁿber P13...P16
  9. '
  10. '**************************************
  11. ' --- Definitionen --------------------
  12.  
  13. define Bus byteport[1]
  14. define Latch1 port[13]
  15. define Latch2 port[14]
  16. define Latch3 port[15]
  17. define Latch4 port[16]
  18. define Adresse byte
  19. define Daten byte
  20.  
  21. ' --- Programmoperationen -------------
  22.  
  23. Latch1 = ON
  24. Latch2 = ON
  25. Latch3 = ON
  26. Latch4 = ON
  27. #Loop
  28.   gosub In1
  29.   print "Adresse 0: ", Daten
  30.   gosub In2
  31.   print "Adresse 1: ", Daten
  32.   gosub In3
  33.   print "Adresse 2: ", Daten
  34.   gosub In4
  35.   print "Adresse 3: ", Daten
  36.   pause 50
  37. goto Loop              'Endlosschleife
  38.  
  39. #In1
  40.   deact Bus
  41.   Latch1 = ON
  42.   Daten = Bus
  43.   Latch1 = OFF
  44.   return
  45.  
  46. #In2
  47.   deact Bus
  48.   Latch2 = ON
  49.   Daten = Bus
  50.   Latch2 = OFF
  51.   return
  52.  
  53. #In3
  54.   deact Bus
  55.   Latch3 = ON
  56.   Daten = Bus
  57.   Latch3 = OFF
  58.   return
  59.  
  60. #In4
  61.   deact Bus
  62.   Latch4 = ON
  63.   Daten = Bus
  64.   Latch4 = OFF
  65.   return
  66.  
  67. end
  68.  
  69.  
  70.  
  71.  
  72.  
  73.