mk2: code_part1/OSTC_code_asm_part1/menu

annotate code_part1/OSTC_code_asm_part1/menu_logbook.asm @ 419:e671d2018e0f

0.98bar equal 10m depths with salinity set to 1.00kg/l

author	heinrichsweikamp
date	Wed, 20 Jul 2011 12:49:29 +0200
parents	3abf9d7dafae
children	a76c5a3e9e96

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

Mercurial > public > mk2

annotate code_part1/OSTC_code_asm_part1/menu_logbook.asm @ 419:e671d2018e0f