home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 April / CHIP4_98.ISO / software / ccconrad / basic.exe / CHIP / Programme.Bas / ASSEMBL / PCF8574.BAS < prev    next >
Encoding:
BASIC Source File  |  1997-04-23  |  763 b   |  42 lines
  1. '**************************************
  2. '
  3. ' C-Control/BASIC       PCF8574.BAS
  4. '
  5. ' Aufgabe:
  6. '
  7. ' - I2B-Bus Ansteuerung
  8. ' - Ein/Ausgabe über Portbaustein
  9. '
  10. '**************************************
  11. ' --- Definitionen --------------------
  12.  
  13. define Adresse byte 'Bytevar $0A1
  14. define Daten byte   'Bytevar $0A2
  15. define Ausgang byteport[1]
  16. ' --- Programmoperationen -------------
  17.  
  18. #loop
  19.   Adresse = 64   'IC1
  20.   Daten = 255
  21.   sys &H0101
  22.   print "IC1: ",Daten
  23.   Adresse = 66  'IC2
  24.   Daten = 255
  25.   sys &H0101
  26.   print "IC2: ",Daten
  27.   Adresse = 68   'IC3
  28.   Daten = 255
  29.   sys &H0101
  30.   print "IC3: ",Daten
  31.   Adresse = 70  'IC4
  32.   Daten = 255
  33.   sys &H0101
  34.   print "IC4: ",Daten
  35.   pause 50
  36. goto loop
  37. end
  38.  
  39. ' syscode "I2C_3.OBJ"   'Code laden
  40.  
  41.  
  42.