RTC_Schreiben:
        LCALL   I2CSTART        ; I2C Start Condition senden
        LCALL   ERR_I2C

        MOV     A,#RTC      		; Adresse der RTC senden
        LCALL   I2CSEND
        LCALL   ERR_I2C

        MOV     A,#0            ; Wordadress senden
        LCALL   I2CSEND
        LCALL   ERR_I2C

        MOV     A,#00h          ; milli sekunden senden
        LCALL   I2CSEND
        LCALL   ERR_I2C

        MOV     A,sekunden          ; sekunden senden
        LCALL   I2CSEND
        LCALL   ERR_I2C

        MOV     A,minuten          ; minuten senden
        LCALL   I2CSEND
        LCALL   ERR_I2C

        MOV     A,stunden          ; Stunden senden
        LCALL   I2CSEND
        LCALL   ERR_I2C