mk2: code_part1/OSTC_code_asm_part1/menu

annotate code_part1/OSTC_code_asm_part1/menu_logbook.asm @ 415:d022c62a1df5

fixing issue with end-of-dive threshold in high-altitude mode simulator now works up to 120m depth fix internal logbook hung up on bad profile data

author	heinrichsweikamp
date	Sun, 17 Jul 2011 17:23:25 +0200
parents	dd4a1aa96232
children	3abf9d7dafae

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

Mercurial > public > mk2

annotate code_part1/OSTC_code_asm_part1/menu_logbook.asm @ 415:d022c62a1df5