Der code sollte eigentlich verwendbar sein

So würde ich es probieren, zusammengefasst auf das wesentliche:
Code:
$regfile = "m32def.dat"                                      ' the used chip 
$crystal = 16000000                                         ' frequency used 

Config Portd = Output       ' kompletter PortD als Ausgang 

Dim Twi_control As Byte    ' Controlregister lokale kopie 
Dim Twi_status As Byte 

    Twsr = 0                  ' status und Prescaler auf 0 
    Twar =  &H70           ' z.B. Slaveadresse PCF     
    Twcr = &B01000100  ' TWI aktivieren, ACK einschalten 

     Portd = 0                 ' alle LEDs auf grundstellung

Do 
    Twi_control = Twcr And &H80
    If Twi_control = &H80 Then 
        Twi_status = Twsr And &HF8
        If Twi_status = &H80 Or Twi_status = &H88 Then 
                     Portd = Twdr                       ' Daten an das Port ausgeben
        End If 
        Twcr = &B11000100              ' TWINT löschen, erzeugt ACK 
    End If 
Loop 

End
Anm: Bei der Slave Adresse ist nur wichtig, dass der Master die gleiche verwendet (logo)

---- OR Twi_status = &H88 kann eigentlich entfallen, da du ja immer ACK sendest.

Versuchs mal