Revision: 1215 Author: [email protected] Date: Mon Aug 17 12:03:37 2009 Log: replaced var..is by alias..is http://code.google.com/p/jallib/source/detail?r=1215
Modified: /trunk/compiler/jalv2.exe /trunk/include/peripheral/pwm/pwm_hardware.jal /trunk/project/delay_calibrate/serial_hardware_hacked.jal /trunk/project/lcd_interface/lcd_interface.jal /trunk/project/pic18f14k50_usb_io/bootloader/18f14k50_usb_bootloader.jal /trunk/project/pic18f14k50_usb_io/examples/blog_part3.jal /trunk/project/pic18f14k50_usb_io/examples/board_18f14k50_usb_af.jal /trunk/project/pic18f14k50_usb_io/led_switch_test/18f14k50_led_switch_test.jal /trunk/sample/16f648a_data_eeprom.jal /trunk/sample/16f876a_keyboard_lcd.jal /trunk/sample/16f876a_rtc_lcd.jal /trunk/sample/16f876a_rtc_timeset.jal /trunk/sample/16f876a_sht.jal /trunk/sample/16f876a_t6603.jal /trunk/sample/16f876a_tc77.jal /trunk/sample/16f877_pata_hard_disk.jal /trunk/sample/16f877a_co2_t6603.jal /trunk/sample/16f877a_keyboard_lcd.jal /trunk/sample/16f877a_lcd_format.jal /trunk/sample/16f877a_rtc_lcd.jal /trunk/sample/16f877a_rtc_timeset.jal /trunk/sample/16f88_serial_hw_int_cts_echo.jal /trunk/sample/18f242_data_eeprom.jal /trunk/sample/18f2620_data_eeprom.jal ======================================= --- /trunk/compiler/jalv2.exe Fri Aug 7 12:47:25 2009 +++ /trunk/compiler/jalv2.exe Mon Aug 17 12:03:37 2009 Binary file, no diff available. ======================================= --- /trunk/include/peripheral/pwm/pwm_hardware.jal Fri Jul 31 13:18:04 2009 +++ /trunk/include/peripheral/pwm/pwm_hardware.jal Mon Aug 17 12:03:37 2009 @@ -1,7 +1,7 @@ -- Title: hardware PWM control -- Author: Sebastien Lelong, Copyright (C) 2008-2009, all rights reserved. -- Adapted-by: Albert Faber --- Compiler: >=2.4i +-- Compiler: >=2.4l -- -- This file is part of jallib (http://jallib.googlecode.com) -- Released under the ZLIB license (http://www.opensource.org/licenses/zlib-license.html) @@ -28,31 +28,31 @@ -- Alias ECCP register for PIC18f devices if defined( ECCP1CON ) == true then if defined( CCP1CON ) == false then - var volatile byte CCP1CON is ECCP1CON + alias CCP1CON is ECCP1CON end if end if if defined( ECCP2CON ) == true then if defined( CCP2CON ) == false then - var volatile byte CCP2CON is ECCP2CON + alias CCP2CON is ECCP2CON end if end if if defined( ECCP3CON ) == true then if defined( CCP3CON ) == false then - var volatile byte CCP3CON is ECCP3CON + alias CCP3CON is ECCP3CON end if end if if defined( ECCP4CON ) == true then if defined( CCP4CON ) == false then - var volatile byte CCP4CON is ECCP4CON + alias CCP4CON is ECCP4CON end if end if if defined( ECCP5CON ) == true then if defined( CCP5CON ) == false then - var volatile byte CCP5CON is ECCP5CON + alias CCP5CON is ECCP5CON end if end if ======================================= --- /trunk/project/delay_calibrate/serial_hardware_hacked.jal Wed Aug 5 23:15:29 2009 +++ /trunk/project/delay_calibrate/serial_hardware_hacked.jal Mon Aug 17 12:03:37 2009 @@ -250,8 +250,8 @@ -- ----------------------------------------------------------------------- -- some variables made available under a general (pic-independant) name -var volatile bit serial_hw_data_available is PIR1_RCIF -var volatile bit serial_hw_data_ready is PIR1_TXIF +alias serial_hw_data_available is PIR1_RCIF +alias serial_hw_data_ready is PIR1_TXIF -- These are real raw procedures, declared as pseudo variables -- the user is totally responsible for testing the transmit/receive ======================================= --- /trunk/project/lcd_interface/lcd_interface.jal Tue Mar 31 01:19:47 2009 +++ /trunk/project/lcd_interface/lcd_interface.jal Mon Aug 17 12:03:37 2009 @@ -1,8 +1,8 @@ -- ----------------------------------------------------------------------------- -- Title: LCD interface - interfaces to an HD44780 compatible LCDs -- Author: Joep Suijs, Copyright (c) 2008..2009, all rights reserved. --- Adapted-by: --- Compiler: >=2.4g +-- Adapted-by: Albert Faber +-- Compiler: >=2.4l -- -- This file is part of jallib (http://jallib.googlecode.com) -- Released under the ZLIB license (http://www.opensource.org/licenses/zlib-license.html) @@ -48,17 +48,17 @@ const serial_hw_baudrate = 57_600 -- LCD IO definition -var bit lcd_rs is pin_a6 -- LCD command/data select. -var bit lcd_rs_direction is pin_a6_direction -var bit lcd_en is pin_a7 -- LCD data trigger -var bit lcd_en_direction is pin_a7_direction -var byte lcd_dataport is porta_low -- LCD data port -var byte lcd_dataport_direction is porta_low_direction -const byte LCD_ROWS = 4 -- 4 lines -const byte LCD_CHARS = 20 -- 20 chars per line +alias lcd_rs is pin_a6 -- LCD command/data select. +alias lcd_rs_direction is pin_a6_direction +alias lcd_en is pin_a7 -- LCD data trigger +alias lcd_en_direction is pin_a7_direction +alias lcd_dataport is porta_low -- LCD data port +alias lcd_dataport_direction is porta_low_direction +const byte LCD_ROWS = 4 -- 4 lines +const byte LCD_CHARS = 20 -- 20 chars per line -- ccp setup -var volatile bit pin_ccp1_direction is pin_b0_direction +alias pin_ccp1_direction is pin_b0_direction -- ----------------------------------------------------------------------------- -- Board file end ======================================= --- /trunk/project/pic18f14k50_usb_io/bootloader/18f14k50_usb_bootloader.jal Wed Aug 12 00:26:59 2009 +++ /trunk/project/pic18f14k50_usb_io/bootloader/18f14k50_usb_bootloader.jal Mon Aug 17 12:03:37 2009 @@ -1,7 +1,7 @@ -- Title: USB (legacy) bootloader -- Author: Albert Faber, Copyright (c) 2009, all rights reserved. -- Adapted-by: - --- Compiler: >=2.4k +-- Compiler: >=2.4l -- -- This file is part of jallib (http://jallib.googlecode.com) -- Released under the BSD license (http://www.opensource.org/licenses/bsd-license.php) @@ -83,8 +83,8 @@ ;@jallib section bootloader -var volatile bit bootloader_program_pin is pin_c2 -var volatile bit bootloader_program_pin_direction is pin_c2_direction +alias bootloader_program_pin is pin_c2 +alias bootloader_program_pin_direction is pin_c2_direction const byte READ_VERSION = 0x00 const byte READ_FLASH = 0x01 ======================================= --- /trunk/project/pic18f14k50_usb_io/examples/blog_part3.jal Thu Jul 30 15:19:57 2009 +++ /trunk/project/pic18f14k50_usb_io/examples/blog_part3.jal Mon Aug 17 12:03:37 2009 @@ -1,7 +1,7 @@ -- Title: USB HID keyboard device demo -- Author: Albert Faber, Copyright (c) 2008..2009, all rights reserved. -- Adapted-by: - --- Compiler: >=2.4j +-- Compiler: >=2.4l -- -- This file is part of jallib (http://jallib.googlecode.com) -- Released under the BSD license (http://www.opensource.org/licenses/bsd-license.php) @@ -271,7 +271,7 @@ var byte hid_report_in[8] = { 0,0,0,0,0,0,0,0 } var byte key_value = 4 -var bit sw3 is pin_c2 +alias sw3 is pin_c2 var bit latched_sw3 = sw3 --var bit send_key_stroke = false ======================================= --- /trunk/project/pic18f14k50_usb_io/examples/board_18f14k50_usb_af.jal Tue Jul 28 16:31:21 2009 +++ /trunk/project/pic18f14k50_usb_io/examples/board_18f14k50_usb_af.jal Mon Aug 17 12:03:37 2009 @@ -2,7 +2,7 @@ -- Title: USB PICDEM like board description -- Author: Albert Faber, Copyright (c) 2008..2009, all rights reserved. -- Adapted-by: - --- Compiler: >=2.4i +-- Compiler: >=2.4l -- -- This file is part of jallib (http://jallib.googlecode.com) -- Released under the BSD license (http://www.opensource.org/licenses/bsd-license.php) @@ -115,8 +115,8 @@ ;@jallib section i2c -- I2C io definition, using hardware I2C -var volatile bit i2c_scl is pin_b6 -var volatile bit i2c_scl_direction is pin_b6_direction -var volatile bit i2c_sda is pin_b4 -var volatile bit i2c_sda_direction is pin_b4_direction - +alias i2c_scl is pin_b6 +alias i2c_scl_direction is pin_b6_direction +alias i2c_sda is pin_b4 +alias i2c_sda_direction is pin_b4_direction + ======================================= --- /trunk/project/pic18f14k50_usb_io/led_switch_test/18f14k50_led_switch_test.jal Sat Jun 27 13:29:29 2009 +++ /trunk/project/pic18f14k50_usb_io/led_switch_test/18f14k50_led_switch_test.jal Mon Aug 17 12:03:37 2009 @@ -5,7 +5,7 @@ -- -- Adapted-by: -- --- Compiler: >=2.4h +-- Compiler: >=2.4l -- -- This file is part of jallib (http://jallib.googlecode.com) -- Released under the BSD license (http://www.opensource.org/licenses/bsd-license.php) @@ -69,11 +69,11 @@ pin_A3_direction = input pin_C2_direction = input -var bit led_1 is pin_C4 -var bit led_2 is pin_C6 - -var bit sw_1 is pin_A3 -var bit sw_2 is pin_C2 +alias led_1 is pin_C4 +alias led_2 is pin_C6 + +alias sw_1 is pin_A3 +alias sw_2 is pin_C2 led_1 = on ======================================= --- /trunk/sample/16f648a_data_eeprom.jal Sun Mar 15 10:24:52 2009 +++ /trunk/sample/16f648a_data_eeprom.jal Mon Aug 17 12:03:37 2009 @@ -3,7 +3,7 @@ -- -- Author: Rob Hamerling, Copyright (c) 2008..2008, all rights reserved. -- --- Adapted-by: +-- Adapted-by: Albert Faber -- -- Compiler: =2.4 -- @@ -30,7 +30,7 @@ include pic_data_eeprom -var bit led is pin_A0 +alias led is pin_A0 pin_A0_direction = output var byte i = 0 -- counter ======================================= --- /trunk/sample/16f876a_keyboard_lcd.jal Sun Jul 26 14:30:50 2009 +++ /trunk/sample/16f876a_keyboard_lcd.jal Mon Aug 17 12:03:37 2009 @@ -1,7 +1,7 @@ -- Title: Sample showing how to use the keyboard and the lcd library -- Author: Eur van Andel, [email protected] Copyright (c) 2008. --- Adapted-by: --- Compiler: >=2.4g +-- Adapted-by: Albert Faber +-- Compiler: >=2.4l -- -- This file is part of jallib (http://jallib.googlecode.com) -- Released under the BSD license (http://www.opensource.org/licenses/bsd-license.php) @@ -34,21 +34,21 @@ const byte LCD_ROWS = 4 const byte LCD_CHARS = 20 -var bit LCD_RS is pin_b5 -- LCD command/data select. -var bit LCD_EN is pin_b4 -- LCD data trigger -var byte LCD_dataport is portb_low -- LCD data nibble -portb_direction = all_output -- LCD data is portb_low -include lcd_hd44780_4 -- LCD library with 4 data lines +alias LCD_RS is pin_b5 -- LCD command/data select. +alias LCD_EN is pin_b4 -- LCD data trigger +alias LCD_dataport is portb_low -- LCD data nibble +portb_direction = all_output -- LCD data is portb_low +include lcd_hd44780_4 -- LCD library with 4 data lines lcd_init() include print var byte dummy -var volatile byte keyscan is portc_low -- rows of keyboard +alias keyscan is portc_low -- rows of keyboard portc_low_direction = all_input -var volatile byte keydrive is portb_low -- columns of keyboard, also LCD - -- data, already output -var byte keydrive_direction = dummy -- don't let the lib control the pin direction +alias keydrive is portb_low -- columns of keyboard, also LCD + -- data, already output +var byte keydrive_direction = dummy -- don't let the lib control the pin direction include keyboard ======================================= --- /trunk/sample/16f876a_rtc_lcd.jal Sun May 17 22:36:20 2009 +++ /trunk/sample/16f876a_rtc_lcd.jal Mon Aug 17 12:03:37 2009 @@ -1,7 +1,7 @@ -- Title: Sample program to show usage of rtc_isr_tmr0 -- Author: Eur van Andel, Copyright (c) 2008, all rights reserved. --- Adapted-by: --- Compiler: >=2.4k +-- Adapted-by: Albert Faber +-- Compiler: >=2.4l -- -- This file is part of jallib (http://jallib.googlecode.com) -- Released under the BSD license (http://www.opensource.org/licenses/bsd-license.php) @@ -42,11 +42,11 @@ const byte LCD_ROWS = 4 const byte LCD_CHARS = 20 -var bit LCD_RS is pin_b5 -- LCD command/data select. -var bit LCD_EN is pin_b4 -- LCD data trigger -var byte LCD_dataport is portb_low -- LCD data nibble -portb_direction = all_output -- LCD data is portb_low -include lcd_hd44780_4 -- LCD library with 4 data lines +alias LCD_RS is pin_b5 -- LCD command/data select. +alias LCD_EN is pin_b4 -- LCD data trigger +alias LCD_dataport is portb_low -- LCD data nibble +portb_direction = all_output -- LCD data is portb_low +include lcd_hd44780_4 -- LCD library with 4 data lines lcd_init() include print -- nice formatted output ======================================= --- /trunk/sample/16f876a_rtc_timeset.jal Mon Jul 27 06:34:12 2009 +++ /trunk/sample/16f876a_rtc_timeset.jal Mon Aug 17 12:03:37 2009 @@ -1,7 +1,7 @@ -- Title: Sample program to show usage of rtc_isr, with a time set procedure -- Author: Eur van Andel, Copyright (c) 2008, all rights reserved. --- Adapted-by: --- Compiler: >=2.4h +-- Adapted-by: Albert Faber +-- Compiler: >=2.4l -- -- This file is part of jallib (http://jallib.googlecode.com) -- Released under the BSD license (http://www.opensource.org/licenses/bsd-license.php) @@ -51,9 +51,9 @@ const byte LCD_ROWS = 4 const byte LCD_CHARS = 20 -var bit LCD_RS is pin_b5 -- LCD command/data select. -var bit LCD_EN is pin_b4 -- LCD data trigger -var byte LCD_dataport is portb_low -- LCD data nibble +alias LCD_RS is pin_b5 -- LCD command/data select. +alias LCD_EN is pin_b4 -- LCD data trigger +alias LCD_dataport is portb_low -- LCD data nibble portb_direction = all_output -- LCD data is portb_low include lcd_hd44780_4 -- LCD library with 4 data lines lcd_init() @@ -63,9 +63,9 @@ include pic_data_eeprom -- to save time when no power var byte dummy -var volatile byte keyscan is portc_low -- rows of keyboard -portc_low_direction = all_input -var volatile byte keydrive is portb_low -- columns of keyboard, also LCD data +alias keyscan is portc_low -- rows of keyboard +portc_low_direction = all_input +alias keydrive is portb_low -- columns of keyboard, also LCD data var byte keydrive_direction = dummy include keyboard -- read for schematics ======================================= --- /trunk/sample/16f876a_sht.jal Sun May 17 22:36:20 2009 +++ /trunk/sample/16f876a_sht.jal Mon Aug 17 12:03:37 2009 @@ -1,7 +1,7 @@ -- Title: test humidty values from Sensirion SHTxx humidity sensor, results on 4x20 LCD -- Author: Eur van Andel, [email protected] Copyright (c) 2008, all rights reserved. --- Adapted-by: --- Compiler: =2.4k +-- Adapted-by: Albert Faber +-- Compiler: =2.4l -- -- This file is part of jallib (http://jallib.googlecode.com) -- Released under the BSD license (http://www.opensource.org/licenses/bsd-license.php) @@ -26,20 +26,20 @@ const byte LCD_ROWS = 4 const byte LCD_CHARS = 20 -var bit LCD_RS is pin_b5 -- LCD command/data select. -var bit LCD_EN is pin_b4 -- LCD data trigger -var byte LCD_dataport is portb_low -- LCD data nibble -portb_direction = all_output -- LCD data is portb_low +alias LCD_RS is pin_b5 -- LCD command/data select. +alias LCD_EN is pin_b4 -- LCD data trigger +alias LCD_dataport is portb_low -- LCD data nibble +portb_direction = all_output -- LCD data is portb_low include lcd_hd44780_4 -- LCD library with 4 data lines lcd_init() include print -- nice formatted output include format -- more nice formatting -var bit SHT_DATA is pin_a3 -- data in/out of SHTxx -var bit SHT_DATA_DIR is pin_a3_direction -- fake-I2C requires bi-dir comms -var bit SHT_SCK is pin_a4 -- clock of SHTxx -pin_a4_direction = output -- pin_a4 needs pullup on some PICs +alias SHT_DATA is pin_a3 -- data in/out of SHTxx +alias SHT_DATA_DIR is pin_a3_direction -- fake-I2C requires bi-dir comms +alias SHT_SCK is pin_a4 -- clock of SHTxx +pin_a4_direction = output -- pin_a4 needs pullup on some PICs include humidity_sht -- library -- -------------- VARIABLES ------------------------------ ======================================= --- /trunk/sample/16f876a_t6603.jal Sun May 17 22:36:20 2009 +++ /trunk/sample/16f876a_t6603.jal Mon Aug 17 12:03:37 2009 @@ -1,7 +1,7 @@ -- Title: read CO2 values from GE/Telaire T6603 CO2 sensor, show on LCD -- Author: Eur van Andel, [email protected] Copyright (c) 2008, all rights reserved. --- Adapted-by: --- Compiler: =2.4k +-- Adapted-by: Albert Faber +-- Compiler: =2.4l -- -- This file is part of jallib (http://jallib.googlecode.com) -- Released under the BSD license (http://www.opensource.org/licenses/bsd-license.php) @@ -17,7 +17,7 @@ const version_l = 4 -- select PIC -include 16f877a +include 16f876a pragma target clock 20_000_000 -- 20 MHz xtal pragma target OSC HS @@ -36,16 +36,16 @@ const byte LCD_ROWS = 4 const byte LCD_CHARS = 20 -var bit LCD_RS is pin_b5 -- LCD command/data select. -var bit LCD_EN is pin_b4 -- LCD data trigger -var byte LCD_dataport is portb_low -- LCD data nibble -portb_direction = all_output -- LCD data is portb_low -include lcd_hd44780_4 -- LCD library with 4 data lines +alias LCD_RS is pin_b5 -- LCD command/data select. +alias LCD_EN is pin_b4 -- LCD data trigger +alias LCD_dataport is portb_low -- LCD data nibble +portb_direction = all_output -- LCD data is portb_low +include lcd_hd44780_4 -- LCD library with 4 data lines lcd_init() -include print -- nice formatted output - -include co2_t6603 -- actual CO2 library +include print -- nice formatted output + +include co2_t6603 -- actual CO2 library -- ---------------- VARIABLES --------------------------- @@ -56,7 +56,7 @@ lcd_clear_screen() lcd_cursor_position(0,0) const byte str1[] = "sample T6603 CO2" -print_string(lcd, str1) -- output string to LCD +print_string(lcd, str1) -- output string to LCD lcd_cursor_position(1,0) -- second line of display forever loop ======================================= --- /trunk/sample/16f876a_tc77.jal Sun May 17 22:36:20 2009 +++ /trunk/sample/16f876a_tc77.jal Mon Aug 17 12:03:37 2009 @@ -1,7 +1,7 @@ -- Title: read TC77 temperatures, show on LCD -- Author: Eur van Andel, [email protected] Copyright (c) 2008 --- Adapted-by: --- Compiler: =2.4k +-- Adapted-by: Albert Faber +-- Compiler: =2.4l -- -- This file is part of jallib (http://jallib.googlecode.com) -- Released under the BSD license (http://www.opensource.org/licenses/bsd-license.php) @@ -26,12 +26,12 @@ const byte LCD_ROWS = 4 const byte LCD_CHARS = 20 -var bit LCD_RS is pin_b5 -- LCD command/data select. +alias LCD_RS is pin_b5 -- LCD command/data select. pin_b5_direction = output -var bit LCD_EN is pin_b4 -- LCD data trigger +alias LCD_EN is pin_b4 -- LCD data trigger pin_b4_direction = output -var byte lcd_dataport is portb_low -- LCD data nibble +alias lcd_dataport is portb_low -- LCD data nibble portb_low_direction = all_output include lcd_hd44780_4 -- LCD library with 4 data lines lcd_init() @@ -39,14 +39,14 @@ include print -- nice formatted output include format -- more nice formatted output -var bit CS is pin_a0 -- chip select of TC77, active low -CS = high -pin_a0_direction = output -var bit SIO is pin_a2 -- data in/out of TC77 -pin_a2_direction = input -- only used as input here -var bit SCK is pin_a1 -- clock of TC77 -pin_a1_direction = output -include temperature_tc77 -- TC77 library +alias CS is pin_a0 -- chip select of TC77, active low +CS = high +pin_a0_direction = output +alias SIO is pin_a2 -- data in/out of TC77 +pin_a2_direction = input -- only used as input here +alias SCK is pin_a1 -- clock of TC77 +pin_a1_direction = output +include temperature_tc77 -- TC77 library -- ------------------- VARIABLES -------------------------------------- ======================================= --- /trunk/sample/16f877_pata_hard_disk.jal Fri Jul 10 07:32:57 2009 +++ /trunk/sample/16f877_pata_hard_disk.jal Mon Aug 17 12:03:37 2009 @@ -1,8 +1,8 @@ -- Title: Hard disk library for communicating with parallel ata hard drives -- with a 40 pin ide connector. -- Author: Matthew Schinkel - borntechi.com, copyright (c) 2009, all rights reserved. --- Adapted-by: --- Compiler: >=2.4k +-- Adapted-by: Albert Faber +-- Compiler: >=2.4l -- -- This file is part of jallib (http://jallib.googlecode.com) -- Released under the BSD license (http://www.opensource.org/licenses/bsd-license.php) @@ -44,24 +44,24 @@ serial_hw_init() -- pin assignments -var volatile byte pata_hd_data_low is portb -- data port (low bits) -var volatile byte pata_hd_data_low_direction is portb_direction -var volatile byte pata_hd_data_high is portd -- data port (high bits) -var volatile byte pata_hd_data_high_direction is portd_direction -var volatile bit pata_hd_a0 is pin_a0 -var volatile bit pata_hd_a0_direction is pin_a0_direction -var volatile bit pata_hd_a1 is pin_a1 -var volatile bit pata_hd_a1_direction is pin_a1_direction -var volatile bit pata_hd_a2 is pin_a2 -var volatile bit pata_hd_a2_direction is pin_a2_direction -var volatile bit pata_hd_cs1 is pin_a3 -var volatile bit pata_hd_cs1_direction is pin_a3_direction -var volatile bit pata_hd_cs0 is pin_a4 -var volatile bit pata_hd_cs0_direction is pin_a4_direction -var volatile bit pata_hd_iowr is pin_c2 -var volatile bit pata_hd_iowr_direction is pin_c2_direction -var volatile bit pata_hd_iord is pin_c1 -var volatile bit pata_hd_iord_direction is pin_c1_direction +alias pata_hd_data_low is portb -- data port (low bits) +alias pata_hd_data_low_direction is portb_direction +alias pata_hd_data_high is portd -- data port (high bits) +alias pata_hd_data_high_direction is portd_direction +alias pata_hd_a0 is pin_a0 +alias pata_hd_a0_direction is pin_a0_direction +alias pata_hd_a1 is pin_a1 +alias pata_hd_a1_direction is pin_a1_direction +alias pata_hd_a2 is pin_a2 +alias pata_hd_a2_direction is pin_a2_direction +alias pata_hd_cs1 is pin_a3 +alias pata_hd_cs1_direction is pin_a3_direction +alias pata_hd_cs0 is pin_a4 +alias pata_hd_cs0_direction is pin_a4_direction +alias pata_hd_iowr is pin_c2 +alias pata_hd_iowr_direction is pin_c2_direction +alias pata_hd_iord is pin_c1 +alias pata_hd_iord_direction is pin_c1_direction pata_hd_a0_direction = output -- register select pin pata_hd_a1_direction = output -- register select pin ======================================= --- /trunk/sample/16f877a_co2_t6603.jal Sun May 17 22:36:20 2009 +++ /trunk/sample/16f877a_co2_t6603.jal Mon Aug 17 12:03:37 2009 @@ -1,7 +1,7 @@ -- Title: read CO2 values from GE/Telaire T6603 CO2 sensor, show on LCD -- Author: Eur van Andel, [email protected] Copyright (c) 2008, all rights reserved. --- Adapted-by: --- Compiler: =2.4k +-- Adapted-by: Albert Faber +-- Compiler: =2.4l -- -- This file is part of jallib (http://jallib.googlecode.com) -- Released under the BSD license (http://www.opensource.org/licenses/bsd-license.php) @@ -38,13 +38,13 @@ const byte LCD_CHARS = 20 const byte LCD_ROWS = 4 -var bit LCD_RS is pin_b5 -- LCD command/data select. -var bit LCD_EN is pin_b4 -- LCD data trigger -var byte lcd_dataport is portb_low -- LCD data -portb_direction = all_output -- LCD data is portb_low -include lcd_hd44780_4 -- LCD library with 4 data lines - -include print -- nice formatted output +alias LCD_RS is pin_b5 -- LCD command/data select. +alias LCD_EN is pin_b4 -- LCD data trigger +alias lcd_dataport is portb_low -- LCD data +portb_direction = all_output -- LCD data is portb_low +include lcd_hd44780_4 -- LCD library with 4 data lines + +include print -- nice formatted output delay_100ms(5) -- to get the LCD up & running ======================================= --- /trunk/sample/16f877a_keyboard_lcd.jal Sun Jul 26 14:30:50 2009 +++ /trunk/sample/16f877a_keyboard_lcd.jal Mon Aug 17 12:03:37 2009 @@ -1,7 +1,7 @@ -- Title: Sample showing how to use the keyboard and the lcd library -- Author: Eur van Andel, [email protected] Copyright (c) 2008, all rights reserved. --- Adapted-by: --- Compiler: >=2.4k +-- Adapted-by: Albert Faber +-- Compiler: >=2.4l -- -- This file is part of jallib (http://jallib.googlecode.com) -- Released under the BSD license (http://www.opensource.org/licenses/bsd-license.php) @@ -31,22 +31,22 @@ const byte LCD_ROWS = 4 const byte LCD_CHARS = 20 -var bit LCD_RS is pin_b5 -- LCD command/data select. -var bit LCD_EN is pin_b4 -- LCD data trigger -var byte LCD_dataport is portb_low -- LCD data nibble -portb_direction = all_output -- LCD data is portb_low -include lcd_hd44780_4 -- LCD library with 4 data lines +alias LCD_RS is pin_b5 -- LCD command/data select. +alias LCD_EN is pin_b4 -- LCD data trigger +alias LCD_dataport is portb_low -- LCD data nibble +portb_direction = all_output -- LCD data is portb_low +include lcd_hd44780_4 -- LCD library with 4 data lines lcd_init() include print var byte dummy -var volatile byte keyscan is portd_low -- rows of keyboard -portd_low_direction = all_input -var volatile byte keydrive is portd_high -- columns of keyboard -var byte keydrive_direction = dummy -- don't let the lib control the pin direction -portd_high_direction = all_output -include keyboard -- check for schematics +alias keyscan is portd_low -- rows of keyboard +portd_low_direction = all_input +alias keydrive is portd_high -- columns of keyboard +var byte keydrive_direction = dummy -- don't let the lib control the pin direction +portd_high_direction = all_output +include keyboard -- check for schematics -- -------------------------- PROGRAM START---------------------------- ======================================= --- /trunk/sample/16f877a_lcd_format.jal Sun Mar 15 10:24:52 2009 +++ /trunk/sample/16f877a_lcd_format.jal Mon Aug 17 12:03:37 2009 @@ -1,7 +1,7 @@ -- Title: How to use format lib with an LCD -- Author: Eur Van Andel, Copyright (c) 2008, all rights reserved. --- Adapted-by: Joep Suijs --- Compiler: >=2.4g +-- Adapted-by: Joep Suijs, Albert Faber +-- Compiler: >=2.4l -- -- This file is part of jallib (http://jallib.googlecode.com) -- Released under the BSD license (http://www.opensource.org/licenses/bsd-license.php) @@ -22,11 +22,11 @@ const byte LCD_CHARS = 20 const byte LCD_ROWS = 4 -var bit lcd_rs is pin_b5 -- LCD command/data select. -var bit lcd_en is pin_b4 -- LCD data trigger -var byte lcd_dataport is portb_low -- LCD data +alias lcd_rs is pin_b5 -- LCD command/data select. +alias lcd_en is pin_b4 -- LCD data trigger +alias lcd_dataport is portb_low -- LCD data portb_direction = all_output -- LCD data is portb_low -include lcd_hd44780_4 -- LCD library +include lcd_hd44780_4 -- LCD library lcd_init() ======================================= --- /trunk/sample/16f877a_rtc_lcd.jal Sun May 17 22:36:20 2009 +++ /trunk/sample/16f877a_rtc_lcd.jal Mon Aug 17 12:03:37 2009 @@ -1,7 +1,7 @@ -- Title: Sample program to show usage of rtc_isr_tmr0 -- Author: Eur van Andel, Copyright (c) 2008, all rights reserved. --- Adapted-by: --- Compiler: >=2.4k +-- Adapted-by: Albert Faber +-- Compiler: >=2.4l -- -- This file is part of jallib (http://jallib.googlecode.com) -- Released under the BSD license (http://www.opensource.org/licenses/bsd-license.php) @@ -42,20 +42,20 @@ const byte LCD_ROWS = 4 const byte LCD_CHARS = 20 -var bit LCD_RS is pin_b5 -- LCD command/data select. -var bit LCD_EN is pin_b4 -- LCD data trigger -var byte LCD_dataport is portb_low -- LCD data nibble -portb_direction = all_output -- LCD data is portb_low -include lcd_hd44780_4 -- LCD library with 4 data lines +alias LCD_RS is pin_b5 -- LCD command/data select. +alias LCD_EN is pin_b4 -- LCD data trigger +alias LCD_dataport is portb_low -- LCD data nibble +portb_direction = all_output -- LCD data is portb_low +include lcd_hd44780_4 -- LCD library with 4 data lines lcd_init() -include print -- nice formatted output -include format -- more nice formatting +include print -- nice formatted output +include format -- more nice formatting -- -------------------------- START PROGRAM ----------------- -INTCON_TMR0IE = on -- if your PIC freezes, move these lines -INTCON_GIE = on -- to see if the ISR causes trouble +INTCON_TMR0IE = on -- if your PIC freezes, move these lines +INTCON_GIE = on -- to see if the ISR causes trouble lcd_clear_screen() ======================================= --- /trunk/sample/16f877a_rtc_timeset.jal Mon Jul 27 06:34:12 2009 +++ /trunk/sample/16f877a_rtc_timeset.jal Mon Aug 17 12:03:37 2009 @@ -1,7 +1,7 @@ -- Title: Sample program to show usage of rtc_isr, with a time set procedure -- Author: Eur van Andel, Copyright (c) 2008, all rights reserved. --- Adapted-by: --- Compiler: >=2.4h +-- Adapted-by: Albert Faber +-- Compiler: >=2.4l -- -- This file is part of jallib (http://jallib.googlecode.com) -- Released under the BSD license (http://www.opensource.org/licenses/bsd-license.php) @@ -51,23 +51,23 @@ const byte LCD_ROWS = 4 const byte LCD_CHARS = 20 -var bit LCD_RS is pin_b5 -- LCD command/data select. -var bit LCD_EN is pin_b4 -- LCD data trigger -var byte LCD_dataport is portb_low -- LCD data nibble -portb_direction = all_output -- LCD data is portb_low -include lcd_hd44780_4 -- LCD library with 4 data lines +alias LCD_RS is pin_b5 -- LCD command/data select. +alias LCD_EN is pin_b4 -- LCD data trigger +alias LCD_dataport is portb_low -- LCD data nibble +portb_direction = all_output -- LCD data is portb_low +include lcd_hd44780_4 -- LCD library with 4 data lines lcd_init() -include print -- nice formatted output -include format -- more nice formatting -include pic_data_eeprom -- to save time when no power +include print -- nice formatted output +include format -- more nice formatting +include pic_data_eeprom -- to save time when no power var byte dummy -var volatile byte keyscan is portc_low -- rows of keyboard -portc_low_direction = all_input -var volatile byte keydrive is portb_low -- columns of keyboard, also LCD data +alias keyscan is portc_low -- rows of keyboard +portc_low_direction = all_input +alias keydrive is portb_low -- columns of keyboard, also LCD data var byte keydrive_direction = dummy -include keyboard -- read for schematics +include keyboard -- read for schematics -- ------------------------ PROCEDURES ------------------------ ======================================= --- /trunk/sample/16f88_serial_hw_int_cts_echo.jal Mon Mar 30 08:11:24 2009 +++ /trunk/sample/16f88_serial_hw_int_cts_echo.jal Mon Aug 17 12:03:37 2009 @@ -3,9 +3,9 @@ -- -- Author: Rob Hamerling, Copyright (c) 2008..2008, all rights reserved. -- --- Adapted-by: +-- Adapted-by: Albert Faber -- --- Compiler: =2.4j +-- Compiler: =2.4l -- -- This file is part of jallib (http://jallib.googlecode.com) -- Released under the BSD license (http://www.opensource.org/licenses/bsd-license.php) @@ -58,7 +58,7 @@ var bit serial_overflow_discard = FALSE -- do not discard output! -var bit serial_ctsinv is pin_B4 -- inward flow ctl +alias serial_ctsinv is pin_B4 -- inward flow ctl pin_B4_direction = output ======================================= --- /trunk/sample/18f242_data_eeprom.jal Sun Mar 15 10:24:52 2009 +++ /trunk/sample/18f242_data_eeprom.jal Mon Aug 17 12:03:37 2009 @@ -3,7 +3,7 @@ -- -- Author: Rob Hamerling, Copyright (c) 2008..2008, all rights reserved. -- --- Adapted-by: +-- Adapted-by: Albert Faber -- -- Compiler: =2.4 -- @@ -30,7 +30,7 @@ include pic_data_eeprom -var bit led is pin_A0 +alias led is pin_A0 pin_A0_direction = output var byte i = 0 -- counter ======================================= --- /trunk/sample/18f2620_data_eeprom.jal Sun Mar 15 10:24:52 2009 +++ /trunk/sample/18f2620_data_eeprom.jal Mon Aug 17 12:03:37 2009 @@ -3,7 +3,7 @@ -- -- Author: Rob Hamerling, Copyright (c) 2008..2008, all rights reserved. -- --- Adapted-by: +-- Adapted-by: Albert Faber -- -- Compiler: =2.4 -- @@ -30,7 +30,7 @@ include pic_data_eeprom -var bit led is pin_A0 +alias led is pin_A0 pin_A0_direction = output var byte i = 0 -- counter --~--~---------~--~----~------------~-------~--~----~ 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 -~----------~----~----~----~------~----~------~--~---
