Blink D13 LED with PMP

program blink_d13;

{$PROCESSOR PIC18F2550 }

{$FREQUENCY 48 MHZ }

{$OPTIMIZE SPEED }

{$CONFIG PLLDIV = 5 }

{$CONFIG CPUDIV = OSC1_PLL2 }

{$CONFIG USBDIV = 2}

{$CONFIG FOSC = HSPLL_HS}

{$CONFIG FCMEN = OFF}

{$CONFIG IESO = OFF}

{$CONFIG PWRT = OFF}

{$CONFIG VREGEN = ON}

{$CONFIG BORV = 3}

{$CONFIG BOR = OFF}

{$CONFIG WDTPS = 32768}

{$CONFIG WDT = OFF}

{$CONFIG CCP2MX = ON}

{$CONFIG PBADEN = OFF}

{$CONFIG LPT1OSC = ON}

{$CONFIG MCLRE = ON}

{$CONFIG STVREN = OFF}

{$CONFIG LVP = OFF}

{$CONFIG XINST = OFF}

{$CONFIG DEBUG = OFF}

{$CONFIG CP0 = OFF}

{$CONFIG CP1 = OFF}

{$CONFIG CP2 = OFF}

{$CONFIG CP3 = OFF}

{$CONFIG CPB = OFF}

{$CONFIG CPD = OFF}

{$CONFIG WRT0 = OFF}

{$CONFIG WRT1 = OFF}

{$CONFIG WRT2 = OFF}

{$CONFIG WRT3 = OFF}

{$CONFIG WRTB = OFF}

{$CONFIG WRTD = OFF}

{$CONFIG WRTC = OFF}

{$CONFIG EBTR0 = OFF}

{$CONFIG EBTR1 = OFF}

{$CONFIG EBTR2 = OFF}

{$CONFIG EBTR3 = OFF}

{$CONFIG EBTRB = OFF}

{ Main program }

begin

  {start ALL_DIGITAL}

  ADCON0 := 0b00000000; //         -- disable ADC

  ADCON1 := 0b00001111; //         -- digital I/O

  ADCON2 := 0b00000000; //

  CMCON  := 0b00000111; //         -- disable comparator

  {end ALL_DIGITAL}

  TRISC.TRISC2 := 0; // set D13 LED pin as output

  while 1 do begin

    LATC.LATC2 := 1;

    delay_ms(250);

    LATC.LATC2 := 0;

    delay_ms(250);

  end;

end.