Mercurial > public > hwos_code
annotate src/logbook.asm @ 533:dfac393b2199
CHANGE: CCR Calibration gas range limited to O2% 21-25 and 95-100 to save button presses
Layout adjustsments in divemode (CCR ppO2(Dil)
author | heinrichsweikamp |
---|---|
date | Mon, 21 Aug 2017 14:55:36 +0200 |
parents | d36f9fca10ae |
children | 7c408bfaf2e8 |
rev | line source |
---|---|
0 | 1 ;============================================================================= |
2 ; | |
3 ; File logbook.asm | |
4 ; | |
5 ; Logbook | |
6 ; | |
7 ; Copyright (c) 2011, JD Gascuel, HeinrichsWeikamp, all right reserved. | |
8 ;============================================================================= | |
9 ; HISTORY | |
10 ; 2011-11-12 : [mH] moving from OSTC code | |
11 | |
12 ;============================================================================= | |
13 ; Temp data, local to this module, moved to ACCES0 area. | |
14 ; | |
15 | |
275 | 16 #include "hwos.inc" ; Mandatory header |
0 | 17 #include "tft.inc" |
18 #include "external_flash.inc" | |
19 #include "math.inc" | |
20 #include "strings.inc" | |
21 #include "convert.inc" | |
22 #include "tft_outputs.inc" | |
23 #include "eeprom_rs232.inc" | |
24 #include "menu_processor.inc" | |
25 #include "wait.inc" | |
26 #include "start.inc" | |
27 #include "surfmode.inc" | |
28 #include "divemode.inc" | |
29 #include "ghostwriter.inc" | |
30 | |
66
00636132cca6
BUGFIX: Maintain last selected customview in surface mode
heinrichsweikamp
parents:
50
diff
changeset
|
31 extern do_main_menu2,comm_mode |
0 | 32 |
418 | 33 CBLOCK tmp+0x36 ; Keep space for menu processor. |
0 | 34 count_temperature ; Current sample count for temperature divisor |
35 count_deco ; Current sample count for deco (ceiling) divisor | |
36 logbook_cur_depth:2 ; Current depth, for drawing profile. | |
37 logbook_cur_tp:2 ; Current temperature, for drawing profile. | |
38 logbook_last_tp ; Y of the last item in Tp° curve. | |
39 logbook_min_tp:2 ; Min temperature, for drawing profile. | |
40 logbook_max_tp:2 ; Maximum temperature, for drawing profile. | |
41 logbook_ceiling ; Current ceiling, for drawing profile. | |
418 | 42 logbook_flags ; Flags only used in logbook.asm |
43 logbook_page_number ; Page# in logbook | |
44 logbook_divenumber ; # of dive in list during search | |
45 logbook_divenumber_temp ; # of dive in list during search | |
46 logbook_menupos_temp ; Last position of cursor | |
47 profile_temp:2 ; Temp for profile display | |
48 profile_temp2:2 ; Temp for profile display | |
49 logbook_max_dive_counter ; Counts dive# to zero | |
50 logbook_max_dive_counter_temp; Counts dive# to zero | |
51 logbook_sample_counter:2; Amount of read samples | |
52 divemins_backup ; Backup of divemins+0 | |
53 y_scale:2 ; y-scale (The horizontal lines) | |
54 x_scale:2 ; x-scale (The vertical lines) | |
55 logbook_pixel_x_pos ; x2 position of current pixel in X-direction | |
162
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
56 logbook_min_temp_pos ; lowest row in the temp graph |
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
57 logbook_max_temp_pos ; lowest row in the temp graph |
418 | 58 ;+.33, reserved to tmp+0x57 |
0 | 59 ENDC |
60 | |
61 #DEFINE return_from_profileview logbook_flags,0 | |
62 #DEFINE all_dives_shown logbook_flags,1 | |
63 #DEFINE logbook_page_not_empty logbook_flags,2 | |
64 #DEFINE end_of_profile logbook_flags,3 | |
169
dcf3e08f31ac
CHANGE: Improve internal logbook usability
heinrichsweikamp
parents:
168
diff
changeset
|
65 #DEFINE keep_cursor_new_page logbook_flags,4 |
402
a3a0f1fd7fc4
NEW: Logbook shows markers with small orange boxes in the profile
heinrichsweikamp
parents:
392
diff
changeset
|
66 #DEFINE log_marker_found logbook_flags,5 |
0 | 67 |
68 | |
69 ; Logbook Coordinates | |
392
32780516c8c6
NEW: Show actual dive count in logbook list view (If <1000)
heinrichsweikamp
parents:
389
diff
changeset
|
70 #DEFINE logbook_list_left .10 ; Column of dive# in list |
0 | 71 #DEFINE logbook_row_offset .28 ; Distance between rows of list |
72 #DEFINE logbook_row_number .6 ; Amount of rows in the list | |
73 | |
74 ; Profile display | |
75 #DEFINE profile_height_pixels .157 ; Amount of pixels height for profile display | |
76 #DEFINE profile_width_pixels .156 ; Amount of pixels width for profile display | |
77 #DEFINE profile_left .1 ; Left border | |
78 #DEFINE profile_top .65 ; Top border | |
79 | |
99
87cc1adfe4da
show event "bailout" in the internal logbook
heinrichsweikamp
parents:
98
diff
changeset
|
80 ; "Bailout" |
87cc1adfe4da
show event "bailout" in the internal logbook
heinrichsweikamp
parents:
98
diff
changeset
|
81 #DEFINE logbook_bailout_column .124 |
87cc1adfe4da
show event "bailout" in the internal logbook
heinrichsweikamp
parents:
98
diff
changeset
|
82 #DEFINE logbook_bailout_row .207 |
87cc1adfe4da
show event "bailout" in the internal logbook
heinrichsweikamp
parents:
98
diff
changeset
|
83 |
0 | 84 ; Dive number |
85 #DEFINE logbook_divenumer_column .1 | |
86 #DEFINE logbook_divenumer_row .1 | |
87 ; Date and Time | |
88 #DEFINE logbook_date_column .100 | |
89 #DEFINE logbook_date_row .7 | |
90 #DEFINE logbook_time_column .120 | |
389
9175429bdeba
CHANGE: Logbook now shows end-of-dive date and time for dives made with firmware <1.92 indicated by an icon in the logbook
heinrichsweikamp
parents:
376
diff
changeset
|
91 #DEFINE logbook_time_row .38 |
0 | 92 ; Max. Depth |
93 #DEFINE log_max_value_row .38 | |
94 #DEFINE log_max_value_column .1 | |
95 ; Divetime | |
96 #DEFINE log_divetime_value_row .38 | |
97 #DEFINE log_divetime_value_column .65 | |
98 ; Gaslist below profile | |
99 #DEFINE log_gas_row .225 | |
100 #DEFINE log_gas_column1 .0 | |
101 #DEFINE log_gas_column2 log_gas_column1+(.1*.32) | |
102 #DEFINE log_gas_column3 log_gas_column1+(.2*.32) | |
103 #DEFINE log_gas_column4 log_gas_column1+(.3*.32) | |
104 #DEFINE log_gas_column5 log_gas_column1+(.4*.32) | |
105 | |
106 ; Logbook Page2 | |
107 ; Gaslist | |
108 #DEFINE log2_title_row1 .20 | |
109 #DEFINE log2_title_column .90 | |
110 #DEFINE log2_gas_column log2_title_column | |
111 #DEFINE log2_gas_row1 .36 | |
112 #DEFINE log2_gas_row2 1*.16+log2_gas_row1 | |
113 #DEFINE log2_gas_row3 2*.16+log2_gas_row1 | |
114 #DEFINE log2_gas_row4 3*.16+log2_gas_row1 | |
115 #DEFINE log2_gas_row5 4*.16+log2_gas_row1 | |
116 | |
117 ; Setpoint List | |
118 #DEFINE log2_title_sp_row .130 | |
119 #DEFINE log2_sp_row1 .146 | |
120 #DEFINE log2_sp_row2 1*.16+log2_sp_row1 | |
121 #DEFINE log2_sp_row3 2*.16+log2_sp_row1 | |
122 #DEFINE log2_sp_row4 3*.16+log2_sp_row1 | |
123 #DEFINE log2_sp_row5 4*.16+log2_sp_row1 | |
124 | |
125 ; Details list | |
126 #DEFINE log2_salinity_row .55 | |
127 #DEFINE log2_salinity_column .2 | |
128 #DEFINE log2_cns_row .1*.16+log2_salinity_row | |
129 #DEFINE log2_cns_column log2_salinity_column | |
130 #DEFINE log2_avr_row .2*.16+log2_salinity_row | |
131 #DEFINE log2_avr_column log2_salinity_column | |
132 #DEFINE log2_decomodel2_row .3*.16+log2_salinity_row | |
133 #DEFINE log2_decomodel2_column log2_salinity_column | |
134 #DEFINE log2_decomodel3_row .4*.16+log2_salinity_row | |
135 #DEFINE log2_decomodel3_column log2_salinity_column | |
136 #DEFINE log2_decomodel_row .5*.16+log2_salinity_row | |
137 #DEFINE log2_decomodel_column log2_salinity_column | |
138 #DEFINE log2_firmware_row .6*.16+log2_salinity_row | |
139 #DEFINE log2_firmware_column log2_salinity_column | |
140 #DEFINE log2_battery_row .7*.16+log2_salinity_row | |
141 #DEFINE log2_battery_column log2_salinity_column | |
142 #DEFINE log2_divemode_row .8*.16+log2_salinity_row | |
143 #DEFINE log2_divemode_column log2_salinity_column | |
144 #DEFINE log2_lastdeco_row .9*.16+log2_salinity_row | |
145 #DEFINE log2_lastdeco_column log2_salinity_column | |
146 ; Air pressure | |
147 #DEFINE MBAR_row .10*.16+log2_salinity_row | |
148 #DEFINE MBAR_column log2_salinity_column | |
149 | |
150 | |
151 ; Header coordinates | |
389
9175429bdeba
CHANGE: Logbook now shows end-of-dive date and time for dives made with firmware <1.92 indicated by an icon in the logbook
heinrichsweikamp
parents:
376
diff
changeset
|
152 #DEFINE log_profile_version .8 |
0 | 153 #DEFINE log_date .12 |
154 #DEFINE log_time .15 | |
155 #DEFINE log_max_depth .17 | |
156 #DEFINE log_divetime .19 | |
157 #DEFINE log_min_temp .22 | |
158 #DEFINE log_surface_press .24 | |
159 #DEFINE log_desattime .26 | |
160 #DEFINE log_gas1 .28 | |
161 #DEFINE log_gas2 .32 | |
162 #DEFINE log_gas3 .36 | |
163 #DEFINE log_gas4 .40 | |
164 #DEFINE log_gas5 .44 | |
165 #DEFINE log_firmware .48 | |
166 #DEFINE log_battery .50 | |
167 #DEFINE log_samplingrate .52 | |
168 #DEFINE log_cns_start .53 | |
169 #DEFINE log_gf_start .55 | |
170 #DEFINE log_gf_end .56 | |
490
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
171 #DEFINE log_batt_info .59 |
0 | 172 #DEFINE log_sp1 .60 |
173 #DEFINE log_sp2 .62 | |
174 #DEFINE log_sp3 .64 | |
175 #DEFINE log_sp4 .66 | |
176 #DEFINE log_sp5 .68 | |
177 #DEFINE log_salinity .70 | |
178 #DEFINE log_cns_end .71 | |
179 #DEFINE log_avr_depth .73 | |
180 #DEFINE log_total_seconds .75 | |
181 #DEFINE log_gf_lo .77 | |
182 #DEFINE log_sat_mult .77 | |
183 #DEFINE log_gf_hi .78 | |
184 #DEFINE log_desat_mult .78 | |
185 #DEFINE log_decomodel .79 | |
186 #DEFINE log_total_dives .80 | |
187 #DEFINE log_divemode .82 | |
188 #DEFINE log_last_stop .243 | |
189 | |
190 LOG_POINT_TO macro address | |
191 movlw address | |
192 movwf ext_flash_address+0 | |
193 endm | |
194 | |
195 ;============================================================================= | |
196 | |
197 logbook code | |
198 | |
199 TFT_logbook_cursor: | |
255 | 200 ; call speed_fastest |
392
32780516c8c6
NEW: Show actual dive count in logbook list view (If <1000)
heinrichsweikamp
parents:
389
diff
changeset
|
201 WIN_BOX_BLACK .0, .240-.16, logbook_list_left-.8, logbook_list_left-.1 ;top, bottom, left, right |
0 | 202 |
392
32780516c8c6
NEW: Show actual dive count in logbook list view (If <1000)
heinrichsweikamp
parents:
389
diff
changeset
|
203 WIN_LEFT logbook_list_left-.8 |
0 | 204 WIN_FONT FT_SMALL |
392
32780516c8c6
NEW: Show actual dive count in logbook list view (If <1000)
heinrichsweikamp
parents:
389
diff
changeset
|
205 ; bcf win_invert ; Reset invert flag |
0 | 206 call TFT_standard_color |
207 | |
208 movff menupos,temp1 | |
209 dcfsnz temp1,F | |
210 movlw d'0' | |
211 dcfsnz temp1,F | |
212 movlw logbook_row_offset | |
213 dcfsnz temp1,F | |
214 movlw .2*logbook_row_offset | |
215 dcfsnz temp1,F | |
216 movlw .3*logbook_row_offset | |
217 dcfsnz temp1,F | |
218 movlw .4*logbook_row_offset | |
219 dcfsnz temp1,F | |
220 movlw .5*logbook_row_offset | |
221 dcfsnz temp1,F | |
222 movlw .6*logbook_row_offset | |
223 dcfsnz temp1,F | |
224 movlw .7*logbook_row_offset | |
225 dcfsnz temp1,F | |
226 movlw .8*logbook_row_offset | |
227 | |
433 | 228 movwf win_top |
0 | 229 STRCPY_PRINT "\xB7" |
230 return | |
231 | |
232 global logbook | |
233 logbook: | |
234 clrf logbook_flags | |
235 clrf CCP1CON ; stop PWM | |
236 bcf PORTC,2 ; Pull PWM out to GND | |
502
0910c227018f
BUGFIX: PSCR mode showed bailout gaslist instead of diluent gaslist
heinrichsweikamp
parents:
500
diff
changeset
|
237 call TFT_boot |
392
32780516c8c6
NEW: Show actual dive count in logbook list view (If <1000)
heinrichsweikamp
parents:
389
diff
changeset
|
238 ; call TFT_standard_color |
0 | 239 clrf menupos3 ; Here: used rows on current logbook-page |
240 clrf logbook_page_number ; Here: # of current displayed page | |
241 clrf logbook_divenumber ; # of dive in list during search | |
242 clrf divemins+0 ; Here: used as temp variables | |
243 clrf divemins+1 | |
244 clrf timeout_counter2 ; For timeout | |
245 movlw logbook_row_number | |
246 movwf menupos ; Here: stores current position on display (logbook_row_number-x) | |
247 read_int_eeprom .2 ; Get low-byte of total dives | |
248 movff EEDATA,logbook_max_dive_counter | |
249 | |
250 ;----------------------------------------------------------------------------- | |
251 ; display dive headers backwards from read_int_eeprom .2 = lo-1 | |
252 ; 1st: 200000h-200FFFh -> lo=0 | |
253 ; 2nd: 201000h-201FFFh -> lo=1 | |
254 ; 3rd: 202000h-202FFFh -> lo=2 | |
255 ; 256: 2FF000h-2FFFFFh -> lo=255 (And hi>0...) | |
256 ; Stop when | |
257 ; a) no dive is stored (no valid header found) | |
258 ; b) current dive has no valid header (Number of stored dives < 256) | |
259 ; c) when 255 dives are reached divemins+0 = 255 | |
260 | |
261 logbook2: | |
255 | 262 ; call speed_fastest |
0 | 263 incf divemins+0,F ; increase dive counter |
264 incf divemins+0,W ; = 0x..FF ? | |
265 bz logbook_reset ; Yes: FF --> loop. | |
266 | |
267 ; Set ext_flash_address:3 to TOC entry of this dive | |
268 ; 1st: 200000h-200FFFh -> logbook_max_dive_counter=0 | |
269 ; 2nd: 201000h-201FFFh -> logbook_max_dive_counter=1 | |
270 ; 3rd: 202000h-202FFFh -> logbook_max_dive_counter=2 | |
271 ; 256: 2FF000h-2FFFFFh -> logbook_max_dive_counter=255 (And hi>0...) | |
272 | |
273 decf logbook_max_dive_counter,F ; -1 | |
274 | |
275 clrf ext_flash_address+0 | |
276 clrf ext_flash_address+1 | |
277 movlw 0x20 | |
278 movwf ext_flash_address+2 | |
279 movlw .16 | |
280 mulwf logbook_max_dive_counter; logbook_max_dive_counter*16 = offset to 0x2000 (up:hi) | |
281 movf PRODL,W | |
282 addwf ext_flash_address+1,F | |
283 movf PRODH,W | |
284 addwfc ext_flash_address+2,F | |
285 ; pointer at the first 0xFA of header | |
286 | |
287 call ext_flash_byte_read ; Reads one byte@ext_flash_address:3 into WREG and temp1 | |
288 movwf temp1 | |
289 movlw 0xFA | |
290 cpfseq temp1 ; 0xFA found? | |
291 bra logbook3b ; No, abort | |
292 | |
293 incf logbook_divenumber,F ; new header found, increase logbook_divenumber | |
294 bra logbook4 ; Done with searching, display the header! | |
295 | |
296 logbook3b: | |
297 btfss logbook_page_not_empty ; Was there at least one dive? | |
372 | 298 bra exit_logbook ; Not a single header was found, leave logbook. |
0 | 299 bra logbook_display_loop2 |
300 | |
301 logbook_reset: | |
302 tstfsz logbook_divenumber ; Was there at least one dive? | |
303 bra logbook_reset2 | |
304 bra logbook3b ; No, Nothing to do | |
305 | |
306 logbook_reset2: | |
307 bsf all_dives_shown ; Yes | |
308 bra logbook_display_loop2 ; Continue | |
309 | |
310 logbook4: | |
311 btfsc all_dives_shown ; All dives displayed? | |
312 bra logbook_display_loop2 ; Yes, but display first page again. | |
313 | |
314 call display_listdive ; display short header for list on current list position | |
315 | |
316 movlw logbook_row_number | |
317 cpfseq menupos ; first dive on list (top place)? | |
318 bra logbook_display_loop1 ; no, so skip saving of address | |
319 | |
320 ; store all registered required to rebuilt the current logbookpage after the detail/profile view | |
321 movff logbook_divenumber,logbook_divenumber_temp ; # of dive in list of the current page | |
322 movff divemins+0,divemins_backup ; amount of dives drawn until now | |
323 movff logbook_max_dive_counter,logbook_max_dive_counter_temp ; backup Counter | |
324 | |
325 logbook_display_loop1: | |
326 decfsz menupos,F ; List full? | |
327 bra logbook2 ; no, search another dive for our current logbook page | |
328 | |
329 logbook_display_loop2: | |
330 btfss logbook_page_not_empty ; Was there one dive at all? | |
331 bra logbook ; Yes, so reload the first page | |
332 | |
333 ; TFT_mask... | |
334 | |
335 WIN_LEFT logbook_list_left | |
336 WIN_TOP logbook_row_offset*logbook_row_number | |
337 STRCPY_TEXT_PRINT tNextLog ; "Next Page" | |
338 WIN_LEFT logbook_list_left | |
339 WIN_TOP logbook_row_offset*(logbook_row_number+.1) | |
276
e4cb495aed3d
Increase byte timeout in PC download mode, faster response to "Exit" in main menu
heinrichsweikamp
parents:
275
diff
changeset
|
340 STRCPY_TEXT_PRINT tExit ; "Exit" |
0 | 341 |
342 movlw d'1' ; Set cursor to position 1... | |
343 btfsc return_from_profileview ; .. unless we are returning from a detail/profile view | |
344 movf logbook_menupos_temp,W ; load last cursor position again | |
345 movwf menupos ; and set menupos byte | |
346 bcf return_from_profileview ; Do this only once while the page is loaded again! | |
347 | |
348 bcf logbook_page_not_empty ; Obviously the current page is NOT empty | |
169
dcf3e08f31ac
CHANGE: Improve internal logbook usability
heinrichsweikamp
parents:
168
diff
changeset
|
349 |
dcf3e08f31ac
CHANGE: Improve internal logbook usability
heinrichsweikamp
parents:
168
diff
changeset
|
350 movlw d'7' ; Set cursor to position 7... |
dcf3e08f31ac
CHANGE: Improve internal logbook usability
heinrichsweikamp
parents:
168
diff
changeset
|
351 btfsc keep_cursor_new_page ; ... if we came from the "new Page" line |
dcf3e08f31ac
CHANGE: Improve internal logbook usability
heinrichsweikamp
parents:
168
diff
changeset
|
352 movwf menupos ; and set menupos byte |
dcf3e08f31ac
CHANGE: Improve internal logbook usability
heinrichsweikamp
parents:
168
diff
changeset
|
353 bcf keep_cursor_new_page |
dcf3e08f31ac
CHANGE: Improve internal logbook usability
heinrichsweikamp
parents:
168
diff
changeset
|
354 |
dcf3e08f31ac
CHANGE: Improve internal logbook usability
heinrichsweikamp
parents:
168
diff
changeset
|
355 call TFT_logbook_cursor ; Show the cursor |
0 | 356 |
357 call logbook_preloop_tasks ; Clear some flags and set to Speed_eco | |
169
dcf3e08f31ac
CHANGE: Improve internal logbook usability
heinrichsweikamp
parents:
168
diff
changeset
|
358 call menu_processor_bottom_line ; Show bottom line |
0 | 359 logbook_loop: |
360 btfsc switch_left ; SET/MENU? | |
361 goto next_logbook3 ; adjust cursor or create new page | |
362 btfsc switch_right ; ENTER? | |
363 bra display_profile_or_exit ; view details/profile or exit logbook | |
364 | |
365 rcall log_screendump_and_onesecond ; Check if we need to make a screenshot and check for new second | |
366 btfsc sleepmode ; Timeout? | |
372 | 367 bra exit_logbook ; Yes |
0 | 368 |
369 bra logbook_loop ; Wait for something to do | |
370 | |
371 display_profile_or_exit: | |
372 movlw logbook_row_number+.2 ; exit? | |
373 cpfseq menupos | |
374 bra display_profile_or_exit2 ; No, check for "Next Page" | |
371 | 375 |
372 | 376 exit_logbook: |
436 | 377 ; call TFT_DisplayOff |
378 ; call TFT_boot | |
66
00636132cca6
BUGFIX: Maintain last selected customview in surface mode
heinrichsweikamp
parents:
50
diff
changeset
|
379 goto do_main_menu2 |
0 | 380 |
381 display_profile_or_exit2: | |
382 movlw logbook_row_number+.1 ; Next page? | |
383 cpfseq menupos | |
384 bra display_profile ; No, show details/profile | |
385 goto next_logbook2 ; Next page! | |
386 | |
99
87cc1adfe4da
show event "bailout" in the internal logbook
heinrichsweikamp
parents:
98
diff
changeset
|
387 display_profile: |
87cc1adfe4da
show event "bailout" in the internal logbook
heinrichsweikamp
parents:
98
diff
changeset
|
388 bcf is_bailout |
87cc1adfe4da
show event "bailout" in the internal logbook
heinrichsweikamp
parents:
98
diff
changeset
|
389 bcf gas6_changed ; Clear event flags |
255 | 390 ; call speed_fastest |
0 | 391 movff menupos,logbook_menupos_temp; store current cursor position |
392 bsf return_from_profileview ; tweak search routine to exit after found | |
393 | |
394 movf logbook_page_number,W ; Number of page | |
395 mullw logbook_row_number | |
396 movf PRODL,W | |
397 addwf menupos,W ; page*logbook_row_number+menupos= | |
398 movwf divesecs ; # of dive to show | |
399 | |
400 display_profile2: | |
255 | 401 ; call speed_fastest |
0 | 402 clrf CCP1CON ; stop PWM |
403 bcf PORTC,2 ; Pull PWM out to GND | |
502
0910c227018f
BUGFIX: PSCR mode showed bailout gaslist instead of diluent gaslist
heinrichsweikamp
parents:
500
diff
changeset
|
404 call TFT_boot |
0910c227018f
BUGFIX: PSCR mode showed bailout gaslist instead of diluent gaslist
heinrichsweikamp
parents:
500
diff
changeset
|
405 ;call TFT_ClearScreen ; Clear screen |
0 | 406 ; Set ext_flash pointer to "#divesecs-oldest" dive |
407 ; compute read_int_eeprom .2 - divesecs | |
408 ; Read required header data for profile display | |
409 ; look in header for pointer to begin of diveprofile (Byte 2-4) | |
410 ; Set pointer (ext_flash_log_pointer:3) to this address, start drawing | |
411 | |
412 decf divesecs,F ;-1 | |
413 read_int_eeprom .2 | |
414 movf EEDATA,W | |
415 bcf STATUS,C | |
416 subfwb divesecs,W ; max. dives (low value) - divesecs | |
417 movwf lo ; result | |
418 incf divesecs,F ;+1 | |
419 ; Set ext_flash_address:3 to TOC entry of this dive | |
420 ; 1st: 200000h-200FFFh -> lo=0 | |
421 ; 2nd: 201000h-201FFFh -> lo=1 | |
422 ; 3rd: 202000h-202FFFh -> lo=2 | |
423 ; 256: 2FF000h-2FFFFFh -> lo=255 (And hi>0...) | |
424 clrf ext_flash_address+0 | |
425 clrf ext_flash_address+1 | |
426 movlw 0x20 | |
427 movwf ext_flash_address+2 | |
428 movlw .16 | |
429 mulwf lo ; lo*16 = offset to 0x2000 (up:hi) | |
430 movf PRODL,W | |
431 addwf ext_flash_address+1,F | |
432 movf PRODH,W | |
433 addwfc ext_flash_address+2,F | |
434 ; pointer at the first 0xFA of header | |
435 | |
436 ; Now, show profile | |
437 LOG_POINT_TO log_samplingrate | |
438 call ext_flash_byte_read ; Read sampling rate | |
439 movff temp1,samplesecs_value ; needed later... | |
440 | |
441 LOG_POINT_TO .2 | |
442 call ext_flash_byte_read_plus ; Read start address of profile | |
443 movff temp1,ext_flash_log_pointer+0 | |
444 call ext_flash_byte_read_plus ; Read start address of profile | |
445 movff temp1,ext_flash_log_pointer+1 | |
446 call ext_flash_byte_read_plus ; Read start address of profile | |
447 movff temp1,ext_flash_log_pointer+2 | |
448 | |
449 | |
450 clrf logbook_sample_counter+0 | |
451 clrf logbook_sample_counter+1 ; holds amount of read samples | |
452 | |
453 call TFT_standard_color | |
454 call logbook_show_divenumber ; Show the dive number in medium font | |
455 | |
456 WIN_SMALL logbook_date_column, logbook_date_row | |
457 LOG_POINT_TO log_date | |
458 call ext_flash_byte_read_plus | |
459 movff temp1,convert_value_temp+2 ; Year | |
460 call ext_flash_byte_read_plus | |
461 movff temp1,convert_value_temp+0 ; Month | |
462 call ext_flash_byte_read_plus | |
463 movff temp1,convert_value_temp+1 ; Day | |
464 call TFT_convert_date ; converts into "DD/MM/YY" or "MM/DD/YY" or "YY/MM/DD" in postinc2 | |
465 STRCAT_PRINT "" | |
466 | |
467 WIN_SMALL logbook_time_column, logbook_time_row | |
468 call ext_flash_byte_read_plus ; hour | |
469 movff temp1,lo | |
470 call ext_flash_byte_read_plus ; Minutes | |
471 movff temp1,hi | |
472 output_99x ; hour | |
473 PUTC ':' | |
389
9175429bdeba
CHANGE: Logbook now shows end-of-dive date and time for dives made with firmware <1.92 indicated by an icon in the logbook
heinrichsweikamp
parents:
376
diff
changeset
|
474 movff hi,lo |
0 | 475 output_99x ; minute |
476 STRCAT_PRINT "" ; Display 1st row of details | |
477 | |
389
9175429bdeba
CHANGE: Logbook now shows end-of-dive date and time for dives made with firmware <1.92 indicated by an icon in the logbook
heinrichsweikamp
parents:
376
diff
changeset
|
478 LOG_POINT_TO log_profile_version |
9175429bdeba
CHANGE: Logbook now shows end-of-dive date and time for dives made with firmware <1.92 indicated by an icon in the logbook
heinrichsweikamp
parents:
376
diff
changeset
|
479 call ext_flash_byte_read_plus ; Profile version |
9175429bdeba
CHANGE: Logbook now shows end-of-dive date and time for dives made with firmware <1.92 indicated by an icon in the logbook
heinrichsweikamp
parents:
376
diff
changeset
|
480 movlw 0x24 |
9175429bdeba
CHANGE: Logbook now shows end-of-dive date and time for dives made with firmware <1.92 indicated by an icon in the logbook
heinrichsweikamp
parents:
376
diff
changeset
|
481 cpfslt temp1 ; <0x24? |
9175429bdeba
CHANGE: Logbook now shows end-of-dive date and time for dives made with firmware <1.92 indicated by an icon in the logbook
heinrichsweikamp
parents:
376
diff
changeset
|
482 bra log_skip_extra_icon ; Yes, skip |
9175429bdeba
CHANGE: Logbook now shows end-of-dive date and time for dives made with firmware <1.92 indicated by an icon in the logbook
heinrichsweikamp
parents:
376
diff
changeset
|
483 |
9175429bdeba
CHANGE: Logbook now shows end-of-dive date and time for dives made with firmware <1.92 indicated by an icon in the logbook
heinrichsweikamp
parents:
376
diff
changeset
|
484 WIN_SMALL logbook_time_column-.8, logbook_time_row |
9175429bdeba
CHANGE: Logbook now shows end-of-dive date and time for dives made with firmware <1.92 indicated by an icon in the logbook
heinrichsweikamp
parents:
376
diff
changeset
|
485 STRCPY_PRINT 0x94 ; "End of dive" icon |
9175429bdeba
CHANGE: Logbook now shows end-of-dive date and time for dives made with firmware <1.92 indicated by an icon in the logbook
heinrichsweikamp
parents:
376
diff
changeset
|
486 |
9175429bdeba
CHANGE: Logbook now shows end-of-dive date and time for dives made with firmware <1.92 indicated by an icon in the logbook
heinrichsweikamp
parents:
376
diff
changeset
|
487 log_skip_extra_icon: |
0 | 488 LOG_POINT_TO log_max_depth |
489 call ext_flash_byte_read_plus ; read max depth | |
490 movff temp1,lo | |
491 call ext_flash_byte_read_plus ; read max depth | |
492 movff temp1,hi | |
493 movff lo,xA+0 ; calculate y-scale for profile display | |
494 movff hi,xA+1 | |
495 movlw profile_height_pixels ; pixel height available for profile | |
496 movwf xB+0 | |
497 clrf xB+1 | |
498 call div16x16 ; does xA/xB=xC | |
499 movff xC+0,y_scale+0 ; holds LOW byte of y-scale (mbar/pixel!) | |
500 movff xC+1,y_scale+1 ; holds HIGH byte of y-scale (mbar/pixel!) | |
376
e99bb91f6f92
CHANGE: Do not show ppO2 in warning area if already shown in custom view
heinrichsweikamp
parents:
372
diff
changeset
|
501 infsnz y_scale+0,F ; increase one, because there may be a remainder |
e99bb91f6f92
CHANGE: Do not show ppO2 in warning area if already shown in custom view
heinrichsweikamp
parents:
372
diff
changeset
|
502 incf y_scale+1,F |
0 | 503 |
417 | 504 movlw LOW ((profile_height_pixels+1)*.1000) |
0 | 505 movwf xC+0 |
506 movlw HIGH (((profile_height_pixels+1)*.1000) & h'FFFF') | |
507 movwf xC+1 | |
508 movlw UPPER ((profile_height_pixels+1)*.1000) | |
509 movwf xC+2 | |
510 clrf xC+3 | |
511 | |
512 movff lo,xB+0 ; Max. Depth in mbar | |
513 movff hi,xB+1 ; Max. Depth in mbar | |
514 call div32x16 ; xC:4 / xB:2 = xC+3:xC+2 with xC+1:xC+0 as remainder | |
515 | |
516 movff xC+0,x_scale+0 ; | |
517 movff xC+1,x_scale+1 ; = Pixels/10m (For scale, draw any xx rows a scale-line) | |
518 | |
519 movf x_scale+0,W | |
520 iorwf x_scale+1,W ; x_scale:2 = Null? | |
521 bnz display_profile_offset4 ; No, continue | |
522 incf x_scale+1,F ; Yes, make x_scale+1>1 to make "display_profile2e" working | |
523 | |
524 display_profile_offset4: | |
525 WIN_SMALL log_max_value_column,log_max_value_row | |
526 | |
527 TSTOSS opt_units ; 0=Meters, 1=Feets | |
528 bra display_profile_offset4_metric | |
529 ;display_profile_offset4_imperial: | |
530 call convert_mbar_to_feet ; convert value in lo:hi from mbar to feet | |
531 PUTC ' ' | |
25 | 532 bcf leftbind |
225
31088352ee32
BUGFIX: Show dives with >999mins divetime correctly
heinrichsweikamp
parents:
189
diff
changeset
|
533 output_16_3 ; limit to 999 and display only (0-999) |
0 | 534 STRCAT_TEXT_PRINT tFeets |
535 bra display_profile_offset4_common | |
536 | |
537 display_profile_offset4_metric: | |
538 bsf leftbind | |
539 output_16dp d'3' ; max. depth | |
540 STRCAT_TEXT_PRINT tMeters | |
541 | |
542 display_profile_offset4_common: | |
543 call ext_flash_byte_read_plus ; divetime in minutes | |
544 movff temp1,lo | |
545 call ext_flash_byte_read_plus | |
546 movff temp1,hi ; divetime in minutes | |
547 | |
548 movff lo,xA+0 ; calculate x-scale for profile display | |
549 movff hi,xA+1 ; calculate total diveseconds first | |
550 movlw d'60' ; 60seconds are one minute... | |
551 movwf xB+0 | |
552 clrf xB+1 | |
553 call mult16x16 ; result is in xC:2 ! | |
554 | |
555 WIN_SMALL log_divetime_value_column,log_divetime_value_row | |
556 bsf leftbind | |
557 output_16 ; divetime minutes | |
558 movlw LOW d'600' | |
559 movwf xA+0 | |
560 movlw HIGH d'600' | |
561 movwf xA+1 ; A vertical line every 600 seconds | |
562 movff samplesecs_value,xB+0 ; Copy sampling rate | |
563 clrf xB+1 | |
564 call div16x16 ; xA/xB=xC with xA as remainder | |
565 movff xC+0,average_depth_hold_total+0 | |
566 movff xC+1,average_depth_hold_total+1 | |
567 ;average_depth_hold_total:2 holds interval of samples for vertical 10min line | |
568 | |
569 ; Restore divetime in minutes: | |
570 ; get real sample time | |
571 LOG_POINT_TO log_total_seconds | |
572 call ext_flash_byte_read_plus ; Total sample time in seconds | |
573 movff temp1,xC+0 | |
574 call ext_flash_byte_read_plus ; Total sample time in seconds | |
575 movff temp1,xC+1 | |
576 | |
577 PUTC ':' | |
578 LOG_POINT_TO log_divetime+.2 | |
579 call ext_flash_byte_read_plus ; read divetime seconds | |
580 movff temp1,lo | |
581 movff xC+0,xA+0 ; now calculate x-scale value | |
582 movff xC+1,xA+1 | |
583 movlw profile_width_pixels ; pix width available | |
584 movwf xB+0 | |
585 clrf xB+1 | |
586 call div16x16 ; xA/xB=xC | |
587 movff xC+0,xA+0 | |
588 movff xC+1,xA+1 | |
589 movf samplesecs_value,W ; devide through sample interval! | |
590 movwf xB+0 | |
591 clrf xB+1 | |
592 call div16x16 ; xA/xB=xC | |
593 movff xC+0,profile_temp+0 ; store value (use any #xC sample, skip xC-1) into temp registers | |
594 movff xC+1,profile_temp+1 ; store value (use any #xC sample, skip xC-1) into temp registers | |
376
e99bb91f6f92
CHANGE: Do not show ppO2 in warning area if already shown in custom view
heinrichsweikamp
parents:
372
diff
changeset
|
595 infsnz profile_temp+0,F ; Increase by one, there might be a remainder |
e99bb91f6f92
CHANGE: Do not show ppO2 in warning area if already shown in custom view
heinrichsweikamp
parents:
372
diff
changeset
|
596 incf profile_temp+1,F |
0 | 597 |
598 bsf leftbind | |
599 output_99x ; divetime seconds | |
600 call TFT_standard_color | |
601 STRCAT_PRINT "" | |
602 | |
603 call ext_flash_byte_read_plus ; Read min. Temperature | |
604 movff temp1,logbook_min_tp+0 | |
605 call ext_flash_byte_read_plus ; Read min. Temperature | |
606 movff temp1,logbook_min_tp+1 | |
607 | |
608 ; Set pointer to Gas 1 Type. | |
609 LOG_POINT_TO log_gas1+.3 | |
610 call ext_flash_byte_read_plus ; read Gas Type | |
611 decfsz temp1,W ; =1 (="First")? | |
612 bra logbook_find_first_gas2 ; No. | |
613 movlw .1 | |
614 movwf temp1 | |
615 bra logbook_find_first_gas_done | |
616 logbook_find_first_gas2: | |
617 ; Set pointer to Gas 2 Type. | |
618 LOG_POINT_TO log_gas2+.3 | |
619 call ext_flash_byte_read_plus ; read Gas Type | |
620 decfsz temp1,W ; =1 (="First")? | |
621 bra logbook_find_first_gas3 ; No. | |
622 movlw .2 | |
623 movwf temp1 | |
624 bra logbook_find_first_gas_done | |
625 logbook_find_first_gas3: | |
626 ; Set pointer to Gas 3 Type. | |
627 LOG_POINT_TO log_gas3+.3 | |
628 call ext_flash_byte_read_plus ; read Gas Type | |
629 decfsz temp1,W ; =1 (="First")? | |
630 bra logbook_find_first_gas4 ; No. | |
631 movlw .3 | |
632 movwf temp1 | |
633 bra logbook_find_first_gas_done | |
634 logbook_find_first_gas4: | |
635 ; Set pointer to Gas 4 Type. | |
636 LOG_POINT_TO log_gas4+.3 | |
637 call ext_flash_byte_read_plus ; read Gas Type | |
638 decfsz temp1,W ; =1 (="First")? | |
639 bra logbook_find_first_gas5 ; No. | |
640 movlw .4 | |
641 movwf temp1 | |
642 bra logbook_find_first_gas_done | |
643 logbook_find_first_gas5: | |
644 movlw .5 ; Must be Gas5 | |
645 movwf temp1 | |
646 logbook_find_first_gas_done: | |
647 movff temp1,average_depth_hold_total+3; keep copy to restore color | |
648 rcall profile_display_color ; Back to normal profile color. | |
649 ; Pointer is now trashed! | |
650 | |
651 ; Point to profile portion of this dive | |
652 movff ext_flash_log_pointer+0,ext_flash_address+0 | |
653 movff ext_flash_log_pointer+1,ext_flash_address+1 | |
654 movff ext_flash_log_pointer+2,ext_flash_address+2 | |
655 | |
656 incf_ext_flash_address_0x20 d'2' ; Skip 0xFA 0xFA | |
657 call ext_flash_byte_read_plus_0x20 ; Read low byte of total dives into temp1 (at the time the dive was made) | |
658 | |
659 ; Load total number of dives (low byte only) | |
660 read_int_eeprom .2 | |
661 incf EEDATA,W ; +1 | |
662 bsf STATUS,C ; Set borrow | |
663 subfwb divesecs,W ; total dives - dive# to show - 1 = low byte of total dives (at the time the dive was made) | |
664 cpfseq temp1 ; # of dive in logbook (Must be equal with low byte in short header) | |
665 bra display_profile_no_profile ; Not equal, no profile for this dive available! | |
666 | |
667 ; Skip rest of short header: 3 Bytes | |
668 ; Skip length of profile data: 3 Bytes | |
669 ; Skip sampling rate in profile section: 1Byte | |
670 ; Skip number of divisors: 1Byte | |
671 incf_ext_flash_address_0x20 d'8' | |
672 | |
673 ; Divisor temp | |
674 incf_ext_flash_address_0x20 d'2' | |
675 ; call ext_flash_byte_read_plus_0x20 ; Read information type | |
676 ; call ext_flash_byte_read_plus_0x20 ; Read information Length | |
677 call ext_flash_byte_read_plus_0x20 ; Read information Divisor | |
678 movf temp1,W | |
679 movwf divisor_temperature ; Store divisor | |
680 movwf count_temperature ; Store to tp° counter too. | |
681 ; Divisor Deco | |
682 incf_ext_flash_address_0x20 d'2' | |
683 ; call ext_flash_byte_read_plus_0x20 ; Read information type | |
684 ; call ext_flash_byte_read_plus_0x20 ; Read information Length | |
685 call ext_flash_byte_read_plus_0x20 ; Read information Divisor | |
686 movf temp1,W | |
687 movwf divisor_deco ; Store divisor | |
688 movwf count_deco ; Store as temp, too | |
689 ; Divisor GF | |
690 incf_ext_flash_address_0x20 d'2' | |
691 ; call ext_flash_byte_read_plus_0x20 ; Read information type | |
692 ; call ext_flash_byte_read_plus_0x20 ; Read information Length | |
693 call ext_flash_byte_read_plus_0x20 ; Read information Divisor | |
694 movff temp1,divisor_gf ; Store divisor | |
695 ; Divisor ppO2 Sensors | |
696 incf_ext_flash_address_0x20 d'2' | |
697 ; call ext_flash_byte_read_plus_0x20 ; Read information type | |
698 ; call ext_flash_byte_read_plus_0x20 ; Read information Length | |
699 call ext_flash_byte_read_plus_0x20 ; Read information Divisor | |
700 movff temp1,divisor_ppo2_sensors ; Store divisor | |
701 ; Divisor decoplan | |
702 incf_ext_flash_address_0x20 d'2' | |
703 ; call ext_flash_byte_read_plus_0x20 ; Read information type | |
704 ; call ext_flash_byte_read_plus_0x20 ; Read information Length | |
705 call ext_flash_byte_read_plus_0x20 ; Read information Divisor | |
706 movff temp1,divisor_decoplan ; Store divisor | |
707 ; Divisor CNS | |
708 incf_ext_flash_address_0x20 d'2' | |
709 ; call ext_flash_byte_read_plus_0x20 ; Read information type | |
710 ; call ext_flash_byte_read_plus_0x20 ; Read information Length | |
711 call ext_flash_byte_read_plus_0x20 ; Read information Divisor | |
712 movff temp1,divisor_cns ; Store divisor | |
713 ; Divisor Tank data | |
714 incf_ext_flash_address_0x20 d'2' | |
715 ; call ext_flash_byte_read_plus_0x20 ; Read information type | |
716 ; call ext_flash_byte_read_plus_0x20 ; Read information Length | |
717 call ext_flash_byte_read_plus_0x20 ; Read information Divisor | |
718 movff temp1,divisor_tank ; Store divisor | |
719 | |
720 ; Start Profile display | |
721 movlw color_deepblue | |
722 call TFT_set_color ; Make this configurable? | |
723 ; Draw a frame around profile area | |
724 WIN_FRAME_COLOR16 profile_top-1,profile_top+profile_height_pixels+1,profile_left-1,profile_left+profile_width_pixels+1 | |
725 | |
726 movlw profile_top | |
432 | 727 movwf win_top |
0 | 728 movlw profile_left |
432 | 729 movwf win_leftx2 ; Left border (0-159) |
0 | 730 movlw d'1' |
432 | 731 movwf win_height |
0 | 732 movlw profile_width_pixels+.1 |
432 | 733 movwf win_width+0 ; Right border (0-159) |
433 | 734 clrf win_width+1 |
432 | 735 bra display_profile2f ; No 0m line |
0 | 736 display_profile2e: |
737 call TFT_box ; Inputs: win_top, win_leftx2, win_height, win_width, win_color1, win_color2 | |
738 display_profile2f: | |
432 | 739 movf win_top,W ; Get row |
0 | 740 addwf x_scale+0,W ; Add line interval distance to win_top |
741 tstfsz x_scale+1 ; >255? | |
742 movlw d'255' ; Yes, make win_top>239 -> Abort here | |
743 btfsc STATUS,C ; A Cary from the addwf above? | |
744 movlw d'255' ; Yes, make win_top>239 -> Abort here | |
432 | 745 movwf win_top ; Result in win_top again |
0 | 746 movlw profile_top+profile_height_pixels+.1 ; Limit |
432 | 747 cpfsgt win_top ; >239? |
0 | 748 bra display_profile2e ; No, draw another line |
749 | |
750 clrf timeout_counter2 ; here: used as counter for depth readings | |
751 movlw profile_width_pixels+profile_left-.1 | |
752 movwf ignore_digits ; here: used as counter for x-pixels | |
753 bcf end_of_profile ; clear flag | |
372 | 754 |
755 movlw profile_left+.1 | |
0 | 756 movwf logbook_pixel_x_pos ; here: used as colum x2 (Start at Colum 5) |
372 | 757 |
758 movlw profile_top+.1 ; Zero-m row | |
0 | 759 movwf apnoe_mins ; here: used for fill between rows |
760 movwf logbook_last_tp ; Initialise for Tp° curve too. | |
761 | |
762 movlw LOW(-.100) ; Initialize max tp° to -10.0 °C. | |
763 movwf logbook_max_tp+0 | |
764 movlw HIGH 0xFFFF & (-.100) | |
765 movwf logbook_max_tp+1 | |
766 | |
767 setf logbook_cur_tp+0 ; Initialize Tp°, before the first recorded point. | |
768 setf logbook_cur_tp+1 | |
769 clrf logbook_last_tp ; Also reset previous Y for Tp° | |
770 clrf logbook_ceiling ; Ceiling = 0, correct value for no ceiling. | |
372 | 771 movlw profile_top+.1 |
162
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
772 movwf logbook_min_temp_pos ; Initialize for displaying the lowest temperature |
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
773 movlw profile_top+profile_height_pixels |
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
774 movwf logbook_max_temp_pos ; Initialize for displaying the highest temperature |
0 | 775 |
371 | 776 movlw profile_left |
432 | 777 movwf win_leftx2 |
371 | 778 movlw profile_top |
432 | 779 movwf win_top |
371 | 780 movlw profile_height_pixels |
432 | 781 movwf win_height |
371 | 782 movlw LOW (profile_width_pixels*.2) |
432 | 783 movwf win_width+0 |
371 | 784 movlw HIGH (profile_width_pixels*.2) |
432 | 785 movwf win_width+1 |
371 | 786 call TFT_box_write ; open box for d1 |
787 | |
434 | 788 ; INIT_PIXEL_WRITE logbook_pixel_x_pos ; pixel x2 (Also sets standard Color!) |
0 | 789 |
790 profile_display_loop: | |
434 | 791 ; Init pixel write |
792 movf logbook_pixel_x_pos,W | |
793 mullw 2 | |
794 call pixel_write_col320 | |
795 | |
0 | 796 movff profile_temp+0,profile_temp2+0 |
797 movff profile_temp+1,profile_temp2+1 ; 16Bit x-scaler | |
798 incf profile_temp2+1,F | |
799 tstfsz profile_temp2+0 ; Must not be Zero | |
800 bra profile_display_loop2 ; Not Zero! | |
801 incf profile_temp2+0,F ; Zero, Increase! | |
802 | |
803 profile_display_loop2: | |
804 rcall profile_view_get_depth ; reads depth, temp and profile data | |
805 | |
806 btfsc end_of_profile ; end-of profile reached? | |
807 bra profile_display_loop_done ; Yes, skip all remaining pixels | |
808 | |
809 | |
810 ;---- Draw Ceiling curve, if any --------------------------------------------- | |
811 movf divisor_deco,W | |
812 bz profile_display_skip_deco | |
813 | |
814 movf logbook_ceiling,W ; Any deco ceiling ? | |
815 bz profile_display_skip_deco | |
816 | |
817 mullw .100 ; Yes: convert to mbar | |
818 movff PRODL,sub_a+0 | |
819 movff PRODH,sub_a+1 | |
820 movff logbook_cur_depth+0,sub_b+0 ; Compare with UNSIGNED current depth (16bits) | |
821 movff logbook_cur_depth+1,sub_b+1 | |
822 call subU16 ; set (or not) neg_flag | |
823 | |
824 movlw color_dark_green ; Dark green if Ok, | |
825 btfss neg_flag | |
826 movlw color_dark_red ; Or dark red if ceiling overflown. | |
827 call TFT_set_color | |
828 | |
829 movff PRODL,xA+0 | |
830 movff PRODH,xA+1 | |
831 movff y_scale+0,xB+0 ; devide pressure in mbar/quant for row offsett | |
832 movff y_scale+1,xB+1 | |
833 call div16x16 ; xA/xB=xC | |
834 | |
372 | 835 movlw profile_top+.1 ; Starts right after the top line. |
432 | 836 movwf win_top |
0 | 837 movff logbook_pixel_x_pos,win_leftx2 ; Left border (0-159) |
838 movff xC+0,win_height | |
839 call half_vertical_line ; Inputs: win_top, win_leftx2, win_height, win_color1, win_color2 | |
840 | |
841 profile_display_skip_deco: | |
842 ;---- Draw Tp° curve, if any --------------------------------------------- | |
843 movf divisor_temperature,W | |
844 bz profile_display_skip_temp | |
845 | |
846 movf logbook_cur_tp+0,W ; Did we had already a valid Tp°C record ? | |
847 andwf logbook_cur_tp+1,W | |
848 incf WREG | |
849 bz profile_display_skip_temp ; No: just skip drawing. | |
850 | |
851 movlw LOW(((profile_height_pixels-.10)*.256)/.370) ; fixed tp° scale: (-2 .. +35°C * scale256 )/153pix | |
852 movwf xB+0 | |
853 movlw HIGH(((profile_height_pixels-.10)*.256)/.370) | |
854 movwf xB+1 | |
855 | |
856 movf logbook_cur_tp+0,W ; Current Tp° - (-2.0°C) == Tp° + 20. | |
857 addlw LOW(.20) ; Low byte. | |
858 movwf xA+0 | |
859 movf logbook_cur_tp+1,W | |
860 btfsc STATUS,C ; Propagate carry, if any | |
861 incf WREG | |
862 movwf xA+1 | |
863 call mult16x16 ; xA*xB=xC | |
864 | |
865 ; scale: divide by 256, ie. take just high byte. | |
866 movf xC+1,W | |
867 sublw profile_top+profile_height_pixels-.10 ; Upside-down: Y = .75 + (.153 - result) | |
868 movwf xC+0 | |
869 | |
870 ; Check limits | |
372 | 871 movlw profile_top+.1 |
0 | 872 movwf xC+1 |
873 cpfsgt xC+0 | |
874 movff xC+1,xC+0 | |
875 | |
876 movlw color_orange | |
877 call TFT_set_color | |
878 | |
879 movf logbook_last_tp,W ; do we have a valid previous value ? | |
880 bz profile_display_temp_1 ; No: skip the vertical line. | |
881 movwf xC+1 | |
882 call profile_display_fill ; In this column between this row (xC+0) and the last row (xC+1) | |
162
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
883 profile_display_temp_1: |
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
884 movf xC+0,W ; current row |
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
885 cpfsgt logbook_min_temp_pos ; check limit |
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
886 movwf logbook_min_temp_pos ; lowest row in the temp graph |
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
887 cpfslt logbook_max_temp_pos ; check limit |
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
888 movwf logbook_max_temp_pos ; lowest row in the temp graph |
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
889 |
0 | 890 movff xC+0,logbook_last_tp |
891 PIXEL_WRITE logbook_pixel_x_pos,xC+0 ; Set col(0..159) x row (0..239), put a current color pixel. | |
892 | |
893 profile_display_skip_temp: | |
894 ;---- Draw depth curve --------------------------------------------------- | |
895 movff y_scale+0,xB+0 ; devide pressure in mbar/quant for row offsett | |
896 movff y_scale+1,xB+1 | |
897 movff logbook_cur_depth+0,xA+0 | |
898 movff logbook_cur_depth+1,xA+1 | |
899 call div16x16 ; xA/xB=xC | |
372 | 900 movlw profile_top+.1 |
0 | 901 addwf xC+0,F ; add 75 pixel offset to result |
902 | |
903 btfsc STATUS,C ; Ignore potential profile errors | |
904 movff apnoe_mins,xC+0 | |
905 | |
906 rcall profile_display_color ; Back to normal profile color. | |
907 | |
908 movff apnoe_mins,xC+1 | |
909 call profile_display_fill ; In this column between this row (xC+0) and the last row (xC+1) | |
910 movff xC+0,apnoe_mins ; Store last row for fill routine | |
911 | |
372 | 912 PIXEL_WRITE logbook_pixel_x_pos,xC+0 ; Set col(0..159) x row (0..239), put a std color pixel. |
402
a3a0f1fd7fc4
NEW: Logbook shows markers with small orange boxes in the profile
heinrichsweikamp
parents:
392
diff
changeset
|
913 incf logbook_pixel_x_pos,F ; Next column |
0 | 914 |
402
a3a0f1fd7fc4
NEW: Logbook shows markers with small orange boxes in the profile
heinrichsweikamp
parents:
392
diff
changeset
|
915 ;---- Draw Marker square , if any ---------------------------------------- |
490
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
916 btfss log_marker_found ; Any marker to draw? |
402
a3a0f1fd7fc4
NEW: Logbook shows markers with small orange boxes in the profile
heinrichsweikamp
parents:
392
diff
changeset
|
917 bra profile_display_skip_marker ; No |
a3a0f1fd7fc4
NEW: Logbook shows markers with small orange boxes in the profile
heinrichsweikamp
parents:
392
diff
changeset
|
918 |
490
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
919 ; tiny "m" |
430 | 920 incf apnoe_mins,W ; increase row (Y) |
432 | 921 movwf win_top |
492 | 922 ; limit win_top to 220 |
923 movlw .220 | |
924 cpfslt win_top | |
925 movwf win_top | |
430 | 926 decf logbook_pixel_x_pos,W ; decrease column (X) |
432 | 927 movwf win_leftx2 |
492 | 928 ; limit win_leftx2 to 151 |
929 movlw .151 | |
930 cpfslt win_leftx2 | |
931 movwf win_leftx2 | |
402
a3a0f1fd7fc4
NEW: Logbook shows markers with small orange boxes in the profile
heinrichsweikamp
parents:
392
diff
changeset
|
932 |
a3a0f1fd7fc4
NEW: Logbook shows markers with small orange boxes in the profile
heinrichsweikamp
parents:
392
diff
changeset
|
933 movlw color_orange |
a3a0f1fd7fc4
NEW: Logbook shows markers with small orange boxes in the profile
heinrichsweikamp
parents:
392
diff
changeset
|
934 call TFT_set_color |
492 | 935 WIN_FONT FT_TINY |
490
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
936 lfsr FSR2,buffer |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
937 STRCPY_PRINT "m" |
492 | 938 bcf log_marker_found ; Clear flag |
495
2b1239e6ea85
Bugfix: More then one marker shown deleted profile
heinrichsweikamp
parents:
492
diff
changeset
|
939 |
2b1239e6ea85
Bugfix: More then one marker shown deleted profile
heinrichsweikamp
parents:
492
diff
changeset
|
940 movlw profile_left |
2b1239e6ea85
Bugfix: More then one marker shown deleted profile
heinrichsweikamp
parents:
492
diff
changeset
|
941 movwf win_leftx2 |
2b1239e6ea85
Bugfix: More then one marker shown deleted profile
heinrichsweikamp
parents:
492
diff
changeset
|
942 movlw profile_top |
2b1239e6ea85
Bugfix: More then one marker shown deleted profile
heinrichsweikamp
parents:
492
diff
changeset
|
943 movwf win_top |
2b1239e6ea85
Bugfix: More then one marker shown deleted profile
heinrichsweikamp
parents:
492
diff
changeset
|
944 movlw profile_height_pixels |
2b1239e6ea85
Bugfix: More then one marker shown deleted profile
heinrichsweikamp
parents:
492
diff
changeset
|
945 movwf win_height |
2b1239e6ea85
Bugfix: More then one marker shown deleted profile
heinrichsweikamp
parents:
492
diff
changeset
|
946 movlw LOW (profile_width_pixels*.2) |
2b1239e6ea85
Bugfix: More then one marker shown deleted profile
heinrichsweikamp
parents:
492
diff
changeset
|
947 movwf win_width+0 |
2b1239e6ea85
Bugfix: More then one marker shown deleted profile
heinrichsweikamp
parents:
492
diff
changeset
|
948 movlw HIGH (profile_width_pixels*.2) |
2b1239e6ea85
Bugfix: More then one marker shown deleted profile
heinrichsweikamp
parents:
492
diff
changeset
|
949 movwf win_width+1 |
2b1239e6ea85
Bugfix: More then one marker shown deleted profile
heinrichsweikamp
parents:
492
diff
changeset
|
950 call TFT_box_write ; re-open box for d1 |
402
a3a0f1fd7fc4
NEW: Logbook shows markers with small orange boxes in the profile
heinrichsweikamp
parents:
392
diff
changeset
|
951 |
a3a0f1fd7fc4
NEW: Logbook shows markers with small orange boxes in the profile
heinrichsweikamp
parents:
392
diff
changeset
|
952 profile_display_skip_marker: |
0 | 953 ;---- Draw CNS curve, if any --------------------------------------------- |
954 movf divisor_cns,W | |
955 bz profile_display_skip_cns | |
956 ; | |
957 ; TODO HERE | |
958 ; | |
959 profile_display_skip_cns: | |
960 | |
961 ;---- Draw GF curve, if any ---------------------------------------------- | |
962 movf divisor_gf,W | |
963 bz profile_display_skip_gf | |
964 ; | |
965 ; TODO HERE | |
966 ; | |
967 profile_display_skip_gf: | |
968 | |
969 ;---- All curves done. | |
970 | |
971 profile_display_skip_loop1: ; skips readings! | |
972 dcfsnz profile_temp2+0,F | |
973 bra profile_display_loop3 ; check 16bit.... | |
974 | |
975 rcall profile_view_get_depth ; reads depth, temp and profile data | |
168
1784ab9362ca
BUGFIX: False max. temp in Logbook, false Bailout and Gas 6 flags in logbook
heinrichsweikamp
parents:
167
diff
changeset
|
976 |
1784ab9362ca
BUGFIX: False max. temp in Logbook, false Bailout and Gas 6 flags in logbook
heinrichsweikamp
parents:
167
diff
changeset
|
977 btfsc end_of_profile ; end-of profile reached? |
1784ab9362ca
BUGFIX: False max. temp in Logbook, false Bailout and Gas 6 flags in logbook
heinrichsweikamp
parents:
167
diff
changeset
|
978 bra profile_display_loop_done ; Yes, skip all remaining pixels |
1784ab9362ca
BUGFIX: False max. temp in Logbook, false Bailout and Gas 6 flags in logbook
heinrichsweikamp
parents:
167
diff
changeset
|
979 |
0 | 980 bra profile_display_skip_loop1 |
981 | |
982 profile_display_loop3: | |
983 decfsz profile_temp2+1,F ; 16 bit x-scaler test | |
984 bra profile_display_skip_loop1 ; skips readings! | |
985 | |
986 decfsz ignore_digits,F ; counts drawn x-pixels to zero | |
987 bra profile_display_loop ; Not ready yet | |
988 ; Done. | |
989 | |
990 display_profile_no_profile: ; No profile available for this dive! | |
991 | |
992 profile_display_loop_done: | |
99
87cc1adfe4da
show event "bailout" in the internal logbook
heinrichsweikamp
parents:
98
diff
changeset
|
993 btfss is_bailout ; Bailout during the dive? |
87cc1adfe4da
show event "bailout" in the internal logbook
heinrichsweikamp
parents:
98
diff
changeset
|
994 bra profile_display_loop_done_nobail ; No |
87cc1adfe4da
show event "bailout" in the internal logbook
heinrichsweikamp
parents:
98
diff
changeset
|
995 ; Yes, show "Bailout" |
87cc1adfe4da
show event "bailout" in the internal logbook
heinrichsweikamp
parents:
98
diff
changeset
|
996 movlw color_pink |
87cc1adfe4da
show event "bailout" in the internal logbook
heinrichsweikamp
parents:
98
diff
changeset
|
997 call TFT_set_color |
87cc1adfe4da
show event "bailout" in the internal logbook
heinrichsweikamp
parents:
98
diff
changeset
|
998 WIN_TINY logbook_bailout_column,logbook_bailout_row |
87cc1adfe4da
show event "bailout" in the internal logbook
heinrichsweikamp
parents:
98
diff
changeset
|
999 STRCPY_TEXT_PRINT tDiveBailout ; Bailout |
87cc1adfe4da
show event "bailout" in the internal logbook
heinrichsweikamp
parents:
98
diff
changeset
|
1000 profile_display_loop_done_nobail: |
87cc1adfe4da
show event "bailout" in the internal logbook
heinrichsweikamp
parents:
98
diff
changeset
|
1001 btfss gas6_changed ; Gas6 |
87cc1adfe4da
show event "bailout" in the internal logbook
heinrichsweikamp
parents:
98
diff
changeset
|
1002 bra profile_display_loop_done_nogas6 ; No |
87cc1adfe4da
show event "bailout" in the internal logbook
heinrichsweikamp
parents:
98
diff
changeset
|
1003 ; Yes, show "Gas 6!" |
87cc1adfe4da
show event "bailout" in the internal logbook
heinrichsweikamp
parents:
98
diff
changeset
|
1004 movlw color_pink |
87cc1adfe4da
show event "bailout" in the internal logbook
heinrichsweikamp
parents:
98
diff
changeset
|
1005 call TFT_set_color |
87cc1adfe4da
show event "bailout" in the internal logbook
heinrichsweikamp
parents:
98
diff
changeset
|
1006 WIN_TINY logbook_bailout_column,logbook_bailout_row-.15 |
87cc1adfe4da
show event "bailout" in the internal logbook
heinrichsweikamp
parents:
98
diff
changeset
|
1007 STRCPY_TEXT tGas ; Gas |
87cc1adfe4da
show event "bailout" in the internal logbook
heinrichsweikamp
parents:
98
diff
changeset
|
1008 STRCAT_PRINT " 6!" |
87cc1adfe4da
show event "bailout" in the internal logbook
heinrichsweikamp
parents:
98
diff
changeset
|
1009 |
87cc1adfe4da
show event "bailout" in the internal logbook
heinrichsweikamp
parents:
98
diff
changeset
|
1010 profile_display_loop_done_nogas6: |
0 | 1011 decf divesecs,F ;-1 |
1012 read_int_eeprom .2 | |
1013 movf EEDATA,W | |
1014 bcf STATUS,C | |
1015 subfwb divesecs,W ; max. dives (low value) - divesecs | |
1016 movwf lo ; result | |
1017 incf divesecs,F ;+1 | |
1018 ; Set ext_flash_address:3 to TOC entry of this dive | |
1019 ; 1st: 200000h-200FFFh -> lo=0 | |
1020 ; 2nd: 201000h-201FFFh -> lo=1 | |
1021 ; 3rd: 202000h-202FFFh -> lo=2 | |
1022 ; 256: 2FF000h-2FFFFFh -> lo=255 (And hi>0...) | |
1023 clrf ext_flash_address+0 | |
1024 clrf ext_flash_address+1 | |
1025 movlw 0x20 | |
1026 movwf ext_flash_address+2 | |
1027 movlw .16 | |
1028 mulwf lo ; lo*16 = offset to 0x2000 (up:hi) | |
1029 movf PRODL,W | |
1030 addwf ext_flash_address+1,F | |
1031 movf PRODH,W | |
1032 addwfc ext_flash_address+2,F | |
1033 ; pointer at the first 0xFA of header | |
1034 | |
162
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
1035 movff logbook_min_temp_pos,win_top ; Y position at lowest temperature |
432 | 1036 movff logbook_pixel_x_pos,win_leftx2 |
0 | 1037 movlw .130 |
432 | 1038 cpfslt win_leftx2 ; limit left border to 130 |
1039 movwf win_leftx2 | |
0 | 1040 WIN_FONT FT_TINY |
1041 movlw color_orange ; Use same color as tp° curve | |
1042 call TFT_set_color | |
1043 | |
1044 movff logbook_min_tp+0,lo | |
1045 movff logbook_min_tp+1,hi | |
1046 lfsr FSR2,buffer | |
1047 | |
1048 TSTOSS opt_units ; 0=°C, 1=°F | |
1049 bra logbook_show_temp_metric | |
1050 ;logbook_show_temp_imperial: | |
1051 call TFT_convert_signed_16bit ; converts lo:hi into signed-short and adds '-' to POSTINC2 if required | |
1052 call convert_celsius_to_fahrenheit ; convert value in lo:hi from celsius to fahrenheit | |
1053 lfsr FSR2,buffer ; Overwrite "-" | |
1054 bsf ignore_digit5 ; Full degrees only | |
1055 output_16 | |
162
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
1056 STRCAT_TEXT_PRINT tLogTunitF |
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
1057 ; Now, the max. temperature |
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
1058 movlw .15 |
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
1059 subwf logbook_max_temp_pos,W |
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
1060 movff WREG,win_top ; Y position at max temperature |
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
1061 movff logbook_max_tp+0,lo |
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
1062 movff logbook_max_tp+1,hi |
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
1063 lfsr FSR2,buffer |
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
1064 call TFT_convert_signed_16bit ; converts lo:hi into signed-short and adds '-' to POSTINC2 if required |
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
1065 call convert_celsius_to_fahrenheit ; convert value in lo:hi from celsius to fahrenheit |
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
1066 output_16 |
0 | 1067 bcf ignore_digit5 |
162
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
1068 STRCAT_TEXT_PRINT tLogTunitF |
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
1069 |
0 | 1070 bra logbook_show_temp_common |
1071 | |
1072 logbook_show_temp_metric: | |
162
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
1073 call TFT_convert_signed_16bit ; converts lo:hi into signed-short and adds '-' to POSTINC2 if required |
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
1074 movlw d'3' |
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
1075 movwf ignore_digits |
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
1076 bsf leftbind |
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
1077 output_16dp d'2' ; temperature |
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
1078 STRCAT_TEXT_PRINT tLogTunitC |
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
1079 ; Now, the max. temperature |
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
1080 movlw .15 |
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
1081 subwf logbook_max_temp_pos,W |
432 | 1082 movwf win_top ; Y position at max temperature |
162
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
1083 movff logbook_max_tp+0,lo |
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
1084 movff logbook_max_tp+1,hi |
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
1085 lfsr FSR2,buffer |
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
1086 call TFT_convert_signed_16bit ; converts lo:hi into signed-short and adds '-' to POSTINC2 if required |
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
1087 movlw d'3' |
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
1088 movwf ignore_digits |
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
1089 bsf leftbind |
0 | 1090 output_16dp d'2' ; temperature |
1091 STRCAT_TEXT_PRINT tLogTunitC | |
1092 | |
1093 logbook_show_temp_common: | |
162
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
1094 |
50 | 1095 bcf leftbind |
1096 call TFT_standard_color | |
0 | 1097 |
1098 ; Get pointer to Gaslist | |
1099 LOG_POINT_TO log_gas1 | |
1100 | |
1101 movlw color_white ; Color for Gas 1 | |
1102 call TFT_set_color ; Set Color... | |
1103 bsf leftbind | |
1104 WIN_TINY log_gas_column1, log_gas_row | |
1105 rcall log_show_gas_common | |
1106 | |
1107 movlw color_green ; Color for Gas 2 | |
1108 call TFT_set_color ; Set Color... | |
1109 WIN_TINY log_gas_column2, log_gas_row | |
1110 rcall log_show_gas_common | |
1111 | |
1112 movlw color_red ; Color for Gas 3 | |
1113 call TFT_set_color ; Set Color... | |
1114 WIN_TINY log_gas_column3, log_gas_row | |
1115 rcall log_show_gas_common | |
1116 | |
1117 movlw color_yellow ; Color for Gas 4 | |
1118 call TFT_set_color ; Set Color... | |
1119 WIN_TINY log_gas_column4, log_gas_row | |
1120 rcall log_show_gas_common | |
1121 | |
1122 movlw color_cyan ; Color for Gas 5 | |
1123 call TFT_set_color ; Set Color... | |
1124 WIN_TINY log_gas_column5, log_gas_row | |
1125 rcall log_show_gas_common | |
1126 | |
1127 rcall logbook_preloop_tasks ; Clear some flags and set to Speed_eco | |
1128 display_profile_loop: | |
1129 btfsc switch_left ; SET/MENU? | |
1130 bra logbook_page2 ; Show more information | |
1131 btfsc switch_right ; ENTER? | |
1132 bra exit_profileview ; back to list | |
1133 | |
1134 rcall log_screendump_and_onesecond ; Check if we need to make a screenshot and check for new second | |
1135 btfsc sleepmode ; Timeout? | |
1136 bra exit_profileview ; back to list | |
1137 bra display_profile_loop ; wait for something to do | |
1138 | |
1139 global log_screendump_and_onesecond | |
1140 log_screendump_and_onesecond: ; Check if we need to make a screenshot and check for new second | |
1141 btfsc onesecupdate | |
1142 call timeout_surfmode ; Timeout | |
1143 btfsc onesecupdate | |
1144 call set_dive_modes ; Check, if divemode must be entered | |
1145 bcf onesecupdate ; one second update | |
1146 btfsc divemode | |
1147 goto restart ; Enter Divemode if required | |
1148 | |
1149 btfsc enable_screen_dumps ; =1: Ignore vin_usb, wait for "l" command (Screen dump) | |
1150 bra log_screendump_and_onesecond2 | |
1151 btfsc vusb_in ; USB plugged in? | |
113 | 1152 call comm_mode ; Start COMM mode |
0 | 1153 return |
1154 log_screendump_and_onesecond2: | |
1155 btfss vusb_in ; USB (still) plugged in? | |
1156 bcf enable_screen_dumps ; No, clear flag | |
1157 call rs232_get_byte | |
1158 btfsc rs232_recieve_overflow | |
1159 return | |
1160 movlw "l" | |
1161 cpfseq RCREG1 | |
1162 return | |
392
32780516c8c6
NEW: Show actual dive count in logbook list view (If <1000)
heinrichsweikamp
parents:
389
diff
changeset
|
1163 goto TFT_dump_screen ; Dump the screen contents and return |
0 | 1164 |
1165 log_show_gas_common: | |
1166 extern customview_show_mix | |
1167 lfsr FSR2,buffer | |
1168 call ext_flash_byte_read_plus ; Gas2 current O2 | |
1169 movff temp1,lo | |
1170 call ext_flash_byte_read_plus ; Gas2 current He | |
1171 movff temp1,hi | |
1172 call customview_show_mix ; Put "Nxlo", "Txlo/hi", "Air" or "O2" into Postinc2 | |
1173 STRCAT_PRINT "" | |
1174 call ext_flash_byte_read_plus ; Gas2 change depth | |
392
32780516c8c6
NEW: Show actual dive count in logbook list view (If <1000)
heinrichsweikamp
parents:
389
diff
changeset
|
1175 goto ext_flash_byte_read_plus ; Gas2 Type and return |
0 | 1176 |
1177 ;============================================================================= | |
1178 profile_display_color: | |
1179 movff average_depth_hold_total+3,active_gas ; Restore gas color. | |
1180 movlw color_white ; Default color | |
1181 dcfsnz active_gas,F | |
1182 movlw color_white ; Color for Gas 1 | |
1183 dcfsnz active_gas,F | |
1184 movlw color_green ; Color for Gas 2 | |
1185 dcfsnz active_gas,F | |
1186 movlw color_red ; Color for Gas 3 | |
1187 dcfsnz active_gas,F | |
1188 movlw color_yellow ; Color for Gas 4 | |
1189 dcfsnz active_gas,F | |
1190 movlw color_cyan ; Color for Gas 5 | |
1191 dcfsnz active_gas,F | |
99
87cc1adfe4da
show event "bailout" in the internal logbook
heinrichsweikamp
parents:
98
diff
changeset
|
1192 movlw color_pink ; Color for Gas 6 |
0 | 1193 goto TFT_set_color ; Set Color... |
1194 | |
1195 ;============================================================================= | |
1196 ; Draw a vertical line between xC+1 and xC+0, at current X position. | |
1197 ; | |
1198 ; Note: should keep xC+0 | |
1199 ; Note: ascending or descending ! | |
1200 ; | |
1201 profile_display_fill: | |
1202 ; First, check if xC+0>apnoe_mins or xC+0<aponoe_mins | |
1203 movf xC+0,W | |
1204 cpfseq xC+1 ; xC+0 = apone_mins? | |
1205 bra profile_display_fill2 ; No! | |
1206 return | |
1207 | |
1208 profile_display_fill2: | |
1209 ; Make sure to init X position. | |
1210 movf logbook_pixel_x_pos,W | |
1211 mullw 2 | |
1212 decf PRODL,F | |
1213 movlw 0 | |
1214 subwfb PRODH,F | |
1215 call pixel_write_col320 | |
1216 | |
1217 movf xC+0,W | |
1218 cpfsgt xC+1 ; apnoe_mins>xC+0? | |
1219 bra profile_display_fill_up ; Yes! | |
1220 | |
1221 profile_display_fill_down2: ; Loop | |
1222 decf xC+1,F | |
1223 | |
1224 HALF_PIXEL_WRITE xC+1 ; Updates just row (0..239) | |
1225 | |
1226 movf xC+0,W | |
1227 cpfseq xC+1 ; Loop until xC+1=xC+0 | |
1228 bra profile_display_fill_down2 | |
1229 return ; apnoe_mins and xC+0 are untouched | |
1230 | |
1231 profile_display_fill_up: ; Fill upwards from xC+0 to apone_mins! | |
1232 incf xC+1,F | |
1233 | |
1234 HALF_PIXEL_WRITE xC+1 ; Updates just row (0..239) | |
1235 | |
1236 movf xC+0,W | |
1237 cpfseq xC+1 ; Loop until xC+1=apnoe_mins | |
1238 bra profile_display_fill_up | |
1239 return ; apnoe_mins and xC+0 are untouched | |
1240 | |
1241 ;============================================================================= | |
1242 | |
1243 | |
1244 profile_view_get_depth: | |
376
e99bb91f6f92
CHANGE: Do not show ppO2 in warning area if already shown in custom view
heinrichsweikamp
parents:
372
diff
changeset
|
1245 infsnz logbook_sample_counter+0,F |
e99bb91f6f92
CHANGE: Do not show ppO2 in warning area if already shown in custom view
heinrichsweikamp
parents:
372
diff
changeset
|
1246 incf logbook_sample_counter+1,F ; Count read pixels |
0 | 1247 |
1248 movf logbook_sample_counter+0,W | |
1249 cpfseq average_depth_hold_total+0 | |
1250 bra profile_view_get_depth_no_line ; no need to draw a 10min line, continue | |
1251 movf logbook_sample_counter+1,W | |
1252 cpfseq average_depth_hold_total+1 | |
1253 bra profile_view_get_depth_no_line ; no need to draw a 10min line, continue | |
1254 ; draw a new 10min line here... | |
1255 clrf logbook_sample_counter+0 | |
1256 clrf logbook_sample_counter+1 ; clear counting registers for next line | |
1257 | |
1258 ; Vertical lines... | |
1259 movlw color_deepblue | |
1260 call TFT_set_color ; Make this configurable? | |
1261 movlw profile_top+.1 | |
432 | 1262 movwf win_top |
0 | 1263 incf logbook_pixel_x_pos,W ; draw one line to right to make sure it's the background of the profile |
432 | 1264 movwf win_leftx2 ; Left border (0-159) |
0 | 1265 movlw profile_height_pixels |
432 | 1266 movwf win_height |
0 | 1267 movlw profile_height_pixels |
432 | 1268 movwf win_width ; "Window" height |
0 | 1269 call half_horizontal_line ; Inputs: win_top, win_leftx2, win_width, win_color1, win_color2 |
1270 | |
1271 profile_view_get_depth_no_line: | |
1272 call ext_flash_byte_read_plus_0x20 ; read depth first | |
1273 movff temp1,logbook_cur_depth+0 ; low value | |
1274 call ext_flash_byte_read_plus_0x20 ; read depth first | |
1275 movff temp1,logbook_cur_depth+1 ; high value | |
1276 call ext_flash_byte_read_plus_0x20 ; read Profile Flag Byte | |
402
a3a0f1fd7fc4
NEW: Logbook shows markers with small orange boxes in the profile
heinrichsweikamp
parents:
392
diff
changeset
|
1277 movff temp1,timeout_counter2 ; store Profile Flag Byte |
0 | 1278 |
1279 bcf event_occured ; clear flag | |
1280 btfsc timeout_counter2,7 | |
1281 bsf event_occured ; We also have an Event byte! | |
1282 bcf timeout_counter2,7 ; Clear Event Byte Flag (If any) | |
1283 ; timeout_counter2 now holds the number of additional bytes to ignore (0-127) | |
1284 movlw 0xFD ; end of profile bytes? | |
1285 cpfseq logbook_cur_depth+0 | |
1286 bra profile_view_get_depth_new1 ; no 1st. 0xFD | |
1287 cpfseq logbook_cur_depth+1 | |
1288 bra profile_view_get_depth_new1 ; no 2nd. 0xFD | |
1289 bsf end_of_profile ; End found! Set Flag! Skip remaining pixels! | |
1290 return | |
1291 | |
1292 profile_view_get_depth_new1: | |
1293 btfsc event_occured ; Was there an event attached to this sample? | |
168
1784ab9362ca
BUGFIX: False max. temp in Logbook, false Bailout and Gas 6 flags in logbook
heinrichsweikamp
parents:
167
diff
changeset
|
1294 rcall profile_view_get_depth_events ; Yes, get information about this event(s) |
0 | 1295 |
1296 ;---- Read Tp°, if any AND divisor reached AND bytes available ----------- | |
1297 movf divisor_temperature,W ; Is Tp° divisor null ? | |
1298 bz profile_view_get_depth_no_tp; Yes: no Tp° curve. | |
1299 decf count_temperature,F ; Decrement tp° counter | |
1300 bnz profile_view_get_depth_no_tp; No temperature this time | |
1301 | |
1302 call ext_flash_byte_read_plus_0x20 ; Tp° low | |
1303 decf timeout_counter2,F | |
1304 movff temp1,logbook_cur_tp+0 | |
1305 call ext_flash_byte_read_plus_0x20 ; Tp° high | |
1306 decf timeout_counter2,F | |
1307 movff temp1,logbook_cur_tp+1 | |
1308 movff divisor_temperature,count_temperature ; Restart counter. | |
1309 | |
1310 ; Compute Tp° max on the fly... | |
1311 movff logbook_cur_tp+0,sub_a+0 ; Compare cur_tp > max_tp ? | |
1312 movff logbook_cur_tp+1,sub_a+1 | |
1313 movff logbook_max_tp+0,sub_b+0 | |
1314 movff logbook_max_tp+1,sub_b+1 | |
1315 call sub16 ; SIGNED sub_a - sub_b | |
1316 btfsc neg_flag | |
1317 bra profile_view_get_depth_no_tp | |
162
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
1318 |
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
1319 ; store max. temp only below start_dive_threshold (1,0m) |
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
1320 tstfsz logbook_cur_depth+1 ; > 2,56m? |
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
1321 bra profile_view_compute_max_temp ; Yes, include in max. temp measurement |
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
1322 movlw start_dive_threshold ; 1,0m |
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
1323 cpfsgt logbook_cur_depth+0 ; low value |
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
1324 bra profile_view_get_depth_no_tp ; above 1,0m, ignore temp |
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
1325 |
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
1326 profile_view_compute_max_temp: |
0 | 1327 movff logbook_cur_tp+0,logbook_max_tp+0 |
1328 movff logbook_cur_tp+1,logbook_max_tp+1 | |
1329 | |
1330 ;---- Read deco, if any AND divisor=0 AND bytes available ---------------- | |
1331 profile_view_get_depth_no_tp: | |
1332 movf divisor_deco,W | |
1333 bz profile_view_get_depth_no_deco | |
1334 decf count_deco,F | |
1335 bnz profile_view_get_depth_no_deco | |
1336 | |
1337 call ext_flash_byte_read_plus_0x20 | |
1338 decf timeout_counter2,F | |
1339 movff temp1,logbook_ceiling | |
1340 movff divisor_deco,count_deco ; Restart counter. | |
168
1784ab9362ca
BUGFIX: False max. temp in Logbook, false Bailout and Gas 6 flags in logbook
heinrichsweikamp
parents:
167
diff
changeset
|
1341 call ext_flash_byte_read_plus_0x20 ; Skip stop length |
1784ab9362ca
BUGFIX: False max. temp in Logbook, false Bailout and Gas 6 flags in logbook
heinrichsweikamp
parents:
167
diff
changeset
|
1342 decf timeout_counter2,F |
0 | 1343 |
1344 ;---- Read GF, if any AND divisor=0 AND bytes available ------------------ | |
1345 profile_view_get_depth_no_deco: | |
1346 ; Then skip remaining bytes... | |
1347 movf timeout_counter2,W ; number of additional bytes to ignore (0-127) | |
167 | 1348 tstfsz timeout_counter2 ; Anything to skip? |
1349 call incf_ext_flash_address0_0x20; Yes, increases bytes in ext_flash_address:3 with 0x200000 bank switching | |
0 | 1350 return |
1351 | |
168
1784ab9362ca
BUGFIX: False max. temp in Logbook, false Bailout and Gas 6 flags in logbook
heinrichsweikamp
parents:
167
diff
changeset
|
1352 profile_view_get_depth_events: |
1784ab9362ca
BUGFIX: False max. temp in Logbook, false Bailout and Gas 6 flags in logbook
heinrichsweikamp
parents:
167
diff
changeset
|
1353 clrf EventByte2 ; Clear EventByte2 |
99
87cc1adfe4da
show event "bailout" in the internal logbook
heinrichsweikamp
parents:
98
diff
changeset
|
1354 call ext_flash_byte_read_plus_0x20 ; Read Event byte |
0 | 1355 movff temp1,EventByte ; store EventByte |
1356 decf timeout_counter2,F ; reduce counter | |
98 | 1357 |
1358 btfss EventByte,7 ; Another Event byte? | |
1359 bra profile_no_second_eventbyte ; No | |
1360 call ext_flash_byte_read_plus_0x20; Read Event byte2 | |
1361 movff temp1,EventByte2 ; store EventByte2 | |
1362 decf timeout_counter2,F ; reduce counter | |
1363 bcf EventByte,7 ; Clear flag | |
1364 | |
1365 profile_no_second_eventbyte: | |
168
1784ab9362ca
BUGFIX: False max. temp in Logbook, false Bailout and Gas 6 flags in logbook
heinrichsweikamp
parents:
167
diff
changeset
|
1366 ; Check event flags in the EventBytes |
167 | 1367 btfsc EventByte,4 ; Manual Gas Changed? |
1368 rcall logbook_event1 ; Yes! | |
1369 btfsc EventByte,5 ; Stored Gas Changed? | |
1370 rcall logbook_event4 ; Yes! | |
1371 btfsc EventByte,6 ; Setpoint Change? | |
1372 rcall logbook_event3 ; Yes! | |
99
87cc1adfe4da
show event "bailout" in the internal logbook
heinrichsweikamp
parents:
98
diff
changeset
|
1373 btfsc EventByte2,0 ; Bailout? |
167 | 1374 rcall logbook_event2 ; Yes! |
402
a3a0f1fd7fc4
NEW: Logbook shows markers with small orange boxes in the profile
heinrichsweikamp
parents:
392
diff
changeset
|
1375 ; Any Alarm? |
a3a0f1fd7fc4
NEW: Logbook shows markers with small orange boxes in the profile
heinrichsweikamp
parents:
392
diff
changeset
|
1376 bcf EventByte,4 ; Clear bits already tested |
a3a0f1fd7fc4
NEW: Logbook shows markers with small orange boxes in the profile
heinrichsweikamp
parents:
392
diff
changeset
|
1377 bcf EventByte,5 |
a3a0f1fd7fc4
NEW: Logbook shows markers with small orange boxes in the profile
heinrichsweikamp
parents:
392
diff
changeset
|
1378 bcf EventByte,6 |
a3a0f1fd7fc4
NEW: Logbook shows markers with small orange boxes in the profile
heinrichsweikamp
parents:
392
diff
changeset
|
1379 movlw .6 ; manual marker? |
a3a0f1fd7fc4
NEW: Logbook shows markers with small orange boxes in the profile
heinrichsweikamp
parents:
392
diff
changeset
|
1380 cpfseq EventByte |
a3a0f1fd7fc4
NEW: Logbook shows markers with small orange boxes in the profile
heinrichsweikamp
parents:
392
diff
changeset
|
1381 return ; No, return |
a3a0f1fd7fc4
NEW: Logbook shows markers with small orange boxes in the profile
heinrichsweikamp
parents:
392
diff
changeset
|
1382 bsf log_marker_found ; Manual marker! Draw small yellow rectancle here |
163
4d71549dcf6c
clarify diluent change in the documentation
heinrichsweikamp
parents:
162
diff
changeset
|
1383 return |
4d71549dcf6c
clarify diluent change in the documentation
heinrichsweikamp
parents:
162
diff
changeset
|
1384 |
4d71549dcf6c
clarify diluent change in the documentation
heinrichsweikamp
parents:
162
diff
changeset
|
1385 logbook_event4: ; Stored Gas changed! |
4d71549dcf6c
clarify diluent change in the documentation
heinrichsweikamp
parents:
162
diff
changeset
|
1386 call ext_flash_byte_read_plus_0x20 ; Read Gas# |
4d71549dcf6c
clarify diluent change in the documentation
heinrichsweikamp
parents:
162
diff
changeset
|
1387 decf timeout_counter2,F ; reduce counter |
0 | 1388 movff temp1,average_depth_hold_total+3 |
163
4d71549dcf6c
clarify diluent change in the documentation
heinrichsweikamp
parents:
162
diff
changeset
|
1389 rcall profile_display_color ; Change profile color according to gas number |
0 | 1390 return |
1391 | |
99
87cc1adfe4da
show event "bailout" in the internal logbook
heinrichsweikamp
parents:
98
diff
changeset
|
1392 logbook_event1: ; Gas6 changed |
87cc1adfe4da
show event "bailout" in the internal logbook
heinrichsweikamp
parents:
98
diff
changeset
|
1393 bsf gas6_changed |
0 | 1394 movlw 6 ; Just color backup to 6 |
1395 movwf average_depth_hold_total+3 | |
1396 rcall profile_display_color ; Back to normal profile color. | |
167 | 1397 incf_ext_flash_address_0x20 .2 ; Skip two bytes |
1398 decf timeout_counter2,F ; reduce counter | |
1399 decf timeout_counter2,F ; reduce counter | |
1400 return | |
0 | 1401 |
99
87cc1adfe4da
show event "bailout" in the internal logbook
heinrichsweikamp
parents:
98
diff
changeset
|
1402 logbook_event2: ; Bailout |
87cc1adfe4da
show event "bailout" in the internal logbook
heinrichsweikamp
parents:
98
diff
changeset
|
1403 bsf is_bailout ; Set flag |
87cc1adfe4da
show event "bailout" in the internal logbook
heinrichsweikamp
parents:
98
diff
changeset
|
1404 movff average_depth_hold_total+3,total_divetime_seconds+0 ; Backup last gas color in case we return to CCR |
87cc1adfe4da
show event "bailout" in the internal logbook
heinrichsweikamp
parents:
98
diff
changeset
|
1405 movlw 6 ; Use Gas6 color |
87cc1adfe4da
show event "bailout" in the internal logbook
heinrichsweikamp
parents:
98
diff
changeset
|
1406 movwf average_depth_hold_total+3 |
87cc1adfe4da
show event "bailout" in the internal logbook
heinrichsweikamp
parents:
98
diff
changeset
|
1407 rcall profile_display_color ; Back to normal profile color. |
167 | 1408 incf_ext_flash_address_0x20 .2 ; Skip two bytes |
1409 decf timeout_counter2,F ; reduce counter | |
1410 decf timeout_counter2,F ; reduce counter | |
1411 return | |
99
87cc1adfe4da
show event "bailout" in the internal logbook
heinrichsweikamp
parents:
98
diff
changeset
|
1412 |
87cc1adfe4da
show event "bailout" in the internal logbook
heinrichsweikamp
parents:
98
diff
changeset
|
1413 logbook_event3: ; Setpoint change |
167 | 1414 incf_ext_flash_address_0x20 .1 ; Skip one byte |
1415 decf timeout_counter2,F ; reduce counter | |
99
87cc1adfe4da
show event "bailout" in the internal logbook
heinrichsweikamp
parents:
98
diff
changeset
|
1416 btfss is_bailout ; Are we in bailout? |
87cc1adfe4da
show event "bailout" in the internal logbook
heinrichsweikamp
parents:
98
diff
changeset
|
1417 return ; No, return |
87cc1adfe4da
show event "bailout" in the internal logbook
heinrichsweikamp
parents:
98
diff
changeset
|
1418 ; We were in bailout before, restore profile color |
87cc1adfe4da
show event "bailout" in the internal logbook
heinrichsweikamp
parents:
98
diff
changeset
|
1419 movff total_divetime_seconds+0,average_depth_hold_total+3 ; Restore color |
87cc1adfe4da
show event "bailout" in the internal logbook
heinrichsweikamp
parents:
98
diff
changeset
|
1420 rcall profile_display_color ; Back to normal profile color. |
87cc1adfe4da
show event "bailout" in the internal logbook
heinrichsweikamp
parents:
98
diff
changeset
|
1421 return |
87cc1adfe4da
show event "bailout" in the internal logbook
heinrichsweikamp
parents:
98
diff
changeset
|
1422 |
0 | 1423 exit_profileview: |
255 | 1424 ; call speed_fastest |
0 | 1425 bcf sleepmode |
1426 clrf timeout_counter2 ; restore all registers to build same page again | |
1427 movff divemins_backup,divemins+0 | |
1428 movff logbook_divenumber_temp, logbook_divenumber | |
1429 movff logbook_max_dive_counter_temp,logbook_max_dive_counter | |
1430 incf logbook_max_dive_counter,F | |
1431 decf logbook_divenumber,F | |
1432 bcf all_dives_shown | |
1433 clrf menupos3 ; here: used row on current page | |
1434 movlw logbook_row_number | |
1435 movwf menupos ; here: active row on current page | |
372 | 1436 ; call TFT_DisplayOff |
502
0910c227018f
BUGFIX: PSCR mode showed bailout gaslist instead of diluent gaslist
heinrichsweikamp
parents:
500
diff
changeset
|
1437 call TFT_boot |
0 | 1438 clrf CCP1CON ; stop PWM |
1439 bcf PORTC,2 ; Pull PWM out to GND | |
502
0910c227018f
BUGFIX: PSCR mode showed bailout gaslist instead of diluent gaslist
heinrichsweikamp
parents:
500
diff
changeset
|
1440 call TFT_boot |
0910c227018f
BUGFIX: PSCR mode showed bailout gaslist instead of diluent gaslist
heinrichsweikamp
parents:
500
diff
changeset
|
1441 ; call TFT_ClearScreen ; clear details/profile |
0 | 1442 goto logbook2 ; start search |
1443 | |
1444 next_logbook2: | |
1445 btfsc all_dives_shown ; all shown | |
1446 goto logbook ; all reset | |
1447 clrf menupos3 | |
1448 movlw logbook_row_number | |
1449 movwf menupos | |
1450 incf logbook_page_number,F ; start new screen | |
169
dcf3e08f31ac
CHANGE: Improve internal logbook usability
heinrichsweikamp
parents:
168
diff
changeset
|
1451 bsf keep_cursor_new_page ; Keep cursor on "next page" |
0 | 1452 clrf CCP1CON ; stop PWM |
1453 bcf PORTC,2 ; Pull PWM out to GND | |
502
0910c227018f
BUGFIX: PSCR mode showed bailout gaslist instead of diluent gaslist
heinrichsweikamp
parents:
500
diff
changeset
|
1454 call TFT_boot |
0910c227018f
BUGFIX: PSCR mode showed bailout gaslist instead of diluent gaslist
heinrichsweikamp
parents:
500
diff
changeset
|
1455 ;call TFT_ClearScreen |
0 | 1456 goto logbook2 ; start search |
1457 | |
1458 next_logbook3: | |
1459 incf menupos,F ; +1 | |
1460 movlw logbook_row_number+.2 | |
1461 cpfsgt menupos ; =logbook_row_number+.3? | |
1462 bra next_logbook3a ; No | |
1463 movlw .1 | |
1464 movwf menupos | |
1465 bra next_logbook3b | |
1466 | |
1467 next_logbook3a: | |
1468 incf menupos3,W ; last entry in current page +1 | |
1469 cpfseq menupos ; same as cursor pos.? | |
1470 bra next_logbook3b ; No | |
1471 movlw logbook_row_number+.1 ; Yes, ... | |
1472 movwf menupos ; ... jump directly to "next page" if page is not full | |
1473 | |
1474 movlw logbook_row_number | |
1475 cpfseq menupos3 ; Last dive was row logbook_row_number? | |
1476 bsf all_dives_shown ; No, set flag to load first page again (full reset) | |
1477 | |
1478 next_logbook3b: | |
1479 clrf timeout_counter2 | |
1480 call TFT_logbook_cursor | |
1481 | |
1482 bcf switch_left | |
1483 goto logbook_loop | |
1484 | |
1485 display_listdive: | |
1486 bsf logbook_page_not_empty ; Page not empty | |
1487 incf menupos3,F | |
1488 | |
1489 bsf leftbind | |
1490 WIN_FONT FT_SMALL | |
1491 WIN_LEFT logbook_list_left | |
1492 | |
1493 decf menupos3,W ; -1 into wreg | |
1494 mullw logbook_row_offset | |
1495 movff PRODL,win_top | |
1496 | |
1497 lfsr FSR2,buffer | |
392
32780516c8c6
NEW: Show actual dive count in logbook list view (If <1000)
heinrichsweikamp
parents:
389
diff
changeset
|
1498 call do_logoffset_common_read ; Read into lo:hi |
32780516c8c6
NEW: Show actual dive count in logbook list view (If <1000)
heinrichsweikamp
parents:
389
diff
changeset
|
1499 tstfsz lo ; lo=0? |
32780516c8c6
NEW: Show actual dive count in logbook list view (If <1000)
heinrichsweikamp
parents:
389
diff
changeset
|
1500 bra display_listdive1 ; No, adjust offset |
32780516c8c6
NEW: Show actual dive count in logbook list view (If <1000)
heinrichsweikamp
parents:
389
diff
changeset
|
1501 tstfsz hi ; hi=0? |
32780516c8c6
NEW: Show actual dive count in logbook list view (If <1000)
heinrichsweikamp
parents:
389
diff
changeset
|
1502 bra display_listdive1 ; No, adjust offset |
32780516c8c6
NEW: Show actual dive count in logbook list view (If <1000)
heinrichsweikamp
parents:
389
diff
changeset
|
1503 bra display_listdive1b ; Display now |
32780516c8c6
NEW: Show actual dive count in logbook list view (If <1000)
heinrichsweikamp
parents:
389
diff
changeset
|
1504 |
32780516c8c6
NEW: Show actual dive count in logbook list view (If <1000)
heinrichsweikamp
parents:
389
diff
changeset
|
1505 display_listdive1: |
32780516c8c6
NEW: Show actual dive count in logbook list view (If <1000)
heinrichsweikamp
parents:
389
diff
changeset
|
1506 ; Check limit (lo:hi must be <1000) |
32780516c8c6
NEW: Show actual dive count in logbook list view (If <1000)
heinrichsweikamp
parents:
389
diff
changeset
|
1507 movlw LOW d'1000' ; Compare to 1000 |
32780516c8c6
NEW: Show actual dive count in logbook list view (If <1000)
heinrichsweikamp
parents:
389
diff
changeset
|
1508 subwf lo,W |
32780516c8c6
NEW: Show actual dive count in logbook list view (If <1000)
heinrichsweikamp
parents:
389
diff
changeset
|
1509 movlw HIGH d'1000' |
32780516c8c6
NEW: Show actual dive count in logbook list view (If <1000)
heinrichsweikamp
parents:
389
diff
changeset
|
1510 subwfb hi,W |
32780516c8c6
NEW: Show actual dive count in logbook list view (If <1000)
heinrichsweikamp
parents:
389
diff
changeset
|
1511 bc display_listdive1b ; carry = no-borrow = > 1000, skip! |
32780516c8c6
NEW: Show actual dive count in logbook list view (If <1000)
heinrichsweikamp
parents:
389
diff
changeset
|
1512 |
32780516c8c6
NEW: Show actual dive count in logbook list view (If <1000)
heinrichsweikamp
parents:
389
diff
changeset
|
1513 infsnz lo,F |
32780516c8c6
NEW: Show actual dive count in logbook list view (If <1000)
heinrichsweikamp
parents:
389
diff
changeset
|
1514 incf hi,F ; hi:lo = hi:lo + 1 |
32780516c8c6
NEW: Show actual dive count in logbook list view (If <1000)
heinrichsweikamp
parents:
389
diff
changeset
|
1515 movff lo,sub_a+0 |
32780516c8c6
NEW: Show actual dive count in logbook list view (If <1000)
heinrichsweikamp
parents:
389
diff
changeset
|
1516 movff hi,sub_a+1 |
32780516c8c6
NEW: Show actual dive count in logbook list view (If <1000)
heinrichsweikamp
parents:
389
diff
changeset
|
1517 movff logbook_divenumber,sub_b+0 |
32780516c8c6
NEW: Show actual dive count in logbook list view (If <1000)
heinrichsweikamp
parents:
389
diff
changeset
|
1518 clrf sub_b+1 |
32780516c8c6
NEW: Show actual dive count in logbook list view (If <1000)
heinrichsweikamp
parents:
389
diff
changeset
|
1519 call subU16 ; sub_c = sub_a - sub_b |
32780516c8c6
NEW: Show actual dive count in logbook list view (If <1000)
heinrichsweikamp
parents:
389
diff
changeset
|
1520 movff sub_c+0,lo |
32780516c8c6
NEW: Show actual dive count in logbook list view (If <1000)
heinrichsweikamp
parents:
389
diff
changeset
|
1521 movff sub_c+1,hi |
32780516c8c6
NEW: Show actual dive count in logbook list view (If <1000)
heinrichsweikamp
parents:
389
diff
changeset
|
1522 bra display_listdive1a |
32780516c8c6
NEW: Show actual dive count in logbook list view (If <1000)
heinrichsweikamp
parents:
389
diff
changeset
|
1523 |
32780516c8c6
NEW: Show actual dive count in logbook list view (If <1000)
heinrichsweikamp
parents:
389
diff
changeset
|
1524 display_listdive1b: |
32780516c8c6
NEW: Show actual dive count in logbook list view (If <1000)
heinrichsweikamp
parents:
389
diff
changeset
|
1525 clrf hi |
32780516c8c6
NEW: Show actual dive count in logbook list view (If <1000)
heinrichsweikamp
parents:
389
diff
changeset
|
1526 movff logbook_divenumber,lo ; lo=0 and hi=0 -> show without applied offset |
32780516c8c6
NEW: Show actual dive count in logbook list view (If <1000)
heinrichsweikamp
parents:
389
diff
changeset
|
1527 display_listdive1a: |
32780516c8c6
NEW: Show actual dive count in logbook list view (If <1000)
heinrichsweikamp
parents:
389
diff
changeset
|
1528 output_16_3 ; displays only last three figures from a 16Bit value (0-999), # of dive |
0 | 1529 PUTC ' ' |
1530 LOG_POINT_TO log_date+1 ; Point to month | |
1531 call ext_flash_byte_read_plus | |
1532 movff temp1,lo ; read month | |
1533 | |
1534 display_listdive2: | |
1535 movff lo,convert_value_temp+0 ; Month (in lo, see above) | |
1536 call ext_flash_byte_read_plus ; Day | |
1537 movff temp1,convert_value_temp+1 | |
1538 call TFT_convert_date_short ; converts into "DD/MM" or "MM/DD" or "MM/DD" into buffer | |
1539 PUTC ' ' | |
1540 | |
1541 LOG_POINT_TO log_max_depth ; Point to max. depth | |
1542 call ext_flash_byte_read_plus ; max. Depth | |
1543 movff temp1,lo | |
1544 call ext_flash_byte_read_plus | |
1545 movff temp1,hi | |
1546 | |
1547 TSTOSS opt_units ; 0=Meters, 1=Feets | |
1548 bra display_listdive2_metric | |
1549 ;display_listdive2_imperial: | |
1550 call convert_mbar_to_feet ; convert value in lo:hi from mbar to feet | |
1551 PUTC ' ' | |
25 | 1552 bcf leftbind |
225
31088352ee32
BUGFIX: Show dives with >999mins divetime correctly
heinrichsweikamp
parents:
189
diff
changeset
|
1553 output_16_3 ; limit to 999 and display only (0-999) |
0 | 1554 STRCAT_TEXT tFeets1 |
1555 bra display_listdive3 | |
1556 | |
1557 display_listdive2_metric: | |
1558 bsf ignore_digit5 ; no cm... | |
1559 movlw d'1' ; +1 | |
1560 movff WREG,ignore_digits ; no 1000m | |
1561 bcf leftbind | |
1562 output_16dp .3 ; xxx.y | |
1563 STRCAT_TEXT tMeters | |
1564 PUTC ' ' | |
1565 | |
1566 display_listdive3: | |
1567 call ext_flash_byte_read_plus | |
1568 movff temp1,lo ; read divetime minutes | |
1569 call ext_flash_byte_read_plus | |
1570 movff temp1,hi | |
1571 output_16_3 ; Divetime minutes (0-999min) | |
376
e99bb91f6f92
CHANGE: Do not show ppO2 in warning area if already shown in custom view
heinrichsweikamp
parents:
372
diff
changeset
|
1572 STRCAT_TEXT tMinutes |
e99bb91f6f92
CHANGE: Do not show ppO2 in warning area if already shown in custom view
heinrichsweikamp
parents:
372
diff
changeset
|
1573 clrf WREG |
392
32780516c8c6
NEW: Show actual dive count in logbook list view (If <1000)
heinrichsweikamp
parents:
389
diff
changeset
|
1574 movff WREG,buffer+.21 ; limit to 21 chars |
376
e99bb91f6f92
CHANGE: Do not show ppO2 in warning area if already shown in custom view
heinrichsweikamp
parents:
372
diff
changeset
|
1575 STRCAT_PRINT "" ; Display header-row in list |
0 | 1576 return |
1577 | |
1578 logbook_show_divenumber: | |
1579 call do_logoffset_common_read ; Read into lo:hi | |
1580 tstfsz lo ; lo=0? | |
1581 bra logbook_show_divenumber2 ; No, adjust offset | |
1582 tstfsz hi ; hi=0? | |
1583 bra logbook_show_divenumber2 ; No, adjust offset | |
1584 movff divesecs,lo ; lo=0 and hi=0 -> skip Offset routine | |
1585 bra logbook_show_divenumber3 ; Display now | |
1586 | |
1587 logbook_show_divenumber2: | |
376
e99bb91f6f92
CHANGE: Do not show ppO2 in warning area if already shown in custom view
heinrichsweikamp
parents:
372
diff
changeset
|
1588 infsnz lo,F |
e99bb91f6f92
CHANGE: Do not show ppO2 in warning area if already shown in custom view
heinrichsweikamp
parents:
372
diff
changeset
|
1589 incf hi,F ; hi:lo = hi:lo + 1 |
0 | 1590 movff lo,sub_a+0 |
1591 movff hi,sub_a+1 | |
1592 movff divesecs,sub_b+0 | |
1593 clrf sub_b+1 | |
1594 call subU16 ; sub_c = sub_a - sub_b | |
1595 movff sub_c+0,lo | |
1596 movff sub_c+1,hi | |
1597 | |
1598 logbook_show_divenumber3: | |
1599 WIN_MEDIUM logbook_divenumer_column, logbook_divenumer_row | |
1600 bsf leftbind | |
1601 output_16 ; # of dive in logbook | |
1602 bcf leftbind | |
1603 STRCAT_PRINT "" | |
1604 return | |
1605 | |
1606 | |
1607 logbook_page2: ; Show more info | |
500
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1608 rcall log_details_header ; Shows number, time/date and basic dive info |
490
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1609 |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1610 ; Deco model |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1611 WIN_SMALL .5,.65 |
0 | 1612 LOG_POINT_TO log_decomodel |
490
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1613 call ext_flash_byte_read_plus ; read deco model |
0 | 1614 movff temp1,lo |
1615 decfsz temp1,F | |
1616 bra logbook_decomodel1 | |
1617 ; Deco model GF Version | |
1618 STRCAT_TEXT_PRINT tZHL16GF | |
1619 LOG_POINT_TO log_gf_lo | |
490
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1620 WIN_SMALL .5,.90 |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1621 STRCPY_TEXT tGF |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1622 call ext_flash_byte_read_plus ; Read GF lo |
0 | 1623 movff temp1,lo |
1624 output_8 | |
490
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1625 STRCAT "%/" |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1626 bra logbook_decomodel_common |
0 | 1627 logbook_decomodel1: |
1628 ; Deco model NON-GF Version | |
1629 STRCAT_TEXT_PRINT tZHL16 | |
1630 LOG_POINT_TO log_sat_mult | |
490
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1631 WIN_SMALL .5,.90 |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1632 call ext_flash_byte_read_plus ; Read sat_mult |
0 | 1633 movff temp1,lo |
1634 output_8 | |
490
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1635 STRCAT "%/" |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1636 logbook_decomodel_common: |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1637 call ext_flash_byte_read_plus ; Read desat_mult or GF_hi |
0 | 1638 movff temp1,lo |
1639 output_8 | |
1640 STRCAT_PRINT "%" | |
490
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1641 |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1642 ; CNS |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1643 LOG_POINT_TO log_cns_start |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1644 WIN_SMALL .5,.115 |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1645 STRCPY_TEXT tCNS2 |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1646 call ext_flash_byte_read_plus ; read cns low |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1647 movff temp1,lo |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1648 call ext_flash_byte_read_plus ; read cns high |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1649 movff temp1,hi |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1650 output_16 |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1651 LOG_POINT_TO log_cns_end |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1652 STRCAT "->" |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1653 call ext_flash_byte_read_plus ; read CNS low |
0 | 1654 movff temp1,lo |
490
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1655 call ext_flash_byte_read_plus ; read CNS high |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1656 movff temp1,hi |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1657 output_16 |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1658 STRCAT_PRINT "%" |
0 | 1659 |
490
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1660 ; Salinity |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1661 WIN_SMALL .5,.140 |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1662 LOG_POINT_TO log_salinity |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1663 STRCPY_TEXT tDvSalinity |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1664 bsf leftbind |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1665 call ext_flash_byte_read_plus ; read salinity |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1666 movff temp1,lo |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1667 movff temp1,total_divetime_seconds+1 ; backup for average depth display |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1668 output_8 |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1669 STRCAT_PRINT "%" |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1670 |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1671 ; Average depth |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1672 WIN_SMALL .5,.165 |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1673 STRCPY_TEXT tAVG |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1674 LOG_POINT_TO log_avr_depth |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1675 call ext_flash_byte_read_plus ; read avr low |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1676 movff temp1,lo |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1677 call ext_flash_byte_read_plus ; read avr high |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1678 movff temp1,hi |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1679 movf total_divetime_seconds+1,W ; salinity for this dive |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1680 call adjust_depth_with_salinity_log ; computes salinity setting (FROM WREG!) into lo:hi [mbar] |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1681 output_16dp .3 |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1682 STRCAT_PRINT "m" |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1683 |
0 | 1684 ; Last deco |
1685 LOG_POINT_TO log_last_stop | |
490
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1686 WIN_SMALL .5,.190 |
0 | 1687 STRCPY_TEXT tLastDecostop |
490
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1688 call ext_flash_byte_read_plus ; Read last stop |
0 | 1689 movff temp1,lo |
1690 output_8 | |
490
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1691 STRCAT_PRINT "m" |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1692 |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1693 movlw color_lightblue |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1694 call TFT_set_color |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1695 WIN_FRAME_COLOR16 .63,.220,.2,.105; Top, Bottom, Left, Right |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1696 |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1697 ; Firmware |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1698 call TFT_standard_color |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1699 WIN_SMALL .110,.65 |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1700 STRCAT "V:" |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1701 LOG_POINT_TO log_firmware |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1702 call ext_flash_byte_read_plus ; read firmware xx |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1703 movff temp1,lo |
496
a0247e9f71d0
show battery % in logbook (For dives made with 2.15 or newer)
heinrichsweikamp
parents:
495
diff
changeset
|
1704 bsf neg_flag ; set flag for 2.15 or newer |
a0247e9f71d0
show battery % in logbook (For dives made with 2.15 or newer)
heinrichsweikamp
parents:
495
diff
changeset
|
1705 movlw .1 |
a0247e9f71d0
show battery % in logbook (For dives made with 2.15 or newer)
heinrichsweikamp
parents:
495
diff
changeset
|
1706 cpfsgt lo ; >1? |
a0247e9f71d0
show battery % in logbook (For dives made with 2.15 or newer)
heinrichsweikamp
parents:
495
diff
changeset
|
1707 bcf neg_flag ; No, clear flag |
500
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1708 movlw .9 |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1709 cpfslt lo ; <9? |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1710 bcf neg_flag ; No, clear flag (When unit was updgraded from hwOS Sport (10.xx)) |
490
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1711 bsf leftbind |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1712 output_8 |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1713 PUTC "." |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1714 call ext_flash_byte_read_plus ; read firmware yy |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1715 movff temp1,lo |
496
a0247e9f71d0
show battery % in logbook (For dives made with 2.15 or newer)
heinrichsweikamp
parents:
495
diff
changeset
|
1716 movlw .14 |
a0247e9f71d0
show battery % in logbook (For dives made with 2.15 or newer)
heinrichsweikamp
parents:
495
diff
changeset
|
1717 cpfsgt lo ; >14? |
a0247e9f71d0
show battery % in logbook (For dives made with 2.15 or newer)
heinrichsweikamp
parents:
495
diff
changeset
|
1718 bcf neg_flag ; No, clear flag |
490
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1719 output_99x |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1720 STRCAT_PRINT "" |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1721 |
496
a0247e9f71d0
show battery % in logbook (For dives made with 2.15 or newer)
heinrichsweikamp
parents:
495
diff
changeset
|
1722 btfss neg_flag ; set flag for 2.15 or newer |
a0247e9f71d0
show battery % in logbook (For dives made with 2.15 or newer)
heinrichsweikamp
parents:
495
diff
changeset
|
1723 bra logbook_no_batt_info |
a0247e9f71d0
show battery % in logbook (For dives made with 2.15 or newer)
heinrichsweikamp
parents:
495
diff
changeset
|
1724 |
a0247e9f71d0
show battery % in logbook (For dives made with 2.15 or newer)
heinrichsweikamp
parents:
495
diff
changeset
|
1725 ; Battery percent (for dives with 2.15 or newer) |
a0247e9f71d0
show battery % in logbook (For dives made with 2.15 or newer)
heinrichsweikamp
parents:
495
diff
changeset
|
1726 WIN_SMALL .110,.140 |
a0247e9f71d0
show battery % in logbook (For dives made with 2.15 or newer)
heinrichsweikamp
parents:
495
diff
changeset
|
1727 LOG_POINT_TO log_batt_info ; Battery percent |
a0247e9f71d0
show battery % in logbook (For dives made with 2.15 or newer)
heinrichsweikamp
parents:
495
diff
changeset
|
1728 call ext_flash_byte_read_plus ; read battery low |
a0247e9f71d0
show battery % in logbook (For dives made with 2.15 or newer)
heinrichsweikamp
parents:
495
diff
changeset
|
1729 movff temp1,lo |
a0247e9f71d0
show battery % in logbook (For dives made with 2.15 or newer)
heinrichsweikamp
parents:
495
diff
changeset
|
1730 output_8 |
a0247e9f71d0
show battery % in logbook (For dives made with 2.15 or newer)
heinrichsweikamp
parents:
495
diff
changeset
|
1731 STRCAT_PRINT "%" |
a0247e9f71d0
show battery % in logbook (For dives made with 2.15 or newer)
heinrichsweikamp
parents:
495
diff
changeset
|
1732 |
a0247e9f71d0
show battery % in logbook (For dives made with 2.15 or newer)
heinrichsweikamp
parents:
495
diff
changeset
|
1733 logbook_no_batt_info: ; dives with firmware <2.15 |
a0247e9f71d0
show battery % in logbook (For dives made with 2.15 or newer)
heinrichsweikamp
parents:
495
diff
changeset
|
1734 |
490
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1735 ; Battery voltage |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1736 WIN_SMALL .110,.90 |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1737 STRCAT_PRINT "Batt:" |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1738 WIN_SMALL .110,.115 |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1739 LOG_POINT_TO log_battery ; Battery voltage... |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1740 call ext_flash_byte_read_plus ; read battery low |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1741 movff temp1,lo |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1742 call ext_flash_byte_read_plus ; read battery high |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1743 movff temp1,hi |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1744 output_16dp .2 |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1745 STRCAT_PRINT "V" |
496
a0247e9f71d0
show battery % in logbook (For dives made with 2.15 or newer)
heinrichsweikamp
parents:
495
diff
changeset
|
1746 |
a0247e9f71d0
show battery % in logbook (For dives made with 2.15 or newer)
heinrichsweikamp
parents:
495
diff
changeset
|
1747 ; surface pressure in mbar |
490
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1748 LOG_POINT_TO log_surface_press |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1749 call ext_flash_byte_read_plus ; read surface pressure |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1750 movff temp1,lo |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1751 call ext_flash_byte_read_plus ; read surface pressure |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1752 movff temp1,hi |
496
a0247e9f71d0
show battery % in logbook (For dives made with 2.15 or newer)
heinrichsweikamp
parents:
495
diff
changeset
|
1753 WIN_SMALL .110,.165 |
490
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1754 lfsr FSR2,buffer |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1755 bsf leftbind |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1756 output_16 ; Air pressure before dive |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1757 STRCAT_TEXT tMBAR |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1758 clrf WREG |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1759 movff WREG,buffer+7 ; limit to 7 chars |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1760 STRCAT_PRINT "" |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1761 |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1762 movlw color_greenish |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1763 call TFT_set_color |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1764 WIN_FRAME_COLOR16 .63,.220,.107,.159; Top, Bottom, Left, Right |
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1765 |
0 | 1766 rcall logbook_preloop_tasks ; Clear some flags and set to Speed_eco |
1767 display_details_loop: | |
500
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1768 btfsc switch_left ; SET/MENU? |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1769 bra logbook_page3 ; Details, 2nd page |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1770 btfsc switch_right ; ENTER? |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1771 bra exit_profileview ; back to list |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1772 rcall log_screendump_and_onesecond ; Check if we need to make a screenshot and check for new second |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1773 btfsc sleepmode ; Timeout? |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1774 bra exit_profileview ; back to list |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1775 bra display_details_loop ; wait for something to do |
0 | 1776 |
1777 global logbook_preloop_tasks | |
1778 logbook_preloop_tasks: | |
275 | 1779 movlw CCP1CON_VALUE ; See hwos.inc |
0 | 1780 movwf CCP1CON ; Power-on backlight |
500
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1781 call TFT_standard_color |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1782 bcf sleepmode ; clear some flags |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1783 bcf switch_right |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1784 bcf switch_left |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1785 clrf timeout_counter2 |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1786 goto speed_normal ; and return |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1787 |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1788 |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1789 logbook_page3: ; Show even more info |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1790 rcall log_details_header ; Shows number, time/date and basic dive info |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1791 |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1792 ; OC/CC Gas List |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1793 LOG_POINT_TO log_divemode |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1794 call ext_flash_byte_read_plus ; 0=OC, 1=CC, 2=Gauge, 3=Apnea into temp1 |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1795 WIN_SMALL .5,.65 |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1796 WIN_COLOR color_greenish |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1797 STRCPY_TEXT_PRINT tGaslist |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1798 bcf leftbind |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1799 LOG_POINT_TO log_gas1 |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1800 movlw color_white ; Color for Gas 1 |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1801 call TFT_set_color ; Set Color... |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1802 WIN_SMALL .5,.90 |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1803 rcall log_show_gas_common2 |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1804 movlw color_green ; Color for Gas 2 |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1805 call TFT_set_color ; Set Color... |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1806 WIN_SMALL .5,.115 |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1807 rcall log_show_gas_common2 |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1808 movlw color_red ; Color for Gas 3 |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1809 call TFT_set_color ; Set Color... |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1810 WIN_SMALL .5,.140 |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1811 rcall log_show_gas_common2 |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1812 movlw color_yellow ; Color for Gas 4 |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1813 call TFT_set_color ; Set Color... |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1814 WIN_SMALL .5,.165 |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1815 rcall log_show_gas_common2 |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1816 movlw color_cyan ; Color for Gas 5 |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1817 call TFT_set_color ; Set Color... |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1818 WIN_SMALL .5,.190 |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1819 rcall log_show_gas_common2 |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1820 |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1821 movlw color_lightblue |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1822 call TFT_set_color |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1823 WIN_FRAME_COLOR16 .63,.220,.2,.90; Top, Bottom, Left, Right |
530 | 1824 |
500
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1825 rcall logbook_preloop_tasks ; Clear some flags and set to Speed_eco |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1826 display_details2_loop: |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1827 btfsc switch_left ; SET/MENU? |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1828 goto logbook_page4 ; Show more info |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1829 btfsc switch_right ; ENTER? |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1830 bra exit_profileview ; back to list |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1831 rcall log_screendump_and_onesecond ; Check if we need to make a screenshot and check for new second |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1832 btfsc sleepmode ; Timeout? |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1833 bra exit_profileview ; back to list |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1834 bra display_details2_loop ; wait for something to do |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1835 |
530 | 1836 logbook_page4: ; Show even more info in CC mode |
1837 LOG_POINT_TO log_divemode | |
1838 call ext_flash_byte_read ; 0=OC, 1=CC, 2=Gauge, 3=Apnea into WREG and temp1 | |
1839 decfsz temp1,w ; =1 (CC)? | |
1840 goto display_profile2 ; no | |
1841 | |
500
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1842 rcall log_details_header ; Shows number, time/date and basic dive info |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1843 ; Setpoint list |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1844 LOG_POINT_TO log_sp1 |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1845 WIN_SMALL .5,.65 |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1846 WIN_COLOR color_greenish |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1847 STRCPY_TEXT_PRINT tFixedSetpoints |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1848 call TFT_standard_color |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1849 WIN_SMALL .5,.90 |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1850 rcall log_show_sp_common |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1851 WIN_SMALL .5,.115 |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1852 rcall log_show_sp_common |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1853 WIN_SMALL .5,.140 |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1854 rcall log_show_sp_common |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1855 WIN_SMALL .5,.165 |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1856 rcall log_show_sp_common |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1857 WIN_SMALL .5,.190 |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1858 rcall log_show_sp_common |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1859 |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1860 movlw color_greenish |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1861 call TFT_set_color |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1862 WIN_FRAME_COLOR16 .63,.220,.2,.112; Top, Bottom, Left, Right |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1863 |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1864 rcall logbook_preloop_tasks ; Clear some flags and set to Speed_eco |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1865 display_details3_loop: |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1866 btfsc switch_left ; SET/MENU? |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1867 goto display_profile2 ; Show the profile view again |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1868 btfsc switch_right ; ENTER? |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1869 bra exit_profileview ; back to list |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1870 rcall log_screendump_and_onesecond ; Check if we need to make a screenshot and check for new second |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1871 btfsc sleepmode ; Timeout? |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1872 bra exit_profileview ; back to list |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1873 bra display_details3_loop ; wait for something to do |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1874 |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1875 |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1876 |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1877 log_details_header: |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1878 clrf CCP1CON ; stop PWM |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1879 bcf PORTC,2 ; Pull PWM out to GND |
502
0910c227018f
BUGFIX: PSCR mode showed bailout gaslist instead of diluent gaslist
heinrichsweikamp
parents:
500
diff
changeset
|
1880 call TFT_boot |
0910c227018f
BUGFIX: PSCR mode showed bailout gaslist instead of diluent gaslist
heinrichsweikamp
parents:
500
diff
changeset
|
1881 ;call TFT_ClearScreen ; Clear screen |
0 | 1882 |
500
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1883 ; Set ext_flash pointer to "#divesecs-oldest" dive |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1884 ; compute read_int_eeprom .2 - divesecs |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1885 ; Read required header data for profile display |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1886 ; look in header for pointer to begin of diveprofile (Byte 2-4) |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1887 ; Set pointer (ext_flash_log_pointer:3) to this address, start drawing |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1888 |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1889 decf divesecs,F ;-1 |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1890 read_int_eeprom .2 |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1891 movf EEDATA,W |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1892 bcf STATUS,C |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1893 subfwb divesecs,W ; max. dives (low value) - divesecs |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1894 movwf lo ; result |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1895 incf divesecs,F ;+1 |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1896 ; Set ext_flash_address:3 to TOC entry of this dive |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1897 ; 1st: 200000h-200FFFh -> lo=0 |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1898 ; 2nd: 201000h-201FFFh -> lo=1 |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1899 ; 3rd: 202000h-202FFFh -> lo=2 |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1900 ; 256: 2FF000h-2FFFFFh -> lo=255 (And hi>0...) |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1901 clrf ext_flash_address+0 |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1902 clrf ext_flash_address+1 |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1903 movlw 0x20 |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1904 movwf ext_flash_address+2 |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1905 movlw .16 |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1906 mulwf lo ; lo*16 = offset to 0x2000 (up:hi) |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1907 movf PRODL,W |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1908 addwf ext_flash_address+1,F |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1909 movf PRODH,W |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1910 addwfc ext_flash_address+2,F |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1911 ; pointer at the first 0xFA of header |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1912 rcall logbook_show_divenumber ; Show the dive number in medium font |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1913 ; Show date and time in first row |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1914 WIN_SMALL .59,.10 |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1915 LOG_POINT_TO log_date |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1916 call ext_flash_byte_read_plus |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1917 movff temp1,convert_value_temp+2 ; Year |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1918 call ext_flash_byte_read_plus |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1919 movff temp1,convert_value_temp+0 ; Month |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1920 call ext_flash_byte_read_plus |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1921 movff temp1,convert_value_temp+1 ; Day |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1922 call TFT_convert_date ; converts into "DD/MM/YY" or "MM/DD/YY" or "YY/MM/DD" in postinc2 |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1923 PUTC "-" |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1924 call ext_flash_byte_read_plus ; hour |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1925 movff temp1,lo |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1926 call ext_flash_byte_read_plus ; Minutes |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1927 movff temp1,hi |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1928 output_99x ; hour |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1929 PUTC ':' |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1930 movff hi,lo |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1931 output_99x ; minute |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1932 STRCAT_PRINT "" ; Display 1st row of details |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1933 |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1934 ; Show max depth and dive time |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1935 WIN_SMALL .5,.35 |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1936 STRCAT "Max:" |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1937 LOG_POINT_TO log_max_depth |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1938 call ext_flash_byte_read_plus ; read max depth |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1939 movff temp1,lo |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1940 call ext_flash_byte_read_plus ; read max depth |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1941 movff temp1,hi |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1942 |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1943 TSTOSS opt_units ; 0=Meters, 1=Feets |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1944 bra logbook_page2_depth_metric |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1945 ; imperial |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1946 call convert_mbar_to_feet ; convert value in lo:hi from mbar to feet |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1947 PUTC ' ' |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1948 bcf leftbind |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1949 output_16_3 |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1950 STRCAT_TEXT tFeets |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1951 bra logbook_page2_depth_common |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1952 |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1953 logbook_page2_depth_metric: |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1954 bsf leftbind |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1955 output_16dp d'3' ; max. depth |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1956 STRCAT_TEXT tMeters |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1957 |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1958 logbook_page2_depth_common: |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1959 STRCAT " - " |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1960 call ext_flash_byte_read_plus ; divetime in minutes |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1961 movff temp1,lo |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1962 call ext_flash_byte_read_plus |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1963 movff temp1,hi ; divetime in minutes |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1964 |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1965 bsf leftbind |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1966 output_16 ; divetime minutes |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1967 PUTC "m" |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1968 LOG_POINT_TO log_divetime+.2 |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1969 call ext_flash_byte_read_plus ; read divetime seconds |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1970 movff temp1,lo |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1971 bsf leftbind |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1972 output_99x ; divetime seconds |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1973 call TFT_standard_color |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1974 STRCAT_PRINT "s" |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1975 ; ; Dive mode |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1976 ; LOG_POINT_TO log_divemode |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1977 ; call ext_flash_byte_read_plus ; Read divemode |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1978 ; movff temp1,lo |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1979 ; call TFT_display_decotype_surface1 ; "strcat_print"s divemode (OC, CC, APNEA or GAUGE) |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1980 return |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1981 |
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1982 |
0 | 1983 log_show_sp_common: |
1984 lfsr FSR2,buffer | |
1985 call ext_flash_byte_read_plus ; Read setpoint | |
1986 movff temp1,lo | |
1987 clrf hi | |
1988 bsf leftbind | |
1989 output_16dp d'3' | |
1990 bcf leftbind | |
1991 STRCAT_TEXT tbar | |
1992 PUTC " " | |
1993 call ext_flash_byte_read_plus ; change depth | |
1994 movff temp1,lo | |
1995 | |
1996 TSTOSS opt_units ; 0=Meters, 1=Feets | |
1997 bra log_show_sp_common_metric | |
1998 movf lo,W | |
1999 mullw .100 ; convert meters to mbar | |
2000 movff PRODL,lo | |
2001 movff PRODH,hi | |
2002 call convert_mbar_to_feet ; convert value in lo:hi from mbar to feet | |
2003 output_16 | |
2004 STRCAT_TEXT tFeets ; "ft" | |
2005 bra log_show_sp_common_common | |
2006 log_show_sp_common_metric: | |
2007 output_8 | |
2008 STRCAT_TEXT tMeters ; "m" | |
2009 log_show_sp_common_common: | |
2010 STRCAT_PRINT "" | |
2011 return | |
2012 | |
2013 log_show_gas_common2: ; as log_show_gas_common but with change depth | |
2014 lfsr FSR2,buffer | |
2015 call ext_flash_byte_read_plus ; current O2 | |
2016 movff temp1,lo | |
2017 call ext_flash_byte_read_plus ; current He | |
2018 movff temp1,hi | |
2019 call customview_show_mix ; Put "Nxlo", "Txlo/hi", "Air" or "O2" into Postinc2 | |
2020 call ext_flash_byte_read_plus ; change depth | |
2021 movff temp1,lo | |
2022 | |
2023 TSTOSS opt_units ; 0=Meters, 1=Feets | |
2024 bra log_show_gas_common2_metric | |
2025 movf lo,W | |
2026 mullw .100 ; convert meters to mbar | |
2027 movff PRODL,lo | |
2028 movff PRODH,hi | |
2029 call convert_mbar_to_feet ; convert value in lo:hi from mbar to feet | |
2030 output_16 | |
2031 STRCAT_TEXT tFeets ; "ft" | |
2032 bra log_show_gas_common2_common | |
2033 log_show_gas_common2_metric: | |
2034 output_8 | |
2035 STRCAT_TEXT tMeters ; "m" | |
2036 log_show_gas_common2_common: | |
2037 bcf leftbind | |
2038 call ext_flash_byte_read_plus ; Gas Type | |
2039 STRCAT_PRINT "" | |
2040 return | |
2041 | |
2042 END |