Mercurial > public > mk2

annotate code_part1/OSTC_code_asm_part1/pled_outputs.asm @ 663:64194a3c8d5b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Restart building decoplan after gas change
author heinrichsweikamp
date Mon, 12 Nov 2012 20:53:58 +0100
parents 8dd730d3a5d7
children 259e4c1bf3c2
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
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 ; routines for display outputs
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
20 ; written by: Matthias Heinrichs, info@heinrichsweikamp.com
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
21 ; written: 15/01/05
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
22 ;
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
23 ; History:
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
24 ; 2008-06-06 [MH] last updated
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
25 ; 2010-12-31 [jDG] Multi-page display for GF decoplan
128
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
26 ; 2011-01-04 [jDG] Saturation graphs in customview divemode
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
27 ;
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
28 ; known bugs:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
29 ; ToDo: More comments
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
30
167
cb055a7d75f3 + Use overlay local vars.
JeanDo
parents: 165
diff changeset
31 global PLED_divemask_color
9
395230c28023 Added CF36: Divemask color
heinrichsweikamp
parents: 8
diff changeset
32 PLED_divemask_color:
25
99512945c7a1 1.61 beta rc2
heinrichsweikamp
parents: 21
diff changeset
33 GETCUSTOM8 d'36' ; Divemask output color
29
c6cab044a338 1.61beta rc2
heinrichsweikamp
parents: 27
diff changeset
34 bra PLED_standard_color_0
9
395230c28023 Added CF36: Divemask color
heinrichsweikamp
parents: 8
diff changeset
35
167
cb055a7d75f3 + Use overlay local vars.
JeanDo
parents: 165
diff changeset
36 global PLED_warnings_color
25
99512945c7a1 1.61 beta rc2
heinrichsweikamp
parents: 21
diff changeset
37 PLED_warnings_color:
99512945c7a1 1.61 beta rc2
heinrichsweikamp
parents: 21
diff changeset
38 GETCUSTOM8 d'37' ; Warnings output color
29
c6cab044a338 1.61beta rc2
heinrichsweikamp
parents: 27
diff changeset
39 bra PLED_standard_color_0
c6cab044a338 1.61beta rc2
heinrichsweikamp
parents: 27
diff changeset
40
167
cb055a7d75f3 + Use overlay local vars.
JeanDo
parents: 165
diff changeset
41 global PLED_standard_color
29
c6cab044a338 1.61beta rc2
heinrichsweikamp
parents: 27
diff changeset
42 PLED_standard_color:
c6cab044a338 1.61beta rc2
heinrichsweikamp
parents: 27
diff changeset
43 GETCUSTOM8 d'35' ; Standard output color
c6cab044a338 1.61beta rc2
heinrichsweikamp
parents: 27
diff changeset
44 PLED_standard_color_0: ; Common entry point
c6cab044a338 1.61beta rc2
heinrichsweikamp
parents: 27
diff changeset
45 movwf oled1_temp ; copy
c6cab044a338 1.61beta rc2
heinrichsweikamp
parents: 27
diff changeset
46 movlw d'0'
c6cab044a338 1.61beta rc2
heinrichsweikamp
parents: 27
diff changeset
47 cpfseq oled1_temp
c6cab044a338 1.61beta rc2
heinrichsweikamp
parents: 27
diff changeset
48 bra PLED_standard_color_1
c6cab044a338 1.61beta rc2
heinrichsweikamp
parents: 27
diff changeset
49 bra PLED_standard_color2
c6cab044a338 1.61beta rc2
heinrichsweikamp
parents: 27
diff changeset
50 PLED_standard_color_1:
c6cab044a338 1.61beta rc2
heinrichsweikamp
parents: 27
diff changeset
51 movlw d'4'
c6cab044a338 1.61beta rc2
heinrichsweikamp
parents: 27
diff changeset
52 cpfseq oled1_temp
c6cab044a338 1.61beta rc2
heinrichsweikamp
parents: 27
diff changeset
53 bra PLED_standard_color_2
c6cab044a338 1.61beta rc2
heinrichsweikamp
parents: 27
diff changeset
54 bra PLED_standard_color2
c6cab044a338 1.61beta rc2
heinrichsweikamp
parents: 27
diff changeset
55 PLED_standard_color_2:
c6cab044a338 1.61beta rc2
heinrichsweikamp
parents: 27
diff changeset
56 movlw d'8'
c6cab044a338 1.61beta rc2
heinrichsweikamp
parents: 27
diff changeset
57 cpfseq oled1_temp
c6cab044a338 1.61beta rc2
heinrichsweikamp
parents: 27
diff changeset
58 bra PLED_standard_color_3
c6cab044a338 1.61beta rc2
heinrichsweikamp
parents: 27
diff changeset
59 bra PLED_standard_color2
c6cab044a338 1.61beta rc2
heinrichsweikamp
parents: 27
diff changeset
60 PLED_standard_color_3:
c6cab044a338 1.61beta rc2
heinrichsweikamp
parents: 27
diff changeset
61 movlw d'192'
c6cab044a338 1.61beta rc2
heinrichsweikamp
parents: 27
diff changeset
62 cpfseq oled1_temp
c6cab044a338 1.61beta rc2
heinrichsweikamp
parents: 27
diff changeset
63 bra PLED_standard_color_4
c6cab044a338 1.61beta rc2
heinrichsweikamp
parents: 27
diff changeset
64 bra PLED_standard_color2
c6cab044a338 1.61beta rc2
heinrichsweikamp
parents: 27
diff changeset
65 PLED_standard_color_4:
c6cab044a338 1.61beta rc2
heinrichsweikamp
parents: 27
diff changeset
66 movlw d'196'
c6cab044a338 1.61beta rc2
heinrichsweikamp
parents: 27
diff changeset
67 cpfseq oled1_temp
c6cab044a338 1.61beta rc2
heinrichsweikamp
parents: 27
diff changeset
68 bra PLED_standard_color_5
c6cab044a338 1.61beta rc2
heinrichsweikamp
parents: 27
diff changeset
69 bra PLED_standard_color2
c6cab044a338 1.61beta rc2
heinrichsweikamp
parents: 27
diff changeset
70 PLED_standard_color_5:
c6cab044a338 1.61beta rc2
heinrichsweikamp
parents: 27
diff changeset
71 movlw d'200'
c6cab044a338 1.61beta rc2
heinrichsweikamp
parents: 27
diff changeset
72 cpfseq oled1_temp
c6cab044a338 1.61beta rc2
heinrichsweikamp
parents: 27
diff changeset
73 bra PLED_standard_color_6
c6cab044a338 1.61beta rc2
heinrichsweikamp
parents: 27
diff changeset
74 bra PLED_standard_color2
c6cab044a338 1.61beta rc2
heinrichsweikamp
parents: 27
diff changeset
75 PLED_standard_color_6:
c6cab044a338 1.61beta rc2
heinrichsweikamp
parents: 27
diff changeset
76 movf oled1_temp,W ; Color should be OK...
c6cab044a338 1.61beta rc2
heinrichsweikamp
parents: 27
diff changeset
77 call PLED_set_color
c6cab044a338 1.61beta rc2
heinrichsweikamp
parents: 27
diff changeset
78 return
c6cab044a338 1.61beta rc2
heinrichsweikamp
parents: 27
diff changeset
79 PLED_standard_color2:
77
de8ed3c55db1 FIX branch merging
JeanDo
parents: 76
diff changeset
80 movlw 0xFF ; Force full white.
25
99512945c7a1 1.61 beta rc2
heinrichsweikamp
parents: 21
diff changeset
81 call PLED_set_color
99512945c7a1 1.61 beta rc2
heinrichsweikamp
parents: 21
diff changeset
82 return
3
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
83
27
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
84 PLED_color_code macro color_code_temp
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
85 movlw color_code_temp
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
86 call PLED_color_code1
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
87 endm
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
88
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
89 PLED_color_code1: ; Color-codes the output, if required
142
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 141
diff changeset
90 dcfsnz WREG
398
ab962c4b19d6 Fixing issue 50, correct "Bar" to "bar" in texts and comments
heinrichsweikamp
parents: 396
diff changeset
91 bra PLED_color_code_depth ; CF43 [mbar], 16Bit
142
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 141
diff changeset
92 dcfsnz WREG
27
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
93 bra PLED_color_code_cns ; CF44 [%]
142
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 141
diff changeset
94 dcfsnz WREG
27
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
95 bra PLED_color_code_gf ; CF45 [%]
142
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 141
diff changeset
96 dcfsnz WREG
398
ab962c4b19d6 Fixing issue 50, correct "Bar" to "bar" in texts and comments
heinrichsweikamp
parents: 396
diff changeset
97 bra PLED_color_code_ppo2 ; CF46 [cbar]
142
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 141
diff changeset
98 dcfsnz WREG
27
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
99 bra PLED_color_code_velocity ; CF47 [m/min]
142
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 141
diff changeset
100 dcfsnz WREG
69
df2d3b28947f 1.71beta for Mk.2
heinrichsweikamp
parents: 68
diff changeset
101 bra PLED_color_code_ceiling ; Show warning if CF41=1 and current depth>shown ceiling
142
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 141
diff changeset
102 dcfsnz WREG
71
6beb680a6130 1.72beta - color-coded gaslist, small fix with stopwatch
heinrichsweikamp
parents: 70
diff changeset
103 bra PLED_color_code_gaslist ; Color-code current row in Gaslist (%O2 in "EEDATA")
6beb680a6130 1.72beta - color-coded gaslist, small fix with stopwatch
heinrichsweikamp
parents: 70
diff changeset
104
6beb680a6130 1.72beta - color-coded gaslist, small fix with stopwatch
heinrichsweikamp
parents: 70
diff changeset
105
6beb680a6130 1.72beta - color-coded gaslist, small fix with stopwatch
heinrichsweikamp
parents: 70
diff changeset
106 PLED_color_code_gaslist: ; %O2 in "EEDATA"
74
a1ccb92b59cd 1.72beta release
heinrichsweikamp
parents: 73
diff changeset
107 ; Check very high ppO2 manually
341
2144f19fa1eb BUGFIX protect against ISR changing pressure/temperature while reading it.
JeanDo
parents: 340
diff changeset
108 SAFE_2BYTE_COPY amb_pressure,xA
71
6beb680a6130 1.72beta - color-coded gaslist, small fix with stopwatch
heinrichsweikamp
parents: 70
diff changeset
109 movlw d'10'
6beb680a6130 1.72beta - color-coded gaslist, small fix with stopwatch
heinrichsweikamp
parents: 70
diff changeset
110 movwf xB+0
6beb680a6130 1.72beta - color-coded gaslist, small fix with stopwatch
heinrichsweikamp
parents: 70
diff changeset
111 clrf xB+1
6beb680a6130 1.72beta - color-coded gaslist, small fix with stopwatch
heinrichsweikamp
parents: 70
diff changeset
112 call div16x16 ; xC=p_amb/10
6beb680a6130 1.72beta - color-coded gaslist, small fix with stopwatch
heinrichsweikamp
parents: 70
diff changeset
113 movff xC+0,xA+0
6beb680a6130 1.72beta - color-coded gaslist, small fix with stopwatch
heinrichsweikamp
parents: 70
diff changeset
114 movff xC+1,xA+1
6beb680a6130 1.72beta - color-coded gaslist, small fix with stopwatch
heinrichsweikamp
parents: 70
diff changeset
115 movff EEDATA,xB+0
6beb680a6130 1.72beta - color-coded gaslist, small fix with stopwatch
heinrichsweikamp
parents: 70
diff changeset
116 clrf xB+1
6beb680a6130 1.72beta - color-coded gaslist, small fix with stopwatch
heinrichsweikamp
parents: 70
diff changeset
117 call mult16x16 ; EEDATA * p_amb/10
6beb680a6130 1.72beta - color-coded gaslist, small fix with stopwatch
heinrichsweikamp
parents: 70
diff changeset
118
398
ab962c4b19d6 Fixing issue 50, correct "Bar" to "bar" in texts and comments
heinrichsweikamp
parents: 396
diff changeset
119 tstfsz xC+2 ; char_I_O2_ratio * p_amb/10 > 65536, ppO2>6,55bar?
ab962c4b19d6 Fixing issue 50, correct "Bar" to "bar" in texts and comments
heinrichsweikamp
parents: 396
diff changeset
120 bra PLED_color_code_gaslist1 ; Yes, warn in warning color
ab962c4b19d6 Fixing issue 50, correct "Bar" to "bar" in texts and comments
heinrichsweikamp
parents: 396
diff changeset
121 ; Check if ppO2>3,30bar
ab962c4b19d6 Fixing issue 50, correct "Bar" to "bar" in texts and comments
heinrichsweikamp
parents: 396
diff changeset
122 btfsc xC+1,7
74
a1ccb92b59cd 1.72beta release
heinrichsweikamp
parents: 73
diff changeset
123 bra PLED_color_code_gaslist1 ; Yes, warn in warning color
a1ccb92b59cd 1.72beta release
heinrichsweikamp
parents: 73
diff changeset
124
a1ccb92b59cd 1.72beta release
heinrichsweikamp
parents: 73
diff changeset
125 movff xC+0,sub_a+0
a1ccb92b59cd 1.72beta release
heinrichsweikamp
parents: 73
diff changeset
126 movff xC+1,sub_a+1
398
ab962c4b19d6 Fixing issue 50, correct "Bar" to "bar" in texts and comments
heinrichsweikamp
parents: 396
diff changeset
127 GETCUSTOM8 d'46' ; color-code ppO2 warning [cbar]
71
6beb680a6130 1.72beta - color-coded gaslist, small fix with stopwatch
heinrichsweikamp
parents: 70
diff changeset
128 mullw d'100' ; ppo2_warning_high*100
74
a1ccb92b59cd 1.72beta release
heinrichsweikamp
parents: 73
diff changeset
129 movff PRODL,sub_b+0
a1ccb92b59cd 1.72beta release
heinrichsweikamp
parents: 73
diff changeset
130 movff PRODH,sub_b+1
a1ccb92b59cd 1.72beta release
heinrichsweikamp
parents: 73
diff changeset
131 call sub16 ; sub_c = sub_a - sub_b
71
6beb680a6130 1.72beta - color-coded gaslist, small fix with stopwatch
heinrichsweikamp
parents: 70
diff changeset
132 btfss neg_flag
74
a1ccb92b59cd 1.72beta release
heinrichsweikamp
parents: 73
diff changeset
133 bra PLED_color_code_gaslist1; too high -> Warning Color!
a1ccb92b59cd 1.72beta release
heinrichsweikamp
parents: 73
diff changeset
134 call PLED_standard_color
a1ccb92b59cd 1.72beta release
heinrichsweikamp
parents: 73
diff changeset
135 return
a1ccb92b59cd 1.72beta release
heinrichsweikamp
parents: 73
diff changeset
136
a1ccb92b59cd 1.72beta release
heinrichsweikamp
parents: 73
diff changeset
137 PLED_color_code_gaslist1:
398
ab962c4b19d6 Fixing issue 50, correct "Bar" to "bar" in texts and comments
heinrichsweikamp
parents: 396
diff changeset
138 call PLED_warnings_color
71
6beb680a6130 1.72beta - color-coded gaslist, small fix with stopwatch
heinrichsweikamp
parents: 70
diff changeset
139 return
6beb680a6130 1.72beta - color-coded gaslist, small fix with stopwatch
heinrichsweikamp
parents: 70
diff changeset
140
69
df2d3b28947f 1.71beta for Mk.2
heinrichsweikamp
parents: 68
diff changeset
141 PLED_color_code_ceiling:
df2d3b28947f 1.71beta for Mk.2
heinrichsweikamp
parents: 68
diff changeset
142 GETCUSTOM8 d'40' ; =1: Warn at all?
df2d3b28947f 1.71beta for Mk.2
heinrichsweikamp
parents: 68
diff changeset
143 movwf lo
df2d3b28947f 1.71beta for Mk.2
heinrichsweikamp
parents: 68
diff changeset
144 movlw d'1'
df2d3b28947f 1.71beta for Mk.2
heinrichsweikamp
parents: 68
diff changeset
145 cpfseq lo ; =1?
df2d3b28947f 1.71beta for Mk.2
heinrichsweikamp
parents: 68
diff changeset
146 bra PLED_color_code_ceiling1 ; No, Set to default color
df2d3b28947f 1.71beta for Mk.2
heinrichsweikamp
parents: 68
diff changeset
147
341
2144f19fa1eb BUGFIX protect against ISR changing pressure/temperature while reading it.
JeanDo
parents: 340
diff changeset
148 SAFE_2BYTE_COPY rel_pressure, lo
398
ab962c4b19d6 Fixing issue 50, correct "Bar" to "bar" in texts and comments
heinrichsweikamp
parents: 396
diff changeset
149 call adjust_depth_with_salinity ; computes salinity setting into lo:hi [mbar]
296
2986e7cdb68c Apply salinity for ceiling warning
Heinrichsweikamp
parents: 292
diff changeset
150 movff hi,xA+1
2986e7cdb68c Apply salinity for ceiling warning
Heinrichsweikamp
parents: 292
diff changeset
151 movff lo,xA+0
169
e26f49674956 Merge decoplan display for both GF and Buhlmann models.
JeanDo
parents: 168
diff changeset
152 movff char_O_first_deco_depth,lo ; Ceiling in m
e26f49674956 Merge decoplan display for both GF and Buhlmann models.
JeanDo
parents: 168
diff changeset
153 decf lo,F ; -1
69
df2d3b28947f 1.71beta for Mk.2
heinrichsweikamp
parents: 68
diff changeset
154 movlw LOW d'100'
df2d3b28947f 1.71beta for Mk.2
heinrichsweikamp
parents: 68
diff changeset
155 movwf xB+0
df2d3b28947f 1.71beta for Mk.2
heinrichsweikamp
parents: 68
diff changeset
156 clrf xB+1 ; Devide/100 -> xC+0 = Depth in m
df2d3b28947f 1.71beta for Mk.2
heinrichsweikamp
parents: 68
diff changeset
157 call div16x16 ; xA/xB=xC with xA as remainder
df2d3b28947f 1.71beta for Mk.2
heinrichsweikamp
parents: 68
diff changeset
158 movf xC+0,W ; Depth in m
df2d3b28947f 1.71beta for Mk.2
heinrichsweikamp
parents: 68
diff changeset
159 subwf lo,W
df2d3b28947f 1.71beta for Mk.2
heinrichsweikamp
parents: 68
diff changeset
160 btfsc STATUS,C
df2d3b28947f 1.71beta for Mk.2
heinrichsweikamp
parents: 68
diff changeset
161 bra PLED_color_code_ceiling2 ; Set to warning color
df2d3b28947f 1.71beta for Mk.2
heinrichsweikamp
parents: 68
diff changeset
162 PLED_color_code_ceiling1:
df2d3b28947f 1.71beta for Mk.2
heinrichsweikamp
parents: 68
diff changeset
163 call PLED_standard_color
df2d3b28947f 1.71beta for Mk.2
heinrichsweikamp
parents: 68
diff changeset
164 return
df2d3b28947f 1.71beta for Mk.2
heinrichsweikamp
parents: 68
diff changeset
165 PLED_color_code_ceiling2:
df2d3b28947f 1.71beta for Mk.2
heinrichsweikamp
parents: 68
diff changeset
166 call PLED_warnings_color
df2d3b28947f 1.71beta for Mk.2
heinrichsweikamp
parents: 68
diff changeset
167 return
27
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
168
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
169 PLED_color_code_depth:
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
170 movff hi,hi_temp
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
171 movff lo,lo_temp
341
2144f19fa1eb BUGFIX protect against ISR changing pressure/temperature while reading it.
JeanDo
parents: 340
diff changeset
172 SAFE_2BYTE_COPY rel_pressure, lo
398
ab962c4b19d6 Fixing issue 50, correct "Bar" to "bar" in texts and comments
heinrichsweikamp
parents: 396
diff changeset
173 call adjust_depth_with_salinity ; computes salinity setting into lo:hi [mbar]
27
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
174 movff lo,sub_a+0
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
175 movff hi,sub_a+1
398
ab962c4b19d6 Fixing issue 50, correct "Bar" to "bar" in texts and comments
heinrichsweikamp
parents: 396
diff changeset
176 GETCUSTOM15 d'43' ; Depth warn [mbar]
27
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
177 movff lo,sub_b+0
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
178 movff hi,sub_b+1
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
179 call sub16 ; sub_c = sub_a - sub_b
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
180 btfss neg_flag
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
181 bra PLED_color_code_depth2; Set to warning color
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
182 call PLED_standard_color
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
183 movff hi_temp,hi
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
184 movff lo_temp,lo ; Restore hi, lo
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
185 return
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
186 PLED_color_code_depth2:
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
187 call PLED_warnings_color
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
188 movff hi_temp,hi
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
189 movff lo_temp,lo ; Restore hi, lo
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
190 return
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
191
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
192 PLED_color_code_cns:
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
193 movff char_O_CNS_fraction,lo
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
194 GETCUSTOM8 d'44' ; CNS Warn [%]
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
195 subwf lo,W
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
196 btfsc STATUS,C
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
197 bra PLED_color_code_cns2 ; Set to warning color
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
198 call PLED_standard_color
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
199 return
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
200 PLED_color_code_cns2:
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
201 call PLED_warnings_color
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
202 return
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
203
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
204 PLED_color_code_gf:
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
205 movff char_O_gradient_factor,lo ; gradient factor
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
206 GETCUSTOM8 d'45' ; GF Warn [%]
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
207 subwf lo,W
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
208 btfsc STATUS,C
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
209 bra PLED_color_code_gf2 ; Set to warning color
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
210 call PLED_standard_color
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
211 return
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
212 PLED_color_code_gf2:
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
213 call PLED_warnings_color
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
214 return
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
215
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
216 PLED_color_code_ppo2:
398
ab962c4b19d6 Fixing issue 50, correct "Bar" to "bar" in texts and comments
heinrichsweikamp
parents: 396
diff changeset
217 ; Check if ppO2>6,55bar
ab962c4b19d6 Fixing issue 50, correct "Bar" to "bar" in texts and comments
heinrichsweikamp
parents: 396
diff changeset
218 tstfsz xC+2 ; char_I_O2_ratio * p_amb/10 > 65536, ppO2>6,55bar?
ab962c4b19d6 Fixing issue 50, correct "Bar" to "bar" in texts and comments
heinrichsweikamp
parents: 396
diff changeset
219 bra PLED_color_code_ppo22 ; Yes, warn in warning color
ab962c4b19d6 Fixing issue 50, correct "Bar" to "bar" in texts and comments
heinrichsweikamp
parents: 396
diff changeset
220 ; Check if ppO2>3,30bar
ab962c4b19d6 Fixing issue 50, correct "Bar" to "bar" in texts and comments
heinrichsweikamp
parents: 396
diff changeset
221 btfsc xC+1,7
74
a1ccb92b59cd 1.72beta release
heinrichsweikamp
parents: 73
diff changeset
222 bra PLED_color_code_ppo22 ; Yes, warn in warning color
a1ccb92b59cd 1.72beta release
heinrichsweikamp
parents: 73
diff changeset
223
27
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
224 movff xC+0,sub_a+0
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
225 movff xC+1,sub_a+1
398
ab962c4b19d6 Fixing issue 50, correct "Bar" to "bar" in texts and comments
heinrichsweikamp
parents: 396
diff changeset
226 GETCUSTOM8 d'46' ; color-code ppO2 warning [cbar]
27
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
227 mullw d'100'
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
228 movff PRODL,sub_b+0
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
229 movff PRODH,sub_b+1
398
ab962c4b19d6 Fixing issue 50, correct "Bar" to "bar" in texts and comments
heinrichsweikamp
parents: 396
diff changeset
230 call sub16 ; sub_c = sub_a - sub_b
27
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
231 btfss neg_flag
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
232 bra PLED_color_code_ppo22; Set to warning color
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
233 call PLED_standard_color
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
234 return
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
235 PLED_color_code_ppo22:
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
236 call PLED_warnings_color
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
237 return
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
238
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
239 PLED_color_code_velocity:
47
56aea9fcdd8f 1.65beta release
heinrichsweikamp
parents: 45
diff changeset
240 btfss neg_flag ; Ignore for ascend!
56aea9fcdd8f 1.65beta release
heinrichsweikamp
parents: 45
diff changeset
241 bra PLED_color_code_velocity1 ; Skip check!
27
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
242 movff divA+0,lo
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
243 GETCUSTOM8 d'47' ; Velocity warn [m/min]
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
244 subwf lo,W
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
245 btfsc STATUS,C
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
246 bra PLED_color_code_velocity2 ; Set to warning color
47
56aea9fcdd8f 1.65beta release
heinrichsweikamp
parents: 45
diff changeset
247 PLED_color_code_velocity1:
27
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
248 call PLED_standard_color
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
249 return
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
250 PLED_color_code_velocity2:
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
251 call PLED_warnings_color
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
252 return
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
253
142
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 141
diff changeset
254 ostc_debug macro value
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 141
diff changeset
255 movlw value
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
256 call ostc_debug1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
257 endm
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
258
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
259 ostc_debug1:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
260 movff debug_char+4,debug_char+5 ; Save for background debugger
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
261 movff debug_char+3,debug_char+4
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
262 movff debug_char+2,debug_char+3
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
263 movff debug_char+1,debug_char+2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
264 movff debug_char+0,debug_char+1
142
8b75ba28d641 Screen-flipping custom function.
JeanDo
parents: 141
diff changeset
265 movff WREG,debug_char+0
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
266
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
267 btfss debug_mode ; Are we in debugmode?
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
268 return ; No, return!
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
269
256
d8dfbc7041b0 added CPU time debugger
heinrichsweikamp
parents: 255
diff changeset
270 WIN_TOP .192
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
271 WIN_LEFT .100
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
272 WIN_FONT FT_SMALL
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
273 WIN_INVERT .0 ; Init new Wordprocessor
3
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
274 call PLED_standard_color
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
275 lfsr FSR2,letter
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
276 movf debug_char+0,W
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
277 movwf POSTINC2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
278 movf debug_char+1,W
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
279 movwf POSTINC2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
280 movf debug_char+2,W
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
281 movwf POSTINC2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
282 movf debug_char+3,W
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
283 movwf POSTINC2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
284 movf debug_char+4,W
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
285 movwf POSTINC2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
286 movf debug_char+5,W
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
287 movwf POSTINC2
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
288
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
289 STRCAT_PRINT " "
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
290 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
291
235
ade0848c8b8b New runtime asserts when compiled in DEBUG more.
JeanDo
parents: 229
diff changeset
292 ;=============================================================================
ade0848c8b8b New runtime asserts when compiled in DEBUG more.
JeanDo
parents: 229
diff changeset
293 ; BlueScreen function.
ade0848c8b8b New runtime asserts when compiled in DEBUG more.
JeanDo
parents: 229
diff changeset
294 ;
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
295 PLED_resetdebugger:
235
ade0848c8b8b New runtime asserts when compiled in DEBUG more.
JeanDo
parents: 229
diff changeset
296 global PLED_resetdebugger
ade0848c8b8b New runtime asserts when compiled in DEBUG more.
JeanDo
parents: 229
diff changeset
297 global temp10
ade0848c8b8b New runtime asserts when compiled in DEBUG more.
JeanDo
parents: 229
diff changeset
298
ade0848c8b8b New runtime asserts when compiled in DEBUG more.
JeanDo
parents: 229
diff changeset
299 movlb 1 ; For C-code calls
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
300 call PLED_boot ; PLED boot
3
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
301 call PLED_standard_color
47
56aea9fcdd8f 1.65beta release
heinrichsweikamp
parents: 45
diff changeset
302 WIN_INVERT .0 ; Init new Wordprocessor
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
303
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
304 DISPLAYTEXT .133
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
305 DISPLAYTEXT .134
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
306 DISPLAYTEXT .135
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
307 DISPLAYTEXT .136 ; Display Debug intro
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
308
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
309 WIN_TOP .100
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
310 WIN_LEFT .10
235
ade0848c8b8b New runtime asserts when compiled in DEBUG more.
JeanDo
parents: 229
diff changeset
311
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
312 lfsr FSR2,letter
235
ade0848c8b8b New runtime asserts when compiled in DEBUG more.
JeanDo
parents: 229
diff changeset
313 movff temp10+0,lo ; Code-stack point at crash time.
ade0848c8b8b New runtime asserts when compiled in DEBUG more.
JeanDo
parents: 229
diff changeset
314 movff temp10+1,hi ; Code-stack point at crash time.
ade0848c8b8b New runtime asserts when compiled in DEBUG more.
JeanDo
parents: 229
diff changeset
315 output_16
119
f24137eb85de Background debugger now shows STKPTR
heinrichsweikamp
parents: 116
diff changeset
316 movlw ' '
f24137eb85de Background debugger now shows STKPTR
heinrichsweikamp
parents: 116
diff changeset
317 movwf POSTINC2
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
318 movf debug_char+0,W
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
319 movwf POSTINC2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
320 movf debug_char+1,W
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
321 movwf POSTINC2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
322 movf debug_char+2,W
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
323 movwf POSTINC2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
324 movf debug_char+3,W
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
325 movwf POSTINC2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
326 movf debug_char+4,W
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
327 movwf POSTINC2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
328 movf debug_char+5,W
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
329 movwf POSTINC2
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
330 STRCAT ". "
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
331 movff flag1,lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
332 output_8
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
333 PUTC ' '
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
334 movff flag2,lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
335 output_8
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
336 call word_processor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
337
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
338 WIN_TOP .125
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
339
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
340 lfsr FSR2,letter
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
341 movff flag3,lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
342 output_8
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
343 PUTC ' '
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
344 movff flag4,lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
345 output_8
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
346 PUTC ' '
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
347 movff flag5,lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
348 output_8
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
349 PUTC ' '
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
350 movff flag6,lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
351 output_8
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
352 PUTC ' '
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
353 movff flag7,lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
354 output_8
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
355 call word_processor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
356
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
357 WIN_TOP .150
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
358
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
359 lfsr FSR2,letter
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
360 movff flag8,lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
361 output_8
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
362 PUTC ' '
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
363 movff flag9,lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
364 output_8
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
365 PUTC ' '
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
366 movff flag10,lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
367 output_8
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
368 PUTC ' '
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
369 movff flag11,lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
370 output_8
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
371 PUTC ' '
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
372 movff flag12,lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
373 output_8
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
374 call word_processor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
375
576
ab2686087bce faster font display, code cleaning
heinrichsweikamp
parents: 574
diff changeset
376 call wait_switches ; Waits until switches are released, resets flag if button stays pressed!
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
377 PLED_resetdebugger_loop:
235
ade0848c8b8b New runtime asserts when compiled in DEBUG more.
JeanDo
parents: 229
diff changeset
378 bcf LED_blue ; Blink blue led every seconds..
ade0848c8b8b New runtime asserts when compiled in DEBUG more.
JeanDo
parents: 229
diff changeset
379 btfss secs,0
ade0848c8b8b New runtime asserts when compiled in DEBUG more.
JeanDo
parents: 229
diff changeset
380 bsf LED_blue
ade0848c8b8b New runtime asserts when compiled in DEBUG more.
JeanDo
parents: 229
diff changeset
381
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
382 btfss switch_left
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
383 bra PLED_resetdebugger_loop ; Loop
235
ade0848c8b8b New runtime asserts when compiled in DEBUG more.
JeanDo
parents: 229
diff changeset
384
ade0848c8b8b New runtime asserts when compiled in DEBUG more.
JeanDo
parents: 229
diff changeset
385 bcf LED_blue
576
ab2686087bce faster font display, code cleaning
heinrichsweikamp
parents: 574
diff changeset
386 call wait_switches ; Waits until switches are released, resets flag if button stays pressed!
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
387 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
388
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
389 PLED_divemode_mask: ; Displays mask in Dive-Mode
9
395230c28023 Added CF36: Divemask color
heinrichsweikamp
parents: 8
diff changeset
390 call PLED_divemask_color ; Set Color for Divemode mask
75
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
391 DISPLAYTEXTH .267 ; Max.
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
392 DISPLAYTEXT .86 ; Divetime
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
393 DISPLAYTEXT .87 ; Depth
3
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
394 call PLED_standard_color
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
395 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
396
87
8d3c1bef6551 some preparations for new custom view
heinrichsweikamp
parents: 84
diff changeset
397 PLED_clear_customview_divemode:
204
aad4f6e25c2d fix in logbook detail view
heinrichsweikamp
parents: 199
diff changeset
398 WIN_BOX_BLACK .168, .239, .90, .159 ;top, bottom, left, right
87
8d3c1bef6551 some preparations for new custom view
heinrichsweikamp
parents: 84
diff changeset
399 return
8d3c1bef6551 some preparations for new custom view
heinrichsweikamp
parents: 84
diff changeset
400
115
50a06adabc67 First gas is active, Gauge mode display
heinrichsweikamp
parents: 113
diff changeset
401 PLED_clear_customview_surfmode:
204
aad4f6e25c2d fix in logbook detail view
heinrichsweikamp
parents: 199
diff changeset
402 WIN_BOX_BLACK .25, .121, .82, .159 ;top, bottom, left, right
107
a2b9eca1f396 customview for the surfacemode
heinrichsweikamp
parents: 106
diff changeset
403 return
a2b9eca1f396 customview for the surfacemode
heinrichsweikamp
parents: 106
diff changeset
404
87
8d3c1bef6551 some preparations for new custom view
heinrichsweikamp
parents: 84
diff changeset
405 PLED_clear_decoarea:
204
aad4f6e25c2d fix in logbook detail view
heinrichsweikamp
parents: 199
diff changeset
406 WIN_BOX_BLACK .54, .168, .90, .159 ;top, bottom, left, right
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
407 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
408
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
409 PLED_display_ndl_mask:
619
85e8e1501fd8 New CF66: Show GF in NDL (If GF > CF08)
heinrichsweikamp
parents: 607
diff changeset
410 ; Clears Gradient Factor
85e8e1501fd8 New CF66: Show GF in NDL (If GF > CF08)
heinrichsweikamp
parents: 607
diff changeset
411 movlw d'8'
85e8e1501fd8 New CF66: Show GF in NDL (If GF > CF08)
heinrichsweikamp
parents: 607
diff changeset
412 movwf temp1
85e8e1501fd8 New CF66: Show GF in NDL (If GF > CF08)
heinrichsweikamp
parents: 607
diff changeset
413 WIN_TOP .145
85e8e1501fd8 New CF66: Show GF in NDL (If GF > CF08)
heinrichsweikamp
parents: 607
diff changeset
414 WIN_LEFT .0
85e8e1501fd8 New CF66: Show GF in NDL (If GF > CF08)
heinrichsweikamp
parents: 607
diff changeset
415 call PLED_display_clear_common_y1
85e8e1501fd8 New CF66: Show GF in NDL (If GF > CF08)
heinrichsweikamp
parents: 607
diff changeset
416
277
46d1012d096a Quick-access to menupos3 in divemode - ToDo: EAD and END in CCR mode
heinrichsweikamp
parents: 274
diff changeset
417 btfsc menubit ; Divemode menu active?
46d1012d096a Quick-access to menupos3 in divemode - ToDo: EAD and END in CCR mode
heinrichsweikamp
parents: 274
diff changeset
418 return ; Yes, return
46d1012d096a Quick-access to menupos3 in divemode - ToDo: EAD and END in CCR mode
heinrichsweikamp
parents: 274
diff changeset
419
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
420 ; Clear Dekostop and Dekosum
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
421 rcall PLED_clear_decoarea
87
8d3c1bef6551 some preparations for new custom view
heinrichsweikamp
parents: 84
diff changeset
422 call PLED_divemask_color ; Set Color for Divemode mask
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
423 DISPLAYTEXT d'84' ; NoStop
3
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
424 call PLED_standard_color
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
425 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
426
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
427 PLED_display_ndl:
619
85e8e1501fd8 New CF66: Show GF in NDL (If GF > CF08)
heinrichsweikamp
parents: 607
diff changeset
428 GETCUSTOM8 d'66' ; Always show GF?
85e8e1501fd8 New CF66: Show GF in NDL (If GF > CF08)
heinrichsweikamp
parents: 607
diff changeset
429 decfsz WREG,F ; WREG=1?
85e8e1501fd8 New CF66: Show GF in NDL (If GF > CF08)
heinrichsweikamp
parents: 607
diff changeset
430 bra PLED_display_ndl2 ; No
85e8e1501fd8 New CF66: Show GF in NDL (If GF > CF08)
heinrichsweikamp
parents: 607
diff changeset
431 rcall PLED_display_gf ; Show GF (If GF > CF08)
85e8e1501fd8 New CF66: Show GF in NDL (If GF > CF08)
heinrichsweikamp
parents: 607
diff changeset
432
85e8e1501fd8 New CF66: Show GF in NDL (If GF > CF08)
heinrichsweikamp
parents: 607
diff changeset
433 PLED_display_ndl2:
87
8d3c1bef6551 some preparations for new custom view
heinrichsweikamp
parents: 84
diff changeset
434 btfsc menubit ; Divemode menu active?
8d3c1bef6551 some preparations for new custom view
heinrichsweikamp
parents: 84
diff changeset
435 return ; Yes, return
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
436
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
437 ostc_debug 'z' ; Sends debug-information to screen if debugmode active
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
438
87
8d3c1bef6551 some preparations for new custom view
heinrichsweikamp
parents: 84
diff changeset
439 WIN_TOP .136
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
440 WIN_LEFT .119
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
441 WIN_FONT FT_MEDIUM
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
442 WIN_INVERT .0 ; Init new Wordprocessor
3
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
443 call PLED_standard_color
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
444
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
445 lfsr FSR2,letter
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
446 movff char_O_nullzeit,lo ; NDL in minutes
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
447 output_8
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
448 STRCAT_PRINT "'"
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
449 WIN_FONT FT_SMALL
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
450 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
451
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
452 PLED_display_deko_mask:
277
46d1012d096a Quick-access to menupos3 in divemode - ToDo: EAD and END in CCR mode
heinrichsweikamp
parents: 274
diff changeset
453 btfsc menubit ; Divemode menu active?
46d1012d096a Quick-access to menupos3 in divemode - ToDo: EAD and END in CCR mode
heinrichsweikamp
parents: 274
diff changeset
454 return ; Yes, return
46d1012d096a Quick-access to menupos3 in divemode - ToDo: EAD and END in CCR mode
heinrichsweikamp
parents: 274
diff changeset
455
46d1012d096a Quick-access to menupos3 in divemode - ToDo: EAD and END in CCR mode
heinrichsweikamp
parents: 274
diff changeset
456 rcall PLED_clear_decoarea
46d1012d096a Quick-access to menupos3 in divemode - ToDo: EAD and END in CCR mode
heinrichsweikamp
parents: 274
diff changeset
457 ; total deco time word
598
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives
heinrichsweikamp
parents: 592
diff changeset
458 bcf show_safety_stop ; Clear safety stop flag
277
46d1012d096a Quick-access to menupos3 in divemode - ToDo: EAD and END in CCR mode
heinrichsweikamp
parents: 274
diff changeset
459 call PLED_divemask_color ; Set Color for Divemode mask
46d1012d096a Quick-access to menupos3 in divemode - ToDo: EAD and END in CCR mode
heinrichsweikamp
parents: 274
diff changeset
460 DISPLAYTEXT d'85' ; TTS
280
ce6f861d4e3e "TTS" redrawn correctly
heinrichsweikamp
parents: 279
diff changeset
461 DISPLAYTEXT d'82' ; DEKOSTOP
277
46d1012d096a Quick-access to menupos3 in divemode - ToDo: EAD and END in CCR mode
heinrichsweikamp
parents: 274
diff changeset
462 call PLED_standard_color
46d1012d096a Quick-access to menupos3 in divemode - ToDo: EAD and END in CCR mode
heinrichsweikamp
parents: 274
diff changeset
463 return
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
464
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
465 PLED_display_deko:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
466 btfsc menubit ; Divemode menu active?
87
8d3c1bef6551 some preparations for new custom view
heinrichsweikamp
parents: 84
diff changeset
467 bra PLED_display_deko1 ; Yes, do not display deco, only GF (if required)
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
468
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
469 ostc_debug 'y' ; Sends debug-information to screen if debugmode active
87
8d3c1bef6551 some preparations for new custom view
heinrichsweikamp
parents: 84
diff changeset
470 WIN_TOP .80
517
a73a452ca155 Backed out changeset: b498245da3f1
heinrichsweikamp
parents: 516
diff changeset
471 WIN_LEFT .94
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
472 WIN_FONT FT_MEDIUM
169
e26f49674956 Merge decoplan display for both GF and Buhlmann models.
JeanDo
parents: 168
diff changeset
473 WIN_INVERT .0 ; Init new Wordprocessor
571
7f5419d4157d timeout for 2nd page of Gas Setup, ceiling allingment
heinrichsweikamp
parents: 559
diff changeset
474 bcf leftbind
169
e26f49674956 Merge decoplan display for both GF and Buhlmann models.
JeanDo
parents: 168
diff changeset
475 PLED_color_code warn_ceiling ; Color-code Output
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
476 lfsr FSR2,letter
169
e26f49674956 Merge decoplan display for both GF and Buhlmann models.
JeanDo
parents: 168
diff changeset
477 movff char_O_first_deco_depth,lo ; Ceiling in m
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
478 output_99
446
92304826000d localisation part2 from Sergei
heinrichsweikamp
parents: 430
diff changeset
479 PUTC TXT_METER_C
517
a73a452ca155 Backed out changeset: b498245da3f1
heinrichsweikamp
parents: 516
diff changeset
480 movff char_O_first_deco_time,lo ; length of first stop in m
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
481 output_99
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
482 STRCAT_PRINT "'"
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
483 WIN_FONT FT_SMALL
517
a73a452ca155 Backed out changeset: b498245da3f1
heinrichsweikamp
parents: 516
diff changeset
484
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
485 ostc_debug 'x' ; Sends debug-information to screen if debugmode active
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
486
87
8d3c1bef6551 some preparations for new custom view
heinrichsweikamp
parents: 84
diff changeset
487 WIN_TOP .136
168
494587193f5d Use 16bits for TTS sum.
JeanDo
parents: 167
diff changeset
488 WIN_LEFT .140 - 6*7 - 4 ; let space for sign + 5 digits + '
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
489 WIN_FONT FT_MEDIUM
168
494587193f5d Use 16bits for TTS sum.
JeanDo
parents: 167
diff changeset
490 WIN_INVERT .0 ; Init new Wordprocessor
494587193f5d Use 16bits for TTS sum.
JeanDo
parents: 167
diff changeset
491
3
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
492 call PLED_standard_color
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
493 lfsr FSR2,letter
180
8aced3c7590c store gf_hi and gf_lo in logbook
Heinrichsweikamp
parents: 179
diff changeset
494 movff int_O_ascenttime+0,lo ; TTS
168
494587193f5d Use 16bits for TTS sum.
JeanDo
parents: 167
diff changeset
495 movff int_O_ascenttime+1,hi ; on 16bits
494587193f5d Use 16bits for TTS sum.
JeanDo
parents: 167
diff changeset
496 output_16
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
497 STRCAT_PRINT "'"
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
498
87
8d3c1bef6551 some preparations for new custom view
heinrichsweikamp
parents: 84
diff changeset
499 PLED_display_deko1:
619
85e8e1501fd8 New CF66: Show GF in NDL (If GF > CF08)
heinrichsweikamp
parents: 607
diff changeset
500 rcall PLED_display_gf ; Show GF (If GF > CF08)
85e8e1501fd8 New CF66: Show GF in NDL (If GF > CF08)
heinrichsweikamp
parents: 607
diff changeset
501 return ; Done.
85e8e1501fd8 New CF66: Show GF in NDL (If GF > CF08)
heinrichsweikamp
parents: 607
diff changeset
502
85e8e1501fd8 New CF66: Show GF in NDL (If GF > CF08)
heinrichsweikamp
parents: 607
diff changeset
503 PLED_display_gf:
85e8e1501fd8 New CF66: Show GF in NDL (If GF > CF08)
heinrichsweikamp
parents: 607
diff changeset
504 movff char_O_gradient_factor,lo ; gradient factor
85e8e1501fd8 New CF66: Show GF in NDL (If GF > CF08)
heinrichsweikamp
parents: 607
diff changeset
505 GETCUSTOM8 d'8' ; threshold for display
85e8e1501fd8 New CF66: Show GF in NDL (If GF > CF08)
heinrichsweikamp
parents: 607
diff changeset
506 cpfslt lo ; show value?
85e8e1501fd8 New CF66: Show GF in NDL (If GF > CF08)
heinrichsweikamp
parents: 607
diff changeset
507 bra PLED_display_deko2 ; Yes
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
508 ; No
619
85e8e1501fd8 New CF66: Show GF in NDL (If GF > CF08)
heinrichsweikamp
parents: 607
diff changeset
509 ; Clears Gradient Factor
85e8e1501fd8 New CF66: Show GF in NDL (If GF > CF08)
heinrichsweikamp
parents: 607
diff changeset
510 movlw d'8'
85e8e1501fd8 New CF66: Show GF in NDL (If GF > CF08)
heinrichsweikamp
parents: 607
diff changeset
511 movwf temp1
85e8e1501fd8 New CF66: Show GF in NDL (If GF > CF08)
heinrichsweikamp
parents: 607
diff changeset
512 WIN_TOP .145
85e8e1501fd8 New CF66: Show GF in NDL (If GF > CF08)
heinrichsweikamp
parents: 607
diff changeset
513 WIN_LEFT .0
85e8e1501fd8 New CF66: Show GF in NDL (If GF > CF08)
heinrichsweikamp
parents: 607
diff changeset
514 call PLED_display_clear_common_y1
85e8e1501fd8 New CF66: Show GF in NDL (If GF > CF08)
heinrichsweikamp
parents: 607
diff changeset
515 return
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
516
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
517 PLED_display_deko2:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
518 ostc_debug 'w' ; Sends debug-information to screen if debugmode active
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
519 ;GF
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
520 WIN_TOP .145
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
521 WIN_LEFT .0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
522 WIN_FONT FT_SMALL
27
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
523 PLED_color_code warn_gf ; Color-code Output
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
524
446
92304826000d localisation part2 from Sergei
heinrichsweikamp
parents: 430
diff changeset
525 STRCPY TXT_GF3
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
526 movff char_O_gradient_factor,lo ; gradient factor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
527 output_8
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
528 STRCAT_PRINT "% "
27
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
529 call PLED_standard_color
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
530 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
531
598
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives
heinrichsweikamp
parents: 592
diff changeset
532 PLED_show_safety_stop:
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives
heinrichsweikamp
parents: 592
diff changeset
533 tstfsz safety_stop_countdown ; Countdown at zero?
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives
heinrichsweikamp
parents: 592
diff changeset
534 bra PLED_show_safety_stop2 ; No, show stop
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives
heinrichsweikamp
parents: 592
diff changeset
535
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives
heinrichsweikamp
parents: 592
diff changeset
536 bcf show_safety_stop ; Clear flag
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives
heinrichsweikamp
parents: 592
diff changeset
537
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives
heinrichsweikamp
parents: 592
diff changeset
538 btfsc safety_stop_active ; Displayed?
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives
heinrichsweikamp
parents: 592
diff changeset
539 rcall PLED_clear_decoarea ; Yes, Clear stop
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives
heinrichsweikamp
parents: 592
diff changeset
540 bcf safety_stop_active ; Clear flag
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives
heinrichsweikamp
parents: 592
diff changeset
541 bra PLED_display_ndl_mask ; Show NDL again
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives
heinrichsweikamp
parents: 592
diff changeset
542
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives
heinrichsweikamp
parents: 592
diff changeset
543 PLED_show_safety_stop2:
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives
heinrichsweikamp
parents: 592
diff changeset
544 btfsc safety_stop_active ; Displayed?
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives
heinrichsweikamp
parents: 592
diff changeset
545 bra PLED_show_safety_stop3 ; Yes.
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives
heinrichsweikamp
parents: 592
diff changeset
546
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives
heinrichsweikamp
parents: 592
diff changeset
547 bsf safety_stop_active ; Set flag
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives
heinrichsweikamp
parents: 592
diff changeset
548
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives
heinrichsweikamp
parents: 592
diff changeset
549 btfsc menubit ; Divemode menu active?
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives
heinrichsweikamp
parents: 592
diff changeset
550 bra PLED_show_safety_stop3 ; Yes, do not display now but countdown
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives
heinrichsweikamp
parents: 592
diff changeset
551
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives
heinrichsweikamp
parents: 592
diff changeset
552 call PLED_divemask_color ; Set Color for Divemode mask
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives
heinrichsweikamp
parents: 592
diff changeset
553 DISPLAYTEXT d'227' ; Safety stop
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives
heinrichsweikamp
parents: 592
diff changeset
554
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives
heinrichsweikamp
parents: 592
diff changeset
555 PLED_show_safety_stop3:
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives
heinrichsweikamp
parents: 592
diff changeset
556 decf safety_stop_countdown,F ; Reduce countdown
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives
heinrichsweikamp
parents: 592
diff changeset
557 btfsc menubit ; Divemode menu active?
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives
heinrichsweikamp
parents: 592
diff changeset
558 return ; Yes, do not show
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives
heinrichsweikamp
parents: 592
diff changeset
559 movff safety_stop_countdown,lo
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives
heinrichsweikamp
parents: 592
diff changeset
560 call PLED_standard_color
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives
heinrichsweikamp
parents: 592
diff changeset
561 WIN_TOP .80
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives
heinrichsweikamp
parents: 592
diff changeset
562 WIN_LEFT .104
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives
heinrichsweikamp
parents: 592
diff changeset
563 WIN_FONT FT_MEDIUM
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives
heinrichsweikamp
parents: 592
diff changeset
564 WIN_INVERT .0 ; Init new Wordprocessor
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives
heinrichsweikamp
parents: 592
diff changeset
565 lfsr FSR2,letter
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives
heinrichsweikamp
parents: 592
diff changeset
566 clrf hi
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives
heinrichsweikamp
parents: 592
diff changeset
567 call convert_time ; converts hi:lo in seconds to mins (hi) and seconds (lo)
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives
heinrichsweikamp
parents: 592
diff changeset
568 movf hi,W
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives
heinrichsweikamp
parents: 592
diff changeset
569 movff lo,hi
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives
heinrichsweikamp
parents: 592
diff changeset
570 movwf lo ; exchange lo and hi
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives
heinrichsweikamp
parents: 592
diff changeset
571 output_99
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives
heinrichsweikamp
parents: 592
diff changeset
572 PUTC ':'
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives
heinrichsweikamp
parents: 592
diff changeset
573 movff hi,lo
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives
heinrichsweikamp
parents: 592
diff changeset
574 output_99x
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives
heinrichsweikamp
parents: 592
diff changeset
575 STRCAT_PRINT ""
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives
heinrichsweikamp
parents: 592
diff changeset
576 WIN_FONT FT_SMALL
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives
heinrichsweikamp
parents: 592
diff changeset
577 call PLED_standard_color
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives
heinrichsweikamp
parents: 592
diff changeset
578 return
f3735da18809 NEW: CF65: Show a safety stop for no-deco dives
heinrichsweikamp
parents: 592
diff changeset
579
199
f5e9db793dd3 Minor missing translations
JeanDo
parents: 188
diff changeset
580 ;=============================================================================
f5e9db793dd3 Minor missing translations
JeanDo
parents: 188
diff changeset
581 ; Update simulator menu with time/depth
f5e9db793dd3 Minor missing translations
JeanDo
parents: 188
diff changeset
582 ; Note: because translations might change a bit the string length, we reprint
f5e9db793dd3 Minor missing translations
JeanDo
parents: 188
diff changeset
583 ; that part of the mask to be sure the numbers fit in the right places.
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
584 PLED_simulator_data:
199
f5e9db793dd3 Minor missing translations
JeanDo
parents: 188
diff changeset
585 WIN_LEFT .20
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
586 WIN_FONT FT_SMALL
3
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
587 call PLED_standard_color
369
93c0cb14b0d2 Dive interval function
JeanDo
parents: 342
diff changeset
588
93c0cb14b0d2 Dive interval function
JeanDo
parents: 342
diff changeset
589 ;---- Updates interval line ----------------------------------------------
93c0cb14b0d2 Dive interval function
JeanDo
parents: 342
diff changeset
590 WIN_TOP .35
93c0cb14b0d2 Dive interval function
JeanDo
parents: 342
diff changeset
591 lfsr FSR2,letter
370
61742b3ef842 Merged with dive interval
JeanDo
parents: 352 369
diff changeset
592 OUTPUTTEXTH .307 ; Interval:
369
93c0cb14b0d2 Dive interval function
JeanDo
parents: 342
diff changeset
593
93c0cb14b0d2 Dive interval function
JeanDo
parents: 342
diff changeset
594 movff char_I_dive_interval,lo
93c0cb14b0d2 Dive interval function
JeanDo
parents: 342
diff changeset
595 movf lo,W
93c0cb14b0d2 Dive interval function
JeanDo
parents: 342
diff changeset
596 bnz PLED_simulator_data_1
370
61742b3ef842 Merged with dive interval
JeanDo
parents: 352 369
diff changeset
597 OUTPUTTEXTH .308 ; Now
369
93c0cb14b0d2 Dive interval function
JeanDo
parents: 342
diff changeset
598 clrf POSTINC2 ; End buffer.
93c0cb14b0d2 Dive interval function
JeanDo
parents: 342
diff changeset
599 bra PLED_simulator_data_2
93c0cb14b0d2 Dive interval function
JeanDo
parents: 342
diff changeset
600
93c0cb14b0d2 Dive interval function
JeanDo
parents: 342
diff changeset
601 PLED_simulator_data_1:
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
602 bsf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
603 output_8
446
92304826000d localisation part2 from Sergei
heinrichsweikamp
parents: 430
diff changeset
604 STRCAT TXT_0MIN5
369
93c0cb14b0d2 Dive interval function
JeanDo
parents: 342
diff changeset
605
93c0cb14b0d2 Dive interval function
JeanDo
parents: 342
diff changeset
606 PLED_simulator_data_2:
93c0cb14b0d2 Dive interval function
JeanDo
parents: 342
diff changeset
607 call word_processor
93c0cb14b0d2 Dive interval function
JeanDo
parents: 342
diff changeset
608
93c0cb14b0d2 Dive interval function
JeanDo
parents: 342
diff changeset
609 ;---- Updates bottom time line -------------------------------------------
93c0cb14b0d2 Dive interval function
JeanDo
parents: 342
diff changeset
610 WIN_TOP .95
93c0cb14b0d2 Dive interval function
JeanDo
parents: 342
diff changeset
611 lfsr FSR2,letter
93c0cb14b0d2 Dive interval function
JeanDo
parents: 342
diff changeset
612 OUTPUTTEXTH .277 ; Bottom Time:
93c0cb14b0d2 Dive interval function
JeanDo
parents: 342
diff changeset
613
430
f36b93f2fbed Minor logbook cleanups.
JeanDo
parents: 429
diff changeset
614 movff sim_btm_time,lo
369
93c0cb14b0d2 Dive interval function
JeanDo
parents: 342
diff changeset
615 bsf leftbind
93c0cb14b0d2 Dive interval function
JeanDo
parents: 342
diff changeset
616 output_8
446
92304826000d localisation part2 from Sergei
heinrichsweikamp
parents: 430
diff changeset
617 STRCAT_PRINT TXT_MIN4
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
618
369
93c0cb14b0d2 Dive interval function
JeanDo
parents: 342
diff changeset
619 ;---- Updates depth line -------------------------------------------------
93c0cb14b0d2 Dive interval function
JeanDo
parents: 342
diff changeset
620 WIN_TOP .125
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
621 lfsr FSR2,letter
199
f5e9db793dd3 Minor missing translations
JeanDo
parents: 188
diff changeset
622 OUTPUTTEXTH .278 ; Max. Depth:
f5e9db793dd3 Minor missing translations
JeanDo
parents: 188
diff changeset
623
430
f36b93f2fbed Minor logbook cleanups.
JeanDo
parents: 429
diff changeset
624 movff sim_btm_depth,lo
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
625 bsf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
626 output_8
446
92304826000d localisation part2 from Sergei
heinrichsweikamp
parents: 430
diff changeset
627 STRCAT_PRINT TXT_METER3
369
93c0cb14b0d2 Dive interval function
JeanDo
parents: 342
diff changeset
628
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
629 bcf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
630 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
631
199
f5e9db793dd3 Minor missing translations
JeanDo
parents: 188
diff changeset
632 ;=============================================================================
f5e9db793dd3 Minor missing translations
JeanDo
parents: 188
diff changeset
633
572
80a1d2d5a9ee timeout display when deco stops are violated
heinrichsweikamp
parents: 571
diff changeset
634 PLED_divemode_timeout2:
80a1d2d5a9ee timeout display when deco stops are violated
heinrichsweikamp
parents: 571
diff changeset
635 WIN_TOP .54
80a1d2d5a9ee timeout display when deco stops are violated
heinrichsweikamp
parents: 571
diff changeset
636 WIN_LEFT .112
80a1d2d5a9ee timeout display when deco stops are violated
heinrichsweikamp
parents: 571
diff changeset
637 WIN_FONT FT_SMALL
80a1d2d5a9ee timeout display when deco stops are violated
heinrichsweikamp
parents: 571
diff changeset
638 WIN_INVERT .1
80a1d2d5a9ee timeout display when deco stops are violated
heinrichsweikamp
parents: 571
diff changeset
639 call PLED_warnings_color
80a1d2d5a9ee timeout display when deco stops are violated
heinrichsweikamp
parents: 571
diff changeset
640 STRCPY 0x94 ; "End of dive" icon
80a1d2d5a9ee timeout display when deco stops are violated
heinrichsweikamp
parents: 571
diff changeset
641 movff timeout_counter, lo
80a1d2d5a9ee timeout display when deco stops are violated
heinrichsweikamp
parents: 571
diff changeset
642 movff timeout_counter2, hi
80a1d2d5a9ee timeout display when deco stops are violated
heinrichsweikamp
parents: 571
diff changeset
643 call convert_time ; converts hi:lo in minutes to hours (hi) and minutes (lo)
80a1d2d5a9ee timeout display when deco stops are violated
heinrichsweikamp
parents: 571
diff changeset
644 movf hi,W
80a1d2d5a9ee timeout display when deco stops are violated
heinrichsweikamp
parents: 571
diff changeset
645 movff lo,hi
80a1d2d5a9ee timeout display when deco stops are violated
heinrichsweikamp
parents: 571
diff changeset
646 movwf lo ; exchange lo and hi
80a1d2d5a9ee timeout display when deco stops are violated
heinrichsweikamp
parents: 571
diff changeset
647 output_99x
80a1d2d5a9ee timeout display when deco stops are violated
heinrichsweikamp
parents: 571
diff changeset
648 PUTC ':'
80a1d2d5a9ee timeout display when deco stops are violated
heinrichsweikamp
parents: 571
diff changeset
649 movff hi,lo
80a1d2d5a9ee timeout display when deco stops are violated
heinrichsweikamp
parents: 571
diff changeset
650 output_99x
80a1d2d5a9ee timeout display when deco stops are violated
heinrichsweikamp
parents: 571
diff changeset
651 STRCAT_PRINT " "
80a1d2d5a9ee timeout display when deco stops are violated
heinrichsweikamp
parents: 571
diff changeset
652 bsf timeout_display ; Set Flag
80a1d2d5a9ee timeout display when deco stops are violated
heinrichsweikamp
parents: 571
diff changeset
653 call PLED_standard_color
80a1d2d5a9ee timeout display when deco stops are violated
heinrichsweikamp
parents: 571
diff changeset
654 WIN_INVERT .0
80a1d2d5a9ee timeout display when deco stops are violated
heinrichsweikamp
parents: 571
diff changeset
655 return
80a1d2d5a9ee timeout display when deco stops are violated
heinrichsweikamp
parents: 571
diff changeset
656
408
3e0192f6c241 NEW: End-of-Dive countdown displayed after surfacing
heinrichsweikamp
parents: 406
diff changeset
657 PLED_divemode_timeout:
3e0192f6c241 NEW: End-of-Dive countdown displayed after surfacing
heinrichsweikamp
parents: 406
diff changeset
658 WIN_TOP .54
3e0192f6c241 NEW: End-of-Dive countdown displayed after surfacing
heinrichsweikamp
parents: 406
diff changeset
659 WIN_LEFT .112
3e0192f6c241 NEW: End-of-Dive countdown displayed after surfacing
heinrichsweikamp
parents: 406
diff changeset
660 WIN_FONT FT_SMALL
3e0192f6c241 NEW: End-of-Dive countdown displayed after surfacing
heinrichsweikamp
parents: 406
diff changeset
661 call PLED_standard_color
3e0192f6c241 NEW: End-of-Dive countdown displayed after surfacing
heinrichsweikamp
parents: 406
diff changeset
662 STRCPY 0x94 ; "End of dive" icon
3e0192f6c241 NEW: End-of-Dive countdown displayed after surfacing
heinrichsweikamp
parents: 406
diff changeset
663 GETCUSTOM15 d'2' ; diveloop_timeout
3e0192f6c241 NEW: End-of-Dive countdown displayed after surfacing
heinrichsweikamp
parents: 406
diff changeset
664 movff lo,sub_a+0
3e0192f6c241 NEW: End-of-Dive countdown displayed after surfacing
heinrichsweikamp
parents: 406
diff changeset
665 movff hi,sub_a+1
3e0192f6c241 NEW: End-of-Dive countdown displayed after surfacing
heinrichsweikamp
parents: 406
diff changeset
666 movff timeout_counter, sub_b+0
572
80a1d2d5a9ee timeout display when deco stops are violated
heinrichsweikamp
parents: 571
diff changeset
667 movff timeout_counter2, sub_b+1 ; Divemode timeout
408
3e0192f6c241 NEW: End-of-Dive countdown displayed after surfacing
heinrichsweikamp
parents: 406
diff changeset
668 call sub16 ; sub_c = sub_a - sub_b
3e0192f6c241 NEW: End-of-Dive countdown displayed after surfacing
heinrichsweikamp
parents: 406
diff changeset
669 movff sub_c+0,lo
3e0192f6c241 NEW: End-of-Dive countdown displayed after surfacing
heinrichsweikamp
parents: 406
diff changeset
670 movff sub_c+1,hi
3e0192f6c241 NEW: End-of-Dive countdown displayed after surfacing
heinrichsweikamp
parents: 406
diff changeset
671 call convert_time ; converts hi:lo in minutes to hours (hi) and minutes (lo)
3e0192f6c241 NEW: End-of-Dive countdown displayed after surfacing
heinrichsweikamp
parents: 406
diff changeset
672 movf hi,W
3e0192f6c241 NEW: End-of-Dive countdown displayed after surfacing
heinrichsweikamp
parents: 406
diff changeset
673 movff lo,hi
3e0192f6c241 NEW: End-of-Dive countdown displayed after surfacing
heinrichsweikamp
parents: 406
diff changeset
674 movwf lo ; exchange lo and hi
3e0192f6c241 NEW: End-of-Dive countdown displayed after surfacing
heinrichsweikamp
parents: 406
diff changeset
675 output_99x
3e0192f6c241 NEW: End-of-Dive countdown displayed after surfacing
heinrichsweikamp
parents: 406
diff changeset
676 PUTC ':'
3e0192f6c241 NEW: End-of-Dive countdown displayed after surfacing
heinrichsweikamp
parents: 406
diff changeset
677 movff hi,lo
3e0192f6c241 NEW: End-of-Dive countdown displayed after surfacing
heinrichsweikamp
parents: 406
diff changeset
678 output_99x
3e0192f6c241 NEW: End-of-Dive countdown displayed after surfacing
heinrichsweikamp
parents: 406
diff changeset
679 STRCAT_PRINT " "
3e0192f6c241 NEW: End-of-Dive countdown displayed after surfacing
heinrichsweikamp
parents: 406
diff changeset
680 bsf timeout_display ; Set Flag
3e0192f6c241 NEW: End-of-Dive countdown displayed after surfacing
heinrichsweikamp
parents: 406
diff changeset
681 return
3e0192f6c241 NEW: End-of-Dive countdown displayed after surfacing
heinrichsweikamp
parents: 406
diff changeset
682
3e0192f6c241 NEW: End-of-Dive countdown displayed after surfacing
heinrichsweikamp
parents: 406
diff changeset
683 PLED_divemode_timeout_clear:
572
80a1d2d5a9ee timeout display when deco stops are violated
heinrichsweikamp
parents: 571
diff changeset
684 btfsc dekostop_active ; Is a deco stop displayed?
80a1d2d5a9ee timeout display when deco stops are violated
heinrichsweikamp
parents: 571
diff changeset
685 call PLED_display_deko_mask ; Yes, redraw mask
80a1d2d5a9ee timeout display when deco stops are violated
heinrichsweikamp
parents: 571
diff changeset
686
408
3e0192f6c241 NEW: End-of-Dive countdown displayed after surfacing
heinrichsweikamp
parents: 406
diff changeset
687 WIN_TOP .54
3e0192f6c241 NEW: End-of-Dive countdown displayed after surfacing
heinrichsweikamp
parents: 406
diff changeset
688 WIN_LEFT .112
3e0192f6c241 NEW: End-of-Dive countdown displayed after surfacing
heinrichsweikamp
parents: 406
diff changeset
689 movlw d'6'
3e0192f6c241 NEW: End-of-Dive countdown displayed after surfacing
heinrichsweikamp
parents: 406
diff changeset
690 movwf temp1
3e0192f6c241 NEW: End-of-Dive countdown displayed after surfacing
heinrichsweikamp
parents: 406
diff changeset
691 bcf timeout_display ; Clear flag
3e0192f6c241 NEW: End-of-Dive countdown displayed after surfacing
heinrichsweikamp
parents: 406
diff changeset
692 bra PLED_display_clear_common_y1
3e0192f6c241 NEW: End-of-Dive countdown displayed after surfacing
heinrichsweikamp
parents: 406
diff changeset
693
498
4c7f7807b250 minor fixes in german layout
heinrichsweikamp
parents: 497
diff changeset
694 PLED_display_velocity_graph_clr:
497
06db5dd9149f show numeric _and_ graphic velocity, move desat, nofly and interval into isr
heinrichsweikamp
parents: 492
diff changeset
695 WIN_BOX_BLACK .20, .90, .65, .75 ; Clear graphic display
06db5dd9149f show numeric _and_ graphic velocity, move desat, nofly and interval into isr
heinrichsweikamp
parents: 492
diff changeset
696 bra PLED_display_velocity ; Continue with normal output
06db5dd9149f show numeric _and_ graphic velocity, move desat, nofly and interval into isr
heinrichsweikamp
parents: 492
diff changeset
697
492
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
698 PLED_display_velocity_graphical:
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
699 btfss neg_flag
498
4c7f7807b250 minor fixes in german layout
heinrichsweikamp
parents: 497
diff changeset
700 bra PLED_display_velocity_graph_clr
492
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
701 bsf pled_velocity_display
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
702 ; divA+0 holding the ascend speed in m/min
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
703 movff divA+0,hi ; Copy
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
704 WIN_BOX_BLACK .20, .90, .65, .75 ; Clear graphic display
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
705 GETCUSTOM8 d'36' ; Divemode mask
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
706 WIN_FRAME_COLOR .20, .90, .65, .75 ; Outer frame
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
707 GETCUSTOM8 d'36' ; Divemode mask
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
708 WIN_FRAME_COLOR .20+.10, .90-.10, .65, .75 ; Inner frames
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
709 GETCUSTOM8 d'36' ; Divemode mask
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
710 WIN_FRAME_COLOR .20+.20, .90-.20, .65, .75 ;
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
711 GETCUSTOM8 d'36' ; Divemode mask
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
712 WIN_FRAME_COLOR .20+.30, .90-.30, .65, .75 ;
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
713
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
714 GETCUSTOM8 d'47' ; color_warn_celocity_mmin
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
715 movwf xA+0
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
716 clrf xA+1
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
717 movlw .5
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
718 movwf xB+0 ; Threshold for color warning (5 color normal + 2 color warning)
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
719 clrf xB+1
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
720 call div16x16 ;xA/xB=xC with xA as remainder
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
721 ; xC+0 holds stepsize in m/min (e.g. =3 for 15m/min warning treshold)
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
722 movff hi,xA+0 ; Velocity in m/min
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
723 clrf xA+1
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
724 movff xC+0,xB+0 ; Step size
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
725 clrf xB+1
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
726 call div16x16 ;xA/xB=xC with xA as remainder
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
727 ; xC+0 now holds amount of segments to show
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
728
497
06db5dd9149f show numeric _and_ graphic velocity, move desat, nofly and interval into isr
heinrichsweikamp
parents: 492
diff changeset
729 movff hi,divA+0 ; Copy back for numeric output
492
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
730 movlw d'7'
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
731 cpfslt xC+0
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
732 bra PLED_graph_vel_7
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
733 movlw d'6'
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
734 cpfslt xC+0
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
735 bra PLED_graph_vel_6
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
736 movlw d'5'
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
737 cpfslt xC+0
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
738 bra PLED_graph_vel_5
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
739 movlw d'4'
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
740 cpfslt xC+0
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
741 bra PLED_graph_vel_4
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
742 movlw d'3'
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
743 cpfslt xC+0
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
744 bra PLED_graph_vel_3
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
745 movlw d'2'
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
746 cpfslt xC+0
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
747 bra PLED_graph_vel_2
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
748 movlw d'1'
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
749 cpfslt xC+0
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
750 bra PLED_graph_vel_1
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
751 bra PLED_graph_vel_0 ; Should not happen...
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
752
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
753 PLED_graph_vel_7:
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
754 GETCUSTOM8 d'37' ; Color warning
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
755 WIN_BOX_COLOR .22, .22+.6, .67, .73 ; Fill box
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
756 PLED_graph_vel_6:
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
757 GETCUSTOM8 d'37' ; Color warning
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
758 WIN_BOX_COLOR .32, .32+.6, .67, .73 ; Fill box
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
759 PLED_graph_vel_5:
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
760 WIN_BOX_STD .42, .42+.6, .67, .73 ; Fill box
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
761 PLED_graph_vel_4:
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
762 WIN_BOX_STD .52, .52+.6, .67, .73 ; Fill box
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
763 PLED_graph_vel_3:
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
764 WIN_BOX_STD .62, .62+.6, .67, .73 ; Fill box
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
765 PLED_graph_vel_2:
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
766 WIN_BOX_STD .72, .72+.6, .67, .73 ; Fill box
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
767 PLED_graph_vel_1:
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
768 WIN_BOX_STD .82, .82+.6, .67, .73 ; Fill box
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
769 PLED_graph_vel_0:
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
770
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
771 PLED_display_velocity:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
772 ostc_debug 'v' ; Sends debug-information to screen if debugmode active
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
773 WIN_TOP .90
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
774 WIN_LEFT .0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
775 WIN_FONT FT_SMALL
27
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
776 PLED_color_code warn_velocity ; Color code output
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
777 lfsr FSR2,letter
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
778 movlw '-'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
779 btfsc neg_flag
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
780 movlw '+'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
781 movwf POSTINC2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
782 movff divA+0,lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
783 output_99
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
784 OUTPUTTEXT d'83' ; m/min
517
a73a452ca155 Backed out changeset: b498245da3f1
heinrichsweikamp
parents: 516
diff changeset
785 call word_processor
27
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
786 call PLED_standard_color
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
787 bsf pled_velocity_display
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
788 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
789
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
790 PLED_display_velocity_clear:
492
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
791 GETCUSTOM8 d'60' ; use graphic velocity (=1)?
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
792 movwf lo
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
793 movlw d'1'
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
794 cpfseq lo ; =1?
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
795 bra PLED_display_velocity_clear1 ; No, clear text display
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
796 WIN_BOX_BLACK .20, .90, .65, .75 ; Clear graphic display
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
797
19b9e19ea4da +CHANGE: Velocity display updated every second
heinrichsweikamp
parents: 479
diff changeset
798 PLED_display_velocity_clear1:
517
a73a452ca155 Backed out changeset: b498245da3f1
heinrichsweikamp
parents: 516
diff changeset
799 movlw d'8'
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
800 movwf temp1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
801 WIN_TOP .90
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
802 WIN_LEFT .0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
803 bcf pled_velocity_display
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
804 bra PLED_display_clear_common_y1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
805
204
aad4f6e25c2d fix in logbook detail view
heinrichsweikamp
parents: 199
diff changeset
806 PLED_display_wait_clear:
aad4f6e25c2d fix in logbook detail view
heinrichsweikamp
parents: 199
diff changeset
807 WIN_BOX_BLACK .0, .25, .0, .159 ;top, bottom, left, right
aad4f6e25c2d fix in logbook detail view
heinrichsweikamp
parents: 199
diff changeset
808 return
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
809
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
810 PLED_display_clear_common_y2: ; Clears with y-scale=2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
811 WIN_FONT FT_MEDIUM
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
812 bra PLED_display_clear_common1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
813
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
814 PLED_display_clear_common_y1: ; Clears with y-scale=1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
815 WIN_FONT FT_SMALL
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
816 PLED_display_clear_common1:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
817 lfsr FSR2,letter
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
818 PLED_display_clear_common2:
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
819 PUTC ' '
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
820 decfsz temp1,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
821 bra PLED_display_clear_common2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
822 call word_processor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
823 WIN_FONT FT_SMALL
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
824 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
825
98
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 91
diff changeset
826
63
fee7c62b4de1 1.71beta - clock in divemode (CF39)
heinrichsweikamp
parents: 62
diff changeset
827 PLED_diveclock:
119
f24137eb85de Background debugger now shows STKPTR
heinrichsweikamp
parents: 116
diff changeset
828 call PLED_divemask_color ; Set Color for Divemode mask
98
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 91
diff changeset
829 DISPLAYTEXT d'255' ; Clock
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 91
diff changeset
830 call PLED_standard_color
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 91
diff changeset
831
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 91
diff changeset
832 PLED_diveclock2:
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 91
diff changeset
833 WIN_TOP .192
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 91
diff changeset
834 WIN_LEFT .123
63
fee7c62b4de1 1.71beta - clock in divemode (CF39)
heinrichsweikamp
parents: 62
diff changeset
835 WIN_FONT FT_SMALL
fee7c62b4de1 1.71beta - clock in divemode (CF39)
heinrichsweikamp
parents: 62
diff changeset
836 WIN_INVERT .0 ; Init new Wordprocessor
fee7c62b4de1 1.71beta - clock in divemode (CF39)
heinrichsweikamp
parents: 62
diff changeset
837 call PLED_standard_color
fee7c62b4de1 1.71beta - clock in divemode (CF39)
heinrichsweikamp
parents: 62
diff changeset
838 lfsr FSR2,letter
fee7c62b4de1 1.71beta - clock in divemode (CF39)
heinrichsweikamp
parents: 62
diff changeset
839 movff hours,lo
fee7c62b4de1 1.71beta - clock in divemode (CF39)
heinrichsweikamp
parents: 62
diff changeset
840 output_99x
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
841 PUTC ':'
63
fee7c62b4de1 1.71beta - clock in divemode (CF39)
heinrichsweikamp
parents: 62
diff changeset
842 movff mins,lo
fee7c62b4de1 1.71beta - clock in divemode (CF39)
heinrichsweikamp
parents: 62
diff changeset
843 output_99x
fee7c62b4de1 1.71beta - clock in divemode (CF39)
heinrichsweikamp
parents: 62
diff changeset
844 call word_processor
fee7c62b4de1 1.71beta - clock in divemode (CF39)
heinrichsweikamp
parents: 62
diff changeset
845 return
fee7c62b4de1 1.71beta - clock in divemode (CF39)
heinrichsweikamp
parents: 62
diff changeset
846
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
847 PLED_clock:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
848 ostc_debug 'c'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
849 WIN_TOP .50
56
0338aac9a267 surfacemode
heinrichsweikamp
parents: 47
diff changeset
850 WIN_LEFT .1
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
851 WIN_FONT FT_SMALL
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
852 WIN_INVERT .0 ; Init new Wordprocessor
3
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
853 call PLED_standard_color
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
854 lfsr FSR2,letter
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
855 movff hours,lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
856 output_99x
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
857 PUTC ':'
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
858 movff mins,lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
859 output_99x
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
860 PUTC ':'
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
861 movff secs,lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
862 output_99x
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
863 STRCAT_PRINT " "
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
864 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
865
111
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
866 PLED_interval:
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
867 WIN_TOP .75
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
868 WIN_LEFT .90
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
869 WIN_FONT FT_SMALL
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
870 WIN_INVERT .0 ; Init new Wordprocessor
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
871 call PLED_standard_color
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
872 lfsr FSR2,letter
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
873
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
874 movff surface_interval+0,lo
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
875 movff surface_interval+1,hi
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
876 call convert_time ; lo=mins, hi=hours
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
877
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
878 movf hi,W
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
879 movff lo,hi
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
880 movwf lo ; exchange lo and hi
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
881 output_99x
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
882 PUTC ':'
111
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
883 movff hi,lo
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
884 output_99x
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
885 STRCAT_PRINT " "
111
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
886 return
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
887
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
888
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
889 PLED_show_cf11_cf12_cf29:; Display saturations/desaturation multiplier and last deco in the customview field
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
890 WIN_TOP .25
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
891 WIN_LEFT .90
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
892 WIN_FONT FT_SMALL
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
893 WIN_INVERT .0 ; Init new Wordprocessor
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
894 call PLED_standard_color
446
92304826000d localisation part2 from Sergei
heinrichsweikamp
parents: 430
diff changeset
895 STRCPY TXT_BSAT5
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
896
111
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
897 GETCUSTOM8 d'11'
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
898 movwf lo
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
899 bsf leftbind
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
900 output_8
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
901 STRCAT_PRINT "%"
111
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
902
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
903 WIN_TOP .50
446
92304826000d localisation part2 from Sergei
heinrichsweikamp
parents: 430
diff changeset
904 STRCPY TXT_BDES5
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
905
111
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
906 GETCUSTOM8 d'12'
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
907 movwf lo
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
908 bsf leftbind
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
909 output_8
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
910 STRCAT_PRINT "%"
111
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
911
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
912 PLED_show_cf11_cf12_cf29_2:
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
913 WIN_TOP .75
446
92304826000d localisation part2 from Sergei
heinrichsweikamp
parents: 430
diff changeset
914 STRCPY TXT_LAST5
111
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
915 GETCUSTOM8 d'29'
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
916 movwf lo
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
917 bsf leftbind
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
918 output_8
446
92304826000d localisation part2 from Sergei
heinrichsweikamp
parents: 430
diff changeset
919 STRCAT_PRINT TXT_METER1
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
920
111
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
921 bcf leftbind
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
922 return
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
923
592
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63)
heinrichsweikamp
parents: 587
diff changeset
924 PLED_show_cf32_cf33_cf62_cf63: ; Display GF_LOW, GF_HIGH, pSCR ratio and drop in the customview field
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63)
heinrichsweikamp
parents: 587
diff changeset
925 WIN_TOP .25
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63)
heinrichsweikamp
parents: 587
diff changeset
926 WIN_LEFT .90
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63)
heinrichsweikamp
parents: 587
diff changeset
927 WIN_FONT FT_SMALL
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63)
heinrichsweikamp
parents: 587
diff changeset
928 WIN_INVERT .0 ; Init new Wordprocessor
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63)
heinrichsweikamp
parents: 587
diff changeset
929 call PLED_standard_color
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63)
heinrichsweikamp
parents: 587
diff changeset
930 GETCUSTOM8 d'32' ; GF_lo
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63)
heinrichsweikamp
parents: 587
diff changeset
931 movwf lo
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63)
heinrichsweikamp
parents: 587
diff changeset
932 STRCPY TXT_GFLO6
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63)
heinrichsweikamp
parents: 587
diff changeset
933 bsf leftbind
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63)
heinrichsweikamp
parents: 587
diff changeset
934 output_8
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63)
heinrichsweikamp
parents: 587
diff changeset
935 STRCAT_PRINT "%"
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63)
heinrichsweikamp
parents: 587
diff changeset
936
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63)
heinrichsweikamp
parents: 587
diff changeset
937 WIN_TOP .50
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63)
heinrichsweikamp
parents: 587
diff changeset
938 GETCUSTOM8 d'33' ; GF_hi
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63)
heinrichsweikamp
parents: 587
diff changeset
939 movwf lo
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63)
heinrichsweikamp
parents: 587
diff changeset
940 STRCPY TXT_GFHI6
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63)
heinrichsweikamp
parents: 587
diff changeset
941 bsf leftbind
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63)
heinrichsweikamp
parents: 587
diff changeset
942 output_8
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63)
heinrichsweikamp
parents: 587
diff changeset
943 STRCAT_PRINT "%"
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63)
heinrichsweikamp
parents: 587
diff changeset
944
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63)
heinrichsweikamp
parents: 587
diff changeset
945 WIN_TOP .75
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63)
heinrichsweikamp
parents: 587
diff changeset
946 lfsr FSR2,letter
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63)
heinrichsweikamp
parents: 587
diff changeset
947 GETCUSTOM8 d'62' ; O2 Drop in percent
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63)
heinrichsweikamp
parents: 587
diff changeset
948 movwf lo
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63)
heinrichsweikamp
parents: 587
diff changeset
949 bsf leftbind
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63)
heinrichsweikamp
parents: 587
diff changeset
950 output_8
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63)
heinrichsweikamp
parents: 587
diff changeset
951
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63)
heinrichsweikamp
parents: 587
diff changeset
952 STRCAT "% 1/"
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63)
heinrichsweikamp
parents: 587
diff changeset
953 GETCUSTOM8 d'63' ; Counter lung ratio in 1/X
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63)
heinrichsweikamp
parents: 587
diff changeset
954 movwf lo
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63)
heinrichsweikamp
parents: 587
diff changeset
955 output_8
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63)
heinrichsweikamp
parents: 587
diff changeset
956 bcf leftbind
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63)
heinrichsweikamp
parents: 587
diff changeset
957 STRCAT_PRINT ""
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63)
heinrichsweikamp
parents: 587
diff changeset
958 return
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63)
heinrichsweikamp
parents: 587
diff changeset
959
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63)
heinrichsweikamp
parents: 587
diff changeset
960
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63)
heinrichsweikamp
parents: 587
diff changeset
961
111
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
962 PLED_show_cf32_cf33_cf29:; Display GF_LOW, GF_HIGH and last deco in the customview field
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
963 WIN_TOP .25
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
964 WIN_LEFT .90
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
965 WIN_FONT FT_SMALL
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
966 WIN_INVERT .0 ; Init new Wordprocessor
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
967 call PLED_standard_color
180
8aced3c7590c store gf_hi and gf_lo in logbook
Heinrichsweikamp
parents: 179
diff changeset
968 GETCUSTOM8 d'32' ; GF_lo
111
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
969 movwf lo
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
970
446
92304826000d localisation part2 from Sergei
heinrichsweikamp
parents: 430
diff changeset
971 STRCPY TXT_GFLO6
111
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
972 bsf leftbind
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
973 output_8
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
974 STRCAT_PRINT "%"
111
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
975
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
976 WIN_TOP .50
180
8aced3c7590c store gf_hi and gf_lo in logbook
Heinrichsweikamp
parents: 179
diff changeset
977 GETCUSTOM8 d'33' ; GF_hi
111
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
978 movwf lo
446
92304826000d localisation part2 from Sergei
heinrichsweikamp
parents: 430
diff changeset
979 STRCPY TXT_GFHI6
111
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
980 bsf leftbind
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
981 output_8
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
982 STRCAT_PRINT "%"
111
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
983
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
984 bra PLED_show_cf11_cf12_cf29_2 ; Display CF29 in the third row and RETURN
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
985
ed7826c740a0 1.74beta rc1
heinrichsweikamp
parents: 108
diff changeset
986
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
987 PLED_logbook_cursor:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
988
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
989 PLED_menu_cursor:
204
aad4f6e25c2d fix in logbook detail view
heinrichsweikamp
parents: 199
diff changeset
990 WIN_BOX_BLACK .35, .239, .0, .16 ;top, bottom, left, right
98
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 91
diff changeset
991
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
992 WIN_LEFT .0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
993 WIN_FONT FT_SMALL
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
994 WIN_INVERT .0 ; Init new Wordprocessor
3
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
995 call PLED_standard_color
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
996
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
997 movff menupos,temp1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
998 dcfsnz temp1,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
999 movlw d'35'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1000 dcfsnz temp1,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1001 movlw d'65'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1002 dcfsnz temp1,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1003 movlw d'95'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1004 dcfsnz temp1,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1005 movlw d'125'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1006 dcfsnz temp1,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1007 movlw d'155'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1008 dcfsnz temp1,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1009 movlw d'185'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1010
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1011 movff WREG,win_top
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
1012 STRCPY_PRINT "\xB7"
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1013 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1014
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1015 PLED_menu_mask:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1016 call PLED_topline_box
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1017 WIN_INVERT .1 ; Init new Wordprocessor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1018 DISPLAYTEXT .5 ; Menu:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1019 WIN_INVERT .0 ; Init new Wordprocessor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1020 DISPLAYTEXT .6 ; Logbook
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1021 DISPLAYTEXT .7 ; Gas Setup
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1022 DISPLAYTEXT .9 ; Reset all
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1023 DISPLAYTEXT .10 ; Setup...
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1024 DISPLAYTEXT .142 ; More...
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1025 DISPLAYTEXT .11 ; Exit
624
7e2c324aa333 2.50 release
heinrichsweikamp
parents: 619
diff changeset
1026
7e2c324aa333 2.50 release
heinrichsweikamp
parents: 619
diff changeset
1027 ; Write OSTC serial in Main Menu
7e2c324aa333 2.50 release
heinrichsweikamp
parents: 619
diff changeset
1028 WIN_TOP .215
7e2c324aa333 2.50 release
heinrichsweikamp
parents: 619
diff changeset
1029 WIN_LEFT .47
7e2c324aa333 2.50 release
heinrichsweikamp
parents: 619
diff changeset
1030 GETCUSTOM8 d'64' ; Write header in blue when
7e2c324aa333 2.50 release
heinrichsweikamp
parents: 619
diff changeset
1031 call PLED_set_color ; compiled in DEBUG mode...
7e2c324aa333 2.50 release
heinrichsweikamp
parents: 619
diff changeset
1032 lfsr FSR2,letter
7e2c324aa333 2.50 release
heinrichsweikamp
parents: 619
diff changeset
1033 OUTPUTTEXTH d'262' ; "OSTC "
7e2c324aa333 2.50 release
heinrichsweikamp
parents: 619
diff changeset
1034 clrf EEADRH
7e2c324aa333 2.50 release
heinrichsweikamp
parents: 619
diff changeset
1035 clrf EEADR ; Get Serial number LOW
7e2c324aa333 2.50 release
heinrichsweikamp
parents: 619
diff changeset
1036 call read_eeprom ; read byte
7e2c324aa333 2.50 release
heinrichsweikamp
parents: 619
diff changeset
1037 movff EEDATA,lo
7e2c324aa333 2.50 release
heinrichsweikamp
parents: 619
diff changeset
1038 incf EEADR,F ; Get Serial number HIGH
7e2c324aa333 2.50 release
heinrichsweikamp
parents: 619
diff changeset
1039 call read_eeprom ; read byte
7e2c324aa333 2.50 release
heinrichsweikamp
parents: 619
diff changeset
1040 movff EEDATA,hi
7e2c324aa333 2.50 release
heinrichsweikamp
parents: 619
diff changeset
1041 bsf leftbind
7e2c324aa333 2.50 release
heinrichsweikamp
parents: 619
diff changeset
1042 output_16
7e2c324aa333 2.50 release
heinrichsweikamp
parents: 619
diff changeset
1043 call word_processor
7e2c324aa333 2.50 release
heinrichsweikamp
parents: 619
diff changeset
1044 call PLED_standard_color
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1045 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1046
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1047 PLED_setup_menu_mask:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1048 call PLED_topline_box
639
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 637
diff changeset
1049 WIN_INVERT .1 ; Init new Wordprocessor
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1050 DISPLAYTEXT .98 ; Setup Menu:
639
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 637
diff changeset
1051 WIN_INVERT .0 ; Init new Wordprocessor
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1052 DISPLAYTEXT .99 ; Custom FunctionsI
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1053 DISPLAYTEXT .153 ; Custom FunctionsII
574
101fec6a6137 New Custom Functions III menu (CF64-CF95)
heinrichsweikamp
parents: 572
diff changeset
1054 DISPLAYTEXTH .295 ; Custom FunctionsIII
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1055 DISPLAYTEXT .100 ; Decotype:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1056 DISPLAYTEXT .142 ; More...
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1057 DISPLAYTEXT .11 ; Exit
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1058 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1059
639
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 637
diff changeset
1060 PLED_ccr_setup_menu_mask:
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 637
diff changeset
1061 call PLED_topline_box
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 637
diff changeset
1062 WIN_INVERT .1 ; Init new Wordprocessor
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 637
diff changeset
1063 DISPLAYTEXT .111 ; CCR Setup Menu
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 637
diff changeset
1064 WIN_INVERT .0 ; Init new Wordprocessor
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 637
diff changeset
1065 DISPLAYTEXT .229 ; Diluent Setup
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 637
diff changeset
1066 DISPLAYTEXT .230 ; Setpoint Setup
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 637
diff changeset
1067 DISPLAYTEXT .11 ; Exit
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 637
diff changeset
1068 return
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 637
diff changeset
1069
2ab9e9a8a189 New CCR Setup Menu (In work)
heinrichsweikamp
parents: 637
diff changeset
1070
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1071 PLED_more_setup_menu_mask:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1072 call PLED_topline_box
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1073 WIN_INVERT .1 ; Init new Wordprocessor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1074 DISPLAYTEXTH .258 ; Setup Menu 2:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1075 WIN_INVERT .0 ; Init new Wordprocessor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1076 DISPLAYTEXTH .257 ; Date format:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1077 DISPLAYTEXT .129 ; Debug:
12
588a969a0cae 1.53 beta rc
heinrichsweikamp
parents: 9
diff changeset
1078 DISPLAYTEXT .187 ; Show License
574
101fec6a6137 New Custom Functions III menu (CF64-CF95)
heinrichsweikamp
parents: 572
diff changeset
1079 DISPLAYTEXTH .276 ; Salinity:
499
2ac77db9c150 Added OLED brightness setting, texts 280, 312 and 313 need update
heinrichsweikamp
parents: 498
diff changeset
1080 DISPLAYTEXTH .280 ; Brightness:
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1081 DISPLAYTEXT .11 ; Exit
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1082 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1083
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1084 PLED_more_menu_mask:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1085 call PLED_topline_box
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1086 WIN_INVERT .1 ; Init new Wordprocessor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1087 DISPLAYTEXT .144 ; Menu 2:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1088 WIN_INVERT .0 ; Init new Wordprocessor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1089 DISPLAYTEXT .8 ; Set Time
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1090 DISPLAYTEXT .110 ; Const. ppO2 Setup
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1091 DISPLAYTEXT .113 ; Battery Info
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1092 DISPLAYTEXT .247 ; Simulator
125
2907b42c195b Altimeter:
JeanDo
parents: 124
diff changeset
1093 DISPLAYTEXTH .287 ; Altimeter
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1094 DISPLAYTEXT .11 ; Exit
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1095 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1096
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1097 PLED_reset_menu_mask:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1098 call PLED_topline_box
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1099 WIN_INVERT .1 ; Init new Wordprocessor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1100 DISPLAYTEXT .28 ; Reset Menu
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1101 WIN_INVERT .0 ; Init new Wordprocessor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1102 DISPLAYTEXT .21 ; Cancel Reset
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1103 DISPLAYTEXT .245 ; Reset CF,Gases & Deco
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1104 DISPLAYTEXTH .284 ; Reset Logbook
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1105 DISPLAYTEXTH .285 ; Reboot OSTC
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1106 DISPLAYTEXTH .286 ; Reset Decodata
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1107 DISPLAYTEXT .11 ; Exit
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1108 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1109
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1110 PLED_simulator_mask:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1111 call PLED_topline_box
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1112 WIN_INVERT .1 ; Init new Wordprocessor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1113 DISPLAYTEXT .248 ; OSTC Simulator
369
93c0cb14b0d2 Dive interval function
JeanDo
parents: 342
diff changeset
1114 WIN_INVERT .0 ; Init new Wordprocessor
370
61742b3ef842 Merged with dive interval
JeanDo
parents: 352 369
diff changeset
1115 DISPLAYTEXTH .307 ; Interval:
369
93c0cb14b0d2 Dive interval function
JeanDo
parents: 342
diff changeset
1116 DISPLAYTEXT .249 ; Start Dive
93c0cb14b0d2 Dive interval function
JeanDo
parents: 342
diff changeset
1117 DISPLAYTEXTH .277 ; Bottom Time:
93c0cb14b0d2 Dive interval function
JeanDo
parents: 342
diff changeset
1118 DISPLAYTEXTH .278 ; Max. Depth:
93c0cb14b0d2 Dive interval function
JeanDo
parents: 342
diff changeset
1119 DISPLAYTEXTH .279 ; Calculate Deco
93c0cb14b0d2 Dive interval function
JeanDo
parents: 342
diff changeset
1120 DISPLAYTEXT .11 ; Exit
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1121 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1122
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1123 PLED_temp_surfmode:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1124 ostc_debug 'e'
341
2144f19fa1eb BUGFIX protect against ISR changing pressure/temperature while reading it.
JeanDo
parents: 340
diff changeset
1125 SAFE_2BYTE_COPY temperature, last_temperature
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1126 WIN_TOP .100
56
0338aac9a267 surfacemode
heinrichsweikamp
parents: 47
diff changeset
1127 WIN_LEFT .1
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1128 WIN_FONT FT_SMALL
340
ecbbbd423e86 BUGFIX save negativ temperatures in logbook (bbbug #6)
JeanDo
parents: 339
diff changeset
1129 WIN_INVERT .0 ; Init new Wordprocessor
3
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
1130 call PLED_standard_color
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
1131
341
2144f19fa1eb BUGFIX protect against ISR changing pressure/temperature while reading it.
JeanDo
parents: 340
diff changeset
1132 movff last_temperature+1,hi
2144f19fa1eb BUGFIX protect against ISR changing pressure/temperature while reading it.
JeanDo
parents: 340
diff changeset
1133 movff last_temperature+0,lo
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1134 lfsr FSR2,letter
382
f2d5d93b4ca3 negative temperature in logbook and battery info menu
heinrichsweikamp
parents: 370
diff changeset
1135 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
1136 movlw d'3'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1137 movwf ignore_digits
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1138 bsf leftbind ; left orientated output
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1139 output_16dp d'2'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1140 bcf leftbind
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
1141 STRCAT_PRINT "°C "
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1142 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1143
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1144 PLED_temp_divemode:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1145 ostc_debug 'u' ; Sends debug-information to screen if debugmode active
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1146
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1147 ; temperature
341
2144f19fa1eb BUGFIX protect against ISR changing pressure/temperature while reading it.
JeanDo
parents: 340
diff changeset
1148 SAFE_2BYTE_COPY temperature, last_temperature
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1149
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1150 WIN_TOP .216
75
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
1151 WIN_LEFT .50
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1152 WIN_FONT FT_SMALL
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1153 WIN_INVERT .0 ; Init new Wordprocessor
3
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
1154 call PLED_standard_color
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
1155
341
2144f19fa1eb BUGFIX protect against ISR changing pressure/temperature while reading it.
JeanDo
parents: 340
diff changeset
1156 movff last_temperature+1,hi
2144f19fa1eb BUGFIX protect against ISR changing pressure/temperature while reading it.
JeanDo
parents: 340
diff changeset
1157 movff last_temperature+0,lo
2144f19fa1eb BUGFIX protect against ISR changing pressure/temperature while reading it.
JeanDo
parents: 340
diff changeset
1158
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1159 lfsr FSR2,letter
382
f2d5d93b4ca3 negative temperature in logbook and battery info menu
heinrichsweikamp
parents: 370
diff changeset
1160 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
1161 movlw d'3'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1162 movwf ignore_digits
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1163 bsf leftbind ; left orientated output
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1164 output_16dp d'2'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1165 bcf leftbind
135
5c8569f95d7e temperature collision with the tissue graph
heinrichsweikamp
parents: 133
diff changeset
1166 STRCAT "° "
5c8569f95d7e temperature collision with the tissue graph
heinrichsweikamp
parents: 133
diff changeset
1167 clrf WREG ; Allow up to 5 chars to avoid
5c8569f95d7e temperature collision with the tissue graph
heinrichsweikamp
parents: 133
diff changeset
1168 movff WREG,letter+5 ; collision with sat graphs
5c8569f95d7e temperature collision with the tissue graph
heinrichsweikamp
parents: 133
diff changeset
1169 call word_processor
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1170 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1171
301
a5fd8777a598 Display ppO2[Diluent] in CCR modes
heinrichsweikamp
parents: 300
diff changeset
1172 PLED_show_ppO2: ; Show ppO2 (ppO2 stored in xC)
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1173 ostc_debug 't' ; Sends debug-information to screen if debugmode active
462
32e1174fb89e move ppO2 display two pixels up
heinrichsweikamp
parents: 446
diff changeset
1174 WIN_TOP .117
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1175 WIN_LEFT .0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1176 WIN_FONT FT_SMALL
74
a1ccb92b59cd 1.72beta release
heinrichsweikamp
parents: 73
diff changeset
1177 PLED_color_code warn_ppo2 ; Color-code output (ppO2 stored in xC)
446
92304826000d localisation part2 from Sergei
heinrichsweikamp
parents: 430
diff changeset
1178 STRCPY TXT_PPO2_5
74
a1ccb92b59cd 1.72beta release
heinrichsweikamp
parents: 73
diff changeset
1179
a1ccb92b59cd 1.72beta release
heinrichsweikamp
parents: 73
diff changeset
1180 ; Check very high ppO2 manually
398
ab962c4b19d6 Fixing issue 50, correct "Bar" to "bar" in texts and comments
heinrichsweikamp
parents: 396
diff changeset
1181 tstfsz xC+2 ; char_I_O2_ratio * p_amb/10 > 65536, ppO2>6,55bar?
74
a1ccb92b59cd 1.72beta release
heinrichsweikamp
parents: 73
diff changeset
1182 bra PLED_show_ppO2_3 ; Yes, display fixed Value!
a1ccb92b59cd 1.72beta release
heinrichsweikamp
parents: 73
diff changeset
1183
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1184 movff xC+0,lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1185 movff xC+1,hi
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1186 bsf ignore_digit4
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1187 output_16dp d'1'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1188 bcf ignore_digit4
74
a1ccb92b59cd 1.72beta release
heinrichsweikamp
parents: 73
diff changeset
1189 PLED_show_ppO2_2:
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
1190 STRCAT_PRINT " "
27
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
1191 call PLED_standard_color
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1192 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1193
74
a1ccb92b59cd 1.72beta release
heinrichsweikamp
parents: 73
diff changeset
1194 PLED_show_ppO2_3:
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
1195 STRCAT ">6.6"
74
a1ccb92b59cd 1.72beta release
heinrichsweikamp
parents: 73
diff changeset
1196 bra PLED_show_ppO2_2
a1ccb92b59cd 1.72beta release
heinrichsweikamp
parents: 73
diff changeset
1197
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1198 PLED_show_ppO2_clear: ; Clear ppO2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1199 movlw d'10'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1200 movwf temp1
462
32e1174fb89e move ppO2 display two pixels up
heinrichsweikamp
parents: 446
diff changeset
1201 WIN_TOP .117
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1202 WIN_LEFT .0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1203 call PLED_display_clear_common_y1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1204 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1205
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1206 PLED_active_gas_clear: ; clears active gas!
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1207 WIN_TOP .192
75
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
1208 WIN_LEFT .50
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1209 movlw d'5'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1210 movwf temp1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1211 bra PLED_display_clear_common_y1; also returns!
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1212
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1213 PLED_active_gas_divemode: ; Displays current gas (e.g. 40/20) if a) He>0 or b) O2>Custom9
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1214 btfsc FLAG_apnoe_mode ; Ignore in Apnoe mode
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1215 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1216
25
99512945c7a1 1.61 beta rc2
heinrichsweikamp
parents: 21
diff changeset
1217 WIN_INVERT .0 ; Init new Wordprocessor
99512945c7a1 1.61 beta rc2
heinrichsweikamp
parents: 21
diff changeset
1218 call PLED_active_gas_divemode_show ; Show gas (Non-Inverted in all cases)
99512945c7a1 1.61 beta rc2
heinrichsweikamp
parents: 21
diff changeset
1219
99512945c7a1 1.61 beta rc2
heinrichsweikamp
parents: 21
diff changeset
1220 btfss better_gas_available ;=1: A better gas is available and a gas change is advised in divemode
99512945c7a1 1.61 beta rc2
heinrichsweikamp
parents: 21
diff changeset
1221 return ; Done.
99512945c7a1 1.61 beta rc2
heinrichsweikamp
parents: 21
diff changeset
1222
99512945c7a1 1.61 beta rc2
heinrichsweikamp
parents: 21
diff changeset
1223 ; Check if Gas Output should blink when a better gas is available...
99512945c7a1 1.61 beta rc2
heinrichsweikamp
parents: 21
diff changeset
1224 GETCUSTOM8 d'42' ; =1 if gas should blink
99512945c7a1 1.61 beta rc2
heinrichsweikamp
parents: 21
diff changeset
1225 movwf lo
99512945c7a1 1.61 beta rc2
heinrichsweikamp
parents: 21
diff changeset
1226 movlw d'1'
99512945c7a1 1.61 beta rc2
heinrichsweikamp
parents: 21
diff changeset
1227 cpfseq lo ; =1?
99512945c7a1 1.61 beta rc2
heinrichsweikamp
parents: 21
diff changeset
1228 return ; No, Done.
99512945c7a1 1.61 beta rc2
heinrichsweikamp
parents: 21
diff changeset
1229
99512945c7a1 1.61 beta rc2
heinrichsweikamp
parents: 21
diff changeset
1230 btg blinking_better_gas ; Toggle blink bit...
99512945c7a1 1.61 beta rc2
heinrichsweikamp
parents: 21
diff changeset
1231 btfss blinking_better_gas ; blink now?
99512945c7a1 1.61 beta rc2
heinrichsweikamp
parents: 21
diff changeset
1232 return ; No, Done.
403
5b560559bc1a gas change blink in yellow
heinrichsweikamp
parents: 402
diff changeset
1233 movlw color_yellow ; Blink in yellow
5b560559bc1a gas change blink in yellow
heinrichsweikamp
parents: 402
diff changeset
1234 call PLED_set_color
25
99512945c7a1 1.61 beta rc2
heinrichsweikamp
parents: 21
diff changeset
1235 WIN_INVERT .1 ; Init new Wordprocessor
403
5b560559bc1a gas change blink in yellow
heinrichsweikamp
parents: 402
diff changeset
1236 call PLED_active_gas_divemode_show1 ; Show gas (Non-Inverted in all cases)
25
99512945c7a1 1.61 beta rc2
heinrichsweikamp
parents: 21
diff changeset
1237 WIN_INVERT .0 ; Init new Wordprocessor
403
5b560559bc1a gas change blink in yellow
heinrichsweikamp
parents: 402
diff changeset
1238 call PLED_standard_color
25
99512945c7a1 1.61 beta rc2
heinrichsweikamp
parents: 21
diff changeset
1239 return ; Done.
99512945c7a1 1.61 beta rc2
heinrichsweikamp
parents: 21
diff changeset
1240
99512945c7a1 1.61 beta rc2
heinrichsweikamp
parents: 21
diff changeset
1241 PLED_active_gas_divemode_show:
403
5b560559bc1a gas change blink in yellow
heinrichsweikamp
parents: 402
diff changeset
1242 call PLED_standard_color
5b560559bc1a gas change blink in yellow
heinrichsweikamp
parents: 402
diff changeset
1243 PLED_active_gas_divemode_show1:
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1244 ostc_debug 's' ; Sends debug-information to screen if debugmode active
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1245 ; gas
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1246 WIN_TOP .192
75
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
1247 WIN_LEFT .50
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1248 WIN_FONT FT_SMALL
3
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
1249
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1250 movlw d'100' ; 100% in the tank
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1251 movff char_I_N2_ratio,lo ; minus N2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1252 bsf STATUS,C ; set borrow bit
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1253 subfwb lo,W
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1254 movff char_I_He_ratio,lo ; minus He
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1255 bsf STATUS,C ; set borrow bit
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1256 subfwb lo,F ; =% O2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1257 GETCUSTOM8 d'9' ; get oxygen treshold
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1258 movff char_I_He_ratio,hi ; He ratio
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1259 cpfsgt lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1260 bra PLED_active_gas_divemode2 ; Check He
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1261 bra PLED_active_gas_divemode3 ; Skip He check, display gas
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1262
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1263 PLED_active_gas_divemode2:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1264 tstfsz hi ; He = 0 %
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1265 bra PLED_active_gas_divemode3 ; display gas
396
0386c7e1374a BUGFIX display hypoxic air in divemode (bug #41)
JeanDo
parents: 386
diff changeset
1266
0386c7e1374a BUGFIX display hypoxic air in divemode (bug #41)
JeanDo
parents: 386
diff changeset
1267 call PLED_warnings_color ; O2 below treshold, He=0 : Bad stuff !
0386c7e1374a BUGFIX display hypoxic air in divemode (bug #41)
JeanDo
parents: 386
diff changeset
1268 bra PLED_active_gas_divemode4
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1269
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1270 PLED_active_gas_divemode3:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1271 movlw d'21'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1272 cpfseq lo ; Air? (O2=21%)
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1273 bra PLED_active_gas_divemode4 ; No!
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1274 tstfsz hi ; Air? (He=0%)
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1275 bra PLED_active_gas_divemode4 ; No!
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1276
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1277 ; Yes, display "Air" instead of 21/0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1278 lfsr FSR2,letter
136
20b2c77a6cd2 active gas divemode display fix
heinrichsweikamp
parents: 135
diff changeset
1279 OUTPUTTEXTH d'264' ;"Air "
143
e82e0df6d0ea divemode gas fix
heinrichsweikamp
parents: 142
diff changeset
1280 PUTC ' '
e82e0df6d0ea divemode gas fix
heinrichsweikamp
parents: 142
diff changeset
1281 clrf WREG ; Allow up to 5 chars to avoid
e82e0df6d0ea divemode gas fix
heinrichsweikamp
parents: 142
diff changeset
1282 movff WREG,letter+5 ; collision with sat graphs
e82e0df6d0ea divemode gas fix
heinrichsweikamp
parents: 142
diff changeset
1283 bcf leftbind
e82e0df6d0ea divemode gas fix
heinrichsweikamp
parents: 142
diff changeset
1284 call word_processor
163
144822282fa3 Fusion declaration of shared C/ASM variables.
JeanDo
parents: 157
diff changeset
1285 PLED_active_better_gas:
152
e5f1cfec8113 * for better gas again
heinrichsweikamp
parents: 150
diff changeset
1286 WIN_TOP .192
157
heinrichsweikamp
parents: 152
diff changeset
1287 WIN_LEFT .43
152
e5f1cfec8113 * for better gas again
heinrichsweikamp
parents: 150
diff changeset
1288 WIN_FONT FT_SMALL
e5f1cfec8113 * for better gas again
heinrichsweikamp
parents: 150
diff changeset
1289 lfsr FSR2,letter
143
e82e0df6d0ea divemode gas fix
heinrichsweikamp
parents: 142
diff changeset
1290 movlw ' '
8
d8b426d71282 1.52 rc2
heinrichsweikamp
parents: 4
diff changeset
1291 btfsc better_gas_available ;=1: A better gas is available and a gas change is advised in divemode
d8b426d71282 1.52 rc2
heinrichsweikamp
parents: 4
diff changeset
1292 movlw '*'
d8b426d71282 1.52 rc2
heinrichsweikamp
parents: 4
diff changeset
1293 movwf POSTINC2
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1294 call word_processor
25
99512945c7a1 1.61 beta rc2
heinrichsweikamp
parents: 21
diff changeset
1295 return
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1296
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1297 PLED_active_gas_divemode4:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1298 lfsr FSR2,letter
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1299 bsf leftbind ; left orientated output
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1300 output_8 ; O2 ratio is still in "lo"
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
1301 PUTC '/'
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1302 movff char_I_He_ratio,lo ; copy He ratio into lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1303 output_8
143
e82e0df6d0ea divemode gas fix
heinrichsweikamp
parents: 142
diff changeset
1304 PUTC ' '
e82e0df6d0ea divemode gas fix
heinrichsweikamp
parents: 142
diff changeset
1305 clrf WREG ; Allow up to 5 chars to avoid
e82e0df6d0ea divemode gas fix
heinrichsweikamp
parents: 142
diff changeset
1306 movff WREG,letter+5 ; collision with sat graphs
e82e0df6d0ea divemode gas fix
heinrichsweikamp
parents: 142
diff changeset
1307 bcf leftbind
e82e0df6d0ea divemode gas fix
heinrichsweikamp
parents: 142
diff changeset
1308 call word_processor
163
144822282fa3 Fusion declaration of shared C/ASM variables.
JeanDo
parents: 157
diff changeset
1309 rcall PLED_active_better_gas ; show *, if required
396
0386c7e1374a BUGFIX display hypoxic air in divemode (bug #41)
JeanDo
parents: 386
diff changeset
1310 call PLED_standard_color ; Back to normal (if O2<21 and He=0)
143
e82e0df6d0ea divemode gas fix
heinrichsweikamp
parents: 142
diff changeset
1311 return
e82e0df6d0ea divemode gas fix
heinrichsweikamp
parents: 142
diff changeset
1312
121
e0f29e20bd24 Mix-type icons: check apnoe/gauge/CF#41, depth=0, and first gas. Changed colors.
JeanDo
parents: 119
diff changeset
1313 ;-----------------------------------------------------------------------------
e0f29e20bd24 Mix-type icons: check apnoe/gauge/CF#41, depth=0, and first gas. Changed colors.
JeanDo
parents: 119
diff changeset
1314 ; Set color to grey when gas is inactive
e0f29e20bd24 Mix-type icons: check apnoe/gauge/CF#41, depth=0, and first gas. Changed colors.
JeanDo
parents: 119
diff changeset
1315 ; Inputs: WREG : gas# (0..4)
e0f29e20bd24 Mix-type icons: check apnoe/gauge/CF#41, depth=0, and first gas. Changed colors.
JeanDo
parents: 119
diff changeset
1316 ; Trashes: lo
e0f29e20bd24 Mix-type icons: check apnoe/gauge/CF#41, depth=0, and first gas. Changed colors.
JeanDo
parents: 119
diff changeset
1317 ; New v1.44se
e0f29e20bd24 Mix-type icons: check apnoe/gauge/CF#41, depth=0, and first gas. Changed colors.
JeanDo
parents: 119
diff changeset
1318 PLED_grey_inactive_gas:
e0f29e20bd24 Mix-type icons: check apnoe/gauge/CF#41, depth=0, and first gas. Changed colors.
JeanDo
parents: 119
diff changeset
1319 movwf lo ; copy gas number 0-4
e0f29e20bd24 Mix-type icons: check apnoe/gauge/CF#41, depth=0, and first gas. Changed colors.
JeanDo
parents: 119
diff changeset
1320 incf lo,F ; 1-5
e0f29e20bd24 Mix-type icons: check apnoe/gauge/CF#41, depth=0, and first gas. Changed colors.
JeanDo
parents: 119
diff changeset
1321
e0f29e20bd24 Mix-type icons: check apnoe/gauge/CF#41, depth=0, and first gas. Changed colors.
JeanDo
parents: 119
diff changeset
1322 read_int_eeprom d'33' ; Get First gas (1-5)
e0f29e20bd24 Mix-type icons: check apnoe/gauge/CF#41, depth=0, and first gas. Changed colors.
JeanDo
parents: 119
diff changeset
1323 movf EEDATA,W
e0f29e20bd24 Mix-type icons: check apnoe/gauge/CF#41, depth=0, and first gas. Changed colors.
JeanDo
parents: 119
diff changeset
1324 subwf lo,W ; Compare with current
e0f29e20bd24 Mix-type icons: check apnoe/gauge/CF#41, depth=0, and first gas. Changed colors.
JeanDo
parents: 119
diff changeset
1325 bz PLED_white_gas ; First is always on.
e0f29e20bd24 Mix-type icons: check apnoe/gauge/CF#41, depth=0, and first gas. Changed colors.
JeanDo
parents: 119
diff changeset
1326
e0f29e20bd24 Mix-type icons: check apnoe/gauge/CF#41, depth=0, and first gas. Changed colors.
JeanDo
parents: 119
diff changeset
1327 movlw .28-1 ; Depth for gas# is at idx+28
e0f29e20bd24 Mix-type icons: check apnoe/gauge/CF#41, depth=0, and first gas. Changed colors.
JeanDo
parents: 119
diff changeset
1328 addwf lo,W
e0f29e20bd24 Mix-type icons: check apnoe/gauge/CF#41, depth=0, and first gas. Changed colors.
JeanDo
parents: 119
diff changeset
1329 movwf EEADR ; address in EEPROM.
e0f29e20bd24 Mix-type icons: check apnoe/gauge/CF#41, depth=0, and first gas. Changed colors.
JeanDo
parents: 119
diff changeset
1330 call read_eeprom ; Read depth
e0f29e20bd24 Mix-type icons: check apnoe/gauge/CF#41, depth=0, and first gas. Changed colors.
JeanDo
parents: 119
diff changeset
1331 clrf WREG
e0f29e20bd24 Mix-type icons: check apnoe/gauge/CF#41, depth=0, and first gas. Changed colors.
JeanDo
parents: 119
diff changeset
1332 cpfsgt EEDATA ; is depth > 0 ?
e0f29e20bd24 Mix-type icons: check apnoe/gauge/CF#41, depth=0, and first gas. Changed colors.
JeanDo
parents: 119
diff changeset
1333 bra PLED_grey_gas
e0f29e20bd24 Mix-type icons: check apnoe/gauge/CF#41, depth=0, and first gas. Changed colors.
JeanDo
parents: 119
diff changeset
1334
287
5f2fe81fde9f Don't force gas with depth>0 to be active.
JeanDo
parents: 286
diff changeset
1335 clrf EEADRH ; Lower page of EEPROM.
5f2fe81fde9f Don't force gas with depth>0 to be active.
JeanDo
parents: 286
diff changeset
1336 read_int_eeprom d'27' ; read flag register
121
e0f29e20bd24 Mix-type icons: check apnoe/gauge/CF#41, depth=0, and first gas. Changed colors.
JeanDo
parents: 119
diff changeset
1337 PLED_grey_inactive_gas1:
e0f29e20bd24 Mix-type icons: check apnoe/gauge/CF#41, depth=0, and first gas. Changed colors.
JeanDo
parents: 119
diff changeset
1338 rrcf EEDATA ; roll flags into carry
e0f29e20bd24 Mix-type icons: check apnoe/gauge/CF#41, depth=0, and first gas. Changed colors.
JeanDo
parents: 119
diff changeset
1339 decfsz lo,F ; max. 5 times...
e0f29e20bd24 Mix-type icons: check apnoe/gauge/CF#41, depth=0, and first gas. Changed colors.
JeanDo
parents: 119
diff changeset
1340 bra PLED_grey_inactive_gas1
e0f29e20bd24 Mix-type icons: check apnoe/gauge/CF#41, depth=0, and first gas. Changed colors.
JeanDo
parents: 119
diff changeset
1341
e0f29e20bd24 Mix-type icons: check apnoe/gauge/CF#41, depth=0, and first gas. Changed colors.
JeanDo
parents: 119
diff changeset
1342 bnc PLED_grey_gas ; test carry
e0f29e20bd24 Mix-type icons: check apnoe/gauge/CF#41, depth=0, and first gas. Changed colors.
JeanDo
parents: 119
diff changeset
1343
e0f29e20bd24 Mix-type icons: check apnoe/gauge/CF#41, depth=0, and first gas. Changed colors.
JeanDo
parents: 119
diff changeset
1344 PLED_white_gas:
e0f29e20bd24 Mix-type icons: check apnoe/gauge/CF#41, depth=0, and first gas. Changed colors.
JeanDo
parents: 119
diff changeset
1345 GETCUSTOM8 d'35' ;movlw color_white
e0f29e20bd24 Mix-type icons: check apnoe/gauge/CF#41, depth=0, and first gas. Changed colors.
JeanDo
parents: 119
diff changeset
1346 goto PLED_set_color ; grey out inactive gases!
e0f29e20bd24 Mix-type icons: check apnoe/gauge/CF#41, depth=0, and first gas. Changed colors.
JeanDo
parents: 119
diff changeset
1347
e0f29e20bd24 Mix-type icons: check apnoe/gauge/CF#41, depth=0, and first gas. Changed colors.
JeanDo
parents: 119
diff changeset
1348 PLED_grey_gas:
587
1b021a280e15 NEW CF64: Configures color for inactive gases
heinrichsweikamp
parents: 576
diff changeset
1349 GETCUSTOM8 d'64' ;movlw color_grey
121
e0f29e20bd24 Mix-type icons: check apnoe/gauge/CF#41, depth=0, and first gas. Changed colors.
JeanDo
parents: 119
diff changeset
1350 goto PLED_set_color ; grey out inactive gases!
e0f29e20bd24 Mix-type icons: check apnoe/gauge/CF#41, depth=0, and first gas. Changed colors.
JeanDo
parents: 119
diff changeset
1351
e0f29e20bd24 Mix-type icons: check apnoe/gauge/CF#41, depth=0, and first gas. Changed colors.
JeanDo
parents: 119
diff changeset
1352 ;-----------------------------------------------------------------------------
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
1353 ; Display Pre-Dive Screen
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
1354
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
1355 PLED_pre_dive_screen:
13
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1356 ; List active gases/Setpoints
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1357
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1358 btfsc FLAG_const_ppO2_mode ; in ppO2 mode?
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1359 bra PLED_pre_dive_screen3 ; Yes, display SetPoint/Sensor result list
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1360
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1361 PLED_pre_dive_screen2:
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1362 ostc_debug 'm' ; Sends debug-information to screen if debugmode active
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1363
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1364 WIN_LEFT .90
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1365 WIN_FONT FT_SMALL
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1366 bsf leftbind
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1367
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1368 movlw d'2'
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1369 movwf wait_temp ; here: stores eeprom address for gas list
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1370 movlw d'0'
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1371 movwf waitms_temp ; here: stores row for gas list
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1372 clrf hi ; here: Gas counter
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1373
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1374 PLED_pre_dive_screen2_loop:
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1375 incf hi,F ; Increase Gas
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1376 movlw d'4'
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1377 addwf wait_temp,F ; Increase eeprom address for gas list
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1378
446
92304826000d localisation part2 from Sergei
heinrichsweikamp
parents: 430
diff changeset
1379 STRCPY TXT_GAS1
13
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1380 movff hi,lo ; copy gas number
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1381 output_8 ; display gas number
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
1382 STRCAT ": "
13
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1383 movff wait_temp, EEADR; Gas #hi: %O2 - Set address in internal EEPROM
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1384 call read_eeprom ; get byte (stored in EEDATA)
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1385 movff EEDATA,lo ; copy to lo
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1386 output_8 ; outputs into Postinc2!
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
1387 PUTC '/'
13
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1388 incf EEADR,F ; Gas #hi: %He - Set address in internal EEPROM
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1389 call read_eeprom ; get byte (stored in EEDATA)
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1390 movff EEDATA,lo ; copy to lo
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1391 output_8 ; outputs into Postinc2!
121
e0f29e20bd24 Mix-type icons: check apnoe/gauge/CF#41, depth=0, and first gas. Changed colors.
JeanDo
parents: 119
diff changeset
1392
e0f29e20bd24 Mix-type icons: check apnoe/gauge/CF#41, depth=0, and first gas. Changed colors.
JeanDo
parents: 119
diff changeset
1393 decf hi,W ; Gas # in 0..4
e0f29e20bd24 Mix-type icons: check apnoe/gauge/CF#41, depth=0, and first gas. Changed colors.
JeanDo
parents: 119
diff changeset
1394 call PLED_grey_inactive_gas
e0f29e20bd24 Mix-type icons: check apnoe/gauge/CF#41, depth=0, and first gas. Changed colors.
JeanDo
parents: 119
diff changeset
1395
13
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1396 read_int_eeprom d'33' ; Read start gas (1-5)
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1397 movf EEDATA,W
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1398 cpfseq hi ; Current Gas the active gas?
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1399 bra PLED_pre_dive_screen2a
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1400 bra PLED_pre_dive_screen2b
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1401
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1402 PLED_pre_dive_screen2a:
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1403 movlw d'25'
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1404 addwf waitms_temp,F ; Increase row
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1405 WIN_LEFT .90
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1406 movff waitms_temp,win_top ; Set Row
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1407 call word_processor ; No, display gas
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1408
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1409 PLED_pre_dive_screen2b:
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1410 movlw d'5' ; list all four (remaining) gases
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1411 cpfseq hi ; All gases shown?
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1412 bra PLED_pre_dive_screen2_loop ; No
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1413
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1414 return ; No, return (OC mode)
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1415
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1416 PLED_pre_dive_screen3:
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1417 WIN_LEFT .90
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1418 WIN_FONT FT_SMALL
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1419 bsf leftbind
127
245de99d1d15 FIX SetPoint list color.
JeanDo
parents: 125
diff changeset
1420 call PLED_standard_color
13
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1421
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1422 ; list three SP in Gaslist
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1423 movlw d'35' ; 36 = current SP position in EEPROM
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1424 movwf wait_temp ; here: stores eeprom address for gas list
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1425 movlw d'0'
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1426 movwf waitms_temp ; here: stores row for gas list
164
999abb01c78f + Change data allocation scheme
JeanDo
parents: 163
diff changeset
1427 clrf apnoe_mins ; here: SP counter
13
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1428
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1429 PLED_pre_dive_screen3_loop:
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1430 incf wait_temp,F ; EEPROM address
164
999abb01c78f + Change data allocation scheme
JeanDo
parents: 163
diff changeset
1431 incf apnoe_mins,F ; Increase SP
13
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1432
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1433 movlw d'25'
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1434 addwf waitms_temp,F ; Increase row
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1435 WIN_LEFT .90
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1436 movff waitms_temp,win_top ; Set Row
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1437
446
92304826000d localisation part2 from Sergei
heinrichsweikamp
parents: 430
diff changeset
1438 STRCPY TXT_SP2
164
999abb01c78f + Change data allocation scheme
JeanDo
parents: 163
diff changeset
1439 movff apnoe_mins,lo ; copy gas number
999abb01c78f + Change data allocation scheme
JeanDo
parents: 163
diff changeset
1440 output_8 ; display gas number
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
1441 STRCAT ": "
164
999abb01c78f + Change data allocation scheme
JeanDo
parents: 163
diff changeset
1442 movff wait_temp, EEADR ; SP #hi position
999abb01c78f + Change data allocation scheme
JeanDo
parents: 163
diff changeset
1443 call read_eeprom ; get byte (stored in EEDATA)
999abb01c78f + Change data allocation scheme
JeanDo
parents: 163
diff changeset
1444 movff EEDATA,lo ; copy to lo
13
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1445 clrf hi
164
999abb01c78f + Change data allocation scheme
JeanDo
parents: 163
diff changeset
1446 output_16dp d'3' ; outputs into Postinc2!
13
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1447 call word_processor
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1448
164
999abb01c78f + Change data allocation scheme
JeanDo
parents: 163
diff changeset
1449 movlw d'3' ; list all three SP
999abb01c78f + Change data allocation scheme
JeanDo
parents: 163
diff changeset
1450 cpfseq apnoe_mins ; All gases shown?
13
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1451 bra PLED_pre_dive_screen3_loop ;no
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1452
655
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 654
diff changeset
1453
8c01edcf57fc Allow any diluent to be "First gas" in CCR modes
heinrichsweikamp
parents: 654
diff changeset
1454 call get_first_diluent ; Read first diluent into lo(O2) and hi(He)
19
07e7ca48b49d 1.56 rc1
heinrichsweikamp
parents: 17
diff changeset
1455 WIN_LEFT .90
07e7ca48b49d 1.56 rc1
heinrichsweikamp
parents: 17
diff changeset
1456 WIN_TOP .100
446
92304826000d localisation part2 from Sergei
heinrichsweikamp
parents: 430
diff changeset
1457 STRCPY TXT_DIL4
19
07e7ca48b49d 1.56 rc1
heinrichsweikamp
parents: 17
diff changeset
1458 output_8 ; O2 Ratio
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
1459 PUTC '/'
19
07e7ca48b49d 1.56 rc1
heinrichsweikamp
parents: 17
diff changeset
1460 movff hi,lo
07e7ca48b49d 1.56 rc1
heinrichsweikamp
parents: 17
diff changeset
1461 output_8 ; He Ratio
07e7ca48b49d 1.56 rc1
heinrichsweikamp
parents: 17
diff changeset
1462 call word_processor
07e7ca48b49d 1.56 rc1
heinrichsweikamp
parents: 17
diff changeset
1463
13
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1464 bcf leftbind
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1465 return ; Return (CC Mode)
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1466
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1467 PLED_active_gas_surfmode: ; Displays start gas/SP 1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1468 ostc_debug 'q' ; Sends debug-information to screen if debugmode active
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1469
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1470 btfsc FLAG_apnoe_mode ; In Apnoe mode?
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1471 return ; Yes, return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1472
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1473 btfsc gauge_mode ; In Gauge mode?
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1474 return ; Yes, return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1475
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1476 btfss FLAG_const_ppO2_mode ; are we in const. ppO2 mode?
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1477 bra PLED_active_gas_surfmode2 ; No, display gases
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1478
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1479 ; In CC Mode
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1480 WIN_TOP .135
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1481 WIN_LEFT .90
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1482 WIN_FONT FT_SMALL
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1483 WIN_INVERT .0 ; Init new Wordprocessor
3
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
1484 call PLED_standard_color
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
1485
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1486 lfsr FSR2,letter
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1487 read_int_eeprom d'36'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1488 movff EEDATA,lo ; copy to lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1489 clrf hi
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1490 output_16dp d'3' ; outputs into Postinc2!
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1491 bcf leftbind
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
1492
446
92304826000d localisation part2 from Sergei
heinrichsweikamp
parents: 430
diff changeset
1493 STRCAT_PRINT TXT_BAR3
607
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1494 return ; Done.
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1495
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1496 PLED_active_gas_surfmode2:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1497 WIN_TOP .130
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1498 WIN_LEFT .100
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1499 WIN_FONT FT_MEDIUM
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1500 WIN_INVERT .0 ; Init new Wordprocessor
3
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
1501 call PLED_standard_color
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
1502
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1503 read_int_eeprom d'33' ; Read byte (stored in EEDATA)
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1504 movff EEDATA,active_gas ; Read start gas (1-5)
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1505
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1506 decf active_gas,W ; Gas 0-4
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1507 mullw d'4'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1508 movf PRODL,W
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1509 addlw d'7' ; = address for He ratio
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1510 movwf EEADR
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1511 call read_eeprom ; Read He ratio
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1512 movff EEDATA,char_I_He_ratio ; And copy into hold register
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1513
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1514 decf active_gas,W ; Gas 0-4
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1515 mullw d'4'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1516 movf PRODL,W
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1517 addlw d'6' ; = address for O2 ratio
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1518 movwf EEADR
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1519 call read_eeprom ; Read O2 ratio
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1520 movff EEDATA, char_I_O2_ratio ; O2 ratio
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1521 movff char_I_He_ratio, wait_temp ; copy into bank1 register
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1522 bsf STATUS,C ; Borrow bit
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1523 movlw d'100' ; 100%
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1524 subfwb wait_temp,W ; minus He
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1525 bsf STATUS,C ; Borrow bit
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1526 subfwb EEDATA,F ; minus O2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1527 movff EEDATA, char_I_N2_ratio ; = N2!
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1528
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1529 movlw d'100' ; 100% in the tank
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1530 movff char_I_N2_ratio,lo ; minus N2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1531 bsf STATUS,C ; set borrow bit
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1532 subfwb lo,W
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1533 movff char_I_He_ratio,lo ; minus He
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1534 bsf STATUS,C ; set borrow bit
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1535 subfwb lo,F ; =% O2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1536
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1537 movff char_I_He_ratio,hi ; Copy into Bank1 register
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1538
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1539 movlw d'21'
607
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1540 cpfseq lo ; Air? (O2=21%)
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1541 bra PLED_active_gas_surfmode4 ; No!
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1542 tstfsz hi ; Air? (He=0%)
607
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1543 bra PLED_active_gas_surfmode4 ; No!
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1544
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1545 ; Yes, display "Air" instead of 21/0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1546 DISPLAYTEXTH d'265' ;"Air ", y-scale=2
607
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1547 return ; Done.
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1548
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1549 PLED_active_gas_surfmode4:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1550 lfsr FSR2,letter
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1551 bsf leftbind ; left orientated output
81
31fa973a70fd Kludges to emulate inexisting devices when debugged with the MPLAB software SIMulator.
JeanDo
parents: 77
diff changeset
1552 output_99 ; O2 ratio is still in "lo"
607
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1553 movff char_I_He_ratio,lo ; copy He ratio into lo
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1554 tstfsz lo ; He>0?
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1555 bra PLED_active_gas_surfmode5 ; Yes.
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1556 bra PLED_active_gas_surfmode6 ; No, skip He
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1557 PLED_active_gas_surfmode5:
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
1558 PUTC '/'
81
31fa973a70fd Kludges to emulate inexisting devices when debugged with the MPLAB software SIMulator.
JeanDo
parents: 77
diff changeset
1559 output_99
607
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1560 PLED_active_gas_surfmode6:
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1561 bcf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1562 call word_processor
607
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1563
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1564 rcall PLED_mainscreen_show_nx
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1565 tstfsz lo ; He>0?
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1566 rcall PLED_mainscreen_show_tx ; Yes
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1567 return ; Done.
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1568
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1569 PLED_mainscreen_show_tx:
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1570 WIN_LEFT .85
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1571 WIN_FONT FT_SMALL
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1572 WIN_INVERT .0 ; Init new Wordprocessor
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1573 WIN_TOP .127
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1574
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1575 STRCPY_PRINT TXT_TX1
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1576 WIN_TOP .148
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1577 STRCPY_PRINT TXT_TX2
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1578 return
607
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1579 PLED_mainscreen_show_nx:
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1580 WIN_LEFT .85
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1581 WIN_TOP .127
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1582 WIN_FONT FT_SMALL
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1583 WIN_INVERT .0 ; Init new Wordprocessor
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1584
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1585 STRCPY_PRINT TXT_NX1
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1586 WIN_TOP .148
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1587 STRCPY_PRINT TXT_NX2
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1588 return
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1589
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1590
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1591 PLED_confirmbox:
204
aad4f6e25c2d fix in logbook detail view
heinrichsweikamp
parents: 199
diff changeset
1592 WIN_BOX_BLACK .68, .146, .34, .101 ;top, bottom, left, right
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
1593 WIN_FRAME_STD .70, .144, .35, .100
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
1594
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1595 DISPLAYTEXT .143 ; Confirm:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1596 DISPLAYTEXT .145 ; Cancel
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1597 DISPLAYTEXT .146 ; OK!
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1598
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1599 movlw d'1'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1600 movwf menupos
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1601
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1602 PLED_confirmbox2:
204
aad4f6e25c2d fix in logbook detail view
heinrichsweikamp
parents: 199
diff changeset
1603 WIN_BOX_BLACK .96, .143, .39, .51 ;top, bottom, left, right
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1604
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1605 movff menupos,temp1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1606 movlw d'96'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1607 dcfsnz temp1,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1608 movlw d'96'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1609 dcfsnz temp1,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1610 movlw d'120'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1611 movff WREG,win_top
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1612 WIN_LEFT .39
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1613 WIN_FONT FT_SMALL
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1614 WIN_INVERT .0 ; Init new Wordprocessor
3
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
1615 call PLED_standard_color
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
1616
129
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53)
Heinrichsweikamp
parents: 127
diff changeset
1617 STRCPY_PRINT "\xB7" ; Cursor
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1618
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1619 bcf sleepmode ; clear some flags
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1620 bcf menubit2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1621 bcf menubit3
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1622 bcf switch_right
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1623 bcf switch_left
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1624 clrf timeout_counter2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1625 WAITMS d'100'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1626
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1627 PLED_confirmbox_loop:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1628 call check_switches_logbook
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1629
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1630 btfsc menubit3 ; SET/MENU?
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1631 bra PLED_confirmbox_move_cursor; Move Cursor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1632 btfsc menubit2 ; ENTER?
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1633 bra PLED_confirmbox_menu_do ; Do task
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1634
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1635 btfsc onesecupdate
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1636 call timeout_surfmode ; timeout
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1637
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1638 btfsc onesecupdate
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1639 call set_dive_modes ; check, if divemode must be entered
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1640 bcf onesecupdate ; one second update
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1641
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1642 btfsc sleepmode ; Timeout?
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1643 bra PLED_confirmbox_cancel ; back with cancel
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1644 btfsc divemode
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1645 bra PLED_confirmbox_cancel ; back with cancel
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1646
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1647 bra PLED_confirmbox_loop ; wait for something to do
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1648
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1649 PLED_confirmbox_cancel:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1650 retlw .0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1651 PLED_confirmbox_ok:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1652 retlw .1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1653
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1654 PLED_confirmbox_menu_do:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1655 dcfsnz menupos,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1656 bra PLED_confirmbox_cancel
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1657 dcfsnz menupos,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1658 bra PLED_confirmbox_ok
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1659 bra PLED_confirmbox_cancel
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1660
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1661 PLED_confirmbox_move_cursor:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1662 incf menupos,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1663 movlw d'3' ; number of menu options+1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1664 cpfseq menupos ; =limit?
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1665 bra PLED_confirmbox_move_cursor2 ; No!
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1666 movlw d'1' ; Yes, reset to position 1!
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1667 movwf menupos
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1668 PLED_confirmbox_move_cursor2:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1669 bra PLED_confirmbox2 ; Return to Profile Menu, also updates cursor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1670
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1671
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1672 PLED_depth:
529
e2acb601504c some cleanup
heinrichsweikamp
parents: 528
diff changeset
1673 ; ostc_debug 'r' ; Sends debug-information to screen if debugmode active
341
2144f19fa1eb BUGFIX protect against ISR changing pressure/temperature while reading it.
JeanDo
parents: 340
diff changeset
1674 SAFE_2BYTE_COPY rel_pressure, lo
517
a73a452ca155 Backed out changeset: b498245da3f1
heinrichsweikamp
parents: 516
diff changeset
1675 call adjust_depth_with_salinity ; computes salinity setting into lo:hi [mbar]
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1676
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1677 movlw .039
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1678 cpfslt hi
517
a73a452ca155 Backed out changeset: b498245da3f1
heinrichsweikamp
parents: 516
diff changeset
1679 bra depth_greater_99_84mtr
a73a452ca155 Backed out changeset: b498245da3f1
heinrichsweikamp
parents: 516
diff changeset
1680
a73a452ca155 Backed out changeset: b498245da3f1
heinrichsweikamp
parents: 516
diff changeset
1681 btfsc depth_greater_100m ; Was depth>100m during last call
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1682 call PLED_clear_depth ; Yes, clear depth area
517
a73a452ca155 Backed out changeset: b498245da3f1
heinrichsweikamp
parents: 516
diff changeset
1683 bcf depth_greater_100m ; Do this once only...
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1684
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1685 lfsr FSR2,letter
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1686
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1687 movlw HIGH d'1000'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1688 movwf sub_a+1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1689 movlw LOW d'1000'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1690 movwf sub_a+0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1691 movff hi,sub_b+1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1692 movff lo,sub_b+0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1693 incf sub_b+0,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1694 movlw d'0'
398
ab962c4b19d6 Fixing issue 50, correct "Bar" to "bar" in texts and comments
heinrichsweikamp
parents: 396
diff changeset
1695 addwfc sub_b+1,F ; Add 1mbar offset
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1696 call sub16 ; sub_c = sub_a - sub_b
517
a73a452ca155 Backed out changeset: b498245da3f1
heinrichsweikamp
parents: 516
diff changeset
1697 btfss neg_flag ; Depth lower then 10m?
a73a452ca155 Backed out changeset: b498245da3f1
heinrichsweikamp
parents: 516
diff changeset
1698 rcall depth_less_10mtr ; Yes, add extra space
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1699
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1700 WIN_TOP .24
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1701 WIN_LEFT .0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1702 WIN_FONT FT_LARGE
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1703 WIN_INVERT .0 ; Init new Wordprocessor
27
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
1704 PLED_color_code warn_depth ; Color-code the output
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1705
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1706 movlw HIGH d'99'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1707 movwf sub_a+1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1708 movlw LOW d'99'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1709 movwf sub_a+0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1710 movff hi,sub_b+1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1711 movff lo,sub_b+0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1712 call sub16 ; sub_c = sub_a - sub_b
517
a73a452ca155 Backed out changeset: b498245da3f1
heinrichsweikamp
parents: 516
diff changeset
1713 btfss neg_flag ; Depth lower then 1m?
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1714 bra pled_depth2 ; Yes, display manual Zero
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1715
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1716 bsf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1717 bsf ignore_digit4
386
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
1718 output_16 ; Full meters in Big font
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1719 bcf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1720 bra pled_depth3
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1721
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1722 pled_depth2:
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
1723 PUTC '0'
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
1724
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1725 pled_depth3:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1726 call word_processor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1727 bcf ignore_digit4
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1728
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1729 WIN_FONT FT_MEDIUM
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1730 WIN_TOP .50
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1731 WIN_LEFT .40
27
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
1732 PLED_color_code warn_depth ; Color-code the output
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1733
341
2144f19fa1eb BUGFIX protect against ISR changing pressure/temperature while reading it.
JeanDo
parents: 340
diff changeset
1734 SAFE_2BYTE_COPY rel_pressure, lo
398
ab962c4b19d6 Fixing issue 50, correct "Bar" to "bar" in texts and comments
heinrichsweikamp
parents: 396
diff changeset
1735 call adjust_depth_with_salinity ; computes salinity setting into lo:hi [mbar]
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
1736
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
1737 STRCPY "."
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1738
386
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
1739 movlw HIGH d'20' ; Display 0.0m if lower then 20cm
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1740 movwf sub_a+1
386
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
1741 movlw LOW d'20'
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1742 movwf sub_a+0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1743 movff hi,sub_b+1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1744 movff lo,sub_b+0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1745 call sub16 ; sub_c = sub_a - sub_b
386
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
1746 btfss neg_flag ; Depth lower then 0.3m?
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1747 bra pled_depth4 ; Yes, display manual Zero
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1748
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1749 movlw d'4'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1750 movwf ignore_digits
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1751 bsf ignore_digit5
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1752 output_16dp d'0'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1753 bra pled_depth5
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1754
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1755 pled_depth4:
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
1756 PUTC '0'
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1757
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1758 pled_depth5:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1759 call word_processor ; decimeters in medium font
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1760 bcf ignore_digit5
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1761 WIN_FONT FT_SMALL
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1762 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1763
517
a73a452ca155 Backed out changeset: b498245da3f1
heinrichsweikamp
parents: 516
diff changeset
1764 depth_greater_99_84mtr: ; Display only in full meters
a73a452ca155 Backed out changeset: b498245da3f1
heinrichsweikamp
parents: 516
diff changeset
1765 btfss depth_greater_100m ; Is depth>100m already?
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1766 call PLED_clear_depth ; No, clear depth area and set flag
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1767 ; Depth is already in hi:lo
517
a73a452ca155 Backed out changeset: b498245da3f1
heinrichsweikamp
parents: 516
diff changeset
1768 ; Show depth in Full meters
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1769 ; That means ignore figure 4 and 5
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1770 lfsr FSR2,letter
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1771 WIN_TOP .24
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1772 WIN_LEFT .0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1773 WIN_FONT FT_LARGE
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1774 WIN_INVERT .0 ; Init new Wordprocessor
27
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
1775 PLED_color_code warn_depth ; Color-code the output
3
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
1776
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1777 bsf ignore_digit4
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1778 bsf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1779 output_16
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1780 bcf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1781 call word_processor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1782 bcf ignore_digit4
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1783 WIN_FONT FT_SMALL
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1784 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1785
517
a73a452ca155 Backed out changeset: b498245da3f1
heinrichsweikamp
parents: 516
diff changeset
1786 depth_less_10mtr:
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
1787 PUTC ' '
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1788 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1789
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1790 PLED_clear_depth ; No, clear depth area and set flag
204
aad4f6e25c2d fix in logbook detail view
heinrichsweikamp
parents: 199
diff changeset
1791 WIN_BOX_BLACK .24, .90, .0, .90 ;top, bottom, left, right
517
a73a452ca155 Backed out changeset: b498245da3f1
heinrichsweikamp
parents: 516
diff changeset
1792 bsf depth_greater_100m ; Set Flag
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1793 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1794
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1795 PLED_desaturation_time:
140
87a53efbb5ba "beta" shown for beta versions
heinrichsweikamp
parents: 138
diff changeset
1796 movff int_O_desaturation_time+0,lo
87a53efbb5ba "beta" shown for beta versions
heinrichsweikamp
parents: 138
diff changeset
1797 movff int_O_desaturation_time+1,hi ; Copy
87a53efbb5ba "beta" shown for beta versions
heinrichsweikamp
parents: 138
diff changeset
1798 tstfsz lo ; =0?
87a53efbb5ba "beta" shown for beta versions
heinrichsweikamp
parents: 138
diff changeset
1799 bra PLED_desaturation_time2 ; No!
87a53efbb5ba "beta" shown for beta versions
heinrichsweikamp
parents: 138
diff changeset
1800 tstfsz hi ; =0?
87a53efbb5ba "beta" shown for beta versions
heinrichsweikamp
parents: 138
diff changeset
1801 bra PLED_desaturation_time2 ; No!
87a53efbb5ba "beta" shown for beta versions
heinrichsweikamp
parents: 138
diff changeset
1802 return ; Do not display Desat
87a53efbb5ba "beta" shown for beta versions
heinrichsweikamp
parents: 138
diff changeset
1803
87a53efbb5ba "beta" shown for beta versions
heinrichsweikamp
parents: 138
diff changeset
1804 PLED_desaturation_time2:
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1805 ostc_debug 'h'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1806 WIN_TOP .150
56
0338aac9a267 surfacemode
heinrichsweikamp
parents: 47
diff changeset
1807 WIN_LEFT .1
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1808 WIN_FONT FT_SMALL
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1809 WIN_INVERT .0 ; Init new Wordprocessor
3
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
1810 call PLED_standard_color
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
1811
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1812 lfsr FSR2,letter
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1813 OUTPUTTEXT d'14' ; Desat
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
1814 PUTC ' '
255
1efd59d689f8 small change in the set time menu, default setpoints set to 0.8, 1.0 and 1.2Bar
heinrichsweikamp
parents: 254
diff changeset
1815 movff desaturation_time_buffer+0,lo ; divide by 60...
1efd59d689f8 small change in the set time menu, default setpoints set to 0.8, 1.0 and 1.2Bar
heinrichsweikamp
parents: 254
diff changeset
1816 movff desaturation_time_buffer+1,hi
254
8f20e8948b97 working word-around for nofly issue
heinrichsweikamp
parents: 252
diff changeset
1817
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1818 call convert_time ; converts hi:lo in minutes to hours (hi) and minutes (lo)
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1819 bsf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1820 movf lo,W
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1821 movff hi,lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1822 movwf hi ; exchange lo and hi...
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1823 output_8 ; Hours
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
1824 PUTC ':'
402
e565392e0fcc Add a trailing space for nofly and desat
heinrichsweikamp
parents: 401
diff changeset
1825 movff hi,lo ; Minutes
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1826 output_99x
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1827 bcf leftbind
402
e565392e0fcc Add a trailing space for nofly and desat
heinrichsweikamp
parents: 401
diff changeset
1828 PUTC ' '
e565392e0fcc Add a trailing space for nofly and desat
heinrichsweikamp
parents: 401
diff changeset
1829 ; clrf WREG ; Allow up to 5 chars to avoid
e565392e0fcc Add a trailing space for nofly and desat
heinrichsweikamp
parents: 401
diff changeset
1830 ; movff WREG,letter+6 ; collision with decotype letters
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1831 call word_processor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1832 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1833
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1834 PLED_nofly_time:
249
544cc5d47755 small clean
heinrichsweikamp
parents: 239
diff changeset
1835 movf nofly_time+0,W ; Is nofly null ?
544cc5d47755 small clean
heinrichsweikamp
parents: 239
diff changeset
1836 iorwf nofly_time+1,W
544cc5d47755 small clean
heinrichsweikamp
parents: 239
diff changeset
1837 bnz PLED_nofly_time2 ; No...
140
87a53efbb5ba "beta" shown for beta versions
heinrichsweikamp
parents: 138
diff changeset
1838 return
249
544cc5d47755 small clean
heinrichsweikamp
parents: 239
diff changeset
1839
140
87a53efbb5ba "beta" shown for beta versions
heinrichsweikamp
parents: 138
diff changeset
1840 PLED_nofly_time2:
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1841 ostc_debug 'g'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1842 WIN_TOP .125
56
0338aac9a267 surfacemode
heinrichsweikamp
parents: 47
diff changeset
1843 WIN_LEFT .1
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1844 WIN_FONT FT_SMALL
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1845 WIN_INVERT .0 ; Init new Wordprocessor
3
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
1846 call PLED_standard_color
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
1847
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1848 lfsr FSR2,letter
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1849 OUTPUTTEXT d'35' ; NoFly
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
1850 PUTC ' '
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1851 movff nofly_time+0,lo ; divide by 60...
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1852 movff nofly_time+1,hi
249
544cc5d47755 small clean
heinrichsweikamp
parents: 239
diff changeset
1853 call convert_time ; converts hi:lo in minutes to hours (hi) and minutes (lo)
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1854 bsf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1855 movf lo,W
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1856 movff hi,lo
519
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
1857 movwf hi ; exchange lo and hi...
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
1858 output_8 ; Hours
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
1859 PUTC ':'
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1860 movff hi,lo ; Minutes
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1861 output_99x
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1862 bcf leftbind
402
e565392e0fcc Add a trailing space for nofly and desat
heinrichsweikamp
parents: 401
diff changeset
1863 PUTC ' '
e565392e0fcc Add a trailing space for nofly and desat
heinrichsweikamp
parents: 401
diff changeset
1864 ; clrf WREG ; Allow up to 5 chars to avoid
e565392e0fcc Add a trailing space for nofly and desat
heinrichsweikamp
parents: 401
diff changeset
1865 ; movff WREG,letter+6 ; collision with decotype letters
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1866 call word_processor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1867 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1868
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1869
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1870 update_surf_press:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1871 btfsc premenu ; Do not update when "Menu?" is displayed!
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1872 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1873
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1874 ostc_debug 'b' ; Sends debug-information to screen if debugmode active
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1875 WIN_TOP .25
56
0338aac9a267 surfacemode
heinrichsweikamp
parents: 47
diff changeset
1876 WIN_LEFT .1
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1877 WIN_FONT FT_SMALL
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1878 WIN_INVERT .0 ; Init new Wordprocessor
239
3ed240d60341 High altitude (Plane/Fly) mode added
heinrichsweikamp
parents: 235
diff changeset
1879
410
c6f9eb123b85 remove of red ambient pressure (High altitude mode)
heinrichsweikamp
parents: 408
diff changeset
1880 ; btfss high_altitude_mode ; In high altitude mode?
239
3ed240d60341 High altitude (Plane/Fly) mode added
heinrichsweikamp
parents: 235
diff changeset
1881 call PLED_standard_color ; No
410
c6f9eb123b85 remove of red ambient pressure (High altitude mode)
heinrichsweikamp
parents: 408
diff changeset
1882 ; btfsc high_altitude_mode ; In high altitude mode?
c6f9eb123b85 remove of red ambient pressure (High altitude mode)
heinrichsweikamp
parents: 408
diff changeset
1883 ; call PLED_warnings_color ; Yes, display ambient pressure in red
239
3ed240d60341 High altitude (Plane/Fly) mode added
heinrichsweikamp
parents: 235
diff changeset
1884
401
6ed12fad3b97 Ignore 5mbar pressure sensor noise in surface screen
heinrichsweikamp
parents: 400
diff changeset
1885 SAFE_2BYTE_COPY amb_pressure, lo
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1886 lfsr FSR2,letter
401
6ed12fad3b97 Ignore 5mbar pressure sensor noise in surface screen
heinrichsweikamp
parents: 400
diff changeset
1887
6ed12fad3b97 Ignore 5mbar pressure sensor noise in surface screen
heinrichsweikamp
parents: 400
diff changeset
1888 movff lo,sub_a+0
6ed12fad3b97 Ignore 5mbar pressure sensor noise in surface screen
heinrichsweikamp
parents: 400
diff changeset
1889 movff hi,sub_a+1
6ed12fad3b97 Ignore 5mbar pressure sensor noise in surface screen
heinrichsweikamp
parents: 400
diff changeset
1890 movff last_surfpressure_30min+0,sub_b+0
6ed12fad3b97 Ignore 5mbar pressure sensor noise in surface screen
heinrichsweikamp
parents: 400
diff changeset
1891 movff last_surfpressure_30min+1,sub_b+1
6ed12fad3b97 Ignore 5mbar pressure sensor noise in surface screen
heinrichsweikamp
parents: 400
diff changeset
1892 call sub16 ; sub_c = sub_a - sub_b
6ed12fad3b97 Ignore 5mbar pressure sensor noise in surface screen
heinrichsweikamp
parents: 400
diff changeset
1893 btfsc neg_flag ; Pressure lower?
6ed12fad3b97 Ignore 5mbar pressure sensor noise in surface screen
heinrichsweikamp
parents: 400
diff changeset
1894 rcall update_surf_press2 ; Yes, test threshold
6ed12fad3b97 Ignore 5mbar pressure sensor noise in surface screen
heinrichsweikamp
parents: 400
diff changeset
1895
6ed12fad3b97 Ignore 5mbar pressure sensor noise in surface screen
heinrichsweikamp
parents: 400
diff changeset
1896 tstfsz sub_c+1 ; >255mbar difference?
6ed12fad3b97 Ignore 5mbar pressure sensor noise in surface screen
heinrichsweikamp
parents: 400
diff changeset
1897 bra update_surf_press_common; Yes, display!
6ed12fad3b97 Ignore 5mbar pressure sensor noise in surface screen
heinrichsweikamp
parents: 400
diff changeset
1898 movlw d'5'
6ed12fad3b97 Ignore 5mbar pressure sensor noise in surface screen
heinrichsweikamp
parents: 400
diff changeset
1899 subwf sub_c+0,W
6ed12fad3b97 Ignore 5mbar pressure sensor noise in surface screen
heinrichsweikamp
parents: 400
diff changeset
1900 btfsc STATUS,C
6ed12fad3b97 Ignore 5mbar pressure sensor noise in surface screen
heinrichsweikamp
parents: 400
diff changeset
1901 bra update_surf_press_common; Yes, display!
6ed12fad3b97 Ignore 5mbar pressure sensor noise in surface screen
heinrichsweikamp
parents: 400
diff changeset
1902 ; PUTC '+' ; For debug only
6ed12fad3b97 Ignore 5mbar pressure sensor noise in surface screen
heinrichsweikamp
parents: 400
diff changeset
1903 SAFE_2BYTE_COPY last_surfpressure_30min, lo ; Overwrite with stable value...
6ed12fad3b97 Ignore 5mbar pressure sensor noise in surface screen
heinrichsweikamp
parents: 400
diff changeset
1904
6ed12fad3b97 Ignore 5mbar pressure sensor noise in surface screen
heinrichsweikamp
parents: 400
diff changeset
1905 update_surf_press_common:
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1906 bsf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1907 output_16
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1908 bcf leftbind
446
92304826000d localisation part2 from Sergei
heinrichsweikamp
parents: 430
diff changeset
1909 STRCAT_PRINT TXT_MBAR5
239
3ed240d60341 High altitude (Plane/Fly) mode added
heinrichsweikamp
parents: 235
diff changeset
1910 call PLED_standard_color ; Reset color
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1911 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1912
401
6ed12fad3b97 Ignore 5mbar pressure sensor noise in surface screen
heinrichsweikamp
parents: 400
diff changeset
1913 update_surf_press2:
6ed12fad3b97 Ignore 5mbar pressure sensor noise in surface screen
heinrichsweikamp
parents: 400
diff changeset
1914 movff lo,sub_b+0
6ed12fad3b97 Ignore 5mbar pressure sensor noise in surface screen
heinrichsweikamp
parents: 400
diff changeset
1915 movff hi,sub_b+1
6ed12fad3b97 Ignore 5mbar pressure sensor noise in surface screen
heinrichsweikamp
parents: 400
diff changeset
1916 movff last_surfpressure_30min+0,sub_a+0
6ed12fad3b97 Ignore 5mbar pressure sensor noise in surface screen
heinrichsweikamp
parents: 400
diff changeset
1917 movff last_surfpressure_30min+1,sub_a+1
6ed12fad3b97 Ignore 5mbar pressure sensor noise in surface screen
heinrichsweikamp
parents: 400
diff changeset
1918 call sub16 ; sub_c = sub_a - sub_b
6ed12fad3b97 Ignore 5mbar pressure sensor noise in surface screen
heinrichsweikamp
parents: 400
diff changeset
1919 ; PUTC '-' ; For debug only
6ed12fad3b97 Ignore 5mbar pressure sensor noise in surface screen
heinrichsweikamp
parents: 400
diff changeset
1920 return
6ed12fad3b97 Ignore 5mbar pressure sensor noise in surface screen
heinrichsweikamp
parents: 400
diff changeset
1921
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1922 update_batt_voltage_divemode:
141
622da16b768f LowBatt! Warning in divemode
heinrichsweikamp
parents: 140
diff changeset
1923 call PLED_warnings_color
622da16b768f LowBatt! Warning in divemode
heinrichsweikamp
parents: 140
diff changeset
1924 DISPLAYTEXT d'246' ; LowBatt!
622da16b768f LowBatt! Warning in divemode
heinrichsweikamp
parents: 140
diff changeset
1925 call PLED_standard_color
622da16b768f LowBatt! Warning in divemode
heinrichsweikamp
parents: 140
diff changeset
1926 return
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1927
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1928 update_batt_voltage:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1929 ostc_debug 'f'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1930
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1931 GETCUSTOM8 d'31' ; =1 if battery voltage should be visible
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1932 movwf lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1933 movlw d'1'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1934 cpfseq lo ; =1?
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1935 bra update_batt_voltage2 ; No, show symbol
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1936
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1937 WIN_TOP .175
56
0338aac9a267 surfacemode
heinrichsweikamp
parents: 47
diff changeset
1938 WIN_LEFT .1
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1939 WIN_FONT FT_SMALL
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1940 WIN_INVERT .0 ; Init new Wordprocessor
3
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
1941 call PLED_standard_color
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
1942
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1943 lfsr FSR2,letter
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1944 movff batt_voltage+0,lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1945 movff batt_voltage+1,hi
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1946 movlw d'1'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1947 movwf ignore_digits
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1948 bsf ignore_digit5 ; do not display mV
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1949 bsf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1950 output_16dp d'2' ; e.g. 3.45V
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1951 bcf leftbind
446
92304826000d localisation part2 from Sergei
heinrichsweikamp
parents: 430
diff changeset
1952 STRCAT_PRINT TXT_VOLT2
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1953 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1954
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1955 update_batt_voltage2:
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
1956 WIN_FRAME_STD .174, .194, .1, .32
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1957
25
99512945c7a1 1.61 beta rc2
heinrichsweikamp
parents: 21
diff changeset
1958 ; 4100-Vbatt
99512945c7a1 1.61 beta rc2
heinrichsweikamp
parents: 21
diff changeset
1959 movlw LOW d'4100'
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1960 movwf sub_a+0
25
99512945c7a1 1.61 beta rc2
heinrichsweikamp
parents: 21
diff changeset
1961 movlw HIGH d'4100'
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1962 movwf sub_a+1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1963 movff batt_voltage+0,sub_b+0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1964 movff batt_voltage+1,sub_b+1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1965 call sub16 ; sub_c = sub_a - sub_b
25
99512945c7a1 1.61 beta rc2
heinrichsweikamp
parents: 21
diff changeset
1966 ; Battery full (>4100mV?
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1967 btfsc neg_flag
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1968 bra update_batt_voltage2_full
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1969
25
99512945c7a1 1.61 beta rc2
heinrichsweikamp
parents: 21
diff changeset
1970 ; Vbatt-3500
99512945c7a1 1.61 beta rc2
heinrichsweikamp
parents: 21
diff changeset
1971 movlw LOW d'3500'
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1972 movwf sub_b+0
25
99512945c7a1 1.61 beta rc2
heinrichsweikamp
parents: 21
diff changeset
1973 movlw HIGH d'3500'
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1974 movwf sub_b+1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1975 movff batt_voltage+0,sub_a+0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1976 movff batt_voltage+1,sub_a+1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1977 call sub16 ; sub_c = sub_a - sub_b
25
99512945c7a1 1.61 beta rc2
heinrichsweikamp
parents: 21
diff changeset
1978 ; Battery lower then 3500mV?
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1979 btfsc neg_flag
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1980 bra update_batt_voltage2_empty
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1981
25
99512945c7a1 1.61 beta rc2
heinrichsweikamp
parents: 21
diff changeset
1982 ; Battery is between 3500 and 4100mV
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1983 ; sub_c:2 is between 0 and 600
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1984 movff sub_c+0,xA+0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1985 movff sub_c+1,xA+1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1986 movlw d'20'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1987 movwf xB+0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1988 clrf xB+1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1989 call div16x16 ;xA/xB=xC with xA as remainder
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1990 ; xC is between 0 and 30
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1991 movff xC+0,wait_temp ;save value
56
0338aac9a267 surfacemode
heinrichsweikamp
parents: 47
diff changeset
1992 incf wait_temp,F ; +1
0338aac9a267 surfacemode
heinrichsweikamp
parents: 47
diff changeset
1993
0338aac9a267 surfacemode
heinrichsweikamp
parents: 47
diff changeset
1994 movlw d'3'
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1995 cpfsgt wait_temp
56
0338aac9a267 surfacemode
heinrichsweikamp
parents: 47
diff changeset
1996 movwf wait_temp ; Minimum = 3
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1997
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1998 update_batt_voltage2a:
519
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
1999 WIN_BOX_STD .181, .187, .32, .34 ; Battery nose
25
99512945c7a1 1.61 beta rc2
heinrichsweikamp
parents: 21
diff changeset
2000
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2001 update_batt_voltage3:
25
99512945c7a1 1.61 beta rc2
heinrichsweikamp
parents: 21
diff changeset
2002 GETCUSTOM8 d'34' ; Color battery
283
4ec488f046f4 Battery sign color coded, work on new uart-started 115200Baud bootloader (Do NOT use yet!)
heinrichsweikamp
parents: 281
diff changeset
2003 btfsc cc_active
4ec488f046f4 Battery sign color coded, work on new uart-started 115200Baud bootloader (Do NOT use yet!)
heinrichsweikamp
parents: 281
diff changeset
2004 movlw color_yellow ; CC active
285
8874b6cd8f36 small fix for the battery sign
heinrichsweikamp
parents: 283
diff changeset
2005 btfsc charge_done
8874b6cd8f36 small fix for the battery sign
heinrichsweikamp
parents: 283
diff changeset
2006 movlw color_green ; Charge done.
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
2007 call PLED_set_color
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
2008
519
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
2009 movlw .175
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
2010 movff WREG,win_top ; row top (0-239)
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
2011 movlw .19
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
2012 movff WREG,win_height
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
2013 movlw .2
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
2014 movff WREG,win_leftx2 ; column left (0-159)
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
2015 movff wait_temp,win_width ; column right (0-159)
519
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
2016 call PLED_box
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
2017 call PLED_standard_color
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2018 return
519
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
2019
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2020 update_batt_voltage2_empty:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2021 movlw d'1'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2022 movwf wait_temp
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2023 bra update_batt_voltage2a
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2024
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2025 update_batt_voltage2_full:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2026 movlw d'30'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2027 movwf wait_temp
25
99512945c7a1 1.61 beta rc2
heinrichsweikamp
parents: 21
diff changeset
2028 bra update_batt_voltage2a
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2029
382
f2d5d93b4ca3 negative temperature in logbook and battery info menu
heinrichsweikamp
parents: 370
diff changeset
2030 PLED_convert_signed_temperature:
f2d5d93b4ca3 negative temperature in logbook and battery info menu
heinrichsweikamp
parents: 370
diff changeset
2031 btfss hi,7 ; Negative temperature ?
f2d5d93b4ca3 negative temperature in logbook and battery info menu
heinrichsweikamp
parents: 370
diff changeset
2032 return ; No, return
f2d5d93b4ca3 negative temperature in logbook and battery info menu
heinrichsweikamp
parents: 370
diff changeset
2033 ; Yes, negative temperature!
f2d5d93b4ca3 negative temperature in logbook and battery info menu
heinrichsweikamp
parents: 370
diff changeset
2034 PUTC '-' ; Display "-"
f2d5d93b4ca3 negative temperature in logbook and battery info menu
heinrichsweikamp
parents: 370
diff changeset
2035 comf hi ; Then, 16bit sign changes.
f2d5d93b4ca3 negative temperature in logbook and battery info menu
heinrichsweikamp
parents: 370
diff changeset
2036 negf lo
f2d5d93b4ca3 negative temperature in logbook and battery info menu
heinrichsweikamp
parents: 370
diff changeset
2037 btfsc STATUS,C
f2d5d93b4ca3 negative temperature in logbook and battery info menu
heinrichsweikamp
parents: 370
diff changeset
2038 incf hi
f2d5d93b4ca3 negative temperature in logbook and battery info menu
heinrichsweikamp
parents: 370
diff changeset
2039 return ; and return
f2d5d93b4ca3 negative temperature in logbook and battery info menu
heinrichsweikamp
parents: 370
diff changeset
2040
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2041 PLED_convert_date: ; converts into "DD/MM/YY" or "MM/DD/YY" or "YY/MM/DD" in postinc2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2042 read_int_eeprom d'91' ; Read date format (0=MMDDYY, 1=DDMMYY, 2=YYMMDD)
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2043 tstfsz EEDATA
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2044 bra PLED_convert_date1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2045
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2046 ; Use MMDDYY
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2047 movff convert_value_temp+0,lo ;month
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2048 bsf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2049 output_99x
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2050 bcf leftbind
140
87a53efbb5ba "beta" shown for beta versions
heinrichsweikamp
parents: 138
diff changeset
2051 PUTC '.'
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2052 movff convert_value_temp+1,lo ;day
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2053 bra PLED_convert_date1_common ;year
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2054
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2055 PLED_convert_date1:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2056 read_int_eeprom d'91' ; Read date format (0=MMDDYY, 1=DDMMYY, 2=YYMMDD)
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2057 decfsz EEDATA,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2058 bra PLED_convert_date2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2059
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2060 ; Use DDMMYY
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2061 movff convert_value_temp+1,lo ;day
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2062 bsf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2063 output_99x
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2064 bcf leftbind
140
87a53efbb5ba "beta" shown for beta versions
heinrichsweikamp
parents: 138
diff changeset
2065 PUTC '.'
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2066 movff convert_value_temp+0,lo ;month
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2067
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2068 PLED_convert_date1_common:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2069 bsf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2070 output_99x
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2071 bcf leftbind
140
87a53efbb5ba "beta" shown for beta versions
heinrichsweikamp
parents: 138
diff changeset
2072 PUTC '.'
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2073 movff convert_value_temp+2,lo ;year
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2074 bsf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2075 output_99x
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2076 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2077
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2078 PLED_convert_date2:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2079 ; Use YYMMDD
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2080 movff convert_value_temp+2,lo ;year
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2081 bsf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2082 output_99x
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2083 bcf leftbind
140
87a53efbb5ba "beta" shown for beta versions
heinrichsweikamp
parents: 138
diff changeset
2084 PUTC '.'
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2085 movff convert_value_temp+0,lo ;month
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2086 bsf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2087 output_99x
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2088 bcf leftbind
140
87a53efbb5ba "beta" shown for beta versions
heinrichsweikamp
parents: 138
diff changeset
2089 PUTC '.'
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2090 movff convert_value_temp+1,lo ;day
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2091 bsf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2092 output_99x
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2093 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2094
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2095 PLED_convert_date_short: ; converts into "DD/MM" or "MM/DD" or "MM/DD" in postinc2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2096 read_int_eeprom d'91' ; Read date format (0=MMDDYY, 1=DDMMYY, 2=YYMMDD)
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2097 tstfsz EEDATA
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2098 bra PLED_convert_date_short1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2099
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2100 ; Use MMDDYY
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2101 PLED_convert_date_short_common:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2102 movff convert_value_temp+0,lo ;month
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2103 bsf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2104 output_99x
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2105 bcf leftbind
140
87a53efbb5ba "beta" shown for beta versions
heinrichsweikamp
parents: 138
diff changeset
2106 PUTC '.'
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2107 movff convert_value_temp+1,lo ;day
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2108 bsf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2109 output_99x
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2110 bcf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2111 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2112
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2113 PLED_convert_date_short1:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2114 read_int_eeprom d'91' ; Read date format (0=MMDDYY, 1=DDMMYY, 2=YYMMDD)
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2115 decfsz EEDATA,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2116 bra PLED_convert_date_short_common ; Use YYMMDD
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2117
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2118 ; Use DDMMYY
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2119 movff convert_value_temp+1,lo ;day
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2120 bsf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2121 output_99x
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2122 bcf leftbind
140
87a53efbb5ba "beta" shown for beta versions
heinrichsweikamp
parents: 138
diff changeset
2123 PUTC '.'
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2124 movff convert_value_temp+0,lo ;month
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2125 bsf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2126 output_99x
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2127 bcf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2128 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2129
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2130 update_date:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2131 ostc_debug 'd'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2132 WIN_TOP .75
56
0338aac9a267 surfacemode
heinrichsweikamp
parents: 47
diff changeset
2133 WIN_LEFT .1
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2134 WIN_FONT FT_SMALL
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2135 WIN_INVERT .0 ; Init new Wordprocessor
3
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
2136 call PLED_standard_color
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
2137
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2138 lfsr FSR2,letter
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2139
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2140 movff month,convert_value_temp+0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2141 movff day,convert_value_temp+1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2142 movff year,convert_value_temp+2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2143 call PLED_convert_date ; converts into "DD/MM/YY" or "MM/DD/YY" or "YY/MM/DD" in postinc2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2144 call word_processor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2145 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2146
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2147 PLED_menu_clear:
637
47ad50ca5d26 remove ?Men?? completely
heinrichsweikamp
parents: 627
diff changeset
2148 WIN_BOX_BLACK .0, .26, .50, .100 ;top, bottom, left, right
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2149 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2150
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2151 PLED_max_pressure:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2152 ostc_debug 'p' ; Sends debug-information to screen if debugmode active
75
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
2153 movff max_pressure+0,lo
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
2154 movff max_pressure+1,hi
398
ab962c4b19d6 Fixing issue 50, correct "Bar" to "bar" in texts and comments
heinrichsweikamp
parents: 396
diff changeset
2155 call adjust_depth_with_salinity ; computes salinity setting into lo:hi [mbar]
75
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
2156
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
2157 movlw .039
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
2158 cpfslt hi
517
a73a452ca155 Backed out changeset: b498245da3f1
heinrichsweikamp
parents: 516
diff changeset
2159 bra maxdepth_greater_99_84mtr
75
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
2160
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
2161 ; Display normal "xx.y"
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
2162 lfsr FSR2,letter
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
2163 call PLED_standard_color
654
a38d82918458 minor layout change
heinrichsweikamp
parents: 653
diff changeset
2164 WIN_TOP .207
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2165 WIN_LEFT .0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2166 WIN_FONT FT_MEDIUM
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2167 WIN_INVERT .0 ; Init new Wordprocessor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2168 bsf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2169 bsf ignore_digit5 ; do not display 1cm depth
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2170 output_16dp d'3'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2171 bcf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2172 bcf show_last3
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2173 call word_processor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2174 WIN_FONT FT_SMALL
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2175 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2176
517
a73a452ca155 Backed out changeset: b498245da3f1
heinrichsweikamp
parents: 516
diff changeset
2177 maxdepth_greater_99_84mtr: ; Display only in full meters
a73a452ca155 Backed out changeset: b498245da3f1
heinrichsweikamp
parents: 516
diff changeset
2178 btfss maxdepth_greater_100m ; Is max.depth>100m already?
75
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
2179 call PLED_clear_maxdepth ; No, clear maxdepth area and set flag
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
2180 ; max Depth is already in hi:lo
517
a73a452ca155 Backed out changeset: b498245da3f1
heinrichsweikamp
parents: 516
diff changeset
2181 ; Show max depth in Full meters
75
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
2182 ; That means ignore figure 4 and 5
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
2183 lfsr FSR2,letter
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
2184 call PLED_standard_color
654
a38d82918458 minor layout change
heinrichsweikamp
parents: 653
diff changeset
2185 WIN_TOP .207
75
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
2186 WIN_LEFT .0
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
2187 WIN_FONT FT_MEDIUM
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
2188 WIN_INVERT .0 ; Init new Wordprocessor
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
2189
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
2190 bsf ignore_digit4
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
2191 bsf leftbind
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
2192 output_16
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
2193 bcf leftbind
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
2194 call word_processor
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
2195 bcf ignore_digit4
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
2196 WIN_FONT FT_SMALL
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
2197 return
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
2198
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
2199 PLED_clear_maxdepth:
654
a38d82918458 minor layout change
heinrichsweikamp
parents: 653
diff changeset
2200 WIN_BOX_BLACK .207, .239, .0, .41 ;top, bottom, left, right
517
a73a452ca155 Backed out changeset: b498245da3f1
heinrichsweikamp
parents: 516
diff changeset
2201 bsf maxdepth_greater_100m ; Set Flag
75
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
2202 return
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
2203
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2204 PLED_divemins:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2205 btfsc menubit ; Divemode menu active?
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2206 return ; Yes, do not update divetime
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2207
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2208 ostc_debug 'A' ; Sends debug-information to screen if debugmode active
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2209
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2210 btfsc gauge_mode ; different display in gauge mode
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2211 bra PLED_divemins_gauge
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2212
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2213 btfsc FLAG_apnoe_mode ; different display in apnoe mode
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2214 bra PLED_divemins_apnoe
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2215
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2216 GETCUSTOM8 d'38' ; Show seconds (=1?)
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2217 movwf lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2218 movlw d'1'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2219 cpfseq lo ; =1?
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2220 bra PLED_divemins2 ; No, minutes only
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2221 bra PLED_divemins_gauge ; Yes, use Gauge routine
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2222
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2223 PLED_divemins2:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2224 movff divemins+0,lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2225 movff divemins+1,hi
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2226 bcf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2227 lfsr FSR2,letter
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2228 output_16_3 ; displays only last three figures from a 16Bit value (0-999)
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2229 WIN_TOP .20
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2230 WIN_LEFT .120
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2231 WIN_FONT FT_MEDIUM
3
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
2232 call PLED_standard_color
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2233 call word_processor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2234 WIN_FONT FT_SMALL
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2235 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2236
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2237 PLED_display_apnoe_surface:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2238 btfsc menubit ; Divemode menu active?
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2239 return ; Yes, do not display surface mode timeout
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2240
9
395230c28023 Added CF36: Divemask color
heinrichsweikamp
parents: 8
diff changeset
2241 call PLED_divemask_color ; Set Color for Divemode mask
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2242 DISPLAYTEXT d'140' ; "SURFACE"
3
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
2243 call PLED_standard_color
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
2244
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2245 WIN_TOP .85
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2246 WIN_LEFT .90
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2247 WIN_FONT FT_MEDIUM
3
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
2248 call PLED_standard_color
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
2249
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2250
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2251 movff apnoe_surface_mins,lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2252 bcf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2253 lfsr FSR2,letter
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2254 output_8
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
2255 PUTC ':'
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2256 movff apnoe_surface_secs,lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2257 output_99x
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2258 call word_processor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2259 WIN_FONT FT_SMALL
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2260 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2261
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2262 PLED_apnoe_clear_surface:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2263 ; Clear Surface timer....
204
aad4f6e25c2d fix in logbook detail view
heinrichsweikamp
parents: 199
diff changeset
2264 WIN_BOX_BLACK .60, .119, .90, .159 ;top, bottom, left, right
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2265 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2266
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2267
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2268 PLED_display_apnoe_descent:
400
40b282821dcf fixes issue #48
heinrichsweikamp
parents: 399
diff changeset
2269 btfsc menubit ; Divemode menu active?
40b282821dcf fixes issue #48
heinrichsweikamp
parents: 399
diff changeset
2270 return ; Yes, do not display/update descent time
40b282821dcf fixes issue #48
heinrichsweikamp
parents: 399
diff changeset
2271
9
395230c28023 Added CF36: Divemask color
heinrichsweikamp
parents: 8
diff changeset
2272 call PLED_divemask_color ; Set Color for Divemode mask
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2273 DISPLAYTEXT d'139' ; "Descent"
3
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
2274 call PLED_standard_color
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
2275
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2276
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2277 WIN_TOP .145
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2278 WIN_LEFT .90
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2279 WIN_FONT FT_MEDIUM
3
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
2280 call PLED_standard_color
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
2281
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2282
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2283 movff apnoe_mins,lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2284 lfsr FSR2,letter
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2285 output_8
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
2286 PUTC ':'
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2287 movff apnoe_secs,lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2288 output_99x
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2289 call word_processor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2290 WIN_FONT FT_SMALL
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2291 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2292
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2293 PLED_divemins_apnoe:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2294
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2295 PLED_divemins_gauge:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2296 movff divemins+0,lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2297 movff divemins+1,hi
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2298 bcf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2299 bsf show_last3
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2300 lfsr FSR2,letter
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2301 output_16_3 ;Displays only 0...999
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
2302 PUTC ':'
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2303 movff divesecs,lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2304 output_99x
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2305 WIN_TOP .20
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2306 WIN_LEFT .90
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2307 WIN_FONT FT_MEDIUM
3
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
2308 call PLED_standard_color
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
2309
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2310 call word_processor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2311 bcf show_last3
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2312 WIN_FONT FT_SMALL
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2313 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2314
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2315 PLED_stopwatch_show:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2316 ; Stopwatch
9
395230c28023 Added CF36: Divemask color
heinrichsweikamp
parents: 8
diff changeset
2317 call PLED_divemask_color ; Set Color for Divemode mask
87
8d3c1bef6551 some preparations for new custom view
heinrichsweikamp
parents: 84
diff changeset
2318 DISPLAYTEXTH d'283' ; Stopwatch
98
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 91
diff changeset
2319
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 91
diff changeset
2320 PLED_stopwatch_show2:
3
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
2321 call PLED_standard_color
98
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 91
diff changeset
2322 ostc_debug 'V' ; Sends debug-information to screen if debugmode active
87
8d3c1bef6551 some preparations for new custom view
heinrichsweikamp
parents: 84
diff changeset
2323 WIN_TOP .192
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2324 WIN_LEFT .110
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2325 WIN_FONT FT_SMALL
3
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
2326 call PLED_standard_color
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
2327
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2328 lfsr FSR2,letter
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2329 movff average_divesecs+0,lo ; Stopwatch
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2330 movff average_divesecs+1,hi ; Stopwatch
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2331 movlw d'2'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2332 subwf lo,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2333 movlw d'0'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2334 subwfb hi,F ; Subtract 2 seconds
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2335
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2336 call convert_time ; converts hi:lo in seconds to mins (hi) and secs (lo)
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2337
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2338 movff lo,wait_temp
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2339 movff hi,lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2340 clrf hi
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2341
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2342 movlw d'0'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2343 bcf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2344 bsf show_last3
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2345 output_16_3 ;Displays only 0...999
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
2346 PUTC ':'
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2347 movff wait_temp,lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2348 output_99x
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2349 call word_processor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2350
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2351 ostc_debug 'U' ; Sends debug-information to screen if debugmode active
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2352
87
8d3c1bef6551 some preparations for new custom view
heinrichsweikamp
parents: 84
diff changeset
2353 WIN_TOP .216
517
a73a452ca155 Backed out changeset: b498245da3f1
heinrichsweikamp
parents: 516
diff changeset
2354 WIN_LEFT .110
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2355 WIN_FONT FT_SMALL
3
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
2356 call PLED_standard_color
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
2357
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2358 lfsr FSR2,letter
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2359 movff avr_rel_pressure+0,lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2360 movff avr_rel_pressure+1,hi
398
ab962c4b19d6 Fixing issue 50, correct "Bar" to "bar" in texts and comments
heinrichsweikamp
parents: 396
diff changeset
2361 call adjust_depth_with_salinity ; computes salinity setting into lo:hi [mbar]
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2362 bsf ignore_digit5 ; do not display 1cm depth
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2363 output_16dp d'3'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2364 bcf leftbind
446
92304826000d localisation part2 from Sergei
heinrichsweikamp
parents: 430
diff changeset
2365 STRCAT_PRINT TXT_METER1
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2366 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2367
386
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2368 PLED_stopwatch_show_gauge:
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2369 btfsc menubit ; Divemode menu active?
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2370 return ; Yes, return
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2371 ; BIG Stopwatch
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2372 call PLED_divemask_color ; Set Color for Divemode mask
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2373 DISPLAYTEXTH d'310' ; Stopwatch
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2374 DISPLAYTEXTH d'309' ; Average
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2375 call PLED_standard_color
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2376 ostc_debug 'V' ; Sends debug-information to screen if debugmode active
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2377 WIN_TOP .80
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2378 WIN_LEFT .90
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2379 WIN_FONT FT_MEDIUM
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2380 call PLED_standard_color
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2381
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2382 lfsr FSR2,letter
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2383 movff average_divesecs+0,lo ; Stopwatch
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2384 movff average_divesecs+1,hi ; Stopwatch
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2385 movlw d'2'
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2386 subwf lo,F
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2387 movlw d'0'
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2388 subwfb hi,F ; Subtract 2 seconds
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2389 call convert_time ; converts hi:lo in seconds to mins (hi) and secs (lo)
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2390 movff lo,wait_temp
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2391 movff hi,lo
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2392 clrf hi
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2393 movlw d'0'
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2394 bcf leftbind
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2395 bsf show_last3
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2396 output_16_3 ;Displays only 0...999
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2397 PUTC ':'
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2398 movff wait_temp,lo
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2399 output_99x
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2400 call word_processor
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2401
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2402 ostc_debug 'U' ; Sends debug-information to screen if debugmode active
517
a73a452ca155 Backed out changeset: b498245da3f1
heinrichsweikamp
parents: 516
diff changeset
2403 WIN_TOP .136
a73a452ca155 Backed out changeset: b498245da3f1
heinrichsweikamp
parents: 516
diff changeset
2404 WIN_LEFT .90
386
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2405 WIN_FONT FT_MEDIUM
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2406 call PLED_standard_color
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2407 lfsr FSR2,letter
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2408 movff avr_rel_pressure+0,lo
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2409 movff avr_rel_pressure+1,hi
398
ab962c4b19d6 Fixing issue 50, correct "Bar" to "bar" in texts and comments
heinrichsweikamp
parents: 396
diff changeset
2410 call adjust_depth_with_salinity ; computes salinity setting into lo:hi [mbar]
386
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2411 bsf ignore_digit5 ; do not display 1cm depth
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2412 output_16dp d'3'
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2413 bcf leftbind
446
92304826000d localisation part2 from Sergei
heinrichsweikamp
parents: 430
diff changeset
2414 STRCAT_PRINT TXT_METER1
386
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2415 WIN_FONT FT_SMALL ; Reset...
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2416 return
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2417
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2418
129
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53)
Heinrichsweikamp
parents: 127
diff changeset
2419 PLED_total_average_show:
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53)
Heinrichsweikamp
parents: 127
diff changeset
2420 ; Non-Resettable Average
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53)
Heinrichsweikamp
parents: 127
diff changeset
2421 call PLED_divemask_color ; Set Color for Divemode mask
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53)
Heinrichsweikamp
parents: 127
diff changeset
2422 DISPLAYTEXTH d'281' ; Avr.Depth
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53)
Heinrichsweikamp
parents: 127
diff changeset
2423
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53)
Heinrichsweikamp
parents: 127
diff changeset
2424 PLED_total_average_show2:
517
a73a452ca155 Backed out changeset: b498245da3f1
heinrichsweikamp
parents: 516
diff changeset
2425 WIN_TOP .192
a73a452ca155 Backed out changeset: b498245da3f1
heinrichsweikamp
parents: 516
diff changeset
2426 WIN_LEFT .110
129
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53)
Heinrichsweikamp
parents: 127
diff changeset
2427 WIN_FONT FT_SMALL
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53)
Heinrichsweikamp
parents: 127
diff changeset
2428 call PLED_standard_color
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53)
Heinrichsweikamp
parents: 127
diff changeset
2429
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53)
Heinrichsweikamp
parents: 127
diff changeset
2430 lfsr FSR2,letter
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53)
Heinrichsweikamp
parents: 127
diff changeset
2431 movff avr_rel_pressure_total+0,lo
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53)
Heinrichsweikamp
parents: 127
diff changeset
2432 movff avr_rel_pressure_total+1,hi
398
ab962c4b19d6 Fixing issue 50, correct "Bar" to "bar" in texts and comments
heinrichsweikamp
parents: 396
diff changeset
2433 call adjust_depth_with_salinity ; computes salinity setting into lo:hi [mbar]
129
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53)
Heinrichsweikamp
parents: 127
diff changeset
2434 bsf ignore_digit5 ; do not display 1cm depth
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53)
Heinrichsweikamp
parents: 127
diff changeset
2435 bcf leftbind
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53)
Heinrichsweikamp
parents: 127
diff changeset
2436 output_16dp d'3'
446
92304826000d localisation part2 from Sergei
heinrichsweikamp
parents: 430
diff changeset
2437 STRCAT_PRINT TXT_METER1
129
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53)
Heinrichsweikamp
parents: 127
diff changeset
2438 return
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53)
Heinrichsweikamp
parents: 127
diff changeset
2439
235
ade0848c8b8b New runtime asserts when compiled in DEBUG more.
JeanDo
parents: 229
diff changeset
2440 ;=============================================================================
ade0848c8b8b New runtime asserts when compiled in DEBUG more.
JeanDo
parents: 229
diff changeset
2441 ; Writes OSTC #Serial and Firmware version in surfacemode
ade0848c8b8b New runtime asserts when compiled in DEBUG more.
JeanDo
parents: 229
diff changeset
2442 ;
ade0848c8b8b New runtime asserts when compiled in DEBUG more.
JeanDo
parents: 229
diff changeset
2443 PLED_serial:
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2444 ostc_debug 'a' ; Sends debug-information to screen if debugmode active
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2445 WIN_TOP .0
56
0338aac9a267 surfacemode
heinrichsweikamp
parents: 47
diff changeset
2446 WIN_LEFT .1
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2447 WIN_FONT FT_SMALL
235
ade0848c8b8b New runtime asserts when compiled in DEBUG more.
JeanDo
parents: 229
diff changeset
2448 WIN_INVERT .0 ; Init new Wordprocessor
ade0848c8b8b New runtime asserts when compiled in DEBUG more.
JeanDo
parents: 229
diff changeset
2449
ade0848c8b8b New runtime asserts when compiled in DEBUG more.
JeanDo
parents: 229
diff changeset
2450 ifdef __DEBUG
587
1b021a280e15 NEW CF64: Configures color for inactive gases
heinrichsweikamp
parents: 576
diff changeset
2451 GETCUSTOM8 d'64' ; Write header in blue when
235
ade0848c8b8b New runtime asserts when compiled in DEBUG more.
JeanDo
parents: 229
diff changeset
2452 call PLED_set_color ; compiled in DEBUG mode...
ade0848c8b8b New runtime asserts when compiled in DEBUG more.
JeanDo
parents: 229
diff changeset
2453 else
3
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
2454 call PLED_standard_color
235
ade0848c8b8b New runtime asserts when compiled in DEBUG more.
JeanDo
parents: 229
diff changeset
2455 endif
3
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
2456
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2457 lfsr FSR2,letter
607
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2458 read_int_eeprom d'34' ; Read deco data
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2459 tstfsz EEDATA
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2460 bra show_decotype_mainscreen2
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2461 OUTPUTTEXT .101 ; ZH-L16 OC =0
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2462 bra show_decotype_mainscreen8 ; Done.
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2463 show_decotype_mainscreen2:
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2464 decfsz EEDATA,F
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2465 bra show_decotype_mainscreen3
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2466 OUTPUTTEXT .102 ; Gauge =1
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2467 bra show_decotype_mainscreen8 ; Done.
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2468 show_decotype_mainscreen3:
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2469 decfsz EEDATA,F
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2470 bra show_decotype_mainscreen4
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2471 OUTPUTTEXT .104 ; ZH-L16 CC =2
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2472 bra show_decotype_mainscreen8 ; Done.
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2473 show_decotype_mainscreen4:
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2474 decfsz EEDATA,F
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2475 bra show_decotype_mainscreen5
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2476 OUTPUTTEXT .138 ; Apnoe =3
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2477 bra show_decotype_mainscreen8 ; Done.
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2478 show_decotype_mainscreen5:
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2479 decfsz EEDATA,F
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2480 bra show_decotype_mainscreen6
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2481 OUTPUTTEXT .152 ; L16-GF OC =4
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2482 bra show_decotype_mainscreen8 ; Done.
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2483 show_decotype_mainscreen6:
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2484 decfsz EEDATA,F
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2485 bra show_decotype_mainscreen7
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2486 OUTPUTTEXT .236 ; L16-GF CC =5
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2487 bra show_decotype_mainscreen8 ; Done.
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2488 show_decotype_mainscreen7:
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2489 decfsz EEDATA,F
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2490 bra show_decotype_mainscreen8 ; Done.
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2491 OUTPUTTEXT .226 ; pSCR-GF =6
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2492 show_decotype_mainscreen8:
235
ade0848c8b8b New runtime asserts when compiled in DEBUG more.
JeanDo
parents: 229
diff changeset
2493 STRCAT " \x90\x91 V" ; Scribble logo...
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2494 movlw softwareversion_x
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2495 movwf lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2496 bsf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2497 output_8
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
2498 PUTC '.'
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2499 movlw softwareversion_y
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2500 movwf lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2501 bsf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2502 output_99x
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2503 bcf leftbind
235
ade0848c8b8b New runtime asserts when compiled in DEBUG more.
JeanDo
parents: 229
diff changeset
2504
ade0848c8b8b New runtime asserts when compiled in DEBUG more.
JeanDo
parents: 229
diff changeset
2505 ifdef __DEBUG
ade0848c8b8b New runtime asserts when compiled in DEBUG more.
JeanDo
parents: 229
diff changeset
2506 STRCAT_PRINT "-Dbg"
ade0848c8b8b New runtime asserts when compiled in DEBUG more.
JeanDo
parents: 229
diff changeset
2507 else
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2508 call word_processor
140
87a53efbb5ba "beta" shown for beta versions
heinrichsweikamp
parents: 138
diff changeset
2509
235
ade0848c8b8b New runtime asserts when compiled in DEBUG more.
JeanDo
parents: 229
diff changeset
2510 movlw softwareversion_beta ; =1: Beta, =0: Release
140
87a53efbb5ba "beta" shown for beta versions
heinrichsweikamp
parents: 138
diff changeset
2511 decfsz WREG,F
235
ade0848c8b8b New runtime asserts when compiled in DEBUG more.
JeanDo
parents: 229
diff changeset
2512 return ; Release version -> Return
140
87a53efbb5ba "beta" shown for beta versions
heinrichsweikamp
parents: 138
diff changeset
2513
87a53efbb5ba "beta" shown for beta versions
heinrichsweikamp
parents: 138
diff changeset
2514 call PLED_warnings_color
235
ade0848c8b8b New runtime asserts when compiled in DEBUG more.
JeanDo
parents: 229
diff changeset
2515 DISPLAYTEXT d'243' ; beta
140
87a53efbb5ba "beta" shown for beta versions
heinrichsweikamp
parents: 138
diff changeset
2516 call PLED_standard_color
235
ade0848c8b8b New runtime asserts when compiled in DEBUG more.
JeanDo
parents: 229
diff changeset
2517 endif
ade0848c8b8b New runtime asserts when compiled in DEBUG more.
JeanDo
parents: 229
diff changeset
2518
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2519 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2520
235
ade0848c8b8b New runtime asserts when compiled in DEBUG more.
JeanDo
parents: 229
diff changeset
2521 ;=============================================================================
ade0848c8b8b New runtime asserts when compiled in DEBUG more.
JeanDo
parents: 229
diff changeset
2522
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2523 PLED_divemode_menu_mask_first: ; Write Divemode menu1 mask
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2524 ostc_debug 'o' ; Sends debug-information to screen if debugmode active
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2525 call PLED_menu_clear ; clear "Menu?"
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
2526 call PLED_standard_color
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2527
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2528 btfsc FLAG_const_ppO2_mode ; are we in ppO2 mode?
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2529 bra PLED_divemode_menu_mask_first2
73
2227459e8ef2 Exchanged Decoplan and Gaslist in dive mode menu
heinrichsweikamp
parents: 71
diff changeset
2530
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2531 ; in OC Mode
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2532 DISPLAYTEXT .32 ;"Gaslist"
73
2227459e8ef2 Exchanged Decoplan and Gaslist in dive mode menu
heinrichsweikamp
parents: 71
diff changeset
2533 DISPLAYTEXT .31 ;"Decoplan"
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2534 bra PLED_divemode_menu_mask_first3
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2535
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2536 PLED_divemode_menu_mask_first2:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2537 ; in CC Mode
73
2227459e8ef2 Exchanged Decoplan and Gaslist in dive mode menu
heinrichsweikamp
parents: 71
diff changeset
2538 DISPLAYTEXT .238 ;"SetPoint"
2227459e8ef2 Exchanged Decoplan and Gaslist in dive mode menu
heinrichsweikamp
parents: 71
diff changeset
2539 DISPLAYTEXT .31 ;"Decoplan"
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2540
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2541 PLED_divemode_menu_mask_first3:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2542 ; In all modes
98
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 91
diff changeset
2543 call customview_menu_entry3 ; Show customview-dependent menu entry
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 91
diff changeset
2544 DISPLAYTEXT .241 ;"Display"
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2545 DISPLAYTEXT .34 ;"Exit"
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2546 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2547
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2548 PLED_divemode_set_xgas: ; Displayes the "Set Gas" menu
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2549 WIN_LEFT .100
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2550 WIN_TOP .0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2551 WIN_FONT FT_SMALL
3
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
2552 call PLED_standard_color
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
2553
446
92304826000d localisation part2 from Sergei
heinrichsweikamp
parents: 430
diff changeset
2554 STRCPY TXT_G6_3
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2555 read_int_eeprom d'24' ; Get Gas6 %O2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2556 movff EEDATA,lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2557 bcf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2558 output_99 ; outputs into Postinc2!
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
2559 PUTC '/'
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2560 read_int_eeprom d'25' ; Get Gas6 %He
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2561 movff EEDATA,lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2562 output_99 ; outputs into Postinc2!
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2563 call word_processor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2564 DISPLAYTEXT .123 ; O2 +
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2565 DISPLAYTEXT .124 ; O2 -
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2566 DISPLAYTEXT .125 ; He +
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2567 DISPLAYTEXT .126 ; He -
219
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2568 DISPLAYTEXTH d'300' ; Active? (Enable/Disable Gas underwater)
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2569 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2570
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2571 PLED_divemode_simulator_mask:
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2572 call PLED_standard_color
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2573 DISPLAYTEXT .254 ; Close
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2574 DISPLAYTEXT .250 ; + 1m
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2575 DISPLAYTEXT .251 ; - 1m
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2576 DISPLAYTEXT .252 ; +10m
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2577 DISPLAYTEXT .253 ; -10m
352
544a96faa9f3 New "Quit sim" option in simulated dive mode, CF02 now allows more then 240seconds, Bugfix with runtime=1min in runtime simulator
Heinrichsweikamp
parents: 342
diff changeset
2578 DISPLAYTEXTH .306 ; Quit Sim
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2579 return
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2580
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
2581 ;-----------------------------------------------------------------------------
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2582 ; Draw a stop of the deco plan (simulator or dive).
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2583 ; Inputs: lo = depth. Range 3m...93m
279
8514588eb6a2 Mark gas-switch stops for decoplans, displayed in yellow.
JeanDo
parents: 277
diff changeset
2584 ; + 80 if this is a switch-gas stop.
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2585 ; hi = minutes. range 1'..240'.
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2586 ; win_top = line to draw on screen.
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2587 ; Trashed: hi, lo, win_height, win_leftx2, win_width, win_color*,
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2588 ; WREG, PROD, TBLPTR TABLAT.
169
e26f49674956 Merge decoplan display for both GF and Buhlmann models.
JeanDo
parents: 168
diff changeset
2589 ;
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2590 PLED_decoplan_show_stop:
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2591 ;---- Print depth ----------------------------------------------------
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2592 WIN_LEFT .100
517
a73a452ca155 Backed out changeset: b498245da3f1
heinrichsweikamp
parents: 516
diff changeset
2593
279
8514588eb6a2 Mark gas-switch stops for decoplans, displayed in yellow.
JeanDo
parents: 277
diff changeset
2594 btfss lo,7 ; Bit set ?
559
c84ea647ff58 do not show gas switch stops in yellow when CF55=0
heinrichsweikamp
parents: 556
diff changeset
2595 bra PLED_decoplan_std_stop ; No : Just an usual stop
c84ea647ff58 do not show gas switch stops in yellow when CF55=0
heinrichsweikamp
parents: 556
diff changeset
2596
c84ea647ff58 do not show gas switch stops in yellow when CF55=0
heinrichsweikamp
parents: 556
diff changeset
2597 bcf lo,7 ; cleanup depth
c84ea647ff58 do not show gas switch stops in yellow when CF55=0
heinrichsweikamp
parents: 556
diff changeset
2598
c84ea647ff58 do not show gas switch stops in yellow when CF55=0
heinrichsweikamp
parents: 556
diff changeset
2599 GETCUSTOM8 d'55' ; Load gas switch [min] in wreg
c84ea647ff58 do not show gas switch stops in yellow when CF55=0
heinrichsweikamp
parents: 556
diff changeset
2600 tstfsz WREG ; =0?
c84ea647ff58 do not show gas switch stops in yellow when CF55=0
heinrichsweikamp
parents: 556
diff changeset
2601 bra PLED_decoplan_show_stop1; No: Show gas switch stop
c84ea647ff58 do not show gas switch stops in yellow when CF55=0
heinrichsweikamp
parents: 556
diff changeset
2602 bra PLED_decoplan_std_stop ; Yes: Just an usual stop
c84ea647ff58 do not show gas switch stops in yellow when CF55=0
heinrichsweikamp
parents: 556
diff changeset
2603
c84ea647ff58 do not show gas switch stops in yellow when CF55=0
heinrichsweikamp
parents: 556
diff changeset
2604 PLED_decoplan_show_stop1:
c84ea647ff58 do not show gas switch stops in yellow when CF55=0
heinrichsweikamp
parents: 556
diff changeset
2605 movlw color_yellow
c84ea647ff58 do not show gas switch stops in yellow when CF55=0
heinrichsweikamp
parents: 556
diff changeset
2606 call PLED_set_color ; Show in yellow for gas switch
279
8514588eb6a2 Mark gas-switch stops for decoplans, displayed in yellow.
JeanDo
parents: 277
diff changeset
2607 bra PLED_decoplan_nstd_stop
8514588eb6a2 Mark gas-switch stops for decoplans, displayed in yellow.
JeanDo
parents: 277
diff changeset
2608
8514588eb6a2 Mark gas-switch stops for decoplans, displayed in yellow.
JeanDo
parents: 277
diff changeset
2609 PLED_decoplan_std_stop:
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2610 call PLED_standard_color
279
8514588eb6a2 Mark gas-switch stops for decoplans, displayed in yellow.
JeanDo
parents: 277
diff changeset
2611
8514588eb6a2 Mark gas-switch stops for decoplans, displayed in yellow.
JeanDo
parents: 277
diff changeset
2612 PLED_decoplan_nstd_stop:
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2613 lfsr FSR2,letter
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2614 bsf leftbind
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2615 output_8 ; outputs into Postinc2!
446
92304826000d localisation part2 from Sergei
heinrichsweikamp
parents: 430
diff changeset
2616 STRCAT_PRINT TXT_METER2
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2617
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2618 ;---- Print duration -------------------------------------------------
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2619 WIN_LEFT .140
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2620 lfsr FSR2,letter
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2621
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2622 movf lo,W ; Swap hi & lo
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2623 movff hi,lo
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2624 movwf hi
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2625
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2626 output_8 ; Allow up to 240'
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2627 STRCAT_PRINT "' " ; 1 to 3 chars for depth.
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2628
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2629 movf lo,W ; Swap back hi & lo
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2630 movff hi,lo
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2631 movwf hi
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2632
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2633 ;---------------------------------------------------------------------
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2634 ; Draw the bar graph used for deco stops (decoplan in simulator or dive).
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2635 movff win_top,WREG ; Increment win_top (BANK SAFE)
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2636 incf WREG
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2637 movff WREG,win_top
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2638 movlw d'18'+1 ; 19 --> height (bank safe !)
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2639 movff WREG,win_height
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2640 movlw .122
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2641 movff WREG,win_leftx2 ; column left (0-159)
150
fc699a7460e6 Fix desat graph:
JeanDo
parents: 149
diff changeset
2642 movlw .16
fc699a7460e6 Fix desat graph:
JeanDo
parents: 149
diff changeset
2643 movff WREG,win_width ; column max width.
fc699a7460e6 Fix desat graph:
JeanDo
parents: 149
diff changeset
2644
fc699a7460e6 Fix desat graph:
JeanDo
parents: 149
diff changeset
2645 ; Draw used area (hi = minutes):
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2646 movlw d'16' ; Limit length (16min)
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2647 cpfslt hi
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2648 movwf hi
150
fc699a7460e6 Fix desat graph:
JeanDo
parents: 149
diff changeset
2649 movff hi,win_bargraph ; Active width, the rest is cleared.
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2650 call PLED_box
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2651
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2652 ; Restore win_top
279
8514588eb6a2 Mark gas-switch stops for decoplans, displayed in yellow.
JeanDo
parents: 277
diff changeset
2653 call PLED_standard_color
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2654 movff win_top,WREG ; decf win_top (BANK SAFE)
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2655 decf WREG
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2656 movff WREG,win_top
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2657 return
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
2658
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
2659 ;-----------------------------------------------------------------------------
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2660 ; Clear unused area belw last stop
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2661 ; Inputs: win_top : last used area...
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2662 PLED_decoplan_clear_bottom:
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2663 movff win_top,WREG ; Get back from bank0
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2664 btfsc divemode ; In dive mode ?
150
fc699a7460e6 Fix desat graph:
JeanDo
parents: 149
diff changeset
2665 sublw .168 ; Yes: bottom row in divemode
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2666 btfss divemode ; In dive mode ?
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2667 sublw .240 ; No: bottom row in planning
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2668 movff WREG,win_height
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2669
292
21a0f7393468 New CNS calculation in decoplan.
JeanDo
parents: 290
diff changeset
2670 WIN_LEFT .85 ; Full divemenu width
21a0f7393468 New CNS calculation in decoplan.
JeanDo
parents: 290
diff changeset
2671 movlw .160-.85+1
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2672 movff WREG,win_width
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2673
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2674 clrf WREG ; Fill with black
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2675 movff WREG,win_color1
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2676 movff WREG,win_color2
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2677
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2678 goto PLED_box
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
2679
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
2680 ;-----------------------------------------------------------------------------
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2681 ; Display the decoplan (simulator or divemode) for GF model
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2682 ; Inputs: char_O_deco_table (array of stop times, in minutes)
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2683 ; decoplan_page = page number. Displays 5 stop by page.
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2684 ;
164
999abb01c78f + Change data allocation scheme
JeanDo
parents: 163
diff changeset
2685 #define decoplan_index apnoe_mins ; within each page
999abb01c78f + Change data allocation scheme
JeanDo
parents: 163
diff changeset
2686 #define decoplan_gindex apnoe_secs ; global index
999abb01c78f + Change data allocation scheme
JeanDo
parents: 163
diff changeset
2687 #define decoplan_last apnoe_max_pressure ; Depth of last stop (CF#29)
999abb01c78f + Change data allocation scheme
JeanDo
parents: 163
diff changeset
2688 #define decoplan_max apnoe_max_pressure+1; Number of lines per page. 7 in planning, 5 in diving.
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2689
169
e26f49674956 Merge decoplan display for both GF and Buhlmann models.
JeanDo
parents: 168
diff changeset
2690 PLED_decoplan:
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2691 ostc_debug 'n' ; Sends debug-information to screen if debugmode active
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2692
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2693 WIN_INVERT 0
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2694
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2695 ;---- Is there deco stops ? ------------------------------------------
169
e26f49674956 Merge decoplan display for both GF and Buhlmann models.
JeanDo
parents: 168
diff changeset
2696 movff char_O_first_deco_depth,WREG
e26f49674956 Merge decoplan display for both GF and Buhlmann models.
JeanDo
parents: 168
diff changeset
2697 iorwf WREG
e26f49674956 Merge decoplan display for both GF and Buhlmann models.
JeanDo
parents: 168
diff changeset
2698 bnz PLED_decoplan_1
e26f49674956 Merge decoplan display for both GF and Buhlmann models.
JeanDo
parents: 168
diff changeset
2699
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2700 ;---- No Deco --------------------------------------------------------
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2701 call PLED_standard_color
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2702 DISPLAYTEXT d'239' ;"No Deco"
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2703 bsf last_ceiling_gf_shown
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2704 return
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2705
169
e26f49674956 Merge decoplan display for both GF and Buhlmann models.
JeanDo
parents: 168
diff changeset
2706 PLED_decoplan_1:
e26f49674956 Merge decoplan display for both GF and Buhlmann models.
JeanDo
parents: 168
diff changeset
2707 lfsr FSR0,char_O_deco_depth ; Initialize indexed addressing.
e26f49674956 Merge decoplan display for both GF and Buhlmann models.
JeanDo
parents: 168
diff changeset
2708 lfsr FSR1,char_O_deco_time
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2709
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2710 movlw .8 ; 8 lines/page in decoplan
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2711 btfsc divemode
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2712 movlw .6 ; 6 lines/page in divemode.
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2713 movwf decoplan_max
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2714
169
e26f49674956 Merge decoplan display for both GF and Buhlmann models.
JeanDo
parents: 168
diff changeset
2715 clrf decoplan_index ; Start with index = 0
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2716 clrf WREG
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2717 movff WREG,win_top ; and row = 0
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2718
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2719 ; Read stop parameters, indexed by decoplan_index and decoplan_page
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2720 movf decoplan_page,W ; decoplan_gindex = 6*decoplan_page + decoplan_index
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2721 mulwf decoplan_max
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2722 movf decoplan_index,W
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2723 addwf PRODL,W
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2724 movwf decoplan_gindex ; --> decoplan_gindex
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2725
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2726 bcf last_ceiling_gf_shown ; Not finished yet...
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2727
169
e26f49674956 Merge decoplan display for both GF and Buhlmann models.
JeanDo
parents: 168
diff changeset
2728 PLED_decoplan_2:
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2729 btfsc decoplan_gindex,5 ; Reached table length (32) ?
169
e26f49674956 Merge decoplan display for both GF and Buhlmann models.
JeanDo
parents: 168
diff changeset
2730 bra PLED_decoplan_99 ; YES: finished...
e26f49674956 Merge decoplan display for both GF and Buhlmann models.
JeanDo
parents: 168
diff changeset
2731
e26f49674956 Merge decoplan display for both GF and Buhlmann models.
JeanDo
parents: 168
diff changeset
2732 ; Read stop parameters, indexed by decoplan_index
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2733 movf decoplan_gindex,W ; index
169
e26f49674956 Merge decoplan display for both GF and Buhlmann models.
JeanDo
parents: 168
diff changeset
2734 movff PLUSW1,hi ; char_O_deco_time [gindex] --> hi
e26f49674956 Merge decoplan display for both GF and Buhlmann models.
JeanDo
parents: 168
diff changeset
2735 movff PLUSW0,lo ; char_O_deco_depth[gindex]
e26f49674956 Merge decoplan display for both GF and Buhlmann models.
JeanDo
parents: 168
diff changeset
2736 movf lo,W
e26f49674956 Merge decoplan display for both GF and Buhlmann models.
JeanDo
parents: 168
diff changeset
2737 bz PLED_decoplan_99 ; depth == 0 : finished.
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2738
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2739 ; Display the stop line
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2740 call PLED_decoplan_show_stop
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2741
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2742 ; Next
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2743 movff win_top,WREG ; row: += 24
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2744 addlw .24
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2745 movff WREG,win_top
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2746 incf decoplan_index,F ; local index += 1
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2747 incf decoplan_gindex,F ; global index += 1
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2748
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2749 ; Max number of lines/page reached ?
169
e26f49674956 Merge decoplan display for both GF and Buhlmann models.
JeanDo
parents: 168
diff changeset
2750 movf decoplan_max,W ; index+1 == max ?
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2751 cpfseq decoplan_index
169
e26f49674956 Merge decoplan display for both GF and Buhlmann models.
JeanDo
parents: 168
diff changeset
2752 bra PLED_decoplan_2 ; NO: loop
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2753
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2754 ; Check if next stop if end-of-list ?
169
e26f49674956 Merge decoplan display for both GF and Buhlmann models.
JeanDo
parents: 168
diff changeset
2755 movf decoplan_gindex,W
e26f49674956 Merge decoplan display for both GF and Buhlmann models.
JeanDo
parents: 168
diff changeset
2756 movff PLUSW0,WREG ; char_O_deco_depth[gindex]
e26f49674956 Merge decoplan display for both GF and Buhlmann models.
JeanDo
parents: 168
diff changeset
2757 iorwf WREG
e26f49674956 Merge decoplan display for both GF and Buhlmann models.
JeanDo
parents: 168
diff changeset
2758 bz PLED_decoplan_99 ; End of list...
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2759
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2760 ; Display the message "more..."
223
2a0a446fa6c0 Show decoplan.
JeanDo
parents: 221
diff changeset
2761 bcf last_ceiling_gf_shown ; More page to display...
2a0a446fa6c0 Show decoplan.
JeanDo
parents: 221
diff changeset
2762
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2763 rcall PLED_decoplan_clear_bottom ; Clear from next line
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2764
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2765 WIN_LEFT .130 - 7*3
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2766 call PLED_standard_color
223
2a0a446fa6c0 Show decoplan.
JeanDo
parents: 221
diff changeset
2767 lfsr FSR2,letter
2a0a446fa6c0 Show decoplan.
JeanDo
parents: 221
diff changeset
2768 OUTPUTTEXT .142 ; More...
2a0a446fa6c0 Show decoplan.
JeanDo
parents: 221
diff changeset
2769 goto word_processor
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2770
169
e26f49674956 Merge decoplan display for both GF and Buhlmann models.
JeanDo
parents: 168
diff changeset
2771 PLED_decoplan_99:
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2772 bsf last_ceiling_gf_shown ; Nothing more in table to display.
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2773 rcall PLED_decoplan_clear_bottom ; Clear from next line
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2774 return
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2775 ;-----------------------------------------------------------------------------
289
6d8a2550c9ea Fix zero-depth gas color in de-activation menu.
JeanDo
parents: 287
diff changeset
2776 ; Toggle gas activity flag during dive.
6d8a2550c9ea Fix zero-depth gas color in de-activation menu.
JeanDo
parents: 287
diff changeset
2777 ;
290
4dbff2aa31ee Hunting for refusing to ignore disabled gas in list...
JeanDo
parents: 289
diff changeset
2778 ; Input: gaslist_active
289
6d8a2550c9ea Fix zero-depth gas color in de-activation menu.
JeanDo
parents: 287
diff changeset
2779 ; Gaslist from eeprom[2...]
6d8a2550c9ea Fix zero-depth gas color in de-activation menu.
JeanDo
parents: 287
diff changeset
2780 ;
290
4dbff2aa31ee Hunting for refusing to ignore disabled gas in list...
JeanDo
parents: 289
diff changeset
2781 ; Output: gaslist_active
289
6d8a2550c9ea Fix zero-depth gas color in de-activation menu.
JeanDo
parents: 287
diff changeset
2782 ;
6d8a2550c9ea Fix zero-depth gas color in de-activation menu.
JeanDo
parents: 287
diff changeset
2783 ; Note: Gas with a zero depth cannot be used in deco simulation, hence
6d8a2550c9ea Fix zero-depth gas color in de-activation menu.
JeanDo
parents: 287
diff changeset
2784 ; should not be displayed as selected here...
6d8a2550c9ea Fix zero-depth gas color in de-activation menu.
JeanDo
parents: 287
diff changeset
2785 ;
219
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2786 PLED_de_activelist: ; show (de)active gaslist
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2787 call PLED_standard_color
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2788 DISPLAYTEXT .254 ; Close
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2789
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2790 WIN_LEFT .100
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2791 WIN_FONT FT_SMALL
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2792 bsf leftbind
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2793
281
f8f865c70a0d no more sorted gaslist...
heinrichsweikamp
parents: 280
diff changeset
2794 movlw d'2'
219
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2795 movwf wait_temp ; here: stores eeprom address for gas list
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2796 movlw d'0'
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2797 movwf waitms_temp ; here: stores row for gas list
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2798 clrf hi ; here: Gas counter
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2799
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2800 PLED_de_activelist_loop:
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2801 incf hi,F ; Increase Gas
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2802 movlw d'4'
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2803 addwf wait_temp,F ; Increase eeprom address for gas list
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2804 movlw d'25'
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2805 addwf waitms_temp,F ; Increase row
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2806 WIN_LEFT .100
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2807 movff waitms_temp,win_top ; Set Row
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2808
221
448478ceccea new sorted_gaslist_active flag register
heinrichsweikamp
parents: 219
diff changeset
2809 lfsr FSR2,letter
219
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2810 movff wait_temp, EEADR; Gas #hi: %O2 - Set address in internal EEPROM
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2811 call read_eeprom ; get byte (stored in EEDATA)
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2812 movff EEDATA,lo ; copy to lo
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2813 output_8 ; outputs into Postinc2!
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2814 PUTC '/'
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2815 incf EEADR,F ; Gas #hi: %He - Set address in internal EEPROM
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2816 call read_eeprom ; get byte (stored in EEDATA)
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2817 movff EEDATA,lo ; copy to lo
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2818 output_8 ; outputs into Postinc2!
221
448478ceccea new sorted_gaslist_active flag register
heinrichsweikamp
parents: 219
diff changeset
2819 PUTC '@'
448478ceccea new sorted_gaslist_active flag register
heinrichsweikamp
parents: 219
diff changeset
2820
281
f8f865c70a0d no more sorted gaslist...
heinrichsweikamp
parents: 280
diff changeset
2821 movlw d'27'
221
448478ceccea new sorted_gaslist_active flag register
heinrichsweikamp
parents: 219
diff changeset
2822 addwf hi,W
448478ceccea new sorted_gaslist_active flag register
heinrichsweikamp
parents: 219
diff changeset
2823 movwf EEADR ; Point to Change depth
448478ceccea new sorted_gaslist_active flag register
heinrichsweikamp
parents: 219
diff changeset
2824
219
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2825 call read_eeprom ; get byte (stored in EEDATA)
221
448478ceccea new sorted_gaslist_active flag register
heinrichsweikamp
parents: 219
diff changeset
2826 movff EEDATA,lo ; copy to lo
448478ceccea new sorted_gaslist_active flag register
heinrichsweikamp
parents: 219
diff changeset
2827 output_8 ; outputs into Postinc2!
448478ceccea new sorted_gaslist_active flag register
heinrichsweikamp
parents: 219
diff changeset
2828
289
6d8a2550c9ea Fix zero-depth gas color in de-activation menu.
JeanDo
parents: 287
diff changeset
2829 movf lo,w ; Gas with a zero depth
6d8a2550c9ea Fix zero-depth gas color in de-activation menu.
JeanDo
parents: 287
diff changeset
2830 bz PLED_de_activelist_grey ; should be displayed inactive.
6d8a2550c9ea Fix zero-depth gas color in de-activation menu.
JeanDo
parents: 287
diff changeset
2831
219
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2832 ; Check if gas needs to be greyed-out (inactive)
290
4dbff2aa31ee Hunting for refusing to ignore disabled gas in list...
JeanDo
parents: 289
diff changeset
2833 movff gaslist_active,EEDATA ; Get flag register
219
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2834 movff hi,lo ; copy gas number
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2835 PLED_de_activelist_loop1:
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2836 rrcf EEDATA ; roll flags into carry
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2837 decfsz lo,F ; max. 5 times...
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2838 bra PLED_de_activelist_loop1
289
6d8a2550c9ea Fix zero-depth gas color in de-activation menu.
JeanDo
parents: 287
diff changeset
2839 bc PLED_de_activelist_white
6d8a2550c9ea Fix zero-depth gas color in de-activation menu.
JeanDo
parents: 287
diff changeset
2840
6d8a2550c9ea Fix zero-depth gas color in de-activation menu.
JeanDo
parents: 287
diff changeset
2841 PLED_de_activelist_grey: ; grey out inactive gases!
587
1b021a280e15 NEW CF64: Configures color for inactive gases
heinrichsweikamp
parents: 576
diff changeset
2842 GETCUSTOM8 d'64' ;movlw color_grey
289
6d8a2550c9ea Fix zero-depth gas color in de-activation menu.
JeanDo
parents: 287
diff changeset
2843 call PLED_set_color
6d8a2550c9ea Fix zero-depth gas color in de-activation menu.
JeanDo
parents: 287
diff changeset
2844
6d8a2550c9ea Fix zero-depth gas color in de-activation menu.
JeanDo
parents: 287
diff changeset
2845 PLED_de_activelist_white:
219
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2846 call word_processor
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2847 call PLED_standard_color
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2848
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2849 movlw d'5' ; list all five gases
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2850 cpfseq hi ; All gases shown?
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2851 bra PLED_de_activelist_loop ; No
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2852
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2853 return ; return
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2854
528
67ab3c028bc2 Show change gas depth below gaslist (in divemode)
heinrichsweikamp
parents: 525
diff changeset
2855 PLED_show_change_depth: ; Yes, show change depth for gas #menupos
67ab3c028bc2 Show change gas depth below gaslist (in divemode)
heinrichsweikamp
parents: 525
diff changeset
2856 btfsc display_set_setpoint ; In Setpoint list?
67ab3c028bc2 Show change gas depth below gaslist (in divemode)
heinrichsweikamp
parents: 525
diff changeset
2857 return ; Yes, return.
67ab3c028bc2 Show change gas depth below gaslist (in divemode)
heinrichsweikamp
parents: 525
diff changeset
2858 movlw color_yellow ; Blink in yellow
67ab3c028bc2 Show change gas depth below gaslist (in divemode)
heinrichsweikamp
parents: 525
diff changeset
2859 call PLED_set_color
67ab3c028bc2 Show change gas depth below gaslist (in divemode)
heinrichsweikamp
parents: 525
diff changeset
2860 WIN_LEFT .95
532
f5a06b9e2fef cleanup debug stuff
heinrichsweikamp
parents: 529
diff changeset
2861 WIN_TOP .148
528
67ab3c028bc2 Show change gas depth below gaslist (in divemode)
heinrichsweikamp
parents: 525
diff changeset
2862 WIN_FONT FT_SMALL
67ab3c028bc2 Show change gas depth below gaslist (in divemode)
heinrichsweikamp
parents: 525
diff changeset
2863
67ab3c028bc2 Show change gas depth below gaslist (in divemode)
heinrichsweikamp
parents: 525
diff changeset
2864 movlw .6
67ab3c028bc2 Show change gas depth below gaslist (in divemode)
heinrichsweikamp
parents: 525
diff changeset
2865 cpfslt menupos ; <6?
67ab3c028bc2 Show change gas depth below gaslist (in divemode)
heinrichsweikamp
parents: 525
diff changeset
2866 bra PLED_show_change_depth_clear ; Yes!
67ab3c028bc2 Show change gas depth below gaslist (in divemode)
heinrichsweikamp
parents: 525
diff changeset
2867
67ab3c028bc2 Show change gas depth below gaslist (in divemode)
heinrichsweikamp
parents: 525
diff changeset
2868 bsf leftbind
67ab3c028bc2 Show change gas depth below gaslist (in divemode)
heinrichsweikamp
parents: 525
diff changeset
2869 STRCPY TXT_GAS1
67ab3c028bc2 Show change gas depth below gaslist (in divemode)
heinrichsweikamp
parents: 525
diff changeset
2870 movff menupos,lo
67ab3c028bc2 Show change gas depth below gaslist (in divemode)
heinrichsweikamp
parents: 525
diff changeset
2871 output_8 ; Show gas number
532
f5a06b9e2fef cleanup debug stuff
heinrichsweikamp
parents: 529
diff changeset
2872 STRCAT TXT_AT4 ; " at "
528
67ab3c028bc2 Show change gas depth below gaslist (in divemode)
heinrichsweikamp
parents: 525
diff changeset
2873 decf menupos,W
67ab3c028bc2 Show change gas depth below gaslist (in divemode)
heinrichsweikamp
parents: 525
diff changeset
2874 addlw d'28' ; offset in memory
67ab3c028bc2 Show change gas depth below gaslist (in divemode)
heinrichsweikamp
parents: 525
diff changeset
2875 movwf EEADR
67ab3c028bc2 Show change gas depth below gaslist (in divemode)
heinrichsweikamp
parents: 525
diff changeset
2876 call read_eeprom ; Low-value
67ab3c028bc2 Show change gas depth below gaslist (in divemode)
heinrichsweikamp
parents: 525
diff changeset
2877 movff EEDATA,lo
67ab3c028bc2 Show change gas depth below gaslist (in divemode)
heinrichsweikamp
parents: 525
diff changeset
2878 output_8 ; Show gas number
532
f5a06b9e2fef cleanup debug stuff
heinrichsweikamp
parents: 529
diff changeset
2879 STRCAT_PRINT TXT_METER2 ; "m "
528
67ab3c028bc2 Show change gas depth below gaslist (in divemode)
heinrichsweikamp
parents: 525
diff changeset
2880 bcf leftbind
67ab3c028bc2 Show change gas depth below gaslist (in divemode)
heinrichsweikamp
parents: 525
diff changeset
2881 call PLED_standard_color
67ab3c028bc2 Show change gas depth below gaslist (in divemode)
heinrichsweikamp
parents: 525
diff changeset
2882 return
67ab3c028bc2 Show change gas depth below gaslist (in divemode)
heinrichsweikamp
parents: 525
diff changeset
2883
67ab3c028bc2 Show change gas depth below gaslist (in divemode)
heinrichsweikamp
parents: 525
diff changeset
2884 PLED_show_change_depth_clear:
67ab3c028bc2 Show change gas depth below gaslist (in divemode)
heinrichsweikamp
parents: 525
diff changeset
2885 STRCPY_PRINT " "
67ab3c028bc2 Show change gas depth below gaslist (in divemode)
heinrichsweikamp
parents: 525
diff changeset
2886 return
67ab3c028bc2 Show change gas depth below gaslist (in divemode)
heinrichsweikamp
parents: 525
diff changeset
2887
647
e6ac142e82b0 New Diluent Submenu in Divemode
heinrichsweikamp
parents: 644
diff changeset
2888 PLED_diluent_list:
e6ac142e82b0 New Diluent Submenu in Divemode
heinrichsweikamp
parents: 644
diff changeset
2889 ostc_debug 'm' ; Sends debug-information to screen if debugmode active
e6ac142e82b0 New Diluent Submenu in Divemode
heinrichsweikamp
parents: 644
diff changeset
2890 WIN_LEFT .100
e6ac142e82b0 New Diluent Submenu in Divemode
heinrichsweikamp
parents: 644
diff changeset
2891 WIN_FONT FT_SMALL
e6ac142e82b0 New Diluent Submenu in Divemode
heinrichsweikamp
parents: 644
diff changeset
2892 bsf leftbind
e6ac142e82b0 New Diluent Submenu in Divemode
heinrichsweikamp
parents: 644
diff changeset
2893 movlw d'94'
e6ac142e82b0 New Diluent Submenu in Divemode
heinrichsweikamp
parents: 644
diff changeset
2894 movwf wait_temp ; here: stores eeprom address for diluent list (96-2)
e6ac142e82b0 New Diluent Submenu in Divemode
heinrichsweikamp
parents: 644
diff changeset
2895 movlw d'231'
e6ac142e82b0 New Diluent Submenu in Divemode
heinrichsweikamp
parents: 644
diff changeset
2896 movwf waitms_temp ; here: stores row for gas list
e6ac142e82b0 New Diluent Submenu in Divemode
heinrichsweikamp
parents: 644
diff changeset
2897 clrf hi ; here: Diluent counter
e6ac142e82b0 New Diluent Submenu in Divemode
heinrichsweikamp
parents: 644
diff changeset
2898
e6ac142e82b0 New Diluent Submenu in Divemode
heinrichsweikamp
parents: 644
diff changeset
2899 PLED_diluent_list_loop:
e6ac142e82b0 New Diluent Submenu in Divemode
heinrichsweikamp
parents: 644
diff changeset
2900 incf hi,F ; Increase Diluent
e6ac142e82b0 New Diluent Submenu in Divemode
heinrichsweikamp
parents: 644
diff changeset
2901 movlw .2
e6ac142e82b0 New Diluent Submenu in Divemode
heinrichsweikamp
parents: 644
diff changeset
2902 addwf wait_temp,F ; Increase eeprom address for gas list
e6ac142e82b0 New Diluent Submenu in Divemode
heinrichsweikamp
parents: 644
diff changeset
2903 movlw d'25'
e6ac142e82b0 New Diluent Submenu in Divemode
heinrichsweikamp
parents: 644
diff changeset
2904 addwf waitms_temp,F ; Increase row
e6ac142e82b0 New Diluent Submenu in Divemode
heinrichsweikamp
parents: 644
diff changeset
2905 WIN_LEFT .100
e6ac142e82b0 New Diluent Submenu in Divemode
heinrichsweikamp
parents: 644
diff changeset
2906 movff waitms_temp,win_top ; Set Row
e6ac142e82b0 New Diluent Submenu in Divemode
heinrichsweikamp
parents: 644
diff changeset
2907 STRCPY TXT_DIL_C
e6ac142e82b0 New Diluent Submenu in Divemode
heinrichsweikamp
parents: 644
diff changeset
2908 movff hi,lo ; copy dil number
e6ac142e82b0 New Diluent Submenu in Divemode
heinrichsweikamp
parents: 644
diff changeset
2909 output_8 ; display dil number
e6ac142e82b0 New Diluent Submenu in Divemode
heinrichsweikamp
parents: 644
diff changeset
2910 PUTC ':'
e6ac142e82b0 New Diluent Submenu in Divemode
heinrichsweikamp
parents: 644
diff changeset
2911 movff wait_temp, EEADR; Dil #hi: %O2 - Set address in internal EEPROM
e6ac142e82b0 New Diluent Submenu in Divemode
heinrichsweikamp
parents: 644
diff changeset
2912 call read_eeprom ; get byte (stored in EEDATA)
e6ac142e82b0 New Diluent Submenu in Divemode
heinrichsweikamp
parents: 644
diff changeset
2913 movff EEDATA,lo ; copy to lo
e6ac142e82b0 New Diluent Submenu in Divemode
heinrichsweikamp
parents: 644
diff changeset
2914 output_8 ; outputs into Postinc2!
e6ac142e82b0 New Diluent Submenu in Divemode
heinrichsweikamp
parents: 644
diff changeset
2915 PUTC '/'
e6ac142e82b0 New Diluent Submenu in Divemode
heinrichsweikamp
parents: 644
diff changeset
2916 incf EEADR,F ; Dil #hi: %He - Set address in internal EEPROM
e6ac142e82b0 New Diluent Submenu in Divemode
heinrichsweikamp
parents: 644
diff changeset
2917 call read_eeprom ; get byte (stored in EEDATA)
e6ac142e82b0 New Diluent Submenu in Divemode
heinrichsweikamp
parents: 644
diff changeset
2918 movff EEDATA,lo ; copy to lo
e6ac142e82b0 New Diluent Submenu in Divemode
heinrichsweikamp
parents: 644
diff changeset
2919 output_8 ; outputs into Postinc2!
e6ac142e82b0 New Diluent Submenu in Divemode
heinrichsweikamp
parents: 644
diff changeset
2920
e6ac142e82b0 New Diluent Submenu in Divemode
heinrichsweikamp
parents: 644
diff changeset
2921 decf EEADR,F ; Dil #hi: %O2 - Set address in internal EEPROM
e6ac142e82b0 New Diluent Submenu in Divemode
heinrichsweikamp
parents: 644
diff changeset
2922 call read_eeprom ; get byte (stored in EEDATA)
e6ac142e82b0 New Diluent Submenu in Divemode
heinrichsweikamp
parents: 644
diff changeset
2923 PLED_color_code warn_gas_in_gaslist ; Color-code output (%O2 in "EEDATA")
e6ac142e82b0 New Diluent Submenu in Divemode
heinrichsweikamp
parents: 644
diff changeset
2924
e6ac142e82b0 New Diluent Submenu in Divemode
heinrichsweikamp
parents: 644
diff changeset
2925 call word_processor
e6ac142e82b0 New Diluent Submenu in Divemode
heinrichsweikamp
parents: 644
diff changeset
2926 call PLED_standard_color
e6ac142e82b0 New Diluent Submenu in Divemode
heinrichsweikamp
parents: 644
diff changeset
2927
e6ac142e82b0 New Diluent Submenu in Divemode
heinrichsweikamp
parents: 644
diff changeset
2928 movlw d'5' ; list all five Diluents
e6ac142e82b0 New Diluent Submenu in Divemode
heinrichsweikamp
parents: 644
diff changeset
2929 cpfseq hi ; All diluents shown?
e6ac142e82b0 New Diluent Submenu in Divemode
heinrichsweikamp
parents: 644
diff changeset
2930 bra PLED_diluent_list_loop ; No
e6ac142e82b0 New Diluent Submenu in Divemode
heinrichsweikamp
parents: 644
diff changeset
2931 return ; return
e6ac142e82b0 New Diluent Submenu in Divemode
heinrichsweikamp
parents: 644
diff changeset
2932
219
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2933
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2934 PLED_gas_list:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2935 ostc_debug 'm' ; Sends debug-information to screen if debugmode active
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2936
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2937 WIN_LEFT .100
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2938 WIN_FONT FT_SMALL
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2939 bsf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2940
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2941 movlw d'2'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2942 movwf wait_temp ; here: stores eeprom address for gas list
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2943 movlw d'231'
71
6beb680a6130 1.72beta - color-coded gaslist, small fix with stopwatch
heinrichsweikamp
parents: 70
diff changeset
2944 movwf waitms_temp ; here: stores row for gas list
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2945 clrf hi ; here: Gas counter
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2946
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2947 PLED_gas_list_loop:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2948 incf hi,F ; Increase Gas
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2949 movlw d'4'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2950 addwf wait_temp,F ; Increase eeprom address for gas list
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2951 movlw d'25'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2952 addwf waitms_temp,F ; Increase row
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2953 WIN_LEFT .100
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2954 movff waitms_temp,win_top ; Set Row
446
92304826000d localisation part2 from Sergei
heinrichsweikamp
parents: 430
diff changeset
2955 STRCPY TXT_GAS1
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2956 movff hi,lo ; copy gas number
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2957 output_8 ; display gas number
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
2958 PUTC ':'
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2959 movff wait_temp, EEADR; Gas #hi: %O2 - Set address in internal EEPROM
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2960 call read_eeprom ; get byte (stored in EEDATA)
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2961 movff EEDATA,lo ; copy to lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2962 output_8 ; outputs into Postinc2!
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
2963 PUTC '/'
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2964 incf EEADR,F ; Gas #hi: %He - Set address in internal EEPROM
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2965 call read_eeprom ; get byte (stored in EEDATA)
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2966 movff EEDATA,lo ; copy to lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2967 output_8 ; outputs into Postinc2!
71
6beb680a6130 1.72beta - color-coded gaslist, small fix with stopwatch
heinrichsweikamp
parents: 70
diff changeset
2968
6beb680a6130 1.72beta - color-coded gaslist, small fix with stopwatch
heinrichsweikamp
parents: 70
diff changeset
2969 decf EEADR,F ; Gas #hi: %O2 - Set address in internal EEPROM
6beb680a6130 1.72beta - color-coded gaslist, small fix with stopwatch
heinrichsweikamp
parents: 70
diff changeset
2970 call read_eeprom ; get byte (stored in EEDATA)
6beb680a6130 1.72beta - color-coded gaslist, small fix with stopwatch
heinrichsweikamp
parents: 70
diff changeset
2971 PLED_color_code warn_gas_in_gaslist ; Color-code output (%O2 in "EEDATA")
627
8d2dc109ecfc NEW: Gaslist highlights "better gas" in divemode
heinrichsweikamp
parents: 624
diff changeset
2972
8d2dc109ecfc NEW: Gaslist highlights "better gas" in divemode
heinrichsweikamp
parents: 624
diff changeset
2973 ; Check if the "better gas" should be highlighted
8d2dc109ecfc NEW: Gaslist highlights "better gas" in divemode
heinrichsweikamp
parents: 624
diff changeset
2974
8d2dc109ecfc NEW: Gaslist highlights "better gas" in divemode
heinrichsweikamp
parents: 624
diff changeset
2975 WIN_INVERT .0 ; Init new Wordprocessor
8d2dc109ecfc NEW: Gaslist highlights "better gas" in divemode
heinrichsweikamp
parents: 624
diff changeset
2976 movf better_gas_number,W ; better gas 1-5?
8d2dc109ecfc NEW: Gaslist highlights "better gas" in divemode
heinrichsweikamp
parents: 624
diff changeset
2977 cpfseq hi ; compare with gas#
8d2dc109ecfc NEW: Gaslist highlights "better gas" in divemode
heinrichsweikamp
parents: 624
diff changeset
2978 bra PLED_gas_list_loop2 ; No equal, skip
8d2dc109ecfc NEW: Gaslist highlights "better gas" in divemode
heinrichsweikamp
parents: 624
diff changeset
2979
8d2dc109ecfc NEW: Gaslist highlights "better gas" in divemode
heinrichsweikamp
parents: 624
diff changeset
2980 movlw color_yellow ; Blink in yellow
8d2dc109ecfc NEW: Gaslist highlights "better gas" in divemode
heinrichsweikamp
parents: 624
diff changeset
2981 call PLED_set_color
8d2dc109ecfc NEW: Gaslist highlights "better gas" in divemode
heinrichsweikamp
parents: 624
diff changeset
2982 WIN_INVERT .1 ; Init new Wordprocessor
8d2dc109ecfc NEW: Gaslist highlights "better gas" in divemode
heinrichsweikamp
parents: 624
diff changeset
2983
8d2dc109ecfc NEW: Gaslist highlights "better gas" in divemode
heinrichsweikamp
parents: 624
diff changeset
2984 PLED_gas_list_loop2:
281
f8f865c70a0d no more sorted gaslist...
heinrichsweikamp
parents: 280
diff changeset
2985 ; Check if gas needs to be greyed-out (inactive)
290
4dbff2aa31ee Hunting for refusing to ignore disabled gas in list...
JeanDo
parents: 289
diff changeset
2986 movff gaslist_active, EEDATA ; Work with sorted list
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2987 movff hi,lo ; copy gas number
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2988 PLED_gas_list_loop1:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2989 rrcf EEDATA ; roll flags into carry
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2990 decfsz lo,F ; max. 5 times...
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2991 bra PLED_gas_list_loop1
19
07e7ca48b49d 1.56 rc1
heinrichsweikamp
parents: 17
diff changeset
2992
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2993 btfss STATUS,C ; test carry
587
1b021a280e15 NEW CF64: Configures color for inactive gases
heinrichsweikamp
parents: 576
diff changeset
2994 rcall PLED_gas_list_grey
1b021a280e15 NEW CF64: Configures color for inactive gases
heinrichsweikamp
parents: 576
diff changeset
2995
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2996 call word_processor
19
07e7ca48b49d 1.56 rc1
heinrichsweikamp
parents: 17
diff changeset
2997 call PLED_standard_color
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2998
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2999 movlw d'5' ; list all five gases
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3000 cpfseq hi ; All gases shown?
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3001 bra PLED_gas_list_loop ; No
98
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 91
diff changeset
3002
352
544a96faa9f3 New "Quit sim" option in simulated dive mode, CF02 now allows more then 240seconds, Bugfix with runtime=1min in runtime simulator
Heinrichsweikamp
parents: 342
diff changeset
3003 DISPLAYTEXT d'122' ; More
98
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 91
diff changeset
3004 return ; return (OC mode)
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3005
587
1b021a280e15 NEW CF64: Configures color for inactive gases
heinrichsweikamp
parents: 576
diff changeset
3006 PLED_gas_list_grey:
1b021a280e15 NEW CF64: Configures color for inactive gases
heinrichsweikamp
parents: 576
diff changeset
3007 GETCUSTOM8 d'64' ;movlw color_grey
1b021a280e15 NEW CF64: Configures color for inactive gases
heinrichsweikamp
parents: 576
diff changeset
3008 call PLED_set_color ; grey out inactive gases!
1b021a280e15 NEW CF64: Configures color for inactive gases
heinrichsweikamp
parents: 576
diff changeset
3009 return
1b021a280e15 NEW CF64: Configures color for inactive gases
heinrichsweikamp
parents: 576
diff changeset
3010
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3011 PLED_splist_start:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3012 WIN_LEFT .100
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3013 WIN_FONT FT_SMALL
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3014 bsf leftbind
127
245de99d1d15 FIX SetPoint list color.
JeanDo
parents: 125
diff changeset
3015 call PLED_standard_color
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3016
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3017 ; list three SP in Gaslist
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3018 movlw d'35' ; 36 = current SP position in EEPROM
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3019 movwf wait_temp ; here: stores eeprom address for gas list
525
f9a03808dfe2 moving "bailout" on top of setpoint list
heinrichsweikamp
parents: 519
diff changeset
3020 movlw d'0'
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3021 movwf waitms_temp ; here: stores row for gas list
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
3022 clrf decoplan_index ; here: SP counter
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3023
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3024 PLED_splist_loop:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3025 incf wait_temp,F ; EEPROM address
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
3026 incf decoplan_index,F ; Increase SP
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3027
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3028 movlw d'25'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3029 addwf waitms_temp,F ; Increase row
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3030 movff waitms_temp,win_top ; Set Row
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3031 WIN_LEFT .100
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3032
446
92304826000d localisation part2 from Sergei
heinrichsweikamp
parents: 430
diff changeset
3033 STRCPY TXT_SP2
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
3034 movff decoplan_index,lo ; copy gas number
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3035 output_8 ; display gas number
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3036 PUTC ':'
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3037 movff wait_temp, EEADR; SP #hi position
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3038 call read_eeprom ; get byte (stored in EEDATA)
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3039 movff EEDATA,lo ; copy to lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3040 clrf hi
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3041 output_16dp d'3' ; outputs into Postinc2!
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3042 call word_processor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3043
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3044 movlw d'3' ; list all three SP
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
3045 cpfseq decoplan_index ; All gases shown?
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3046 bra PLED_splist_loop ; No
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3047
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3048 bcf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3049 return ; no, return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3050
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3051 PLED_clear_divemode_menu:
517
a73a452ca155 Backed out changeset: b498245da3f1
heinrichsweikamp
parents: 516
diff changeset
3052 WIN_BOX_BLACK .0, .168, .85, .160 ;top, bottom, left, right
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3053 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3054
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3055 PLED_divemenu_cursor:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3056 ostc_debug 'l' ; Sends debug-information to screen if debugmode active
98
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 91
diff changeset
3057
204
aad4f6e25c2d fix in logbook detail view
heinrichsweikamp
parents: 199
diff changeset
3058 WIN_BOX_BLACK .0, .150, .85, .95 ;top, bottom, left, right
98
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 91
diff changeset
3059
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3060 WIN_TOP .0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3061 WIN_LEFT .85
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3062 WIN_FONT FT_SMALL
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3063 WIN_INVERT .0 ; Init new Wordprocessor
3
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
3064 call PLED_standard_color
84
0f4c175ef824 FIX flickering in new CF menus
JeanDo
parents: 83
diff changeset
3065
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3066 movff menupos,temp1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3067 movlw d'0'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3068 dcfsnz temp1,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3069 movlw d'0'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3070 dcfsnz temp1,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3071 movlw d'25'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3072 dcfsnz temp1,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3073 movlw d'50'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3074 dcfsnz temp1,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3075 movlw d'75'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3076 dcfsnz temp1,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3077 movlw d'100'
98
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 91
diff changeset
3078 dcfsnz temp1,F
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 91
diff changeset
3079 movlw d'125'
219
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
3080
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3081 movff WREG,win_top
129
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53)
Heinrichsweikamp
parents: 127
diff changeset
3082 STRCPY_PRINT "\xB7" ; Cursor
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3083 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3084
128
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3085
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3086 ;=============================================================================
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3087 ; Draw saturation graph, is surface mode or in dive mode.
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3088 ;
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3089 PLED_tissue_saturation_graph:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3090 ostc_debug 'i' ; Sends debug-information to screen if debugmode active
13
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
3091
128
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3092 ;---- Draw Frame ---------------------------------------------------------
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3093 btfsc divemode
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3094 bra PLED_tsg_1
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3095
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3096 WIN_FRAME_STD .25, .120, .82, .159 ; Surfmode
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3097 bra PLED_tsg_2
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3098 PLED_tsg_1:
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3099 WIN_FRAME_STD .169, .239, .90, .159 ; Divemode
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3100 PLED_tsg_2:
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3101
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3102 ;---- Draw grid ----------------------------------------------------------
133
35567a646fe5 Minor merge fixes...
JeanDo
parents: 131
diff changeset
3103 btfss divemode
35567a646fe5 Minor merge fixes...
JeanDo
parents: 131
diff changeset
3104 bra PLED_no_graph_grid
35567a646fe5 Minor merge fixes...
JeanDo
parents: 131
diff changeset
3105
587
1b021a280e15 NEW CF64: Configures color for inactive gases
heinrichsweikamp
parents: 576
diff changeset
3106 GETCUSTOM8 d'64' ;movlw color_grey
128
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3107 call PLED_set_color
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3108
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3109 movlw .169+.1 ; divemode
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3110 movff WREG,win_top
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3111 movlw .239-.169-.1 ; divemode
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3112 movff WREG,win_height
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3113
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3114 movlw 1
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3115 movff WREG,win_width
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3116
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3117 movlw .122
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3118 movff WREG,win_leftx2
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3119 call PLED_box
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3120 movlw .131
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3121 movff WREG,win_leftx2
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3122 call PLED_box
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3123 movlw .140
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3124 movff WREG,win_leftx2
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3125 call PLED_box
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3126 movlw .149
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3127 movff WREG,win_leftx2
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3128 call PLED_box
133
35567a646fe5 Minor merge fixes...
JeanDo
parents: 131
diff changeset
3129 PLED_no_graph_grid:
128
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3130
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3131 ;---- Draw N2 Tissues ----------------------------------------------------
339
cb77d1fa4535 More cleanups in internal deco structures.
JeanDo
parents: 326
diff changeset
3132 lfsr FSR2, char_O_tissue_N2_saturation
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3133 movlw d'16'
128
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3134 movwf wait_temp ; 16 tissues
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3135 clrf waitms_temp ; Row offset
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3136
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3137 movlw .1
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3138 movff WREG,win_height ; row bottom (0-239)
128
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3139 movlw .82+.18 ; surfmode
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3140 btfsc divemode
133
35567a646fe5 Minor merge fixes...
JeanDo
parents: 131
diff changeset
3141 movlw .90+.18 ; divemode
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3142 movff WREG,win_leftx2 ; column left (0-159)
150
fc699a7460e6 Fix desat graph:
JeanDo
parents: 149
diff changeset
3143 movlw .57 ; surfmode: max width 57pix
fc699a7460e6 Fix desat graph:
JeanDo
parents: 149
diff changeset
3144 btfsc divemode
fc699a7460e6 Fix desat graph:
JeanDo
parents: 149
diff changeset
3145 movlw .57-8 ; divemode: 8pix less...
fc699a7460e6 Fix desat graph:
JeanDo
parents: 149
diff changeset
3146 movff WREG,win_width
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3147
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3148 PLED_tissue_saturation_graph3:
150
fc699a7460e6 Fix desat graph:
JeanDo
parents: 149
diff changeset
3149 call PLED_standard_color ; Reset color foreach iteration
fc699a7460e6 Fix desat graph:
JeanDo
parents: 149
diff changeset
3150
128
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3151 movlw .25+3 ; surfmode: 3pix below top border
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3152 btfsc divemode
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3153 movlw .169+3 ; divemode
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3154 addwf waitms_temp,W
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3155 movff WREG,win_top ; row top (0-239)
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3156
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3157 incf waitms_temp,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3158 incf waitms_temp,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3159
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3160 movf POSTINC2,W
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3161 bcf STATUS,C ; Clear carry
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3162 rrcf WREG ; And divide by 4
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3163 bcf STATUS,C
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3164 rrcf WREG
133
35567a646fe5 Minor merge fixes...
JeanDo
parents: 131
diff changeset
3165 movwf temp1
35567a646fe5 Minor merge fixes...
JeanDo
parents: 131
diff changeset
3166
150
fc699a7460e6 Fix desat graph:
JeanDo
parents: 149
diff changeset
3167 movff win_width,WREG ; Max width.
133
35567a646fe5 Minor merge fixes...
JeanDo
parents: 131
diff changeset
3168 cpfslt temp1 ; skip if 57 (WREG) < win_width
35567a646fe5 Minor merge fixes...
JeanDo
parents: 131
diff changeset
3169 movwf temp1
150
fc699a7460e6 Fix desat graph:
JeanDo
parents: 149
diff changeset
3170 movff temp1,win_bargraph
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3171
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3172 call PLED_box
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3173
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3174 decfsz wait_temp,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3175 bra PLED_tissue_saturation_graph3
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3176
128
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3177 ;---- Draw He Tissues ----------------------------------------------------
339
cb77d1fa4535 More cleanups in internal deco structures.
JeanDo
parents: 326
diff changeset
3178 lfsr FSR2, char_O_tissue_He_saturation
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3179 movlw d'16'
128
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3180 movwf wait_temp ; 16 tissues
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3181 clrf waitms_temp ; Row offset
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3182
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3183 PLED_tissue_saturation_graph2:
150
fc699a7460e6 Fix desat graph:
JeanDo
parents: 149
diff changeset
3184 call PLED_standard_color ; Reset color foreach iteration
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3185
128
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3186 movlw .120-.33 ; surfmode : 33pix above bottom border
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3187 btfsc divemode
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3188 movlw .239-.33 ; divemode
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3189 addwf waitms_temp,W
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3190 movff WREG,win_top ; row top (0-239)
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3191
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3192 incf waitms_temp,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3193 incf waitms_temp,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3194
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3195 movf POSTINC2,W
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3196 bcf STATUS,C ; Clear carry
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3197 rrcf WREG ; And divide by 4
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3198 bcf STATUS,C
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3199 rrcf WREG
133
35567a646fe5 Minor merge fixes...
JeanDo
parents: 131
diff changeset
3200 movwf temp1
150
fc699a7460e6 Fix desat graph:
JeanDo
parents: 149
diff changeset
3201
fc699a7460e6 Fix desat graph:
JeanDo
parents: 149
diff changeset
3202 movff win_width,WREG ; Max width.
133
35567a646fe5 Minor merge fixes...
JeanDo
parents: 131
diff changeset
3203 cpfslt temp1 ; skip if 57 (WREG) < win_width
35567a646fe5 Minor merge fixes...
JeanDo
parents: 131
diff changeset
3204 movwf temp1
150
fc699a7460e6 Fix desat graph:
JeanDo
parents: 149
diff changeset
3205 movff temp1,win_bargraph
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3206
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3207 call PLED_box
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3208
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3209 decfsz wait_temp,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3210 bra PLED_tissue_saturation_graph2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3211
128
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3212 ;---- Draw N2/He Text ----------------------------------------------------
150
fc699a7460e6 Fix desat graph:
JeanDo
parents: 149
diff changeset
3213 call PLED_standard_color ; Reset color after last iterarion.
fc699a7460e6 Fix desat graph:
JeanDo
parents: 149
diff changeset
3214
128
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3215 movlw .82+2 ; surfmode: 2pix right of left border
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3216 btfsc divemode
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3217 movlw .90+2 ; divemode
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3218 movff WREG,win_leftx2
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3219
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3220 movlw .25+7 ; surfmode: 7pix below top border
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3221 btfsc divemode
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3222 movlw .169+7 ; divemode
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3223 movff WREG,win_top
446
92304826000d localisation part2 from Sergei
heinrichsweikamp
parents: 430
diff changeset
3224 STRCPY_PRINT TXT_N2_2
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3225
128
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3226 movlw .120-.30 ; surfmode: 30pix above bottom border
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3227 btfsc divemode
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3228 movlw .239-.30 ; divemode
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3229 movff WREG,win_top
446
92304826000d localisation part2 from Sergei
heinrichsweikamp
parents: 430
diff changeset
3230 STRCPY_PRINT TXT_HE2
128
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3231
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3232 ;---- Draw scale and O2[16]% ---------------------------------------------
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3233 btfsc divemode
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3234 return
19
07e7ca48b49d 1.56 rc1
heinrichsweikamp
parents: 17
diff changeset
3235
07e7ca48b49d 1.56 rc1
heinrichsweikamp
parents: 17
diff changeset
3236 movff char_O_gtissue_no,wait_temp ; used as temp
07e7ca48b49d 1.56 rc1
heinrichsweikamp
parents: 17
diff changeset
3237
339
cb77d1fa4535 More cleanups in internal deco structures.
JeanDo
parents: 326
diff changeset
3238 lfsr FSR1,char_O_tissue_N2_saturation
cb77d1fa4535 More cleanups in internal deco structures.
JeanDo
parents: 326
diff changeset
3239 movf wait_temp,W ; W <- 0-15
cb77d1fa4535 More cleanups in internal deco structures.
JeanDo
parents: 326
diff changeset
3240 movff PLUSW1,lo ; lo <- FSR1[W]
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3241
19
07e7ca48b49d 1.56 rc1
heinrichsweikamp
parents: 17
diff changeset
3242 WIN_TOP .62
07e7ca48b49d 1.56 rc1
heinrichsweikamp
parents: 17
diff changeset
3243 WIN_FONT FT_SMALL
128
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3244 lfsr FSR2,letter
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3245 bsf leftbind
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3246 output_8
19
07e7ca48b49d 1.56 rc1
heinrichsweikamp
parents: 17
diff changeset
3247 bcf leftbind
07e7ca48b49d 1.56 rc1
heinrichsweikamp
parents: 17
diff changeset
3248
128
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3249 STRCAT_PRINT "% "
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3250
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3251 ;---- Draw Scale ---------------------------------------------------------
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3252 WIN_BOX_STD .73, .74, .121, .157
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3253 WIN_BOX_STD .61, .84, .121, .122
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3254 WIN_BOX_STD .65, .80, .130, .131
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3255 WIN_BOX_STD .65, .80, .139, .140
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3256 WIN_BOX_STD .65, .80, .148, .149
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3257 WIN_BOX_STD .61, .84, .157, .158
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3258 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3259
128
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3260 ;=============================================================================
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3261
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3262 PLED_startupscreen1:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3263 call PLED_topline_box
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3264 WIN_INVERT .1 ; Init new Wordprocessor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3265 DISPLAYTEXT d'3' ; "HeinrichsWeikamp"
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3266 WIN_INVERT .0 ; Init new Wordprocessor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3267 DISPLAYTEXT .68 ; Licence 1/2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3268 DISPLAYTEXT .69
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3269 DISPLAYTEXT .70
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3270 DISPLAYTEXT .71
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3271 DISPLAYTEXT .72
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3272 DISPLAYTEXT .73
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3273 DISPLAYTEXT .74
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3274 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3275
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3276 PLED_startupscreen2:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3277 call PLED_topline_box
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3278 WIN_INVERT .1 ; Init new Wordprocessor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3279 DISPLAYTEXT d'3' ; "HeinrichsWeikamp"
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3280 WIN_INVERT .0 ; Init new Wordprocessor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3281 DISPLAYTEXT .75 ; Licence 2/2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3282 DISPLAYTEXT .76
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3283 DISPLAYTEXT .77
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3284 DISPLAYTEXT .78
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3285 DISPLAYTEXT .79
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3286 DISPLAYTEXT .80
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3287 DISPLAYTEXT .81
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3288 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3289
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3290 PLED_new_cf_warning:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3291 call PLED_topline_box
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3292 WIN_INVERT .1 ; Init new Wordprocessor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3293 DISPLAYTEXTH .271 ; New CF added!
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3294 WIN_INVERT .0 ; Init new Wordprocessor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3295 DISPLAYTEXTH .272 ; New CustomFunctions
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3296 DISPLAYTEXTH .273 ; were added! Check
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3297 DISPLAYTEXTH .274 ; CF I and CF II Menu
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3298 DISPLAYTEXTH .275 ; for Details!
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3299 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3300
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3301 PLED_const_ppO2_value:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3302 ostc_debug 'j' ; Sends debug-information to screen if debugmode active
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3303
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3304 WIN_TOP .168
75
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
3305 WIN_LEFT .50
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3306 WIN_FONT FT_SMALL
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3307 WIN_INVERT .0 ; Init new Wordprocessor
4
2b5c52ae3923 1.52 beta rc
heinrichsweikamp
parents: 3
diff changeset
3308
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3309 lfsr FSR2,letter
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3310 movff char_I_const_ppO2,lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3311
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3312 tstfsz lo ; In Bailout mode (char_I_const_ppO2=0)?
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3313 bra PLED_const_ppO2_value2 ; No, display Setpoint
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3314
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3315 ; Yes, Display "Bail"
27
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
3316 call PLED_standard_color
325
4a28d7a1c620 Fixed Setpoint behavior >2,55bar with CF38=ON
heinrichsweikamp
parents: 324
diff changeset
3317 OUTPUTTEXTH d'263' ;"Bail "
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3318 call word_processor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3319 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3320
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3321 PLED_const_ppO2_value2: ; Display SetPoint
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3322 ;Show fixed SP value
341
2144f19fa1eb BUGFIX protect against ISR changing pressure/temperature while reading it.
JeanDo
parents: 340
diff changeset
3323 SAFE_2BYTE_COPY amb_pressure, xA
2144f19fa1eb BUGFIX protect against ISR changing pressure/temperature while reading it.
JeanDo
parents: 340
diff changeset
3324
4
2b5c52ae3923 1.52 beta rc
heinrichsweikamp
parents: 3
diff changeset
3325 movlw d'10'
2b5c52ae3923 1.52 beta rc
heinrichsweikamp
parents: 3
diff changeset
3326 movwf xB+0
2b5c52ae3923 1.52 beta rc
heinrichsweikamp
parents: 3
diff changeset
3327 clrf xB+1
2b5c52ae3923 1.52 beta rc
heinrichsweikamp
parents: 3
diff changeset
3328 ;xA/xB=xC with xA as remainder
2b5c52ae3923 1.52 beta rc
heinrichsweikamp
parents: 3
diff changeset
3329 call div16x16 ; xC+0=p_amb/10
26
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3330
412
b2c9cc018671 small cleanup
heinrichsweikamp
parents: 410
diff changeset
3331 ; char_I_const_ppO2 > p_amb/10 -> Not physically possible! -> Display actual value!
b2c9cc018671 small cleanup
heinrichsweikamp
parents: 410
diff changeset
3332 tstfsz xC+1 ; xC>255
b2c9cc018671 small cleanup
heinrichsweikamp
parents: 410
diff changeset
3333 setf xC+0 ; Yes, set xC+0 to 2,55bar ppO2
26
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3334
4
2b5c52ae3923 1.52 beta rc
heinrichsweikamp
parents: 3
diff changeset
3335 movff ppO2_setpoint_store,WREG
2b5c52ae3923 1.52 beta rc
heinrichsweikamp
parents: 3
diff changeset
3336 cpfslt xC+0 ; Setpoint value possible?
26
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3337 bra PLED_const_ppO2_value1 ; Yes
4
2b5c52ae3923 1.52 beta rc
heinrichsweikamp
parents: 3
diff changeset
3338
406
2534277be060 Bug #52 fixed (ppO2 blinking if setpoint is not physically possible)
heinrichsweikamp
parents: 403
diff changeset
3339 clrf hi ; Reset hi
4
2b5c52ae3923 1.52 beta rc
heinrichsweikamp
parents: 3
diff changeset
3340 movff xC+0,char_I_const_ppO2 ; No, Overwrite with actual value
2b5c52ae3923 1.52 beta rc
heinrichsweikamp
parents: 3
diff changeset
3341 bra PLED_const_ppO2_value1a
2b5c52ae3923 1.52 beta rc
heinrichsweikamp
parents: 3
diff changeset
3342
2b5c52ae3923 1.52 beta rc
heinrichsweikamp
parents: 3
diff changeset
3343 PLED_const_ppO2_value1:
26
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3344 ; char_I_const_ppO2 < ppO2[Diluent] -> Not physically possible! -> Display actual value!
341
2144f19fa1eb BUGFIX protect against ISR changing pressure/temperature while reading it.
JeanDo
parents: 340
diff changeset
3345 SAFE_2BYTE_COPY amb_pressure, xA
26
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3346 movlw d'10'
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3347 movwf xB+0
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3348 clrf xB+1
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3349 call div16x16 ; xC=p_amb/10
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3350 movff xC+0,xA+0
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3351 movff xC+1,xA+1
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3352 movff char_I_O2_ratio,xB+0
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3353 clrf xB+1
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3354 call mult16x16 ; xC:2=char_I_O2_ratio * p_amb/10
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3355
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3356 movff xC+0,sub_b+0
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3357 movff xC+1,sub_b+1
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3358 movff ppO2_setpoint_store,WREG; Setpoint
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3359 mullw d'100' ; Setpoint*100
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3360 movff PRODL,sub_a+0
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3361 movff PRODH,sub_a+1
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3362 call sub16 ; sub_c = sub_a - sub_b
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3363
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3364 btfss neg_flag
325
4a28d7a1c620 Fixed Setpoint behavior >2,55bar with CF38=ON
heinrichsweikamp
parents: 324
diff changeset
3365 bra PLED_const_ppO2_value11 ; Value in range (lower then fix Setpoint)
26
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3366
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3367 ; char_I_const_ppO2 < ppO2[Diluent] -> Not physically possible! -> Display actual value!
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3368
406
2534277be060 Bug #52 fixed (ppO2 blinking if setpoint is not physically possible)
heinrichsweikamp
parents: 403
diff changeset
3369 movff xC+0,xA+0 ; xC=p_amb/10
26
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3370 movff xC+1,xA+1
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3371 movlw d'100'
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3372 movwf xB+0
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3373 clrf xB+1
406
2534277be060 Bug #52 fixed (ppO2 blinking if setpoint is not physically possible)
heinrichsweikamp
parents: 403
diff changeset
3374 call div16x16 ;xA/xB=xC with xA as remainder
2534277be060 Bug #52 fixed (ppO2 blinking if setpoint is not physically possible)
heinrichsweikamp
parents: 403
diff changeset
3375
2534277be060 Bug #52 fixed (ppO2 blinking if setpoint is not physically possible)
heinrichsweikamp
parents: 403
diff changeset
3376 movff xC+0,char_I_const_ppO2 ; No, Overwrite with actual value
2534277be060 Bug #52 fixed (ppO2 blinking if setpoint is not physically possible)
heinrichsweikamp
parents: 403
diff changeset
3377 movff xC+1,hi ; For test if ppO2>2,55bar
138
dd4b899c56c1 1.75beta released
heinrichsweikamp
parents: 136
diff changeset
3378
406
2534277be060 Bug #52 fixed (ppO2 blinking if setpoint is not physically possible)
heinrichsweikamp
parents: 403
diff changeset
3379 GETCUSTOM8 d'39' ; Adjust fixed SP?
138
dd4b899c56c1 1.75beta released
heinrichsweikamp
parents: 136
diff changeset
3380 dcfsnz WREG,F
406
2534277be060 Bug #52 fixed (ppO2 blinking if setpoint is not physically possible)
heinrichsweikamp
parents: 403
diff changeset
3381 bra PLED_const_ppO2_value1a ; Yes!
138
dd4b899c56c1 1.75beta released
heinrichsweikamp
parents: 136
diff changeset
3382 ; Do not adjust -> restore original SetPoint
26
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3383
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3384 PLED_const_ppO2_value11:
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3385 ; Setpoint in possible limits
4
2b5c52ae3923 1.52 beta rc
heinrichsweikamp
parents: 3
diff changeset
3386 movff ppO2_setpoint_store,char_I_const_ppO2 ; Restore Setpoint
325
4a28d7a1c620 Fixed Setpoint behavior >2,55bar with CF38=ON
heinrichsweikamp
parents: 324
diff changeset
3387 clrf hi
4a28d7a1c620 Fixed Setpoint behavior >2,55bar with CF38=ON
heinrichsweikamp
parents: 324
diff changeset
3388
4
2b5c52ae3923 1.52 beta rc
heinrichsweikamp
parents: 3
diff changeset
3389 PLED_const_ppO2_value1a:
2b5c52ae3923 1.52 beta rc
heinrichsweikamp
parents: 3
diff changeset
3390 movff char_I_const_ppO2,lo
325
4a28d7a1c620 Fixed Setpoint behavior >2,55bar with CF38=ON
heinrichsweikamp
parents: 324
diff changeset
3391
4a28d7a1c620 Fixed Setpoint behavior >2,55bar with CF38=ON
heinrichsweikamp
parents: 324
diff changeset
3392 movff lo,WREG ; copy to WREG
4a28d7a1c620 Fixed Setpoint behavior >2,55bar with CF38=ON
heinrichsweikamp
parents: 324
diff changeset
3393 mullw .100
4a28d7a1c620 Fixed Setpoint behavior >2,55bar with CF38=ON
heinrichsweikamp
parents: 324
diff changeset
3394 movff PRODH,xC+1
4a28d7a1c620 Fixed Setpoint behavior >2,55bar with CF38=ON
heinrichsweikamp
parents: 324
diff changeset
3395 movff PRODL,xC+0 ; For color code
4a28d7a1c620 Fixed Setpoint behavior >2,55bar with CF38=ON
heinrichsweikamp
parents: 324
diff changeset
3396 PLED_color_code warn_ppo2 ; Color-code output (ppO2 stored in xC)
4a28d7a1c620 Fixed Setpoint behavior >2,55bar with CF38=ON
heinrichsweikamp
parents: 324
diff changeset
3397
4a28d7a1c620 Fixed Setpoint behavior >2,55bar with CF38=ON
heinrichsweikamp
parents: 324
diff changeset
3398 tstfsz hi ; >2,55bar?
4a28d7a1c620 Fixed Setpoint behavior >2,55bar with CF38=ON
heinrichsweikamp
parents: 324
diff changeset
3399 rcall PLED_const_ppO2_too_hi ; Yes
4a28d7a1c620 Fixed Setpoint behavior >2,55bar with CF38=ON
heinrichsweikamp
parents: 324
diff changeset
3400
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3401 bsf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3402 output_16dp d'3'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3403 bcf leftbind
406
2534277be060 Bug #52 fixed (ppO2 blinking if setpoint is not physically possible)
heinrichsweikamp
parents: 403
diff changeset
3404 STRCAT_PRINT " " ; Display Setpoint with trailing zero
325
4a28d7a1c620 Fixed Setpoint behavior >2,55bar with CF38=ON
heinrichsweikamp
parents: 324
diff changeset
3405 call PLED_standard_color ; Reset color
4a28d7a1c620 Fixed Setpoint behavior >2,55bar with CF38=ON
heinrichsweikamp
parents: 324
diff changeset
3406 return
4a28d7a1c620 Fixed Setpoint behavior >2,55bar with CF38=ON
heinrichsweikamp
parents: 324
diff changeset
3407
4a28d7a1c620 Fixed Setpoint behavior >2,55bar with CF38=ON
heinrichsweikamp
parents: 324
diff changeset
3408 PLED_const_ppO2_too_hi:
386
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
3409 PUTC '>'
325
4a28d7a1c620 Fixed Setpoint behavior >2,55bar with CF38=ON
heinrichsweikamp
parents: 324
diff changeset
3410 setf lo ; show ">2.55"
4a28d7a1c620 Fixed Setpoint behavior >2,55bar with CF38=ON
heinrichsweikamp
parents: 324
diff changeset
3411 clrf hi ; clear hi
4a28d7a1c620 Fixed Setpoint behavior >2,55bar with CF38=ON
heinrichsweikamp
parents: 324
diff changeset
3412 call PLED_warnings_color ; Set Warning color
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3413 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3414
307
5bc3467fc421 New live EAD/END in divemode (both OCR and CCR).
JeanDo
parents: 305
diff changeset
3415 ;=============================================================================
5bc3467fc421 New live EAD/END in divemode (both OCR and CCR).
JeanDo
parents: 305
diff changeset
3416 ; Display EAD/END computed in calc_hauptroutine_update_tissues() every 2sec.
5bc3467fc421 New live EAD/END in divemode (both OCR and CCR).
JeanDo
parents: 305
diff changeset
3417 ;
274
a728b4a1b660 Setpoint changes stored in profile, EAD and END displayed in divemode (Customview 7)
heinrichsweikamp
parents: 256
diff changeset
3418 PLED_show_end_ead_divemode:
307
5bc3467fc421 New live EAD/END in divemode (both OCR and CCR).
JeanDo
parents: 305
diff changeset
3419 call PLED_divemask_color ; Set Color for Divemode mask
5bc3467fc421 New live EAD/END in divemode (both OCR and CCR).
JeanDo
parents: 305
diff changeset
3420
5bc3467fc421 New live EAD/END in divemode (both OCR and CCR).
JeanDo
parents: 305
diff changeset
3421 WIN_FONT FT_SMALL
274
a728b4a1b660 Setpoint changes stored in profile, EAD and END displayed in divemode (Customview 7)
heinrichsweikamp
parents: 256
diff changeset
3422 WIN_LEFT .95
a728b4a1b660 Setpoint changes stored in profile, EAD and END displayed in divemode (Customview 7)
heinrichsweikamp
parents: 256
diff changeset
3423 WIN_TOP .192
a728b4a1b660 Setpoint changes stored in profile, EAD and END displayed in divemode (Customview 7)
heinrichsweikamp
parents: 256
diff changeset
3424 lfsr FSR2,letter
307
5bc3467fc421 New live EAD/END in divemode (both OCR and CCR).
JeanDo
parents: 305
diff changeset
3425 OUTPUTTEXTH .299 ; EAD:
326
a7ed48daf597 Fix minor rounding error in ppO2[flush].
JeanDo
parents: 325
diff changeset
3426 call word_processor
307
5bc3467fc421 New live EAD/END in divemode (both OCR and CCR).
JeanDo
parents: 305
diff changeset
3427
274
a728b4a1b660 Setpoint changes stored in profile, EAD and END displayed in divemode (Customview 7)
heinrichsweikamp
parents: 256
diff changeset
3428 WIN_TOP .216
326
a7ed48daf597 Fix minor rounding error in ppO2[flush].
JeanDo
parents: 325
diff changeset
3429 lfsr FSR2,letter
307
5bc3467fc421 New live EAD/END in divemode (both OCR and CCR).
JeanDo
parents: 305
diff changeset
3430 OUTPUTTEXTH .298 ; END:
326
a7ed48daf597 Fix minor rounding error in ppO2[flush].
JeanDo
parents: 325
diff changeset
3431 call word_processor
a7ed48daf597 Fix minor rounding error in ppO2[flush].
JeanDo
parents: 325
diff changeset
3432
a7ed48daf597 Fix minor rounding error in ppO2[flush].
JeanDo
parents: 325
diff changeset
3433 call PLED_standard_color ; Back to white.
274
a728b4a1b660 Setpoint changes stored in profile, EAD and END displayed in divemode (Customview 7)
heinrichsweikamp
parents: 256
diff changeset
3434 WIN_LEFT .125
a728b4a1b660 Setpoint changes stored in profile, EAD and END displayed in divemode (Customview 7)
heinrichsweikamp
parents: 256
diff changeset
3435 WIN_TOP .192
326
a7ed48daf597 Fix minor rounding error in ppO2[flush].
JeanDo
parents: 325
diff changeset
3436 lfsr FSR2,letter
a7ed48daf597 Fix minor rounding error in ppO2[flush].
JeanDo
parents: 325
diff changeset
3437 movff char_O_EAD,lo
a7ed48daf597 Fix minor rounding error in ppO2[flush].
JeanDo
parents: 325
diff changeset
3438 bsf leftbind
307
5bc3467fc421 New live EAD/END in divemode (both OCR and CCR).
JeanDo
parents: 305
diff changeset
3439 output_8 ; Print EAD w/o leading space.
446
92304826000d localisation part2 from Sergei
heinrichsweikamp
parents: 430
diff changeset
3440 STRCAT_PRINT TXT_METER2
307
5bc3467fc421 New live EAD/END in divemode (both OCR and CCR).
JeanDo
parents: 305
diff changeset
3441
274
a728b4a1b660 Setpoint changes stored in profile, EAD and END displayed in divemode (Customview 7)
heinrichsweikamp
parents: 256
diff changeset
3442 WIN_TOP .216
326
a7ed48daf597 Fix minor rounding error in ppO2[flush].
JeanDo
parents: 325
diff changeset
3443 lfsr FSR2,letter
a7ed48daf597 Fix minor rounding error in ppO2[flush].
JeanDo
parents: 325
diff changeset
3444 movff char_O_END,lo
307
5bc3467fc421 New live EAD/END in divemode (both OCR and CCR).
JeanDo
parents: 305
diff changeset
3445 output_8 ; Print END w/o leading space.
326
a7ed48daf597 Fix minor rounding error in ppO2[flush].
JeanDo
parents: 325
diff changeset
3446 bcf leftbind
446
92304826000d localisation part2 from Sergei
heinrichsweikamp
parents: 430
diff changeset
3447 STRCAT_PRINT TXT_METER2
326
a7ed48daf597 Fix minor rounding error in ppO2[flush].
JeanDo
parents: 325
diff changeset
3448
a7ed48daf597 Fix minor rounding error in ppO2[flush].
JeanDo
parents: 325
diff changeset
3449 ; Show ppO2[Flush] iff in CCR mode & not in Bailout:
a7ed48daf597 Fix minor rounding error in ppO2[flush].
JeanDo
parents: 325
diff changeset
3450 btfsc is_bailout ; In bailout mode?
307
5bc3467fc421 New live EAD/END in divemode (both OCR and CCR).
JeanDo
parents: 305
diff changeset
3451 return ; Yes: done.
5bc3467fc421 New live EAD/END in divemode (both OCR and CCR).
JeanDo
parents: 305
diff changeset
3452
326
a7ed48daf597 Fix minor rounding error in ppO2[flush].
JeanDo
parents: 325
diff changeset
3453 btfss FLAG_const_ppO2_mode ; In (true) CCR mode ?
307
5bc3467fc421 New live EAD/END in divemode (both OCR and CCR).
JeanDo
parents: 305
diff changeset
3454 return ; No: done.
5bc3467fc421 New live EAD/END in divemode (both OCR and CCR).
JeanDo
parents: 305
diff changeset
3455
301
a5fd8777a598 Display ppO2[Diluent] in CCR modes
heinrichsweikamp
parents: 300
diff changeset
3456 WIN_LEFT .95
a5fd8777a598 Display ppO2[Diluent] in CCR modes
heinrichsweikamp
parents: 300
diff changeset
3457 WIN_TOP .168
326
a7ed48daf597 Fix minor rounding error in ppO2[flush].
JeanDo
parents: 325
diff changeset
3458 call PLED_divemask_color ; Set Color for Divemode mask
446
92304826000d localisation part2 from Sergei
heinrichsweikamp
parents: 430
diff changeset
3459 STRCPY_PRINT TXT_PPO2_5 ; ppO2 of diluent
326
a7ed48daf597 Fix minor rounding error in ppO2[flush].
JeanDo
parents: 325
diff changeset
3460
a7ed48daf597 Fix minor rounding error in ppO2[flush].
JeanDo
parents: 325
diff changeset
3461 movff char_O_flush_ppO2,WREG ; copy to WREG
a7ed48daf597 Fix minor rounding error in ppO2[flush].
JeanDo
parents: 325
diff changeset
3462 mullw .100
a7ed48daf597 Fix minor rounding error in ppO2[flush].
JeanDo
parents: 325
diff changeset
3463 movff PRODH,xC+1
a7ed48daf597 Fix minor rounding error in ppO2[flush].
JeanDo
parents: 325
diff changeset
3464 movff PRODL,xC+0 ; For color code
324
a86c9d1219ce ppO2 diluent (flush) color coded
Heinrichsweikamp
parents: 323
diff changeset
3465 PLED_color_code warn_ppo2 ; Color-code output (ppO2 stored in xC)
301
a5fd8777a598 Display ppO2[Diluent] in CCR modes
heinrichsweikamp
parents: 300
diff changeset
3466
a5fd8777a598 Display ppO2[Diluent] in CCR modes
heinrichsweikamp
parents: 300
diff changeset
3467 WIN_LEFT .130
a5fd8777a598 Display ppO2[Diluent] in CCR modes
heinrichsweikamp
parents: 300
diff changeset
3468 WIN_TOP .168
322
676d18bce8d7 Fix ppO2[flush] display in customview.
JeanDo
parents: 314
diff changeset
3469
676d18bce8d7 Fix ppO2[flush] display in customview.
JeanDo
parents: 314
diff changeset
3470 movff char_O_flush_ppO2, lo
676d18bce8d7 Fix ppO2[flush] display in customview.
JeanDo
parents: 314
diff changeset
3471 incf lo,W ; ppO2 == 2.55 ?
676d18bce8d7 Fix ppO2[flush] display in customview.
JeanDo
parents: 314
diff changeset
3472 bnz PLED_show_end_ead_divemode_1
326
a7ed48daf597 Fix minor rounding error in ppO2[flush].
JeanDo
parents: 325
diff changeset
3473
322
676d18bce8d7 Fix ppO2[flush] display in customview.
JeanDo
parents: 314
diff changeset
3474 STRCPY_PRINT "----" ; YES: mark overflow.
326
a7ed48daf597 Fix minor rounding error in ppO2[flush].
JeanDo
parents: 325
diff changeset
3475 goto PLED_standard_color ; Back to white.
322
676d18bce8d7 Fix ppO2[flush] display in customview.
JeanDo
parents: 314
diff changeset
3476
676d18bce8d7 Fix ppO2[flush] display in customview.
JeanDo
parents: 314
diff changeset
3477 PLED_show_end_ead_divemode_1:
301
a5fd8777a598 Display ppO2[Diluent] in CCR modes
heinrichsweikamp
parents: 300
diff changeset
3478 lfsr FSR2,letter
307
5bc3467fc421 New live EAD/END in divemode (both OCR and CCR).
JeanDo
parents: 305
diff changeset
3479 clrf hi
301
a5fd8777a598 Display ppO2[Diluent] in CCR modes
heinrichsweikamp
parents: 300
diff changeset
3480 bsf leftbind
307
5bc3467fc421 New live EAD/END in divemode (both OCR and CCR).
JeanDo
parents: 305
diff changeset
3481 output_16dp d'3' ; Show ppO2 w/o leading zero
301
a5fd8777a598 Display ppO2[Diluent] in CCR modes
heinrichsweikamp
parents: 300
diff changeset
3482 bcf leftbind
a5fd8777a598 Display ppO2[Diluent] in CCR modes
heinrichsweikamp
parents: 300
diff changeset
3483 STRCAT_PRINT " " ; Display ppO2[Diluent]
326
a7ed48daf597 Fix minor rounding error in ppO2[flush].
JeanDo
parents: 325
diff changeset
3484 goto PLED_standard_color ; Back to white.
277
46d1012d096a Quick-access to menupos3 in divemode - ToDo: EAD and END in CCR mode
heinrichsweikamp
parents: 274
diff changeset
3485
307
5bc3467fc421 New live EAD/END in divemode (both OCR and CCR).
JeanDo
parents: 305
diff changeset
3486 ;=============================================================================
312
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth.
JeanDo
parents: 310
diff changeset
3487 ; Display TTS after extra time at the same depth.
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth.
JeanDo
parents: 310
diff changeset
3488 ;
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth.
JeanDo
parents: 310
diff changeset
3489 PLED_show_@5:
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth.
JeanDo
parents: 310
diff changeset
3490 WIN_FONT FT_SMALL
314
c61d94186f8f @5 "Escape TTS" translations
JeanDo
parents: 313
diff changeset
3491 WIN_LEFT .160-.70 ; 10 chars aligned right.
313
11be2470b9eb Fix @5 preventing main computation
JeanDo
parents: 312
diff changeset
3492 WIN_TOP .170
323
b7940978edc9 Fix "Future TTS" display customview.
JeanDo
parents: 322
diff changeset
3493 call PLED_divemask_color ; Set Color for Divemode mask
314
c61d94186f8f @5 "Escape TTS" translations
JeanDo
parents: 313
diff changeset
3494 lfsr FSR2,letter
323
b7940978edc9 Fix "Future TTS" display customview.
JeanDo
parents: 322
diff changeset
3495
b7940978edc9 Fix "Future TTS" display customview.
JeanDo
parents: 322
diff changeset
3496 OUTPUTTEXTH .305 ; "Future TTS"
314
c61d94186f8f @5 "Escape TTS" translations
JeanDo
parents: 313
diff changeset
3497 call word_processor
c61d94186f8f @5 "Escape TTS" translations
JeanDo
parents: 313
diff changeset
3498
c61d94186f8f @5 "Escape TTS" translations
JeanDo
parents: 313
diff changeset
3499 WIN_LEFT .97
313
11be2470b9eb Fix @5 preventing main computation
JeanDo
parents: 312
diff changeset
3500 WIN_TOP .194
312
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth.
JeanDo
parents: 310
diff changeset
3501 STRCPY "@"
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth.
JeanDo
parents: 310
diff changeset
3502 GETCUSTOM8 d'58'
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth.
JeanDo
parents: 310
diff changeset
3503 movwf lo
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth.
JeanDo
parents: 310
diff changeset
3504 bsf leftbind
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth.
JeanDo
parents: 310
diff changeset
3505 output_8
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth.
JeanDo
parents: 310
diff changeset
3506 bcf leftbind
323
b7940978edc9 Fix "Future TTS" display customview.
JeanDo
parents: 322
diff changeset
3507 STRCAT_PRINT "': "
313
11be2470b9eb Fix @5 preventing main computation
JeanDo
parents: 312
diff changeset
3508
323
b7940978edc9 Fix "Future TTS" display customview.
JeanDo
parents: 322
diff changeset
3509 WIN_LEFT .97+7*5 ; "@10':" is 5 chars long
313
11be2470b9eb Fix @5 preventing main computation
JeanDo
parents: 312
diff changeset
3510 call PLED_standard_color
312
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth.
JeanDo
parents: 310
diff changeset
3511 lfsr FSR2,letter
323
b7940978edc9 Fix "Future TTS" display customview.
JeanDo
parents: 322
diff changeset
3512
312
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth.
JeanDo
parents: 310
diff changeset
3513 movff int_O_extra_ascenttime+0,lo
313
11be2470b9eb Fix @5 preventing main computation
JeanDo
parents: 312
diff changeset
3514 movff int_O_extra_ascenttime+1,hi
11be2470b9eb Fix @5 preventing main computation
JeanDo
parents: 312
diff changeset
3515 movf lo,W
323
b7940978edc9 Fix "Future TTS" display customview.
JeanDo
parents: 322
diff changeset
3516 iorwf hi,W ; extra_ascenttime == 0 ?
b7940978edc9 Fix "Future TTS" display customview.
JeanDo
parents: 322
diff changeset
3517 bz PLED_show_@5_nodeco
b7940978edc9 Fix "Future TTS" display customview.
JeanDo
parents: 322
diff changeset
3518 movf lo,W ; extra_ascenttime == 0xFFFF ?
b7940978edc9 Fix "Future TTS" display customview.
JeanDo
parents: 322
diff changeset
3519 andwf hi,W
b7940978edc9 Fix "Future TTS" display customview.
JeanDo
parents: 322
diff changeset
3520 incf WREG,w
312
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth.
JeanDo
parents: 310
diff changeset
3521 bz PLED_show_@5_wait
323
b7940978edc9 Fix "Future TTS" display customview.
JeanDo
parents: 322
diff changeset
3522
312
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth.
JeanDo
parents: 310
diff changeset
3523 bsf leftbind
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth.
JeanDo
parents: 310
diff changeset
3524 output_16
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth.
JeanDo
parents: 310
diff changeset
3525 bcf leftbind
323
b7940978edc9 Fix "Future TTS" display customview.
JeanDo
parents: 322
diff changeset
3526 STRCAT_PRINT "' " ; From "none" to "1'" we need 2 trailing spaces
312
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth.
JeanDo
parents: 310
diff changeset
3527 return
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth.
JeanDo
parents: 310
diff changeset
3528
323
b7940978edc9 Fix "Future TTS" display customview.
JeanDo
parents: 322
diff changeset
3529 PLED_show_@5_nodeco:
312
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth.
JeanDo
parents: 310
diff changeset
3530 PLED_show_@5_wait:
323
b7940978edc9 Fix "Future TTS" display customview.
JeanDo
parents: 322
diff changeset
3531 STRCPY_PRINT "--- "
312
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth.
JeanDo
parents: 310
diff changeset
3532 return
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth.
JeanDo
parents: 310
diff changeset
3533
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth.
JeanDo
parents: 310
diff changeset
3534 ;=============================================================================
592
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63)
heinrichsweikamp
parents: 587
diff changeset
3535
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63)
heinrichsweikamp
parents: 587
diff changeset
3536 compute_pscr_ppo2:
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63)
heinrichsweikamp
parents: 587
diff changeset
3537 ; (Pressure[mbar]*char_I_O2_ratio)-(100-char_I_O2_ratio)*CF61*CF62*10
552
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3538 movff char_I_O2_ratio,WREG
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3539 sublw .100 ; 100-char_I_O2_ratio -> WREG
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3540 mullw .10 ; (100-char_I_O2_ratio)*10 -> PROD:2
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3541 movff PRODL,xA+0
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3542 movff PRODH,xA+1
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3543 GETCUSTOM8 d'62' ; O2 Drop
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3544 movff WREG,xB+0
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3545 clrf xB+1
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3546 call mult16x16 ;xA*xB=xC -> (100-char_I_O2_ratio)*10*CF61
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3547 movff xC+0,xA+0
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3548 movff xC+1,xA+1
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3549 GETCUSTOM8 d'63' ; Lung ratio
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3550 movff WREG,xB+0
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3551 clrf xB+1
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3552 call mult16x16 ;xA*xB=xC -> (100-char_I_O2_ratio)*10*CF61*CF62
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3553
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3554 movlw .10
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3555 movwf xB+0
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3556 clrf xB+1
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3557 call div32x16 ; xC:4 / xB:2 = xC+3:xC+2 with xC+1:xC+0 as remainder
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3558 ; store xC:2 in lo:hi
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3559 movff xC+0,lo
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3560 movff xC+1,hi
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3561
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3562 SAFE_2BYTE_COPY amb_pressure, xA
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3563 movff char_I_O2_ratio,xB+0
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3564 clrf xB+1
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3565 call mult16x16 ;xA*xB=xC -> xC:4 = Pressure[mbar]*char_I_O2_ratio
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3566
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3567 movlw .10
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3568 movwf xB+0
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3569 clrf xB+1
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3570 call div32x16 ; xC:4 / xB:2 = xC+3:xC+2 with xC+1:xC+0 as remainder
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3571
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3572 ; store xC:2 in sub_a
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3573 movff xC+0,sub_a+0
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3574 movff xC+1,sub_a+1
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3575 ; reload result from lo:hi
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3576 movff lo,sub_b+0
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3577 movff hi,sub_b+1
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3578
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3579 call subU16 ;sub_c = sub_a - sub_b (with UNSIGNED values)
592
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63)
heinrichsweikamp
parents: 587
diff changeset
3580 return
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63)
heinrichsweikamp
parents: 587
diff changeset
3581
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63)
heinrichsweikamp
parents: 587
diff changeset
3582 ; Display pSCR ppO2
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63)
heinrichsweikamp
parents: 587
diff changeset
3583 PLED_show_pSCR_ppO2:
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63)
heinrichsweikamp
parents: 587
diff changeset
3584 WIN_FONT FT_SMALL
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63)
heinrichsweikamp
parents: 587
diff changeset
3585 WIN_LEFT .160-.63 ; 9 chars aligned right.
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63)
heinrichsweikamp
parents: 587
diff changeset
3586 WIN_TOP .170
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63)
heinrichsweikamp
parents: 587
diff changeset
3587 call PLED_divemask_color ; Set Color for Divemode mask
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63)
heinrichsweikamp
parents: 587
diff changeset
3588 lfsr FSR2,letter
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63)
heinrichsweikamp
parents: 587
diff changeset
3589 OUTPUTTEXTH .266 ; "pSCR Info"
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63)
heinrichsweikamp
parents: 587
diff changeset
3590 call word_processor ; pCCR
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63)
heinrichsweikamp
parents: 587
diff changeset
3591
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63)
heinrichsweikamp
parents: 587
diff changeset
3592 rcall compute_pscr_ppo2 ; pSCR ppO2 into sub_c:2
552
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3593
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3594 WIN_FONT FT_SMALL
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3595 WIN_LEFT .95
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3596 WIN_TOP .192
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3597 lfsr FSR2,letter
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3598 STRCPY_PRINT TXT_PPO2_5 ; ppO2:
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3599
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3600 movff sub_c+0,xC+0
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3601 movff sub_c+1,xC+1
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3602 clrf xC+2
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3603 clrf xC+3 ; For color coding
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3604 PLED_color_code warn_ppo2 ; Color-code output (ppO2 stored in xC)
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3605 WIN_LEFT .130
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3606 WIN_TOP .192
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3607 lfsr FSR2,letter
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3608 movff xC+0,lo
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3609 movff xC+1,hi
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3610 bsf ignore_digit4
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3611 output_16dp d'1'
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3612 bcf ignore_digit4
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3613 STRCAT_PRINT " "
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3614 call PLED_standard_color ; Back to white.
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3615 ; Show O2 drop and counter lung ration in second row
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3616 WIN_LEFT .98
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3617 WIN_TOP .216
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3618 lfsr FSR2,letter
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3619 GETCUSTOM8 d'62' ; O2 Drop in percent
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3620 movwf lo
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3621 bsf leftbind
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3622 output_8
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3623 STRCAT "% 1/"
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3624 GETCUSTOM8 d'63' ; Counter lung ratio in 1/X
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3625 movwf lo
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3626 output_8
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3627 bcf leftbind
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3628 STRCAT_PRINT " " ; Trailing space needed when changing the O2 drop
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3629 return
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3630
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3631 ;=============================================================================
476
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3632 ; Display cave consomation prediction (and warning).
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3633 ;
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3634 PLED_show_cave_bailout:
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3635 WIN_FONT FT_SMALL
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3636 WIN_LEFT .160-.70 ; 10 chars aligned right.
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3637 WIN_TOP .170
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3638 call PLED_divemask_color ; Set Color for Divemode mask
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3639 lfsr FSR2,letter
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3640
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3641 OUTPUTTEXTH .311 ; "Cave Bail."
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3642 call word_processor
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3643
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3644 ; WIN_TOP .240 - 24 ; DO NOT display liter units, as this
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3645 ; WIN_LEFT .160 - 7 ; can be Bars also...
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3646 ; STRCPY_PRINT "l"
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3647
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3648 WIN_FONT FT_MEDIUM
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3649 WIN_LEFT .90
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3650 WIN_TOP .201 ; 170 + 24 + 14/2 + 32 + 14/2 = 240.
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3651 call PLED_standard_color
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3652 lfsr FSR2,letter
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3653
479
9fc8feff27a5 Enable reset in cave bailout prediction, by using chrono average depth.
JeanDo
parents: 478
diff changeset
3654 ;---- Retrieve divetime in seconds (since last reset)
9fc8feff27a5 Enable reset in cave bailout prediction, by using chrono average depth.
JeanDo
parents: 478
diff changeset
3655 movff average_divesecs+0,xA+0
9fc8feff27a5 Enable reset in cave bailout prediction, by using chrono average depth.
JeanDo
parents: 478
diff changeset
3656 movff average_divesecs+1,xA+1
476
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3657
478
fd8266b511cc New SAC (CF56/CF57) in 5..50 l/min range (no more decimal).
JeanDo
parents: 476
diff changeset
3658 ;---- Multiply by SAC, and divide by 60 (SAC inliters per minutes)
476
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3659 GETCUSTOM8 d'56' ; Get bottom SAC
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3660 movwf xB+0
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3661 clrf xB+1
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3662 call mult16x16 ; xC:4=xA:2*xB:2
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3663
478
fd8266b511cc New SAC (CF56/CF57) in 5..50 l/min range (no more decimal).
JeanDo
parents: 476
diff changeset
3664 movlw LOW(.60)
476
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3665 movwf xB+0
478
fd8266b511cc New SAC (CF56/CF57) in 5..50 l/min range (no more decimal).
JeanDo
parents: 476
diff changeset
3666 movlw HIGH(.60)
476
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3667 movwf xB+1
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3668 call div32x16 ; xC:4 / xB:2 = xC+3:xC+2 with xC+1:xC+0 as remainder
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3669
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3670 ;---- Multiply by average pressure [absolute, in bar]
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3671 movff xC+0,xA+0 ; Get result (in xC+0, noy xC+2 !) into xA
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3672 movff xC+1,xA+1
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3673
479
9fc8feff27a5 Enable reset in cave bailout prediction, by using chrono average depth.
JeanDo
parents: 478
diff changeset
3674 movf avr_rel_pressure+0,W ; Add surface pressure to get absolute pressure
476
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3675 addwf last_surfpressure_30min+0,W
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3676 movwf xB+0
479
9fc8feff27a5 Enable reset in cave bailout prediction, by using chrono average depth.
JeanDo
parents: 478
diff changeset
3677 movf avr_rel_pressure+1,W
476
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3678 addwfc last_surfpressure_30min+1,W
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3679 movwf xB+1 ; --> Into xB
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3680
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3681 call mult16x16 ; xC:4=xA:2*xB:2
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3682
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3683 movlw LOW(.1000) ; Pressure was in milibar, so divide by 1000.
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3684 movwf xB+0
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3685 movlw HIGH(.1000)
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3686 movwf xB+1
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3687 call div32x16 ; xC:4 / xB:2 = xC+3:xC+2 with xC+1:xC+0 as remainder
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3688
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3689 ;---- Go RED when limit is exceeded
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3690 movff xC+0,sub_a+0
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3691 movff xC+1,sub_a+1
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3692 GETCUSTOM15 d'59' ; Get Cave bailout alarm threshold
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3693 movff lo, sub_b+0
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3694 movff hi, sub_b+1
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3695 call sub16 ; Computes prediction - limit
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3696 btfss neg_flag ; Negativ ?
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3697 call PLED_warnings_color ; NO: go RED.
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3698
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3699 ;---- Then display...
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3700 movff xC+0,lo
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3701 movff xC+1,hi
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3702
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3703 bcf leftbind
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3704 output_16
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3705 call word_processor
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3706 WIN_FONT FT_SMALL
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3707 return
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3708
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3709 ;=============================================================================
274
a728b4a1b660 Setpoint changes stored in profile, EAD and END displayed in divemode (Customview 7)
heinrichsweikamp
parents: 256
diff changeset
3710
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3711 PLED_show_leading_tissue:
98
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 91
diff changeset
3712 call PLED_divemask_color ; Set Color for Divemode mask
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 91
diff changeset
3713 DISPLAYTEXTH .282 ; L. Tissue:
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 91
diff changeset
3714 PLED_show_leading_tissue_2:
116
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents: 115
diff changeset
3715 call deco_calc_desaturation_time ; calculate desaturation time
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3716 movlb b'00000001' ; select ram bank 1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3717
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3718 STRCPY "#"
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3719 movff char_O_gtissue_no,lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3720 movff char_O_gtissue_no,wait_temp ; used as temp
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3721 bsf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3722 output_8
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3723 STRCAT " ("
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3724
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3725 movlw d'16'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3726 cpfslt wait_temp
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3727 bra PLED_show_leading_tissue_he
446
92304826000d localisation part2 from Sergei
heinrichsweikamp
parents: 430
diff changeset
3728 STRCAT TXT_N2_2
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3729 bra PLED_show_leading_tissue2
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3730
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3731 PLED_show_leading_tissue_he:
446
92304826000d localisation part2 from Sergei
heinrichsweikamp
parents: 430
diff changeset
3732 STRCAT TXT_HE2
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3733
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3734 PLED_show_leading_tissue2:
98
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 91
diff changeset
3735 WIN_LEFT .95
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 91
diff changeset
3736 WIN_TOP .192
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3737 WIN_FONT FT_SMALL
3
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
3738 call PLED_standard_color
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3739
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3740 STRCAT_PRINT ") "
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3741
339
cb77d1fa4535 More cleanups in internal deco structures.
JeanDo
parents: 326
diff changeset
3742 lfsr FSR1,char_O_tissue_N2_saturation
cb77d1fa4535 More cleanups in internal deco structures.
JeanDo
parents: 326
diff changeset
3743 movf wait_temp,W ; W <- 0-15
cb77d1fa4535 More cleanups in internal deco structures.
JeanDo
parents: 326
diff changeset
3744 movff PLUSW1,lo ; lo <- FSR1[W]
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3745
98
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 91
diff changeset
3746 WIN_LEFT .95
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 91
diff changeset
3747 WIN_TOP .216
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3748 WIN_FONT FT_SMALL
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3749
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3750 lfsr FSR2,letter
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3751 output_8
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3752 STRCAT_PRINT "% "
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3753 bcf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3754 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3755
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3756 PLED_topline_box_clear: ; Writes an empty box
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3757 movlw .0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3758 bra PLED_topline_box2
98
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 91
diff changeset
3759 PLED_topline_box: ; Writes a filled box...
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 91
diff changeset
3760 GETCUSTOM8 d'35' ; ... with the standard color
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3761 PLED_topline_box2:
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3762 WIN_BOX_COLOR .0, .26, .0, .159
309
2f21f7a77608 moved cf warning to upper right corner
heinrichsweikamp
parents: 307
diff changeset
3763 call PLED_standard_color ; Reset to standard color in case of unreadable color
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3764 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3765
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3766 PLED_display_cns:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3767 btfsc gauge_mode ; Do not display in gauge mode
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3768 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3769
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3770 btfsc FLAG_apnoe_mode ; Do not display in apnoe mode
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3771 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3772
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3773 btfsc pled_velocity_display ; Is velocity displayed?`
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3774 return ; Yes, do not overwrite until pled_velocity_clear was called
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3775
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3776 ostc_debug 'k' ; Sends debug-information to screen if debugmode active
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3777
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3778 WIN_TOP .090
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3779 WIN_LEFT .0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3780 WIN_FONT FT_SMALL
27
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
3781 PLED_color_code warn_cns ; Color-code CNS output
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3782
446
92304826000d localisation part2 from Sergei
heinrichsweikamp
parents: 430
diff changeset
3783 STRCPY TXT_CNS4
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3784 movff char_O_CNS_fraction,lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3785 bsf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3786 output_8
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3787 bcf leftbind
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3788 STRCAT_PRINT "%"
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3789 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3790
519
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
3791 ;-----------------------------------------------------------------------------
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
3792 ;
43
65d5b0c8da41 New CF48, changed CF15
heinrichsweikamp
parents: 37
diff changeset
3793 PLED_display_cns_surface:
65d5b0c8da41 New CF48, changed CF15
heinrichsweikamp
parents: 37
diff changeset
3794 ; Check if CNS should be displayed
65d5b0c8da41 New CF48, changed CF15
heinrichsweikamp
parents: 37
diff changeset
3795 movff char_O_CNS_fraction,lo ; copy into bank1
65d5b0c8da41 New CF48, changed CF15
heinrichsweikamp
parents: 37
diff changeset
3796 GETCUSTOM8 d'15' ; cns_display_high_surfacemode
65d5b0c8da41 New CF48, changed CF15
heinrichsweikamp
parents: 37
diff changeset
3797 subwf lo,W
65d5b0c8da41 New CF48, changed CF15
heinrichsweikamp
parents: 37
diff changeset
3798 btfss STATUS,C
65d5b0c8da41 New CF48, changed CF15
heinrichsweikamp
parents: 37
diff changeset
3799 return ; Do not show...
65d5b0c8da41 New CF48, changed CF15
heinrichsweikamp
parents: 37
diff changeset
3800 ; Show CNS
65d5b0c8da41 New CF48, changed CF15
heinrichsweikamp
parents: 37
diff changeset
3801
65d5b0c8da41 New CF48, changed CF15
heinrichsweikamp
parents: 37
diff changeset
3802 ostc_debug 'W' ; Sends debug-information to screen if debugmode active
65d5b0c8da41 New CF48, changed CF15
heinrichsweikamp
parents: 37
diff changeset
3803
65d5b0c8da41 New CF48, changed CF15
heinrichsweikamp
parents: 37
diff changeset
3804 WIN_TOP .175
65d5b0c8da41 New CF48, changed CF15
heinrichsweikamp
parents: 37
diff changeset
3805 WIN_LEFT .45
65d5b0c8da41 New CF48, changed CF15
heinrichsweikamp
parents: 37
diff changeset
3806 WIN_FONT FT_SMALL
65d5b0c8da41 New CF48, changed CF15
heinrichsweikamp
parents: 37
diff changeset
3807 WIN_INVERT .0 ; Init new Wordprocessor
65d5b0c8da41 New CF48, changed CF15
heinrichsweikamp
parents: 37
diff changeset
3808 PLED_color_code warn_cns ; Color-code CNS output
65d5b0c8da41 New CF48, changed CF15
heinrichsweikamp
parents: 37
diff changeset
3809
446
92304826000d localisation part2 from Sergei
heinrichsweikamp
parents: 430
diff changeset
3810 STRCPY TXT_CNS4
43
65d5b0c8da41 New CF48, changed CF15
heinrichsweikamp
parents: 37
diff changeset
3811 movff char_O_CNS_fraction,lo
65d5b0c8da41 New CF48, changed CF15
heinrichsweikamp
parents: 37
diff changeset
3812 bsf leftbind
65d5b0c8da41 New CF48, changed CF15
heinrichsweikamp
parents: 37
diff changeset
3813 output_8
65d5b0c8da41 New CF48, changed CF15
heinrichsweikamp
parents: 37
diff changeset
3814 bcf leftbind
519
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
3815 STRCAT_PRINT "% "
43
65d5b0c8da41 New CF48, changed CF15
heinrichsweikamp
parents: 37
diff changeset
3816 return
65d5b0c8da41 New CF48, changed CF15
heinrichsweikamp
parents: 37
diff changeset
3817
519
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
3818 ;-----------------------------------------------------------------------------
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
3819 ; Display GF at furface, if > CF8.
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
3820 ;
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
3821 PLED_display_gf_surface:
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
3822 movff char_O_gradient_factor,lo ; gradient factor
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
3823 GETCUSTOM8 d'8' ; threshold for display
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
3824 cpfslt lo ; show value?
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
3825 bra PLED_display_gf_surf_1 ; YES: do it.
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
3826 return
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
3827
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
3828 PLED_display_gf_surf_1:
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
3829 WIN_TOP .175
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
3830 WIN_LEFT .45
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
3831 WIN_FONT FT_SMALL
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
3832 PLED_color_code warn_gf ; Color-code Output
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
3833
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
3834 STRCPY TXT_GF3
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
3835 movff char_O_gradient_factor,lo ; gradient factor
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
3836 output_8
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
3837 STRCAT_PRINT "% "
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
3838 goto PLED_standard_color
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
3839
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
3840 ;-----------------------------------------------------------------------------
43
65d5b0c8da41 New CF48, changed CF15
heinrichsweikamp
parents: 37
diff changeset
3841
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3842 PLED_custom_text:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3843 read_int_eeprom d'64'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3844 movlw d'1'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3845 cpfseq EEDATA ; Custom text active?
607
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
3846 bra PLED_custom_text_serial ; No, show serial instead
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3847 WIN_TOP .200
62
2972a06b0785 1.71 beta in work
heinrichsweikamp
parents: 56
diff changeset
3848 WIN_LEFT .0
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3849 WIN_FONT FT_SMALL
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3850 WIN_INVERT .0 ; Init new Wordprocessor
9
395230c28023 Added CF36: Divemask color
heinrichsweikamp
parents: 8
diff changeset
3851 call PLED_divemask_color ; Set Color for Divemode mask
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3852
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3853 lfsr FSR2,letter
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3854 movlw d'64'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3855 movwf lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3856 movlw d'24'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3857 movwf hi ; counter
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3858
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3859 PLED_custom_text1:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3860 incf lo,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3861 call PLED_get_custom_letter ; Get one letter for the custom text
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3862 movlw '}' ; End marker found?
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3863 cpfseq EEDATA
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3864 bra PLED_custom_text2 ; No
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3865 bra PLED_custom_text3
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3866 PLED_custom_text2:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3867 movff EEDATA,POSTINC2 ; Copy into Postinc
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3868
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3869 decfsz hi,F ; Max. numbers?
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3870 bra PLED_custom_text1 ; No, get next letters
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3871
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3872 PLED_custom_text3:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3873 call word_processor
3
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
3874 call PLED_standard_color
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3875 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3876
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3877 PLED_get_custom_letter:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3878 movff lo,EEADR ; Address for next custom text letter
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3879 call read_eeprom ; Read letter
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3880 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3881
607
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
3882 PLED_custom_text_serial:
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3883 WIN_TOP .200
607
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
3884 WIN_LEFT .50
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
3885 WIN_FONT FT_SMALL
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
3886 WIN_INVERT .0 ; Init new Wordprocessor
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
3887 call PLED_divemask_color ; Set Color for Divemode mask
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
3888
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
3889 lfsr FSR2,letter
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
3890 OUTPUTTEXTH d'262' ; "OSTC "
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
3891 clrf EEADRH
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
3892 clrf EEADR ; Get Serial number LOW
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
3893 call read_eeprom ; read byte
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
3894 movff EEDATA,lo
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
3895 incf EEADR,F ; Get Serial number HIGH
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
3896 call read_eeprom ; read byte
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
3897 movff EEDATA,hi
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
3898 bsf leftbind
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
3899 output_16
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
3900 call word_processor
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
3901 call PLED_standard_color
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3902 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3903
33
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3904 PLED_simdata_screen: ;Display Pre-Dive Screen
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3905 ; List active gases/Setpoints
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3906 btfsc FLAG_const_ppO2_mode ; in ppO2 mode?
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3907 bra PLED_simdata_screen3 ; Yes, display SetPoint/Sensor result list
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3908
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3909 PLED_simdata_screen2:
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3910 ostc_debug 'm' ; Sends debug-information to screen if debugmode active
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3911
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3912 WIN_LEFT .0
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3913 WIN_FONT FT_SMALL
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3914 bsf leftbind
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3915
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3916 movlw d'2'
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3917 movwf wait_temp ; here: stores eeprom address for gas list
34
5dbdc08e5460 New Simulator results screen
heinrichsweikamp
parents: 33
diff changeset
3918 movlw d'10'
33
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3919 movwf waitms_temp ; here: stores row for gas list
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3920 clrf hi ; here: Gas counter
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3921
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3922 PLED_simdata_screen2_loop:
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3923 incf hi,F ; Increase Gas
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3924 movlw d'4'
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3925 addwf wait_temp,F ; Increase eeprom address for gas list
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3926
446
92304826000d localisation part2 from Sergei
heinrichsweikamp
parents: 430
diff changeset
3927 STRCPY TXT_GAS1
33
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3928 movff hi,lo ; copy gas number
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3929 output_8 ; display gas number
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3930 PUTC ':'
519
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
3931 movff wait_temp, EEADR ; Gas #hi: %O2 - Set address in internal EEPROM
33
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3932 call read_eeprom ; get byte (stored in EEDATA)
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3933 movff EEDATA,lo ; copy to lo
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3934 output_8 ; outputs into Postinc2!
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3935 PUTC '/'
33
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3936 incf EEADR,F ; Gas #hi: %He - Set address in internal EEPROM
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3937 call read_eeprom ; get byte (stored in EEDATA)
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3938 movff EEDATA,lo ; copy to lo
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3939 output_8 ; outputs into Postinc2!
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3940 PUTC ' '
34
5dbdc08e5460 New Simulator results screen
heinrichsweikamp
parents: 33
diff changeset
3941 movf hi,W ; Gas number
5dbdc08e5460 New Simulator results screen
heinrichsweikamp
parents: 33
diff changeset
3942 addlw d'27' ; -> Adress of change depth register
5dbdc08e5460 New Simulator results screen
heinrichsweikamp
parents: 33
diff changeset
3943 call read_int_eeprom_1
5dbdc08e5460 New Simulator results screen
heinrichsweikamp
parents: 33
diff changeset
3944 movff EEDATA,lo ; Change depth in m
223
2a0a446fa6c0 Show decoplan.
JeanDo
parents: 221
diff changeset
3945 movff lo,divemins ; Store for grey-out
34
5dbdc08e5460 New Simulator results screen
heinrichsweikamp
parents: 33
diff changeset
3946 output_99 ; outputs into Postinc2!
446
92304826000d localisation part2 from Sergei
heinrichsweikamp
parents: 430
diff changeset
3947 PUTC TXT_METER_C
223
2a0a446fa6c0 Show decoplan.
JeanDo
parents: 221
diff changeset
3948
2a0a446fa6c0 Show decoplan.
JeanDo
parents: 221
diff changeset
3949 ; Check if gas is first gas ?
2a0a446fa6c0 Show decoplan.
JeanDo
parents: 221
diff changeset
3950 read_int_eeprom d'33' ; First gas (1-5)?
2a0a446fa6c0 Show decoplan.
JeanDo
parents: 221
diff changeset
3951 movf hi,W ; Current gas in WREG
2a0a446fa6c0 Show decoplan.
JeanDo
parents: 221
diff changeset
3952 cpfseq EEDATA ; Is equal first gas?
2a0a446fa6c0 Show decoplan.
JeanDo
parents: 221
diff changeset
3953 bra PLED_simdata_screen2_loop2 ; No : more tests...
2a0a446fa6c0 Show decoplan.
JeanDo
parents: 221
diff changeset
3954
2a0a446fa6c0 Show decoplan.
JeanDo
parents: 221
diff changeset
3955 bra PLED_simdata_white ; Yes
2a0a446fa6c0 Show decoplan.
JeanDo
parents: 221
diff changeset
3956
2a0a446fa6c0 Show decoplan.
JeanDo
parents: 221
diff changeset
3957 PLED_simdata_screen2_loop2:
2a0a446fa6c0 Show decoplan.
JeanDo
parents: 221
diff changeset
3958 ; Check if gas is inactive ?
2a0a446fa6c0 Show decoplan.
JeanDo
parents: 221
diff changeset
3959 read_int_eeprom d'27' ; read flag register
2a0a446fa6c0 Show decoplan.
JeanDo
parents: 221
diff changeset
3960 movff hi,lo ; copy gas number
33
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3961 PLED_simdata_screen2_loop1:
223
2a0a446fa6c0 Show decoplan.
JeanDo
parents: 221
diff changeset
3962 rrcf EEDATA ; roll flags into carry
2a0a446fa6c0 Show decoplan.
JeanDo
parents: 221
diff changeset
3963 decfsz lo,F ; max. 5 times...
33
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3964 bra PLED_simdata_screen2_loop1
181
0651d5dc3f42 1st. gas not grey in simulator
heinrichsweikamp
parents: 180
diff changeset
3965
223
2a0a446fa6c0 Show decoplan.
JeanDo
parents: 221
diff changeset
3966 btfss STATUS,C ; test inactive flag
2a0a446fa6c0 Show decoplan.
JeanDo
parents: 221
diff changeset
3967 bra PLED_simdata_grey ; Is inactive!
2a0a446fa6c0 Show decoplan.
JeanDo
parents: 221
diff changeset
3968
2a0a446fa6c0 Show decoplan.
JeanDo
parents: 221
diff changeset
3969 tstfsz divemins ; Test change depth=0?
2a0a446fa6c0 Show decoplan.
JeanDo
parents: 221
diff changeset
3970 bra PLED_simdata_white ; Is not zero
179
77ab44108c07 BUGFIX: Inactive gases greyed-out in Simulator results
Heinrichsweikamp
parents: 178
diff changeset
3971
77ab44108c07 BUGFIX: Inactive gases greyed-out in Simulator results
Heinrichsweikamp
parents: 178
diff changeset
3972 PLED_simdata_grey:
587
1b021a280e15 NEW CF64: Configures color for inactive gases
heinrichsweikamp
parents: 576
diff changeset
3973 GETCUSTOM8 d'64' ;movlw color_grey
223
2a0a446fa6c0 Show decoplan.
JeanDo
parents: 221
diff changeset
3974 call PLED_set_color ; grey out inactive gases!
33
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3975 bra PLED_simdata_color_done
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3976
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3977 PLED_simdata_white:
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3978 call PLED_standard_color
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3979
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3980 PLED_simdata_color_done:
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3981 movlw d'25'
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3982 addwf waitms_temp,F ; Increase row
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3983 WIN_LEFT .0
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3984 movff waitms_temp,win_top ; Set Row
34
5dbdc08e5460 New Simulator results screen
heinrichsweikamp
parents: 33
diff changeset
3985 call word_processor ; display gas
33
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3986
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3987 PLED_simdata_screen2b:
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3988 call PLED_standard_color
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3989
34
5dbdc08e5460 New Simulator results screen
heinrichsweikamp
parents: 33
diff changeset
3990 movlw d'5' ; list all five gases
33
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3991 cpfseq hi ; All gases shown?
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3992 bra PLED_simdata_screen2_loop ; No
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3993
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3994 return ; No, return (OC mode)
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3995
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3996 PLED_simdata_screen3:
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3997 WIN_LEFT .0
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3998 WIN_FONT FT_SMALL
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3999 bsf leftbind
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
4000
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
4001 ; list three SP in Gaslist
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
4002 movlw d'35' ; 36 = current SP position in EEPROM
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
4003 movwf wait_temp ; here: stores eeprom address for gas list
34
5dbdc08e5460 New Simulator results screen
heinrichsweikamp
parents: 33
diff changeset
4004 movlw d'10'
33
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
4005 movwf waitms_temp ; here: stores row for gas list
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
4006 clrf decoplan_index ; here: SP counter
33
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
4007
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
4008 PLED_simdata_screen3_loop:
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
4009 incf wait_temp,F ; EEPROM address
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
4010 incf decoplan_index,F ; Increase SP
33
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
4011
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
4012 movlw d'25'
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
4013 addwf waitms_temp,F ; Increase row
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
4014 WIN_LEFT .0
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
4015 movff waitms_temp,win_top ; Set Row
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
4016
446
92304826000d localisation part2 from Sergei
heinrichsweikamp
parents: 430
diff changeset
4017 STRCPY TXT_SP2
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
4018 movff decoplan_index,lo ; copy gas number
33
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
4019 output_8 ; display gas number
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
4020 STRCAT ": "
33
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
4021 movff wait_temp, EEADR; SP #hi position
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
4022 call read_eeprom ; get byte (stored in EEDATA)
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
4023 movff EEDATA,lo ; copy to lo
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
4024 clrf hi
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
4025 output_16dp d'3' ; outputs into Postinc2!
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
4026 call word_processor
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
4027
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
4028 movlw d'3' ; list all three SP
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
4029 cpfseq decoplan_index ; All gases shown?
33
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
4030 bra PLED_simdata_screen3_loop ;no
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
4031
657
8dd730d3a5d7 show first diluent in simulator result screen (Instead of first gas)
heinrichsweikamp
parents: 655
diff changeset
4032 ; Show Diluent
8dd730d3a5d7 show first diluent in simulator result screen (Instead of first gas)
heinrichsweikamp
parents: 655
diff changeset
4033 call get_first_diluent ; Read first diluent into lo(O2) and hi(He)
33
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
4034 WIN_LEFT .0
34
5dbdc08e5460 New Simulator results screen
heinrichsweikamp
parents: 33
diff changeset
4035 WIN_TOP .110
446
92304826000d localisation part2 from Sergei
heinrichsweikamp
parents: 430
diff changeset
4036 STRCPY TXT_DIL4
33
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
4037 output_8 ; O2 Ratio
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
4038 STRCAT "/"
33
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
4039 movff hi,lo
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
4040 output_8 ; He Ratio
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
4041 call word_processor
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
4042
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
4043 bcf leftbind
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
4044 return ; Return (CC Mode)
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
4045
398
ab962c4b19d6 Fixing issue 50, correct "Bar" to "bar" in texts and comments
heinrichsweikamp
parents: 396
diff changeset
4046 adjust_depth_with_salinity: ; computes salinity setting into lo:hi [mbar]
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4047
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4048 btfsc simulatormode_active ; Do apply salinity in Simulatormode
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4049 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4050
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4051 read_int_eeprom d'26' ; Read Salinity from EEPROM
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4052 movff EEDATA, wait_temp ; salinity
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4053
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4054 movlw d'105' ; 105% ?
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4055 cpfslt wait_temp ; Salinity higher limit
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4056 return ; Out of limit, do not adjust lo:hi
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4057
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4058 movlw d'99' ; 99% ?
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4059 cpfsgt wait_temp ; Salinity lower limit
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4060 return ; Out of limit, do not adjust lo:hi
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4061
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4062 movff lo,xA+0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4063 movff hi,xA+1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4064
419
e671d2018e0f 0.98bar equal 10m depths with salinity set to 1.00kg/l
heinrichsweikamp
parents: 417
diff changeset
4065 movlw d'102' ; 0,98bar/10m
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4066 movwf xB+0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4067 clrf xB+1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4068
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4069 call mult16x16 ;xA*xB=xC (lo:hi * 100)
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4070
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4071 movff wait_temp,xB+0 ; Salinity
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4072 clrf xB+1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4073
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4074 call div32x16 ; xC:4 / xB:2 = xC+3:xC+2 with xC+1:xC+0 as remainder
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4075
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4076 movff xC+0,lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4077 movff xC+1,hi ; restore lo and hi with updated value
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4078
517
a73a452ca155 Backed out changeset: b498245da3f1
heinrichsweikamp
parents: 516
diff changeset
4079 return