New to PIC

[Archangel]

Hi Mike, Welcome to the forum. You have analog stuff to turn off on PortA.
ADCON0 = 0 'disable A/D module disabled
ADCON1 = 127 'AN1 through AN6 as digital
Hmmm no CMCON or CMCON0 . . . . still looking . . . .
Ok now I looked at the Data sheet on the junebug. PortA is used as outputs, so let's start here:

ADCON0  = 0 'disable A/D module disabled       
ADCON1  = 127 'AN1 through AN6 as digital 
DEFINE OSC 4 ' or some other number as fits you

PortA = %00000000 ' a zero for each pin drives LATA registers all low so when made an output they will all be @ ground
TRISA = %00000000 ' All portA pins as outputs
PortA = %10000001 , Light 1 on
Pause 200
TRISA.7 = 1 ' Tristates PortA.7 
PortA = %01000000 'Light2 on
pause 200
TRISA = %00000001 ' Tristates RA0
portA = %01000000 ' Light3 on
and so on, here is untested code

Different methods shown above.
A better way might be to use 2 lookup tables and a for next loop to display this somewhat unusual LED Array.

ADCON0  = 0 'disable A/D module disabled       
ADCON1  = 127 'AN1 through AN6 as digital 
DEFINE OSC 4 ' or some other number as fits you
TrisVar Var Byte
PortVar Var Byte
index   Var Byte
PortA = %00000000 ' a zero for each pin drives LATA registers all low so when made an output they will all be @ ground
TRISA = %00000000 ' All portA pins as outputs
main:
    For index = 0 to 5

        lookup index,[%00000000,%00000000,%00000001,%00000001,%01000000,%01000000], TrisVar
        lookup index,[%00000001,%01000000,%01000000,%10000000,%10000000,%00000001], PortVar
        PortA = PortVar
        TrisA = TrisVar
        Pause 200
    next index
GoTo Main
end

[savnik]

You need to set internal oscillator because you use porta.6 and porta.7 as I/O.
See page 17 on datasheet of pic18f1230.

[Mike2545]

Thanks for the input guys, still no luck with the program, maybe its the Junebug... I don't know. Any other suggestions?

[mackrackit]

If you think it might be the "June bug" try a simple hardware setup with one LED on a non analog pine and see it you can make it blink.

[Mike2545]

I can get the other ports to respond to programming but PORTA.6 and 7 don't do as they should.

[mackrackit]

I can get the other ports to respond to programming but PORTA.6 and 7 don't do as they should.

OK, that rules out the "junebug".

Can you post your current code, configs, and schematic so we can take a look?

[Mike2545]

Here is my code, it flashes leds on PORTA.0 and PORTB.0

ADCON0 = 0
ADCON1= 127
define OSC 4
led var PORTA.0
sink var PORTB.0

loop:
toggle PORTA.6
pause 5
high led
pause 5
low led
pause 5
high sink
pause 5
low sink
goto loop
end


PORTA.6 is just low, it does not toggle or go High if I change the code.

The schematic is simple, I connected VPP, +5, Gnd, PGD and PGC.
I have 470 ohm resistors from the PIC to leds connected to GND.

Could it be the clock output function? How do I set INTRC_OSC_NOCLKOUT?