' ********************************************************************** ' ** Program name: PPO.BAS - Version : 1.3 - 05 June 2000 ** ' ** Compiler : BASCOM 8051 DEMO, (IDE V.2.0.0.0, LIB V.2.0) ** ' ** Board : K51-AVR ** ' ** 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: Adriano Pedrielli ** ' ********************************************************************** ' ' This program activates sequentially one at a time all the 8 lines ' connected to IC1 (PCF8574A or 8574P, see constants declaration). ' ' Before compiling set in menu Option/Compiler/Misc: Byte End 5F. ' '*********************************************************************** ' '********************* Compiler Directives ***************************** ' ' $regfile = "89c2051.DAT" ' 89c2051 registers list '$regfile = "REG51.DAT" ' 8xc51 registers list $romstart = &H0 ' code starting address $crystal = 11059200 ' CPU clock frequence Config Debounce = 50 ' Time to wait before considering ' a key as pressed ' E.g.: 10= 10ms, 50= 50ms ' ' *************** List PINs for use with 89c1051/2051/4051 *********************** Config Sda = P1.7 ' Pin 19 DATA signal for I2CBUS Config Scl = P1.6 ' Pin 18 Clock signal for I2CBUS T1 Alias P1.5 ' Pin 17 connected to key T1 T2 Alias P1.4 ' Pin 16 connected to key T2 T3 Alias P1.3 ' Pin 15 connected to key T3 ' ' *************************** List PINs for use with 8xc51 **************** 'Config Sda = P3.6 ' Pin 16 DATA signal for I2CBUS 'Config Scl = P3.7 ' Pin 17 Clock signal for I2CBUS 'T1 Alias P1.0 ' Pin 1 connected to key T1 'T2 Alias P1.1 ' Pin 2 connected to key T2 'T3 Alias P1.2 ' Pin 3 connected to key T3 ' '********************* 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 ' ******************** List addresses of Saa1064 *********************** Dim Ctb As Const 0 ' Address Control byte Dim Dig1 As Const 1 ' Address Digit 1 Dim Dig2 As Const 2 ' Address Digit 2 Dim Dig3 As Const 3 ' Address Digit 3 Dim Dig4 As Const 4 ' Address Digit 4 ' ********************************************************************** ' Comment the declarations for the device not used, uncomment the ' other declarations 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 Pout As Byte ' output lines status Dim X As Byte ' generic use Dim Valore As Byte ' value of counter ' '********************** Procedure declarations ************************* ' Declare Sub Iniz ' Peripherals initialization ' '*************************** Main program ******************************** ' Main: ' Delay for signals settling Waitms 1 Call Iniz ' initializations Do Valore = 1 ' starting value For X = 1 To 7 ' cycle initialization Pout = Not Valore ' complement the value I2csend Wpcf8574 , Pout ' set the outputs Valore = Valore * 2 ' left shift of the bits Waitms 255 ' delay Next X For X = 1 To 7 ' cycle initialization Pout = Not Valore ' complement the value I2csend Wpcf8574 , Pout ' set the outputs Valore = Valore / 2 ' right shift of the bits Waitms 255 ' delay Next X Loop End ' '**************************** Program end ****************************** ' ' '**************************** Procedures ******************************* ' ' ********************** Peripherals initialization ******************** ' This procedure performs all the system initializations. ' Parameters: ' Input : nothing ' Output : nothing ' ************************************************************************ ' Sub Iniz ' Peripherals initialization 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 indifferente I2cwbyte 92 ' output to DY1 the char "o" I2cwbyte 28 ' output to DY2 the char2 "u" I2cwbyte 120 ' output to DY3 the char "t" I2cwbyte 0 ' DY4 off I2cstop End Sub '