Simple Blinking LED - WTF!!
OK, I've been out of the PIC stuff for about a year now and have noticed some significant brain drain (on my behalf):)
I am just trying to get back into the PICbasic with some simple LED blinking with a 12F683. I looked at some of my old code with controlled 3 LED's and the code (compiled) works just fine. But when I comment out 2 of the 3 LED's, the remaining LED just stays ON.
The code posted shows only GPIO.1 remaining active...but the LED stays on.
I know this is peanuts to all of you...but please help me out. I even tried a simple code with a simple loop! Still didn't work.
John.
Code:
osccon = %01100000 ' Ocs set to 4 MHz
trisio = %00000000 '
wpu = %00011000
'CMCON0 = 7 ' Analog comparators off
'ANSEL = 0 ' Analog select set to digital, pg 69 data
'ADCON0 = 0 ' A/D turned OFF, pg 68 of data
pausetime var word
Out0 var gpio.0
Out1 var gpio.1
Out2 var gpio.2
B0 var byte
' SET VARIABLES
pausetime = 200
B0 = 0
low 0
low 1
low 2
start:
'button gpio.3,1,10,5,B0,1,notp
if gpio.3 = 1 then goto start
'call blink0
'call blink2
call blink1
goto start
blink0:
high out0
pause pausetime
low out0
'pause pausetime
return
blink1:
high out1
pause pausetime
low out1
'pause pausetime
return
blink2:
high out2
pause pausetime
low out2
'pause pausetime
return
notp:
goto start
end
