' **********************************************************************

' * File:   k51ppi.bas  -  Rel. 1.1 con Bascom AVR IDE e LIB 1.11.7.4  *

' * Schede: GMB HR168 + GMM AM32 + K51-AVR                             *

' * GRIFO(R)   via Dell'Artigiano 8/6   40016 S. Giorgio di Piano (BO) *

' *     Tel. +39 051 892052                      Fax. +39 051 893661   *

' *     http://www.grifo.com                     http://www.grifo.it   *

' *     by Graziano Gaiba                               del 13.06.05   *

' **********************************************************************

'

' 13.06.05 - Rel 1.1 By Graziano Gaiba

' Questo demo permette di pilotare una periferica I2C BUS a bordo della K51-AVR,

' PCF8574, attraverso il modulo mini-BLOCK GMB HR168 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 permette di acquisire lo stato delle otto linee digitali TTL e lo

' visualizza sui display a 7 segmenti della K51-AVR, accanto alla scritta 'in'.

'

'   Il file compilato non supera i 2048 bytes, quindi puo' essere

'   compilato con il demo gratuito di BASCOM AVR.

'

'

' !!!!!!!!!!!!!!!!!!!!!!!!!!! IMPORTANTE !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

' Nel menu Options | Compiler | Chip, impostare:

'

' Chip:       M32

' HW Stack:   almeno 64

' Soft Stack: almeno 32

' Framesize:  almeno 64

'

'

'****************** Direttive del compilatore **************************

'

$regfile = "m32def.dat"

$crystal = 7372800

$baud = 19200



Config Sda = Portc.1

Config Scl = Portc.0

'

' ****************** 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

' **********************************************************************

' Commentare la dichiarazione del componente non usato

'

'Const Pcf8574 = &H3C                 ' Slave address PCF8574A

'Const Wpcf8574 = &H78                ' Slave address PCF8574A in Write

'Const Rpcf8574 = &H79                ' Slave address PCF8574A in Read



Const Pcf8574 = &H24                                        ' Slave address PCF8574P

Const Wpcf8574 = &H48                                       ' Slave address PCF8574P in Write

Const Rpcf8574 = &H49                                       ' Slave address PCF8574P in Read

'

'****************** Dichiarazione delle variabili **********************

'

'Uso generico

Dim A As Eram Byte At 1023



' Valore letto dal PCF8574

Dim Dato As Byte



' Usate dalla cifre

Dim Cifh As Byte                                            ' cifra 4 bit alti in HEX

Dim Cifl As Byte                                            ' cifra 4 bit bassi in HEX

'

'****************** Dichiarazione delle procedure **********************

'

Declare Sub Check_ready()

Declare Sub Iniz()                                          ' Inizializzazione periferiche

Declare Sub Cifre(byval Valore As Byte )

                                          ' converte un numero in 2 cifre HEX

Declare Function Digit(byval Dig As Byte ) As Byte          ' Converte un numero da 0-F in 7 segmenti

Declare Sub Vis_num(byval N1 As Byte)                       ' visualizza un byte in HEX

'

'************************* Programma main ******************************

'

Main:

   Print Chr(12)

   Print "Demo input di 8 linee TTL del PCF8574."

   Print

   Call Check_ready()

   Print "I display a 7 segmenti mostrano il valore letto."



   Call Iniz()                                              ' inizializzazioni

   Do

      I2creceive Rpcf8574 , Dato                            ' leggo lo stato di 8 ingressi del PCF8574

      Call Vis_num(dato)                                    ' visualizzo il byte in HEX

   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



   Local Valore As Byte



   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 48                                              ' scrive DY1 "I"

   I2cwbyte 84                                              ' scrive DY2 "n"

   I2cwbyte 0                                               ' scrive DY3 off

   I2cwbyte 0                                               ' scrive DY4 off

   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 : byte, valore in formato 7 segmenti.

' ************************************************************************

'

Function Digit(byval Dig As Byte ) As Byte                  ' Converte un numero da 0-F in 7 segmenti



   Local Valore As Byte



   If Dig < 16 Then                                         ' il numero risulta minore di 16

      Valore = Lookup(dig , Tab_7seg)                       ' leggo in tabella il valore

   Else

      Valore = 0                                            ' se = 10 o superiore azzero

   End If



   Digit = Valore



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(byval Valore 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

'

'

' *********************** Visual
izza 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(byval N1 As Byte)                               ' visualizza un byte in HEX



   Local Valore As Byte



   I2cstart                                                 ' sequenza di START

   I2cwbyte Wsaa1064                                        ' slave address

   I2cwbyte Dig3                                            ' punto al diplay 3 (DY3)



   Call Cifre(n1)                                           ' converto il numero1 in 2 cifre

   Valore = Digit(cifh)                                     ' converto la cifra decine in 7 seg.

   I2cwbyte Valore                                          ' scrivo il display DY3



   Valore = Digit(cifl)                                     ' converto la cifra unita in 7 seg.

   I2cwbyte Valore                                          ' scrivo il display DY4



   I2cstop                                                  ' sequenza di stop

End Sub

'

'

' Controlla che la scheda sia pronta

'

Sub Check_ready()

Test:

   If A = &H55 Then

      Goto L2

   Else

      Goto Test

   End If

L2:

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

' **************************************************************************

'