(random) Regenboogled in PIC

Hier mijn eerste probeersel in JAL (bedankt Wouter).
De kleuren lopen mooi gelijkmatig over. Ik heb het in een 16f877 gepropt, maar je kunt net zo goed een kleinere PIC nemen.
Het kan een stuk korter, ik weet het, maar het werkt

-- 13 april 2003
-- RGB-led op pin a0 a1 en a2 pseudorandom kleuren
-- Door Opla

include 16f877_20
include jlib
include random3

pin_a0_direction = output -- RGB Groen
pin_a1_direction = output -- RGB Blauw
pin_a2_direction = output -- RGB Rood

randomize( 1 )

var byte teller = 255

var byte snelheid = 1 -- aantal loops per kleur (maal x door innerloop)
var byte traagheid = 25 -- aantal delays per kleur
var byte s -- hulpvar voor loop
var byte s2 -- hulpvar voor loop
var byte wissel -- om hoog en laag om te wisselen

var byte r_ist = 1 -- aantal cycli aan
var byte g_ist = 1
var byte b_ist = 1

var byte r_tel -- afteller in loop
var byte g_tel
var byte b_tel

var byte r_soll_l = 1 -- laagste waarde voor kleur
var byte g_soll_l = 1
var byte b_soll_l = 1

var byte r_soll_h = 255 -- hoogdte waarde voor kleur
var byte g_soll_h = 255
var byte b_soll_h = 255

var byte r_dir = 1 -- 0 is dimmen 1 is feller
var byte g_dir = 1
var byte b_dir = 1

forever loop

s = 0
while s < snelheid loop -- loop voor snelheid
s2 = 1
while s2 > 0 loop -- tweede snelheidsloop : voor als het heel langzaam moet
r_tel = r_ist
g_tel = g_ist
b_tel = b_ist

teller = 255
while teller > 0 loop -- 255 keer kijken of er iets aan moet
if r_tel > 0 then r_tel = r_tel - 1 pin_a2 = on end if
if g_tel > 0 then g_tel = g_tel - 1 pin_a0 = on end if
if b_tel > 0 then b_tel = b_tel - 1 pin_a1 = on end if
-- delay_1us( traagheid )
pin_a0 = off
pin_a1 = off
pin_a2 = off
-- delay_1us( traagheid )
teller = teller - 1
end loop -- teller > 0

s2 = s2 - 1
end loop -- s2

s = s + 1
end loop -- s < snelheid

-- intensiteit aanpassen
if r_dir == 1 then if r_ist < r_soll_h then r_ist = r_ist + 1 end if end if
if r_dir == 0 then if r_ist > r_soll_l then r_ist = r_ist - 1 end if end if
if r_dir == 1 then if r_ist == r_soll_h then r_dir = 0 end if end if

if g_dir == 1 then if g_ist < g_soll_h then g_ist = g_ist + 1 end if end if
if g_dir == 0 then if g_ist > g_soll_l then g_ist = g_ist - 1 end if end if
if g_dir == 1 then if g_ist == g_soll_h then g_dir = 0 end if end if

if b_dir == 1 then if b_ist < b_soll_h then b_ist = b_ist + 1 end if end if
if b_dir == 0 then if b_ist > b_soll_l then b_ist = b_ist - 1 end if end if
if b_dir == 1 then if b_ist == b_soll_h then b_dir = 0 end if end if

-- als alles nul, nieuwe random waardes
if b_dir == 0 then if b_ist == b_soll_l then
if g_dir == 0 then if g_ist == g_soll_l then
if r_dir == 0 then if r_ist == r_soll_l then
r_dir = 1 r_soll_l = random_byte r_soll_h = random_byte
if r_soll_l > r_soll_h then wissel = r_soll_l r_soll_l = r_soll_h r_soll_h = wissel end if
if r_ist > r_soll_h then r_dir = 0 end if

g_dir = 1 g_soll_l = random_byte g_soll_h = random_byte
if g_soll_l > g_soll_h then wissel = g_soll_l g_soll_l = g_soll_h g_soll_h = wissel end if
if g_ist > g_soll_h then g_dir = 0 end if

b_dir = 1 b_soll_l = random_byte b_soll_h = random_byte
if b_soll_l > b_soll_h then wissel = b_soll_l b_soll_l = b_soll_h b_soll_h = wissel end if
if b_ist > b_soll_h then b_dir = 0 end if

snelheid = random_byte -- aanzetten voor random snelheid uitzeten voor vaste
end if end if
end if end if
end if end if

end loop -- forever