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