servo motor resets 16f877a

[skimask]

Try this...see if it's any faster

DEFINE LCD_DREG PORTB
DEFINE LCD_DBIT 0
DEFINE LCD_RSREG PORTB
DEFINE LCD_RSBIT 4
DEFINE LCD_EREG PORTB
DEFINE LCD_EBIT 5
DEFINE LCD_BITS  4
DEFINE LCD_LINES 2
DEFINE OSC 4                                                                       
DEFINE ADC_BITS     8       'A/D çevirim sonucu kaç bit olacak
DEFINE ADC_CLOCK  3       'Clock kaynağı (3=rc)
DEFINE ADC_SAMPLEUS 100
f var porta.0 : g var porta.0 : alta var byte : usta var byte : altb var byte
ustb var byte : sola var byte : solb var byte : saga var byte : sagb var byte
k var byte : t var byte : i var byte : j var byte : adcon1=2 : trisa=15
trisb=0 : portb=0 : trisc=0 : pause 1000 : lcdout $fe,1 : adcin 0,alta
adcin 1,usta : adcin 2,sola : adcin 3,saga : t=150 : j=125
yap: adcin 0,altb : adcin 1,ustb : adcin 2,solb : adcin 3,sagb
if ((((usta+10)*100)/(ustb+10)))>130 and (not (t>194)) then T=T+15
if (((alta*100)/altb))>130 AND (not (t<51)) then  T=T-15
if ((((sola+10)*100)/(solb+10)))>130 and (not (t>134)) then j=j+10
if (((saga*100)/sagb))>130 AND (not (j<116)) then  j=j-10
for i=0 to 25 : pauseus 20000-((t*10)+(j*10) : pulsout portc.2,t
pulsout portc.3,j : next i
lcdout $fe,2,#usta," ",#ustb," ",#altA," ",#altb, $fe,$C0,#T,"  ",#j
goto yap
end