Mercurial > public > hwos_code

annotate src/surfmode.asm @ 352:5c6da9fa5cb0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
add setpoint change to first sample in CCR mode
author heinrichsweikamp
date Tue, 28 Jul 2015 13:23:09 +0200
parents 653a3ab08062
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