Aduc 841 und I2C

Hallo zusammen,

ich bin im Moment dabei 2 Aduc Boards mit jeweils einem o.g Aduc 841
über I2c zu verbinden. Jedenfalls funktioniert das Programm nicht und
ich habe keine Ahnung, was an dem Programm noch verkehrt sein soll.
Vielleicht findet ja einer von euch den Fehler bzw. was ich vergessen
habe.
Danke schon mal im Vorraus.

$include  (Aduc841.inc)
      ADR  equ  40H
    mov  ADR,#10101011b
    mov  R0,#8
    setb  I2CM
    lcall  Senden
Daten:
    mov  ADR,#11100111b
    lcall  Senden
    ljmp  Daten

SENDEN:                  setb  MDE
      setb  MDO
      setb  MCO
      clr  MDO
      lcall  Pause1
      clr  MCO
      mov  A,ADR
LO:            RLC  A
      mov  MDO,C
      lcall  Pause120
      setb  MCO
      clr  MCO
      djnz  R0,LO
      clr  MDE
      setb  MDO

L1:            jb  MDI,L1
      clr  MCO
      ret

Pause1:           mov  R1,#20
L2:            djnz  R1,L2
      ret

Pause120:
      mov  R2,#00000000b
      mov  R3,#5
L3:            djnz  R2,L3
      djnz  R3,L3
      ret

end