Revision: 1209 Author: [email protected] Date: Sun Aug 16 16:42:16 2009 Log: fixed more aliases http://code.google.com/p/jallib/source/detail?r=1209
Modified: /trunk/include/peripheral/i2c/i2c_hardware_aliases.jal /trunk/include/peripheral/usart/serial_software.jal /trunk/include/peripheral/usb/usb_drv_cdc_class.jal /trunk/sample/16f648a_backlight.jal /trunk/sample/16f648a_i2c_sw_l1.jal /trunk/sample/16f648a_i2c_sw_master_check_bus.jal /trunk/sample/16f648a_i2c_sw_master_echo.jal /trunk/sample/16f648a_lcd_hd44780_4.jal /trunk/sample/16f648a_pwm_led.jal /trunk/sample/16f648a_pwm_led_highres.jal /trunk/sample/16f648a_pwm_sound.jal /trunk/sample/16f648a_random.jal /trunk/sample/16f648a_serial_format.jal /trunk/sample/16f648a_serial_hardware.jal /trunk/sample/16f648a_serial_hw_int_cts.jal /trunk/sample/16f648a_serial_print.jal /trunk/sample/16f648a_timer0_interval.jal /trunk/sample/16f723_serial_hw_int_cts.jal /trunk/sample/16f877a_backlight.jal /trunk/sample/16f877a_i2c_hw_l0.jal /trunk/sample/16f877a_i2c_hw_l1.jal /trunk/sample/16f877a_i2c_hw_slave_check_bus.jal /trunk/sample/16f877a_i2c_hw_slave_echo.jal /trunk/sample/16f877a_i2c_hw_slave_eeprom_simulator.jal /trunk/sample/16f877a_i2c_hw_slave_msg.jal /trunk/sample/16f877a_i2c_sw_l1.jal /trunk/sample/16f877a_i2c_sw_master_check_bus.jal /trunk/sample/16f877a_i2c_sw_master_echo.jal /trunk/sample/16f877a_keyboard.jal /trunk/sample/16f877a_lcd_hd44780_4.jal /trunk/sample/16f877a_pwm2.jal /trunk/sample/16f877a_pwm_led.jal /trunk/sample/16f877a_pwm_led_highres.jal /trunk/sample/16f877a_pwm_sound.jal /trunk/sample/16f877a_random.jal /trunk/sample/16f877a_serial_format.jal /trunk/sample/16f877a_serial_hardware.jal /trunk/sample/16f877a_serial_hw_int_cts.jal /trunk/sample/16f877a_serial_print.jal /trunk/sample/16f877a_timer0_interval.jal /trunk/sample/16f88_backlight.jal /trunk/sample/16f88_i2c_hw_slave_check_bus.jal /trunk/sample/16f88_i2c_hw_slave_echo.jal /trunk/sample/16f88_i2c_hw_slave_eeprom_simulator.jal /trunk/sample/16f88_i2c_hw_slave_msg.jal /trunk/sample/16f88_i2c_sw_l1.jal /trunk/sample/16f88_i2c_sw_master_check_bus.jal /trunk/sample/16f88_i2c_sw_master_echo.jal /trunk/sample/16f88_lcd_hd44780_4.jal /trunk/sample/16f88_pwm_led.jal /trunk/sample/16f88_pwm_led_highres.jal /trunk/sample/16f88_pwm_sound.jal /trunk/sample/16f88_random.jal /trunk/sample/16f88_serial_format.jal /trunk/sample/16f88_serial_hardware.jal /trunk/sample/16f88_serial_hw_int_cts.jal /trunk/sample/16f88_serial_print.jal /trunk/sample/16f88_timer0_interval.jal /trunk/sample/18f14k50_serial_hw_int_cts.jal /trunk/sample/18f14k50_usb_hid_keyboard.jal /trunk/sample/18f2450_serial_hw_int_cts.jal /trunk/sample/18f2450_usb_hid_keyboard.jal /trunk/sample/18f4550_serial_hw_int_cts.jal /trunk/sample/18f4550_usb_hid_keyboard.jal /trunk/test/board/board_16f648a_js.jal /trunk/test/board/board_16f877a_dwarf.jal /trunk/test/board/board_16f88_js.jal /trunk/test/board/board_16f88_sl.jal /trunk/test/jal/test_queue_isr.jal /trunk/test/peripheral/usart/test_serial_hw_int_cts.jal /trunk/test/peripheral/usb/test_usb_hid_keyboard.jal ======================================= --- /trunk/include/peripheral/i2c/i2c_hardware_aliases.jal Thu Aug 13 03:19:57 2009 +++ /trunk/include/peripheral/i2c/i2c_hardware_aliases.jal Sun Aug 16 16:42:16 2009 @@ -1,7 +1,7 @@ -- Title: i2c_hardware_aliases -- Author: Albert Faber, Copyright (C) 2009 Albert Faber -- Adapted-by: --- Compiler: >=2.4k +-- 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) @@ -54,46 +54,46 @@ const bit i2c_old_statemachine = 1 else if defined( SSPCON ) == false then - var volatile byte SSPCON is SSP1CON - var volatile bit SSPCON_WCOL is SSP1CON_WCOL - var volatile bit SSPCON_SSPOV is SSP1CON_SSPOV - var volatile bit SSPCON_SSPEN is SSP1CON_SSPEN - var volatile bit SSPCON_CKP is SSP1CON_CKP - var volatile bit*4 SSPCON_SSPM is SSP1CON_SSPM + alias SSPCON is SSP1CON + alias SSPCON_WCOL is SSP1CON_WCOL + alias SSPCON_SSPOV is SSP1CON_SSPOV + alias SSPCON_SSPEN is SSP1CON_SSPEN + alias SSPCON_CKP is SSP1CON_CKP + alias SSPCON_SSPM is SSP1CON_SSPM end if if defined( SSPCON2 ) == false then - var volatile byte SSPCON2 is SSP1CON2 - var volatile bit SSPCON2_GCEN is SSP1CON2_GCEN - var volatile bit SSPCON2_ACKSTAT is SSP1CON2_ACKSTAT - var volatile bit SSPCON2_ACKDT is SSP1CON2_ACKDT - var volatile bit SSPCON2_ACKEN is SSP1CON2_ACKEN - var volatile bit SSPCON2_RCEN is SSP1CON2_RCEN - var volatile bit SSPCON2_PEN is SSP1CON2_PEN - var volatile bit SSPCON2_RSEN is SSP1CON2_RSEN - var volatile bit SSPCON2_SEN is SSP1CON2_SEN + alias SSPCON2 is SSP1CON2 + alias SSPCON2_GCEN is SSP1CON2_GCEN + alias SSPCON2_ACKSTAT is SSP1CON2_ACKSTAT + alias SSPCON2_ACKDT is SSP1CON2_ACKDT + alias SSPCON2_ACKEN is SSP1CON2_ACKEN + alias SSPCON2_RCEN is SSP1CON2_RCEN + alias SSPCON2_PEN is SSP1CON2_PEN + alias SSPCON2_RSEN is SSP1CON2_RSEN + alias SSPCON2_SEN is SSP1CON2_SEN end if if defined( SSPADD ) == false then - var volatile byte SSPADD is SSP1ADD + alias SSPADD is SSP1ADD end if if defined( SSPSTAT ) == false then - var volatile byte SSPSTAT is SSP1STAT - var volatile bit SSPSTAT_SMP is SSP1STAT_SMP - var volatile bit SSPSTAT_CKE is SSP1STAT_CKE - var volatile bit SSPSTAT_D is SSP1STAT_D - var volatile bit SSPSTAT_NA is SSP1STAT_NA - var volatile bit SSPSTAT_P is SSP1STAT_P - var volatile bit SSPSTAT_S is SSP1STAT_S - var volatile bit SSPSTAT_R is SSP1STAT_R - var volatile bit SSPSTAT_NW is SSP1STAT_NW - var volatile bit SSPSTAT_UA is SSP1STAT_UA - var volatile bit SSPSTAT_BF is SSP1STAT_BF + alias SSPSTAT is SSP1STAT + alias SSPSTAT_SMP is SSP1STAT_SMP + alias SSPSTAT_CKE is SSP1STAT_CKE + alias SSPSTAT_D is SSP1STAT_D + alias SSPSTAT_NA is SSP1STAT_NA + alias SSPSTAT_P is SSP1STAT_P + alias SSPSTAT_S is SSP1STAT_S + alias SSPSTAT_R is SSP1STAT_R + alias SSPSTAT_NW is SSP1STAT_NW + alias SSPSTAT_UA is SSP1STAT_UA + alias SSPSTAT_BF is SSP1STAT_BF end if if defined( SSPBUF ) == false then - var volatile byte SSPBUF is SSP1BUF + alias SSPBUF is SSP1BUF end if end if end if ======================================= --- /trunk/include/peripheral/usart/serial_software.jal Mon Mar 2 10:33:21 2009 +++ /trunk/include/peripheral/usart/serial_software.jal Sun Aug 16 16:42:16 2009 @@ -1,7 +1,7 @@ -- Title: Software RS232 library -- Author: Stef Mientki, Copyright (c) 2002..2006, all rights reserved. --- Adapted-by: Sebastien Lelong. --- Compiler: >=2.4g +-- Adapted-by: Sebastien Lelong, 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) @@ -148,7 +148,7 @@ var bit old_gie ;status of interrupt enable on entrance ;; jallib(seb): this is a way to act on tx pin ;;var bit pp at serial_sw_out_port : serial_sw_out_nr - var bit pp is serial_sw_tx_pin + alias pp is serial_sw_tx_pin var bit data_bit at data : 0 -- stop interrupts and be sure they are stopped @@ -202,7 +202,7 @@ var bit ready ;; jallib(seb): this is a way to act on rx pin ;;var bit pp at serial_sw_in_port : serial_sw_in_nr - var bit pp is serial_sw_rx_pin + alias pp is serial_sw_rx_pin -- stop interrupts and be sure they are stopped -- save old interrupt status @@ -306,7 +306,7 @@ var bit ie_old ;status of interrupt enable on entrance ;; jallib(seb): this is a way to act on rx pin ;;var bit pp at serial_sw_in_port : serial_sw_in_nr - var bit pp is serial_sw_rx_pin + alias pp is serial_sw_rx_pin if serial_sw_invert != pp then return false ======================================= --- /trunk/include/peripheral/usb/usb_drv_cdc_class.jal Fri Jul 24 06:49:23 2009 +++ /trunk/include/peripheral/usb/usb_drv_cdc_class.jal Sun Aug 16 16:42:16 2009 @@ -72,17 +72,17 @@ var volatile byte cdc_rx_rd = 0 var volatile byte cdc_rx_free = USB_CDC_RX_BUFFER_SIZE -var volatile byte cdc_out_stat is usb_bd3out_stat -var volatile byte cdc_out_cnt is usb_bd3out_cnt -var volatile word cdc_out_addr is usb_bd3out_addr -var volatile byte cdc_out_addrl is usb_bd3out_addrl -var volatile byte cdc_out_addrh is usb_bd3out_addrh - -var volatile byte cdc_in_stat is usb_bd3in_stat -var volatile byte cdc_in_cnt is usb_bd3in_cnt -var volatile word cdc_in_addr is usb_bd3in_addr -var volatile byte cdc_in_addrl is usb_bd3in_addrl -var volatile byte cdc_in_addrh is usb_bd3in_addrh +alias cdc_out_stat is usb_bd3out_stat +alias cdc_out_cnt is usb_bd3out_cnt +alias cdc_out_addr is usb_bd3out_addr +alias cdc_out_addrl is usb_bd3out_addrl +alias cdc_out_addrh is usb_bd3out_addrh + +alias cdc_in_stat is usb_bd3in_stat +alias cdc_in_cnt is usb_bd3in_cnt +alias cdc_in_addr is usb_bd3in_addr +alias cdc_in_addrl is usb_bd3in_addrl +alias cdc_in_addrh is usb_bd3in_addrh procedure usb_handle_class_request_callback() is pragma inline ======================================= --- /trunk/sample/16f648a_backlight.jal Sun Jul 26 14:57:13 2009 +++ /trunk/sample/16f648a_backlight.jal Sun Aug 16 16:42:16 2009 @@ -41,25 +41,25 @@ ;@jallib section lcd_hd44780_4 -- LCD IO definition -var bit lcd_rs is pin_b4 -- LCD command/data select. -var bit lcd_rs_direction is pin_b4_direction -var bit lcd_en is pin_b0 -- LCD data trigger -var bit lcd_en_direction is pin_b0_direction - -var byte lcd_dataport is porta_low -- LCD data port -var byte lcd_dataport_direction is porta_low_direction +alias lcd_rs is pin_b4 -- LCD command/data select. +alias lcd_rs_direction is pin_b4_direction +alias lcd_en is pin_b0 -- LCD data trigger +alias lcd_en_direction is pin_b0_direction + +alias lcd_dataport is porta_low -- LCD data port +alias lcd_dataport_direction is porta_low_direction const byte LCD_ROWS = 2 -- 2 lines const byte LCD_CHARS = 16 -- 16 chars per line ;@jallib section led -- LED IO definition -var bit led is pin_b3 -var bit led_direction is pin_b3_direction -var bit led2 is pin_b1 -var bit led2_direction is pin_b1_direction +alias led is pin_b3 +alias led_direction is pin_b3_direction +alias led2 is pin_b1 +alias led2_direction is pin_b1_direction ;@jallib section ccp -- backlight control (can be variable and digital on this pin) -var volatile bit lcd_bl is pin_b3 -var volatile bit lcd_bl_direction is pin_b3_direction +alias lcd_bl is pin_b3 +alias lcd_bl_direction is pin_b3_direction enable_digital_io() -- disable analog I/O (if any) -- setup libs, io etc ======================================= --- /trunk/sample/16f648a_i2c_sw_l1.jal Mon Jul 27 14:40:40 2009 +++ /trunk/sample/16f648a_i2c_sw_l1.jal Sun Aug 16 16:42:16 2009 @@ -44,10 +44,10 @@ ;@jallib section i2c -- I2C io definition -var volatile bit i2c_scl is pin_b4 -var volatile bit i2c_scl_direction is pin_b4_direction -var volatile bit i2c_sda is pin_b3 -var volatile bit i2c_sda_direction is pin_b3_direction +alias i2c_scl is pin_b4 +alias i2c_scl_direction is pin_b4_direction +alias i2c_sda is pin_b3 +alias i2c_sda_direction is pin_b3_direction -- generic setup (see releated examples for more details);@jallib section serial const serial_hw_baudrate = 115_200 ======================================= --- /trunk/sample/16f648a_i2c_sw_master_check_bus.jal Mon Jul 27 14:40:40 2009 +++ /trunk/sample/16f648a_i2c_sw_master_check_bus.jal Sun Aug 16 16:42:16 2009 @@ -36,10 +36,10 @@ ;@jallib section led -- LED IO definition -var bit led is pin_b3 -var bit led_direction is pin_b3_direction -var bit led2 is pin_b1 -var bit led2_direction is pin_b1_direction +alias led is pin_b3 +alias led_direction is pin_b3_direction +alias led2 is pin_b1 +alias led2_direction is pin_b1_direction -- blink a little, then send i2c command led_direction = output for 8 loop @@ -51,10 +51,10 @@ ;@jallib section i2c -- I2C io definition -var volatile bit i2c_scl is pin_b4 -var volatile bit i2c_scl_direction is pin_b4_direction -var volatile bit i2c_sda is pin_b3 -var volatile bit i2c_sda_direction is pin_b3_direction +alias i2c_scl is pin_b4 +alias i2c_scl_direction is pin_b4_direction +alias i2c_sda is pin_b3 +alias i2c_sda_direction is pin_b3_direction -- i2c setup const word _i2c_bus_speed = 4 ; 400kHz const bit _i2c_level = true ; i2c levels (not SMB) ======================================= --- /trunk/sample/16f648a_i2c_sw_master_echo.jal Mon Jul 27 14:40:40 2009 +++ /trunk/sample/16f648a_i2c_sw_master_echo.jal Sun Aug 16 16:42:16 2009 @@ -38,10 +38,10 @@ ;@jallib section i2c -- I2C io definition -var volatile bit i2c_scl is pin_b4 -var volatile bit i2c_scl_direction is pin_b4_direction -var volatile bit i2c_sda is pin_b3 -var volatile bit i2c_sda_direction is pin_b3_direction +alias i2c_scl is pin_b4 +alias i2c_scl_direction is pin_b4_direction +alias i2c_sda is pin_b3 +alias i2c_sda_direction is pin_b3_direction -- i2c setup const word _i2c_bus_speed = 4 ; 400kHz const bit _i2c_level = true ; i2c levels (not SMB) ======================================= --- /trunk/sample/16f648a_lcd_hd44780_4.jal Wed Aug 12 00:26:59 2009 +++ /trunk/sample/16f648a_lcd_hd44780_4.jal Sun Aug 16 16:42:16 2009 @@ -42,21 +42,21 @@ ;@jallib section lcd_hd44780_4 -- LCD IO definition -var bit lcd_rs is pin_b4 -- LCD command/data select. -var bit lcd_rs_direction is pin_b4_direction -var bit lcd_en is pin_b0 -- LCD data trigger -var bit lcd_en_direction is pin_b0_direction - -var byte lcd_dataport is porta_low -- LCD data port -var byte lcd_dataport_direction is porta_low_direction +alias lcd_rs is pin_b4 -- LCD command/data select. +alias lcd_rs_direction is pin_b4_direction +alias lcd_en is pin_b0 -- LCD data trigger +alias lcd_en_direction is pin_b0_direction + +alias lcd_dataport is porta_low -- LCD data port +alias lcd_dataport_direction is porta_low_direction const byte LCD_ROWS = 2 -- 2 lines const byte LCD_CHARS = 16 -- 16 chars per line ;@jallib section led -- LED IO definition -var bit led is pin_b3 -var bit led_direction is pin_b3_direction -var bit led2 is pin_b1 -var bit led2_direction is pin_b1_direction +alias led is pin_b3 +alias led_direction is pin_b3_direction +alias led2 is pin_b1 +alias led2_direction is pin_b1_direction enable_digital_io() ======================================= --- /trunk/sample/16f648a_pwm_led.jal Mon Jul 27 14:40:40 2009 +++ /trunk/sample/16f648a_pwm_led.jal Sun Aug 16 16:42:16 2009 @@ -31,8 +31,8 @@ ;@jallib section ccp -- backlight control (can be variable and digital on this pin) -var volatile bit lcd_bl is pin_b3 -var volatile bit lcd_bl_direction is pin_b3_direction +alias lcd_bl is pin_b3 +alias lcd_bl_direction is pin_b3_direction enable_digital_io() -- Configure PWM ======================================= --- /trunk/sample/16f648a_pwm_led_highres.jal Mon Jul 27 14:40:40 2009 +++ /trunk/sample/16f648a_pwm_led_highres.jal Sun Aug 16 16:42:16 2009 @@ -30,8 +30,8 @@ ;@jallib section ccp -- backlight control (can be variable and digital on this pin) -var volatile bit lcd_bl is pin_b3 -var volatile bit lcd_bl_direction is pin_b3_direction +alias lcd_bl is pin_b3 +alias lcd_bl_direction is pin_b3_direction enable_digital_io() -- Configure PWM ======================================= --- /trunk/sample/16f648a_pwm_sound.jal Mon Jul 27 14:40:40 2009 +++ /trunk/sample/16f648a_pwm_sound.jal Sun Aug 16 16:42:16 2009 @@ -33,8 +33,8 @@ ;@jallib section ccp -- backlight control (can be variable and digital on this pin) -var volatile bit lcd_bl is pin_b3 -var volatile bit lcd_bl_direction is pin_b3_direction +alias lcd_bl is pin_b3 +alias lcd_bl_direction is pin_b3_direction enable_digital_io() -- Configure PWM ======================================= --- /trunk/sample/16f648a_random.jal Mon Jul 27 14:40:40 2009 +++ /trunk/sample/16f648a_random.jal Sun Aug 16 16:42:16 2009 @@ -38,10 +38,10 @@ ;@jallib section led -- LED IO definition -var bit led is pin_b3 -var bit led_direction is pin_b3_direction -var bit led2 is pin_b1 -var bit led2_direction is pin_b1_direction +alias led is pin_b3 +alias led_direction is pin_b3_direction +alias led2 is pin_b1 +alias led2_direction is pin_b1_direction led_direction = output include delay ======================================= --- /trunk/sample/16f648a_serial_format.jal Mon Jul 27 14:40:40 2009 +++ /trunk/sample/16f648a_serial_format.jal Sun Aug 16 16:42:16 2009 @@ -35,10 +35,10 @@ ;@jallib section led -- LED IO definition -var bit led is pin_b3 -var bit led_direction is pin_b3_direction -var bit led2 is pin_b1 -var bit led2_direction is pin_b1_direction +alias led is pin_b3 +alias led_direction is pin_b3_direction +alias led2 is pin_b1 +alias led2_direction is pin_b1_direction include delay -- set all IO as digital ======================================= --- /trunk/sample/16f648a_serial_hardware.jal Mon Jul 27 14:40:40 2009 +++ /trunk/sample/16f648a_serial_hardware.jal Sun Aug 16 16:42:16 2009 @@ -41,10 +41,10 @@ ;@jallib section led -- LED IO definition -var bit led is pin_b3 -var bit led_direction is pin_b3_direction -var bit led2 is pin_b1 -var bit led2_direction is pin_b1_direction +alias led is pin_b3 +alias led_direction is pin_b3_direction +alias led2 is pin_b1 +alias led2_direction is pin_b1_direction include delay ======================================= --- /trunk/sample/16f648a_serial_hw_int_cts.jal Mon Jul 27 14:40:40 2009 +++ /trunk/sample/16f648a_serial_hw_int_cts.jal Sun Aug 16 16:42:16 2009 @@ -3,9 +3,9 @@ -- -- Author: Joep Suijs, Copyright (c) 2008..2008, all rights reserved. -- --- Adapted-by: +-- Adapted-by: Albert Faber -- --- Compiler: >=2.4g +-- 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) @@ -41,10 +41,10 @@ ;@jallib section led -- LED IO definition -var bit led is pin_b3 -var bit led_direction is pin_b3_direction -var bit led2 is pin_b1 -var bit led2_direction is pin_b1_direction +alias led is pin_b3 +alias led_direction is pin_b3_direction +alias led2 is pin_b1 +alias led2_direction is pin_b1_direction include delay @@ -53,7 +53,7 @@ -- ok, now setup serial;@jallib section serial const serial_hw_baudrate = 115_200 -var bit serial_ctsinv is pin_B4 -- incoming data flow control +alias serial_ctsinv is pin_B4 -- incoming data flow control var bit serial_overflow_discard = true -- With transmit buffer overflow include serial_hw_int_cts ======================================= --- /trunk/sample/16f648a_serial_print.jal Mon Jul 27 14:40:40 2009 +++ /trunk/sample/16f648a_serial_print.jal Sun Aug 16 16:42:16 2009 @@ -38,10 +38,10 @@ ;@jallib section led -- LED IO definition -var bit led is pin_b3 -var bit led_direction is pin_b3_direction -var bit led2 is pin_b1 -var bit led2_direction is pin_b1_direction +alias led is pin_b3 +alias led_direction is pin_b3_direction +alias led2 is pin_b1 +alias led2_direction is pin_b1_direction include delay ======================================= --- /trunk/sample/16f648a_timer0_interval.jal Mon Jul 27 14:40:40 2009 +++ /trunk/sample/16f648a_timer0_interval.jal Sun Aug 16 16:42:16 2009 @@ -34,10 +34,10 @@ ;@jallib section led -- LED IO definition -var bit led is pin_b3 -var bit led_direction is pin_b3_direction -var bit led2 is pin_b1 -var bit led2_direction is pin_b1_direction +alias led is pin_b3 +alias led_direction is pin_b3_direction +alias led2 is pin_b1 +alias led2_direction is pin_b1_direction led_direction = output led2_direction = output ======================================= --- /trunk/sample/16f723_serial_hw_int_cts.jal Sun Aug 16 12:22:14 2009 +++ /trunk/sample/16f723_serial_hw_int_cts.jal Sun Aug 16 16:42:16 2009 @@ -3,9 +3,9 @@ -- -- Author: Joep Suijs, Copyright (c) 2008..2008, all rights reserved. -- --- Adapted-by: +-- Adapted-by: Albert Faber -- --- Compiler: >=2.4g +-- 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) @@ -64,7 +64,7 @@ -- ok, now setup serial;@jallib section serial const serial_hw_baudrate = 115_200 -var bit serial_ctsinv is pin_B4 -- incoming data flow control +alias serial_ctsinv is pin_B4 -- incoming data flow control var bit serial_overflow_discard = true -- With transmit buffer overflow include serial_hw_int_cts ======================================= --- /trunk/sample/16f877a_backlight.jal Sun Jul 26 14:57:13 2009 +++ /trunk/sample/16f877a_backlight.jal Sun Aug 16 16:42:16 2009 @@ -37,38 +37,38 @@ pragma target WDT disabled ;@jallib section lcd_hd44780_4 -- LCD IO definition -var bit lcd_rs is pin_b5 -- LCD command/data select. -var bit lcd_rs_direction is pin_b5_direction -var bit lcd_en is pin_b4 -- LCD data trigger -var bit lcd_en_direction is pin_b4_direction +alias lcd_rs is pin_b5 -- LCD command/data select. +alias lcd_rs_direction is pin_b5_direction +alias lcd_en is pin_b4 -- LCD data trigger +alias lcd_en_direction is pin_b4_direction -- primary dataport nibble: -var byte lcd_dataport is portb_low -- LCD data port -var byte lcd_dataport_direction is portb_low_direction +alias lcd_dataport is portb_low -- LCD data port +alias lcd_dataport_direction is portb_low_direction -- alternative dataport bits: -var bit lcd_d4 is pin_b0 -var bit lcd_d5 is pin_b1 -var bit lcd_d6 is pin_b2 -var bit lcd_d7 is pin_b3 -var bit lcd_d4_direction is pin_b0_direction -var bit lcd_d5_direction is pin_b1_direction -var bit lcd_d6_direction is pin_b2_direction -var bit lcd_d7_direction is pin_b3_direction +alias lcd_d4 is pin_b0 +alias lcd_d5 is pin_b1 +alias lcd_d6 is pin_b2 +alias lcd_d7 is pin_b3 +alias lcd_d4_direction is pin_b0_direction +alias lcd_d5_direction is pin_b1_direction +alias lcd_d6_direction is pin_b2_direction +alias lcd_d7_direction is pin_b3_direction const byte LCD_ROWS = 2 -- 2 lines const byte LCD_CHARS = 16 -- 16 chars per line ;@jallib section led -- LED IO definition -var bit led is pin_b6 -var bit led_direction is pin_b6_direction -var bit led2 is pin_a1 -var bit led2_direction is pin_a1_direction +alias led is pin_b6 +alias led_direction is pin_b6_direction +alias led2 is pin_a1 +alias led2_direction is pin_a1_direction ;@jallib section ccp -- backlight control (can be variable and digital on this pin) -var volatile bit lcd_bl is pin_c2 -var volatile bit lcd_bl_direction is pin_c2_direction +alias lcd_bl is pin_c2 +alias lcd_bl_direction is pin_c2_direction enable_digital_io() -- disable analog I/O (if any) ======================================= --- /trunk/sample/16f877a_i2c_hw_l0.jal Mon Jul 27 14:40:40 2009 +++ /trunk/sample/16f877a_i2c_hw_l0.jal Sun Aug 16 16:42:16 2009 @@ -40,10 +40,10 @@ pragma target WDT disabled ;@jallib section i2c -- I2C io definition -var volatile bit i2c_scl is pin_c3 -var volatile bit i2c_scl_direction is pin_c3_direction -var volatile bit i2c_sda is pin_c4 -var volatile bit i2c_sda_direction is pin_c4_direction +alias i2c_scl is pin_c3 +alias i2c_scl_direction is pin_c3_direction +alias i2c_sda is pin_c4 +alias i2c_sda_direction is pin_c4_direction -- generic setup (see releated examples for more details);@jallib section serial const serial_hw_baudrate = 115_200 ======================================= --- /trunk/sample/16f877a_i2c_hw_l1.jal Mon Jul 27 14:40:40 2009 +++ /trunk/sample/16f877a_i2c_hw_l1.jal Sun Aug 16 16:42:16 2009 @@ -40,10 +40,10 @@ pragma target WDT disabled ;@jallib section i2c -- I2C io definition -var volatile bit i2c_scl is pin_c3 -var volatile bit i2c_scl_direction is pin_c3_direction -var volatile bit i2c_sda is pin_c4 -var volatile bit i2c_sda_direction is pin_c4_direction +alias i2c_scl is pin_c3 +alias i2c_scl_direction is pin_c3_direction +alias i2c_sda is pin_c4 +alias i2c_sda_direction is pin_c4_direction -- generic setup (see releated examples for more details);@jallib section serial const serial_hw_baudrate = 115_200 ======================================= --- /trunk/sample/16f877a_i2c_hw_slave_check_bus.jal Wed Aug 12 00:26:59 2009 +++ /trunk/sample/16f877a_i2c_hw_slave_check_bus.jal Sun Aug 16 16:42:16 2009 @@ -32,10 +32,10 @@ enable_digital_io() ;@jallib section led -- LED IO definition -var bit led is pin_b6 -var bit led_direction is pin_b6_direction -var bit led2 is pin_a1 -var bit led2_direction is pin_a1_direction +alias led is pin_b6 +alias led_direction is pin_b6_direction +alias led2 is pin_a1 +alias led2_direction is pin_a1_direction -- i2c setup -- with Start/Stop interrupts ======================================= --- /trunk/sample/16f877a_i2c_hw_slave_echo.jal Mon Jul 27 14:40:40 2009 +++ /trunk/sample/16f877a_i2c_hw_slave_echo.jal Sun Aug 16 16:42:16 2009 @@ -30,10 +30,10 @@ pragma target WDT disabled ;@jallib section led -- LED IO definition -var bit led is pin_b6 -var bit led_direction is pin_b6_direction -var bit led2 is pin_a1 -var bit led2_direction is pin_a1_direction +alias led is pin_b6 +alias led_direction is pin_b6_direction +alias led2 is pin_a1 +alias led2_direction is pin_a1_direction led_direction = output include i2c_hw_slave ======================================= --- /trunk/sample/16f877a_i2c_hw_slave_eeprom_simulator.jal Mon Jul 27 14:40:40 2009 +++ /trunk/sample/16f877a_i2c_hw_slave_eeprom_simulator.jal Sun Aug 16 16:42:16 2009 @@ -31,10 +31,10 @@ pragma target WDT disabled ;@jallib section led -- LED IO definition -var bit led is pin_b6 -var bit led_direction is pin_b6_direction -var bit led2 is pin_a1 -var bit led2_direction is pin_a1_direction +alias led is pin_b6 +alias led_direction is pin_b6_direction +alias led2 is pin_a1 +alias led2_direction is pin_a1_direction led_direction = output -- setup serial (see echo.jal for more details);@jallib section serial ======================================= --- /trunk/sample/16f877a_i2c_hw_slave_msg.jal Mon Jul 27 14:40:40 2009 +++ /trunk/sample/16f877a_i2c_hw_slave_msg.jal Sun Aug 16 16:42:16 2009 @@ -38,10 +38,10 @@ pragma target WDT disabled ;@jallib section led -- LED IO definition -var bit led is pin_b6 -var bit led_direction is pin_b6_direction -var bit led2 is pin_a1 -var bit led2_direction is pin_a1_direction +alias led is pin_b6 +alias led_direction is pin_b6_direction +alias led2 is pin_a1 +alias led2_direction is pin_a1_direction led_direction = output -- setup serial (see echo.jal for more details);@jallib section serial ======================================= --- /trunk/sample/16f877a_i2c_sw_l1.jal Mon Jul 27 14:40:40 2009 +++ /trunk/sample/16f877a_i2c_sw_l1.jal Sun Aug 16 16:42:16 2009 @@ -40,10 +40,10 @@ pragma target WDT disabled ;@jallib section i2c -- I2C io definition -var volatile bit i2c_scl is pin_c3 -var volatile bit i2c_scl_direction is pin_c3_direction -var volatile bit i2c_sda is pin_c4 -var volatile bit i2c_sda_direction is pin_c4_direction +alias i2c_scl is pin_c3 +alias i2c_scl_direction is pin_c3_direction +alias i2c_sda is pin_c4 +alias i2c_sda_direction is pin_c4_direction -- generic setup (see releated examples for more details);@jallib section serial const serial_hw_baudrate = 115_200 ======================================= --- /trunk/sample/16f877a_i2c_sw_master_check_bus.jal Mon Jul 27 14:40:40 2009 +++ /trunk/sample/16f877a_i2c_sw_master_check_bus.jal Sun Aug 16 16:42:16 2009 @@ -32,10 +32,10 @@ ;@jallib section led -- LED IO definition -var bit led is pin_b6 -var bit led_direction is pin_b6_direction -var bit led2 is pin_a1 -var bit led2_direction is pin_a1_direction +alias led is pin_b6 +alias led_direction is pin_b6_direction +alias led2 is pin_a1 +alias led2_direction is pin_a1_direction -- blink a little, then send i2c command led_direction = output for 8 loop @@ -47,10 +47,10 @@ ;@jallib section i2c -- I2C io definition -var volatile bit i2c_scl is pin_c3 -var volatile bit i2c_scl_direction is pin_c3_direction -var volatile bit i2c_sda is pin_c4 -var volatile bit i2c_sda_direction is pin_c4_direction +alias i2c_scl is pin_c3 +alias i2c_scl_direction is pin_c3_direction +alias i2c_sda is pin_c4 +alias i2c_sda_direction is pin_c4_direction -- i2c setup const word _i2c_bus_speed = 4 ; 400kHz const bit _i2c_level = true ; i2c levels (not SMB) ======================================= --- /trunk/sample/16f877a_i2c_sw_master_echo.jal Mon Jul 27 14:40:40 2009 +++ /trunk/sample/16f877a_i2c_sw_master_echo.jal Sun Aug 16 16:42:16 2009 @@ -34,10 +34,10 @@ pragma target WDT disabled ;@jallib section i2c -- I2C io definition -var volatile bit i2c_scl is pin_c3 -var volatile bit i2c_scl_direction is pin_c3_direction -var volatile bit i2c_sda is pin_c4 -var volatile bit i2c_sda_direction is pin_c4_direction +alias i2c_scl is pin_c3 +alias i2c_scl_direction is pin_c3_direction +alias i2c_sda is pin_c4 +alias i2c_sda_direction is pin_c4_direction -- i2c setup const word _i2c_bus_speed = 4 ; 400kHz const bit _i2c_level = true ; i2c levels (not SMB) ======================================= --- /trunk/sample/16f877a_keyboard.jal Sun Jul 26 14:59:56 2009 +++ /trunk/sample/16f877a_keyboard.jal Sun Aug 16 16:42:16 2009 @@ -48,9 +48,9 @@ ;@jallib section keyboard -- setup the two half ports -- (rows and cols on separte ports - unlikely setup for dwarf-board) -var volatile byte keyscan is porta_low -- rows of keyboard -var volatile byte keydrive is portb_low -- columns of keyboard -var volatile byte keydrive_direction is portb_low_direction +alias keyscan is porta_low -- rows of keyboard +alias keydrive is portb_low -- columns of keyboard +alias keydrive_direction is portb_low_direction include keyboard -- check for schematics -- -------------------------- PROGRAM START---------------------------- ======================================= --- /trunk/sample/16f877a_lcd_hd44780_4.jal Wed Aug 12 00:26:59 2009 +++ /trunk/sample/16f877a_lcd_hd44780_4.jal Sun Aug 16 16:42:16 2009 @@ -38,34 +38,34 @@ pragma target WDT disabled ;@jallib section lcd_hd44780_4 -- LCD IO definition -var bit lcd_rs is pin_b5 -- LCD command/data select. -var bit lcd_rs_direction is pin_b5_direction -var bit lcd_en is pin_b4 -- LCD data trigger -var bit lcd_en_direction is pin_b4_direction +alias lcd_rs is pin_b5 -- LCD command/data select. +alias lcd_rs_direction is pin_b5_direction +alias lcd_en is pin_b4 -- LCD data trigger +alias lcd_en_direction is pin_b4_direction -- primary dataport nibble: -var byte lcd_dataport is portb_low -- LCD data port -var byte lcd_dataport_direction is portb_low_direction +alias lcd_dataport is portb_low -- LCD data port +alias lcd_dataport_direction is portb_low_direction -- alternative dataport bits: -var bit lcd_d4 is pin_b0 -var bit lcd_d5 is pin_b1 -var bit lcd_d6 is pin_b2 -var bit lcd_d7 is pin_b3 -var bit lcd_d4_direction is pin_b0_direction -var bit lcd_d5_direction is pin_b1_direction -var bit lcd_d6_direction is pin_b2_direction -var bit lcd_d7_direction is pin_b3_direction +alias lcd_d4 is pin_b0 +alias lcd_d5 is pin_b1 +alias lcd_d6 is pin_b2 +alias lcd_d7 is pin_b3 +alias lcd_d4_direction is pin_b0_direction +alias lcd_d5_direction is pin_b1_direction +alias lcd_d6_direction is pin_b2_direction +alias lcd_d7_direction is pin_b3_direction const byte LCD_ROWS = 2 -- 2 lines const byte LCD_CHARS = 16 -- 16 chars per line ;@jallib section led -- LED IO definition -var bit led is pin_b6 -var bit led_direction is pin_b6_direction -var bit led2 is pin_a1 -var bit led2_direction is pin_a1_direction +alias led is pin_b6 +alias led_direction is pin_b6_direction +alias led2 is pin_a1 +alias led2_direction is pin_a1_direction enable_digital_io() ======================================= --- /trunk/sample/16f877a_pwm2.jal Wed Aug 12 00:26:59 2009 +++ /trunk/sample/16f877a_pwm2.jal Sun Aug 16 16:42:16 2009 @@ -33,8 +33,8 @@ pragma target WDT disabled ;@jallib section ccp -- backlight control (can be variable and digital on this pin) -var volatile bit lcd_bl is pin_c2 -var volatile bit lcd_bl_direction is pin_c2_direction +alias lcd_bl is pin_c2 +alias lcd_bl_direction is pin_c2_direction enable_digital_io() ======================================= --- /trunk/sample/16f877a_pwm_led.jal Wed Aug 12 00:26:59 2009 +++ /trunk/sample/16f877a_pwm_led.jal Sun Aug 16 16:42:16 2009 @@ -27,8 +27,8 @@ pragma target WDT disabled ;@jallib section ccp -- backlight control (can be variable and digital on this pin) -var volatile bit lcd_bl is pin_c2 -var volatile bit lcd_bl_direction is pin_c2_direction +alias lcd_bl is pin_c2 +alias lcd_bl_direction is pin_c2_direction enable_digital_io() ======================================= --- /trunk/sample/16f877a_pwm_led_highres.jal Wed Aug 12 00:26:59 2009 +++ /trunk/sample/16f877a_pwm_led_highres.jal Sun Aug 16 16:42:16 2009 @@ -26,8 +26,8 @@ pragma target WDT disabled ;@jallib section ccp -- backlight control (can be variable and digital on this pin) -var volatile bit lcd_bl is pin_c2 -var volatile bit lcd_bl_direction is pin_c2_direction +alias lcd_bl is pin_c2 +alias lcd_bl_direction is pin_c2_direction enable_digital_io() ======================================= --- /trunk/sample/16f877a_pwm_sound.jal Wed Aug 12 00:26:59 2009 +++ /trunk/sample/16f877a_pwm_sound.jal Sun Aug 16 16:42:16 2009 @@ -29,8 +29,8 @@ pragma target WDT disabled ;@jallib section ccp -- backlight control (can be variable and digital on this pin) -var volatile bit lcd_bl is pin_c2 -var volatile bit lcd_bl_direction is pin_c2_direction +alias lcd_bl is pin_c2 +alias lcd_bl_direction is pin_c2_direction enable_digital_io() ======================================= --- /trunk/sample/16f877a_random.jal Mon Jul 27 14:40:40 2009 +++ /trunk/sample/16f877a_random.jal Sun Aug 16 16:42:16 2009 @@ -34,10 +34,10 @@ pragma target WDT disabled ;@jallib section led -- LED IO definition -var bit led is pin_b6 -var bit led_direction is pin_b6_direction -var bit led2 is pin_a1 -var bit led2_direction is pin_a1_direction +alias led is pin_b6 +alias led_direction is pin_b6_direction +alias led2 is pin_a1 +alias led2_direction is pin_a1_direction led_direction = output include delay ======================================= --- /trunk/sample/16f877a_serial_format.jal Mon Jul 27 14:40:40 2009 +++ /trunk/sample/16f877a_serial_format.jal Sun Aug 16 16:42:16 2009 @@ -31,10 +31,10 @@ pragma target WDT disabled ;@jallib section led -- LED IO definition -var bit led is pin_b6 -var bit led_direction is pin_b6_direction -var bit led2 is pin_a1 -var bit led2_direction is pin_a1_direction +alias led is pin_b6 +alias led_direction is pin_b6_direction +alias led2 is pin_a1 +alias led2_direction is pin_a1_direction include delay -- set all IO as digital ======================================= --- /trunk/sample/16f877a_serial_hardware.jal Mon Jul 27 14:40:40 2009 +++ /trunk/sample/16f877a_serial_hardware.jal Sun Aug 16 16:42:16 2009 @@ -37,10 +37,10 @@ pragma target WDT disabled ;@jallib section led -- LED IO definition -var bit led is pin_b6 -var bit led_direction is pin_b6_direction -var bit led2 is pin_a1 -var bit led2_direction is pin_a1_direction +alias led is pin_b6 +alias led_direction is pin_b6_direction +alias led2 is pin_a1 +alias led2_direction is pin_a1_direction include delay ======================================= --- /trunk/sample/16f877a_serial_hw_int_cts.jal Mon Jul 27 14:40:40 2009 +++ /trunk/sample/16f877a_serial_hw_int_cts.jal Sun Aug 16 16:42:16 2009 @@ -3,9 +3,9 @@ -- -- Author: Joep Suijs, Copyright (c) 2008..2008, all rights reserved. -- --- Adapted-by: +-- Adapted-by: Albert Faber -- --- Compiler: >=2.4g +-- 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) @@ -37,10 +37,10 @@ pragma target WDT disabled ;@jallib section led -- LED IO definition -var bit led is pin_b6 -var bit led_direction is pin_b6_direction -var bit led2 is pin_a1 -var bit led2_direction is pin_a1_direction +alias led is pin_b6 +alias led_direction is pin_b6_direction +alias led2 is pin_a1 +alias led2_direction is pin_a1_direction include delay @@ -49,7 +49,7 @@ -- ok, now setup serial;@jallib section serial const serial_hw_baudrate = 115_200 -var bit serial_ctsinv is pin_B4 -- incoming data flow control +alias serial_ctsinv is pin_B4 -- incoming data flow control var bit serial_overflow_discard = true -- With transmit buffer overflow include serial_hw_int_cts ======================================= --- /trunk/sample/16f877a_serial_print.jal Mon Jul 27 14:40:40 2009 +++ /trunk/sample/16f877a_serial_print.jal Sun Aug 16 16:42:16 2009 @@ -34,10 +34,10 @@ pragma target WDT disabled ;@jallib section led -- LED IO definition -var bit led is pin_b6 -var bit led_direction is pin_b6_direction -var bit led2 is pin_a1 -var bit led2_direction is pin_a1_direction +alias led is pin_b6 +alias led_direction is pin_b6_direction +alias led2 is pin_a1 +alias led2_direction is pin_a1_direction include delay ======================================= --- /trunk/sample/16f877a_timer0_interval.jal Mon Jul 27 14:40:40 2009 +++ /trunk/sample/16f877a_timer0_interval.jal Sun Aug 16 16:42:16 2009 @@ -30,10 +30,10 @@ pragma target WDT disabled ;@jallib section led -- LED IO definition -var bit led is pin_b6 -var bit led_direction is pin_b6_direction -var bit led2 is pin_a1 -var bit led2_direction is pin_a1_direction +alias led is pin_b6 +alias led_direction is pin_b6_direction +alias led2 is pin_a1 +alias led2_direction is pin_a1_direction led_direction = output led2_direction = output ======================================= --- /trunk/sample/16f88_backlight.jal Sun Jul 26 14:57:13 2009 +++ /trunk/sample/16f88_backlight.jal Sun Aug 16 16:42:16 2009 @@ -51,29 +51,29 @@ ;@jallib section lcd_hd44780_4 -- LCD IO definition -var bit lcd_rs is pin_b4 -- LCD command/data select. -var bit lcd_rs_direction is pin_b4_direction -var bit lcd_en is pin_b0 -- LCD data trigger -var bit lcd_en_direction is pin_b0_direction - -var byte lcd_dataport is porta_low -- LCD data port -var byte lcd_dataport_direction is porta_low_direction +alias lcd_rs is pin_b4 -- LCD command/data select. +alias lcd_rs_direction is pin_b4_direction +alias lcd_en is pin_b0 -- LCD data trigger +alias lcd_en_direction is pin_b0_direction + +alias lcd_dataport is porta_low -- LCD data port +alias lcd_dataport_direction is porta_low_direction const byte LCD_ROWS = 2 -- 2 lines const byte LCD_CHARS = 16 -- 16 chars per line ;@jallib section led -- LED IO definition -var bit led is pin_b3 -var bit led_direction is pin_b3_direction -var bit led2 is pin_b1 -var bit led2_direction is pin_b1_direction +alias led is pin_b3 +alias led_direction is pin_b3_direction +alias led2 is pin_b1 +alias led2_direction is pin_b1_direction ;@jallib section ccp -- ccp setup: since CCP1 is multiplexed, we need to define -- alias pointing to the active CCP1 pin -var volatile bit pin_ccp1_direction is pin_ccp1_rb3_direction +alias pin_ccp1_direction is pin_ccp1_rb3_direction -- backlight control (can be variable and digital on this pin) -var volatile bit lcd_bl is pin_b3 -var volatile bit lcd_bl_direction is pin_b3_direction +alias lcd_bl is pin_b3 +alias lcd_bl_direction is pin_b3_direction enable_digital_io() -- disable analog I/O (if any) -- setup libs, io etc ======================================= --- /trunk/sample/16f88_i2c_hw_slave_check_bus.jal Mon Jul 27 14:40:40 2009 +++ /trunk/sample/16f88_i2c_hw_slave_check_bus.jal Sun Aug 16 16:42:16 2009 @@ -46,10 +46,10 @@ enable_digital_io() ;@jallib section led -- LED IO definition -var bit led is pin_b3 -var bit led_direction is pin_b3_direction -var bit led2 is pin_b1 -var bit led2_direction is pin_b1_direction +alias led is pin_b3 +alias led_direction is pin_b3_direction +alias led2 is pin_b1 +alias led2_direction is pin_b1_direction -- i2c setup -- with Start/Stop interrupts ======================================= --- /trunk/sample/16f88_i2c_hw_slave_echo.jal Mon Jul 27 14:40:40 2009 +++ /trunk/sample/16f88_i2c_hw_slave_echo.jal Sun Aug 16 16:42:16 2009 @@ -44,10 +44,10 @@ ;@jallib section led -- LED IO definition -var bit led is pin_b3 -var bit led_direction is pin_b3_direction -var bit led2 is pin_b1 -var bit led2_direction is pin_b1_direction +alias led is pin_b3 +alias led_direction is pin_b3_direction +alias led2 is pin_b1 +alias led2_direction is pin_b1_direction led_direction = output include i2c_hw_slave ======================================= --- /trunk/sample/16f88_i2c_hw_slave_eeprom_simulator.jal Mon Jul 27 14:40:40 2009 +++ /trunk/sample/16f88_i2c_hw_slave_eeprom_simulator.jal Sun Aug 16 16:42:16 2009 @@ -45,10 +45,10 @@ ;@jallib section led -- LED IO definition -var bit led is pin_b3 -var bit led_direction is pin_b3_direction -var bit led2 is pin_b1 -var bit led2_direction is pin_b1_direction +alias led is pin_b3 +alias led_direction is pin_b3_direction +alias led2 is pin_b1 +alias led2_direction is pin_b1_direction led_direction = output -- setup serial (see echo.jal for more details);@jallib section serial ======================================= --- /trunk/sample/16f88_i2c_hw_slave_msg.jal Mon Jul 27 14:40:40 2009 +++ /trunk/sample/16f88_i2c_hw_slave_msg.jal Sun Aug 16 16:42:16 2009 @@ -52,10 +52,10 @@ ;@jallib section led -- LED IO definition -var bit led is pin_b3 -var bit led_direction is pin_b3_direction -var bit led2 is pin_b1 -var bit led2_direction is pin_b1_direction +alias led is pin_b3 +alias led_direction is pin_b3_direction +alias led2 is pin_b1 +alias led2_direction is pin_b1_direction led_direction = output -- setup serial (see echo.jal for more details);@jallib section serial ======================================= --- /trunk/sample/16f88_i2c_sw_l1.jal Mon Jul 27 14:40:40 2009 +++ /trunk/sample/16f88_i2c_sw_l1.jal Sun Aug 16 16:42:16 2009 @@ -54,14 +54,14 @@ ;@jallib section i2c -- I2C io definition -var volatile bit i2c_scl is pin_b4 -var volatile bit i2c_scl_direction is pin_b4_direction +alias i2c_scl is pin_b4 +alias i2c_scl_direction is pin_b4_direction -- b3 is pin-compatible with 16f648a board file, b1 is on hardware pins -;var volatile bit i2c_sda is pin_b3 -;var volatile bit i2c_sda_direction is pin_b3_direction -var volatile bit i2c_sda is pin_b1 -var volatile bit i2c_sda_direction is pin_b1_direction +;alias i2c_sda is pin_b3 +;alias i2c_sda_direction is pin_b3_direction +alias i2c_sda is pin_b1 +alias i2c_sda_direction is pin_b1_direction -- generic setup (see releated examples for more details);@jallib section serial const serial_hw_baudrate = 115_200 ======================================= --- /trunk/sample/16f88_i2c_sw_master_check_bus.jal Mon Jul 27 14:40:40 2009 +++ /trunk/sample/16f88_i2c_sw_master_check_bus.jal Sun Aug 16 16:42:16 2009 @@ -46,10 +46,10 @@ ;@jallib section led -- LED IO definition -var bit led is pin_b3 -var bit led_direction is pin_b3_direction -var bit led2 is pin_b1 -var bit led2_direction is pin_b1_direction +alias led is pin_b3 +alias led_direction is pin_b3_direction +alias led2 is pin_b1 +alias led2_direction is pin_b1_direction -- blink a little, then send i2c command led_direction = output for 8 loop @@ -61,14 +61,14 @@ ;@jallib section i2c -- I2C io definition -var volatile bit i2c_scl is pin_b4 -var volatile bit i2c_scl_direction is pin_b4_direction +alias i2c_scl is pin_b4 +alias i2c_scl_direction is pin_b4_direction -- b3 is pin-compatible with 16f648a board file, b1 is on hardware pins -;var volatile bit i2c_sda is pin_b3 -;var volatile bit i2c_sda_direction is pin_b3_direction -var volatile bit i2c_sda is pin_b1 -var volatile bit i2c_sda_direction is pin_b1_direction +;alias i2c_sda is pin_b3 +;alias i2c_sda_direction is pin_b3_direction +alias i2c_sda is pin_b1 +alias i2c_sda_direction is pin_b1_direction -- i2c setup const word _i2c_bus_speed = 4 ; 400kHz const bit _i2c_level = true ; i2c levels (not SMB) ======================================= --- /trunk/sample/16f88_i2c_sw_master_echo.jal Mon Jul 27 14:40:40 2009 +++ /trunk/sample/16f88_i2c_sw_master_echo.jal Sun Aug 16 16:42:16 2009 @@ -48,14 +48,14 @@ ;@jallib section i2c -- I2C io definition -var volatile bit i2c_scl is pin_b4 -var volatile bit i2c_scl_direction is pin_b4_direction +alias i2c_scl is pin_b4 +alias i2c_scl_direction is pin_b4_direction -- b3 is pin-compatible with 16f648a board file, b1 is on hardware pins -;var volatile bit i2c_sda is pin_b3 -;var volatile bit i2c_sda_direction is pin_b3_direction -var volatile bit i2c_sda is pin_b1 -var volatile bit i2c_sda_direction is pin_b1_direction +;alias i2c_sda is pin_b3 +;alias i2c_sda_direction is pin_b3_direction +alias i2c_sda is pin_b1 +alias i2c_sda_direction is pin_b1_direction -- i2c setup const word _i2c_bus_speed = 4 ; 400kHz const bit _i2c_level = true ; i2c levels (not SMB) ======================================= --- /trunk/sample/16f88_lcd_hd44780_4.jal Wed Aug 12 00:26:59 2009 +++ /trunk/sample/16f88_lcd_hd44780_4.jal Sun Aug 16 16:42:16 2009 @@ -52,21 +52,21 @@ ;@jallib section lcd_hd44780_4 -- LCD IO definition -var bit lcd_rs is pin_b4 -- LCD command/data select. -var bit lcd_rs_direction is pin_b4_direction -var bit lcd_en is pin_b0 -- LCD data trigger -var bit lcd_en_direction is pin_b0_direction - -var byte lcd_dataport is porta_low -- LCD data port -var byte lcd_dataport_direction is porta_low_direction +alias lcd_rs is pin_b4 -- LCD command/data select. +alias lcd_rs_direction is pin_b4_direction +alias lcd_en is pin_b0 -- LCD data trigger +alias lcd_en_direction is pin_b0_direction + +alias lcd_dataport is porta_low -- LCD data port +alias lcd_dataport_direction is porta_low_direction const byte LCD_ROWS = 2 -- 2 lines const byte LCD_CHARS = 16 -- 16 chars per line ;@jallib section led -- LED IO definition -var bit led is pin_b3 -var bit led_direction is pin_b3_direction -var bit led2 is pin_b1 -var bit led2_direction is pin_b1_direction +alias led is pin_b3 +alias led_direction is pin_b3_direction +alias led2 is pin_b1 +alias led2_direction is pin_b1_direction enable_digital_io() ======================================= --- /trunk/sample/16f88_pwm_led.jal Mon Jul 27 14:40:40 2009 +++ /trunk/sample/16f88_pwm_led.jal Sun Aug 16 16:42:16 2009 @@ -42,11 +42,11 @@ ;@jallib section ccp -- ccp setup: since CCP1 is multiplexed, we need to define -- alias pointing to the active CCP1 pin -var volatile bit pin_ccp1_direction is pin_ccp1_rb3_direction +alias pin_ccp1_direction is pin_ccp1_rb3_direction -- backlight control (can be variable and digital on this pin) -var volatile bit lcd_bl is pin_b3 -var volatile bit lcd_bl_direction is pin_b3_direction +alias lcd_bl is pin_b3 +alias lcd_bl_direction is pin_b3_direction enable_digital_io() -- Configure PWM ======================================= ***Additional files exist in this changeset.*** --~--~---------~--~----~------------~-------~--~----~ 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 -~----------~----~----~----~------~----~------~--~---
