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