' ********************************************************************** ' ** Programma: REE_AV.BAS - Versione : 1.2 - 30 Gennaio 2001 ** ' ** Compilatore : BASCOM AVR, (IDE V.1.11.4.0, LIB 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 leggere su una EEPROM seriale su IC4 ' (max 24c08), con indirizzamento che va da &H400 a &H7FF, da &H0 a &H0FF ' risulta occupato da IC7 (RTC PCF8583), mentre da &H100 a &H3FF risulta ' libero. ' Alla partenza il programma mostra indirizzo per la scrittura, tramite ' i pulsanti T1 e T2 si incrementa il valore o si diminuisce. ' Tramite il pulsante T3, si convalida il valore, e viene visualizzato ' il valore letto all indirizzo scelto. ' Ad ogni pressione di un tasto viene emesso un seganle acustico. ' '*********************************************************************** ' '****************** Direttive del compilatore ************************** ' $regfile = "8515def.dat" $romstart = &H0 ' indirizzo di partenza del codice $crystal = 5529600 ' frequenza di clock del micro $baud = 19200 Config Debounce = 50 ' tempo di attesa per convalidare ' avvenuta pressione di un tasto ' Es: 10= 10ms, 50= 50ms ' ' *********************** Elenco PIN per AT90s8515 ********************* 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 Wee = &HA0 ' Slave address 24cXX in Write Const Ree = &HA1 ' Slave address 24cXX in Read ' ' ********************************************************************** ' Const R = 1 ' valore per leggere in EEPROM Const W = 0 ' valore per scriver in eeprom ' '****************** Dichiarazione delle variabili ********************** ' Dim Dig As Byte ' valore di un digit Dim Cifh As Byte ' cifra 4 bit alti in HEX Dim Cifl As Byte ' cifra 4 bit bassi in HEX Dim Nb As Byte ' byte per DY3 e DY4 Dim Nw As Word ' word per DY1, DY2, DY3 e DY4 Dim Ind As Word ' indirizzo per I2CBUS ecc. a 16 Bit Dim W_r As Byte ' selezione scrittura o lettura con R e W Dim Hind As Byte ' byte Hight di Ind Dim Lind As Byte ' byte Low di Ind Dim Valore As Byte ' uso generico Dim X As Byte ' valore letto Dim Cifra As Byte ' Uso generico ' '****************** Dichiarazione delle procedure ********************** ' Declare Sub Iniz ' Inizializzazione periferiche Declare Sub Cifre (valore As Byte , Cifh As Byte , Cifl As Byte ) ' converte un numero in 2 cifre HEX Declare Function Digit (dig As Byte ) As Byte ' Converte un numero da 0-F in 7 segmenti Declare Sub Vis_byte (nb As Byte) ' visualizza un byte in HEX Declare Sub Vis_word (nw As Word) ' visualizza una word in HEX Declare Sub I2cbus (ind As Word , Valore As Byte , Byval W_r As Byte) ' Legge/scrive su I2CBUS ' '************************* Programma main ****************************** ' Main: ' Assestamento segnali Waitms 1 Call Iniz ' inizializzazioni Ind = &H400 ' indirizzo per IC4 Do Call Vis_word(ind) ' visualizzo indirizzo Debounce T1 , 0 , Inc_ind , Sub ' se premuto incremento Ind Debounce T2 , 0 , Dec_ind , Sub ' se premuto decremento Ind Loop Until T3 = 0 ' esco se premo T3 Buz = 0 ' attivo il buzzer Waitms 50 ' ritardo Bitwait T3 , Set ' attendo il rilascio di T3 Buz = 1 ' disattivo il buzzer Call I2cbus(ind , Valore , R) ' leggo il valore in I2cBUS X = Valore ' salvo il valore Do Call Vis_byte(x) ' visualizzo il dato da scrivere Wait 1 ' ritardo di 1 secondo Call Vis_word(ind) ' visualizzo indirizzo Wait 1 ' ritardo di 1 secondo Loop ' loop infinito Inc_ind: Buz = 0 ' attivo il buzzer Waitms 50 ' ritardo Incr Ind ' incremento Ind Buz = 1 ' disattivo il buzzer Return Dec_ind: Buz = 0 ' attivo il buzzer Waitms 50 ' ritardo Decr Ind ' decremento Ind Buz = 1 ' disattivo il buzzer 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 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 ' ' ************* Legge/scrive su I2CBUS ****************************** ' Questa procedura scrive o legge attraverso I2cBUS nel campo che va ' da &H000 fino &H7FF su IC4 (EEPROM 24cxx) o IC7 (RTC PCF8583). ' Parametri: ' Ingresso : Ind as words, contiene indirizzo del dispositivo ' Valore as byte, valore da scrivere ' W_R as byte, = 0 scrivo, se = 1 leggo. ' Utilizza 2 variabili globali : Hind e Lind tipo Byte. ' Uscita : Valore as byte, valore letto. ' ******************************************************************* ' Sub I2cbus(ind As Word , Valore As Byte , W_r As Byte) ' Legge/scrive su I2CBUS Hind = High(ind) ' prelevo il byte alto Lind = Low(ind) ' prelevo il byte basso Hind = Hind And 7 ' prelevo i 3 bit bassi ' clr c ' resetto il carry Rotate Hind , Left ' , 1 ' sposto a sinistra di 1 bit Hind = Hind Or Wee ' sommo lo slave address con scrittura If W_r = 0 Then ' controllo se devo leggere o scrivere I2cstart ' sequenza di start I2cwbyte Hind ' slave address I2cwbyte Lind ' asdress of EEPROM I2cwbyte Valore ' valore da scrivere I2cstop ' sequenza di stop Waitms 10 ' ritardo di 10ms necessario alla ' EEPROM dopo ogni scrittura Else I2cstart ' sequenza di start I2cwbyte Hind ' slave address I2cwbyte Lind ' asdress of EEPROM Hind = Hind Or Ree ' sommo lo slave address in lettura I2cstart ' ripeto lo start I2cwbyte Hind ' slave address I2crbyte Valore , Nack ' leggo I2cstop ' sequenza di stop End If End Sub ' ' ***************** Converte un numero da 0 a F in 7 segmenti *********** ' Questa procedura converte una cifra da 0 a F nel formato 7 segmenti, se ' il valore e maggiore di F il display risulta spento. ' Parametri: ' Ingresso : dig as byte, valore da 0 a F ' Uscita : dig as byte, valore in formato 7 segmenti. ' ************************************************************************ ' Function Digit (dig As Byte ) As Byte ' Converte un numero da 0-F in 7 segmenti If Dig < 16 Then ' il numero risulta minore di 16 Digit = Lookup(dig , Tab_7seg) ' leggo in tabella il valore Else Digit = 0 ' se = 10 o superiore azzero End If End Function ' ' ***************** Converte 1 byte in due cifre HEX ******************** ' Questa procedura converte 1 byte da 0 a 255 in due cifre esadecimali a ' 4 bit. ' Parametri: ' Ingresso : Valore as byte, valore da 0 a 255 ' Uscita : Cifh as byte, cifra del nibble alto ' Cifl as byte, cifra del nibble basso ' ************************************************************************ ' Sub Cifre (valore As Byte , Cifh As Byte , Cifl As Byte ) ' converte un numero in due cifre HEX Cifh = Valore And &HF0 ' prelevo i 4 bit alti Cifh = Cifh / 16 ' sposto in basso i 4 bit alti Cifl = Valore And &H0F ' prelevo i 4 bit bassi End Sub ' ' *********************** Visualizza un byte in HEX ********************** ' Questa procedura permette di visualizzare un byte nel formato esadecimale. ' nei 2 display a destra. Es: 255= FFH, 32= 20H ecc. ' Parametri: ' Ingresso : Nb as byte, numero da visualizzare in HEX ' Uscita : nulla ' ************************************************************************ ' Sub Vis_byte (nb As Byte) ' visualizza un byte in HEX I2cstart ' sequenza di START I2cwbyte Wsaa1064 ' slave address I2cwbyte Dig1 ' punto al diplay 1 (DY1) I2cwbyte 0 ' spengo DY1 I2cwbyte 0 ' spengo DY2 Call Cifre(nb , Cifh , Cifl) ' converto il numero1 in 2 cifre HEX Cifra = Digit(cifh) ' converto la cifra in HEX in 7 seg. I2cwbyte Cifra ' scrivo il display DY3 Cifra = Digit(cifl) ' converto la cifra in HEX in 7 seg. I2cwbyte Cifra ' scrivo il display DY4 I2cstop ' sequenza di stop End Sub ' ' *********************** Visualizza una Word in HEX ********************** ' Nei primi 2 display (DY1 e DY2) viene visualizzato il byte alto, mentre ' nei 2 rimanenti il byte basso (DY3 e DY4). ' Questa procedura permette di visualizzare una Word nel formato esadecimale. ' Es: 65535= FFFFH, 257= 101H ecc. ' Parametri: ' Ingresso : Nw as word, numero da visualizzare in HEX ' Nb as byte, preleva il byte alto o basso di Nw ' Uscita : nulla ' ************************************************************************ ' Sub Vis_word (nw As Word) ' visualizza un byte in HEX I2cstart ' sequenza di START I2cwbyte Wsaa1064 ' slave address I2cwbyte Dig1 ' punto al diplay 1 (DY1) Nb = High(nw) Call Cifre(nb , Cifh , Cifl) ' converto il numero1 in 2 cifre HEX Cifra = Digit(cifh) ' converto la cifra in HEX in 7 seg. I2cwbyte Cifra ' scrivo il display DY1 Cifra = Digit(cifl) ' converto la cifra in HEX in 7 seg. I2cwbyte Cifra ' scrivo il display DY2 Nb = Low(nw) Call Cifre(nb , Cifh , Cifl) ' converto il numero1 in 2 cifre HEX Cifra = Digit(cifh) ' converto la cifra in HEX in 7 seg. I2cwbyte Cifra ' scrivo il display DY3 Cifra = Digit(cifl) ' converto la cifra in HEX in 7 seg. I2cwbyte Cifra ' scrivo il display DY4 I2cstop ' sequenza di stop End Sub ' ' ' ************* Tabella conversione per cifra a 7 segmenti da 0 a 15 ******* Tab_7seg: ' num. 0 1 2 3 4 5 6 7 8 9 Data &H3F , &H06 , &H5B , &H4F , &H66 , &H6D , &H7D , &H07 , &H7F , &H6F ' num. A b C d E F Data &H77 , &H7C , &H39 , &H5E , &H79 , &H71 ' ************************************************************************** '