blink a single led

[MINHLE]

tks for all

now i know how to send by pdf, here is the attachment
pic18f26k20_porttest.PDF
i used pbp v 2.6

i used internal osc 64mhz or 4mhz
no external capacitors on the osc pins,
the same program that is programed into the chip ran before but now it does not ( on both pcb and breadboard)
i attach the program that is slighly changed the pause statement:

INCLUDE "h:\AllDigital.pbp"
ASM
__CONFIG _CONFIG1H, _FOSC_INTIO67_1H & _FCMEN_OFF_1H & _IESO_OFF_1H
__CONFIG _CONFIG2H, _WDTEN_ON_2H & _WDTPS_512_2H
__CONFIG _CONFIG3H, _CCP2MX_PORTC_3H & _PBADEN_OFF_3H & _LPT1OSC_OFF_3H & _HFOFST_ON_3H & _MCLRE_ON_3H
__CONFIG _CONFIG4L, _STVREN_ON_4L & _LVP_OFF_4L & _XINST_OFF_4L
ENDASM
OSCCON = $70 '$70 Internal oscillator is set to 16MHz $62 ' 8mhz--- '; Primary Clock is selected as system clock.
OSCTUNE = $40 'HFINTOSC selected; PLL enabled; Factory calibrated frequency
define OSC 64
ADCON0 = 0
CM1CON0.7 = 0
CM2CON0.7 = 0
portb = 0
latb = 0
trisb = 0
'------------------------------------------
i var byte
m var byte
main_program:
gosub blink 'call suroutin to blink a led
GOTO main_program
'==============================================
blink:
high portb '= $ff ' light the led for acertain amount of time
for i = 0 to 100 'loop to maintain the led on
FOR M = 0 TO 10
pause 1
NEXT
NEXT
low portb '= 0 'tuen off the led for certain amount of time
for i = 0 to 50 'loop to maintain the led off
FOR M = 0 TO 10
pause 1
NEXT
NEXT
return
'-------------------------------------------
end

[MINHLE]

i do not under stand configuration is old hat and
internal osc can delete post?
can you explain clearly,
tks

[Dave]

Looking at the schematic, I believe the MCLR reset connection violates the Spec. The correct circuit can be found on page 53 of the processor spec. The power supply rise time needs to be within spec. or it will never reset properly.

[MINHLE]

tks Dave
i do not have 15k-40k resistor,however, i disable mclr in the conf: mclre_off_3h
but nothing happens, i check the resistors tomorrow,

[richard]

Your code has some issues

INCLUDE "h:\AllDigital.pbp"    why ?
 ASM
    __CONFIG    _CONFIG1H, _FOSC_INTIO67_1H & _FCMEN_OFF_1H & _IESO_OFF_1H
    __CONFIG    _CONFIG2H, _WDTEN_ON_2H & _WDTPS_512_2H
    __CONFIG    _CONFIG3H, _CCP2MX_PORTC_3H & _PBADEN_OFF_3H & _LPT1OSC_OFF_3H & _HFOFST_ON_3H & _MCLRE_ON_3H
    __CONFIG    _CONFIG4L, _STVREN_ON_4L & _LVP_OFF_4L & _XINST_OFF_4L
 ENDASM
 OSCCON  = $70 '$70 Internal oscillator is set to 16MHz $62 ' 8mhz---  '; Primary Clock is selected as system clock.
 OSCTUNE = $40 'HFINTOSC selected; PLL enabled; Factory calibrated frequency
 define OSC 64
 ADCON0 = 0                        why ?
 CM1CON0.7 = 0                   why ?
 CM2CON0.7 = 0                   why ?           
 portb = 0                            why ?
 latb  = 0                              why ?
 trisb = 0                     is this really what you want ?
 '------------------------------------------
i var byte
   m var byte
   main_program: 
   gosub blink        'call suroutin to blink a led
 GOTO main_program 
 '==============================================  
 blink:
 high portb '= $ff ' light the led for acertain amount of time         this is not a legitimate use of HIGH  
 for i = 0 to 100     'loop to maintain the led on
    FOR M = 0 TO 10
        pause 1
    NEXT
 NEXT
 low portb '= 0     'tuen off the led for certain amount of time              this is not a legitimate use of LOW  
 for i = 0 to 50     'loop to maintain the led off
    FOR M = 0 TO 10
        pause 1
    NEXT
 NEXT
 return
 '-------------------------------------------
end

I can't verify your config settings as I no longer use that ancient old complier [you could at least update to 2.6c]

assuming your config and osc settings are workable then this code is tested an works for me ,
1k r in series with led, vdd 5v 4.7k pullup on mclr

ASM
__CONFIG    _CONFIG1H, _FOSC_INTIO67_1H & _FCMEN_OFF_1H & _IESO_OFF_1H
    __CONFIG    _CONFIG2H, _WDTEN_ON_2H & _WDTPS_512_2H
    __CONFIG    _CONFIG3H, _CCP2MX_PORTC_3H & _PBADEN_OFF_3H & _LPT1OSC_OFF_3H & _HFOFST_ON_3H & _MCLRE_ON_3H
__CONFIG    _CONFIG4L, _STVREN_ON_4L & _LVP_OFF_4L & _XINST_OFF_4L
 ENDASM
 OSCCON  = $70 '$70 Internal oscillator is set to 16MHz $62 ' 8mhz---  '; Primary Clock is selected as system clock.
 OSCTUNE = $40 'HFINTOSC selected; PLL enabled; Factory calibrated frequency
 define OSC 64 
ANSELH = 0 
 

trisb=%11111110
  
pause 2000
   

 '------------------------------------------
 i var byte
 m var byte
 main_program: 
 gosub blink 'call subroutine to blink a led
 GOTO main_program 
 '============================================== 
 blink:
 LATB.0=1 ; light the led  on portb.0 for a certain amount of time
 for i = 0 to 100 'loop to maintain the led on
 FOR M = 0 TO 10
 pause 1
 NEXT
 NEXT
 
 LATB.0=0  'turn off the led for certain amount of time
 for i = 0 to 50 'loop to maintain the led off
 FOR M = 0 TO 10
 pause 1
 NEXT
 NEXT
 return
 '-------------------------------------------
 end

[MINHLE]

HELLO rICHARD,

Thk for ur reply,
the code displayed there is for timer, interrupt, and digital conversion.
that run well for several years.
your code is also not run at all on my breadboard.
the ANSELH is not used in my code due to the fact the PBADEN_OFF_3H is off.
about the version of the pbp, it is not relevant to the fail i think so.
1 think i pay attention to is the effect of charge accumulated on the breadboard (run @64mhz). but the pcb no charge on it..
i replayed another small breadboard , but the situation has not been better.

[Archangel]

Suspect your breadboard if it is older than 1 year, the sockets corrode and become insulators.

define OSC 64 ' does NOT make the pic oscillate at 64 mhz, it simply adjusts PBP's timing to accomodate that speed, so if you are running at say 4mhz then whatever you expect to happen in 1 second will take 4/64 or 16 seconds to happen. I think your config will not allow 64mhz as you need PLL FOSC = HSPLL HS oscillator, PLL enabled (Clock Frequency = 4 x FOSC1)