Mercurial > public > mk2
annotate code_part1/OSTC_code_asm_part1/menu_gassetup.asm @ 349:ed137d66ac65
Preparations for new "0x21" logbook format
author | heinrichsweikamp |
---|---|
date | Mon, 30 May 2011 19:28:59 +0200 |
parents | 6bdf80d7276c |
children | ed26990716fe |
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 | |
123 | 58 PUTC 'G' |
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: | |
123 | 134 STRCAT "O2 " |
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 | |
123 | 143 STRCAT "AIR " |
0 | 144 output_8 |
145 bra menu_gassetup_list0 | |
146 | |
147 ; New v1.44se | |
148 menu_gassetup_Err: | |
123 | 149 STRCAT "ERR " |
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 | |
123 | 163 STRCAT " in " |
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 | |
123 | 170 PUTC 'm' |
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 |
123 | 304 STRCPY "O2: " |
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 | |
199 | 322 STRCAT_PRINT "m " |
0 | 323 |
199 | 324 WIN_LEFT .20 |
0 | 325 WIN_TOP .95 |
123 | 326 STRCPY "He: " |
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 | |
342 movff PRODH,xA+1 ; ppO2 in [0.01Bar] * 10 | |
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 | |
199 | 387 STRCAT_PRINT "m " |
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 |
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
|
656 movf decodata+0,W ; read current value |
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 addlw d'28' ; offset in memory |
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
|
658 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
|
659 call read_eeprom ; Low-value |
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
|
660 clrf EEDATA ; Set change depth to zero |
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 call write_eeprom ; save result in EEPROM |
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 |
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 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
|
664 |
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 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
|
666 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
|
667 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
|
668 |
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 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
|
670 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
|
671 |
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 |
0 | 673 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
|
674 WIN_TOP .125 |
299
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
675 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
|
676 lfsr FSR2,letter |
299
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
677 |
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
678 OUTPUTTEXT .108 ; Change: |
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
679 |
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
|
680 ; 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
|
681 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
|
682 output_8 |
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 STRCAT_PRINT "m " |
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 |
299
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
685 ; 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
|
686 WIN_TOP .125 |
299
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
687 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
|
688 lfsr FSR2,letter |
0 | 689 rcall gassetup_show_ppO2 ; Display the ppO2 of the change depth with the current gas |
690 | |
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
|
691 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
|
692 movff xC+1,sub_a+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
|
693 GETCUSTOM8 d'46' ; color-code ppO2 warning [cBar] |
299
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
694 movwf sub_b+0 |
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
695 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
|
696 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
|
697 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
|
698 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
|
699 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
|
700 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
|
701 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
|
702 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
|
703 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
|
704 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
|
705 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
|
706 |
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 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
|
708 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
|
709 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
|
710 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
|
711 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
|
712 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
|
713 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
|
714 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
|
715 |
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 ; 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
|
717 WIN_TOP .155 |
299
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
718 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
|
719 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
|
720 |
299
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
721 OUTPUTTEXT .109 ; Default: |
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
722 |
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
723 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
|
724 |
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 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
|
726 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
|
727 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
|
728 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
|
729 |
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 output_16 |
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 STRCAT_PRINT "m " |
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
|
732 |
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 WIN_TOP .35 |
0 | 734 WIN_LEFT .20 |
735 lfsr FSR2,letter | |
736 OUTPUTTEXT .105 ; "Active Gas? " | |
737 | |
287 | 738 ; Active gas flags in BIT0:4 .... |
0 | 739 movff decodata+0,lo ; Gas 0-4 |
740 incf lo,F ; Gas 1-5 | |
741 | |
287 | 742 read_int_eeprom d'27' ; read flag register |
0 | 743 active_gas_display: |
744 rrcf EEDATA ; roll flags into carry | |
745 decfsz lo,F ; max. 5 times... | |
746 bra active_gas_display | |
747 | |
748 btfss STATUS,C ; test carry | |
749 bra active_gas_display_no | |
750 | |
751 OUTPUTTEXT .96 ; Yes | |
752 bra active_gas_display_end | |
753 | |
754 active_gas_display_no: | |
123 | 755 STRCAT " " ; three spaces instead of "Yes" |
0 | 756 |
757 active_gas_display_end: | |
758 call word_processor | |
759 | |
760 call wait_switches ; Waits until switches are released, resets flag if button stays pressed! | |
761 call PLED_menu_cursor | |
762 | |
763 next_gas_page_loop: | |
764 call check_switches_logbook | |
765 | |
766 btfsc menubit3 | |
767 bra next_gas_page2 ; move cursor | |
768 | |
769 btfsc menubit2 | |
770 bra do_next_gas_page ; call submenu | |
771 | |
772 btfsc divemode | |
773 goto restart ; dive started! | |
774 | |
775 btfsc onesecupdate | |
776 call timeout_surfmode | |
777 | |
778 btfsc onesecupdate | |
779 call set_dive_modes | |
780 | |
781 bcf onesecupdate ; 1 sec. functions done | |
782 | |
783 bra next_gas_page_loop | |
784 | |
785 next_gas_page2: | |
786 incf menupos,F | |
787 | |
788 movlw d'7' | |
789 cpfseq menupos ; =7? | |
790 bra next_gas_page3 ; No | |
791 movlw d'1' | |
792 movwf menupos | |
793 | |
794 next_gas_page3: | |
795 clrf timeout_counter2 | |
796 call PLED_menu_cursor | |
797 | |
798 call wait_switches ; Waits until switches are released, resets flag if button stays pressed! | |
799 | |
800 bcf menubit3 ; clear flag | |
801 bra next_gas_page_loop | |
802 | |
803 do_next_gas_page: | |
804 dcfsnz menupos,F | |
805 bra toggle_active_gas | |
806 dcfsnz menupos,F | |
807 bra make_first_gas | |
808 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
|
809 bra change_gas_depth_plus_minus |
0 | 810 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
|
811 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
|
812 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
|
813 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
|
814 bra next_gas |
0 | 815 |
816 make_first_gas: | |
817 movff decodata+0,EEDATA ; current gas (0-4) into EEDATA | |
818 incf EEDATA,F ; current gas (1-5) into EEDATA | |
819 movlw d'33' | |
820 movwf EEADR | |
821 call write_eeprom ; store in internal EEPROM | |
115 | 822 |
823 ; Set First gas to "Active" | |
824 read_int_eeprom d'27' ; read flag register | |
825 movff decodata+0,lo ; selected gas 0-4 | |
826 incf lo,F | |
827 dcfsnz lo,F | |
828 bsf EEDATA,0 | |
829 dcfsnz lo,F | |
830 bsf EEDATA,1 | |
831 dcfsnz lo,F | |
832 bsf EEDATA,2 | |
833 dcfsnz lo,F | |
834 bsf EEDATA,3 | |
835 dcfsnz lo,F | |
836 bsf EEDATA,4 | |
837 write_int_eeprom d'27' ; write flag register | |
838 | |
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
|
839 movlw d'2' |
0 | 840 movwf menupos |
841 bra next_gas_page1 | |
842 | |
843 toggle_active_gas: | |
844 read_int_eeprom d'27' ; read flag register | |
845 movff decodata+0,lo ; selected gas 0-4 | |
846 incf lo,F | |
847 dcfsnz lo,F | |
848 btg EEDATA,0 | |
849 dcfsnz lo,F | |
850 btg EEDATA,1 | |
851 dcfsnz lo,F | |
852 btg EEDATA,2 | |
853 dcfsnz lo,F | |
854 btg EEDATA,3 | |
855 dcfsnz lo,F | |
856 btg EEDATA,4 | |
857 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
|
858 movlw d'1' |
0 | 859 movwf menupos |
860 bra next_gas_page1 | |
861 | |
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
|
862 change_gas_depth_apply: ; Apply +1 or -1m |
0 | 863 movf decodata+0,W ; read current value |
864 addlw d'28' ; offset in memory | |
865 movwf EEADR | |
866 call read_eeprom ; Low-value | |
867 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
|
868 |
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 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
|
870 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
|
871 ; +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
|
872 |
0 | 873 incf lo,F ; increase depth |
874 movlw d'100' ; Change depth limit + 1 | |
299
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
875 cpfslt lo ; >99? |
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
876 clrf lo ; Yes, set to zero m |
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
877 |
0 | 878 change_gas_depth_plus2: |
879 movff lo,EEDATA ; write result | |
880 call write_eeprom ; save result in EEPROM | |
881 movlw d'4' | |
882 movwf menupos | |
883 bra next_gas_page1 | |
884 | |
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
|
885 change_gas_depth_minus: |
299
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
886 ; -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
|
887 decf lo,F ; decrease depth |
299
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
888 btfsc lo,7 ; 255? |
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
889 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
|
890 bra change_gas_depth_plus2 ; exit |
0 | 891 |
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
|
892 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
|
893 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
|
894 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
|
895 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
|
896 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
|
897 |
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 change_gas_depth_default: |
299
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
899 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
|
900 |
299
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
901 movlw d'99' |
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
902 cpfslt lo |
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
903 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
|
904 |
0 | 905 movf decodata+0,W ; read current value |
906 addlw d'28' ; offset in memory | |
907 movwf EEADR | |
908 call read_eeprom ; Low-value | |
909 movff lo,EEDATA ; write result | |
910 call write_eeprom ; save result in EEPROM | |
911 | |
912 movlw d'5' | |
913 movwf menupos | |
914 bra next_gas_page1 | |
915 | |
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
|
916 |
0 | 917 ; Changed v1.44se |
918 gassetup_title_bar2: | |
919 call PLED_topline_box | |
920 WIN_INVERT .1 ; Init new Wordprocessor | |
921 WIN_TOP .2 | |
922 WIN_LEFT .0 | |
923 lfsr FSR2,letter | |
924 OUTPUTTEXT .95 ; Gas# | |
925 movff decodata+0,lo | |
926 incf lo,F | |
927 bsf leftbind | |
928 output_99 | |
123 | 929 STRCAT_PRINT ": " |
0 | 930 |
931 WIN_TOP .2 | |
932 WIN_LEFT .50 | |
933 lfsr FSR2,letter | |
934 | |
935 ;He check | |
936 movf divemins+0,W | |
937 addlw 0x07 | |
938 movwf EEADR | |
939 call read_eeprom ; He value | |
940 movff EEDATA,lo ; Move EEData -> lo | |
941 movf lo,f ; Move lo -> f | |
942 movlw d'0' ; Move 0 -> WREG | |
943 cpfsgt lo ; He > 0? | |
944 bra gassetup_title_bar3 ; NO check o2 | |
945 | |
946 ; YES Write TX 15/55 | |
947 call gassetup_write_Tx ; Write TX | |
948 movf divemins+0,W | |
949 addlw 0x06 | |
950 movwf EEADR | |
951 call read_eeprom ; O2 value | |
952 movff EEDATA,lo | |
953 output_8 ; Write O2 | |
123 | 954 PUTC '/' |
0 | 955 movf divemins+0,W |
956 addlw 0x07 | |
957 movwf EEADR | |
958 call read_eeprom ; He value | |
959 movff EEDATA,lo | |
960 output_8 ; Write He | |
961 bra gassetup_title_bar7 | |
962 | |
963 ; New v1.44se | |
964 gassetup_title_bar3: ; O2 Check | |
965 movf divemins+0,W | |
966 addlw 0x06 | |
967 movwf EEADR | |
968 call read_eeprom ; O2 value | |
969 movff EEDATA,lo | |
970 movf lo,f ; Move lo -> f | |
971 movlw d'21' ; Move 21 -> WREG | |
972 cpfseq lo ; o2 = 21 | |
973 cpfsgt lo ; o2 > 21% | |
974 bra gassetup_title_bar5 ; NO AIR | |
975 movlw d'100' ; Move 100 -> WREG | |
976 cpfslt lo ; o2 < 100% | |
977 bra gassetup_title_bar4 ; NO write O2 | |
978 | |
979 ; YES Write NX 32 | |
980 call gassetup_write_Nx | |
981 output_8 | |
982 bra gassetup_title_bar7 | |
983 | |
984 ; New v1.44se | |
985 gassetup_title_bar4: | |
123 | 986 STRCAT "O2 " |
0 | 987 output_8 |
988 bra gassetup_title_bar7 | |
989 | |
990 ; New v1.44se | |
991 gassetup_title_bar5: | |
992 cpfseq lo ; o2 = 21% | |
993 bra gassetup_title_bar6 | |
994 | |
123 | 995 STRCAT "AIR " |
0 | 996 output_8 |
997 bra gassetup_title_bar7 | |
998 | |
999 ; New v1.44se | |
1000 gassetup_title_bar6: ; ERROR | |
123 | 1001 STRCAT "ERR " |
0 | 1002 output_8 |
1003 bra gassetup_title_bar7 | |
1004 | |
1005 gassetup_title_bar7: | |
123 | 1006 STRCAT " in " |
0 | 1007 movf decodata+0,W ; read current value |
1008 addlw d'28' ; offset in memory | |
1009 movwf EEADR | |
1010 call read_eeprom ; Low-value | |
1011 movff EEDATA,lo | |
1012 output_8 | |
123 | 1013 STRCAT_PRINT "m " |
0 | 1014 |
1015 WIN_INVERT .0 ; Init new Wordprocessor | |
1016 return | |
1017 | |
1018 ; New v1.44se | |
1019 gassetup_write_Nx: | |
123 | 1020 STRCAT "NX " |
0 | 1021 return |
1022 | |
1023 ; New v1.44se | |
1024 gassetup_write_Tx: | |
123 | 1025 STRCAT "TX " |
0 | 1026 return |
1027 | |
1028 gassetup_show_ppO2: | |
1029 movf divemins+0,W | |
1030 addlw 0x06 | |
1031 movwf EEADR | |
1032 call read_eeprom ; O2 value | |
1033 movff EEDATA,hi | |
1034 | |
1035 movf decodata+0,W ; read current value | |
1036 addlw d'28' ; offset in memory | |
1037 movwf EEADR | |
1038 call read_eeprom ; Change depth in m | |
1039 movff EEDATA,lo | |
1040 movlw d'10' | |
1041 addwf lo,F ; Depth+10m=lo | |
1042 movf hi,W | |
1043 mulwf lo ; (Depth+10m)*O2 | |
1044 movff PRODL,xA+0 | |
1045 movff PRODH,xA+1 | |
1046 movlw d'10' | |
1047 movwf xB+0 | |
1048 clrf xB+1 | |
1049 call div16x16 ;xA/xB=xC with xA as remainder | |
1050 movff xC+0,lo ; ((Depth+10m)*O2)/10 = [0.01Bar] ppO2 | |
1051 movff xC+1,hi | |
1052 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
|
1053 OUTPUTTEXT d'150' ; bar: |
35 | 1054 return |
1055 | |
299
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
1056 gassetup_get_mod: |
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
1057 GETCUSTOM8 .18 ; ppO2 warnvalue in WREG |
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
1058 mullw d'10' |
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
1059 movff PRODL,xA+0 |
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
1060 movff PRODH,xA+1 ; ppO2 in [0.01Bar] * 10 |
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
1061 movf divemins+0,W |
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
1062 addlw 0x06 |
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
1063 movwf EEADR |
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
1064 call read_eeprom ; O2 value |
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
1065 movff EEDATA,xB+0 |
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
1066 clrf xB+1 |
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
1067 call div16x16 ; xA/xB=xC with xA as remainder |
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
1068 movlw d'10' |
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
1069 subwf xC+0,F ; Subtract 10m... |
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
1070 movff xC+0,lo |
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
1071 movlw d'0' |
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
1072 subwfb xC+1,F |
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
1073 movff xC+1,hi |
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
1074 return |
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
1075 |
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
1076 |
eac799f69360
some cleanup, french and german texts updated
heinrichsweikamp
parents:
297
diff
changeset
|
1077 |
227 | 1078 ;============================================================================= |
287 | 1079 ; Make sure first gas is marked active. |
1080 ; Note: - Gas are not soted anymore. | |
1081 ; - Gas with a depth>0 should not be forced active, or it is impossible | |
1082 ; to de-activate them. | |
1083 gassetup_sort_gaslist: | |
286 | 1084 |
287 | 1085 clrf EEADRH ; Select EEPROM lower page. |
1086 read_int_eeprom d'33' ; Get First gas (1-5) | |
1087 movff EEDATA,lo ; into register lo | |
286 | 1088 |
287 | 1089 read_int_eeprom d'27' ; Read selected gases |
286 | 1090 |
287 | 1091 dcfsnz lo,F ; If lo==1 |
1092 bsf EEDATA,0 ; Select Gas1 | |
1093 dcfsnz lo,F ; If lo==2 | |
1094 bsf EEDATA,1 ; Select Gas2 | |
1095 dcfsnz lo,F | |
1096 bsf EEDATA,2 | |
1097 dcfsnz lo,F | |
1098 bsf EEDATA,3 | |
1099 dcfsnz lo,F | |
1100 bsf EEDATA,4 | |
1101 | |
1102 ; Copy result to register: | |
290
4dbff2aa31ee
Hunting for refusing to ignore disabled gas in list...
JeanDo
parents:
287
diff
changeset
|
1103 movff EEDATA,gaslist_active |
287 | 1104 |
1105 ; And write to EEPROM too, to survive next reboot: | |
1106 write_int_eeprom d'27' | |
286 | 1107 |
1108 return | |
281 | 1109 |
287 | 1110 ;============================================================================= |
35 | 1111 ; EEPROM Locations of Gaslist |
1112 ; Gas1: | |
1113 ; O2 Default:4 | |
1114 ; He Default:5 | |
1115 ; O2 Current:6 | |
1116 ; He Current:7 | |
1117 ; Change: 28 | |
1118 ; Active: 27,0 | |
1119 | |
1120 ; Gas2: | |
1121 ; O2 Default:8 | |
1122 ; He Default:9 | |
1123 ; O2 Current:10 | |
1124 ; He Current:11 | |
1125 ; Change: 29 | |
1126 ; Active: 27,1 | |
1127 | |
1128 ; Gas3: | |
1129 ; O2 Default:12 | |
1130 ; He Default:13 | |
1131 ; O2 Current:14 | |
1132 ; He Current:15 | |
1133 ; Change: 30 | |
1134 ; Active: 27,2 | |
1135 | |
1136 ; Gas4: | |
1137 ; O2 Default:16 | |
1138 ; He Default:17 | |
1139 ; O2 Current:18 | |
1140 ; He Current:19 | |
1141 ; Change: 31 | |
1142 ; Active: 27,3 | |
1143 | |
1144 ; Gas5: | |
1145 ; O2 Default:20 | |
1146 ; He Default:21 | |
1147 ; O2 Current:22 | |
1148 ; He Current:23 | |
1149 ; Change: 32 | |
1150 ; Active: 27,4 |