ja, besten Dank für die antworten. Die Berechnungen müssen einzeln durchgeführt werden. Die stack-definitionen werd ich mir noch mal reinziehen.

jetzt funktioniert das Programm. Das Ergebnis:
Code:
'-----------------------------------------------------------------------------------------
'name                     : tiny13_servo_joystick-1.bas
'copyright                : (c) 2007,helvo
'purpose                  : Joystick-STEUERUNG einer Kamera mit 2 Servos
'micro                    : ATTINY13
'Analogeingänge sind ADC2 und ADC3
'LED ist PB2
'Servo-anschlüsse sind PB0 und PB1
'-----------------------------------------------------------------------------------------
$regfile = "ATtiny13.dat"
$crystal = 9600000
$hwstack = 32                                               ' default use 32 for the hardware stack
$swstack = 10                                               ' default use 10 for the SW stack
$framesize = 40                                             ' default use 40 for the frame space

Config Adc = Single , Prescaler = Auto , Reference = Avcc
Config Servos = 2 , Servo1 = Portb.0 , Servo2 = Portb.1 , Reload = 5
Config Pinb.0 = Output
Config Pinb.1 = Output
Config Pinb.2 = Output
Led Alias Portb.2

Dim A As Word
Dim B As Word
Dim I As Byte

Enable Interrupts
Start Adc

Do

A = Getadc(2) / 4                                           
B = Getadc(3) / 4                                           
   Servo(1) = A
   Servo(2) = B

   Toggle Led                                               
   Waitms 20                                                
                                                             
Loop

End
Gruss Helmut