Mercurial > public > hwos_code

annotate src/surfmode.asm @ 353:573f2251cf49

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
NEW: Quit Simulator automatically when starting a real dive
author heinrichsweikamp
date Tue, 28 Jul 2015 16:32:55 +0200
parents 5c6da9fa5cb0
children 043890f06bce
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
heinrichsweikamp
parents:
diff changeset
1 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
2 ;
heinrichsweikamp
parents:
diff changeset
3 ; File surfmode.asm
heinrichsweikamp
parents:
diff changeset
4 ;
heinrichsweikamp
parents:
diff changeset
5 ; Surfacemode
heinrichsweikamp
parents:
diff changeset
6 ;
heinrichsweikamp
parents:
diff changeset
7 ; Copyright (c) 2011, JD Gascuel, HeinrichsWeikamp, all right reserved.
heinrichsweikamp
parents:
diff changeset
8 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
9 ; HISTORY
heinrichsweikamp
parents:
diff changeset
10 ; 2011-08-07 : [mH] moving from OSTC code
heinrichsweikamp
parents:
diff changeset
11
275
653a3ab08062 rename into hwOS
heinrichsweikamp
parents: 256
diff changeset
12 #include "hwos.inc" ; Mandatory header
0
heinrichsweikamp
parents:
diff changeset
13 #include "shared_definitions.h" ; Mailbox from/to p2_deco.c
heinrichsweikamp
parents:
diff changeset
14 #include "start.inc"
heinrichsweikamp
parents:
diff changeset
15 #include "tft.inc"
heinrichsweikamp
parents:
diff changeset
16 #include "tft_outputs.inc"
heinrichsweikamp
parents:
diff changeset
17 #include "isr.inc"
heinrichsweikamp
parents:
diff changeset
18 #include "adc_lightsensor.inc"
heinrichsweikamp
parents:
diff changeset
19 #include "menu_processor.inc"
heinrichsweikamp
parents:
diff changeset
20 #include "strings.inc"
heinrichsweikamp
parents:
diff changeset
21 #include "sleepmode.inc"
heinrichsweikamp
parents:
diff changeset
22 #include "wait.inc" ; speed_*
heinrichsweikamp
parents:
diff changeset
23 #include "external_flash.inc"
heinrichsweikamp
parents:
diff changeset
24 #include "customview.inc"
heinrichsweikamp
parents:
diff changeset
25 #include "divemode.inc"
heinrichsweikamp
parents:
diff changeset
26 #include "mcp.inc" ; RX
heinrichsweikamp
parents:
diff changeset
27 #include "i2c.inc"
heinrichsweikamp
parents:
diff changeset
28 #include "comm.inc"
heinrichsweikamp
parents:
diff changeset
29 #include "eeprom_rs232.inc"
113
heinrichsweikamp
parents: 76
diff changeset
30 #include "calibrate.inc"
0
heinrichsweikamp
parents:
diff changeset
31
213
3b5df65d53fc layout changes
heinrichsweikamp
parents: 205
diff changeset
32 extern do_main_menu
3b5df65d53fc layout changes
heinrichsweikamp
parents: 205
diff changeset
33
0
heinrichsweikamp
parents:
diff changeset
34 #DEFINE menu_pos_row .215
213
3b5df65d53fc layout changes
heinrichsweikamp
parents: 205
diff changeset
35 #DEFINE menu_pos_column .1
0
heinrichsweikamp
parents:
diff changeset
36 #DEFINE view_row .215
heinrichsweikamp
parents:
diff changeset
37 #DEFINE view_column .124
heinrichsweikamp
parents:
diff changeset
38
heinrichsweikamp
parents:
diff changeset
39 gui CODE
heinrichsweikamp
parents:
diff changeset
40
heinrichsweikamp
parents:
diff changeset
41
heinrichsweikamp
parents:
diff changeset
42 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
43 ; Boot tasks for all modes
heinrichsweikamp
parents:
diff changeset
44 global surfloop
heinrichsweikamp
parents:
diff changeset
45 surfloop:
heinrichsweikamp
parents:
diff changeset
46 call speed_normal
heinrichsweikamp
parents:
diff changeset
47 bcf no_sensor_int ; Normal pressure mode
heinrichsweikamp
parents:
diff changeset
48
245
416723c8ccd8 use single-byte hardware flag (again)
heinrichsweikamp
parents: 235
diff changeset
49 bcf LEDg
416723c8ccd8 use single-byte hardware flag (again)
heinrichsweikamp
parents: 235
diff changeset
50 bcf LEDr
416723c8ccd8 use single-byte hardware flag (again)
heinrichsweikamp
parents: 235
diff changeset
51
0
heinrichsweikamp
parents:
diff changeset
52 clrf CCP1CON ; stop PWM
heinrichsweikamp
parents:
diff changeset
53 bcf PORTC,2 ; Pull PWM output to GND
heinrichsweikamp
parents:
diff changeset
54 call TFT_boot ; Initialize TFT (includes clear screen)
heinrichsweikamp
parents:
diff changeset
55 bcf restore_deco_data
heinrichsweikamp
parents:
diff changeset
56
heinrichsweikamp
parents:
diff changeset
57 WIN_TOP .50
heinrichsweikamp
parents:
diff changeset
58 WIN_LEFT .10
heinrichsweikamp
parents:
diff changeset
59 movlw LOW 0x1E000
heinrichsweikamp
parents:
diff changeset
60 movwf TBLPTRL
heinrichsweikamp
parents:
diff changeset
61 movlw HIGH 0x1E000
heinrichsweikamp
parents:
diff changeset
62 movwf TBLPTRH
heinrichsweikamp
parents:
diff changeset
63 movlw UPPER 0x1E000
heinrichsweikamp
parents:
diff changeset
64 movwf TBLPTRU
heinrichsweikamp
parents:
diff changeset
65 extern color_image
heinrichsweikamp
parents:
diff changeset
66 call color_image ; Show logo
heinrichsweikamp
parents:
diff changeset
67
heinrichsweikamp
parents:
diff changeset
68 WIN_TOP .100
heinrichsweikamp
parents:
diff changeset
69 WIN_LEFT .34
275
653a3ab08062 rename into hwOS
heinrichsweikamp
parents: 256
diff changeset
70 extern ostc_logo_block
653a3ab08062 rename into hwOS
heinrichsweikamp
parents: 256
diff changeset
71 movlw LOW(ostc_logo_block)
0
heinrichsweikamp
parents:
diff changeset
72 movwf TBLPTRL
275
653a3ab08062 rename into hwOS
heinrichsweikamp
parents: 256
diff changeset
73 movlw HIGH ostc_logo_block;&0xFFFF
0
heinrichsweikamp
parents:
diff changeset
74 movwf TBLPTRH
275
653a3ab08062 rename into hwOS
heinrichsweikamp
parents: 256
diff changeset
75 movlw UPPER(ostc_logo_block)
0
heinrichsweikamp
parents:
diff changeset
76 movwf TBLPTRU
heinrichsweikamp
parents:
diff changeset
77 call color_image
heinrichsweikamp
parents:
diff changeset
78 call TFT_Display_FadeIn ; Show splash
heinrichsweikamp
parents:
diff changeset
79 call TFT_serial ; Show serial and firmware version
heinrichsweikamp
parents:
diff changeset
80
heinrichsweikamp
parents:
diff changeset
81 ;---- Do any usefull initializes that takes time -------------------------
heinrichsweikamp
parents:
diff changeset
82 call restart_set_modes_and_flags ; Sets decomode flags
heinrichsweikamp
parents:
diff changeset
83 bcf pressure_refresh
heinrichsweikamp
parents:
diff changeset
84 call I2C_init_compass
heinrichsweikamp
parents:
diff changeset
85 call I2C_init_accelerometer
heinrichsweikamp
parents:
diff changeset
86 clrf ext_flash_address+0
heinrichsweikamp
parents:
diff changeset
87 clrf ext_flash_address+1
heinrichsweikamp
parents:
diff changeset
88 clrf ext_flash_address+2
heinrichsweikamp
parents:
diff changeset
89
235
23311219dacc under construction: new hardware_flag to configure different hardware versions
heinrichsweikamp
parents: 234
diff changeset
90 btfsc rechargeable
221
90923a081ae7 minor: configure buttons during splash screen
heinrichsweikamp
parents: 213
diff changeset
91 call piezo_config ; Configure buttons
90923a081ae7 minor: configure buttons during splash screen
heinrichsweikamp
parents: 213
diff changeset
92
0
heinrichsweikamp
parents:
diff changeset
93 clrf timeout_counter2
heinrichsweikamp
parents:
diff changeset
94 clrf timeout_counter3
heinrichsweikamp
parents:
diff changeset
95 bcf menubit ; clear menu flag
heinrichsweikamp
parents:
diff changeset
96 clrf last_pressure+0
heinrichsweikamp
parents:
diff changeset
97 clrf last_pressure+1
heinrichsweikamp
parents:
diff changeset
98 bcf is_bailout ; =1: Bailout
heinrichsweikamp
parents:
diff changeset
99 bcf ccr_diluent_setup ; Use OC gases for gaslist routine
heinrichsweikamp
parents:
diff changeset
100
heinrichsweikamp
parents:
diff changeset
101 bcf simulatormode_active ; Quit simulator mode (if active)
heinrichsweikamp
parents:
diff changeset
102 bcf switch_left
heinrichsweikamp
parents:
diff changeset
103 bcf switch_right
heinrichsweikamp
parents:
diff changeset
104
heinrichsweikamp
parents:
diff changeset
105 ;---- Fade to standard surface view --------------------------------------
heinrichsweikamp
parents:
diff changeset
106 ; Wait 1 second
heinrichsweikamp
parents:
diff changeset
107 bcf onesecupdate
heinrichsweikamp
parents:
diff changeset
108 btfss onesecupdate
heinrichsweikamp
parents:
diff changeset
109 bra $-2
heinrichsweikamp
parents:
diff changeset
110 ; Wait 1 second
heinrichsweikamp
parents:
diff changeset
111 bcf onesecupdate
heinrichsweikamp
parents:
diff changeset
112 btfss onesecupdate
heinrichsweikamp
parents:
diff changeset
113 bra $-2
heinrichsweikamp
parents:
diff changeset
114
heinrichsweikamp
parents:
diff changeset
115 call TFT_Display_FadeOut ; Go to black screen
heinrichsweikamp
parents:
diff changeset
116 call TFT_ClearScreen ; Then change everything
heinrichsweikamp
parents:
diff changeset
117 WIN_TOP .0
heinrichsweikamp
parents:
diff changeset
118 WIN_LEFT .0
heinrichsweikamp
parents:
diff changeset
119 WIN_FONT FT_SMALL
189
e79bc535ef9e ignore un-calibrated sensors even if they become valid
heinrichsweikamp
parents: 188
diff changeset
120 bcf win_invert ; Reset invert flag
0
heinrichsweikamp
parents:
diff changeset
121
heinrichsweikamp
parents:
diff changeset
122 WIN_COLOR color_lightblue
heinrichsweikamp
parents:
diff changeset
123 WIN_SMALL menu_pos_column,menu_pos_row
heinrichsweikamp
parents:
diff changeset
124 STRCPY_TEXT_PRINT tMenu ;"<Menu"
heinrichsweikamp
parents:
diff changeset
125 WIN_SMALL view_column,view_row
heinrichsweikamp
parents:
diff changeset
126 STRCPY_TEXT_PRINT tView ;"View>"
heinrichsweikamp
parents:
diff changeset
127 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
128
48
7c7d7644ca37 Time and Date in normal (Not tiny) font
heinrichsweikamp
parents: 39
diff changeset
129 ; Logo
0
heinrichsweikamp
parents:
diff changeset
130 WIN_TOP .0
heinrichsweikamp
parents:
diff changeset
131 WIN_LEFT .70
275
653a3ab08062 rename into hwOS
heinrichsweikamp
parents: 256
diff changeset
132 movlw LOW(ostc_logo_block)
0
heinrichsweikamp
parents:
diff changeset
133 movwf TBLPTRL
275
653a3ab08062 rename into hwOS
heinrichsweikamp
parents: 256
diff changeset
134 movlw HIGH ostc_logo_block;&0xFFFF
0
heinrichsweikamp
parents:
diff changeset
135 movwf TBLPTRH
275
653a3ab08062 rename into hwOS
heinrichsweikamp
parents: 256
diff changeset
136 movlw UPPER(ostc_logo_block)
0
heinrichsweikamp
parents:
diff changeset
137 movwf TBLPTRU
heinrichsweikamp
parents:
diff changeset
138 call color_image
heinrichsweikamp
parents:
diff changeset
139
352
5c6da9fa5cb0 add setpoint change to first sample in CCR mode
heinrichsweikamp
parents: 275
diff changeset
140 movlw surface_sp ; in cbar
5c6da9fa5cb0 add setpoint change to first sample in CCR mode
heinrichsweikamp
parents: 275
diff changeset
141 call transmit_setpoint ; Transmit current setpoint from WREG (in cbar) to external electronics
158
683321c09cfa nicer boot into surfacemode
heinrichsweikamp
parents: 145
diff changeset
142 call TFT_clock ; display time
683321c09cfa nicer boot into surfacemode
heinrichsweikamp
parents: 145
diff changeset
143 call update_surfloop60
683321c09cfa nicer boot into surfacemode
heinrichsweikamp
parents: 145
diff changeset
144 call get_battery_voltage ; get battery voltage
683321c09cfa nicer boot into surfacemode
heinrichsweikamp
parents: 145
diff changeset
145 call TFT_update_batt_voltage ; display battery voltage
683321c09cfa nicer boot into surfacemode
heinrichsweikamp
parents: 145
diff changeset
146 call TFT_update_surf_press ; display surface pressure
683321c09cfa nicer boot into surfacemode
heinrichsweikamp
parents: 145
diff changeset
147 call TFT_temp_surfmode ; Displays temperature
683321c09cfa nicer boot into surfacemode
heinrichsweikamp
parents: 145
diff changeset
148 call TFT_display_decotype_surface
234
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 233
diff changeset
149
232
fe9d88fee09f show start gas in OC mode permanently
mh@mh-THINK
parents: 230
diff changeset
150 movff opt_dive_mode,lo ; 0=OC, 1=CC, 2=Gauge, 3=Apnea
fe9d88fee09f show start gas in OC mode permanently
mh@mh-THINK
parents: 230
diff changeset
151 tstfsz lo
fe9d88fee09f show start gas in OC mode permanently
mh@mh-THINK
parents: 230
diff changeset
152 bra surfloop_no_oc ; Not OC
234
57155164faad Show OSTC2-like active gas boxes in surface mode
heinrichsweikamp
parents: 233
diff changeset
153 call TFT_show_OC_startgas_surface; Show first gas and "OSTC2-like" active gases
232
fe9d88fee09f show start gas in OC mode permanently
mh@mh-THINK
parents: 230
diff changeset
154 surfloop_no_oc:
158
683321c09cfa nicer boot into surfacemode
heinrichsweikamp
parents: 145
diff changeset
155 movff customview_surfmode,menupos3 ; Reload last customview
683321c09cfa nicer boot into surfacemode
heinrichsweikamp
parents: 145
diff changeset
156 call surf_customview_mask ; Update #menupos3 view
0
heinrichsweikamp
parents:
diff changeset
157
heinrichsweikamp
parents:
diff changeset
158 call TFT_Display_FadeIn ; Display resulting surface screen.
heinrichsweikamp
parents:
diff changeset
159
heinrichsweikamp
parents:
diff changeset
160 ;---- Late initialisations -----------------------------------------------
heinrichsweikamp
parents:
diff changeset
161 movff last_surfpressure_30min+0,int_I_pres_respiration+0 ; copy surface air pressure to deco routine
heinrichsweikamp
parents:
diff changeset
162 movff last_surfpressure_30min+1,int_I_pres_respiration+1 ; 30min old values
heinrichsweikamp
parents:
diff changeset
163 movff last_surfpressure_30min+0,int_I_pres_surface+0 ; copy surface air pressure to deco routine
heinrichsweikamp
parents:
diff changeset
164 movff last_surfpressure_30min+1,int_I_pres_surface+1 ; 30min old values
heinrichsweikamp
parents:
diff changeset
165 movff last_surfpressure_30min+0,last_surfpressure+0 ; Use 30min old airpressure
heinrichsweikamp
parents:
diff changeset
166 movff last_surfpressure_30min+1,last_surfpressure+1 ; Use 30min old airpressure
heinrichsweikamp
parents:
diff changeset
167
158
683321c09cfa nicer boot into surfacemode
heinrichsweikamp
parents: 145
diff changeset
168 ; Startup tasks for all modes
0
heinrichsweikamp
parents:
diff changeset
169 ; Desaturation time needs:
heinrichsweikamp
parents:
diff changeset
170 ; int_I_pres_surface
heinrichsweikamp
parents:
diff changeset
171 ; char_I_desaturation_multiplier
heinrichsweikamp
parents:
diff changeset
172 call deco_calc_desaturation_time ; calculate desaturation time
heinrichsweikamp
parents:
diff changeset
173 movlb b'00000001' ; select ram bank 1
heinrichsweikamp
parents:
diff changeset
174
heinrichsweikamp
parents:
diff changeset
175 btfsc enable_screen_dumps ; =1: Ignore vin_usb, wait for "l" command (Screen dump)
heinrichsweikamp
parents:
diff changeset
176 call enable_rs232 ; Also sets to speed_normal ...
heinrichsweikamp
parents:
diff changeset
177
heinrichsweikamp
parents:
diff changeset
178 surfloop_loop:
heinrichsweikamp
parents:
diff changeset
179 btfss onesecupdate ; do every second tasks?
heinrichsweikamp
parents:
diff changeset
180 bra surfloop_loop2 ; no, loop
heinrichsweikamp
parents:
diff changeset
181
heinrichsweikamp
parents:
diff changeset
182 ; One Second tasks for all modes
heinrichsweikamp
parents:
diff changeset
183 call speed_normal
heinrichsweikamp
parents:
diff changeset
184 call TFT_debug_output
heinrichsweikamp
parents:
diff changeset
185 call TFT_clock ; update clock
heinrichsweikamp
parents:
diff changeset
186 call timeout_surfmode ; check timeout
heinrichsweikamp
parents:
diff changeset
187 call get_battery_voltage ; get battery voltage
heinrichsweikamp
parents:
diff changeset
188 call TFT_update_batt_voltage ; display battery voltage
heinrichsweikamp
parents:
diff changeset
189 call set_dive_modes ; tests if depth>threshold
heinrichsweikamp
parents:
diff changeset
190 btfss secs,0 ; Every two seconds...
heinrichsweikamp
parents:
diff changeset
191 call TFT_temp_surfmode ; Displays temperature
heinrichsweikamp
parents:
diff changeset
192 btfss secs,0 ; Every two seconds...
heinrichsweikamp
parents:
diff changeset
193 call surfmode_check_for_warnings ; ... check for warnings (and display/update) them
heinrichsweikamp
parents:
diff changeset
194
heinrichsweikamp
parents:
diff changeset
195 bcf onesecupdate ; every second tasks done
heinrichsweikamp
parents:
diff changeset
196
heinrichsweikamp
parents:
diff changeset
197 surfloop_loop2:
heinrichsweikamp
parents:
diff changeset
198 ; Tasks approx. every 50ms for all modes
heinrichsweikamp
parents:
diff changeset
199 call test_switches_surfmode ; check switches
heinrichsweikamp
parents:
diff changeset
200
heinrichsweikamp
parents:
diff changeset
201 ; One minute tasks for all modes
heinrichsweikamp
parents:
diff changeset
202 btfsc oneminupdate ; do every minute tasks
heinrichsweikamp
parents:
diff changeset
203 call update_surfloop60 ; yes, e.g. update time and date
heinrichsweikamp
parents:
diff changeset
204
heinrichsweikamp
parents:
diff changeset
205 ; Mode tasks
230
f6548e8f06f5 Bugfix: Check for divemode before checking for menu
mh@mh-THINK
parents: 226
diff changeset
206 btfsc divemode ; Divemode active?
f6548e8f06f5 Bugfix: Check for divemode before checking for menu
mh@mh-THINK
parents: 226
diff changeset
207 goto diveloop ; Yes, switch into Divemode!
f6548e8f06f5 Bugfix: Check for divemode before checking for menu
mh@mh-THINK
parents: 226
diff changeset
208
0
heinrichsweikamp
parents:
diff changeset
209 btfsc menubit ; Menu?
heinrichsweikamp
parents:
diff changeset
210 goto do_main_menu ; Menu!
heinrichsweikamp
parents:
diff changeset
211
heinrichsweikamp
parents:
diff changeset
212 btfsc pressure_refresh ; new pressure available?
heinrichsweikamp
parents:
diff changeset
213 call TFT_update_surf_press ; display surface pressure
heinrichsweikamp
parents:
diff changeset
214 bcf pressure_refresh ; until new pressure is available
heinrichsweikamp
parents:
diff changeset
215
188
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 187
diff changeset
216 ; Updates every 1/4 second
0
heinrichsweikamp
parents:
diff changeset
217 btfss quarter_second_update
heinrichsweikamp
parents:
diff changeset
218 bra surfloop_loop2a
188
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 187
diff changeset
219
0
heinrichsweikamp
parents:
diff changeset
220 bcf quarter_second_update
188
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 187
diff changeset
221 ; Update Sensors
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 187
diff changeset
222
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 187
diff changeset
223 call compute_ppo2 ; compute mv_sensorX and ppo2_sensorX arrays
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 187
diff changeset
224 call check_sensors ; Set enable/disable flags
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 187
diff changeset
225 btfsc FLAG_ccr_mode ; In CCR mode...
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 187
diff changeset
226 call TFT_surface_sensor ; ...update sensor data in surface mode
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 187
diff changeset
227
0
heinrichsweikamp
parents:
diff changeset
228 movlw .6
heinrichsweikamp
parents:
diff changeset
229 cpfseq menupos3 ; in compass view?
heinrichsweikamp
parents:
diff changeset
230 bra surfloop_loop2a ; No
256
5b4ef0b9090d place compass display code into compass_ops.asm
heinrichsweikamp
parents: 245
diff changeset
231 extern TFT_surface_compass_heading
0
heinrichsweikamp
parents:
diff changeset
232 call TFT_surface_compass_heading ; Yes, update compass heading value
heinrichsweikamp
parents:
diff changeset
233
heinrichsweikamp
parents:
diff changeset
234 surfloop_loop2a:
heinrichsweikamp
parents:
diff changeset
235 btfsc toggle_customview ; Next view?
heinrichsweikamp
parents:
diff changeset
236 call surf_customview_toggle ; Yes, show next customview (and delete this flag)
heinrichsweikamp
parents:
diff changeset
237
heinrichsweikamp
parents:
diff changeset
238 btfsc enable_screen_dumps ; =1: Ignore vin_usb, wait for "l" command (Screen dump)
heinrichsweikamp
parents:
diff changeset
239 bra surfloop_loop3
heinrichsweikamp
parents:
diff changeset
240 btfsc vusb_in ; USB plugged in?
113
heinrichsweikamp
parents: 76
diff changeset
241 call comm_mode ; Start COMM mode
0
heinrichsweikamp
parents:
diff changeset
242 bra surfloop_loop4
heinrichsweikamp
parents:
diff changeset
243 surfloop_loop3:
heinrichsweikamp
parents:
diff changeset
244 btfss vusb_in ; USB (still) plugged in?
heinrichsweikamp
parents:
diff changeset
245 bcf enable_screen_dumps ; No, clear flag
heinrichsweikamp
parents:
diff changeset
246 call rs232_get_byte
heinrichsweikamp
parents:
diff changeset
247 btfsc rs232_recieve_overflow
heinrichsweikamp
parents:
diff changeset
248 bra surfloop_loop4
heinrichsweikamp
parents:
diff changeset
249 movlw "l"
heinrichsweikamp
parents:
diff changeset
250 cpfseq RCREG1
heinrichsweikamp
parents:
diff changeset
251 bra surfloop_loop4
heinrichsweikamp
parents:
diff changeset
252 call TFT_dump_screen ; Dump the screen contents
heinrichsweikamp
parents:
diff changeset
253 surfloop_loop4:
heinrichsweikamp
parents:
diff changeset
254 btfsc sleepmode ; Sleepmode active?
heinrichsweikamp
parents:
diff changeset
255 goto sleeploop ; Yes, switch into sleepmode!
heinrichsweikamp
parents:
diff changeset
256
heinrichsweikamp
parents:
diff changeset
257 bra surfloop_loop ; loop surfacemode
heinrichsweikamp
parents:
diff changeset
258
heinrichsweikamp
parents:
diff changeset
259 update_surfloop60:
heinrichsweikamp
parents:
diff changeset
260 ; One minute tasks for all modes
heinrichsweikamp
parents:
diff changeset
261 call TFT_date ; Update date
heinrichsweikamp
parents:
diff changeset
262 call calc_deko_surfmode ; calculate desaturation every minute
heinrichsweikamp
parents:
diff changeset
263 bcf oneminupdate
heinrichsweikamp
parents:
diff changeset
264 return
heinrichsweikamp
parents:
diff changeset
265
heinrichsweikamp
parents:
diff changeset
266 extern check_cns_violation,check_warn_battery,check_and_store_gf_violation
heinrichsweikamp
parents:
diff changeset
267 surfmode_check_for_warnings:
heinrichsweikamp
parents:
diff changeset
268 movf warning_counter_backup,W
heinrichsweikamp
parents:
diff changeset
269 cpfseq warning_counter ; warning_counter_backup = warning_counter?
heinrichsweikamp
parents:
diff changeset
270 call TFT_clear_warning_text ; No, clear all warnings
heinrichsweikamp
parents:
diff changeset
271 movff warning_counter,warning_counter_backup ; copy warning_counter
heinrichsweikamp
parents:
diff changeset
272
heinrichsweikamp
parents:
diff changeset
273 bcf warning_active ; Clear flag
heinrichsweikamp
parents:
diff changeset
274 clrf warning_counter ; Clear counter
heinrichsweikamp
parents:
diff changeset
275
heinrichsweikamp
parents:
diff changeset
276 ; Warnings for all modes
heinrichsweikamp
parents:
diff changeset
277 call check_warn_battery ; Check if the battery level should be displayed/warned
205
618191753d2b Preparations for 1.7
heinrichsweikamp
parents: 204
diff changeset
278 rcall surfmode_check_for_nofly ; Check if nofly time should be shown
618191753d2b Preparations for 1.7
heinrichsweikamp
parents: 204
diff changeset
279 rcall surfmode_check_for_desat ; Check if desat time should be shown
618191753d2b Preparations for 1.7
heinrichsweikamp
parents: 204
diff changeset
280 rcall surfmode_check_for_interval ; Check if surface interval should be shown
0
heinrichsweikamp
parents:
diff changeset
281
heinrichsweikamp
parents:
diff changeset
282 btfsc FLAG_apnoe_mode ; Done for Apnoe or Gauge mode
heinrichsweikamp
parents:
diff changeset
283 bra surfmode_check_for_warnings2
heinrichsweikamp
parents:
diff changeset
284 btfsc FLAG_gauge_mode ; Done for Apnoe or Gauge mode
heinrichsweikamp
parents:
diff changeset
285 bra surfmode_check_for_warnings2
heinrichsweikamp
parents:
diff changeset
286
heinrichsweikamp
parents:
diff changeset
287 ; Warnings only in deco modes
heinrichsweikamp
parents:
diff changeset
288 call check_cns_violation ; Check CNS value and display it, if required
heinrichsweikamp
parents:
diff changeset
289 call check_and_store_gf_violation ; Check GF value and display it, if required
heinrichsweikamp
parents:
diff changeset
290
heinrichsweikamp
parents:
diff changeset
291 surfmode_check_for_warnings2:
heinrichsweikamp
parents:
diff changeset
292 ; Setup warning_page number
heinrichsweikamp
parents:
diff changeset
293 incf warning_page,F
heinrichsweikamp
parents:
diff changeset
294 bcf STATUS,C
heinrichsweikamp
parents:
diff changeset
295 rlcf warning_page,W ; *2
heinrichsweikamp
parents:
diff changeset
296 cpfsgt warning_counter ; > warning_counter
heinrichsweikamp
parents:
diff changeset
297 clrf warning_page ; No, clear
heinrichsweikamp
parents:
diff changeset
298
heinrichsweikamp
parents:
diff changeset
299 ; Clear 2nd row of warnings if there is nothing to show (on this page)
heinrichsweikamp
parents:
diff changeset
300 btfss second_row_warning ; =1: The second row contains a warning
heinrichsweikamp
parents:
diff changeset
301 call TFT_clear_warning_text_2nd_row ; No, clear this row
heinrichsweikamp
parents:
diff changeset
302 return ; Done.
heinrichsweikamp
parents:
diff changeset
303
heinrichsweikamp
parents:
diff changeset
304 surfmode_check_for_interval:
heinrichsweikamp
parents:
diff changeset
305 movf surface_interval+0,W ; Is interval null ?
133
939f1e83c4c2 BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents: 113
diff changeset
306 iorwf surface_interval+1,W
0
heinrichsweikamp
parents:
diff changeset
307 bnz surfmode_check_for_interval2 ; No
heinrichsweikamp
parents:
diff changeset
308 return
heinrichsweikamp
parents:
diff changeset
309 surfmode_check_for_interval2:
heinrichsweikamp
parents:
diff changeset
310 incf warning_counter,F ; increase counter
heinrichsweikamp
parents:
diff changeset
311 call TFT_interval
heinrichsweikamp
parents:
diff changeset
312 return
heinrichsweikamp
parents:
diff changeset
313
heinrichsweikamp
parents:
diff changeset
314
heinrichsweikamp
parents:
diff changeset
315 surfmode_check_for_desat:
heinrichsweikamp
parents:
diff changeset
316 movf desaturation_time+0,W ; Is nofly null ?
heinrichsweikamp
parents:
diff changeset
317 iorwf desaturation_time+1,W
heinrichsweikamp
parents:
diff changeset
318 bnz surfmode_check_for_desat2 ; No
heinrichsweikamp
parents:
diff changeset
319 return
heinrichsweikamp
parents:
diff changeset
320 surfmode_check_for_desat2:
heinrichsweikamp
parents:
diff changeset
321 incf warning_counter,F ; increase counter
heinrichsweikamp
parents:
diff changeset
322 call TFT_desaturation_time
heinrichsweikamp
parents:
diff changeset
323 return
heinrichsweikamp
parents:
diff changeset
324
heinrichsweikamp
parents:
diff changeset
325 surfmode_check_for_nofly:
heinrichsweikamp
parents:
diff changeset
326 movf nofly_time+0,W ; Is nofly null ?
heinrichsweikamp
parents:
diff changeset
327 iorwf nofly_time+1,W
heinrichsweikamp
parents:
diff changeset
328 bnz surfmode_check_for_nofly2 ; No...
heinrichsweikamp
parents:
diff changeset
329 return
heinrichsweikamp
parents:
diff changeset
330 surfmode_check_for_nofly2:
heinrichsweikamp
parents:
diff changeset
331 incf warning_counter,F ; increase counter
heinrichsweikamp
parents:
diff changeset
332 call TFT_nofly_time
heinrichsweikamp
parents:
diff changeset
333 return
heinrichsweikamp
parents:
diff changeset
334
heinrichsweikamp
parents:
diff changeset
335
heinrichsweikamp
parents:
diff changeset
336 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
337 global calc_deko_surfmode
heinrichsweikamp
parents:
diff changeset
338 calc_deko_surfmode:
heinrichsweikamp
parents:
diff changeset
339 SAFE_2BYTE_COPY amb_pressure,int_I_pres_respiration ; copy surface air pressure to deco routine
heinrichsweikamp
parents:
diff changeset
340 call deco_calc_wo_deco_step_1_min ; calculate deco in surface mode
heinrichsweikamp
parents:
diff changeset
341 banksel common
heinrichsweikamp
parents:
diff changeset
342 return
heinrichsweikamp
parents:
diff changeset
343
heinrichsweikamp
parents:
diff changeset
344 test_switches_surfmode: ; checks switches in surfacemode
heinrichsweikamp
parents:
diff changeset
345 btfsc switch_right
heinrichsweikamp
parents:
diff changeset
346 bra test_switches_surfmode2
heinrichsweikamp
parents:
diff changeset
347 btfsc switch_left
heinrichsweikamp
parents:
diff changeset
348 bra test_switches_surfmode3
heinrichsweikamp
parents:
diff changeset
349
heinrichsweikamp
parents:
diff changeset
350 ; No button press
heinrichsweikamp
parents:
diff changeset
351 return
heinrichsweikamp
parents:
diff changeset
352
heinrichsweikamp
parents:
diff changeset
353 test_switches_surfmode3:
heinrichsweikamp
parents:
diff changeset
354 bcf switch_left
heinrichsweikamp
parents:
diff changeset
355 bsf menubit ; Enter Menu!
heinrichsweikamp
parents:
diff changeset
356 return
heinrichsweikamp
parents:
diff changeset
357
heinrichsweikamp
parents:
diff changeset
358 test_switches_surfmode2:
heinrichsweikamp
parents:
diff changeset
359 bcf switch_right
heinrichsweikamp
parents:
diff changeset
360 bsf toggle_customview
heinrichsweikamp
parents:
diff changeset
361 clrf timeout_counter2 ; and reset timeout
heinrichsweikamp
parents:
diff changeset
362 return
heinrichsweikamp
parents:
diff changeset
363
heinrichsweikamp
parents:
diff changeset
364 global timeout_surfmode
heinrichsweikamp
parents:
diff changeset
365 timeout_surfmode:
188
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 187
diff changeset
366 movlw timeout_surfacemode ; [s] Default timeout
187
669b5d00706d CHANGE: Longer timeout (4 min) for calibration menu
heinrichsweikamp
parents: 158
diff changeset
367 btfsc menu_show_sensors2 ; In the "Calibrate" menu?
188
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 187
diff changeset
368 movlw timeout_calibrate_menu ; [s] CCR Calibrate Menu timeout
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 187
diff changeset
369 btfsc menubit ; in Menu?
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 187
diff changeset
370 bra timeout_testmode ; No, done.
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 187
diff changeset
371 ; Must be in surface mode
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 187
diff changeset
372 btfss FLAG_ccr_mode ; =1: CCR mode (Fixed ppO2 or Sensor) active
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 187
diff changeset
373 bra timeout_testmode ; No, not CCR
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 187
diff changeset
374 movlw timeout_ccr_surface ; [s] CCR Surface mode timeout
ebc28381f17d NEW: Show Bailout Gas List in Surface mode (CCR Modes)
heinrichsweikamp
parents: 187
diff changeset
375
0
heinrichsweikamp
parents:
diff changeset
376 global timeout_testmode
heinrichsweikamp
parents:
diff changeset
377 timeout_testmode:
heinrichsweikamp
parents:
diff changeset
378 incf timeout_counter2,F ; increase timeout counter
heinrichsweikamp
parents:
diff changeset
379 cpfsgt timeout_counter2 ; Compare with timeout_counter2
heinrichsweikamp
parents:
diff changeset
380 return ; return, no timeout
heinrichsweikamp
parents:
diff changeset
381 bsf sleepmode ; Set Flag
heinrichsweikamp
parents:
diff changeset
382 return ; Return
heinrichsweikamp
parents:
diff changeset
383
heinrichsweikamp
parents:
diff changeset
384 END