;Microcontroller: 12f629 Speed: 4 Mhz Internal RC
delay 200 miliseconds
Set Comparator Mode 7
variable byte f = 00000000b ; Output data
variable byte s ; Temporal variable
variable byte o ; message number.
procedure salida( s as byte ) is
gpio = s
delay 500 us
gpio = 00000000b
delay 200 us
end procedure
procedure disp ( f as byte ) is
if f = "0" then f = "O"
if f = "A" then
salida(0011_0110)
salida(0000_0101)
salida(0000_0101)
salida(0011_0110)
end if
if f = "B" then
salida(0011_0111)
salida(0010_0101)
salida(0010_0101)
salida(0001_0010)
end if
if f = "C" then
salida(0001_0110)
salida(0010_0001)
salida(0010_0001)
salida(0010_0001)
end if
if f = "D" then
salida(0011_0111)
salida(0010_0001)
salida(0010_0001)
salida(0001_0110)
end if
if f = "E" then
salida(0011_0111)
salida(0010_0101)
salida(0010_0101)
salida(0010_0001)
end if
if f = "F" then
salida(0011_0111)
salida(0000_0101)
salida(0000_0101)
salida(0000_0001)
end if
if f = "G" then
salida(0001_0110)
salida(0010_0001)
salida(0010_0101)
salida(0011_0101)
end if
if f = "H" then
salida(0011_0111)
salida(0000_0100)
salida(0000_0100)
salida(0011_0111)
end if
if f = "I" then
salida(0010_0001)
salida(0011_0111)
salida(0010_0001)
end if
if f = "J" then
salida(0001_0000)
salida(0010_0000)
salida(0010_0000)
salida(0001_0111)
end if
if f = "K" then
salida(0011_0111)
salida(0000_0100)
salida(0001_0010)
salida(0010_0001)
end if
if f = "L" then
salida(0011_0111)
salida(0010_0000)
salida(0010_0000)
salida(0010_0000)
end if
if f = "M" then
salida(0011_0111)
salida(0000_0010)
salida(0000_0100)
salida(0000_0010)
salida(0011_1111)
end if
if f = "N" then
salida(0011_0111)
salida(0000_0010)
salida(0000_0100)
salida(0001_0000)
salida(0011_0111)
end if
if f = "O" then
salida(0001_0110)
salida(0010_0001)
salida(0010_0001)
salida(0001_0110)
end if
if f = "P" then
salida(0011_0111)
salida(0000_0101)
salida(0000_0101)
salida(0000_0010)
end if
if f = "Q" then
salida(0001_0110)
salida(0010_0001)
salida(0011_0001)
salida(0011_0110)
end if
if f = "R" then
salida(0011_0111)
salida(0000_0101)
salida(0000_0101)
salida(0011_0010)
end if
if f = "S" then
salida(0010_0010)
salida(0010_0101)
salida(0010_0101)
salida(0001_0001)
end if
if f = "T" then
salida(0000_0001)
salida(0011_0111)
salida(0000_0001)
end if
if f = "U" then
salida(0001_0111)
salida(0010_0000)
salida(0010_0000)
salida(0001_0111)
end if
if f = "V" then
salida(0000_0111)
salida(0001_0000)
salida(0010_0000)
salida(0001_0000)
salida(0000_0111)
end if
if f = "W" then
salida(0011_0111)
salida(0001_0000)
salida(0000_0100)
salida(0001_0000)
salida(0011_0111)
end if
if f = "X" then
salida(0010_0001)
salida(0001_0010)
salida(0000_0100)
salida(0001_0010)
salida(0010_0001)
end if
if f = "Y" then
salida(0000_0001)
salida(0000_0010)
salida(0011_0100)
salida(0000_0010)
salida(0000_0001)
end if
if f = "Z" then
salida(0011_0001)
salida(0010_0101)
salida(0010_0101)
salida(0010_0011)
end if
if f = "1" then
salida(0010_0001)
salida(0011_0111)
salida(0010_0000)
end if
if f = "h" then ; 'h' lowercase = Hearth character
salida(0000_0010)
salida(0000_0111)
salida(0001_0111)
salida(0011_0110)
salida(0001_0111)
salida(0000_0111)
salida(0000_0010)
end if
if f = "!" then
salida(0000_0000)
salida(0010_0111)
salida(0000_0000)
end if
if f = "'" then
salida(0000_0011)
end if
if f = "." then
salida(0010_0000)
end if
if f = "o" then ; 'o' Lowecase
salida(0001_0000)
salida(0010_0100)
salida(0010_0100)
salida(0001_0000)
end if
if f = " " then ; space character.
delay 4 miliseconds
end if
delay 1 milisecond
end procedure
; main program
gpio = all output
if o = 0 then
; Display "ANTHONY"
o = o + 1
anthony loop
disp("A")
disp("N")
disp("T")
disp("H")
disp("O")
disp("N")
disp("Y")
disp(" ")
disp("h")
end loop
end if
o = 0
salida(0000_0000)
sleep microcontroller ; sleep command
nop ; No operation