Mercurial > public > hwos_code
annotate src/gaslist.asm @ 631:185ba2f91f59
3.09 beta 1 release
| author | heinrichsweikamp |
|---|---|
| date | Fri, 28 Feb 2020 15:45:07 +0100 |
| parents | cd58f7fc86db |
| children | 4050675965ea |
| rev | line source |
|---|---|
| 0 | 1 ;============================================================================= |
| 2 ; | |
| 631 | 3 ; File gaslist.asm combined next generation V3.08.8 |
| 0 | 4 ; |
| 275 | 5 ; Managing OSTC gas list |
| 0 | 6 ; |
| 7 ; Copyright (c) 2011, JD Gascuel, HeinrichsWeikamp, all right reserved. | |
| 8 ;============================================================================= | |
| 9 ; HISTORY | |
| 10 ; 2011-08-11 : [jDG] Creation. | |
| 11 | |
| 604 | 12 #include "hwos.inc" ; mandatory header |
| 582 | 13 #include "convert.inc" |
| 623 | 14 #include "math.inc" ; div16x16 for MOD calculation |
| 582 | 15 #include "strings.inc" |
| 16 #include "tft.inc" | |
| 17 #include "tft_outputs.inc" | |
| 18 #include "shared_definitions.h" | |
| 604 | 19 #include "wait.inc" |
| 623 | 20 #include "rx_ops.inc" |
| 604 | 21 |
| 0 | 22 |
| 631 | 23 extern convert_meter_to_feet |
| 604 | 24 extern tSetup_GasDepth |
| 582 | 25 extern tGasDisabled |
| 26 extern tDilDisabled | |
| 604 | 27 extern tLiter |
| 28 extern tbar10 | |
| 582 | 29 extern tbar |
| 0 | 30 |
| 631 | 31 IFDEF _cave_mode |
| 32 extern cavemode_waypoint_set_check | |
| 33 extern cavemode_waypoint_out_check | |
| 34 extern cavemode_waypoint_in_check | |
| 35 extern cavemode_turndive_check | |
| 36 ENDIF | |
| 37 | |
| 623 | 38 |
| 39 gaslist CODE | |
| 40 | |
| 41 ;----------------------------------------------------------------------------- | |
| 0 | 42 |
| 43 ;============================================================================= | |
| 604 | 44 ; Helper Functions for divemenu_tree.asm |
| 45 ; | |
| 631 | 46 ; These functions need to be placed in a different |
| 47 ; file than where the MENU_DYNAMIC macros use them. | |
| 604 | 48 |
| 631 | 49 ;----------------------------------------------------------------------------- |
| 50 | |
| 51 global label_do_toggle_gf | |
| 52 label_do_toggle_gf: | |
| 53 movff char_I_model,WREG ; 0 = ZH-L16, 1 = ZH-L16-GF | |
| 604 | 54 decfsz WREG,W ; toggle GF only in GF modes - in GF mode? |
| 55 bra do_toggle_gf_label_1 ; NO - print in disabled color | |
| 56 movff opt_enable_aGF,WREG ; =1: aGF can be selected underwater | |
| 57 decfsz WREG,W ; aGF enabled? | |
| 58 bra do_toggle_gf_label_1 ; NO - print in disabled color | |
| 59 bra do_toggle_gf_label_2 ; YES to both - print in standard color | |
| 60 do_toggle_gf_label_1: | |
| 631 | 61 call TFT_disabled_color ; print in disabled color |
| 604 | 62 do_toggle_gf_label_2: |
| 631 | 63 STRCAT_TEXT tDivemenu_ToggleGF ; output label |
| 64 return ; done | |
| 65 | |
| 604 | 66 |
| 631 | 67 global label_do_gas6_or_exit |
| 68 label_do_gas6_or_exit: | |
| 69 btfsc gas6_or_EXIT ; shall print exit? | |
| 70 bra label_do_gas6_or_exit_1 ; YES - print exit label | |
| 71 STRCAT_TEXT tGas6 ; NO - print gas 6 label | |
| 72 return ; - done | |
| 73 label_do_gas6_or_exit_1: | |
| 74 STRCAT_TEXT tExit ; print exit label | |
| 75 return ; done | |
| 76 | |
| 77 ;----------------------------------------------------------------------------- | |
| 604 | 78 |
| 79 IFDEF _cave_mode | |
| 623 | 80 |
| 631 | 81 global label_do_turn_dive |
| 82 label_do_turn_dive: | |
| 83 call cavemode_turndive_check ; check if command is allowed | |
| 84 tstfsz WREG ; command allowed? | |
| 85 call TFT_disabled_color ; NO - switch to disabled color | |
| 623 | 86 btfss cave_mode ; cave mode switched on? |
| 631 | 87 bra label_do_turn_dive_1 ; NO - print turn dive label |
| 88 btfss dive_turned ; YES - dive turned? | |
| 89 bra label_do_turn_dive_1 ; NO - print turn dive label | |
| 90 STRCAT_TEXT tDivemenu_ContDive ; YES - print continue dive label | |
| 91 return ; - done | |
| 92 label_do_turn_dive_1: | |
| 93 STRCAT_TEXT tDivemenu_TurnDive ; print turn dive label | |
| 94 return ; done | |
| 95 | |
| 96 global label_do_wp_set | |
| 97 label_do_wp_set: | |
| 98 call cavemode_waypoint_set_check ; check if command is allowed to execute | |
| 99 tstfsz WREG ; command allowed? | |
| 100 call TFT_disabled_color ; NO - switch to disabled color | |
| 101 STRCAT_TEXT tDivemenu_wp_set ; print label | |
| 102 return ; done | |
| 103 | |
| 104 global label_do_wp_out | |
| 105 label_do_wp_out: | |
| 106 call cavemode_waypoint_out_check ; check if command is allowed to execute | |
| 107 tstfsz WREG ; command allowed? | |
| 108 call TFT_disabled_color ; NO - switch to disabled color | |
| 109 STRCAT_TEXT tDivemenu_wp_out ; print label | |
| 110 return ; done | |
| 111 | |
| 112 global label_do_wp_in | |
| 113 label_do_wp_in: | |
| 114 call cavemode_waypoint_in_check ; check if command is allowed to execute | |
| 115 tstfsz WREG ; command allowed? | |
| 116 call TFT_disabled_color ; NO - switch to disabled color | |
| 117 STRCAT_TEXT tDivemenu_wp_in ; print label | |
| 118 return ; done | |
| 623 | 119 |
| 604 | 120 ENDIF |
| 121 | |
| 631 | 122 ;----------------------------------------------------------------------------- |
| 623 | 123 |
| 124 IFDEF _rx_functions | |
| 604 | 125 |
| 126 global do_toggle_max_pres_diff_label | |
| 127 do_toggle_max_pres_diff_label: | |
| 128 movff opt_TR_mode,WREG ; get TR mode | |
| 129 xorlw .2 ; compare with 2 (ind.double) | |
| 130 tstfsz WREG ; equal? | |
| 131 call TFT_disabled_color ; NO - print in disabled color | |
| 132 STRCAT_TEXT tTrMaxDeltaP ; output label | |
| 133 movff char_I_max_pres_diff,lo | |
| 134 output_99 | |
| 135 STRCAT_TEXT tbar ; " bar" | |
| 136 return | |
| 137 | |
| 623 | 138 ENDIF |
| 139 | |
| 631 | 140 ;----------------------------------------------------------------------------- |
| 623 | 141 |
| 142 IFDEF _ccr_pscr | |
| 143 | |
| 604 | 144 global gaslist_copy_dil_to_oc |
| 145 gaslist_copy_dil_to_oc: | |
| 146 ; | |
| 147 ; Memory Map: | |
| 148 ; ----------------------------------------- | |
| 149 ; opt_gas_O2_ratio res 5 | |
| 150 ; opt_dil_O2_ratio res 5 | |
| 151 ; opt_gas_He_ratio res 5 | |
| 152 ; opt_dil_He_ratio res 5 | |
| 153 ; opt_gas_type res 5 | |
| 154 ; opt_dil_type res 5 | |
| 155 ; opt_gas_change res 5 | |
| 156 ; opt_dil_change res 5 | |
| 157 ; | |
| 623 | 158 ; char_I_gas_avail_size res 10 |
| 159 ; char_I_gas_avail_pres res 10 | |
| 604 | 160 ; |
| 623 | 161 bcf copying_dil ; default to copying a gas |
| 604 | 162 movf gaslist_gas,W ; copy current gas or diluent number to WREG |
| 623 | 163 btfss is_diluent_menu ; setting up diluents? |
| 604 | 164 bra gaslist_copy_dil_to_oc_1 ; NO - gaslist_gas is already pointing to an OC gas |
| 165 addlw -.5 ; YES - subtract offset between diluents and gases | |
| 166 movwf gaslist_gas ; - let gaslist_gas point to the corresponding OC gas | |
| 623 | 167 bsf copying_dil ; - we are copying a diluent |
| 168 bcf is_diluent_menu ; - pretend we are setting up OC gases | |
| 604 | 169 gaslist_copy_dil_to_oc_1: |
| 170 lfsr FSR0,opt_dil_O2_ratio ; load base address of diluents settings, ASM variables | |
| 171 lfsr FSR1,opt_gas_O2_ratio ; load base address of gas settings, ASM variables | |
| 172 movff PLUSW0,PLUSW1 ; copy O2 ratio | |
| 173 addlw .10 ; add offset from O2 ratios to He ratios | |
| 174 movff PLUSW0,PLUSW1 ; copy He ratio | |
| 175 addlw .10 ; add offset from He ratios to types | |
| 176 movff PLUSW0,PLUSW1 ; copy type | |
| 177 addlw .10 ; add offset from type to change depth | |
| 178 movff PLUSW0,PLUSW1 ; copy change depth | |
| 179 addlw -.30 ; wind back to initial gas number | |
| 623 | 180 lfsr FSR0,char_I_gas_avail_size+5; load base address of diluents settings, shared variables |
| 181 lfsr FSR1,char_I_gas_avail_size+0; load base address of gas settings, shared variables | |
| 604 | 182 movff PLUSW0,PLUSW1 ; copy tank size |
| 183 addlw .10 ; add offset from tank sizes to pressure budget | |
| 184 movff PLUSW0,PLUSW1 ; copy pressure budget | |
| 185 call gaslist_cleanup_list ; make sure that there will be just one first gas | |
| 623 | 186 btfss copying_dil ; are we copying a diluent? |
| 604 | 187 return ; NO - done |
| 623 | 188 bsf is_diluent_menu ; YES - restore to be setting up diluents |
| 604 | 189 movlw .5 ; - offset between OC gases and diluents |
| 190 addwf gaslist_gas,F ; - let gaslist_gas point to the diluent again | |
| 191 WIN_BOX_BLACK .30,.239,.0,.159 ; - create some visual effect to show activity | |
| 192 WAITMS .200 ; - pause for 200 ms | |
| 193 return ; - done | |
| 194 | |
| 623 | 195 ENDIF |
| 196 | |
| 197 ;============================================================================= | |
| 604 | 198 |
| 199 ;============================================================================= | |
| 200 ; Append gas description to current string | |
| 201 ; | |
| 582 | 202 ; Input: PRODL : gas number (0..4) |
| 604 | 203 ; FSR2 : Current string position |
| 204 ; Output: Text appended into buffer pointed by FSR2 | |
| 582 | 205 |
| 206 global gaslist_strcat_gas | |
| 604 | 207 global gaslist_strcat_gas_WREG |
| 623 | 208 gaslist_strcat_gas: ; entry point with gas/dil in PRODL (0-4) and flag 'is_diluent_menu' set accordingly |
| 604 | 209 movff PRODL,gaslist_gas ; get current menu item (0-4) |
| 210 movlw .5 ; offset between gases and diluents | |
| 623 | 211 btfsc is_diluent_menu ; setting up diluents? |
| 604 | 212 addwf gaslist_gas,F ; YES - add the offset |
| 213 movf gaslist_gas,W ; copy to WREG | |
| 214 gaslist_strcat_gas_WREG: ; entry point with gas/dil in WREG (0-9) | |
| 215 lfsr FSR1,opt_gas_O2_ratio ; load base address of opt_gas_O2_ratio | |
| 216 movff PLUSW1,lo ; read O2 ratio | |
| 217 lfsr FSR1,opt_gas_He_ratio ; load base address of opt_gas_He_ratio | |
| 218 movff PLUSW1,hi ; read He ratio | |
| 623 | 219 goto gaslist_show_mix ; put "Nxlo", "Txlo/hi", "Air" or "O2" into Postinc2, and RETURN |
| 220 | |
| 0 | 221 |
| 222 ;============================================================================= | |
| 623 | 223 ; Append current mix to current string (for dive mode) |
| 604 | 224 ; |
| 225 ; Input: FSR2 : Current string position | |
| 226 ; Output: Text appended into buffer pointed by FSR2 | |
| 227 | |
| 582 | 228 global gaslist_strcat_gas6 |
| 604 | 229 gaslist_strcat_gas6: ; show current O2/He mix |
| 631 | 230 STRCAT_TEXT tTakeGas ; print "take" |
| 231 PUTC " " ; print one space | |
| 604 | 232 movff gas6_O2_ratio,hi ; TFT_color_code_gaslist needs O2 ratio in hi |
| 233 call TFT_color_code_gaslist ; color-code according to O2 ratio and depth | |
| 623 | 234 movff gas6_O2_ratio,lo ; gaslist_show_mix needs O2 ratio in lo |
| 235 IFDEF _helium | |
| 236 movff gas6_He_ratio,hi ; ... and He ratio in hi | |
| 237 ELSE | |
| 238 clrf hi ; ... and He ration will be zero | |
| 239 ENDIF | |
| 240 goto gaslist_show_mix ; put "Nxlo", "Txlo/hi", "Air" or "O2" into Postinc2, and return | |
| 241 | |
| 242 | |
| 604 | 243 ;============================================================================= |
| 244 ; Helper functions for menu_tree | |
| 0 | 245 |
| 604 | 246 global gaslist_GasDepth |
| 247 gaslist_GasDepth: | |
| 248 movf gaslist_gas,W ; load gas/dil index into WREG (0-9) | |
| 249 lfsr FSR1,opt_gas_change ; load base address of change depths | |
| 250 tstfsz PLUSW1 ; change depth = 0 ? | |
| 251 bra gaslist_GasDepth_1 ; NO | |
| 252 lfsr FSR1,opt_gas_type ; YES - load base address of opt_gas_type | |
| 253 tstfsz PLUSW1 ; - type = disabled ? | |
| 254 call TFT_attention_color ; NO - print in attention color (yellow) | |
| 255 gaslist_GasDepth_1: | |
| 256 STRCAT_TEXT tSetup_GasDepth | |
| 257 return | |
| 582 | 258 |
| 623 | 259 |
| 582 | 260 global gaslist_show_type |
| 0 | 261 gaslist_show_type: |
| 582 | 262 movf gaslist_gas,W |
| 604 | 263 lfsr FSR1,opt_gas_type ; load base address of opt_gas_type |
| 264 movff PLUSW1,lo ; read gas type | |
| 582 | 265 STRCAT_TEXT tType |
| 604 | 266 lfsr FSR1,tGasDisabled ; load base address of gas type labels |
| 623 | 267 btfsc is_diluent_menu ; setting up diluents? |
| 604 | 268 lfsr FSR1,tDilDisabled ; YES - load base address of diluent type labels |
| 582 | 269 movff lo,WREG ; 0-3 |
| 270 rlncf WREG ; x2 | |
| 604 | 271 addwf FSR1L,F ; adjust address pointer to required text |
| 582 | 272 movlw .0 |
| 273 addwfc FSR1H,F | |
| 604 | 274 call strcat_text ; copy label text |
| 582 | 275 return |
| 0 | 276 |
| 604 | 277 |
| 582 | 278 global gaslist_toggle_type |
| 0 | 279 gaslist_toggle_type: |
| 604 | 280 lfsr FSR1,opt_gas_type ; load base address of opt_gas_type |
| 631 | 281 movf gaslist_gas,W ; copy gas number (0-9) to WREG |
| 282 movff PLUSW1,lo ; read type value | |
| 283 incf lo,F ; increment type value | |
| 284 movlw num_gas_types ; get number of gas types by default | |
| 623 | 285 btfsc is_diluent_menu ; setting up diluents? |
| 631 | 286 movlw num_dil_types ; YES - replace by number of diluent types |
| 287 cpfslt lo ; type value valid? | |
| 288 clrf lo ; NO - clear to zero | |
| 289 movf gaslist_gas,W ; restore gas number (0-9) in WREG | |
| 604 | 290 movff lo,PLUSW1 ; copy back result |
| 631 | 291 return ; done |
| 0 | 292 |
| 623 | 293 ;============================================================================= |
| 294 | |
| 295 IFDEF _ccr_pscr | |
| 582 | 296 |
| 297 global gaslist_strcat_setpoint | |
| 298 global gaslist_strcat_setpoint_0 | |
| 604 | 299 gaslist_strcat_setpoint: ; entry point with setpoint index in PRODL |
| 300 movff PRODL,gaslist_gas ; get current menu item (0-4) | |
| 301 gaslist_strcat_setpoint_0: ; entry point with setpoint index in gaslist_gas | |
| 582 | 302 bsf leftbind |
| 623 | 303 btfsc short_gas_descriptions ; shall use short versions of gaslist_strcat_setpoint? |
| 604 | 304 bra gaslist_strcat_setpoint2 ; YES - use short version |
| 305 STRCAT_TEXT tSP ; "SP" | |
| 306 incf gaslist_gas,W ; (0-4) -> (1-5) into WREG | |
| 582 | 307 movwf lo |
| 604 | 308 output_8 ; print SP number |
| 582 | 309 bcf leftbind |
| 310 PUTC ":" | |
| 604 | 311 gaslist_strcat_setpoint2: ; short version |
| 582 | 312 btfsc divemode |
| 623 | 313 bra gaslist_strcat_setpoint4 ; no "*" in dive mode |
| 604 | 314 movf gaslist_gas,W ; (0-4) into WREG |
| 315 bnz gaslist_strcat_setpoint3 ; SP index = 0 ? | |
| 316 PUTC "*" ; YES - print * | |
| 317 bra gaslist_strcat_setpoint4 ; - continue with cbar value | |
| 318 gaslist_strcat_setpoint3: ; NO | |
| 319 PUTC " " ; - print a space | |
| 0 | 320 gaslist_strcat_setpoint4: |
| 604 | 321 movf gaslist_gas,W ; (0-4) into WREG |
| 623 | 322 lfsr FSR1,opt_setpoint_cbar ; load base address of setpoint cbar values |
| 604 | 323 movf PLUSW1,W ; read cbar value |
| 582 | 324 movwf lo |
| 325 clrf hi | |
| 326 bsf leftbind | |
| 604 | 327 output_16dp d'3' ; print as X.XX |
| 623 | 328 btfsc divemode ; in dive mode? |
| 329 bra gaslist_strcat_setpoint5 ; YES - skip text in dive mode | |
| 604 | 330 STRCAT_TEXT tbar ; NO - print "bar" |
| 0 | 331 gaslist_strcat_setpoint5: |
| 604 | 332 PUTC " " ; print a space |
| 333 movf gaslist_gas,W ; (0-4) into WREG | |
| 623 | 334 lfsr FSR1,opt_setpoint_change ; load base address of switch depths |
| 604 | 335 movff PLUSW1,lo ; read switch depth into lo |
| 336 bra gaslist_strcat_depth ; print depth in meters or ft | |
| 582 | 337 |
| 623 | 338 ENDIF ; _ccr_pscr |
| 0 | 339 |
| 340 ;---------------------------------------------------------------------------- | |
| 604 | 341 ; Append gas description to current string |
| 342 ; | |
| 343 ; Prints gas number, * if first, = if deco gas, gas composition and change depth, | |
| 344 ; including fancy color-coding | |
| 0 | 345 ; |
| 604 | 346 ; Input: PRODL gas number (0..4) |
| 347 ; FSR2 current string position | |
| 348 ; Output: text appended to buffer pointed by FSR2 | |
| 349 ; | |
| 350 ; NOTE: used in the menu-tree for the MENU_CALLBACK entry | |
| 0 | 351 |
| 604 | 352 global gaslist_strcat_gas_cd |
| 623 | 353 gaslist_strcat_gas_cd: ; entry point with gas in PRODL (0-4) and flag 'is_diluent_menu' set accordingly |
| 604 | 354 movff PRODL,gaslist_gas ; get current menu item (0-4) |
| 355 movlw .5 ; offset between gases and diluents | |
| 631 | 356 btfsc is_diluent_menu ; dealing with diluents? |
| 604 | 357 addwf gaslist_gas,F ; YES - add the offset |
| 631 | 358 ;bra gaslist_gastitle ; continue with gaslist_gastitle function |
| 359 | |
| 360 global gaslist_gastitle | |
| 604 | 361 gaslist_gastitle: ; entry point with gas/dil in gaslist_gas (0-4 for gases, 5-9 for diluents) |
| 362 bcf win_invert ; clear flag for inverted output by default | |
| 623 | 363 btfsc short_gas_descriptions ; shall use short versions of gaslist_strcat_gas_cd? |
| 604 | 364 bra gaslist_gastitle1 ; YES - use short version |
| 365 incf gaslist_gas,W ; (0-9) -> (1-10) into WREG | |
| 631 | 366 movwf lo ; copy gas index to lo |
| 604 | 367 movlw .6 ; diluents start with 6 |
| 368 cpfslt lo ; gas number < 6 ? | |
| 369 bra gaslist_gastitle_dil ; NO - it's a diluent | |
| 370 STRCAT_TEXT tGas ; YES - it's a gas | |
| 631 | 371 bra gaslist_gastitle0 ; - continue |
| 604 | 372 gaslist_gastitle_dil: |
| 631 | 373 STRCAT_TEXT tDil ; it's a diluent |
| 604 | 374 movlw .5 ; offset between gases and diluents |
| 631 | 375 subwf lo,F ; subtract offset from diluent number (6-10) -> (1-5) again |
| 582 | 376 gaslist_gastitle0: |
| 377 bsf leftbind | |
| 604 | 378 output_8 ; print gas/dil number (1-5) |
| 582 | 379 bcf leftbind |
| 380 PUTC ":" | |
| 604 | 381 gaslist_gastitle1: ; short version of gaslist_strcat_gas_cd |
| 623 | 382 btfsc divemode ; in dive mode? |
| 604 | 383 bra gaslist_gastitle3 ; YES - no "*" and "=" in front of gas composition, no highlighting for transmitters paired |
| 384 | |
| 385 IFDEF _rx_functions | |
| 623 | 386 btfss tr_functions_activated ; NO - TR functions activated? |
| 604 | 387 bra gaslist_gastitle2 ; NO - continue with gas type |
| 388 lfsr FSR1,opt_transmitter_id_1 ; YES - load base address of transmitter ID table | |
| 389 movf gaslist_gas,W ; - (0-4 for OC/Bailout, 5-9 for Diluents) | |
| 390 rlncf WREG,W ; - index x2 because IDs are 2 byte | |
| 391 tstfsz PLUSW1 ; - transmitter ID low byte <> 0 ? | |
| 392 bsf win_invert ; YES - flag transmitter paired by inverting output | |
| 393 incf WREG,W ; - increment index | |
| 394 tstfsz PLUSW1 ; - transmitter ID high byte <> 0 ? | |
| 395 bsf win_invert ; YES - flag transmitter paired by inverting output | |
| 396 ENDIF | |
| 397 | |
| 582 | 398 gaslist_gastitle2: |
| 604 | 399 rcall gaslist_strcat_gas_type ; print "*" for first gas/dil, "=" for a deco gas or " " else |
| 582 | 400 gaslist_gastitle3: |
| 401 call TFT_standard_color | |
| 623 | 402 btfsc divemode ; in dive mode? |
| 631 | 403 rcall gaslist_strcat_gas_better ; YES - check if this is a "better gas", if yes switch to green and inverted output |
| 604 | 404 lfsr FSR1,opt_gas_type ; load base address of gas types |
| 405 movf gaslist_gas,W ; load index into WREG (0-4 for gases, 5-9 for diluents) | |
| 406 movf PLUSW1,W ; read gas/dil type into WREG | |
| 631 | 407 btfsc WREG,gas_lost ; gas/dil lost? |
| 408 bra gaslist_gastitle3a ; YES - switch to disabled color | |
| 409 btfsc WREG,gas_staged ; gas/dil staged? | |
| 410 bra gaslist_gastitle3a ; YES - switch to disabled color | |
| 411 bnz gaslist_gastitle4 ; type = disabled ? | |
| 412 gaslist_gastitle3a: | |
| 413 call TFT_disabled_color ; YES - switch to disabled color | |
| 414 bra gaslist_gastitle5 ; - skip ppO2 check for disabled gases | |
| 604 | 415 gaslist_gastitle4: |
| 623 | 416 btfss divemode ; in dive mode? |
| 631 | 417 bra gaslist_gastitle5 ; NO - no color-coding if not in dive mode |
| 418 btfss color_code_gases ; YES - shall color-code the gases by ppO2 and current depth? | |
| 419 bra gaslist_gastitle5 ; NO - skip color-coding | |
| 420 lfsr FSR1,opt_gas_O2_ratio ; YES - load base address of opt_gas_O2_ratio | |
| 421 movf gaslist_gas,W ; - load index into WREG (0-4 for gases, 5-9 for diluents) | |
| 422 movff PLUSW1,hi ; - read O2 ratio into hi | |
| 423 call TFT_color_code_gaslist ; - set color according to ppO2 limits | |
| 604 | 424 gaslist_gastitle5: |
| 425 movf gaslist_gas,W ; copy gas/dil index to WREG (0-9) | |
| 426 rcall gaslist_strcat_gas_WREG ; print gas composition | |
| 623 | 427 btfss divemode ; in dive mode? |
| 604 | 428 bra gaslist_gastitle6 ; NO - continue printing a space |
| 429 rcall gaslist_strcat_gas_type ; YES - print "*" for first gas/dil, "=" for a deco gas, or a space else | |
| 430 bra gaslist_gastitle7 ; - continue with change depth | |
| 431 gaslist_gastitle6: | |
| 432 PUTC " " ; print a space | |
| 433 gaslist_gastitle7: | |
| 434 lfsr FSR1,opt_gas_change ; load base address of change depths | |
| 435 movf gaslist_gas,W ; load gas/dil index into WREG (0-9) | |
| 436 movff PLUSW1,lo ; read change depth into lo | |
| 437 gaslist_strcat_depth: ; entry point for general printing of depths with value in meters in lo | |
| 438 TSTOSS opt_units ; check depth units | |
| 439 bra gaslist_strcat_depth_metric ; 0 - use Meters | |
| 440 gaslist_strcat_depth_imperial: ; 1 - use Feet | |
| 631 | 441 call convert_meter_to_feet ; convert value in lo from [m] to [feet] |
| 604 | 442 output_16_3 ; limit to 999 and display only 0-999 |
| 623 | 443 STRCAT_TEXT tFeets ; append "ft" REMARK: still one char to long for space available in dive mode menu! |
| 604 | 444 return |
| 445 gaslist_strcat_depth_metric: | |
| 623 | 446 ; PUTC " " ; print a space |
| 447 ; output_99 | |
| 448 output_8 | |
| 604 | 449 STRCAT_TEXT tMeters ; "m" |
| 582 | 450 return |
| 604 | 451 |
| 623 | 452 |
| 453 ; check for better gas | |
| 454 ; | |
| 604 | 455 gaslist_strcat_gas_better: ; color-code output if this is the best gas/diluent |
| 456 btfss better_gas_hint ; shall better gas hints be given? | |
| 457 return ; NO - return | |
| 458 movf best_gas_number,W ; get best gas number into WREG | |
| 623 | 459 IFDEF _ccr_pscr |
| 460 btfsc is_diluent_menu ; setting up diluents? | |
| 604 | 461 movf best_dil_number,W ; YES - overwrite with best diluent number |
| 623 | 462 ENDIF |
| 604 | 463 tstfsz WREG ; is a best gas/dil available? |
| 464 bra gaslist_strcat_gas_better1 ; YES - proceed | |
| 465 return ; NO - return | |
| 466 gaslist_strcat_gas_better1: | |
| 467 decf WREG,W ; (1-5) -> (0-4) | |
| 623 | 468 btfsc is_diluent_menu ; setting up diluents? |
| 604 | 469 addlw .5 ; YES - add offset between gases and diluents (0-4) -> (5-9) |
| 470 cpfseq gaslist_gas ; compare with given gas/dil (0-4 for OC bailout gases, 5-9 for diluents) | |
| 471 return ; not equal - return | |
| 472 bsf win_invert ; equal - invert | |
| 473 movlw color_green ; - select green color (gas is something "good") | |
| 474 goto TFT_set_color ; - activate color and return | |
| 475 | |
| 623 | 476 |
| 604 | 477 gaslist_strcat_gas_type: |
| 478 lfsr FSR1,opt_gas_type ; load base address of gas types | |
| 479 movf gaslist_gas,W ; load index to WREG (0-4 for gases, 5-9 for diluents) | |
| 631 | 480 movf PLUSW1,W ; get gas/dil type into WREG |
| 481 btfsc WREG,gas_lost ; gas set as lost? | |
| 482 bra gaslist_strcat_gas_type_4 ; YES - print lost marking | |
| 483 IFDEF _cave_mode | |
| 484 btfsc WREG,gas_staged ; gas set as staged? | |
| 485 bra gaslist_strcat_gas_type_5 ; YES - print staged marking | |
| 486 ENDIF | |
| 487 decf WREG,W ; decrement gas type (-1 for disabled, 0 for first, 1 for work/normal, 2 for deco) | |
| 628 | 488 bnz gaslist_strcat_gas_type_1 ; type = first? NO - continue with checking for work and deco gas |
| 604 | 489 PUTC "*" ; YES - print "*" for first |
| 490 return ; - done | |
| 491 gaslist_strcat_gas_type_1: | |
| 628 | 492 decf WREG,W ; decrement gas type (-2 for disabled, -1 for first, 0 for work/normal, 1 for deco) |
| 493 bnz gaslist_strcat_gas_type_2 ; type = work? NO - continue with checking for deco gas | |
| 494 PUTC "\xb8" ; YES - print down-arrow for a work gas | |
| 495 return ; - done | |
| 496 gaslist_strcat_gas_type_2: | |
| 497 decf WREG,W ; decrement gas type (-3 for disabled, -2 for first, -1 for work/normal, 0 for deco) | |
| 498 bnz gaslist_strcat_gas_type_3 ; type = deco? NO - neither first nor deco | |
| 604 | 499 PUTC "=" ; YES - print "=" for a deco gas |
| 500 return ; - done | |
| 628 | 501 gaslist_strcat_gas_type_3: |
| 604 | 502 PUTC " " ; neither first nor deco, print a space |
| 631 | 503 return ; done |
| 504 gaslist_strcat_gas_type_4: | |
| 505 PUTC "x" ; print lost marking | |
| 506 return ; done | |
| 507 IFDEF _cave_mode | |
| 508 gaslist_strcat_gas_type_5: | |
| 509 PUTC "S" ; print staged marking | |
| 510 return ; done | |
| 511 ENDIF | |
| 0 | 512 |
| 623 | 513 |
| 0 | 514 ;---------------------------------------------------------------------------- |
| 604 | 515 ; Housekeeping for the gas/dil settings, e.g. making sure there is one FIRST only |
| 516 ; | |
| 517 ; Input: gaslist_gas last edited gas/dil (0-9) | |
| 518 | |
| 519 global gaslist_cleanup_list | |
| 520 gaslist_cleanup_list: | |
| 521 lfsr FSR1,opt_gas_type ; load base address of opt_gas_type | |
| 623 | 522 IFDEF _ccr_pscr |
| 604 | 523 movlw .5 ; offset between gases and diluents |
| 623 | 524 btfsc is_diluent_menu ; setting up diluents? |
| 604 | 525 subwf gaslist_gas,F ; YES - subtract offset from gaslist_gas: (5-9) -> (0-4) |
| 623 | 526 ENDIF |
| 604 | 527 gaslist_cleanup_list0: |
| 528 bcf ignore_last_edited_gas | |
| 529 gaslist_cleanup_list1: | |
| 530 clrf lo ; counter for number of "firsts" found | |
| 531 movlw .5 ; initialize hi as loop counter for checking 5 gases/diluents | |
| 532 movwf hi | |
| 533 gaslist_cleanup_list2: ; loop body | |
| 534 decf hi,W ; WREG = current gas/dil (0-4) | |
| 623 | 535 IFDEF _ccr_pscr |
| 536 btfsc is_diluent_menu ; setting up diluents? | |
| 604 | 537 addlw .5 ; YES - add offset from gases to diluents -> (5-9) |
| 623 | 538 ENDIF |
| 604 | 539 movff PLUSW1,WREG ; read type into WREG |
| 540 decfsz WREG ; is type = first (ex type code 1)? | |
| 541 bra gaslist_cleanup_list3 ; NO - done with this gas/dil | |
| 542 incf lo,F ; YES - increment number of "firsts" found | |
| 543 btfss ignore_last_edited_gas ; - shall we ignore the last edited gas/dil? | |
| 544 bra gaslist_cleanup_list2b ; NO - continue remembering the "last first" gas/dil (do a shortcut) | |
| 545 decf hi,W ; YES - get the current gas/dil as (0-4) | |
| 546 cpfseq gaslist_gas ; - is this the last edited gas/dil? | |
| 547 gaslist_cleanup_list2b: | |
| 548 movff hi,up ; (NO) - remember the last "first gas" found | |
| 549 gaslist_cleanup_list3: | |
| 623 | 550 decfsz hi,F ; decrement loop counter, did loop counter became 0? |
| 551 bra gaslist_cleanup_list2 ; NO - loop | |
| 552 tstfsz lo ; YES - any first gas/dil at all? | |
| 553 bra gaslist_cleanup_list4 ; YES - at least one first gas/dil existing | |
| 554 IFDEF _ccr_pscr | |
| 555 btfsc is_diluent_menu ; NO - setting up diluents? | |
| 556 lfsr FSR1,opt_dil_type ; YES - load base address of opt_gas_type | |
| 557 ENDIF | |
| 558 movlw .1 ; - load coding for first gas | |
| 559 movwf INDF1 ; - make gas/dil 1 the first gas | |
| 560 return ; - done | |
| 604 | 561 gaslist_cleanup_list4: |
| 623 | 562 movlw .1 ; total number of Firsts that should exist is 1 |
| 604 | 563 cpfsgt lo ; more then one "first gas" found? |
| 564 return ; NO - done | |
| 565 decf up,W ; YES - WREG = last found "first gas" - 1 (0-4) | |
| 566 cpfseq gaslist_gas ; - is this the last edited gas/dil? | |
| 567 bra gaslist_cleanup_list4b ; NO - disable it | |
| 568 bsf ignore_last_edited_gas ; YES - do not disable last edited gas, search again but ignore the last edited gas | |
| 569 bra gaslist_cleanup_list1 ; - loop until only one "first" is left over | |
| 570 gaslist_cleanup_list4b: | |
| 623 | 571 IFDEF _ccr_pscr |
| 572 btfsc is_diluent_menu ; setting up diluents? | |
| 604 | 573 addlw .5 ; YES - adjust offset |
| 623 | 574 ENDIF |
| 604 | 575 clrf PLUSW1 ; disable gas |
| 576 bra gaslist_cleanup_list0 ; redo from start until only one "first" is left over | |
| 577 return | |
| 578 | |
| 623 | 579 |
| 604 | 580 ;---------------------------------------------------------------------------- |
| 581 ; Tank Settings | |
| 582 ; | |
| 623 | 583 ; Input: char_I_gas_avail_size size of the tank in liters |
| 584 ; char_I_gas_avail_pres available pressure in multiples of 10 bar | |
| 582 | 585 |
| 604 | 586 global gaslist_tank_size_pres |
| 587 gaslist_tank_size_pres: ; dynamic title: xx l, xx0 bar | |
| 623 | 588 lfsr FSR1,char_I_gas_avail_size ; load base address of char_I_gas_avail_size |
| 604 | 589 movf gaslist_gas,W ; load index (0-9) |
| 623 | 590 movff PLUSW1,lo ; read char_I_gas_avail_size[WREG] into lo |
| 591 lfsr FSR1,char_I_gas_avail_pres ; load base address of char_I_gas_avail_pres | |
| 592 movff PLUSW1,hi ; read char_I_gas_avail_pres[WREG] into hi | |
| 604 | 593 STRCAT " " ; print 5 leading spaces for alignment |
| 594 output_8 ; print tank size | |
| 595 STRCAT_TEXT tLiter ; print unit (" l") | |
| 596 movff hi,lo ; copy fill pressure into lo | |
| 597 output_8 ; print fill pressure (it is stored in multiples of 10 bar) | |
| 598 STRCAT_TEXT tbar10 ; print unit ("0 bar") | |
| 599 return | |
| 600 | |
| 623 | 601 |
| 604 | 602 global gaslist_tank_size |
| 623 | 603 gaslist_tank_size: ; adjust char_I_gas_avail_size between min_tank_size and max_tank_size |
| 604 lfsr FSR1,char_I_gas_avail_size ; load base address of char_I_gas_avail_size | |
| 604 | 605 movf gaslist_gas,W ; load index (0-9) |
| 623 | 606 movff PLUSW1,lo ; read char_I_gas_avail_size[WREG] into lo |
| 604 | 607 incf lo,F ; increment tank size by 1 liter |
| 608 movlw max_tank_size ; load max. allowed value into WREG | |
| 609 cpfsgt lo ; tank size <= max value? | |
| 610 bra gaslist_tank_size_1 ; YES - new value can be used | |
| 611 movlw min_tank_size ; NO - wrap-around to min value | |
| 612 movwf lo ; - and write to lo | |
| 613 gaslist_tank_size_1: | |
| 614 movf gaslist_gas,W ; re-load index | |
| 623 | 615 movff lo,PLUSW1 ; write back tank size to char_I_gas_avail_size[WREG] |
| 604 | 616 return |
| 617 | |
| 623 | 618 |
| 604 | 619 global gaslist_tank_pres |
| 623 | 620 gaslist_tank_pres: ; adjust char_I_gas_avail_pres between 5(0) and 29(0) bar |
| 621 lfsr FSR1,char_I_gas_avail_pres ; load base address of char_I_gas_avail_pres | |
| 604 | 622 movf gaslist_gas,W ; load index (0-9) |
| 623 | 623 movff PLUSW1,lo ; read char_I_gas_avail_pres[WREG] into lo |
| 604 | 624 incf lo,F ; increment fill press by by 1(0) bar |
| 625 movlw max_fill_press ; load max. allowed value into WREG | |
| 626 cpfsgt lo ; press <= max value? | |
| 627 bra gaslist_tank_pres_1 ; YES - new value can be used | |
| 628 movlw min_fill_press ; NO - wrap-around to min value | |
| 629 movwf lo ; - and write to lo | |
| 630 gaslist_tank_pres_1: | |
| 631 movf gaslist_gas,W ; re-load index | |
| 623 | 632 movff lo,PLUSW1 ; write back tank size to char_I_gas_avail_pres[WREG] |
| 604 | 633 return |
| 634 | |
| 623 | 635 |
| 636 ;============================================================================= | |
| 604 | 637 |
| 638 IFDEF _rx_functions | |
| 639 | |
| 623 | 640 ; Transmitter functions - ID |
| 641 ; | |
| 604 | 642 global gaslist_tank_id_pres |
| 643 gaslist_tank_id_pres: ; dynamic title: shows ID and pressure from transmitter with ID opt_transmitter_id[gaslist_gas] | |
| 644 ; When changing layout, adapt output position TFT_menu_tank_pres! | |
| 645 STRCAT " ID: " ; print header | |
| 646 ; get ID ; | |
| 647 lfsr FSR1,opt_transmitter_id_1 ; load base address of opt_transmitter_id | |
| 648 movf gaslist_gas,W ; load index (0-9) | |
| 649 rlncf WREG,W ; multiply by 2 because IDs are 2 byte in size | |
| 650 movff PLUSW1,lo ; copy opt_transmitter_id+0[gaslist_gas] to lo | |
| 651 incf WREG,W ; increment index | |
| 652 movff PLUSW1,hi ; copy opt_transmitter_id+1[gaslist_gas] to hi | |
| 653 ; check if a transmitter is paired to this tank | |
| 654 tstfsz hi ; high byte of ID <> 0 ? | |
| 655 bra gaslist_tank_id_pres_1 ; YES - a transmitter is paired to the tank | |
| 656 tstfsz lo ; low byte of ID <> 0 ? | |
| 657 bra gaslist_tank_id_pres_1 ; YES - a transmitter is paired to the tank | |
| 623 | 658 STRCAT "----" ; NO - no transmitter paired |
| 659 bcf imprint_xmitter_pres ; - stop imprinting of transmitter pressure data | |
| 660 return ; - done | |
| 661 gaslist_tank_id_pres_1: ; YES - show ID | |
| 662 movf hi,W ; - copy high byte of ID to WREG | |
| 663 output_hex ; - print it | |
| 664 movf lo,W ; - copy low byte of ID to WREG | |
| 665 output_hex ; - print it | |
| 666 bsf imprint_xmitter_pres ; - start imprinting of transmitter pressure data | |
| 667 return ; - done | |
| 0 | 668 |
| 669 | |
| 623 | 670 ; Transmitter functions - Pairing |
| 671 ; | |
| 604 | 672 global gaslist_tank_pairing |
| 673 gaslist_tank_pairing: | |
| 674 incf pairing_slot,F ; goto next RX data slot | |
| 675 btfsc pairing_slot,3 ; slot = 8? | |
| 676 bra gaslist_tank_pairing_none ; YES - offer unpairing | |
| 677 movf pairing_slot,W ; NO - copy slot to WREG | |
| 678 call get_transmitter_id_by_slot ; WREG = slot (0-7) -> hi:lo = transmitter ID | |
| 679 tstfsz hi ; transmitter found (probe on high byte)? | |
| 680 bra gaslist_tank_pairing_common ; YES - select this transmitter | |
| 681 tstfsz hi ; transmitter found (probe on low byte)? | |
| 682 bra gaslist_tank_pairing_common ; YES - select this transmitter | |
| 683 bra gaslist_tank_pairing ; NO - try next slot | |
| 684 gaslist_tank_pairing_common: | |
| 685 lfsr FSR1,opt_transmitter_id_1 ; load base address of opt_transmitter_id | |
| 686 movf gaslist_gas,W ; load index into WREG (0-9) | |
| 687 rlncf WREG,W ; multiply by 2 because IDs are 2 byte in size | |
| 688 movff lo,PLUSW1 ; copy lo to opt_transmitter_id+0[gaslist_gas] | |
| 689 incf WREG,W ; increment index | |
| 690 movff hi,PLUSW1 ; copy hi to opt_transmitter_id+1[gaslist_gas] | |
| 691 return ; done | |
| 692 gaslist_tank_pairing_none: | |
| 693 setf pairing_slot ; prime slot number with 255 aka -1 | |
| 694 clrf hi ; adjust "no transmitter" ID | |
| 695 clrf lo ; adjust "no transmitter" ID | |
| 696 bra gaslist_tank_pairing_common ; continue with common part | |
| 697 | |
| 698 ENDIF | |
| 0 | 699 |
| 623 | 700 ;============================================================================= |
| 701 | |
| 0 | 702 ;---------------------------------------------------------------------------- |
| 623 | 703 ; Helper Functions for Menu Operations |
| 704 | |
| 582 | 705 |
| 623 | 706 ; Increment O2 ratio |
| 707 ; | |
| 582 | 708 global gaslist_pO2 |
| 0 | 709 gaslist_pO2: |
| 604 | 710 movf gaslist_gas,W ; load index (0-9) |
| 711 lfsr FSR1,opt_gas_He_ratio ; load base address of opt_gas_He_ratio | |
| 712 movff PLUSW1,hi ; read He ratio into hi | |
| 713 lfsr FSR1,opt_gas_O2_ratio ; load base address of opt_gas_O2_ratio | |
| 714 movff PLUSW1,lo ; read O2 ratio into lo | |
| 0 | 715 |
| 582 | 716 incf lo,F ; O2++ |
| 717 movf hi,W ; get He ratio into WREG | |
| 623 | 718 addwf lo,W ; add O2 ratio to WREG |
| 582 | 719 movwf up ; move sum He + O2 to up |
| 720 movlw .101 ; | |
| 721 cpfslt up ; O2 + He < 101? | |
| 722 decf lo,F ; O2-- (revoke ++) | |
| 604 | 723 movf gaslist_gas,W ; re-load index |
| 582 | 724 movff lo,PLUSW1 ; write back O2 ratio to opt_gas_O2_ratio[WREG] |
| 725 return | |
| 726 | |
| 623 | 727 |
| 728 ; Decrement O2 ratio | |
| 729 ; | |
| 582 | 730 global gaslist_mO2 |
| 0 | 731 gaslist_mO2: |
| 604 | 732 movf gaslist_gas,W ; load index (0-9) |
| 733 lfsr FSR1,opt_gas_O2_ratio ; load base address of opt_gas_O2_ratio | |
| 734 movff PLUSW1,lo ; read O2 ratio into lo | |
| 0 | 735 |
| 582 | 736 decf lo,F ; O2-- |
| 737 movlw gaslist_min_o2 ; get minimum allowed O2 ratio | |
| 738 cpfslt lo ; current O2 ratio below allowed minimum? | |
| 739 bra gaslist_mO2_1 ; NO | |
| 604 | 740 movwf lo ; YES - copy minimum O2 ratio to lo |
| 0 | 741 gaslist_mO2_1: |
| 604 | 742 movf gaslist_gas,W ; re-load index |
| 582 | 743 movff lo,PLUSW1 ; write back O2 ratio to opt_gas_O2_ratio[WREG] |
| 744 return | |
| 0 | 745 |
| 623 | 746 ;============================================================================= |
| 582 | 747 |
| 623 | 748 IFDEF _helium |
| 749 | |
| 750 ; Increment He ratio | |
| 751 ; | |
| 582 | 752 global gaslist_pHe |
| 0 | 753 gaslist_pHe: |
| 604 | 754 movf gaslist_gas,W ; load index (0-9) |
| 755 lfsr FSR1,opt_gas_O2_ratio ; load base address of opt_gas_O2_ratio | |
| 756 movff PLUSW1,lo ; read O2 ratio into lo | |
| 757 lfsr FSR1,opt_gas_He_ratio ; load base address of opt_gas_He_ratio | |
| 758 movff PLUSW1,hi ; read He ratio into hi | |
| 0 | 759 |
| 582 | 760 incf hi,F ; He++ |
| 761 movf hi,W ; get He ratio into WREG | |
| 762 addwf lo,W ; add O2 ratio to WREG | |
| 763 movwf up ; move sum He + O2 to up | |
| 764 movlw .101 ; | |
| 765 cpfslt up ; O2 + He < 101? | |
| 766 decf hi,F ; He-- (revoke ++) | |
| 604 | 767 movf gaslist_gas,W ; re-load index |
| 582 | 768 movff hi,PLUSW1 ; write back He ratio to opt_gas_He_ratio[WREG] |
| 769 return | |
| 0 | 770 |
| 623 | 771 ; Decrement He ratio |
| 772 ; | |
| 582 | 773 global gaslist_mHe |
| 0 | 774 gaslist_mHe: |
| 604 | 775 movf gaslist_gas,W ; load index (0-9) |
| 776 lfsr FSR1,opt_gas_He_ratio ; load base address of opt_gas_He_ratio | |
| 777 movff PLUSW1,hi ; read He ratio into hi | |
| 0 | 778 |
| 582 | 779 decf hi,F ; He-- |
| 780 bnn gaslist_mHe_1 ; He ratio negative? | |
| 604 | 781 clrf hi ; YES - set He ratio to 0 |
| 0 | 782 gaslist_mHe_1: |
| 604 | 783 movf gaslist_gas,W ; re-load index |
| 582 | 784 movff hi,PLUSW1 ; write back He ratio to opt_gas_He_ratio[WREG] |
| 785 return | |
| 0 | 786 |
| 623 | 787 ENDIF ; _helium |
| 0 | 788 |
| 623 | 789 ;============================================================================= |
| 790 | |
| 791 ; Increment switch depth | |
| 792 ; | |
| 582 | 793 global gaslist_pDepth |
| 794 gaslist_pDepth: | |
| 604 | 795 lfsr FSR1,opt_gas_change ; load base address of opt_gas_change |
| 796 movf gaslist_gas,W ; load index (0-4) | |
| 797 movff PLUSW1,lo ; read switch depth into lo | |
| 798 incf lo,F ; increment switch depth | |
| 799 movlw gaslist_max_change_depth ; get max change depth | |
| 800 cpfsgt lo ; above max change depth? | |
| 801 bra gaslist_pDepth_1 ; NO | |
| 802 movwf lo ; YES - revert to max change depth | |
| 0 | 803 gaslist_pDepth_1: |
| 604 | 804 movf gaslist_gas,W ; re-load index |
| 805 movff lo,PLUSW1 ; write back switch depth | |
| 582 | 806 return |
| 807 | |
| 623 | 808 |
| 809 ; Decrement switch depth | |
| 810 ; | |
| 582 | 811 global gaslist_mDepth |
| 0 | 812 gaslist_mDepth: |
| 604 | 813 lfsr FSR1,opt_gas_change ; load base address of opt_gas_change |
| 814 movf gaslist_gas,W ; load index (0-4) | |
| 815 movff PLUSW1,lo ; read switch depth into lo | |
| 816 decf lo,F ; decrement switch depth | |
| 817 btfsc STATUS,N ; did depth became negative? | |
| 818 clrf lo ; YES - reset to zero | |
| 819 movff lo,PLUSW1 ; write back switch depth | |
| 582 | 820 return |
| 0 | 821 |
| 623 | 822 ;============================================================================= |
| 823 | |
| 824 IFDEF _ccr_pscr | |
| 825 | |
| 826 ; Increment setpoint | |
| 827 ; | |
| 582 | 828 global gaslist_spplus |
| 0 | 829 gaslist_spplus: |
| 582 | 830 movf gaslist_gas,W |
| 623 | 831 lfsr FSR1,opt_setpoint_cbar |
| 604 | 832 movff PLUSW1,lo ; read setpoint |
| 582 | 833 movlw gaslist_sp_stepsize |
| 834 addwf lo,F | |
| 835 movlw gaslist_sp_max | |
| 836 cpfsgt lo | |
| 837 bra gaslist_spplus2 | |
| 838 movlw gaslist_sp_min | |
| 839 movwf lo | |
| 0 | 840 gaslist_spplus2: |
| 582 | 841 movf gaslist_gas,W |
| 604 | 842 movff lo,PLUSW1 ; write back setpoint |
| 582 | 843 return |
| 844 | |
| 623 | 845 |
| 846 ; Increment setpoint switch depth | |
| 847 ; | |
| 582 | 848 global gaslist_spdepthplus |
| 0 | 849 gaslist_spdepthplus: |
| 604 | 850 movf gaslist_gas,W ; get setpoint number (0-4) |
| 851 bz gaslist_spdepthplus2 ; setpoint number = 0? YES - force depth to always be 0m | |
| 623 | 852 lfsr FSR1,opt_setpoint_change ; load base address of opt_setpoint_change |
| 604 | 853 movff PLUSW1,lo ; read setpoint depth into lo |
| 854 incf lo,F ; increment depth | |
| 855 movlw gaslist_max_change_depth ; get max. depth | |
| 856 cpfsgt lo ; switch depth > max. depth? | |
| 857 bra gaslist_spdepthplus_1 ; NO | |
| 858 movwf lo ; YES - copy to lo | |
| 0 | 859 gaslist_spdepthplus_1: |
| 604 | 860 movf gaslist_gas,W ; re-load index |
| 861 movff lo,PLUSW1 ; write back setpoint depth | |
| 582 | 862 return |
| 0 | 863 |
| 623 | 864 |
| 865 ; Decrement set point switch depth | |
| 866 ; | |
| 582 | 867 global gaslist_spdepthminus |
| 0 | 868 gaslist_spdepthminus: |
| 604 | 869 movf gaslist_gas,W ; get setpoint number (0-4) |
| 870 bz gaslist_spdepthminus2 ; setpoint number = 0? YES - force depth to always be 0m | |
| 623 | 871 lfsr FSR1,opt_setpoint_change ; load base address of opt_setpoint_change |
| 604 | 872 movff PLUSW1,lo ; read setpoint depth into lo |
| 873 decf lo,F ; decrement switch depth | |
| 874 btfsc STATUS,N ; did depth became negative? | |
| 875 clrf lo ; YES - reset to zero | |
| 876 movff lo,PLUSW1 ; write back setpoint depth | |
| 582 | 877 return |
| 0 | 878 |
| 623 | 879 |
| 880 ; helper for increment/decrement setpoint switch depth | |
| 881 ; | |
| 604 | 882 gaslist_spdepthplus2: |
| 883 gaslist_spdepthminus2: | |
| 884 movlw .0 | |
| 623 | 885 movff WREG,opt_setpoint_change+0; hard reset to 0m |
| 604 | 886 return |
| 887 | |
| 623 | 888 ENDIF ; _ccr_pscr |
| 889 | |
| 890 ;============================================================================= | |
| 891 | |
| 604 | 892 |
| 0 | 893 ;---------------------------------------------------------------------------- |
| 628 | 894 ; Compute MOD from O2 ratio and char_I_ppO2_max_work / char_I_ppO2_max_deco |
| 895 ; Compute MOD from O2 ratio and char_I_ppO2_max_deco | |
| 0 | 896 ; |
| 582 | 897 ; Input: gaslist_gas = current gas index. |
| 0 | 898 ; opt_gas_O2_ratio[gaslist_gas] = current O2 ratio |
| 582 | 899 ; Output: WREG = MOD [m] |
| 0 | 900 ; |
| 901 gaslist_calc_mod: | |
| 628 | 902 lfsr FSR1,opt_gas_type ; load base address of opt_gas_type |
| 604 | 903 movf gaslist_gas,W ; load index (0...9) |
| 628 | 904 movff PLUSW1,xA+0 ; read gas/dil type into xA+0 (used as temp here) |
| 905 movff char_I_ppO2_max_work,xB+1 ; get max ppO2 for deco into xB+1 (used as temp here) | |
| 906 movlw .3 ; type code for deco gases | |
| 907 cpfslt xA+0 ; is it a deco gas? | |
| 908 gaslist_calc_mod_deco: | |
| 909 movff char_I_ppO2_max_deco,xB+1 ; YES - overwrite/get ppO2 max with/for work | |
| 604 | 910 lfsr FSR1,opt_gas_O2_ratio ; load base address of opt_gas_O2_ratio |
| 628 | 911 movf gaslist_gas,W ; load index (0...9) |
| 604 | 912 movff PLUSW1,xB+0 ; read O2 ratio into xB+0 |
| 628 | 913 movf xB+1,W ; copy ppO2 max into WREG |
| 604 | 914 clrf xB+1 ; clear xB+1 for div16x16 operation |
| 915 mullw .10 ; multiply ppO2 max value with 10 | |
| 623 | 916 MOVII PROD,xA ; copy result to xA |
| 604 | 917 call div16x16 ; xC = xA / xB with xA as remainder |
| 628 | 918 movf xC+0,W ; copy low byte of the result to WREG |
| 604 | 919 addlw -.10 ; subtract 10 cbar |
| 623 | 920 return ; return with final result [in meters] in WREG |
| 582 | 921 |
| 0 | 922 ;---------------------------------------------------------------------------- |
|
154
afa31c815f24
NEW: Show ppO2 for change depth during gas setup
heinrichsweikamp
parents:
97
diff
changeset
|
923 |
| 623 | 924 ; print ppO2 as x.xx for gas/diluent in gaslist_gas (0-9) |
| 925 ; | |
| 582 | 926 global gaslist_ppo2 |
|
154
afa31c815f24
NEW: Show ppO2 for change depth during gas setup
heinrichsweikamp
parents:
97
diff
changeset
|
927 gaslist_ppo2: |
| 582 | 928 STRCAT_TEXT tppO2 ; ppO2: |
| 604 | 929 lfsr FSR1,opt_gas_change ; load base address of opt_gas_change |
| 930 movf gaslist_gas,W ; load index (0-9) | |
| 931 movf PLUSW1,W ; read change depth into WREG | |
| 932 mullw .10 ; PROD = depth in mbar/10 (100 = 1.00 bar) | |
| 623 | 933 ADDLI .100,PROD ; add 1 bar |
| 934 MOVII PROD,xA ; copy result to xA | |
| 604 | 935 lfsr FSR1,opt_gas_O2_ratio ; load base address of opt_gas_O2_ratio |
| 936 movf gaslist_gas,W ; load index (0-9) | |
| 937 movff PLUSW1,xB+0 ; read O2 ratio into xB+0 | |
| 938 clrf xB+1 ; clear xB+1 | |
| 939 call mult16x16 ; calculate char_I_O2_ratio * (p_amb/10) | |
| 623 | 940 MOVII xC,xA ; copy result to xA |
| 604 | 941 movlw d'100' ; load 100 to xB |
| 582 | 942 movwf xB+0 |
| 943 clrf xB+1 | |
| 604 | 944 call div16x16 ; xC = xA / xB = (char_I_O2_ratio * p_amb/10)/100 |
| 945 ; check for very high ppO2 | |
| 946 tstfsz xC+2 ; xC+2 remains from mult16x16, xC+2 > 0 (-> ppO2 is > 6.55 bar) ? | |
| 947 bra gaslist_ppo2_1 ; YES - display a fixed max value | |
| 623 | 948 MOVII xC,mpr ; copy result to hi:lo |
| 582 | 949 bcf ignore_digit4 |
| 950 bsf leftbind | |
| 604 | 951 output_16dp d'3' ; print ppO2 as x.xx |
| 952 STRCAT_TEXT tbar ; print "bar" | |
| 582 | 953 return |
| 604 | 954 gaslist_ppo2_1: |
| 582 | 955 STRCAT ">6.6" |
| 956 return | |
|
154
afa31c815f24
NEW: Show ppO2 for change depth during gas setup
heinrichsweikamp
parents:
97
diff
changeset
|
957 |
| 623 | 958 |
| 959 ; print MOD and END for gas in gaslist_gas (0-9) | |
| 960 ; | |
| 582 | 961 global gaslist_MOD_END |
| 0 | 962 gaslist_MOD_END: |
| 604 | 963 STRCAT_TEXT tMOD ; print "MOD:" |
| 964 rcall gaslist_calc_mod ; compute MOD into WREG | |
| 965 movwf lo ; copy result to lo | |
| 966 call gaslist_strcat_depth ; print depth in meters or feet as configured | |
| 967 PUTC "/" ; print "/" | |
| 968 STRCAT_TEXT tEND ; print "END:" | |
| 969 rcall gaslist_calc_mod ; compute MOD into WREG | |
| 970 addlw .10 ; compute MOD = MOD + 10m | |
| 582 | 971 movwf xB+0 |
| 972 clrf xB+1 | |
| 973 movlw d'100' | |
| 974 movwf xA+0 | |
| 604 | 975 lfsr FSR1,opt_gas_He_ratio ; load base address of opt_gas_He_ratio |
| 976 movf gaslist_gas,W ; load index (0...9) | |
| 977 movf PLUSW1,W ; read He ration into WREG | |
| 978 subwf xA+0,F ; xA+0 = 100 - He ratio in % | |
| 582 | 979 clrf xA+1 |
| 980 call mult16x16 ; xA*xB=xC | |
| 623 | 981 MOVII xC,xA |
| 582 | 982 movlw d'100' |
| 983 movwf xB+0 | |
| 984 clrf xB+1 | |
| 604 | 985 call div16x16 ; xC = xA / xB with xA as remainder |
| 582 | 986 ; ; xC:2 = ((MOD+10) * 100 - HE Value in %) / 100 |
| 604 | 987 movlw d'10' ; subtract 10 m |
| 988 subwf xC+0,F ; ... | |
| 989 movff xC+0,lo ; copy result to lo | |
| 990 bra gaslist_strcat_depth ; print depth in meters or feet as configured and return | |
| 991 | |
| 992 | |
| 623 | 993 ; print change depth of gas in gaslist_gas (0-9), use warning color if > MOD |
| 994 ; | |
| 604 | 995 global gaslist_reset_mod_title |
| 996 gaslist_reset_mod_title: | |
| 628 | 997 STRCAT_TEXT tDepthReset ; print "Reset to MOD:" |
| 998 PUTC " " ; add a space char | |
| 604 | 999 lfsr FSR1,opt_gas_change ; load base address of opt_gas_change |
| 1000 movf gaslist_gas,W ; load index (0-9) | |
| 628 | 1001 movff PLUSW1,hi ; read change depth into hi |
| 1002 rcall gaslist_calc_mod ; compute MOD for ppO2 max work/deco dependent on gas type into WREG | |
| 1003 movwf lo ; copy (true) MOD to lo | |
| 1004 movf hi,W ; copy change depth to WREG | |
| 604 | 1005 cpfslt lo ; change depth > MOD ? |
| 628 | 1006 bra gaslist_strcat_depth ; NO - print MOD from value in lo |
| 1007 call TFT_attention_color ; YES - use attention color | |
| 1008 rcall gaslist_calc_mod_deco ; - compute MOD for ppO2 max deco into WREG | |
| 1009 movwf up ; - copy result to up | |
| 1010 movf hi,W ; - copy change depth to WREG again | |
| 1011 cpfslt up ; - change depth > MOD deco ? | |
| 1012 bra gaslist_strcat_depth ; NO - print MOD from value in lo, keeping attention color | |
| 1013 call TFT_warning_color ; YES - switch to warning color | |
| 1014 bra gaslist_strcat_depth ; - print MOD from value in lo | |
| 604 | 1015 |
| 1016 | |
| 623 | 1017 ; set change depth of gas in gaslist_gas (0-9) to its MOD |
| 1018 ; | |
| 604 | 1019 global gaslist_reset_mod |
| 1020 gaslist_reset_mod: | |
| 1021 rcall gaslist_calc_mod ; compute MOD into WREG | |
| 1022 movwf lo ; copy result to lo | |
| 1023 lfsr FSR1,opt_gas_change ; load base address of opt_gas_change | |
| 1024 movf gaslist_gas,W ; load index (0-9) | |
| 1025 movff lo,PLUSW1 ; write back new change depth | |
| 582 | 1026 return |
| 0 | 1027 |
| 1028 ;---------------------------------------------------------------------------- | |
| 623 | 1029 ; put "Nxlo", "Txlo/hi", "Air" or "O2" into postinc2 |
| 1030 ; | |
| 1031 ; Includes capability to show trimix gases to be able to properly decode data | |
| 1032 ; from logbook in case trimix dives are stored on an OSTC running the sport FW. | |
| 1033 | |
| 1034 global gaslist_show_mix | |
| 1035 gaslist_show_mix: | |
| 1036 tstfsz hi ; He=0? | |
| 1037 bra gaslist_show_mix5 ; NO - show a TX | |
| 1038 movlw .21 | |
| 1039 cpfseq lo ; Air? | |
| 1040 bra gaslist_show_mix2 ; NO | |
| 1041 STRCAT_TEXT tSelectAir ; YES - show "Air" | |
| 1042 bra gaslist_show_mix4b | |
| 1043 gaslist_show_mix2: | |
| 1044 movlw .100 | |
| 1045 cpfseq lo ; O2? | |
| 1046 bra gaslist_show_mix3 ; NO | |
| 1047 STRCAT_TEXT tSelectO2 ; YES - show "O2" | |
| 1048 bra gaslist_show_mix4b | |
| 1049 gaslist_show_mix3: | |
| 1050 movlw .21 | |
| 1051 cpfslt lo ; < Nx21? | |
| 1052 bra gaslist_show_mix4 ; NO | |
| 1053 STRCAT_TEXT tGasErr ; YES - show "Err" | |
| 1054 output_99 ; O2 ratio is still in "lo" | |
| 1055 bra gaslist_show_mix4c | |
| 1056 gaslist_show_mix4: | |
| 1057 STRCAT_TEXT tSelectNx ; show "Nx" | |
| 1058 output_99 ; O2 ratio is still in "lo" | |
| 1059 gaslist_show_mix4b: | |
| 1060 STRCAT " " | |
| 1061 gaslist_show_mix4c: | |
| 1062 btfsc divemode ; in dive mode? | |
| 1063 return ; YES | |
| 1064 STRCAT " " | |
| 1065 return | |
| 1066 gaslist_show_mix5: | |
| 1067 btfsc divemode | |
| 1068 bra gaslist_show_mix6 | |
| 1069 STRCAT_TEXT tSelectTx ; show "Tx" | |
| 1070 gaslist_show_mix6: | |
| 1071 output_99 ; O2 ratio is still in "lo" | |
| 1072 PUTC "/" | |
| 1073 movff hi,lo | |
| 1074 output_99 ; He ratio | |
| 1075 return | |
| 1076 | |
| 1077 ;----------------------------------------------------------------------------- | |
| 1078 | |
| 582 | 1079 END |