' **********************************************************************
' ** Program: g51ppie.BAS    -    Version : 1.3   -   16 april 2003   **
' ** Compilee : BASCOM 8051 DEMO, (IDE and LIB V.2.0.11.0)            **
' ** Scheda : K51-AVR driven by GMB HR84 and GMM 5115                 **
' ** Firm:   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    **
' **                                                                  **
' ** Written by:  Graziano Gaiba                                      **
' **********************************************************************
'
' This demo allows to drive an I2C BUS peripheral on board of K51-AVR, PCF8574,
' through mini-BLOCK module GMB HR84 and grifo(r) mini module.
' PCF 8574 is an I/O expander that allows to drive 8 TTL digital lines, both as
' input and as output, all the operations of read and write are performed
' through synchronous serial interface I2C BUS.
' This demo acquire the status of eight TTL digital lines, and shows it on the
' 7 segments display of K51-AVR, near the characters 'in'.
'
'
' 05.06.2000 by Adriano Pedrielli (for K51 only)
'
' 16.04.2003 by Graziano Gaiba
'
' Modified to drive the managed peripheral on K51-AVR through a GMB HR84
' and a GMM 5115.
' Before compiling set in menu Option/Compiler/Misc/ :
' Byte End 80;
'
'****************** Compiler directives **************************
'
$regfile = "grifo_mm.dat"
$romstart = &H0                           ' start address of code for FLASH
$ramstart = &H0                           ' start address of external RAM
$ramsize = &H100                          ' 256 bytes of external RAM
$crystal = 14745600                       ' Microcontroller clock
$baud = 19200                             ' RS-232 baud rate
'$large                                   ' 16 bit addressing for jumps
                                          ' (Not for demo version)
$map                                      ' Generates address map

Config Sda = P2.0                         ' I2C serial DATA
Config Scl = P2.1                         ' I2C serial CLK
'
'********************* Constants declaration ***************************
'
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
'****************** Addresses list for 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
' **********************************************************************
' Comment the declaration of the component not used, uncomment the other
' declaration
'
'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
'
'*********************** Variables declaration *************************
'
Dim Dig As Byte                           ' value of a digit
Dim Cifh As Byte                          ' 4 bit high in HEX for figure
Dim Cifl As Byte                          ' 4 bit low in HEX for figure
Dim N1 As Byte                            ' number 1 byte for DY3 and DY4
Dim Valore As Byte                        ' number to convert
'
'********************* Procedures declaration **************************
'
Declare Sub Iniz                          ' Peripherals initialization
Declare Sub Cifre(valore As Byte , Cifh As Byte , Cifl As Byte )
                                          ' converts a number in 2 HEX figures
Declare Sub Digit(dig As Byte )           ' Converts a number in range
                                               ' 0-F in 7 segments
Declare Sub Vis_num(n1 As Byte)           ' Shows a byte in HEX
'
'*************************** Main program ******************************
'
Main:                                     ' Ritardo Assestamento segnali
   Waitms 1
   Print Chr(12)
   Print "This demo has been made to run only on a GMM 5115."
   Print "Proceed only if you have the correct Mini Module!"
   Print "Press a key if you want to continue..."
   Do
      Valore = Inkey
   Loop Until Valore <> 0

   Call Iniz                              ' initializations
   Do
      I2creceive Rpcf8574 , N1            ' read status of 8 inputs of PCF8574
      Call Vis_num(n1)                    ' show byte in HEX
   Loop
End
'
'**************************** Program end ******************************
'
'
'**************************** Procedures *******************************
'
' ********************** Peripherals initialization ********************
' This procedure performs all the system initializations.
' Parameters:
' Input : nothing
' Output : nothing
' **********************************************************************
'
Sub Iniz                                  ' Inizializzazione periferiche
   Do
      I2creceive Rsaa1064 , Valore        ' Read the status register
   Loop Until Valore = 0                  ' Wait for SAA1064 to turn on
   I2cstart                               ' Start sequence for I2CBUS
   I2cwbyte Wsaa1064                      ' Communicate the Slave address
   I2cwbyte Ctb                           ' Point to control register
   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 indifferent
   I2cwbyte 48                            ' set DY1 "I"
   I2cwbyte 84                            ' set DY2 "n"
   I2cwbyte 0                             ' set DY3 off
   I2cwbyte 0                             ' set DY4 off
   I2cstop
End Sub
'
' ******** Converts a figure in range from 0 to F in 7 segments ********
' This procedure converts a figure in range from 0 to F in 7 segments
' format, if value is greater than F the display is off.
' Parameters:
' Input : dig as byte, value in the range from 0 to F
' Outout : dig as byte, value in 7 segments format.
' **********************************************************************
'
Sub Digit(dig As Byte )                   ' Converts a number in range
                                               ' 0-F in 7 segments
   If Dig < 16 Then                       ' if number is lower than 16
      Dig = Lookup(dig , Tab_7seg)        ' read value from table
   Else
      Dig = 0                             ' if = 16 or greater reset
   End If
End Sub
'
' ***************** Converte 1 byte in due cifre HEX ********************
' This procedure converts 1 byte in range from 0 to 255 in two 4 bits
' hexadecimal figures.
' Parameters:
' Input : Valore as byte, value in the range from 0 to 255
' Output :  Cifh as byte, figure of high nibble
'           Cifl as byte, figure of low nibble
' ************************************************************************
'
Sub Cifre(valore As Byte , Cifh As Byte , Cifl As Byte )
                                          ' converts a number in two HEX figures
   Cifh = Valore And &HF0                 ' mask 4 high bits
   Cifh = Cifh / 16                       ' shift to low the 4 high bits
   Cifl = Valore And &H0F                 ' mask the 4 low bits
End Sub
'
' *********************** Visualizes a byte in HEX *********************
' The first display visualizes the number of the channel being
' converted, the second display is off.
' This procedure allows to show a byte in hexadecimal format
' in the two displays on the right. E.g.: 255= FFH, 32= 20H etc.
' Parameters:
' Input : N1 as byte, number to visualize in HEX
' Output : nothing
' **********************************************************************
'
Sub Vis_num(n1 As Byte)                   ' visualizes a byte in HEX
      I2cstart                            ' Start sequence for I2CBUS
      I2cwbyte Wsaa1064                   ' slave address
      I2cwbyte Dig3                       ' point to display 3 (DY3)

      Call Cifre(n1 , Cifh , Cifl)        ' convert number in 2 HEX figures
      Call Digit(cifh)                    ' convert decines in 7 segments
      I2cwbyte Dig                        ' output to display DY3

      Call Digit(cifl)                    ' convert units in 7 segments
      I2cwbyte Dig                        ' output to display DY4

      I2cstop                             ' Stop sequence for I2CBUS
End Sub
'
' ** Conversion table for 7 segments figure in the range from 0 to 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
' **********************************************************************
'