Problem with ports help plz

[wbubel]

I finally found the solution. You cannot clear PORTA
when I removed the code
'PORTA = %01000000 ' Clear PORTA
It worked on the first 'release from reset'. Now all I need is to indivually clear each bit.

[wbubel]

How's this for Spaghetti Code

PORTA.1 = 0 :PORTA.2 = 0 :PORTA.3 = 0 :PORTA.4 = 0 :PORTA.5 = 0 :PORTA.6 = 0

[mackrackit]

How's this for Spaghetti Code

PORTA.1 = 0 :PORTA.2 = 0 :PORTA.3 = 0 :PORTA.4 = 0 :PORTA.5 = 0 :PORTA.6 = 0

A friend of mine writes code that way. Here is a mild sample.
http://www.picbasic.co.uk/forum/showthread.php?t=5407
After you do it that way for awhile it begins to make sence.

[Bruce]

Boat-load of errors in wbubels code Dave.

Got an E-Beer ready for the first one to fix em all & explain in detail why...;o}

[mackrackit]

Boat-load of errors in wbubels code Dave.

Got an E-Beer ready for the first one to fix em all & explain in detail why...;o}

But he said it was working
I was planning on going through it when I get back to the shop. A phone and traveling is not the best place to write and or fix code.

Maybe some one will else will get that beer

[Archangel]

HiYa wbubel,
PortA = %01000000 means portA.6 is going high when port is made an output, so if it crosses that place in space time while the PIC is initializing you will see PortA.6 output high. You want to set PortA.6 as zero and do it before you set the tris register to input or output so when it becomes an output or input the latch register is set in a known state, setting it as 1 does not enable pullups or anything like that, so you should have:

PortA = %00000000 ' set port latches low
TrisA  = %01000000 ' make RA6 input

You ever watched an old mechanical slot machine? Figure your registers are going like that until the pic boots and settles into the default mode, usualy 11111111, then it follows your code.

[Archangel]

DEFINE OSC 4 'Define the Osc to 8 MHz

asm
    bsf OSCCON, SCS1 ; 1x = Internal Block
    bcf OSCCON, SCS0 ; 00 = Primary Oscillator (20Mhz?)
    bsf OSCCON, IRCF2 ; 111=8000 110=4000 101=2000
    bsf OSCCON, IRCF1 ; 100=1000 011=0500 010=0250
    bcf OSCCON, IRCF0 ; 001=0125 000=0032
    MSTABLE010 btfss OSCCON, IOFS
    bra MSTABLE010 ; wait until Oscillator is stable
endasm 
data @0,0 'Initialize location 0 on eeprom to zero
LED2 var PORTB.2 ' LED
cntr var word
FET  var PORTA.0
'PORTB = %00000100 ' Clear PORTB, and set B2
PortB = %00000000 ' clear port latch bits 
'PORTA = %01000000 ' Clear PORTA
PortA = %00000000  ' Clear PortA latches
'TRISA = %01000000 ' Set PORTA port 2 and 7 to input, 0, 3-6 ,8 Output
TRISA = %10000100  'Set PORTA port 2 and 7 to input, 0, 3-6 ,8 Output
TRISB = %00000000 ' Set PORTB to all output
led2 = 1 ' PortB.2 high LED on

read 0,cntr 'read location 0 or eeprom
FET = 0 ' PortA.0 Low
if (PORTA.7 = 0) then pause 255 ' pause 255 milliseconds
If (PORTA.7 = 0) then write 0,0 'reset eeprom to 0 when port A Bit 7 has been forced to 0


Main:
led2 = 0    'PortB.2 Low LED off
pause 64    ' very strange choice of pause 64 milliseconds
led2 = 1    ' LED on
if (cntr < 10) then
Pause 255 'slow blink under ten cycles  cycles of what ?
pause 255 ' why this duplicate pause is good for something like 65535 ms
else
Pause 64 'fast blink over 10 cycles  cycles of what ?
endif
cntr = cntr + 1 'increment cntr
write 0,cntr                  'write new cntr value into eeprom
if (cntr <= 20) then goto main
FET = 1 'Shut down RF Current
' cntr = 0
'stop  stop stops all brain activity how can it goto main?
goto main
'Stop

End

Here is your code with comments . . .changes

[mackrackit]

Great!
I saw you configs and was wondering about the OSC setting.
But if it is working...