Author: eur.van.andel
Date: Mon Oct 6 16:33:46 2008
New Revision: 365
Added:
trunk/unvalidated/include/external/co2/co2_t6603.jal
- copied, changed from r364,
/trunk/unvalidated/include/external/co2/t6603_co2.jal
Removed:
trunk/unvalidated/include/external/co2/t6603_co2.jal
Log:
co2_t6603.jal beautified
Copied: trunk/unvalidated/include/external/co2/co2_t6603.jal (from r364,
/trunk/unvalidated/include/external/co2/t6603_co2.jal)
==============================================================================
--- /trunk/unvalidated/include/external/co2/t6603_co2.jal (original)
+++ trunk/unvalidated/include/external/co2/co2_t6603.jal Mon Oct 6
16:33:46 2008
@@ -107,10 +107,10 @@
-- note: if sensor is busy measuring the CO2 values, it will give garbage
reply
-- reply is checked for garbage and if so, *PREVIOUS* ppm value is returned
function get_co2_ppm() return word is
-var byte response[7] -- serial number is 15 ASCII bytes, others
shorter
-var byte n -- index for response[]
-var word counter -- for timeout
-var byte char
+ var byte response[7] -- serial number is 15 ASCII bytes, others
shorter
+ var byte n -- index for response[]
+ var word counter -- for timeout
+ var byte char
serial_hw_write(FLAG)
serial_hw_write(BRDCST)
@@ -193,10 +193,10 @@
-- returns 8 byte ASCII string, which should be the same
-- as the number on the sticker
procedure get_co2_serial_number(byte out str[8]) is
-var byte response[21]
-var byte n -- index for response[]
-var word counter -- for timeout
-var byte char
+ var byte response[21]
+ var byte n -- index for response[]
+ var word counter -- for timeout
+ var byte char
serial_hw_write(FLAG)
serial_hw_write(BRDCST)
@@ -229,12 +229,12 @@
-- returns programmed elevation above sea level in meters
-- this elevation is uses to calculate CO2 concentration correctly
function get_co2_elevation_m() return word is
-var byte response[15] -- serial number is 15 ASCII bytes, others
shorter
-var byte n -- index for response[]
-var word counter -- for timeout
-var byte char
-var dword elevation_ft
-var word elevation_m
+ var byte response[15] -- serial number is 15 ASCII bytes, others
shorter
+ var byte n -- index for response[]
+ var word counter -- for timeout
+ var byte char
+ var dword elevation_ft
+ var word elevation_m
serial_hw_write(FLAG)
serial_hw_write(BRDCST)
--~--~---------~--~----~------------~-------~--~----~
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
-~----------~----~----~----~------~----~------~--~---
