' ********************************************************************** ' * File: k51termo.bas - Rel. 1.1 con Bascom AVR IDE e LIB 1.11.7.4 * ' * Schede: GMB HR168 + GMM AM128 + K51-AVR * ' * GRIFO(R) via Dell'Artigiano 8/6 40016 S. Giorgio di Piano (BO) * ' * Tel. +39 051 892052 Fax. +39 051 893661 * ' * http://www.grifo.com http://www.grifo.it * ' * by Graziano Gaiba del 17.06.05 * ' ********************************************************************** ' ' 17.06.05 - Rel 1.1 By Graziano Gaiba ' Questo demo permette di pilotare una periferica I2C BUS a bordo della K51-AVR, ' DS1621, attraverso il modulo mini-BLOCK GMB HR168 ed un mini modulo grifo(r). ' Il Ds1621 e' un termometro digitale programmabile, con risoluzione di mezzo ' grado Celsius, tutte le operazioni di programmazione e acquisizione della ' temperatura avvengono tramite l'interfaccia seriale sincrona I2C BUS. ' Il demo mostra sui display a 7 segmenti della K51-AVR la temperatura misurata. ' ' ' !!!!!!!!!!!!!!!!!!!!!!!!!!! IMPORTANTE !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ' Nel menu Options | Compiler | Chip, impostare: ' ' Chip: M128 ' HW Stack: almeno 64 ' Soft Stack: almeno 32 ' Framesize: almeno 64 ' ' '****************** Direttive del compilatore ************************** ' $regfile = "m128def.dat" $crystal = 7372800 $baud = 19200 ' ' ****************** Dichiarazione delle costanti *********************** ' ' Const Ee_timeout = 50000 ' Operazioni di lettura TWI Const Twi_ack = 1 Const Twi_nack = 0 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 Ds1621 = &H4C ' Slave address DS1621 Const Wds1621 = &H98 ' Slave address DS1621 in Write Const Rds1621 = &H99 ' Slave address DS1621 in Read ' ***************** Elenco comandi per DS1621 ************************** Const Cfg = &HAC ' R/W Reg. Config per DS1621 Const Rtemp = &HAA ' Leggi temperatura 2 bytes Const Strct = &HEE ' Start conversione temperatura Const Stpct = &H22 ' Stop conversione temperatura ' '****************** Dichiarazione delle variabili ********************** ' 'Uso generico Dim T1 As Byte , T2 As Byte , I2cstatus As Byte 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 ********************** ' ' Invia un comando all'interfaccia TWI, attende che completi e restituisce lo stato Declare Function Twi_cmd(byval Cmd As Byte) As Byte ' Esegue un comando TWI Declare Sub Twiinit(byval Clockrate As Byte) ' Inizializza l'interfaccia TWI hardware Declare Function Twistart() As Byte ' Invia lo start per l'interfaccia TWI hardware Declare Function Twiwbyte(byval Dato As Byte) As Byte ' Invia un byte sull'interfaccia TWI hardware Declare Function Twirbyte(twi_data As Byte , Byval Assert_ack As Byte) As Byte ' Legge un byte dall'interfaccia TWI hardware Declare Function Twistop() As Byte ' Invia lo stop su interfaccia TWI hardware. Declare Sub Check_ready() Declare Function Check_ready_2() As Byte Declare Sub Iniz() ' Inizializzazione periferiche Declare Sub Temperatura() ' leggo la temperatura Declare Sub Cifre(byval Dato As Byte ) ' Converte TH in gradi a cifre Declare Function Digit(byval Dig As Byte ) As Byte ' Converte un numero da 0-9 in 7 segmenti Declare Sub Vis_temp(byval Th As Byte , Byval Tl As Byte) ' visualizza la temperatura ' '************************* Programma main ****************************** ' Main: ' Ritardo Assestamento segnali Waitms 1 Print Chr(12) Print "Demo del termometro DS1621." Print Call Check_ready() Call Iniz() ' inizializzazioni Print "Viene mostrata la temperatura sui display a 7 segmenti." Do Call Temperatura ' lettura temperatura T1 = Getdati(1) ' prelevo il byte alto T2 = Getdati(2) Call Vis_temp(t1 , T2) ' 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 Local Valore As Byte ' Inizializza l'interfaccia I2C BUS a circa 72 kHz Call Twiinit(72) Do I2cstatus = Twistart() ' sequenza di Start per I2CBUS I2cstatus = Twiwbyte(rsaa1064) I2cstatus = Twirbyte(valore , Twi_nack) ' leggo il registro di stato I2cstatus = Twistop() 'I2creceive Rsaa1064 , Valore Loop Until Valore = 0 ' attendo accensione SAA1064 I2cstatus = Twistart() ' sequenza di Start per I2CBUS I2cstatus = Twiwbyte(wsaa1064) ' comunico lo Slave address I2cstatus = Twiwbyte(ctb) ' Punto al registro di controllo I2cstatus = Twiwbyte(&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 I2cstatus = Twiwbyte(0) ' scrive DY1 off I2cstatus = Twiwbyte(0) ' scrive DY2 off I2cstatus = Twiwbyte(0) ' scrive DY3 off I2cstatus = Twiwbyte(0) ' scrive DY4 off I2cstatus = Twistop() ' Lettura del registro di configurazione del DS1621 I2cstatus = Twistart() ' sequenza di Start per I2CBUS I2cstatus = Twiwbyte(wds1621) ' chiedo, il Reg. di Config. I2cstatus = Twiwbyte(cfg) I2cstatus = Twistop() ' I2csend Wds1621 , Cfg I2cstatus = Twistart() ' sequenza di Start per I2CBUS I2cstatus = Twiwbyte(rds1621) I2cstatus = Twirbyte(valore , Twi_nack) I2cstatus = Twistop() ' 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 I2cstatus = Twistart() ' sequenza di Start per I2CBUS I2cstatus = Twiwbyte(wds1621) ' comunico lo Slave address I2cstatus = Twiwbyte(cfg) ' chiedo, il Reg. di Config. I2cstatus = Twiwbyte(&B00001010) ' Scrivo il Reg. di Config. ' bit1= 1 polarita "1" ' bit0= 0 conversione continua I2cstatus = Twistop() Waitms 50 ' ritardo End If I2cstatus = Twistart() ' sequenza di Start per I2CBUS I2cstatus = Twiwbyte(wds1621) ' chiedo, il Reg. di Config. I2cstatus = Twiwbyte(strct) I2cstatus = Twistop() '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 Local Temp1 As Byte , Temp2 As Byte ' chiedo, lettura temperatura I2cstatus = Twistart() ' sequenza di Start per I2CBUS I2cstatus = Twiwbyte(wds1621) ' chiedo, il Reg. di Config. I2cstatus = Twiwbyte(rtemp) I2cstatus = Twistop() ' I2csend Wds1621 , Rtemp I2cstatus = Twistart() ' sequenza di Start per I2CBUS I2cstatus = Twiwbyte(rds1621) I2cstatus = Twirbyte(temp1 , Twi_ack) I2cstatus = Twirbyte(temp2 , Twi_nack) I2cstatus = Twistop() Getdati(1) = Temp1 Getdati(2) = Temp2 'I2creceive Rds1621 , Getdati(1) , 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 : byte, valore in formato 7 segmenti. ' ************************************************************************ ' Function Digit(byval Dig As Byte ) As Byte ' Converte un numero da 0-F in 7 segmenti Local Valore As Byte If Dig < 10 Then ' il numero risulta minore di 16 Valore = Lookup(dig , Tab_7seg) ' leggo in tabella il valore Else If Dig > 10 Then ' se vera spengo il dispaly Valore = 0 Else ' risulta essere = 10 Valore = 64 ' visualizzo il segno "-" End If End If Digit = Valore End Function ' ' ***************** 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 : nulla ' ************************************************************************ ' Sub Cifre(byval Dato As Byte ) If Dato > 127 Then ' la temperatura risulta negativa Cifc = 10 ' attivo il segno meno Dato = Not Dato ' complemento il valore Else If Dato > 99 Then ' se positiva, supera 99 Cifc = 1 ' attivo il numero 1 delle centinaia Dato = Dato - 100 ' sottraggo 100 Else Cifc = 11 ' non supera 99, spengo la cigra ' delle centinaia End If End If If Dato > 9 Then ' supera 9 Cifd = Dato / 10 ' ricavo la cifra delle decine Cifu = Cifd * 10 ' ricavo la cifra delle unita Dato = Dato - Cifu Cifu = Dato 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 = Dato ' 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(byval Th As Byte , Byval Tl As Byte) ' visualizza la temperatura Local Valore As Byte I2cstatus = Twistart() ' sequenza di START I2cstatus = Twiwbyte(wsaa1064) ' slave address I2cstatus = Twiwbyte(dig1) ' punto al diplay 1 (DY1) Call Cifre(th ) ' converto in 3 cifre Valore = Digit(cifc) ' converto la cifra centinaia in 7 seg. I2cstatus = Twiwbyte(valore) ' scrivo il primo display Valore = Digit(cifd) ' converto la cifra decine in 7 seg. I2cstatus = Twiwbyte(valore) Valore = Digit(cifu) ' converto la cifra unita in 7 seg. Valore = Valore Or 128 ' attivo il decimal point I2cstatus = Twiwbyte(valore) ' scrivo il terzo display If Tl = &H80 Then ' visualizzo il mezzo grado Valore = Digit(5) ' converto la cifra unita in 7 seg. Else Valore = Digit(0) ' converto la cifra unita in 7 seg. End If I2cstatus = Twiwbyte(valore) ' scrivo il quarto display I2cstatus = Twistop() ' sequenza di stop End Sub ' '****************************************************************************** '* Procedure di gestione dell'I2C BUS hardware * '****************************************************************************** ' ' ' ' Scrive il comando passato nel parametro cmd nel registro di conrollo TWI e ' attende il completamento dell'operazione impostata per poi leggere lo stato ' dello stesso controllore e restituirlo. ' Function Twi_cmd(byval Cmd As Byte) As Byte Local Time_out As Word , I As Byte Twcr = Cmd ' Fornisce comando passato Time_out = 0 ' Contatore timeout Do Incr Time_out ' Incrementa contatore Loop Until Twcr.twint = 1 Or Time_out = Ee_timeout ' Legge stato attuale e mantiene bit significativi I = Twsr I = I And &HF8 Twi_cmd = I End Function ' ' ' Inizializza l'interfaccia TWI hardware ' Sub Twiinit(byval Clockrate As Byte) Twsr = Twsr And &HFC ' Prescaler tace Twbr = Clockrate ' Imposta clock rate End Sub ' ' ' Invia lo start per l'interfaccia TWI hardware ' Function Twistart() As Byte Twistart = Twi_cmd(&Ha4) ' Start End Function ' ' ' Invia un byte sull'interfaccia TWI hardware ' Function Twiwbyte(byval Dato As Byte) As Byte Twdr = Dato ' Scrive dato Twiwbyte = Twi_cmd(&H84) End Function ' ' ' Legge un byte dall'interfaccia TWI hardware ' Function Twirbyte(twi_data As Byte , Byval Assert_ack As Byte) As Byte If Assert_ack = 1 Then Twirbyte = Twi_cmd(&Hc4) Else Twirbyte = Twi_cmd(&H84) End If Twi_data = Twdr End Function ' ' ' Invia lo stop su interfaccia TWI hardware. ' Restituisce 0 se non ci sono errori, diverso da 0 in caso di ' timeout. ' Function Twistop() As Byte Local Time_out As Word Twcr = &H94 ' Stop ' Attende che lo stop Time_out = 0 Do ' sia completato o che Incr Time_out ' scada il Time Out Loop Until Twcr.twsto = 0 Or Time_out = Ee_timeout If Time_out = Ee_timeout Then Twistop = 1 Else Twistop = 0 End If End Function ' '****************************************************************************** '* Procedure di uso generico * '****************************************************************************** ' ' ' ' Funzione di supporto della Check_ready(). ' Function Check_ready_2() As Byte Local Time_out As Word , I_n As Byte Time_out = 0 ' Contatore timeout Do Incr Time_out ' Incrementa contatore Loop Until Twcr.twint = 1 Or Time_out = Ee_timeout I_n = Twsr I_n = I_n And &HF8 Check_ready_2 = I_n End Function ' ' ' Controlla che la scheda sia pronta ' Sub Check_ready() Local Check As Byte , Test As Byte Do ' Ciclo attesa scheda pronta Twsr = Twsr And &HFC Check = Twdr Or &HF4 Test.4 = Not Check.3 Twbr = 72 Twcr = &HA4 Check = Check_ready_2() Test = Check Or Twcr If Check = &H09 Then Test = &H67 Else Test.1 = Not Test.1 End If Twdr = &HA0 Twcr = &H84 Check = Check_ready_2() Twcr = &H94 Waitms 27 Loop Until Check = &H18 Or Test <> 1 Twcr.twen = 0 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 ' ************************************************************************** '