' ********************************************************************** ' ** Programma: k51termo.BAS - Versione : 1.1 - 06 Giugno 2005 ** ' ** Compilatore : BASCOM 8051 DEMO, (IDE e LIB V.2.0.11.0) ** ' ** Scheda : K51-AVR tramite GMB HR84 e GMM 936 ** ' ** 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 ** ' ** Realizzato da: Graziano Gaiba ** ' ********************************************************************** ' ' Questo demo permette di pilotare una periferica I2C BUS a bordo della K51-AVR, ' DS1621, attraverso il modulo mini-BLOCK GMB HR84 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. ' ' ' 06.06.05 - Rel 1.1 By Graziano Gaiba ' ' '****************** Direttive del compilatore ************************** ' 'N.B. Nella finestra Options | Compiler | Misc effettuare i seguenti ' settaggi: Register File = 89LPC936.DAT ' Byte End (Hex) = A0 ' Size warining = 7167 $regfile "89lpc936.dat" $romstart = &H0 ' Ind. inizio codice in FLASH $ramstart = &H0 ' Ind. inizio area dati in XRAM $ramsize = &H200 ' Dimensioni area dati in XRAM $crystal = 11059200 ' Massima Fclock della scheda $baud = 19200 ' Velocità comunicazione seriale $large ' Dimensione codice > 2K $map ' Genera info per debug ' '****************** Dichiarazione delle costanti *********************** ' Const Cret = 13 ' Codice di ritorno di carrello Const Lf = 10 ' Codice nuova linea Const Clrscr = 12 ' codice di clear screen Const Bell = 7 ' codice di Bell Const Rcint = 7372800 ' Frequenza clock da RC interno Const Qz11m = 11059200 ' Frequenza clock da quarzo esterno ' ' ' 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 &H98 ' Slave address DS1621 in Write Dim Rds1621 As Const &H99 ' 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 ********************** ' ' ' Variabili ad uso generico Dim S0 As Bit ' Bit di uso generico Dim I As Byte Dim Hlpb As Byte , M As Byte ' Byte ad uso generico Dim T As Byte , S As Byte , V As Byte ' Byte di uso generico Dim Hlpw As Word , Ind As Word ' Word ad uso generico Dim Hlpl As Long ' Long ad uso generico ' 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 ' Variabili per gestione comunicazione seriale, clock e ritardi Dim St As Byte Dim Br As Long ' Buad Rate seriale Dim Cclk As Long ' Frequenza clock della CPU Dim R As Word , Rit1ms As Word , Rit As Word ' Gestione ritardi ' Variabili per gestione Port di I/O digitale Dim M1 As Byte , M2 As Byte ' Variabili per gestione I2C Dim I2cc As Byte , I2cs As Byte Dim I2cdato As Byte Dim I2caddr As Word ' Usate da routine I2C BUS hardware Dim I2c_slave As Byte , I2c_byte As Byte Dim Dummy As Byte , N_out As Byte , N_in As Byte Dim Getdati(2) As Byte ' vettore di 2 bytes ' '****************** Dichiarazione delle procedure ********************** ' Declare Sub Init() ' Inizializzazione Declare Sub Iniz() ' Inizializzazione periferiche Declare Sub Clrscr() ' Pulisce lo schermo 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 Declare Sub Check() ' Verifica periferiche Declare Sub Ritardo(rit As Word) ' Effettua ritardo calibrato Declare Sub Iniser(br As Long , St As Byte) ' Inizializzazione seriale Declare Sub Cmd_i2c(i2cc As Byte) ' Manda comando ad I2C ' Declare Sub Cmd_i2cstart Declare Sub Cmd_i2cstop Declare Sub Cmd_i2creceive(i2c_slave As Byte , I2c_byte As Byte) Declare Sub Cmd_i2csend(i2c_slave As Byte , I2c_byte As Byte) Declare Sub Cmd_i2cwbyte(i2c_byte As Byte) Declare Sub Cmd_n_i2creceive(i2c_slave As Byte , Dummy As Byte , N_out As Byte , N_in As Byte) ' '************************* Programma main ****************************** ' Main: Call Get_clk ' Preleva frequenza della CPU Call Iniser(19200 , 1) ' Inizializza seriale x console Call Init ' Inizializza Mini Modulo ' ' ' Effettua un ritardo di circa 2 secondi in modo da assicurare la ' partenza del programma di emulazione terminale per console (es. ' HYPERTERMINAL) e contemporaneamente fa` lampeggiare il LED di ' attivita` DL1 della scheda. ' Usa la variabile generale i P0m1 = P0m1 Or &H40 ' Setta P0.6 in modo 3=OpenDrain P0m2 = P0m2 Or &H40 For I = 1 To 16 ' 16 cicli da 125 msec = 2 sec P0.6 = Not P0.6 ' Complementa LED attivita` Call Ritardo(125) ' Ritardo di circa 125 msec Next I ' ' ' Call Clrscr() Print "Demo utilizzo DS1621 con GMB HR84 + GMM 936 a " ; Cclk ; " MHz e K51-AVR" Call Check ' Controllo interno Call Iniz ' inizializzazioni periferiche Print Print "La temperatura viene visualizzata sulla K51-AVR." Do Call Temperatura ' lettura temperatura Th = Getdati(1) ' prelevo il byte alto Tl = Getdati(2) ' prelevo il byte basso Call Vis_temp(th , Tl) ' visualizzo la temperatura Loop End ' '************************ Fine del programma *************************** ' ' '**************************** Procedure ******************************** ' ' '************************ Procedure di uso generale **************************** ' Legge il byte di configurazione UCFG1 in FLASH grazie alle procedure IAP del ' Boot Rom del P89LPC932. Restituisce la variabile globale cclk settata con la ' frequenza di clock della CPU, senza controllare gli eventuali errori. Sub Get_clk mov A,#&H03 ' Usa comando Misc. Read mov R7,#&H00 ' Legge registro UCFG1 lcall &HFF03 ' Chiama proc. IAP ad ind. PGM_MTP mov A,R7 ' Salva risultato anl A,#&H07 ' Mantiene bit con clock CPU Select Case Acc Case &H00 : Cclk = Qz11m ' Frequenza clock da quarzo esterno Case &H03 : Cclk = Rcint ' Frequenza clock da RC interno End Select End Sub ' ' ' Effettua un ritardo del numero di millisecondi passato nel parametro rit, ' tenendo conto della frequenza di clock salvata nella variabile cclk senza ' usare le istruzioni BASCOM che usano un valore predefinito e costante di ' clock. Sub Ritardo(rit As Word) If Cclk = Rcint Then Rit1ms = 73 ' Valore sperimentale per 1 msec a 7 MHz Else Rit1ms = 110 ' Valore sperimentale per 1 msec a 11 MHz End If Do For R = 0 To Rit1ms ' Ciclo per ritardo di 1 msec Next R Rit = Rit - 1 Loop Until Rit = 0 End Sub ' ' '************************* Procedure gestione seriale ************************** ' Inizializza la linea seriale con: ' Bit x chr = 8 ' Stop bit = 1 o 2 a seconda del parametro ST ' Parity = None ' Baud rate = valore nel parametro BR ' usando l'apposito baud rate generator del micro e la frequenza di clock salvata ' nella variabile globale cclk. ' Usa le variabili generali hlpw,hlpl Sub Iniser(br As Long , St As Byte) Pcon = Pcon And &HBF ' Azzera bit SMOD0 x settare modo If St = 1 Then Scon = &H52 ' Modo 1 (1 stop),No multiproc,Attiva rx Else Scon = &HDA ' Modo 3 (2 stop),No multiproc,Attiva rx End If Brgcon = &H02 ' Imposta baud rate passato Hlpl = Br * 16 ' Calcola divisore per baud Hlpl = Cclk - Hlpl Hlpl = Hlpl / Br Hlpw = Loww(hlpl) Brgr0 = Low(hlpw) Brgr1 = High(hlpw) Brgcon = &H03 End Sub '*********************** Procedure gestione I2C BUS **************************** ' Scrive il comando passato nel parametro i2c nel registro di conrollo I2C ed ' attende il completamento dell'operazione impostata per poi leggere lo stato ' dello stesso controllore e restituirlo nella variabile globale i2cs ' Usa la variabile generale hlpw Sub Cmd_i2c(i2cc As Byte) I2con = I2cc ' Fornisce comando passato Hlpw = 0 ' Contatore timeout Do Incr Hlpw ' Incrementa contatore Call Ritardo(1) ' Pausa 1 msec Loop Until I2con.3 = 1 Or Hlpw > 50 ' Esce x flag interrupt o timeout I2cs = I2stat ' Legge stato attuale I2cs = I2cs And &HF8 ' Mantiene bit significativi End Sub ' ' ' Invia lo start I2C BUS usando la periferica hardware Sub Cmd_i2cstart I2con = &H40 ' Abilita la SIO1 Call Cmd_i2c(&H60) ' Invia lo start End Sub ' ' ' Genera lo stop I2C BUS usando la periferica hardware Sub Cmd_i2cstop I2con = &H50 ' Genera lo stop Hlpw = 0 ' Contatore per timeout Do Incr Hlpw ' Incrementa contatore Call Ritardo(1) ' Pausa 1 msec Loop Until I2con.4 = 0 Or Hlpw > 20 ' Esce x stop finito o timeout I2con = &H00 ' Disattiva controllore I2C End Sub ' ' ' Invia un byte su I2C BUS usando la periferica hardware Sub Cmd_i2cwbyte(i2c_byte As Byte) I2dat = I2c_byte ' Scrive dato Call Cmd_i2c(&H40) ' Resetta flag interrupt End Sub ' ' ' Invia un byte su I2C BUS allo slave address indicato usando ' la periferica hardware Sub Cmd_i2csend(i2c_slave As Byte , I2c_byte As Byte) Call Cmd_i2cstart ' Invia lo start I2dat = I2c_slave ' Scrive slave address Call Cmd_i2c(&H40) ' Resetta flag interrupt I2dat = I2c_byte ' Scrive dato Call Cmd_i2c(&H40) ' Resetta flag interrupt Call Cmd_i2cstop ' Invia lo stop End Sub ' ' ' Legge un byte dallo slave address I2C BUS indicato usando ' la periferica hardware Sub Cmd_i2creceive(i2c_slave As Byte , I2c_byte As Byte) Call Cmd_i2cstart ' Invia lo start I2dat = I2c_slave ' Scrive slave address Call Cmd_i2c(&H40) ' Resetta flag interrupt I2dat = I2c_byte ' Scrive dato Call Cmd_i2c(&H40) ' Resetta flag interrupt Call Cmd_i2cstart ' Invia il secondo start I2dat = I2c_slave Or 1 ' Scrive slave address + R Call Cmd_i2c(&H40) ' Resetta flag interrupt Call Cmd_i2c(&H44) ' Legge un byte e invia il NACK I2c_byte = I2dat ' Il dato letto e' in I2c_byte Call Cmd_i2cstop ' Invia lo stop End Sub ' ' ' Invia n_out e legge n_in byte dallo slave address I2C BUS indicato usando ' la periferica hardware. I dati letti vanno nell'array chiamato Getdati(). Sub Cmd_n_i2creceive(i2c_slave As Byte , Dummy As Byte , N_out As Byte , N_in As Byte) Call Cmd_i2cstart ' Invia lo start I2dat = I2c_slave ' Scrive slave address Call Cmd_i2c(&H40) ' Resetta flag interrupt For Dummy = 1 To N_out I2dat = Getdati(dummy) ' Scrive dato Call Cmd_i2c(&H40) ' Resetta flag interrupt Next Dummy Call Cmd_i2cstart ' Invia il secondo start I2dat = I2c_slave Or 1 ' Scrive slave address + R Call Cmd_i2c(&H40) ' Resetta flag interrupt For Dummy = 1 To N_in If Dummy = N_in Then ' Ultimo byte da leggere Call Cmd_i2c(&H40) ' Legge un byte e invia il NACK Else Call Cmd_i2c(&H44) ' Legge un byte e invia l'ACK End If Getdati(dummy) = I2dat ' Memorizza il dato letto nell'array ' chiamato Getdati() Next Dummy Call Cmd_i2cstop ' Invia lo stop End Sub ' ' ' ******************* Inizializzazione delle periferiche ***************** ' Questa procedura esegue tutte le inizializzazioni del sistema. ' Parametri: ' Ingresso : nulla ' Uscita : nulla ' ************************************************************************ ' Sub Iniz ' Inizializzazione periferiche Do Call Cmd_i2creceive Rsaa1064 , Valore ' leggo il registro di stato Loop Until Valore = 0 ' attendo accensione SAA1064 Call Cmd_i2cstart ' sequenza di Start per I2CBUS Call Cmd_i2cwbyte Wsaa1064 ' comunico lo Slave address Call Cmd_i2cwbyte Ctb ' Punto al registro di controllo Call Cmd_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 Call Cmd_i2cwbyte 0 ' scrive DY1 off Call Cmd_i2cwbyte 0 ' scrive DY2 off Call Cmd_i2cwbyte 0 ' scrive DY3 off Call Cmd_i2cwbyte 0 ' scrive DY4 off Call Cmd_i2cstop Call Cmd_i2csend Wds1621 , Cfg ' chiedo, il Reg. di Config. Call Cmd_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 Call Cmd_i2cstart ' sequenza di Start per I2CBUS Call Cmd_i2cwbyte Wds1621 ' comunico lo Slave address Call Cmd_i2cwbyte Cfg ' chiedo, il Reg. di Config. Call Cmd_i2cwbyte &B00001010 ' Scrivo il Reg. di Config. ' bit1= 1 polarita "1" ' bit0= 0 conversione continua Call Cmd_i2cstop Waitms 50 ' ritardo End If Call Cmd_i2csend Wds1621 , Strct ' start conversione Temperatura End Sub ' ' ' Inizializza variabili e periferiche per la corretta esecuzione del demo. Sub Init Disable Interrupts ' Disables interrupts P1m1 = 0 ' Initializes necessary lines ' ' Inizializzazione specifica per I2C Bus P1m1 = P1m1 And &HF3 ' Configura P1.2 (SCL) e P1.3 P1m2 = P1m2 And &HF3 ' (SDA) in modo open drain P1 = P1 Or &H0C ' in ingresso If Cclk = Rcint Then I2scll = 37 ' Bit rate a 2*(37+37) cicli clock I2sclh = 37 ' (7 MHz) pari a circa 50 KHz Else I2scll = 55 ' Bit rate a 2*(55+55) cicli clock I2sclh = 55 ' (11 MHz) pari a circa 50 KHz End If End Sub ' ' ' Performs the clear screen functions for a generic console device. ' Uses general purpose variable i Sub Clrscr Printbin Cret For I = 0 To 25 Printbin Lf ' Transmits 25 Line Feeds Next I End Sub ' ' ********************** Leggo la temperatura **************************** ' Questa procedura legge il valore di temperatura ' Parametri: ' Ingresso : nulla ' Uscita : Getdati(1), contiene TH, byte alto temperatura ' Getdati(2), contiene TL, byte basso temperatura ' ************************************************************************ ' Sub Temperatura ' leggo la temperatura Getdati(1) = Rtemp Call Cmd_n_i2creceive Wds1621 , Getdati(1) , 1 , 2 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 Call Cmd_i2cstart ' sequenza di START Call Cmd_i2cwbyte Wsaa1064 ' slave address Call Cmd_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. Call Cmd_i2cwbyte Dig ' scrivo il primo display Call Digit(cifd) ' converto la cifra decine in 7 seg. Call Cmd_i2cwbyte Dig Call Digit(cifu) ' converto la cifra unita in 7 seg. Dig = Dig Or 128 ' attivo il decimal point Call Cmd_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 Call Cmd_i2cwbyte Dig ' scrivo il quarto display Call Cmd_i2cstop ' sequenza di stop End Sub ' ' ' Controllo correttezza periferiche interne con eventuali ritentativi ' Usa le variabili generali st,t,m,ind,hlpw Sub Check Deecon = &H01 T = Peek(&Hff) Deeadr = &HFF T = 1 Ind = &HF7 Do M = Peek(&H07) If M.7 = 1 Then M = M And &H03 Ind = M + &HF8 T = Peek(ind) Else T = 0 End If St = Deecon And &H80 Loop Until St <> 0 St = Deedat Do S = Peek(ind) Incr Ind If Ind = &HFF Then Ind = &HF9 Do M = S If St = 0 Then Incr T End If Loop Until St.0 = 0 Or T > M Loop Until St = 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 ' ************************************************************************** '