Author: sebastien.lelong
Date: Sun Feb 15 13:49:39 2009
New Revision: 800
Modified:
trunk/include/external/lcd/lcd_addition.jal
Log:
nit-picking: no space between proc name and opening parenthesis
Modified: trunk/include/external/lcd/lcd_addition.jal
==============================================================================
--- trunk/include/external/lcd/lcd_addition.jal (original)
+++ trunk/include/external/lcd/lcd_addition.jal Sun Feb 15 13:49:39 2009
@@ -529,21 +529,21 @@
--
-----------------------------------------------------------------------------
-- Displays a byte value in Hex,
--
-----------------------------------------------------------------------------
-procedure lcd_bvalue_hex ( byte in value) is
+procedure lcd_bvalue_hex( byte in value) is
var byte temp
- lcd_write_data ("0")
- lcd_write_data ("x")
+ lcd_write_data("0")
+ lcd_write_data("x")
temp = value >> 4
if temp < 10 then
- lcd_write_data (temp + 48)
+ lcd_write_data(temp + 48)
else
- lcd_write_data (temp + 55)
+ lcd_write_data(temp + 55)
end if
value = value & 0b00001111
if value < 10 then
- lcd_write_data (value + 48)
+ lcd_write_data(value + 48)
else
- lcd_write_data (value + 55)
+ lcd_write_data(value + 55)
end if
end procedure
@@ -554,35 +554,35 @@
--
-----------------------------------------------------------------------------
-- Displays a word value in Hex,
--
-----------------------------------------------------------------------------
-procedure lcd_wvalue_hex ( word in value) is
+procedure lcd_wvalue_hex( word in value) is
var word temp
- lcd_write_data ("0")
- lcd_write_data ("x")
+ lcd_write_data("0")
+ lcd_write_data("x")
temp = value >> 12
if temp < 10 then
- lcd_write_data (temp + 48)
+ lcd_write_data(temp + 48)
else
- lcd_write_data (temp + 55)
+ lcd_write_data(temp + 55)
end if
temp = value >> 8
temp = temp & 0b00001111
if temp < 10 then
- lcd_write_data (temp + 48)
+ lcd_write_data(temp + 48)
else
- lcd_write_data (temp + 55)
+ lcd_write_data(temp + 55)
end if
temp = value >> 4
temp = temp & 0b00001111
if temp < 10 then
- lcd_write_data (temp + 48)
+ lcd_write_data(temp + 48)
else
- lcd_write_data (temp + 55)
+ lcd_write_data(temp + 55)
end if
value = value & 0b0000000000001111
if value < 10 then
- lcd_write_data (value + 48)
+ lcd_write_data(value + 48)
else
- lcd_write_data (value + 55)
+ lcd_write_data(value + 55)
end if
end procedure
@@ -593,15 +593,15 @@
--
-----------------------------------------------------------------------------
-- Displays a byte value in binairy,
--
-----------------------------------------------------------------------------
-procedure lcd_bvalue_bin ( byte in value) is
+procedure lcd_bvalue_bin( byte in value) is
var bit bit7 at value : 7
- lcd_write_data ("0")
- lcd_write_data ("b")
+ lcd_write_data("0")
+ lcd_write_data("b")
for 8 loop
if bit7 then
- lcd_write_data ("1")
+ lcd_write_data("1")
else
- lcd_write_data ("0")
+ lcd_write_data("0")
end if
value = value << 1
end loop
@@ -620,7 +620,7 @@
var byte counter
for length using counter loop
- lcd_write_data (string[counter])
+ lcd_write_data(string[counter])
end loop
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
-~----------~----~----~----~------~----~------~--~---
