Revision: 1623
Author: jsuijs
Date: Mon Jan 25 03:11:14 2010
Log: Extension of debug function (to address build errors)
http://code.google.com/p/jallib/source/detail?r=1623
Modified:
/trunk/include/external/lcd/lcd_hd44780_4.jal
=======================================
--- /trunk/include/external/lcd/lcd_hd44780_4.jal Sun Jan 24 12:06:20 2010
+++ /trunk/include/external/lcd/lcd_hd44780_4.jal Mon Jan 25 03:11:14 2010
@@ -160,10 +160,8 @@
--
----------------------------------------------------------------------------
procedure lcd_debug_hardware_interface(byte in speed) is
forever loop
-
- lcd_dataport = 0
- lcd_en = false
- lcd_rs = false
+
+ if (defined(lcd_dataport) == TRUE) then
lcd_dataport = 1
delay_1ms(speed)
@@ -176,18 +174,34 @@
lcd_dataport = 8
delay_1ms(speed)
-
lcd_dataport = 0
- lcd_en = true
- delay_1ms(speed)
-
- lcd_en = false
- lcd_rs = true
+
+ else
+
+ lcd_d4 = true
delay_1ms(speed)
-
- lcd_dataport = 0
- lcd_en = false
- lcd_rs = false
+ lcd_d4 = false
+
+ lcd_d5 = true
+ delay_1ms(speed)
+ lcd_d5 = false
+
+ lcd_d6 = true
+ delay_1ms(speed)
+ lcd_d6 = false
+
+ lcd_d5 = true
+ delay_1ms(speed)
+ lcd_d7 = false
+ end if
+
+ lcd_en = true
+ delay_1ms(speed)
+ lcd_en = false
+
+ lcd_rs = true
+ delay_1ms(speed)
+ lcd_rs = false
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.
