'**** Deklarationen ************************************************************
$regfile = "at26def.dat"                                    'Chipdefinition
$crystal = 8000000                                          'Int. Osc. Speed 1Mhz

'**** Portinitialisierung ******************************************************
Porta = &H00                                                'ports hochohmig schalten
Portb = &H00

Config Porta.0 = Input                                      'Eingangsrelais

Config Porta.1 = Input                                      'Poti R17
Config Porta.2 = Input                                      'Poti R18
Config Porta.3 = Input                                      'Poti R19

Config Porta.4 = Output
Config Porta.5 = Output
Config Porta.6 = Output
Config Porta.7 = Output

Config Portb = Output                                       'LED´s / ISP

Porta.0 = 1                                                 'pullups einschalten
Porta.1 = 1                                                 'pullups einschalten
Porta.2 = 1                                                 'pullups einschalten
Porta.3 = 1                                                 'pullups einschalten

'adc konfigurieren
Config Adc = Single , Prescaler = Auto                      ' single wegen getadc, auto macht höchste rate automatisch
Start Adc                                                   'adc anschmeissen, stop adc würde anhalten

'variablen
Led_rot Alias Portb.4                                       'benennung der leds
Led_gelb Alias Portb.5
Relais1 Alias Portb.6
Poti_rechts Alias Pina.3
Poti_mitte Alias Pina.2
Poti_links Alias Pina.1
Zeituhreingang Alias Pina.0

Dim A As Byte
Dim B As Byte

'startwerte
A = 150
B = 100

'timer PWM
Config Timer1 = Pwm , Prescale = 64 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Down
'***** TCCR1A ****  testhalber direktes setzen ?!
Tccr1a.7 = 1
Tccr1a.6 = 0
Tccr1a.5 = 1
Tccr1a.4 = 0

Enable Timer1

Ocr1a = A
Ocr1b = B
Ocr1c = 255                                                 'gesamtlängenregister

'hauptprogramm
Do

Toggle Led_gelb
Waitms 300

Loop