$regfile = "attiny13.dat"
$crystal = 9600000

'-----------------------------------------------
Ddrb.0 = 1                                                  'PWM out
Ddrb.1 = 0
Ddrb.2 = 0                                                  'Dimmersteuerung
Ddrb.3 = 1
Ddrb.4 = 1

'----------- Variable Definisation -------------
Dim A As Integer
Dim Adtemp As Byte
Dim Zeit As Integer
Dim Blink As Bit                                            'NotAnzeige an
Dim Diskom As Integer

'----------- A/D Wandler -----------------------
Admux = &B01110001
Adcsr = &B11101010


'----------- PWM -------------------------------
Tccr0a = &B10010001
Tccr0b = &B00000010


'----------- Start Sequenz ---------------------
Ocr0a = 0                                                   'PWM abschalten
For A = 0 To 1
Pulseout Portb , 3 , 20000
Waitms 30
Pulseout Portb , 4 , 20000
Waitms 30
Next
Portb.3 = 1
Admux.5 = 1
'-----------------------------------------------
'------------------ Program --------------------
'-----------------------------------------------
Do

Gosub Dimmer

Loop

'-----------------------------------------------
Dimmer:


Adtemp = Adch
Ocr0a = Adtemp

Return

'------------------------------------------------
Akkuoff:
Return

'------------------------------------------------
Ontimer0:
Return

'------------------------------------------------