home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 April / CHIP4_98.ISO / software / ccconrad / basic.exe / CHIP / Programme.Bas / ASSEMBL / PCF85742.BAS < prev    next >
Encoding:
BASIC Source File  |  1997-04-22  |  693 b   |  39 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 Zaehler byte
  16. define Ausgang byteport[1]
  17. define sda     port [9]
  18. define scl     port [10]
  19. ' --- Programmoperationen -------------
  20.  
  21. #loop
  22.    scl = 1
  23.    sda = 1 
  24.   Adresse = 64
  25.   for zaehler = 0 to 255
  26.   Daten = zaehler
  27.   Ausgang = 1
  28.   sys &H0101
  29.   Ausgang = Daten
  30.   print Daten
  31.   next
  32.   pause 50
  33. goto loop
  34. end
  35.  
  36. ' syscode "work.OBJ"   'Code laden
  37.  
  38.  
  39.