' ********************************************************************** ' ** Programma: RTCSEGF2.BAS - Versione : 1.1 - 22 Maggio 2000 ** ' ** Compilatore : BASCOM 8051, (IDE V.1.0.0.20, LIB V.1.20) ** ' ** Scheda : K51-AVR e GPC F2 ** ' ** 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, tramite 2 linee TTL pilotate dalla scheda GPC F2 avente ' un microcontrollore della famiglia 51. ' Per inpostare l'RTC si utilizzano i tasti 2 e 3 del P.C., precisamente con ' tasto 2 si incrementa la cifra delle ore, mentre con 3 la cifra dei minuti. ' Ad ogni pressione di uno dei 2 tasti viene azzerato il conteggio dei ' secondi. ' Tramite il tasto 1 si passa dalla visualizzazione dei secondi a quella della ' ora. ' Ad ogni pressione di un tasto viene emesso un seganle acustico. ' ' La gestione di questo programma avviene tramite la seriale RS232, quindi e' ' indispensabile collegare una COM libera del PC al connettore CN3 della GPC F2. ' Configurare il terminale del BASCOM 8051 nel menu OPTION/ COMUNICATION/ ' selezionare la COM e settare il BAUD a 9600, none, 8, 1. ' ' Eseguire i seguenti collegamenti come segue : ' GPC F2 K51 AVR ' +5Vdc (pin15 CN3) ----> +5Vdc (pin1 CN6) ' Gnd (pin16 CN3) ----> Gnd (pin2 CN6) ' T0 P3.4 (pin3 CN3) ----> SD (pin7 CN6) ' T1 P3.5 (pin1 CN3) ----> SC (pin8 CN6) ' ' Prima di compilare selezionare nel menu Option/Compiler/Misc/ : ' Byte End 5F; ' '*********************************************************************** ' '****************** Direttive del compilatore ************************** ' $regfile = "REG51.DAT" ' elenco registri della CPU $romstart = &H8050 ' indirizzo di partenza del codice ' &H8050 per MO52 Rel.1.1 in RAM IC8 ' &H0000 per EPROM senza RAM IC8 $ramstart = &HD000 ' ind. per variabili in RAM esterna $ramsize = &H2800 ' assegno 10K di RAM esterna per variabili $crystal = 11059200 ' frequenza di clock della CPU $baud = 9600 ' velocitą di comunicazione RS-232 $large ' indirizzamento a 16 bit ' ' *************************** Elenco PIN per 8xc51 ********************* ' Config Sda = P3.4 ' Pin3 CN3 GPC F2, segnale dei DATI ' per I2CBUS Config Scl = P3.5 ' Pin1 CN3 GPC F2, segnale del Clock ' per I2CBUS Buz Alias P1.2 ' Pin 3 del micro sulla GPC F2, che ' risulta essere connesso al buzzer ' di bordo. Const Cler = 12 ' codice di clear screen Const Bel = 7 ' codice di Bell ' '****************** 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 Dim T As Byte ' codice del tasto premuto Dim Tstr As String * 1 ' stringa di un carattere ' '****************** 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 Do Call Gettime ' visualizzo RTC T = Inkey ' leggo un carattere dalla seriale Loop Until T <> 0 ' esco se ho ricevuto un carattere Tstr = Chr(t) ' converto il carattere in stringa Select Case Tstr ' controllo il tasto premuto Case "1" : Gosub Vis_sec ' visualizzo i secondi o le ore Case "2" : Gosub Inc_ore ' incremento le ore Case "3" : Gosub Inc_min ' incremento i minuti Case "4" : Ljmp 0 ' esco e rilancio il monitor Case Else : Print Chr(bel); ' tasto non valido End Select 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 Waitms 50 ' ritardo Vsec = Not Vsec Sound Buz , 100 , 250 ' attivo il buzzer Buz = 1 ' disattivo il buzzer Return ' ' *********** Incremento le ore ad ogni pressione del tasto 2 ************ 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 3 ************ 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 Waitms 50 ' ritardo Call Settime(ho , M , 0) ' programmo RTC, azzerando i secondi Sound Buz , 100 , 250 ' attivo il buzzer 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 Print Chr(cler); ' cancellazione dello schermo Print "Demo K51-AVR per RTC IC7(PCF8583) tramite GPC F2 rel.1.1 22/05/2000" Print Print " 1) Visulizza i secondi o l'ora" Print " 2) Incrementa di 1 le ore" Print " 3) Incrementa di 1 i minuti" Print " 4) Esci" Print Print "Premi uno dei 4 tasti sulla tastiera del P.C." 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 ' ************************************************************************** '