Mercurial > public > mk2
annotate code_part1/OSTC_code_asm_part1/surfmode.asm @ 656:5063fb9f07db
2.55beta release
author | heinrichsweikamp |
---|---|
date | Mon, 29 Oct 2012 20:05:59 +0100 |
parents | 420e62cd88ad |
children | c6220d340684 |
rev | line source |
---|---|
0 | 1 ; OSTC - diving computer code |
2 ; Copyright (C) 2008 HeinrichsWeikamp GbR | |
3 | |
4 ; This program is free software: you can redistribute it and/or modify | |
5 ; it under the terms of the GNU General Public License as published by | |
6 ; the Free Software Foundation, either version 3 of the License, or | |
7 ; (at your option) any later version. | |
8 | |
9 ; This program is distributed in the hope that it will be useful, | |
10 ; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
11 ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
12 ; GNU General Public License for more details. | |
13 | |
14 ; You should have received a copy of the GNU General Public License | |
15 ; along with this program. If not, see <http://www.gnu.org/licenses/>. | |
16 | |
17 | |
18 ; routines for Surface mode | |
19 ; written by: Matthias Heinrichs, info@heinrichsweikamp.com | |
20 ; written: 10/01/05 | |
21 ; last updated: 080905 | |
22 ; known bugs: | |
23 ; ToDo: | |
24 | |
25 surfloop: | |
26 ; Boot tasks for all modes | |
482
8e1fb9cdd62a
lock sensor for surfacemode until value is stable
heinrichsweikamp
parents:
474
diff
changeset
|
27 bcf s_unlock_after_sleep ; Lock sensor results |
8e1fb9cdd62a
lock sensor for surfacemode until value is stable
heinrichsweikamp
parents:
474
diff
changeset
|
28 call restart_set_modes_and_flags ; Sets decomode flags |
0 | 29 clrf lo |
30 movff lo,char_I_const_ppO2 ; reset to standard mode, OSTC assumes Air breathing at the surface! | |
31 | |
499
2ac77db9c150
Added OLED brightness setting, texts 280, 312 and 313 need update
heinrichsweikamp
parents:
497
diff
changeset
|
32 call PLED_brightness_full ; max. brightness |
0 | 33 |
34 call I2CReset | |
35 call PLED_boot | |
36 call PLED_serial ; Show OSTC serial and firmware version | |
37 call PLED_clock ; display time | |
38 call update_date ; display date | |
495 | 39 call get_battery_voltage ; get battery voltage |
0 | 40 movff last_surfpressure_30min+0,int_I_pres_respiration+0 ; copy surface air pressure to deco routine |
41 movff last_surfpressure_30min+1,int_I_pres_respiration+1 ; 30min old values | |
42 movff last_surfpressure_30min+0,int_I_pres_surface+0 ; copy surface air pressure to deco routine | |
43 movff last_surfpressure_30min+1,int_I_pres_surface+1 ; 30min old values | |
44 | |
626
bab5a9fc1b10
restore last used customview in dive- and surface-mode
heinrichsweikamp
parents:
607
diff
changeset
|
45 ; Reload last customview |
bab5a9fc1b10
restore last used customview in dive- and surface-mode
heinrichsweikamp
parents:
607
diff
changeset
|
46 read_int_eeprom d'93' ; Read last selected customview surface mode into EEDATA |
bab5a9fc1b10
restore last used customview in dive- and surface-mode
heinrichsweikamp
parents:
607
diff
changeset
|
47 movff EEDATA,menupos3 ; Copy to menupos3 |
bab5a9fc1b10
restore last used customview in dive- and surface-mode
heinrichsweikamp
parents:
607
diff
changeset
|
48 call surfcustomview_toggle2 ; Show customview |
156 | 49 |
0 | 50 btfsc gauge_mode ; Ignore in gauge mode |
51 bra surfloop1 | |
52 btfsc FLAG_apnoe_mode ; Ignore in Apnoe mode | |
53 bra surfloop1 | |
54 | |
55 ; Startup tasks for decompression modes | |
43 | 56 call PLED_display_cns_surface ; Update surface CNS display (If allowed by CF15) |
0 | 57 call PLED_desaturation_time ; display desaturation time |
58 call PLED_nofly_time ; display nofly time | |
13 | 59 |
0 | 60 call PLED_active_gas_surfmode ; Show start gas |
61 | |
62 surfloop1: | |
63 btfss gauge_mode ; Display only in gauge mode | |
64 bra surfloop2 | |
65 DISPLAYTEXT d'103' ; Gauge mode | |
66 surfloop2: | |
67 btfss FLAG_apnoe_mode ; Display only in Apnoe mode | |
68 bra surfloop3 | |
69 DISPLAYTEXT d'116' ; Apnoe mode | |
70 | |
71 surfloop3: | |
72 ; Startup tasks for all modes | |
73 clrf timeout_counter2 | |
74 clrf timeout_counter3 | |
75 bcf premenu ; clear premenu flag | |
76 bcf menubit ; clear menu flag | |
474 | 77 clrf timer1int_counter2 ; reset state counter |
482
8e1fb9cdd62a
lock sensor for surfacemode until value is stable
heinrichsweikamp
parents:
474
diff
changeset
|
78 bcf pressure_refresh ; Start new sensor run |
0 | 79 clrf last_pressure+0 |
80 clrf last_pressure+1 | |
81 clrf last_temperature+0 | |
82 clrf last_temperature+1 | |
83 | |
84 movlw d'5' | |
85 movwf timeout_counter ; reload counter | |
86 | |
21 | 87 bcf LED_blue |
88 bcf LED_red | |
0 | 89 bcf simulatormode_active ; Quit simulator mode (if active) |
90 bcf standalone_simulator ; Quit simulator mode (if active) | |
91 WIN_TOP .0 | |
92 WIN_LEFT .0 | |
93 WIN_FONT FT_SMALL | |
94 WIN_INVERT .0 ; Init new Wordprocessor | |
3 | 95 call PLED_standard_color |
96 | |
0 | 97 bcf switch_left |
98 bcf switch_right | |
4 | 99 call PLED_active_gas_surfmode ; Show start gas / SetPoint |
0 | 100 call PLED_custom_text ; Displays custom text |
100 | 101 clrf cf_checker_counter ; next cf to check |
0 | 102 ostc_debug 'G' ; Sends debug-information to screen if debugmode active |
233 | 103 |
104 ; Desaturation time needs: | |
105 ; int_I_pres_surface | |
106 ; char_I_desaturation_multiplier | |
469 | 107 movlw d'0' |
108 movff WREG,char_I_deco_model ; ZH-L16 | |
0 | 109 GETCUSTOM8 d'12' ; Desaturation multiplier % |
233 | 110 movff WREG,char_I_desaturation_multiplier |
111 | |
116 | 112 call deco_calc_desaturation_time ; calculate desaturation time |
0 | 113 movlb b'00000001' ; select ram bank 1 |
114 ostc_debug 'H' ; Sends debug-information to screen if debugmode active | |
115 | |
116 call wait_switches ; Waits until switches are released, resets flag if button stays pressed! | |
117 | |
118 surfloop_loop: | |
119 btfss onesecupdate ; do every second tasks? | |
120 bra surfloop_loop2 ; no, loop | |
121 | |
122 btfss FLAG_const_ppO2_mode ; are we in const. ppO2 mode? | |
123 bra surfloop_loop1 ; No | |
124 ; One Second tasks for ppO2 modes | |
125 | |
285 | 126 bra surfloop_loop1 ; |
0 | 127 |
128 surfloop_loop1: | |
129 ; One Second tasks for all modes | |
130 call PLED_clock ; update clock | |
131 call test_charger ; check if charger IC is active | |
132 call timeout_surfmode ; check timeout | |
519 | 133 call update_batt_voltage ; display battery voltage |
0 | 134 call timeout_premenu ; timeout premenu |
135 call set_leds_surfmode ; Sets Warning and No-Fly LEDs | |
94 | 136 call check_customfunctions ; Checks CF functions and displays warning symbol if something critical is wrong |
107 | 137 call surfcustomview_second ; Do every-second tasks for the custom view area |
644 | 138 call dive_type_icons ; Draw Air/Nitrox/Trimix color icon. |
519 | 139 |
140 ; Every 2 seconds, overwrite with GF value (if needed to display) | |
141 btfsc secs,1 ; Alternating every 2sec (if needed) | |
142 call PLED_display_cns_surface ; Display CNS (if > CF15). | |
143 btfss secs,1 | |
144 call PLED_display_gf_surface ; Display GF (if > CF8). | |
145 | |
146 btfsc enter_error_sleep ; Enter Fatal Error Routine? | |
147 call fatal_error_sleep ; Yes (In Sleepmode.asm!) | |
148 bcf onesecupdate ; every second tasks done | |
0 | 149 |
150 surfloop_loop2: | |
151 ; Tasks approx. every 50ms for all modes | |
152 call test_switches_surfmode ; check switches | |
153 | |
154 ; Sensor tasks for all modes | |
482
8e1fb9cdd62a
lock sensor for surfacemode until value is stable
heinrichsweikamp
parents:
474
diff
changeset
|
155 btfss pressure_refresh ; new pressure available? |
8e1fb9cdd62a
lock sensor for surfacemode until value is stable
heinrichsweikamp
parents:
474
diff
changeset
|
156 bra surfloop_loop2a ; no |
8e1fb9cdd62a
lock sensor for surfacemode until value is stable
heinrichsweikamp
parents:
474
diff
changeset
|
157 |
8e1fb9cdd62a
lock sensor for surfacemode until value is stable
heinrichsweikamp
parents:
474
diff
changeset
|
158 btfss s_unlock_after_sleep ; sensor results locked? |
8e1fb9cdd62a
lock sensor for surfacemode until value is stable
heinrichsweikamp
parents:
474
diff
changeset
|
159 bra surfloop_loop3 ; Yes, ignore |
8e1fb9cdd62a
lock sensor for surfacemode until value is stable
heinrichsweikamp
parents:
474
diff
changeset
|
160 |
8e1fb9cdd62a
lock sensor for surfacemode until value is stable
heinrichsweikamp
parents:
474
diff
changeset
|
161 ; New sensor value available |
0 | 162 call update_surf_press ; display surface pressure |
163 call PLED_temp_surfmode ; Displays temperature | |
164 call set_dive_modes ; tests if depth>threshold | |
125 | 165 call altimeter_calc |
166 movf menupos3,W ; Get customview status. | |
167 bnz surfloop_loop3 ; Already used ? | |
168 call altimeter_display | |
482
8e1fb9cdd62a
lock sensor for surfacemode until value is stable
heinrichsweikamp
parents:
474
diff
changeset
|
169 call get_battery_voltage ; get battery voltage |
8e1fb9cdd62a
lock sensor for surfacemode until value is stable
heinrichsweikamp
parents:
474
diff
changeset
|
170 |
125 | 171 surfloop_loop3: |
482
8e1fb9cdd62a
lock sensor for surfacemode until value is stable
heinrichsweikamp
parents:
474
diff
changeset
|
172 bsf s_unlock_after_sleep ; unlock sensor results |
0 | 173 bcf pressure_refresh ; until new pressure is available |
174 | |
482
8e1fb9cdd62a
lock sensor for surfacemode until value is stable
heinrichsweikamp
parents:
474
diff
changeset
|
175 surfloop_loop2a: |
0 | 176 ; One minute tasks for all modes |
177 btfsc oneminupdate ; do every minute tasks | |
178 call update_surfloop60 ; yes, e.g. update time and date | |
179 | |
180 ; Mode tasks | |
181 btfsc menubit ; Menu? | |
182 goto menu ; Menu! | |
183 btfsc divemode ; Divemode active? | |
184 goto diveloop ; Yes, switch into Divemode! | |
185 btfsc sleepmode ; Sleepmode active? | |
186 goto sleeploop ; Yes, switch into sleepmode! | |
107 | 187 |
188 btfsc toggle_customview ; Next view? | |
189 call surfcustomview_toggle ; Yes, show next customview (and delete this flag) | |
190 | |
0 | 191 ; Check for the different UART flags |
192 btfsc dump_external_eeprom ; Start interface (dumps EEPROM BANK 0 + additional data)? | |
193 goto menu_interface ; Yes! | |
194 btfsc uart_settime ; Sync clock with PC? | |
195 goto sync_clock ; Yes! | |
196 btfsc internal_eeprom_write ; Access internal EEPROM BANK 0 via UART module | |
197 goto internal_eeprom_access_b0 ; Yes! | |
198 btfsc internal_eeprom_write2 ; Access internal EEPROM BANK 1 via UART module | |
199 goto internal_eeprom_access_b1 ; Yes! | |
578 | 200 btfsc internal_eeprom_write3 ; Access internal EEPROM BANK 2 via UART module |
201 goto internal_eeprom_access_b2 ; Yes! | |
0 | 202 btfsc uart_send_hash ; Send MD2 hash values |
203 goto send_md2_hash ; Yes! | |
204 btfsc uart_send_int_eeprom ; Send internal EEPROM BANK 0 | |
205 goto send_int_eeprom_b0 ; Yes! | |
206 btfsc uart_reset_decodata ; Reset Deco Data? | |
207 goto reset_decodata ; Yes! | |
208 btfsc uart_send_int_eeprom2 ; Send internal EEPROM BANK 1 | |
209 goto send_int_eeprom_b1 ; Yes! | |
578 | 210 btfsc uart_send_int_eeprom3 ; Send internal EEPROM BANK 2 |
211 goto send_int_eeprom_b2 ; Yes! | |
283
4ec488f046f4
Battery sign color coded, work on new uart-started 115200Baud bootloader (Do NOT use yet!)
heinrichsweikamp
parents:
257
diff
changeset
|
212 btfsc uart_store_tissue_data ; Store tissue data? |
0 | 213 goto uart_store_tissues ; Yes! |
283
4ec488f046f4
Battery sign color coded, work on new uart-started 115200Baud bootloader (Do NOT use yet!)
heinrichsweikamp
parents:
257
diff
changeset
|
214 btfsc uart_115200_bootloader ; Look for 115200Baud bootloader? |
4ec488f046f4
Battery sign color coded, work on new uart-started 115200Baud bootloader (Do NOT use yet!)
heinrichsweikamp
parents:
257
diff
changeset
|
215 goto uart_115k_bootloader ; Yes! |
297
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
285
diff
changeset
|
216 btfsc uart_reset_battery_stats ; Reset Battery stats? |
ceedf078b2d8
Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german
Heinrichsweikamp
parents:
285
diff
changeset
|
217 goto reset_battery_stats ; Yes! |
0 | 218 |
330 | 219 btfsc uart_dump_screen ; Dumps screen contains ? |
331 | 220 call dump_screen ; Yes! |
0 | 221 |
222 bra surfloop_loop ; loop surfacemode | |
223 | |
224 | |
225 update_surfloop60: | |
226 ; One minute tasks for all modes | |
4 | 227 ; call PLED_active_gas_surfmode ; Show start gas / SetPoint |
0 | 228 call update_date ; and date in divemode |
229 call calc_deko_surfmode ; calculate desaturation every minute | |
230 call check_temp_extrema ; check for new temperature extremas | |
231 call PLED_custom_text ; Displays custom text | |
107 | 232 call surfcustomview_minute ; Do every-minute tasks for the custom view area |
0 | 233 |
234 btfsc gauge_mode ; Ignore in gauge mode | |
235 bra update_surfloop60_2 | |
236 btfsc FLAG_apnoe_mode ; Ignore in Apnoe mode | |
237 bra update_surfloop60_2 | |
238 | |
239 ; One Minute tasks for deco modes | |
240 call PLED_nofly_time ; display nofly time | |
241 call PLED_desaturation_time ; display desaturation time | |
13 | 242 btfsc premenu ; Not when "Menu?" is displayed! |
243 bra update_surfloop60_2 | |
244 | |
0 | 245 update_surfloop60_2: |
246 bcf oneminupdate | |
247 return | |
248 | |
249 set_leds_surfmode: | |
250 btfsc nofly_active | |
21 | 251 btg LED_blue |
0 | 252 return |
253 | |
353
b5b030c1ae7e
Avoid spurious switch-depth stops with 3 or more gas.
JeanDo
parents:
344
diff
changeset
|
254 ;============================================================================= |
b5b030c1ae7e
Avoid spurious switch-depth stops with 3 or more gas.
JeanDo
parents:
344
diff
changeset
|
255 |
0 | 256 calc_deko_surfmode: |
257 ostc_debug 'I' ; Sends debug-information to screen if debugmode active | |
258 | |
259 movff last_surfpressure+0,int_I_pres_surface+0 ; copy surface air pressure to deco routine | |
260 movff last_surfpressure+1,int_I_pres_surface+1 | |
453
38b38b105782
compute desat based on 30min old surface pressure
heinrichsweikamp
parents:
416
diff
changeset
|
261 calc_deko_surfmode2: |
353
b5b030c1ae7e
Avoid spurious switch-depth stops with 3 or more gas.
JeanDo
parents:
344
diff
changeset
|
262 clrf WREG ; Use as buffer |
b5b030c1ae7e
Avoid spurious switch-depth stops with 3 or more gas.
JeanDo
parents:
344
diff
changeset
|
263 movff WREG,char_I_He_ratio ; No He at the Surface |
b5b030c1ae7e
Avoid spurious switch-depth stops with 3 or more gas.
JeanDo
parents:
344
diff
changeset
|
264 movlw d'79' ; 79% N2 |
b5b030c1ae7e
Avoid spurious switch-depth stops with 3 or more gas.
JeanDo
parents:
344
diff
changeset
|
265 movff WREG,char_I_N2_ratio ; Air at the Surface |
0 | 266 |
341
2144f19fa1eb
BUGFIX protect against ISR changing pressure/temperature while reading it.
JeanDo
parents:
297
diff
changeset
|
267 SAFE_2BYTE_COPY amb_pressure,int_I_pres_respiration ; copy surface air pressure to deco routine |
0 | 268 GETCUSTOM8 d'11' ; Saturation multiplier % |
236 | 269 movff WREG,char_I_saturation_multiplier |
0 | 270 GETCUSTOM8 d'12' ; Desaturation multiplier % |
236 | 271 movff WREG,char_I_desaturation_multiplier |
0 | 272 |
116 | 273 call deco_calc_wo_deco_step_1_min ; calculate deco in surface mode |
0 | 274 movlb b'00000001' ; select ram bank 1 |
521 | 275 |
0 | 276 ostc_debug 'J' ; Sends debug-information to screen if debugmode active |
277 return | |
278 | |
353
b5b030c1ae7e
Avoid spurious switch-depth stops with 3 or more gas.
JeanDo
parents:
344
diff
changeset
|
279 ;============================================================================= |
0 | 280 |
281 test_charger: | |
282 bcf TRISC,1 ; CHRG_OUT output | |
283 bsf CHRG_OUT | |
284 | |
285 bcf cc_active ; Constant Current mode active? | |
286 btfss CHRG_IN ; If CHRG_IN=0 -> CC active | |
287 bsf cc_active ; Constant Current mode Active! | |
288 | |
289 bcf CHRG_OUT | |
290 bsf TRISC,1 ; CHRG_OUT high impedance | |
291 | |
292 WAIT10US d'10' | |
293 | |
294 bcf cv_active ; Constant Voltage mode Active? | |
295 btfss CHRG_IN ; If CHRG_IN=0 -> CV active | |
296 bsf cv_active ; Constant Voltage mode active! | |
297 | |
298 bcf TRISC,1 ; CHRG_OUT output | |
299 bcf CHRG_OUT | |
300 | |
301 btfsc cc_active | |
302 bra show_cc_active | |
303 btfsc cv_active | |
304 bra show_cv_active | |
305 | |
306 bsf TRISC,1 ; CHRG_OUT high impedance | |
307 | |
416
3abf9d7dafae
diabling uart module when no USB is attached
heinrichsweikamp
parents:
397
diff
changeset
|
308 ; -> Charger inactive or ready |
3abf9d7dafae
diabling uart module when no USB is attached
heinrichsweikamp
parents:
397
diff
changeset
|
309 |
3abf9d7dafae
diabling uart module when no USB is attached
heinrichsweikamp
parents:
397
diff
changeset
|
310 ; Disable when no USB power is attached |
3abf9d7dafae
diabling uart module when no USB is attached
heinrichsweikamp
parents:
397
diff
changeset
|
311 btfsc RCSTA,7 ; RS232 already disabled |
3abf9d7dafae
diabling uart module when no USB is attached
heinrichsweikamp
parents:
397
diff
changeset
|
312 call disable_rs232 ; No, disable UART module |
3abf9d7dafae
diabling uart module when no USB is attached
heinrichsweikamp
parents:
397
diff
changeset
|
313 |
0 | 314 btfss charge_done ; charge done? |
315 bra test_charger2 ; No, add incomplete cycle! | |
316 | |
317 ; Yes, store all data for complete cycle | |
318 bcf charge_started ; Clear flag | |
319 bcf charge_done ; Clear flag | |
583
d14f72af4c07
Battery statistics reset when battery is fully charged
heinrichsweikamp
parents:
578
diff
changeset
|
320 ; Store incomplete cycles |
0 | 321 read_int_eeprom d'50' ; Read byte (stored in EEDATA) |
322 movff EEDATA,temp1 ; Low byte | |
323 read_int_eeprom d'51' ; Read byte (stored in EEDATA) | |
324 movff EEDATA,temp2 ; high byte | |
325 bcf STATUS,C | |
326 movlw d'1' | |
327 addwf temp1 | |
328 movlw d'0' | |
329 addwfc temp2 | |
330 movff temp1,EEDATA | |
331 write_int_eeprom d'50' ; write byte stored in EEDATA | |
332 movff temp2,EEDATA | |
333 write_int_eeprom d'51' ; write byte stored in EEDATA | |
334 | |
335 ; Store complete cycles | |
336 read_int_eeprom d'52' ; Read byte (stored in EEDATA) | |
337 movff EEDATA,temp1 ; Low byte | |
338 read_int_eeprom d'53' ; Read byte (stored in EEDATA) | |
339 movff EEDATA,temp2 ; high byte | |
340 bcf STATUS,C | |
341 movlw d'1' | |
342 addwf temp1 | |
343 movlw d'0' | |
344 addwfc temp2 | |
345 movff temp1,EEDATA | |
346 write_int_eeprom d'52' ; write byte stored in EEDATA | |
347 movff temp2,EEDATA | |
348 write_int_eeprom d'53' ; write byte stored in EEDATA | |
349 ; Store date of complete cycle | |
350 movff month,EEDATA | |
351 write_int_eeprom d'47' | |
352 movff day,EEDATA | |
353 write_int_eeprom d'48' | |
354 movff year,EEDATA | |
355 write_int_eeprom d'49' | |
356 | |
583
d14f72af4c07
Battery statistics reset when battery is fully charged
heinrichsweikamp
parents:
578
diff
changeset
|
357 ; Reset lowest battery seen |
d14f72af4c07
Battery statistics reset when battery is fully charged
heinrichsweikamp
parents:
578
diff
changeset
|
358 movlw LOW d'4200' ; reset to 4.2V |
d14f72af4c07
Battery statistics reset when battery is fully charged
heinrichsweikamp
parents:
578
diff
changeset
|
359 movwf EEDATA |
d14f72af4c07
Battery statistics reset when battery is fully charged
heinrichsweikamp
parents:
578
diff
changeset
|
360 write_int_eeprom d'40' |
d14f72af4c07
Battery statistics reset when battery is fully charged
heinrichsweikamp
parents:
578
diff
changeset
|
361 movlw HIGH d'4200' ; reset to 4.2V |
d14f72af4c07
Battery statistics reset when battery is fully charged
heinrichsweikamp
parents:
578
diff
changeset
|
362 movwf EEDATA |
d14f72af4c07
Battery statistics reset when battery is fully charged
heinrichsweikamp
parents:
578
diff
changeset
|
363 write_int_eeprom d'41' |
d14f72af4c07
Battery statistics reset when battery is fully charged
heinrichsweikamp
parents:
578
diff
changeset
|
364 movff month,EEDATA |
d14f72af4c07
Battery statistics reset when battery is fully charged
heinrichsweikamp
parents:
578
diff
changeset
|
365 write_int_eeprom d'42' |
d14f72af4c07
Battery statistics reset when battery is fully charged
heinrichsweikamp
parents:
578
diff
changeset
|
366 movff day,EEDATA |
d14f72af4c07
Battery statistics reset when battery is fully charged
heinrichsweikamp
parents:
578
diff
changeset
|
367 write_int_eeprom d'43' |
d14f72af4c07
Battery statistics reset when battery is fully charged
heinrichsweikamp
parents:
578
diff
changeset
|
368 movff year,EEDATA |
d14f72af4c07
Battery statistics reset when battery is fully charged
heinrichsweikamp
parents:
578
diff
changeset
|
369 write_int_eeprom d'44' |
d14f72af4c07
Battery statistics reset when battery is fully charged
heinrichsweikamp
parents:
578
diff
changeset
|
370 ; Reset temperature |
d14f72af4c07
Battery statistics reset when battery is fully charged
heinrichsweikamp
parents:
578
diff
changeset
|
371 SAFE_2BYTE_COPY temperature,lo |
d14f72af4c07
Battery statistics reset when battery is fully charged
heinrichsweikamp
parents:
578
diff
changeset
|
372 movff lo,EEDATA |
d14f72af4c07
Battery statistics reset when battery is fully charged
heinrichsweikamp
parents:
578
diff
changeset
|
373 write_int_eeprom d'45' |
d14f72af4c07
Battery statistics reset when battery is fully charged
heinrichsweikamp
parents:
578
diff
changeset
|
374 movff hi,EEDATA |
d14f72af4c07
Battery statistics reset when battery is fully charged
heinrichsweikamp
parents:
578
diff
changeset
|
375 write_int_eeprom d'46' |
d14f72af4c07
Battery statistics reset when battery is fully charged
heinrichsweikamp
parents:
578
diff
changeset
|
376 ; Reset temperature extremas |
d14f72af4c07
Battery statistics reset when battery is fully charged
heinrichsweikamp
parents:
578
diff
changeset
|
377 SAFE_2BYTE_COPY temperature,lo |
d14f72af4c07
Battery statistics reset when battery is fully charged
heinrichsweikamp
parents:
578
diff
changeset
|
378 movff lo,EEDATA ; Reset mimimum extrema |
d14f72af4c07
Battery statistics reset when battery is fully charged
heinrichsweikamp
parents:
578
diff
changeset
|
379 write_int_eeprom d'54' |
d14f72af4c07
Battery statistics reset when battery is fully charged
heinrichsweikamp
parents:
578
diff
changeset
|
380 movff hi,EEDATA |
d14f72af4c07
Battery statistics reset when battery is fully charged
heinrichsweikamp
parents:
578
diff
changeset
|
381 write_int_eeprom d'55' |
d14f72af4c07
Battery statistics reset when battery is fully charged
heinrichsweikamp
parents:
578
diff
changeset
|
382 movff month,EEDATA |
d14f72af4c07
Battery statistics reset when battery is fully charged
heinrichsweikamp
parents:
578
diff
changeset
|
383 write_int_eeprom d'56' |
d14f72af4c07
Battery statistics reset when battery is fully charged
heinrichsweikamp
parents:
578
diff
changeset
|
384 movff day,EEDATA |
d14f72af4c07
Battery statistics reset when battery is fully charged
heinrichsweikamp
parents:
578
diff
changeset
|
385 write_int_eeprom d'57' |
d14f72af4c07
Battery statistics reset when battery is fully charged
heinrichsweikamp
parents:
578
diff
changeset
|
386 movff year,EEDATA |
d14f72af4c07
Battery statistics reset when battery is fully charged
heinrichsweikamp
parents:
578
diff
changeset
|
387 write_int_eeprom d'58' |
d14f72af4c07
Battery statistics reset when battery is fully charged
heinrichsweikamp
parents:
578
diff
changeset
|
388 movff lo,EEDATA ; Reset maximum extrema |
d14f72af4c07
Battery statistics reset when battery is fully charged
heinrichsweikamp
parents:
578
diff
changeset
|
389 write_int_eeprom d'59' |
d14f72af4c07
Battery statistics reset when battery is fully charged
heinrichsweikamp
parents:
578
diff
changeset
|
390 movff hi,EEDATA |
d14f72af4c07
Battery statistics reset when battery is fully charged
heinrichsweikamp
parents:
578
diff
changeset
|
391 write_int_eeprom d'60' |
d14f72af4c07
Battery statistics reset when battery is fully charged
heinrichsweikamp
parents:
578
diff
changeset
|
392 movff month,EEDATA |
d14f72af4c07
Battery statistics reset when battery is fully charged
heinrichsweikamp
parents:
578
diff
changeset
|
393 write_int_eeprom d'61' |
d14f72af4c07
Battery statistics reset when battery is fully charged
heinrichsweikamp
parents:
578
diff
changeset
|
394 movff day,EEDATA |
d14f72af4c07
Battery statistics reset when battery is fully charged
heinrichsweikamp
parents:
578
diff
changeset
|
395 write_int_eeprom d'62' |
d14f72af4c07
Battery statistics reset when battery is fully charged
heinrichsweikamp
parents:
578
diff
changeset
|
396 movff year,EEDATA |
d14f72af4c07
Battery statistics reset when battery is fully charged
heinrichsweikamp
parents:
578
diff
changeset
|
397 write_int_eeprom d'63' |
0 | 398 return |
399 | |
400 test_charger2: | |
401 btfss charge_started ; Did the charger ever start? | |
402 return ; No, quit! | |
403 | |
404 bcf charge_started ; Clear flag | |
583
d14f72af4c07
Battery statistics reset when battery is fully charged
heinrichsweikamp
parents:
578
diff
changeset
|
405 ; Store incomplete cycles |
0 | 406 read_int_eeprom d'50' ; Read byte (stored in EEDATA) |
407 movff EEDATA,temp1 ; Low byte | |
408 read_int_eeprom d'51' ; Read byte (stored in EEDATA) | |
409 movff EEDATA,temp2 ; high byte | |
410 bcf STATUS,C | |
411 movlw d'1' | |
412 addwf temp1 | |
413 movlw d'0' | |
414 addwfc temp2 | |
415 movff temp1,EEDATA | |
416 write_int_eeprom d'50' ; write byte stored in EEDATA | |
417 movff temp2,EEDATA | |
418 write_int_eeprom d'51' ; write byte stored in EEDATA | |
419 return | |
420 | |
421 show_cv_active: ; CV mode | |
486
c7b663939737
making waitms speed-independent, desat-time fix
heinrichsweikamp
parents:
482
diff
changeset
|
422 ; Enable RS232 only when USB power attached |
416
3abf9d7dafae
diabling uart module when no USB is attached
heinrichsweikamp
parents:
397
diff
changeset
|
423 btfss RCSTA,7 ; RS232 already enabled? |
3abf9d7dafae
diabling uart module when no USB is attached
heinrichsweikamp
parents:
397
diff
changeset
|
424 call enable_rs232 ; No, start UART module |
21 | 425 bsf LED_red |
0 | 426 WAITMS d'100' |
21 | 427 bcf LED_red |
0 | 428 WAITMS d'100' |
21 | 429 bsf LED_red |
0 | 430 bsf charge_done ; Charge cycle finished |
431 return | |
432 | |
433 show_cc_active: ; CC mode | |
416
3abf9d7dafae
diabling uart module when no USB is attached
heinrichsweikamp
parents:
397
diff
changeset
|
434 ; Enable only when USB power attached |
3abf9d7dafae
diabling uart module when no USB is attached
heinrichsweikamp
parents:
397
diff
changeset
|
435 btfss RCSTA,7 ; RS232 already enabled? |
3abf9d7dafae
diabling uart module when no USB is attached
heinrichsweikamp
parents:
397
diff
changeset
|
436 call enable_rs232 ; No, start UART module |
21 | 437 bsf LED_red |
0 | 438 bsf charge_started ; Charger started in CC mode |
439 bcf charge_done ; Charge cycle not finished | |
440 return | |
441 | |
442 | |
443 timeout_premenu: | |
444 btfss premenu ; is "Menu?" displayed? | |
445 return ; No | |
446 incf timeout_counter3,F ; Yes... | |
447 GETCUSTOM8 d'4' ; loads premenu_timeout into WREG | |
448 cpfsgt timeout_counter3 ; ... longer then premenu_timeout | |
449 return ; No! | |
450 bcf premenu ; Yes, so clear "Menu?" and clear pre_menu bit | |
451 | |
452 call PLED_topline_box_clear ; Clears Bar at the top | |
453 | |
454 btfsc gauge_mode | |
455 bra timeout_premenu2 ; Skip in Gauge mode | |
456 btfsc FLAG_apnoe_mode | |
457 bra timeout_premenu2 ; Skip in Apnoe mode | |
13 | 458 |
0 | 459 timeout_premenu2: |
460 call update_surf_press ; rewrite serial number | |
461 call PLED_serial ; rewrite serial number | |
462 clrf timeout_counter3 ; Also clear timeout | |
463 bcf switch_left ; and debounce switches | |
464 bcf switch_right | |
465 return | |
466 | |
467 test_switches_surfmode: ; checks switches in surfacemode | |
468 btfsc switch_left | |
469 bra test_switches_surfmode2 | |
470 btfsc switch_right | |
471 bra test_switches_surfmode3 | |
472 | |
473 ; No button press, reset timer0 | |
474 bcf T0CON,TMR0ON ; Stop Timer 0 | |
475 bcf INTCON,TMR0IF ; Clear flag | |
476 clrf TMR0H | |
477 clrf TMR0L | |
478 bcf INTCON,INT0IF ; Clear flag | |
479 bcf INTCON3,INT1IF ; Clear flag | |
480 return | |
481 | |
482 test_switches_surfmode3: | |
483 bcf switch_right | |
484 call PLED_topline_box ; Write a filled bar at the top | |
485 WIN_INVERT .1 ; Init new Wordprocessor | |
486 DISPLAYTEXT .4 ;Menu? | |
487 WIN_INVERT .0 ; Init new Wordprocessor | |
488 bsf premenu | |
489 clrf timeout_counter2 | |
490 return | |
491 | |
492 test_switches_surfmode2: | |
576 | 493 call wait_switches ; Waits until switches are released, resets flag if button stays pressed! |
0 | 494 btfss premenu |
13 | 495 bra test_switches_surfmode4 |
0 | 496 bsf menubit ; Enter Menu! |
497 return | |
498 | |
13 | 499 test_switches_surfmode4: |
107 | 500 bsf toggle_customview ; Toggle customview (Cleared in customview.asm) |
13 | 501 return |
0 | 502 |
503 timeout_surfmode: | |
504 incf timeout_counter2,F ; increase timeout counter | |
505 GETCUSTOM8 d'3' ; loads surfloop_timeout into WREG | |
506 addlw d'5' ; adds five seconds in case timout=zero! | |
507 btfsc STATUS,C ; > 255? | |
508 movlw d'255' ; Set to 255... | |
509 decf WREG,F ; Limit to 254 | |
510 cpfsgt timeout_counter2 ; Compare with timeout_counter2 | |
511 return ; return, no timeout | |
512 bsf sleepmode ; Set Flag | |
513 return ; Return |