' **********************************************************************
' ** Programma: DA_av.BAS   -  Versione :   1.2  -  26 Gennaio 2001   **
' ** Compilatore : BASCOM AVR, (IDE V.1.11.4.0, LIB V.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:  Graziano GAIBA                                   **
' **********************************************************************
'
' Questo programma permette di gestire un canala D/A converter su IC2
' (PCF8591), tramite il pulsante T1 si incrementa il valore, mentre T2
' decrementa il valore il quale viene visualizzato nel formato esadecimale
' sui display a 7 segmenti.
' Ad ogni pressione di un tasto viene emesso un seganle acustico.
' Prima di compilare selezionare nel menu Option/Compiler/Misc/ :
' Byte End 5F.
'
'***********************************************************************
'
'****************** Direttive del compilatore **************************
'
$regfile = "8515def.DAT"                          ' elenco registri 90s8515
$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  *****************************
'
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
Config Pinb.0 = Input

T2 Alias Pinb.1                                   ' Pin 16 collegato al Tasto T2
Config Pinb.1 = Input

T3 Alias Pinb.2                                   ' Pin 15 collegato al Tasto T3
Config Pinb.2 = Input

Buz Alias Portd.5                                 ' Pin 9 collegato al Buzzer
Config Pind.5 = Output
'
'****************** 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

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 Pcf8591 = &H48                              ' Slave address PCF8591
Const Wpcf8591 = &H90                             ' Slave address PCF8591 in Write
Const Rpcf8591 = &H91                             ' Slave address PCF8591 in Read
'
'****************** Dichiarazione delle variabili **********************
'
Dim Dig As Byte                                   ' valore di un digit
Dim Cifh As Byte                                  ' cifra 4 bit alti in HEX
Dim Cifl As Byte                                  ' cifra 4 bit bassi in HEX
Dim N1 As Byte                                    ' numero 1 byte per DY3 e DY4
Dim Valore As Byte                                ' numero da convertire
Dim Tensione As Byte
Dim Valori As Byte
Dim Cifra As Byte
'
'****************** Dichiarazione delle procedure **********************
'
Declare Sub Iniz                                  ' Inizializzazione periferiche
Declare Sub Dac(tensione As Byte)                 ' Gestione del D/A converter
Declare Sub Cifre (valori As Byte , Cifh As Byte , Cifl As Byte )
                                          ' converte un numero in 2 cifre HEX
Declare Function Digit (dig As Byte ) As Byte     ' Converte un numero da 0-F in 7 segmenti
Declare Sub Vis_num (n1 As Byte)                  ' visualizza un byte in HEX
'
'************************* Programma main ******************************
'
Main:                                             ' Ritardo Assestamento segnali
Waitms 1
   Call Iniz                                      ' inizializzazioni
   Valore = 0
Do
   Call Dac(valore)                               ' Gestione del D/A converter
   Call Vis_num(valore)                           ' visualizzo il byte in HEX
   Debounce T1 , 0 , Incrementa , Sub
   Debounce T2 , 0 , Decrementa , Sub
Loop
Incrementa:
   Buz = 0                                        ' attivo il buzzer
   Waitms 50                                      ' ritardo
   Incr Valore
   Buz = 1                                        ' disattivo il buzzer
Return
Decrementa:
   Buz = 0                                        ' attivo il buzzer
   Waitms 50                                      ' ritardo
   Decr Valore
   Buz = 1                                        ' disattivo il buzzer
Return
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
   Buz = 1                                        ' Tacita il buzzer
   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 94                                    ' scrive DY1 "d"
   I2cwbyte 119                                   ' scrive DY2 "A"
   I2cwbyte 0                                     ' scrive DY3 off
   I2cwbyte 0                                     ' scrive DY4 off
   I2cstop
End Sub
'
' ***************** Gestione del D/A converter ****************************
' Questa procedura permette di settare un valore in uscita al D/A converter,
' disponibile su IC2 (PCF8591).
' Parametri:
' Ingresso : Valore as byte, valore da 0 a 255 (0v ..+Vref)
' Uscita :
' ************************************************************************
'
Sub Dac(tensione As Byte)                         ' Gestione del D/A converter
   I2cstart                                       ' sequenza di Start per I2CBUS
   I2cwbyte Wpcf8591                              ' comunico lo Slave address
   I2cwbyte &H40                                  ' comando di attivazione D/A
   I2cwbyte Tensione                              ' valore per il D/A
   I2cstop
End Sub
'
' ***************** Converte un numero da 0 a F in 7 segmenti ***********
' Questa procedura converte una cifra da 0 a F nel formato 7 segmenti, se
' il valore e maggiore di F il display risulta spento.
' Parametri:
' Ingresso : dig as byte, valore da 0 a F
' Uscita : dig as byte, valore in formato 7 segmenti.
' ************************************************************************
'
Function Digit (dig As Byte ) As Byte             ' Converte un numero da 0-F in 7 segmenti
   If Dig < 16 Then                               ' il numero risulta minore di 16
      Digit = Lookup(dig , Tab_7seg)              ' leggo in tabella il valore
   Else
      Digit = 0                                   ' se = 10 o superiore azzero
   End If
End Function
'
' ***************** Converte 1 byte in due cifre HEX ********************
' Questa procedura converte 1 byte da 0 a 255 in due cifre esadecimali a
' 4 bit.
' Parametri:
' Ingresso : Valore as byte, valore da 0 a 255
' Uscita :  Cifh as byte, cifra del nibble alto
'    Cifl as byte, cifra del nibble basso
' ************************************************************************
'
Sub Cifre (valori As Byte , Cifh As Byte , Cifl As Byte )
                                          ' converte un numero in due cifre HEX
   Cifh = Valori And &HF0                         ' prelevo i 4 bit alti
   Cifh = Cifh / 16                               ' sposto in basso i 4 bit alti
   Cifl = Valori And &H0F                         ' prelevo i 4 bit bassi
End Sub
'
' *********************** Visualizza un byte in HEX **********************
' Questa procedura permette di visualizzare un byte nel formato esadecimale.
' sui display DY3 e DY4. Es: 255= FFH, 32= 20H ecc.
' Parametri:
' Ingresso : N1 as byte, numero da visualizzare in HEX
' Uscita : nulla
' ************************************************************************
'
Sub Vis_num (n1 As Byte)                          ' visualizza un byte in HEX
      I2cstart                                    ' sequenza di START
      I2cwbyte Wsaa1064                           ' slave address
      I2cwbyte Dig3                               ' punto al diplay 3 (DY3)

      Call Cifre(n1 , Cifh , Cifl)                ' converto il numero1 in 2 cifre
      Cifra = Digit(cifh)                         ' converto la cifra decine in 7 seg.
      I2cwbyte Cifra                              ' scrivo il display DY3

      Cifra = Digit(cifl)                         ' converto la cifra unita in 7 seg.
      I2cwbyte Cifra                              ' scrivo il display DY4

      I2cstop                                     ' sequenza di stop
End Sub
'
' ************* Tabella conversione per cifra a 7 segmenti da 0 a 15 *******
Tab_7seg:
' num.  0      1      2      3      4      5      6      7      8      9
Data &H3F , &H06 , &H5B , &H4F , &H66 , &H6D , &H7D , &H07 , &H7F , &H6F
' num.  A      b      C      d      E      F
Data &H77 , &H7C , &H39 , &H5E , &H79 , &H71
' **************************************************************************
'