Jedna diodka

#include <p24fj128ga010.h>

_CONFIG1(JTAGEN_OFF & GCP_OFF & GWRP_OFF & BKBUG_OFF & COE_OFF & FWDTEN_OFF)
_CONFIG2(FCKSM_CSDCMD & OSCIOFNC_ON & POSCMOD_HS & FNOSC_PRI)

#define SCALE 308L

int main(void)
{
unsigned long i;
unsigned char display=1;
	PORTA=0x0000;
	TRISA=0xFF00;
	TRISD=0xFFFF;
display = 1;

wLewo:
	Nop();
	PORTA=(unsigned int) display;
	for(i=500L*SCALE;i>0;i--) Nop();
	if(display == 128)
    	goto wPrawo;
	else
		display = display * 2;
	    goto wLewo;


wPrawo:
	Nop();
	PORTA=(unsigned int) display;
	for(i=500L*SCALE;i>0;i--) Nop();
	if(display == 1)
	{
		display = display * 2;
		goto wLewo;
	}
	else
		display=display / 2;
	    goto wPrawo;
}