Mercurial > public > mk2

annotate code_part1/OSTC_code_asm_part1/divemode_menu.asm @ 104:2a2606e9db5f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
some fixes with the onboard simulator
author heinrichsweikamp
date Wed, 15 Dec 2010 11:01:35 +0100
parents 39d325b2a5f9
children a2b9eca1f396
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1 ; OSTC - diving computer code
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2 ; Copyright (C) 2008 HeinrichsWeikamp GbR
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4 ; This program is free software: you can redistribute it and/or modify
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
5 ; it under the terms of the GNU General Public License as published by
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
6 ; the Free Software Foundation, either version 3 of the License, or
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
7 ; (at your option) any later version.
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
8
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
9 ; This program is distributed in the hope that it will be useful,
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
10 ; but WITHOUT ANY WARRANTY; without even the implied warranty of
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
11 ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
12 ; GNU General Public License for more details.
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
13
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
14 ; You should have received a copy of the GNU General Public License
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
15 ; along with this program. If not, see <http://www.gnu.org/licenses/>.
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
16
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
17
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
18 ; Underwater Menu (Set Gas, Decoplan, etc.)
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
19 ; written by: Matthias Heinrichs, info@heinrichsweikamp.com
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
20 ; written: 11/11/05
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
21 ; last updated: 090305
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
22 ; known bugs:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
23 ; ToDo:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
24
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
25
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
26 test_switches_divemode:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
27 ; checks switches in divemode
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
28 btfsc switch_left
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
29 bra test_switches_divemode2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
30
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
31 btfss switch_right
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
32 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
33
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
34 bcf switch_left ; Left button pressed!
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
35 bcf switch_right
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
36
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
37 bcf select_bailoutgas ; Clear Flag for Bailout list
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
38 bsf premenu ; Set Flag for premenu
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
39 bcf menubit
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
40 clrf timeout_counter3 ; timeout_divemenu
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
41
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
42 btfsc FLAG_apnoe_mode ; In Apnoe mode?
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
43 bra test_switches_divemode1 ; Yes!
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
44
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
45 test_switches_divemode0:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
46 WIN_INVERT .1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
47 DISPLAYTEXT .4 ;Menu?
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
48 WIN_INVERT .0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
49 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
50
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
51 test_switches_divemode1:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
52 DISPLAYTEXT .141 ;Quit?
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
53 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
54
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
55 test_switches_divemode2:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
56 bcf switch_left ; Also reactivate left button if there was a right press without prior left press
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
57 bcf switch_right ; enable right button again
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
58
98
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
59 btfsc premenu
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
60 bra test_switches_divemode2_2
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
61
98
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
62 bsf toggle_customview ; Toggle customview (Cleared in divemode.asm)
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
63 btfsc standalone_simulator ; Standalone Simualtor active?
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
64 bra divemode_menu_simulator ; Yes, Show simulator menu!
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
65
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
66 test_switches_divemode2_2:
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
67 btfss FLAG_apnoe_mode ; In Apnoe mode?
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
68 bra test_switches_divemode2a; No!
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
69
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
70 ; Yes, so quit Apnoe mode at once...
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
71 bcf divemode ; Clear Divemode flag...
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
72 bcf premenu ; clear premenu flag
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
73 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
74
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
75 test_switches_divemode2a:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
76 bsf menubit ; Enter Divemode-Menu!
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
77 bcf premenu ; clear premenu flag
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
78 call PLED_clear_divemode_menu ; Clear dive mode menu area
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
79 call PLED_divemode_menu_mask_first ; Write Divemode menu1 mask
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
80 bcf display_set_simulator ; Clear Simulator-Menu flag
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
81 movlw d'1'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
82 movwf menupos ; reset cursor in divemode menu
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
83 call PLED_divemenu_cursor ; show cursor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
84 bcf switch_right
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
85 bcf switch_left ; Left button pressed!
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
86 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
87
98
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
88 reset_stopwatch:
71
6beb680a6130 1.72beta - color-coded gaslist, small fix with stopwatch
heinrichsweikamp
parents: 68
diff changeset
89 btfsc lock_stopwatch_reset ; Reset locked?
6beb680a6130 1.72beta - color-coded gaslist, small fix with stopwatch
heinrichsweikamp
parents: 68
diff changeset
90 return ; Yes, do not reset (now)...
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
91 ; Maker Set, also reset average Depth....
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
92 clrf average_depth_hold+0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
93 clrf average_depth_hold+1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
94 clrf average_depth_hold+2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
95 clrf average_depth_hold+3 ; Clear average depth register
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
96 movlw d'2'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
97 movwf average_divesecs+0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
98 clrf average_divesecs+1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
99 call calc_average_depth
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
100 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
101
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
102 test_switches_divemode_menu:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
103 btfsc switch_left
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
104 bra test_switches_divemode_menu3
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
105 btfss switch_right
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
106 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
107
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
108 btfsc display_see_deco ; Is the Decoplan displayed?
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
109 bra divemenu_see_decoplan2 ; Yes, exit menu on left button press
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
110
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
111 bcf switch_right ; Left button pressed
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
112 clrf timeout_counter3 ; timout_divemenu!
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
113 incf menupos,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
114
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
115 ; Following routine configures the number of menu entries for the different modes
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
116 movlw d'6' ; number of available gases+1, ; number of menu options+1
98
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
117 btfsc display_set_gas ; Are we in the "Gaslist" menu?
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
118 movlw d'7' ; Yes, Number of entries for this menu+1 = 7
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
119 btfsc display_set_setpoint ; In SetPoint Menu?
98
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
120 movlw d'5' ; Number of entries for this menu+1 = 5
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
121 cpfseq menupos ; =limit?
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
122 bra test_switches_divemode_menu1; No!
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
123 movlw d'1' ; Yes, reset to position 1!
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
124 movwf menupos
98
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
125
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
126 test_switches_divemode_menu1:
98
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
127 ; Finally, check if menuposition 3 should be skipped (No customview with function displayed)
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
128
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
129 btfsc display_set_gas ; Are we in the "Gaslist" or "SetPoint" menu?
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
130 bra test_switches_divemode_menu1a ; Skip test for sub menus
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
131 btfsc display_set_xgas ; Are we in the "Gaslist" or "SetPoint" menu?
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
132 bra test_switches_divemode_menu1a ; Skip test for sub menus
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
133
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
134 movlw d'3'
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
135 cpfseq menupos ; At position 3?
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
136 bra test_switches_divemode_menu1a; No
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
137 btfss menu3_active ; Menu position 3 has functionality?
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
138 incf menupos,F ; No, +1, skip to menuos=4
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
139
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
140 test_switches_divemode_menu1a:
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
141 call PLED_divemenu_cursor ; update cursor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
142 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
143
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
144 test_switches_divemode_menu3:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
145 bcf switch_left
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
146 bcf switch_right
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
147 bsf menubit ; Enter Divemode-Menu!
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
148 bcf premenu ; clear premenu flag
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
149 clrf timeout_counter3
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
150
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
151 btfsc display_set_gas ; Are we in the "Gaslist" or "SetPoint" menu?
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
152 bra divemenu_set_gas2 ; Yes, so set gas and exit menu
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
153
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
154 btfsc display_see_deco ; Is the Decoplan displayed?
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
155 bra divemenu_see_decoplan2 ; Yes, exit menu on right button press
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
156
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
157 btfsc display_set_xgas ; Are we in the "Set Gas" menu?
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
158 bra divemenu_set_xgas2 ; Yes, so configure gas or set menu and exit menu
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
159
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
160 btfsc display_set_simulator ; Are we in the Divemode Simulator menu?
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
161 goto divemode_menu_simulator2 ; Yes, so adjust depth or set and exit
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
162
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
163 ; Options for Menu 1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
164 dcfsnz menupos,F
73
2227459e8ef2 Exchanged Decoplan and Gaslist in dive mode menu
heinrichsweikamp
parents: 71
diff changeset
165 bra divemenu_set_gas ; Set gas sub-menu
2227459e8ef2 Exchanged Decoplan and Gaslist in dive mode menu
heinrichsweikamp
parents: 71
diff changeset
166 dcfsnz menupos,F
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
167 bra divemenu_see_decoplan ; display the full decoplan
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
168 dcfsnz menupos,F
98
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
169 bra divemode_menu3 ; Customview-function
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
170 dcfsnz menupos,F
98
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
171 bra divemode_toggle_brightness ; Toggle OLED-Brightness
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
172 dcfsnz menupos,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
173 bra timeout_divemenu2 ; Quit divemode menu
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
174 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
175
98
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
176 divemode_menu3:
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
177 movff menupos3,temp1 ; copy
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
178 dcfsnz temp1,F
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
179 bra toggle_stopwatch ; Toggle Stopwatch/Average register
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
180 dcfsnz temp1,F
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
181 bra set_marker ; Set Marker
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
182 dcfsnz temp1,F
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
183 bra divemode_menu3_nothing ; clock...
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
184 dcfsnz temp1,F
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
185 bra divemode_menu3_nothing ; leading tissue...
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
186
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
187 divemode_menu3_nothing:
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
188 bra timeout_divemenu2 ; Quit divemode menu
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
189 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
190
98
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
191 set_marker:
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
192 movlw d'6' ; Type of Alarm (Manual Marker)
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
193 movwf AlarmType ; Copy to Alarm Register
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
194 bsf event_occured ; Set Event Flag
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
195 bra timeout_divemenu2 ; quit menu!
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
196
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
197 toggle_stopwatch:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
198 btg stopwatch_active ; Toggle Flag
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
199
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
200 btfss stopwatch_active ; Show Stopwatch?
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
201 bra toggle_stopwatch2 ; No, remove outputs
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
202
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
203 clrf average_depth_hold+0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
204 clrf average_depth_hold+1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
205 clrf average_depth_hold+2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
206 clrf average_depth_hold+3 ; Clear average depth register
98
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
207 movlw d'3'
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
208 movwf average_divesecs+0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
209 clrf average_divesecs+1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
210 call calc_average_depth
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
211 bra timeout_divemenu2 ; quit menu!
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
212
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
213 toggle_stopwatch2:
87
8d3c1bef6551 some preparations for new custom view
heinrichsweikamp
parents: 73
diff changeset
214 call PLED_clear_customview_divemode ; Remove Stopwatch Outputs
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
215 bra timeout_divemenu2 ; quit menu!
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
216
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
217 divemode_toggle_brightness:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
218 read_int_eeprom d'90' ; Brightness offset? (Dim>0, Normal = 0)
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
219 tstfsz EEDATA ; Was dimmed?
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
220 bra divemode_toggle_brightness1 ; Yes...
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
221
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
222 call PLED_brightness_low
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
223 movlw d'1'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
224 movwf EEDATA ; Copy to EEDATA
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
225 write_int_eeprom d'90' ; Brightness offset? (Dim=1, Normal = 0)
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
226 bra divemode_toggle_brightness3
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
227
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
228 divemode_toggle_brightness1:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
229 call PLED_brightness_full
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
230 movlw d'0'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
231 movwf EEDATA ; Copy to EEDATA
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
232 write_int_eeprom d'90' ; Brightness offset? (Dim=1, Normal = 0)
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
233
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
234 divemode_toggle_brightness3:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
235 ; Now, redraw all outputs (All modes)
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
236 call PLED_active_gas_divemode ; Display gas, if required
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
237 call PLED_temp_divemode ; Displays temperature
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
238 call PLED_depth ; Displays new depth...
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
239 call PLED_max_pressure ; ...and max. depth
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
240
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
241 btfsc FLAG_apnoe_mode ; Ignore in Apnoe mode
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
242 bra timeout_divemenu2 ; quit menu!
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
243 btfsc gauge_mode ; Ignore in Gauge mode
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
244 bra timeout_divemenu2 ; quit menu!
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
245
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
246 ; Redraw Outputs in Deco modes
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
247 btfsc dekostop_active
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
248 call PLED_display_deko_mask ; clear nostop time, display decodata
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
249 btfss dekostop_active
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
250 call PLED_display_ndl_mask ; Clear deco data, display nostop time
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
251 bra timeout_divemenu2 ; quit menu!
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
252
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
253 divemode_set_xgas: ; Set the extra gas...
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
254 bsf display_set_xgas ; Set Flag
98
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
255 bcf display_set_gas ; Clear Flag
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
256 call PLED_clear_divemode_menu ; Clear Menu
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
257
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
258 movff char_I_O2_ratio, EEDATA ; Reset Gas6 to current gas
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
259 write_int_eeprom d'24'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
260 movff char_I_He_ratio, EEDATA
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
261 write_int_eeprom d'25'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
262
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
263 call PLED_divemode_set_xgas ; Show mask
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
264
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
265 movlw d'1'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
266 movwf menupos ; reset cursor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
267 call PLED_divemenu_cursor ; update cursor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
268 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
269
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
270 divemode_menu_simulator:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
271 bsf menubit ; Enter Divemode-Menu!
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
272 bcf premenu ; clear premenu flag
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
273 bcf switch_right
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
274 bcf switch_left ; Left button pressed!
104
2a2606e9db5f some fixes with the onboard simulator
heinrichsweikamp
parents: 99
diff changeset
275 bsf display_set_simulator ; Set Flag
2a2606e9db5f some fixes with the onboard simulator
heinrichsweikamp
parents: 99
diff changeset
276 bsf menu3_active ; So "+1" is accessible at all times
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
277 call PLED_clear_divemode_menu ; Clear Menu
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
278 call PLED_divemode_simulator_mask; Show mask
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
279 movlw d'1'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
280 movwf menupos ; reset cursor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
281 call PLED_divemenu_cursor ; update cursor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
282 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
283
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
284 divemode_menu_simulator2:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
285 dcfsnz menupos,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
286 bra timeout_divemenu2 ; quit underwater menu!
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
287 dcfsnz menupos,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
288 bra divemode_menu_simulator_p1 ; Adjust +1m
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
289 dcfsnz menupos,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
290 bra divemode_menu_simulator_m1 ; Adjust -1m
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
291 dcfsnz menupos,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
292 bra divemode_menu_simulator_p10 ; Adjust +10m
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
293 dcfsnz menupos,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
294 bra divemode_menu_simulator_m10 ; Adjust -10m
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
295 bra timeout_divemenu2 ; quit underwater menu!
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
296
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
297 divemode_menu_simulator_common:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
298 call PLED_divemode_simulator_mask ; Redraw Simualtor mask
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
299
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
300 ; Check limits (140m and 0m)
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
301 movlw LOW d'15000'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
302 movwf sub_a+0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
303 movlw HIGH d'15000'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
304 movwf sub_a+1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
305 movff sim_pressure+0,sub_b+0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
306 movff sim_pressure+1,sub_b+1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
307 call sub16 ; sub_c = sub_a - sub_b
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
308 btfss neg_flag
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
309 bra divemode_menu_simulator_common2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
310 ; Too deep, limit to 140m
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
311 movlw LOW d'15000'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
312 movwf sim_pressure+0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
313 movlw HIGH d'15000'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
314 movwf sim_pressure+1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
315 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
316
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
317 divemode_menu_simulator_common2:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
318 movlw LOW d'1000'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
319 movwf sub_a+0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
320 movlw HIGH d'1000'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
321 movwf sub_a+1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
322 movff sim_pressure+0,sub_b+0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
323 movff sim_pressure+1,sub_b+1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
324 call sub16 ; sub_c = sub_a - sub_b
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
325 btfsc neg_flag
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
326 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
327 ; Too shallow, limit to 1m
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
328 movlw LOW d'1000'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
329 movwf sim_pressure+0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
330 movlw HIGH d'1000'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
331 movwf sim_pressure+1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
332 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
333
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
334 divemode_menu_simulator_m10:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
335 movlw LOW d'1000'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
336 subwf sim_pressure+0,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
337 movlw HIGH d'1000'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
338 subwfb sim_pressure+1,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
339 movlw d'5'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
340 movwf menupos ; reset cursor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
341 bra divemode_menu_simulator_common
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
342
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
343 divemode_menu_simulator_p10:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
344 movlw LOW d'1000'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
345 addwf sim_pressure+0,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
346 movlw HIGH d'1000'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
347 addwfc sim_pressure+1,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
348 movlw d'4'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
349 movwf menupos ; reset cursor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
350 bra divemode_menu_simulator_common
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
351
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
352 divemode_menu_simulator_p1:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
353 movlw d'100'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
354 addwf sim_pressure+0,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
355 movlw d'0'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
356 addwfc sim_pressure+1,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
357 movlw d'2'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
358 movwf menupos ; reset cursor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
359 bra divemode_menu_simulator_common
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
360
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
361 divemode_menu_simulator_m1:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
362 movlw d'100'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
363 subwf sim_pressure+0,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
364 movlw d'0'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
365 subwfb sim_pressure+1,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
366 movlw d'3'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
367 movwf menupos ; reset cursor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
368 bra divemode_menu_simulator_common
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
369
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
370 divemenu_see_decoplan:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
371 bsf display_see_deco ; set flag
64
e8756eba54ee 1.71beta - more deco
heinrichsweikamp
parents: 30
diff changeset
372 call PLED_clear_divemode_menu ; Clear Menu
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
373
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
374 read_int_eeprom d'34'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
375 movlw d'3'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
376 cpfsgt EEDATA ; in multi-gf mode? Z16 GF OC=4 and Z16 GF CC=5
68
d0b677e1e9a5 new decoplan (GF mode) debuged
heinrichsweikamp
parents: 66
diff changeset
377 bra divemenu_see_decoplan1 ; No, standard ZH-L16
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
378
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
379 bsf multi_gf_display ; Yes, display the multi-gf table screen
64
e8756eba54ee 1.71beta - more deco
heinrichsweikamp
parents: 30
diff changeset
380 bcf last_ceiling_gf_shown ; Clear flag
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
381
64
e8756eba54ee 1.71beta - more deco
heinrichsweikamp
parents: 30
diff changeset
382 call PLED_decoplan_gf_page1 ; Display the new screen
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
383 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
384
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
385 divemenu_see_decoplan1:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
386
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
387 movff char_O_deco_status,deco_status ;
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
388 tstfsz deco_status ; deco_status=0 if decompression calculation done
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
389 return ; calculation not yet finished!
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
390
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
391 call PLED_decoplan ; display the Decoplan
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
392 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
393
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
394 divemenu_see_decoplan2:
64
e8756eba54ee 1.71beta - more deco
heinrichsweikamp
parents: 30
diff changeset
395 btfsc multi_gf_display ; Next Page in Multi-GF Screen?
e8756eba54ee 1.71beta - more deco
heinrichsweikamp
parents: 30
diff changeset
396 bra divemenu_see_decoplan2_nextgf ; Yes!
e8756eba54ee 1.71beta - more deco
heinrichsweikamp
parents: 30
diff changeset
397 ; No, remove outputs!
e8756eba54ee 1.71beta - more deco
heinrichsweikamp
parents: 30
diff changeset
398 divemenu_see_decoplan2_0:
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
399 bcf display_see_deco ; clear flag
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
400 bra timeout_divemenu2 ; quit menu!
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
401
64
e8756eba54ee 1.71beta - more deco
heinrichsweikamp
parents: 30
diff changeset
402 divemenu_see_decoplan2_nextgf:
e8756eba54ee 1.71beta - more deco
heinrichsweikamp
parents: 30
diff changeset
403 incf temp8,F
e8756eba54ee 1.71beta - more deco
heinrichsweikamp
parents: 30
diff changeset
404 btfsc last_ceiling_gf_shown ; last ceiling shown?
e8756eba54ee 1.71beta - more deco
heinrichsweikamp
parents: 30
diff changeset
405 bra divemenu_see_decoplan2_0 ; All done, clear and return
e8756eba54ee 1.71beta - more deco
heinrichsweikamp
parents: 30
diff changeset
406
e8756eba54ee 1.71beta - more deco
heinrichsweikamp
parents: 30
diff changeset
407 clrf timeout_counter3 ; Clear timeout Divemode menu
68
d0b677e1e9a5 new decoplan (GF mode) debuged
heinrichsweikamp
parents: 66
diff changeset
408 bra timeout_divemenu3x ; Display next page
64
e8756eba54ee 1.71beta - more deco
heinrichsweikamp
parents: 30
diff changeset
409
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
410 divemenu_set_xgas2:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
411 dcfsnz menupos,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
412 bra divemenu_set_xgas2_exit ; Use the gas6 configured and exit
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
413 dcfsnz menupos,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
414 bra divemenu_set_xgas2_o2plus ; Adjust O2+
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
415 dcfsnz menupos,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
416 bra divemenu_set_xgas2_o2minus ; Adjust O2-
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
417 dcfsnz menupos,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
418 bra divemenu_set_xgas2_heplus ; Adjust He+
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
419 dcfsnz menupos,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
420 bra divemenu_set_xgas2_heminus ; Adjust He-
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
421 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
422
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
423 divemenu_set_xgas2_heminus:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
424 read_int_eeprom d'25' ; He value
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
425 movff EEDATA,lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
426 decf lo,F ; decrease He
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
427 movlw d'255'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
428 cpfseq lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
429 bra divemenu_set_xgas2_heminus2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
430 incf lo,F ; limit to min=0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
431 divemenu_set_xgas2_heminus2:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
432 movff lo, EEDATA
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
433 write_int_eeprom d'25' ; He Value
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
434
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
435 call PLED_divemode_set_xgas ; Redraw menu
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
436 movlw d'5'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
437 movwf menupos ; reset cursor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
438 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
439
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
440 divemenu_set_xgas2_heplus:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
441 read_int_eeprom d'25' ; He value
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
442 movff EEDATA,lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
443 incf lo,F ; increase He
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
444 movlw d'101'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
445 cpfseq lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
446 bra divemenu_set_xgas2_heplus2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
447 movlw d'4' ; O2 Limit
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
448 movwf lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
449 divemenu_set_xgas2_heplus2: ; test if O2+He>100...
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
450 read_int_eeprom d'24' ; O2 value
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
451 movf EEDATA,W
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
452 addwf lo,W ; add He value
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
453 movwf hi ; store in temp
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
454 movlw d'101'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
455 cpfseq hi ; O2 and He > 100?
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
456 bra divemenu_set_xgas2_heplus3 ; No!
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
457 decf lo,F ; reduce He again = unchanged after operation
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
458 divemenu_set_xgas2_heplus3: ; save current value
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
459 movff lo, EEDATA
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
460 write_int_eeprom d'25' ; He Value
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
461
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
462 call PLED_divemode_set_xgas ; Redraw menu
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
463 movlw d'4'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
464 movwf menupos ; reset cursor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
465 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
466
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
467 divemenu_set_xgas2_o2minus:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
468 read_int_eeprom d'24' ; O2 value
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
469 movff EEDATA,lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
470 decf lo,F ; decrease O2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
471 movlw d'3' ; Limit-1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
472 cpfseq lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
473 bra divemenu_set_xgas2_o2minus2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
474 incf lo,F ; limit to min=9
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
475 divemenu_set_xgas2_o2minus2:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
476 movff lo, EEDATA
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
477 write_int_eeprom d'24' ; O2 Value
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
478
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
479 call PLED_divemode_set_xgas ; Redraw menu
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
480 movlw d'3'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
481 movwf menupos ; reset cursor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
482 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
483
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
484 divemenu_set_xgas2_o2plus:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
485 read_int_eeprom d'24' ; O2 value
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
486 movff EEDATA,lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
487 incf lo,F ; increase O2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
488 movlw d'101'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
489 cpfseq lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
490 bra divemenu_set_xgas2_o2plus2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
491 movlw d'5' ; O2 limit
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
492 movwf lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
493 divemenu_set_xgas2_o2plus2: ; test if O2+He>100...
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
494 read_int_eeprom d'25' ; He value
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
495 movf EEDATA,W
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
496 addwf lo,W ; add O2 value
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
497 movwf hi ; store in temp
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
498 movlw d'101'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
499 cpfseq hi ; O2 and He > 100?
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
500 bra divemenu_set_xgas2_o2plus3 ; No!
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
501 decf lo,F ; reduce O2 again = unchanged after operation
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
502 divemenu_set_xgas2_o2plus3: ; save current value
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
503 movff lo, EEDATA
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
504 write_int_eeprom d'24' ; O2 Value
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
505
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
506 call PLED_divemode_set_xgas ; Redraw menu
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
507 movlw d'2'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
508 movwf menupos ; reset cursor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
509 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
510
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
511 divemenu_set_xgas2_exit:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
512 read_int_eeprom d'25' ; Read He ratio
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
513 movff EEDATA,char_I_He_ratio ; And copy into hold register
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
514
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
515 read_int_eeprom d'24' ; Read O2 ratio
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
516 movff EEDATA, char_I_O2_ratio ; O2 ratio
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
517 movff char_I_He_ratio, wait_temp ; copy into bank1 register
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
518 bsf STATUS,C ;
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
519 movlw d'100' ; 100%
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
520 subfwb wait_temp,W ; minus He
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
521 subfwb EEDATA,F ; minus O2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
522 movff EEDATA, char_I_N2_ratio ; = N2!
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
523 bsf manual_gas_changed ; set event flag
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
524 bsf event_occured ; set global event flag
99
39d325b2a5f9 FIX bad warning for 15bits CF values
JeanDo
parents: 98
diff changeset
525 bsf is_bailout ;=1: CC mode, but bailout active!
98
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
526 clrf lo ; clear Setpoint, PLED_const_ppO2_value now displayes "Bail"
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
527 movff lo,char_I_const_ppO2
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
528 bra timeout_divemenu2 ; quit underwater menu!
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
529
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
530 divemenu_set_gas:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
531 btfsc FLAG_const_ppO2_mode ; in ppO2 mode?
17
68825abc35f7 1.55beta rc1
heinrichsweikamp
parents: 4
diff changeset
532 bra divemenu_set_setpoint ; Yes, display SetPoint list
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
533
98
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
534 divemenu_set_gas_2:
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
535 bsf display_set_gas ; set flag
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
536 call PLED_clear_divemode_menu ; Clear Menu
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
537 call PLED_gas_list ; Display all 5 gases
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
538 movlw d'1'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
539 movwf menupos ; reset cursor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
540 call PLED_divemenu_cursor ; update cursor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
541 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
542
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
543 divemenu_set_setpoint:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
544 bsf display_set_setpoint ; set flag
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
545 bsf display_set_gas ; set flag
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
546
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
547 call PLED_clear_divemode_menu ; Clear Menu
98
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
548 call PLED_splist_start ; Display SetPoints
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
549 DISPLAYTEXT d'137' ; Bailout (as a sub-menu)
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
550 movlw d'1'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
551 movwf menupos ; reset cursor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
552 call PLED_divemenu_cursor ; update cursor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
553 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
554
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
555
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
556 divemenu_set_gas2:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
557 btfsc select_bailoutgas ; Are we in the Bailout list?
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
558 bra divemenu_set_gas2a ; Yes, choose gas
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
559
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
560 btfss FLAG_const_ppO2_mode ; are we in ppO2 mode?
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
561 bra divemenu_set_gas2a ; no, choose gas
98
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
562 ; Yes, so select SP 1-3
3
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
563 bcf is_bailout ;=1: CC mode, but bailout active!
98
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
564 call PLED_show_ppO2_clear ; Clear ppO2 value
3
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
565
98
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
566 divemenu_set_gas1:
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
567 movlw d'4'
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
568 cpfseq menupos ; At the "Bailout" position?
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
569 bra divemenu_set_gas1b ; No, select SetPoint 1-3
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
570 bsf select_bailoutgas ; Set Flag
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
571 bcf display_set_setpoint ; Clear Flag
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
572 bra divemenu_set_gas_2 ; Configure the extra gas / Select Bailout
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
573
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
574 divemenu_set_gas1b:
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
575 movlw d'35' ; offset in memory
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
576 addwf menupos,W ; add SP number 0-2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
577 movwf EEADR
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
578 call read_eeprom ; Read SetPoint
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
579 movff EEDATA, char_I_const_ppO2 ; Use SetPoint
4
2b5c52ae3923 1.52 beta rc
heinrichsweikamp
parents: 3
diff changeset
580 movff EEDATA, ppO2_setpoint_store ; Store also in this byte...
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
581
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
582 divemenu_set_gas1a:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
583 bcf display_set_setpoint ; Clear Display Flag
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
584 bsf stored_gas_changed ; set event flag
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
585 bsf event_occured ; set global event flag
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
586 bra timeout_divemenu2 ; quit menu!
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
587
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
588 divemenu_set_gas2a:
98
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
589 movlw d'6'
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
590 cpfseq menupos ; At the "Gas 6.." position?
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
591 bra divemenu_set_gas2b ; No, select Gas1-5 (Stored in Menupos)
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
592 bra divemode_set_xgas ; Configure the extra gas
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
593 divemenu_set_gas2b:
3
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
594 bsf is_bailout ;=1: CC mode, but bailout active!
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
595 clrf lo ; clear Setpoint, PLED_const_ppO2_value now displayes "Bail"
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
596 movff lo,char_I_const_ppO2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
597
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
598 bcf display_set_gas ; clear flag
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
599 movff menupos,active_gas ; copy into active gas register
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
600 decf menupos,W ; # of selected gas (0-4)
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
601 mullw d'4' ; times 4...
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
602 movf PRODL,W ;
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
603 addlw d'7' ; +7 = address for He ratio
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
604 movwf EEADR
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
605 call read_eeprom ; Read He ratio
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
606 movff EEDATA,char_I_He_ratio ; And copy into hold register
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
607
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
608 decf menupos,W ; # of selected gas (0-4)
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
609 mullw d'4' ; times 4...
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
610 movf PRODL,W ;
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
611 addlw d'6' ; +6 = address for O2 ratio
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
612 movwf EEADR
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
613 call read_eeprom ; Read O2 ratio
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
614 movff EEDATA, char_I_O2_ratio ; O2 ratio
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
615 movff char_I_He_ratio, wait_temp ; copy into bank1 register
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
616 bsf STATUS,C ;
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
617 movlw d'100' ; 100%
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
618 subfwb wait_temp,W ; minus He
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
619 subfwb EEDATA,F ; minus O2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
620 movff EEDATA, char_I_N2_ratio ; = N2!
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
621 bsf stored_gas_changed ; set event flag
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
622 bsf event_occured ; set global event flag
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
623 bra timeout_divemenu2 ; quit menu!
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
624
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
625 timeout_divemenu:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
626 btfss menubit ; is the Dive mode menu displayed?
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
627 return ; No
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
628
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
629
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
630 btfsc display_set_simulator ; Is the Simulator Mask active?
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
631 bra timeout_divemenu6 ; Yes, update Simulator mask
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
632
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
633 btfss display_see_deco ; Is the decoplan active?
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
634 bra timeout_divemenu1 ; No, skip updating the decoplan
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
635
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
636 btfsc multi_gf_display ; display the multi-gf table screen?
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
637 bra timeout_divemenu3 ; Yes...
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
638
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
639 movff char_O_deco_status,deco_status ;
66
6aee3a07f370 1.71beta in work...
heinrichsweikamp
parents: 64
diff changeset
640 tstfsz deco_status ; deco_status=0 if decompression calculation done
6aee3a07f370 1.71beta in work...
heinrichsweikamp
parents: 64
diff changeset
641 bra timeout_divemenu1 ; No, skip updating the decoplan
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
642
66
6aee3a07f370 1.71beta in work...
heinrichsweikamp
parents: 64
diff changeset
643 call PLED_decoplan ; update the Decoplan
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
644
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
645 timeout_divemenu1:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
646 incf timeout_counter3,F ; increase timeout_counter3
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
647 GETCUSTOM8 d'10' ; loads timeout_divemenu into WREG
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
648 cpfsgt timeout_counter3 ; ... longer then timeout_divemenu
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
649 return ; No!
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
650 timeout_divemenu2: ; quit divemode menu
66
6aee3a07f370 1.71beta in work...
heinrichsweikamp
parents: 64
diff changeset
651 btfss multi_gf_display ; Was the Multi-GF Table displayed?
6aee3a07f370 1.71beta in work...
heinrichsweikamp
parents: 64
diff changeset
652 bra timeout_divemenu2a ; No, normal OLED rebuild
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
653
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
654 ; Restore some outputs
66
6aee3a07f370 1.71beta in work...
heinrichsweikamp
parents: 64
diff changeset
655 clrf temp8 ; Page 0-1 of deco list
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
656 btfsc dekostop_active
66
6aee3a07f370 1.71beta in work...
heinrichsweikamp
parents: 64
diff changeset
657 call PLED_display_deko_mask ; clear nostop time, display decodata
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
658 btfss dekostop_active
66
6aee3a07f370 1.71beta in work...
heinrichsweikamp
parents: 64
diff changeset
659 call PLED_display_ndl_mask ; Clear deco data, display nostop time
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
660
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
661 timeout_divemenu2a:
66
6aee3a07f370 1.71beta in work...
heinrichsweikamp
parents: 64
diff changeset
662 bcf multi_gf_display ; Do not display the multi-gf table screen
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
663 bcf menubit
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
664 bcf premenu ; Yes, clear flags and menu, display dive time and mask again
66
6aee3a07f370 1.71beta in work...
heinrichsweikamp
parents: 64
diff changeset
665 call PLED_active_gas_divemode; Display gas, if required
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
666 call PLED_clear_divemode_menu; Clear dive mode menu
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
667 call PLED_divemode_mask ; Display mask
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
668 call PLED_divemins ; Display (new) divetime!
87
8d3c1bef6551 some preparations for new custom view
heinrichsweikamp
parents: 73
diff changeset
669 btfss dekostop_active
8d3c1bef6551 some preparations for new custom view
heinrichsweikamp
parents: 73
diff changeset
670 call PLED_display_ndl_mask
8d3c1bef6551 some preparations for new custom view
heinrichsweikamp
parents: 73
diff changeset
671 btfsc dekostop_active
8d3c1bef6551 some preparations for new custom view
heinrichsweikamp
parents: 73
diff changeset
672 call PLED_display_deko_mask
98
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 87
diff changeset
673 call customview_mask ; Redraw current customview mask
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
674 clrf timeout_counter3 ; Also clear timeout
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
675 bcf display_see_deco ; clear all display flags
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
676 bcf display_set_gas
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
677 bcf display_set_xgas
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
678 bcf display_set_setpoint
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
679 bcf display_set_simulator
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
680 bcf switch_left ; and debounce switches
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
681 bcf switch_right
71
6beb680a6130 1.72beta - color-coded gaslist, small fix with stopwatch
heinrichsweikamp
parents: 68
diff changeset
682 bsf lock_stopwatch_reset ; Lock the stopwatch reset for at least one second (Cleared in "calc_average_depth:")
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
683 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
684
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
685 timeout_divemenu3:
64
e8756eba54ee 1.71beta - more deco
heinrichsweikamp
parents: 30
diff changeset
686 movff char_O_deco_status,deco_status ;
e8756eba54ee 1.71beta - more deco
heinrichsweikamp
parents: 30
diff changeset
687 tstfsz deco_status ; deco_status=0 if decompression calculation done
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
688 bra timeout_divemenu1 ; No, skip updating the decoplan
68
d0b677e1e9a5 new decoplan (GF mode) debuged
heinrichsweikamp
parents: 66
diff changeset
689 timeout_divemenu3x:
64
e8756eba54ee 1.71beta - more deco
heinrichsweikamp
parents: 30
diff changeset
690 call PLED_decoplan_gf_page_current ; Re-Draw Current page of GF Decoplan
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
691 bra timeout_divemenu1 ; Check timeout
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
692
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
693 timeout_divemenu6:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
694 ; Update Simulator Mask
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
695 call PLED_divemode_simulator_mask; Show mask
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
696 call PLED_divemenu_cursor ; update cursor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
697 bra timeout_divemenu1 ; Check timeout