$regfile "m48def.dat"
$crystal = 10000000
$baud = 9600


Config Portb = Output
Dim A As Integer                                            'Winkel Alpha
Dim B As Integer                                            'Sin- Wert von Alpha
Dim C As Integer                                            'Ein- Zeit der PWM (indirekte Spannung)
Dim D As Integer                                            'Winkel
Dim E As Integer
Dim W As Byte

'PWM- Timer ====================================================================
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Up , Prescale = 256
Enable Timer1

'Interrupttimer ================================================================
Config Timer2 = Timer , Prescale = 1

On Timer2 Tim2isr
Enable Interrupts
Enable Timer2

'===============================================================================
Start Timer2

A = 0
B = 0
C = 1
D = 235 / 100

sbi portb,3
cbi portb,4
Pwm1a = C
Start Timer2

Do
W = Timer2
   If W > 2 Then
   sbi portb,5
   End If
Loop




Tim2isr:                                                    'interruptroutine für timer0

A = A + D
'B = Sin(a)                                                  'B = Round(b)
'B = Rad2deg(b)

   If A => 179 Then
   A = 0
   Toggle Pinb.3
   Toggle Pinb.4
   Else
   End If

C = B * 254                                                 'Ein-Zeit = sinAlpha * Radius
Pwm1a = C

Return


End
                                              'end program