Mercurial > public > mk2
annotate code_part1/OSTC_code_asm_part1/menu_gassetup.asm @ 530:bcc12b70879d
Use p2_deco.o from changeset 510 for beta release
| author | heinrichsweikamp |
|---|---|
| date | Fri, 16 Dec 2011 21:26:38 +0100 |
| parents | 6e57b5bb98ce |
| children | f5a06b9e2fef |
| rev | line source |
|---|---|
| 0 | 1 |
| 2 ; OSTC - diving computer code | |
| 3 ; Copyright (C) 2008 HeinrichsWeikamp GbR | |
| 4 | |
| 5 ; This program is free software: you can redistribute it and/or modify | |
| 6 ; it under the terms of the GNU General Public License as published by | |
| 7 ; the Free Software Foundation, either version 3 of the License, or | |
| 8 ; (at your option) any later version. | |
| 9 | |
| 10 ; This program is distributed in the hope that it will be useful, | |
| 11 ; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 12 ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
| 13 ; GNU General Public License for more details. | |
| 14 | |
| 15 ; You should have received a copy of the GNU General Public License | |
| 16 ; along with this program. If not, see <http://www.gnu.org/licenses/>. | |
| 17 | |
| 18 | |
| 19 ; Gas Setup menu | |
| 20 ; written by: Matthias Heinrichs, info@heinrichsweikamp.com | |
| 21 ; written: 10/08/07 | |
| 22 ; last updated: 080906 | |
| 23 ; known bugs: | |
| 24 ; ToDo: | |
| 25 | |
| 26 menu_gassetup: | |
| 27 movlw d'1' | |
| 28 movwf menupos | |
| 29 | |
| 30 menu_gassetup_prelist: | |
|
36
3c38ba950dfb
Gas Setup now sorts Gases for new Deco code
heinrichsweikamp
parents:
35
diff
changeset
|
31 call PLED_ClearScreen |
| 47 | 32 call gassetup_sort_gaslist ; Sorts Gaslist according to change depth |
| 0 | 33 clrf timeout_counter2 |
| 34 bcf sleepmode | |
| 35 bcf menubit2 | |
| 36 bcf menubit3 | |
| 37 call PLED_topline_box | |
| 38 WIN_INVERT .1 ; Init new Wordprocessor | |
| 39 DISPLAYTEXT .106 ; Gas List | |
| 40 WIN_INVERT .0 ; Init new Wordprocessor | |
| 41 clrf decodata+0 ; Here: # of gas 0-4 | |
| 42 clrf divemins+0 ; Here: # of Gas * 4 | |
| 43 movlw d'5' | |
| 44 movwf waitms_temp ; here: stores row for gas list | |
| 45 movlw d'2' | |
| 46 movwf wait_temp ; here: stores eeprom address for gas list | |
| 47 | |
| 48 ; Changed v1.44se | |
| 49 menu_gassetup_list: | |
| 50 WIN_LEFT .20 | |
| 51 movlw d'4' | |
| 52 addwf wait_temp,F ; Increase eeprom address for gas list | |
| 53 movlw d'30' | |
| 54 addwf waitms_temp,F ; Increase row | |
| 55 movf waitms_temp,W ; Load row into WREG | |
| 56 movff WREG,win_top | |
| 57 lfsr FSR2,letter | |
| 445 | 58 PUTC TXT_GAS_C |
| 0 | 59 movff decodata+0,lo |
| 60 incf lo,F | |
| 61 bsf leftbind | |
| 62 output_99 | |
| 123 | 63 PUTC ':' |
| 0 | 64 |
|
121
e0f29e20bd24
Mix-type icons: check apnoe/gauge/CF#41, depth=0, and first gas. Changed colors.
JeanDo
parents:
115
diff
changeset
|
65 movf decodata+0,W |
|
e0f29e20bd24
Mix-type icons: check apnoe/gauge/CF#41, depth=0, and first gas. Changed colors.
JeanDo
parents:
115
diff
changeset
|
66 call PLED_grey_inactive_gas ; Sets Greyvalue for inactive gases |
| 0 | 67 call word_processor |
| 68 WIN_LEFT .40 | |
| 69 movf waitms_temp,W ; Load row into WREG | |
| 70 movff WREG,win_top | |
| 71 lfsr FSR2,letter | |
| 72 | |
| 73 movlw d'33' | |
| 74 movwf EEADR | |
| 75 call read_eeprom ; Get current startgas 1-5 # into EEDATA | |
| 76 decf EEDATA,W ; 0-4 | |
| 77 cpfseq decodata+0 ; =current displayed gas #? | |
| 78 bra menu_gassetup_Tx ; no, do not display * | |
| 123 | 79 PUTC '*' ; display * |
| 0 | 80 |
| 81 ; New v1.44se | |
| 82 menu_gassetup_Tx: | |
|
121
e0f29e20bd24
Mix-type icons: check apnoe/gauge/CF#41, depth=0, and first gas. Changed colors.
JeanDo
parents:
115
diff
changeset
|
83 movf decodata+0,W |
|
e0f29e20bd24
Mix-type icons: check apnoe/gauge/CF#41, depth=0, and first gas. Changed colors.
JeanDo
parents:
115
diff
changeset
|
84 call PLED_grey_inactive_gas ; Sets Greyvalue for inactive gases |
| 0 | 85 call word_processor |
| 86 | |
| 87 WIN_LEFT .48 | |
| 88 movf waitms_temp,W ; Load row into WREG | |
| 89 movff WREG,win_top | |
| 90 lfsr FSR2,letter | |
| 91 | |
| 92 movff wait_temp, EEADR ; Gas %He - Set address in internal EEPROM | |
| 93 incf EEADR,F ; Gas %He - Set address in internal EEPROM | |
| 94 call read_eeprom ; Read He value from EEPROM | |
| 95 movff EEDATA,lo ; Move EEDATA -> lo | |
| 96 movf lo,f ; Move lo -> f | |
| 97 movlw d'0' ; Move 0 -> WREG | |
| 98 cpfsgt lo ; He > 0? | |
| 99 bra menu_gassetup_Nx ; NO check o2 | |
| 100 | |
| 101 ; YES Write TX 15/55 | |
| 102 call gassetup_write_Tx | |
| 103 movff wait_temp, EEADR ; Gas %O2 - Set address in internal EEPROM | |
| 104 call read_eeprom ; O2 value | |
| 105 movff EEDATA,lo | |
| 106 output_8 | |
| 123 | 107 PUTC '/' |
| 0 | 108 incf EEADR,F ; Gas #hi: %He - Set address in internal EEPROM |
| 109 call read_eeprom ; He value | |
| 110 movff EEDATA,lo | |
| 111 output_8 | |
| 112 bra menu_gassetup_list0 | |
| 113 | |
| 114 ; New v1.44se | |
| 115 menu_gassetup_Nx: | |
| 116 movff wait_temp, EEADR ; Gas %O2 - Set address in internal EEPROM | |
| 117 call read_eeprom ; Read O2 value from EEPROM | |
| 118 movff EEDATA,lo ; Move EEDATA -> lo | |
| 119 movf lo,f ; Move lo -> f | |
| 120 movlw d'21' ; Move 21 -> WREG | |
| 121 cpfsgt lo ; o2 > 21% | |
| 122 bra menu_gassetup_Air ; NO AIR | |
| 123 movlw d'100' ; Move 100 -> WREG | |
| 124 cpfslt lo ; o2 < 100% | |
| 125 bra menu_gassetup_O2 ; NO write O2 | |
| 126 | |
| 127 ; YES Write NX 32 | |
| 128 call gassetup_write_Nx | |
| 129 output_8 | |
| 130 bra menu_gassetup_list0 | |
| 131 | |
| 132 ; New v1.44se | |
| 133 menu_gassetup_O2: | |
| 445 | 134 STRCAT TXT_O2_3 |
| 0 | 135 output_8 |
| 136 bra menu_gassetup_list0 | |
| 137 | |
| 138 ; New v1.44se | |
| 139 menu_gassetup_Air: | |
| 140 cpfseq lo ; o2 = 21% | |
| 141 call menu_gassetup_Err | |
| 142 | |
| 445 | 143 STRCAT TXT_AIR4 |
| 0 | 144 output_8 |
| 145 bra menu_gassetup_list0 | |
| 146 | |
| 147 ; New v1.44se | |
| 148 menu_gassetup_Err: | |
| 445 | 149 STRCAT TXT_ERR4 |
| 0 | 150 output_8 |
| 151 | |
| 152 ; Changed v1.44se | |
| 153 menu_gassetup_list0: | |
|
121
e0f29e20bd24
Mix-type icons: check apnoe/gauge/CF#41, depth=0, and first gas. Changed colors.
JeanDo
parents:
115
diff
changeset
|
154 movf decodata+0,W |
|
e0f29e20bd24
Mix-type icons: check apnoe/gauge/CF#41, depth=0, and first gas. Changed colors.
JeanDo
parents:
115
diff
changeset
|
155 call PLED_grey_inactive_gas ; Sets Greyvalue for inactive gases |
| 0 | 156 call word_processor |
| 157 | |
| 158 WIN_LEFT .105 | |
| 159 movf waitms_temp,W ; Load row into WREG | |
| 160 movff WREG,win_top | |
| 161 lfsr FSR2,letter | |
| 162 | |
| 445 | 163 STRCAT TXT_IN4 |
| 0 | 164 movf decodata+0,W ; read current value |
| 165 addlw d'28' ; offset in memory | |
| 166 movwf EEADR | |
| 167 call read_eeprom ; Low-value | |
| 168 movff EEDATA,lo | |
| 169 output_8 | |
| 445 | 170 PUTC TXT_METER_C |
|
121
e0f29e20bd24
Mix-type icons: check apnoe/gauge/CF#41, depth=0, and first gas. Changed colors.
JeanDo
parents:
115
diff
changeset
|
171 movf decodata+0,W |
|
e0f29e20bd24
Mix-type icons: check apnoe/gauge/CF#41, depth=0, and first gas. Changed colors.
JeanDo
parents:
115
diff
changeset
|
172 call PLED_grey_inactive_gas ; Sets Greyvalue for inactive gases |
| 0 | 173 call word_processor |
| 174 | |
| 3 | 175 call PLED_standard_color |
| 0 | 176 |
| 177 incf decodata+0,F | |
| 178 movlw d'5' | |
| 179 cpfseq decodata+0 | |
| 180 goto menu_gassetup_list | |
| 181 | |
| 337 | 182 DISPLAYTEXT .11 ; Exit |
| 183 call wait_switches ; Waits until switches are released, resets flag if button stays pressed! | |
| 0 | 184 call PLED_menu_cursor |
| 185 | |
| 186 gassetup_list_loop: | |
| 187 call check_switches_logbook | |
| 188 | |
| 189 btfsc menubit3 | |
| 337 | 190 bra gassetup_list2 ; move cursor |
| 0 | 191 |
| 192 btfsc menubit2 | |
| 337 | 193 bra do_gassetup_list ; call gas-specific submenu |
| 0 | 194 |
| 195 btfsc divemode | |
| 337 | 196 goto restart ; dive started! |
| 0 | 197 |
| 198 btfsc onesecupdate | |
| 199 call timeout_surfmode | |
| 200 | |
| 201 btfsc onesecupdate | |
| 202 call set_dive_modes | |
| 203 | |
| 337 | 204 bcf onesecupdate ; 1 sec. functions done |
| 0 | 205 |
| 206 btfsc sleepmode | |
| 207 bra exit_gassetup_list | |
| 208 | |
| 209 bra gassetup_list_loop | |
| 210 | |
| 211 gassetup_list2: | |
| 212 incf menupos,F | |
| 213 movlw d'7' | |
| 214 cpfseq menupos ; =7? | |
| 215 bra gassetup_list3 ; No | |
| 216 movlw d'1' | |
| 217 movwf menupos | |
| 218 | |
| 219 gassetup_list3: | |
| 220 clrf timeout_counter2 | |
| 221 call PLED_menu_cursor | |
| 222 | |
| 223 call wait_switches ; Waits until switches are released, resets flag if button stays pressed! | |
| 224 | |
| 225 bcf menubit3 ; clear flag | |
| 226 bra gassetup_list_loop | |
| 227 | |
| 228 exit_gassetup_list: ; exit... | |
| 229 movlw d'2' | |
| 230 movwf menupos | |
| 231 goto menu2 | |
| 232 | |
| 233 do_gassetup_list: | |
| 234 dcfsnz menupos,F | |
| 235 bra gassetup_list_edit_gas1 | |
| 236 dcfsnz menupos,F | |
| 237 bra gassetup_list_edit_gas2 | |
| 238 dcfsnz menupos,F | |
| 239 bra gassetup_list_edit_gas3 | |
| 240 dcfsnz menupos,F | |
| 241 bra gassetup_list_edit_gas4 | |
| 242 dcfsnz menupos,F | |
| 243 bra gassetup_list_edit_gas5 | |
| 244 bra exit_gassetup_list ; Exit List | |
| 245 | |
| 246 gassetup_list_edit_gas1: | |
| 247 movlw d'0' | |
| 248 movwf decodata+0 | |
| 249 movlw d'0' | |
| 250 movwf divemins+0 | |
| 251 bra menu_gassetup_page1 | |
| 252 | |
| 253 gassetup_list_edit_gas2: | |
| 254 movlw d'1' | |
| 255 movwf decodata+0 | |
| 256 movlw d'4' | |
| 257 movwf divemins+0 | |
| 258 bra menu_gassetup_page1 | |
| 259 | |
| 260 gassetup_list_edit_gas3: | |
| 261 movlw d'2' | |
| 262 movwf decodata+0 | |
| 263 movlw d'8' | |
| 264 movwf divemins+0 | |
| 265 bra menu_gassetup_page1 | |
| 266 | |
| 267 gassetup_list_edit_gas4: | |
| 268 movlw d'3' | |
| 269 movwf decodata+0 | |
| 270 movlw d'12' | |
| 271 movwf divemins+0 | |
| 272 bra menu_gassetup_page1 | |
| 273 | |
| 274 gassetup_list_edit_gas5: | |
| 275 movlw d'4' | |
| 276 movwf decodata+0 | |
| 277 movlw d'16' | |
| 278 movwf divemins+0 | |
| 279 bra menu_gassetup_page1 | |
| 280 | |
| 281 menu_gassetup_page1: | |
| 282 movlw d'1' | |
| 283 movwf menupos | |
| 284 bcf gas_setup_page2 ; Page 1 of gassetup | |
| 285 bcf menubit4 | |
| 286 bcf cursor | |
| 287 bcf sleepmode | |
| 288 bcf first_FA ; Here: =1: -, =0: + | |
| 289 | |
| 290 menu_gassetup0: | |
| 291 call PLED_ClearScreen | |
|
98
6f8e3a08011e
1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents:
50
diff
changeset
|
292 DISPLAYTEXT .147 ; More... |
| 0 | 293 DISPLAYTEXT .11 ; Exit |
| 294 | |
| 295 menu_gassetup1: | |
| 296 clrf timeout_counter2 | |
| 297 bcf menubit2 | |
| 298 bcf menubit3 | |
| 299 | |
| 300 rcall gassetup_title_bar2 ; Displays the title bar with the current Gas info | |
| 301 | |
| 302 WIN_LEFT .20 | |
| 199 | 303 WIN_TOP .65 |
| 445 | 304 STRCPY TXT_O2_4 |
| 0 | 305 |
| 306 movf divemins+0,W | |
| 307 addlw 0x06 | |
| 308 movwf EEADR | |
| 199 | 309 call read_eeprom ; O2 value |
| 0 | 310 movff EEDATA,lo |
| 311 output_8 | |
| 199 | 312 STRCAT_PRINT "% " |
| 0 | 313 |
| 314 ; Show MOD in m | |
| 199 | 315 WIN_LEFT .90 |
| 316 lfsr FSR2, letter | |
| 317 OUTPUTTEXTH .297 ; MOD: | |
| 318 | |
|
299
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
319 rcall gassetup_get_mod ; compute MOD based on CF18 into lo:hi |
| 0 | 320 |
| 321 output_16 | |
| 445 | 322 STRCAT_PRINT TXT_METER3 |
| 0 | 323 |
| 199 | 324 WIN_LEFT .20 |
| 0 | 325 WIN_TOP .95 |
| 445 | 326 STRCPY TXT_HE4 |
| 0 | 327 movf divemins+0,W |
| 328 addlw 0x07 | |
| 329 movwf EEADR | |
| 199 | 330 call read_eeprom ; He value |
| 0 | 331 movff EEDATA,lo |
| 332 output_8 | |
| 199 | 333 STRCAT_PRINT "% " |
| 105 | 334 |
| 335 ; Show END in m | |
| 199 | 336 lfsr FSR2, letter |
| 337 WIN_LEFT .90 | |
| 338 OUTPUTTEXTH .298 ; END: | |
| 304 | 339 GETCUSTOM8 .18 ; ppO2 warnvalue in WREG |
| 340 mullw d'10' | |
| 341 movff PRODL,xA+0 | |
|
398
ab962c4b19d6
Fixing issue 50, correct "Bar" to "bar" in texts and comments
heinrichsweikamp
parents:
377
diff
changeset
|
342 movff PRODH,xA+1 ; ppO2 in [0.01bar] * 10 |
| 304 | 343 movf divemins+0,W |
| 344 addlw 0x06 | |
| 345 movwf EEADR | |
| 346 call read_eeprom ; O2 value | |
| 347 movff EEDATA,xB+0 | |
| 348 clrf xB+1 | |
| 349 call div16x16 ; xA/xB=xC with xA as remainder | |
| 350 movlw d'10' | |
| 351 subwf xC+0,F ; Subtract 10m... | |
| 352 movff xC+0,lo | |
| 353 movlw d'0' | |
| 354 subwfb xC+1,F | |
| 355 movff xC+1,hi ; lo:hi holding MOD in meters | |
| 105 | 356 movlw d'10' |
| 357 addwf lo,F | |
| 358 movlw d'0' | |
| 199 | 359 addwfc hi,F ; lo:hi holding MOD+10m |
| 105 | 360 |
| 361 movf divemins+0,W | |
| 362 addlw 0x07 | |
| 363 movwf EEADR | |
| 199 | 364 call read_eeprom ; He value in % -> EEDATA |
| 105 | 365 movlw d'100' |
| 366 movwf xA+0 | |
| 199 | 367 movf EEDATA,W ; He value in % -> EEDATA |
| 368 subwf xA+0,F ; xA+0 = 100 - He Value in % | |
| 105 | 369 clrf xA+1 |
| 370 movff lo,xB+0 | |
| 199 | 371 movff hi,xB+1 ; Copy MOD+10 |
| 372 call mult16x16 ; xA*xB=xC | |
| 105 | 373 movff xC+0,xA+0 |
| 374 movff xC+1,xA+1 | |
| 375 movlw d'100' | |
| 376 movwf xB+0 | |
| 377 clrf xB+1 | |
| 199 | 378 call div16x16 ; xA/xB=xC with xA as remainder |
| 105 | 379 ; xC:2 = ((MOD+10) * 100 - HE Value in %) / 100 |
| 380 movlw d'10' | |
| 199 | 381 subwf xC+0,F ; Subtract 10m... |
| 105 | 382 movff xC+0,lo |
| 383 movlw d'0' | |
| 384 subwfb xC+1,F | |
| 385 movff xC+1,hi | |
| 386 output_16 | |
| 445 | 387 STRCAT_PRINT TXT_METER3 |
| 0 | 388 |
| 199 | 389 WIN_LEFT .20 |
| 0 | 390 WIN_TOP .125 |
| 123 | 391 STRCPY "+/-: " |
| 0 | 392 movlw '+' |
| 393 btfsc first_FA | |
| 394 movlw '-' | |
| 395 movwf POSTINC2 | |
| 396 call word_processor | |
| 397 | |
| 398 WIN_TOP .155 | |
| 399 lfsr FSR2,letter | |
| 199 | 400 OUTPUTTEXT .89 ; Default: |
| 0 | 401 movf divemins+0,W |
| 402 addlw 0x04 | |
| 403 movwf EEADR | |
| 199 | 404 call read_eeprom ; Default O2 value |
| 0 | 405 movff EEDATA,lo |
| 406 output_8 | |
| 123 | 407 PUTC '/' |
| 0 | 408 movf divemins+0,W |
| 409 addlw 0x05 | |
| 410 movwf EEADR | |
| 199 | 411 call read_eeprom ; Default He value |
| 0 | 412 movff EEDATA,lo |
| 413 output_8 | |
| 123 | 414 STRCAT_PRINT " " |
| 0 | 415 |
| 416 call wait_switches ; Waits until switches are released, resets flag if button stays pressed! | |
| 417 call PLED_menu_cursor | |
| 418 | |
| 419 gassetup_loop: | |
| 420 call check_switches_logbook | |
| 421 | |
| 422 btfsc menubit3 | |
| 423 bra gassetup2 ; move cursor | |
| 424 | |
| 425 btfsc menubit2 | |
| 426 bra do_gassetup ; call submenu | |
| 427 | |
| 428 btfsc divemode | |
| 429 goto restart ; dive started! | |
| 430 | |
| 431 btfsc onesecupdate | |
| 432 call timeout_surfmode | |
| 433 | |
| 434 btfsc onesecupdate | |
| 435 call set_dive_modes | |
| 436 | |
| 437 bcf onesecupdate ; 1 sec. functions done | |
| 438 | |
| 439 btfsc sleepmode | |
| 440 bra exit_gassetup | |
| 441 | |
| 442 bra gassetup_loop | |
| 443 | |
| 444 gassetup2: | |
| 445 incf menupos,F | |
| 446 movlw d'7' | |
| 447 cpfseq menupos ; =7? | |
| 448 bra gassetup3 ; No | |
| 449 movlw d'1' | |
| 450 movwf menupos | |
| 451 | |
| 452 gassetup3: | |
| 453 | |
| 454 clrf timeout_counter2 | |
| 455 call PLED_menu_cursor | |
| 456 | |
| 457 call wait_switches ; Waits until switches are released, resets flag if button stays pressed! | |
| 458 | |
| 459 bcf menubit3 ; clear flag | |
| 460 bra gassetup_loop | |
| 461 | |
| 462 do_gassetup: | |
| 463 dcfsnz menupos,F | |
| 464 bra next_gas_page | |
| 465 dcfsnz menupos,F | |
| 466 bra adjust_o2 | |
| 467 dcfsnz menupos,F | |
| 468 bra adjust_he | |
| 469 dcfsnz menupos,F | |
| 470 bra toggle_plus_minus_gassetup | |
| 471 dcfsnz menupos,F | |
| 472 bra restore_gas | |
| 473 exit_gassetup: ; exit... | |
| 474 movff decodata+0,menupos | |
| 475 incf menupos,F | |
| 476 bra menu_gassetup_prelist | |
| 477 | |
| 478 toggle_plus_minus_gassetup: | |
| 479 btg first_FA | |
| 480 movlw d'4' | |
| 481 movwf menupos | |
| 482 bra menu_gassetup1 ; return | |
| 483 | |
| 484 next_gas: | |
| 485 movlw d'1' | |
| 486 movwf menupos | |
| 487 bra menu_gassetup0 ; incl. clear screen | |
| 488 | |
| 489 adjust_o2: | |
| 490 movf divemins+0,W ; read current value | |
| 491 addlw 0x06 | |
| 492 movwf EEADR | |
| 493 call read_eeprom ; Low-value | |
| 494 movff EEDATA,lo | |
| 495 | |
| 496 btfsc first_FA ; Minus? | |
| 497 bra adjust_o2_1 ; yes, minus! | |
| 498 | |
| 499 incf lo,F ; increase O2 | |
| 500 movlw d'101' | |
| 501 cpfseq lo | |
| 502 bra adjust_o2_2 | |
| 503 movlw d'4' ; LOWER O2 Limit | |
| 504 movwf lo | |
| 505 bra adjust_o2_2 | |
| 506 | |
| 507 adjust_o2_1: | |
| 508 decf lo,F ; decrease O2 | |
| 509 movlw d'3' | |
| 510 cpfseq lo | |
| 511 bra adjust_o2_2 | |
| 512 | |
| 513 movf divemins+0,W | |
| 514 addlw 0x07 | |
| 515 movwf EEADR | |
| 516 call read_eeprom ; read He value | |
| 517 | |
| 518 movlw d'100' | |
| 519 movwf lo | |
| 520 movf EEDATA,W ; He value | |
| 521 subwf lo,F ; lo=100% - He% | |
| 522 | |
| 523 adjust_o2_2: ; test if O2+He>100... | |
| 524 movf divemins+0,W | |
| 525 addlw 0x07 | |
| 526 movwf EEADR | |
| 527 call read_eeprom ; read He value | |
| 528 movf EEDATA,W ; He value | |
| 529 addwf lo,W ; add O2 value | |
| 530 movwf hi ; store in temp | |
| 531 movlw d'101' | |
| 532 cpfseq hi ; O2 and He > 100? | |
| 533 bra adjust_o2_3 ; No! | |
| 534 | |
| 535 movlw d'4' ; LOWER O2 Limit | |
| 536 movwf lo | |
| 537 | |
| 538 adjust_o2_3: | |
| 539 movf divemins+0,W ; save current value | |
| 540 addlw 0x06 | |
| 541 movwf EEADR | |
| 542 movff lo,EEDATA | |
| 543 call write_eeprom ; Low-value | |
| 544 | |
| 545 movlw d'2' | |
| 546 movwf menupos | |
| 547 bra menu_gassetup1 | |
| 548 | |
| 549 adjust_he: | |
| 550 movf divemins+0,W ; read current value | |
| 551 addlw 0x07 | |
| 552 movwf EEADR | |
| 553 call read_eeprom ; Low-value | |
| 554 movff EEDATA,lo | |
| 555 | |
| 556 btfsc first_FA ; Minus? | |
| 557 bra adjust_he_1 ; yes, minus! | |
| 558 | |
| 559 incf lo,F | |
| 560 movlw d'92' ; He limited to (useless) 90% | |
| 561 cpfseq lo | |
| 562 bra adjust_he_2 | |
| 563 clrf lo | |
| 564 bra adjust_he_2 | |
| 565 | |
| 566 adjust_he_1: | |
| 567 decf lo,F ; decrease He | |
| 568 movlw d'255' | |
| 569 cpfseq lo | |
| 570 bra adjust_he_2 | |
| 571 clrf lo | |
| 572 | |
| 573 adjust_he_2: ; test if O2+He>100... | |
| 574 movf divemins+0,W | |
| 575 addlw 0x06 | |
| 576 movwf EEADR | |
| 577 call read_eeprom ; read He value | |
| 578 movf EEDATA,W ; He value | |
| 579 addwf lo,W ; add O2 value | |
| 580 movwf hi ; store in temp | |
| 581 movlw d'101' | |
| 582 cpfseq hi ; O2 and He > 100? | |
| 583 bra adjust_he_3 ; No! | |
| 584 ; clrf lo ; Yes, clear He to zero | |
| 585 decf lo,F ; reduce He again = unchanged after operation | |
| 586 | |
| 587 adjust_he_3: | |
| 588 movf divemins+0,W ; save current value | |
| 589 addlw 0x07 | |
| 590 movwf EEADR | |
| 591 movff lo,EEDATA | |
| 592 call write_eeprom ; Low-value | |
| 593 | |
| 594 movlw d'3' | |
| 595 movwf menupos | |
| 596 bra menu_gassetup1 ; | |
| 597 | |
| 598 restore_gas: | |
| 599 movf divemins+0,W ; read Default value | |
| 600 addlw 0x04 | |
| 601 movwf EEADR | |
| 602 call read_eeprom ; Low-value | |
| 603 movff EEDATA,lo | |
| 604 movf divemins+0,W | |
| 605 addlw 0x05 | |
| 606 movwf EEADR | |
| 607 call read_eeprom ; High-value | |
| 608 movff EEDATA,hi | |
| 609 | |
| 610 movf divemins+0,W ; save Default value | |
| 611 addlw 0x06 | |
| 612 movwf EEADR | |
| 613 movff lo,EEDATA | |
| 614 call write_eeprom ; Low-value | |
| 615 movf divemins+0,W | |
| 616 addlw 0x07 | |
| 617 movwf EEADR | |
| 618 movff hi,EEDATA | |
| 619 call write_eeprom ; High-value | |
| 620 | |
| 621 movlw d'5' | |
| 622 movwf menupos | |
| 623 bra menu_gassetup1 ; | |
| 624 | |
| 625 | |
| 626 next_gas_page: | |
| 627 call PLED_ClearScreen | |
| 628 movlw d'1' | |
| 629 movwf menupos | |
|
297
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
630 bcf first_FA ; Here: =1: -, =0: + |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
631 bcf second_FA ; Here: =1: Is first gas |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
632 DISPLAYTEXT .107 ; Depth +/- |
| 0 | 633 DISPLAYTEXT .11 ; Exit |
| 634 | |
| 635 next_gas_page1: | |
| 636 clrf timeout_counter2 | |
| 637 bcf menubit2 | |
| 638 bcf menubit3 | |
| 639 | |
|
297
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
640 WIN_TOP .65 |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
641 WIN_LEFT .20 |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
642 lfsr FSR2,letter |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
643 OUTPUTTEXT .88 ; First Gas? |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
644 PUTC ' ' |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
645 |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
646 movlw d'33' |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
647 movwf EEADR |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
648 call read_eeprom ; Get current startgas 1-5 # into EEDATA |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
649 decf EEDATA,W ; 0-4 |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
650 cpfseq decodata+0 ; =current displayed gas #? |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
651 bra menu_firstgas0 ; no, display three spaces |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
652 |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
653 OUTPUTTEXT .96 ; Yes |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
654 bsf second_FA ; Is first gas |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
655 |
|
376
ed26990716fe
first gas does not reset change depth, display fix with multigas dives in logbook
heinrichsweikamp
parents:
337
diff
changeset
|
656 ; Do not reset change depth (Kind request from Pascal)! |
|
ed26990716fe
first gas does not reset change depth, display fix with multigas dives in logbook
heinrichsweikamp
parents:
337
diff
changeset
|
657 ; movf decodata+0,W ; read current value |
|
ed26990716fe
first gas does not reset change depth, display fix with multigas dives in logbook
heinrichsweikamp
parents:
337
diff
changeset
|
658 ; addlw d'28' ; offset in memory |
|
ed26990716fe
first gas does not reset change depth, display fix with multigas dives in logbook
heinrichsweikamp
parents:
337
diff
changeset
|
659 ; movwf EEADR |
|
ed26990716fe
first gas does not reset change depth, display fix with multigas dives in logbook
heinrichsweikamp
parents:
337
diff
changeset
|
660 ; call read_eeprom ; Low-value |
|
ed26990716fe
first gas does not reset change depth, display fix with multigas dives in logbook
heinrichsweikamp
parents:
337
diff
changeset
|
661 ; clrf EEDATA ; Set change depth to zero |
|
ed26990716fe
first gas does not reset change depth, display fix with multigas dives in logbook
heinrichsweikamp
parents:
337
diff
changeset
|
662 ; call write_eeprom ; save result in EEPROM |
|
ed26990716fe
first gas does not reset change depth, display fix with multigas dives in logbook
heinrichsweikamp
parents:
337
diff
changeset
|
663 ; |
|
297
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
664 bra menu_firstgas1 |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
665 |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
666 menu_firstgas0: |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
667 bcf second_FA ; Is not first gas |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
668 STRCAT " " ; 3 spaces. |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
669 |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
670 menu_firstgas1: |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
671 call word_processor |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
672 |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
673 |
| 0 | 674 rcall gassetup_title_bar2 ; Displays the title bar with the current Gas info |
|
297
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
675 WIN_TOP .125 |
|
299
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
676 WIN_LEFT .20 |
|
297
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
677 lfsr FSR2,letter |
|
299
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
678 |
|
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
679 OUTPUTTEXT .108 ; Change: |
|
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
680 |
|
297
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
681 ; lo still holds change depth |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
682 bsf leftbind |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
683 output_8 |
| 445 | 684 STRCAT_PRINT TXT_METER2 |
|
297
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
685 |
|
299
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
686 ; Show ppO2 after change depth |
|
297
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
687 WIN_TOP .125 |
|
299
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
688 WIN_LEFT .110 |
|
297
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
689 lfsr FSR2,letter |
| 0 | 690 rcall gassetup_show_ppO2 ; Display the ppO2 of the change depth with the current gas |
| 691 | |
|
297
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
692 movff xC+0,sub_a+0 |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
693 movff xC+1,sub_a+1 |
|
398
ab962c4b19d6
Fixing issue 50, correct "Bar" to "bar" in texts and comments
heinrichsweikamp
parents:
377
diff
changeset
|
694 GETCUSTOM8 d'46' ; color-code ppO2 warning [cbar] |
|
299
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
695 movwf sub_b+0 |
|
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
696 clrf sub_b+1 |
|
297
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
697 call sub16 ; sub_c = sub_a - sub_b |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
698 btfss neg_flag |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
699 bra gassetup_color_code_ppo2_1; too high -> Warning Color! |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
700 call PLED_standard_color |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
701 bra gassetup_color_code_ppo2_2 |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
702 gassetup_color_code_ppo2_1: |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
703 call PLED_warnings_color |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
704 gassetup_color_code_ppo2_2: |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
705 call word_processor |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
706 call PLED_standard_color |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
707 |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
708 WIN_TOP .95 |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
709 WIN_LEFT .95 |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
710 lfsr FSR2,letter |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
711 movlw '+' |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
712 btfsc first_FA |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
713 movlw '-' |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
714 movwf POSTINC2 |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
715 call word_processor |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
716 |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
717 ; Show MOD as "default" |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
718 WIN_TOP .155 |
|
299
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
719 WIN_LEFT .20 |
|
297
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
720 lfsr FSR2, letter |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
721 |
|
299
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
722 OUTPUTTEXT .109 ; Default: |
|
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
723 |
|
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
724 rcall gassetup_get_mod ; compute MOD based on CF18 into lo:hi |
|
297
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
725 |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
726 btfsc second_FA ; Is first gas? |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
727 clrf lo ; Yes, display 0m |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
728 btfsc second_FA ; Is first gas? |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
729 clrf hi ; Yes, display 0m |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
730 |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
731 output_16 |
| 445 | 732 STRCAT_PRINT TXT_METER3 |
|
297
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
733 |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
734 WIN_TOP .35 |
| 0 | 735 WIN_LEFT .20 |
| 736 lfsr FSR2,letter | |
| 737 OUTPUTTEXT .105 ; "Active Gas? " | |
| 738 | |
| 287 | 739 ; Active gas flags in BIT0:4 .... |
| 0 | 740 movff decodata+0,lo ; Gas 0-4 |
| 741 incf lo,F ; Gas 1-5 | |
| 742 | |
| 287 | 743 read_int_eeprom d'27' ; read flag register |
| 0 | 744 active_gas_display: |
| 745 rrcf EEDATA ; roll flags into carry | |
| 746 decfsz lo,F ; max. 5 times... | |
| 747 bra active_gas_display | |
| 748 | |
| 749 btfss STATUS,C ; test carry | |
| 750 bra active_gas_display_no | |
| 751 | |
| 752 OUTPUTTEXT .96 ; Yes | |
| 753 bra active_gas_display_end | |
| 754 | |
| 755 active_gas_display_no: | |
| 123 | 756 STRCAT " " ; three spaces instead of "Yes" |
| 0 | 757 |
| 758 active_gas_display_end: | |
| 759 call word_processor | |
| 760 | |
| 761 call wait_switches ; Waits until switches are released, resets flag if button stays pressed! | |
| 762 call PLED_menu_cursor | |
| 763 | |
| 764 next_gas_page_loop: | |
| 765 call check_switches_logbook | |
| 766 | |
| 767 btfsc menubit3 | |
| 768 bra next_gas_page2 ; move cursor | |
| 769 | |
| 770 btfsc menubit2 | |
| 771 bra do_next_gas_page ; call submenu | |
| 772 | |
| 773 btfsc divemode | |
| 774 goto restart ; dive started! | |
| 775 | |
| 776 btfsc onesecupdate | |
| 777 call timeout_surfmode | |
| 778 | |
| 779 btfsc onesecupdate | |
| 780 call set_dive_modes | |
| 781 | |
| 782 bcf onesecupdate ; 1 sec. functions done | |
| 783 | |
| 784 bra next_gas_page_loop | |
| 785 | |
| 786 next_gas_page2: | |
| 787 incf menupos,F | |
| 788 | |
| 789 movlw d'7' | |
| 790 cpfseq menupos ; =7? | |
| 791 bra next_gas_page3 ; No | |
| 792 movlw d'1' | |
| 793 movwf menupos | |
| 794 | |
| 795 next_gas_page3: | |
| 796 clrf timeout_counter2 | |
| 797 call PLED_menu_cursor | |
| 798 | |
| 799 call wait_switches ; Waits until switches are released, resets flag if button stays pressed! | |
| 800 | |
| 801 bcf menubit3 ; clear flag | |
| 802 bra next_gas_page_loop | |
| 803 | |
| 804 do_next_gas_page: | |
| 805 dcfsnz menupos,F | |
| 806 bra toggle_active_gas | |
| 807 dcfsnz menupos,F | |
| 808 bra make_first_gas | |
| 809 dcfsnz menupos,F | |
|
297
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
810 bra change_gas_depth_plus_minus |
| 0 | 811 dcfsnz menupos,F |
|
297
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
812 bra change_gas_depth_apply |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
813 dcfsnz menupos,F |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
814 bra change_gas_depth_default |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
815 bra next_gas |
| 0 | 816 |
| 817 make_first_gas: | |
| 818 movff decodata+0,EEDATA ; current gas (0-4) into EEDATA | |
| 819 incf EEDATA,F ; current gas (1-5) into EEDATA | |
| 820 movlw d'33' | |
| 821 movwf EEADR | |
| 822 call write_eeprom ; store in internal EEPROM | |
| 115 | 823 |
| 824 ; Set First gas to "Active" | |
| 825 read_int_eeprom d'27' ; read flag register | |
| 826 movff decodata+0,lo ; selected gas 0-4 | |
| 827 incf lo,F | |
| 828 dcfsnz lo,F | |
| 829 bsf EEDATA,0 | |
| 830 dcfsnz lo,F | |
| 831 bsf EEDATA,1 | |
| 832 dcfsnz lo,F | |
| 833 bsf EEDATA,2 | |
| 834 dcfsnz lo,F | |
| 835 bsf EEDATA,3 | |
| 836 dcfsnz lo,F | |
| 837 bsf EEDATA,4 | |
| 838 write_int_eeprom d'27' ; write flag register | |
| 839 | |
|
297
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
840 movlw d'2' |
| 0 | 841 movwf menupos |
| 842 bra next_gas_page1 | |
| 843 | |
| 844 toggle_active_gas: | |
| 845 read_int_eeprom d'27' ; read flag register | |
| 846 movff decodata+0,lo ; selected gas 0-4 | |
| 847 incf lo,F | |
| 848 dcfsnz lo,F | |
| 849 btg EEDATA,0 | |
| 850 dcfsnz lo,F | |
| 851 btg EEDATA,1 | |
| 852 dcfsnz lo,F | |
| 853 btg EEDATA,2 | |
| 854 dcfsnz lo,F | |
| 855 btg EEDATA,3 | |
| 856 dcfsnz lo,F | |
| 857 btg EEDATA,4 | |
| 858 write_int_eeprom d'27' ; write flag register | |
|
297
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
859 movlw d'1' |
| 0 | 860 movwf menupos |
| 861 bra next_gas_page1 | |
| 862 | |
|
297
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
863 change_gas_depth_apply: ; Apply +1 or -1m |
| 0 | 864 movf decodata+0,W ; read current value |
| 865 addlw d'28' ; offset in memory | |
| 866 movwf EEADR | |
| 867 call read_eeprom ; Low-value | |
| 868 movff EEDATA,lo | |
|
297
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
869 |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
870 btfsc first_FA ; Minus? |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
871 bra change_gas_depth_minus ; yes, minus! |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
872 ; +1m |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
873 |
| 0 | 874 incf lo,F ; increase depth |
| 875 movlw d'100' ; Change depth limit + 1 | |
|
299
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
876 cpfslt lo ; >99? |
|
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
877 clrf lo ; Yes, set to zero m |
|
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
878 |
| 0 | 879 change_gas_depth_plus2: |
| 880 movff lo,EEDATA ; write result | |
| 881 call write_eeprom ; save result in EEPROM | |
| 882 movlw d'4' | |
| 883 movwf menupos | |
| 884 bra next_gas_page1 | |
| 885 | |
|
297
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
886 change_gas_depth_minus: |
|
299
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
887 ; -1m |
|
297
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
888 decf lo,F ; decrease depth |
|
299
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
889 btfsc lo,7 ; 255? |
|
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
890 clrf lo ; Yes, stay at zero m |
|
297
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
891 bra change_gas_depth_plus2 ; exit |
| 0 | 892 |
|
297
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
893 change_gas_depth_plus_minus: |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
894 btg first_FA |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
895 movlw d'3' |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
896 movwf menupos |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
897 bra next_gas_page1 |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
898 |
|
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
899 change_gas_depth_default: |
|
299
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
900 rcall gassetup_get_mod ; compute MOD based on CF18 into lo:hi |
|
297
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
901 |
|
299
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
902 movlw d'99' |
|
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
903 cpfslt lo |
|
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
904 movwf lo ; limit to 99m |
|
297
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
905 |
|
377
be71e563ac09
First gas can be reset to 0m, test for timer1 race condition
heinrichsweikamp
parents:
376
diff
changeset
|
906 btfsc second_FA ; Is first gas? |
|
be71e563ac09
First gas can be reset to 0m, test for timer1 race condition
heinrichsweikamp
parents:
376
diff
changeset
|
907 clrf lo ; Yes, set to 0m |
|
be71e563ac09
First gas can be reset to 0m, test for timer1 race condition
heinrichsweikamp
parents:
376
diff
changeset
|
908 |
| 0 | 909 movf decodata+0,W ; read current value |
| 910 addlw d'28' ; offset in memory | |
| 911 movwf EEADR | |
|
377
be71e563ac09
First gas can be reset to 0m, test for timer1 race condition
heinrichsweikamp
parents:
376
diff
changeset
|
912 ; call read_eeprom ; Low-value |
| 0 | 913 movff lo,EEDATA ; write result |
| 914 call write_eeprom ; save result in EEPROM | |
| 915 | |
| 916 movlw d'5' | |
| 917 movwf menupos | |
| 918 bra next_gas_page1 | |
| 919 | |
|
297
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
920 |
| 0 | 921 ; Changed v1.44se |
| 922 gassetup_title_bar2: | |
| 923 call PLED_topline_box | |
| 924 WIN_INVERT .1 ; Init new Wordprocessor | |
| 925 WIN_TOP .2 | |
| 926 WIN_LEFT .0 | |
| 927 lfsr FSR2,letter | |
| 928 OUTPUTTEXT .95 ; Gas# | |
| 929 movff decodata+0,lo | |
| 930 incf lo,F | |
| 931 bsf leftbind | |
| 932 output_99 | |
| 123 | 933 STRCAT_PRINT ": " |
| 0 | 934 |
| 935 WIN_TOP .2 | |
| 936 WIN_LEFT .50 | |
| 937 lfsr FSR2,letter | |
| 938 | |
| 939 ;He check | |
| 940 movf divemins+0,W | |
| 941 addlw 0x07 | |
| 942 movwf EEADR | |
| 943 call read_eeprom ; He value | |
| 944 movff EEDATA,lo ; Move EEData -> lo | |
| 945 movf lo,f ; Move lo -> f | |
| 946 movlw d'0' ; Move 0 -> WREG | |
| 947 cpfsgt lo ; He > 0? | |
| 948 bra gassetup_title_bar3 ; NO check o2 | |
| 949 | |
| 950 ; YES Write TX 15/55 | |
| 951 call gassetup_write_Tx ; Write TX | |
| 952 movf divemins+0,W | |
| 953 addlw 0x06 | |
| 954 movwf EEADR | |
| 955 call read_eeprom ; O2 value | |
| 956 movff EEDATA,lo | |
| 957 output_8 ; Write O2 | |
| 123 | 958 PUTC '/' |
| 0 | 959 movf divemins+0,W |
| 960 addlw 0x07 | |
| 961 movwf EEADR | |
| 962 call read_eeprom ; He value | |
| 963 movff EEDATA,lo | |
| 964 output_8 ; Write He | |
| 965 bra gassetup_title_bar7 | |
| 966 | |
| 967 ; New v1.44se | |
| 968 gassetup_title_bar3: ; O2 Check | |
| 969 movf divemins+0,W | |
| 970 addlw 0x06 | |
| 971 movwf EEADR | |
| 972 call read_eeprom ; O2 value | |
| 973 movff EEDATA,lo | |
| 974 movf lo,f ; Move lo -> f | |
| 975 movlw d'21' ; Move 21 -> WREG | |
| 976 cpfseq lo ; o2 = 21 | |
| 977 cpfsgt lo ; o2 > 21% | |
| 978 bra gassetup_title_bar5 ; NO AIR | |
| 979 movlw d'100' ; Move 100 -> WREG | |
| 980 cpfslt lo ; o2 < 100% | |
| 981 bra gassetup_title_bar4 ; NO write O2 | |
| 982 | |
| 983 ; YES Write NX 32 | |
| 984 call gassetup_write_Nx | |
| 985 output_8 | |
| 986 bra gassetup_title_bar7 | |
| 987 | |
| 988 ; New v1.44se | |
| 989 gassetup_title_bar4: | |
| 445 | 990 STRCAT TXT_O2_3 |
| 0 | 991 output_8 |
| 992 bra gassetup_title_bar7 | |
| 993 | |
| 994 ; New v1.44se | |
| 995 gassetup_title_bar5: | |
| 996 cpfseq lo ; o2 = 21% | |
| 997 bra gassetup_title_bar6 | |
| 998 | |
| 445 | 999 STRCAT TXT_AIR4 |
| 0 | 1000 output_8 |
| 1001 bra gassetup_title_bar7 | |
| 1002 | |
| 1003 ; New v1.44se | |
| 1004 gassetup_title_bar6: ; ERROR | |
| 445 | 1005 STRCAT TXT_ERR4 |
| 0 | 1006 output_8 |
| 1007 bra gassetup_title_bar7 | |
| 1008 | |
| 1009 gassetup_title_bar7: | |
| 445 | 1010 STRCAT TXT_IN4 |
| 0 | 1011 movf decodata+0,W ; read current value |
| 1012 addlw d'28' ; offset in memory | |
| 1013 movwf EEADR | |
| 1014 call read_eeprom ; Low-value | |
| 1015 movff EEDATA,lo | |
| 1016 output_8 | |
| 445 | 1017 STRCAT_PRINT TXT_METER2 |
| 0 | 1018 |
| 1019 WIN_INVERT .0 ; Init new Wordprocessor | |
| 1020 return | |
| 1021 | |
| 1022 ; New v1.44se | |
| 1023 gassetup_write_Nx: | |
| 445 | 1024 STRCAT TXT_NX3 |
| 0 | 1025 return |
| 1026 | |
| 1027 ; New v1.44se | |
| 1028 gassetup_write_Tx: | |
| 445 | 1029 STRCAT TXT_TX3 |
| 0 | 1030 return |
| 1031 | |
| 1032 gassetup_show_ppO2: | |
| 1033 movf divemins+0,W | |
| 1034 addlw 0x06 | |
| 1035 movwf EEADR | |
| 1036 call read_eeprom ; O2 value | |
| 1037 movff EEDATA,hi | |
| 1038 | |
| 1039 movf decodata+0,W ; read current value | |
| 1040 addlw d'28' ; offset in memory | |
| 1041 movwf EEADR | |
| 1042 call read_eeprom ; Change depth in m | |
| 1043 movff EEDATA,lo | |
| 1044 movlw d'10' | |
| 1045 addwf lo,F ; Depth+10m=lo | |
| 1046 movf hi,W | |
| 1047 mulwf lo ; (Depth+10m)*O2 | |
| 1048 movff PRODL,xA+0 | |
| 1049 movff PRODH,xA+1 | |
| 1050 movlw d'10' | |
| 1051 movwf xB+0 | |
| 1052 clrf xB+1 | |
| 1053 call div16x16 ;xA/xB=xC with xA as remainder | |
|
398
ab962c4b19d6
Fixing issue 50, correct "Bar" to "bar" in texts and comments
heinrichsweikamp
parents:
377
diff
changeset
|
1054 movff xC+0,lo ; ((Depth+10m)*O2)/10 = [0.01bar] ppO2 |
| 0 | 1055 movff xC+1,hi |
| 1056 output_16dp d'3' | |
|
297
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
290
diff
changeset
|
1057 OUTPUTTEXT d'150' ; bar: |
| 35 | 1058 return |
| 1059 | |
|
299
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
1060 gassetup_get_mod: |
|
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
1061 GETCUSTOM8 .18 ; ppO2 warnvalue in WREG |
|
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
1062 mullw d'10' |
|
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
1063 movff PRODL,xA+0 |
|
398
ab962c4b19d6
Fixing issue 50, correct "Bar" to "bar" in texts and comments
heinrichsweikamp
parents:
377
diff
changeset
|
1064 movff PRODH,xA+1 ; ppO2 in [0.01bar] * 10 |
|
299
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
1065 movf divemins+0,W |
|
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
1066 addlw 0x06 |
|
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
1067 movwf EEADR |
|
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
1068 call read_eeprom ; O2 value |
|
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
1069 movff EEDATA,xB+0 |
|
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
1070 clrf xB+1 |
|
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
1071 call div16x16 ; xA/xB=xC with xA as remainder |
|
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
1072 movlw d'10' |
|
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
1073 subwf xC+0,F ; Subtract 10m... |
|
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
1074 movff xC+0,lo |
|
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
1075 movlw d'0' |
|
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
1076 subwfb xC+1,F |
|
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
1077 movff xC+1,hi |
|
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
1078 return |
|
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
1079 |
|
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
1080 |
|
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
1081 |
| 227 | 1082 ;============================================================================= |
| 287 | 1083 ; Make sure first gas is marked active. |
| 1084 ; Note: - Gas are not soted anymore. | |
| 1085 ; - Gas with a depth>0 should not be forced active, or it is impossible | |
| 1086 ; to de-activate them. | |
| 1087 gassetup_sort_gaslist: | |
| 286 | 1088 |
| 287 | 1089 clrf EEADRH ; Select EEPROM lower page. |
| 1090 read_int_eeprom d'33' ; Get First gas (1-5) | |
| 1091 movff EEDATA,lo ; into register lo | |
| 286 | 1092 |
| 287 | 1093 read_int_eeprom d'27' ; Read selected gases |
| 286 | 1094 |
| 287 | 1095 dcfsnz lo,F ; If lo==1 |
| 1096 bsf EEDATA,0 ; Select Gas1 | |
| 1097 dcfsnz lo,F ; If lo==2 | |
| 1098 bsf EEDATA,1 ; Select Gas2 | |
| 1099 dcfsnz lo,F | |
| 1100 bsf EEDATA,2 | |
| 1101 dcfsnz lo,F | |
| 1102 bsf EEDATA,3 | |
| 1103 dcfsnz lo,F | |
| 1104 bsf EEDATA,4 | |
| 1105 | |
| 1106 ; Copy result to register: | |
|
290
4dbff2aa31ee
Hunting for refusing to ignore disabled gas in list...
JeanDo
parents:
287
diff
changeset
|
1107 movff EEDATA,gaslist_active |
| 287 | 1108 |
| 1109 ; And write to EEPROM too, to survive next reboot: | |
| 1110 write_int_eeprom d'27' | |
| 286 | 1111 |
| 1112 return | |
| 281 | 1113 |
| 287 | 1114 ;============================================================================= |
| 35 | 1115 ; EEPROM Locations of Gaslist |
| 1116 ; Gas1: | |
| 1117 ; O2 Default:4 | |
| 1118 ; He Default:5 | |
| 1119 ; O2 Current:6 | |
| 1120 ; He Current:7 | |
| 1121 ; Change: 28 | |
| 1122 ; Active: 27,0 | |
| 1123 | |
| 1124 ; Gas2: | |
| 1125 ; O2 Default:8 | |
| 1126 ; He Default:9 | |
| 1127 ; O2 Current:10 | |
| 1128 ; He Current:11 | |
| 1129 ; Change: 29 | |
| 1130 ; Active: 27,1 | |
| 1131 | |
| 1132 ; Gas3: | |
| 1133 ; O2 Default:12 | |
| 1134 ; He Default:13 | |
| 1135 ; O2 Current:14 | |
| 1136 ; He Current:15 | |
| 1137 ; Change: 30 | |
| 1138 ; Active: 27,2 | |
| 1139 | |
| 1140 ; Gas4: | |
| 1141 ; O2 Default:16 | |
| 1142 ; He Default:17 | |
| 1143 ; O2 Current:18 | |
| 1144 ; He Current:19 | |
| 1145 ; Change: 31 | |
| 1146 ; Active: 27,3 | |
| 1147 | |
| 1148 ; Gas5: | |
| 1149 ; O2 Default:20 | |
| 1150 ; He Default:21 | |
| 1151 ; O2 Current:22 | |
| 1152 ; He Current:23 | |
| 1153 ; Change: 32 | |
| 1154 ; Active: 27,4 |