' ********************************************************************** ' ** Programma: k51ppo.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, ' PCF8574, attraverso il modulo mini-BLOCK GMB HR84 ed un mini modulo grifo(r). ' Il PCF874 e' un I/O expander che permette di pilotare 8 linee digitali TTL sia ' in ingresso che in uscita, tutte le operazioni di lettura e scrittura ' avvengono tramite l'interfaccia seriale sincrona I2C BUS. ' Il demo attiva alternativamente una linea alla volta, creando il classico ' scorrimento di un bit a destra e a sinistra, e scrive 'out' 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 ' ***************** 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 ' ********************************************************************** ' Commentare la dichiarazione del componente non usato ' 'Dim Pcf8574 As Const &H3C ' Slave address PCF8574A 'Dim Wpcf8574 As Const &H78 ' Slave address PCF8574A in Write 'Dim Rpcf8574 As Const &H79 ' Slave address PCF8574A in Read Dim Pcf8574 As Const &H24 ' Slave address PCF8574P Dim Wpcf8574 As Const &H48 ' Slave address PCF8574P in Write Dim Rpcf8574 As Const &H49 ' Slave address PCF8574P in Read ' '****************** Dichiarazione delle variabili ********************** ' Dim Pout As Byte ' valore per le linee di uscita Dim X As Byte ' uso generico Dim Valore As Byte ' valore di conteggio ' 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 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 PCF8574 con GMB HR84 + GMM 932 a " ; Cclk ; " MHz e K51-AVR" Call Check ' Controllo interno Call Iniz ' inizializzazioni periferiche Print Print "Muove i segnali TTL sul connettore CN1." Do Valore = 1 ' valore di partenza For X = 1 To 7 ' inizializzo il ciclo Pout = Not Valore ' complemento in valore Call Cmd_i2csend Wpcf8574 , Pout ' setto le uscite Rotate Valore , Left ' shift dei bit a sinistra Waitms 255 ' ritardo Next X For X = 1 To 7 ' inizializzo il ciclo Pout = Not Valore ' complemento in valore Call Cmd_i2csend Wpcf8574 , Pout ' setto le uscite Rotate Valore , Right ' shift dei bit a destra Waitms 255 ' ritardo Next X Loop 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 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 92 ' scrive DY1 "o" Call Cmd_i2cwbyte 28 ' scrive DY2 "u" Call Cmd_i2cwbyte 120 ' scrive DY3 "t" Call Cmd_i2cwbyte 0 ' scrive DY4 off Call Cmd_i2cstop End Sub ' ' ' ' 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