Author: jsuijs
Date: Tue Nov 11 23:18:17 2008
New Revision: 534
Modified:
trunk/unvalidated/sample/by_device/16f877/lcd_hd44780_tmp_4_line.jal
trunk/unvalidated/sample/by_device/16f877/lcd_hd44780_tmp_8_line.jal
trunk/unvalidated/sample/by_device/16f877/lcd_st7036.jal
trunk/unvalidated/sample/by_device/16f877/lcd_st7036_and_rtc_ds1302.jal
trunk/unvalidated/sample/by_device/16f877/rtc_ds1302.jal
Log:
try to fix some buidlbot errors
Modified:
trunk/unvalidated/sample/by_device/16f877/lcd_hd44780_tmp_4_line.jal
==============================================================================
--- trunk/unvalidated/sample/by_device/16f877/lcd_hd44780_tmp_4_line.jal
(original)
+++ trunk/unvalidated/sample/by_device/16f877/lcd_hd44780_tmp_4_line.jal
Tue Nov 11 23:18:17 2008
@@ -1,5 +1,5 @@
-- ------------------------------------------------------
--- Title: Test LCD_HD44780_4_line
+-- Title: Test lcd_HD44780_4_line
--
-- Author: Richard Zengerink, Copyright (c) 2008..2008, all rights
reserved.
--
@@ -10,7 +10,7 @@
-- This file is part of jallib (http://jallib.googlecode.com)
-- Released under the BSD license
(http://www.opensource.org/licenses/bsd-license.php)
--
--- Description: Testing LCD_HD44780_4_line lib on a 16f877
+-- Description: Testing lcd_HD44780_4_line lib on a 16f877
--
-- Sources:
--
@@ -128,7 +128,7 @@
- ------------- LCD Variables ---------
+ ------------- lcd Variables ---------
var bit not_connected
@@ -185,18 +185,18 @@
- var byte Data
+ var byte data
var word wvalue = 0
var byte value = 0
var byte value1 = 0
var byte test = 0
- var byte HRS = 12
- var byte MIN = 55
- var byte SEC = 40
- var byte YEAR = 08
- var word YEARW = 2008
- var byte MOUNTH = 09
- var byte DAY = 03
+ var byte hrs = 12
+ var byte min = 55
+ var byte sec = 40
+ var byte year = 08
+ var word yearw = 2008
+ var byte mounth = 09
+ var byte day = 03
const byte teststring[] = "display"
@@ -276,25 +276,25 @@
wvalue = 5000
while wvalue != 0 loop
- LCD_wvalue_dp_line_pos_left_sign ( wvalue, 2, 2, 7, true,
false)
+ lcd_wvalue_dp_line_pos_left_sign ( wvalue, 2, 2, 7, true,
false)
wvalue = wvalue - 1
delay_1ms(3)
end loop
- LCD_wvalue_dp_line_pos_left_sign ( wvalue, 2, 2, 7, true,
false)
+ lcd_wvalue_dp_line_pos_left_sign ( wvalue, 2, 2, 7, true,
false)
delay_100ms (20)
lcd_clear
lcd_new_line_cursor_position (1, 5)
- lcd_date ( DAY, MOUNTH, YEAR, "-", true )
+ lcd_date ( day, mounth, year, "-", true )
- while SEC< 59 loop
+ while sec< 59 loop
lcd_new_line_cursor_position (2, 5)
- lcd_time ( HRS, MIN, SEC, ":" )
- SEC = SEC + 1
+ lcd_time ( hrs, min, sec, ":" )
+ sec = sec + 1
delay_100ms (10)
end loop
lcd_new_line_cursor_position (1, 5)
- lcd_date ( DAY, MOUNTH, YEARW, "/", false )
+ lcd_date ( day, mounth, yearw, "/", false )
delay_100ms (30)
lcd_clear
Modified:
trunk/unvalidated/sample/by_device/16f877/lcd_hd44780_tmp_8_line.jal
==============================================================================
--- trunk/unvalidated/sample/by_device/16f877/lcd_hd44780_tmp_8_line.jal
(original)
+++ trunk/unvalidated/sample/by_device/16f877/lcd_hd44780_tmp_8_line.jal
Tue Nov 11 23:18:17 2008
@@ -1,5 +1,5 @@
-- ------------------------------------------------------
--- Title: Test LCD_HD44780_8_line
+-- Title: Test lcd_HD44780_8_line
--
-- Author: Richard Zengerink, Copyright (c) 2008..2008, all rights
reserved.
--
@@ -10,7 +10,7 @@
-- This file is part of jallib (http://jallib.googlecode.com)
-- Released under the BSD license
(http://www.opensource.org/licenses/bsd-license.php)
--
--- Description: Testing LCD_HD44780_8_line lib on a 16f877
+-- Description: Testing lcd_HD44780_8_line lib on a 16f877
--
-- Sources:
--
@@ -128,7 +128,7 @@
- ------------- LCD Variables ---------
+ ------------- lcd Variables ---------
var bit not_connected
@@ -185,18 +185,18 @@
- var byte Data
+ var byte data
var word wvalue = 0
var byte value = 0
var byte value1 = 0
var byte test = 0
- var byte HRS = 12
- var byte MIN = 55
- var byte SEC = 40
- var byte YEAR = 08
- var word YEARW = 2008
- var byte MOUNTH = 09
- var byte DAY = 03
+ var byte hrs = 12
+ var byte min = 55
+ var byte sec = 40
+ var byte year = 08
+ var word yearw = 2008
+ var byte mounth = 09
+ var byte day = 03
const byte teststring[] = "display"
@@ -276,11 +276,11 @@
wvalue = 5000
while wvalue != 0 loop
- LCD_wvalue_dp_line_pos_left_sign ( wvalue, 2, 2, 7, true,
false)
+ lcd_wvalue_dp_line_pos_left_sign ( wvalue, 2, 2, 7, true,
false)
wvalue = wvalue - 1
delay_1ms(3)
end loop
- LCD_wvalue_dp_line_pos_left_sign ( wvalue, 2, 2, 7, true,
false)
+ lcd_wvalue_dp_line_pos_left_sign ( wvalue, 2, 2, 7, true,
false)
delay_100ms (20)
lcd_clear
Modified: trunk/unvalidated/sample/by_device/16f877/lcd_st7036.jal
==============================================================================
--- trunk/unvalidated/sample/by_device/16f877/lcd_st7036.jal (original)
+++ trunk/unvalidated/sample/by_device/16f877/lcd_st7036.jal Tue Nov 11
23:18:17 2008
@@ -1,5 +1,5 @@
-- ------------------------------------------------------
--- Title: Test LCD_ST7036 and RTC_DS1302
+-- Title: Test lcd_ST7036 and RTC_DS1302
--
-- Author: Richard Zengerink, Copyright (c) 2008..2008, all rights
reserved.
--
@@ -10,7 +10,7 @@
-- This file is part of jallib (http://jallib.googlecode.com)
-- Released under the BSD license
(http://www.opensource.org/licenses/bsd-license.php)
--
--- Description: Testing LCD_ST7036 and RTC_DS1302 libs on a 16f877
+-- Description: Testing lcd_ST7036 and RTC_DS1302 libs on a 16f877
--
-- Sources:
--
@@ -125,36 +125,36 @@
-------------------------------------------------------------------------
------------------ LCD related parameters and include file ---------------
+----------------- lcd related parameters and include file ---------------
-------------------------------------------------------------------------
var bit not_connected
- var volatile bit LCD_data is pin_a0
- var volatile bit LCD_data_dir is pin_a0_direction
- var volatile bit LCD_clk is pin_a1
- var volatile bit LCD_rs is pin_a2 -- data/command select
- var volatile bit LCD_csb is pin_a3
-
- var volatile bit LCD_enable is not_connected
- var volatile bit LCD_rw is not_connected
+ var volatile bit lcd_data is pin_a0
+ var volatile bit lcd_data_dir is pin_a0_direction
+ var volatile bit lcd_clk is pin_a1
+ var volatile bit lcd_rs is pin_a2 -- data/command select
+ var volatile bit lcd_csb is pin_a3
+
+ var volatile bit lcd_enable is not_connected
+ var volatile bit lcd_rw is not_connected
- var volatile bit LCD_d0 is not_connected
- var volatile bit LCD_d1 is not_connected
- var volatile bit LCD_d2 is not_connected
- var volatile bit LCD_d3 is not_connected
- var volatile bit LCD_d4 is not_connected
- var volatile bit LCD_d5 is not_connected
- var volatile bit LCD_d6 is not_connected
- var volatile bit LCD_d7 is not_connected
-
-
- const LCD_hardware = 1 ;4 is 4 line, 8 = 8 line and 1 = serial
- const LCD_number_of_display_lines = 2
- const LCD_number_of_display_characters = 16
+ var volatile bit lcd_d0 is not_connected
+ var volatile bit lcd_d1 is not_connected
+ var volatile bit lcd_d2 is not_connected
+ var volatile bit lcd_d3 is not_connected
+ var volatile bit lcd_d4 is not_connected
+ var volatile bit lcd_d5 is not_connected
+ var volatile bit lcd_d6 is not_connected
+ var volatile bit lcd_d7 is not_connected
+
+
+ const lcd_hardware = 1 ;4 is 4 line, 8 = 8 line and 1 = serial
+ const lcd_number_of_display_lines = 2
+ const lcd_number_of_display_characters = 16
include lcd_st7036
@@ -206,22 +206,22 @@
- var volatile bit BACKLIGHT is pin_a5
+ var volatile bit backlight is pin_a5
- var byte Data
+ var byte data
var word wvalue = 0
var byte value = 0
var byte value1 = 0
var byte test = 0
- var byte HRS = 12
- var byte MIN = 55
- var byte SEC = 40
- var byte YEAR = 08
- var word YEARW = 2008
- var byte MOUNTH = 09
- var byte DAY = 03
+ var byte hrs = 12
+ var byte min = 55
+ var byte sec = 40
+ var byte year = 08
+ var word yearw = 2008
+ var byte mounth = 09
+ var byte day = 03
const byte teststring[] = "display"
@@ -299,25 +299,25 @@
wvalue = 5000
while wvalue != 0 loop
- LCD_wvalue_dp_line_pos_left_sign ( wvalue, 2, 2, 7, true,
false)
+ lcd_wvalue_dp_line_pos_left_sign ( wvalue, 2, 2, 7, true,
false)
wvalue = wvalue - 1
delay_1ms(3)
end loop
- LCD_wvalue_dp_line_pos_left_sign ( wvalue, 2, 2, 7, true,
false)
+ lcd_wvalue_dp_line_pos_left_sign ( wvalue, 2, 2, 7, true,
false)
delay_100ms (20)
lcd_clear()
lcd_new_line_cursor_position (1, 5)
- lcd_date ( DAY, MOUNTH, YEAR, "-", true )
+ lcd_date ( day, mounth, year, "-", true )
- while SEC< 59 loop
+ while sec< 59 loop
lcd_new_line_cursor_position (2, 5)
- lcd_time ( HRS, MIN, SEC, ":" )
- SEC = SEC + 1
+ lcd_time ( hrs, min, sec, ":" )
+ sec = sec + 1
delay_100ms (10)
end loop
lcd_new_line_cursor_position (1, 5)
- lcd_date ( DAY, MOUNTH, YEARW, "/", false )
+ lcd_date ( day, mounth, yearw, "/", false )
delay_100ms (30)
lcd_clear()
Modified:
trunk/unvalidated/sample/by_device/16f877/lcd_st7036_and_rtc_ds1302.jal
==============================================================================
--- trunk/unvalidated/sample/by_device/16f877/lcd_st7036_and_rtc_ds1302.jal
(original)
+++ trunk/unvalidated/sample/by_device/16f877/lcd_st7036_and_rtc_ds1302.jal
Tue Nov 11 23:18:17 2008
@@ -1,4 +1,22 @@
--- JAL 2.0.4
+-- ------------------------------------------------------
+-- Title: Test lcd st7036 and ds1302.jal
+--
+-- Author: Richard Zengerink, Copyright (c) 2008..2008, all rights
reserved.
+--
+-- Adapted-by:
+--
+-- Compiler: =2.4 --
+-- This file is part of jallib (http://jallib.googlecode.com)
+-- Released under the BSD license
(http://www.opensource.org/licenses/bsd-license.php)
+--
+-- Description: Testing rtc_ds1302 with lcd_st7036 on a 16f877
+--
+-- Sources:
+--
+-- Notes:
+--
+--
+-- --------------------------------------------------------
;WRITEN BY: R.P.M. ZENGERINK
;KREHALON INDUSTRIE B.V.
;LONDENSTRAAT 10
@@ -6,19 +24,15 @@
;
;DATE:04-08-2008
;VERSION:1.0
-;FILENAME:Test LCD st7036 and ds1302.jal
+;FILENAME:Test lcd st7036 and ds1302.jal
;CPU: 16F877
;CLOCK:20Mhz
-;
-;
-;
-;
-;
+
------------- INCLUDE files ----------------------------------------
pragma target clock 20_000_000 ;
-include 16f877_ok
+include 16f877
---initial config (addr 2007h) for config PIC-chip page 120 --------
@@ -76,14 +90,14 @@
-Serial_HW_enable ; zet hardware voor uart aan
+serial_hw_enable ; zet hardware voor uart aan
-GIE = 1 ;general interupt enabled
-PEIE = 1 ;Peripheral interupt enabled
-T0IE = 0 ;timer 0 interupt disabled
-TMR1IE = 0 ;timer 1 interupt disabled
+gie = 1 ;general interupt enabled
+peie = 1 ;peripheral interupt enabled
+t0ie = 0 ;timer 0 interupt disabled
+tmr1ie = 0 ;timer 1 interupt disabled
------------- OPTION register met timer0 -------------------------------
-OPTION_REG = 0B0000_0111
+option_reg = 0b0000_0111
;NOT_RBPU at OPTION_REG : 7 = 0 0 = weak pull-up on port B
;intedg at OPTION_REG : 6 = 0 1 = opgaande flank interupt op RB0
;T0CS at OPTION_REG : 5 = 0 internal instruction cycle clock
@@ -94,7 +108,7 @@
;PS0 at OPTION_REG : 0 = 1 timer0
--------- timer1-----------
- T1CON = 0B0011_0100
+ t1con = 0b0011_0100
;not used at T1CON : 7 = 0
;T1RUN at T1CON : 6 = 0 ;wordt geset als interne clock op T1
loopt
;T1CKPS1 at T1CON : 5 = 1 ; samen met T1CKPSO prescaler
@@ -110,36 +124,36 @@
-------------------------------------------------------------------------
----------------------------- LCD Variables ------------------------------
+---------------------------- lcd Variables ------------------------------
-------------------------------------------------------------------------
var bit not_connected
- var volatile bit LCD_data is pin_a0
- var volatile bit LCD_data_dir is pin_a0_direction
- var volatile bit LCD_clk is pin_a1
- var volatile bit LCD_rs is pin_a2 -- data/command select
- var volatile bit LCD_csb is pin_a3
-
- var volatile bit LCD_enable is not_connected
- var volatile bit LCD_rw is not_connected
+ var volatile bit lcd_data is pin_a0
+ var volatile bit lcd_data_dir is pin_a0_direction
+ var volatile bit lcd_clk is pin_a1
+ var volatile bit lcd_rs is pin_a2 -- data/command select
+ var volatile bit lcd_csb is pin_a3
+
+ var volatile bit lcd_enable is not_connected
+ var volatile bit lcd_rw is not_connected
- var volatile bit LCD_d0 is not_connected
- var volatile bit LCD_d1 is not_connected
- var volatile bit LCD_d2 is not_connected
- var volatile bit LCD_d3 is not_connected
- var volatile bit LCD_d4 is not_connected
- var volatile bit LCD_d5 is not_connected
- var volatile bit LCD_d6 is not_connected
- var volatile bit LCD_d7 is not_connected
-
-
- const LCD_hardware = 1 ;4 is 4 line, 8 = 8 line and 1 = serial
- const LCD_number_of_display_lines = 2
- const LCD_number_of_display_characters = 16
+ var volatile bit lcd_d0 is not_connected
+ var volatile bit lcd_d1 is not_connected
+ var volatile bit lcd_d2 is not_connected
+ var volatile bit lcd_d3 is not_connected
+ var volatile bit lcd_d4 is not_connected
+ var volatile bit lcd_d5 is not_connected
+ var volatile bit lcd_d6 is not_connected
+ var volatile bit lcd_d7 is not_connected
+
+
+ const lcd_hardware = 1 ;4 is 4 line, 8 = 8 line and 1 = serial
+ const lcd_number_of_display_lines = 2
+ const lcd_number_of_display_characters = 16
include lcd_st7036_rz
@@ -152,15 +166,15 @@
---------------------------- RTC Variables ------------------------------
-------------------------------------------------------------------------
- var bit RTC_CE is pin_c5 -- out
- var bit RTC_SCLK is pin_c3 -- out
- var bit RTC_IO is pin_c4 -- in/out
- var volatile bit RTC_IODir is pin_c4_direction ; bidirectional
+ var bit rtc_ce is pin_c5 -- out
+ var bit rtc_sclk is pin_c3 -- out
+ var bit rtc_io is pin_c4 -- in/out
+ var volatile bit rtc_iodir is pin_c4_direction ; bidirectional
- var byte RTC_DIODE = 1 ; DIODE = 1 or DIODE = 2
- var byte RTC_RESISTOR = 8 ; RESISTOR = 0 (0ohm) RESISTOR = 2 (2K),
+ var byte rtc_diode = 1 ; DIODE = 1 or DIODE = 2
+ var byte rtc_resistor = 8 ; RESISTOR = 0 (0ohm) RESISTOR = 2 (2K),
; RESISTOR = 4 (4K) or RESISTOR = 8 (8K)
- var bit RTC_TRICKEL = ON ; TRICKEL = ON or TRICKEL = OFF (no charging)
+ var bit rtc_trickel = on ; TRICKEL = ON or TRICKEL = OFF (no charging)
include ds1302_rz
@@ -181,7 +195,7 @@
-procedure Encoder is
+procedure encoder() is
pragma interrupt
----------------Interupt ingang INT(RB0) ---------------------
@@ -211,16 +225,16 @@
- var volatile bit BACKLIGHT is pin_a5
+ var volatile bit backlight is pin_a5
- var byte Data
+ var byte data
var word wvalue = 0
var byte value = 0
var byte value1 = 0
var byte test = 0
- var word YEARW
+ var word yearw
const byte teststring[] = "display"
@@ -238,17 +252,17 @@
lcd_new_line_cursor_position (2, 1)
for testlength loop
- Data = teststring[value]
+ data = teststring[value]
lcd_write_data (data)
value = value + 1
end loop
- BACKLIGHT = on
+ backlight = on
delay_1s(1)
lcd_shift_right (6)
delay_1s(1)
lcd_shift_left (4)
delay_1s(1)
- BACKLIGHT = off
+ backlight = off
lcd_cursor_blink_display (on,on,on)
delay_1s(1)
lcd_cursor_shift_left (4)
@@ -260,7 +274,7 @@
lcd_home
delay_1s(1)
lcd_clear
- BACKLIGHT = on
+ backlight = on
lcd_cursor_blink_display (off,off,on)
lcd_clear_line (2)
value = 0
@@ -268,12 +282,12 @@
lcd_bvalue_dp_line_pos_left_sign ( value, 0, 1, 5, true, false)
value = value + 1
delay_5ms(10)
- lcd_progress (2, (value/17)+1 , 0xDB)
+ lcd_progress (2, (value/17)+1 , 0xdb)
end loop
lcd_bvalue_dp_line_pos_left_sign ( value, 0, 1, 5, true, false)
lcd_clear
- BACKLIGHT = off
+ backlight = off
lcd_bvalue_dp_line_pos_left_sign ( 200, 0, 1, 1, true, false)
delay_1s(1)
lcd_bvalue_dp_line_pos_left_sign ( 5, 0, 1, 5, true, false)
@@ -301,28 +315,28 @@
wvalue = 5000
while wvalue != 0 loop
- LCD_wvalue_dp_line_pos_left_sign ( wvalue, 2, 2, 7, true,
false)
+ lcd_wvalue_dp_line_pos_left_sign ( wvalue, 2, 2, 7, true,
false)
wvalue = wvalue - 1
delay_1ms(3)
end loop
- LCD_wvalue_dp_line_pos_left_sign ( wvalue, 2, 2, 7, true,
false)
+ lcd_wvalue_dp_line_pos_left_sign ( wvalue, 2, 2, 7, true,
false)
delay_1s(2)
lcd_clear
- RTC_READ(0x87,DAY)
- RTC_TO_DEC ( DAY )
- RTC_READ(0x89,MOUNTH)
- RTC_TO_DEC (MOUNTH)
- RTC_READ(0x8D,YEAR)
- RTC_TO_DEC (YEAR)
+ rtc_read(0x87,day)
+ rtc_to_dec ( day )
+ rtc_read(0x89,mounth)
+ rtc_to_dec (mounth)
+ rtc_read(0x8d,year)
+ rtc_to_dec (year)
lcd_new_line_cursor_position (1, 5)
- lcd_date ( DAY, MOUNTH, YEAR, "-", true )
+ lcd_date ( day, mounth, year, "-", true )
delay_1s(2)
- BACKLIGHT = off
+ backlight = off
lcd_new_line_cursor_position (1, 5)
- lcd_date ( DAY, MOUNTH, 2000+ YEAR, "/", false )
+ lcd_date ( day, mounth, 2000+ year, "/", false )
delay_1s(3)
lcd_clear
@@ -353,24 +367,24 @@
lcd_clear
- BACKLIGHT = on
+ backlight = on
forever loop
- RTC_READ(0x81,SECOND)
- RTC_TO_DEC ( SECOND )
- RTC_READ(0x83,MINUT)
- RTC_TO_DEC (MINUT )
- RTC_READ(0x85,HRS)
- RTC_TO_DEC (HRS )
- LCD_new_line_cursor_position (1, 3)
- LCD_time ( HRS, MINUT, SECOND, ":" )
- RTC_READ(0x87,DAY)
- RTC_TO_DEC ( DAY )
- RTC_READ(0x89,MOUNTH)
- RTC_TO_DEC (MOUNTH)
- RTC_READ(0x8D,YEAR)
- RTC_TO_DEC (YEAR)
- LCD_new_line_cursor_position (2, 3)
- LCD_date ( DAY, MOUNTH, 2000 + YEAR, "-", true )
+ rtc_read(0x81,second)
+ rtc_to_dec ( second )
+ rtc_read(0x83,minut)
+ rtc_to_dec (minut )
+ rtc_read(0x85,hrs)
+ rtc_to_dec (hrs )
+ lcd_new_line_cursor_position (1, 3)
+ lcd_time ( hrs, minut, second, ":" )
+ rtc_read(0x87,day)
+ rtc_to_dec ( day )
+ rtc_read(0x89,mounth)
+ rtc_to_dec (mounth)
+ rtc_read(0x8d,year)
+ rtc_to_dec (year)
+ lcd_new_line_cursor_position (2, 3)
+ lcd_date ( day, mounth, 2000 + year, "-", true )
delay_5ms(20)
end loop
Modified: trunk/unvalidated/sample/by_device/16f877/rtc_ds1302.jal
==============================================================================
--- trunk/unvalidated/sample/by_device/16f877/rtc_ds1302.jal (original)
+++ trunk/unvalidated/sample/by_device/16f877/rtc_ds1302.jal Tue Nov 11
23:18:17 2008
@@ -17,9 +17,6 @@
--
--
-- ------------------------------------------------------
---
---
---
-- DATE:22-09-2008
-- VERSION:1.1
-- CPU: 16F877
@@ -128,36 +125,36 @@
-------------------------------------------------------------------------
----------------------------- LCD Variables ------------------------------
+---------------------------- lcd Variables ------------------------------
-------------------------------------------------------------------------
var bit not_connected
- var volatile bit LCD_data is pin_a0
- var volatile bit LCD_data_dir is pin_a0_direction
- var volatile bit LCD_clk is pin_a1
- var volatile bit LCD_rs is pin_a2 -- data/command select
- var volatile bit LCD_csb is pin_a3
-
- var volatile bit LCD_enable is not_connected
- var volatile bit LCD_rw is not_connected
+ var volatile bit lcd_data is pin_a0
+ var volatile bit lcd_data_dir is pin_a0_direction
+ var volatile bit lcd_clk is pin_a1
+ var volatile bit lcd_rs is pin_a2 -- data/command select
+ var volatile bit lcd_csb is pin_a3
+
+ var volatile bit lcd_enable is not_connected
+ var volatile bit lcd_rw is not_connected
- var volatile bit LCD_d0 is not_connected
- var volatile bit LCD_d1 is not_connected
- var volatile bit LCD_d2 is not_connected
- var volatile bit LCD_d3 is not_connected
- var volatile bit LCD_d4 is not_connected
- var volatile bit LCD_d5 is not_connected
- var volatile bit LCD_d6 is not_connected
- var volatile bit LCD_d7 is not_connected
-
-
- const LCD_hardware = 1 ;4 is 4 line, 8 = 8 line and 1 = serial
- const LCD_number_of_display_lines = 2
- const LCD_number_of_display_characters = 16
+ var volatile bit lcd_d0 is not_connected
+ var volatile bit lcd_d1 is not_connected
+ var volatile bit lcd_d2 is not_connected
+ var volatile bit lcd_d3 is not_connected
+ var volatile bit lcd_d4 is not_connected
+ var volatile bit lcd_d5 is not_connected
+ var volatile bit lcd_d6 is not_connected
+ var volatile bit lcd_d7 is not_connected
+
+
+ const lcd_hardware = 1 ;4 is 4 line, 8 = 8 line and 1 = serial
+ const lcd_number_of_display_lines = 2
+ const lcd_number_of_display_characters = 16
include lcd_st7036_inline_rz
@@ -170,15 +167,15 @@
---------------------------- RTC Variables ------------------------------
-------------------------------------------------------------------------
- var bit RTC_CE is pin_c5 -- out
- var bit RTC_SCLK is pin_c3 -- out
- var bit RTC_IO is pin_c4 -- in/out
- var volatile bit RTC_IODir is pin_c4_direction ; bidirectional
+ var bit rtc_ce is pin_c5 -- out
+ var bit rtc_sclk is pin_c3 -- out
+ var bit rtc_io is pin_c4 -- in/out
+ var volatile bit rtc_iodir is pin_c4_direction ; bidirectional
- var byte RTC_DIODE = 1 ; DIODE = 1 or DIODE = 2
- var byte RTC_RESISTOR = 8 ; RESISTOR = 0 (0ohm) RESISTOR = 2 (2K),
+ var byte rtc_diode = 1 ; DIODE = 1 or DIODE = 2
+ var byte rtc_resistor = 8 ; RESISTOR = 0 (0ohm) RESISTOR = 2 (2K),
; RESISTOR = 4 (4K) or RESISTOR = 8 (8K)
- var bit RTC_TRICKEL = ON ; TRICKEL = ON or TRICKEL = OFF (no charging)
+ var bit rtc_trickel = on ; TRICKEL = ON or TRICKEL = OFF (no charging)
include ds1302_rz
@@ -229,7 +226,7 @@
- var volatile bit BACKLIGHT is pin_a5
+ var volatile bit backlight is pin_a5
@@ -260,13 +257,13 @@
lcd_write_data (data)
value = value + 1
end loop
- BACKLIGHT = on
+ backlight = on
delay_100ms (10)
lcd_shift_right (6)
delay_100ms (10)
lcd_shift_left (4)
delay_100ms (10)
- BACKLIGHT = off
+ backlight = off
lcd_cursor_blink_display (on,on,on)
delay_100ms (10)
lcd_cursor_shift_left (4)
@@ -278,7 +275,7 @@
lcd_home
delay_100ms (10)
lcd_clear
- BACKLIGHT = on
+ backlight = on
lcd_cursor_blink_display (off,off,on)
lcd_clear_line (2)
value = 0
@@ -291,7 +288,7 @@
lcd_bvalue_dp_line_pos_left_sign ( value, 0, 1, 5, true, false)
lcd_clear
- BACKLIGHT = off
+ backlight = off
lcd_bvalue_dp_line_pos_left_sign ( 200, 0, 1, 1, true, false)
delay_100ms (10)
lcd_bvalue_dp_line_pos_left_sign ( 5, 0, 1, 5, true, false)
@@ -319,28 +316,28 @@
wvalue = 5000
while wvalue != 0 loop
- LCD_wvalue_dp_line_pos_left_sign ( wvalue, 2, 2, 7, true,
false)
+ lcd_wvalue_dp_line_pos_left_sign ( wvalue, 2, 2, 7, true,
false)
wvalue = wvalue - 1
delay_1ms(3)
end loop
- LCD_wvalue_dp_line_pos_left_sign ( wvalue, 2, 2, 7, true,
false)
+ lcd_wvalue_dp_line_pos_left_sign ( wvalue, 2, 2, 7, true,
false)
delay_100ms (20)
lcd_clear
- RTC_READ(0x87,DAY)
- RTC_TO_DEC ( DAY )
- RTC_READ(0x89,MOUNTH)
- RTC_TO_DEC (MOUNTH)
- RTC_READ(0x8D,YEAR)
- RTC_TO_DEC (YEAR)
+ rtc_read(0x87,day)
+ rtc_to_dec ( day )
+ rtc_read(0x89,mounth)
+ rtc_to_dec (mounth)
+ rtc_read(0x8d,year)
+ rtc_to_dec (year)
lcd_new_line_cursor_position (1, 5)
- lcd_date ( DAY, MOUNTH, YEAR, "-", true )
+ lcd_date ( day, mounth, year, "-", true )
delay_100ms (20)
- BACKLIGHT = off
+ backlight = off
lcd_new_line_cursor_position (1, 5)
- lcd_date ( DAY, MOUNTH, 2000+ YEAR, "/", false )
+ lcd_date ( day, mounth, 2000+ year, "/", false )
delay_100ms (30)
lcd_clear
@@ -371,24 +368,24 @@
lcd_clear
- BACKLIGHT = on
+ backlight = on
forever loop
- RTC_READ(0x81,SECOND)
- RTC_TO_DEC ( SECOND )
- RTC_READ(0x83,MINUT)
- RTC_TO_DEC (MINUT )
- RTC_READ(0x85,HRS)
- RTC_TO_DEC (HRS )
- LCD_new_line_cursor_position (1, 3)
- LCD_time ( HRS, MINUT, SECOND, ":" )
- RTC_READ(0x87,DAY)
- RTC_TO_DEC ( DAY )
- RTC_READ(0x89,MOUNTH)
- RTC_TO_DEC (MOUNTH)
- RTC_READ(0x8D,YEAR)
- RTC_TO_DEC (YEAR)
- LCD_new_line_cursor_position (2, 3)
- LCD_date ( DAY, MOUNTH, 2000 + YEAR, "-", true )
+ rtc_read(0x81,second)
+ rtc_to_dec ( second )
+ rtc_read(0x83,minut)
+ rtc_to_dec (minut )
+ rtc_read(0x85,hrs)
+ rtc_to_dec (hrs )
+ lcd_new_line_cursor_position (1, 3)
+ lcd_time ( hrs, minut, second, ":" )
+ rtc_read(0x87,day)
+ rtc_to_dec ( day )
+ rtc_read(0x89,mounth)
+ rtc_to_dec (mounth)
+ rtc_read(0x8d,year)
+ rtc_to_dec (year)
+ lcd_new_line_cursor_position (2, 3)
+ lcd_date ( day, mounth, 2000 + year, "-", true )
delay_100ms(1)
end loop
--~--~---------~--~----~------------~-------~--~----~
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
-~----------~----~----~----~------~----~------~--~---
