Mercurial > public > hwos_code
annotate src/ostc3.inc @ 191:d049511b25c6
minor
| author | heinrichsweikamp |
|---|---|
| date | Thu, 30 Oct 2014 17:45:50 +0100 |
| parents | e79bc535ef9e |
| children | efe70488a04b |
| rev | line source |
|---|---|
| 0 | 1 ;============================================================================= |
| 2 ; | |
| 3 ; File ostc3.asm | |
| 4 ; | |
| 5 ; OSTC3 Platform definitions | |
| 6 ; | |
| 7 ; Copyright (c) 2011, JD Gascuel, HeinrichsWeikamp, all right reserved. | |
| 8 ;============================================================================= | |
| 9 ; HISTORY | |
| 10 ; 2011-05-24 : [jDG] Cleanups from initial Matthias code. | |
| 11 | |
| 12 ;============================================================================= | |
| 13 | |
| 14 LIST P=18F87K22 ; change also: Configure->SelectDevice from Mplab | |
| 15 | |
|
99
87cc1adfe4da
show event "bailout" in the internal logbook
heinrichsweikamp
parents:
98
diff
changeset
|
16 ;#DEFINE __DEBUG |
| 0 | 17 |
| 18 #include <p18f87k22.inc> | |
| 19 #include <ports.inc> ; Portmap | |
| 20 | |
| 180 | 21 ; Firmware definition |
|
44
18fe4e668baa
BUGFIX: Percent display with 1,5V batteries
heinrichsweikamp
parents:
43
diff
changeset
|
22 #DEFINE softwareversion_x d'1' ; Software version XX.YY |
|
183
976e19d1e1ba
BUGFIX: O2 > 99% was not configurable from the PC
heinrichsweikamp
parents:
180
diff
changeset
|
23 #DEFINE softwareversion_y d'61' ; Software version XX.YY |
|
976e19d1e1ba
BUGFIX: O2 > 99% was not configurable from the PC
heinrichsweikamp
parents:
180
diff
changeset
|
24 #DEFINE softwareversion_beta 1 ; (and 0 for release) |
| 180 | 25 ; Firmware version will appear in "Change Firmware" style |
| 26 #DEFINE firmware_expire_year .15 | |
| 27 #DEFINE firmware_expire_month .10 | |
| 28 #DEFINE firmware_expire_day .10 | |
| 0 | 29 |
| 30 #DEFINE comm_service_key 0xABCDEF | |
| 31 | |
| 32 ;----------------------------------------------------------------------------- | |
| 33 | |
| 34 #DEFINE CCP1CON_VALUE b'00001100' ; PWM1 for LED dimming | |
| 35 #DEFINE T2CON_ECO b'00000100' ; 1:1 Postscaler, 1:1 Prescaler, Timer 2 start -> 980Hz (Good compromise of no-flicker and efficiency) | |
| 36 #DEFINE T2CON_NORMAL b'00001110' | |
| 37 #DEFINE T2CON_FASTEST b'00001110' ; 1:2 Postscaler, 1:16 Prescaler, Timer 2 start -> 1960Hz (no-flicker) | |
| 38 | |
| 28 | 39 #DEFINE TMR0H_VALUE .245 ; RX Timeout (~3ms) |
| 40 | |
| 0 | 41 ; Timing for button hold-down flags |
| 42 #DEFINE TMR1H_VALUE_FIRST .255-.128 ; in steps of 7,8125ms -> 1s | |
| 43 #DEFINE TMR1H_VALUE_CONT .255-.32 ; in steps of 7,8125ms -> 0.25s | |
| 44 #DEFINE TMR1H_VALUE_CONT_DIVE .255-.64 ; in steps of 7,8125ms -> 0.5s | |
| 45 | |
| 46 ; Color Definitions: 8Bit RGB b'RRRGGGBB' | |
| 47 #DEFINE color_red b'11100000' ; (7,0,0) | |
| 48 #DEFINE color_dark_red b'10000101' ; (4,1,1) | |
| 49 #DEFINE color_violet b'11101011' ; (7,2,3) | |
| 50 #DEFINE color_blue b'11000111' ; (6,1,3) | |
| 51 #DEFINE color_green b'00011100' ; (0,7,0) | |
| 52 #DEFINE color_greenish b'00111110' ; (1,7,2) | |
| 53 #DEFINE color_dark_green b'00111001' ; (1,6,1) | |
| 54 #DEFINE color_yellow b'11111101' ; (7,7,1) | |
| 55 #DEFINE color_white b'11111111' ; (7,7,3) | |
| 56 #DEFINE color_black b'00000000' ; (0,0,0) | |
| 57 #DEFINE color_deepblue b'00000010' ; (0,0,2) | |
| 58 #DEFINE color_grey b'11011111' ; (6,7,3) | |
| 59 #DEFINE color_cyan b'11011111' ; (6,7,3) | |
| 60 #DEFINE color_lightblue b'11011011' ; (6,7,3) | |
| 61 #DEFINE color_orange b'11111000' ; (7,6,0) | |
| 62 #DEFINE color_pink b'11111010' ; (7,6,2) | |
| 63 | |
| 64 #DEFINE FT_TINY .0 | |
| 65 #DEFINE FT_SMALL .1 | |
| 66 #DEFINE FT_MEDIUM .2 | |
| 67 #DEFINE FT_LARGE .3 | |
| 68 | |
| 69 #DEFINE warn_depth .1 | |
| 70 #DEFINE warn_cns .2 | |
| 71 #DEFINE warn_gf .3 | |
| 72 #DEFINE warn_ppo2 .4 | |
| 73 #DEFINE warn_velocity .5 | |
| 74 #DEFINE warn_ceiling .6 | |
| 75 #DEFINE warn_gas_in_gaslist .7 | |
| 76 #DEFINE warn_ppo2_hud .8 | |
| 77 #DEFINE warn_battery .9 | |
| 78 | |
| 113 | 79 ; External O2 cell input parameters |
| 80 #DEFINE min_mv .80 ; = 8mV | |
|
145
e3ac5b2021bc
NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents:
143
diff
changeset
|
81 #DEFINE max_mv .2500 ; = 250mV |
| 0 | 82 |
| 83 ; Profile recording parameters | |
| 84 #DEFINE logbook_profile_version 0x23 | |
| 85 #DEFINE samplingrate_apnoe .1 ; [seconds] | |
| 86 ; Warning: Divisors must be <.16 ! | |
| 87 #DEFINE div_temperature .6 ; x samplingrate [s] | |
| 88 #DEFINE div_deco .6 ; x samplingrate [s] | |
| 89 #DEFINE div_gf .12 ; x samplingrate [s] | |
| 90 #DEFINE div_ppo2_sensors .2 ; x samplingrate [s] | |
| 91 #DEFINE div_decoplan .12 ; x samplingrate [s] | |
| 92 #DEFINE div_cns .12 ; x samplingrate [s] | |
| 93 #DEFINE div_tank .0 ; x samplingrate [s] | |
| 94 ; Warning: Information lengths must be <.16 ! | |
| 95 #DEFINE infolength_temperature .2 ; [byte] | |
| 96 #DEFINE infolength_deco .2 ; [byte] | |
| 97 #DEFINE infolength_gf .1 ; [byte] | |
| 98 #DEFINE infolength_ppo2_sensors .9 ; [byte] | |
| 99 #DEFINE infolength_decoplan .15 ; [byte] | |
| 100 #DEFINE infolength_cns .2 ; [byte] | |
| 101 #DEFINE infolength_tank .0 ; [byte] | |
| 102 | |
| 103 ; "Better Gas" behavior | |
| 104 ; better_gas_window <= minimum_change_depth ! | |
| 105 ; minimum_change_depth >=5 ! | |
| 106 #DEFINE minimum_change_depth .3 ; [m] | |
| 69 | 107 #DEFINE better_gas_window_neg .3 ; [m] (Depth above change depth) |
| 108 #DEFINE better_gas_window_pos .1 ; [m] (Depth below change depth, if ppO2<opt_ppO2_max) | |
| 0 | 109 |
| 110 ; Dive mode limits and thresholds | |
| 111 #DEFINE start_dive_threshold .100 ; [cm] | |
| 112 #DEFINE high_altitude_dive_threshold .300;[cm] | |
|
35
eca4a201d8cf
change apnea timeout, do no longer store apnea dives in logbook
heinrichsweikamp
parents:
31
diff
changeset
|
113 #DEFINE apnoe_timeout .15 ; [min] |
| 0 | 114 #DEFINE divemode_menuview_timeout .10 ; [s] |
| 115 #DEFINE divemode_timeout .300 ; [s] | |
| 116 #DEFINE divemode_menu_timeout .30 ; [s] | |
| 117 #DEFINE ppo2_warning_low .19 ; [cbar] (Default value) | |
| 118 #DEFINE ppo2_lowest_setting .16 ; [cbar] (Minimum value) | |
| 119 #DEFINE ppo2_display_high .120 ; [cbar] | |
| 120 #DEFINE ppo2_warning_high .160 ; [cbar] (Default value) | |
| 121 #DEFINE ppo2_highest_setting .160 ; [cbar] (Max. Value) | |
| 122 #DEFINE cns_display_high .70 ; [%] | |
| 123 #DEFINE cns_warning_high .100 ; [%] | |
| 124 #DEFINE gf_display_high .75 ; [%] | |
| 125 #DEFINE gf_warning_high .100 ; [%] | |
| 126 #DEFINE depth_warn_mbar .13000 ; [mbar] | |
| 127 #DEFINE wake_up_from_sleep .1160 ; [mbar] | |
| 128 #DEFINE gf_display_threshold .20 ; [%] | |
| 129 #DEFINE simulator_timeout .15 ; [s] | |
| 130 | |
| 131 ; Surface mode limits and thresholds | |
| 132 #DEFINE cns_display_surface_high .70 ; [%] | |
| 133 #DEFINE high_altitude_threshold .880 ; [mbar] | |
| 134 #DEFINE max_surfpressure .1080 ; [mbar] | |
| 135 #DEFINE timeout_surfacemode .90 ; [s] | |
|
187
669b5d00706d
CHANGE: Longer timeout (4 min) for calibration menu
heinrichsweikamp
parents:
185
diff
changeset
|
136 #DEFINE timeout_calibrate_menu .240 ; [s] |
|
188
ebc28381f17d
NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents:
187
diff
changeset
|
137 #DEFINE timeout_ccr_surface .240 ; [s] |
| 0 | 138 |
| 139 ; Decomodel paramters | |
| 140 #DEFINE no_fly_time_ratio .60 ; [%] | |
| 141 #DEFINE deco_distance .10 ; [dm] | |
| 142 | |
|
104
223579e905c3
Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents:
101
diff
changeset
|
143 ; Safety stop parameters |
|
223579e905c3
Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents:
101
diff
changeset
|
144 #DEFINE safety_stop_length .180 ; [s] |
|
223579e905c3
Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents:
101
diff
changeset
|
145 #DEFINE safety_stop_start .510 ; [mbar] |
|
223579e905c3
Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents:
101
diff
changeset
|
146 #DEFINE safety_stop_end .290 ; [mbar] |
|
223579e905c3
Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents:
101
diff
changeset
|
147 #DEFINE safety_stop_reset .1010 ; [mbar] |
| 0 | 148 |
| 149 ; Color-code parameters for the divemode | |
| 150 #DEFINE color_code_cns_high .100 ; [%] | |
| 151 #DEFINE color_code_gf_warn_high .101 ; [%] | |
| 152 #DEFINE color_code_velocity_warn_high .10;[m/min] | |
| 153 | |
| 154 ; Velocity threshold | |
| 155 #DEFINE velocity_warning_level_1 .7 ; [m/min] | |
| 156 | |
| 157 ; Battery thresholds | |
|
37
0e1723f2761e
use four additional data points for the battery monitor
mh@mh-THINK.fritz.box
parents:
35
diff
changeset
|
158 #DEFINE lithium_36v_empty .2400 ; [mV] Saft 3,6V LS14500 AA - threshold for battery percent display |
| 0 | 159 #DEFINE lithium_36v_low .2000 ; [mV] (Must be bigger then aa_15v_high!) |
| 160 #DEFINE aa_15v_high .1550 ; [mV] Energizer 1,5V E2 AA | |
| 161 #DEFINE aa_15v_low .1100 ; [mV] According to Energizer Datasheet EBC-4201R, Page 2 | |
| 43 | 162 #DEFINE color_code_battery_low .10 ; [%] |
| 163 #DEFINE battery_show_level .24 ; [%] | |
| 0 | 164 |
|
92
7ca1105751c7
add sensor calibration option (PC only), some cleanup
heinrichsweikamp
parents:
89
diff
changeset
|
165 ; 3,6V battery sensing data points at 70mA load |
|
7ca1105751c7
add sensor calibration option (PC only), some cleanup
heinrichsweikamp
parents:
89
diff
changeset
|
166 #DEFINE lithium_36v_75 .3000 ; [mV] |
|
7ca1105751c7
add sensor calibration option (PC only), some cleanup
heinrichsweikamp
parents:
89
diff
changeset
|
167 #DEFINE lithium_36v_50 .2900 ; [mV] |
|
7ca1105751c7
add sensor calibration option (PC only), some cleanup
heinrichsweikamp
parents:
89
diff
changeset
|
168 #DEFINE lithium_36v_25 .2600 ; [mV] |
|
7ca1105751c7
add sensor calibration option (PC only), some cleanup
heinrichsweikamp
parents:
89
diff
changeset
|
169 #DEFINE lithium_36v_10 .2500 ; [mV] |
|
37
0e1723f2761e
use four additional data points for the battery monitor
mh@mh-THINK.fritz.box
parents:
35
diff
changeset
|
170 |
| 111 | 171 #DEFINE current_sleepmode .10 |
| 0 | 172 #DEFINE current_backlight_multi .115 ; *CCPR1L+current_backlight_offset |
| 173 #DEFINE current_backlight_offset .216 | |
| 174 #DEFINE current_speed_eco .1914 | |
| 175 #DEFINE current_speed_normal .4027 | |
| 176 #DEFINE current_speed_fastest .5050 | |
| 177 #DEFINE current_ir_reciever .139 | |
| 178 #DEFINE current_compass .28 | |
| 179 | |
| 180 ; Brightness thresholds (between zero (off) and 255 (max. power)) | |
| 136 | 181 #DEFINE ambient_light_max_high_36V .175 |
| 182 #DEFINE ambient_light_max_high_c3 .240 | |
| 183 #DEFINE ambient_light_max_high_15V .150 | |
| 0 | 184 #DEFINE ambient_light_min_high .40 |
|
2
ab8a7c3f1db0
battery warning levels, max. brightnes setting
heinrichsweikamp
parents:
0
diff
changeset
|
185 #DEFINE ambient_light_max_medium .135 |
| 0 | 186 #DEFINE ambient_light_min_medium .30 |
| 69 | 187 #DEFINE ambient_light_max_eco .90 |
|
31
53a09c1b7410
BUGFIX: alternating brightness at very low ambient light
heinrichsweikamp
parents:
28
diff
changeset
|
188 #DEFINE ambient_light_min_eco .15 ; Must be the lowest value! |
| 0 | 189 |
| 190 ; IR Link timeout | |
| 101 | 191 #DEFINE ir_timeout_value .64 ; multiples of 62,5ms |
| 0 | 192 |
| 193 ; Gaslist hard-coded limits | |
| 194 #DEFINE gaslist_min_o2 .7 ; Minimum O2 [%] | |
|
185
f515712d8cd6
BUGFIX: Check min and max values after PC configuration properly
heinrichsweikamp
parents:
183
diff
changeset
|
195 #DEFINE gaslist_max_change_depth .99 ; Max. change depth [m] |
| 0 | 196 #DEFINE gaslist_sp_stepsize .10 ; Steps for Setpoint Setup [cbar] |
| 197 #DEFINE gaslist_sp_max .160 ; Max. Setpoint [cbar] | |
| 198 #DEFINE gaslist_sp_min .50 ; Min. Setpoint [cbar] | |
| 199 | |
|
16
7b06f20881be
calm compass reading for minor heading changes
heinrichsweikamp
parents:
15
diff
changeset
|
200 ; Compass display |
| 170 | 201 #DEFINE compass_fast_treshold .9 ; show new heading instantly if new and old > compass_fast_treshold |
|
16
7b06f20881be
calm compass reading for minor heading changes
heinrichsweikamp
parents:
15
diff
changeset
|
202 |
| 0 | 203 ;---------------------------- Macros ------------------------------------ |
| 204 | |
| 205 TSTOSS macro opt_reg ; TeST Option Skip if not Zero | |
| 206 movff opt_reg,WREG | |
| 207 tstfsz WREG,A | |
| 208 bra $+4 | |
| 209 endm | |
| 210 | |
| 211 ;---------------------------- Bank0 DATA ------------------------------------ | |
| 212 isr_backup equ 0x60 | |
| 213 isr_backup udata_ovr isr_backup ; Reserved space for interupt data | |
| 214 | |
| 215 ;---- Backup for general registers | |
| 216 isr_prod res 2 | |
| 217 | |
| 218 ;---- MS5541 subroutines | |
| 219 amb_pressure res 2 | |
| 220 temperature res 2 | |
| 221 | |
| 222 W1 res 2 ; Raw (packed) calibration data | |
| 223 W2 res 2 | |
| 224 W3 res 2 | |
| 225 W4 res 2 ; 100 | |
| 226 C1 res 2 ; Decoded calibration data | |
| 227 C2 res 2 | |
| 228 C3 res 2 | |
| 229 C4 res 2 ; Here: C4-250 | |
| 230 C5 res 2 ; Here: Reference Temperature UT1 = 8*C5 + 10000 (u16 range 10.000 .. +42.760) | |
| 231 C6 res 2 | |
| 232 D1 res 2 ; raw pressure | |
| 233 D2 res 2 ; raw temperature | |
| 234 xdT res 2 | |
| 235 xdT2 res 2 | |
| 236 OFF res 2 | |
| 237 SENS res 2 | |
| 238 dLSB res 1 ;Pressure sensor interface | |
| 239 dMSB res 1 | |
| 240 clock_count res 1 | |
| 241 sensor_state_counter res 1 ; counts to eight for state maschine | |
| 242 amb_pressure_avg res 2 | |
| 243 temperature_avg res 2 | |
| 244 minimum_temperature res 2 ; minimum temperature | |
| 245 last_temperature res 2 | |
| 246 last_pressure res 2 | |
| 247 last_pressure_velocity res 2 ; For velocity | |
| 248 last_surfpressure res 2 | |
| 249 last_surfpressure_15min res 2 | |
| 250 last_surfpressure_30min res 2 | |
| 251 rel_pressure res 2 | |
| 252 sim_pressure res 2 ; hold simulated pressure in mbar if in Simulator mode | |
| 253 max_pressure res 2 | |
| 254 avr_rel_pressure res 2 | |
| 255 avr_rel_pressure_total res 2 | |
| 256 ;---- Data for ISR math subroutines | |
| 257 isr_xC res 4 | |
| 258 isr_xA res 2 | |
| 259 isr_xB res 2 | |
| 260 | |
| 261 ;---- Data for ISR routines | |
| 262 isr1_temp res 1 ; ISR temp variable, used in ms5541.asm, isr_rtcc, isr_battery_gauge | |
| 263 isr2_temp res 1 ; ISR temp variable, used isr_battery_gauge | |
| 264 | |
| 265 ;---- Display brightness | |
| 266 max_CCPR1L res 1 ; Max. brightness value for CCPR1L | |
| 267 | |
| 268 ; Battery gauge (nAs, nC) | |
| 269 battery_gauge res 6 ; 48Bit -> 78Ah max... | |
| 270 | |
|
187
669b5d00706d
CHANGE: Longer timeout (4 min) for calibration menu
heinrichsweikamp
parents:
185
diff
changeset
|
271 ; IR/S8-Link |
|
669b5d00706d
CHANGE: Longer timeout (4 min) for calibration menu
heinrichsweikamp
parents:
185
diff
changeset
|
272 ir_s8_buffer res .18 |
|
669b5d00706d
CHANGE: Longer timeout (4 min) for calibration menu
heinrichsweikamp
parents:
185
diff
changeset
|
273 ir_s8_counter res 1 |
|
669b5d00706d
CHANGE: Longer timeout (4 min) for calibration menu
heinrichsweikamp
parents:
185
diff
changeset
|
274 ir_S8_timeout res 1 ; Timeout for valid data |
| 0 | 275 |
| 276 ; Compass raw data | |
| 277 compass_DX res 2 | |
| 278 compass_DY res 2 | |
| 279 compass_DZ res 2 | |
| 280 | |
| 281 accel_DX res 2 | |
| 282 accel_DY res 2 | |
| 283 accel_DZ res 2 | |
| 284 | |
| 285 ; Compass FILTERED data | |
| 286 compass_DX_f res 2 | |
| 287 compass_DY_f res 2 | |
| 288 compass_DZ_f res 2 | |
| 289 | |
| 290 accel_DX_f res 2 | |
| 291 accel_DY_f res 2 | |
| 292 accel_DZ_f res 2 | |
| 293 | |
| 294 ; Compass calibration data | |
| 295 compass_CX_f res 2 | |
| 296 compass_CY_f res 2 | |
| 297 compass_CZ_f res 2 | |
| 298 | |
| 299 ; Compass more data | |
| 300 compass_heading res 2 ; Corrected heading (in 1°) : -180 .. 180 | |
|
16
7b06f20881be
calm compass reading for minor heading changes
heinrichsweikamp
parents:
15
diff
changeset
|
301 compass_heading_old res 2 ; Old heading (For smoother display) |
| 170 | 302 compass_heading_shown res 2 ; Displayed heading |
| 0 | 303 compass_roll res 2 ; Rotation around the X axis |
| 304 compass_pitch res 2 ; Rotation arounf the Y axis | |
| 305 | |
| 306 compass_a res 2 ; Tmp data for Q15 arithmetics | |
| 307 compass_b res 2 | |
| 308 compass_r res 3 | |
| 309 | |
| 310 CNS_start res 2 ; CNS value at beginning of dive | |
| 311 GF_start res 1 ; GF value at beginning of dive | |
| 312 | |
| 313 ;---------------------------- Common DATA ------------------------------------ | |
| 314 | |
| 315 common equ 0x100 ; Alias for "banksel common" | |
| 316 common udata_ovr common ; Bank1 general variables | |
| 317 | |
| 318 ;---- Time and Date | |
| 319 secs res 1 | |
| 320 mins res 1 | |
| 321 hours res 1 | |
| 322 day res 1 | |
| 323 month res 1 | |
| 324 year res 1 | |
| 325 surface_interval res 2 | |
| 326 | |
| 327 flag1 res 1 | |
| 328 flag2 res 1 | |
| 329 flag3 res 1 | |
| 330 flag4 res 1 | |
| 331 flag5 res 1 | |
| 332 flag6 res 1 | |
| 333 flag7 res 1 | |
| 334 flag8 res 1 | |
|
16
7b06f20881be
calm compass reading for minor heading changes
heinrichsweikamp
parents:
15
diff
changeset
|
335 flag9 res 1 |
| 113 | 336 flag10 res 1 |
|
189
e79bc535ef9e
ignore un-calibrated sensors even if they become valid
heinrichsweikamp
parents:
188
diff
changeset
|
337 flag11 res 1 |
| 0 | 338 |
| 339 temp1 res 1 | |
| 340 temp2 res 1 | |
| 341 | |
| 342 ;---- Interface to wait macros | |
| 343 wait_temp res 1 | |
| 344 waitms_temp res 1 | |
| 345 | |
| 346 ;---- Interface to graphic subroutines (aa_wordprocessor, color_processor, ...) | |
| 347 win_leftx2 res 1 | |
| 348 win_top res 1 | |
| 349 win_width res 2 | |
| 350 win_height res 1 | |
| 351 win_bargraph res 1 | |
| 352 win_color1 res 1 | |
| 353 win_color2 res 1 | |
| 354 win_font res 1 | |
| 355 | |
| 356 ;---- Draw subroutines | |
| 357 tft_temp4 res 1 | |
| 358 tft_temp3 res 1 | |
| 359 tft_temp2 res 1 | |
| 360 tft_temp1 res 1 | |
| 361 | |
| 362 ;---- data conversion subroutines | |
| 363 lo res 1 | |
| 364 hi res 1 | |
| 365 up res 1 | |
| 366 | |
| 367 ;---- RS232 temp variables | |
| 368 uart1_temp res 1 | |
| 369 uart2_temp res 1 | |
| 370 | |
| 371 ;---- Data for math subroutines | |
| 372 divA res 2 | |
| 373 divB res 1 | |
| 374 xC res 4 | |
| 375 xA res 2 | |
| 376 xB res 2 | |
| 377 sub_c res 2 | |
| 378 sub_a res 2 | |
| 379 sub_b res 2 | |
| 380 | |
| 381 ;---- Data for conversion subroutines | |
| 382 cvt_flags res 1 | |
| 383 ignore_digits res 1 | |
| 384 | |
| 385 #define leftbind cvt_flags,0 | |
| 386 #define ignore_digit3 cvt_flags,1 | |
| 387 #define ignore_digit4 cvt_flags,2 | |
| 388 #define ignore_digit5 cvt_flags,3 | |
| 389 #DEFINE enable_screen_dumps cvt_flags,4 ; =1: Ignore vin_usb, wait for "l" command (Screen dump) | |
| 390 | |
| 391 ;---- Misc. | |
| 392 speed_setting res 1 ; =1: Eco, =2: Normal, =3: Fastest | |
| 393 nofly_time res 2 ; No Fly time in Minutes (Calculated after Dive) | |
| 394 timeout_counter res 1 | |
| 395 timeout_counter2 res 1 | |
| 396 timeout_counter3 res 1 | |
| 397 batt_voltage res 2 ; Battery voltage in mV | |
| 398 batt_percent res 1 ; Battery in percent (1-100) | |
| 399 ambient_light res 2 ; ambient_light level | |
| 400 lo_temp res 1 | |
| 401 hi_temp res 1 | |
| 402 desaturation_time res 2 | |
|
97
53a99a2dc6a1
CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents:
96
diff
changeset
|
403 convert_value_temp res 3 ; used in menu_battery_state_convert_date |
| 0 | 404 active_gas res 1 |
|
97
53a99a2dc6a1
CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents:
96
diff
changeset
|
405 active_diluent res 1 ; As a backup when switching back from Bailout to CCR |
| 0 | 406 decoplan_page res 1 |
| 407 warning_counter res 1 ; Counts amount of warning in divemode | |
| 408 warning_counter_backup res 1 ; Backup of warning_counter | |
| 409 warning_page res 1 ; current # of warning page | |
| 410 | |
| 411 ; Remind history for menu processor (and such): | |
| 412 menustack res 5 ; menu stack | |
| 413 menupos res 1 ; Logbook and divemode menu | |
| 414 menupos2 res 1 ; For dive mode simulator and pre-menu | |
| 415 menupos3 res 1 ; For Customviews | |
| 416 menupos4 res 1 ; For divemode menu | |
| 417 | |
| 418 ; Apnoe stuff that must be in bank common | |
| 419 apnoe_mins res 1 | |
| 420 apnoe_secs res 1 | |
| 421 apnoe_max_pressure res 2 | |
| 422 | |
| 423 ; Divemode | |
| 424 divemins res 2 | |
| 425 divesecs res 1 | |
|
23
e402813343b6
new option to switch samplingrate between 10s and 2s
heinrichsweikamp
parents:
18
diff
changeset
|
426 samplingrate res 1 |
| 0 | 427 samplesecs_value res 1 |
| 428 divisor_temperature res 1 | |
| 429 divisor_deco res 1 | |
| 430 divisor_gf res 1 | |
| 431 divisor_ppo2_sensors res 1 | |
| 432 divisor_decoplan res 1 | |
| 433 divisor_cns res 1 | |
| 434 divisor_tank res 1 | |
| 435 average_depth_hold res 4 | |
| 436 average_depth_hold_total res 4 | |
| 437 total_divetime_seconds res 2 | |
| 438 average_divesecs res 2 ; For the resettable stopwatch | |
| 439 decodata res 2 | |
| 440 apnoe_timeout_counter res 1 | |
| 441 apnoe_surface_mins res 1 | |
| 442 apnoe_surface_secs res 1 | |
| 98 | 443 tft_gaslist_temp res 1 |
| 0 | 444 |
| 445 ; Profile storing | |
| 446 AlarmType res 1 | |
| 447 samplesecs res 1 | |
| 448 EventByte res 1 | |
| 98 | 449 EventByte2 res 1 |
| 0 | 450 ProfileFlagByte res 1 |
| 451 | |
| 452 ; External flash | |
| 453 ext_flash_address res 3 ; 24bit Address | |
| 454 ext_flash_log_pointer res 3 ; 24bit Address for logbook profile storing | |
| 455 ext_flash_dive_counter res 3 ; 24bit Counter for dive length (increased in write_byte_ext_flash_plus) | |
| 456 | |
| 457 ; I2C | |
| 113 | 458 i2c_temp res 2 ; Temp |
| 0 | 459 |
| 460 ; O2 Sensor data | |
| 461 o2_mv_sensor1 res 2 ; in 0.1mV steps | |
| 462 o2_mv_sensor2 res 2 ; in 0.1mV steps | |
| 463 o2_mv_sensor3 res 2 ; in 0.1mV steps | |
| 464 o2_ppo2_sensor1 res 1 ; Sensor1 ppO2 (in 0.01bar steps) | |
| 465 o2_ppo2_sensor2 res 1 ; Sensor2 ppO2 (in 0.01bar steps) | |
| 466 o2_ppo2_sensor3 res 1 ; Sensor3 ppO2 (in 0.01bar steps) | |
| 467 hud_battery_mv res 2 | |
| 468 hud_status_byte res 1 | |
| 469 ;Status Byte/ | |
|
145
e3ac5b2021bc
NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents:
143
diff
changeset
|
470 #DEFINE hud_connection_ok hud_status_byte,0 ;Bit0 = 1 -> HUD connection ok |
| 0 | 471 ;Bit1 = 1 -> HUD is calibrated |
| 472 ;Bit2 = 1 -> HUD Battery is low (<3000mV) | |
|
145
e3ac5b2021bc
NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents:
143
diff
changeset
|
473 #DEFINE sensor1_active hud_status_byte,3 ;=1: Sensor1 is active |
|
e3ac5b2021bc
NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents:
143
diff
changeset
|
474 #DEFINE sensor2_active hud_status_byte,4 ;=1: Sensor2 is active |
| 113 | 475 #DEFINE sensor3_active hud_status_byte,5 ;=1: Sensor3 is active |
| 0 | 476 ;Bit6 unused in stand-alone HUD |
| 477 ;Bit7 unused in stand-alone HUD | |
| 478 | |
| 479 sensor_setpoint res 1 ; sensor ppo2 in 0.01bar for deco routine | |
| 480 | |
| 481 better_gas_number res 1 ; number (1-5) of the "better gas" in divemode, =0: no better gas available | |
|
39
e4e91fe8b09d
remember last customview in dive and surface mode
mh@mh-THINK.fritz.box
parents:
37
diff
changeset
|
482 customview_divemode res 1 ; keeps last custom view |
|
e4e91fe8b09d
remember last customview in dive and surface mode
mh@mh-THINK.fritz.box
parents:
37
diff
changeset
|
483 customview_surfmode res 1 |
|
104
223579e905c3
Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents:
101
diff
changeset
|
484 safety_stop_countdown res 1 ; counts seconds of safety stop |
|
223579e905c3
Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents:
101
diff
changeset
|
485 |
| 0 | 486 ;---------------------------- TMP DATA --------------------------------------- |
| 487 ; Space for various overlayed data from color, word, menu processors, etc. | |
| 488 ; | |
| 489 | |
| 490 tmp udata_ovr 0x1A0 ; Bank1 shared TMP space | |
| 491 tmp equ 0x1A0 ; Alias for CBLOCK directive. | |
| 492 res 0x060 ; RESERVED area. | |
| 493 | |
| 494 ;----------------------------------------------------------------------------- | |
| 495 ; Reserve BANK2 for general purpose buffer (strings, images, etc). | |
| 496 ; NOTE: Needs to be aligned with a bank (LOW(buffer)==0). | |
| 497 buffer udata_ovr 0x200 | |
| 498 buffer res .256 | |
| 499 | |
| 500 opt_table equ 0xE00 | |
| 501 opt_table udata_ovr opt_table | |
| 502 | |
| 503 ;---- Dive Options | |
| 504 opt_gas_O2_ratio res 5 ; Needed because deco gaslist use N2 | |
| 505 opt_dil_O2_ratio res 5 ; Must be in line with opt_gas_O2_ratio | |
| 506 opt_gas_He_ratio res 5 ; He ratio Gas1-5 | |
| 507 opt_dil_He_ratio res 5 ; Must be in line with opt_gas_He_ratio | |
| 508 opt_gas_type res 5 ; 0=Disabled, 1=First, 2=Travel, 3=Deco | |
| 509 opt_dil_type res 5 ; 0=Disabled, 1=First, 2=Normal | |
| 510 opt_dive_mode res 1 ; 0=OC, 1=CC, 2=Gauge, 3=Apnea | |
| 511 opt_ppO2_max res 1 ; PPO2 Max for MOD calculation and color coding in divemode | |
| 512 opt_ccr_mode res 1 ; =0: Fixed SP, =1: Sensor | |
| 513 opt_ppO2_min res 1 ; PPO2 min for Sensors and color coding in divemode | |
|
97
53a99a2dc6a1
CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents:
96
diff
changeset
|
514 opt_OC_bail_gas_change res 5 ; Gas change depths OC/Bailout |
| 0 | 515 ;---- Managing Settings |
| 516 | |
| 517 opt_brightness res 1 ; =0: Eco, =1:Medium, =2:Full | |
| 518 opt_salinity res 1 ; 0-5% | |
| 519 #DEFINE opt_name_length .60 ; Custom text string 5 rows with 12 chars | |
| 520 opt_name res opt_name_length | |
| 521 opt_language res 1 ; Current language. 0=EN, 1=DE, 2=FR, 3=SP | |
| 522 opt_units res 1 ; 0:m/°C, 1:ft/°F | |
| 523 opt_dateformat res 1 ; =0:MMDDYY, =1:DDMMYY, =2:YYMMDD | |
| 524 opt_last_stop res 1 ; =3:3m, =4:4m, =5:5m, =6:6m | |
| 525 opt_aGF_high res 1 ; Alternative GF HIGH | |
| 526 opt_aGF_low res 1 ; Alternative GF LOW | |
| 527 opt_GF_high res 1 ; GF HIGH | |
| 528 opt_GF_low res 1 ; GF LOW | |
| 529 opt_enable_aGF res 1 ; =1: aGF can be selected underwater | |
|
18
4e3f133dfbf4
add new opt_compass_gain option to work with more magnetic battery types
heinrichsweikamp
parents:
17
diff
changeset
|
530 opt_compass_gain res 1 ; 0-7 (230LSB/Gauss to 1370LSB/Gaus) |
| 24 | 531 opt_sampling_rate res 1 ; =1: 10s, =0: 2s |
| 50 | 532 opt_dive_color_scheme res 1 ; 0-3 |
|
92
7ca1105751c7
add sensor calibration option (PC only), some cleanup
heinrichsweikamp
parents:
89
diff
changeset
|
533 opt_pressure_adjust res 1 ; SIGNED int (two's complement), -20/+20mbar max. |
|
104
223579e905c3
Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents:
101
diff
changeset
|
534 opt_enable_safetystop res 1 ; =1: A safety stop is shown |
| 113 | 535 opt_calibration_O2_ratio res 1 ; %O2 of calibration gas |
| 536 opt_x_s1 res 2 ; calibration factor (Not stored in EEPROM) | |
| 537 opt_x_s2 res 2 ; calibration factor (Not stored in EEPROM) | |
| 538 opt_x_s3 res 2 ; calibration factor (Not stored in EEPROM) | |
|
145
e3ac5b2021bc
NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents:
143
diff
changeset
|
539 opt_sensor_fallback res 1 ; =1: Fallback to SP1 when sensor is lost |
|
155
5f71e31bd5b3
CHANGE: Re-arranged Settings Menu, add 180? rotate to menu
heinrichsweikamp
parents:
151
diff
changeset
|
540 opt_flip_screen res 1 ; =1: Flip the screen |
| 0 | 541 |
| 542 ;-----------------------------EEPROM DATA ------------------------------------ | |
| 543 ; Automatic reset of all options when this is changed: | |
| 544 #define eeprom_opt_serial 0x0005 ; Version 0.5 | |
| 545 | |
| 546 ;----------------------------------------------------------------------------- | |
| 547 ; Flags | |
| 548 #DEFINE switch_left flag1,0 | |
| 549 #DEFINE switch_right flag1,1 | |
| 550 #DEFINE neg_flag flag1,2 ; e.g. sub16 (sub_c = sub_a - sub_b) | |
| 551 #DEFINE pressure_refresh flag1,3 ; =1: A new pressure/temperature is available | |
| 552 #DEFINE sleepmode flag1,4 ; =1: In Sleepmode | |
| 553 #DEFINE tft_is_dimming flag1,5 ; =1: The TFT is dimming, ignore light sensor | |
| 554 #DEFINE display_velocity flag1,6 ; =1: show velocity | |
| 555 #DEFINE no_sensor_int flag1,7 ; =1: block any further access to pressure sensor | |
| 556 | |
| 557 #DEFINE rs232_recieve_overflow flag2,0 ; =1: An RS232 timeout overflow occoured | |
| 558 #DEFINE stored_gas_changed flag2,1 ; =1: Stored Gas changed | |
| 559 #DEFINE high_altitude_mode flag2,2 ; =1: Unit was manually turned on with ambient pressure <880mbar | |
| 560 #DEFINE FLAG_apnoe_mode flag2,3 ; =1: Apnoe mode selected | |
| 561 #DEFINE restore_deco_data flag2,4 ; =1: Restore deco data (After simulation) | |
| 562 #DEFINE premenu flag2,5 ; =1: Premenu/Divemenu selected | |
| 563 #DEFINE menubit flag2,6 ; menu | |
| 564 #DEFINE simulatormode_active flag2,7 ; =1: Simulator mode active, override pressure sensor readings | |
| 565 | |
| 566 #DEFINE divemode_menu flag3,0 ; =1: Divemode menu is shown | |
| 567 #DEFINE onesecupdate flag3,1 ; =1 after any second | |
| 568 #DEFINE twosecupdate flag3,2 ; =1: New two-second update | |
| 569 #DEFINE toggle_customview flag3,3 ; =1: Next customview | |
| 570 #DEFINE oneminupdate flag3,4 ; =1 after any minute | |
| 571 #DEFINE divemode flag3,5 ; =1: in Divemode | |
| 572 #DEFINE battery_is_36v flag3,6 ; =1: 3,6V Battery is in use | |
| 573 #DEFINE warning_active flag3,7 ; =1: A warning is active in divemode or surfacemode | |
| 574 | |
| 575 #DEFINE better_gas_available flag4,0 ; =1: A better gas is available | |
| 576 #DEFINE blinking_better_gas flag4,1 ; =1: Gas is blinking | |
| 577 #DEFINE menuview flag4,2 ; =1: A menuview is shown in divemode (e.g. "Menu?") | |
| 578 #DEFINE quarter_second_update flag4,3 ; =1: A new 1/4 second has begun | |
| 579 #DEFINE divemode_gaschange flag4,4 ; =1: The gas will change very soon | |
| 580 #DEFINE decostop_active flag4,5 ; =1: Decompression stop shown | |
| 581 #DEFINE depth_greater_100m flag4,6 ; =1: Current Depth > 100m | |
| 582 #DEFINE realdive flag4,7 ; =1: A real dive during divemode | |
| 583 | |
| 584 #DEFINE dive_warning_displayed flag5,0 ; =1: The warning sign is shown | |
| 585 #DEFINE reset_average_depth flag5,1 ; =1: Reset the average depth | |
| 586 #DEFINE store_sample flag5,2 ; =1: Store a new sample | |
| 587 #DEFINE divemode2 flag5,3 ; =1: Dive longer then one minute | |
| 588 #DEFINE FLAG_active_descent flag5,4 ; Used in Apnoe mode | |
| 589 #DEFINE event_occured flag5,5 ; =1: An event occured, store it! | |
| 590 #DEFINE divemode_menu_active flag5,6 ; =1: The divemode menu is shown | |
| 591 #DEFINE temp_changed flag5,7 ; =1: The temperature changed | |
| 592 | |
| 593 #DEFINE gas6_changed flag6,0 ; =1: Gas 6 has been selected/changed underwater | |
| 594 #DEFINE onehourupdate flag6,1 ; =1: A new hour has just begun | |
| 595 #DEFINE settime_setdate flag6,2 ; =1: In the Set Time or Set Date Menu | |
| 596 #DEFINE setpoint_changed flag6,3 ; =1: Setpoint has been changed | |
| 597 #DEFINE second_row_warning flag6,4 ; =1: The second row contains a warning | |
| 598 #DEFINE FLAG_ccr_mode flag6,5 ; =1: CCR mode (Fixed ppO2 or Sensor) active | |
| 599 #DEFINE dive_hud1_displayed flag6,6 ; =1: The Sensor1 HUD reading is displayed | |
| 600 #DEFINE dive_hud2_displayed flag6,7 ; =1: The Sensor2 HUD reading is displayed | |
| 601 | |
| 602 #DEFINE dive_hud3_displayed flag7,0 ; =1: The Sensor3 HUD reading is displayed | |
| 603 #DEFINE no_more_divesecs flag7,1 ; =1: Do no longer show seconds in divemode | |
| 604 #DEFINE FLAG_gauge_mode flag7,2 ; =1: In Gauge mode | |
| 605 #DEFINE ignore_last_edited_gas flag7,3 ; Used in gaslist_cleanup_list | |
| 606 #DEFINE ccr_diluent_setup flag7,4 ; =1: Setting up Diluents ("Gas6-10") | |
| 607 #DEFINE menu_show_sensors flag7,5 ; =1: Update HUD data in menu | |
| 608 #DEFINE short_gas_decriptions flag7,6 ; =1: Use short versions of gaslist_strcat_gas_mod and gaslist_strcat_setpoint | |
| 11 | 609 #DEFINE max_depth_greater_100m flag7,7 ; =1: Max. Depth > 100m |
| 0 | 610 |
| 611 #DEFINE is_bailout flag8,0 ; =1: Bailout | |
| 612 #DEFINE is_bailout_menu flag8,1 ; =1: Bailout | |
| 613 #DEFINE toggle_gf flag8,2 ; =1: Toggle GF/aGF | |
| 614 #DEFINE use_agf flag8,3 ; =1: Use aGF (instead of GF) | |
| 615 #DEFINE battery_removed_in_usb flag8,4 ; =1: The battery has been removed in USB | |
| 616 #DEFINE adc_running flag8,5 ; =1: The ADC is in use | |
| 617 #DEFINE comm_service_enabled flag8,6 ; =1: COMM Service mode unlocked | |
| 618 #DEFINE compass_enabled flag8,7 ; =1: The compass and accelerometer chip is active | |
| 619 | |
|
16
7b06f20881be
calm compass reading for minor heading changes
heinrichsweikamp
parents:
15
diff
changeset
|
620 #DEFINE compass_fast_mode flag9,0 ; =1: The compass is in fast mode |
| 50 | 621 #DEFINE in_color_menu flag9,1 ; =1: In the color scheme menu |
| 98 | 622 #DEFINE bailoutgas_event flag9,2 ; =1: bailout was selected or a gaschange during bailout |
|
189
e79bc535ef9e
ignore un-calibrated sensors even if they become valid
heinrichsweikamp
parents:
188
diff
changeset
|
623 #DEFINE win_invert flag9,3 ; =1: Invert font output |
|
104
223579e905c3
Show a Safety Stop if enabled (Menu "Deco Parameters")
heinrichsweikamp
parents:
101
diff
changeset
|
624 #DEFINE show_safety_stop flag9,4 ; =1: Show the safety stop |
|
145
e3ac5b2021bc
NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents:
143
diff
changeset
|
625 #DEFINE safety_stop_active flag9,5 ; =1: The safety stop is currently displayed |
| 113 | 626 #DEFINE new_s8_data_available flag9,6 ; =1: New data frame recieved |
|
145
e3ac5b2021bc
NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents:
143
diff
changeset
|
627 #DEFINE c3_hardware flag9,7; =1: OSTC 3C hardware |
| 113 | 628 |
| 629 #DEFINE s8_digital flag10,0; =1: Digital I/O | |
|
145
e3ac5b2021bc
NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents:
143
diff
changeset
|
630 #DEFINE menu_show_sensors2 flag10,1; =1: Update mV data in calibration menu |
|
e3ac5b2021bc
NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents:
143
diff
changeset
|
631 #DEFINE use_02_sensor1 flag10,2; =1: Use this sensor for deco |
|
e3ac5b2021bc
NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents:
143
diff
changeset
|
632 #DEFINE use_02_sensor2 flag10,3; =1: Use this sensor for deco |
|
e3ac5b2021bc
NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents:
143
diff
changeset
|
633 #DEFINE use_02_sensor3 flag10,4; =1: Use this sensor for deco |
|
e3ac5b2021bc
NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents:
143
diff
changeset
|
634 #DEFINE setpoint_fallback flag10,5; =1: Fallback to SP1 due to external O2 sensor failure |
|
e3ac5b2021bc
NEW: Setpoint-Fallback option for external O2 sensor failure
heinrichsweikamp
parents:
143
diff
changeset
|
635 #DEFINE blinking_setpoint flag10,6; =1: SP is blinking |
| 151 | 636 #DEFINE flip_screen flag10,7; =1: Screen is flipped by 180° |
|
189
e79bc535ef9e
ignore un-calibrated sensors even if they become valid
heinrichsweikamp
parents:
188
diff
changeset
|
637 |
|
e79bc535ef9e
ignore un-calibrated sensors even if they become valid
heinrichsweikamp
parents:
188
diff
changeset
|
638 #DEFINE sensor1_calibrated_ok flag11,0; =1: This sensor has been calibrated ok |
|
e79bc535ef9e
ignore un-calibrated sensors even if they become valid
heinrichsweikamp
parents:
188
diff
changeset
|
639 #DEFINE sensor2_calibrated_ok flag11,1; =1: This sensor has been calibrated ok |
|
e79bc535ef9e
ignore un-calibrated sensors even if they become valid
heinrichsweikamp
parents:
188
diff
changeset
|
640 #DEFINE sensor3_calibrated_ok flag11,2; =1: This sensor has been calibrated ok |
|
e79bc535ef9e
ignore un-calibrated sensors even if they become valid
heinrichsweikamp
parents:
188
diff
changeset
|
641 |
|
e79bc535ef9e
ignore un-calibrated sensors even if they become valid
heinrichsweikamp
parents:
188
diff
changeset
|
642 |
| 0 | 643 ;============================================================================= |
| 644 ; C-code Routines | |
| 645 ; PART 2 | |
| 646 extern deco_calc_CNS_decrease_15min | |
| 647 extern deco_calc_CNS_fraction | |
| 648 extern deco_calc_desaturation_time | |
| 649 extern deco_calc_hauptroutine | |
| 650 extern deco_calc_tissue | |
| 651 extern deco_calc_percentage | |
| 652 extern deco_calc_wo_deco_step_1_min | |
| 653 extern deco_calc_dive_interval | |
| 654 extern deco_clear_CNS_fraction | |
| 655 extern deco_clear_tissue | |
| 656 extern deco_pull_tissues_from_vault | |
| 657 extern deco_push_tissues_to_vault | |
| 658 |