Mercurial > public > mk2
view code_part1/OSTC_code_asm_part1/menu_logbook.asm @ 365:6ea83f22b48b 64kByte Logbook
Merged B?hlmann half-times.
author | JeanDo |
---|---|
date | Thu, 09 Jun 2011 17:09:49 +0200 |
parents | 64da813d4726 |
children | ca3d15e6240e |
line wrap: on
line source
; OSTC - diving computer code ; Copyright (C) 2008 HeinrichsWeikamp GbR ; This program is free software: you can redistribute it and/or modify ; it under the terms of the GNU General Public License as published by ; the Free Software Foundation, either version 3 of the License, or ; (at your option) any later version. ; This program is distributed in the hope that it will be useful, ; but WITHOUT ANY WARRANTY; without even the implied warranty of ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ; GNU General Public License for more details. ; You should have received a copy of the GNU General Public License ; along with this program. If not, see <http://www.gnu.org/licenses/>. ; Menu "Logbook" ; written by: Matthias Heinrichs, info@heinrichsweikamp.com ; written: 060107 ; last updated: 081026 ; known bugs: ; ToDo: ; searches external EEPROM for dive headers and displays them in a list ; a detailed view with all informations and profile can be selected ; does not require a FAT, will work with other profile intervals as ten seconds, too menu_logbook: bcf return_from_profileview ; clear some flags ;call enable_rs232 menu_logbook1: bcf logbook_header_drawn call PLED_ClearScreen ; Clear screen bcf all_dives_shown ; clear some flags bcf logbook_profile_view bcf logbook_page_not_empty clrf menupos3 ; Here: used rows on current logbook-page clrf menupos2 ; Here: # of current displayed page clrf divenumber ; # of dive in list during search menu_logbook1a: WIN_INVERT .1 DISPLAYTEXT .12 ;" Wait.." WIN_INVERT .0 call I2CReset ; Reset I2C Bus call get_free_EEPROM_location ; search from "here" backwards through the external memory movff eeprom_address+0,logbook_temp5 movff eeprom_address+1,logbook_temp6 ; Store Pointer to 0xFE (From 0xFD, 0xFD, 0xFE sequence) for faster display menu_logbook1a_no_get_free: ; Without repeated search for dive clrf divemins+0 ; Here: used as temp variables clrf divemins+1 movlw d'5' movwf menupos ; Here: stores current position on display (5-x) ;----------------------------------------------------------------------------- ; search external EEPROM backwards from eeprom_address ; for 0xFA, 0xFA (store 1st. 0xFA position for next search) ; read header data and display it ; wait for user to confirm/exit ; recopy data to search from here menu_logbook1b: WIN_INVERT .1 DISPLAYTEXT .12 ;" Wait.." WIN_INVERT .0 ;---- fast loop: check every other byte ---------------------------------- menu_logbook2: movlw d'2' addwf divemins+0,F movlw d'0' addwfc divemins+1,F ; increase 16Bit value, twice movlw 0xFF cpfseq divemins+1 ; =0xFFFF ? bra menu_logbook2a ; No cpfseq divemins+0 ; =0xFFFF ? bra menu_logbook2a ; No bra menu_logbook_reset ; yes, restart (if not empty) menu_logbook2a: movlw 0x00 cpfseq divemins+1 ; =0x0000 ? bra menu_logbook2b ; No cpfseq divemins+0 ; =0x0000 ? bra menu_logbook2b ; No bra menu_logbook_reset ; yes, restart (if not empty) menu_logbook2b: decf_eeprom_address d'2' ; -2 to eeprom address. call I2CREAD ; reads one byte (Slow! Better use Blockread!) movlw 0xFA ; That was a FA ? cpfseq SSPBUF bra menu_logbook2 ; No: continue the fast loop... ;---- Slow check : was it before or after that one ? --------------------- incf_eeprom_address d'1' ; Been one step too far ? call I2CREAD ; reads one byte (Slow! Better use Blockread!) movlw 0xFA ; That was a FA ? xorwf SSPBUF,W bz menu_loop_tooFar ; Got both of them... infsnz divemins+0,F ; Advance to the next byte. incf divemins+1,F decf_eeprom_address d'2' ; One step back, two steps forward. call I2CREAD ; reads one byte (Slow! Better use Blockread!) movlw 0xFA ; It was the second FA ? xorwf SSPBUF,W bz test_FA_DONE bra menu_logbook2 ; No: continue the fast loop... menu_loop_tooFar; decf_eeprom_address d'1' ; So stays pointing at the second one. test_FA_DONE: ; Found 0xFA 0xFA! movff eeprom_address+0,eeprom_header_address+0 ; store current address into temp register movff eeprom_address+1,eeprom_header_address+1 ; we must continue search here later incf divenumber,F ; new header found, increase divenumber bra menu_logbook4 ; Done with searching, display the header! menu_logbook3b: btfss logbook_page_not_empty ; Was there at least one dive? goto menu ; Not a single header was found, leave logbook. bra menu_logbook_display_loop2 ; rcall of get_free_eeprom_location not required here (faster) menu_logbook_reset: movf divenumber,W btfsc STATUS,Z ; Was there at least one dive? bra menu_logbook3b ; No, Nothing to do bsf all_dives_shown ; Yes bsf logbook_page_not_empty bra menu_logbook_display_loop2 ; rcall of get_free_eeprom_location not required here (faster) menu_logbook4: ; Adjust eeprom_address to set pointer on first headerbyte incf_eeprom_address d'2' ; Macro, that adds 8Bit to eeprom_address:2 with banking at 0x8000 btfss logbook_profile_view ; Display profile (search routine is used in profileview, too) bra menu_logbook_display_loop ; No, display overwiev list movf divesecs,W ; divenumber that is searched cpfseq divenumber ; current divenumber goto next_logbook ; No match, continue search bra display_profile2 ; Match: Show header and profile menu_logbook_display_loop: btfsc all_dives_shown ; All dives displayed? bra menu_logbook_display_loop2 ; Yes, but display first page again. call display_listdive ; display short header for list on current list position movlw d'5' cpfseq menupos ; first dive on list (top place)? bra menu_logbook_display_loop1 ; no, so skip saving of address movff divenumber,mintemp+0 ; store all registered required to rebuilt the current logbookpage after the detail/profile view movff eeprom_header_address+0,decodata+0 ; several registers are used as temp registers here movff eeprom_header_address+1,decodata+1 movff divemins+0,max_pressure+0 movff divemins+1,max_pressure+1 movlw d'3' addwf decodata+0,F movlw d'0' addwfc decodata+1,F ; Re-Adjust pointer again movlw d'3' ; So first row will be the same again after detail/profile view subwf max_pressure+0,F movlw d'0' subwfb max_pressure+1,F menu_logbook_display_loop1: decfsz menupos,F ; List full? goto next_logbook ; no, search another dive for our current logbook page menu_logbook_display_loop2: btfss logbook_page_not_empty ; Was there one dive at all? bra menu_logbook ; Yes, so reload the first page call PLED_topline_box ; Draw box WIN_INVERT .1 DISPLAYTEXT .26 ; "Logbook" WIN_INVERT .0 DISPLAYTEXT .11 ; Displays "Exit" in the last row on the current page bcf sleepmode ; clear some flags for user input bcf menubit2 bcf menubit3 bcf cursor bcf switch_right bcf switch_left clrf timeout_counter2 movlw d'1' ; Set cursor to position 1... btfsc return_from_profileview ; .. unless we are returning from a detail/profile view movf mintemp+1,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 call PLED_logbook_cursor menu_logbook_loop: call check_switches_logbook btfsc menubit3 ; SET/MENU? goto next_logbook3 ; adjust cursor or create new page btfsc menubit2 ; ENTER? bra display_profile_or_exit ; view details/profile or exit logbook btfsc onesecupdate call timeout_surfmode ; Timeout btfsc onesecupdate call set_dive_modes ; Check, if divemode must be entered bcf onesecupdate ; one second update btfsc sleepmode ; Timeout? goto menu ; Yes btfsc divemode goto restart ; Enter Divemode if required goto menu_logbook_loop ; Wait for something to do display_profile_or_exit: bcf menubit2 ; debounce movlw d'6' ; exit? cpfseq menupos bra display_profile ; No, show details/profile goto menu display_profile: movff menupos,mintemp+1 ; store current cursor position bsf return_from_profileview ; tweak search routine to exit after found movf menupos2,W ; Number of page mullw d'5' movf PRODL,W addwf menupos,W ; page*5+menupos= movwf divesecs ; # of dive to search call PLED_ClearScreen ; search for dive bsf logbook_profile_view ; set flag for search routine clrf divenumber ; search from scratch movff logbook_temp5,eeprom_address+0 movff logbook_temp6,eeprom_address+1 ; Restore Pointer to 0xFE (From 0xFD, 0xFD, 0xFE sequence) for faster display bra menu_logbook1a_no_get_free ; Start Search for Dive (Without get_free_EEPROM_location) display_profile2: bcf logbook_profile_view ; clear flag for search routine call PLED_display_wait_clear call PLED_standard_color WIN_TOP .0 WIN_LEFT .0 STRCPY "#" GETCUSTOM15 .28 ; Logbook Offset -> lo, hi tstfsz lo ; lo=0? bra display_profile_offset1 ; No, adjust offset tstfsz hi ; hi=0? bra display_profile_offset1 ; No, adjust offset bra display_profile_offset2 ; lo=0 and hi=0 -> skip Offset routine display_profile_offset1: 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 sub16 ; sub_c = sub_a - sub_b movff sub_c+0,lo movff sub_c+1,hi bsf leftbind output_16dp d'10' ; # of dive with offset bra display_profile_offset3 ; Skip normal routine display_profile_offset2: movff divesecs,lo ; output_99x ; # of dive display_profile_offset3: PUTC ' ' call I2CREAD2 ; Read Profile version movff SSPBUF,lo ; store in lo bsf logbook_format_0x21 ; Set flag for new 0x21 Format movlw 0x21 cpfseq lo ; Skip if 0x21 bcf logbook_format_0x21 ; Clear flag for new 0x21 Format call I2CREAD2 ; read month movff SSPBUF,lo ; store in lo ; Offset to SamplingRate incf_eeprom_address d'32' ; Macro, that adds 8Bit to eeprom_address:2 with banking at 0x8000 call I2CREAD ; Read Sampling rate movff SSPBUF,samplesecs_value ; Copy sampling rate decf_eeprom_address d'32' ; Macro, that subtracts 8Bit from eeprom_address:2 with banking at 0x8000 movff lo,convert_value_temp+0 ; Month (in lo, see above) call I2CREAD2 ; Day movff SSPBUF,convert_value_temp+1 call I2CREAD2 ; Year movff SSPBUF,convert_value_temp+2 call PLED_convert_date ; converts into "DD/MM/YY" or "MM/DD/YY" or "YY/MM/DD" in postinc2 PUTC ' ' call I2CREAD2 ; hour movff SSPBUF,lo output_99x PUTC ':' call I2CREAD2 ; Minute movff SSPBUF,lo output_99x call word_processor ; Display 1st row of details WIN_TOP .25 WIN_LEFT .05 lfsr FSR2,letter call I2CREAD2 ; read max depth movff SSPBUF,lo call I2CREAD2 ; read max depth movff SSPBUF,hi movff lo,xA+0 ; calculate y-scale for profile display movff hi,xA+1 movlw d'163' ; 163pixel height available movwf xB+0 clrf xB+1 call div16x16 ; does xA/xB=xC movff xC+0,sim_pressure+0 ; holds LOW byte of y-scale (mbar/pixel!) movff xC+1,sim_pressure+1 ; holds HIGH byte of y-scale (mbar/pixel!) incf sim_pressure+0,F ; increase one, because there may be a remainder movlw d'0' addwfc sim_pressure+1,F movlw LOW d'164000' ; 164pixel*1000 height movwf xC+0 movlw HIGH (d'164000' & h'FFFF') ; 164pixel*1000 height movwf xC+1 movlw UPPER d'164000' ; 164pixel*1000 height 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,last_temperature+0 ; movff xC+1,last_temperature+1 ; = Pixels/10m (For scale, draw any xx rows a scale-line) bsf leftbind output_16dp d'3' ; max. depth STRCAT "m " call I2CREAD2 ; divetime in minutes movff SSPBUF,lo call I2CREAD2 movff SSPBUF,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 ! bsf leftbind output_16 ; divetime minutes ; Compute spacing between 10min lines movff lo,xA+0 movff hi,xA+1 ; divetime in minutes movlw d'10' movwf xB+0 clrf xB+1 ; A vertical line every 10 minutes call div16x16 ;xA/xB=xC with xA as remainder ; xC now holds number of lines movlw d'1' addwf xC+0 ; Add one line... movff xC+0,xB+0 clrf xB+1 ; No more then 255 lines... movlw d'159' ; Available width movwf xA+0 clrf xA+1 call div16x16 ;xA/xB=xC with xA as remainder ; xC now holds spacing between vertical 10min lines movff xC+0,avr_rel_pressure+0 movff xC+1,avr_rel_pressure+1 ; spacing between 10min lines (1-159) ; Restore 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 ! PUTC d'39' ;"'" call I2CREAD2 ; read divetime seconds movff SSPBUF,lo movf lo,W ; add seconds to total seconds addwf xC+0 movlw d'0' addwfc xC+1 ; xC:2 now holds total dive seconds! movff xC+0,xA+0 ; now calculate x-scale value movff xC+1,xA+1 movlw d'154' ; 154pix 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 one, because there may be a remainder movlw d'0' addwfc profile_temp+1,F bsf leftbind output_99x ; divetime seconds STRCAT "\" " call I2CREAD2 movff SSPBUF,lo call I2CREAD2 movff SSPBUF,hi movlw d'3' movwf ignore_digits bsf leftbind output_16dp d'2' ; temperature STRCAT_PRINT "°C" ; Display 2nd row of details WIN_TOP .50 WIN_LEFT .05 lfsr FSR2,letter call I2CREAD2 ; read Air pressure movff SSPBUF,lo call I2CREAD2 ; read Air pressure movff SSPBUF,hi bsf leftbind output_16 ; Air pressure before dive STRCAT "mbar " OUTPUTTEXT .014 ; Desat PUTC ' ' call I2CREAD2 ; read Desaturation time movff SSPBUF,lo call I2CREAD2 ; read Desaturation time movff SSPBUF,hi call convert_time ; converts hi:lo in minutes to hours (hi) and minutes (lo) bsf leftbind movf lo,W movff hi,lo movwf hi ; exchange lo and hi... output_8 ; Hours PUTC ':' movff hi,lo ; Minutes output_99x bcf leftbind call word_processor ; display 3rd page of details movff eeprom_address+0,average_depth_hold+0 movff eeprom_address+1,average_depth_hold+1 ; Pointer to Gaslist (For Page 2) incf_eeprom_address d'12' ; Skip 12 Bytes in EEPROM (faster) (Gaslist) call I2CREAD2 ; Read start gas (1-5) movff SSPBUF,active_gas ; Store incf_eeprom_address d'5' ; Skip 5 Bytes in EEPROM (faster) (Battery, firmware) call I2CREAD2 ; Read divisor movff SSPBUF,divisor_temperature ; Store divisor bcf divisor_temperature,4 ; Clear information length bcf divisor_temperature,5 bcf divisor_temperature,6 bcf divisor_temperature,7 incf divisor_temperature,F ; increase divisor movff divisor_temperature,logbook_temp1 ; Store as temp, too call I2CREAD2 ; Read divisor movff SSPBUF,divisor_deco ; Store divisor bcf divisor_deco,4 ; Clear information length bcf divisor_deco,5 bcf divisor_deco,6 bcf divisor_deco,7 movff divisor_deco,logbook_temp2 ; Store as temp, too call I2CREAD2 ; Read divisor movff SSPBUF,divisor_tank ; Store divisor call I2CREAD2 ; Read divisor movff SSPBUF,divisor_ppo2 ; Store divisor call I2CREAD2 ; Read divisor movff SSPBUF,divisor_deco_debug ; Store divisor call I2CREAD2 ; Read divisor movff SSPBUF,divisor_nuy2 ; Store divisor incf_eeprom_address d'2' ; Skip 2Bytes in EEPROM (faster) ; 2 bytes salinity, GF btfss logbook_format_0x21 ; 10byte extra? bra display_profile2d ; No incf_eeprom_address d'10' ; Skip another 10 byte from the header for 0x21 format ; Average Depth, spare bytes display_profile2d: ; Start Profile display ; Write 0m X-Line.. movlw color_grey call PLED_set_color ; Make this configurable? movlw d'75' movff WREG,win_top movlw d'5' movff WREG,win_leftx2 ; Left border (0-159) movlw d'1' movff WREG,win_height movlw d'155' movff WREG,win_width ; Right border (0-159) display_profile2e: call PLED_box ; Inputs: win_top, win_leftx2, win_height, win_width, win_color1, win_color2 movff win_top,WREG ; Get row addwf last_temperature+0,W ; Add line interval distance to win_top tstfsz last_temperature+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 d'239' ; Limit cpfsgt lo ; >239? bra display_profile2e ; No, draw another line ; Write 0min Y-Line.. movlw color_grey call PLED_set_color ; Make this configurable? movlw d'75' movff WREG,win_top movlw d'4' movff WREG,win_leftx2 ; Left border (0-159) movlw d'164' movff WREG,win_height movlw d'1' movff WREG,win_width ; "Window" Width display_profile2f: call PLED_box ; Inputs: win_top, win_leftx2, win_height, win_width, win_color1, win_color2 movff win_leftx2,WREG ; Get column addwf avr_rel_pressure+0,W ; Add column interval distance to win_leftx2 tstfsz avr_rel_pressure+1 ; >255? movlw d'255' ; Yes, make win_leftx2>159 -> Abort here btfsc STATUS,C ; A Cary from the addwf above? movlw d'255' ; Yes, make win_leftx2>159 -> Abort here movff WREG,win_leftx2 ; Result in win_leftx2 again movff win_leftx2,lo ; Get win_leftx2 in Bank1... movlw d'159' ; Limit cpfsgt lo ; >159? bra display_profile2f ; No, draw another line movlw color_blue WIN_FRAME_COLOR .75, .239, .4, .159 ;top, bottom, left, right with color in WREG call I2CREAD2 ; skip 0xFB (Header-end) clrf timeout_counter2 ; here: used as counter for depth readings call I2CREAD2 ; skip 0xFB (Header-end) movlw d'158' movwf ignore_digits ; here: used as counter for x-pixels bcf second_FD ; clear flag movlw d'5' movwf timeout_counter3 ; here: used as colum x2 (Start at Colum 5) movlw d'75' ; Zero-m row movwf apnoe_mins ; here: used for fill between rows incf timeout_counter3,W ; Init Column INIT_PIXEL_WROTE timeout_counter3 ; pixel x2 (Also sets standard 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_violet ; Color for Gas 5 call PLED_set_color ; Set 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, ignores temp and profile data -> hi, lo btfsc second_FD ; end-of profile reached? bra profile_display_loop_done ; Yes, skip all remaining pixels movff sim_pressure+0,xB+0 ; devide pressure in mbar/quant for row offsett movff sim_pressure+1,xB+1 movff lo,xA+0 movff hi,xA+1 call div16x16 ; xA/xB=xC movlw d'75' addwf xC+0,F ; add 75 pixel offset to result btfsc STATUS,C ; Ignore potential profile errors movff apnoe_mins,xC+0 call profile_display_fill ; In this column between this row (xC+0) and the last row (apnoe_mins) movff xC+0,apnoe_mins ; Store last row for fill routine incf timeout_counter3,F PIXEL_WRITE timeout_counter3,xC+0 ; Set col(0..159) x row (0..239), put a std color pixel. profile_display_skip_loop1: ; skips readings! dcfsnz profile_temp2+0,F bra profile_display_loop3 ; check 16bit.... rcall profile_view_get_depth ; reads depth, ignores temp and profile data 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. profile_display_loop_done: call PLED_standard_color ; Restore color bcf sleepmode ; clear some flags bcf menubit2 bcf menubit3 bcf switch_right bcf switch_left clrf timeout_counter2 display_profile_loop: call check_switches_logbook btfsc menubit2 ; SET/MENU? bra exit_profileview ; back to list btfsc menubit3 ; ENTER? bra profileview_page2 ; Switch to Page2 of profile view btfsc onesecupdate call timeout_surfmode ; timeout btfsc onesecupdate call set_dive_modes ; check, if divemode must be entered bcf onesecupdate ; one second update btfsc sleepmode ; Timeout? bra exit_profileview ; back to list btfsc divemode goto restart ; Enter Divemode if required bra display_profile_loop ; wait for something to do profileview_page2: WIN_BOX_BLACK .0, .74, .0, .159 ;top, bottom, left, right movff average_depth_hold+0,eeprom_address+0 movff average_depth_hold+1,eeprom_address+1 ; Pointer to Gaslist movlw color_white ; Color for Gas 1 call PLED_set_color ; Set Color... bsf leftbind WIN_TOP .0 WIN_LEFT .0 STRCPY "G1:" call I2CREAD2 ; Gas1 current O2 movff SSPBUF,lo output_99x PUTC '/' call I2CREAD2 ; Gas1 current HE movff SSPBUF,lo output_8 call word_processor ; Display Gas information movlw color_green ; Color for Gas 2 call PLED_set_color ; Set Color... WIN_TOP .25 STRCPY "G2:" call I2CREAD2 ; Gas2 current O2 movff SSPBUF,lo output_8 PUTC '/' call I2CREAD2 ; Gas2 current HE movff SSPBUF,lo output_8 call word_processor ; Display Gas information movlw color_red ; Color for Gas 3 call PLED_set_color ; Set Color... WIN_TOP .50 STRCPY "G3:" call I2CREAD2 ; Gas3 current O2 movff SSPBUF,lo output_8 PUTC '/' call I2CREAD2 ; Gas3 current HE movff SSPBUF,lo output_8 call word_processor ; Display Gas information movlw color_yellow ; Color for Gas 4 call PLED_set_color ; Set Color... WIN_TOP .0 WIN_LEFT .60 STRCPY "G4:" call I2CREAD2 ; Gas4 current O2 movff SSPBUF,lo output_8 PUTC '/' call I2CREAD2 ; Gas4 current HE movff SSPBUF,lo output_8 call word_processor ; Display Gas information movlw color_violet ; Color for Gas 5 call PLED_set_color ; Set Color... WIN_TOP .25 STRCPY "G5:" call I2CREAD2 ; Gas5 current O2 movff SSPBUF,lo output_8 PUTC '/' call I2CREAD2 ; Gas5 current HE movff SSPBUF,lo output_8 call word_processor ; Display Gas information movlw color_cyan ; Color for Gas 6 call PLED_set_color ; Set Color... WIN_TOP .50 STRCPY "G6:" call I2CREAD2 ; Gas6 current O2 movff SSPBUF,lo output_8 PUTC '/' call I2CREAD2 ; Gas6 current HE movff SSPBUF,lo output_8 call word_processor ; Display Gas information call PLED_standard_color WIN_TOP .0 WIN_LEFT .120 STRCPY "1st:" call I2CREAD2 ; Start Gas movff SSPBUF,lo output_8 call word_processor ; Display Gas information bcf show_cns_in_logbook ; clear flag WIN_TOP .25 STRCPY "V" call I2CREAD2 ; Firmware x movff SSPBUF,lo movff SSPBUF,hi output_8 PUTC '.' call I2CREAD2 ; Firmware y movff SSPBUF,lo movlw .83 ; Check firmware y > 83 cpfslt lo ; <83? bsf show_cns_in_logbook ; No, set flag movlw .2 ; Check firmware x > 1 cpfslt hi ; <2? bsf show_cns_in_logbook ; No, set flag output_8 call word_processor ; Display Gas information bcf leftbind ; Clear flag WIN_TOP .50 lfsr FSR2,letter call I2CREAD2 ; Battery lo movff SSPBUF,lo call I2CREAD2 ; Battery hi movff SSPBUF,hi movlw d'1' movwf ignore_digits bsf ignore_digit5 ; do not display mV bsf leftbind output_16dp d'2' ; e.g. 3.45V bcf leftbind STRCAT_PRINT "V" bcf leftbind ; Clear flag ; call I2CREAD2 ; Skip Sampling rate bcf menubit2 bcf menubit3 bcf switch_right bcf switch_left clrf timeout_counter2 display_profile2_loop: call check_switches_logbook btfsc menubit2 ; SET/MENU? bra exit_profileview ; back to list btfsc menubit3 ; ENTER? bra profileview_page3 ; Switch to Page3 of profile view btfsc onesecupdate call timeout_surfmode ; timeout btfsc onesecupdate call set_dive_modes ; check, if divemode must be entered bcf onesecupdate ; one second update btfsc sleepmode ; Timeout? bra exit_profileview ; back to list btfsc divemode goto restart ; Enter Divemode if required bra display_profile2_loop ; wait for something to do profileview_page3: WIN_BOX_BLACK .0, .74, .0, .159 ;top, bottom, left, right call PLED_standard_color movff average_depth_hold+0,eeprom_address+0 movff average_depth_hold+1,eeprom_address+1 ; Pointer to Gaslist incf_eeprom_address d'24' ; Point to "Salinity" bsf leftbind WIN_TOP .0 WIN_LEFT .0 call I2CREAD2 ; read Salinity lfsr FSR2,letter movff SSPBUF,lo clrf hi output_16dp d'3' STRCAT_PRINT "kg/l" call I2CREAD2 ; Read CNS% btfss show_cns_in_logbook ; Show CNS? bra logbook_skip_cns ; No movff SSPBUF,lo WIN_TOP .25 STRCPY "CNS:" output_8 STRCAT_PRINT "%" ; Display CNS % logbook_skip_cns: btfss logbook_format_0x21 bra skip_new_format_0x21_info ; Do not show remaining info from dive WIN_TOP .50 call I2CREAD2 ; Read average depth movff SSPBUF,lo call I2CREAD2 ; Read average depth movff SSPBUF,hi STRCPY "Avr:" output_16dp d'3' ; Average depth STRCAT_PRINT "m" ; WIN_TOP .0 ; WIN_LEFT .75 skip_new_format_0x21_info: bcf menubit2 bcf menubit3 bcf switch_right bcf switch_left clrf timeout_counter2 display_profile3_loop: call check_switches_logbook btfsc menubit2 ; SET/MENU? bra exit_profileview ; back to list btfsc menubit3 ; ENTER? bra exit_profileview ; back to list btfsc onesecupdate call timeout_surfmode ; timeout btfsc onesecupdate call set_dive_modes ; check, if divemode must be entered bcf onesecupdate ; one second update btfsc sleepmode ; Timeout? bra exit_profileview ; back to list btfsc divemode goto restart ; Enter Divemode if required bra display_profile3_loop ; wait for something to do profile_display_fill: ; In this column between this row (xC+0) and the last row (apnoe_mins), keep xC+0!! ; First, check if xC+0>apnoe_mins or xC+0<aponoe_mins movf xC+0,W cpfseq apnoe_mins ; xC+0 = apone_mins? bra profile_display_fill2 ; No! return profile_display_fill2: movf xC+0,W cpfsgt apnoe_mins ; apnoe_mins>xC+0? bra profile_display_fill_up ; Yes! profile_display_fill_down: ; Fill downwards from apone_mins to xC+0! movff apnoe_mins,xC+1 ; Copy 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! movff xC+0,xC+1 ; Copy profile_display_fill_up2: ; Loop decf xC+1,F HALF_PIXEL_WRITE xC+1 ; Updates just row (0..239) movf apnoe_mins,W cpfseq xC+1 ; Loop until xC+1=apnoe_mins bra profile_display_fill_up2 return ; apnoe_mins and xC+0 are untouched profile_view_get_depth: call I2CREAD2 ; read first depth movff SSPBUF,lo ; low value call I2CREAD2 ; read first depth movff SSPBUF,hi ; high value call I2CREAD2 ; read Profile Flag Byte movff SSPBUF,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 lo bra profile_view_get_depth_new1 ; no 0xFD movlw 0xFD ; end of profile bytes? cpfseq hi bra profile_view_get_depth_new1 ; no 0xFD bsf second_FD ; 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_new2 ; Yes, get information about this event tstfsz timeout_counter2 ; Any bytes to ignore bra profile_view_get_depth_new3 ; Yes (1-127) return ; No (0) profile_view_get_depth_new3: ; read optional Tp° here, if any, and decrement timeout_counter2 by two... movf timeout_counter2,W ; number of additional bytes to ignore (0-127) call incf_eeprom_address0 ; increases bytes in eeprom_address:2 with 0x8000 bank switching return profile_view_get_depth_new2: call I2CREAD2 ; Read Event byte movff SSPBUF,EventByte ; store EventByte decf timeout_counter2,F ; reduce counter ; Check Event flags in the EventByte btfsc EventByte,4 ; Manual Gas Changed? bra logbook_event1 ; Yes! btfss EventByte,5 ; Stored Gas Changed? return ; No, return ; Stored Gas changed! call I2CREAD2 ; Read Gas# movff SSPBUF,active_gas ; store gas# decf timeout_counter2,F ; reduce counter 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_violet ; Color for Gas 5 call PLED_set_color ; Set Color... return logbook_event1: movlw color_cyan ; Color for Gas 6 call PLED_set_color ; Set Color... return ;(The two bytes indicating the manual gas change will be ignored in the standard "ignore loop" above...) ;Keep comments for future temperature graph ; call I2CREAD2 ; ignore byte ; decfsz timeout_counter2,F ; reduce counter ; bra profile_view_get_depth_new3 ; Loop ; return exit_profileview: bcf sleepmode clrf timeout_counter2 ; restore all registers to build same page again movff decodata+0,eeprom_address+0 movff decodata+1,eeprom_address+1 movff max_pressure+0,divemins+0 movff max_pressure+1,divemins+1 movff mintemp+0, divenumber decf divenumber,F bcf all_dives_shown decf menupos2,F clrf menupos3 ; here: used row on current page movlw d'5' movwf menupos ; here: active row on current page incf menupos2,F ; start new page call PLED_ClearScreen ; clear details/profile goto menu_logbook1b ; start search next_logbook2: btfsc all_dives_shown ; all shown goto menu_logbook1 ; all reset clrf menupos3 movlw d'5' movwf menupos ; incf menupos2,F ; start new screen call PLED_ClearScreen next_logbook: movff eeprom_header_address+0,eeprom_address+0 movff eeprom_header_address+1,eeprom_address+1 ; continue search here goto menu_logbook1b check_switches_logbook: btfsc switch_right bsf menubit3 btfsc switch_left bsf menubit2 ; Enter btfsc uart_dump_screen ; Dumps screen contains ? call dump_screen ; Yes! return next_logbook3: incf menupos,F movlw d'7' cpfseq menupos ; =7? bra next_logbook3a ; No bra next_logbook2 ; yes, new page please next_logbook3a: incf menupos3,W ; cpfseq menupos bra next_logbook3b movlw d'6' movwf menupos ; Jump directly to exit if page is not full next_logbook3b: clrf timeout_counter2 call PLED_logbook_cursor bcf switch_right bcf menubit3 ; clear flag goto menu_logbook_loop display_listdive: bsf logbook_page_not_empty ; Page not empty incf menupos3,F btfsc logbook_header_drawn ; "Logbook already displayed? bra display_listdive1a call PLED_topline_box ; Draw box WIN_INVERT .1 DISPLAYTEXT .26 ; "Logbook" WIN_INVERT .0 bsf logbook_header_drawn display_listdive1a: WIN_LEFT .20 movf menupos2,W mullw d'5' movf PRODL,W subwf divenumber,W ; current row on page mullw d'30' ; x30 movf PRODL,W ; is pixel-row for entry addlw d'5' ; +5 Pixel, so list entries are at rows 35,65,95,125,155,185 movff WREG,win_top lfsr FSR2,letter movff divenumber,lo output_99x ; # of dive PUTC ' ' call I2CREAD3 ; logbook_profile_version (1st. byte of Header after the 0xFA, 0xFA) (Block read start) movff SSPBUF,lo movlw d'13' cpfsgt lo ; Skip if lo>13 bra display_listdive2 ; use old (Pre 0x20) format bsf logbook_format_0x21 ; Set flag for new 0x21 Format movlw 0x21 cpfseq lo ; Skip if 0x21 bcf logbook_format_0x21 ; Clear flag for new 0x21 Format call I2CREAD4 ; Skip Profile version (Block read) movff SSPBUF,lo ; in new format, read month display_listdive2: movff lo,convert_value_temp+0 ; Month (in lo, see above) call I2CREAD4 ; Day (Block read) movff SSPBUF,convert_value_temp+1 call I2CREAD4 ; Year (Block read) movff SSPBUF,convert_value_temp+2 call PLED_convert_date_short ; converts into "DD/MM" or "MM/DD" or "MM/DD" in s incf_eeprom_address d'2' ; Skip Bytes in EEPROM (faster) ; call I2CREAD2 ; hours (Skip) ; call I2CREAD2 ; minutes (skip) PUTC ' ' call I2CREAD3 ; Depth (Block read start) movff SSPBUF,lo call I2CREAD4 ; Block read movff SSPBUF,hi bsf leftbind bsf ignore_digit5 ; Do not display 1cm figure output_16dp d'3' ; max. depth STRCAT "m " call I2CREAD4 ; Block read movff SSPBUF,lo ; read divetime in minutes call I2CREAD4 ; Block read movff SSPBUF,hi ; read divetime in minutes bsf leftbind output_16 ; Divetime minutes STRCAT_PRINT "'" ; Display header-row in list incf_eeprom_address d'37' ; 12 Bytes read from header, skip 37 Bytes in EEPROM (Remaining Header) btfss logbook_format_0x21 ; 10byte extra? return ; No, Done. incf_eeprom_address d'10' ; Skip another 10 byte from the header for 0x21 format return logbook_convert_64k: call PLED_boot call PLED_ClearScreen ; Clear screen movlw color_red call PLED_set_color ; Set to Red DISPLAYTEXTH d'303' ; Please wait! movlw LOW 0x100 movwf EEADR movlw HIGH 0x100 movwf EEADRH movlw 0xAA movwf EEDATA call write_eeprom ; write 0xAA to indicate the logbook is already converted ; convert logbook: ; Step 1: Copy 32k from 0xFE + 1 with bank switching to bank1 ; Step 2: Copy 32k from bank1 to bank0 ; Step 3: delete bank1 call get_free_EEPROM_location ; Searches 0xFD, 0xFD, 0xFE and sets Pointer to 0xFE rcall incf_eeprom_bank0 ; eeprom_address:2 now at 0xFE+1 ; Do Step 1: ;logbook_temp5 and logbook_temp6 hold address in bank1 ;logbook_temp1 and logbook_temp2 hold address in bank0 movlw HIGH 0x8000 movwf logbook_temp6 movlw LOW 0x8000 movwf logbook_temp5 ; load address for bank1 movff eeprom_address+0,logbook_temp1 movff eeprom_address+1,logbook_temp2 ; load address for bank0 movlw 0x80 movwf uart2_temp logbook_convert2: clrf uart1_temp ; counter for copy operation logbook_convert3: ; read source movff logbook_temp1,eeprom_address+0 movff logbook_temp2,eeprom_address+1 call I2CREAD movff SSPBUF,lo ; hold read value rcall incf_eeprom_bank0 ; eeprom_address:2 +1 with bank switching movff eeprom_address+0,logbook_temp1 movff eeprom_address+1,logbook_temp2 ; write source address ; write target movff logbook_temp5,eeprom_address+0 movff logbook_temp6,eeprom_address+1 movf lo,W call I2CWRITE ; writes WREG into EEPROM@eeprom_address movlw d'1' addwf logbook_temp5,F movlw d'0' addwfc logbook_temp6,F ; increase target address decfsz uart1_temp,F bra logbook_convert3 btg LED_blue decfsz uart2_temp,F ; 32kByte done? bra logbook_convert2 ; No, continue ; Step 1 done. bcf LED_blue ; Do Step 2: movlw HIGH 0x0000 movwf logbook_temp6 movlw LOW 0x0000 movwf logbook_temp5 ; load address for bank0 movlw HIGH 0x8000 movwf logbook_temp2 movlw LOW 0x8000 movwf logbook_temp1 ; load address for bank1 movlw 0x80 movwf uart2_temp logbook_convert4: clrf uart1_temp ; counter for copy operation logbook_convert5: ; read source movff logbook_temp1,eeprom_address+0 movff logbook_temp2,eeprom_address+1 call I2CREAD movff SSPBUF,lo ; hold read value incf_eeprom_address d'1' movff eeprom_address+0,logbook_temp1 movff eeprom_address+1,logbook_temp2 ; write source address ; write target movff logbook_temp5,eeprom_address+0 movff logbook_temp6,eeprom_address+1 movf lo,W call I2CWRITE ; writes WREG into EEPROM@eeprom_address incf_eeprom_address d'1' movff eeprom_address+0,logbook_temp5 movff eeprom_address+1,logbook_temp6 ; write target address decfsz uart1_temp,F bra logbook_convert5 btg LED_red decfsz uart2_temp,F ; 32kByte done? bra logbook_convert4 ; No, continue ; Step 2 done. bcf LED_red movlw HIGH 0x8000 movwf logbook_temp2 movlw LOW 0x8000 movwf logbook_temp1 ; load address for bank1 movlw 0x80 movwf uart2_temp logbook_convert6: clrf uart1_temp ; counter for copy operation logbook_convert7: ; write target movff logbook_temp1,eeprom_address+0 movff logbook_temp2,eeprom_address+1 movlw 0xFF call I2CWRITE ; writes WREG into EEPROM@eeprom_address incf_eeprom_address d'1' movff eeprom_address+0,logbook_temp1 movff eeprom_address+1,logbook_temp2 ; write target address decfsz uart1_temp,F bra logbook_convert7 btg LED_red btg LED_blue decfsz uart2_temp,F ; 32kByte done? bra logbook_convert6 ; No, continue ; Step 3 done. bcf LED_red bcf LED_blue return incf_eeprom_bank0: movlw d'1' ; increase address addwf eeprom_address+0,F movlw d'0' addwfc eeprom_address+1,F btfss eeprom_address+1,7 ; at address 8000? return ; no, skip clrf eeprom_address+0 ; Clear eeprom address clrf eeprom_address+1 return