Procedure Loading;
 begin
  TRISA:=0; TRISB:=0; TRISC:=0; TRISD:=0; TRISE:=0;
  PORTA:=0; PORTB:=0; PORTC:=0; PORTD:=0; PORTE:=0;
  USART_Init(115200);
  TXSTA.BRGH:=1;
  TRISB.7:=1;
  SPBRG:=$03;  // Port beállítása, 250KBaud
 end;

begin
Loading;
 while true do
  begin
   If RCSTA.FERR = 1 then
    PORTD:=15
    else
    PORTD:=0;
  end;
end.