' ********************************************************************** ' ** Programma: k51da.BAS - Versione : 1.2 - 14 dicembre 2003 ** ' ** Compilatore : BASCOM 8051 DEMO, (IDE e LIB V.2.0.11.0) ** ' ** Scheda : K51-AVR tramite GMB HR84 e GMM 932 ** ' ** 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, ' PCF8591, attraverso il modulo mini-BLOCK GMB HR84 ed un mini modulo grifo(r). ' Il PCF891 e' dotato di una uscita analogica D/A con risoluzione ad 8 bit, ' tutte le operazioni di attivazione avvengono tramite l'interfaccia seriale ' sincrona I2C BUS. ' Il demo permette di impostare quale livello di tensione avere in uscita ' tramite la tastiera del PC, e scrive 'da' sui display a 7 segmenti della ' K51-AVR per indicare il funzionamento del demo. ' ' ' 05.06.2000 versione 1.1 by Adriano Pedrielli (per la sola K51) ' ' 14.12.2004 versione 1.2 by Graziano Gaiba per GMB HR84 e GMM 932 ' '****************** Direttive del compilatore ************************** ' 'N.B. Nella finestra Options | Compiler | Misc effettuare i seguenti ' settaggi: Register File = 89LPC932.DAT ' Byte End (Hex) = A0 ' Size warining = 7167 $regfile "89lpc932.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 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 Pcf8591 As Const &H48 ' Slave address PCF8591 Dim Wpcf8591 As Const &H90 ' Slave address PCF8591 in Write Dim Rpcf8591 As Const &H91 ' Slave address PCF8591 in Read ' '****************** Dichiarazione delle variabili ********************** ' Dim C As Byte ' Carattere in input 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 N1 As Byte ' numero 1 byte per DY3 e DY4 Dim Valore As Byte ' numero da convertire ' Variabili ad uso generico Dim I As Byte Dim Hlpb As Byte , S As Byte ' Byte ad uso generico Dim M As Byte , T 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 ' ' 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 Iniz ' Inizializzazione periferiche Declare Sub Dac(valore As Byte) ' Gestione del D/A converter Declare Sub Cifre(valore As Byte , Cifh As Byte , Cifl As Byte ) ' converte un numero in 2 cifre HEX Declare Sub Digit(dig As Byte ) ' Converte un numero da 0-F in 7 segmenti Declare Sub Vis_num(n1 As Byte) ' visualizza un byte in HEX Declare Sub Valore ' Declare Sub Init() ' Inizializzazione Declare Sub Clrscr() ' Pulisce lo schermo 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: ' Ritardo Assestamento segnali 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 PCF8591 con GMB HR84 + GMM 932 a " ; Cclk ; " MHz e K51-AVR" Call Check ' Controllo interno Call Iniz ' inizializzazioni periferiche Print Print "Imposta l'uscita analogica del connettore CN1." Call Iniz ' inizializzazioni Valore = 0 Print Print "Premere + per incrementare il livello di tensione di uscita" Print "Premere - per decrementare il livello di tensione di uscita" Print Do Call Dac(valore) ' Gestione del D/A converter Call Vis_num(valore) ' visualizzo il byte in HEX Call Valore Loop End ' '************************ Fine del programma *************************** ' ' '**************************** Procedure ******************************** ' ' ' 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 ' ' ' Effettua la pulizia dello schermo su qualunque emulatore di terminale. ' Usa la variabile generica i Sub Clrscr Printbin Cret For I = 0 To 25 Printbin Lf ' Transmits 25 Line Feeds Next I 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 ' ' '************************ 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 &HFF00 ' 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 94 ' scrive DY1 "d" Call Cmd_i2cwbyte 119 ' scrive DY2 "A" Call Cmd_i2cwbyte 0 ' scrive DY3 off Call Cmd_i2cwbyte 0 ' scrive DY4 off Call Cmd_i2cstop End Sub ' ' ***************** Gestione del D/A converter **************************** ' Questa procedura permette di settare un valore in uscita al D/A converter, ' disponibile su IC2 (PCF8591). ' Parametri: ' Ingresso : Valore as byte, valore da 0 a 255 (0v ..+Vref) ' Uscita : ' ************************************************************************ ' Sub Dac(valore As Byte) ' Gestione del D/A converter Call Cmd_i2cstart ' sequenza di Start per I2CBUS Call Cmd_i2cwbyte Wpcf8591 ' comunico lo Slave address Call Cmd_i2cwbyte &H40 ' comando di attivazione D/A Call Cmd_i2cwbyte Valore ' valore per il D/A Call Cmd_i2cstop 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. ' ************************************************************************ ' Sub Digit(dig As Byte ) ' Converte un numero da 0-F in 7 segmenti If Dig < 16 Then ' il numero risulta minore di 16 Dig = Lookup(dig , Tab_7seg) ' leggo in tabella il valore Else Dig = 0 ' se = 10 o superiore azzero End If End Sub ' ' ***************** 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. ' sui display DY3 e DY4. Es: 255= FFH, 32= 20H ecc. ' Parametri: ' Ingresso : N1 as byte, numero da visualizzare in HEX ' Uscita : nulla ' ************************************************************************ ' Sub Vis_num(n1 As Byte) ' visualizza un byte in HEX Call Cmd_i2cstart ' sequenza di START Call Cmd_i2cwbyte Wsaa1064 ' slave address Call Cmd_i2cwbyte Dig3 ' punto al diplay 3 (DY3) Call Cifre(n1 , Cifh , Cifl) ' converto il numero1 in 2 cifre Call Digit(cifh) ' converto la cifra decine in 7 seg. Call Cmd_i2cwbyte Dig ' scrivo il display DY3 Call Digit(cifl) ' converto la cifra unita in 7 seg. Call Cmd_i2cwbyte Dig ' scrivo il display DY4 Call Cmd_i2cstop ' sequenza di stop End Sub ' ' Gestione livello uscita ' Sub Valore C = Inkey If C = "+" Then Incr Valore End If If C = "-" Then Decr Valore End If 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 ' ************************************************************************** '