Mercurial > public > hwos_code
view src/logbook.asm @ 275:653a3ab08062
rename into hwOS
| author | heinrichsweikamp |
|---|---|
| date | Thu, 07 May 2015 13:11:14 +0200 |
| parents | ad62dff7739a |
| children | e4cb495aed3d |
line wrap: on
line source
;============================================================================= ; ; File logbook.asm ; ; Logbook ; ; Copyright (c) 2011, JD Gascuel, HeinrichsWeikamp, all right reserved. ;============================================================================= ; HISTORY ; 2011-11-12 : [mH] moving from OSTC code ;============================================================================= ; Temp data, local to this module, moved to ACCES0 area. ; #include "hwos.inc" ; Mandatory header #include "tft.inc" #include "external_flash.inc" #include "math.inc" #include "strings.inc" #include "convert.inc" #include "tft_outputs.inc" #include "eeprom_rs232.inc" #include "menu_processor.inc" #include "wait.inc" #include "start.inc" #include "surfmode.inc" #include "divemode.inc" #include "ghostwriter.inc" extern do_main_menu2,comm_mode CBLOCK tmp+0x35 ; Keep space for menu processor. count_temperature ; Current sample count for temperature divisor count_deco ; Current sample count for deco (ceiling) divisor logbook_cur_depth:2 ; Current depth, for drawing profile. logbook_cur_tp:2 ; Current temperature, for drawing profile. logbook_last_tp ; Y of the last item in Tp° curve. logbook_min_tp:2 ; Min temperature, for drawing profile. logbook_max_tp:2 ; Maximum temperature, for drawing profile. logbook_ceiling ; Current ceiling, for drawing profile. logbook_flags ; Flags only used in logbook.asm logbook_page_number ; Page# in logbook logbook_divenumber ; # of dive in list during search logbook_divenumber_temp ; # of dive in list during search logbook_menupos_temp ; Last position of cursor profile_temp:2 ; Temp for profile display profile_temp2:2 ; Temp for profile display logbook_max_dive_counter ; Counts dive# to zero logbook_max_dive_counter_temp; Counts dive# to zero logbook_sample_counter:2 ; Amount of read samples divemins_backup ; Backup of divemins+0 y_scale:2 ; y-scale (The horizontal lines) x_scale:2 ; x-scale (The vertical lines) logbook_pixel_x_pos ; x2 position of current pixel in X-direction logbook_min_temp_pos ; lowest row in the temp graph logbook_max_temp_pos ; lowest row in the temp graph ;+.33, reserved to tmp+0x56 ENDC #DEFINE return_from_profileview logbook_flags,0 #DEFINE all_dives_shown logbook_flags,1 #DEFINE logbook_page_not_empty logbook_flags,2 #DEFINE end_of_profile logbook_flags,3 #DEFINE keep_cursor_new_page logbook_flags,4 ; Logbook Coordinates #DEFINE logbook_list_left .18 ; Column of dive# in list #DEFINE logbook_row_offset .28 ; Distance between rows of list #DEFINE logbook_row_number .6 ; Amount of rows in the list ; Profile display #DEFINE profile_height_pixels .157 ; Amount of pixels height for profile display #DEFINE profile_width_pixels .156 ; Amount of pixels width for profile display #DEFINE profile_left .1 ; Left border #DEFINE profile_top .65 ; Top border ; "Bailout" #DEFINE logbook_bailout_column .124 #DEFINE logbook_bailout_row .207 ; Dive number #DEFINE logbook_divenumer_column .1 #DEFINE logbook_divenumer_row .1 ; Date and Time #DEFINE logbook_date_column .100 #DEFINE logbook_date_row .7 #DEFINE logbook_time_column .120 #DEFINE logbook_time_row .33 ; Max. Depth #DEFINE log_max_value_row .38 #DEFINE log_max_value_column .1 ; Divetime #DEFINE log_divetime_value_row .38 #DEFINE log_divetime_value_column .65 ; Gaslist below profile #DEFINE log_gas_row .225 #DEFINE log_gas_column1 .0 #DEFINE log_gas_column2 log_gas_column1+(.1*.32) #DEFINE log_gas_column3 log_gas_column1+(.2*.32) #DEFINE log_gas_column4 log_gas_column1+(.3*.32) #DEFINE log_gas_column5 log_gas_column1+(.4*.32) ; Logbook Page2 ; Gaslist #DEFINE log2_title_row1 .20 #DEFINE log2_title_column .90 #DEFINE log2_gas_column log2_title_column #DEFINE log2_gas_row1 .36 #DEFINE log2_gas_row2 1*.16+log2_gas_row1 #DEFINE log2_gas_row3 2*.16+log2_gas_row1 #DEFINE log2_gas_row4 3*.16+log2_gas_row1 #DEFINE log2_gas_row5 4*.16+log2_gas_row1 ; Setpoint List #DEFINE log2_title_sp_row .130 #DEFINE log2_sp_row1 .146 #DEFINE log2_sp_row2 1*.16+log2_sp_row1 #DEFINE log2_sp_row3 2*.16+log2_sp_row1 #DEFINE log2_sp_row4 3*.16+log2_sp_row1 #DEFINE log2_sp_row5 4*.16+log2_sp_row1 ; Details list #DEFINE log2_salinity_row .55 #DEFINE log2_salinity_column .2 #DEFINE log2_cns_row .1*.16+log2_salinity_row #DEFINE log2_cns_column log2_salinity_column #DEFINE log2_avr_row .2*.16+log2_salinity_row #DEFINE log2_avr_column log2_salinity_column #DEFINE log2_decomodel2_row .3*.16+log2_salinity_row #DEFINE log2_decomodel2_column log2_salinity_column #DEFINE log2_decomodel3_row .4*.16+log2_salinity_row #DEFINE log2_decomodel3_column log2_salinity_column #DEFINE log2_decomodel_row .5*.16+log2_salinity_row #DEFINE log2_decomodel_column log2_salinity_column #DEFINE log2_firmware_row .6*.16+log2_salinity_row #DEFINE log2_firmware_column log2_salinity_column #DEFINE log2_battery_row .7*.16+log2_salinity_row #DEFINE log2_battery_column log2_salinity_column #DEFINE log2_divemode_row .8*.16+log2_salinity_row #DEFINE log2_divemode_column log2_salinity_column #DEFINE log2_lastdeco_row .9*.16+log2_salinity_row #DEFINE log2_lastdeco_column log2_salinity_column ; Air pressure #DEFINE MBAR_row .10*.16+log2_salinity_row #DEFINE MBAR_column log2_salinity_column ; Header coordinates #DEFINE log_date .12 #DEFINE log_time .15 #DEFINE log_max_depth .17 #DEFINE log_divetime .19 #DEFINE log_min_temp .22 #DEFINE log_surface_press .24 #DEFINE log_desattime .26 #DEFINE log_gas1 .28 #DEFINE log_gas2 .32 #DEFINE log_gas3 .36 #DEFINE log_gas4 .40 #DEFINE log_gas5 .44 #DEFINE log_firmware .48 #DEFINE log_battery .50 #DEFINE log_samplingrate .52 #DEFINE log_cns_start .53 #DEFINE log_gf_start .55 #DEFINE log_gf_end .56 #DEFINE log_sp1 .60 #DEFINE log_sp2 .62 #DEFINE log_sp3 .64 #DEFINE log_sp4 .66 #DEFINE log_sp5 .68 #DEFINE log_salinity .70 #DEFINE log_cns_end .71 #DEFINE log_avr_depth .73 #DEFINE log_total_seconds .75 #DEFINE log_gf_lo .77 #DEFINE log_sat_mult .77 #DEFINE log_gf_hi .78 #DEFINE log_desat_mult .78 #DEFINE log_decomodel .79 #DEFINE log_total_dives .80 #DEFINE log_divemode .82 #DEFINE log_last_stop .243 LOG_POINT_TO macro address movlw address movwf ext_flash_address+0 endm ;============================================================================= logbook code TFT_logbook_cursor: ; call speed_fastest WIN_BOX_BLACK .0, .240-.16, logbook_list_left-.16, logbook_list_left-.1 ;top, bottom, left, right WIN_LEFT logbook_list_left-.16 WIN_FONT FT_SMALL bcf win_invert ; Reset invert flag call TFT_standard_color movff menupos,temp1 dcfsnz temp1,F movlw d'0' dcfsnz temp1,F movlw logbook_row_offset dcfsnz temp1,F movlw .2*logbook_row_offset dcfsnz temp1,F movlw .3*logbook_row_offset dcfsnz temp1,F movlw .4*logbook_row_offset dcfsnz temp1,F movlw .5*logbook_row_offset dcfsnz temp1,F movlw .6*logbook_row_offset dcfsnz temp1,F movlw .7*logbook_row_offset dcfsnz temp1,F movlw .8*logbook_row_offset movff WREG,win_top STRCPY_PRINT "\xB7" return global logbook logbook: clrf logbook_flags clrf CCP1CON ; stop PWM bcf PORTC,2 ; Pull PWM out to GND call TFT_ClearScreen ; Clear screen call TFT_standard_color clrf menupos3 ; Here: used rows on current logbook-page clrf logbook_page_number ; Here: # of current displayed page clrf logbook_divenumber ; # of dive in list during search clrf divemins+0 ; Here: used as temp variables clrf divemins+1 clrf timeout_counter2 ; For timeout movlw logbook_row_number movwf menupos ; Here: stores current position on display (logbook_row_number-x) read_int_eeprom .2 ; Get low-byte of total dives movff EEDATA,logbook_max_dive_counter ;----------------------------------------------------------------------------- ; display dive headers backwards from read_int_eeprom .2 = lo-1 ; 1st: 200000h-200FFFh -> lo=0 ; 2nd: 201000h-201FFFh -> lo=1 ; 3rd: 202000h-202FFFh -> lo=2 ; 256: 2FF000h-2FFFFFh -> lo=255 (And hi>0...) ; Stop when ; a) no dive is stored (no valid header found) ; b) current dive has no valid header (Number of stored dives < 256) ; c) when 255 dives are reached divemins+0 = 255 logbook2: ; call speed_fastest incf divemins+0,F ; increase dive counter incf divemins+0,W ; = 0x..FF ? bz logbook_reset ; Yes: FF --> loop. ; Set ext_flash_address:3 to TOC entry of this dive ; 1st: 200000h-200FFFh -> logbook_max_dive_counter=0 ; 2nd: 201000h-201FFFh -> logbook_max_dive_counter=1 ; 3rd: 202000h-202FFFh -> logbook_max_dive_counter=2 ; 256: 2FF000h-2FFFFFh -> logbook_max_dive_counter=255 (And hi>0...) decf logbook_max_dive_counter,F ; -1 clrf ext_flash_address+0 clrf ext_flash_address+1 movlw 0x20 movwf ext_flash_address+2 movlw .16 mulwf logbook_max_dive_counter; logbook_max_dive_counter*16 = offset to 0x2000 (up:hi) movf PRODL,W addwf ext_flash_address+1,F movf PRODH,W addwfc ext_flash_address+2,F ; pointer at the first 0xFA of header call ext_flash_byte_read ; Reads one byte@ext_flash_address:3 into WREG and temp1 movwf temp1 movlw 0xFA cpfseq temp1 ; 0xFA found? bra logbook3b ; No, abort incf logbook_divenumber,F ; new header found, increase logbook_divenumber bra logbook4 ; Done with searching, display the header! logbook3b: btfss logbook_page_not_empty ; Was there at least one dive? goto do_main_menu2 ; Not a single header was found, leave logbook. bra logbook_display_loop2 logbook_reset: tstfsz logbook_divenumber ; Was there at least one dive? bra logbook_reset2 bra logbook3b ; No, Nothing to do logbook_reset2: bsf all_dives_shown ; Yes bra logbook_display_loop2 ; Continue logbook4: btfsc all_dives_shown ; All dives displayed? bra logbook_display_loop2 ; Yes, but display first page again. call display_listdive ; display short header for list on current list position movlw logbook_row_number cpfseq menupos ; first dive on list (top place)? bra logbook_display_loop1 ; no, so skip saving of address ; store all registered required to rebuilt the current logbookpage after the detail/profile view movff logbook_divenumber,logbook_divenumber_temp ; # of dive in list of the current page movff divemins+0,divemins_backup ; amount of dives drawn until now movff logbook_max_dive_counter,logbook_max_dive_counter_temp ; backup Counter logbook_display_loop1: decfsz menupos,F ; List full? bra logbook2 ; no, search another dive for our current logbook page logbook_display_loop2: btfss logbook_page_not_empty ; Was there one dive at all? bra logbook ; Yes, so reload the first page ; TFT_mask... WIN_LEFT logbook_list_left WIN_TOP logbook_row_offset*logbook_row_number STRCPY_TEXT_PRINT tNextLog ; "Next Page" WIN_LEFT logbook_list_left WIN_TOP logbook_row_offset*(logbook_row_number+.1) STRCPY_TEXT_PRINT tExitLog ; "Exit Logbook" movlw d'1' ; Set cursor to position 1... btfsc return_from_profileview ; .. unless we are returning from a detail/profile view movf logbook_menupos_temp,W ; load last cursor position again movwf menupos ; and set menupos byte bcf return_from_profileview ; Do this only once while the page is loaded again! bcf logbook_page_not_empty ; Obviously the current page is NOT empty movlw d'7' ; Set cursor to position 7... btfsc keep_cursor_new_page ; ... if we came from the "new Page" line movwf menupos ; and set menupos byte bcf keep_cursor_new_page call TFT_logbook_cursor ; Show the cursor call logbook_preloop_tasks ; Clear some flags and set to Speed_eco call menu_processor_bottom_line ; Show bottom line logbook_loop: btfsc switch_left ; SET/MENU? goto next_logbook3 ; adjust cursor or create new page btfsc switch_right ; ENTER? bra display_profile_or_exit ; view details/profile or exit logbook rcall log_screendump_and_onesecond ; Check if we need to make a screenshot and check for new second btfsc sleepmode ; Timeout? goto do_main_menu2 ; Yes bra logbook_loop ; Wait for something to do display_profile_or_exit: movlw logbook_row_number+.2 ; exit? cpfseq menupos bra display_profile_or_exit2 ; No, check for "Next Page" goto do_main_menu2 display_profile_or_exit2: movlw logbook_row_number+.1 ; Next page? cpfseq menupos bra display_profile ; No, show details/profile goto next_logbook2 ; Next page! display_profile: bcf is_bailout bcf gas6_changed ; Clear event flags ; call speed_fastest movff menupos,logbook_menupos_temp; store current cursor position bsf return_from_profileview ; tweak search routine to exit after found movf logbook_page_number,W ; Number of page mullw logbook_row_number movf PRODL,W addwf menupos,W ; page*logbook_row_number+menupos= movwf divesecs ; # of dive to show display_profile2: ; call speed_fastest clrf CCP1CON ; stop PWM bcf PORTC,2 ; Pull PWM out to GND call TFT_ClearScreen ; Clear screen ; Set ext_flash pointer to "#divesecs-oldest" dive ; compute read_int_eeprom .2 - divesecs ; Read required header data for profile display ; look in header for pointer to begin of diveprofile (Byte 2-4) ; Set pointer (ext_flash_log_pointer:3) to this address, start drawing decf divesecs,F ;-1 read_int_eeprom .2 movf EEDATA,W bcf STATUS,C subfwb divesecs,W ; max. dives (low value) - divesecs movwf lo ; result incf divesecs,F ;+1 ; Set ext_flash_address:3 to TOC entry of this dive ; 1st: 200000h-200FFFh -> lo=0 ; 2nd: 201000h-201FFFh -> lo=1 ; 3rd: 202000h-202FFFh -> lo=2 ; 256: 2FF000h-2FFFFFh -> lo=255 (And hi>0...) clrf ext_flash_address+0 clrf ext_flash_address+1 movlw 0x20 movwf ext_flash_address+2 movlw .16 mulwf lo ; lo*16 = offset to 0x2000 (up:hi) movf PRODL,W addwf ext_flash_address+1,F movf PRODH,W addwfc ext_flash_address+2,F ; pointer at the first 0xFA of header ; Now, show profile LOG_POINT_TO log_samplingrate call ext_flash_byte_read ; Read sampling rate movff temp1,samplesecs_value ; needed later... LOG_POINT_TO .2 call ext_flash_byte_read_plus ; Read start address of profile movff temp1,ext_flash_log_pointer+0 call ext_flash_byte_read_plus ; Read start address of profile movff temp1,ext_flash_log_pointer+1 call ext_flash_byte_read_plus ; Read start address of profile movff temp1,ext_flash_log_pointer+2 clrf logbook_sample_counter+0 clrf logbook_sample_counter+1 ; holds amount of read samples call TFT_standard_color call logbook_show_divenumber ; Show the dive number in medium font WIN_SMALL logbook_date_column, logbook_date_row LOG_POINT_TO log_date call ext_flash_byte_read_plus movff temp1,convert_value_temp+2 ; Year call ext_flash_byte_read_plus movff temp1,convert_value_temp+0 ; Month call ext_flash_byte_read_plus movff temp1,convert_value_temp+1 ; Day call TFT_convert_date ; converts into "DD/MM/YY" or "MM/DD/YY" or "YY/MM/DD" in postinc2 STRCAT_PRINT "" WIN_SMALL logbook_time_column, logbook_time_row call ext_flash_byte_read_plus ; hour movff temp1,lo call ext_flash_byte_read_plus ; Minutes movf lo,W mullw .60 movff temp1,WREG addwf PRODL,F movlw .0 addwfc PRODH,F ; PRODH:PRODL has end-of-dive time in minutes LOG_POINT_TO log_total_seconds call ext_flash_byte_read_plus ; Total sample time in seconds movff temp1,lo call ext_flash_byte_read_plus ; Total sample time in seconds movff temp1,hi call convert_time ; converts hi:lo in seconds to mins (hi) and seconds (lo) clrf sub_b+1 movff hi,sub_b+0 movff PRODL,sub_a+0 movff PRODH,sub_a+1 call subU16 ; sub_c = sub_a - sub_b (with UNSIGNED values) ; sub_c:2 holds entry time in minutes movff sub_c+0,lo movff sub_c+1,hi call convert_time ; converts hi:lo in minutes to hours (hi) and minutes (lo) movff lo,PRODL ; temp movff hi,lo output_99x ; hour PUTC ':' movff PRODL,lo output_99x ; minute STRCAT_PRINT "" ; Display 1st row of details LOG_POINT_TO log_max_depth call ext_flash_byte_read_plus ; read max depth movff temp1,lo call ext_flash_byte_read_plus ; read max depth movff temp1,hi movff lo,xA+0 ; calculate y-scale for profile display movff hi,xA+1 movlw profile_height_pixels ; pixel height available for profile movwf xB+0 clrf xB+1 call div16x16 ; does xA/xB=xC movff xC+0,y_scale+0 ; holds LOW byte of y-scale (mbar/pixel!) movff xC+1,y_scale+1 ; holds HIGH byte of y-scale (mbar/pixel!) incf y_scale+0,F ; increase one, because there may be a remainder movlw d'0' addwfc y_scale+1,F movlw LOW ((profile_height_pixels+1)*.1000) movwf xC+0 movlw HIGH (((profile_height_pixels+1)*.1000) & h'FFFF') movwf xC+1 movlw UPPER ((profile_height_pixels+1)*.1000) movwf xC+2 clrf xC+3 movff lo,xB+0 ; Max. Depth in mbar movff hi,xB+1 ; Max. Depth in mbar call div32x16 ; xC:4 / xB:2 = xC+3:xC+2 with xC+1:xC+0 as remainder movff xC+0,x_scale+0 ; movff xC+1,x_scale+1 ; = Pixels/10m (For scale, draw any xx rows a scale-line) movf x_scale+0,W iorwf x_scale+1,W ; x_scale:2 = Null? bnz display_profile_offset4 ; No, continue incf x_scale+1,F ; Yes, make x_scale+1>1 to make "display_profile2e" working display_profile_offset4: WIN_SMALL log_max_value_column,log_max_value_row TSTOSS opt_units ; 0=Meters, 1=Feets bra display_profile_offset4_metric ;display_profile_offset4_imperial: call convert_mbar_to_feet ; convert value in lo:hi from mbar to feet PUTC ' ' bcf leftbind output_16_3 ; limit to 999 and display only (0-999) STRCAT_TEXT_PRINT tFeets bra display_profile_offset4_common display_profile_offset4_metric: bsf leftbind output_16dp d'3' ; max. depth STRCAT_TEXT_PRINT tMeters display_profile_offset4_common: call ext_flash_byte_read_plus ; divetime in minutes movff temp1,lo call ext_flash_byte_read_plus movff temp1,hi ; divetime in minutes movff lo,xA+0 ; calculate x-scale for profile display movff hi,xA+1 ; calculate total diveseconds first movlw d'60' ; 60seconds are one minute... movwf xB+0 clrf xB+1 call mult16x16 ; result is in xC:2 ! WIN_SMALL log_divetime_value_column,log_divetime_value_row bsf leftbind output_16 ; divetime minutes movlw LOW d'600' movwf xA+0 movlw HIGH d'600' movwf xA+1 ; A vertical line every 600 seconds movff samplesecs_value,xB+0 ; Copy sampling rate clrf xB+1 call div16x16 ; xA/xB=xC with xA as remainder movff xC+0,average_depth_hold_total+0 movff xC+1,average_depth_hold_total+1 ;average_depth_hold_total:2 holds interval of samples for vertical 10min line ; Restore divetime in minutes: ; get real sample time LOG_POINT_TO log_total_seconds call ext_flash_byte_read_plus ; Total sample time in seconds movff temp1,xC+0 call ext_flash_byte_read_plus ; Total sample time in seconds movff temp1,xC+1 PUTC ':' LOG_POINT_TO log_divetime+.2 call ext_flash_byte_read_plus ; read divetime seconds movff temp1,lo movff xC+0,xA+0 ; now calculate x-scale value movff xC+1,xA+1 movlw profile_width_pixels ; pix width available movwf xB+0 clrf xB+1 call div16x16 ; xA/xB=xC movff xC+0,xA+0 movff xC+1,xA+1 movf samplesecs_value,W ; devide through sample interval! movwf xB+0 clrf xB+1 call div16x16 ; xA/xB=xC movff xC+0,profile_temp+0 ; store value (use any #xC sample, skip xC-1) into temp registers movff xC+1,profile_temp+1 ; store value (use any #xC sample, skip xC-1) into temp registers incf profile_temp+0,F ; Increase by one, there might be a remainder movlw d'0' addwfc profile_temp+1,F bsf leftbind output_99x ; divetime seconds call TFT_standard_color STRCAT_PRINT "" call ext_flash_byte_read_plus ; Read min. Temperature movff temp1,logbook_min_tp+0 call ext_flash_byte_read_plus ; Read min. Temperature movff temp1,logbook_min_tp+1 ; Set pointer to Gas 1 Type. LOG_POINT_TO log_gas1+.3 call ext_flash_byte_read_plus ; read Gas Type decfsz temp1,W ; =1 (="First")? bra logbook_find_first_gas2 ; No. movlw .1 movwf temp1 bra logbook_find_first_gas_done logbook_find_first_gas2: ; Set pointer to Gas 2 Type. LOG_POINT_TO log_gas2+.3 call ext_flash_byte_read_plus ; read Gas Type decfsz temp1,W ; =1 (="First")? bra logbook_find_first_gas3 ; No. movlw .2 movwf temp1 bra logbook_find_first_gas_done logbook_find_first_gas3: ; Set pointer to Gas 3 Type. LOG_POINT_TO log_gas3+.3 call ext_flash_byte_read_plus ; read Gas Type decfsz temp1,W ; =1 (="First")? bra logbook_find_first_gas4 ; No. movlw .3 movwf temp1 bra logbook_find_first_gas_done logbook_find_first_gas4: ; Set pointer to Gas 4 Type. LOG_POINT_TO log_gas4+.3 call ext_flash_byte_read_plus ; read Gas Type decfsz temp1,W ; =1 (="First")? bra logbook_find_first_gas5 ; No. movlw .4 movwf temp1 bra logbook_find_first_gas_done logbook_find_first_gas5: movlw .5 ; Must be Gas5 movwf temp1 logbook_find_first_gas_done: movff temp1,average_depth_hold_total+3; keep copy to restore color rcall profile_display_color ; Back to normal profile color. ; Pointer is now trashed! ; Point to profile portion of this dive movff ext_flash_log_pointer+0,ext_flash_address+0 movff ext_flash_log_pointer+1,ext_flash_address+1 movff ext_flash_log_pointer+2,ext_flash_address+2 incf_ext_flash_address_0x20 d'2' ; Skip 0xFA 0xFA call ext_flash_byte_read_plus_0x20 ; Read low byte of total dives into temp1 (at the time the dive was made) ; Load total number of dives (low byte only) read_int_eeprom .2 incf EEDATA,W ; +1 bsf STATUS,C ; Set borrow subfwb divesecs,W ; total dives - dive# to show - 1 = low byte of total dives (at the time the dive was made) cpfseq temp1 ; # of dive in logbook (Must be equal with low byte in short header) bra display_profile_no_profile ; Not equal, no profile for this dive available! ; Skip rest of short header: 3 Bytes ; Skip length of profile data: 3 Bytes ; Skip sampling rate in profile section: 1Byte ; Skip number of divisors: 1Byte incf_ext_flash_address_0x20 d'8' ; Divisor temp incf_ext_flash_address_0x20 d'2' ; call ext_flash_byte_read_plus_0x20 ; Read information type ; call ext_flash_byte_read_plus_0x20 ; Read information Length call ext_flash_byte_read_plus_0x20 ; Read information Divisor movf temp1,W movwf divisor_temperature ; Store divisor movwf count_temperature ; Store to tp° counter too. ; Divisor Deco incf_ext_flash_address_0x20 d'2' ; call ext_flash_byte_read_plus_0x20 ; Read information type ; call ext_flash_byte_read_plus_0x20 ; Read information Length call ext_flash_byte_read_plus_0x20 ; Read information Divisor movf temp1,W movwf divisor_deco ; Store divisor movwf count_deco ; Store as temp, too ; Divisor GF incf_ext_flash_address_0x20 d'2' ; call ext_flash_byte_read_plus_0x20 ; Read information type ; call ext_flash_byte_read_plus_0x20 ; Read information Length call ext_flash_byte_read_plus_0x20 ; Read information Divisor movff temp1,divisor_gf ; Store divisor ; Divisor ppO2 Sensors incf_ext_flash_address_0x20 d'2' ; call ext_flash_byte_read_plus_0x20 ; Read information type ; call ext_flash_byte_read_plus_0x20 ; Read information Length call ext_flash_byte_read_plus_0x20 ; Read information Divisor movff temp1,divisor_ppo2_sensors ; Store divisor ; Divisor decoplan incf_ext_flash_address_0x20 d'2' ; call ext_flash_byte_read_plus_0x20 ; Read information type ; call ext_flash_byte_read_plus_0x20 ; Read information Length call ext_flash_byte_read_plus_0x20 ; Read information Divisor movff temp1,divisor_decoplan ; Store divisor ; Divisor CNS incf_ext_flash_address_0x20 d'2' ; call ext_flash_byte_read_plus_0x20 ; Read information type ; call ext_flash_byte_read_plus_0x20 ; Read information Length call ext_flash_byte_read_plus_0x20 ; Read information Divisor movff temp1,divisor_cns ; Store divisor ; Divisor Tank data incf_ext_flash_address_0x20 d'2' ; call ext_flash_byte_read_plus_0x20 ; Read information type ; call ext_flash_byte_read_plus_0x20 ; Read information Length call ext_flash_byte_read_plus_0x20 ; Read information Divisor movff temp1,divisor_tank ; Store divisor ; Start Profile display movlw color_deepblue call TFT_set_color ; Make this configurable? ; Draw a frame around profile area WIN_FRAME_COLOR16 profile_top-1,profile_top+profile_height_pixels+1,profile_left-1,profile_left+profile_width_pixels+1 movlw profile_top movff WREG,win_top movlw profile_left movff WREG,win_leftx2 ; Left border (0-159) movlw d'1' movff WREG,win_height movlw profile_width_pixels+.1 movff WREG,win_width ; Right border (0-159) bra display_profile2f ; No 0m line display_profile2e: call TFT_box ; Inputs: win_top, win_leftx2, win_height, win_width, win_color1, win_color2 display_profile2f: movff win_top,WREG ; Get row addwf x_scale+0,W ; Add line interval distance to win_top tstfsz x_scale+1 ; >255? movlw d'255' ; Yes, make win_top>239 -> Abort here btfsc STATUS,C ; A Cary from the addwf above? movlw d'255' ; Yes, make win_top>239 -> Abort here movff WREG,win_top ; Result in win_top again movff win_top,lo ; Get win_top in Bank1... movlw profile_top+profile_height_pixels+.1 ; Limit cpfsgt lo ; >239? bra display_profile2e ; No, draw another line clrf timeout_counter2 ; here: used as counter for depth readings movlw profile_width_pixels+profile_left-.1 movwf ignore_digits ; here: used as counter for x-pixels bcf end_of_profile ; clear flag movlw profile_left movwf logbook_pixel_x_pos ; here: used as colum x2 (Start at Colum 5) movlw profile_top ; Zero-m row movwf apnoe_mins ; here: used for fill between rows movwf logbook_last_tp ; Initialise for Tp° curve too. movlw LOW(-.100) ; Initialize max tp° to -10.0 °C. movwf logbook_max_tp+0 movlw HIGH 0xFFFF & (-.100) movwf logbook_max_tp+1 setf logbook_cur_tp+0 ; Initialize Tp°, before the first recorded point. setf logbook_cur_tp+1 clrf logbook_last_tp ; Also reset previous Y for Tp° clrf logbook_ceiling ; Ceiling = 0, correct value for no ceiling. movlw profile_top movwf logbook_min_temp_pos ; Initialize for displaying the lowest temperature movlw profile_top+profile_height_pixels movwf logbook_max_temp_pos ; Initialize for displaying the highest temperature INIT_PIXEL_WROTE logbook_pixel_x_pos ; pixel x2 (Also sets standard Color!) profile_display_loop: movff profile_temp+0,profile_temp2+0 movff profile_temp+1,profile_temp2+1 ; 16Bit x-scaler incf profile_temp2+1,F tstfsz profile_temp2+0 ; Must not be Zero bra profile_display_loop2 ; Not Zero! incf profile_temp2+0,F ; Zero, Increase! profile_display_loop2: rcall profile_view_get_depth ; reads depth, temp and profile data btfsc end_of_profile ; end-of profile reached? bra profile_display_loop_done ; Yes, skip all remaining pixels ;---- Draw Ceiling curve, if any --------------------------------------------- movf divisor_deco,W bz profile_display_skip_deco movf logbook_ceiling,W ; Any deco ceiling ? bz profile_display_skip_deco mullw .100 ; Yes: convert to mbar movff PRODL,sub_a+0 movff PRODH,sub_a+1 movff logbook_cur_depth+0,sub_b+0 ; Compare with UNSIGNED current depth (16bits) movff logbook_cur_depth+1,sub_b+1 call subU16 ; set (or not) neg_flag movlw color_dark_green ; Dark green if Ok, btfss neg_flag movlw color_dark_red ; Or dark red if ceiling overflown. call TFT_set_color movff PRODL,xA+0 movff PRODH,xA+1 movff y_scale+0,xB+0 ; devide pressure in mbar/quant for row offsett movff y_scale+1,xB+1 call div16x16 ; xA/xB=xC movlw profile_top+.1 ; Starts right after the top greenish line. movff WREG,win_top movff logbook_pixel_x_pos,win_leftx2 ; Left border (0-159) movff xC+0,win_height call half_vertical_line ; Inputs: win_top, win_leftx2, win_height, win_color1, win_color2 profile_display_skip_deco: ;---- Draw Tp° curve, if any --------------------------------------------- movf divisor_temperature,W bz profile_display_skip_temp movf logbook_cur_tp+0,W ; Did we had already a valid Tp°C record ? andwf logbook_cur_tp+1,W incf WREG bz profile_display_skip_temp ; No: just skip drawing. movlw LOW(((profile_height_pixels-.10)*.256)/.370) ; fixed tp° scale: (-2 .. +35°C * scale256 )/153pix movwf xB+0 movlw HIGH(((profile_height_pixels-.10)*.256)/.370) movwf xB+1 movf logbook_cur_tp+0,W ; Current Tp° - (-2.0°C) == Tp° + 20. addlw LOW(.20) ; Low byte. movwf xA+0 movf logbook_cur_tp+1,W btfsc STATUS,C ; Propagate carry, if any incf WREG movwf xA+1 call mult16x16 ; xA*xB=xC ; scale: divide by 256, ie. take just high byte. movf xC+1,W sublw profile_top+profile_height_pixels-.10 ; Upside-down: Y = .75 + (.153 - result) movwf xC+0 ; Check limits movlw profile_top movwf xC+1 cpfsgt xC+0 movff xC+1,xC+0 movlw color_orange call TFT_set_color movf logbook_last_tp,W ; do we have a valid previous value ? bz profile_display_temp_1 ; No: skip the vertical line. movwf xC+1 call profile_display_fill ; In this column between this row (xC+0) and the last row (xC+1) profile_display_temp_1: movf xC+0,W ; current row cpfsgt logbook_min_temp_pos ; check limit movwf logbook_min_temp_pos ; lowest row in the temp graph cpfslt logbook_max_temp_pos ; check limit movwf logbook_max_temp_pos ; lowest row in the temp graph movff xC+0,logbook_last_tp PIXEL_WRITE logbook_pixel_x_pos,xC+0 ; Set col(0..159) x row (0..239), put a current color pixel. profile_display_skip_temp: ;---- Draw depth curve --------------------------------------------------- movff y_scale+0,xB+0 ; devide pressure in mbar/quant for row offsett movff y_scale+1,xB+1 movff logbook_cur_depth+0,xA+0 movff logbook_cur_depth+1,xA+1 call div16x16 ; xA/xB=xC movlw profile_top addwf xC+0,F ; add 75 pixel offset to result btfsc STATUS,C ; Ignore potential profile errors movff apnoe_mins,xC+0 rcall profile_display_color ; Back to normal profile color. movff apnoe_mins,xC+1 call profile_display_fill ; In this column between this row (xC+0) and the last row (xC+1) movff xC+0,apnoe_mins ; Store last row for fill routine PIXEL_WRITE logbook_pixel_x_pos,xC+0 ; Set col(0..159) x row (0..239), put a std color pixel. incf logbook_pixel_x_pos,F ; Next row ;---- Draw CNS curve, if any --------------------------------------------- movf divisor_cns,W bz profile_display_skip_cns ; ; TODO HERE ; profile_display_skip_cns: ;---- Draw GF curve, if any ---------------------------------------------- movf divisor_gf,W bz profile_display_skip_gf ; ; TODO HERE ; profile_display_skip_gf: ;---- All curves done. profile_display_skip_loop1: ; skips readings! dcfsnz profile_temp2+0,F bra profile_display_loop3 ; check 16bit.... rcall profile_view_get_depth ; reads depth, temp and profile data btfsc end_of_profile ; end-of profile reached? bra profile_display_loop_done ; Yes, skip all remaining pixels bra profile_display_skip_loop1 profile_display_loop3: decfsz profile_temp2+1,F ; 16 bit x-scaler test bra profile_display_skip_loop1 ; skips readings! decfsz ignore_digits,F ; counts drawn x-pixels to zero bra profile_display_loop ; Not ready yet ; Done. display_profile_no_profile: ; No profile available for this dive! profile_display_loop_done: btfss is_bailout ; Bailout during the dive? bra profile_display_loop_done_nobail ; No ; Yes, show "Bailout" movlw color_pink call TFT_set_color WIN_TINY logbook_bailout_column,logbook_bailout_row STRCPY_TEXT_PRINT tDiveBailout ; Bailout profile_display_loop_done_nobail: btfss gas6_changed ; Gas6 bra profile_display_loop_done_nogas6 ; No ; Yes, show "Gas 6!" movlw color_pink call TFT_set_color WIN_TINY logbook_bailout_column,logbook_bailout_row-.15 STRCPY_TEXT tGas ; Gas STRCAT_PRINT " 6!" profile_display_loop_done_nogas6: decf divesecs,F ;-1 read_int_eeprom .2 movf EEDATA,W bcf STATUS,C subfwb divesecs,W ; max. dives (low value) - divesecs movwf lo ; result incf divesecs,F ;+1 ; Set ext_flash_address:3 to TOC entry of this dive ; 1st: 200000h-200FFFh -> lo=0 ; 2nd: 201000h-201FFFh -> lo=1 ; 3rd: 202000h-202FFFh -> lo=2 ; 256: 2FF000h-2FFFFFh -> lo=255 (And hi>0...) clrf ext_flash_address+0 clrf ext_flash_address+1 movlw 0x20 movwf ext_flash_address+2 movlw .16 mulwf lo ; lo*16 = offset to 0x2000 (up:hi) movf PRODL,W addwf ext_flash_address+1,F movf PRODH,W addwfc ext_flash_address+2,F ; pointer at the first 0xFA of header ; movlw .2 ; negative offset ; addwf logbook_last_tp,W ; movff WREG,win_top ; Line below temp movff logbook_min_temp_pos,win_top ; Y position at lowest temperature movff logbook_pixel_x_pos,lo movlw .130 cpfslt lo ; limit left border to 130 movwf lo movff lo,win_leftx2 WIN_FONT FT_TINY movlw color_orange ; Use same color as tp° curve call TFT_set_color movff logbook_min_tp+0,lo movff logbook_min_tp+1,hi lfsr FSR2,buffer TSTOSS opt_units ; 0=°C, 1=°F bra logbook_show_temp_metric ;logbook_show_temp_imperial: call TFT_convert_signed_16bit ; converts lo:hi into signed-short and adds '-' to POSTINC2 if required call convert_celsius_to_fahrenheit ; convert value in lo:hi from celsius to fahrenheit lfsr FSR2,buffer ; Overwrite "-" bsf ignore_digit5 ; Full degrees only output_16 STRCAT_TEXT_PRINT tLogTunitF ; Now, the max. temperature movlw .15 subwf logbook_max_temp_pos,W movff WREG,win_top ; Y position at max temperature movff logbook_max_tp+0,lo movff logbook_max_tp+1,hi lfsr FSR2,buffer call TFT_convert_signed_16bit ; converts lo:hi into signed-short and adds '-' to POSTINC2 if required call convert_celsius_to_fahrenheit ; convert value in lo:hi from celsius to fahrenheit output_16 bcf ignore_digit5 STRCAT_TEXT_PRINT tLogTunitF bra logbook_show_temp_common logbook_show_temp_metric: call TFT_convert_signed_16bit ; converts lo:hi into signed-short and adds '-' to POSTINC2 if required movlw d'3' movwf ignore_digits bsf leftbind output_16dp d'2' ; temperature STRCAT_TEXT_PRINT tLogTunitC ; Now, the max. temperature movlw .15 subwf logbook_max_temp_pos,W movff WREG,win_top ; Y position at max temperature movff logbook_max_tp+0,lo movff logbook_max_tp+1,hi lfsr FSR2,buffer call TFT_convert_signed_16bit ; converts lo:hi into signed-short and adds '-' to POSTINC2 if required movlw d'3' movwf ignore_digits bsf leftbind output_16dp d'2' ; temperature STRCAT_TEXT_PRINT tLogTunitC logbook_show_temp_common: bcf leftbind call TFT_standard_color ; Get pointer to Gaslist LOG_POINT_TO log_gas1 movlw color_white ; Color for Gas 1 call TFT_set_color ; Set Color... bsf leftbind WIN_TINY log_gas_column1, log_gas_row rcall log_show_gas_common movlw color_green ; Color for Gas 2 call TFT_set_color ; Set Color... WIN_TINY log_gas_column2, log_gas_row rcall log_show_gas_common movlw color_red ; Color for Gas 3 call TFT_set_color ; Set Color... WIN_TINY log_gas_column3, log_gas_row rcall log_show_gas_common movlw color_yellow ; Color for Gas 4 call TFT_set_color ; Set Color... WIN_TINY log_gas_column4, log_gas_row rcall log_show_gas_common movlw color_cyan ; Color for Gas 5 call TFT_set_color ; Set Color... WIN_TINY log_gas_column5, log_gas_row rcall log_show_gas_common rcall logbook_preloop_tasks ; Clear some flags and set to Speed_eco display_profile_loop: btfsc switch_left ; SET/MENU? bra logbook_page2 ; Show more information btfsc switch_right ; ENTER? bra exit_profileview ; back to list rcall log_screendump_and_onesecond ; Check if we need to make a screenshot and check for new second btfsc sleepmode ; Timeout? bra exit_profileview ; back to list bra display_profile_loop ; wait for something to do global log_screendump_and_onesecond log_screendump_and_onesecond: ; Check if we need to make a screenshot and check for new second btfsc onesecupdate call timeout_surfmode ; Timeout btfsc onesecupdate call set_dive_modes ; Check, if divemode must be entered bcf onesecupdate ; one second update btfsc divemode goto restart ; Enter Divemode if required btfsc enable_screen_dumps ; =1: Ignore vin_usb, wait for "l" command (Screen dump) bra log_screendump_and_onesecond2 btfsc vusb_in ; USB plugged in? call comm_mode ; Start COMM mode return log_screendump_and_onesecond2: btfss vusb_in ; USB (still) plugged in? bcf enable_screen_dumps ; No, clear flag call rs232_get_byte btfsc rs232_recieve_overflow return movlw "l" cpfseq RCREG1 return call TFT_dump_screen ; Dump the screen contents return log_show_gas_common: extern customview_show_mix lfsr FSR2,buffer call ext_flash_byte_read_plus ; Gas2 current O2 movff temp1,lo call ext_flash_byte_read_plus ; Gas2 current He movff temp1,hi call customview_show_mix ; Put "Nxlo", "Txlo/hi", "Air" or "O2" into Postinc2 STRCAT_PRINT "" call ext_flash_byte_read_plus ; Gas2 change depth call ext_flash_byte_read_plus ; Gas2 Type return ;============================================================================= profile_display_color: movff average_depth_hold_total+3,active_gas ; Restore gas color. movlw color_white ; Default color dcfsnz active_gas,F movlw color_white ; Color for Gas 1 dcfsnz active_gas,F movlw color_green ; Color for Gas 2 dcfsnz active_gas,F movlw color_red ; Color for Gas 3 dcfsnz active_gas,F movlw color_yellow ; Color for Gas 4 dcfsnz active_gas,F movlw color_cyan ; Color for Gas 5 dcfsnz active_gas,F movlw color_pink ; Color for Gas 6 goto TFT_set_color ; Set Color... ;============================================================================= ; Draw a vertical line between xC+1 and xC+0, at current X position. ; ; Note: should keep xC+0 ; Note: ascending or descending ! ; profile_display_fill: ; First, check if xC+0>apnoe_mins or xC+0<aponoe_mins movf xC+0,W cpfseq xC+1 ; xC+0 = apone_mins? bra profile_display_fill2 ; No! return profile_display_fill2: ; Make sure to init X position. movf logbook_pixel_x_pos,W mullw 2 decf PRODL,F movlw 0 subwfb PRODH,F call pixel_write_col320 movf xC+0,W cpfsgt xC+1 ; apnoe_mins>xC+0? bra profile_display_fill_up ; Yes! profile_display_fill_down2: ; Loop decf xC+1,F HALF_PIXEL_WRITE xC+1 ; Updates just row (0..239) movf xC+0,W cpfseq xC+1 ; Loop until xC+1=xC+0 bra profile_display_fill_down2 return ; apnoe_mins and xC+0 are untouched profile_display_fill_up: ; Fill upwards from xC+0 to apone_mins! incf xC+1,F HALF_PIXEL_WRITE xC+1 ; Updates just row (0..239) movf xC+0,W cpfseq xC+1 ; Loop until xC+1=apnoe_mins bra profile_display_fill_up return ; apnoe_mins and xC+0 are untouched ;============================================================================= profile_view_get_depth: incf logbook_sample_counter+0,F movlw d'0' addwfc logbook_sample_counter+1,F ; Count read pixels movf logbook_sample_counter+0,W cpfseq average_depth_hold_total+0 bra profile_view_get_depth_no_line ; no need to draw a 10min line, continue movf logbook_sample_counter+1,W cpfseq average_depth_hold_total+1 bra profile_view_get_depth_no_line ; no need to draw a 10min line, continue ; draw a new 10min line here... clrf logbook_sample_counter+0 clrf logbook_sample_counter+1 ; clear counting registers for next line ; Vertical lines... movlw color_deepblue call TFT_set_color ; Make this configurable? movlw profile_top+.1 movff WREG,win_top incf logbook_pixel_x_pos,W ; draw one line to right to make sure it's the background of the profile movff WREG,win_leftx2 ; Left border (0-159) movlw profile_height_pixels movff WREG,win_height movlw profile_height_pixels movff WREG,win_width ; "Window" height call half_horizontal_line ; Inputs: win_top, win_leftx2, win_width, win_color1, win_color2 profile_view_get_depth_no_line: call ext_flash_byte_read_plus_0x20 ; read depth first movff temp1,logbook_cur_depth+0 ; low value call ext_flash_byte_read_plus_0x20 ; read depth first movff temp1,logbook_cur_depth+1 ; high value call ext_flash_byte_read_plus_0x20 ; read Profile Flag Byte movff temp1,timeout_counter2 ; Read Profile Flag Byte bcf event_occured ; clear flag btfsc timeout_counter2,7 bsf event_occured ; We also have an Event byte! bcf timeout_counter2,7 ; Clear Event Byte Flag (If any) ; timeout_counter2 now holds the number of additional bytes to ignore (0-127) movlw 0xFD ; end of profile bytes? cpfseq logbook_cur_depth+0 bra profile_view_get_depth_new1 ; no 1st. 0xFD cpfseq logbook_cur_depth+1 bra profile_view_get_depth_new1 ; no 2nd. 0xFD bsf end_of_profile ; End found! Set Flag! Skip remaining pixels! return profile_view_get_depth_new1: btfsc event_occured ; Was there an event attached to this sample? rcall profile_view_get_depth_events ; Yes, get information about this event(s) ;---- Read Tp°, if any AND divisor reached AND bytes available ----------- movf divisor_temperature,W ; Is Tp° divisor null ? bz profile_view_get_depth_no_tp; Yes: no Tp° curve. decf count_temperature,F ; Decrement tp° counter bnz profile_view_get_depth_no_tp; No temperature this time call ext_flash_byte_read_plus_0x20 ; Tp° low decf timeout_counter2,F movff temp1,logbook_cur_tp+0 call ext_flash_byte_read_plus_0x20 ; Tp° high decf timeout_counter2,F movff temp1,logbook_cur_tp+1 movff divisor_temperature,count_temperature ; Restart counter. ; Compute Tp° max on the fly... movff logbook_cur_tp+0,sub_a+0 ; Compare cur_tp > max_tp ? movff logbook_cur_tp+1,sub_a+1 movff logbook_max_tp+0,sub_b+0 movff logbook_max_tp+1,sub_b+1 call sub16 ; SIGNED sub_a - sub_b btfsc neg_flag bra profile_view_get_depth_no_tp ; store max. temp only below start_dive_threshold (1,0m) tstfsz logbook_cur_depth+1 ; > 2,56m? bra profile_view_compute_max_temp ; Yes, include in max. temp measurement movlw start_dive_threshold ; 1,0m cpfsgt logbook_cur_depth+0 ; low value bra profile_view_get_depth_no_tp ; above 1,0m, ignore temp profile_view_compute_max_temp: movff logbook_cur_tp+0,logbook_max_tp+0 movff logbook_cur_tp+1,logbook_max_tp+1 ;---- Read deco, if any AND divisor=0 AND bytes available ---------------- profile_view_get_depth_no_tp: movf divisor_deco,W bz profile_view_get_depth_no_deco decf count_deco,F bnz profile_view_get_depth_no_deco call ext_flash_byte_read_plus_0x20 decf timeout_counter2,F movff temp1,logbook_ceiling movff divisor_deco,count_deco ; Restart counter. call ext_flash_byte_read_plus_0x20 ; Skip stop length decf timeout_counter2,F ;---- Read GF, if any AND divisor=0 AND bytes available ------------------ profile_view_get_depth_no_deco: ; Then skip remaining bytes... movf timeout_counter2,W ; number of additional bytes to ignore (0-127) tstfsz timeout_counter2 ; Anything to skip? call incf_ext_flash_address0_0x20; Yes, increases bytes in ext_flash_address:3 with 0x200000 bank switching return profile_view_get_depth_events: clrf EventByte2 ; Clear EventByte2 call ext_flash_byte_read_plus_0x20 ; Read Event byte movff temp1,EventByte ; store EventByte decf timeout_counter2,F ; reduce counter btfss EventByte,7 ; Another Event byte? bra profile_no_second_eventbyte ; No call ext_flash_byte_read_plus_0x20; Read Event byte2 movff temp1,EventByte2 ; store EventByte2 decf timeout_counter2,F ; reduce counter bcf EventByte,7 ; Clear flag profile_no_second_eventbyte: ; Check event flags in the EventBytes btfsc EventByte,4 ; Manual Gas Changed? rcall logbook_event1 ; Yes! btfsc EventByte,5 ; Stored Gas Changed? rcall logbook_event4 ; Yes! btfsc EventByte,6 ; Setpoint Change? rcall logbook_event3 ; Yes! btfsc EventByte2,0 ; Bailout? rcall logbook_event2 ; Yes! return logbook_event4: ; Stored Gas changed! call ext_flash_byte_read_plus_0x20 ; Read Gas# decf timeout_counter2,F ; reduce counter movff temp1,average_depth_hold_total+3 rcall profile_display_color ; Change profile color according to gas number return logbook_event1: ; Gas6 changed bsf gas6_changed movlw 6 ; Just color backup to 6 movwf average_depth_hold_total+3 rcall profile_display_color ; Back to normal profile color. incf_ext_flash_address_0x20 .2 ; Skip two bytes decf timeout_counter2,F ; reduce counter decf timeout_counter2,F ; reduce counter return logbook_event2: ; Bailout bsf is_bailout ; Set flag movff average_depth_hold_total+3,total_divetime_seconds+0 ; Backup last gas color in case we return to CCR movlw 6 ; Use Gas6 color movwf average_depth_hold_total+3 rcall profile_display_color ; Back to normal profile color. incf_ext_flash_address_0x20 .2 ; Skip two bytes decf timeout_counter2,F ; reduce counter decf timeout_counter2,F ; reduce counter return logbook_event3: ; Setpoint change incf_ext_flash_address_0x20 .1 ; Skip one byte decf timeout_counter2,F ; reduce counter btfss is_bailout ; Are we in bailout? return ; No, return ; We were in bailout before, restore profile color movff total_divetime_seconds+0,average_depth_hold_total+3 ; Restore color rcall profile_display_color ; Back to normal profile color. return exit_profileview: ; call speed_fastest bcf sleepmode clrf timeout_counter2 ; restore all registers to build same page again movff divemins_backup,divemins+0 movff logbook_divenumber_temp, logbook_divenumber movff logbook_max_dive_counter_temp,logbook_max_dive_counter incf logbook_max_dive_counter,F decf logbook_divenumber,F bcf all_dives_shown clrf menupos3 ; here: used row on current page movlw logbook_row_number movwf menupos ; here: active row on current page clrf CCP1CON ; stop PWM bcf PORTC,2 ; Pull PWM out to GND call TFT_ClearScreen ; clear details/profile goto logbook2 ; start search next_logbook2: btfsc all_dives_shown ; all shown goto logbook ; all reset clrf menupos3 movlw logbook_row_number movwf menupos incf logbook_page_number,F ; start new screen bsf keep_cursor_new_page ; Keep cursor on "next page" clrf CCP1CON ; stop PWM bcf PORTC,2 ; Pull PWM out to GND call TFT_ClearScreen goto logbook2 ; start search next_logbook3: incf menupos,F ; +1 movlw logbook_row_number+.2 cpfsgt menupos ; =logbook_row_number+.3? bra next_logbook3a ; No movlw .1 movwf menupos bra next_logbook3b next_logbook3a: incf menupos3,W ; last entry in current page +1 cpfseq menupos ; same as cursor pos.? bra next_logbook3b ; No movlw logbook_row_number+.1 ; Yes, ... movwf menupos ; ... jump directly to "next page" if page is not full movlw logbook_row_number cpfseq menupos3 ; Last dive was row logbook_row_number? bsf all_dives_shown ; No, set flag to load first page again (full reset) next_logbook3b: clrf timeout_counter2 call TFT_logbook_cursor bcf switch_left goto logbook_loop display_listdive: bsf logbook_page_not_empty ; Page not empty incf menupos3,F bsf leftbind WIN_FONT FT_SMALL WIN_LEFT logbook_list_left decf menupos3,W ; -1 into wreg mullw logbook_row_offset movff PRODL,win_top lfsr FSR2,buffer movff logbook_divenumber,lo output_8 ; # of dive PUTC ' ' LOG_POINT_TO log_date+1 ; Point to month call ext_flash_byte_read_plus movff temp1,lo ; read month display_listdive2: movff lo,convert_value_temp+0 ; Month (in lo, see above) call ext_flash_byte_read_plus ; Day movff temp1,convert_value_temp+1 call TFT_convert_date_short ; converts into "DD/MM" or "MM/DD" or "MM/DD" into buffer PUTC ' ' LOG_POINT_TO log_max_depth ; Point to max. depth call ext_flash_byte_read_plus ; max. Depth movff temp1,lo call ext_flash_byte_read_plus movff temp1,hi TSTOSS opt_units ; 0=Meters, 1=Feets bra display_listdive2_metric ;display_listdive2_imperial: call convert_mbar_to_feet ; convert value in lo:hi from mbar to feet PUTC ' ' bcf leftbind output_16_3 ; limit to 999 and display only (0-999) STRCAT_TEXT tFeets1 bra display_listdive3 display_listdive2_metric: bsf ignore_digit5 ; no cm... movlw d'1' ; +1 movff WREG,ignore_digits ; no 1000m bcf leftbind output_16dp .3 ; xxx.y STRCAT_TEXT tMeters PUTC ' ' display_listdive3: call ext_flash_byte_read_plus movff temp1,lo ; read divetime minutes call ext_flash_byte_read_plus movff temp1,hi output_16_3 ; Divetime minutes (0-999min) STRCAT_TEXT_PRINT tMinutes ; Display header-row in list return logbook_show_divenumber: call do_logoffset_common_read ; Read into lo:hi tstfsz lo ; lo=0? bra logbook_show_divenumber2 ; No, adjust offset tstfsz hi ; hi=0? bra logbook_show_divenumber2 ; No, adjust offset movff divesecs,lo ; lo=0 and hi=0 -> skip Offset routine bra logbook_show_divenumber3 ; Display now logbook_show_divenumber2: movlw d'1' addwf lo,F movlw d'0' addwfc hi,F ; hi:lo = hi:lo + 1 movff lo,sub_a+0 movff hi,sub_a+1 movff divesecs,sub_b+0 clrf sub_b+1 call subU16 ; sub_c = sub_a - sub_b movff sub_c+0,lo movff sub_c+1,hi logbook_show_divenumber3: WIN_MEDIUM logbook_divenumer_column, logbook_divenumer_row bsf leftbind output_16 ; # of dive in logbook bcf leftbind STRCAT_PRINT "" return logbook_page2: ; Show more info ; call speed_fastest clrf CCP1CON ; stop PWM bcf PORTC,2 ; Pull PWM out to GND call TFT_ClearScreen ; Clear screen ; Set ext_flash pointer to "#divesecs-oldest" dive ; compute read_int_eeprom .2 - divesecs ; Read required header data for profile display ; look in header for pointer to begin of diveprofile (Byte 2-4) ; Set pointer (ext_flash_log_pointer:3) to this address, start drawing decf divesecs,F ;-1 read_int_eeprom .2 movf EEDATA,W bcf STATUS,C subfwb divesecs,W ; max. dives (low value) - divesecs movwf lo ; result incf divesecs,F ;+1 ; Set ext_flash_address:3 to TOC entry of this dive ; 1st: 200000h-200FFFh -> lo=0 ; 2nd: 201000h-201FFFh -> lo=1 ; 3rd: 202000h-202FFFh -> lo=2 ; 256: 2FF000h-2FFFFFh -> lo=255 (And hi>0...) clrf ext_flash_address+0 clrf ext_flash_address+1 movlw 0x20 movwf ext_flash_address+2 movlw .16 mulwf lo ; lo*16 = offset to 0x2000 (up:hi) movf PRODL,W addwf ext_flash_address+1,F movf PRODH,W addwfc ext_flash_address+2,F ; pointer at the first 0xFA of header call logbook_show_divenumber ; Show the dive number in medium font LOG_POINT_TO log_surface_press ; surface pressure in mbar call ext_flash_byte_read_plus ; read surface pressure movff temp1,lo call ext_flash_byte_read_plus ; read surface pressure movff temp1,hi WIN_TINY MBAR_column,MBAR_row bsf leftbind output_16 ; Air pressure before dive STRCAT_TEXT_PRINT tMBAR ; OC/CC Gas List LOG_POINT_TO log_divemode call ext_flash_byte_read_plus ; 0=OC, 1=CC, 2=Gauge, 3=Apnea into temp1 WIN_TINY log2_title_column,log2_title_row1 WIN_COLOR color_greenish movlw .1 cpfseq temp1 ;=CC? bra logbook_gaslist_oc STRCPY_TEXT_PRINT tGaslistCC bra logbook_gaslist_common logbook_gaslist_oc: STRCPY_TEXT_PRINT tGaslist logbook_gaslist_common: LOG_POINT_TO log_gas1 WIN_FRAME_STD log2_title_row1-2, log2_gas_row5+.15, log2_title_column-2, .159 ; Top, Bottom, Left, Right bcf leftbind movlw color_white ; Color for Gas 1 call TFT_set_color ; Set Color... WIN_TINY log2_gas_column, log2_gas_row1 rcall log_show_gas_common2 movlw color_green ; Color for Gas 2 call TFT_set_color ; Set Color... WIN_TINY log2_gas_column, log2_gas_row2 rcall log_show_gas_common2 movlw color_red ; Color for Gas 3 call TFT_set_color ; Set Color... WIN_TINY log2_gas_column, log2_gas_row3 rcall log_show_gas_common2 movlw color_yellow ; Color for Gas 4 call TFT_set_color ; Set Color... WIN_TINY log2_gas_column, log2_gas_row4 rcall log_show_gas_common2 movlw color_cyan ; Color for Gas 5 call TFT_set_color ; Set Color... WIN_TINY log2_gas_column, log2_gas_row5 rcall log_show_gas_common2 ; Firmware call TFT_standard_color WIN_TINY log2_firmware_column,log2_firmware_row STRCPY_TEXT tFirmware call ext_flash_byte_read_plus ; read firmware xx movff temp1,lo bsf leftbind output_8 PUTC "." call ext_flash_byte_read_plus ; read firmware yy movff temp1,lo output_99x STRCAT_PRINT "" ; Battery WIN_TINY log2_battery_column,log2_battery_row STRCPY "Batt:" call ext_flash_byte_read_plus ; read battery low movff temp1,lo call ext_flash_byte_read_plus ; read battery high movff temp1,hi output_16dp .2 STRCAT_PRINT "V" ; Setpoint list LOG_POINT_TO log_sp1 WIN_TINY log2_title_column,log2_title_sp_row WIN_COLOR color_greenish STRCPY_TEXT_PRINT tFixedSetpoints WIN_FRAME_STD log2_title_sp_row-2, log2_sp_row5+.15, log2_title_column-2, .159 ; Top, Bottom, Left, Right WIN_TINY log2_gas_column, log2_sp_row1 rcall log_show_sp_common WIN_TINY log2_gas_column, log2_sp_row2 rcall log_show_sp_common WIN_TINY log2_gas_column, log2_sp_row3 rcall log_show_sp_common WIN_TINY log2_gas_column, log2_sp_row4 rcall log_show_sp_common WIN_TINY log2_gas_column, log2_sp_row5 rcall log_show_sp_common ; Salinity WIN_TINY log2_salinity_column,log2_salinity_row STRCPY_TEXT tDvSalinity bsf leftbind call ext_flash_byte_read_plus ; read salinity movff temp1,lo movff temp1,total_divetime_seconds+1 ; backup for average depth display output_8 STRCAT_PRINT "%" ; CNS LOG_POINT_TO log_cns_start WIN_TINY log2_cns_column,log2_cns_row STRCPY_TEXT tCNS2 call ext_flash_byte_read_plus ; read cns low movff temp1,lo call ext_flash_byte_read_plus ; read cns high movff temp1,hi output_16 LOG_POINT_TO log_cns_end STRCAT "->" call ext_flash_byte_read_plus ; read CNS low movff temp1,lo call ext_flash_byte_read_plus ; read CNS high movff temp1,hi output_16 STRCAT_PRINT "%" ; Average depth WIN_TINY log2_avr_column,log2_avr_row STRCPY_TEXT tAVR call ext_flash_byte_read_plus ; read avr low movff temp1,lo call ext_flash_byte_read_plus ; read avr high movff temp1,hi movf total_divetime_seconds+1,W ; salinity for this dive call adjust_depth_with_salinity_log ; computes salinity setting (FROM WREG!) into lo:hi [mbar] output_16dp .3 STRCAT_PRINT "m" ; Deco model LOG_POINT_TO log_decomodel WIN_TINY log2_decomodel_column,log2_decomodel_row STRCPY_TEXT tDkMode call ext_flash_byte_read_plus ; read deco model movff temp1,lo decfsz temp1,F bra logbook_decomodel1 ; Deco model GF Version STRCAT_TEXT_PRINT tZHL16GF LOG_POINT_TO log_gf_lo WIN_TINY log2_decomodel2_column,log2_decomodel2_row STRCPY_TEXT tGF_low call ext_flash_byte_read_plus ; Read GF lo movff temp1,lo output_8 STRCAT_PRINT "%" WIN_TINY log2_decomodel3_column,log2_decomodel3_row STRCPY_TEXT tGF_high call ext_flash_byte_read_plus ; Read GF hi movff temp1,lo output_8 STRCAT_PRINT "%" bra logbook_decomodel2 logbook_decomodel1: ; Deco model NON-GF Version STRCAT_TEXT_PRINT tZHL16 LOG_POINT_TO log_sat_mult WIN_TINY log2_decomodel2_column,log2_decomodel2_row STRCPY_TEXT tSaturationMult call ext_flash_byte_read_plus ; Read sat_mult movff temp1,lo output_8 STRCAT_PRINT "%" WIN_TINY log2_decomodel3_column,log2_decomodel3_row STRCPY_TEXT tDesaturationMult call ext_flash_byte_read_plus ; Read desat_mult movff temp1,lo output_8 STRCAT_PRINT "%" logbook_decomodel2: ; Dive mode LOG_POINT_TO log_divemode WIN_TINY log2_divemode_column,log2_divemode_row STRCPY_TEXT tDvMode call ext_flash_byte_read_plus ; Read divemode movff temp1,lo call TFT_display_decotype_surface1 ; "strcat_print"s divemode (OC, CC, APNEA or GAUGE) ; Last deco LOG_POINT_TO log_last_stop WIN_TINY log2_lastdeco_column,log2_lastdeco_row STRCPY_TEXT tLastDecostop call ext_flash_byte_read_plus ; Read last stop movff temp1,lo output_8 STRCAT_PRINT "m" ; A frame around the details WIN_TINY log2_lastdeco_column,log2_salinity_row-.16 WIN_COLOR color_greenish STRCPY_TEXT_PRINT tLogbook WIN_FRAME_STD log2_salinity_row-.18, MBAR_row+.15, 0, .85 ; Top, Bottom, Left, Right rcall logbook_preloop_tasks ; Clear some flags and set to Speed_eco display_details_loop: btfsc switch_left ; SET/MENU? goto display_profile2 ; Show the profile view again btfsc switch_right ; ENTER? bra exit_profileview ; back to list rcall log_screendump_and_onesecond ; Check if we need to make a screenshot and check for new second btfsc sleepmode ; Timeout? bra exit_profileview ; back to list bra display_details_loop ; wait for something to do global logbook_preloop_tasks logbook_preloop_tasks: movlw CCP1CON_VALUE ; See hwos.inc movwf CCP1CON ; Power-on backlight call TFT_standard_color bcf sleepmode ; clear some flags bcf switch_right bcf switch_left clrf timeout_counter2 call speed_normal return log_show_sp_common: lfsr FSR2,buffer call ext_flash_byte_read_plus ; Read setpoint movff temp1,lo clrf hi bsf leftbind output_16dp d'3' bcf leftbind STRCAT_TEXT tbar PUTC " " call ext_flash_byte_read_plus ; change depth movff temp1,lo TSTOSS opt_units ; 0=Meters, 1=Feets bra log_show_sp_common_metric movf lo,W mullw .100 ; convert meters to mbar movff PRODL,lo movff PRODH,hi call convert_mbar_to_feet ; convert value in lo:hi from mbar to feet output_16 STRCAT_TEXT tFeets ; "ft" bra log_show_sp_common_common log_show_sp_common_metric: output_8 STRCAT_TEXT tMeters ; "m" log_show_sp_common_common: STRCAT_PRINT "" return log_show_gas_common2: ; as log_show_gas_common but with change depth lfsr FSR2,buffer call ext_flash_byte_read_plus ; current O2 movff temp1,lo call ext_flash_byte_read_plus ; current He movff temp1,hi call customview_show_mix ; Put "Nxlo", "Txlo/hi", "Air" or "O2" into Postinc2 call ext_flash_byte_read_plus ; change depth movff temp1,lo TSTOSS opt_units ; 0=Meters, 1=Feets bra log_show_gas_common2_metric movf lo,W mullw .100 ; convert meters to mbar movff PRODL,lo movff PRODH,hi call convert_mbar_to_feet ; convert value in lo:hi from mbar to feet output_16 STRCAT_TEXT tFeets ; "ft" bra log_show_gas_common2_common log_show_gas_common2_metric: output_8 STRCAT_TEXT tMeters ; "m" log_show_gas_common2_common: bcf leftbind call ext_flash_byte_read_plus ; Gas Type STRCAT_PRINT "" return END