mk2: code_part1/OSTC_code_asm_part1/menu

annotate code_part1/OSTC_code_asm_part1/menu_logbook.asm @ 426:07f5b0baaa57

Adding temperature & ceiling curves * Pink Temperature curve, using fixed scale minTp .. minTp+10.0?C. * Vertical line fill for ceiling. * Dark red coloring when overflowing ceiling, dark green if ok.

author	JeanDo
date	Sun, 31 Jul 2011 13:27:23 +0200
parents	a76c5a3e9e96
children	04535df08575

rev	line source
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	2 ; OSTC - diving computer code
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	3 ; Copyright (C) 2008 HeinrichsWeikamp GbR
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	4
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	5 ; This program is free software: you can redistribute it and/or modify
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	6 ; it under the terms of the GNU General Public License as published by
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	7 ; the Free Software Foundation, either version 3 of the License, or
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	8 ; (at your option) any later version.
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	9
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	10 ; This program is distributed in the hope that it will be useful,
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	11 ; but WITHOUT ANY WARRANTY; without even the implied warranty of
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	12 ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	13 ; GNU General Public License for more details.
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	14
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	15 ; You should have received a copy of the GNU General Public License
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	16 ; along with this program. If not, see <http://www.gnu.org/licenses/>.
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	17
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	18
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	19 ; Menu "Logbook"
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	20 ; written by: Matthias Heinrichs, info@heinrichsweikamp.com
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	21 ; written: 060107
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	22 ; last updated: 081026
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	23 ; known bugs:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	24 ; ToDo:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	25
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	26 ; searches external EEPROM for dive headers and displays them in a list
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	27 ; a detailed view with all informations and profile can be selected
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	28 ; does not require a FAT, will work with other profile intervals as ten seconds, too
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	29
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	30 menu_logbook:
207 d2a38470f0b2 faster logbook speed heinrichsweikamp parents: 204 diff changeset	31 bcf return_from_profileview ; clear some flags
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	32 menu_logbook1:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	33 bcf logbook_header_drawn
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	34 call PLED_ClearScreen ; Clear screen
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	35 bcf all_dives_shown ; clear some flags
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	36 bcf logbook_profile_view
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	37 bcf logbook_page_not_empty
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	38 clrf menupos3 ; Here: used rows on current logbook-page
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	39 clrf menupos2 ; Here: # of current displayed page
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	40 clrf divenumber ; # of dive in list during search
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	41
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	42
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	43 menu_logbook1a:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	44 WIN_INVERT .1
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	45 DISPLAYTEXT .12 ;" Wait.."
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	46 WIN_INVERT .0
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	47 call I2CReset ; Reset I2C Bus
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	48 call get_free_EEPROM_location ; search from "here" backwards through the external memory
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	49
207 d2a38470f0b2 faster logbook speed heinrichsweikamp parents: 204 diff changeset	50 movff eeprom_address+0,logbook_temp5
d2a38470f0b2 faster logbook speed heinrichsweikamp parents: 204 diff changeset	51 movff eeprom_address+1,logbook_temp6 ; Store Pointer to 0xFE (From 0xFD, 0xFD, 0xFE sequence) for faster display
d2a38470f0b2 faster logbook speed heinrichsweikamp parents: 204 diff changeset	52
d2a38470f0b2 faster logbook speed heinrichsweikamp parents: 204 diff changeset	53 menu_logbook1a_no_get_free: ; Without repeated search for dive
208 3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	54 clrf divemins+0 ; Here: used as temp variables
3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	55 clrf divemins+1
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	56 movlw d'5'
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	57 movwf menupos ; Here: stores current position on display (5-x)
148 055977afc2f9 Make loogbook search twice faster. JeanDo parents: 146 diff changeset	58
055977afc2f9 Make loogbook search twice faster. JeanDo parents: 146 diff changeset	59 ;-----------------------------------------------------------------------------
055977afc2f9 Make loogbook search twice faster. JeanDo parents: 146 diff changeset	60 ; search external EEPROM backwards from eeprom_address
055977afc2f9 Make loogbook search twice faster. JeanDo parents: 146 diff changeset	61 ; for 0xFA, 0xFA (store 1st. 0xFA position for next search)
055977afc2f9 Make loogbook search twice faster. JeanDo parents: 146 diff changeset	62 ; read header data and display it
055977afc2f9 Make loogbook search twice faster. JeanDo parents: 146 diff changeset	63 ; wait for user to confirm/exit
055977afc2f9 Make loogbook search twice faster. JeanDo parents: 146 diff changeset	64 ; recopy data to search from here
055977afc2f9 Make loogbook search twice faster. JeanDo parents: 146 diff changeset	65
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	66 menu_logbook1b:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	67 WIN_INVERT .1
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	68 DISPLAYTEXT .12 ;" Wait.."
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	69 WIN_INVERT .0
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	70
148 055977afc2f9 Make loogbook search twice faster. JeanDo parents: 146 diff changeset	71 ;---- fast loop: check every other byte ----------------------------------
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	72 menu_logbook2:
351 5c186a72cb5d Debugging the new logbook format, 64kB download routine heinrichsweikamp parents: 350 diff changeset	73 movlw d'2'
5c186a72cb5d Debugging the new logbook format, 64kB download routine heinrichsweikamp parents: 350 diff changeset	74 addwf divemins+0,F
5c186a72cb5d Debugging the new logbook format, 64kB download routine heinrichsweikamp parents: 350 diff changeset	75 movlw d'0'
5c186a72cb5d Debugging the new logbook format, 64kB download routine heinrichsweikamp parents: 350 diff changeset	76 addwfc divemins+1,F ; increase 16Bit value, twice
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	77
425 a76c5a3e9e96 Minor cleanups JeanDo parents: 416 diff changeset	78 incf divemins+1,W ; = 0xFF.. ?
a76c5a3e9e96 Minor cleanups JeanDo parents: 416 diff changeset	79 bnz menu_logbook2a ; No.
a76c5a3e9e96 Minor cleanups JeanDo parents: 416 diff changeset	80 incf divemins+0,W ; = 0x..FF ?
a76c5a3e9e96 Minor cleanups JeanDo parents: 416 diff changeset	81 bz menu_logbook_reset ; Yes: FFFF --> loop.
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	82
350 7250ca7c8d24 64kByte logbook (Still incompatible to existing PC software) heinrichsweikamp parents: 349 diff changeset	83 menu_logbook2a:
425 a76c5a3e9e96 Minor cleanups JeanDo parents: 416 diff changeset	84 movf divemins+1,W ; = 0x00.. ?
a76c5a3e9e96 Minor cleanups JeanDo parents: 416 diff changeset	85 bnz menu_logbook2b ; No.
a76c5a3e9e96 Minor cleanups JeanDo parents: 416 diff changeset	86 movf divemins+0,W ; = 0x..00 ?
a76c5a3e9e96 Minor cleanups JeanDo parents: 416 diff changeset	87 bz menu_logbook_reset ; yes, restart (if not empty)
351 5c186a72cb5d Debugging the new logbook format, 64kB download routine heinrichsweikamp parents: 350 diff changeset	88
5c186a72cb5d Debugging the new logbook format, 64kB download routine heinrichsweikamp parents: 350 diff changeset	89 menu_logbook2b:
245 dee88c962653 Some clean up and minor I2C speed improvements heinrichsweikamp parents: 244 diff changeset	90 decf_eeprom_address d'2' ; -2 to eeprom address.
148 055977afc2f9 Make loogbook search twice faster. JeanDo parents: 146 diff changeset	91
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	92 call I2CREAD ; reads one byte (Slow! Better use Blockread!)
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	93
148 055977afc2f9 Make loogbook search twice faster. JeanDo parents: 146 diff changeset	94 movlw 0xFA ; That was a FA ?
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	95 cpfseq SSPBUF
148 055977afc2f9 Make loogbook search twice faster. JeanDo parents: 146 diff changeset	96 bra menu_logbook2 ; No: continue the fast loop...
055977afc2f9 Make loogbook search twice faster. JeanDo parents: 146 diff changeset	97
055977afc2f9 Make loogbook search twice faster. JeanDo parents: 146 diff changeset	98 ;---- Slow check : was it before or after that one ? ---------------------
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	99
148 055977afc2f9 Make loogbook search twice faster. JeanDo parents: 146 diff changeset	100 incf_eeprom_address d'1' ; Been one step too far ?
055977afc2f9 Make loogbook search twice faster. JeanDo parents: 146 diff changeset	101 call I2CREAD ; reads one byte (Slow! Better use Blockread!)
055977afc2f9 Make loogbook search twice faster. JeanDo parents: 146 diff changeset	102 movlw 0xFA ; That was a FA ?
055977afc2f9 Make loogbook search twice faster. JeanDo parents: 146 diff changeset	103 xorwf SSPBUF,W
151 c3ac603ba248 Fix logbook display when there odd-size dives. JeanDo parents: 148 diff changeset	104 bz menu_loop_tooFar ; Got both of them...
148 055977afc2f9 Make loogbook search twice faster. JeanDo parents: 146 diff changeset	105
151 c3ac603ba248 Fix logbook display when there odd-size dives. JeanDo parents: 148 diff changeset	106 infsnz divemins+0,F ; Advance to the next byte.
c3ac603ba248 Fix logbook display when there odd-size dives. JeanDo parents: 148 diff changeset	107 incf divemins+1,F
c3ac603ba248 Fix logbook display when there odd-size dives. JeanDo parents: 148 diff changeset	108 decf_eeprom_address d'2' ; One step back, two steps forward.
148 055977afc2f9 Make loogbook search twice faster. JeanDo parents: 146 diff changeset	109 call I2CREAD ; reads one byte (Slow! Better use Blockread!)
055977afc2f9 Make loogbook search twice faster. JeanDo parents: 146 diff changeset	110 movlw 0xFA ; It was the second FA ?
055977afc2f9 Make loogbook search twice faster. JeanDo parents: 146 diff changeset	111 xorwf SSPBUF,W
055977afc2f9 Make loogbook search twice faster. JeanDo parents: 146 diff changeset	112 bz test_FA_DONE
055977afc2f9 Make loogbook search twice faster. JeanDo parents: 146 diff changeset	113 bra menu_logbook2 ; No: continue the fast loop...
055977afc2f9 Make loogbook search twice faster. JeanDo parents: 146 diff changeset	114
055977afc2f9 Make loogbook search twice faster. JeanDo parents: 146 diff changeset	115 menu_loop_tooFar;
151 c3ac603ba248 Fix logbook display when there odd-size dives. JeanDo parents: 148 diff changeset	116 decf_eeprom_address d'1' ; So stays pointing at the second one.
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	117
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	118 test_FA_DONE: ; Found 0xFA 0xFA!
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	119 movff eeprom_address+0,eeprom_header_address+0 ; store current address into temp register
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	120 movff eeprom_address+1,eeprom_header_address+1 ; we must continue search here later
148 055977afc2f9 Make loogbook search twice faster. JeanDo parents: 146 diff changeset	121 incf divenumber,F ; new header found, increase divenumber
055977afc2f9 Make loogbook search twice faster. JeanDo parents: 146 diff changeset	122 bra menu_logbook4 ; Done with searching, display the header!
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	123
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	124 menu_logbook3b:
207 d2a38470f0b2 faster logbook speed heinrichsweikamp parents: 204 diff changeset	125 btfss logbook_page_not_empty ; Was there at least one dive?
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	126 goto menu ; Not a single header was found, leave logbook.
207 d2a38470f0b2 faster logbook speed heinrichsweikamp parents: 204 diff changeset	127 bra menu_logbook_display_loop2 ; rcall of get_free_eeprom_location not required here (faster)
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	128
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	129 menu_logbook_reset:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	130 movf divenumber,W
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	131 btfsc STATUS,Z ; Was there at least one dive?
207 d2a38470f0b2 faster logbook speed heinrichsweikamp parents: 204 diff changeset	132 bra menu_logbook3b ; No, Nothing to do
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	133
207 d2a38470f0b2 faster logbook speed heinrichsweikamp parents: 204 diff changeset	134 bsf all_dives_shown ; Yes
d2a38470f0b2 faster logbook speed heinrichsweikamp parents: 204 diff changeset	135 bra menu_logbook_display_loop2 ; rcall of get_free_eeprom_location not required here (faster)
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	136
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	137
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	138 menu_logbook4:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	139 ; Adjust eeprom_address to set pointer on first headerbyte
148 055977afc2f9 Make loogbook search twice faster. JeanDo parents: 146 diff changeset	140 incf_eeprom_address d'2' ; Macro, that adds 8Bit to eeprom_address:2 with banking at 0x8000
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	141
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	142 btfss logbook_profile_view ; Display profile (search routine is used in profileview, too)
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	143 bra menu_logbook_display_loop ; No, display overwiev list
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	144
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	145 movf divesecs,W ; divenumber that is searched
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	146 cpfseq divenumber ; current divenumber
243 38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	147 goto next_logbook ; No match, continue search
245 dee88c962653 Some clean up and minor I2C speed improvements heinrichsweikamp parents: 244 diff changeset	148 bra display_profile2 ; Match: Show header and profile
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	149
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	150
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	151 menu_logbook_display_loop:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	152 btfsc all_dives_shown ; All dives displayed?
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	153 bra menu_logbook_display_loop2 ; Yes, but display first page again.
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	154
243 38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	155 call display_listdive ; display short header for list on current list position
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	156
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	157 movlw d'5'
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	158 cpfseq menupos ; first dive on list (top place)?
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	159 bra menu_logbook_display_loop1 ; no, so skip saving of address
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	160
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	161
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	162 movff divenumber,mintemp+0 ; store all registered required to rebuilt the current logbookpage after the detail/profile view
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	163 movff eeprom_header_address+0,decodata+0 ; several registers are used as temp registers here
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	164 movff eeprom_header_address+1,decodata+1
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	165 movff divemins+0,max_pressure+0
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	166 movff divemins+1,max_pressure+1
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	167
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	168 movlw d'3'
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	169 addwf decodata+0,F
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	170 movlw d'0'
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	171 addwfc decodata+1,F ; Re-Adjust pointer again
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	172 movlw d'3' ; So first row will be the same again after detail/profile view
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	173 subwf max_pressure+0,F
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	174 movlw d'0'
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	175 subwfb max_pressure+1,F
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	176
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	177 menu_logbook_display_loop1:
207 d2a38470f0b2 faster logbook speed heinrichsweikamp parents: 204 diff changeset	178 decfsz menupos,F ; List full?
243 38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	179 goto next_logbook ; no, search another dive for our current logbook page
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	180
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	181 menu_logbook_display_loop2:
207 d2a38470f0b2 faster logbook speed heinrichsweikamp parents: 204 diff changeset	182 btfss logbook_page_not_empty ; Was there one dive at all?
d2a38470f0b2 faster logbook speed heinrichsweikamp parents: 204 diff changeset	183 bra menu_logbook ; Yes, so reload the first page
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	184
207 d2a38470f0b2 faster logbook speed heinrichsweikamp parents: 204 diff changeset	185 call PLED_topline_box ; Draw box
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	186 WIN_INVERT .1
207 d2a38470f0b2 faster logbook speed heinrichsweikamp parents: 204 diff changeset	187 DISPLAYTEXT .26 ; "Logbook"
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	188 WIN_INVERT .0
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	189
207 d2a38470f0b2 faster logbook speed heinrichsweikamp parents: 204 diff changeset	190 DISPLAYTEXT .11 ; Displays "Exit" in the last row on the current page
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	191
207 d2a38470f0b2 faster logbook speed heinrichsweikamp parents: 204 diff changeset	192 bcf sleepmode ; clear some flags for user input
d2a38470f0b2 faster logbook speed heinrichsweikamp parents: 204 diff changeset	193 bcf menubit2
d2a38470f0b2 faster logbook speed heinrichsweikamp parents: 204 diff changeset	194 bcf menubit3
d2a38470f0b2 faster logbook speed heinrichsweikamp parents: 204 diff changeset	195 bcf cursor
d2a38470f0b2 faster logbook speed heinrichsweikamp parents: 204 diff changeset	196 bcf switch_right
d2a38470f0b2 faster logbook speed heinrichsweikamp parents: 204 diff changeset	197 bcf switch_left
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	198 clrf timeout_counter2
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	199
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	200 movlw d'1' ; Set cursor to position 1...
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	201 btfsc return_from_profileview ; .. unless we are returning from a detail/profile view
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	202 movf mintemp+1,W ; load last cursor position again
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	203 movwf menupos ; and set menupos byte
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	204 bcf return_from_profileview ; Do this only once while the page is loaded again!
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	205
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	206 bcf logbook_page_not_empty ; Obviously the current page is NOT empty
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	207 call PLED_logbook_cursor
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	208
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	209 menu_logbook_loop:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	210 call check_switches_logbook
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	211
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	212 btfsc menubit3 ; SET/MENU?
243 38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	213 goto next_logbook3 ; adjust cursor or create new page
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	214
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	215 btfsc menubit2 ; ENTER?
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	216 bra display_profile_or_exit ; view details/profile or exit logbook
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	217
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	218 btfsc onesecupdate
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	219 call timeout_surfmode ; Timeout
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	220
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	221 btfsc onesecupdate
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	222 call set_dive_modes ; Check, if divemode must be entered
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	223
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	224 bcf onesecupdate ; one second update
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	225
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	226 btfsc sleepmode ; Timeout?
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	227 goto menu ; Yes
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	228
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	229 btfsc divemode
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	230 goto restart ; Enter Divemode if required
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	231
243 38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	232 goto menu_logbook_loop ; Wait for something to do
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	233
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	234 display_profile_or_exit:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	235 bcf menubit2 ; debounce
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	236 movlw d'6' ; exit?
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	237 cpfseq menupos
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	238 bra display_profile ; No, show details/profile
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	239 goto menu
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	240
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	241 display_profile:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	242 movff menupos,mintemp+1 ; store current cursor position
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	243 bsf return_from_profileview ; tweak search routine to exit after found
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	244
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	245 movf menupos2,W ; Number of page
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	246 mullw d'5'
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	247 movf PRODL,W
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	248 addwf menupos,W ; page*5+menupos=
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	249 movwf divesecs ; # of dive to search
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	250
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	251 call PLED_ClearScreen ; search for dive
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	252 bsf logbook_profile_view ; set flag for search routine
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	253
207 d2a38470f0b2 faster logbook speed heinrichsweikamp parents: 204 diff changeset	254 clrf divenumber ; search from scratch
d2a38470f0b2 faster logbook speed heinrichsweikamp parents: 204 diff changeset	255
d2a38470f0b2 faster logbook speed heinrichsweikamp parents: 204 diff changeset	256 movff logbook_temp5,eeprom_address+0
d2a38470f0b2 faster logbook speed heinrichsweikamp parents: 204 diff changeset	257 movff logbook_temp6,eeprom_address+1 ; Restore Pointer to 0xFE (From 0xFD, 0xFD, 0xFE sequence) for faster display
d2a38470f0b2 faster logbook speed heinrichsweikamp parents: 204 diff changeset	258
d2a38470f0b2 faster logbook speed heinrichsweikamp parents: 204 diff changeset	259 bra menu_logbook1a_no_get_free ; Start Search for Dive (Without get_free_EEPROM_location)
d2a38470f0b2 faster logbook speed heinrichsweikamp parents: 204 diff changeset	260
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	261 display_profile2:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	262 bcf logbook_profile_view ; clear flag for search routine
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	263
371 160b3216b335 x-scale in logbook fixed Heinrichsweikamp parents: 367 diff changeset	264 clrf average_divesecs+0
160b3216b335 x-scale in logbook fixed Heinrichsweikamp parents: 367 diff changeset	265 clrf average_divesecs+1 ; holds amount of read samples
160b3216b335 x-scale in logbook fixed Heinrichsweikamp parents: 367 diff changeset	266
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	267 call PLED_display_wait_clear
204 aad4f6e25c2d fix in logbook detail view heinrichsweikamp parents: 199 diff changeset	268 call PLED_standard_color
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	269 WIN_TOP .0
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	270 WIN_LEFT .0
123 6a94f96e9cea The big cleanup, again. JeanDo parents: 44 diff changeset	271 STRCPY "#"
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	272
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	273 GETCUSTOM15 .28 ; Logbook Offset -> lo, hi
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	274 tstfsz lo ; lo=0?
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	275 bra display_profile_offset1 ; No, adjust offset
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	276 tstfsz hi ; hi=0?
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	277 bra display_profile_offset1 ; No, adjust offset
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	278 bra display_profile_offset2 ; lo=0 and hi=0 -> skip Offset routine
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	279
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	280 display_profile_offset1:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	281 movlw d'1'
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	282 addwf lo,F
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	283 movlw d'0'
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	284 addwfc hi,F ; hi:lo = hi:lo + 1
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	285 movff lo,sub_a+0
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	286 movff hi,sub_a+1
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	287 movff divesecs,sub_b+0
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	288 clrf sub_b+1
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	289 call sub16 ; sub_c = sub_a - sub_b
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	290 movff sub_c+0,lo
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	291 movff sub_c+1,hi
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	292 bsf leftbind
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	293 output_16dp d'10' ; # of dive with offset
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	294 bra display_profile_offset3 ; Skip normal routine
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	295
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	296 display_profile_offset2:
207 d2a38470f0b2 faster logbook speed heinrichsweikamp parents: 204 diff changeset	297 movff divesecs,lo ;
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	298 output_99x ; # of dive
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	299
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	300 display_profile_offset3:
123 6a94f96e9cea The big cleanup, again. JeanDo parents: 44 diff changeset	301 PUTC ' '
349 ed137d66ac65 Preparations for new "0x21" logbook format heinrichsweikamp parents: 337 diff changeset	302 call I2CREAD2 ; Read Profile version
ed137d66ac65 Preparations for new "0x21" logbook format heinrichsweikamp parents: 337 diff changeset	303 movff SSPBUF,lo ; store in lo
ed137d66ac65 Preparations for new "0x21" logbook format heinrichsweikamp parents: 337 diff changeset	304
ed137d66ac65 Preparations for new "0x21" logbook format heinrichsweikamp parents: 337 diff changeset	305 bsf logbook_format_0x21 ; Set flag for new 0x21 Format
ed137d66ac65 Preparations for new "0x21" logbook format heinrichsweikamp parents: 337 diff changeset	306 movlw 0x21
ed137d66ac65 Preparations for new "0x21" logbook format heinrichsweikamp parents: 337 diff changeset	307 cpfseq lo ; Skip if 0x21
ed137d66ac65 Preparations for new "0x21" logbook format heinrichsweikamp parents: 337 diff changeset	308 bcf logbook_format_0x21 ; Clear flag for new 0x21 Format
ed137d66ac65 Preparations for new "0x21" logbook format heinrichsweikamp parents: 337 diff changeset	309
207 d2a38470f0b2 faster logbook speed heinrichsweikamp parents: 204 diff changeset	310 call I2CREAD2 ; read month
d2a38470f0b2 faster logbook speed heinrichsweikamp parents: 204 diff changeset	311 movff SSPBUF,lo ; store in lo
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	312
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	313 ; Offset to SamplingRate
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	314 incf_eeprom_address d'32' ; Macro, that adds 8Bit to eeprom_address:2 with banking at 0x8000
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	315 call I2CREAD ; Read Sampling rate
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	316 movff SSPBUF,samplesecs_value ; Copy sampling rate
41 3ab1188651af 1.63 in work... heinrichsweikamp parents: 33 diff changeset	317 decf_eeprom_address d'32' ; Macro, that subtracts 8Bit from eeprom_address:2 with banking at 0x8000
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	318
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	319 movff lo,convert_value_temp+0 ; Month (in lo, see above)
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	320 call I2CREAD2 ; Day
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	321 movff SSPBUF,convert_value_temp+1
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	322 call I2CREAD2 ; Year
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	323 movff SSPBUF,convert_value_temp+2
208 3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	324 call PLED_convert_date ; converts into "DD/MM/YY" or "MM/DD/YY" or "YY/MM/DD" in postinc2
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	325
123 6a94f96e9cea The big cleanup, again. JeanDo parents: 44 diff changeset	326 PUTC ' '
366 ca3d15e6240e small work in the logbook Heinrichsweikamp parents: 362 diff changeset	327 PUTC 0x94 ; "End of dive" icon
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	328 call I2CREAD2 ; hour
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	329 movff SSPBUF,lo
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	330 output_99x
123 6a94f96e9cea The big cleanup, again. JeanDo parents: 44 diff changeset	331 PUTC ':'
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	332 call I2CREAD2 ; Minute
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	333 movff SSPBUF,lo
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	334 output_99x
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	335 call word_processor ; Display 1st row of details
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	336
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	337 WIN_TOP .25
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	338 WIN_LEFT .05
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	339 lfsr FSR2,letter
208 3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	340 call I2CREAD2 ; read max depth
3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	341 movff SSPBUF,lo
3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	342 call I2CREAD2 ; read max depth
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	343 movff SSPBUF,hi
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	344 movff lo,xA+0 ; calculate y-scale for profile display
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	345 movff hi,xA+1
297 ceedf078b2d8 Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german Heinrichsweikamp parents: 268 diff changeset	346 movlw d'163' ; 163pixel height available
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	347 movwf xB+0
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	348 clrf xB+1
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	349 call div16x16 ; does xA/xB=xC
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	350 movff xC+0,sim_pressure+0 ; holds LOW byte of y-scale (mbar/pixel!)
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	351 movff xC+1,sim_pressure+1 ; holds HIGH byte of y-scale (mbar/pixel!)
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	352 incf sim_pressure+0,F ; increase one, because there may be a remainder
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	353 movlw d'0'
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	354 addwfc sim_pressure+1,F
426 07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	355
208 3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	356 movlw LOW d'164000' ; 164pixel*1000 height
3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	357 movwf xC+0
337 6bdf80d7276c Added screen dumps of general menus. JeanDo parents: 302 diff changeset	358 movlw HIGH (d'164000' & h'FFFF') ; 164pixel*1000 height
208 3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	359 movwf xC+1
3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	360 movlw UPPER d'164000' ; 164pixel*1000 height
3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	361 movwf xC+2
3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	362 clrf xC+3
3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	363
398 ab962c4b19d6 Fixing issue 50, correct "Bar" to "bar" in texts and comments heinrichsweikamp parents: 384 diff changeset	364 movff lo,xB+0 ; Max. Depth in mbar
ab962c4b19d6 Fixing issue 50, correct "Bar" to "bar" in texts and comments heinrichsweikamp parents: 384 diff changeset	365 movff hi,xB+1 ; Max. Depth in mbar
208 3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	366 call div32x16 ; xC:4 / xB:2 = xC+3:xC+2 with xC+1:xC+0 as remainder
3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	367
3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	368 movff xC+0,last_temperature+0 ;
3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	369 movff xC+1,last_temperature+1 ; = Pixels/10m (For scale, draw any xx rows a scale-line)
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	370
415 d022c62a1df5 fixing issue with end-of-dive threshold in high-altitude mode heinrichsweikamp parents: 414 diff changeset	371 movf last_temperature+0,W
d022c62a1df5 fixing issue with end-of-dive threshold in high-altitude mode heinrichsweikamp parents: 414 diff changeset	372 iorwf last_temperature+1,W ; last_temperature:2 = Null?
d022c62a1df5 fixing issue with end-of-dive threshold in high-altitude mode heinrichsweikamp parents: 414 diff changeset	373 bnz display_profile_offset4 ; No, continue
d022c62a1df5 fixing issue with end-of-dive threshold in high-altitude mode heinrichsweikamp parents: 414 diff changeset	374 incf last_temperature+1,F ; Yes, make last_temperature+1>1 to make "display_profile2e" working
d022c62a1df5 fixing issue with end-of-dive threshold in high-altitude mode heinrichsweikamp parents: 414 diff changeset	375
d022c62a1df5 fixing issue with end-of-dive threshold in high-altitude mode heinrichsweikamp parents: 414 diff changeset	376 display_profile_offset4:
207 d2a38470f0b2 faster logbook speed heinrichsweikamp parents: 204 diff changeset	377 bsf leftbind
208 3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	378 output_16dp d'3' ; max. depth
123 6a94f96e9cea The big cleanup, again. JeanDo parents: 44 diff changeset	379 STRCAT "m "
208 3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	380 call I2CREAD2 ; divetime in minutes
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	381 movff SSPBUF,lo
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	382 call I2CREAD2
208 3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	383 movff SSPBUF,hi ; divetime in minutes
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	384
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	385 movff lo,xA+0 ; calculate x-scale for profile display
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	386 movff hi,xA+1 ; calculate total diveseconds first
208 3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	387 movlw d'60' ; 60seconds are one minute...
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	388 movwf xB+0
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	389 clrf xB+1
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	390 call mult16x16 ; result is in xC:2 !
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	391
207 d2a38470f0b2 faster logbook speed heinrichsweikamp parents: 204 diff changeset	392 bsf leftbind
426 07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	393 PUTC 0x95 ; "duration of dive" icon
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	394 output_16 ; divetime minutes
208 3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	395
366 ca3d15e6240e small work in the logbook Heinrichsweikamp parents: 362 diff changeset	396 movlw LOW d'600'
371 160b3216b335 x-scale in logbook fixed Heinrichsweikamp parents: 367 diff changeset	397 movwf xA+0
366 ca3d15e6240e small work in the logbook Heinrichsweikamp parents: 362 diff changeset	398 movlw HIGH d'600'
371 160b3216b335 x-scale in logbook fixed Heinrichsweikamp parents: 367 diff changeset	399 movwf xA+1 ; A vertical line every 600 seconds
160b3216b335 x-scale in logbook fixed Heinrichsweikamp parents: 367 diff changeset	400 movff samplesecs_value,xB+0 ; Copy sampling rate
160b3216b335 x-scale in logbook fixed Heinrichsweikamp parents: 367 diff changeset	401 clrf xB+1
366 ca3d15e6240e small work in the logbook Heinrichsweikamp parents: 362 diff changeset	402 call div16x16 ; xA/xB=xC with xA as remainder
371 160b3216b335 x-scale in logbook fixed Heinrichsweikamp parents: 367 diff changeset	403 movff xC+0,average_depth_hold_total+0
160b3216b335 x-scale in logbook fixed Heinrichsweikamp parents: 367 diff changeset	404 movff xC+1,average_depth_hold_total+1
160b3216b335 x-scale in logbook fixed Heinrichsweikamp parents: 367 diff changeset	405 ;average_depth_hold_total:2 holds interval of samples for vertical 10min line
208 3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	406
3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	407 ; Restore divetime in minutes:
366 ca3d15e6240e small work in the logbook Heinrichsweikamp parents: 362 diff changeset	408 btfss logbook_format_0x21 ; Dive made with new 0x21 format?
ca3d15e6240e small work in the logbook Heinrichsweikamp parents: 362 diff changeset	409 bra display_profile_old_xscale ; No
ca3d15e6240e small work in the logbook Heinrichsweikamp parents: 362 diff changeset	410 ; Yes, get real sample time
ca3d15e6240e small work in the logbook Heinrichsweikamp parents: 362 diff changeset	411 incf_eeprom_address d'35' ; Skip Bytes in EEPROM
ca3d15e6240e small work in the logbook Heinrichsweikamp parents: 362 diff changeset	412 call I2CREAD2 ; Total sample time in seconds
ca3d15e6240e small work in the logbook Heinrichsweikamp parents: 362 diff changeset	413 movff SSPBUF,xC+0
ca3d15e6240e small work in the logbook Heinrichsweikamp parents: 362 diff changeset	414 call I2CREAD2 ; Total sample time in seconds
ca3d15e6240e small work in the logbook Heinrichsweikamp parents: 362 diff changeset	415 movff SSPBUF,xC+1
ca3d15e6240e small work in the logbook Heinrichsweikamp parents: 362 diff changeset	416 decf_eeprom_address d'37' ; Macro, that subtracts 8Bit from eeprom_address:2
ca3d15e6240e small work in the logbook Heinrichsweikamp parents: 362 diff changeset	417 PUTC ':'
ca3d15e6240e small work in the logbook Heinrichsweikamp parents: 362 diff changeset	418 call I2CREAD2 ; read divetime seconds
ca3d15e6240e small work in the logbook Heinrichsweikamp parents: 362 diff changeset	419 movff SSPBUF,lo
ca3d15e6240e small work in the logbook Heinrichsweikamp parents: 362 diff changeset	420 bra display_profile_xscale ; continue below
ca3d15e6240e small work in the logbook Heinrichsweikamp parents: 362 diff changeset	421
ca3d15e6240e small work in the logbook Heinrichsweikamp parents: 362 diff changeset	422 display_profile_old_xscale:
208 3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	423 movff lo,xA+0 ; calculate x-scale for profile display
3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	424 movff hi,xA+1 ; calculate total diveseconds first
3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	425 movlw d'60' ; 60seconds are one minute...
3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	426 movwf xB+0
3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	427 clrf xB+1
3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	428 call mult16x16 ; result is in xC:2 !
366 ca3d15e6240e small work in the logbook Heinrichsweikamp parents: 362 diff changeset	429 PUTC ':'
208 3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	430 call I2CREAD2 ; read divetime seconds
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	431 movff SSPBUF,lo
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	432 movf lo,W ; add seconds to total seconds
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	433 addwf xC+0
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	434 movlw d'0'
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	435 addwfc xC+1 ; xC:2 now holds total dive seconds!
366 ca3d15e6240e small work in the logbook Heinrichsweikamp parents: 362 diff changeset	436
ca3d15e6240e small work in the logbook Heinrichsweikamp parents: 362 diff changeset	437 display_profile_xscale:
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	438 movff xC+0,xA+0 ; now calculate x-scale value
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	439 movff xC+1,xA+1
297 ceedf078b2d8 Gas Setup page 2 reworked, Texts 107, 108, 109,150, 149, 168, 42, 43, 53,54,55, 165 need update in french, spanish and german Heinrichsweikamp parents: 268 diff changeset	440 movlw d'154' ; 154pix width available
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	441 movwf xB+0
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	442 clrf xB+1
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	443 call div16x16 ; xA/xB=xC
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	444 movff xC+0,xA+0
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	445 movff xC+1,xA+1
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	446 movf samplesecs_value,W ; devide through sample interval!
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	447 movwf xB+0
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	448 clrf xB+1
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	449 call div16x16 ; xA/xB=xC
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	450 movff xC+0,profile_temp+0 ; store value (use any #xC sample, skip xC-1) into temp registers
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	451 movff xC+1,profile_temp+1 ; store value (use any #xC sample, skip xC-1) into temp registers
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	452 incf profile_temp+0,F ; increase one, because there may be a remainder
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	453 movlw d'0'
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	454 addwfc profile_temp+1,F
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	455
208 3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	456
207 d2a38470f0b2 faster logbook speed heinrichsweikamp parents: 204 diff changeset	457 bsf leftbind
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	458 output_99x ; divetime seconds
426 07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	459 STRCAT_PRINT " "
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	460
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	461 WIN_LEFT .05 + 7*.15
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	462 lfsr FSR2,letter
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	463
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	464 call I2CREAD2
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	465 movff SSPBUF,lo
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	466 call I2CREAD2
382 f2d5d93b4ca3 negative temperature in logbook and battery info menu heinrichsweikamp parents: 376 diff changeset	467 movff SSPBUF,hi ; Read min. Temperature
426 07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	468 movff lo,logbook_min_tp+0 ; Backup min Tp� too.
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	469 movff hi,logbook_min_tp+1
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	470 movlw color_pink ; Use same color as tp� curve
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	471 call PLED_set_color
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	472
382 f2d5d93b4ca3 negative temperature in logbook and battery info menu heinrichsweikamp parents: 376 diff changeset	473 call PLED_convert_signed_temperature ; converts lo:hi into signed-short and adds '-' to POSTINC2 if required
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	474 movlw d'3'
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	475 movwf ignore_digits
207 d2a38470f0b2 faster logbook speed heinrichsweikamp parents: 204 diff changeset	476 bsf leftbind
382 f2d5d93b4ca3 negative temperature in logbook and battery info menu heinrichsweikamp parents: 376 diff changeset	477 output_16dp d'2' ; temperature
123 6a94f96e9cea The big cleanup, again. JeanDo parents: 44 diff changeset	478 STRCAT_PRINT "�C" ; Display 2nd row of details
426 07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	479 call PLED_standard_color ; Back to normal
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	480
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	481 WIN_TOP .50
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	482 WIN_LEFT .05
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	483 lfsr FSR2,letter
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	484
207 d2a38470f0b2 faster logbook speed heinrichsweikamp parents: 204 diff changeset	485 call I2CREAD2 ; read Air pressure
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	486 movff SSPBUF,lo
207 d2a38470f0b2 faster logbook speed heinrichsweikamp parents: 204 diff changeset	487 call I2CREAD2 ; read Air pressure
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	488 movff SSPBUF,hi
266 ba109a7948df OSTC 2N uses exchanged switches... heinrichsweikamp parents: 253 diff changeset	489
207 d2a38470f0b2 faster logbook speed heinrichsweikamp parents: 204 diff changeset	490 bsf leftbind
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	491 output_16 ; Air pressure before dive
199 f5e9db793dd3 Minor missing translations JeanDo parents: 151 diff changeset	492 STRCAT "mbar "
f5e9db793dd3 Minor missing translations JeanDo parents: 151 diff changeset	493 OUTPUTTEXT .014 ; Desat
f5e9db793dd3 Minor missing translations JeanDo parents: 151 diff changeset	494 PUTC ' '
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	495
207 d2a38470f0b2 faster logbook speed heinrichsweikamp parents: 204 diff changeset	496 call I2CREAD2 ; read Desaturation time
d2a38470f0b2 faster logbook speed heinrichsweikamp parents: 204 diff changeset	497 movff SSPBUF,lo
d2a38470f0b2 faster logbook speed heinrichsweikamp parents: 204 diff changeset	498 call I2CREAD2 ; read Desaturation time
d2a38470f0b2 faster logbook speed heinrichsweikamp parents: 204 diff changeset	499 movff SSPBUF,hi
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	500 call convert_time ; converts hi:lo in minutes to hours (hi) and minutes (lo)
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	501 bsf leftbind
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	502 movf lo,W
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	503 movff hi,lo
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	504 movwf hi ; exchange lo and hi...
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	505 output_8 ; Hours
123 6a94f96e9cea The big cleanup, again. JeanDo parents: 44 diff changeset	506 PUTC ':'
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	507 movff hi,lo ; Minutes
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	508 output_99x
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	509 bcf leftbind
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	510 call word_processor ; display 3rd page of details
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	511
244 976260083540 Small fix (y-scale in logbook) heinrichsweikamp parents: 243 diff changeset	512 movff eeprom_address+0,average_depth_hold+0
976260083540 Small fix (y-scale in logbook) heinrichsweikamp parents: 243 diff changeset	513 movff eeprom_address+1,average_depth_hold+1 ; Pointer to Gaslist (For Page 2)
207 d2a38470f0b2 faster logbook speed heinrichsweikamp parents: 204 diff changeset	514
248 571626276aaa Logbook now shows gas changes in depth profile heinrichsweikamp parents: 245 diff changeset	515 incf_eeprom_address d'12' ; Skip 12 Bytes in EEPROM (faster) (Gaslist)
571626276aaa Logbook now shows gas changes in depth profile heinrichsweikamp parents: 245 diff changeset	516 call I2CREAD2 ; Read start gas (1-5)
426 07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	517 movff SSPBUF,average_depth_hold_total+3 ; keep copy to restore color
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	518 rcall profile_display_color ; Back to normal profile color.
248 571626276aaa Logbook now shows gas changes in depth profile heinrichsweikamp parents: 245 diff changeset	519 incf_eeprom_address d'5' ; Skip 5 Bytes in EEPROM (faster) (Battery, firmware)
571626276aaa Logbook now shows gas changes in depth profile heinrichsweikamp parents: 245 diff changeset	520
426 07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	521 call I2CREAD2 ; Read Tp� divisor
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	522 movf SSPBUF,W
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	523 andlw 0x0F ; Clear extra bits.
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	524 movwf divisor_temperature ; Store divisor
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	525 movwf logbook_temp1 ; Store to tp� counter too.
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	526
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	527 call I2CREAD2 ; Read divisor
426 07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	528 movf SSPBUF,W
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	529 andlw 0x0F
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	530 movwf divisor_deco ; Store divisor
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	531 movwf logbook_temp2 ; Store as temp, too
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	532
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	533 call I2CREAD2 ; Read divisor
374 6ee9c849ad92 GF profile. GF and Decotype in Logbok Heinrichsweikamp parents: 373 diff changeset	534 movff SSPBUF,divisor_gf ; Store divisor
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	535 call I2CREAD2 ; Read divisor
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	536 movff SSPBUF,divisor_ppo2 ; Store divisor
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	537 call I2CREAD2 ; Read divisor
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	538 movff SSPBUF,divisor_deco_debug ; Store divisor
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	539 call I2CREAD2 ; Read divisor
367 584741726190 CNS Profile added Heinrichsweikamp parents: 366 diff changeset	540 movff SSPBUF,divisor_cns ; Store divisor
243 38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	541 incf_eeprom_address d'2' ; Skip 2Bytes in EEPROM (faster)
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	542 ; 2 bytes salinity, GF
351 5c186a72cb5d Debugging the new logbook format, 64kB download routine heinrichsweikamp parents: 350 diff changeset	543 btfss logbook_format_0x21 ; 10byte extra?
5c186a72cb5d Debugging the new logbook format, 64kB download routine heinrichsweikamp parents: 350 diff changeset	544 bra display_profile2d ; No
5c186a72cb5d Debugging the new logbook format, 64kB download routine heinrichsweikamp parents: 350 diff changeset	545 incf_eeprom_address d'10' ; Skip another 10 byte from the header for 0x21 format
5c186a72cb5d Debugging the new logbook format, 64kB download routine heinrichsweikamp parents: 350 diff changeset	546 ; Average Depth, spare bytes
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	547
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	548 display_profile2d:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	549 ; Start Profile display
208 3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	550 ; Write 0m X-Line..
3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	551 movlw color_grey
3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	552 call PLED_set_color ; Make this configurable?
3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	553
3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	554 movlw d'75'
3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	555 movff WREG,win_top
3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	556 movlw d'5'
3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	557 movff WREG,win_leftx2 ; Left border (0-159)
3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	558 movlw d'1'
3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	559 movff WREG,win_height
3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	560 movlw d'155'
3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	561 movff WREG,win_width ; Right border (0-159)
3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	562 display_profile2e:
3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	563 call PLED_box ; Inputs: win_top, win_leftx2, win_height, win_width, win_color1, win_color2
3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	564 movff win_top,WREG ; Get row
3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	565 addwf last_temperature+0,W ; Add line interval distance to win_top
3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	566 tstfsz last_temperature+1 ; >255?
3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	567 movlw d'255' ; Yes, make win_top>239 -> Abort here
3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	568 btfsc STATUS,C ; A Cary from the addwf above?
3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	569 movlw d'255' ; Yes, make win_top>239 -> Abort here
3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	570 movff WREG,win_top ; Result in win_top again
3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	571 movff win_top,lo ; Get win_top in Bank1...
3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	572 movlw d'239' ; Limit
3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	573 cpfsgt lo ; >239?
3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	574 bra display_profile2e ; No, draw another line
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	575
208 3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	576 ; Write 0min Y-Line..
3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	577 movlw color_grey
3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	578 call PLED_set_color ; Make this configurable?
3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	579
3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	580 movlw d'75'
3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	581 movff WREG,win_top
3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	582 movlw d'4'
3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	583 movff WREG,win_leftx2 ; Left border (0-159)
3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	584 movlw d'164'
3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	585 movff WREG,win_height
3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	586 movlw d'1'
3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	587 movff WREG,win_width ; "Window" Width
3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	588 call PLED_box ; Inputs: win_top, win_leftx2, win_height, win_width, win_color1, win_color2
3b961f17aa3a dynamic scale for logbook view heinrichsweikamp parents: 207 diff changeset	589
371 160b3216b335 x-scale in logbook fixed Heinrichsweikamp parents: 367 diff changeset	590 ; Draw frame around profile
209 cdba979821ee frame around logbook scale, some more speed improvements heinrichsweikamp parents: 208 diff changeset	591 movlw color_blue
cdba979821ee frame around logbook scale, some more speed improvements heinrichsweikamp parents: 208 diff changeset	592 WIN_FRAME_COLOR .75, .239, .4, .159 ;top, bottom, left, right with color in WREG
cdba979821ee frame around logbook scale, some more speed improvements heinrichsweikamp parents: 208 diff changeset	593
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	594 call I2CREAD2 ; skip 0xFB (Header-end)
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	595 clrf timeout_counter2 ; here: used as counter for depth readings
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	596 call I2CREAD2 ; skip 0xFB (Header-end)
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	597 movlw d'158'
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	598 movwf ignore_digits ; here: used as counter for x-pixels
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	599 bcf second_FD ; clear flag
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	600 movlw d'5'
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	601 movwf timeout_counter3 ; here: used as colum x2 (Start at Colum 5)
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	602 movlw d'75' ; Zero-m row
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	603 movwf apnoe_mins ; here: used for fill between rows
426 07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	604 movwf logbook_last_tp ; Initialise for Tp� curve too.
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	605 incf timeout_counter3,W ; Init Column
146 c09b0be2e1e6 PIXEL_WRITE macros. JeanDo parents: 142 diff changeset	606
426 07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	607
248 571626276aaa Logbook now shows gas changes in depth profile heinrichsweikamp parents: 245 diff changeset	608 INIT_PIXEL_WROTE timeout_counter3 ; pixel x2 (Also sets standard Color!)
571626276aaa Logbook now shows gas changes in depth profile heinrichsweikamp parents: 245 diff changeset	609
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	610 profile_display_loop:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	611 movff profile_temp+0,profile_temp2+0
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	612 movff profile_temp+1,profile_temp2+1 ; 16Bit x-scaler
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	613 incf profile_temp2+1,F
42 da553e5c7a90 1.63 in work heinrichsweikamp parents: 41 diff changeset	614 tstfsz profile_temp2+0 ; Must not be Zero
da553e5c7a90 1.63 in work heinrichsweikamp parents: 41 diff changeset	615 bra profile_display_loop2 ; Not Zero!
da553e5c7a90 1.63 in work heinrichsweikamp parents: 41 diff changeset	616 incf profile_temp2+0,F ; Zero, Increase!
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	617
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	618 profile_display_loop2:
426 07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	619 rcall profile_view_get_depth ; reads depth, temp and profile data
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	620
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	621 btfsc second_FD ; end-of profile reached?
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	622 bra profile_display_loop_done ; Yes, skip all remaining pixels
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	623
426 07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	624 ;---- Draw Ceiling curve, if any ---------------------------------------------
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	625 movf divisor_deco,W
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	626 bz profile_display_skip_deco
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	627
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	628 movf logbook_ceiling,W ; Any deco ceiling ?
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	629 bz profile_display_skip_deco
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	630
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	631 mullw .100 ; Yes: convert to mbar
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	632 movff PRODL,sub_a+0
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	633 movff PRODH,sub_a+1
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	634 movff logbook_cur_depth+0,sub_b+0 ; Compare with UNSIGNED current depth (16bits)
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	635 movff logbook_cur_depth+1,sub_b+1
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	636 call subU16 ; set (or not) neg_flag
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	637
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	638 movlw color_dark_green ; Dark green if Ok,
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	639 btfss neg_flag
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	640 movlw color_dark_red ; Or dark red if ceiling overflown.
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	641 call PLED_set_color
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	642
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	643 movff PRODL,xA+0
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	644 movff PRODH,xA+1
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	645 movff sim_pressure+0,xB+0 ; devide pressure in mbar/quant for row offsett
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	646 movff sim_pressure+1,xB+1
426 07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	647 call div16x16 ; xA/xB=xC
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	648
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	649 movlw d'76' ; Starts right after the top blue line.
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	650 movff WREG,win_top
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	651 movff timeout_counter3,win_leftx2 ; Left border (0-159)
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	652 movff xC+0,win_height
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	653 call half_vertical_line ; Inputs: win_top, win_leftx2, win_height, win_color1, win_color2
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	654 profile_display_skip_deco:
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	655
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	656 ;---- Draw Tp� curve, if any ---------------------------------------------
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	657 movf divisor_temperature,W
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	658 bz profile_display_skip_temp
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	659
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	660 movlw LOW((.153.8)/.100) ; fixed tp� scale: (10.0� scale8 )/153pix
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	661 movwf xB+0
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	662 movlw HIGH((.153*.8)/.100)
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	663 movwf xB+1
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	664
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	665 movf logbook_cur_tp+0,W
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	666 subwf logbook_min_tp+0,W
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	667 movwf xA+0
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	668 movf logbook_cur_tp+1,W
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	669 subwfb logbook_min_tp+1,W
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	670 movwf xA+1
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	671 call mult16x16 ; xA*xB=xC
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	672
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	673 ; scale: divide by 8. Don't bother about CARRY for the high byte.
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	674 rrcf xC+1,F
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	675 rrcf xC+0,F
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	676 rrcf xC+1,F
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	677 rrcf xC+0,F
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	678 rrcf xC+1,F
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	679 rrcf xC+0,F
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	680
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	681 movlw .75
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	682 subwf xC+0,F ; Upside-down: Y = .75 + (.153 - result)
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	683
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	684 movlw color_pink
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	685 call PLED_set_color
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	686
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	687 movff logbook_last_tp,xC+1
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	688 call profile_display_fill ; In this column between this row (xC+0) and the last row (apnoe_mins)
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	689 movff xC+0,logbook_last_tp
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	690 PIXEL_WRITE timeout_counter3,xC+0 ; Set col(0..159) x row (0..239), put a std color pixel.
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	691 profile_display_skip_temp:
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	692
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	693 ;---- Draw depth curve ---------------------------------------------------
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	694 movff sim_pressure+0,xB+0 ; devide pressure in mbar/quant for row offsett
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	695 movff sim_pressure+1,xB+1
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	696 movff logbook_cur_depth+0,xA+0
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	697 movff logbook_cur_depth+1,xA+1
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	698 call div16x16 ; xA/xB=xC
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	699 movlw d'75'
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	700 addwf xC+0,F ; add 75 pixel offset to result
41 3ab1188651af 1.63 in work... heinrichsweikamp parents: 33 diff changeset	701
426 07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	702 btfsc STATUS,C ; Ignore potential profile errors
44 475a9e536d77 1.63beta release heinrichsweikamp parents: 42 diff changeset	703 movff apnoe_mins,xC+0
41 3ab1188651af 1.63 in work... heinrichsweikamp parents: 33 diff changeset	704
426 07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	705 rcall profile_display_color ; Back to normal profile color.
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	706 movff apnoe_mins,xC+1
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	707 call profile_display_fill ; In this column between this row (xC+0) and the last row (apnoe_mins)
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	708 movff xC+0,apnoe_mins ; Store last row for fill routine
142 8b75ba28d641 Screen-flipping custom function. JeanDo parents: 130 diff changeset	709 incf timeout_counter3,F
8b75ba28d641 Screen-flipping custom function. JeanDo parents: 130 diff changeset	710
146 c09b0be2e1e6 PIXEL_WRITE macros. JeanDo parents: 142 diff changeset	711 PIXEL_WRITE timeout_counter3,xC+0 ; Set col(0..159) x row (0..239), put a std color pixel.
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	712
426 07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	713 ;---- Draw CNS curve, if any ---------------------------------------------
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	714 movf divisor_cns,W
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	715 bz profile_display_skip_cns
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	716 ;
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	717 ; TODO HERE
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	718 ;
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	719 profile_display_skip_cns:
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	720
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	721 ;---- Draw GF curve, if any ----------------------------------------------
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	722 movf divisor_gf,W
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	723 bz profile_display_skip_gf
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	724 ;
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	725 ; TODO HERE
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	726 ;
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	727 profile_display_skip_gf:
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	728
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	729 ;---- All curves done.
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	730
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	731 profile_display_skip_loop1: ; skips readings!
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	732 dcfsnz profile_temp2+0,F
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	733 bra profile_display_loop3 ; check 16bit....
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	734
426 07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	735 rcall profile_view_get_depth ; reads depth, temp and profile data
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	736 bra profile_display_skip_loop1
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	737
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	738 profile_display_loop3:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	739 decfsz profile_temp2+1,F ; 16 bit x-scaler test
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	740 bra profile_display_skip_loop1 ; skips readings!
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	741
268 7d24c9d62095 average depth in logbook fixed heinrichsweikamp parents: 266 diff changeset	742 decfsz ignore_digits,F ; counts drawn x-pixels to zero
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	743 bra profile_display_loop ; Not ready yet
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	744 ; Done.
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	745 profile_display_loop_done:
248 571626276aaa Logbook now shows gas changes in depth profile heinrichsweikamp parents: 245 diff changeset	746 call PLED_standard_color ; Restore color
243 38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	747
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	748 bcf sleepmode ; clear some flags
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	749 bcf menubit2
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	750 bcf menubit3
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	751 bcf switch_right
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	752 bcf switch_left
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	753 clrf timeout_counter2
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	754
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	755 display_profile_loop:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	756 call check_switches_logbook
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	757 btfsc menubit2 ; SET/MENU?
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	758 bra exit_profileview ; back to list
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	759 btfsc menubit3 ; ENTER?
243 38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	760 bra profileview_page2 ; Switch to Page2 of profile view
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	761 btfsc onesecupdate
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	762 call timeout_surfmode ; timeout
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	763 btfsc onesecupdate
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	764 call set_dive_modes ; check, if divemode must be entered
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	765 bcf onesecupdate ; one second update
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	766 btfsc sleepmode ; Timeout?
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	767 bra exit_profileview ; back to list
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	768 btfsc divemode
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	769 goto restart ; Enter Divemode if required
243 38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	770 bra display_profile_loop ; wait for something to do
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	771
426 07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	772 ;=============================================================================
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	773 profile_display_color:
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	774 movff average_depth_hold_total+3,active_gas ; Restore gas color.
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	775 dcfsnz active_gas,F
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	776 movlw color_white ; Color for Gas 1
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	777 dcfsnz active_gas,F
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	778 movlw color_green ; Color for Gas 2
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	779 dcfsnz active_gas,F
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	780 movlw color_red ; Color for Gas 3
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	781 dcfsnz active_gas,F
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	782 movlw color_yellow ; Color for Gas 4
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	783 dcfsnz active_gas,F
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	784 movlw color_violet ; Color for Gas 5
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	785 dcfsnz active_gas,F
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	786 movlw color_cyan ; Color for Gas 6
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	787 goto PLED_set_color ; Set Color...
243 38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	788
426 07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	789 ;=============================================================================
243 38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	790 profileview_page2:
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	791 WIN_BOX_BLACK .0, .74, .0, .159 ;top, bottom, left, right
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	792
244 976260083540 Small fix (y-scale in logbook) heinrichsweikamp parents: 243 diff changeset	793 movff average_depth_hold+0,eeprom_address+0
976260083540 Small fix (y-scale in logbook) heinrichsweikamp parents: 243 diff changeset	794 movff average_depth_hold+1,eeprom_address+1 ; Pointer to Gaslist
243 38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	795
248 571626276aaa Logbook now shows gas changes in depth profile heinrichsweikamp parents: 245 diff changeset	796 movlw color_white ; Color for Gas 1
571626276aaa Logbook now shows gas changes in depth profile heinrichsweikamp parents: 245 diff changeset	797 call PLED_set_color ; Set Color...
243 38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	798 bsf leftbind
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	799 WIN_TOP .0
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	800 WIN_LEFT .0
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	801 STRCPY "G1:"
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	802 call I2CREAD2 ; Gas1 current O2
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	803 movff SSPBUF,lo
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	804 output_99x
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	805 PUTC '/'
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	806 call I2CREAD2 ; Gas1 current HE
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	807 movff SSPBUF,lo
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	808 output_8
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	809 call word_processor ; Display Gas information
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	810
248 571626276aaa Logbook now shows gas changes in depth profile heinrichsweikamp parents: 245 diff changeset	811 movlw color_green ; Color for Gas 2
571626276aaa Logbook now shows gas changes in depth profile heinrichsweikamp parents: 245 diff changeset	812 call PLED_set_color ; Set Color...
243 38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	813 WIN_TOP .25
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	814 STRCPY "G2:"
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	815 call I2CREAD2 ; Gas2 current O2
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	816 movff SSPBUF,lo
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	817 output_8
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	818 PUTC '/'
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	819 call I2CREAD2 ; Gas2 current HE
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	820 movff SSPBUF,lo
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	821 output_8
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	822 call word_processor ; Display Gas information
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	823
248 571626276aaa Logbook now shows gas changes in depth profile heinrichsweikamp parents: 245 diff changeset	824 movlw color_red ; Color for Gas 3
571626276aaa Logbook now shows gas changes in depth profile heinrichsweikamp parents: 245 diff changeset	825 call PLED_set_color ; Set Color...
243 38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	826 WIN_TOP .50
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	827 STRCPY "G3:"
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	828 call I2CREAD2 ; Gas3 current O2
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	829 movff SSPBUF,lo
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	830 output_8
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	831 PUTC '/'
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	832 call I2CREAD2 ; Gas3 current HE
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	833 movff SSPBUF,lo
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	834 output_8
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	835 call word_processor ; Display Gas information
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	836
248 571626276aaa Logbook now shows gas changes in depth profile heinrichsweikamp parents: 245 diff changeset	837 movlw color_yellow ; Color for Gas 4
571626276aaa Logbook now shows gas changes in depth profile heinrichsweikamp parents: 245 diff changeset	838 call PLED_set_color ; Set Color...
243 38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	839 WIN_TOP .0
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	840 WIN_LEFT .60
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	841 STRCPY "G4:"
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	842 call I2CREAD2 ; Gas4 current O2
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	843 movff SSPBUF,lo
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	844 output_8
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	845 PUTC '/'
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	846 call I2CREAD2 ; Gas4 current HE
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	847 movff SSPBUF,lo
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	848 output_8
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	849 call word_processor ; Display Gas information
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	850
248 571626276aaa Logbook now shows gas changes in depth profile heinrichsweikamp parents: 245 diff changeset	851 movlw color_violet ; Color for Gas 5
571626276aaa Logbook now shows gas changes in depth profile heinrichsweikamp parents: 245 diff changeset	852 call PLED_set_color ; Set Color...
243 38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	853 WIN_TOP .25
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	854 STRCPY "G5:"
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	855 call I2CREAD2 ; Gas5 current O2
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	856 movff SSPBUF,lo
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	857 output_8
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	858 PUTC '/'
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	859 call I2CREAD2 ; Gas5 current HE
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	860 movff SSPBUF,lo
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	861 output_8
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	862 call word_processor ; Display Gas information
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	863
248 571626276aaa Logbook now shows gas changes in depth profile heinrichsweikamp parents: 245 diff changeset	864 movlw color_cyan ; Color for Gas 6
571626276aaa Logbook now shows gas changes in depth profile heinrichsweikamp parents: 245 diff changeset	865 call PLED_set_color ; Set Color...
243 38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	866 WIN_TOP .50
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	867 STRCPY "G6:"
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	868 call I2CREAD2 ; Gas6 current O2
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	869 movff SSPBUF,lo
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	870 output_8
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	871 PUTC '/'
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	872 call I2CREAD2 ; Gas6 current HE
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	873 movff SSPBUF,lo
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	874 output_8
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	875 call word_processor ; Display Gas information
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	876
248 571626276aaa Logbook now shows gas changes in depth profile heinrichsweikamp parents: 245 diff changeset	877 call PLED_standard_color
243 38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	878 WIN_TOP .0
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	879 WIN_LEFT .120
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	880 STRCPY "1st:"
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	881 call I2CREAD2 ; Start Gas
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	882 movff SSPBUF,lo
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	883 output_8
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	884 call word_processor ; Display Gas information
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	885
253 3a4096f32526 show CNS in logbook for all dives made with V1.84beta and later heinrichsweikamp parents: 249 diff changeset	886
3a4096f32526 show CNS in logbook for all dives made with V1.84beta and later heinrichsweikamp parents: 249 diff changeset	887 bcf show_cns_in_logbook ; clear flag
243 38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	888 WIN_TOP .25
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	889 STRCPY "V"
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	890 call I2CREAD2 ; Firmware x
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	891 movff SSPBUF,lo
253 3a4096f32526 show CNS in logbook for all dives made with V1.84beta and later heinrichsweikamp parents: 249 diff changeset	892 movff SSPBUF,hi
243 38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	893 output_8
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	894 PUTC '.'
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	895 call I2CREAD2 ; Firmware y
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	896 movff SSPBUF,lo
253 3a4096f32526 show CNS in logbook for all dives made with V1.84beta and later heinrichsweikamp parents: 249 diff changeset	897 movlw .83 ; Check firmware y > 83
3a4096f32526 show CNS in logbook for all dives made with V1.84beta and later heinrichsweikamp parents: 249 diff changeset	898 cpfslt lo ; <83?
3a4096f32526 show CNS in logbook for all dives made with V1.84beta and later heinrichsweikamp parents: 249 diff changeset	899 bsf show_cns_in_logbook ; No, set flag
3a4096f32526 show CNS in logbook for all dives made with V1.84beta and later heinrichsweikamp parents: 249 diff changeset	900 movlw .2 ; Check firmware x > 1
3a4096f32526 show CNS in logbook for all dives made with V1.84beta and later heinrichsweikamp parents: 249 diff changeset	901 cpfslt hi ; <2?
3a4096f32526 show CNS in logbook for all dives made with V1.84beta and later heinrichsweikamp parents: 249 diff changeset	902 bsf show_cns_in_logbook ; No, set flag
243 38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	903 output_8
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	904 call word_processor ; Display Gas information
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	905 bcf leftbind ; Clear flag
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	906
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	907 WIN_TOP .50
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	908 lfsr FSR2,letter
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	909 call I2CREAD2 ; Battery lo
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	910 movff SSPBUF,lo
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	911 call I2CREAD2 ; Battery hi
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	912 movff SSPBUF,hi
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	913 movlw d'1'
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	914 movwf ignore_digits
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	915 bsf ignore_digit5 ; do not display mV
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	916 bsf leftbind
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	917 output_16dp d'2' ; e.g. 3.45V
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	918 bcf leftbind
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	919 STRCAT_PRINT "V"
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	920
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	921 bcf leftbind ; Clear flag
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	922
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	923 ; call I2CREAD2 ; Skip Sampling rate
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	924
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	925 bcf menubit2
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	926 bcf menubit3
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	927 bcf switch_right
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	928 bcf switch_left
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	929 clrf timeout_counter2
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	930 display_profile2_loop:
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	931 call check_switches_logbook
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	932 btfsc menubit2 ; SET/MENU?
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	933 bra exit_profileview ; back to list
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	934 btfsc menubit3 ; ENTER?
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	935 bra profileview_page3 ; Switch to Page3 of profile view
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	936 btfsc onesecupdate
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	937 call timeout_surfmode ; timeout
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	938 btfsc onesecupdate
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	939 call set_dive_modes ; check, if divemode must be entered
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	940 bcf onesecupdate ; one second update
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	941 btfsc sleepmode ; Timeout?
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	942 bra exit_profileview ; back to list
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	943 btfsc divemode
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	944 goto restart ; Enter Divemode if required
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	945 bra display_profile2_loop ; wait for something to do
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	946
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	947 profileview_page3:
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	948 WIN_BOX_BLACK .0, .74, .0, .159 ;top, bottom, left, right
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	949
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	950 call PLED_standard_color
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	951
244 976260083540 Small fix (y-scale in logbook) heinrichsweikamp parents: 243 diff changeset	952 movff average_depth_hold+0,eeprom_address+0
976260083540 Small fix (y-scale in logbook) heinrichsweikamp parents: 243 diff changeset	953 movff average_depth_hold+1,eeprom_address+1 ; Pointer to Gaslist
243 38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	954
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	955 incf_eeprom_address d'24' ; Point to "Salinity"
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	956 bsf leftbind
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	957 WIN_TOP .0
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	958 WIN_LEFT .0
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	959 call I2CREAD2 ; read Salinity
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	960 lfsr FSR2,letter
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	961 movff SSPBUF,lo
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	962 clrf hi
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	963 output_16dp d'3'
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	964 STRCAT_PRINT "kg/l"
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	965
253 3a4096f32526 show CNS in logbook for all dives made with V1.84beta and later heinrichsweikamp parents: 249 diff changeset	966 call I2CREAD2 ; Read CNS%
3a4096f32526 show CNS in logbook for all dives made with V1.84beta and later heinrichsweikamp parents: 249 diff changeset	967
3a4096f32526 show CNS in logbook for all dives made with V1.84beta and later heinrichsweikamp parents: 249 diff changeset	968 btfss show_cns_in_logbook ; Show CNS?
3a4096f32526 show CNS in logbook for all dives made with V1.84beta and later heinrichsweikamp parents: 249 diff changeset	969 bra logbook_skip_cns ; No
243 38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	970
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	971 movff SSPBUF,lo
253 3a4096f32526 show CNS in logbook for all dives made with V1.84beta and later heinrichsweikamp parents: 249 diff changeset	972 WIN_TOP .25
3a4096f32526 show CNS in logbook for all dives made with V1.84beta and later heinrichsweikamp parents: 249 diff changeset	973 STRCPY "CNS:"
243 38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	974 output_8
253 3a4096f32526 show CNS in logbook for all dives made with V1.84beta and later heinrichsweikamp parents: 249 diff changeset	975 STRCAT_PRINT "%" ; Display CNS %
243 38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	976
253 3a4096f32526 show CNS in logbook for all dives made with V1.84beta and later heinrichsweikamp parents: 249 diff changeset	977 logbook_skip_cns:
349 ed137d66ac65 Preparations for new "0x21" logbook format heinrichsweikamp parents: 337 diff changeset	978 btfss logbook_format_0x21
ed137d66ac65 Preparations for new "0x21" logbook format heinrichsweikamp parents: 337 diff changeset	979 bra skip_new_format_0x21_info ; Do not show remaining info from dive
268 7d24c9d62095 average depth in logbook fixed heinrichsweikamp parents: 266 diff changeset	980
374 6ee9c849ad92 GF profile. GF and Decotype in Logbok Heinrichsweikamp parents: 373 diff changeset	981 ; Show all new 0x21 data
6ee9c849ad92 GF profile. GF and Decotype in Logbok Heinrichsweikamp parents: 373 diff changeset	982 ; Show average depth
349 ed137d66ac65 Preparations for new "0x21" logbook format heinrichsweikamp parents: 337 diff changeset	983 WIN_TOP .50
ed137d66ac65 Preparations for new "0x21" logbook format heinrichsweikamp parents: 337 diff changeset	984 call I2CREAD2 ; Read average depth
ed137d66ac65 Preparations for new "0x21" logbook format heinrichsweikamp parents: 337 diff changeset	985 movff SSPBUF,lo
ed137d66ac65 Preparations for new "0x21" logbook format heinrichsweikamp parents: 337 diff changeset	986 call I2CREAD2 ; Read average depth
ed137d66ac65 Preparations for new "0x21" logbook format heinrichsweikamp parents: 337 diff changeset	987 movff SSPBUF,hi
243 38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	988 STRCPY "Avr:"
349 ed137d66ac65 Preparations for new "0x21" logbook format heinrichsweikamp parents: 337 diff changeset	989 output_16dp d'3' ; Average depth
243 38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	990 STRCAT_PRINT "m"
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	991
375 84a1762de6ab show saturation multiplier in logbook heinrichsweikamp parents: 374 diff changeset	992 incf_eeprom_address d'4' ; Skip total dive time and GF factors
84a1762de6ab show saturation multiplier in logbook heinrichsweikamp parents: 374 diff changeset	993 call I2CREAD ; Read deco modell
84a1762de6ab show saturation multiplier in logbook heinrichsweikamp parents: 374 diff changeset	994 decf_eeprom_address d'2' ; back to GF factos
84a1762de6ab show saturation multiplier in logbook heinrichsweikamp parents: 374 diff changeset	995
374 6ee9c849ad92 GF profile. GF and Decotype in Logbok Heinrichsweikamp parents: 373 diff changeset	996 WIN_TOP .0
6ee9c849ad92 GF profile. GF and Decotype in Logbok Heinrichsweikamp parents: 373 diff changeset	997 WIN_LEFT .75
375 84a1762de6ab show saturation multiplier in logbook heinrichsweikamp parents: 374 diff changeset	998
84a1762de6ab show saturation multiplier in logbook heinrichsweikamp parents: 374 diff changeset	999 movff SSPBUF,lo
84a1762de6ab show saturation multiplier in logbook heinrichsweikamp parents: 374 diff changeset	1000 movlw d'3'
84a1762de6ab show saturation multiplier in logbook heinrichsweikamp parents: 374 diff changeset	1001 cpfsgt lo
84a1762de6ab show saturation multiplier in logbook heinrichsweikamp parents: 374 diff changeset	1002 bra logbook_show_sat
84a1762de6ab show saturation multiplier in logbook heinrichsweikamp parents: 374 diff changeset	1003
84a1762de6ab show saturation multiplier in logbook heinrichsweikamp parents: 374 diff changeset	1004 ; Show GF settings
374 6ee9c849ad92 GF profile. GF and Decotype in Logbok Heinrichsweikamp parents: 373 diff changeset	1005 call I2CREAD2 ; Read GF_lo
6ee9c849ad92 GF profile. GF and Decotype in Logbok Heinrichsweikamp parents: 373 diff changeset	1006 movff SSPBUF,hi
6ee9c849ad92 GF profile. GF and Decotype in Logbok Heinrichsweikamp parents: 373 diff changeset	1007 call I2CREAD2 ; Read GF_hi
6ee9c849ad92 GF profile. GF and Decotype in Logbok Heinrichsweikamp parents: 373 diff changeset	1008 movff SSPBUF,lo
6ee9c849ad92 GF profile. GF and Decotype in Logbok Heinrichsweikamp parents: 373 diff changeset	1009 STRCPY "GF:"
6ee9c849ad92 GF profile. GF and Decotype in Logbok Heinrichsweikamp parents: 373 diff changeset	1010 output_8 ; GF_hi
6ee9c849ad92 GF profile. GF and Decotype in Logbok Heinrichsweikamp parents: 373 diff changeset	1011 PUTC '/'
375 84a1762de6ab show saturation multiplier in logbook heinrichsweikamp parents: 374 diff changeset	1012 movff hi,lo ; copy GF_lo
374 6ee9c849ad92 GF profile. GF and Decotype in Logbok Heinrichsweikamp parents: 373 diff changeset	1013 output_8 ; GF_lo
6ee9c849ad92 GF profile. GF and Decotype in Logbok Heinrichsweikamp parents: 373 diff changeset	1014 call word_processor
375 84a1762de6ab show saturation multiplier in logbook heinrichsweikamp parents: 374 diff changeset	1015 bra logbook_deco_model ; Skip Sat
374 6ee9c849ad92 GF profile. GF and Decotype in Logbok Heinrichsweikamp parents: 373 diff changeset	1016
375 84a1762de6ab show saturation multiplier in logbook heinrichsweikamp parents: 374 diff changeset	1017 logbook_show_sat:
84a1762de6ab show saturation multiplier in logbook heinrichsweikamp parents: 374 diff changeset	1018 call I2CREAD2 ; Read Saturation x
84a1762de6ab show saturation multiplier in logbook heinrichsweikamp parents: 374 diff changeset	1019 movff SSPBUF,hi
84a1762de6ab show saturation multiplier in logbook heinrichsweikamp parents: 374 diff changeset	1020 call I2CREAD2 ; Read Desaturation x
84a1762de6ab show saturation multiplier in logbook heinrichsweikamp parents: 374 diff changeset	1021 movff SSPBUF,lo
84a1762de6ab show saturation multiplier in logbook heinrichsweikamp parents: 374 diff changeset	1022 STRCPY "Sat:"
84a1762de6ab show saturation multiplier in logbook heinrichsweikamp parents: 374 diff changeset	1023 output_8 ; Sat x
84a1762de6ab show saturation multiplier in logbook heinrichsweikamp parents: 374 diff changeset	1024 STRCAT "%/"
84a1762de6ab show saturation multiplier in logbook heinrichsweikamp parents: 374 diff changeset	1025 movff hi,lo ; copy Desat x
84a1762de6ab show saturation multiplier in logbook heinrichsweikamp parents: 374 diff changeset	1026 output_8 ; Desat x
84a1762de6ab show saturation multiplier in logbook heinrichsweikamp parents: 374 diff changeset	1027 STRCAT_PRINT "%"
84a1762de6ab show saturation multiplier in logbook heinrichsweikamp parents: 374 diff changeset	1028
84a1762de6ab show saturation multiplier in logbook heinrichsweikamp parents: 374 diff changeset	1029 logbook_deco_model:
374 6ee9c849ad92 GF profile. GF and Decotype in Logbok Heinrichsweikamp parents: 373 diff changeset	1030 ; Show deco model
6ee9c849ad92 GF profile. GF and Decotype in Logbok Heinrichsweikamp parents: 373 diff changeset	1031 WIN_TOP .25
6ee9c849ad92 GF profile. GF and Decotype in Logbok Heinrichsweikamp parents: 373 diff changeset	1032 call I2CREAD2 ; Read deco modell
6ee9c849ad92 GF profile. GF and Decotype in Logbok Heinrichsweikamp parents: 373 diff changeset	1033 movff SSPBUF,lo
6ee9c849ad92 GF profile. GF and Decotype in Logbok Heinrichsweikamp parents: 373 diff changeset	1034 lfsr FSR2,letter
6ee9c849ad92 GF profile. GF and Decotype in Logbok Heinrichsweikamp parents: 373 diff changeset	1035 incf lo,F ; +1
6ee9c849ad92 GF profile. GF and Decotype in Logbok Heinrichsweikamp parents: 373 diff changeset	1036 dcfsnz lo,F ; ZH-L16 OC?
6ee9c849ad92 GF profile. GF and Decotype in Logbok Heinrichsweikamp parents: 373 diff changeset	1037 movlw d'101' ; Textnumber
6ee9c849ad92 GF profile. GF and Decotype in Logbok Heinrichsweikamp parents: 373 diff changeset	1038 dcfsnz lo,F ; Gauge?
6ee9c849ad92 GF profile. GF and Decotype in Logbok Heinrichsweikamp parents: 373 diff changeset	1039 movlw d'102' ; Textnumber
6ee9c849ad92 GF profile. GF and Decotype in Logbok Heinrichsweikamp parents: 373 diff changeset	1040 dcfsnz lo,F ; ZH-L16 CC?
6ee9c849ad92 GF profile. GF and Decotype in Logbok Heinrichsweikamp parents: 373 diff changeset	1041 movlw d'104' ; Textnumber
6ee9c849ad92 GF profile. GF and Decotype in Logbok Heinrichsweikamp parents: 373 diff changeset	1042 dcfsnz lo,F ; Apnoe?
6ee9c849ad92 GF profile. GF and Decotype in Logbok Heinrichsweikamp parents: 373 diff changeset	1043 movlw d'138' ; Textnumber
6ee9c849ad92 GF profile. GF and Decotype in Logbok Heinrichsweikamp parents: 373 diff changeset	1044 dcfsnz lo,F ; L16-GF OC?
6ee9c849ad92 GF profile. GF and Decotype in Logbok Heinrichsweikamp parents: 373 diff changeset	1045 movlw d'152' ; Textnumber
6ee9c849ad92 GF profile. GF and Decotype in Logbok Heinrichsweikamp parents: 373 diff changeset	1046 dcfsnz lo,F ; L16-GF CC?
6ee9c849ad92 GF profile. GF and Decotype in Logbok Heinrichsweikamp parents: 373 diff changeset	1047 movlw d'236' ; Textnumber
6ee9c849ad92 GF profile. GF and Decotype in Logbok Heinrichsweikamp parents: 373 diff changeset	1048 call displaytext0_low ; Outputs to POSTINC2
6ee9c849ad92 GF profile. GF and Decotype in Logbok Heinrichsweikamp parents: 373 diff changeset	1049 call word_processor
243 38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	1050
349 ed137d66ac65 Preparations for new "0x21" logbook format heinrichsweikamp parents: 337 diff changeset	1051 skip_new_format_0x21_info:
243 38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	1052 bcf menubit2
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	1053 bcf menubit3
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	1054 bcf switch_right
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	1055 bcf switch_left
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	1056 clrf timeout_counter2
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	1057 display_profile3_loop:
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	1058 call check_switches_logbook
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	1059 btfsc menubit2 ; SET/MENU?
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	1060 bra exit_profileview ; back to list
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	1061 btfsc menubit3 ; ENTER?
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	1062 bra exit_profileview ; back to list
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	1063 btfsc onesecupdate
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	1064 call timeout_surfmode ; timeout
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	1065 btfsc onesecupdate
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	1066 call set_dive_modes ; check, if divemode must be entered
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	1067 bcf onesecupdate ; one second update
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	1068 btfsc sleepmode ; Timeout?
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	1069 bra exit_profileview ; back to list
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	1070 btfsc divemode
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	1071 goto restart ; Enter Divemode if required
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	1072 bra display_profile3_loop ; wait for something to do
38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	1073
426 07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	1074 ;=============================================================================
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	1075 ; Draw a vertical line between xC+1 and xC+0, at current X position.
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	1076 ;
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	1077 ; Note: should keep xC+0
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	1078 ; Note: ascending or descending !
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	1079 ;
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	1080 profile_display_fill:
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	1081 ; First, check if xC+0>apnoe_mins or xC+0<aponoe_mins
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1082 movf xC+0,W
426 07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	1083 cpfseq xC+1 ; xC+0 = apone_mins?
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1084 bra profile_display_fill2 ; No!
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1085 return
130 d721b49b8934 Fixed profile view (Logbook) Heinrichsweikamp parents: 123 diff changeset	1086
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1087 profile_display_fill2:
426 07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	1088 cpfsgt xC+1 ; apnoe_mins>xC+0?
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1089 bra profile_display_fill_up ; Yes!
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1090
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1091 profile_display_fill_down2: ; Loop
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1092 decf xC+1,F
142 8b75ba28d641 Screen-flipping custom function. JeanDo parents: 130 diff changeset	1093
146 c09b0be2e1e6 PIXEL_WRITE macros. JeanDo parents: 142 diff changeset	1094 HALF_PIXEL_WRITE xC+1 ; Updates just row (0..239)
3 3cf8af30b36e v1.51 beta heinrichsweikamp parents: 0 diff changeset	1095
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1096 movf xC+0,W
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1097 cpfseq xC+1 ; Loop until xC+1=xC+0
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1098 bra profile_display_fill_down2
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1099 return ; apnoe_mins and xC+0 are untouched
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1100
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1101 profile_display_fill_up: ; Fill upwards from xC+0 to apone_mins!
426 07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	1102 incf xC+1,F
142 8b75ba28d641 Screen-flipping custom function. JeanDo parents: 130 diff changeset	1103
146 c09b0be2e1e6 PIXEL_WRITE macros. JeanDo parents: 142 diff changeset	1104 HALF_PIXEL_WRITE xC+1 ; Updates just row (0..239)
3 3cf8af30b36e v1.51 beta heinrichsweikamp parents: 0 diff changeset	1105
426 07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	1106 movf xC+0,W
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1107 cpfseq xC+1 ; Loop until xC+1=apnoe_mins
426 07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	1108 bra profile_display_fill_up
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1109 return ; apnoe_mins and xC+0 are untouched
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1110
426 07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	1111 ;=============================================================================
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	1112
371 160b3216b335 x-scale in logbook fixed Heinrichsweikamp parents: 367 diff changeset	1113 profile_view_get_depth:
160b3216b335 x-scale in logbook fixed Heinrichsweikamp parents: 367 diff changeset	1114 incf average_divesecs+0,F
160b3216b335 x-scale in logbook fixed Heinrichsweikamp parents: 367 diff changeset	1115 movlw d'0'
160b3216b335 x-scale in logbook fixed Heinrichsweikamp parents: 367 diff changeset	1116 addwfc average_divesecs+1,F ; Count read pixels
160b3216b335 x-scale in logbook fixed Heinrichsweikamp parents: 367 diff changeset	1117
160b3216b335 x-scale in logbook fixed Heinrichsweikamp parents: 367 diff changeset	1118 movf average_divesecs+0,W
160b3216b335 x-scale in logbook fixed Heinrichsweikamp parents: 367 diff changeset	1119 cpfseq average_depth_hold_total+0
160b3216b335 x-scale in logbook fixed Heinrichsweikamp parents: 367 diff changeset	1120 bra profile_view_get_depth_no_line ; no need to draw a 10min line, continue
160b3216b335 x-scale in logbook fixed Heinrichsweikamp parents: 367 diff changeset	1121 movf average_divesecs+1,W
160b3216b335 x-scale in logbook fixed Heinrichsweikamp parents: 367 diff changeset	1122 cpfseq average_depth_hold_total+1
160b3216b335 x-scale in logbook fixed Heinrichsweikamp parents: 367 diff changeset	1123 bra profile_view_get_depth_no_line ; no need to draw a 10min line, continue
160b3216b335 x-scale in logbook fixed Heinrichsweikamp parents: 367 diff changeset	1124 ; draw a new 10min line here...
160b3216b335 x-scale in logbook fixed Heinrichsweikamp parents: 367 diff changeset	1125 clrf average_divesecs+0
160b3216b335 x-scale in logbook fixed Heinrichsweikamp parents: 367 diff changeset	1126 clrf average_divesecs+1 ; clear counting registers for next line
160b3216b335 x-scale in logbook fixed Heinrichsweikamp parents: 367 diff changeset	1127
160b3216b335 x-scale in logbook fixed Heinrichsweikamp parents: 367 diff changeset	1128 movlw color_grey
160b3216b335 x-scale in logbook fixed Heinrichsweikamp parents: 367 diff changeset	1129 call PLED_set_color ; Make this configurable?
373 8781d1cf96d8 added GF_hi, GF_lo and deco model to dive header Heinrichsweikamp parents: 371 diff changeset	1130 movlw d'76'
371 160b3216b335 x-scale in logbook fixed Heinrichsweikamp parents: 367 diff changeset	1131 movff WREG,win_top
160b3216b335 x-scale in logbook fixed Heinrichsweikamp parents: 367 diff changeset	1132 incf timeout_counter3,W ; draw one line to right to make sure it's the background of the profile
160b3216b335 x-scale in logbook fixed Heinrichsweikamp parents: 367 diff changeset	1133 movff WREG,win_leftx2 ; Left border (0-159)
373 8781d1cf96d8 added GF_hi, GF_lo and deco model to dive header Heinrichsweikamp parents: 371 diff changeset	1134 movlw d'163'
371 160b3216b335 x-scale in logbook fixed Heinrichsweikamp parents: 367 diff changeset	1135 movff WREG,win_height
160b3216b335 x-scale in logbook fixed Heinrichsweikamp parents: 367 diff changeset	1136 movlw d'1'
160b3216b335 x-scale in logbook fixed Heinrichsweikamp parents: 367 diff changeset	1137 movff WREG,win_width ; "Window" Width
160b3216b335 x-scale in logbook fixed Heinrichsweikamp parents: 367 diff changeset	1138 call PLED_box ; Inputs: win_top, win_leftx2, win_height, win_width, win_color1, win_color2
160b3216b335 x-scale in logbook fixed Heinrichsweikamp parents: 367 diff changeset	1139
160b3216b335 x-scale in logbook fixed Heinrichsweikamp parents: 367 diff changeset	1140 profile_view_get_depth_no_line:
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1141 call I2CREAD2 ; read first depth
426 07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	1142 movff SSPBUF,logbook_cur_depth+0 ; low value
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1143 call I2CREAD2 ; read first depth
426 07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	1144 movff SSPBUF,logbook_cur_depth+1 ; high value
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1145 call I2CREAD2 ; read Profile Flag Byte
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1146 movff SSPBUF,timeout_counter2 ; Read Profile Flag Byte
268 7d24c9d62095 average depth in logbook fixed heinrichsweikamp parents: 266 diff changeset	1147
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1148 bcf event_occured ; clear flag
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1149 btfsc timeout_counter2,7
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1150 bsf event_occured ; We also have an Event byte!
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1151 bcf timeout_counter2,7 ; Clear Event Byte Flag (If any)
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1152 ; timeout_counter2 now holds the number of additional bytes to ignore (0-127)
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1153 movlw 0xFD ; end of profile bytes?
426 07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	1154 cpfseq logbook_cur_depth+0
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1155 bra profile_view_get_depth_new1 ; no 0xFD
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1156 movlw 0xFD ; end of profile bytes?
426 07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	1157 cpfseq logbook_cur_depth+1
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1158 bra profile_view_get_depth_new1 ; no 0xFD
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1159 bsf second_FD ; End found! Set Flag! Skip remaining pixels!
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1160 return
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1161
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1162 profile_view_get_depth_new1:
248 571626276aaa Logbook now shows gas changes in depth profile heinrichsweikamp parents: 245 diff changeset	1163 btfsc event_occured ; Was there an event attached to this sample?
571626276aaa Logbook now shows gas changes in depth profile heinrichsweikamp parents: 245 diff changeset	1164 rcall profile_view_get_depth_new2 ; Yes, get information about this event
426 07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	1165
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	1166 ;---- Read Tp�, if any AND divisor reached AND bytes available -----------
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	1167 movf divisor_temperature,W ; Is Tp� divisor null ?
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	1168 bz profile_view_get_depth_no_tp; Yes: no Tp� curve.
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	1169 decf logbook_temp1,F ; Decrement tp� counter
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	1170 bnz profile_view_get_depth_no_tp; No temperature this time
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	1171
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	1172 call I2CREAD2 ; Tp� low
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	1173 movff SSPBUF,logbook_cur_tp+0
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	1174 call I2CREAD2 ; Tp� high
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	1175 movff SSPBUF,logbook_cur_tp+1
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	1176 decf timeout_counter2,F
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	1177 decf timeout_counter2,F
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	1178 movff divisor_temperature,logbook_temp1 ; Restart counter.
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	1179
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	1180 ;---- Read deco, if any AND divisor=0 AND bytes available ----------------
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	1181 profile_view_get_depth_no_tp:
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	1182 movf divisor_deco,W
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	1183 bz profile_view_get_depth_no_deco
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	1184 decf logbook_temp2,F
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	1185 bnz profile_view_get_depth_no_deco
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	1186
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	1187 call I2CREAD2
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	1188 movff SSPBUF,logbook_ceiling
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	1189 decf timeout_counter2,F
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	1190 movff divisor_deco,logbook_temp2 ; Restart counter.
248 571626276aaa Logbook now shows gas changes in depth profile heinrichsweikamp parents: 245 diff changeset	1191
426 07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	1192 ;---- Read GF, if any AND divisor=0 AND bytes available ------------------
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	1193 profile_view_get_depth_no_deco:
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	1194
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	1195 movf timeout_counter2,W ; No more extra bytes ?
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	1196 btfsc STATUS,Z
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	1197 return ; No: done.
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	1198
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	1199 ; Then skip remaining bytes...
207 d2a38470f0b2 faster logbook speed heinrichsweikamp parents: 204 diff changeset	1200 movf timeout_counter2,W ; number of additional bytes to ignore (0-127)
d2a38470f0b2 faster logbook speed heinrichsweikamp parents: 204 diff changeset	1201 call incf_eeprom_address0 ; increases bytes in eeprom_address:2 with 0x8000 bank switching
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1202 return
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1203
248 571626276aaa Logbook now shows gas changes in depth profile heinrichsweikamp parents: 245 diff changeset	1204 profile_view_get_depth_new2:
571626276aaa Logbook now shows gas changes in depth profile heinrichsweikamp parents: 245 diff changeset	1205 call I2CREAD2 ; Read Event byte
571626276aaa Logbook now shows gas changes in depth profile heinrichsweikamp parents: 245 diff changeset	1206 movff SSPBUF,EventByte ; store EventByte
571626276aaa Logbook now shows gas changes in depth profile heinrichsweikamp parents: 245 diff changeset	1207 decf timeout_counter2,F ; reduce counter
571626276aaa Logbook now shows gas changes in depth profile heinrichsweikamp parents: 245 diff changeset	1208 ; Check Event flags in the EventByte
571626276aaa Logbook now shows gas changes in depth profile heinrichsweikamp parents: 245 diff changeset	1209 btfsc EventByte,4 ; Manual Gas Changed?
571626276aaa Logbook now shows gas changes in depth profile heinrichsweikamp parents: 245 diff changeset	1210 bra logbook_event1 ; Yes!
571626276aaa Logbook now shows gas changes in depth profile heinrichsweikamp parents: 245 diff changeset	1211 btfss EventByte,5 ; Stored Gas Changed?
571626276aaa Logbook now shows gas changes in depth profile heinrichsweikamp parents: 245 diff changeset	1212 return ; No, return
571626276aaa Logbook now shows gas changes in depth profile heinrichsweikamp parents: 245 diff changeset	1213 ; Stored Gas changed!
571626276aaa Logbook now shows gas changes in depth profile heinrichsweikamp parents: 245 diff changeset	1214 call I2CREAD2 ; Read Gas#
426 07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	1215 movff SSPBUF,average_depth_hold_total+3
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	1216 rcall profile_display_color ; Back to normal profile color.
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	1217
248 571626276aaa Logbook now shows gas changes in depth profile heinrichsweikamp parents: 245 diff changeset	1218 decf timeout_counter2,F ; reduce counter
571626276aaa Logbook now shows gas changes in depth profile heinrichsweikamp parents: 245 diff changeset	1219 return
571626276aaa Logbook now shows gas changes in depth profile heinrichsweikamp parents: 245 diff changeset	1220
571626276aaa Logbook now shows gas changes in depth profile heinrichsweikamp parents: 245 diff changeset	1221 logbook_event1:
426 07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	1222 movlw 6 ; Just color backup to 6
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	1223 movwf average_depth_hold_total+3
07f5b0baaa57 Adding temperature & ceiling curves JeanDo parents: 425 diff changeset	1224 rcall profile_display_color ; Back to normal profile color.
248 571626276aaa Logbook now shows gas changes in depth profile heinrichsweikamp parents: 245 diff changeset	1225 return ;(The two bytes indicating the manual gas change will be ignored in the standard "ignore loop" above...)
571626276aaa Logbook now shows gas changes in depth profile heinrichsweikamp parents: 245 diff changeset	1226
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1227 exit_profileview:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1228 bcf sleepmode
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1229 clrf timeout_counter2 ; restore all registers to build same page again
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1230 movff decodata+0,eeprom_address+0
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1231 movff decodata+1,eeprom_address+1
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1232 movff max_pressure+0,divemins+0
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1233 movff max_pressure+1,divemins+1
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1234 movff mintemp+0, divenumber
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1235 decf divenumber,F
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1236 bcf all_dives_shown
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1237
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1238 decf menupos2,F
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1239
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1240 clrf menupos3 ; here: used row on current page
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1241 movlw d'5'
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1242 movwf menupos ; here: active row on current page
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1243 incf menupos2,F ; start new page
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1244 call PLED_ClearScreen ; clear details/profile
243 38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	1245 goto menu_logbook1b ; start search
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1246
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1247 next_logbook2:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1248 btfsc all_dives_shown ; all shown
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1249 goto menu_logbook1 ; all reset
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1250
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1251 clrf menupos3
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1252 movlw d'5'
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1253 movwf menupos ;
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1254 incf menupos2,F ; start new screen
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1255 call PLED_ClearScreen
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1256
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1257 next_logbook:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1258 movff eeprom_header_address+0,eeprom_address+0
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1259 movff eeprom_header_address+1,eeprom_address+1 ; continue search here
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1260 goto menu_logbook1b
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1261
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1262 check_switches_logbook:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1263 btfsc switch_right
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1264 bsf menubit3
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1265 btfsc switch_left
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1266 bsf menubit2 ; Enter
337 6bdf80d7276c Added screen dumps of general menus. JeanDo parents: 302 diff changeset	1267
6bdf80d7276c Added screen dumps of general menus. JeanDo parents: 302 diff changeset	1268 btfsc uart_dump_screen ; Dumps screen contains ?
6bdf80d7276c Added screen dumps of general menus. JeanDo parents: 302 diff changeset	1269 call dump_screen ; Yes!
6bdf80d7276c Added screen dumps of general menus. JeanDo parents: 302 diff changeset	1270
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1271 return
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1272
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1273 next_logbook3:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1274 incf menupos,F
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1275 movlw d'7'
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1276 cpfseq menupos ; =7?
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1277 bra next_logbook3a ; No
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1278 bra next_logbook2 ; yes, new page please
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1279
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1280 next_logbook3a:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1281 incf menupos3,W ;
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1282 cpfseq menupos
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1283 bra next_logbook3b
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1284 movlw d'6'
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1285 movwf menupos ; Jump directly to exit if page is not full
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1286
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1287 next_logbook3b:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1288 clrf timeout_counter2
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1289 call PLED_logbook_cursor
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1290
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1291 bcf switch_right
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1292 bcf menubit3 ; clear flag
243 38cccd304970 more information in logbook: Gaslist, Salinity, Gradient Factors and Average depth displayed in Logbook heinrichsweikamp parents: 209 diff changeset	1293 goto menu_logbook_loop
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1294
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1295 display_listdive:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1296 bsf logbook_page_not_empty ; Page not empty
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1297 incf menupos3,F
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1298
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1299 btfsc logbook_header_drawn ; "Logbook already displayed?
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1300 bra display_listdive1a
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1301 call PLED_topline_box ; Draw box
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1302 WIN_INVERT .1
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1303 DISPLAYTEXT .26 ; "Logbook"
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1304 WIN_INVERT .0
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1305 bsf logbook_header_drawn
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1306
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1307 display_listdive1a:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1308 WIN_LEFT .20
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1309
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1310 movf menupos2,W
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1311 mullw d'5'
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1312 movf PRODL,W
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1313 subwf divenumber,W ; current row on page
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1314
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1315 mullw d'30' ; x30
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1316 movf PRODL,W ; is pixel-row for entry
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1317 addlw d'5' ; +5 Pixel, so list entries are at rows 35,65,95,125,155,185
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1318 movff WREG,win_top
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1319
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1320 lfsr FSR2,letter
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1321 movff divenumber,lo
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1322 output_99x ; # of dive
123 6a94f96e9cea The big cleanup, again. JeanDo parents: 44 diff changeset	1323 PUTC ' '
245 dee88c962653 Some clean up and minor I2C speed improvements heinrichsweikamp parents: 244 diff changeset	1324 call I2CREAD3 ; logbook_profile_version (1st. byte of Header after the 0xFA, 0xFA) (Block read start)
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1325 movff SSPBUF,lo
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1326 movlw d'13'
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1327 cpfsgt lo ; Skip if lo>13
349 ed137d66ac65 Preparations for new "0x21" logbook format heinrichsweikamp parents: 337 diff changeset	1328 bra display_listdive2 ; use old (Pre 0x20) format
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1329
351 5c186a72cb5d Debugging the new logbook format, 64kB download routine heinrichsweikamp parents: 350 diff changeset	1330 bsf logbook_format_0x21 ; Set flag for new 0x21 Format
5c186a72cb5d Debugging the new logbook format, 64kB download routine heinrichsweikamp parents: 350 diff changeset	1331 movlw 0x21
5c186a72cb5d Debugging the new logbook format, 64kB download routine heinrichsweikamp parents: 350 diff changeset	1332 cpfseq lo ; Skip if 0x21
5c186a72cb5d Debugging the new logbook format, 64kB download routine heinrichsweikamp parents: 350 diff changeset	1333 bcf logbook_format_0x21 ; Clear flag for new 0x21 Format
5c186a72cb5d Debugging the new logbook format, 64kB download routine heinrichsweikamp parents: 350 diff changeset	1334
245 dee88c962653 Some clean up and minor I2C speed improvements heinrichsweikamp parents: 244 diff changeset	1335 call I2CREAD4 ; Skip Profile version (Block read)
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1336 movff SSPBUF,lo ; in new format, read month
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1337
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1338 display_listdive2:
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1339 movff lo,convert_value_temp+0 ; Month (in lo, see above)
245 dee88c962653 Some clean up and minor I2C speed improvements heinrichsweikamp parents: 244 diff changeset	1340 call I2CREAD4 ; Day (Block read)
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1341 movff SSPBUF,convert_value_temp+1
245 dee88c962653 Some clean up and minor I2C speed improvements heinrichsweikamp parents: 244 diff changeset	1342 call I2CREAD4 ; Year (Block read)
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1343 movff SSPBUF,convert_value_temp+2
123 6a94f96e9cea The big cleanup, again. JeanDo parents: 44 diff changeset	1344 call PLED_convert_date_short ; converts into "DD/MM" or "MM/DD" or "MM/DD" in s
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1345
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1346
209 cdba979821ee frame around logbook scale, some more speed improvements heinrichsweikamp parents: 208 diff changeset	1347 incf_eeprom_address d'2' ; Skip Bytes in EEPROM (faster)
cdba979821ee frame around logbook scale, some more speed improvements heinrichsweikamp parents: 208 diff changeset	1348 ; call I2CREAD2 ; hours (Skip)
cdba979821ee frame around logbook scale, some more speed improvements heinrichsweikamp parents: 208 diff changeset	1349 ; call I2CREAD2 ; minutes (skip)
cdba979821ee frame around logbook scale, some more speed improvements heinrichsweikamp parents: 208 diff changeset	1350
123 6a94f96e9cea The big cleanup, again. JeanDo parents: 44 diff changeset	1351 PUTC ' '
245 dee88c962653 Some clean up and minor I2C speed improvements heinrichsweikamp parents: 244 diff changeset	1352 call I2CREAD3 ; Depth (Block read start)
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1353 movff SSPBUF,lo
245 dee88c962653 Some clean up and minor I2C speed improvements heinrichsweikamp parents: 244 diff changeset	1354 call I2CREAD4 ; Block read
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1355 movff SSPBUF,hi
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1356 bsf leftbind
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1357 bsf ignore_digit5 ; Do not display 1cm figure
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1358 output_16dp d'3' ; max. depth
123 6a94f96e9cea The big cleanup, again. JeanDo parents: 44 diff changeset	1359 STRCAT "m "
245 dee88c962653 Some clean up and minor I2C speed improvements heinrichsweikamp parents: 244 diff changeset	1360 call I2CREAD4 ; Block read
209 cdba979821ee frame around logbook scale, some more speed improvements heinrichsweikamp parents: 208 diff changeset	1361 movff SSPBUF,lo ; read divetime in minutes
245 dee88c962653 Some clean up and minor I2C speed improvements heinrichsweikamp parents: 244 diff changeset	1362 call I2CREAD4 ; Block read
209 cdba979821ee frame around logbook scale, some more speed improvements heinrichsweikamp parents: 208 diff changeset	1363 movff SSPBUF,hi ; read divetime in minutes
0 96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1364 bsf leftbind
96a35aeda5f2 Initial setup heinrichsweikamp parents: diff changeset	1365 output_16 ; Divetime minutes
209 cdba979821ee frame around logbook scale, some more speed improvements heinrichsweikamp parents: 208 diff changeset	1366 STRCAT_PRINT "'" ; Display header-row in list
cdba979821ee frame around logbook scale, some more speed improvements heinrichsweikamp parents: 208 diff changeset	1367 incf_eeprom_address d'37' ; 12 Bytes read from header, skip 37 Bytes in EEPROM (Remaining Header)
351 5c186a72cb5d Debugging the new logbook format, 64kB download routine heinrichsweikamp parents: 350 diff changeset	1368 btfss logbook_format_0x21 ; 10byte extra?
5c186a72cb5d Debugging the new logbook format, 64kB download routine heinrichsweikamp parents: 350 diff changeset	1369 return ; No, Done.
5c186a72cb5d Debugging the new logbook format, 64kB download routine heinrichsweikamp parents: 350 diff changeset	1370 incf_eeprom_address d'10' ; Skip another 10 byte from the header for 0x21 format
362 64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1371 return
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1372
374 6ee9c849ad92 GF profile. GF and Decotype in Logbok Heinrichsweikamp parents: 373 diff changeset	1373 logbook_convert_64k: ; Converts <1.91 logbook (32kB) to 64kB variant
362 64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1374 call PLED_boot
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1375 call PLED_ClearScreen ; Clear screen
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1376 movlw color_red
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1377 call PLED_set_color ; Set to Red
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1378 DISPLAYTEXTH d'303' ; Please wait!
384 904863f96582 Work-Around for "Reset all" overwriting 0x00 to 0x04 in EEPROM Bank1 heinrichsweikamp parents: 382 diff changeset	1379 clrf EEADR
904863f96582 Work-Around for "Reset all" overwriting 0x00 to 0x04 in EEPROM Bank1 heinrichsweikamp parents: 382 diff changeset	1380 movlw d'1'
362 64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1381 movwf EEADRH
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1382 movlw 0xAA
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1383 movwf EEDATA
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1384 call write_eeprom ; write 0xAA to indicate the logbook is already converted
384 904863f96582 Work-Around for "Reset all" overwriting 0x00 to 0x04 in EEPROM Bank1 heinrichsweikamp parents: 382 diff changeset	1385 clrf EEADRH ; Restore EEADRH
362 64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1386 ; convert logbook:
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1387 ; Step 1: Copy 32k from 0xFE + 1 with bank switching to bank1
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1388 ; Step 2: Copy 32k from bank1 to bank0
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1389 ; Step 3: delete bank1
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1390 call get_free_EEPROM_location ; Searches 0xFD, 0xFD, 0xFE and sets Pointer to 0xFE
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1391 rcall incf_eeprom_bank0 ; eeprom_address:2 now at 0xFE+1
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1392 ; Do Step 1:
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1393 ;logbook_temp5 and logbook_temp6 hold address in bank1
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1394 ;logbook_temp1 and logbook_temp2 hold address in bank0
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1395 movlw HIGH 0x8000
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1396 movwf logbook_temp6
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1397 movlw LOW 0x8000
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1398 movwf logbook_temp5 ; load address for bank1
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1399 movff eeprom_address+0,logbook_temp1
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1400 movff eeprom_address+1,logbook_temp2 ; load address for bank0
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1401 movlw 0x80
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1402 movwf uart2_temp
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1403 logbook_convert2:
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1404 clrf uart1_temp ; counter for copy operation
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1405 logbook_convert3:
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1406 ; read source
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1407 movff logbook_temp1,eeprom_address+0
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1408 movff logbook_temp2,eeprom_address+1
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1409 call I2CREAD
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1410 movff SSPBUF,lo ; hold read value
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1411 rcall incf_eeprom_bank0 ; eeprom_address:2 +1 with bank switching
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1412 movff eeprom_address+0,logbook_temp1
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1413 movff eeprom_address+1,logbook_temp2 ; write source address
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1414 ; write target
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1415 movff logbook_temp5,eeprom_address+0
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1416 movff logbook_temp6,eeprom_address+1
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1417 movf lo,W
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1418 call I2CWRITE ; writes WREG into EEPROM@eeprom_address
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1419 movlw d'1'
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1420 addwf logbook_temp5,F
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1421 movlw d'0'
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1422 addwfc logbook_temp6,F ; increase target address
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1423 decfsz uart1_temp,F
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1424 bra logbook_convert3
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1425 btg LED_blue
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1426 decfsz uart2_temp,F ; 32kByte done?
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1427 bra logbook_convert2 ; No, continue
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1428 ; Step 1 done.
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1429 bcf LED_blue
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1430 ; Do Step 2:
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1431 movlw HIGH 0x0000
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1432 movwf logbook_temp6
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1433 movlw LOW 0x0000
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1434 movwf logbook_temp5 ; load address for bank0
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1435 movlw HIGH 0x8000
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1436 movwf logbook_temp2
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1437 movlw LOW 0x8000
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1438 movwf logbook_temp1 ; load address for bank1
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1439 movlw 0x80
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1440 movwf uart2_temp
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1441 logbook_convert4:
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1442 clrf uart1_temp ; counter for copy operation
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1443 logbook_convert5:
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1444 ; read source
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1445 movff logbook_temp1,eeprom_address+0
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1446 movff logbook_temp2,eeprom_address+1
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1447 call I2CREAD
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1448 movff SSPBUF,lo ; hold read value
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1449 incf_eeprom_address d'1'
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1450 movff eeprom_address+0,logbook_temp1
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1451 movff eeprom_address+1,logbook_temp2 ; write source address
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1452 ; write target
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1453 movff logbook_temp5,eeprom_address+0
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1454 movff logbook_temp6,eeprom_address+1
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1455 movf lo,W
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1456 call I2CWRITE ; writes WREG into EEPROM@eeprom_address
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1457 incf_eeprom_address d'1'
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1458 movff eeprom_address+0,logbook_temp5
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1459 movff eeprom_address+1,logbook_temp6 ; write target address
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1460 decfsz uart1_temp,F
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1461 bra logbook_convert5
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1462 btg LED_red
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1463 decfsz uart2_temp,F ; 32kByte done?
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1464 bra logbook_convert4 ; No, continue
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1465 ; Step 2 done.
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1466 bcf LED_red
366 ca3d15e6240e small work in the logbook Heinrichsweikamp parents: 362 diff changeset	1467 ; Do Step 3:
362 64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1468 movlw HIGH 0x8000
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1469 movwf logbook_temp2
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1470 movlw LOW 0x8000
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1471 movwf logbook_temp1 ; load address for bank1
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1472 movlw 0x80
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1473 movwf uart2_temp
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1474 logbook_convert6:
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1475 clrf uart1_temp ; counter for copy operation
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1476 logbook_convert7:
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1477 ; write target
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1478 movff logbook_temp1,eeprom_address+0
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1479 movff logbook_temp2,eeprom_address+1
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1480 movlw 0xFF
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1481 call I2CWRITE ; writes WREG into EEPROM@eeprom_address
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1482 incf_eeprom_address d'1'
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1483 movff eeprom_address+0,logbook_temp1
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1484 movff eeprom_address+1,logbook_temp2 ; write target address
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1485 decfsz uart1_temp,F
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1486 bra logbook_convert7
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1487 btg LED_red
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1488 btg LED_blue
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1489 decfsz uart2_temp,F ; 32kByte done?
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1490 bra logbook_convert6 ; No, continue
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1491 ; Step 3 done.
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1492 bcf LED_red
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1493 bcf LED_blue
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1494 return
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1495
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1496 incf_eeprom_bank0:
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1497 movlw d'1' ; increase address
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1498 addwf eeprom_address+0,F
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1499 movlw d'0'
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1500 addwfc eeprom_address+1,F
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1501 btfss eeprom_address+1,7 ; at address 8000?
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1502 return ; no, skip
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1503 clrf eeprom_address+0 ; Clear eeprom address
64da813d4726 Logbook converter (Needs ~8Minutes and is called one time). Backup your dives before use!! Heinrichsweikamp parents: 351 diff changeset	1504 clrf eeprom_address+1
351 5c186a72cb5d Debugging the new logbook format, 64kB download routine heinrichsweikamp parents: 350 diff changeset	1505 return

Mercurial > public > mk2

annotate code_part1/OSTC_code_asm_part1/menu_logbook.asm @ 426:07f5b0baaa57