Mercurial > public > hwos_code
annotate src/logbook.asm @ 632:0347acdf6d8e
changelog updates
| author | heinrichsweikamp |
|---|---|
| date | Sat, 29 Feb 2020 16:57:45 +0100 |
| parents | 185ba2f91f59 |
| children | 4050675965ea |
| rev | line source |
|---|---|
| 0 | 1 ;============================================================================= |
| 2 ; | |
| 631 | 3 ; File logbook.asm combined next generation V3.08.8 |
| 0 | 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 | |
| 582 | 11 ; |
| 0 | 12 ;============================================================================= |
| 582 | 13 |
| 14 | |
| 604 | 15 #include "hwos.inc" ; mandatory header |
| 582 | 16 #include "tft.inc" |
| 17 #include "external_flash.inc" | |
| 18 #include "math.inc" | |
| 19 #include "strings.inc" | |
| 20 #include "convert.inc" | |
| 21 #include "tft_outputs.inc" | |
| 22 #include "eeprom_rs232.inc" | |
| 23 #include "menu_processor.inc" | |
| 24 #include "start.inc" | |
| 25 #include "surfmode.inc" | |
| 26 #include "divemode.inc" | |
| 27 #include "ghostwriter.inc" | |
| 631 | 28 #include "rtc.inc" |
| 29 | |
| 30 #DEFINE inside_loogbook | |
| 31 #include "logbook.inc" | |
| 32 | |
| 0 | 33 |
| 582 | 34 extern do_main_menu2 |
| 623 | 35 extern gaslist_show_mix |
| 582 | 36 |
| 37 | |
| 631 | 38 ;---- Private local variables ------------------------------------------------ |
| 0 | 39 |
| 582 | 40 CBLOCK local1 ; max size is 16 byte !!! |
| 41 count_temperature ; current sample count for temperature divisor | |
| 42 count_deco ; current sample count for deco (ceiling) divisor | |
| 623 | 43 logbook_cur_depth:2 ; current depth, for drawing profile |
| 44 logbook_cur_tp:2 ; current temperature, for drawing profile | |
| 45 logbook_last_tp ; Y of the last item in Tp° curve | |
| 46 logbook_min_tp:2 ; min temperature, for drawing profile | |
| 47 logbook_max_tp:2 ; maximum temperature, for drawing profile | |
| 48 logbook_ceiling ; current ceiling, for drawing profile | |
| 582 | 49 logbook_flags ; flags only used in logbook.asm |
| 50 logbook_page_number ; page# in logbook | |
| 51 logbook_divenumber ; # of dive in list during search | |
| 52 logbook_max_dive_counter ; counts dive# to zero | |
| 53 ENDC ; used: 16 byte, remaining: 0 byte => FULL | |
| 0 | 54 |
| 582 | 55 CBLOCK local2 ; max size is 16 byte !!! |
| 56 profile_temp1:2 ; temp for profile display | |
| 57 profile_temp2:2 ; temp for profile display | |
| 58 logbook_sample_counter:2 ; amount of read samples | |
| 629 | 59 y_scale:2 ; y-scale (the horizontal lines) |
| 60 x_scale:2 ; x-scale (the vertical lines) | |
| 582 | 61 logbook_pixel_x_pos ; x2 position of current pixel in X-direction |
| 62 logbook_min_temp_pos ; lowest row in the temp graph | |
| 63 logbook_max_temp_pos ; lowest row in the temp graph | |
| 64 logbook_menupos_temp ; last position of cursor | |
| 65 logbook_divenumber_temp ; used to back-up dive number | |
| 66 logbook_max_dive_counter_temp ; used to back-up max_dive_counter | |
| 67 ENDC ; used: 16 byte, remaining: 0 byte => FULL | |
| 0 | 68 |
| 582 | 69 CBLOCK local3 ; max size is 16 byte !!! |
| 70 divenumber ; used for accessing dives | |
| 71 vertical_interval:2 ; holds interval of samples for vertical 10min line | |
| 72 backup_color1 ; used for restoring drawing color | |
| 73 backup_color2 ; used for restoring drawing color | |
| 74 fill_between_rows ; used for fill between rows | |
| 75 logbook_temp ; used as temp | |
| 76 logbook_temp_backup ; used as backup for temp | |
| 77 divisor_temperature ; divisor used while sampling of the dive data | |
| 78 divisor_deco ; divisor used while sampling of the dive data | |
| 79 divisor_gf ; divisor used while sampling of the dive data | |
| 80 divisor_ppo2_sensors ; divisor used while sampling of the dive data | |
| 81 divisor_decoplan ; divisor used while sampling of the dive data | |
| 82 divisor_cns ; divisor used while sampling of the dive data | |
| 83 divisor_tank ; divisor used while sampling of the dive data | |
| 631 | 84 total_num_dives ; total number of dives (low byte on) |
| 85 ENDC ; used: 16 byte, remaining: 0 byte => full | |
| 582 | 86 |
| 0 | 87 |
| 623 | 88 ; Remarks: The variable gaslist_gas is "misused" here as a local variable, |
| 89 ; because the storage space for local variables is fully used up. | |
| 90 ; | |
| 91 ; This code includes decoding and displaying of log data for Trimix | |
| 92 ; and CCR/pSCR dives to make sure that if such dives are in the | |
| 93 ; logbook they will be displayed correctly. | |
| 582 | 94 |
| 95 ;---- Defines ---------------------------------------------------------------- | |
| 96 | |
| 97 ; Flags | |
| 98 #DEFINE return_from_profileview logbook_flags,0 | |
| 99 #DEFINE all_dives_shown logbook_flags,1 | |
| 100 #DEFINE logbook_page_not_empty logbook_flags,2 | |
| 101 #DEFINE end_of_profile logbook_flags,3 | |
| 102 #DEFINE keep_cursor_new_page logbook_flags,4 | |
| 103 #DEFINE log_marker_found logbook_flags,5 | |
| 104 #DEFINE log_show_gas_short logbook_flags,6 | |
| 105 ; logbook_flags,7 ; unused | |
| 106 | |
| 631 | 107 |
| 0 | 108 ; Logbook Coordinates |
| 604 | 109 #DEFINE logbook_list_left .10 ; column of dive# in list |
| 628 | 110 #DEFINE logbook_row_offset .27 ; distance between rows of list |
| 631 | 111 #DEFINE logbook_row_number .7 ; number of dive entry rows per list |
| 0 | 112 |
| 113 ; Profile display | |
| 604 | 114 #DEFINE profile_height_pixels .157 ; amount of pixels height for profile display |
| 115 #DEFINE profile_width_pixels .156 ; amount of pixels width for profile display | |
| 116 #DEFINE profile_left .1 ; left border | |
| 117 #DEFINE profile_top .65 ; top border | |
| 0 | 118 |
|
99
87cc1adfe4da
show event "bailout" in the internal logbook
heinrichsweikamp
parents:
98
diff
changeset
|
119 ; "Bailout" |
| 582 | 120 #DEFINE logbook_bailout_column .124 |
| 121 #DEFINE logbook_bailout_row .207 | |
|
99
87cc1adfe4da
show event "bailout" in the internal logbook
heinrichsweikamp
parents:
98
diff
changeset
|
122 |
| 0 | 123 ; Dive number |
| 582 | 124 #DEFINE logbook_divenumer_column .1 |
| 125 #DEFINE logbook_divenumer_row .1 | |
| 623 | 126 |
| 0 | 127 ; Date and Time |
| 582 | 128 #DEFINE logbook_date_column .100 |
| 129 #DEFINE logbook_date_row .7 | |
| 130 #DEFINE logbook_time_column .120 | |
| 131 #DEFINE logbook_time_row .38 | |
| 623 | 132 |
| 0 | 133 ; Max. Depth |
| 582 | 134 #DEFINE log_max_value_row .38 |
| 135 #DEFINE log_max_value_column .1 | |
| 623 | 136 |
| 582 | 137 ; Divetime |
| 631 | 138 #DEFINE log_divetime_mins_value_row .38 |
| 139 #DEFINE log_divetime_mins_value_column .60 | |
| 623 | 140 |
| 0 | 141 ; Gaslist below profile |
| 582 | 142 #DEFINE log_gas_row .225 |
| 143 #DEFINE log_gas_column1 .0 | |
| 144 #DEFINE log_gas_column2 log_gas_column1+(.1*.32) | |
| 145 #DEFINE log_gas_column3 log_gas_column1+(.2*.32) | |
| 146 #DEFINE log_gas_column4 log_gas_column1+(.3*.32) | |
| 147 #DEFINE log_gas_column5 log_gas_column1+(.4*.32) | |
| 0 | 148 |
| 149 ; Logbook Page2 | |
| 582 | 150 ; Gaslist |
| 151 #DEFINE log2_title_row1 .20 | |
| 152 #DEFINE log2_title_column .90 | |
| 153 #DEFINE log2_gas_column log2_title_column | |
| 154 #DEFINE log2_gas_row1 .36 | |
| 155 #DEFINE log2_gas_row2 1*.16+log2_gas_row1 | |
| 156 #DEFINE log2_gas_row3 2*.16+log2_gas_row1 | |
| 157 #DEFINE log2_gas_row4 3*.16+log2_gas_row1 | |
| 158 #DEFINE log2_gas_row5 4*.16+log2_gas_row1 | |
| 0 | 159 |
| 582 | 160 ; Setpoint List |
| 161 #DEFINE log2_title_sp_row .130 | |
| 162 #DEFINE log2_sp_row1 .146 | |
| 163 #DEFINE log2_sp_row2 1*.16+log2_sp_row1 | |
| 164 #DEFINE log2_sp_row3 2*.16+log2_sp_row1 | |
| 165 #DEFINE log2_sp_row4 3*.16+log2_sp_row1 | |
| 166 #DEFINE log2_sp_row5 4*.16+log2_sp_row1 | |
| 0 | 167 |
| 582 | 168 ; Details list |
| 169 #DEFINE log2_salinity_row .55 | |
| 170 #DEFINE log2_salinity_column .2 | |
| 171 #DEFINE log2_cns_row .1*.16+log2_salinity_row | |
| 172 #DEFINE log2_cns_column log2_salinity_column | |
| 173 #DEFINE log2_avr_row .2*.16+log2_salinity_row | |
| 174 #DEFINE log2_avr_column log2_salinity_column | |
| 175 #DEFINE log2_decomodel2_row .3*.16+log2_salinity_row | |
| 176 #DEFINE log2_decomodel2_column log2_salinity_column | |
| 177 #DEFINE log2_decomodel3_row .4*.16+log2_salinity_row | |
| 178 #DEFINE log2_decomodel3_column log2_salinity_column | |
| 179 #DEFINE log2_decomodel_row .5*.16+log2_salinity_row | |
| 180 #DEFINE log2_decomodel_column log2_salinity_column | |
| 181 #DEFINE log2_firmware_row .6*.16+log2_salinity_row | |
| 182 #DEFINE log2_firmware_column log2_salinity_column | |
| 183 #DEFINE log2_battery_row .7*.16+log2_salinity_row | |
| 184 #DEFINE log2_battery_column log2_salinity_column | |
| 185 #DEFINE log2_divemode_row .8*.16+log2_salinity_row | |
| 186 #DEFINE log2_divemode_column log2_salinity_column | |
| 187 #DEFINE log2_lastdeco_row .9*.16+log2_salinity_row | |
| 188 #DEFINE log2_lastdeco_column log2_salinity_column | |
| 623 | 189 |
| 0 | 190 ; Air pressure |
| 582 | 191 #DEFINE MBAR_row .10*.16+log2_salinity_row |
| 192 #DEFINE MBAR_column log2_salinity_column | |
| 0 | 193 |
| 194 | |
| 604 | 195 logbook CODE |
| 0 | 196 |
| 197 ;============================================================================= | |
| 198 | |
| 582 | 199 TFT_logbook_cursor: |
| 628 | 200 WIN_BOX_BLACK .0, .239, logbook_list_left-.8, logbook_list_left-.1 ; top, bottom, left, right |
| 0 | 201 |
| 623 | 202 WIN_LEFT logbook_list_left-.8 ; set horizontal position |
| 203 WIN_FONT FT_SMALL ; select small font | |
| 204 call TFT_standard_color ; print in white color | |
| 205 decf menu_pos_cur,W ; get row number -1 into WREG | |
| 206 mullw logbook_row_offset ; multiply with vertical offset between rows | |
| 207 movff PRODL,win_top ; set vertical position | |
| 208 STRCPY_PRINT "\xB7" ; print cursor | |
| 209 return ; done | |
| 0 | 210 |
| 211 | |
| 582 | 212 global logbook ; entry point coming from menu_tree.asm |
| 0 | 213 logbook: |
| 582 | 214 call TFT_boot |
| 215 ; call TFT_standard_color | |
| 631 | 216 |
| 217 clrf logbook_flags ; clear all flags | |
| 218 clrf menu_pos_max ; clear number of used rows on current page | |
| 604 | 219 clrf logbook_page_number ; here: # of current displayed page |
| 582 | 220 clrf logbook_divenumber ; # of dive in list during search |
| 221 clrf logbook_temp | |
| 222 clrf logbook_temp_backup | |
| 631 | 223 |
| 224 movlw logbook_row_number ; get number of dive entry rows per list | |
| 225 movwf menu_pos_cur ; initialize cursor position to last entry | |
| 0 | 226 |
| 631 | 227 call eeprom_total_dives_read ; read total number of dives |
| 228 movf mpr+0,W ; extract low byte | |
| 229 movwf logbook_max_dive_counter ; copy to logbook_max_dive_counter | |
| 230 movwf total_num_dives ; copy to total_num_dives, too | |
| 231 | |
| 232 | |
| 233 ;----------------------------------------------------------------------------- | |
| 234 ; display dive headers backwards from latest dive to first dive, stop when | |
| 235 ; - no dive is stored (no valid header found) | |
| 236 ; - current dive has no valid header (past last dive, < 256 dives) | |
| 237 ; - when 255 dives are reached (logbook display limit) | |
| 0 | 238 |
| 239 logbook2: | |
| 582 | 240 incf logbook_temp,F ; increase dive counter |
| 241 incf logbook_temp,W ; = 0x..FF ? | |
| 631 | 242 bz logbook_reset ; YES - loop |
| 0 | 243 |
| 631 | 244 ; compute index for dive to show / goto previous dive |
| 245 decf logbook_max_dive_counter,F | |
| 0 | 246 |
| 631 | 247 ; compute the start address of the header of the dive to show |
| 248 movf logbook_max_dive_counter,W ; hand over index in WREG | |
| 249 call log_header_addr_by_index ; compute address of header start | |
| 0 | 250 |
| 631 | 251 ; copy the first 22 byte of the header from FLASH to memory |
| 252 FLASH_RR_READ mpr,header_buffer,.22 | |
| 253 | |
| 254 ; check if there is a header | |
| 255 MOVCC header_buffer+index_header_start,WREG ; read first byte of header | |
| 256 xorlw 0xFA ; header start code found? | |
| 257 bnz logbook3b ; NO - abort | |
| 623 | 258 incf logbook_divenumber,F ; YES - new header found, increase logbook_divenumber |
| 259 bra logbook4 ; - done with searching, display the header | |
| 0 | 260 |
| 261 logbook3b: | |
| 604 | 262 btfss logbook_page_not_empty ; was there at least one dive? |
| 631 | 263 bra exit_logbook ; NO - not a single header was found, leave logbook |
| 264 bra logbook_display_loop2 ; YES - can show something | |
| 0 | 265 |
| 266 logbook_reset: | |
| 604 | 267 tstfsz logbook_divenumber ; was there at least one dive? |
| 631 | 268 bra logbook_reset2 ; YES - proceed |
| 269 bra logbook3b ; NO - nothing to do | |
| 0 | 270 |
| 271 logbook_reset2: | |
| 631 | 272 bsf all_dives_shown ; flag all dives are shown |
| 273 bra logbook_display_loop2 ; check number of dives on page and append navigation | |
| 0 | 274 |
| 275 logbook4: | |
| 631 | 276 btfsc all_dives_shown ; all dives shown? |
| 277 bra logbook_display_loop2 ; YES - page done | |
| 623 | 278 call display_listdive ; NO - display short header for list on current list position |
| 631 | 279 movlw logbook_row_number ; - load max number of lines |
| 280 cpfseq menu_pos_cur ; - cursor on last line (exit)? | |
| 623 | 281 bra logbook_display_loop1 ; NO - skip saving of address |
| 0 | 282 |
| 582 | 283 ; store all registers required to rebuilt the current logbook page after the detail/profile view |
| 604 | 284 movff logbook_divenumber,logbook_divenumber_temp ; # of dive in list of the current page |
| 285 movff logbook_max_dive_counter,logbook_max_dive_counter_temp ; backup counter | |
| 623 | 286 movff logbook_temp,logbook_temp_backup ; amount of dives drawn until now |
| 0 | 287 |
| 288 logbook_display_loop1: | |
| 631 | 289 decfsz menu_pos_cur,F ; all lines used up? |
| 290 bra logbook2 ; NO - loop to show another dive | |
| 0 | 291 logbook_display_loop2: |
| 631 | 292 btfss logbook_page_not_empty ; YES - was there one dive at all? |
| 293 bra logbook ; NO - restart from the first page | |
| 294 ;bra logbook_display_loop3 ; YES - complete page and start HMI | |
| 0 | 295 |
| 631 | 296 logbook_display_loop3: |
| 0 | 297 |
| 631 | 298 ; print navigation lines |
| 0 | 299 WIN_LEFT logbook_list_left |
| 628 | 300 WIN_TOP logbook_row_offset*(logbook_row_number+.0) |
| 582 | 301 STRCPY_TEXT_PRINT tNextLog ; "Next Page" |
| 628 | 302 |
| 0 | 303 WIN_LEFT logbook_list_left |
| 304 WIN_TOP logbook_row_offset*(logbook_row_number+.1) | |
| 582 | 305 STRCPY_TEXT_PRINT tExit ; "Exit" |
| 0 | 306 |
| 631 | 307 movlw d'1' ; default cursor to position 1 |
| 308 btfsc return_from_profileview ; returning from a detail/profile view? | |
| 309 movf logbook_menupos_temp,W ; YES - reload last cursor position | |
| 310 movwf menu_pos_cur ; set cursor position | |
| 311 movlw logbook_row_number+.1 ; get menu line where the next page item is | |
| 312 btfsc keep_cursor_new_page ; do we come from the "next page" line? | |
| 313 movwf menu_pos_cur ; YES - set cursor to "next line" again | |
| 0 | 314 |
| 631 | 315 bcf return_from_profileview ; clear flag for returning from detail/profile view |
| 316 bcf keep_cursor_new_page ; clear flag for coming from "next page" | |
| 604 | 317 bcf logbook_page_not_empty ; obviously the current page is NOT empty |
|
169
dcf3e08f31ac
CHANGE: Improve internal logbook usability
heinrichsweikamp
parents:
168
diff
changeset
|
318 |
| 604 | 319 call TFT_logbook_cursor ; show the cursor |
| 0 | 320 |
| 623 | 321 logbook_loop_pre: |
| 322 call logbook_preloop_tasks ; clear timeout, some flags and switch on backlight | |
| 0 | 323 logbook_loop: |
| 623 | 324 btfsc switch_left ; left button pressed? |
| 631 | 325 goto next_logbook3 ; YES - move cursor |
| 326 btfsc switch_right ; NO - right button pressed? | |
| 327 bra display_profile_or_exit ; YES - view details/profile | |
| 328 call housekeeping ; NO - handle screen dump request, timeout and entering dive mode | |
| 329 bra logbook_loop ; - loop waiting for something to do | |
| 0 | 330 |
| 331 display_profile_or_exit: | |
| 631 | 332 movlw logbook_row_number+.2 ; get menu line were the exit item is |
| 333 cpfseq menu_pos_cur ; cursor on exit line? | |
| 334 bra display_profile_or_next ; NO - show profile or next page | |
| 335 ;bra exit_logbook ; YES - exit logbook | |
| 371 | 336 |
| 372 | 337 exit_logbook: |
| 623 | 338 bcf switch_right ; clear pending button events |
| 339 bcf switch_left ; ... | |
| 631 | 340 goto do_main_menu2 ; jump-back to main menu (in menu_tree.asm) |
| 0 | 341 |
| 631 | 342 display_profile_or_next: |
| 343 movlw logbook_row_number+.1 ; get menu line were the next page item is | |
| 344 cpfseq menu_pos_cur ; cursor on next page line? | |
| 345 bra display_profile ; NO - show profile of selected dive | |
| 346 goto next_logbook2 ; YES - show next page | |
| 0 | 347 |
| 631 | 348 ;----------------------------------------------------------------------------- |
| 349 ; show graphical dive profile | |
| 350 ; | |
|
99
87cc1adfe4da
show event "bailout" in the internal logbook
heinrichsweikamp
parents:
98
diff
changeset
|
351 display_profile: |
| 623 | 352 bcf bailout_mode ; clear event flag |
| 353 bcf event_gas_change_gas6 ; clear event flag | |
| 354 movff menu_pos_cur,logbook_menupos_temp ; store current cursor position | |
| 582 | 355 bsf return_from_profileview ; tweak search routine to exit after found |
| 0 | 356 |
| 631 | 357 ; compute the number of the dive to show |
| 358 movf logbook_page_number,W ; get page number of page we are on | |
| 359 mullw logbook_row_number ; multiply with number of dives per page | |
| 360 movf PRODL,W ; copy low byte to WREG | |
| 361 addwf menu_pos_cur,W ; add number of selected dive on current page page | |
| 362 movwf divenumber ; result is the number of the dive to show | |
| 363 | |
| 364 ; compute the header address by the dive number | |
| 365 call log_header_addr_by_divenumber | |
| 366 | |
| 367 ; copy the complete header from FLASH to memory | |
| 368 FLASH_RR_READ mpr,header_buffer,.256 | |
| 369 | |
| 370 ; read the sampling rate | |
| 371 MOVCC header_buffer+index_samplingrate,sampling_rate | |
| 372 | |
| 373 ; --- start drawing the dive profile page --- | |
| 0 | 374 |
| 375 display_profile2: | |
| 582 | 376 call TFT_boot |
| 631 | 377 call TFT_standard_color |
| 582 | 378 |
| 631 | 379 ; show dive number |
| 604 | 380 call logbook_show_divenumber ; show the dive number in medium font |
| 0 | 381 |
| 631 | 382 ; show date |
| 582 | 383 WIN_SMALL logbook_date_column, logbook_date_row |
| 631 | 384 MOVTT header_buffer+index_date,mpr ; read date |
| 582 | 385 call TFT_convert_date ; converts into "DD/MM/YY" or "MM/DD/YY" or "YY/MM/DD" in postinc2 |
| 386 STRCAT_PRINT "" | |
| 387 | |
| 631 | 388 ; show dive mode |
| 389 WIN_SMALL log_divetime_mins_value_column,logbook_date_row ; align with surrounding data | |
| 390 MOVCC header_buffer+index_divemode,lo ; read dive type (0=OC, 1=CC, 2=Gauge, 3=Apnea, 4=pSCR) | |
| 623 | 391 call TFT_decotype_logbook ; "strcat_print"s dive mode (OC, CC, Gauge, Apnea or pSCR) |
| 392 ; also sets aux_flag in case the dive was done in a deco mode | |
| 0 | 393 |
| 631 | 394 ; show time |
| 582 | 395 WIN_SMALL logbook_time_column, logbook_time_row |
| 631 | 396 MOVII header_buffer+index_time,mpr ; get time |
| 397 output_99x ; print hour | |
| 398 PUTC ':' ; print spacing ":" | |
| 399 movff hi,lo ; print minute | |
| 400 output_99x ; ... | |
| 604 | 401 STRCAT_PRINT "" ; display 1st row of details |
| 0 | 402 |
| 631 | 403 ; get log format version |
| 404 MOVCC header_buffer+index_profile_version,lo ; read profile format version | |
| 582 | 405 movlw 0x24 |
| 631 | 406 cpfslt lo ; < 0x24 ? |
| 407 bra log_skip_extra_icon ; YES - skip end of dive icon | |
| 582 | 408 |
| 631 | 409 ; print end of dive icon |
| 582 | 410 WIN_SMALL logbook_time_column-.8, logbook_time_row |
| 631 | 411 STRCPY_PRINT 0x94 |
|
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
|
412 |
|
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
|
413 log_skip_extra_icon: |
| 631 | 414 MOVII header_buffer+index_max_depth,mpr ; get max depth in [mbar] |
| 415 | |
| 416 ; compute vertical scale (y-axis) | |
| 417 MOVII mpr,xA | |
| 418 MOVLI profile_height_pixels,xB ; number of pixels available for plot | |
| 604 | 419 call div16x16 ; xC = xA / xB with xA as remainder |
| 623 | 420 MOVII xC,y_scale ; y-scale (mbar/pixel) |
| 631 | 421 INCI y_scale ; increase by one to include potential remainder (round up) |
| 0 | 422 |
| 631 | 423 ; compute number of pixels per each 10 m |
| 582 | 424 movlw LOW ((profile_height_pixels+1)*.1000) |
| 425 movwf xC+0 | |
| 426 movlw HIGH (((profile_height_pixels+1)*.1000) & h'FFFF') | |
| 427 movwf xC+1 | |
| 428 movlw UPPER ((profile_height_pixels+1)*.1000) | |
| 429 movwf xC+2 | |
| 430 clrf xC+3 | |
| 631 | 431 MOVII mpr,xB ; get max. depth in mbar |
| 432 call div32x16 ; xC:4 = xC:4 / xB:2 with xA as remainder | |
| 433 MOVII xC,x_scale ; pixels/10m (for scale, draw any xx rows a scale-line) | |
| 0 | 434 |
| 631 | 435 ; safeguard scale to become zero |
| 436 movf x_scale+0,W ; get low byte | |
| 437 iorwf x_scale+1,W ; ior with high byte | |
| 438 btfsc STATUS,Z ; x_scale = zero ? | |
| 439 incf x_scale+1,F ; YES - set to 256 to make "display_profile2e" working | |
| 582 | 440 |
| 631 | 441 ; calculate vertical interval |
| 442 MOVLI .600,xA ; a vertical line every 600 seconds (10 minutes) | |
| 443 movff sampling_rate,xB+0 ; copy sampling rate to xB, low byte | |
| 444 clrf xB+1 ; clear xB, high byte | |
| 445 call div16x16 ; xC=xA/xB with xA as remainder | |
| 446 MOVII xC,vertical_interval ; vertical_interval:2 holds number of samples between each vertical 10 min lines | |
| 447 | |
| 448 ; get total sample time in seconds | |
| 449 MOVII header_buffer+index_total_seconds,xA | |
| 0 | 450 |
| 631 | 451 ; calculate x-scale value |
| 452 MOVLI profile_width_pixels,xB ; horizontal width of plot area in pixels | |
| 453 call div16x16 ; xC = xA / xB with xA as remainder: seconds per pixel | |
| 454 MOVII xC,xA ; copy seconds/pixel to xA | |
| 455 movff sampling_rate,xB+0 ; divide through sampling rate | |
| 456 clrf xB+1 ; ... | |
| 457 call div16x16 ; xC = xA / xB with xA as remainder: samples per pixel | |
| 458 MOVII xC,profile_temp1 ; store samples/pixel | |
| 459 INCI profile_temp1 ; increment result by 1 to include potential remainder (round up) | |
| 460 | |
| 582 | 461 WIN_SMALL log_max_value_column,log_max_value_row |
| 0 | 462 |
| 631 | 463 ; get max depth in [mbar] |
| 464 MOVII header_buffer+index_max_depth,mpr | |
| 465 | |
| 466 ; print depth | |
| 582 | 467 TSTOSS opt_units ; 0=Meters, 1=Feets |
| 623 | 468 bra display_profile_offset4_metric ; 0 - do metric |
| 631 | 469 ;bra display_profile_offset4_imperial ; 1 - do imperial |
| 470 | |
| 471 display_profile_offset4_imperial: | |
| 472 call convert_cm_to_feet ; convert value in mpr from [cm] to [feet] | |
| 0 | 473 PUTC ' ' |
| 582 | 474 bcf leftbind |
| 475 output_16_3 ; limit to 999 and display only (0-999) | |
| 476 STRCAT_TEXT_PRINT tFeets | |
| 477 bra display_profile_offset4_common | |
| 0 | 478 |
| 479 display_profile_offset4_metric: | |
| 631 | 480 bsf ignore_digit5 ; no cm... |
| 481 movlw d'1' ; no 1000 m | |
| 482 movwf ignore_digits ; ... | |
| 483 output_16dp d'3' ; xxx.y | |
| 582 | 484 STRCAT_TEXT_PRINT tMeters |
| 631 | 485 ;bra display_profile_offset4_common |
| 0 | 486 |
| 582 | 487 display_profile_offset4_common: |
| 631 | 488 WIN_SMALL log_divetime_mins_value_column,log_divetime_mins_value_row |
| 582 | 489 bsf leftbind |
| 0 | 490 |
| 631 | 491 ; show dive time minutes : seconds |
| 492 MOVTT header_buffer+index_divetime,mpr ; get dive time | |
| 493 output_16 ; print dive time minutes | |
| 494 PUTC 'm' ; print "m" (minutes) | |
| 495 movff up,lo ; print dive time seconds | |
| 496 output_99x ; dive time seconds | |
| 497 STRCAT_PRINT "s" ; print "s" (seconds) | |
| 0 | 498 |
| 631 | 499 ; get minimum temperature (for later use) |
| 500 MOVII header_buffer+index_min_temp,logbook_min_tp | |
| 0 | 501 |
| 631 | 502 ; print gases |
| 623 | 503 btfss aux_flag ; dive done in a deco mode? |
| 504 bra logbook_set_gas_color ; NO - always use gas 1 color (white) then | |
| 505 | |
| 631 | 506 ; set pointer to gas 1 type |
| 507 MOVCC header_buffer+index_gas1+.3,WREG ; read gas type | |
| 508 decfsz WREG,W ; = 1 (= "First") ? | |
| 604 | 509 bra logbook_find_first_gas2 ; NO |
| 623 | 510 logbook_set_gas_color: |
| 511 movlw .1 ; YES - select white color | |
| 582 | 512 bra logbook_find_first_gas_done |
| 631 | 513 |
| 0 | 514 logbook_find_first_gas2: |
| 631 | 515 ; set pointer to gas 2 type |
| 516 MOVCC header_buffer+index_gas2+.3,WREG ; read gas type | |
| 517 decfsz WREG,W ; = 1 (= "First") ? | |
| 604 | 518 bra logbook_find_first_gas3 ; NO |
| 623 | 519 movlw .2 ; YES - select green color |
| 582 | 520 bra logbook_find_first_gas_done |
| 631 | 521 |
| 0 | 522 logbook_find_first_gas3: |
| 631 | 523 ; set pointer to gas 3 type |
| 524 MOVCC header_buffer+index_gas3+.3,WREG ; read gas type | |
| 525 decfsz WREG,W ; = 1 (= "First") ? | |
| 604 | 526 bra logbook_find_first_gas4 ; NO |
| 623 | 527 movlw .3 ; YES - select red color |
| 582 | 528 bra logbook_find_first_gas_done |
| 631 | 529 |
| 0 | 530 logbook_find_first_gas4: |
| 631 | 531 ; set pointer to gas 4 type |
| 532 MOVCC header_buffer+index_gas4+.3,WREG ; read gas type | |
| 533 decfsz WREG,W ; = 1 (= "First") ? | |
| 604 | 534 bra logbook_find_first_gas5 ; NO |
| 623 | 535 movlw .4 ; YES - select yellow color |
| 582 | 536 bra logbook_find_first_gas_done |
| 631 | 537 |
| 0 | 538 logbook_find_first_gas5: |
| 631 | 539 ; must be gas 5 then |
| 540 movlw .5 ; select cyan color | |
| 541 ;bra logbook_find_first_gas_done | |
| 542 | |
| 0 | 543 logbook_find_first_gas_done: |
| 631 | 544 movwf backup_color1 ; keep copy of color for later restore |
| 623 | 545 call TFT_color_code_gas ; set color |
| 0 | 546 |
| 631 | 547 ; set ext_flash_address to the begin of the profile data |
| 548 MOVTT header_buffer+index_profile_start_address,ext_flash_address | |
| 0 | 549 |
| 631 | 550 ; skip the 0xFA 0xFA header of the profile data |
| 551 ext_flash_inc_address_0x20 d'2' | |
| 0 | 552 |
| 631 | 553 ; initialize flag for signaling when last sample set was read |
| 554 bcf end_of_profile | |
| 555 | |
| 556 ; check if the profile actually belongs to this dive (check done with low bytes only) | |
| 557 FLASH_CC_READ_0x20 lo ; read dive number in profile | |
| 558 incf total_num_dives,W ; WREG = total number of dives + 1 | |
| 604 | 559 bsf STATUS,C ; set borrow |
| 631 | 560 subfwb divenumber,W ; WREG = total number of dives - number of dive to show - 1 |
| 561 cpfseq lo ; number of dive in profile = number of dive to show? | |
| 562 bra display_profile_no_profile ; NO - no profile data for this dive available | |
| 563 ;bra display_profile_show_profile ; YES - show profile | |
| 0 | 564 |
| 631 | 565 display_profile_show_profile: |
| 0 | 566 |
| 631 | 567 ; skip high byte of dive number 1 byte |
| 568 ; skip second header code 2 byte | |
| 569 ; skip length of profile data 3 byte | |
| 570 ; skip sampling rate in profile section 1 byte | |
| 571 ; skip number of divisors 1 byte | |
| 572 ; ====== | |
| 573 ; total number of bytes to skip = 8 byte | |
| 574 ext_flash_inc_address_0x20 d'8' | |
| 575 | |
| 576 ; read divisor temp | |
| 577 ext_flash_inc_address_0x20 d'2' ; skip information type and length | |
| 578 FLASH_CW_READ_0x20 ; read temperature divisor | |
| 579 movwf divisor_temperature ; store temperature divisor | |
| 580 movwf count_temperature ; store to temperature counter, too | |
| 581 | |
| 582 ; read divisor deco | |
| 583 ext_flash_inc_address_0x20 d'2' ; skip information type and length | |
| 584 FLASH_CW_READ_0x20 ; read deco divisor | |
| 585 movwf divisor_deco ; store deco divisor | |
| 586 movwf count_deco ; store to deco status counter, too | |
| 0 | 587 |
| 631 | 588 ; read divisor GF |
| 589 ext_flash_inc_address_0x20 d'2' ; skip information type and length | |
| 590 FLASH_CC_READ_0x20 divisor_gf ; store saturation divisor | |
| 591 | |
| 592 ; read divisor ppO2 sensors | |
| 593 ext_flash_inc_address_0x20 d'2' ; skip information type and length | |
| 594 FLASH_CC_READ_0x20 divisor_ppo2_sensors ; store ppO2 divisor | |
| 595 | |
| 596 ; read divisor deco plan | |
| 597 ext_flash_inc_address_0x20 d'2' ; skip information type and length | |
| 598 FLASH_CC_READ_0x20 divisor_decoplan ; store deco plan divisor | |
| 599 | |
| 600 ; read divisor CNS | |
| 601 ext_flash_inc_address_0x20 d'2' ; skip information type and length | |
| 602 FLASH_CC_READ_0x20 divisor_cns ; store CNS divisor | |
| 603 | |
| 604 ; read divisor tank data | |
| 605 ext_flash_inc_address_0x20 d'2' ; skip information type and length | |
| 606 FLASH_CC_READ_0x20 divisor_tank ; store tank pressure divisor | |
| 607 | |
| 608 | |
| 609 ; start drawing the profile | |
| 610 | |
| 611 ; set color | |
| 582 | 612 movlw color_deepblue |
| 604 | 613 call TFT_set_color |
| 631 | 614 |
| 615 ; draw a frame around profile area | |
| 582 | 616 WIN_FRAME_COLOR16 profile_top-1,profile_top+profile_height_pixels+1,profile_left-1,profile_left+profile_width_pixels+1 |
| 0 | 617 |
| 631 | 618 ; draw depth grid |
| 619 movlw profile_top ; set top position of plot area | |
| 620 movwf win_top ; ... | |
| 621 movlw profile_left ; set left position of plot area | |
| 622 movwf win_leftx2 ; ... | |
| 623 movlw d'1' ; draw lines of 1 pixel width | |
| 624 movwf win_height ; ... | |
| 625 movlw profile_width_pixels+.1 ; set right position of plot area | |
| 626 movwf win_width+0 ; ... | |
| 627 clrf win_width+1 ; ... | |
| 628 bra display_profile2_loline ; do not draw the 0 m line | |
| 629 display_profile2_loop: | |
| 630 call TFT_box ; draw the line | |
| 631 display_profile2_loline: | |
| 632 movf win_top,W ; get last row drawn | |
| 633 addwf x_scale+0,W ; add line interval distance, low byte | |
| 634 tstfsz x_scale+1 ; interval distance > 255 ? | |
| 635 movlw d'255' ; YES - would make win_top > 239 -> prepare abort | |
| 636 btfsc STATUS,C ; did the add produce a carry? | |
| 637 movlw d'255' ; YES - would make win_top > 239 -> prepare abort | |
| 638 movwf win_top ; write position of next line back to win_top | |
| 639 movlw profile_top+profile_height_pixels+.1 ; get limit for last line | |
| 640 cpfsgt win_top ; line to draw beyond limit? | |
| 641 bra display_profile2_loop ; NO - draw the line | |
| 0 | 642 |
| 631 | 643 ; do various initializations for drawing the curves |
| 604 | 644 clrf gaslist_gas ; here: used as counter for depth readings |
| 582 | 645 movlw profile_width_pixels+profile_left-.1 |
| 646 movwf ignore_digits ; here: used as counter for x-pixels | |
| 372 | 647 |
| 582 | 648 movlw profile_left+.1 |
| 623 | 649 movwf logbook_pixel_x_pos ; here: used as column x2 (start at column 5) |
| 372 | 650 |
| 604 | 651 movlw profile_top+.1 ; zero-m row |
| 582 | 652 movwf fill_between_rows |
| 631 | 653 movwf logbook_last_tp ; initialize for temperature curve, too |
| 582 | 654 |
| 631 | 655 movlw LOW(-.100) ; initialize max temperature to -10.0 °C |
| 582 | 656 movwf logbook_max_tp+0 |
| 657 movlw HIGH 0xFFFF & (-.100) | |
| 658 movwf logbook_max_tp+1 | |
| 0 | 659 |
| 631 | 660 setf logbook_cur_tp+0 ; initialize temperature to 0xFFFF = 'no data' |
| 661 setf logbook_cur_tp+1 ; ... | |
| 662 clrf logbook_last_tp ; also reset previous Y for temperature | |
| 629 | 663 clrf logbook_ceiling ; ceiling = 0, correct value for no ceiling |
| 582 | 664 movlw profile_top+.1 |
| 623 | 665 movwf logbook_min_temp_pos ; initialize for displaying the lowest temperature |
| 582 | 666 movlw profile_top+profile_height_pixels |
| 604 | 667 movwf logbook_max_temp_pos ; initialize for displaying the highest temperature |
| 0 | 668 |
| 582 | 669 movlw profile_left |
| 670 movwf win_leftx2 | |
| 671 movlw profile_top | |
| 672 movwf win_top | |
| 673 movlw profile_height_pixels | |
| 674 movwf win_height | |
| 675 movlw LOW (profile_width_pixels*.2) | |
| 676 movwf win_width+0 | |
| 677 movlw HIGH (profile_width_pixels*.2) | |
| 678 movwf win_width+1 | |
| 679 call TFT_box_write ; open box for d1 | |
| 371 | 680 |
| 582 | 681 ; INIT_PIXEL_WRITE logbook_pixel_x_pos ; pixel x2 (also sets standard color!) |
| 0 | 682 |
| 631 | 683 ; start profile plotting loop |
| 684 CLRI logbook_sample_counter ; clear counter for amount of samples read so far | |
| 685 | |
| 0 | 686 profile_display_loop: |
| 631 | 687 ; initialize pixel write |
| 582 | 688 movf logbook_pixel_x_pos,W |
| 689 mullw 2 | |
| 690 call pixel_write_col320 | |
| 691 | |
| 623 | 692 MOVII profile_temp1,profile_temp2 ; 16 bit x-scaler |
| 693 | |
| 582 | 694 incf profile_temp2+1,F |
| 623 | 695 tstfsz profile_temp2+0 ; must not be zero, is zero? |
| 696 bra profile_display_loop2 ; NO - ok | |
| 697 incf profile_temp2+0,F ; YES - increase by 1 | |
| 0 | 698 |
| 699 profile_display_loop2: | |
| 631 | 700 rcall profile_view_get_depth ; read one set of depth, temp and event data |
| 701 btfsc end_of_profile ; end of profile data reached? | |
| 604 | 702 bra profile_display_loop_done ; YES - skip all remaining pixels |
| 0 | 703 |
| 704 | |
| 631 | 705 ;---- draw ceiling curve, if any --------------------------------------------- |
| 706 | |
| 707 movf divisor_deco,W ; get divisor, deco data logged? | |
| 708 bz profile_display_skip_deco ; NO - skip | |
| 0 | 709 |
| 604 | 710 movf logbook_ceiling,W ; any deco ceiling? |
| 631 | 711 bz profile_display_skip_deco ; NO - skip |
| 0 | 712 |
| 604 | 713 mullw .100 ; YES - convert to mbar |
| 631 | 714 MOVII PROD, sub_a ; - ceiling depth |
| 715 MOVII logbook_cur_depth+0,sub_b ; - current depth | |
| 716 call cmpU16 ; - compute ceiling - current depth | |
| 717 movlw color_dark_green ; - dark green if ok | |
| 718 btfss neg_flag ; - current depth > ceiling ? | |
| 719 movlw color_dark_red ; NO - dark red because ceiling is violated | |
| 720 call TFT_set_color ; - set color | |
| 721 MOVII PROD,xA ; - divide pressure in mbar/pixel for row offset | |
| 722 MOVII y_scale,xB ; - ... | |
| 723 call div16x16 ; - xC = xA / xB with xA as remainder | |
| 724 movlw profile_top+.1 ; - start right after the top line | |
| 725 movwf win_top ; - ... | |
| 726 movff logbook_pixel_x_pos,win_leftx2 ; - set left border (0-159) | |
| 727 movff xC+0,win_height ; - set hight | |
| 728 call half_vertical_line ; - color the area | |
| 0 | 729 |
| 730 profile_display_skip_deco: | |
| 631 | 731 |
| 732 ;---- draw temperature curve, if any --------------------------------------------- | |
| 733 | |
| 734 movf divisor_temperature,W ; get divisor, deco data logged? | |
| 735 bz profile_display_skip_temp ; NO - skip | |
| 0 | 736 |
| 631 | 737 movf logbook_cur_tp+0,W ; did we had a valid temperature record already (0xFF = 'no data')? |
| 738 andwf logbook_cur_tp+1,W ; ... | |
| 739 incf WREG ; ... | |
| 740 bz profile_display_skip_temp ; NO - skip drawing | |
| 0 | 741 |
| 631 | 742 ; fixed temperature scale: (-2 .. +35°C * scale256 ) / 153 pixel |
| 743 movlw LOW (((profile_height_pixels-.10)*.256)/.370) | |
| 582 | 744 movwf xB+0 |
| 745 movlw HIGH (((profile_height_pixels-.10)*.256)/.370) | |
| 746 movwf xB+1 | |
| 0 | 747 |
| 631 | 748 movf logbook_cur_tp+0,W ; current temperature - (-2.0°C) == temperature + 20 |
| 604 | 749 addlw LOW(.20) ; low byte |
| 582 | 750 movwf xA+0 |
| 751 movf logbook_cur_tp+1,W | |
| 604 | 752 btfsc STATUS,C ; propagate carry, if any |
| 582 | 753 incf WREG |
| 754 movwf xA+1 | |
| 755 call mult16x16 ; xA*xB=xC | |
| 0 | 756 |
| 631 | 757 ; scale: divide by 256 -> just take the high byte |
| 582 | 758 movf xC+1,W |
| 604 | 759 sublw profile_top+profile_height_pixels-.10 ; upside-down: Y = .75 + (.153 - result) |
| 582 | 760 movwf xC+0 |
| 0 | 761 |
| 629 | 762 ; check limits |
| 582 | 763 movlw profile_top+.1 |
| 764 movwf xC+1 | |
| 765 cpfsgt xC+0 | |
| 766 movff xC+1,xC+0 | |
| 0 | 767 |
| 629 | 768 movlw color_orange ; select color for temperature curve |
| 769 call TFT_set_color ; set color | |
| 0 | 770 |
| 604 | 771 movf logbook_last_tp,W ; do we have a valid previous value? |
| 631 | 772 bz profile_display_temp_1 ; NO - skip the vertical line |
| 773 movwf xC+1 ; YES - set end position | |
| 774 call profile_display_fill ; - draw in this column between this row (xC+0) and the last row (xC+1) | |
| 775 | |
|
162
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
776 profile_display_temp_1: |
| 631 | 777 movf xC+0,W ; get position |
| 778 cpfsgt logbook_min_temp_pos ; > min limit? | |
| 779 movwf logbook_min_temp_pos ; NO - set to lowest position for the temp graph | |
| 780 cpfslt logbook_max_temp_pos ; < max limit? | |
| 781 movwf logbook_max_temp_pos ; NO - set to highest position for the temp graph | |
|
162
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
782 |
| 631 | 783 movff xC+0,logbook_last_tp ; set col (0..159) x row (0..239) |
| 784 PIXEL_WRITE logbook_pixel_x_pos,xC+0 ; draw a pixel | |
| 0 | 785 |
| 786 profile_display_skip_temp: | |
| 631 | 787 |
| 788 ;---- draw depth curve --------------------------------------------------- | |
| 582 | 789 |
| 631 | 790 MOVII y_scale, xB ; divide pressure in mbar/pixel for row offset |
| 791 MOVII logbook_cur_depth,xA ; get current depth | |
| 792 call div16x16 ; xC = xA / xB with xA as remainder | |
| 793 movlw profile_top+.1 ; get offset | |
| 794 addwf xC+0,F ; add offset | |
| 795 btfsc STATUS,C ; profile error? | |
| 796 movff fill_between_rows,xC+0 ; YES - ignore | |
| 0 | 797 |
| 631 | 798 movf backup_color1,W ; copy gas number to WREG for color-coding |
| 799 call TFT_color_code_gas ; set color | |
| 0 | 800 |
| 631 | 801 movff fill_between_rows,xC+1 ; set position |
| 604 | 802 call profile_display_fill ; in this column between this row (xC+0) and the last row (xC+1) |
| 803 movff xC+0,fill_between_rows ; store last row for fill routine | |
| 0 | 804 |
| 631 | 805 PIXEL_WRITE logbook_pixel_x_pos,xC+0 ; draw a pixel |
| 806 incf logbook_pixel_x_pos,F ; advance to next column | |
| 807 | |
| 808 ;---- draw marker square, if any ----------------------------------------- | |
| 0 | 809 |
| 604 | 810 btfss log_marker_found ; any marker to draw? |
| 631 | 811 bra profile_display_skip_marker ; NO - skip |
| 812 bcf log_marker_found ; YES - clear flag | |
|
402
a3a0f1fd7fc4
NEW: Logbook shows markers with small orange boxes in the profile
heinrichsweikamp
parents:
392
diff
changeset
|
813 |
| 631 | 814 ; set position |
| 582 | 815 incf fill_between_rows,W ; increase row (Y) |
| 816 movwf win_top | |
| 631 | 817 |
| 582 | 818 ; limit win_top to 220 |
| 819 movlw .220 | |
| 820 cpfslt win_top | |
| 821 movwf win_top | |
| 822 decf logbook_pixel_x_pos,W ; decrease column (X) | |
| 823 movwf win_leftx2 | |
| 631 | 824 |
| 582 | 825 ; limit win_leftx2 to 151 |
| 826 movlw .151 | |
| 827 cpfslt win_leftx2 | |
| 828 movwf win_leftx2 | |
|
402
a3a0f1fd7fc4
NEW: Logbook shows markers with small orange boxes in the profile
heinrichsweikamp
parents:
392
diff
changeset
|
829 |
| 631 | 830 ; print marker |
| 582 | 831 movlw color_orange |
| 832 call TFT_set_color | |
| 833 WIN_FONT FT_TINY | |
| 834 lfsr FSR2,buffer | |
| 835 STRCPY_PRINT "m" | |
| 836 | |
| 837 movlw profile_left | |
| 838 movwf win_leftx2 | |
| 839 movlw profile_top | |
| 840 movwf win_top | |
| 841 movlw profile_height_pixels | |
| 842 movwf win_height | |
| 843 movlw LOW (profile_width_pixels*.2) | |
| 844 movwf win_width+0 | |
| 845 movlw HIGH (profile_width_pixels*.2) | |
| 846 movwf win_width+1 | |
| 847 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
|
848 |
|
a3a0f1fd7fc4
NEW: Logbook shows markers with small orange boxes in the profile
heinrichsweikamp
parents:
392
diff
changeset
|
849 profile_display_skip_marker: |
| 631 | 850 |
| 851 ;---- draw CNS curve, if any --------------------------------------------- | |
| 852 | |
| 853 movf divisor_cns,W ; get divisor, CNS logged? | |
| 854 bz profile_display_skip_cns ; NO - skip | |
| 582 | 855 ; |
| 604 | 856 ; add further code here... |
| 582 | 857 ; |
| 631 | 858 |
| 0 | 859 profile_display_skip_cns: |
| 860 | |
| 631 | 861 ;---- draw saturation curve, if any -------------------------------------- |
| 862 | |
| 863 movf divisor_gf,W ; get divisor, saturation logged? | |
| 864 bz profile_display_skip_gf ; NO - skip | |
| 582 | 865 ; |
| 604 | 866 ; add further code here... |
| 582 | 867 ; |
| 631 | 868 |
| 0 | 869 profile_display_skip_gf: |
| 870 | |
| 631 | 871 ; all curves done |
| 582 | 872 bra profile_display_skip_loop1 |
| 0 | 873 |
| 874 | |
| 631 | 875 profile_display_skip_loop1: |
| 876 dcfsnz profile_temp2+0,F ; decrement low byte of x-scaler, became zero? | |
| 877 bra profile_display_loop3 ; YES - decrement high byte | |
| 878 rcall profile_view_get_depth ; NO - read next depth, temp and profile data set | |
| 879 btfsc end_of_profile ; - end-of profile reached? | |
| 880 bra profile_display_loop_done ; YES - skip all remaining pixels | |
| 881 bra profile_display_skip_loop1 ; NO - continue | |
| 0 | 882 |
| 631 | 883 profile_display_loop3: |
| 884 decfsz profile_temp2+1,F ; decrement high byte of x-scaler, became zero? | |
| 885 bra profile_display_skip_loop1 ; NO - continue | |
| 886 decfsz ignore_digits,F ; YES - count drown x-pixels to zero, became zero? | |
| 887 bra profile_display_loop ; NO - draw next sample | |
| 888 bra profile_display_loop_done ; YES - done | |
| 0 | 889 |
| 890 profile_display_loop_done: | |
| 623 | 891 btfss bailout_mode ; bailout during the dive? |
| 631 | 892 bra profile_display_gas6 ; NO - skip next |
| 893 movlw color_pink ; YES - show "Bailout" in pink color | |
| 894 call TFT_set_color ; - ... | |
| 895 WIN_TINY logbook_bailout_column,logbook_bailout_row; - ... | |
| 896 STRCPY_TEXT_PRINT tDiveBailout ; - print text | |
| 897 | |
| 898 profile_display_gas6: | |
| 623 | 899 btfss event_gas_change_gas6 ; did a change to gas 6 occurred? |
| 631 | 900 bra profile_display_temperatures ; NO - skip next |
| 623 | 901 movlw color_pink ; YES - select color |
| 902 call TFT_set_color ; - set color | |
| 582 | 903 WIN_TINY logbook_bailout_column,logbook_bailout_row-.15 |
| 623 | 904 STRCPY_TEXT tGas ; - print "Gas" |
| 905 STRCAT_PRINT " 6!" ; - print " 6!" | |
|
99
87cc1adfe4da
show event "bailout" in the internal logbook
heinrichsweikamp
parents:
98
diff
changeset
|
906 |
| 631 | 907 profile_display_temperatures: |
| 908 movff logbook_min_temp_pos,win_top ; get Y position at lowest temperature | |
| 909 movff logbook_pixel_x_pos,win_leftx2 ; get X ... | |
| 910 movlw .130 ; left border limit | |
| 911 cpfslt win_leftx2 ; too far to the left? | |
| 912 movwf win_leftx2 ; YES - set to limit | |
| 913 WIN_FONT FT_TINY ; select font | |
| 914 movlw color_yellow ; select color | |
| 915 call TFT_set_color ; set color | |
| 0 | 916 |
| 631 | 917 MOVII logbook_min_tp,mpr ; get min temperature |
| 918 lfsr FSR2,buffer ; initialize string buffer | |
| 0 | 919 |
| 582 | 920 TSTOSS opt_units ; 0=°C, 1=°F |
| 623 | 921 bra logbook_show_temp_metric ; 0 - do Celsius |
| 631 | 922 ;bra logbook_show_temp_imperial ; 1 - do Fahrenheit |
| 923 | |
| 924 logbook_show_temp_imperial: | |
| 925 ; min temperature | |
| 926 call TFT_convert_signed_16bit ; convert lo:hi into signed-short and add '-' to POSTINC2 if required | |
| 582 | 927 call convert_celsius_to_fahrenheit ; convert value in lo:hi from Celsius to Fahrenheit |
| 604 | 928 lfsr FSR2,buffer ; overwrite "-" |
| 929 bsf ignore_digit5 ; full degrees only | |
| 0 | 930 output_16 |
| 582 | 931 STRCAT_TEXT_PRINT tLogTunitF |
| 631 | 932 ; max temperature |
| 582 | 933 movlw .15 |
| 934 subwf logbook_max_temp_pos,W | |
| 631 | 935 movwf win_top ; Y position at max temperature |
| 623 | 936 MOVII logbook_max_tp,mpr |
| 582 | 937 lfsr FSR2,buffer |
| 938 call TFT_convert_signed_16bit ; converts lo:hi into signed-short and adds '-' to POSTINC2 if required | |
| 939 call convert_celsius_to_fahrenheit ; convert value in lo:hi from Celsius to Fahrenheit | |
|
162
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
940 output_16 |
| 0 | 941 bcf ignore_digit5 |
| 582 | 942 STRCAT_TEXT_PRINT tLogTunitF |
| 631 | 943 bra logbook_show_gases |
| 0 | 944 |
| 945 logbook_show_temp_metric: | |
| 631 | 946 ; min temperature |
| 947 call TFT_convert_signed_16bit ; convert lo:hi into signed-short and add '-' to POSTINC2 if required | |
|
162
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
948 movlw d'3' |
|
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
949 movwf ignore_digits |
|
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
950 bsf leftbind |
| 582 | 951 output_16dp d'2' ; temperature |
| 952 STRCAT_TEXT_PRINT tLogTunitC | |
| 631 | 953 ; max temperature |
| 582 | 954 movlw .15 |
| 955 subwf logbook_max_temp_pos,W | |
| 604 | 956 movwf win_top ; Y position at max temperature |
| 623 | 957 MOVII logbook_max_tp,mpr |
| 582 | 958 lfsr FSR2,buffer |
| 959 call TFT_convert_signed_16bit ; converts lo:hi into signed-short and adds '-' to POSTINC2 if required | |
|
162
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
960 movlw d'3' |
|
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
961 movwf ignore_digits |
|
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
962 bsf leftbind |
| 582 | 963 output_16dp d'2' ; temperature |
| 964 STRCAT_TEXT_PRINT tLogTunitC | |
| 631 | 965 bra logbook_show_gases |
| 0 | 966 |
| 631 | 967 |
| 968 display_profile_no_profile: | |
| 969 ; print message "No Data anymore..." | |
| 970 WIN_SMALL .4,.110 ; set text size and position | |
| 971 call TFT_disabled_color ; use the color for disabled things | |
| 972 STRCPY_TEXT_PRINT tNoProfileData ; print message | |
| 973 | |
| 974 | |
| 975 logbook_show_gases: | |
| 50 | 976 bcf leftbind |
| 582 | 977 call TFT_standard_color |
| 0 | 978 |
| 623 | 979 btfss aux_flag ; dive done in a deco mode? |
| 631 | 980 bra logbook_show_gases_done ; NO - don't show gases |
| 623 | 981 |
| 982 ; show gases | |
| 631 | 983 lfsr FSR0,header_buffer+index_gas1 ; load base address of gases |
| 582 | 984 bsf log_show_gas_short ; do the short version of log_show_gas |
| 985 bsf leftbind | |
| 0 | 986 |
| 582 | 987 WIN_TINY log_gas_column1, log_gas_row |
| 604 | 988 movlw .1 ; color for gas 1 |
| 582 | 989 call log_show_gas |
| 0 | 990 |
| 582 | 991 WIN_TINY log_gas_column2, log_gas_row |
| 604 | 992 movlw .2 ; color for gas 2 |
| 582 | 993 call log_show_gas |
| 0 | 994 |
| 582 | 995 WIN_TINY log_gas_column3, log_gas_row |
| 604 | 996 movlw .3 ; color for gas 3 |
| 582 | 997 call log_show_gas |
| 0 | 998 |
| 582 | 999 WIN_TINY log_gas_column4, log_gas_row |
| 604 | 1000 movlw .4 ; color for gas 4 |
| 582 | 1001 call log_show_gas |
| 0 | 1002 |
| 582 | 1003 WIN_TINY log_gas_column5, log_gas_row |
| 604 | 1004 movlw .5 ; color for gas 5 |
| 582 | 1005 call log_show_gas |
| 1006 | |
| 1007 bcf leftbind | |
| 0 | 1008 |
| 623 | 1009 logbook_show_gases_done: |
| 0 | 1010 |
| 623 | 1011 rcall logbook_preloop_tasks ; clear timeout, some flags and set to Speed_eco |
| 1012 display_profile_loop: | |
| 1013 btfsc switch_right ; right button pressed? | |
| 631 | 1014 bra logbook_page1 ; YES - show more information |
| 1015 btfsc switch_left ; NO - left button pressed? | |
| 1016 bra exit_profileview ; YES - back to list | |
| 1017 call housekeeping ; NO - handle screen dump request, timeout and entering dive mode | |
| 1018 bra display_profile_loop ; - loop waiting for something to do | |
| 1019 | |
| 0 | 1020 |
| 1021 ;============================================================================= | |
| 631 | 1022 ; Draw a vertical line between xC+1 and xC+0, at current X position |
| 0 | 1023 ; |
| 1024 ; Note: should keep xC+0 | |
| 1025 ; Note: ascending or descending ! | |
| 1026 ; | |
| 1027 profile_display_fill: | |
| 582 | 1028 ; First, check if xC+0 > fill_between_rows or xC+0 < aponoe_mins |
| 0 | 1029 movf xC+0,W |
| 623 | 1030 cpfseq xC+1 ; xC+0 = apnoe_mins ? |
| 604 | 1031 bra profile_display_fill2 ; NO |
| 0 | 1032 return |
| 1033 | |
| 604 | 1034 profile_display_fill2: |
| 623 | 1035 ; Make sure to init X position |
| 582 | 1036 movf logbook_pixel_x_pos,W |
| 1037 mullw 2 | |
| 1038 decf PRODL,F | |
| 1039 movlw 0 | |
| 1040 subwfb PRODH,F | |
| 1041 call pixel_write_col320 | |
| 0 | 1042 |
| 1043 movf xC+0,W | |
| 604 | 1044 cpfsgt xC+1 ; fill_between_rows > xC+0 ? |
| 1045 bra profile_display_fill_up ; YES | |
| 0 | 1046 |
| 604 | 1047 profile_display_fill_down2: ; loop |
| 560 | 1048 decf xC+1,F |
| 0 | 1049 |
| 604 | 1050 HALF_PIXEL_WRITE xC+1 ; updates just row (0..239) |
| 0 | 1051 |
| 560 | 1052 movf xC+0,W |
| 604 | 1053 cpfseq xC+1 ; loop until xC+1 = xC+0 |
| 560 | 1054 bra profile_display_fill_down2 |
| 582 | 1055 return ; fill_between_rows and xC+0 are untouched |
| 0 | 1056 |
| 604 | 1057 profile_display_fill_up: ; fill upwards from xC+0 to apone_mins! |
| 560 | 1058 incf xC+1,F |
| 0 | 1059 |
| 604 | 1060 HALF_PIXEL_WRITE xC+1 ; updates just row (0..239) |
| 0 | 1061 |
| 560 | 1062 movf xC+0,W |
| 604 | 1063 cpfseq xC+1 ; loop until xC+1 = fill_between_rows |
| 560 | 1064 bra profile_display_fill_up |
| 582 | 1065 return ; fill_between_rows and xC+0 are untouched |
| 0 | 1066 |
| 1067 ;============================================================================= | |
| 1068 | |
| 1069 | |
| 1070 profile_view_get_depth: | |
| 623 | 1071 INCI logbook_sample_counter ; count read pixels |
| 0 | 1072 |
| 582 | 1073 movf logbook_sample_counter+0,W |
| 1074 cpfseq vertical_interval+0 | |
| 1075 bra profile_view_get_depth_no_line ; no need to draw a 10min line, continue | |
| 1076 movf logbook_sample_counter+1,W | |
| 1077 cpfseq vertical_interval+1 | |
| 1078 bra profile_view_get_depth_no_line ; no need to draw a 10min line, continue | |
| 560 | 1079 ; draw a new 10min line here... |
| 623 | 1080 CLRI logbook_sample_counter ; clear counting registers for next line |
| 0 | 1081 |
| 1082 ; Vertical lines... | |
| 582 | 1083 movlw color_deepblue |
| 604 | 1084 call TFT_set_color |
| 582 | 1085 movlw profile_top+.1 |
| 1086 movwf win_top | |
| 1087 incf logbook_pixel_x_pos,W ; draw one line to right to make sure it's the background of the profile | |
| 604 | 1088 movwf win_leftx2 ; left border (0-159) |
| 582 | 1089 movlw profile_height_pixels |
| 1090 movwf win_height | |
| 1091 movlw profile_height_pixels | |
| 604 | 1092 movwf win_width ; "window" height |
| 1093 call half_horizontal_line ; inputs: win_top, win_leftx2, win_width, win_color1, win_color2 | |
| 0 | 1094 |
| 1095 profile_view_get_depth_no_line: | |
| 631 | 1096 FLASH_II_READ_0x20 logbook_cur_depth ; read depth (2 bytes) |
| 1097 FLASH_CC_READ_0x20 gaslist_gas ; read Profile Flag Byte | |
| 0 | 1098 |
| 623 | 1099 bcf event_occured ; clear flag by default |
| 1100 btfsc gaslist_gas,7 ; event recorded? | |
| 1101 bsf event_occured ; YES - we also have an event byte | |
| 604 | 1102 bcf gaslist_gas,7 ; clear event byte flag (if any) |
| 631 | 1103 |
| 582 | 1104 ; gaslist_gas now holds the number of additional bytes to ignore (0-127) |
| 631 | 1105 |
| 1106 ; check for end of profile | |
| 1107 movlw 0xFD ; load token for end of profile data | |
| 1108 cpfseq logbook_cur_depth+0 ; end of profile token in 1st depth byte? | |
| 1109 bra profile_view_get_depth_new1 ; NO - profile continues | |
| 1110 cpfseq logbook_cur_depth+1 ; YES - end of profile token in 2nd depth byte? | |
| 1111 bra profile_view_get_depth_new1 ; NO - profile continues | |
| 1112 bsf end_of_profile ; YES - end of profile, set flag to skip remaining pixels | |
| 1113 return ; - done | |
| 0 | 1114 |
| 1115 profile_view_get_depth_new1: | |
| 604 | 1116 btfsc event_occured ; was there an event attached to this sample? |
| 1117 rcall profile_view_get_depth_events ; YES - get information about this event(s) | |
| 582 | 1118 |
| 631 | 1119 ; read temperature if available AND divisor reached AND bytes available |
| 1120 movf divisor_temperature,W ; is temperature divisor null ? | |
| 1121 bz profile_view_get_depth_no_tp ; YES - no temperature curve | |
| 1122 decf count_temperature,F ; NO - decrement temperature counter, counter zero now? | |
| 1123 bnz profile_view_get_depth_no_tp ; NO - no temperature this time | |
| 1124 FLASH_II_READ_0x20 logbook_cur_tp ; YES - read temperature (2 bytes) | |
| 1125 decf gaslist_gas,F ; - reduce counter twice | |
| 1126 decf gaslist_gas,F ; - ... | |
| 1127 movff divisor_temperature,count_temperature ; - restart counter | |
|
162
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
1128 |
| 631 | 1129 ; compute max temperature on the fly... |
| 1130 MOVII logbook_cur_tp,sub_a ; copy current temperature to sub_a | |
| 1131 MOVII logbook_max_tp,sub_b ; copy maximum temperature to sub_b | |
| 1132 call sub16 ; SIGNED sub_a - sub_b | |
| 1133 btfsc neg_flag ; current temperature > maximum temperature ? | |
| 1134 bra profile_view_get_depth_no_tp ; NO - no new max temperature | |
| 582 | 1135 |
| 631 | 1136 ; store new max. temperature, but only if below dive_threshold_norm_alt_start |
| 1137 tstfsz logbook_cur_depth+1 ; deeper than 2.55 m ? | |
| 604 | 1138 bra profile_view_compute_max_temp ; YES - include in max. temp measurement |
| 623 | 1139 movlw dive_threshold_norm_alt_start+0 ; get start-of-dive depth in mbar / cm, low byte |
| 1140 cpfsgt logbook_cur_depth+0 ; deeper that start-of-dive threshold? | |
| 631 | 1141 bra profile_view_get_depth_no_tp ; NO - ignore current temperature |
|
162
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
1142 |
|
95d05cc14736
NEW: Safe tissue data, date and time during firmware update
heinrichsweikamp
parents:
124
diff
changeset
|
1143 profile_view_compute_max_temp: |
| 631 | 1144 MOVII logbook_cur_tp,logbook_max_tp ; store new max temperature |
| 582 | 1145 |
| 604 | 1146 ;---- read deco, if any AND divisor=0 AND bytes available ---------------- |
| 0 | 1147 profile_view_get_depth_no_tp: |
| 582 | 1148 movf divisor_deco,W |
| 1149 bz profile_view_get_depth_no_deco | |
| 1150 decf count_deco,F | |
| 1151 bnz profile_view_get_depth_no_deco | |
| 0 | 1152 |
| 631 | 1153 FLASH_CC_READ_0x20 logbook_ceiling ; read the ceiling |
| 1154 decf gaslist_gas,F ; reduce the counter | |
| 604 | 1155 movff divisor_deco,count_deco ; restart counter |
| 631 | 1156 ext_flash_inc_address_0x40 d'1' ; skip the stop duration |
| 1157 decf gaslist_gas,F ; reduce the counter | |
| 582 | 1158 |
| 604 | 1159 ;---- read GF, if any AND divisor=0 AND bytes available ------------------ |
| 631 | 1160 |
| 0 | 1161 profile_view_get_depth_no_deco: |
| 631 | 1162 ; then skip remaining bytes... |
| 1163 movf gaslist_gas,W ; get number of additional bytes to ignore (0-127) | |
| 1164 tstfsz WREG ; anything to skip? | |
| 1165 call incf_ext_flash_address0_0x20 ; YES - skip #WREG bytes | |
| 0 | 1166 return |
| 1167 | |
|
168
1784ab9362ca
BUGFIX: False max. temp in Logbook, false Bailout and Gas 6 flags in logbook
heinrichsweikamp
parents:
167
diff
changeset
|
1168 profile_view_get_depth_events: |
| 623 | 1169 clrf event_byte2 ; clear event byte 2 |
| 631 | 1170 FLASH_CC_READ_0x20 event_byte1 ; read event byte 1 |
| 604 | 1171 decf gaslist_gas,F ; reduce counter |
| 98 | 1172 |
| 623 | 1173 btfss event_byte1,7 ; another event byte? |
| 631 | 1174 bra profile_no_second_eventbyte ; NO - skip next |
| 1175 FLASH_CC_READ_0x20 event_byte2 ; YES - read event byte 2 | |
| 1176 decf gaslist_gas,F ; - reduce counter | |
| 1177 bcf event_byte1,7 ; - clear flag | |
| 98 | 1178 |
| 1179 profile_no_second_eventbyte: | |
| 582 | 1180 ; Check event flags in the EventBytes |
| 623 | 1181 btfsc event_byte1,4 ; manual gas changed? |
| 604 | 1182 rcall logbook_event1 ; YES |
| 623 | 1183 btfsc event_byte1,5 ; stored gas changed? |
| 604 | 1184 rcall logbook_event4 ; YES |
| 623 | 1185 btfsc event_byte1,6 ; setpoint change? |
| 604 | 1186 rcall logbook_event3 ; YES |
| 623 | 1187 btfsc event_byte2,0 ; bailout? |
| 604 | 1188 rcall logbook_event2 ; YES |
| 623 | 1189 ; any alarm? |
| 1190 bcf event_byte1,4 ; clear bits already tested | |
| 1191 bcf event_byte1,5 | |
| 1192 bcf event_byte1,6 | |
| 1193 movlw .6 ; coding for manual marker | |
| 1194 cpfseq event_byte1 ; manual marker set? | |
| 1195 return ; NO - done | |
| 1196 bsf log_marker_found ; YES - draw small yellow rectangle here | |
| 1197 return ; - done | |
|
163
4d71549dcf6c
clarify diluent change in the documentation
heinrichsweikamp
parents:
162
diff
changeset
|
1198 |
| 604 | 1199 logbook_event4: ; stored gas changed |
| 631 | 1200 FLASH_CC_READ_0x20 backup_color1 ; read gas number, to be used as color index |
| 604 | 1201 decf gaslist_gas,F ; reduce counter |
| 631 | 1202 call TFT_color_code_gas ; change profile color according to gas number (still in WREG) |
| 0 | 1203 return |
| 1204 | |
| 604 | 1205 logbook_event1: ; gas 6 used |
| 623 | 1206 bsf event_gas_change_gas6 ; set event flag |
| 1207 movlw .6 ; use gas 6 color | |
| 1208 movwf backup_color1 ; select color for gas 6 | |
| 582 | 1209 call TFT_color_code_gas ; set profile color |
| 631 | 1210 ext_flash_inc_address_0x20 d'2' ; skip two bytes |
| 604 | 1211 decf gaslist_gas,F ; reduce counter |
| 1212 decf gaslist_gas,F ; reduce counter | |
| 167 | 1213 return |
| 0 | 1214 |
| 604 | 1215 logbook_event2: ; bailout |
| 623 | 1216 bsf bailout_mode ; set flag |
| 604 | 1217 movff backup_color1,backup_color2 ; backup last gas color in case we return to CCR |
| 1218 movlw .6 ; use Gas6 color | |
| 582 | 1219 movwf backup_color1 |
| 623 | 1220 call TFT_color_code_gas ; use gas 6 color |
| 631 | 1221 ext_flash_inc_address_0x20 d'2' ; skip two bytes |
| 604 | 1222 decf gaslist_gas,F ; reduce counter |
| 1223 decf gaslist_gas,F ; reduce counter | |
| 167 | 1224 return |
|
99
87cc1adfe4da
show event "bailout" in the internal logbook
heinrichsweikamp
parents:
98
diff
changeset
|
1225 |
| 604 | 1226 logbook_event3: ; setpoint change |
| 631 | 1227 ext_flash_inc_address_0x20 d'1' ; skip one byte |
| 604 | 1228 decf gaslist_gas,F ; reduce counter |
| 623 | 1229 btfss bailout_mode ; in bailout? |
| 631 | 1230 return ; NO - done |
| 1231 movff backup_color2,backup_color1 ; YES - restore color | |
| 1232 movf backup_color2,W ; - copy gas number to WREG for color-coding | |
| 1233 call TFT_color_code_gas ; - back to normal profile color | |
| 1234 return ; - done | |
|
99
87cc1adfe4da
show event "bailout" in the internal logbook
heinrichsweikamp
parents:
98
diff
changeset
|
1235 |
| 604 | 1236 ; ------------------------------------------------------------------------ |
| 1237 | |
| 0 | 1238 exit_profileview: |
| 604 | 1239 clrf gaslist_gas ; restore all registers to build same page again |
| 582 | 1240 movff logbook_divenumber_temp,logbook_divenumber |
| 1241 movff logbook_max_dive_counter_temp,logbook_max_dive_counter | |
| 1242 movff logbook_temp_backup,logbook_temp | |
| 1243 incf logbook_max_dive_counter,F | |
| 1244 decf logbook_divenumber,F | |
| 1245 bcf all_dives_shown | |
| 631 | 1246 clrf menu_pos_max ; number of rows used on current logbook-page |
| 582 | 1247 movlw logbook_row_number |
| 623 | 1248 movwf menu_pos_cur ; here: active row on current page |
| 582 | 1249 call TFT_boot |
| 1250 goto logbook2 ; start search | |
| 0 | 1251 |
| 1252 next_logbook2: | |
| 623 | 1253 btfsc all_dives_shown ; all shown? |
| 1254 goto logbook ; YES | |
| 1255 clrf menu_pos_max ; number of used rows on current logbook-page | |
| 582 | 1256 movlw logbook_row_number |
| 623 | 1257 movwf menu_pos_cur |
| 582 | 1258 incf logbook_page_number,F ; start new screen |
| 604 | 1259 bsf keep_cursor_new_page ; keep cursor on "next page" |
| 582 | 1260 call TFT_boot |
| 1261 goto logbook2 ; start search | |
| 0 | 1262 |
| 1263 next_logbook3: | |
| 631 | 1264 incf menu_pos_cur,F ; set cursor to next line |
| 1265 movlw logbook_row_number+.2 ; get maximum number of lines | |
| 1266 cpfsgt menu_pos_cur ; cursor position beyond last line? | |
| 1267 bra next_logbook3a ; NO - ok, done | |
| 1268 movlw .1 ; YES - reset to first line | |
| 1269 movwf menu_pos_cur ; - ... | |
| 1270 bra next_logbook3b ; - done | |
| 0 | 1271 |
| 1272 next_logbook3a: | |
| 623 | 1273 incf menu_pos_max,W ; last entry on current page +1 |
| 1274 cpfseq menu_pos_cur ; same as cursor position? | |
| 604 | 1275 bra next_logbook3b ; NO |
| 623 | 1276 movlw logbook_row_number+.1 ; YES - ... |
| 1277 movwf menu_pos_cur ; - ... jump directly to "next page" if page is not full | |
| 0 | 1278 |
| 582 | 1279 movlw logbook_row_number |
| 623 | 1280 cpfseq menu_pos_max ; last dive was row logbook_row_number? |
| 604 | 1281 bsf all_dives_shown ; NO - set flag to load first page again (full reset) |
| 0 | 1282 |
| 1283 next_logbook3b: | |
| 582 | 1284 call TFT_logbook_cursor |
| 623 | 1285 goto logbook_loop_pre |
| 0 | 1286 |
| 631 | 1287 ; ------------------------------------------------------------------ |
| 1288 ; list one dive | |
| 1289 ; | |
| 0 | 1290 display_listdive: |
| 631 | 1291 bsf logbook_page_not_empty ; flag page will not be empty |
| 1292 incf menu_pos_max,F ; increment number of lines shown | |
| 0 | 1293 |
| 623 | 1294 lfsr FSR2,buffer ; initialize output buffer |
| 631 | 1295 WIN_FONT FT_SMALL ; select font |
| 1296 WIN_LEFT logbook_list_left ; set horizontal output position | |
| 1297 decf menu_pos_max,W ; get current line -1 into WREG | |
| 1298 mullw logbook_row_offset ; multiply with row spacing | |
| 1299 movff PRODL,win_top ; set vertical output position | |
|
392
32780516c8c6
NEW: Show actual dive count in logbook list view (If <1000)
heinrichsweikamp
parents:
389
diff
changeset
|
1300 |
| 631 | 1301 ; print dive number |
| 1302 movf logbook_divenumber,W ; get running number of the dive | |
| 1303 call log_compute_divenumber ; compute dive number to show (incorporate dive number offset) | |
| 1304 bsf leftbind ; start left-aligned | |
| 628 | 1305 movlw .3 ; start with 3rd digit (i.e. suppress the thousands) |
| 631 | 1306 movwf ignore_digits ; ... |
| 1307 output_16dp .0 ; print dive number | |
| 1308 bcf leftbind ; end left-alignment | |
| 1309 | |
| 1310 PUTC ' ' ; print a space char | |
| 1311 | |
| 1312 ; print dive date | |
| 1313 MOVTT header_buffer+index_date,mpr ; get date | |
| 1314 call TFT_convert_date_short ; convert and print date | |
| 1315 | |
| 1316 PUTC ' ' ; print a space char | |
| 0 | 1317 |
| 631 | 1318 ; print dive depth |
| 1319 MOVII header_buffer+index_max_depth,mpr ; get max depth | |
| 1320 | |
| 1321 TSTOSS opt_units ; switch by configured units | |
| 1322 bra display_listdive2_metric ; 0 - do metric | |
| 1323 ;bra display_listdive2_imperial ; 1 - do imperial | |
| 0 | 1324 |
| 631 | 1325 display_listdive2_imperial: |
| 1326 call convert_cm_to_feet ; convert value in mpr from [cm] to [feet] | |
| 1327 PUTC ' ' ; print one space char | |
| 1328 output_16_3 ; print depth, limited to 999 | |
| 1329 STRCAT_TEXT tFeets1 ; print unit label | |
| 1330 bra display_listdive3 ; continue with common part | |
| 0 | 1331 |
| 1332 display_listdive2_metric: | |
| 631 | 1333 bsf ignore_digit5 ; do not print the cm |
| 1334 movlw d'1' ; do not print the first digit (no 1000 m) | |
| 1335 movwf ignore_digits ; ... | |
| 1336 output_16dp .3 ; print depth in format xxx.y | |
| 1337 STRCAT_TEXT tMeters ; print unit label | |
| 1338 PUTC ' ' ; print one space char | |
| 1339 ;bra display_listdive3 ; continue with common part | |
| 0 | 1340 |
| 631 | 1341 ; print dive time |
| 0 | 1342 display_listdive3: |
| 631 | 1343 MOVII header_buffer+index_divetime,mpr ; get dive time (minutes only) |
| 1344 output_16_3 ; print minutes (0-999 min) | |
| 1345 STRCAT_TEXT tMinutes ; print minutes mark ("'") | |
| 1346 clrf WREG ; create string terminator | |
| 1347 movff WREG,buffer+.21 ; hard limit the output to 21 chars | |
| 1348 STRCAT_PRINT "" ; finalize output | |
| 1349 | |
| 1350 return ; done | |
| 0 | 1351 |
| 604 | 1352 ; ------------------------------------------------------------------ |
| 1353 | |
| 0 | 1354 logbook_show_divenumber: |
| 1355 WIN_MEDIUM logbook_divenumer_column, logbook_divenumer_row | |
| 623 | 1356 movf divenumber,W ; log_compute_divenumber needs the list number |
| 1357 call log_compute_divenumber ; compute dive number | |
| 582 | 1358 bsf leftbind |
| 623 | 1359 output_16 ; show dive number |
| 582 | 1360 bcf leftbind |
| 623 | 1361 STRCAT_PRINT "" ; finalize output |
| 1362 return ; done | |
| 0 | 1363 |
| 1364 | |
| 631 | 1365 ;----------------------------------------------------------------------------- |
| 1366 ; 1st Details Page after Profile: Dive Statistics | |
| 1367 | |
| 1368 logbook_page1: ; show more info | |
| 604 | 1369 rcall log_details_header ; shows number, time/date and basic dive info |
| 582 | 1370 |
| 623 | 1371 btfss aux_flag ; dive done in a deco mode? |
| 631 | 1372 bra logbook_page1_1 ; NO |
| 623 | 1373 |
| 631 | 1374 ; deco model |
| 582 | 1375 WIN_SMALL .5,.65 |
| 631 | 1376 MOVCC header_buffer+index_decomodel,WREG ; get deco model (0= ZH-L16, 1=ZH-L16+GF) |
| 1377 decfsz WREG,W ; GF model? | |
| 1378 bra logbook_decomodel_1 ; NO - ZH-L16 | |
| 1379 ;bra logbook_decomodel_2 ; YES - ZH-L16+GF | |
| 1380 | |
| 1381 logbook_decomodel_2: | |
| 1382 ; deco model GF version | |
| 582 | 1383 STRCAT_PRINT "ZHL-16+GF" |
| 1384 WIN_SMALL .5,.90 | |
| 631 | 1385 STRCPY_TEXT tGF2 |
| 1386 MOVII header_buffer+index_gf_lo_hi,mpr ; get GF factors | |
| 1387 output_8 ; print GF lo | |
| 582 | 1388 STRCAT "%/" |
| 631 | 1389 movff hi,lo ; print GF hi |
| 1390 output_8 ; ... | |
| 1391 STRCAT_PRINT "%" | |
| 1392 bra logbook_cns | |
| 1393 | |
| 1394 logbook_decomodel_1: | |
| 1395 ; deco model none-GF version | |
| 582 | 1396 STRCAT_PRINT "ZH-L16" |
| 1397 WIN_SMALL .5,.90 | |
| 631 | 1398 MOVII header_buffer+index_factor_sat_desat,mpr; get both factors |
| 1399 output_8 ; print saturation factor | |
| 582 | 1400 STRCAT "%/" |
| 631 | 1401 movff hi,lo ; print desaturation factor |
| 1402 output_8 ; ... | |
| 582 | 1403 STRCAT_PRINT "%" |
| 631 | 1404 ;bra logbook_cns |
| 0 | 1405 |
| 631 | 1406 logbook_cns: |
| 582 | 1407 WIN_SMALL .5,.115 |
| 1408 STRCPY_TEXT tCNS2 | |
| 631 | 1409 MOVII header_buffer+index_cns_start,mpr ; get CNS at start of dive |
| 1410 bcf mpr+1,int_warning_flag ; clear warning flag (fix for cases were the flags already got stored to EEPROM) | |
| 1411 bcf mpr+1,int_attention_flag ; clear attention flag (fix for cases were the flags already got stored to EEPROM) | |
| 582 | 1412 output_16 |
| 1413 STRCAT "->" | |
| 631 | 1414 MOVII header_buffer+index_cns_end,mpr ; get CNS at end of dive |
| 604 | 1415 bcf hi,int_warning_flag ; clear warning flag (fix for cases were the flags already got stored to EEPROM) |
| 1416 bcf hi,int_attention_flag ; clear attention flag (fix for cases were the flags already got stored to EEPROM) | |
| 582 | 1417 output_16 |
| 1418 STRCAT_PRINT "%" | |
| 1419 | |
| 631 | 1420 logbook_page1_1: |
| 1421 WIN_SMALL .5,.140 | |
| 1422 STRCPY_TEXT tAVG | |
| 1423 MOVII header_buffer+index_avr_depth,mpr ; get average depth | |
| 1424 | |
| 1425 TSTOSS opt_units ; 0=Meters, 1=Feets | |
| 1426 bra logbook_page1_1_metric ; do metric | |
| 1427 ;bra logbook_page1_1_imperial ; do imperial | |
| 623 | 1428 |
| 631 | 1429 logbook_page1_1_imperial: |
| 1430 call convert_cm_to_feet ; convert value in lo:hi from [cm] to [feet] | |
| 1431 PUTC ' ' | |
| 1432 output_16_3 ; limit to 999 and display only (0-999) | |
| 1433 STRCAT_PRINT "ft" | |
| 1434 bra logbook_page1_1_common | |
|
490
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1435 |
| 631 | 1436 logbook_page1_1_metric: |
| 629 | 1437 bsf ignore_digit5 ; no cm (flag will be cleared by output_16) |
| 1438 movlw .1 ; no 1000 meters | |
| 1439 movwf ignore_digits ; ... | |
| 1440 output_16dp .3 ; xxx.y | |
| 582 | 1441 STRCAT_PRINT "m" |
| 631 | 1442 ;bra logbook_page1_1_common |
|
490
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1443 |
| 631 | 1444 logbook_page1_1_common: |
| 623 | 1445 btfss aux_flag ; dive done in a deco mode? |
| 631 | 1446 bra logbook_page1_2 ; NO |
| 1447 | |
| 1448 ; Salinity | |
| 1449 WIN_SMALL .5,.165 ; ex WIN_SMALL .5,.140 | |
| 1450 STRCPY_TEXT tDvSalinity2 | |
| 1451 bsf leftbind | |
| 1452 MOVCC header_buffer+index_salinity,lo ; read salinity | |
| 1453 output_8 | |
| 1454 STRCAT_PRINT "%" | |
| 623 | 1455 |
| 582 | 1456 ; Last deco |
| 1457 WIN_SMALL .5,.190 | |
| 631 | 1458 STRCPY_TEXT tLastDeco |
| 1459 MOVCC header_buffer+index_last_stop,lo ; read last stop depth | |
| 582 | 1460 output_8 |
| 1461 STRCAT_PRINT "m" | |
| 1462 | |
| 631 | 1463 logbook_page1_2: |
| 582 | 1464 movlw color_lightblue |
| 1465 call TFT_set_color | |
| 623 | 1466 WIN_FRAME_COLOR16 .63,.220,.2,.105 ; top, bottom, left, right |
|
490
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1467 |
| 582 | 1468 ; Firmware |
| 623 | 1469 call TFT_standard_color |
| 1470 WIN_SMALL .110,.65 | |
| 1471 STRCAT "V:" | |
| 631 | 1472 MOVII header_buffer+index_firmware,mpr ; get firmware version |
| 1473 movff lo,up ; keep a backup of major in up | |
| 623 | 1474 bsf leftbind ; print left-aligned |
| 631 | 1475 output_8 ; print major version (in 1 digit due to leftbind) |
| 623 | 1476 PUTC "." ; print "." |
| 631 | 1477 movff hi,lo ; print minor version... |
| 1478 output_99x ; ... in 2 digit format | |
| 623 | 1479 STRCAT_PRINT "" ; finalize output |
| 620 | 1480 |
| 631 | 1481 movf up,W ; get major into WREG |
| 623 | 1482 xorlw .3 ; major == 3 ? |
| 1483 bz logbook_battery_percent ; YES - show battery % | |
| 631 | 1484 movf up,W ; NO - get major into WREG (again) |
| 1485 xorlw .2 ; major == 2 ? | |
| 1486 bnz logbook_battery_voltage ; NO - skip battery % | |
| 1487 movlw .14 ; YES - check minor version | |
| 1488 cpfsgt lo ; - minor > 14 ? | |
| 1489 bra logbook_battery_voltage ; NO - skip battery % | |
| 1490 ;bra logbook_battery_percent ; YES - show battery % | |
| 582 | 1491 |
| 623 | 1492 ; Battery % |
| 620 | 1493 logbook_battery_percent: |
| 631 | 1494 WIN_SMALL .110,.140 |
| 1495 MOVCC header_buffer+index_batt_percent,lo ; get battery percent | |
| 623 | 1496 output_8 ; print battery percent |
| 1497 STRCAT_PRINT "%" ; print "%" and finalize output | |
|
496
a0247e9f71d0
show battery % in logbook (For dives made with 2.15 or newer)
heinrichsweikamp
parents:
495
diff
changeset
|
1498 |
| 623 | 1499 ; Battery Voltage |
| 1500 logbook_battery_voltage: | |
| 582 | 1501 WIN_SMALL .110,.90 |
| 1502 STRCAT_PRINT "Batt:" | |
| 1503 WIN_SMALL .110,.115 | |
| 631 | 1504 MOVII header_buffer+index_battery_voltage,mpr ; get battery voltage |
| 623 | 1505 output_16dp .2 ; print battery voltage |
| 631 | 1506 STRCAT_PRINT "V" ; print unit (Volt) |
|
496
a0247e9f71d0
show battery % in logbook (For dives made with 2.15 or newer)
heinrichsweikamp
parents:
495
diff
changeset
|
1507 |
| 631 | 1508 ; Surface Pressure |
| 1509 MOVII header_buffer+index_surface_press,mpr ; get surface pressure | |
| 623 | 1510 WIN_SMALL .110,.165 ; set output position |
| 1511 bsf leftbind ; print without leading spaces | |
| 631 | 1512 output_16 ; print surface pressure before dive |
| 1513 STRCAT_TEXT tMBAR ; print unit | |
| 623 | 1514 clrf WREG ; string terminator |
| 582 | 1515 movff WREG,buffer+7 ; limit to 7 chars |
| 623 | 1516 STRCAT_PRINT "" ; dump buffer to screen |
|
490
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1517 |
| 623 | 1518 movlw color_greenish ; select color |
| 1519 call TFT_set_color ; ... | |
| 631 | 1520 WIN_FRAME_COLOR16 .63,.220,.107,.159 ; draw a frame with coordinates top, bottom, left, right |
| 582 | 1521 |
| 631 | 1522 ; handle HMI |
| 623 | 1523 rcall logbook_preloop_tasks ; clear timeout and remaining button events |
| 631 | 1524 display_details1_loop: |
| 1525 btfsc switch_right ; right button pressed? | |
| 1526 bra display_details1_more ; YES - more info or back to profile | |
| 623 | 1527 btfsc switch_left ; left button pressed? |
| 1528 bra exit_profileview ; YES - back to list | |
| 631 | 1529 call housekeeping ; NO - handle screen dump request, timeout and entering dive mode |
| 1530 bra display_details1_loop ; - loop waiting for something to do | |
| 1531 | |
| 1532 display_details1_more: | |
| 1533 btfss aux_flag ; YES - dive done in a deco mode? | |
| 1534 goto display_profile2 ; NO - show the profile view again | |
| 1535 ;bra logbook_page2 ; YES - show more details | |
|
490
8dfb93e80338
NEW: Deep Sleep mode for OSTC Plus and OSTC 2 (2017) (Entered automatically)
heinrichsweikamp
parents:
437
diff
changeset
|
1536 |
| 623 | 1537 |
| 631 | 1538 ;----------------------------------------------------------------------------- |
| 1539 ; 2nd Details Page after Profile: Tissue and Decompression Status | |
| 1540 | |
| 1541 logbook_page2: | |
| 1542 | |
| 1543 ; ################# to be removed later ################################## | |
| 1544 ; movlw fw_version_beta ; get beta status | |
| 1545 ; tstfsz WREG ; beta? | |
| 1546 ; bra display_page2_betajump ; YES - omit firmware version check | |
| 1547 ; ######################################################################## | |
| 1548 | |
| 1549 ; skip this page for dives recorded with firmwares < 3.09 | |
| 1550 MOVII header_buffer+index_firmware,mpr ; get firmware version major and minor | |
| 1551 | |
| 1552 movlw .2 ; minimum required major is 3, -1 for cpfsgt | |
| 1553 cpfsgt lo ; major >= requirement? | |
| 1554 bra logbook_page3 ; NO - skip this page | |
| 1555 movlw .8 ; YES - minimum required minor is 9, -1 for cpfsgt | |
| 1556 cpfsgt hi ; - minor >= requirement? | |
| 1557 bra logbook_page3 ; NO - skip this page | |
| 1558 | |
| 1559 ; ################# to be removed later ################################## | |
| 1560 display_page2_betajump: | |
| 1561 ; ######################################################################## | |
| 1562 | |
| 1563 rcall log_details_header ; shows number, time/date and basic dive info | |
| 1564 | |
| 1565 ; basic configuration of tissue graphics | |
| 1566 bsf tissue_graphic_mode ; select logbook mode | |
| 1567 bcf tissue_graphic_layout ; select press+sat | |
| 1568 bcf tissue_graphic_cns ; do not show CNS value | |
| 1569 bcf tissue_graphic_gf ; do not show GF lines by default | |
| 1570 | |
| 1571 ; GF configuration | |
| 1572 MOVCC header_buffer+index_decomodel,WREG ; get deco model (0= ZH-L16, 1=ZH-L16+GF) | |
| 1573 dcfsnz WREG ; GF model? | |
| 1574 bsf tissue_graphic_gf ; YES - show GF lines | |
| 1575 | |
| 1576 ; draw the graphics | |
| 1577 call TFT_surface_tissues | |
| 1578 | |
| 1579 ; calculate time/date of the end of the dive | |
| 1580 MOVTT header_buffer+index_date, rtc_latched_year ; get start of the dive - year, month, day | |
| 1581 MOVII header_buffer+index_time, rtc_latched_hour ; get start of the dive - hour, minute | |
| 1582 MOVCC header_buffer+index_divetime+2,rtc_latched_secs ; get duration of the dive - seconds | |
| 1583 MOVII header_buffer+index_divetime+0,mpr ; get duration of the dive - minutes | |
| 1584 call rtc_add_minutes ; add minutes in mpr to time/date in rtc_latched | |
| 1585 | |
| 1586 ; print time/date of the end of the dive | |
| 1587 WIN_SMALL .8,.193 ; select font and output position | |
| 1588 MOVTT rtc_latched_year,mpr ; get computed end-of-dive date | |
| 1589 call TFT_convert_date_short ; convert and print date | |
| 1590 STRCAT ".-" ; print spacing ".-" | |
| 1591 MOVII rtc_latched_hour,mpr ; get computed end-of-dive time | |
| 1592 output_99x ; print hour | |
| 1593 PUTC ':' ; print spacing ":" | |
| 1594 movff hi,lo ; print minute | |
| 1595 output_99x ; ... | |
| 1596 STRCAT_PRINT "" ; finalize output | |
| 1597 | |
| 1598 | |
| 1599 ; draw a white frame around the time/date | |
| 1600 WIN_FRAME_STD surf_tissue_diagram_bottom,.220, surf_tissue_diagram_left, surf_tissue_diagram_right | |
| 1601 | |
| 1602 bra logbook_page2_rightside ; continue with right side | |
| 1603 | |
| 1604 logbook_page2_nograph: | |
| 1605 WIN_SMALL .6,.118 ; no tissue graphics because the | |
| 1606 STRCAT_PRINT "(< FW 3.08)" ; profile was recorded on a FW < 3.08 | |
| 1607 | |
| 1608 logbook_page2_rightside: | |
| 1609 | |
| 1610 ; 1st line: supersaturation at end of dive | |
| 1611 WIN_SMALL .100,.68 | |
| 1612 STRCAT_TEXT_PRINT tBeginOfDive ; print "Begin" | |
| 1613 | |
| 1614 ; 2nd line: | |
| 1615 WIN_SMALL .100+.28,.93 ; +16 for centered, +28 for right-aligned | |
| 1616 MOVCC header_buffer+index_supersat_start,lo ; get supersaturation at start of dive | |
| 1617 bcf leftbind | |
| 1618 output_8 ; print percent value | |
| 1619 STRCAT_PRINT "%" ; print "%" and finalize output | |
| 1620 | |
| 1621 ; 3rd line: | |
| 1622 WIN_SMALL .100,.118 | |
| 1623 STRCAT_TEXT_PRINT tEndOfDive ; print "End" | |
| 1624 | |
| 1625 ; 4th line: | |
| 1626 WIN_SMALL .100+.28,.143 ; +16 for centered, +28 for right-aligned | |
| 1627 MOVCC header_buffer+index_supersat_end,lo ; get supersaturation at end of dive | |
| 1628 bcf leftbind | |
| 1629 output_8 ; print percent value | |
| 1630 STRCAT_PRINT "%" ; print "%" and finalize output | |
| 1631 | |
| 1632 ; 5th line: desaturation time label | |
| 1633 WIN_SMALL .100,.168 | |
| 1634 STRCAT_TEXT_PRINT tDesatTime ; print "Desat" | |
| 1635 | |
| 1636 ; 6th line: desaturation time value | |
| 1637 WIN_SMALL .100+.14,.193 ; +?? for centered, +14 for right-aligned | |
| 1638 MOVII header_buffer+index_desattime,mpr ; get desaturation time | |
| 1639 call convert_time ; convert hi:lo in minutes to hours (up:hi) and minutes (lo) | |
| 1640 movf lo,W ; swap hi and lo | |
| 1641 movff hi,lo ; ... | |
| 1642 movwf hi ; ... | |
| 1643 output_99 ; print hours in 0-99 | |
| 1644 PUTC 'h' ; print hours mark | |
| 1645 movff hi,lo ; print minutes... | |
| 1646 output_99x ; ... in two digits, leading zero | |
| 1647 STRCAT_PRINT "m" ; print minutes mark and finalize output | |
| 1648 | |
| 1649 ; draw a colored frame around the right side | |
| 1650 movlw color_orange ; select color | |
| 1651 call TFT_set_color ; ... | |
| 1652 WIN_FRAME_COLOR16 .65,.220,.97,.159 ; draw a frame with coordinates top, bottom, left, right | |
| 1653 | |
| 1654 ; handle HMI | |
| 1655 rcall logbook_preloop_tasks ; clear timeout and remaining button events | |
| 1656 display_details1b_loop: | |
| 1657 btfsc switch_right ; right button pressed? | |
| 1658 bra logbook_page3 ; YES - show more info | |
| 1659 btfsc switch_left ; left button pressed? | |
| 1660 bra exit_profileview ; YES - back to list | |
| 1661 call housekeeping ; NO - handle screen dump request, timeout and entering dive mode | |
| 1662 bra display_details1b_loop ; - loop waiting for something to do | |
| 1663 | |
| 1664 | |
| 1665 ;----------------------------------------------------------------------------- | |
| 1666 ; helper function | |
| 582 | 1667 logbook_preloop_tasks: |
| 604 | 1668 movlw CCP1CON_VALUE ; see hwos.inc |
| 1669 movwf CCP1CON ; power-on backlight | |
| 623 | 1670 call TFT_standard_color ; revert to standard color |
| 1671 call reset_timeout_surfmode ; reset timeout | |
| 1672 bcf switch_left ; clear left-over left button event | |
| 1673 bcf switch_right ; clear left-over right button event | |
| 1674 return ; done | |
| 582 | 1675 |
| 631 | 1676 ;----------------------------------------------------------------------------- |
| 1677 ; 3rd Details Page after Profile: Gases / Diluents | |
| 582 | 1678 |
| 631 | 1679 logbook_page3: |
| 604 | 1680 rcall log_details_header ; shows number, time/date and basic dive info |
| 631 | 1681 lfsr FSR0,header_buffer+index_gas1 ; load base address of the gases |
| 582 | 1682 bcf log_show_gas_short ; do the long version of log_show_gas |
| 1683 bcf leftbind | |
| 0 | 1684 |
| 582 | 1685 WIN_SMALL .5,.90 |
| 604 | 1686 movlw .1 ; color for gas 1 |
| 582 | 1687 rcall log_show_gas |
| 1688 | |
| 1689 WIN_SMALL .5,.115 | |
| 604 | 1690 movlw .2 ; color for gas 2 |
| 582 | 1691 rcall log_show_gas |
|
500
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1692 |
| 582 | 1693 WIN_SMALL .5,.140 |
| 604 | 1694 movlw .3 ; color for gas 3 |
| 582 | 1695 rcall log_show_gas |
| 1696 | |
| 1697 WIN_SMALL .5,.165 | |
| 604 | 1698 movlw .4 ; color for gas 4 |
| 582 | 1699 rcall log_show_gas |
| 1700 | |
| 1701 WIN_SMALL .5,.190 | |
| 604 | 1702 movlw .5 ; color for gas 5 |
| 582 | 1703 rcall log_show_gas |
|
500
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1704 |
| 631 | 1705 ; OC/CC gas list |
| 582 | 1706 WIN_SMALL .5,.65 |
| 1707 WIN_COLOR color_greenish | |
| 631 | 1708 |
| 1709 MOVCC header_buffer+index_divemode,WREG ; read dive mode (0=OC, 1=CC, 2=Gauge, 3=Apnea, 4= pSCR) | |
| 1710 decfsz WREG,W ; dive mode = CC ? | |
| 1711 bra logbook_page3a ; NO - print OC title | |
| 1712 STRCPY_TEXT_PRINT tGaslistCC ; YES - print CC title | |
| 1713 bra logbook_page3b ; - continue with common part | |
| 560 | 1714 logbook_page3a: |
| 631 | 1715 STRCPY_TEXT_PRINT tGaslist ; print OC title |
| 560 | 1716 logbook_page3b: |
| 631 | 1717 movlw color_lightblue ; select color |
| 1718 call TFT_set_color ; set color | |
| 1719 WIN_FRAME_COLOR16 .63,.220,.2,.114 ; draw a frame with coordinates top, bottom, left, right | |
|
500
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1720 |
| 631 | 1721 ; handle HMI |
| 1722 rcall logbook_preloop_tasks ; clear timeout, some flags and set to speed_eco | |
|
500
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1723 display_details2_loop: |
| 623 | 1724 btfsc switch_right ; right button pressed? |
| 1725 goto logbook_page4 ; YES - show more info | |
| 631 | 1726 btfsc switch_left ; NO - left button pressed? |
| 1727 bra exit_profileview ; YES - back to list | |
| 1728 call housekeeping ; NO - handle screen dump request, timeout and entering dive mode | |
| 1729 bra display_details2_loop ; - loop waiting for something to do | |
| 1730 | |
|
500
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1731 |
| 631 | 1732 ;----------------------------------------------------------------------------- |
| 1733 ; 4th Details Page after Profile: Setpoints | |
| 1734 | |
| 1735 logbook_page4: | |
| 1736 MOVCC header_buffer+index_divemode,WREG ; get dive mode (0=OC, 1=CC, 2=Gauge, 3=Apnea, 4= pSCR) | |
| 1737 decfsz WREG,W ; =1 (CC)? | |
| 1738 goto display_profile2 ; NO - skip setpoints | |
| 530 | 1739 |
| 604 | 1740 rcall log_details_header ; shows number, time/date and basic dive info |
| 631 | 1741 |
| 1742 ; print setpoint list | |
| 1743 lfsr FSR0,header_buffer+index_sp1 ; load base address of the setpoints | |
| 582 | 1744 WIN_SMALL .5,.65 |
| 1745 WIN_COLOR color_greenish | |
| 1746 STRCPY_TEXT_PRINT tFixedSetpoints | |
| 1747 call TFT_standard_color | |
| 1748 WIN_SMALL .5,.90 | |
| 1749 rcall log_show_sp | |
| 1750 WIN_SMALL .5,.115 | |
| 1751 rcall log_show_sp | |
| 1752 WIN_SMALL .5,.140 | |
| 1753 rcall log_show_sp | |
| 1754 WIN_SMALL .5,.165 | |
| 1755 rcall log_show_sp | |
| 1756 WIN_SMALL .5,.190 | |
| 1757 rcall log_show_sp | |
|
500
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1758 |
| 582 | 1759 movlw color_greenish |
| 1760 call TFT_set_color | |
| 623 | 1761 WIN_FRAME_COLOR16 .63,.220,.2,.112 ; top, bottom, left, right |
|
500
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1762 |
| 631 | 1763 ; handle HMI |
| 623 | 1764 rcall logbook_preloop_tasks ; clear timeout, some flags and set to Speed_eco |
|
500
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1765 display_details3_loop: |
| 623 | 1766 btfsc switch_right ; right button pressed? |
| 1767 goto display_profile2 ; YES - show the profile view again | |
| 1768 btfsc switch_left ; left button pressed? | |
| 1769 bra exit_profileview ; YES - back to list | |
| 1770 call housekeeping ; NO to both - handle screen dump request, timeout and entering dive mode | |
| 1771 bra display_details3_loop ; - loop waiting for something to do | |
| 0 | 1772 |
| 582 | 1773 |
| 631 | 1774 ;----------------------------------------------------------------------------- |
| 1775 ; Helper Functions | |
| 1776 | |
| 582 | 1777 log_details_header: |
| 1778 call TFT_boot | |
| 631 | 1779 call TFT_standard_color |
| 582 | 1780 |
| 631 | 1781 rcall logbook_show_divenumber ; show the dive number in medium font |
|
500
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1782 |
| 631 | 1783 ; show date and time in first row |
| 582 | 1784 WIN_SMALL .59,.10 |
| 631 | 1785 MOVTT header_buffer+index_date,mpr ; get date |
| 1786 call TFT_convert_date ; convert into "DD/MM/YY" or "MM/DD/YY" or "YY/MM/DD" in buffer | |
| 1787 | |
| 582 | 1788 PUTC "-" |
| 631 | 1789 |
| 1790 MOVII header_buffer+index_time,mpr ; get time | |
| 1791 output_99x ; print hour | |
| 1792 PUTC ':' ; print spacing ":" | |
| 1793 movff hi,lo ; print minute | |
| 1794 output_99x ; ... | |
| 582 | 1795 STRCAT_PRINT "" ; display 1st row of details |
|
500
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1796 |
| 631 | 1797 ; show max depth and dive time |
| 582 | 1798 WIN_SMALL .5,.35 |
| 1799 STRCAT "Max:" | |
| 631 | 1800 MOVII header_buffer+index_max_depth,mpr ; get max depth |
|
500
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1801 |
| 631 | 1802 TSTOSS opt_units ; 0=Meters, 1=Feet |
| 1803 bra logbook_page2_depth_metric ; 1 - do metric | |
| 1804 ;bra logbook_page2_depth_imperial ; 0 - do imperial | |
| 629 | 1805 |
| 631 | 1806 logbook_page2_depth_imperial: |
| 1807 call convert_cm_to_feet ; convert value in lo:hi from [cm] to [feet] | |
|
500
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1808 PUTC ' ' |
|
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1809 bcf leftbind |
|
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1810 output_16_3 |
| 582 | 1811 STRCAT_TEXT tFeets |
|
500
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1812 bra logbook_page2_depth_common |
|
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1813 |
|
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1814 logbook_page2_depth_metric: |
| 631 | 1815 bsf ignore_digit5 ; no cm... |
| 1816 movlw d'1' ; no 1000 m | |
| 1817 movwf ignore_digits ; ... | |
| 1818 output_16dp d'3' ; xxy.y | |
| 582 | 1819 STRCAT_TEXT tMeters |
| 631 | 1820 ;bra logbook_page2_depth_common |
|
500
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1821 |
| 582 | 1822 logbook_page2_depth_common: |
| 1823 STRCAT " - " | |
| 631 | 1824 MOVTT header_buffer+index_divetime,mpr ; get dive time |
|
500
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1825 bsf leftbind |
| 631 | 1826 output_16 ; print minutes |
| 582 | 1827 PUTC "m" |
| 631 | 1828 movff up,lo ; print seconds |
| 1829 output_99x ; ... | |
| 582 | 1830 STRCAT_PRINT "s" |
|
500
989917fe2d9f
Battery % in logbook when updated from Sport to Tech
heinrichsweikamp
parents:
496
diff
changeset
|
1831 return |
| 582 | 1832 |
| 1833 | |
| 1834 log_show_sp: | |
| 631 | 1835 ; log point is set by caller |
| 1836 MOVCC POSTINC0,lo ; copy set point into lo | |
| 1837 MOVCC POSTINC0,hi ; copy change depth into hi | |
| 1838 | |
| 1839 movff mpr+1,mpr+2 ; save change depth | |
| 1840 clrf mpr+1 ; set high byte to zero for printing setpoint | |
| 582 | 1841 bsf leftbind |
| 631 | 1842 output_16dp d'3' ; print setpoint x.xx |
| 582 | 1843 bcf leftbind |
| 1844 STRCAT_TEXT tbar | |
| 1845 PUTC " " | |
| 631 | 1846 movff mpr+2,mpr+0 ; restore change depth to lo |
| 0 | 1847 |
| 582 | 1848 TSTOSS opt_units ; 0=Meter, 1=Feet |
| 623 | 1849 bra log_show_sp_metric ; 0 - do metric |
| 631 | 1850 ;bra log_show_sp_imperial ; 1 - do imperial |
| 1851 | |
| 1852 log_show_sp_imperial: | |
| 1853 call convert_meter_to_feet ; convert value in lo from [m] to [feet] | |
| 604 | 1854 output_16_3 |
| 1855 PUTC " " | |
| 582 | 1856 STRCAT_TEXT tFeets ; "ft" |
| 1857 bra log_show_sp_common | |
| 631 | 1858 |
| 582 | 1859 log_show_sp_metric: |
| 1860 output_8 | |
| 604 | 1861 PUTC " " |
| 582 | 1862 STRCAT_TEXT tMeters ; "m" |
| 631 | 1863 ;bra log_show_sp_common |
| 1864 | |
| 582 | 1865 log_show_sp_common: |
| 1866 STRCAT_PRINT "" | |
| 1867 return | |
| 1868 | |
| 0 | 1869 |
| 582 | 1870 log_show_gas: ; show gas data |
| 1871 call TFT_color_code_gas ; color the output (gas number is in WREG) | |
| 631 | 1872 MOVCC POSTINC0,lo ; copy O2 fraction into lo |
| 1873 MOVCC POSTINC0,hi ; copy He fraction into hi | |
| 1874 call gaslist_show_mix ; put "Nxlo", "Txlo/hi", "Air" or "O2" into buffer | |
| 0 | 1875 |
| 631 | 1876 MOVCC POSTINC0,lo ; copy change depth into lo |
| 1877 MOVCC POSTINC0,hi ; copy gas type into hi | |
| 582 | 1878 btfsc log_show_gas_short ; shall we do the short version? |
| 631 | 1879 bra log_show_gas_common ; YES - do short version |
| 1880 ;bra log_show_gas_long ; NO - add gas types | |
| 1881 | |
| 1882 log_show_gas_long: | |
| 604 | 1883 PUTC " " ; put one space between gas composition and gas type marking |
| 631 | 1884 tstfsz hi ; gas disabled? |
| 604 | 1885 bra log_show_gas_1 ; NO - next check |
| 1886 PUTC "x" ; YES - mark with "x" | |
| 1887 bra log_show_gas_4 ; - continue with change depth | |
| 1888 log_show_gas_1: | |
| 631 | 1889 decfsz hi,F ; now: -1 disabled, 0 first, 1 travel, 2 deco -> first? |
| 604 | 1890 bra log_show_gas_2 ; NO - next check |
| 1891 PUTC "*" ; YES - mark with "*" | |
| 1892 bra log_show_gas_4 ; - continue with change depth | |
| 1893 log_show_gas_2: | |
| 631 | 1894 decf hi,F ; now: -2 disabled, -1 first, 0 travel, 1 deco |
| 1895 decfsz hi,F ; now: -3 disabled, -2 first, -1 travel, 0 deco -> deco? | |
| 604 | 1896 bra log_show_gas_3 ; NO - nothing to mark |
| 1897 PUTC "=" ; YES - mark with "=" | |
| 1898 bra log_show_gas_4 ; - continue with change depth | |
| 1899 log_show_gas_3: | |
| 1900 PUTC " " ; print a space in absence of any other marking | |
| 1901 log_show_gas_4: | |
| 1902 PUTC " " ; put one space between gas type marking and change depth | |
| 631 | 1903 |
| 582 | 1904 TSTOSS opt_units ; 0=Meter, 1=Feet |
| 623 | 1905 bra log_show_gas_metric ; 0 - do metric |
| 631 | 1906 ;bra log_show_gas_imperial ; 1 - do imperial |
| 1907 | |
| 1908 log_show_gas_imperial: | |
| 1909 call convert_meter_to_feet ; convert value in lo from [m] to [feet] | |
| 604 | 1910 output_16_3 ; limit to 999 and display only 0-999 |
| 582 | 1911 STRCAT_TEXT tFeets ; "ft" |
| 1912 bra log_show_gas_common | |
| 631 | 1913 |
| 582 | 1914 log_show_gas_metric: |
| 1915 output_8 | |
| 1916 STRCAT_TEXT tMeters ; "m" | |
| 631 | 1917 ;bra log_show_gas_common |
| 1918 | |
| 582 | 1919 log_show_gas_common: |
| 1920 STRCAT_PRINT "" | |
| 1921 return | |
| 0 | 1922 |
| 623 | 1923 |
| 1924 log_compute_divenumber: | |
| 631 | 1925 movwf mpr+2 ; store current dive number in mpr+2 |
| 1926 call eeprom_log_offset_read ; read log offset into mpr+0 & +1 | |
| 623 | 1927 ; check if offset = 0 |
| 631 | 1928 tstfsz mpr+0 ; low byte = 0 ? |
| 1929 bra log_compute_divenumber_2 ; NO - apply offset | |
| 1930 tstfsz mpr+1 ; YES - high byte = 0 ? | |
| 1931 bra log_compute_divenumber_2 ; NO - apply offset | |
| 1932 ;bra log_compute_divenumber_1 ; YES - no offset | |
| 1933 | |
| 1934 log_compute_divenumber_1: | |
| 623 | 1935 movff mpr+2,mpr+0 ; use plain number from dive list |
| 1936 clrf mpr+1 ; set high byte to 0 | |
| 1937 return ; done | |
| 631 | 1938 |
| 623 | 1939 log_compute_divenumber_2: |
| 1940 ; check limit (offset must be < 10000) | |
| 1941 MOVLI .9999,sub_a ; sub_a = 9999 | |
| 1942 MOVII mpr, sub_b ; sub_b = offset | |
| 1943 call cmpU16 ; 9999 - offset | |
| 1944 btfsc neg_flag ; result negative, i.e. offset > 9999 ? | |
| 1945 bc log_compute_divenumber_1 ; YES - ignore offset | |
| 1946 INCI mpr ; NO - increment offset by 1 | |
| 1947 MOVII mpr,sub_a ; - sub_a = offset + 1 | |
| 1948 movff mpr+2,sub_b+0 ; - sub_b = number from list (low byte) | |
| 1949 clrf sub_b+1 ; - high byte is 0 | |
| 1950 call subU16 ; - sub_c = offset + 1 - (number from list) | |
| 1951 MOVII sub_c,mpr ; - copy result back to mpr | |
| 1952 return ; - done | |
| 1953 | |
| 631 | 1954 ;---------------------------------------------------------------------------- |
| 1955 ; Compute flash address for header data of a particular dive | |
| 1956 ; | |
| 1957 ; Memory map in flash: | |
| 1958 ; | |
| 1959 ; low(total number of dives) -> index -> start address end address | |
| 1960 ; -------------------------------------------------------------------- | |
| 1961 ; 1 0 0x2|00|000 - 0x2|00|FFF | |
| 1962 ; 2 1 0x2|01|000 - 0x2|01|FFF | |
| 1963 ; 3 2 0x2|02|000 - 0x2|02|FFF | |
| 1964 ; ... | |
| 1965 ; 256 -> 0 255 0x2|FF|000 - 0x2|FF|FFF | |
| 1966 | |
| 1967 log_header_addr_by_divenumber: | |
| 1968 ; compute index of the dive with number 'divenumber' | |
| 1969 decf divenumber,W ; compute number of dive to show -1... | |
| 1970 movwf mpr+3 ; ... and store in mpr+3 | |
| 1971 movf total_num_dives,W ; get number of total dives (low byte) | |
| 1972 bcf STATUS,C ; clear carry/borrow bit | |
| 1973 subfwb mpr+3,W ; index = number of total dives - number of dive to show + 1 | |
| 1974 ;bra log_header_addr_by_index ; get address by index | |
| 1975 | |
| 1976 global log_header_addr_by_index | |
| 1977 log_header_addr_by_index: | |
| 1978 ; compute the start address of the header belonging to the dive whose index is in WREG | |
| 1979 movwf mpr+3 ; copy index to mpr+3 | |
| 1980 clrf mpr+0 ; set up base address 0x200000 | |
| 1981 clrf mpr+1 ; ... | |
| 1982 movlw 0x20 ; ... | |
| 1983 movwf mpr+2 ; ... | |
| 1984 movlw .16 ; prepare a shift left by 4 bit | |
| 1985 mulwf mpr+3 ; shift left index to create offset | |
| 1986 movf PRODL,W ; get low byte of offset | |
| 1987 addwf mpr+1,F ; add to high byte of address | |
| 1988 movf PRODH,W ; get high byte of offset | |
| 1989 addwfc mpr+2,F ; add to upper byte of address | |
| 1990 | |
| 1991 return | |
| 1992 | |
| 604 | 1993 ; ---------------------------------------------------------------- |
| 1994 | |
| 0 | 1995 END |