-- Wesley Hofman
-- Datum : 3-11-04
-- Project : Licht Effect. 
-- Omschrijving : Laat een door de gebruiker bepaalde tekst zien dmv 7 ledjes

include 16f84_4
include jlib

port_b_direction = all_output

procedure A is
port_b = 0x3F
delay_2ms 
port_b = 0x48
delay_2ms 
port_b = 0x48
delay_2ms 
port_b = 0x48
delay_2ms 
port_b = 0x3F
delay_2ms 
port_b = 0x00
delay_2ms 
port_b = 0x00
delay_2ms 
end procedure

procedure B is
port_b = 0x7F
delay_2ms 
port_b = 0x49
delay_2ms 
port_b = 0x49
delay_2ms 
port_b = 0x49
delay_2ms 
port_b = 0x36
delay_2ms 
port_b = 0x00
delay_2ms 
port_b = 0x00
delay_2ms 
end procedure

procedure C is
port_b = 0x3E
delay_2ms 
port_b = 0x41
delay_2ms 
port_b = 0x41
delay_2ms 
port_b = 0x41
delay_2ms 
port_b = 0x22
delay_2ms 
port_b = 0x00
delay_2ms 
port_b = 0x00
delay_2ms 
end procedure

procedure D is
port_b = 0x7F
delay_2ms 
port_b = 0x41
delay_2ms 
port_b = 0x41
delay_2ms 
port_b = 0x41
delay_2ms 
port_b = 0x3E
delay_2ms 
port_b = 0x00
delay_2ms 
port_b = 0x00
delay_2ms 
end procedure

procedure E is
port_b = 0x7F
delay_2ms 
port_b = 0x49
delay_2ms 
port_b = 0x49
delay_2ms 
port_b = 0x41
delay_2ms 
port_b = 0x00
delay_2ms 
port_b = 0x00
delay_2ms 
end procedure

procedure F is
port_b = 0x7F
delay_2ms 
port_b = 0x48
delay_2ms 
port_b = 0x48
delay_2ms 
port_b = 0x40
delay_2ms 
port_b = 0x00
delay_2ms 
port_b = 0x00
end procedure

procedure G is
port_b = 0x3E
delay_2ms 
port_b = 0x41
delay_2ms 
port_b = 0x49
delay_2ms 
port_b = 0x49
delay_2ms 
port_b = 0x2E
delay_2ms 
port_b = 0x00
delay_2ms 
end procedure

procedure H is
port_b = 0x7F
delay_2ms 
port_b = 0x08
delay_2ms 
port_b = 0x08
delay_2ms 
port_b = 0x08
delay_2ms 
port_b = 0x7F
delay_2ms 
port_b = 0x00
delay_2ms 
port_b = 0x00
delay_2ms 
end procedure

procedure I is
port_b = 0x7F
delay_2ms 
port_b = 0x00
delay_2ms 
port_b = 0x00
delay_2ms 
end procedure

procedure J is
port_b = 0x02
delay_2ms 
port_b = 0x01
delay_2ms 
port_b = 0x01
delay_2ms 
port_b = 0x7E
delay_2ms 
port_b = 0x3E
delay_2ms 
port_b = 0x00
delay_2ms 
port_b = 0x00
delay_2ms 
end procedure

procedure K is
port_b = 0x7F
delay_2ms 
port_b = 0x08
delay_2ms 
port_b = 0x18
delay_2ms 
port_b = 0x24
delay_2ms 
port_b = 0x43
delay_2ms 
port_b = 0x00
delay_2ms 
port_b = 0x00
delay_2ms 
end procedure

procedure L is
port_b = 0x7F
delay_2ms 
port_b = 0x01
delay_2ms 
port_b = 0x01
delay_2ms 
port_b = 0x01
delay_2ms 
port_b = 0x00
delay_2ms 
port_b = 0x00
delay_2ms 
end procedure

procedure M is
port_b = 0x3F
delay_2ms 
port_b = 0x40
delay_2ms 
port_b = 0x40
delay_2ms 
port_b = 0x3F
delay_2ms 
port_b = 0x40
delay_2ms 
port_b = 0x40
delay_2ms 
port_b = 0x3F
delay_2ms 
port_b = 0x00
delay_2ms 
port_b = 0x00
end procedure

procedure N is
port_b = 0x7F
delay_2ms 
port_b = 0x20
delay_2ms 
port_b = 0x1C
delay_2ms 
port_b = 0x02
delay_2ms 
port_b = 0x7F
delay_2ms 
port_b = 0x00
delay_2ms 
end procedure

procedure O is
port_b = 0x3E
delay_2ms 
port_b = 0x41
delay_2ms 
port_b = 0x41
delay_2ms 
port_b = 0x41
delay_2ms 
port_b = 0x3E
delay_2ms 
port_b = 0x00
delay_2ms 
port_b = 0x00
delay_2ms 
end procedure

procedure P is
port_b = 0x3F
delay_2ms 
port_b = 0x48
delay_2ms 
port_b = 0x48
delay_2ms 
port_b = 0x48
delay_2ms 
port_b = 0x30
delay_2ms 
port_b = 0x00
delay_2ms 
port_b = 0x00
delay_2ms 
end procedure

procedure Q is
port_b = 0x3E
delay_2ms 
port_b = 0x41
delay_2ms 
port_b = 0x45
delay_2ms 
port_b = 0x43
delay_2ms 
port_b = 0x3F
delay_2ms 
port_b = 0x00
delay_2ms 
port_b = 0x00
delay_2ms 
end procedure

procedure R is
port_b = 0x7F
delay_2ms 
port_b = 0x48
delay_2ms 
port_b = 0x4C
delay_2ms 
port_b = 0x4A
delay_2ms 
port_b = 0x31
delay_2ms 
port_b = 0x00
delay_2ms 
port_b = 0x00
delay_2ms 
end procedure

procedure S is
port_b = 0x32
delay_2ms 
port_b = 0x49
delay_2ms 
port_b = 0x49
delay_2ms 
port_b = 0x49
delay_2ms 
port_b = 0x26
delay_2ms 
port_b = 0x00
delay_2ms 
port_b = 0x00
delay_2ms 
end procedure

procedure T is
port_b = 0x7F
delay_2ms 
port_b = 0x40
delay_2ms 
port_b = 0x40
delay_2ms 
port_b = 0x00
delay_2ms 
end procedure

procedure U is
port_b = 0x3E
delay_2ms 
port_b = 0x01
delay_2ms 
port_b = 0x01
delay_2ms 
port_b = 0x01
delay_2ms 
port_b = 0x3E
delay_2ms 
port_b = 0x00
delay_2ms 
port_b = 0x00
delay_2ms 
end procedure

procedure V is
port_b = 0x78
delay_2ms 
port_b = 0x06
delay_2ms 
port_b = 0x01
delay_2ms 
port_b = 0x06
delay_2ms 
port_b = 0x78
delay_2ms 
port_b = 0x00
delay_2ms 
port_b = 0x00
delay_2ms 
end procedure

procedure W is
port_b = 0x7E
delay_2ms 
port_b = 0x01
delay_2ms 
port_b = 0x01
delay_2ms 
port_b = 0x7E
delay_2ms 
port_b = 0x01
delay_2ms 
port_b = 0x01
delay_2ms 
port_b = 0x7E
delay_2ms 
port_b = 0x00
delay_2ms 
port_b = 0x00
delay_2ms 
end procedure

procedure X is
port_b = 0x41
delay_2ms 
port_b = 0x22
delay_2ms 
port_b = 0x1C
delay_2ms 
port_b = 0x22
delay_2ms 
port_b = 0x41
delay_2ms 
port_b = 0x00
delay_2ms 
port_b = 0x00
delay_2ms 
end procedure

procedure Y is
port_b = 0x40
delay_2ms 
port_b = 0x20
delay_2ms 
port_b = 0x1F
delay_2ms 
port_b = 0x20
delay_2ms 
port_b = 0x40
delay_2ms 
port_b = 0x00
delay_2ms 
port_b = 0x00
delay_2ms 
end procedure

procedure Z is
port_b = 0x43
delay_2ms 
port_b = 0x45
delay_2ms 
port_b = 0x49
delay_2ms 
port_b = 0x51
delay_2ms 
port_b = 0x61
delay_2ms 
port_b = 0x00
delay_2ms 
port_b = 0x00
delay_2ms 
end procedure

procedure SPACE is
port_b = 0x00
delay_2ms 
port_b = 0x00
delay_2ms 
port_b = 0x00
delay_2ms 
port_b = 0x00
delay_2ms 
port_b = 0x00
delay_2ms 
port_b = 0x00
delay_2ms 
port_b = 0x00
delay_2ms 
end procedure

-- **** Schrijf hier je eigen tekst. ****
-- alleen de letters A t/m Z kunnen gekozen worden, geen tekens.
-- voor een spatie typ "SPACE" .

forever loop
SPACE
W
E
S
L
E
Y
SPACE
END LOOP