if pwm_kanal4_ee >= 1 and pwm_kanal5_ee = 0 then  'PWM-Ausgänge aktivieren
 select case pwm_prescale_ee  '
   case 10 'A
      Config Timer1 = Pwm , Pwm = 8 , Compare B Pwm = Clear Up , Prescale = 1024      '1024 = 15Hz
   case 11 'B
      Config Timer1 = Pwm , Pwm = 8 , Compare B Pwm = Clear Up , Prescale = 256    '256 = 61Hz
   case 12 'C
      Config Timer1 = Pwm , Pwm = 8 , Compare B Pwm = Clear Up , Prescale = 64      '64 = 244Hz
   case 13 'D
      Config Timer1 = Pwm , Pwm = 8 , Compare B Pwm = Clear Up , Prescale = 8       '8 =  1953Hz
   case 14 'E
      Config Timer1 = Pwm , Pwm = 8 , Compare B Pwm = Clear Up , Prescale = 1       '1 = 15625Hz
 end select
end if


if pwm_kanal4_ee = 0 and pwm_kanal5_ee >= 1 then   'PWM-Ausgänge aktivieren
 select case pwm_prescale_ee  '
   case 10 'A
      Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Prescale = 1024      '1024 = 15Hz
   case 11 'B
      Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Prescale = 256    '256 = 61Hz
   case 12 'C
      Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Prescale = 64      '64 = 244Hz
   case 13 'D
      Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Prescale = 8       '8 =  1953Hz
   case 14 'E
      Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Prescale = 1       '1 = 15625Hz
 end select
end if


if pwm_kanal4_ee >= 1 and pwm_kanal5_ee >= 1 then  'PWM-Ausgänge aktivieren
 select case pwm_prescale_ee  '
   case 10 'A
      Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up , Prescale = 1024      '1024 = 15Hz
   case 11 'B
      Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up , Prescale = 256    '256 = 61Hz
   case 12 'C
      Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up , Prescale = 64      '64 = 244Hz
   case 13 'D
      Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up , Prescale = 8       '8 =  1953Hz
   case 14 'E
      Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up , Prescale = 1       '1 = 15625Hz
 end select
end if
 

tccr1b.cs10 =1
tccr1b.cs11 =1
tccr1b.cs12 =0

Dim Pwm_kanal4_ee As Eram Byte
Dim Pwm_kanal5_ee As Eram Byte
Dim Pwm_prescale_ee As Eram Byte

Const P1 = &B000_001
Const P8 = &B000_010
Const P64 = &B000_011
Const P256 = &B000_100
Const P1024 = &B000_101

Tccr1a = &B0000_0001                                        'WGM10 for PWM, Phase Correct, 8-bit
If Pwm_kanal4_ee > 0 Then Set Tccr1a.com1a1
If Pwm_kanal5_ee > 0 Then Set Tccr1a.com1b1

 Select Case Pwm_prescale_ee
   Case 10
      Tccr1b = P1024
   case 11 'B
      Tccr1b = P256
   Case 12
      Tccr1b = P64
   case 13 'D
      Tccr1b = P8
   Case 14
      Tccr1b = P1
 End Select


End