Ersatz für LTC1624 gesucht

Device = mega8, VCC=5;
Import SysTick, PWMport1A, PWMport1B, LCDport, ADCport; //SerPort,


Define
PWMpresc1 = 1;                 {prescaler timer1}
PWMres1   = 9;                 {resolution timer1}   // 8bit = 8
PWMmode1  = fast, negative;    {optional define}

//PB1 und PB2 auf Ausgang
procedure InitPorts;
begin
  PortB := %00000111;  // PB1 =OC1A  PB2 = OC1B
  DDRB  := %00000110;
end InitPorts;


Procedure test;
Begin
  PWMport1A:= 256;  // 8 bit   0-128-255   /  9bit   0-256-512   // 10bit   0-512-1024
  Repeat
     //   excl(hi_mos);   // an
     //   uDelay_1(20);
     //   incl(hi_mos);   // aus
     //   uDelay_1(10);
  until inp_Taste;
  PWMport1A:= 0;
  PWMport1B:= 0;
end test;