Mercurial > public > mk2

annotate code_part1/OSTC_code_asm_part1/menu_ppO2.asm @ 731:87c74962b7e1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
show ppO2 of diluent gas in bailout case correctly
author heinrichsweikamp
date Sun, 16 Jun 2013 22:24:02 +0200
parents 91ae251d379f
children 03f8a8eec9ae c50296c3059e
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2 ; OSTC - diving computer code
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3 ; Copyright (C) 2008 HeinrichsWeikamp GbR
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
5 ; This program is free software: you can redistribute it and/or modify
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
6 ; it under the terms of the GNU General Public License as published by
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
7 ; the Free Software Foundation, either version 3 of the License, or
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
8 ; (at your option) any later version.
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
9
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
10 ; This program is distributed in the hope that it will be useful,
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
11 ; but WITHOUT ANY WARRANTY; without even the implied warranty of
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
12 ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
13 ; GNU General Public License for more details.
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
14
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
15 ; You should have received a copy of the GNU General Public License
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
16 ; along with this program. If not, see <http://www.gnu.org/licenses/>.
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
17
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
18
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
19 ; Constant ppO2 Setup menu
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
20 ; written by: Matthias Heinrichs, info@heinrichsweikamp.com
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
21 ; written: 08/04/04
639
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
22 ; last updated: 120920
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
23 ; known bugs:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
24 ; ToDo:
639
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
25 ;
647
e6ac142e82b0 New Diluent Submenu in Divemode
heinrichsweikamp
parents: 643
diff changeset
26 ; New in 2.52 Diluents stored seperately in EEPROM Bank0
685
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
27 ;Byte96-97:
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
28 ;Diluent 1 Default (%O2,%He)
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
29 ;Byte98-99:
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
30 ;Diluent 1 Current (%O2,%He)
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
31 ;Byte100-101:
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
32 ;Diluent 2 Default (%O2,%He)
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
33 ;Byte102-103:
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
34 ;Diluent 2 Current (%O2,%He)
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
35 ;Byte104-105:
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
36 ;Diluent 3 Default (%O2,%He)
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
37 ;Byte106-107:
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
38 ;Diluent 3 Current (%O2,%He)
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
39 ;Byte108-109:
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
40 ;Diluent 4 Default (%O2,%He)
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
41 ;Byte110-111:
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
42 ;Diluent 4 Current (%O2,%He)
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
43 ;Byte112-113:
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
44 ;Diluent 5 Default (%O2,%He)
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
45 ;Byte114-115:
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
46 ;Diluent 5 Current (%O2,%He)
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
47 ;Byte116:
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
48 ;First Diluent (1-5)
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
49
647
e6ac142e82b0 New Diluent Submenu in Divemode
heinrichsweikamp
parents: 643
diff changeset
50 ; EEPROM BANK0 Byte96-97:
639
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
51 ; Diluent 1 (%O2,%He)
647
e6ac142e82b0 New Diluent Submenu in Divemode
heinrichsweikamp
parents: 643
diff changeset
52 ; EEPROM BANK0 Byte98-99:
639
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
53 ; Diluent 2 (%O2,%He)
647
e6ac142e82b0 New Diluent Submenu in Divemode
heinrichsweikamp
parents: 643
diff changeset
54 ; EEPROM BANK0 Byte100-101:
639
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
55 ; Diluent 3 (%O2,%He)
647
e6ac142e82b0 New Diluent Submenu in Divemode
heinrichsweikamp
parents: 643
diff changeset
56 ; EEPROM BANK0 Byte102-103:
639
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
57 ; Diluent 4 (%O2,%He)
647
e6ac142e82b0 New Diluent Submenu in Divemode
heinrichsweikamp
parents: 643
diff changeset
58 ; EEPROM BANK0 Byte104-105:
639
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
59 ; Diluent 5 (%O2,%He)
655
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
60 ; EEPROM BANK0 Byte106:
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
61 ; First Diluent (1-5)
639
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
62
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
63
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
64 menu_const_ppO2:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
65 movlw d'1'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
66 movwf menupos
639
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
67 menu_const_ppO2_return:
681
6e456a6398e0 Hardware4 support
heinrichsweikamp
parents: 655
diff changeset
68 call DISP_ClearScreen
6e456a6398e0 Hardware4 support
heinrichsweikamp
parents: 655
diff changeset
69 call DISP_ccr_setup_menu_mask
639
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
70 call refresh_cursor
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
71 call menu_pre_loop_common
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
72
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
73 menu_const_ppO2_preloop:
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
74 call check_switches_menu
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
75 movlw d'3'
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
76 cpfseq menupos
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
77 bra menu_const_ppO2_preloop2 ; Returns
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
78 movlw d'6'
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
79 movwf menupos
681
6e456a6398e0 Hardware4 support
heinrichsweikamp
parents: 655
diff changeset
80 call DISP_menu_cursor
639
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
81
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
82 menu_const_ppO2_preloop2:
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
83 btfsc menubit2
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
84 bra do_ccr_pre_menu ; call submenu
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
85 btfss menubit
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
86 goto restart ; exit menu, restart
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
87 btfsc onesecupdate
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
88 call menu_check_dive_and_timeout ; "Goto restart" or sets sleepmode flag
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
89 bcf onesecupdate ; End of one second tasks
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
90 btfsc sleepmode
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
91 goto restart
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
92 bra menu_const_ppO2_preloop
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
93
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
94 do_ccr_pre_menu:
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
95 dcfsnz menupos,F
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
96 goto menu_diluentsetup
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
97 dcfsnz menupos,F
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
98 goto menu_const_ppO2_setpoints
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
99 dcfsnz menupos,F
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
100 goto exit_menu_const_ppO2 ; exit...
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
101 dcfsnz menupos,F
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
102 goto exit_menu_const_ppO2 ; exit...
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
103 dcfsnz menupos,F
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
104 goto exit_menu_const_ppO2 ; exit...
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
105 exit_menu_const_ppO2: ; exit...
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
106 movlw d'2'
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
107 movwf menupos
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
108 goto more_menu2
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
109
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
110 menu_diluentsetup:
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
111 movlw d'1'
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
112 movwf menupos
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
113
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
114 menu_diluentsetup_prelist:
681
6e456a6398e0 Hardware4 support
heinrichsweikamp
parents: 655
diff changeset
115 call DISP_ClearScreen
639
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
116 call menu_pre_loop_common ; Clear some menu flags, timeout and switches
717
91ae251d379f "ostc3-style" menu titles
heinrichsweikamp
parents: 685
diff changeset
117 call DISP_divemask_color
642
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
118 DISPLAYTEXT .231 ; Dil. Setup - Gaslist
717
91ae251d379f "ostc3-style" menu titles
heinrichsweikamp
parents: 685
diff changeset
119 call DISP_standard_color
639
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
120 clrf decodata+0 ; Here: # of gas 0-4
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
121 clrf divemins+0 ; Here: # of Gas * 4
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
122 movlw d'5'
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
123 movwf waitms_temp ; here: stores row for gas list
685
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
124 movlw d'93'
639
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
125 movwf wait_temp ; here: stores eeprom address for gas list
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
126
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
127 menu_diluentsetup_list:
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
128 WIN_LEFT .20
685
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
129 movlw d'4'
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
130 addwf wait_temp,F ; Increase eeprom address for diluent list
639
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
131 movlw d'30'
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
132 addwf waitms_temp,F ; Increase row
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
133 movf waitms_temp,W ; Load row into WREG
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
134 movff WREG,win_top
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
135 lfsr FSR2,letter
640
50ba6255f53e ccr menu
heinrichsweikamp
parents: 639
diff changeset
136 PUTC TXT_DIL_C
639
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
137 movff decodata+0,lo
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
138 incf lo,F
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
139 bsf leftbind
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
140 output_99
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
141 PUTC ':'
655
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
142 call word_processor
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
143
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
144 WIN_LEFT .40
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
145 movf waitms_temp,W ; Load row into WREG
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
146 movff WREG,win_top
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
147 lfsr FSR2,letter
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
148
685
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
149 movlw d'116'
655
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
150 movwf EEADR
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
151 call read_eeprom ; Get current startgas 1-5 # into EEDATA
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
152 decf EEDATA,W ; 0-4
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
153 cpfseq decodata+0 ; =current displayed gas #?
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
154 bra menu_diluentsetup_Tx; no, do not display *
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
155 PUTC '*' ; display *
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
156 call word_processor
639
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
157
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
158 menu_diluentsetup_Tx:
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
159 WIN_LEFT .48
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
160 movf waitms_temp,W ; Load row into WREG
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
161 movff WREG,win_top
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
162 lfsr FSR2,letter
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
163
685
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
164 movff wait_temp, EEADR ; Gas %He - Set address in internal EEPROM
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
165 incf EEADR,F ; Gas %He - Set address in internal EEPROM
639
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
166 call read_eeprom ; Read He value from EEPROM
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
167 movff EEDATA,lo ; Move EEDATA -> lo
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
168 movf lo,f ; Move lo -> f
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
169 movlw d'0' ; Move 0 -> WREG
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
170 cpfsgt lo ; He > 0?
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
171 bra menu_diluentsetup_Nx ; NO check o2
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
172
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
173 ; YES Write TX 15/55
642
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
174 STRCAT TXT_TX3
639
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
175 movff wait_temp, EEADR ; Gas %O2 - Set address in internal EEPROM
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
176 call read_eeprom ; O2 value
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
177 movff EEDATA,lo
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
178 output_8
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
179 PUTC '/'
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
180 incf EEADR,F ; Gas #hi: %He - Set address in internal EEPROM
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
181 call read_eeprom ; He value
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
182 movff EEDATA,lo
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
183 output_8
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
184 bra menu_diluentsetup_list0
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
185
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
186 ; New v1.44se
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
187 menu_diluentsetup_Nx:
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
188 movff wait_temp, EEADR ; Gas %O2 - Set address in internal EEPROM
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
189 call read_eeprom ; Read O2 value from EEPROM
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
190 movff EEDATA,lo ; Move EEDATA -> lo
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
191 movf lo,f ; Move lo -> f
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
192 movlw d'21' ; Move 21 -> WREG
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
193 cpfsgt lo ; o2 > 21%
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
194 bra menu_diluentsetup_Air ; NO AIR
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
195 movlw d'100' ; Move 100 -> WREG
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
196 cpfslt lo ; o2 < 100%
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
197 bra menu_diluentsetup_O2 ; NO write O2
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
198
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
199 ; YES Write NX 32
642
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
200 STRCAT TXT_NX3
639
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
201 output_8
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
202 bra menu_diluentsetup_list0
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
203
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
204 menu_diluentsetup_O2:
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
205 STRCAT TXT_O2_3
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
206 output_8
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
207 bra menu_diluentsetup_list0
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
208
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
209 menu_diluentsetup_Air:
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
210 cpfseq lo ; o2 = 21%
642
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
211 bra menu_diluentsetup_Err
639
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
212
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
213 STRCAT TXT_AIR4
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
214 output_8
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
215 bra menu_diluentsetup_list0
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
216
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
217 menu_diluentsetup_Err:
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
218 STRCAT TXT_ERR4
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
219 output_8
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
220
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
221 menu_diluentsetup_list0:
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
222 call word_processor
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
223
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
224 incf decodata+0,F
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
225 movlw d'5'
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
226 cpfseq decodata+0
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
227 goto menu_diluentsetup_list
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
228
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
229 DISPLAYTEXT .11 ; Exit
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
230 call wait_switches ; Waits until switches are released, resets flag if button stays pressed!
681
6e456a6398e0 Hardware4 support
heinrichsweikamp
parents: 655
diff changeset
231 call DISP_menu_cursor
639
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
232
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
233 menu_diluentsetup_loop:
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
234 call check_switches_logbook
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
235
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
236 btfsc menubit3
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
237 bra menu_diluentsetup_list2 ; move cursor
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
238
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
239 btfsc menubit2
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
240 bra do_diluentsetup_list ; call gas-specific submenu
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
241
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
242 btfsc onesecupdate
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
243 call menu_check_dive_and_timeout ; "Goto restart" or sets sleepmode flag
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
244
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
245 bcf onesecupdate ; 1 sec. functions done
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
246
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
247 btfsc sleepmode
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
248 bra menu_const_ppO2
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
249
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
250 bra menu_diluentsetup_loop
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
251
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
252 menu_diluentsetup_list2:
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
253 incf menupos,F
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
254 movlw d'7'
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
255 cpfseq menupos ; =7?
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
256 bra menu_diluentsetup_list3 ; No
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
257 movlw d'1'
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
258 movwf menupos
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
259
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
260 menu_diluentsetup_list3:
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
261 clrf timeout_counter2
681
6e456a6398e0 Hardware4 support
heinrichsweikamp
parents: 655
diff changeset
262 call DISP_menu_cursor
639
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
263
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
264 call wait_switches ; Waits until switches are released, resets flag if button stays pressed!
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
265
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
266 bcf menubit3 ; clear flag
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
267 bra menu_diluentsetup_loop
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
268
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
269
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
270 do_diluentsetup_list:
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
271 dcfsnz menupos,F
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
272 bra diluent_list_edit_gas1
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
273 dcfsnz menupos,F
642
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
274 bra diluent_list_edit_gas2
639
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
275 dcfsnz menupos,F
642
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
276 bra diluent_list_edit_gas3
639
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
277 dcfsnz menupos,F
642
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
278 bra diluent_list_edit_gas4
639
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
279 dcfsnz menupos,F
642
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
280 bra diluent_list_edit_gas5
639
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
281 bra menu_const_ppO2 ; Exit List
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
282
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
283 diluent_list_edit_gas1:
642
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
284 movlw d'0' ; Diluent Number 0-4
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
285 movwf decodata+0
685
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
286 movlw d'91' ; EEPROM address of %O2
642
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
287 movwf divemins+0
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
288 bra menu_diluentgas
639
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
289 diluent_list_edit_gas2:
642
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
290 movlw d'1' ; Diluent Number 0-4
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
291 movwf decodata+0
685
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
292 movlw d'95' ; EEPROM address of %O2
642
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
293 movwf divemins+0
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
294 bra menu_diluentgas
639
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
295 diluent_list_edit_gas3:
642
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
296 movlw d'2' ; Diluent Number 0-4
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
297 movwf decodata+0
685
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
298 movlw d'99' ; EEPROM address of %O2
642
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
299 movwf divemins+0
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
300 bra menu_diluentgas
639
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
301 diluent_list_edit_gas4:
642
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
302 movlw d'3' ; Diluent Number 0-4
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
303 movwf decodata+0
685
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
304 movlw d'103' ; EEPROM address of %O2
642
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
305 movwf divemins+0
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
306 bra menu_diluentgas
639
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
307 diluent_list_edit_gas5:
642
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
308 movlw d'4' ; Diluent Number 0-4
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
309 movwf decodata+0
685
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
310 movlw d'107' ; EEPROM address of %O2
642
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
311 movwf divemins+0
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
312 ; bra menu_diluentgas
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
313 menu_diluentgas:
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
314 movlw d'1'
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
315 movwf menupos
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
316 bcf menubit4
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
317 bcf first_FA ; Here: =1: -, =0: +
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
318
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
319 menu_diluentgas0:
681
6e456a6398e0 Hardware4 support
heinrichsweikamp
parents: 655
diff changeset
320 call DISP_ClearScreen
642
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
321 WIN_LEFT .20
655
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
322 WIN_TOP .185
642
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
323 lfsr FSR2, letter
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
324 OUTPUTTEXT .11 ; Exit
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
325 STRCAT_PRINT ""
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
326
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
327 menu_diluentgas1:
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
328 call menu_pre_loop_common ; Clear some menu flags, timeout and switches
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
329 call diluent_title_bar2 ; Displays the title bar with the current Gas info
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
330
655
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
331 WIN_TOP .35
642
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
332 WIN_LEFT .20
655
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
333 lfsr FSR2,letter
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
334 OUTPUTTEXT .88 ; First Gas?
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
335 PUTC ' '
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
336
685
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
337 movlw d'116'
655
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
338 movwf EEADR
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
339 call read_eeprom ; Get current startgas 1-5 # into EEDATA
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
340 decf EEDATA,W ; 0-4
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
341 cpfseq decodata+0 ; =current displayed gas #?
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
342 bra menu_firstdil0 ; no, display three spaces
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
343
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
344 OUTPUTTEXT .96 ; Yes
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
345 bsf second_FA ; Is first gas
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
346
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
347 bra menu_firstdil1
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
348
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
349 menu_firstdil0:
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
350 bcf second_FA ; Is not first gas
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
351 STRCAT " " ; 3 spaces.
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
352
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
353 menu_firstdil1:
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
354 call word_processor
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
355
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
356 WIN_LEFT .20
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
357 WIN_TOP .65
642
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
358 STRCPY TXT_O2_4
685
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
359
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
360 movf divemins+0,W
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
361 addlw 0x06
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
362 movwf EEADR
642
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
363 call read_eeprom ; O2 value
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
364 movff EEDATA,lo
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
365 output_8
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
366 STRCAT_PRINT "% "
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
367
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
368 ; Show MOD in m
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
369 WIN_LEFT .90
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
370 lfsr FSR2, letter
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
371 OUTPUTTEXTH .297 ; MOD:
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
372
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
373 GETCUSTOM8 .18 ; ppO2 warnvalue in WREG
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
374 mullw d'10'
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
375 movff PRODL,xA+0
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
376 movff PRODH,xA+1 ; ppO2 in [0.01bar] * 10
685
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
377 movf divemins+0,W
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
378 addlw 0x06
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
379 movwf EEADR
642
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
380 call read_eeprom ; O2 value
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
381 movff EEDATA,xB+0
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
382 clrf xB+1
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
383 call div16x16 ; xA/xB=xC with xA as remainder
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
384 movlw d'10'
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
385 subwf xC+0,F ; Subtract 10m...
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
386 movff xC+0,lo
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
387 movlw d'0'
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
388 subwfb xC+1,F
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
389 movff xC+1,hi
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
390
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
391 output_16
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
392 STRCAT_PRINT TXT_METER3
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
393
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
394 WIN_LEFT .20
655
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
395 WIN_TOP .95
642
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
396 STRCPY TXT_HE4
685
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
397 movf divemins+0,W
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
398 addlw 0x07
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
399 movwf EEADR
642
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
400 call read_eeprom ; He value
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
401 movff EEDATA,lo
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
402 output_8
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
403 STRCAT_PRINT "% "
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
404
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
405 ; Show END in m
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
406 lfsr FSR2, letter
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
407 WIN_LEFT .90
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
408 OUTPUTTEXTH .298 ; END:
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
409 GETCUSTOM8 .18 ; ppO2 warnvalue in WREG
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
410 mullw d'10'
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
411 movff PRODL,xA+0
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
412 movff PRODH,xA+1 ; ppO2 in [0.01bar] * 10
685
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
413 movf divemins+0,W
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
414 addlw 0x06
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
415 movwf EEADR
642
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
416 call read_eeprom ; O2 value
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
417 movff EEDATA,xB+0
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
418 clrf xB+1
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
419 call div16x16 ; xA/xB=xC with xA as remainder
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
420 movlw d'10'
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
421 subwf xC+0,F ; Subtract 10m...
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
422 movff xC+0,lo
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
423 movlw d'0'
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
424 subwfb xC+1,F
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
425 movff xC+1,hi ; lo:hi holding MOD in meters
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
426 movlw d'10'
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
427 addwf lo,F
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
428 movlw d'0'
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
429 addwfc hi,F ; lo:hi holding MOD+10m
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
430
685
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
431 movf divemins+0,W
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
432 addlw 0x07
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
433 movwf EEADR
642
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
434 call read_eeprom ; He value in % -> EEDATA
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
435 movlw d'100'
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
436 movwf xA+0
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
437 movf EEDATA,W ; He value in % -> EEDATA
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
438 subwf xA+0,F ; xA+0 = 100 - He Value in %
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
439 clrf xA+1
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
440 movff lo,xB+0
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
441 movff hi,xB+1 ; Copy MOD+10
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
442 call mult16x16 ; xA*xB=xC
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
443 movff xC+0,xA+0
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
444 movff xC+1,xA+1
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
445 movlw d'100'
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
446 movwf xB+0
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
447 clrf xB+1
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
448 call div16x16 ; xA/xB=xC with xA as remainder
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
449 ; xC:2 = ((MOD+10) * 100 - HE Value in %) / 100
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
450 movlw d'10'
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
451 subwf xC+0,F ; Subtract 10m...
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
452 movff xC+0,lo
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
453 movlw d'0'
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
454 subwfb xC+1,F
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
455 movff xC+1,hi
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
456 output_16
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
457 STRCAT_PRINT TXT_METER3
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
458
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
459 WIN_LEFT .20
655
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
460 WIN_TOP .125
642
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
461 STRCPY "+/-: "
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
462 movlw '+'
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
463 btfsc first_FA
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
464 movlw '-'
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
465 movwf POSTINC2
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
466 call word_processor
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
467
655
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
468 WIN_TOP .155
642
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
469 lfsr FSR2,letter
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
470 OUTPUTTEXT .89 ; Default:
685
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
471 movf divemins+0,W
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
472 addlw 0x04
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
473 movwf EEADR
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
474 call read_eeprom ; Default O2 value
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
475 movff EEDATA,lo
642
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
476 output_8
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
477 PUTC '/'
685
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
478 movf divemins+0,W
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
479 addlw 0x05
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
480 movwf EEADR
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
481 call read_eeprom ; Default He value
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
482 movff EEDATA,lo
642
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
483 output_8
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
484 STRCAT_PRINT " "
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
485
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
486 call wait_switches ; Waits until switches are released, resets flag if button stays pressed!
681
6e456a6398e0 Hardware4 support
heinrichsweikamp
parents: 655
diff changeset
487 call DISP_menu_cursor
642
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
488
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
489 diluentgassetup_loop:
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
490 call check_switches_logbook
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
491
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
492 btfsc menubit3
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
493 bra diluentgassetup2 ; move cursor
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
494
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
495 btfsc menubit2
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
496 bra do_diluentgassetup ; call submenu
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
497
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
498 btfsc onesecupdate
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
499 call menu_check_dive_and_timeout ; "Goto restart" or sets sleepmode flag
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
500
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
501 bcf onesecupdate ; 1 sec. functions done
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
502
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
503 btfsc sleepmode
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
504 bra exit_menu_const_ppO2
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
505
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
506 bra diluentgassetup_loop
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
507
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
508 diluentgassetup2:
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
509 incf menupos,F
655
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
510 movlw d'7'
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
511 cpfseq menupos ; =7?
642
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
512 bra diluentgassetup3 ; No
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
513 movlw d'1'
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
514 movwf menupos
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
515
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
516 diluentgassetup3:
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
517 clrf timeout_counter2
681
6e456a6398e0 Hardware4 support
heinrichsweikamp
parents: 655
diff changeset
518 call DISP_menu_cursor
642
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
519
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
520 call wait_switches ; Waits until switches are released, resets flag if button stays pressed!
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
521
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
522 bcf menubit3 ; clear flag
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
523 bra diluentgassetup_loop
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
524
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
525 do_diluentgassetup:
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
526 dcfsnz menupos,F
655
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
527 bra make_first_diluent
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
528 dcfsnz menupos,F
642
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
529 bra adjust_o2_diluent
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
530 dcfsnz menupos,F
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
531 bra adjust_he_diluent
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
532 dcfsnz menupos,F
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
533 bra toggle_plus_minus_diluentsetup
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
534 dcfsnz menupos,F
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
535 bra restore_gas_diluent
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
536 exit_diluentgassetup: ; exit...
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
537 movff decodata+0,menupos
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
538 incf menupos,F
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
539 bra menu_diluentsetup_prelist
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
540
655
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
541 make_first_diluent:
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
542 movff decodata+0,EEDATA ; current gas (0-4) into EEDATA
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
543 incf EEDATA,F ; current gas (1-5) into EEDATA
685
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
544 movlw d'116'
655
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
545 movwf EEADR
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
546 call write_eeprom ; store in internal EEPROM
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
547 movlw d'1'
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
548 movwf menupos
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
549 bra menu_diluentgas1 ; return
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
550
642
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
551 toggle_plus_minus_diluentsetup:
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
552 btg first_FA
655
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
553 movlw d'4'
642
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
554 movwf menupos
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
555 bra menu_diluentgas1 ; return
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
556
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
557 adjust_o2_diluent:
685
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
558 movf divemins+0,W ; read current value
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
559 addlw 0x06
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
560 movwf EEADR
642
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
561 call read_eeprom ; Low-value
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
562 movff EEDATA,lo
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
563
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
564 btfsc first_FA ; Minus?
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
565 bra adjust_o2_1_diluent ; yes, minus!
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
566
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
567 incf lo,F ; increase O2
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
568 movlw d'101'
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
569 cpfseq lo
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
570 bra adjust_o2_2_diluent
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
571 movlw d'4' ; LOWER O2 Limit
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
572 movwf lo
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
573 bra adjust_o2_2_diluent
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
574
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
575 adjust_o2_1_diluent:
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
576 decf lo,F ; decrease O2
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
577 movlw d'3'
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
578 cpfseq lo
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
579 bra adjust_o2_2_diluent
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
580
685
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
581 movf divemins+0,W
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
582 addlw 0x07
642
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
583 movwf EEADR
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
584 call read_eeprom ; read He value
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
585
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
586 movlw d'100'
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
587 movwf lo
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
588 movf EEDATA,W ; He value
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
589 subwf lo,F ; lo=100% - He%
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
590
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
591 adjust_o2_2_diluent: ; test if O2+He>100...
685
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
592 addlw 0x07
642
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
593 movwf EEADR
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
594 call read_eeprom ; read He value
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
595 movf EEDATA,W ; He value
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
596 addwf lo,W ; add O2 value
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
597 movwf hi ; store in temp
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
598 movlw d'101'
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
599 cpfseq hi ; O2 and He > 100?
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
600 bra adjust_o2_3_diluent ; No!
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
601
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
602 movlw d'4' ; LOWER O2 Limit
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
603 movwf lo
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
604
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
605 adjust_o2_3_diluent:
685
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
606 movf divemins+0,W ; save current value
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
607 addlw 0x06
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
608 movwf EEADR
642
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
609 movff lo,EEDATA
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
610 call write_eeprom ; Low-value
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
611
655
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
612 movlw d'2'
642
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
613 movwf menupos
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
614 bra menu_diluentgas1 ; return
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
615
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
616 adjust_he_diluent:
685
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
617 movf divemins+0,W ; read current value
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
618 addlw 0x07
652
86b49e47b2f5 allow Diluents with >50% He
heinrichsweikamp
parents: 647
diff changeset
619 movwf EEADR ; read current value (He)
642
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
620 call read_eeprom ; Low-value
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
621 movff EEDATA,lo
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
622
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
623 btfsc first_FA ; Minus?
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
624 bra adjust_he_1_diluent ; yes, minus!
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
625
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
626 incf lo,F
652
86b49e47b2f5 allow Diluents with >50% He
heinrichsweikamp
parents: 647
diff changeset
627 movlw d'99' ; He limited to (useless) 99%
642
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
628 cpfseq lo
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
629 bra adjust_he_2_diluent
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
630 clrf lo
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
631 bra adjust_he_2_diluent
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
632
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
633 adjust_he_1_diluent:
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
634 decf lo,F ; decrease He
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
635 movlw d'255'
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
636 cpfseq lo
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
637 bra adjust_he_2_diluent
652
86b49e47b2f5 allow Diluents with >50% He
heinrichsweikamp
parents: 647
diff changeset
638 clrf lo ; limit to zero
642
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
639
652
86b49e47b2f5 allow Diluents with >50% He
heinrichsweikamp
parents: 647
diff changeset
640 adjust_he_2_diluent: ; test if O2+He>100...
685
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
641 movf divemins+0,W
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
642 addlw 0x06
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
643 movwf EEADR
652
86b49e47b2f5 allow Diluents with >50% He
heinrichsweikamp
parents: 647
diff changeset
644 call read_eeprom ; Low-value
86b49e47b2f5 allow Diluents with >50% He
heinrichsweikamp
parents: 647
diff changeset
645 movf EEDATA,W
86b49e47b2f5 allow Diluents with >50% He
heinrichsweikamp
parents: 647
diff changeset
646 addwf lo,W ; add He value
642
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
647 movwf hi ; store in temp
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
648 movlw d'101'
652
86b49e47b2f5 allow Diluents with >50% He
heinrichsweikamp
parents: 647
diff changeset
649 cpfseq hi ; O2 and He > 100?
86b49e47b2f5 allow Diluents with >50% He
heinrichsweikamp
parents: 647
diff changeset
650 bra adjust_he_3_diluent ; No!
642
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
651 ; clrf lo ; Yes, clear He to zero
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
652 decf lo,F ; reduce He again = unchanged after operation
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
653
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
654 adjust_he_3_diluent:
685
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
655 movf divemins+0,W ; save current value
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
656 addlw 0x07
642
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
657 movwf EEADR
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
658 movff lo,EEDATA
652
86b49e47b2f5 allow Diluents with >50% He
heinrichsweikamp
parents: 647
diff changeset
659 call write_eeprom ; Low-value
642
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
660
655
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
661 movlw d'3'
642
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
662 movwf menupos
652
86b49e47b2f5 allow Diluents with >50% He
heinrichsweikamp
parents: 647
diff changeset
663 bra menu_diluentgas1;
642
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
664
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
665 restore_gas_diluent:
685
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
666 movf divemins+0,W ; read Default value
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
667 addlw 0x04
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
668 movwf EEADR
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
669 call read_eeprom ; Low-value
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
670 movff EEDATA,lo
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
671 movf divemins+0,W
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
672 addlw 0x05
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
673 movwf EEADR
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
674 call read_eeprom ; High-value
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
675 movff EEDATA,hi
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
676
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
677 movf divemins+0,W ; save Default value
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
678 addlw 0x06
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
679 movwf EEADR
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
680 movff lo,EEDATA
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
681 call write_eeprom ; Low-value
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
682 movf divemins+0,W
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
683 addlw 0x07
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
684 movwf EEADR
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
685 movff hi,EEDATA
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
686 call write_eeprom ; High-value
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
687
655
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
688 movlw d'5'
642
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
689 movwf menupos
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
690 bra menu_diluentgas1
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
691
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
692
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
693 diluent_title_bar2:
717
91ae251d379f "ostc3-style" menu titles
heinrichsweikamp
parents: 685
diff changeset
694 ; call DISP_topline_box
91ae251d379f "ostc3-style" menu titles
heinrichsweikamp
parents: 685
diff changeset
695 call DISP_divemask_color
642
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
696 WIN_TOP .2
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
697 WIN_LEFT .30
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
698 lfsr FSR2,letter
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
699 STRCAT TXT_DIL5 ; Dil.#
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
700 movff decodata+0,lo
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
701 incf lo,F
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
702 bsf leftbind
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
703 output_99
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
704 STRCAT_PRINT ": "
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
705
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
706 WIN_TOP .2
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
707 WIN_LEFT .80
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
708 lfsr FSR2,letter
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
709
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
710 ;He check
685
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
711 movf divemins+0,W
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
712 addlw 0x07
642
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
713 movwf EEADR
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
714 call read_eeprom ; He value
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
715 movff EEDATA,lo ; Move EEData -> lo
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
716 movf lo,f ; Move lo -> f
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
717 movlw d'0' ; Move 0 -> WREG
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
718 cpfsgt lo ; He > 0?
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
719 bra diluent_title_bar3 ; NO check o2
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
720
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
721 ; YES Write TX 15/55
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
722 STRCAT TXT_TX3
685
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
723 movf divemins+0,W
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
724 addlw 0x06
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
725 movwf EEADR
642
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
726 call read_eeprom ; O2 value
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
727 movff EEDATA,lo
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
728 output_8 ; Write O2
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
729 PUTC '/'
685
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
730 movf divemins+0,W
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
731 addlw 0x07
642
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
732 movwf EEADR
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
733 call read_eeprom ; He value
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
734 movff EEDATA,lo
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
735 output_8 ; Write He
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
736 bra diluent_title_bar7
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
737
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
738 ; New v1.44se
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
739 diluent_title_bar3: ; O2 Check
685
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
740 movf divemins+0,W
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
741 addlw 0x06
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
742 movwf EEADR
642
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
743 call read_eeprom ; O2 value
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
744 movff EEDATA,lo
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
745 movf lo,f ; Move lo -> f
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
746 movlw d'21' ; Move 21 -> WREG
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
747 cpfseq lo ; o2 = 21
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
748 cpfsgt lo ; o2 > 21%
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
749 bra diluent_title_bar5 ; NO AIR
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
750 movlw d'100' ; Move 100 -> WREG
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
751 cpfslt lo ; o2 < 100%
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
752 bra diluent_title_bar4 ; NO write O2
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
753
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
754 ; YES Write NX 32
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
755 STRCAT TXT_NX3
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
756 output_8
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
757 bra diluent_title_bar7
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
758
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
759 ; New v1.44se
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
760 diluent_title_bar4:
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
761 STRCAT TXT_O2_3
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
762 output_8
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
763 bra diluent_title_bar7
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
764
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
765 ; New v1.44se
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
766 diluent_title_bar5:
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
767 cpfseq lo ; o2 = 21%
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
768 bra diluent_title_bar6
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
769
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
770 STRCAT TXT_AIR4
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
771 output_8
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
772 bra diluent_title_bar7
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
773
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
774 ; New v1.44se
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
775 diluent_title_bar6: ; ERROR
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
776 STRCAT TXT_ERR4
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
777 output_8
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
778 ;bra diluent_title_bar7
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
779
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
780 diluent_title_bar7:
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
781 STRCAT_PRINT ""
717
91ae251d379f "ostc3-style" menu titles
heinrichsweikamp
parents: 685
diff changeset
782 call DISP_standard_color
642
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
783 return
2cecac640202 Diluent setup menu work
heinrichsweikamp
parents: 640
diff changeset
784
639
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
785
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
786 ; ***
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
787
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
788
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
789
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
790
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
791
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
792
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
793
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
794 menu_const_ppO2_setpoints: ; Setpoint menu
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
795 movlw d'1'
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 576
diff changeset
796 movwf menupos
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
797
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
798 bcf menubit4
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
799 clrf decodata+0 ; Here: # of SP
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
800 bcf first_FA ; Here: =1: -, =0: +
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
801 bcf second_FA ; Here: =1: 1, =0: 10 steps
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
802
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
803 menu_const_ppO20:
681
6e456a6398e0 Hardware4 support
heinrichsweikamp
parents: 655
diff changeset
804 call DISP_ClearScreen
717
91ae251d379f "ostc3-style" menu titles
heinrichsweikamp
parents: 685
diff changeset
805 call DISP_divemask_color
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
806 DISPLAYTEXT .111 ; Constant ppO2 Setup
717
91ae251d379f "ostc3-style" menu titles
heinrichsweikamp
parents: 685
diff changeset
807 call DISP_standard_color
91ae251d379f "ostc3-style" menu titles
heinrichsweikamp
parents: 685
diff changeset
808
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
809
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
810 menu_const_ppO21:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
811 WIN_LEFT .20
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
812 WIN_TOP .35
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
813 lfsr FSR2,letter
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
814 OUTPUTTEXT .112 ; SP#
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
815 movff decodata+0,lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
816 incf lo,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
817 bsf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
818 output_99
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 0
diff changeset
819 STRCAT " ("
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
820
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
821 OUTPUTTEXT d'192' ; Dil.
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 0
diff changeset
822 PUTC ' '
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
823
655
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
824 rcall get_first_diluent ; Read first diluent into lo(O2) and hi(He)
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
825 bsf leftbind
655
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
826 output_99 ; O2
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 0
diff changeset
827 PUTC '/'
655
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
828 movff hi,lo
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
829 output_99 ; He
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 0
diff changeset
830 STRCAT_PRINT ")"
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
831
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
832 WIN_LEFT .20
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
833 WIN_TOP .65
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
834
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
835 lfsr FSR2,letter
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
836 OUTPUTTEXT .97 ; "Current: "
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
837 movf decodata+0,W
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
838 addlw d'36' ; offset in eeprom
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
839 movwf EEADR
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
840 call read_eeprom ; ppO2 value
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
841 movff EEDATA,lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
842 clrf hi
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
843 bsf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
844 output_16dp d'3'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
845 bcf leftbind
445
6e57b5bb98ce localisation part 1 from Sergei
heinrichsweikamp
parents: 398
diff changeset
846 STRCAT_PRINT TXT_BAR4
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
847
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
848 WIN_LEFT .20
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
849 WIN_TOP .95
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
850
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
851 lfsr FSR2,letter
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
852 OUTPUTTEXT d'190' ; ppO2 +
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
853 call word_processor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
854
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
855 WIN_LEFT .20
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
856 WIN_TOP .125
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
857
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
858 lfsr FSR2,letter
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
859 OUTPUTTEXT d'191' ; ppO2 -
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
860 call word_processor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
861
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
862 WIN_LEFT .20
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
863 WIN_TOP .155
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
864
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
865 lfsr FSR2,letter
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
866 OUTPUTTEXT .89 ; "Default: "
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 0
diff changeset
867 STRCAT_PRINT "1.00"
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
868
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
869 DISPLAYTEXT .11 ; Exit
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
870 call wait_switches ; Waits until switches are released, resets flag if button stays pressed!
576
ab2686087bce faster font display, code cleaning
heinrichsweikamp
parents: 575
diff changeset
871 call menu_pre_loop_common ; Clear some menu flags, timeout and switches
681
6e456a6398e0 Hardware4 support
heinrichsweikamp
parents: 655
diff changeset
872 call DISP_menu_cursor
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
873
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
874 menu_const_ppO2_loop:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
875 call check_switches_logbook
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
876
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
877 btfsc menubit3
575
cbdcbbc91877 some code cleaning
heinrichsweikamp
parents: 445
diff changeset
878 bra menu_const_ppO22 ; move cursor
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
879
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
880 btfsc menubit2
575
cbdcbbc91877 some code cleaning
heinrichsweikamp
parents: 445
diff changeset
881 bra do_menu_const_ppO2 ; call submenu
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
882
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
883 btfsc onesecupdate
575
cbdcbbc91877 some code cleaning
heinrichsweikamp
parents: 445
diff changeset
884 call menu_check_dive_and_timeout ; "Goto restart" or sets sleepmode flag
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
885
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
886 bcf onesecupdate ; 1 sec. functions done
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
887
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
888 btfsc sleepmode
575
cbdcbbc91877 some code cleaning
heinrichsweikamp
parents: 445
diff changeset
889 bra exit_menu_const_ppO2
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
890
575
cbdcbbc91877 some code cleaning
heinrichsweikamp
parents: 445
diff changeset
891 bra menu_const_ppO2_loop
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
892
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
893 menu_const_ppO22:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
894 incf menupos,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
895
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
896 movlw d'2'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
897 cpfseq menupos ; =2?
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
898 bra menu_const_ppO22a ; No
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
899 incf menupos,F ; Skip pos. 2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
900
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
901 menu_const_ppO22a:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
902 movlw d'7'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
903 cpfseq menupos ; =7?
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
904 bra menu_const_ppO23 ; No
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
905 movlw d'1'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
906 movwf menupos
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
907
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
908 menu_const_ppO23:
576
ab2686087bce faster font display, code cleaning
heinrichsweikamp
parents: 575
diff changeset
909 call menu_pre_loop_common ; Clear some menu flags, timeout and switches
681
6e456a6398e0 Hardware4 support
heinrichsweikamp
parents: 655
diff changeset
910 call DISP_menu_cursor
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
911 bra menu_const_ppO2_loop
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
912
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
913 do_menu_const_ppO2:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
914 dcfsnz menupos,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
915 bra next_ppO2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
916 dcfsnz menupos,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
917 bra change_ppo2_plus
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
918 dcfsnz menupos,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
919 bra change_ppo2_plus
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
920 dcfsnz menupos,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
921 bra change_ppo2_minus
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
922 dcfsnz menupos,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
923 bra change_ppo2_reset
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
924 movlw d'2'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
925 movwf menupos
685
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
926 goto menu_const_ppO2_return
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
927
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
928 change_ppo2_plus:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
929 movf decodata+0,W ; read current value
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
930 addlw d'36' ; offset in memory
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
931 movwf EEADR
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
932 call read_eeprom ; Low-value
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
933 movff EEDATA,lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
934
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
935 incf lo,F ; increase depth
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
936 movlw d'251'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
937 cpfseq lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
938 bra change_ppo2_plus2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
939 movlw d'250'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
940 movwf lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
941 change_ppo2_plus2:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
942 movff lo,EEDATA ; write result
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
943 call write_eeprom ; save result in EEPROM
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
944 movlw d'3'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
945 movwf menupos
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
946 bra menu_const_ppO21
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
947
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
948 change_ppo2_minus:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
949 movf decodata+0,W ; read current value
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
950 addlw d'36' ; offset in memory
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
951 movwf EEADR
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
952 call read_eeprom ; Low-value
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
953 movff EEDATA,lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
954
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
955 decf lo,F ; decrease depth
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
956 movlw d'255'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
957 cpfseq lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
958 bra change_ppo2_minus2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
959 movlw d'0'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
960 movwf lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
961
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
962 change_ppo2_minus2:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
963 movff lo,EEDATA ; write result
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
964 call write_eeprom ; save result in EEPROM
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
965
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
966 movlw d'4'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
967 movwf menupos
576
ab2686087bce faster font display, code cleaning
heinrichsweikamp
parents: 575
diff changeset
968 bra menu_const_ppO21
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
969
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
970 change_ppo2_reset: ; reset to 1.00Bar
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
971 movf decodata+0,W ; read current value
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
972 addlw d'36' ; offset in memory
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
973 movwf EEADR
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
974 movlw d'100'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
975 movwf EEDATA
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
976 call write_eeprom ; save result in EEPROM
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
977 movlw d'5'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
978 movwf menupos
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
979 bra menu_const_ppO21
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
980
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
981 next_ppO2:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
982 incf decodata+0,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
983 movlw d'3'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
984 cpfseq decodata+0 ; =3?
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
985 bra next_ppO22
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
986 clrf decodata+0 ; yes, so reset to zero
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
987 next_ppO22:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
988 movlw d'1'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
989 movwf menupos
655
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
990 bra menu_const_ppO21
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
991
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
992 get_first_diluent: ; Read first diluent into lo(O2) and hi(He)
685
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
993 read_int_eeprom d'116' ; Read First Diluent (1-5)
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
994 movf EEDATA,W ; WREG: 0-4
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
995 mullw .4 ; PRODL: 0-16
aebb6d039249 Use 4byte in EEPROM for diluents (Same as OC gases)
heinrichsweikamp
parents: 681
diff changeset
996 movlw .93 ; Base address for O2
655
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
997 addwf PRODL,W
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
998 movwf EEADR
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
999 call read_eeprom ; Read O2
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
1000 movff EEDATA,lo
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
1001 incf EEADR,F
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
1002 call read_eeprom ; Read He
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
1003 movff EEDATA,hi
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
1004 return
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 652
diff changeset
1005