' **********************************************************************
' ** Programma: PPO.BAS   -  Versione :   1.1 -      04 Aprile 2000   **
' ** Compilatore : BASCOM AVR, (IDE V.1.11.4.0, LIB 1.11.4.0)         **
' ** Scheda : K51-AVR                                                 **
' ** Ditta:   grifo(r) ITALIAN TECHNOLOGY                             **
' ** Via Dell' Artigiano 8/6          40016 San Giorgio di Piano (BO) **
' ** Tel.+39 051 892 052     Fax +39 051 893 661                      **
' ** http://www.grifo.com    http://www.grifo.it                      **
' ** sales@grifo.it          tech@grifo.it          grifo@grifo.it    **
' **                                                                  **
' ** Realizzato da:  Adriano Pedrielli                                **
' **********************************************************************
'
' Questo programma attiva una linea alla volta in sequenza sulle 8 linee
' collegate a IC1 (PCF8574A).
' Prima di compilare selezionare nel menu Option/Compiler/Misc/ :
' Byte End 5F;  Register File 89c1051.DAT oppure 8052.DAT
' Per 8xC51/52 modificare il sorgente dove vengono descritti i PIN utilizzati
' sotituendo quelli del 89c1051 con 8xc51.
'
'***********************************************************************
'
'****************** Direttive del compilatore **************************
'
$regfile = "8515def.dat"
$romstart = &H0                                   ' indirizzo di partenza del codice
$crystal = 5529600                                ' frequenza di clock del micro
$baud = 19200
Config Debounce = 50                              ' tempo di attesa per convalidare
' avvenuta pressione di un tasto
' Es: 10= 10ms, 50= 50ms
'
' *************** Elenco PIN per 89c1051/2051/4051 *********************
Config Sda = Portd.6                              ' Pin 19 segnale dei DATI per I2CBUS
Config Scl = Portd.7                              ' Pin 18 segnale del Clock per I2CBUS
'T1 Alias Pinb.0                           ' Pin 17 collegato al Tasto T1
'T2 Alias Pinb.1                           ' Pin 16 collegato al Tasto T2
'T3 Alias Pinb.2                           ' Pin 15 collegato al Tasto T3
'Config Pinb.0 = Input
'Config Pinb.1 = Input
'Config Pinb.2 = Input

Buz Alias Pind.5                                  ' Pin 9 collegato al Buzzer
'
' *************************** Elenco PIN per 8xc51 *********************
'Config Sda = P3.6                         ' Pin 16 segnale dei DATI per I2CBUS
'Config Scl = P3.7                         ' Pin 17 segnale del Clock per I2CBUS
'T1 Alias P1.0                             ' Pin 1 collegato al Tasto T1
'T2 Alias P1.1                             ' Pin 2 collegato al Tasto T2
'T3 Alias P1.2                             ' Pin 3 collegato al Tasto T3
'
'****************** Dichiarazione delle costanti ***********************
'
Const Saa1064 = &H38                              ' Slave address SAA1064
Const Wsaa1064 = &H70                             ' Slave address SAA1064 in Write
Const Rsaa1064 = &H71                             ' Slave address SAA1064 in Read
' ***************** Elenco indirizzi per Saa1064 ***********************
Const Ctb = 0                                     ' Ind. Control byte
Const Dig1 = 1                                    ' Ind. Digit 1
Const Dig2 = 2                                    ' Ind. Digit 2
Const Dig3 = 3                                    ' Ind. Digit 3
Const Dig4 = 4                                    ' Ind. Digit 4
'***********************************************************************
'
Const Pcf8574a = &H3C                             ' Slave address PCF8574A
Const Wpcf8574a = &H78                            ' Slave address PCF8574A in Write
Const Rpcf8574a = &H79                            ' Slave address PCF8574A in Read
'
'****************** Dichiarazione delle variabili **********************
'
Dim Pout As Byte                                  ' valore per le linee di uscita
Dim X As Byte                                     ' uso generico
Dim Valore As Byte                                ' valore di conteggio
'
'****************** Dichiarazione delle procedure **********************
'
Declare Sub Iniz                                  ' Inizializzazione periferiche
'
'************************* Programma main ******************************
'
Main:                                             ' Ritardo Assestamento segnali
Waitms 1
   Call Iniz                                      ' inizializzazioni
Do
   Valore = 1                                     ' valore di partenza
   For X = 1 To 7                                 ' inizializzo il ciclo
      Pout = Not Valore                           ' complemento in valore
      I2csend Wpcf8574a , Pout                    ' setto le uscite
      Valore = Valore * 2                         ' shift dei bit a sinistra
      Waitms 255                                  ' ritardo
   Next X
   For X = 1 To 7                                 ' inizializzo il ciclo
      Pout = Not Valore                           ' complemento in valore
      I2csend Wpcf8574a , Pout                    ' setto le uscite
      Valore = Valore / 2                         ' shift dei bit a destra
      Waitms 255                                  ' ritardo
   Next X
Loop
End
'
'************************ Fine del programma ***************************
'
'
'**************************** Procedure ********************************
'
' ******************* Inizializzazione delle periferiche *****************
' Questa procedura esegue tutte le inizializzazioni del sistema.
' Parametri:
' Ingresso : nulla
' Uscita : nulla
' ************************************************************************
'
Sub Iniz                                          ' Inizializzazione periferiche
   Do
      I2creceive Rsaa1064 , Valore                ' leggo il registro di stato
   Loop Until Valore = 0                          ' attendo accensione SAA1064
   I2cstart                                       ' sequenza di Start per I2CBUS
   I2cwbyte Wsaa1064                              ' comunico lo Slave address
   I2cwbyte Ctb                                   ' Punto al registro di controllo
   I2cwbyte &B00100111                            ' bit0 =1 dynamic mode
' bit1 =1 digit 1+3 not blanked
' bit2 =1 digit 2+4 not blanked
' bit3 =0 no test segment
' bit4 =0 no 3mA segment current
' bit5 =1 6mA segment current
' bit6 =0 no 12mA segment current
' bit7 =0 indifferente
   I2cwbyte 92                                    ' scrive DY1 "o"
   I2cwbyte 28                                    ' scrive DY2 "u"
   I2cwbyte 120                                   ' scrive DY3 "t"
   I2cwbyte 0                                     ' scrive DY4 off
   I2cstop
End Sub
'