' **********************************************************************
' * File:   k51da.bas - Rel. 1.1 con Bascom AVR IDE e LIB 1.11.7.4     *
' * Schede: GMB HR84 + GMM AM08 + 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   *
' *     sales@grifo.it         tech@grifo.it          grifo@grifo.it   *
' *     by Graziano Gaiba                               del 27.01.04   *
' **********************************************************************
'
' 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.
'
' 27.01.04 - Rel 1.1 By Graziano Gaiba per GMM AM08
'
'   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:       M8
' HW Stack:   almeno 64
' Soft Stack: almeno 32
' Framesize:  almeno 64
'
'
'****************** Direttive del compilatore **************************
'
$regfile = "m8def.dat"
$crystal = 7372800
$baud = 19200

Config Sda = Portc.4
Config Scl = Portc.5
'
'****************** 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 Pcf8591 = &H48                                        ' Slave address PCF8591
Const Wpcf8591 = &H90                                       ' Slave address PCF8591 in Write
Const Rpcf8591 = &H91                                       ' Slave address PCF8591 in Read
'
'****************** Dichiarazione delle variabili **********************
'
' Livello di uscita del pwm
Dim Pwm 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 Iniz()                                          ' Inizializzazione periferiche
Declare Sub Dac(byval Valore As Byte)                       ' Gestione del D/A converter
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
Declare Sub Valore()
'
'************************* Programma main ******************************
'
Main:
   Print Chr(12)
   Print "Demo PWM del PCF 8591"

   Call Iniz()                                              ' inizializzazioni
   Pwm = 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(pwm)                                         ' Gestione del D/A converter
      Call Vis_num(pwm)                                     ' visualizzo il byte in HEX
      Call Valore
   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 94                                              ' scrive DY1 "d"
   I2cwbyte 119                                             ' scrive DY2 "A"
   I2cwbyte 0                                               ' scrive DY3 off
   I2cwbyte 0                                               ' scrive DY4 off
   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 :  nulla
' ************************************************************************
'
Sub Dac(byval Valore As Byte)                               ' Gestione del D/A converter
   I2cstart                                                 ' sequenza di Start per I2CBUS
   I2cwbyte Wpcf8591                                        ' comunico lo Slave address
   I2cwbyte &H40                                            ' comando di attivazione D/A
   I2cwbyte Valore                                          ' valore per il D/A
   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
'
'
' *********************** 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(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
'
'
' Gestione livello uscita
'
Sub Valore()

   Local C As Byte

   C = Inkey()
   If C = "+" Then
      Incr Pwm
   End If
   If C = "-" Then
      Decr Pwm
   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
' **************************************************************************
'