' ********************************************************************** ' ** Programma: RTCSEG.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 permette di visualizzare RTC o orologio IC7(PCF8583) ' nei 4 display a 7 seg. ' Per inpostare RTC si utilizzano i tasti T2 e T3, precisamente con T2 ' si incrementano la cifra delle ore, mentre con T3 la cifra dei minuti. ' Ad ogni pressione di uno dei 2 tasti viene azzerato il conteggio dei ' secondi. ' Tramite il tasto T1 si passa alla visualizzazione dei secondi o della ' ora. ' Ad ogni pressione di un tasto viene emesso un seganle acustico. ' Non viene gestita la data ed aventuale allarme. ' Prima di compilare selezionare nel menu Option/Compiler/Misc/ : ' Byte End 5F. ' '*********************************************************************** ' '****************** Direttive del compilatore ************************** ' $regfile = "89c2051.DAT" ' elenco registri 89c2051 '$regfile = "REG51.DAT" ' elenco registri 8xc51 $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 Buz Alias P3.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 'Buz Alias P3.5 ' Pin 15 collegato al Buzzer ' '****************** 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 Rtc As Const &H50 ' Slave address RTC PCF8583 Dim Wrtc As Const &HA0 ' Slave address RTC PCF8583 in Write Dim Rrtc As Const &HA1 ' Slave address RTC PCF8583 in Read ' '****************** Dichiarazione delle variabili ********************** ' Dim Valore As Byte ' valore da scrivere o leggere su I2CBUS ecc. Dim Sm As Byte ' memorizza il valore dei secondi Dim S As Byte ' secondi Dim M As Byte ' minuti Dim Ho As Byte ' ore Dim Wm As Byte ' settimana pił mese Dim Yd As Byte ' anno pił giorno Dim Dig As Byte ' valore di un digit Dim Cifd As Byte ' cifra delle decine Dim Cifu As Byte ' cifra delle unita Dim N1 As Byte ' numero in BCD per DY1 e DY2 Dim N2 As Byte ' numero in BCD per DY3, DY4 Dim Vsec As Bit ' indica se i secondi sono in visualizzazione Dim Xbit As Bit ' indica lo stato del decimal point ' '****************** Dichiarazione delle procedure ********************** ' Declare Sub Iniz ' Inizializzazione periferiche Declare Sub Cifre (valore As Byte , Cifd As Byte , Cifu As Byte ) ' converte un numero bcd in due cifre Declare Sub Digit (dig As Byte ) ' Converte un numero da 0-9 in 7 segmenti Declare Sub Vis_2num (n1 As Byte , N2 As Byte)' visualizza due numeri in BCD Declare Sub Settime (ho As Byte , M As Byte , S As Byte) ' Programmazione dell'orologio Declare Sub Gettime ' visualizza orologio ' '************************* Programma main ****************************** ' Main: ' Ritardo Assestamento segnali Waitms 1 Call Iniz ' inizializzazioni Do Call Gettime ' visualizzo RTC Debounce T1 , 0 , Vis_sec , Sub ' premuto tasto T1 Debounce T2 , 0 , Inc_ore , Sub ' premuto tasto T2 Debounce T3 , 0 , Inc_min , Sub ' premuto tasto T3 Loop ' loop infinito ' ' ************ Gestione per la visualizzazione dei secondi **************** Vis_sec: ' inverto lo stato del bit, ' quindi ad ogni pressione attivo ' o disattivo la visualizzazione ' dei secondi Buz = 0 ' attivo il buzzer Waitms 50 ' ritardo Vsec = Not Vsec Buz = 1 ' disattivo il buzzer Return ' ' *********** Incremento le ore ad ogni pressione del tasto T2 ************ Inc_ore: Call Cifre(ho , Cifd , Cifu) ' converto le Ore da BCD a Decimale If Valore < 23 Then ' incrementa solo se minore di 23 Incr Valore ' incremento le Ore Else Valore = 0 ' azzero se sono le 23 End If Ho = Valore ' memorizzo nella variabile Ore Call Cifre(m , Cifd , Cifu) ' converto i minuti da BCD a Decimale M = Valore ' memorizzo nella veriabile Minuti Goto Pr_rtc ' ' *********** Incremento i minuti ad ogni pressione del tasto T3 ************ Inc_min: Call Cifre(ho , Cifd , Cifu) ' converto le Ore da BCD a Decimale Ho = Valore ' memorizzo nella variabile Ore Call Cifre(m , Cifd , Cifu) ' converto i minuti da BCD a Decimale If Valore < 59 Then ' incrementa solo se minore di 59 Incr Valore ' incremento i Minuti Else Valore = 0 ' azzero se sono 59 minuti End If M = Valore ' memorizzo nella veriabile Minuti Pr_rtc: If Vsec = 0 Then ' i secondi non sono in visualizzazione Buz = 0 ' attivo il buzzer Waitms 50 ' ritardo Call Settime(ho , M , 0) ' programmo RTC, azzerando i secondi Buz = 1 ' disattivo il buzzer End If 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 Vsec = 0 ' non visualizzo i sec Yd = 0 ' azzero reg. anno pił giorno Wm = 0 ' azzero reg. settimana pił mese 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 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 di 9 il display risulta spento. ' 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-9 in 7 segmenti If Dig < 10 Then ' il numero risulta minore di 10 Dig = Lookup(dig , Tab_7seg) ' leggo in tabella il valore Else Dig = 0 ' se = 10 o superiore azzero End If End Sub ' ' ***************** Converte un numero BCD in due cifre ************** ' Questa procedura converte un numero BCD da 0 a 153 (DEC 0-99) in due ' cifre separate, e restituisce il valore decimale, in questo modo si ' possono rappresentare. ' Se il numero supera 153, le due cifre assumono il valore 10 che indica ' display 7 seg. spento. ' Parametri: ' Ingresso : Valore as byte, valore da 0 a 153 BCD ( Decimale 0..99) ' Uscita : Cifd as byte, cifra delle decine ' Cifu as byte, cifra delle unita ' Valore as byte, contiene il valore in decimale del BCD ' ************************************************************************ ' Sub Cifre (valore As Byte , Cifd As Byte , Cifu As Byte ) ' converte un numero BCD in due cifre If Valore < 154 Then ' risulta minore di 154 BCD( 100 in DEC) Cifd = Valore / 16 ' Ricavo la cifra delle decine Cifu = Cifd * 16 Cifu = Valore - Cifu ' rivavo la cifra delle unita Valore = Cifd * 10 Valore = Valore + Cifu ' ricavo il valore in decimale Else Cifd = 10 ' spengo la cifra delle decine Cifu = 10 ' spengo la cifra delle unita Valore = 0 ' azzero il valore Decimale End If End Sub ' ' **************** Visualizza l'ora contenuta nell'RTC *********************** ' Parametri: ' Ingresso : nulla ' Uscita : nulla ' ************************************************************************ ' Sub Gettime I2cstart ' sequenza start I2cwbyte Wrtc ' punta indirizzo per scrive su PCF8583 I2cwbyte 2 ' punta nel registro 2 I2cstart ' ripete la sequenza di start I2cwbyte Rrtc ' punta indirizzo per leggere I2crbyte S , Ack ' lettura secondi reg. 2 I2crbyte M , Ack ' lettura minuti reg. 3 I2crbyte Ho , Ack ' lettura ore reg. 4 I2crbyte Yd , Ack ' lettura anno e giorno reg. 5 I2crbyte Wm , Nack ' lettura settimana e mese reg. 6 I2cstop ' sequenza stop If Vsec = 0 Then ' non visualizzo i secondi Call Vis_2num(ho , M) ' visualizzo ore e minuti Else Call Vis_2num(154 , S) ' spengo le prime 2 cifre End If ' visualizza 2 cifre dei secondi End Sub ' ' *********************** Visualizza 2 numeri BCD *********************** ' Questa procedura permette di visualizzare due numeri BCD che in decimale ' hanno 2 cifre. Es: BCD 153= Dec. 99 ' Durante lo scorrere del tempo, ad gni variazione di secondi accende o ' spegne il decimal point su DY2. ' Parametri: ' Ingresso : N1 as byte, valore primo numero ' N2 as byte, valore secondo numero ' Uscita : nulla ' ************************************************************************ ' Sub Vis_2num (n1 As Byte , N2 As Byte) ' visualizza 2 numeri BCD I2cstart ' sequenza di START I2cwbyte Wsaa1064 ' slave address I2cwbyte Dig1 ' punto al diplay 1 (DY1) Call Cifre(n1 , Cifd , Cifu) ' converto il numero1 in 2 cifre If Cifd = 0 Then ' se la cifra = 0 la spengo Cifd = 10 End If Call Digit(cifd) ' converto la cifra decine in 7 seg. I2cwbyte Dig ' scrivo il primo display Call Digit(cifu) ' converto la cifra unita in 7 seg. If Sm <> S Then ' se i secondi sono variati CPL {XBIT} ' attivo il decimal point Sm = S ' memorizzo i secondi End If If Xbit = 1 Then ' risulta attivo il flag Dig = Dig Or 128 ' attivo il decimal poinit End If ' normalmente non viene visualizzato I2cwbyte Dig Call Cifre(n2 , Cifd , Cifu) ' converto il numero2 in 2 cifre Call Digit(cifd) ' converto la cifra decine in 7 seg. I2cwbyte Dig ' scrivo il terzo display Call Digit(cifu) ' converto la cifra unita in 7 seg. I2cwbyte Dig ' scrivo il quarto display I2cstop ' sequenza di stop End Sub ' ' *********************** Programmazione RTC PCF8583 ************************** ' Questa procedura programma l'ora contenuta nell'RTC. ' I valori delle variabili vengono convertiti in BCD. ' Le informazioni della Data e allarme non sono gestite. ' Parametri: ' Ingresso : Ho as byte, valore per le ore ' M as byte, valore per i minuti ' S as byte, valore per i secondi ' Uscita : nulla ' ************************************************************************ ' Sub Settime(ho As Byte , M As Byte , S As Byte) S = Makebcd(s) ' secondi M = Makebcd(m) ' minuti Ho = Makebcd(ho) ' ore I2cstart ' sequenza start I2cwbyte Wrtc ' punta indirizzo per scrive su PCF8583 I2cwbyte 0 ' seleziona control register nel reg. 0 I2cwbyte 0 ' attivo la lettura dei bit alti I2cstop ' sequenza stop ' I2cstart ' generate start I2cwbyte Wrtc ' punta indirizzo per leggere su PCF8583 I2cwbyte 2 ' punta nel registro 2 I2cwbyte S ' scrive secondi, reg. 2 I2cwbyte M ' scrive minuti, reg. 3 I2cwbyte Ho ' scrive ore, reg. 4 I2cstop ' sequenza 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 ' ************************************************************************** '