' ********************************************************************** ' ** Programma: RTCSEGAV.BAS - Versione : 1.2 - 29 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 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. ' '*********************************************************************** ' '****************** 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 ' baud rate 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 = 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 ' ***************** 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 Rtc = &H50 ' Slave address RTC PCF8583 Const Wrtc = &HA0 ' Slave address RTC PCF8583 in Write Const Rrtc = &HA1 ' Slave address RTC PCF8583 in Read ' '****************** Dichiarazione delle variabili ********************** ' Dim Valore As Byte ' valore da scrivere o leggere su I2CBUS ecc. Dim Seconds As Byte ' memorizza il valore dei secondi Dim S As Byte ' secondi Dim M As Byte ' minuti Dim Minutes As Byte Dim Ho As Byte ' ore Dim Hours As Byte 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 Dim Var8bit As Byte ' Uso generico Dim Cifra As Byte ' '****************** Dichiarazione delle procedure ********************** ' Declare Sub Iniz ' Inizializzazione periferiche Declare Sub Cifre (cifra As Byte , Cifd As Byte , Cifu As Byte ) ' converte un numero bcd in due cifre Declare Function Digit (dig As Byte ) As Byte ' Converte un numero da 0-9 in 7 segmenti Declare Sub Vis_2num (byval N1 As Byte , N2 As Byte) ' visualizza due numeri in BCD Declare Sub Settime (ho As Byte , M As Byte , Byval 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(hours , 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 Hours = Valore ' memorizzo nella variabile Ore Call Cifre(minutes , Cifd , Cifu) ' converto i minuti da BCD a Decimale Minutes = Valore ' memorizzo nella veriabile Minuti Goto Pr_rtc ' ' *********** Incremento i minuti ad ogni pressione del tasto T3 ************ Inc_min: Call Cifre(hours , Cifd , Cifu) ' converto le Ore da BCD a Decimale Hours = Valore ' memorizzo nella variabile Ore Call Cifre(minutes , 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 Minutes = 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(hours , Minutes , 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 Buz = 1 ' Tacita il buzzer 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. ' ************************************************************************ ' Function Digit (dig As Byte ) As Byte ' Converte un numero da 0-9 in 7 segmenti If Dig < 10 Then ' il numero risulta minore di 10 Digit = Lookup(dig , Tab_7seg) ' leggo in tabella il valore Else Digit = 0 ' se = 10 o superiore azzero End If End Function ' ' ***************** 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 (cifra As Byte , Cifd As Byte , Cifu As Byte ) ' converte un numero BCD in due cifre If Cifra < 154 Then ' risulta minore di 154 BCD( 100 in DEC) Cifd = Cifra / 16 ' Ricavo la cifra delle decine Cifu = Cifd * 16 Cifu = Cifra - 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 Minutes , Ack ' lettura minuti reg. 3 I2crbyte Hours , 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(hours , Minutes) ' visualizzo ore e minuti Else Call Vis_2num(154 , Seconds) ' 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 Cifra = Digit(cifd) ' converto la cifra decine in 7 seg. I2cwbyte Cifra ' scrivo il primo display Dig = Digit(cifu) ' converto la cifra unita in 7 seg. If Seconds <> S Then ' se i secondi sono variati ' Cpl {xbit} Xbit = Not Xbit ' attivo il decimal point Seconds = 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 Cifra = Digit(cifd) ' converto la cifra decine in 7 seg. I2cwbyte Cifra ' scrivo il terzo display Cifra = Digit(cifu) ' converto la cifra unita in 7 seg. I2cwbyte Cifra ' 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 Minutes = M Hours = Ho 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 ' ************************************************************************** '