Da hab ich zu später Stunde aber nen Quatsch getippt ... sorry.
Also ich hab mal gespielt, hier mein im Simulator laufender Code:
Code:
$regfile = "m8def.dat"
$crystal = 3686400                                          'Quarz: 3,6864 MHz

Ddrc = &B00000000
Ddrd = &B00000001                                           'Int0 als Eingang konfiguriert - Programmiertaste
Portc = &B00001111
Portd.4 = 1                                                 'Pull-Up von Int0 an
Portd.3 = 1                                                 'Pull-Up von PD3 an

Config Scl = Portc.5                                        'SCL-Port auf Port C.5
Config Sda = Portc.4                                        'SDA-Port auf Port C.4


Config Lcd = 40 * 4                                         'Anzeigemodus 40 x 4 Zeichen
Config Lcdpin = Pin , Db4 = Portd.5 , Db5 = Portd.6 , Db6 = Portd.7 , Db7 = Portb.0 , E = Portb.1 , E2 = Portb.2 , Rs = Portb.3
Initlcd

Declare Sub Sub_programm


Dim ___lcdno As Bit                                         'Umschaltbyte für Anzeige 0=Chip 1; 1=Chip 2
Dim W_adr_1 As Byte                                         'Schreibadresse vom PCF8574(1)
Dim R_adr_1 As Byte                                         'Leseadresse vom PCF8574(1)
Dim Dat_1 As Byte                                           'Datenwerte vom PCF8574(1)
Dim W_adr_2 As Byte                                         'Schreibadresse vom PCF8574(2)
Dim R_adr_2 As Byte                                         'Leseadresse vom PCF8574(2)
Dim W_adr_3 As Byte                                         'Schreibadresse vom PCF8591(1)
Dim R_adr_3 As Byte                                         'Leseadresse vom PCF8591(1)
Dim T_boiler As Byte                                        'Temperatur vom Boiler
Dim T_puffer As Byte                                        'Temperatur vom Puffer


'******************** LCD initialisieren
                                                     'die beiden oberen Zeilen initialisieren
Cls
Locate 1 , 1
Lcd "Ausen Vorlauf Boiler Puffer"                           'Beschriftung der ersten Zeile
Cursor Off





Do

   Locate 2 , 1
      Lcd "Test Test Test"

   Debounce Pind.4 , 0 , Sub_programm , Sub

Loop



'******************** Programm
Sub Sub_programm

Toggle Portd.0

Cls
Locate 1 , 1
Lcd "Programm"                                              'Beschriftung der ersten Zeile
Waitms 200

End Sub

End