define osc 4
define adc_bits 8
trisb =$00
trisa =$ff
adcon1 = 7
lamp var portb
start var porta.0
stops var porta.1
lamp =0
loop:
if start=0 then
repeat
pause 10
lamp=$ff
until stops=0 ' if constrain true out off loop
endif
lamp =$00
pause 10
goto loop
end
About The Author
Ibrar Ayyub
I am an experienced technical writer holding a Master's degree in computer science from BZU Multan, Pakistan University. With a background spanning various industries, particularly in home automation and engineering, I have honed my skills in crafting clear and concise content. Proficient in leveraging infographics and diagrams, I strive to simplify complex concepts for readers. My strength lies in thorough research and presenting information in a structured and logical format.
Follow Us:LinkedinTwitter