Blink D13 LED with PMP

1. Description

Blinking D13 LED of FreeJALduino board using Pic Micro Pascal language created by Philippe Paternotte.

2. The program

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.