' **********************************************************************
' ** Programma: TERMO51.BAS   -  Versione :   1.2 -  05 Giugno 2000   **
' ** Compilatore : BASCOM 8051 DEMO, (IDE V.2.0.0.0, LIB V.2.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 legge la temperatura misurata da IC3 (DS1621) e la
' visualizza in gradi centigradi con valori che vanno da -55 a +125.
' Prima di compilare selezionare nel menu Option/Compiler/Misc/ :
' Byte End 5F.
'
'***********************************************************************
'
'****************** Direttive del compilatore **************************
'
$regfile = "REG51.DAT"                    ' elenco registri 8xc51
'$regfile = "89c2051.DAT"                  ' elenco registri 89c2051
$romstart = &H0                           ' indirizzo di partenza del codice
$crystal = 11059200                       ' frequenza di clock del micro
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 = P1.7                         ' Pin 19 segnale dei DATI per I2CBUS
'Config Scl = P1.6                         ' Pin 18 segnale del Clock per I2CBUS
'T1 Alias P1.5                             ' Pin 17 collegato al Tasto T1
'T2 Alias P1.4                             ' Pin 16 collegato al Tasto T2
'T3 Alias P1.3                             ' Pin 15 collegato al Tasto T3
'
' *************************** 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 ***********************
'
Dim Saa1064 As Const &H38                 ' Slave address SAA1064
Dim Wsaa1064 As Const &H70                ' Slave address SAA1064 in Write
Dim Rsaa1064 As Const &H71                ' Slave address SAA1064 in Read
' ***************** Elenco indirizzi per Saa1064 ***********************
Dim Ctb As Const 0                        ' Ind. Control byte
Dim Dig1 As Const 1                       ' Ind. Digit 1
Dim Dig2 As Const 2                       ' Ind. Digit 2
Dim Dig3 As Const 3                       ' Ind. Digit 3
Dim Dig4 As Const 4                       ' Ind. Digit 4
'
' **********************************************************************
'
Dim Ds1621 As Const &H4C                  ' Slave address DS1621
Dim Wds1621 As Const &H99                 ' Slave address DS1621 in Write
Dim Rds1621 As Const &H98                 ' Slave address DS1621 in Read
' ***************** Elenco comandi per DS1621 **************************
Dim Cfg As Const &HAC                     ' R/W Reg. Config per DS1621
Dim Rtemp As Const &HAA                   ' Leggi temperatura 2 bytes
Dim Strct As Const &HEE                   ' Start conversione temperatura
Dim Stpct As Const &H22                   ' Stop conversione temperatura
'
'****************** Dichiarazione delle variabili **********************
'
Dim Valore As Byte                        ' valore da scrivere o leggere su I2CBUS ecc.
Dim Dig As Byte                           ' numero in formato 7 seg
Dim Th As Byte                            ' byte alto di temperatura
Dim Tl As Byte                            ' byte basso di temperatura
Dim Cifc As Byte                          ' cifra delle centinaia
Dim Cifd As Byte                          ' cifra delle decine
Dim Cifu As Byte                          ' cifra delle unita
Dim Getdati(2) As Byte                    ' vettore di 3 byte
'
'****************** Dichiarazione delle procedure **********************
'
Declare Sub Iniz                          ' Inizializzazione periferiche
Declare Sub Temperatura                   ' leggo la temperatura
Declare Sub Cifre (valore As Byte , Cifc As Byte , Cifd As Byte , Cifu As Byte)
                                          ' Converte TH in gradi a cifre
Declare Sub Digit (dig As Byte )          ' Converte un numero da 0-9 in 7 segmenti
Declare Sub Vis_temp (th As Byte , Tl As Byte)       ' visualizza la temperatura
'
'************************* Programma main ******************************
'
Main:                                     ' Ritardo Assestamento segnali
Waitms 1
   Call Iniz                              ' inizializzazioni
Do
   Call Temperatura                       ' lettura temperatura
   Th = Getdati(0)                        ' prelevo il byte alto
   Tl = Getdati(1)                        ' prelevo il byte basso
   Call Vis_temp(th , Tl)                 ' visualizzo la temperatura
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 0                             ' scrive DY1 off
   I2cwbyte 0                             ' scrive DY2 off
   I2cwbyte 0                             ' scrive DY3 off
   I2cwbyte 0                             ' scrive DY4 off
   I2cstop

   I2csend Wds1621 , Cfg                  ' chiedo, il Reg. di Config.
   I2creceive Rds1621 , Valore            ' leggo il Reg. di Config.
   Valore = Valore And 1                  ' Elimino tutti i bit tranne Bit 0
   If Valore = 1 Then                     ' risulta non attiva la conversione
                                          ' di temperatura
      I2cstart                            ' sequenza di Start per I2CBUS
      I2cwbyte Wds1621                    ' comunico lo Slave address
      I2cwbyte Cfg                        ' chiedo, il Reg. di Config.
      I2cwbyte &B00001010                 ' Scrivo il Reg. di Config.
                                          ' bit1= 1 polarita "1"
                                          ' bit0= 0 conversione continua
      I2cstop
      Waitms 50                           ' ritardo
  End If
   I2csend Wds1621 , Strct                ' start conversione Temperatura
End Sub
'
' ********************** Leggo la temperatura ****************************
' Questa procedura legge il valore di temperatura
' Parametri:
' Ingresso : nulla
' Uscita : Getdati(0), contiene TH, byte alto temperatura
'          Getdati(1), contiene TL, byte basso temperatura
' ************************************************************************
'
Sub Temperatura                           ' leggo la temperatura
   I2csend Wds1621 , Rtemp                ' chiedo, lettura temperatura
   I2creceive Rds1621 , Getdati() , 0 , 2       ' leggo TH e TL
End Sub
'
' ***************** Converte un numero da 0 a 9 in 7 segmenti ***********
' Questa procedura converte una cifra da 0 a 9 nel formato 7 segmenti, se
' il valore e maggiore = 11 il display risulta spento, se = 10 viene
' rappresentato il segno negativo.
' Parametri:
' Ingresso : dig as byte, valore da 0 a 9
' Uscita : dig as byte, valore in formato 7 segmenti.
' ************************************************************************
'
Sub Digit (dig As Byte )                  ' Converte un numero da 0-F in 7 segmenti
   If Dig < 10 Then                       ' il numero risulta minore di 16
      Dig = Lookup(dig , Tab_7seg)        ' leggo in tabella il valore
   Else
      If Dig > 10 Then                    ' se vera spengo il dispaly
         Dig = 0
      Else                                ' risulta essere = 10
         Dig = 64                         ' visualizzo il segno "-"
      End If
   End If
End Sub
'
' ***************** Converte 1 byte in due cifre temperaturav *************
' Questa procedura converte 1 byte da 0 a 255 in temperatura dove da
' 0 a 125 sono gradi centigradi positivi (+0..+125), mentre da 255 a 201 sono
' gradi centigradi negativi (-0...-55), in pratica il bit7 indica il segno,
' i gradi negativi si ottengono con il complemento. Es: Not 255=0, Not 201=54
' Parametri:
' Ingresso : Valore as byte, valore da 0 a 255
' Uscita :
' ************************************************************************
'
Sub Cifre (valore As Byte , Cifh As Byte , Cifl As Byte , Cifu As Byte)
   If Valore > 127 Then                   ' la temperatura risulta negativa
      Cifc = 10                           ' attivo il segno meno
      Valore = Not Valore                 ' complemento il valore
   Else
      If Valore > 99 Then                 ' se positiva, supera 99
         Cifc = 1                         ' attivo il numero 1 delle centinaia
         Valore = Valore - 100            ' sottraggo 100
      Else
         Cifc = 11                        ' non supera 99, spengo la cigra
                                          ' delle centinaia
      End If
   End If
   If Valore > 9 Then                     ' supera 9
      Cifd = Valore / 10                  ' ricavo la cifra delle decine
      Cifu = Cifd * 10                    ' ricavo la cifra delle unita
      Valore = Valore - Cifu
      Cifu = Valore
   Else
      If Cifc = 11 Then                   ' minore di 9 e cifra centinaia spenta
         Cifd = 11                        ' spengo la cifra delle decine
      Else
         If Cifc = 10 Then                ' minore di nove, e temp. negativa
            Cifd = 11                     ' spengo la cifra delle decine
         Else
            Cifd = 0                      ' minore di 9 e cifra centinaia attiva
                                            ' visualizzo uno zero
         End If
      End If
      Cifu = Valore                       ' salvo il valore delle unita
   End If
End Sub
'
' *********************** Visualizza la temperatura ***********************
' Questa procedura permette di visualizzare la temperatura indicata da 2 byte
' TH byte alto e TL byte basso.
' TL indica il mezzo grado 0 o 128 (0 .. 0.5).
' TH indica i gradi 0 a 125 (+0..+125), e 255 a 21 ( -0..-54).
' Parametri:
' Ingresso : TH as byte, valore byte alto
'            TL as byte, valore byte basso
' Uscita : nulla
' ************************************************************************
'
Sub Vis_temp (th As Byte , Tl As Byte)    ' visualizza la temperatura
      I2cstart                            ' sequenza di START
      I2cwbyte Wsaa1064                   ' slave address
      I2cwbyte Dig1                       ' punto al diplay 1 (DY1)

      Call Cifre(th , Cifc , Cifd , Cifu)       ' converto in 3 cifre
      Call Digit(cifc)                    ' converto la cifra centinaia in 7 seg.
      I2cwbyte Dig                        ' scrivo il primo display

      Call Digit(cifd)                    ' converto la cifra decine in 7 seg.
      I2cwbyte Dig

      Call Digit(cifu)                    ' converto la cifra unita in 7 seg.
      Dig = Dig Or 128                    ' attivo il decimal point
      I2cwbyte Dig                        ' scrivo il terzo display

      If Tl = &H80 Then                   ' visualizzo il mezzo grado
         Call Digit(5)                    ' converto la cifra unita in 7 seg.
      Else
         Call Digit(0)                    ' converto la cifra unita in 7 seg.
      End If
      I2cwbyte Dig                        ' scrivo il quarto display
      I2cstop                             ' sequenza di stop
End Sub
'
' ************* Tabella conversione per cifra a 7 segmenti *****************
Tab_7seg:
' num.  0      1      2      3      4      5      6      7      8      9
Data &H3F , &H06 , &H5B , &H4F , &H66 , &H6D , &H7D , &H07 , &H7F , &H6F
' **************************************************************************
'