shift value

@ device pic16f877 define osc 4 define adc_bits 8 main: trisb =$00 trisa =$ff adcon1 = 7 lamp var portb sw1 var porta.0 sw2 var porta.1 lamp=0 while(1) if(!sw1) then gosub speed1 pause 50 endif if(!sw2) then gosub speed2 pause 50 endif pause 10 wend end speed1: lamp =$80 pause 200 while(sw2) lamp = lamp […]