DEFINE OSCCAL_1K 1

ADCON0 = 0
ANSEL = 0
CMCON = 7
VRCON = 0


TRISIO = %00001000

led var GPIO.0

i var byte
y var word

up:

Pause 200

For i = 0 to 127

y = SIN i

Led = 1
Pauseus (y*y)
Led = 0
Pauseus ( 16129 -(y*y) )

next i

GOTO up
END