I need pwm according to the encoder 1024 pule speed

[honey361]

PWM OUT

Dear All,
Can any one advise the below code where is wrong because it is not working with encoder, I need pwm according to the encoder 1024 pule speed, maximum encoder shaft speed is 1400 rpm, mcu is AVR Atmega8L amd software is Bascom-Avr,

Thanks in Advance

$regfile = "m8def.dat"
$crystal = 1000000

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Dim Yard As Word
Dim Cb As Byte
Dim B As Bit
Dim Y As Word
Config Timer0 = Counter , Edge = Rising

Stop Timer0


Tccr1a = &B10100011
Tccr1b = &B00000001

Config Portb = Output
Config Portd.0 = Input
Config Portd.1 = Input
Config Debounce = 10

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Do
For Cb = 1 To 10 Step 1
Debounce Pind.0 , 1 , Int0_isr , Sub
Debounce Pind.1 , 1 , Int1_isr , Sub

Start Timer0
Waitms 100
Stop Timer0
Yard = Yard + Counter0 : Counter0 = 0
Next

Pwm1a = Yard
Yard = 0 : Cb = 0
Loop
End

 

[herlambang]

PWM OUT

Sorry, I never use bascom