Revision: 1705
Author: jsuijs
Date: Thu Feb 25 07:09:19 2010
Log: change to reproduce bug and comply to jsg
http://code.google.com/p/jallib/source/detail?r=1705
Modified:
/trunk/include/external/lcd/lcd_nokia3310.jal
=======================================
--- /trunk/include/external/lcd/lcd_nokia3310.jal Thu Feb 25 06:42:09 2010
+++ /trunk/include/external/lcd/lcd_nokia3310.jal Thu Feb 25 07:09:19 2010
@@ -19,7 +19,7 @@
include delay
-const byte FontLookup[] =
+const byte font_lookup[] =
{
0x00, 0x00, 0x00, 0x00, 0x00, -- sp
0x00, 0x00, 0x2f, 0x00, 0x00, -- !
@@ -116,7 +116,7 @@
-procedure _lcd_write (byte in value) is
+procedure _lcd_write(byte in value) is
-- Clock in 8 bits of data
for 8 loop
nok_sclk = low
@@ -133,7 +133,7 @@
-- Write a data byte to the LCD
-procedure _lcd_write_data (byte in value) is
+procedure _lcd_write_data(byte in value) is
nok_dc = high -- d/c line high for data
_lcd_write (value)
end procedure
@@ -141,7 +141,7 @@
-- Write a command byte to the LCD
-procedure _lcd_write_command (byte in value) is
+procedure _lcd_write_command(byte in value) is
nok_dc = low -- d/c line low for command
_lcd_write (value)
nok_dc = high -- set d/c to data
@@ -151,7 +151,7 @@
-- Set the current position for data (x = 0->83, y = 0->5)
-procedure lcd_gotoxy (byte in xnokia, byte in ynokia) is
+procedure lcd_gotoxy(byte in xnokia, byte in ynokia) is
_lcd_write_command ( 0x40 | ( ynokia & 0x07 ))
_lcd_write_command ( 0x80 | ( xnokia & 0x7f ))
end procedure
@@ -175,7 +175,7 @@
end procedure
-- Send LCD Initialization
-procedure lcd_Init() is
+procedure lcd_init() is
-- Set initial status of LCD pins
nok_sclk = low
nok_sda = low
@@ -202,7 +202,7 @@
-- Writes a character to the display
-procedure print_char_5x7 (byte in letter) is
+procedure print_char_5x7(byte in letter) is
var word index = 0
var byte offset
var byte x
@@ -214,7 +214,7 @@
end loop
for 5 loop
- x = FontLookup[index]
+ x = font_lookup[index]
_lcd_write_data (x)
index = index + 1
end loop
@@ -226,7 +226,7 @@
-- Writes an inverted character to the display
-procedure print_char_5x7_i (byte in letter) is
+procedure print_char_5x7_i(byte in letter) is
var word index = 0
var byte offset
var byte x
@@ -238,7 +238,7 @@
end loop
for 5 loop
- x = FontLookup[index]
+ x = font_lookup[index]
x = x ^ 0xFF
_lcd_write_data (x)
index = index + 1
@@ -282,5 +282,5 @@
--
----------------------------------------------------------------------------
procedure lcd'put(byte in data) is
; pragma inline -- disabled due to complier bug with inline +
pseudovar/arrays.
- _lcd_write_data(data)
+ print_char_5x7(data)
end procedure
--
You received this message because you are subscribed to the Google Groups
"jallib" group.
To post to this group, send email to [email protected].
To unsubscribe from this group, send email to
[email protected].
For more options, visit this group at
http://groups.google.com/group/jallib?hl=en.
