I2CPort / I2CClk Frequenz Problem?

Program Test;
{ $NOSHADOW}                                                                   // make this a comment, so that ALL registers get saved
{ $LCDNOINIT}              {user calls LCDsetup if desired}

{ $NOSAVE}
{ $WG}                     {global Warnings off} // activate for error.list and unused variables
{ $W+}                                           // activate for error.list and unused variables
{$TYPEDCONST OFF}             // so können Typdefinitionen in Const weggelassen werden... naja


Device = mega2561, VCC=5;


Define_Fuses                                                                    // Fuses hier zur Dokumentation angegeben. Nicht angegeben = 1 = NICHT gesetzt
  Override_Fuses;                                                               // Das funktioniert nicht wie im Compiler-Handbuch auf S. 52 beschrieben
  LockBits0      = [];
  FuseBits0      = [SUT1];                                                      // CKSEL3..1 = 111 --> 16 MHz external oscillator
                                                                                // CKSEL0 = 1, SUT1..0 = 01 --> Crystal oscillator, BOD enabled
  FuseBits1      = [SPIEN, EESAVE, BOOTSZ1];                                    // BOOTSZ1\SZ0 0 1 --> Bootloader at WORD ADDRESS $1F800, EESAVE --> EEPROM is preserved during a chip erase
  FuseBits2      = [BODLEVEL0,BODLEVEL2];                                       // Brown Out at 4.3V BL0: 1, BL1: 1, BL2: 0;     2.7V: BL0: 0, BL1: 1, BL2: 0
  ProgMode       = SPI;

Import SysTick, I2CPort;

From System  Import Float;


Define
  ProcClock       = 14745600;       {Hertz}
  SysTick         = 10;             {msec}
  StackSize       = $0100, iData;
  FrameSize       = $0880, iData;

  I2Cport         = PortD;                                                      // use port PortD for the Soft-I2C
  I2Cclk          = 0, 1;                                                  // Use PortD.0 for the SCL. The second number gives the # of µP Cycles for one Clock:
                                                                                // With 14.745.600 Hz one cycle is ~ 67,8 nSec.
                                                                                // So:  36 x 67,8 nSec =  2,4408 µSec = 409 kHz   (for 400 kBit/Sec)
                                                                                // So: 148 x 67,8 nSec = 10,0344 µSec = 100 kHz   (for 100 kBit/Sec)
  I2Cdat          = 1;                                                    // Use PortD.1 for the SDA


Implementation


{$IDATA}

{--------------------------------------------------------------}

{$EEPROM}


{$IDATA}
{ Var Declarations }
Var
   gByte : Byte;
   gInt  : Integer;

{--------------------------------------------------------------}
{ Main Program }
{$IDATA}

begin
                                                                                // PD0 = I SCL I²C Bus
                                                                                // PD1 = I SDA I²C Bus
                                                                                // PD2, PD3 = I Not used
                                                                                // PD4 = I ICP1 Main multiplexed PWM Input from Input 1 .. 16 (see PA0)
                                                                                // PD5 - PD7 = I Not used
   DDRD  := %00000000;                                                          // DDRx : 0 is Input, 1 is Output. If 0 = Input: then PortX = 1 activates the internal pullup
   PortD := %00010000;                                                          // All Inputs without Pullup, except ICP1

   I2Cout($4F,1,$60);                                                           // Initialize the DS75 to $60 = 12 Bit, $40 = 11 Bit, $20 = 10 Bit, $00 = 9 Bit
   I2Cout($4F,0);

   EnableInts;
   SysTickEnable;



   loop
      I2Cinp($4F,gInt);
   endloop;

{ $DEPHASE}
end Test.