http://www.semiconductors.philips.co...p/pcf8578.html



$regfile = "2313def.dat"
$crystal = 4000000

Config Sda = Portd.4
Config Scl = Portd.5

I2cinit


Const Disp = $78 ' PCF8578 Adr

'-----------------Display Initialisierung---------------------------------------

I2cstart 'Start
I2cwbyte Disp 'send slave address PCF8578
I2cwbyte $d9 'write Set Mode:Mixed Mode,all segments on,1:8Mux
I2cstop 'Stop
Wait 1 '1 Sekunde warten
I2cstart 'Start
I2cwbyte Disp 'send slave address PCF8578
I2cwbyte $d5 'write Set Mode:Mixed Mode,normal,1:8Mux
I2cwbyte $e0 'Device Select Adr 0000 nur wenn mehrere PCF8578
I2cwbyte $88 'X Adress = 8
I2cwbyte $70 'Ram Access: Character,Ram Bank 0
I2cstop
' Init done
'-------------------------------------------------------------------------------
'This must Turn on all segments on the display for 1s
'look Datasheet

73 de Arthur