blink.bas for 18f4520 for newbie - HELP

[Gusse]

Try something like this ....

<code><font color="#000000">OSCCON = $70            <font color="#000080"><i>'Int CLK 8MHz
</i></font>OSCTUNE.6 = 1           <font color="#000080"><i>'PLL 4x
</i></font>ADCON1= %00001111       <font color="#000080"><i>'$0F = disable A/D converter

</i></font>TRISA = %00000000       <font color="#000080"><i>'All pins are outputs
</i></font>TRISB = %00000000           
TRISC = %00000000           
TRISD = %00000000
TRISE.0 = 0
TRISE.1 = 0
TRISE.2 = 0

<b>DEFINE </b>OSC 32            <font color="#000080"><i>'4x 8MHz

</i></font>flip:
PORTD.0 = 1             <font color="#000080"><i>'Turn on LED
</i></font><b>PAUSE </b>500               <font color="#000080"><i>'Delay for .5 seconds
</i></font>PORTD.0 = 0             <font color="#000080"><i>'Turn off LED
</i></font><b>PAUSE </b>500
<b>GOTO </b>flip

<b>END</b></code>

and something like this should be in your 18F4520.INC file ...

<code><font color="#000000">__CONFIG    _CONFIG1H, _OSC_INTIO67_1H
__CONFIG    _CONFIG2L, _PWRT_ON_2L &amp; _BOREN_OFF_2L
__CONFIG    _CONFIG2H, _WDT_OFF_2H &amp; _WDTPS_512_2H
__CONFIG    _CONFIG3H, _PBADEN_OFF_3H
__CONFIG    _CONFIG4L, _LVP_OFF_4L &amp; _XINST_OFF_4L</code>

Good luck!

BR,
-Gusse-