12f675 making me a crazy person

[Meriachee]

Hi folks,

Here is some code. I am looking for some wisdom. It runs great. ONCE. It appears that the variable is either never counting to "300", or not getting reset to "10". The input causes the other output to go high, as it should, in a very repeatable manner.
Ideas?
Gary

DEFINE OSC 4
ANSEL=%00000000
CMCON=7
trisio = %00000100

' Chubb input gpio.5
' Output to panel - Trig var gpio.2
' Photo Guy gpio.4
input gpio.5
Chubb var gpio.5
output gpio.4
Led var gpio.4
low led
output gpio.2
Trig var gpio.2
low trig

'Variable for the photo guy
x var word
x = 10

' Test the photo guy
PAUSE 2000
HIGH LED
PAUSE 250
LOW LED
PAUSE 250
HIGH LED
PAUSE 250
LOW LED
PAUSE 2000

'start here
loop:
if Chubb = 0 then
high trig
endif

if Chubb = 0 then
if X < 11 then
X = 12
gosub cola
endif
endif

if chubb = 1 then
low trig
endif

if x > 11 then
x = (x + 1)
endif

if x >= 300 then
x = 10
endif

if x = 100 then
GOTO foto1
endif

pause 100
goto loop
end


foto1:
high led
pause 100
low led
pause 250
high led
pause 100
low led
return
goto loop

cola:
high led
pause 100
low led
return
goto loop
end

[mackrackit]

You have RETURNs with GOTOs .
Try going to the subroutines with GOSUB and then RETURN. Not both GOTO and RETURN.

[Meriachee]

Dave,

There are two iterations of that, in a somewhat silly attempt to validate that the RETURN was working - or failing. No difference. Irrespective, they've been removed.
The TRIG output goes high and low exactly as it should, when the CHUBB input goes high or low. That tells me the loop is looping. (Loopy?)
After startup, the TWO led routines do work. ONCE.
I can't see anything that is unhappy in the counting, the compiler likes it, and it seems to read ok, it just doesn't work.

What the heck....

[Archangel]

Hi Gary,
try ADCON0 = 0

[Meriachee]

Joe,

No better.
This is very very strange....

[mackrackit]

Something is strange.

I just tried your code for giggles and this is what happened.

Executing: "C:\PBP\PBPW.EXE" -ampasmwin -oq -z -p12F675 "C:\MAC\PIC PROGS\TEST\12f675.bas"
PICBASIC PRO(TM) Compiler 2.50c, (c) 1998, 2008 microEngineering Labs, Inc.
All Rights Reserved.

ERROR: RAM END must be defined.
ERROR: RAM BANKS must be defined.
ERROR: No LIBRARY statement or LIBRARY parameter.
ERROR: No LIBRARY statement or MACRO parameter.
ERROR: Unable to open file PBPMAC.INCHalting build on first failure as requested.
BUILD FAILED: Tue Sep 15 20:40:41 2009

It is not your code, something else is the matter. A lot of folks seem to be having problems with this chip....

[Jerson]

DEFINE OSC 4
ANSEL=%00000000
CMCON=7
trisio = %00000100

' Chubb input gpio.5
' Output to panel - Trig var gpio.2
' Photo Guy gpio.4
input gpio.5
    Chubb var gpio.5
output gpio.4
    Led var gpio.4
    low led
output gpio.2
    Trig var gpio.2
    low trig

'Variable for the photo guy
x var word
    x = 10
    
' Test the photo guy
PAUSE 2000
    HIGH LED
        PAUSE 250
    LOW LED
        PAUSE 250
    HIGH LED
        PAUSE 250
    LOW LED
PAUSE 2000

'start here
loop:
    if Chubb = 0 then
        high trig
        if X < 11 then
            X = 12
            gosub cola
        endif
    else
        low trig
    endif

    if x > 11 then
        x = (x + 1)
    endif

    if x >= 300 then
        x = 10
    endif

    if x = 100 then
        GOTO foto1
    endif

pause 100
goto loop
end


foto1:
    high led
        pause 100
    low led
            pause 250
    high led
        pause 100
    low led
goto loop

cola:
    high led
        pause 100
    low led
return
end

This should work