Koda: |
$regfile = "m16def.dat"
$crystal = 1000000 $hwstack=40 $swstack=16 $framesize=32 ' TIMER0 PWM=B.3 ' TIMER1a PWM=D.5 ' TIMER1b PWM=D.4 ' TIMER2 PWM=D.7 Config Timer1 = Pwm , Pwm = 8 , Prescale = 1 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down Config Timer2 = Pwm , Pwm = On , Compare Pwm = Clear Up , Prescale = 1 Config Timer0 = Pwm , Pwm = On , Compare Pwm = Clear Up , Prescale = 1 Enable Timer0 Enable Timer1 Enable Timer2 Enable Interrupts Start Timer1 Start Timer0 Start Timer2 Ocr0 = 10 Ocr1a = 10 'Pwm1a Ocr1b = 10 Ocr2 = 10 'Pwm1b Do ' Pwm1a = 255 'Pwm1b = 255 !nop Loop End |