Revision: 1722 Author: bvwelch Date: Sat Feb 27 15:03:01 2010 Log: fix minor validate complaints
http://code.google.com/p/jallib/source/detail?r=1722 Modified: /trunk/sample/18f2585_canid4_monitor.jal ======================================= --- /trunk/sample/18f2585_canid4_monitor.jal Sat Feb 27 14:22:20 2010 +++ /trunk/sample/18f2585_canid4_monitor.jal Sat Feb 27 15:03:01 2010 @@ -43,16 +43,16 @@ led_dir = output led = high -procedure LEDs(byte in x) is -if x == down then - led_dir = input -elsif x == red then - led_dir = output - led = low -elsif x == green then - led_dir = output - led = high -end if +procedure leds(byte in x) is + if x == down then + led_dir = input + elsif x == red then + led_dir = output + led = low + elsif x == green then + led_dir = output + led = high + end if end procedure const byte LCD_ROWS = 4 @@ -102,12 +102,12 @@ -- wait for STERM Slave to power-up and initialize. for 10 loop - LEDs(green) + leds(green) delay_100ms(2) - LEDs(red) + leds(red) delay_100ms(2) end loop -LEDs(down) +leds(down) lcd_home() lcd_clear_screen() @@ -116,9 +116,9 @@ -- leave banner up for a while for 25 loop - LEDs(green) + leds(green) delay_100ms(2) - LEDs(down) + leds(down) delay_100ms(2) end loop @@ -164,7 +164,7 @@ if got_msg then var byte row row = byte(can_id) & 3 - + lcd_cursor_position(row,0) -- print only the low 8-bits of CAN-ID print_byte_hex(lcd, byte(can_id) ) @@ -174,7 +174,7 @@ lcd = "-" end if hb[row] = hb[row] ^ 1 - + for 8 using i loop var byte v if i < len then @@ -188,9 +188,9 @@ toggle = ! toggle if toggle then - LEDs(green) - else - LEDs(down) + leds(green) + else + leds(down) end if 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.
