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