Reducir funciones

[Abner_emanuel]

Fe de erratas. Yo lo implemente mal. El Código funciona perfecto.

[Abner_emanuel]

Aunque un poco fuera de tema, aunque para el mismo. Me atreví a preguntas esto...

Trato de configurar los fuses para el PIC18F4620 a 40Mhz. Por ahí leí que se debe poner #fuses H4 para un cristal externo de 10Mhz.

Y lo puse de la siguiente manera:

#fuses NOWDT, WDT128, H4, NOFCMEN, NOIESO, NOPUT, NOBROWNOUT, NOPBADEN, NOLPT1OSC, MCLR, STVREN, NOLVP, NOXINST, NODEBUG, NOPROTECT, NOCPB, NOCPD, NOWRT, NOWRTC, NOWRTB, NOWRTD, NOEBTR, NOEBTRB
         #use delay(clock=40000000, crystal=10000000)

Pero tal parece que el pic no responde a 40Mhz. Alguna recomendación...

[DominusDRR]

Aunque un poco fuera de tema, aunque para el mismo. Me atreví a preguntas esto...

Trato de configurar los fuses para el PIC18F4620 a 40Mhz. Por ahí leí que se debe poner #fuses H4 para un cristal externo de 10Mhz.

Y lo puse de la siguiente manera:

#fuses NOWDT, WDT128, H4, NOFCMEN, NOIESO, NOPUT, NOBROWNOUT, NOPBADEN, NOLPT1OSC, MCLR, STVREN, NOLVP, NOXINST, NODEBUG, NOPROTECT, NOCPB, NOCPD, NOWRT, NOWRTC, NOWRTB, NOWRTD, NOEBTR, NOEBTRB
         #use delay(clock=40000000, crystal=10000000)

Pero tal parece que el pic no responde a 40Mhz. Alguna recomendación...

Al googlear:

http://www.ccsinfo.com/forum/viewtopic.php?t=43085

Creo que es HS en lugar de H2 y falta setup_oscillator(OSC_PLL_ON);

[Eduardo2]

...Trato de configurar los fuses para el PIC18F4620 a 40Mhz. Por ahí leí que se debe poner #fuses H4 para un cristal externo de 10Mhz.

Y lo puse de la siguiente manera:

#fuses NOWDT, WDT128, H4, NOFCMEN, NOIESO, NOPUT, NOBROWNOUT, NOPBADEN, NOLPT1OSC, MCLR, STVREN, NOLVP, NOXINST, NODEBUG, NOPROTECT, NOCPB, NOCPD, NOWRT, NOWRTC, NOWRTB, NOWRTD, NOEBTR, NOEBTRB
         #use delay(clock=40000000, crystal=10000000)

Pero tal parece que el pic no responde a 40Mhz. Alguna recomendación...

En CCS, con solamente   #use delay(clock=40000000, crystal=10000000)   
por defecto te hace esta configuración de fuses

Código: [Seleccionar]

   Word  1: C600   H4  FCMEN  IESO
   Word  2: 1E1E   PUT BROWNOUT BORV21 NOWDT WDT32768
   Word  3: 8700   CCP2C1 PBADEN LPT1OSC MCLR
   Word  4: 0081   STVREN NOLVP NOXINST NODEBUG
   Word  5: C00F   NOPROTECT NOCPB NOCPD
   Word  6: E00F   NOWRT NOWRTC NOWRTB NOWRTD
   Word  7: 400F   NOEBTR NOEBTRB

Probá si te funciona.

[Abner_emanuel]

Entonces está de más el poner #fuses H4. Pruebo y comento, pero tendrá que ser físicamente por qué simulado en PROTEUS pareciera que no lo hace por qué simulado todo va más lento.   

[Eduardo2]

Entonces está de más el poner #fuses H4. Pruebo y comento, pero tendrá que ser físicamente por qué simulado en PROTEUS pareciera que no lo hace por qué simulado todo va más lento.

Para sacarme dudas escribí algo muy simple:

Código: [Seleccionar]

#include<18F4620.h>
#use delay(clock=40MHz,crystal=10MHz)
void main(void){
    set_tris_b(0) ;
    int8 n=0;
    while(1){
        n++;
        if(n==0)  output_toggle(PIN_B0) ;
        delay_ms(10) ;
    }
}Y Proteus me lo simula a la velocidad correcta.

[Abner_emanuel]

Si pones los demás sique corriendo igual?.

#fuses NOWDT, WDT128, NOFCMEN, NOIESO, NOPUT, NOBROWNOUT, NOPBADEN, NOLPT1OSC, MCLR, STVREN, NOLVP, NOXINST, NODEBUG, NOPROTECT, NOCPB, NOCPD, NOWRT, NOWRTC, NOWRTB, NOWRTD, NOEBTR, NOEBTRB
         
Tengo la versión 5.114 del ccs c. Pruebo así como dices...

Gracias por responder.

[Eduardo2]

Con esa línea de fuses me corre bien, 100ns por instrucción y el delay_ms(10) demora efectivamente 10ms.