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