Mercurial > public > mk2

annotate code_part1/OSTC_code_asm_part1/pled_outputs.asm @ 639:2ab9e9a8a189

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
New CCR Setup Menu (In work)
author heinrichsweikamp
date Thu, 20 Sep 2012 10:06:19 +0200
parents 47ad50ca5d26
children 420e62cd88ad
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
19
07e7ca48b49d 1.56 rc1
heinrichsweikamp
parents: 17
diff changeset
1453 read_int_eeprom d'33' ; Read byte (stored in EEDATA)
07e7ca48b49d 1.56 rc1
heinrichsweikamp
parents: 17
diff changeset
1454 movff EEDATA,active_gas ; Read start gas (1-5)
07e7ca48b49d 1.56 rc1
heinrichsweikamp
parents: 17
diff changeset
1455 decf active_gas,W ; Gas 0-4
07e7ca48b49d 1.56 rc1
heinrichsweikamp
parents: 17
diff changeset
1456 mullw d'4'
07e7ca48b49d 1.56 rc1
heinrichsweikamp
parents: 17
diff changeset
1457 movf PRODL,W
07e7ca48b49d 1.56 rc1
heinrichsweikamp
parents: 17
diff changeset
1458 addlw d'6' ; = address for O2 ratio
07e7ca48b49d 1.56 rc1
heinrichsweikamp
parents: 17
diff changeset
1459 movwf EEADR
127
245de99d1d15 FIX SetPoint list color.
JeanDo
parents: 125
diff changeset
1460 call read_eeprom ; Read O2 ratio
245de99d1d15 FIX SetPoint list color.
JeanDo
parents: 125
diff changeset
1461 movff EEDATA, lo ; O2 ratio
245de99d1d15 FIX SetPoint list color.
JeanDo
parents: 125
diff changeset
1462 incf EEADR,F ; = address for He
245de99d1d15 FIX SetPoint list color.
JeanDo
parents: 125
diff changeset
1463 call read_eeprom ; Read He ratio
245de99d1d15 FIX SetPoint list color.
JeanDo
parents: 125
diff changeset
1464 movff EEDATA,hi ; And copy into hold register
19
07e7ca48b49d 1.56 rc1
heinrichsweikamp
parents: 17
diff changeset
1465
07e7ca48b49d 1.56 rc1
heinrichsweikamp
parents: 17
diff changeset
1466 WIN_LEFT .90
07e7ca48b49d 1.56 rc1
heinrichsweikamp
parents: 17
diff changeset
1467 WIN_TOP .100
446
92304826000d localisation part2 from Sergei
heinrichsweikamp
parents: 430
diff changeset
1468 STRCPY TXT_DIL4
19
07e7ca48b49d 1.56 rc1
heinrichsweikamp
parents: 17
diff changeset
1469 output_8 ; O2 Ratio
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
1470 PUTC '/'
19
07e7ca48b49d 1.56 rc1
heinrichsweikamp
parents: 17
diff changeset
1471 movff hi,lo
07e7ca48b49d 1.56 rc1
heinrichsweikamp
parents: 17
diff changeset
1472 output_8 ; He Ratio
07e7ca48b49d 1.56 rc1
heinrichsweikamp
parents: 17
diff changeset
1473 call word_processor
07e7ca48b49d 1.56 rc1
heinrichsweikamp
parents: 17
diff changeset
1474
13
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1475 bcf leftbind
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1476 return ; Return (CC Mode)
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
1477
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1478 PLED_active_gas_surfmode: ; Displays start gas/SP 1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1479 ostc_debug 'q' ; Sends debug-information to screen if debugmode active
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1480
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1481 btfsc FLAG_apnoe_mode ; In Apnoe mode?
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1482 return ; Yes, return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1483
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1484 btfsc gauge_mode ; In Gauge mode?
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1485 return ; Yes, return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1486
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1487 btfss FLAG_const_ppO2_mode ; are we in const. ppO2 mode?
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1488 bra PLED_active_gas_surfmode2 ; No, display gases
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1489
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1490 ; In CC Mode
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1491 WIN_TOP .135
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1492 WIN_LEFT .90
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1493 WIN_FONT FT_SMALL
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1494 WIN_INVERT .0 ; Init new Wordprocessor
3
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
1495 call PLED_standard_color
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
1496
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1497 lfsr FSR2,letter
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1498 read_int_eeprom d'36'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1499 movff EEDATA,lo ; copy to lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1500 clrf hi
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1501 output_16dp d'3' ; outputs into Postinc2!
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1502 bcf leftbind
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
1503
446
92304826000d localisation part2 from Sergei
heinrichsweikamp
parents: 430
diff changeset
1504 STRCAT_PRINT TXT_BAR3
607
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1505 return ; Done.
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1506
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1507 PLED_active_gas_surfmode2:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1508 WIN_TOP .130
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1509 WIN_LEFT .100
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1510 WIN_FONT FT_MEDIUM
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1511 WIN_INVERT .0 ; Init new Wordprocessor
3
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
1512 call PLED_standard_color
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
1513
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1514 read_int_eeprom d'33' ; Read byte (stored in EEDATA)
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1515 movff EEDATA,active_gas ; Read start gas (1-5)
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1516
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1517 decf active_gas,W ; Gas 0-4
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1518 mullw d'4'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1519 movf PRODL,W
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1520 addlw d'7' ; = address for He ratio
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1521 movwf EEADR
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1522 call read_eeprom ; Read He ratio
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1523 movff EEDATA,char_I_He_ratio ; And copy into hold register
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1524
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1525 decf active_gas,W ; Gas 0-4
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1526 mullw d'4'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1527 movf PRODL,W
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1528 addlw d'6' ; = address for O2 ratio
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1529 movwf EEADR
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1530 call read_eeprom ; Read O2 ratio
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1531 movff EEDATA, char_I_O2_ratio ; O2 ratio
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1532 movff char_I_He_ratio, wait_temp ; copy into bank1 register
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1533 bsf STATUS,C ; Borrow bit
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1534 movlw d'100' ; 100%
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1535 subfwb wait_temp,W ; minus He
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1536 bsf STATUS,C ; Borrow bit
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1537 subfwb EEDATA,F ; minus O2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1538 movff EEDATA, char_I_N2_ratio ; = N2!
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1539
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1540 movlw d'100' ; 100% in the tank
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1541 movff char_I_N2_ratio,lo ; minus N2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1542 bsf STATUS,C ; set borrow bit
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1543 subfwb lo,W
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1544 movff char_I_He_ratio,lo ; minus He
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1545 bsf STATUS,C ; set borrow bit
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1546 subfwb lo,F ; =% O2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1547
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1548 movff char_I_He_ratio,hi ; Copy into Bank1 register
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1549
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1550 movlw d'21'
607
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1551 cpfseq lo ; Air? (O2=21%)
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1552 bra PLED_active_gas_surfmode4 ; No!
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1553 tstfsz hi ; Air? (He=0%)
607
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1554 bra PLED_active_gas_surfmode4 ; No!
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1555
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1556 ; Yes, display "Air" instead of 21/0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1557 DISPLAYTEXTH d'265' ;"Air ", y-scale=2
607
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1558 return ; Done.
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1559
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1560 PLED_active_gas_surfmode4:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1561 lfsr FSR2,letter
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1562 bsf leftbind ; left orientated output
81
31fa973a70fd Kludges to emulate inexisting devices when debugged with the MPLAB software SIMulator.
JeanDo
parents: 77
diff changeset
1563 output_99 ; O2 ratio is still in "lo"
607
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1564 movff char_I_He_ratio,lo ; copy He ratio into lo
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 bra PLED_active_gas_surfmode5 ; Yes.
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1567 bra PLED_active_gas_surfmode6 ; No, skip He
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1568 PLED_active_gas_surfmode5:
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
1569 PUTC '/'
81
31fa973a70fd Kludges to emulate inexisting devices when debugged with the MPLAB software SIMulator.
JeanDo
parents: 77
diff changeset
1570 output_99
607
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1571 PLED_active_gas_surfmode6:
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1572 bcf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1573 call word_processor
607
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1574
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1575 rcall PLED_mainscreen_show_nx
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1576 tstfsz lo ; He>0?
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1577 rcall PLED_mainscreen_show_tx ; Yes
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1578 return ; Done.
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1579
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1580 PLED_mainscreen_show_tx:
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1581 WIN_LEFT .85
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 WIN_TOP .127
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1585
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1586 STRCPY_PRINT TXT_TX1
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1587 WIN_TOP .148
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1588 STRCPY_PRINT TXT_TX2
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1589 return
607
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1590 PLED_mainscreen_show_nx:
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1591 WIN_LEFT .85
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1592 WIN_TOP .127
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1593 WIN_FONT FT_SMALL
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1594 WIN_INVERT .0 ; Init new Wordprocessor
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1595
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1596 STRCPY_PRINT TXT_NX1
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1597 WIN_TOP .148
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1598 STRCPY_PRINT TXT_NX2
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1599 return
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
1600
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1601
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1602 PLED_confirmbox:
204
aad4f6e25c2d fix in logbook detail view
heinrichsweikamp
parents: 199
diff changeset
1603 WIN_BOX_BLACK .68, .146, .34, .101 ;top, bottom, left, right
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
1604 WIN_FRAME_STD .70, .144, .35, .100
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
1605
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1606 DISPLAYTEXT .143 ; Confirm:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1607 DISPLAYTEXT .145 ; Cancel
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1608 DISPLAYTEXT .146 ; OK!
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1609
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1610 movlw d'1'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1611 movwf menupos
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1612
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1613 PLED_confirmbox2:
204
aad4f6e25c2d fix in logbook detail view
heinrichsweikamp
parents: 199
diff changeset
1614 WIN_BOX_BLACK .96, .143, .39, .51 ;top, bottom, left, right
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1615
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1616 movff menupos,temp1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1617 movlw d'96'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1618 dcfsnz temp1,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1619 movlw d'96'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1620 dcfsnz temp1,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1621 movlw d'120'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1622 movff WREG,win_top
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1623 WIN_LEFT .39
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1624 WIN_FONT FT_SMALL
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1625 WIN_INVERT .0 ; Init new Wordprocessor
3
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
1626 call PLED_standard_color
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
1627
129
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53)
Heinrichsweikamp
parents: 127
diff changeset
1628 STRCPY_PRINT "\xB7" ; Cursor
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1629
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1630 bcf sleepmode ; clear some flags
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1631 bcf menubit2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1632 bcf menubit3
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1633 bcf switch_right
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1634 bcf switch_left
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1635 clrf timeout_counter2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1636 WAITMS d'100'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1637
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1638 PLED_confirmbox_loop:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1639 call check_switches_logbook
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1640
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1641 btfsc menubit3 ; SET/MENU?
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1642 bra PLED_confirmbox_move_cursor; Move Cursor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1643 btfsc menubit2 ; ENTER?
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1644 bra PLED_confirmbox_menu_do ; Do task
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1645
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1646 btfsc onesecupdate
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1647 call timeout_surfmode ; timeout
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1648
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1649 btfsc onesecupdate
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1650 call set_dive_modes ; check, if divemode must be entered
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1651 bcf onesecupdate ; one second update
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1652
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1653 btfsc sleepmode ; Timeout?
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1654 bra PLED_confirmbox_cancel ; back with cancel
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1655 btfsc divemode
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1656 bra PLED_confirmbox_cancel ; back with cancel
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1657
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1658 bra PLED_confirmbox_loop ; wait for something to do
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1659
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1660 PLED_confirmbox_cancel:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1661 retlw .0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1662 PLED_confirmbox_ok:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1663 retlw .1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1664
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1665 PLED_confirmbox_menu_do:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1666 dcfsnz menupos,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1667 bra PLED_confirmbox_cancel
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1668 dcfsnz menupos,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1669 bra PLED_confirmbox_ok
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1670 bra PLED_confirmbox_cancel
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1671
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1672 PLED_confirmbox_move_cursor:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1673 incf menupos,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1674 movlw d'3' ; number of menu options+1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1675 cpfseq menupos ; =limit?
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1676 bra PLED_confirmbox_move_cursor2 ; No!
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1677 movlw d'1' ; Yes, reset to position 1!
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1678 movwf menupos
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1679 PLED_confirmbox_move_cursor2:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1680 bra PLED_confirmbox2 ; Return to Profile Menu, also updates cursor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1681
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1682
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1683 PLED_depth:
529
e2acb601504c some cleanup
heinrichsweikamp
parents: 528
diff changeset
1684 ; 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
1685 SAFE_2BYTE_COPY rel_pressure, lo
517
a73a452ca155 Backed out changeset: b498245da3f1
heinrichsweikamp
parents: 516
diff changeset
1686 call adjust_depth_with_salinity ; computes salinity setting into lo:hi [mbar]
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1687
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1688 movlw .039
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1689 cpfslt hi
517
a73a452ca155 Backed out changeset: b498245da3f1
heinrichsweikamp
parents: 516
diff changeset
1690 bra depth_greater_99_84mtr
a73a452ca155 Backed out changeset: b498245da3f1
heinrichsweikamp
parents: 516
diff changeset
1691
a73a452ca155 Backed out changeset: b498245da3f1
heinrichsweikamp
parents: 516
diff changeset
1692 btfsc depth_greater_100m ; Was depth>100m during last call
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1693 call PLED_clear_depth ; Yes, clear depth area
517
a73a452ca155 Backed out changeset: b498245da3f1
heinrichsweikamp
parents: 516
diff changeset
1694 bcf depth_greater_100m ; Do this once only...
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1695
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1696 lfsr FSR2,letter
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1697
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1698 movlw HIGH d'1000'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1699 movwf sub_a+1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1700 movlw LOW d'1000'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1701 movwf sub_a+0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1702 movff hi,sub_b+1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1703 movff lo,sub_b+0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1704 incf sub_b+0,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1705 movlw d'0'
398
ab962c4b19d6 Fixing issue 50, correct "Bar" to "bar" in texts and comments
heinrichsweikamp
parents: 396
diff changeset
1706 addwfc sub_b+1,F ; Add 1mbar offset
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1707 call sub16 ; sub_c = sub_a - sub_b
517
a73a452ca155 Backed out changeset: b498245da3f1
heinrichsweikamp
parents: 516
diff changeset
1708 btfss neg_flag ; Depth lower then 10m?
a73a452ca155 Backed out changeset: b498245da3f1
heinrichsweikamp
parents: 516
diff changeset
1709 rcall depth_less_10mtr ; Yes, add extra space
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1710
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1711 WIN_TOP .24
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1712 WIN_LEFT .0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1713 WIN_FONT FT_LARGE
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1714 WIN_INVERT .0 ; Init new Wordprocessor
27
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
1715 PLED_color_code warn_depth ; Color-code the output
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1716
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1717 movlw HIGH d'99'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1718 movwf sub_a+1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1719 movlw LOW d'99'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1720 movwf sub_a+0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1721 movff hi,sub_b+1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1722 movff lo,sub_b+0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1723 call sub16 ; sub_c = sub_a - sub_b
517
a73a452ca155 Backed out changeset: b498245da3f1
heinrichsweikamp
parents: 516
diff changeset
1724 btfss neg_flag ; Depth lower then 1m?
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1725 bra pled_depth2 ; Yes, display manual Zero
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1726
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1727 bsf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1728 bsf ignore_digit4
386
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
1729 output_16 ; Full meters in Big font
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1730 bcf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1731 bra pled_depth3
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1732
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1733 pled_depth2:
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
1734 PUTC '0'
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
1735
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1736 pled_depth3:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1737 call word_processor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1738 bcf ignore_digit4
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1739
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1740 WIN_FONT FT_MEDIUM
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1741 WIN_TOP .50
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1742 WIN_LEFT .40
27
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
1743 PLED_color_code warn_depth ; Color-code the output
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1744
341
2144f19fa1eb BUGFIX protect against ISR changing pressure/temperature while reading it.
JeanDo
parents: 340
diff changeset
1745 SAFE_2BYTE_COPY rel_pressure, lo
398
ab962c4b19d6 Fixing issue 50, correct "Bar" to "bar" in texts and comments
heinrichsweikamp
parents: 396
diff changeset
1746 call adjust_depth_with_salinity ; computes salinity setting into lo:hi [mbar]
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
1747
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
1748 STRCPY "."
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1749
386
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
1750 movlw HIGH d'20' ; Display 0.0m if lower then 20cm
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1751 movwf sub_a+1
386
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
1752 movlw LOW d'20'
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1753 movwf sub_a+0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1754 movff hi,sub_b+1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1755 movff lo,sub_b+0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1756 call sub16 ; sub_c = sub_a - sub_b
386
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
1757 btfss neg_flag ; Depth lower then 0.3m?
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1758 bra pled_depth4 ; Yes, display manual Zero
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1759
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1760 movlw d'4'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1761 movwf ignore_digits
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1762 bsf ignore_digit5
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1763 output_16dp d'0'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1764 bra pled_depth5
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1765
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1766 pled_depth4:
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
1767 PUTC '0'
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1768
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1769 pled_depth5:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1770 call word_processor ; decimeters in medium font
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1771 bcf ignore_digit5
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1772 WIN_FONT FT_SMALL
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1773 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1774
517
a73a452ca155 Backed out changeset: b498245da3f1
heinrichsweikamp
parents: 516
diff changeset
1775 depth_greater_99_84mtr: ; Display only in full meters
a73a452ca155 Backed out changeset: b498245da3f1
heinrichsweikamp
parents: 516
diff changeset
1776 btfss depth_greater_100m ; Is depth>100m already?
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1777 call PLED_clear_depth ; No, clear depth area and set flag
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1778 ; Depth is already in hi:lo
517
a73a452ca155 Backed out changeset: b498245da3f1
heinrichsweikamp
parents: 516
diff changeset
1779 ; Show depth in Full meters
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1780 ; That means ignore figure 4 and 5
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1781 lfsr FSR2,letter
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1782 WIN_TOP .24
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1783 WIN_LEFT .0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1784 WIN_FONT FT_LARGE
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1785 WIN_INVERT .0 ; Init new Wordprocessor
27
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
1786 PLED_color_code warn_depth ; Color-code the output
3
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
1787
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1788 bsf ignore_digit4
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1789 bsf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1790 output_16
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1791 bcf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1792 call word_processor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1793 bcf ignore_digit4
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1794 WIN_FONT FT_SMALL
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1795 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1796
517
a73a452ca155 Backed out changeset: b498245da3f1
heinrichsweikamp
parents: 516
diff changeset
1797 depth_less_10mtr:
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
1798 PUTC ' '
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1799 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1800
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1801 PLED_clear_depth ; No, clear depth area and set flag
204
aad4f6e25c2d fix in logbook detail view
heinrichsweikamp
parents: 199
diff changeset
1802 WIN_BOX_BLACK .24, .90, .0, .90 ;top, bottom, left, right
517
a73a452ca155 Backed out changeset: b498245da3f1
heinrichsweikamp
parents: 516
diff changeset
1803 bsf depth_greater_100m ; Set Flag
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1804 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1805
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1806 PLED_desaturation_time:
140
87a53efbb5ba "beta" shown for beta versions
heinrichsweikamp
parents: 138
diff changeset
1807 movff int_O_desaturation_time+0,lo
87a53efbb5ba "beta" shown for beta versions
heinrichsweikamp
parents: 138
diff changeset
1808 movff int_O_desaturation_time+1,hi ; Copy
87a53efbb5ba "beta" shown for beta versions
heinrichsweikamp
parents: 138
diff changeset
1809 tstfsz lo ; =0?
87a53efbb5ba "beta" shown for beta versions
heinrichsweikamp
parents: 138
diff changeset
1810 bra PLED_desaturation_time2 ; No!
87a53efbb5ba "beta" shown for beta versions
heinrichsweikamp
parents: 138
diff changeset
1811 tstfsz hi ; =0?
87a53efbb5ba "beta" shown for beta versions
heinrichsweikamp
parents: 138
diff changeset
1812 bra PLED_desaturation_time2 ; No!
87a53efbb5ba "beta" shown for beta versions
heinrichsweikamp
parents: 138
diff changeset
1813 return ; Do not display Desat
87a53efbb5ba "beta" shown for beta versions
heinrichsweikamp
parents: 138
diff changeset
1814
87a53efbb5ba "beta" shown for beta versions
heinrichsweikamp
parents: 138
diff changeset
1815 PLED_desaturation_time2:
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1816 ostc_debug 'h'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1817 WIN_TOP .150
56
0338aac9a267 surfacemode
heinrichsweikamp
parents: 47
diff changeset
1818 WIN_LEFT .1
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1819 WIN_FONT FT_SMALL
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1820 WIN_INVERT .0 ; Init new Wordprocessor
3
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
1821 call PLED_standard_color
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
1822
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1823 lfsr FSR2,letter
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1824 OUTPUTTEXT d'14' ; Desat
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
1825 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
1826 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
1827 movff desaturation_time_buffer+1,hi
254
8f20e8948b97 working word-around for nofly issue
heinrichsweikamp
parents: 252
diff changeset
1828
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1829 call convert_time ; converts hi:lo in minutes to hours (hi) and minutes (lo)
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1830 bsf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1831 movf lo,W
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1832 movff hi,lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1833 movwf hi ; exchange lo and hi...
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1834 output_8 ; Hours
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
1835 PUTC ':'
402
e565392e0fcc Add a trailing space for nofly and desat
heinrichsweikamp
parents: 401
diff changeset
1836 movff hi,lo ; Minutes
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1837 output_99x
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1838 bcf leftbind
402
e565392e0fcc Add a trailing space for nofly and desat
heinrichsweikamp
parents: 401
diff changeset
1839 PUTC ' '
e565392e0fcc Add a trailing space for nofly and desat
heinrichsweikamp
parents: 401
diff changeset
1840 ; clrf WREG ; Allow up to 5 chars to avoid
e565392e0fcc Add a trailing space for nofly and desat
heinrichsweikamp
parents: 401
diff changeset
1841 ; movff WREG,letter+6 ; collision with decotype letters
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1842 call word_processor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1843 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1844
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1845 PLED_nofly_time:
249
544cc5d47755 small clean
heinrichsweikamp
parents: 239
diff changeset
1846 movf nofly_time+0,W ; Is nofly null ?
544cc5d47755 small clean
heinrichsweikamp
parents: 239
diff changeset
1847 iorwf nofly_time+1,W
544cc5d47755 small clean
heinrichsweikamp
parents: 239
diff changeset
1848 bnz PLED_nofly_time2 ; No...
140
87a53efbb5ba "beta" shown for beta versions
heinrichsweikamp
parents: 138
diff changeset
1849 return
249
544cc5d47755 small clean
heinrichsweikamp
parents: 239
diff changeset
1850
140
87a53efbb5ba "beta" shown for beta versions
heinrichsweikamp
parents: 138
diff changeset
1851 PLED_nofly_time2:
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1852 ostc_debug 'g'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1853 WIN_TOP .125
56
0338aac9a267 surfacemode
heinrichsweikamp
parents: 47
diff changeset
1854 WIN_LEFT .1
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1855 WIN_FONT FT_SMALL
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1856 WIN_INVERT .0 ; Init new Wordprocessor
3
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
1857 call PLED_standard_color
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
1858
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1859 lfsr FSR2,letter
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1860 OUTPUTTEXT d'35' ; NoFly
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
1861 PUTC ' '
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1862 movff nofly_time+0,lo ; divide by 60...
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1863 movff nofly_time+1,hi
249
544cc5d47755 small clean
heinrichsweikamp
parents: 239
diff changeset
1864 call convert_time ; converts hi:lo in minutes to hours (hi) and minutes (lo)
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1865 bsf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1866 movf lo,W
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1867 movff hi,lo
519
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
1868 movwf hi ; exchange lo and hi...
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
1869 output_8 ; Hours
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
1870 PUTC ':'
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1871 movff hi,lo ; Minutes
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1872 output_99x
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1873 bcf leftbind
402
e565392e0fcc Add a trailing space for nofly and desat
heinrichsweikamp
parents: 401
diff changeset
1874 PUTC ' '
e565392e0fcc Add a trailing space for nofly and desat
heinrichsweikamp
parents: 401
diff changeset
1875 ; clrf WREG ; Allow up to 5 chars to avoid
e565392e0fcc Add a trailing space for nofly and desat
heinrichsweikamp
parents: 401
diff changeset
1876 ; movff WREG,letter+6 ; collision with decotype letters
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1877 call word_processor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1878 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1879
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1880
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1881 update_surf_press:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1882 btfsc premenu ; Do not update when "Menu?" is displayed!
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1883 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1884
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1885 ostc_debug 'b' ; Sends debug-information to screen if debugmode active
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1886 WIN_TOP .25
56
0338aac9a267 surfacemode
heinrichsweikamp
parents: 47
diff changeset
1887 WIN_LEFT .1
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1888 WIN_FONT FT_SMALL
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1889 WIN_INVERT .0 ; Init new Wordprocessor
239
3ed240d60341 High altitude (Plane/Fly) mode added
heinrichsweikamp
parents: 235
diff changeset
1890
410
c6f9eb123b85 remove of red ambient pressure (High altitude mode)
heinrichsweikamp
parents: 408
diff changeset
1891 ; btfss high_altitude_mode ; In high altitude mode?
239
3ed240d60341 High altitude (Plane/Fly) mode added
heinrichsweikamp
parents: 235
diff changeset
1892 call PLED_standard_color ; No
410
c6f9eb123b85 remove of red ambient pressure (High altitude mode)
heinrichsweikamp
parents: 408
diff changeset
1893 ; btfsc high_altitude_mode ; In high altitude mode?
c6f9eb123b85 remove of red ambient pressure (High altitude mode)
heinrichsweikamp
parents: 408
diff changeset
1894 ; call PLED_warnings_color ; Yes, display ambient pressure in red
239
3ed240d60341 High altitude (Plane/Fly) mode added
heinrichsweikamp
parents: 235
diff changeset
1895
401
6ed12fad3b97 Ignore 5mbar pressure sensor noise in surface screen
heinrichsweikamp
parents: 400
diff changeset
1896 SAFE_2BYTE_COPY amb_pressure, lo
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1897 lfsr FSR2,letter
401
6ed12fad3b97 Ignore 5mbar pressure sensor noise in surface screen
heinrichsweikamp
parents: 400
diff changeset
1898
6ed12fad3b97 Ignore 5mbar pressure sensor noise in surface screen
heinrichsweikamp
parents: 400
diff changeset
1899 movff lo,sub_a+0
6ed12fad3b97 Ignore 5mbar pressure sensor noise in surface screen
heinrichsweikamp
parents: 400
diff changeset
1900 movff hi,sub_a+1
6ed12fad3b97 Ignore 5mbar pressure sensor noise in surface screen
heinrichsweikamp
parents: 400
diff changeset
1901 movff last_surfpressure_30min+0,sub_b+0
6ed12fad3b97 Ignore 5mbar pressure sensor noise in surface screen
heinrichsweikamp
parents: 400
diff changeset
1902 movff last_surfpressure_30min+1,sub_b+1
6ed12fad3b97 Ignore 5mbar pressure sensor noise in surface screen
heinrichsweikamp
parents: 400
diff changeset
1903 call sub16 ; sub_c = sub_a - sub_b
6ed12fad3b97 Ignore 5mbar pressure sensor noise in surface screen
heinrichsweikamp
parents: 400
diff changeset
1904 btfsc neg_flag ; Pressure lower?
6ed12fad3b97 Ignore 5mbar pressure sensor noise in surface screen
heinrichsweikamp
parents: 400
diff changeset
1905 rcall update_surf_press2 ; Yes, test threshold
6ed12fad3b97 Ignore 5mbar pressure sensor noise in surface screen
heinrichsweikamp
parents: 400
diff changeset
1906
6ed12fad3b97 Ignore 5mbar pressure sensor noise in surface screen
heinrichsweikamp
parents: 400
diff changeset
1907 tstfsz sub_c+1 ; >255mbar difference?
6ed12fad3b97 Ignore 5mbar pressure sensor noise in surface screen
heinrichsweikamp
parents: 400
diff changeset
1908 bra update_surf_press_common; Yes, display!
6ed12fad3b97 Ignore 5mbar pressure sensor noise in surface screen
heinrichsweikamp
parents: 400
diff changeset
1909 movlw d'5'
6ed12fad3b97 Ignore 5mbar pressure sensor noise in surface screen
heinrichsweikamp
parents: 400
diff changeset
1910 subwf sub_c+0,W
6ed12fad3b97 Ignore 5mbar pressure sensor noise in surface screen
heinrichsweikamp
parents: 400
diff changeset
1911 btfsc STATUS,C
6ed12fad3b97 Ignore 5mbar pressure sensor noise in surface screen
heinrichsweikamp
parents: 400
diff changeset
1912 bra update_surf_press_common; Yes, display!
6ed12fad3b97 Ignore 5mbar pressure sensor noise in surface screen
heinrichsweikamp
parents: 400
diff changeset
1913 ; PUTC '+' ; For debug only
6ed12fad3b97 Ignore 5mbar pressure sensor noise in surface screen
heinrichsweikamp
parents: 400
diff changeset
1914 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
1915
6ed12fad3b97 Ignore 5mbar pressure sensor noise in surface screen
heinrichsweikamp
parents: 400
diff changeset
1916 update_surf_press_common:
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1917 bsf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1918 output_16
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1919 bcf leftbind
446
92304826000d localisation part2 from Sergei
heinrichsweikamp
parents: 430
diff changeset
1920 STRCAT_PRINT TXT_MBAR5
239
3ed240d60341 High altitude (Plane/Fly) mode added
heinrichsweikamp
parents: 235
diff changeset
1921 call PLED_standard_color ; Reset color
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1922 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1923
401
6ed12fad3b97 Ignore 5mbar pressure sensor noise in surface screen
heinrichsweikamp
parents: 400
diff changeset
1924 update_surf_press2:
6ed12fad3b97 Ignore 5mbar pressure sensor noise in surface screen
heinrichsweikamp
parents: 400
diff changeset
1925 movff lo,sub_b+0
6ed12fad3b97 Ignore 5mbar pressure sensor noise in surface screen
heinrichsweikamp
parents: 400
diff changeset
1926 movff hi,sub_b+1
6ed12fad3b97 Ignore 5mbar pressure sensor noise in surface screen
heinrichsweikamp
parents: 400
diff changeset
1927 movff last_surfpressure_30min+0,sub_a+0
6ed12fad3b97 Ignore 5mbar pressure sensor noise in surface screen
heinrichsweikamp
parents: 400
diff changeset
1928 movff last_surfpressure_30min+1,sub_a+1
6ed12fad3b97 Ignore 5mbar pressure sensor noise in surface screen
heinrichsweikamp
parents: 400
diff changeset
1929 call sub16 ; sub_c = sub_a - sub_b
6ed12fad3b97 Ignore 5mbar pressure sensor noise in surface screen
heinrichsweikamp
parents: 400
diff changeset
1930 ; PUTC '-' ; For debug only
6ed12fad3b97 Ignore 5mbar pressure sensor noise in surface screen
heinrichsweikamp
parents: 400
diff changeset
1931 return
6ed12fad3b97 Ignore 5mbar pressure sensor noise in surface screen
heinrichsweikamp
parents: 400
diff changeset
1932
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1933 update_batt_voltage_divemode:
141
622da16b768f LowBatt! Warning in divemode
heinrichsweikamp
parents: 140
diff changeset
1934 call PLED_warnings_color
622da16b768f LowBatt! Warning in divemode
heinrichsweikamp
parents: 140
diff changeset
1935 DISPLAYTEXT d'246' ; LowBatt!
622da16b768f LowBatt! Warning in divemode
heinrichsweikamp
parents: 140
diff changeset
1936 call PLED_standard_color
622da16b768f LowBatt! Warning in divemode
heinrichsweikamp
parents: 140
diff changeset
1937 return
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1938
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1939 update_batt_voltage:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1940 ostc_debug 'f'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1941
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1942 GETCUSTOM8 d'31' ; =1 if battery voltage should be visible
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1943 movwf lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1944 movlw d'1'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1945 cpfseq lo ; =1?
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1946 bra update_batt_voltage2 ; No, show symbol
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1947
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1948 WIN_TOP .175
56
0338aac9a267 surfacemode
heinrichsweikamp
parents: 47
diff changeset
1949 WIN_LEFT .1
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1950 WIN_FONT FT_SMALL
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1951 WIN_INVERT .0 ; Init new Wordprocessor
3
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
1952 call PLED_standard_color
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
1953
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1954 lfsr FSR2,letter
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1955 movff batt_voltage+0,lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1956 movff batt_voltage+1,hi
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1957 movlw d'1'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1958 movwf ignore_digits
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1959 bsf ignore_digit5 ; do not display mV
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1960 bsf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1961 output_16dp d'2' ; e.g. 3.45V
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1962 bcf leftbind
446
92304826000d localisation part2 from Sergei
heinrichsweikamp
parents: 430
diff changeset
1963 STRCAT_PRINT TXT_VOLT2
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1964 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1965
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1966 update_batt_voltage2:
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
1967 WIN_FRAME_STD .174, .194, .1, .32
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1968
25
99512945c7a1 1.61 beta rc2
heinrichsweikamp
parents: 21
diff changeset
1969 ; 4100-Vbatt
99512945c7a1 1.61 beta rc2
heinrichsweikamp
parents: 21
diff changeset
1970 movlw LOW d'4100'
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1971 movwf sub_a+0
25
99512945c7a1 1.61 beta rc2
heinrichsweikamp
parents: 21
diff changeset
1972 movlw HIGH d'4100'
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1973 movwf sub_a+1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1974 movff batt_voltage+0,sub_b+0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1975 movff batt_voltage+1,sub_b+1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1976 call sub16 ; sub_c = sub_a - sub_b
25
99512945c7a1 1.61 beta rc2
heinrichsweikamp
parents: 21
diff changeset
1977 ; Battery full (>4100mV?
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1978 btfsc neg_flag
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1979 bra update_batt_voltage2_full
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1980
25
99512945c7a1 1.61 beta rc2
heinrichsweikamp
parents: 21
diff changeset
1981 ; Vbatt-3500
99512945c7a1 1.61 beta rc2
heinrichsweikamp
parents: 21
diff changeset
1982 movlw LOW d'3500'
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1983 movwf sub_b+0
25
99512945c7a1 1.61 beta rc2
heinrichsweikamp
parents: 21
diff changeset
1984 movlw HIGH d'3500'
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1985 movwf sub_b+1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1986 movff batt_voltage+0,sub_a+0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1987 movff batt_voltage+1,sub_a+1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1988 call sub16 ; sub_c = sub_a - sub_b
25
99512945c7a1 1.61 beta rc2
heinrichsweikamp
parents: 21
diff changeset
1989 ; Battery lower then 3500mV?
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1990 btfsc neg_flag
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1991 bra update_batt_voltage2_empty
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1992
25
99512945c7a1 1.61 beta rc2
heinrichsweikamp
parents: 21
diff changeset
1993 ; Battery is between 3500 and 4100mV
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1994 ; sub_c:2 is between 0 and 600
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1995 movff sub_c+0,xA+0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1996 movff sub_c+1,xA+1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1997 movlw d'20'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1998 movwf xB+0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
1999 clrf xB+1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2000 call div16x16 ;xA/xB=xC with xA as remainder
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2001 ; xC is between 0 and 30
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2002 movff xC+0,wait_temp ;save value
56
0338aac9a267 surfacemode
heinrichsweikamp
parents: 47
diff changeset
2003 incf wait_temp,F ; +1
0338aac9a267 surfacemode
heinrichsweikamp
parents: 47
diff changeset
2004
0338aac9a267 surfacemode
heinrichsweikamp
parents: 47
diff changeset
2005 movlw d'3'
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2006 cpfsgt wait_temp
56
0338aac9a267 surfacemode
heinrichsweikamp
parents: 47
diff changeset
2007 movwf wait_temp ; Minimum = 3
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2008
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2009 update_batt_voltage2a:
519
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
2010 WIN_BOX_STD .181, .187, .32, .34 ; Battery nose
25
99512945c7a1 1.61 beta rc2
heinrichsweikamp
parents: 21
diff changeset
2011
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2012 update_batt_voltage3:
25
99512945c7a1 1.61 beta rc2
heinrichsweikamp
parents: 21
diff changeset
2013 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
2014 btfsc cc_active
4ec488f046f4 Battery sign color coded, work on new uart-started 115200Baud bootloader (Do NOT use yet!)
heinrichsweikamp
parents: 281
diff changeset
2015 movlw color_yellow ; CC active
285
8874b6cd8f36 small fix for the battery sign
heinrichsweikamp
parents: 283
diff changeset
2016 btfsc charge_done
8874b6cd8f36 small fix for the battery sign
heinrichsweikamp
parents: 283
diff changeset
2017 movlw color_green ; Charge done.
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
2018 call PLED_set_color
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
2019
519
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
2020 movlw .175
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
2021 movff WREG,win_top ; row top (0-239)
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
2022 movlw .19
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
2023 movff WREG,win_height
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
2024 movlw .2
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
2025 movff WREG,win_leftx2 ; column left (0-159)
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
2026 movff wait_temp,win_width ; column right (0-159)
519
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
2027 call PLED_box
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
2028 call PLED_standard_color
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2029 return
519
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
2030
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2031 update_batt_voltage2_empty:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2032 movlw d'1'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2033 movwf wait_temp
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2034 bra update_batt_voltage2a
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2035
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2036 update_batt_voltage2_full:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2037 movlw d'30'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2038 movwf wait_temp
25
99512945c7a1 1.61 beta rc2
heinrichsweikamp
parents: 21
diff changeset
2039 bra update_batt_voltage2a
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2040
382
f2d5d93b4ca3 negative temperature in logbook and battery info menu
heinrichsweikamp
parents: 370
diff changeset
2041 PLED_convert_signed_temperature:
f2d5d93b4ca3 negative temperature in logbook and battery info menu
heinrichsweikamp
parents: 370
diff changeset
2042 btfss hi,7 ; Negative temperature ?
f2d5d93b4ca3 negative temperature in logbook and battery info menu
heinrichsweikamp
parents: 370
diff changeset
2043 return ; No, return
f2d5d93b4ca3 negative temperature in logbook and battery info menu
heinrichsweikamp
parents: 370
diff changeset
2044 ; Yes, negative temperature!
f2d5d93b4ca3 negative temperature in logbook and battery info menu
heinrichsweikamp
parents: 370
diff changeset
2045 PUTC '-' ; Display "-"
f2d5d93b4ca3 negative temperature in logbook and battery info menu
heinrichsweikamp
parents: 370
diff changeset
2046 comf hi ; Then, 16bit sign changes.
f2d5d93b4ca3 negative temperature in logbook and battery info menu
heinrichsweikamp
parents: 370
diff changeset
2047 negf lo
f2d5d93b4ca3 negative temperature in logbook and battery info menu
heinrichsweikamp
parents: 370
diff changeset
2048 btfsc STATUS,C
f2d5d93b4ca3 negative temperature in logbook and battery info menu
heinrichsweikamp
parents: 370
diff changeset
2049 incf hi
f2d5d93b4ca3 negative temperature in logbook and battery info menu
heinrichsweikamp
parents: 370
diff changeset
2050 return ; and return
f2d5d93b4ca3 negative temperature in logbook and battery info menu
heinrichsweikamp
parents: 370
diff changeset
2051
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2052 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
2053 read_int_eeprom d'91' ; Read date format (0=MMDDYY, 1=DDMMYY, 2=YYMMDD)
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2054 tstfsz EEDATA
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2055 bra PLED_convert_date1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2056
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2057 ; Use MMDDYY
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2058 movff convert_value_temp+0,lo ;month
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2059 bsf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2060 output_99x
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2061 bcf leftbind
140
87a53efbb5ba "beta" shown for beta versions
heinrichsweikamp
parents: 138
diff changeset
2062 PUTC '.'
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2063 movff convert_value_temp+1,lo ;day
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2064 bra PLED_convert_date1_common ;year
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2065
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2066 PLED_convert_date1:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2067 read_int_eeprom d'91' ; Read date format (0=MMDDYY, 1=DDMMYY, 2=YYMMDD)
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2068 decfsz EEDATA,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2069 bra PLED_convert_date2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2070
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2071 ; Use DDMMYY
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2072 movff convert_value_temp+1,lo ;day
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2073 bsf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2074 output_99x
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2075 bcf leftbind
140
87a53efbb5ba "beta" shown for beta versions
heinrichsweikamp
parents: 138
diff changeset
2076 PUTC '.'
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2077 movff convert_value_temp+0,lo ;month
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2078
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2079 PLED_convert_date1_common:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2080 bsf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2081 output_99x
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2082 bcf leftbind
140
87a53efbb5ba "beta" shown for beta versions
heinrichsweikamp
parents: 138
diff changeset
2083 PUTC '.'
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2084 movff convert_value_temp+2,lo ;year
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2085 bsf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2086 output_99x
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2087 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2088
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2089 PLED_convert_date2:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2090 ; Use YYMMDD
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2091 movff convert_value_temp+2,lo ;year
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2092 bsf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2093 output_99x
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2094 bcf leftbind
140
87a53efbb5ba "beta" shown for beta versions
heinrichsweikamp
parents: 138
diff changeset
2095 PUTC '.'
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2096 movff convert_value_temp+0,lo ;month
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2097 bsf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2098 output_99x
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2099 bcf leftbind
140
87a53efbb5ba "beta" shown for beta versions
heinrichsweikamp
parents: 138
diff changeset
2100 PUTC '.'
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2101 movff convert_value_temp+1,lo ;day
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2102 bsf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2103 output_99x
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2104 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2105
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2106 PLED_convert_date_short: ; converts into "DD/MM" or "MM/DD" or "MM/DD" in postinc2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2107 read_int_eeprom d'91' ; Read date format (0=MMDDYY, 1=DDMMYY, 2=YYMMDD)
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2108 tstfsz EEDATA
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2109 bra PLED_convert_date_short1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2110
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2111 ; Use MMDDYY
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2112 PLED_convert_date_short_common:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2113 movff convert_value_temp+0,lo ;month
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2114 bsf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2115 output_99x
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2116 bcf leftbind
140
87a53efbb5ba "beta" shown for beta versions
heinrichsweikamp
parents: 138
diff changeset
2117 PUTC '.'
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2118 movff convert_value_temp+1,lo ;day
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2119 bsf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2120 output_99x
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2121 bcf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2122 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2123
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2124 PLED_convert_date_short1:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2125 read_int_eeprom d'91' ; Read date format (0=MMDDYY, 1=DDMMYY, 2=YYMMDD)
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2126 decfsz EEDATA,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2127 bra PLED_convert_date_short_common ; Use YYMMDD
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2128
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2129 ; Use DDMMYY
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2130 movff convert_value_temp+1,lo ;day
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2131 bsf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2132 output_99x
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2133 bcf leftbind
140
87a53efbb5ba "beta" shown for beta versions
heinrichsweikamp
parents: 138
diff changeset
2134 PUTC '.'
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2135 movff convert_value_temp+0,lo ;month
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2136 bsf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2137 output_99x
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2138 bcf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2139 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2140
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2141 update_date:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2142 ostc_debug 'd'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2143 WIN_TOP .75
56
0338aac9a267 surfacemode
heinrichsweikamp
parents: 47
diff changeset
2144 WIN_LEFT .1
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2145 WIN_FONT FT_SMALL
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2146 WIN_INVERT .0 ; Init new Wordprocessor
3
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
2147 call PLED_standard_color
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
2148
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2149 lfsr FSR2,letter
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2150
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2151 movff month,convert_value_temp+0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2152 movff day,convert_value_temp+1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2153 movff year,convert_value_temp+2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2154 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
2155 call word_processor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2156 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2157
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2158 PLED_menu_clear:
637
47ad50ca5d26 remove ?Men?? completely
heinrichsweikamp
parents: 627
diff changeset
2159 WIN_BOX_BLACK .0, .26, .50, .100 ;top, bottom, left, right
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2160 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2161
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2162 PLED_max_pressure:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2163 ostc_debug 'p' ; Sends debug-information to screen if debugmode active
75
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
2164 movff max_pressure+0,lo
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
2165 movff max_pressure+1,hi
398
ab962c4b19d6 Fixing issue 50, correct "Bar" to "bar" in texts and comments
heinrichsweikamp
parents: 396
diff changeset
2166 call adjust_depth_with_salinity ; computes salinity setting into lo:hi [mbar]
75
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
2167
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
2168 movlw .039
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
2169 cpfslt hi
517
a73a452ca155 Backed out changeset: b498245da3f1
heinrichsweikamp
parents: 516
diff changeset
2170 bra maxdepth_greater_99_84mtr
75
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
2171
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
2172 ; Display normal "xx.y"
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
2173 lfsr FSR2,letter
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
2174 call PLED_standard_color
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2175 WIN_TOP .184
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2176 WIN_LEFT .0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2177 WIN_FONT FT_MEDIUM
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2178 WIN_INVERT .0 ; Init new Wordprocessor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2179 bsf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2180 bsf ignore_digit5 ; do not display 1cm depth
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2181 output_16dp d'3'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2182 bcf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2183 bcf show_last3
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2184 call word_processor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2185 WIN_FONT FT_SMALL
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2186 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2187
517
a73a452ca155 Backed out changeset: b498245da3f1
heinrichsweikamp
parents: 516
diff changeset
2188 maxdepth_greater_99_84mtr: ; Display only in full meters
a73a452ca155 Backed out changeset: b498245da3f1
heinrichsweikamp
parents: 516
diff changeset
2189 btfss maxdepth_greater_100m ; Is max.depth>100m already?
75
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
2190 call PLED_clear_maxdepth ; No, clear maxdepth area and set flag
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
2191 ; max Depth is already in hi:lo
517
a73a452ca155 Backed out changeset: b498245da3f1
heinrichsweikamp
parents: 516
diff changeset
2192 ; Show max depth in Full meters
75
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
2193 ; That means ignore figure 4 and 5
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
2194 lfsr FSR2,letter
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
2195 call PLED_standard_color
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
2196 WIN_TOP .184
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
2197 WIN_LEFT .0
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
2198 WIN_FONT FT_MEDIUM
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
2199 WIN_INVERT .0 ; Init new Wordprocessor
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
2200
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
2201 bsf ignore_digit4
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
2202 bsf leftbind
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
2203 output_16
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
2204 bcf leftbind
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
2205 call word_processor
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
2206 bcf ignore_digit4
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
2207 WIN_FONT FT_SMALL
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
2208 return
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
2209
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
2210 PLED_clear_maxdepth:
204
aad4f6e25c2d fix in logbook detail view
heinrichsweikamp
parents: 199
diff changeset
2211 WIN_BOX_BLACK .184, .215, .0, .41 ;top, bottom, left, right
517
a73a452ca155 Backed out changeset: b498245da3f1
heinrichsweikamp
parents: 516
diff changeset
2212 bsf maxdepth_greater_100m ; Set Flag
75
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
2213 return
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
2214
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2215 PLED_divemins:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2216 btfsc menubit ; Divemode menu active?
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2217 return ; Yes, do not update divetime
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2218
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2219 ostc_debug 'A' ; Sends debug-information to screen if debugmode active
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2220
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2221 btfsc gauge_mode ; different display in gauge mode
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2222 bra PLED_divemins_gauge
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2223
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2224 btfsc FLAG_apnoe_mode ; different display in apnoe mode
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2225 bra PLED_divemins_apnoe
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2226
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2227 GETCUSTOM8 d'38' ; Show seconds (=1?)
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2228 movwf lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2229 movlw d'1'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2230 cpfseq lo ; =1?
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2231 bra PLED_divemins2 ; No, minutes only
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2232 bra PLED_divemins_gauge ; Yes, use Gauge routine
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2233
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2234 PLED_divemins2:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2235 movff divemins+0,lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2236 movff divemins+1,hi
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2237 bcf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2238 lfsr FSR2,letter
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2239 output_16_3 ; displays only last three figures from a 16Bit value (0-999)
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2240 WIN_TOP .20
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2241 WIN_LEFT .120
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2242 WIN_FONT FT_MEDIUM
3
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
2243 call PLED_standard_color
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2244 call word_processor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2245 WIN_FONT FT_SMALL
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2246 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2247
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2248 PLED_display_apnoe_surface:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2249 btfsc menubit ; Divemode menu active?
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2250 return ; Yes, do not display surface mode timeout
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2251
9
395230c28023 Added CF36: Divemask color
heinrichsweikamp
parents: 8
diff changeset
2252 call PLED_divemask_color ; Set Color for Divemode mask
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2253 DISPLAYTEXT d'140' ; "SURFACE"
3
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
2254 call PLED_standard_color
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
2255
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2256 WIN_TOP .85
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2257 WIN_LEFT .90
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2258 WIN_FONT FT_MEDIUM
3
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
2259 call PLED_standard_color
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
2260
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2261
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2262 movff apnoe_surface_mins,lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2263 bcf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2264 lfsr FSR2,letter
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2265 output_8
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
2266 PUTC ':'
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2267 movff apnoe_surface_secs,lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2268 output_99x
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2269 call word_processor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2270 WIN_FONT FT_SMALL
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2271 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2272
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2273 PLED_apnoe_clear_surface:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2274 ; Clear Surface timer....
204
aad4f6e25c2d fix in logbook detail view
heinrichsweikamp
parents: 199
diff changeset
2275 WIN_BOX_BLACK .60, .119, .90, .159 ;top, bottom, left, right
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2276 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2277
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2278
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2279 PLED_display_apnoe_descent:
400
40b282821dcf fixes issue #48
heinrichsweikamp
parents: 399
diff changeset
2280 btfsc menubit ; Divemode menu active?
40b282821dcf fixes issue #48
heinrichsweikamp
parents: 399
diff changeset
2281 return ; Yes, do not display/update descent time
40b282821dcf fixes issue #48
heinrichsweikamp
parents: 399
diff changeset
2282
9
395230c28023 Added CF36: Divemask color
heinrichsweikamp
parents: 8
diff changeset
2283 call PLED_divemask_color ; Set Color for Divemode mask
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2284 DISPLAYTEXT d'139' ; "Descent"
3
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
2285 call PLED_standard_color
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
2286
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2287
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2288 WIN_TOP .145
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2289 WIN_LEFT .90
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2290 WIN_FONT FT_MEDIUM
3
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
2291 call PLED_standard_color
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
2292
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2293
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2294 movff apnoe_mins,lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2295 lfsr FSR2,letter
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2296 output_8
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
2297 PUTC ':'
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2298 movff apnoe_secs,lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2299 output_99x
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2300 call word_processor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2301 WIN_FONT FT_SMALL
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2302 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2303
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2304 PLED_divemins_apnoe:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2305
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2306 PLED_divemins_gauge:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2307 movff divemins+0,lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2308 movff divemins+1,hi
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2309 bcf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2310 bsf show_last3
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2311 lfsr FSR2,letter
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2312 output_16_3 ;Displays only 0...999
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
2313 PUTC ':'
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2314 movff divesecs,lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2315 output_99x
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2316 WIN_TOP .20
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2317 WIN_LEFT .90
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2318 WIN_FONT FT_MEDIUM
3
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
2319 call PLED_standard_color
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
2320
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2321 call word_processor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2322 bcf show_last3
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2323 WIN_FONT FT_SMALL
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2324 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2325
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2326 PLED_stopwatch_show:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2327 ; Stopwatch
9
395230c28023 Added CF36: Divemask color
heinrichsweikamp
parents: 8
diff changeset
2328 call PLED_divemask_color ; Set Color for Divemode mask
87
8d3c1bef6551 some preparations for new custom view
heinrichsweikamp
parents: 84
diff changeset
2329 DISPLAYTEXTH d'283' ; Stopwatch
98
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 91
diff changeset
2330
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 91
diff changeset
2331 PLED_stopwatch_show2:
3
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
2332 call PLED_standard_color
98
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 91
diff changeset
2333 ostc_debug 'V' ; Sends debug-information to screen if debugmode active
87
8d3c1bef6551 some preparations for new custom view
heinrichsweikamp
parents: 84
diff changeset
2334 WIN_TOP .192
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2335 WIN_LEFT .110
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2336 WIN_FONT FT_SMALL
3
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
2337 call PLED_standard_color
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
2338
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2339 lfsr FSR2,letter
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2340 movff average_divesecs+0,lo ; Stopwatch
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2341 movff average_divesecs+1,hi ; Stopwatch
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2342 movlw d'2'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2343 subwf lo,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2344 movlw d'0'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2345 subwfb hi,F ; Subtract 2 seconds
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2346
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2347 call convert_time ; converts hi:lo in seconds to mins (hi) and secs (lo)
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2348
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2349 movff lo,wait_temp
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2350 movff hi,lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2351 clrf hi
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2352
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2353 movlw d'0'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2354 bcf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2355 bsf show_last3
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2356 output_16_3 ;Displays only 0...999
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
2357 PUTC ':'
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2358 movff wait_temp,lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2359 output_99x
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2360 call word_processor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2361
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2362 ostc_debug 'U' ; Sends debug-information to screen if debugmode active
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2363
87
8d3c1bef6551 some preparations for new custom view
heinrichsweikamp
parents: 84
diff changeset
2364 WIN_TOP .216
517
a73a452ca155 Backed out changeset: b498245da3f1
heinrichsweikamp
parents: 516
diff changeset
2365 WIN_LEFT .110
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2366 WIN_FONT FT_SMALL
3
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
2367 call PLED_standard_color
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
2368
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2369 lfsr FSR2,letter
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2370 movff avr_rel_pressure+0,lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2371 movff avr_rel_pressure+1,hi
398
ab962c4b19d6 Fixing issue 50, correct "Bar" to "bar" in texts and comments
heinrichsweikamp
parents: 396
diff changeset
2372 call adjust_depth_with_salinity ; computes salinity setting into lo:hi [mbar]
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2373 bsf ignore_digit5 ; do not display 1cm depth
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2374 output_16dp d'3'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2375 bcf leftbind
446
92304826000d localisation part2 from Sergei
heinrichsweikamp
parents: 430
diff changeset
2376 STRCAT_PRINT TXT_METER1
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2377 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2378
386
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2379 PLED_stopwatch_show_gauge:
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2380 btfsc menubit ; Divemode menu active?
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2381 return ; Yes, return
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2382 ; BIG Stopwatch
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2383 call PLED_divemask_color ; Set Color for Divemode mask
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2384 DISPLAYTEXTH d'310' ; Stopwatch
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2385 DISPLAYTEXTH d'309' ; Average
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2386 call PLED_standard_color
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2387 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
2388 WIN_TOP .80
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2389 WIN_LEFT .90
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2390 WIN_FONT FT_MEDIUM
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2391 call PLED_standard_color
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2392
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2393 lfsr FSR2,letter
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2394 movff average_divesecs+0,lo ; Stopwatch
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2395 movff average_divesecs+1,hi ; Stopwatch
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2396 movlw d'2'
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2397 subwf lo,F
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2398 movlw d'0'
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2399 subwfb hi,F ; Subtract 2 seconds
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2400 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
2401 movff lo,wait_temp
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2402 movff hi,lo
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2403 clrf hi
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2404 movlw d'0'
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2405 bcf leftbind
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2406 bsf show_last3
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2407 output_16_3 ;Displays only 0...999
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2408 PUTC ':'
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2409 movff wait_temp,lo
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2410 output_99x
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2411 call word_processor
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2412
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2413 ostc_debug 'U' ; Sends debug-information to screen if debugmode active
517
a73a452ca155 Backed out changeset: b498245da3f1
heinrichsweikamp
parents: 516
diff changeset
2414 WIN_TOP .136
a73a452ca155 Backed out changeset: b498245da3f1
heinrichsweikamp
parents: 516
diff changeset
2415 WIN_LEFT .90
386
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2416 WIN_FONT FT_MEDIUM
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2417 call PLED_standard_color
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2418 lfsr FSR2,letter
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2419 movff avr_rel_pressure+0,lo
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2420 movff avr_rel_pressure+1,hi
398
ab962c4b19d6 Fixing issue 50, correct "Bar" to "bar" in texts and comments
heinrichsweikamp
parents: 396
diff changeset
2421 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
2422 bsf ignore_digit5 ; do not display 1cm depth
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2423 output_16dp d'3'
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2424 bcf leftbind
446
92304826000d localisation part2 from Sergei
heinrichsweikamp
parents: 430
diff changeset
2425 STRCAT_PRINT TXT_METER1
386
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2426 WIN_FONT FT_SMALL ; Reset...
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2427 return
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2428
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
2429
129
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53)
Heinrichsweikamp
parents: 127
diff changeset
2430 PLED_total_average_show:
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53)
Heinrichsweikamp
parents: 127
diff changeset
2431 ; Non-Resettable Average
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53)
Heinrichsweikamp
parents: 127
diff changeset
2432 call PLED_divemask_color ; Set Color for Divemode mask
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53)
Heinrichsweikamp
parents: 127
diff changeset
2433 DISPLAYTEXTH d'281' ; Avr.Depth
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53)
Heinrichsweikamp
parents: 127
diff changeset
2434
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53)
Heinrichsweikamp
parents: 127
diff changeset
2435 PLED_total_average_show2:
517
a73a452ca155 Backed out changeset: b498245da3f1
heinrichsweikamp
parents: 516
diff changeset
2436 WIN_TOP .192
a73a452ca155 Backed out changeset: b498245da3f1
heinrichsweikamp
parents: 516
diff changeset
2437 WIN_LEFT .110
129
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53)
Heinrichsweikamp
parents: 127
diff changeset
2438 WIN_FONT FT_SMALL
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53)
Heinrichsweikamp
parents: 127
diff changeset
2439 call PLED_standard_color
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53)
Heinrichsweikamp
parents: 127
diff changeset
2440
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53)
Heinrichsweikamp
parents: 127
diff changeset
2441 lfsr FSR2,letter
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53)
Heinrichsweikamp
parents: 127
diff changeset
2442 movff avr_rel_pressure_total+0,lo
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53)
Heinrichsweikamp
parents: 127
diff changeset
2443 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
2444 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
2445 bsf ignore_digit5 ; do not display 1cm depth
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53)
Heinrichsweikamp
parents: 127
diff changeset
2446 bcf leftbind
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53)
Heinrichsweikamp
parents: 127
diff changeset
2447 output_16dp d'3'
446
92304826000d localisation part2 from Sergei
heinrichsweikamp
parents: 430
diff changeset
2448 STRCAT_PRINT TXT_METER1
129
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53)
Heinrichsweikamp
parents: 127
diff changeset
2449 return
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53)
Heinrichsweikamp
parents: 127
diff changeset
2450
235
ade0848c8b8b New runtime asserts when compiled in DEBUG more.
JeanDo
parents: 229
diff changeset
2451 ;=============================================================================
ade0848c8b8b New runtime asserts when compiled in DEBUG more.
JeanDo
parents: 229
diff changeset
2452 ; Writes OSTC #Serial and Firmware version in surfacemode
ade0848c8b8b New runtime asserts when compiled in DEBUG more.
JeanDo
parents: 229
diff changeset
2453 ;
ade0848c8b8b New runtime asserts when compiled in DEBUG more.
JeanDo
parents: 229
diff changeset
2454 PLED_serial:
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2455 ostc_debug 'a' ; Sends debug-information to screen if debugmode active
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2456 WIN_TOP .0
56
0338aac9a267 surfacemode
heinrichsweikamp
parents: 47
diff changeset
2457 WIN_LEFT .1
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2458 WIN_FONT FT_SMALL
235
ade0848c8b8b New runtime asserts when compiled in DEBUG more.
JeanDo
parents: 229
diff changeset
2459 WIN_INVERT .0 ; Init new Wordprocessor
ade0848c8b8b New runtime asserts when compiled in DEBUG more.
JeanDo
parents: 229
diff changeset
2460
ade0848c8b8b New runtime asserts when compiled in DEBUG more.
JeanDo
parents: 229
diff changeset
2461 ifdef __DEBUG
587
1b021a280e15 NEW CF64: Configures color for inactive gases
heinrichsweikamp
parents: 576
diff changeset
2462 GETCUSTOM8 d'64' ; Write header in blue when
235
ade0848c8b8b New runtime asserts when compiled in DEBUG more.
JeanDo
parents: 229
diff changeset
2463 call PLED_set_color ; compiled in DEBUG mode...
ade0848c8b8b New runtime asserts when compiled in DEBUG more.
JeanDo
parents: 229
diff changeset
2464 else
3
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
2465 call PLED_standard_color
235
ade0848c8b8b New runtime asserts when compiled in DEBUG more.
JeanDo
parents: 229
diff changeset
2466 endif
3
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
2467
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2468 lfsr FSR2,letter
607
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2469 read_int_eeprom d'34' ; Read deco data
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2470 tstfsz EEDATA
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2471 bra show_decotype_mainscreen2
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2472 OUTPUTTEXT .101 ; ZH-L16 OC =0
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2473 bra show_decotype_mainscreen8 ; Done.
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2474 show_decotype_mainscreen2:
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2475 decfsz EEDATA,F
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2476 bra show_decotype_mainscreen3
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2477 OUTPUTTEXT .102 ; Gauge =1
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2478 bra show_decotype_mainscreen8 ; Done.
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2479 show_decotype_mainscreen3:
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2480 decfsz EEDATA,F
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2481 bra show_decotype_mainscreen4
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2482 OUTPUTTEXT .104 ; ZH-L16 CC =2
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2483 bra show_decotype_mainscreen8 ; Done.
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2484 show_decotype_mainscreen4:
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2485 decfsz EEDATA,F
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2486 bra show_decotype_mainscreen5
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2487 OUTPUTTEXT .138 ; Apnoe =3
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2488 bra show_decotype_mainscreen8 ; Done.
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2489 show_decotype_mainscreen5:
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2490 decfsz EEDATA,F
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2491 bra show_decotype_mainscreen6
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2492 OUTPUTTEXT .152 ; L16-GF OC =4
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2493 bra show_decotype_mainscreen8 ; Done.
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2494 show_decotype_mainscreen6:
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2495 decfsz EEDATA,F
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2496 bra show_decotype_mainscreen7
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2497 OUTPUTTEXT .236 ; L16-GF CC =5
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2498 bra show_decotype_mainscreen8 ; Done.
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2499 show_decotype_mainscreen7:
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2500 decfsz EEDATA,F
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2501 bra show_decotype_mainscreen8 ; Done.
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2502 OUTPUTTEXT .226 ; pSCR-GF =6
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
2503 show_decotype_mainscreen8:
235
ade0848c8b8b New runtime asserts when compiled in DEBUG more.
JeanDo
parents: 229
diff changeset
2504 STRCAT " \x90\x91 V" ; Scribble logo...
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2505 movlw softwareversion_x
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2506 movwf lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2507 bsf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2508 output_8
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
2509 PUTC '.'
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2510 movlw softwareversion_y
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2511 movwf lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2512 bsf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2513 output_99x
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2514 bcf leftbind
235
ade0848c8b8b New runtime asserts when compiled in DEBUG more.
JeanDo
parents: 229
diff changeset
2515
ade0848c8b8b New runtime asserts when compiled in DEBUG more.
JeanDo
parents: 229
diff changeset
2516 ifdef __DEBUG
ade0848c8b8b New runtime asserts when compiled in DEBUG more.
JeanDo
parents: 229
diff changeset
2517 STRCAT_PRINT "-Dbg"
ade0848c8b8b New runtime asserts when compiled in DEBUG more.
JeanDo
parents: 229
diff changeset
2518 else
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2519 call word_processor
140
87a53efbb5ba "beta" shown for beta versions
heinrichsweikamp
parents: 138
diff changeset
2520
235
ade0848c8b8b New runtime asserts when compiled in DEBUG more.
JeanDo
parents: 229
diff changeset
2521 movlw softwareversion_beta ; =1: Beta, =0: Release
140
87a53efbb5ba "beta" shown for beta versions
heinrichsweikamp
parents: 138
diff changeset
2522 decfsz WREG,F
235
ade0848c8b8b New runtime asserts when compiled in DEBUG more.
JeanDo
parents: 229
diff changeset
2523 return ; Release version -> Return
140
87a53efbb5ba "beta" shown for beta versions
heinrichsweikamp
parents: 138
diff changeset
2524
87a53efbb5ba "beta" shown for beta versions
heinrichsweikamp
parents: 138
diff changeset
2525 call PLED_warnings_color
235
ade0848c8b8b New runtime asserts when compiled in DEBUG more.
JeanDo
parents: 229
diff changeset
2526 DISPLAYTEXT d'243' ; beta
140
87a53efbb5ba "beta" shown for beta versions
heinrichsweikamp
parents: 138
diff changeset
2527 call PLED_standard_color
235
ade0848c8b8b New runtime asserts when compiled in DEBUG more.
JeanDo
parents: 229
diff changeset
2528 endif
ade0848c8b8b New runtime asserts when compiled in DEBUG more.
JeanDo
parents: 229
diff changeset
2529
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2530 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2531
235
ade0848c8b8b New runtime asserts when compiled in DEBUG more.
JeanDo
parents: 229
diff changeset
2532 ;=============================================================================
ade0848c8b8b New runtime asserts when compiled in DEBUG more.
JeanDo
parents: 229
diff changeset
2533
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2534 PLED_divemode_menu_mask_first: ; Write Divemode menu1 mask
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2535 ostc_debug 'o' ; Sends debug-information to screen if debugmode active
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2536 call PLED_menu_clear ; clear "Menu?"
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
2537 call PLED_standard_color
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2538
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2539 btfsc FLAG_const_ppO2_mode ; are we in ppO2 mode?
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2540 bra PLED_divemode_menu_mask_first2
73
2227459e8ef2 Exchanged Decoplan and Gaslist in dive mode menu
heinrichsweikamp
parents: 71
diff changeset
2541
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2542 ; in OC Mode
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2543 DISPLAYTEXT .32 ;"Gaslist"
73
2227459e8ef2 Exchanged Decoplan and Gaslist in dive mode menu
heinrichsweikamp
parents: 71
diff changeset
2544 DISPLAYTEXT .31 ;"Decoplan"
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2545 bra PLED_divemode_menu_mask_first3
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2546
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2547 PLED_divemode_menu_mask_first2:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2548 ; in CC Mode
73
2227459e8ef2 Exchanged Decoplan and Gaslist in dive mode menu
heinrichsweikamp
parents: 71
diff changeset
2549 DISPLAYTEXT .238 ;"SetPoint"
2227459e8ef2 Exchanged Decoplan and Gaslist in dive mode menu
heinrichsweikamp
parents: 71
diff changeset
2550 DISPLAYTEXT .31 ;"Decoplan"
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2551
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2552 PLED_divemode_menu_mask_first3:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2553 ; In all modes
98
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 91
diff changeset
2554 call customview_menu_entry3 ; Show customview-dependent menu entry
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 91
diff changeset
2555 DISPLAYTEXT .241 ;"Display"
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2556 DISPLAYTEXT .34 ;"Exit"
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2557 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2558
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2559 PLED_divemode_set_xgas: ; Displayes the "Set Gas" menu
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2560 WIN_LEFT .100
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2561 WIN_TOP .0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2562 WIN_FONT FT_SMALL
3
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
2563 call PLED_standard_color
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
2564
446
92304826000d localisation part2 from Sergei
heinrichsweikamp
parents: 430
diff changeset
2565 STRCPY TXT_G6_3
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2566 read_int_eeprom d'24' ; Get Gas6 %O2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2567 movff EEDATA,lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2568 bcf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2569 output_99 ; outputs into Postinc2!
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
2570 PUTC '/'
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2571 read_int_eeprom d'25' ; Get Gas6 %He
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2572 movff EEDATA,lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2573 output_99 ; outputs into Postinc2!
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2574 call word_processor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2575 DISPLAYTEXT .123 ; O2 +
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2576 DISPLAYTEXT .124 ; O2 -
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2577 DISPLAYTEXT .125 ; He +
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2578 DISPLAYTEXT .126 ; He -
219
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2579 DISPLAYTEXTH d'300' ; Active? (Enable/Disable Gas underwater)
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2580 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2581
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2582 PLED_divemode_simulator_mask:
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2583 call PLED_standard_color
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2584 DISPLAYTEXT .254 ; Close
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2585 DISPLAYTEXT .250 ; + 1m
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2586 DISPLAYTEXT .251 ; - 1m
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2587 DISPLAYTEXT .252 ; +10m
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2588 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
2589 DISPLAYTEXTH .306 ; Quit Sim
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2590 return
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2591
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
2592 ;-----------------------------------------------------------------------------
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2593 ; Draw a stop of the deco plan (simulator or dive).
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2594 ; Inputs: lo = depth. Range 3m...93m
279
8514588eb6a2 Mark gas-switch stops for decoplans, displayed in yellow.
JeanDo
parents: 277
diff changeset
2595 ; + 80 if this is a switch-gas stop.
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2596 ; hi = minutes. range 1'..240'.
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2597 ; win_top = line to draw on screen.
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2598 ; Trashed: hi, lo, win_height, win_leftx2, win_width, win_color*,
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2599 ; WREG, PROD, TBLPTR TABLAT.
169
e26f49674956 Merge decoplan display for both GF and Buhlmann models.
JeanDo
parents: 168
diff changeset
2600 ;
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2601 PLED_decoplan_show_stop:
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2602 ;---- Print depth ----------------------------------------------------
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2603 WIN_LEFT .100
517
a73a452ca155 Backed out changeset: b498245da3f1
heinrichsweikamp
parents: 516
diff changeset
2604
279
8514588eb6a2 Mark gas-switch stops for decoplans, displayed in yellow.
JeanDo
parents: 277
diff changeset
2605 btfss lo,7 ; Bit set ?
559
c84ea647ff58 do not show gas switch stops in yellow when CF55=0
heinrichsweikamp
parents: 556
diff changeset
2606 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
2607
c84ea647ff58 do not show gas switch stops in yellow when CF55=0
heinrichsweikamp
parents: 556
diff changeset
2608 bcf lo,7 ; cleanup depth
c84ea647ff58 do not show gas switch stops in yellow when CF55=0
heinrichsweikamp
parents: 556
diff changeset
2609
c84ea647ff58 do not show gas switch stops in yellow when CF55=0
heinrichsweikamp
parents: 556
diff changeset
2610 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
2611 tstfsz WREG ; =0?
c84ea647ff58 do not show gas switch stops in yellow when CF55=0
heinrichsweikamp
parents: 556
diff changeset
2612 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
2613 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
2614
c84ea647ff58 do not show gas switch stops in yellow when CF55=0
heinrichsweikamp
parents: 556
diff changeset
2615 PLED_decoplan_show_stop1:
c84ea647ff58 do not show gas switch stops in yellow when CF55=0
heinrichsweikamp
parents: 556
diff changeset
2616 movlw color_yellow
c84ea647ff58 do not show gas switch stops in yellow when CF55=0
heinrichsweikamp
parents: 556
diff changeset
2617 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
2618 bra PLED_decoplan_nstd_stop
8514588eb6a2 Mark gas-switch stops for decoplans, displayed in yellow.
JeanDo
parents: 277
diff changeset
2619
8514588eb6a2 Mark gas-switch stops for decoplans, displayed in yellow.
JeanDo
parents: 277
diff changeset
2620 PLED_decoplan_std_stop:
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2621 call PLED_standard_color
279
8514588eb6a2 Mark gas-switch stops for decoplans, displayed in yellow.
JeanDo
parents: 277
diff changeset
2622
8514588eb6a2 Mark gas-switch stops for decoplans, displayed in yellow.
JeanDo
parents: 277
diff changeset
2623 PLED_decoplan_nstd_stop:
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2624 lfsr FSR2,letter
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2625 bsf leftbind
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2626 output_8 ; outputs into Postinc2!
446
92304826000d localisation part2 from Sergei
heinrichsweikamp
parents: 430
diff changeset
2627 STRCAT_PRINT TXT_METER2
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2628
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2629 ;---- Print duration -------------------------------------------------
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2630 WIN_LEFT .140
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2631 lfsr FSR2,letter
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2632
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2633 movf lo,W ; Swap hi & lo
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2634 movff hi,lo
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2635 movwf hi
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2636
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2637 output_8 ; Allow up to 240'
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2638 STRCAT_PRINT "' " ; 1 to 3 chars for depth.
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2639
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2640 movf lo,W ; Swap back hi & lo
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2641 movff hi,lo
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2642 movwf hi
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2643
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2644 ;---------------------------------------------------------------------
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2645 ; Draw the bar graph used for deco stops (decoplan in simulator or dive).
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2646 movff win_top,WREG ; Increment win_top (BANK SAFE)
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2647 incf WREG
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2648 movff WREG,win_top
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2649 movlw d'18'+1 ; 19 --> height (bank safe !)
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2650 movff WREG,win_height
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2651 movlw .122
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2652 movff WREG,win_leftx2 ; column left (0-159)
150
fc699a7460e6 Fix desat graph:
JeanDo
parents: 149
diff changeset
2653 movlw .16
fc699a7460e6 Fix desat graph:
JeanDo
parents: 149
diff changeset
2654 movff WREG,win_width ; column max width.
fc699a7460e6 Fix desat graph:
JeanDo
parents: 149
diff changeset
2655
fc699a7460e6 Fix desat graph:
JeanDo
parents: 149
diff changeset
2656 ; Draw used area (hi = minutes):
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2657 movlw d'16' ; Limit length (16min)
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2658 cpfslt hi
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2659 movwf hi
150
fc699a7460e6 Fix desat graph:
JeanDo
parents: 149
diff changeset
2660 movff hi,win_bargraph ; Active width, the rest is cleared.
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2661 call PLED_box
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2662
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2663 ; Restore win_top
279
8514588eb6a2 Mark gas-switch stops for decoplans, displayed in yellow.
JeanDo
parents: 277
diff changeset
2664 call PLED_standard_color
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2665 movff win_top,WREG ; decf win_top (BANK SAFE)
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2666 decf WREG
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2667 movff WREG,win_top
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2668 return
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
2669
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
2670 ;-----------------------------------------------------------------------------
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2671 ; Clear unused area belw last stop
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2672 ; Inputs: win_top : last used area...
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2673 PLED_decoplan_clear_bottom:
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2674 movff win_top,WREG ; Get back from bank0
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2675 btfsc divemode ; In dive mode ?
150
fc699a7460e6 Fix desat graph:
JeanDo
parents: 149
diff changeset
2676 sublw .168 ; Yes: bottom row in divemode
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2677 btfss divemode ; In dive mode ?
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2678 sublw .240 ; No: bottom row in planning
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2679 movff WREG,win_height
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2680
292
21a0f7393468 New CNS calculation in decoplan.
JeanDo
parents: 290
diff changeset
2681 WIN_LEFT .85 ; Full divemenu width
21a0f7393468 New CNS calculation in decoplan.
JeanDo
parents: 290
diff changeset
2682 movlw .160-.85+1
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2683 movff WREG,win_width
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2684
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2685 clrf WREG ; Fill with black
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2686 movff WREG,win_color1
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2687 movff WREG,win_color2
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2688
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2689 goto PLED_box
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
2690
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
2691 ;-----------------------------------------------------------------------------
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2692 ; Display the decoplan (simulator or divemode) for GF model
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2693 ; Inputs: char_O_deco_table (array of stop times, in minutes)
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2694 ; decoplan_page = page number. Displays 5 stop by page.
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2695 ;
164
999abb01c78f + Change data allocation scheme
JeanDo
parents: 163
diff changeset
2696 #define decoplan_index apnoe_mins ; within each page
999abb01c78f + Change data allocation scheme
JeanDo
parents: 163
diff changeset
2697 #define decoplan_gindex apnoe_secs ; global index
999abb01c78f + Change data allocation scheme
JeanDo
parents: 163
diff changeset
2698 #define decoplan_last apnoe_max_pressure ; Depth of last stop (CF#29)
999abb01c78f + Change data allocation scheme
JeanDo
parents: 163
diff changeset
2699 #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
2700
169
e26f49674956 Merge decoplan display for both GF and Buhlmann models.
JeanDo
parents: 168
diff changeset
2701 PLED_decoplan:
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2702 ostc_debug 'n' ; Sends debug-information to screen if debugmode active
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2703
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2704 WIN_INVERT 0
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2705
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2706 ;---- Is there deco stops ? ------------------------------------------
169
e26f49674956 Merge decoplan display for both GF and Buhlmann models.
JeanDo
parents: 168
diff changeset
2707 movff char_O_first_deco_depth,WREG
e26f49674956 Merge decoplan display for both GF and Buhlmann models.
JeanDo
parents: 168
diff changeset
2708 iorwf WREG
e26f49674956 Merge decoplan display for both GF and Buhlmann models.
JeanDo
parents: 168
diff changeset
2709 bnz PLED_decoplan_1
e26f49674956 Merge decoplan display for both GF and Buhlmann models.
JeanDo
parents: 168
diff changeset
2710
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2711 ;---- No Deco --------------------------------------------------------
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2712 call PLED_standard_color
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2713 DISPLAYTEXT d'239' ;"No Deco"
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2714 bsf last_ceiling_gf_shown
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2715 return
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2716
169
e26f49674956 Merge decoplan display for both GF and Buhlmann models.
JeanDo
parents: 168
diff changeset
2717 PLED_decoplan_1:
e26f49674956 Merge decoplan display for both GF and Buhlmann models.
JeanDo
parents: 168
diff changeset
2718 lfsr FSR0,char_O_deco_depth ; Initialize indexed addressing.
e26f49674956 Merge decoplan display for both GF and Buhlmann models.
JeanDo
parents: 168
diff changeset
2719 lfsr FSR1,char_O_deco_time
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2720
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2721 movlw .8 ; 8 lines/page in decoplan
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2722 btfsc divemode
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2723 movlw .6 ; 6 lines/page in divemode.
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2724 movwf decoplan_max
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2725
169
e26f49674956 Merge decoplan display for both GF and Buhlmann models.
JeanDo
parents: 168
diff changeset
2726 clrf decoplan_index ; Start with index = 0
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2727 clrf WREG
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2728 movff WREG,win_top ; and row = 0
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2729
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2730 ; Read stop parameters, indexed by decoplan_index and decoplan_page
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2731 movf decoplan_page,W ; decoplan_gindex = 6*decoplan_page + decoplan_index
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2732 mulwf decoplan_max
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2733 movf decoplan_index,W
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2734 addwf PRODL,W
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2735 movwf decoplan_gindex ; --> decoplan_gindex
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2736
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2737 bcf last_ceiling_gf_shown ; Not finished yet...
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2738
169
e26f49674956 Merge decoplan display for both GF and Buhlmann models.
JeanDo
parents: 168
diff changeset
2739 PLED_decoplan_2:
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2740 btfsc decoplan_gindex,5 ; Reached table length (32) ?
169
e26f49674956 Merge decoplan display for both GF and Buhlmann models.
JeanDo
parents: 168
diff changeset
2741 bra PLED_decoplan_99 ; YES: finished...
e26f49674956 Merge decoplan display for both GF and Buhlmann models.
JeanDo
parents: 168
diff changeset
2742
e26f49674956 Merge decoplan display for both GF and Buhlmann models.
JeanDo
parents: 168
diff changeset
2743 ; Read stop parameters, indexed by decoplan_index
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2744 movf decoplan_gindex,W ; index
169
e26f49674956 Merge decoplan display for both GF and Buhlmann models.
JeanDo
parents: 168
diff changeset
2745 movff PLUSW1,hi ; char_O_deco_time [gindex] --> hi
e26f49674956 Merge decoplan display for both GF and Buhlmann models.
JeanDo
parents: 168
diff changeset
2746 movff PLUSW0,lo ; char_O_deco_depth[gindex]
e26f49674956 Merge decoplan display for both GF and Buhlmann models.
JeanDo
parents: 168
diff changeset
2747 movf lo,W
e26f49674956 Merge decoplan display for both GF and Buhlmann models.
JeanDo
parents: 168
diff changeset
2748 bz PLED_decoplan_99 ; depth == 0 : finished.
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2749
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2750 ; Display the stop line
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2751 call PLED_decoplan_show_stop
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2752
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2753 ; Next
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2754 movff win_top,WREG ; row: += 24
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2755 addlw .24
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2756 movff WREG,win_top
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2757 incf decoplan_index,F ; local index += 1
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2758 incf decoplan_gindex,F ; global index += 1
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2759
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2760 ; Max number of lines/page reached ?
169
e26f49674956 Merge decoplan display for both GF and Buhlmann models.
JeanDo
parents: 168
diff changeset
2761 movf decoplan_max,W ; index+1 == max ?
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2762 cpfseq decoplan_index
169
e26f49674956 Merge decoplan display for both GF and Buhlmann models.
JeanDo
parents: 168
diff changeset
2763 bra PLED_decoplan_2 ; NO: loop
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2764
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2765 ; Check if next stop if end-of-list ?
169
e26f49674956 Merge decoplan display for both GF and Buhlmann models.
JeanDo
parents: 168
diff changeset
2766 movf decoplan_gindex,W
e26f49674956 Merge decoplan display for both GF and Buhlmann models.
JeanDo
parents: 168
diff changeset
2767 movff PLUSW0,WREG ; char_O_deco_depth[gindex]
e26f49674956 Merge decoplan display for both GF and Buhlmann models.
JeanDo
parents: 168
diff changeset
2768 iorwf WREG
e26f49674956 Merge decoplan display for both GF and Buhlmann models.
JeanDo
parents: 168
diff changeset
2769 bz PLED_decoplan_99 ; End of list...
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2770
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2771 ; Display the message "more..."
223
2a0a446fa6c0 Show decoplan.
JeanDo
parents: 221
diff changeset
2772 bcf last_ceiling_gf_shown ; More page to display...
2a0a446fa6c0 Show decoplan.
JeanDo
parents: 221
diff changeset
2773
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2774 rcall PLED_decoplan_clear_bottom ; Clear from next line
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2775
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2776 WIN_LEFT .130 - 7*3
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2777 call PLED_standard_color
223
2a0a446fa6c0 Show decoplan.
JeanDo
parents: 221
diff changeset
2778 lfsr FSR2,letter
2a0a446fa6c0 Show decoplan.
JeanDo
parents: 221
diff changeset
2779 OUTPUTTEXT .142 ; More...
2a0a446fa6c0 Show decoplan.
JeanDo
parents: 221
diff changeset
2780 goto word_processor
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2781
169
e26f49674956 Merge decoplan display for both GF and Buhlmann models.
JeanDo
parents: 168
diff changeset
2782 PLED_decoplan_99:
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2783 bsf last_ceiling_gf_shown ; Nothing more in table to display.
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2784 rcall PLED_decoplan_clear_bottom ; Clear from next line
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2785 return
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2786 ;-----------------------------------------------------------------------------
289
6d8a2550c9ea Fix zero-depth gas color in de-activation menu.
JeanDo
parents: 287
diff changeset
2787 ; Toggle gas activity flag during dive.
6d8a2550c9ea Fix zero-depth gas color in de-activation menu.
JeanDo
parents: 287
diff changeset
2788 ;
290
4dbff2aa31ee Hunting for refusing to ignore disabled gas in list...
JeanDo
parents: 289
diff changeset
2789 ; Input: gaslist_active
289
6d8a2550c9ea Fix zero-depth gas color in de-activation menu.
JeanDo
parents: 287
diff changeset
2790 ; Gaslist from eeprom[2...]
6d8a2550c9ea Fix zero-depth gas color in de-activation menu.
JeanDo
parents: 287
diff changeset
2791 ;
290
4dbff2aa31ee Hunting for refusing to ignore disabled gas in list...
JeanDo
parents: 289
diff changeset
2792 ; Output: gaslist_active
289
6d8a2550c9ea Fix zero-depth gas color in de-activation menu.
JeanDo
parents: 287
diff changeset
2793 ;
6d8a2550c9ea Fix zero-depth gas color in de-activation menu.
JeanDo
parents: 287
diff changeset
2794 ; 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
2795 ; should not be displayed as selected here...
6d8a2550c9ea Fix zero-depth gas color in de-activation menu.
JeanDo
parents: 287
diff changeset
2796 ;
219
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2797 PLED_de_activelist: ; show (de)active gaslist
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2798 call PLED_standard_color
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2799 DISPLAYTEXT .254 ; Close
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2800
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2801 WIN_LEFT .100
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2802 WIN_FONT FT_SMALL
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2803 bsf leftbind
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2804
281
f8f865c70a0d no more sorted gaslist...
heinrichsweikamp
parents: 280
diff changeset
2805 movlw d'2'
219
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2806 movwf wait_temp ; here: stores eeprom address for gas list
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2807 movlw d'0'
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2808 movwf waitms_temp ; here: stores row for gas list
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2809 clrf hi ; here: Gas counter
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2810
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2811 PLED_de_activelist_loop:
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2812 incf hi,F ; Increase Gas
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2813 movlw d'4'
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2814 addwf wait_temp,F ; Increase eeprom address for gas list
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2815 movlw d'25'
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2816 addwf waitms_temp,F ; Increase row
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2817 WIN_LEFT .100
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2818 movff waitms_temp,win_top ; Set Row
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2819
221
448478ceccea new sorted_gaslist_active flag register
heinrichsweikamp
parents: 219
diff changeset
2820 lfsr FSR2,letter
219
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2821 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
2822 call read_eeprom ; get byte (stored in EEDATA)
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2823 movff EEDATA,lo ; copy to lo
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2824 output_8 ; outputs into Postinc2!
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2825 PUTC '/'
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2826 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
2827 call read_eeprom ; get byte (stored in EEDATA)
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2828 movff EEDATA,lo ; copy to lo
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2829 output_8 ; outputs into Postinc2!
221
448478ceccea new sorted_gaslist_active flag register
heinrichsweikamp
parents: 219
diff changeset
2830 PUTC '@'
448478ceccea new sorted_gaslist_active flag register
heinrichsweikamp
parents: 219
diff changeset
2831
281
f8f865c70a0d no more sorted gaslist...
heinrichsweikamp
parents: 280
diff changeset
2832 movlw d'27'
221
448478ceccea new sorted_gaslist_active flag register
heinrichsweikamp
parents: 219
diff changeset
2833 addwf hi,W
448478ceccea new sorted_gaslist_active flag register
heinrichsweikamp
parents: 219
diff changeset
2834 movwf EEADR ; Point to Change depth
448478ceccea new sorted_gaslist_active flag register
heinrichsweikamp
parents: 219
diff changeset
2835
219
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2836 call read_eeprom ; get byte (stored in EEDATA)
221
448478ceccea new sorted_gaslist_active flag register
heinrichsweikamp
parents: 219
diff changeset
2837 movff EEDATA,lo ; copy to lo
448478ceccea new sorted_gaslist_active flag register
heinrichsweikamp
parents: 219
diff changeset
2838 output_8 ; outputs into Postinc2!
448478ceccea new sorted_gaslist_active flag register
heinrichsweikamp
parents: 219
diff changeset
2839
289
6d8a2550c9ea Fix zero-depth gas color in de-activation menu.
JeanDo
parents: 287
diff changeset
2840 movf lo,w ; Gas with a zero depth
6d8a2550c9ea Fix zero-depth gas color in de-activation menu.
JeanDo
parents: 287
diff changeset
2841 bz PLED_de_activelist_grey ; should be displayed inactive.
6d8a2550c9ea Fix zero-depth gas color in de-activation menu.
JeanDo
parents: 287
diff changeset
2842
219
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2843 ; 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
2844 movff gaslist_active,EEDATA ; Get flag register
219
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2845 movff hi,lo ; copy gas number
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2846 PLED_de_activelist_loop1:
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2847 rrcf EEDATA ; roll flags into carry
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2848 decfsz lo,F ; max. 5 times...
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2849 bra PLED_de_activelist_loop1
289
6d8a2550c9ea Fix zero-depth gas color in de-activation menu.
JeanDo
parents: 287
diff changeset
2850 bc PLED_de_activelist_white
6d8a2550c9ea Fix zero-depth gas color in de-activation menu.
JeanDo
parents: 287
diff changeset
2851
6d8a2550c9ea Fix zero-depth gas color in de-activation menu.
JeanDo
parents: 287
diff changeset
2852 PLED_de_activelist_grey: ; grey out inactive gases!
587
1b021a280e15 NEW CF64: Configures color for inactive gases
heinrichsweikamp
parents: 576
diff changeset
2853 GETCUSTOM8 d'64' ;movlw color_grey
289
6d8a2550c9ea Fix zero-depth gas color in de-activation menu.
JeanDo
parents: 287
diff changeset
2854 call PLED_set_color
6d8a2550c9ea Fix zero-depth gas color in de-activation menu.
JeanDo
parents: 287
diff changeset
2855
6d8a2550c9ea Fix zero-depth gas color in de-activation menu.
JeanDo
parents: 287
diff changeset
2856 PLED_de_activelist_white:
219
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2857 call word_processor
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2858 call PLED_standard_color
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2859
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2860 movlw d'5' ; list all five gases
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2861 cpfseq hi ; All gases shown?
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2862 bra PLED_de_activelist_loop ; No
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2863
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2864 return ; return
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2865
528
67ab3c028bc2 Show change gas depth below gaslist (in divemode)
heinrichsweikamp
parents: 525
diff changeset
2866 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
2867 btfsc display_set_setpoint ; In Setpoint list?
67ab3c028bc2 Show change gas depth below gaslist (in divemode)
heinrichsweikamp
parents: 525
diff changeset
2868 return ; Yes, return.
67ab3c028bc2 Show change gas depth below gaslist (in divemode)
heinrichsweikamp
parents: 525
diff changeset
2869 movlw color_yellow ; Blink in yellow
67ab3c028bc2 Show change gas depth below gaslist (in divemode)
heinrichsweikamp
parents: 525
diff changeset
2870 call PLED_set_color
67ab3c028bc2 Show change gas depth below gaslist (in divemode)
heinrichsweikamp
parents: 525
diff changeset
2871 WIN_LEFT .95
532
f5a06b9e2fef cleanup debug stuff
heinrichsweikamp
parents: 529
diff changeset
2872 WIN_TOP .148
528
67ab3c028bc2 Show change gas depth below gaslist (in divemode)
heinrichsweikamp
parents: 525
diff changeset
2873 WIN_FONT FT_SMALL
67ab3c028bc2 Show change gas depth below gaslist (in divemode)
heinrichsweikamp
parents: 525
diff changeset
2874
67ab3c028bc2 Show change gas depth below gaslist (in divemode)
heinrichsweikamp
parents: 525
diff changeset
2875 movlw .6
67ab3c028bc2 Show change gas depth below gaslist (in divemode)
heinrichsweikamp
parents: 525
diff changeset
2876 cpfslt menupos ; <6?
67ab3c028bc2 Show change gas depth below gaslist (in divemode)
heinrichsweikamp
parents: 525
diff changeset
2877 bra PLED_show_change_depth_clear ; Yes!
67ab3c028bc2 Show change gas depth below gaslist (in divemode)
heinrichsweikamp
parents: 525
diff changeset
2878
67ab3c028bc2 Show change gas depth below gaslist (in divemode)
heinrichsweikamp
parents: 525
diff changeset
2879 bsf leftbind
67ab3c028bc2 Show change gas depth below gaslist (in divemode)
heinrichsweikamp
parents: 525
diff changeset
2880 STRCPY TXT_GAS1
67ab3c028bc2 Show change gas depth below gaslist (in divemode)
heinrichsweikamp
parents: 525
diff changeset
2881 movff menupos,lo
67ab3c028bc2 Show change gas depth below gaslist (in divemode)
heinrichsweikamp
parents: 525
diff changeset
2882 output_8 ; Show gas number
532
f5a06b9e2fef cleanup debug stuff
heinrichsweikamp
parents: 529
diff changeset
2883 STRCAT TXT_AT4 ; " at "
528
67ab3c028bc2 Show change gas depth below gaslist (in divemode)
heinrichsweikamp
parents: 525
diff changeset
2884 decf menupos,W
67ab3c028bc2 Show change gas depth below gaslist (in divemode)
heinrichsweikamp
parents: 525
diff changeset
2885 addlw d'28' ; offset in memory
67ab3c028bc2 Show change gas depth below gaslist (in divemode)
heinrichsweikamp
parents: 525
diff changeset
2886 movwf EEADR
67ab3c028bc2 Show change gas depth below gaslist (in divemode)
heinrichsweikamp
parents: 525
diff changeset
2887 call read_eeprom ; Low-value
67ab3c028bc2 Show change gas depth below gaslist (in divemode)
heinrichsweikamp
parents: 525
diff changeset
2888 movff EEDATA,lo
67ab3c028bc2 Show change gas depth below gaslist (in divemode)
heinrichsweikamp
parents: 525
diff changeset
2889 output_8 ; Show gas number
532
f5a06b9e2fef cleanup debug stuff
heinrichsweikamp
parents: 529
diff changeset
2890 STRCAT_PRINT TXT_METER2 ; "m "
528
67ab3c028bc2 Show change gas depth below gaslist (in divemode)
heinrichsweikamp
parents: 525
diff changeset
2891 bcf leftbind
67ab3c028bc2 Show change gas depth below gaslist (in divemode)
heinrichsweikamp
parents: 525
diff changeset
2892 call PLED_standard_color
67ab3c028bc2 Show change gas depth below gaslist (in divemode)
heinrichsweikamp
parents: 525
diff changeset
2893 return
67ab3c028bc2 Show change gas depth below gaslist (in divemode)
heinrichsweikamp
parents: 525
diff changeset
2894
67ab3c028bc2 Show change gas depth below gaslist (in divemode)
heinrichsweikamp
parents: 525
diff changeset
2895 PLED_show_change_depth_clear:
67ab3c028bc2 Show change gas depth below gaslist (in divemode)
heinrichsweikamp
parents: 525
diff changeset
2896 STRCPY_PRINT " "
67ab3c028bc2 Show change gas depth below gaslist (in divemode)
heinrichsweikamp
parents: 525
diff changeset
2897 return
67ab3c028bc2 Show change gas depth below gaslist (in divemode)
heinrichsweikamp
parents: 525
diff changeset
2898
219
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
2899
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2900 PLED_gas_list:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2901 ostc_debug 'm' ; Sends debug-information to screen if debugmode active
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2902
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2903 WIN_LEFT .100
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2904 WIN_FONT FT_SMALL
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2905 bsf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2906
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2907 movlw d'2'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2908 movwf wait_temp ; here: stores eeprom address for gas list
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2909 movlw d'231'
71
6beb680a6130 1.72beta - color-coded gaslist, small fix with stopwatch
heinrichsweikamp
parents: 70
diff changeset
2910 movwf waitms_temp ; here: stores row for gas list
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2911 clrf hi ; here: Gas counter
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2912
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2913 PLED_gas_list_loop:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2914 incf hi,F ; Increase Gas
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2915 movlw d'4'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2916 addwf wait_temp,F ; Increase eeprom address for gas list
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2917 movlw d'25'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2918 addwf waitms_temp,F ; Increase row
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2919 WIN_LEFT .100
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2920 movff waitms_temp,win_top ; Set Row
446
92304826000d localisation part2 from Sergei
heinrichsweikamp
parents: 430
diff changeset
2921 STRCPY TXT_GAS1
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2922 movff hi,lo ; copy gas number
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2923 output_8 ; display gas number
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
2924 PUTC ':'
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2925 movff wait_temp, EEADR; Gas #hi: %O2 - Set address in internal EEPROM
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2926 call read_eeprom ; get byte (stored in EEDATA)
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2927 movff EEDATA,lo ; copy to lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2928 output_8 ; outputs into Postinc2!
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
2929 PUTC '/'
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2930 incf EEADR,F ; Gas #hi: %He - Set address in internal EEPROM
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2931 call read_eeprom ; get byte (stored in EEDATA)
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2932 movff EEDATA,lo ; copy to lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2933 output_8 ; outputs into Postinc2!
71
6beb680a6130 1.72beta - color-coded gaslist, small fix with stopwatch
heinrichsweikamp
parents: 70
diff changeset
2934
6beb680a6130 1.72beta - color-coded gaslist, small fix with stopwatch
heinrichsweikamp
parents: 70
diff changeset
2935 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
2936 call read_eeprom ; get byte (stored in EEDATA)
6beb680a6130 1.72beta - color-coded gaslist, small fix with stopwatch
heinrichsweikamp
parents: 70
diff changeset
2937 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
2938
8d2dc109ecfc NEW: Gaslist highlights "better gas" in divemode
heinrichsweikamp
parents: 624
diff changeset
2939 ; Check if the "better gas" should be highlighted
8d2dc109ecfc NEW: Gaslist highlights "better gas" in divemode
heinrichsweikamp
parents: 624
diff changeset
2940
8d2dc109ecfc NEW: Gaslist highlights "better gas" in divemode
heinrichsweikamp
parents: 624
diff changeset
2941 WIN_INVERT .0 ; Init new Wordprocessor
8d2dc109ecfc NEW: Gaslist highlights "better gas" in divemode
heinrichsweikamp
parents: 624
diff changeset
2942 movf better_gas_number,W ; better gas 1-5?
8d2dc109ecfc NEW: Gaslist highlights "better gas" in divemode
heinrichsweikamp
parents: 624
diff changeset
2943 cpfseq hi ; compare with gas#
8d2dc109ecfc NEW: Gaslist highlights "better gas" in divemode
heinrichsweikamp
parents: 624
diff changeset
2944 bra PLED_gas_list_loop2 ; No equal, skip
8d2dc109ecfc NEW: Gaslist highlights "better gas" in divemode
heinrichsweikamp
parents: 624
diff changeset
2945
8d2dc109ecfc NEW: Gaslist highlights "better gas" in divemode
heinrichsweikamp
parents: 624
diff changeset
2946 movlw color_yellow ; Blink in yellow
8d2dc109ecfc NEW: Gaslist highlights "better gas" in divemode
heinrichsweikamp
parents: 624
diff changeset
2947 call PLED_set_color
8d2dc109ecfc NEW: Gaslist highlights "better gas" in divemode
heinrichsweikamp
parents: 624
diff changeset
2948 WIN_INVERT .1 ; Init new Wordprocessor
8d2dc109ecfc NEW: Gaslist highlights "better gas" in divemode
heinrichsweikamp
parents: 624
diff changeset
2949
8d2dc109ecfc NEW: Gaslist highlights "better gas" in divemode
heinrichsweikamp
parents: 624
diff changeset
2950 PLED_gas_list_loop2:
281
f8f865c70a0d no more sorted gaslist...
heinrichsweikamp
parents: 280
diff changeset
2951 ; 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
2952 movff gaslist_active, EEDATA ; Work with sorted list
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2953 movff hi,lo ; copy gas number
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2954 PLED_gas_list_loop1:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2955 rrcf EEDATA ; roll flags into carry
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2956 decfsz lo,F ; max. 5 times...
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2957 bra PLED_gas_list_loop1
19
07e7ca48b49d 1.56 rc1
heinrichsweikamp
parents: 17
diff changeset
2958
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2959 btfss STATUS,C ; test carry
587
1b021a280e15 NEW CF64: Configures color for inactive gases
heinrichsweikamp
parents: 576
diff changeset
2960 rcall PLED_gas_list_grey
1b021a280e15 NEW CF64: Configures color for inactive gases
heinrichsweikamp
parents: 576
diff changeset
2961
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2962 call word_processor
19
07e7ca48b49d 1.56 rc1
heinrichsweikamp
parents: 17
diff changeset
2963 call PLED_standard_color
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2964
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2965 movlw d'5' ; list all five gases
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2966 cpfseq hi ; All gases shown?
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2967 bra PLED_gas_list_loop ; No
98
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 91
diff changeset
2968
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
2969 DISPLAYTEXT d'122' ; More
98
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 91
diff changeset
2970 return ; return (OC mode)
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2971
587
1b021a280e15 NEW CF64: Configures color for inactive gases
heinrichsweikamp
parents: 576
diff changeset
2972 PLED_gas_list_grey:
1b021a280e15 NEW CF64: Configures color for inactive gases
heinrichsweikamp
parents: 576
diff changeset
2973 GETCUSTOM8 d'64' ;movlw color_grey
1b021a280e15 NEW CF64: Configures color for inactive gases
heinrichsweikamp
parents: 576
diff changeset
2974 call PLED_set_color ; grey out inactive gases!
1b021a280e15 NEW CF64: Configures color for inactive gases
heinrichsweikamp
parents: 576
diff changeset
2975 return
1b021a280e15 NEW CF64: Configures color for inactive gases
heinrichsweikamp
parents: 576
diff changeset
2976
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2977 PLED_splist_start:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2978 WIN_LEFT .100
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2979 WIN_FONT FT_SMALL
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2980 bsf leftbind
127
245de99d1d15 FIX SetPoint list color.
JeanDo
parents: 125
diff changeset
2981 call PLED_standard_color
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2982
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2983 ; list three SP in Gaslist
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2984 movlw d'35' ; 36 = current SP position in EEPROM
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2985 movwf wait_temp ; here: stores eeprom address for gas list
525
f9a03808dfe2 moving "bailout" on top of setpoint list
heinrichsweikamp
parents: 519
diff changeset
2986 movlw d'0'
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2987 movwf waitms_temp ; here: stores row for gas list
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2988 clrf decoplan_index ; here: SP counter
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2989
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2990 PLED_splist_loop:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2991 incf wait_temp,F ; EEPROM address
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
2992 incf decoplan_index,F ; Increase SP
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2993
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2994 movlw d'25'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2995 addwf waitms_temp,F ; Increase row
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2996 movff waitms_temp,win_top ; Set Row
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2997 WIN_LEFT .100
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
2998
446
92304826000d localisation part2 from Sergei
heinrichsweikamp
parents: 430
diff changeset
2999 STRCPY TXT_SP2
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
3000 movff decoplan_index,lo ; copy gas number
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3001 output_8 ; display gas number
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3002 PUTC ':'
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3003 movff wait_temp, EEADR; SP #hi position
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3004 call read_eeprom ; get byte (stored in EEDATA)
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3005 movff EEDATA,lo ; copy to lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3006 clrf hi
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3007 output_16dp d'3' ; outputs into Postinc2!
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3008 call word_processor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3009
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3010 movlw d'3' ; list all three SP
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
3011 cpfseq decoplan_index ; All gases shown?
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3012 bra PLED_splist_loop ; No
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3013
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3014 bcf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3015 return ; no, return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3016
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3017 PLED_clear_divemode_menu:
517
a73a452ca155 Backed out changeset: b498245da3f1
heinrichsweikamp
parents: 516
diff changeset
3018 WIN_BOX_BLACK .0, .168, .85, .160 ;top, bottom, left, right
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3019 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3020
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3021 PLED_divemenu_cursor:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3022 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
3023
204
aad4f6e25c2d fix in logbook detail view
heinrichsweikamp
parents: 199
diff changeset
3024 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
3025
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3026 WIN_TOP .0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3027 WIN_LEFT .85
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3028 WIN_FONT FT_SMALL
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3029 WIN_INVERT .0 ; Init new Wordprocessor
3
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
3030 call PLED_standard_color
84
0f4c175ef824 FIX flickering in new CF menus
JeanDo
parents: 83
diff changeset
3031
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3032 movff menupos,temp1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3033 movlw d'0'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3034 dcfsnz temp1,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3035 movlw d'0'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3036 dcfsnz temp1,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3037 movlw d'25'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3038 dcfsnz temp1,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3039 movlw d'50'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3040 dcfsnz temp1,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3041 movlw d'75'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3042 dcfsnz temp1,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3043 movlw d'100'
98
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 91
diff changeset
3044 dcfsnz temp1,F
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 91
diff changeset
3045 movlw d'125'
219
b6dd54b3567c NEW: De/Activate gases underwater (Gaslist -> Gas6.. -> Actve?)
heinrichsweikamp
parents: 209
diff changeset
3046
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3047 movff WREG,win_top
129
06c4899ddb4b Custom views in dive mode configrable (New CF50-CF53)
Heinrichsweikamp
parents: 127
diff changeset
3048 STRCPY_PRINT "\xB7" ; Cursor
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3049 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3050
128
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3051
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3052 ;=============================================================================
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3053 ; Draw saturation graph, is surface mode or in dive mode.
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3054 ;
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3055 PLED_tissue_saturation_graph:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3056 ostc_debug 'i' ; Sends debug-information to screen if debugmode active
13
3b30cd739782 1.53 beta rc2
heinrichsweikamp
parents: 12
diff changeset
3057
128
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3058 ;---- Draw Frame ---------------------------------------------------------
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3059 btfsc divemode
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3060 bra PLED_tsg_1
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3061
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3062 WIN_FRAME_STD .25, .120, .82, .159 ; Surfmode
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3063 bra PLED_tsg_2
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3064 PLED_tsg_1:
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3065 WIN_FRAME_STD .169, .239, .90, .159 ; Divemode
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3066 PLED_tsg_2:
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3067
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3068 ;---- Draw grid ----------------------------------------------------------
133
35567a646fe5 Minor merge fixes...
JeanDo
parents: 131
diff changeset
3069 btfss divemode
35567a646fe5 Minor merge fixes...
JeanDo
parents: 131
diff changeset
3070 bra PLED_no_graph_grid
35567a646fe5 Minor merge fixes...
JeanDo
parents: 131
diff changeset
3071
587
1b021a280e15 NEW CF64: Configures color for inactive gases
heinrichsweikamp
parents: 576
diff changeset
3072 GETCUSTOM8 d'64' ;movlw color_grey
128
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3073 call PLED_set_color
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3074
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3075 movlw .169+.1 ; divemode
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3076 movff WREG,win_top
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3077 movlw .239-.169-.1 ; divemode
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3078 movff WREG,win_height
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3079
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3080 movlw 1
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3081 movff WREG,win_width
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3082
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3083 movlw .122
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3084 movff WREG,win_leftx2
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3085 call PLED_box
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3086 movlw .131
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3087 movff WREG,win_leftx2
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3088 call PLED_box
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3089 movlw .140
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3090 movff WREG,win_leftx2
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3091 call PLED_box
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3092 movlw .149
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3093 movff WREG,win_leftx2
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3094 call PLED_box
133
35567a646fe5 Minor merge fixes...
JeanDo
parents: 131
diff changeset
3095 PLED_no_graph_grid:
128
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3096
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3097 ;---- Draw N2 Tissues ----------------------------------------------------
339
cb77d1fa4535 More cleanups in internal deco structures.
JeanDo
parents: 326
diff changeset
3098 lfsr FSR2, char_O_tissue_N2_saturation
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3099 movlw d'16'
128
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3100 movwf wait_temp ; 16 tissues
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3101 clrf waitms_temp ; Row offset
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3102
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3103 movlw .1
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3104 movff WREG,win_height ; row bottom (0-239)
128
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3105 movlw .82+.18 ; surfmode
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3106 btfsc divemode
133
35567a646fe5 Minor merge fixes...
JeanDo
parents: 131
diff changeset
3107 movlw .90+.18 ; divemode
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3108 movff WREG,win_leftx2 ; column left (0-159)
150
fc699a7460e6 Fix desat graph:
JeanDo
parents: 149
diff changeset
3109 movlw .57 ; surfmode: max width 57pix
fc699a7460e6 Fix desat graph:
JeanDo
parents: 149
diff changeset
3110 btfsc divemode
fc699a7460e6 Fix desat graph:
JeanDo
parents: 149
diff changeset
3111 movlw .57-8 ; divemode: 8pix less...
fc699a7460e6 Fix desat graph:
JeanDo
parents: 149
diff changeset
3112 movff WREG,win_width
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3113
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3114 PLED_tissue_saturation_graph3:
150
fc699a7460e6 Fix desat graph:
JeanDo
parents: 149
diff changeset
3115 call PLED_standard_color ; Reset color foreach iteration
fc699a7460e6 Fix desat graph:
JeanDo
parents: 149
diff changeset
3116
128
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3117 movlw .25+3 ; surfmode: 3pix below top border
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3118 btfsc divemode
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3119 movlw .169+3 ; divemode
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3120 addwf waitms_temp,W
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3121 movff WREG,win_top ; row top (0-239)
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3122
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3123 incf waitms_temp,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3124 incf waitms_temp,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3125
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3126 movf POSTINC2,W
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3127 bcf STATUS,C ; Clear carry
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3128 rrcf WREG ; And divide by 4
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3129 bcf STATUS,C
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3130 rrcf WREG
133
35567a646fe5 Minor merge fixes...
JeanDo
parents: 131
diff changeset
3131 movwf temp1
35567a646fe5 Minor merge fixes...
JeanDo
parents: 131
diff changeset
3132
150
fc699a7460e6 Fix desat graph:
JeanDo
parents: 149
diff changeset
3133 movff win_width,WREG ; Max width.
133
35567a646fe5 Minor merge fixes...
JeanDo
parents: 131
diff changeset
3134 cpfslt temp1 ; skip if 57 (WREG) < win_width
35567a646fe5 Minor merge fixes...
JeanDo
parents: 131
diff changeset
3135 movwf temp1
150
fc699a7460e6 Fix desat graph:
JeanDo
parents: 149
diff changeset
3136 movff temp1,win_bargraph
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3137
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3138 call PLED_box
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3139
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3140 decfsz wait_temp,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3141 bra PLED_tissue_saturation_graph3
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3142
128
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3143 ;---- Draw He Tissues ----------------------------------------------------
339
cb77d1fa4535 More cleanups in internal deco structures.
JeanDo
parents: 326
diff changeset
3144 lfsr FSR2, char_O_tissue_He_saturation
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3145 movlw d'16'
128
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3146 movwf wait_temp ; 16 tissues
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3147 clrf waitms_temp ; Row offset
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3148
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3149 PLED_tissue_saturation_graph2:
150
fc699a7460e6 Fix desat graph:
JeanDo
parents: 149
diff changeset
3150 call PLED_standard_color ; Reset color foreach iteration
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3151
128
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3152 movlw .120-.33 ; surfmode : 33pix above bottom border
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3153 btfsc divemode
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3154 movlw .239-.33 ; divemode
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3155 addwf waitms_temp,W
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3156 movff WREG,win_top ; row top (0-239)
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3157
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3158 incf waitms_temp,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3159 incf waitms_temp,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3160
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3161 movf POSTINC2,W
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3162 bcf STATUS,C ; Clear carry
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3163 rrcf WREG ; And divide by 4
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3164 bcf STATUS,C
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3165 rrcf WREG
133
35567a646fe5 Minor merge fixes...
JeanDo
parents: 131
diff changeset
3166 movwf temp1
150
fc699a7460e6 Fix desat graph:
JeanDo
parents: 149
diff changeset
3167
fc699a7460e6 Fix desat graph:
JeanDo
parents: 149
diff changeset
3168 movff win_width,WREG ; Max width.
133
35567a646fe5 Minor merge fixes...
JeanDo
parents: 131
diff changeset
3169 cpfslt temp1 ; skip if 57 (WREG) < win_width
35567a646fe5 Minor merge fixes...
JeanDo
parents: 131
diff changeset
3170 movwf temp1
150
fc699a7460e6 Fix desat graph:
JeanDo
parents: 149
diff changeset
3171 movff temp1,win_bargraph
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3172
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3173 call PLED_box
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3174
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3175 decfsz wait_temp,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3176 bra PLED_tissue_saturation_graph2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3177
128
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3178 ;---- Draw N2/He Text ----------------------------------------------------
150
fc699a7460e6 Fix desat graph:
JeanDo
parents: 149
diff changeset
3179 call PLED_standard_color ; Reset color after last iterarion.
fc699a7460e6 Fix desat graph:
JeanDo
parents: 149
diff changeset
3180
128
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3181 movlw .82+2 ; surfmode: 2pix right of left border
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3182 btfsc divemode
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3183 movlw .90+2 ; divemode
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3184 movff WREG,win_leftx2
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3185
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3186 movlw .25+7 ; surfmode: 7pix below top 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 .169+7 ; divemode
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3189 movff WREG,win_top
446
92304826000d localisation part2 from Sergei
heinrichsweikamp
parents: 430
diff changeset
3190 STRCPY_PRINT TXT_N2_2
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3191
128
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3192 movlw .120-.30 ; surfmode: 30pix above bottom border
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3193 btfsc divemode
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3194 movlw .239-.30 ; divemode
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3195 movff WREG,win_top
446
92304826000d localisation part2 from Sergei
heinrichsweikamp
parents: 430
diff changeset
3196 STRCPY_PRINT TXT_HE2
128
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3197
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3198 ;---- Draw scale and O2[16]% ---------------------------------------------
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3199 btfsc divemode
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3200 return
19
07e7ca48b49d 1.56 rc1
heinrichsweikamp
parents: 17
diff changeset
3201
07e7ca48b49d 1.56 rc1
heinrichsweikamp
parents: 17
diff changeset
3202 movff char_O_gtissue_no,wait_temp ; used as temp
07e7ca48b49d 1.56 rc1
heinrichsweikamp
parents: 17
diff changeset
3203
339
cb77d1fa4535 More cleanups in internal deco structures.
JeanDo
parents: 326
diff changeset
3204 lfsr FSR1,char_O_tissue_N2_saturation
cb77d1fa4535 More cleanups in internal deco structures.
JeanDo
parents: 326
diff changeset
3205 movf wait_temp,W ; W <- 0-15
cb77d1fa4535 More cleanups in internal deco structures.
JeanDo
parents: 326
diff changeset
3206 movff PLUSW1,lo ; lo <- FSR1[W]
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3207
19
07e7ca48b49d 1.56 rc1
heinrichsweikamp
parents: 17
diff changeset
3208 WIN_TOP .62
07e7ca48b49d 1.56 rc1
heinrichsweikamp
parents: 17
diff changeset
3209 WIN_FONT FT_SMALL
128
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3210 lfsr FSR2,letter
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3211 bsf leftbind
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3212 output_8
19
07e7ca48b49d 1.56 rc1
heinrichsweikamp
parents: 17
diff changeset
3213 bcf leftbind
07e7ca48b49d 1.56 rc1
heinrichsweikamp
parents: 17
diff changeset
3214
128
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3215 STRCAT_PRINT "% "
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3216
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3217 ;---- Draw Scale ---------------------------------------------------------
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3218 WIN_BOX_STD .73, .74, .121, .157
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3219 WIN_BOX_STD .61, .84, .121, .122
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3220 WIN_BOX_STD .65, .80, .130, .131
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3221 WIN_BOX_STD .65, .80, .139, .140
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3222 WIN_BOX_STD .65, .80, .148, .149
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3223 WIN_BOX_STD .61, .84, .157, .158
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3224 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3225
128
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3226 ;=============================================================================
4c588c3d1f12 Saturation graphs in customview divemode
JeanDo
parents: 127
diff changeset
3227
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3228 PLED_startupscreen1:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3229 call PLED_topline_box
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3230 WIN_INVERT .1 ; Init new Wordprocessor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3231 DISPLAYTEXT d'3' ; "HeinrichsWeikamp"
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3232 WIN_INVERT .0 ; Init new Wordprocessor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3233 DISPLAYTEXT .68 ; Licence 1/2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3234 DISPLAYTEXT .69
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3235 DISPLAYTEXT .70
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3236 DISPLAYTEXT .71
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3237 DISPLAYTEXT .72
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3238 DISPLAYTEXT .73
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3239 DISPLAYTEXT .74
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3240 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3241
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3242 PLED_startupscreen2:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3243 call PLED_topline_box
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3244 WIN_INVERT .1 ; Init new Wordprocessor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3245 DISPLAYTEXT d'3' ; "HeinrichsWeikamp"
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3246 WIN_INVERT .0 ; Init new Wordprocessor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3247 DISPLAYTEXT .75 ; Licence 2/2
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3248 DISPLAYTEXT .76
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3249 DISPLAYTEXT .77
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3250 DISPLAYTEXT .78
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3251 DISPLAYTEXT .79
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3252 DISPLAYTEXT .80
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3253 DISPLAYTEXT .81
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3254 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3255
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3256 PLED_new_cf_warning:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3257 call PLED_topline_box
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3258 WIN_INVERT .1 ; Init new Wordprocessor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3259 DISPLAYTEXTH .271 ; New CF added!
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3260 WIN_INVERT .0 ; Init new Wordprocessor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3261 DISPLAYTEXTH .272 ; New CustomFunctions
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3262 DISPLAYTEXTH .273 ; were added! Check
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3263 DISPLAYTEXTH .274 ; CF I and CF II Menu
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3264 DISPLAYTEXTH .275 ; for Details!
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3265 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3266
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3267 PLED_const_ppO2_value:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3268 ostc_debug 'j' ; Sends debug-information to screen if debugmode active
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3269
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3270 WIN_TOP .168
75
35d947d7a6e7 1.73beta started, small fixes
heinrichsweikamp
parents: 74
diff changeset
3271 WIN_LEFT .50
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3272 WIN_FONT FT_SMALL
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3273 WIN_INVERT .0 ; Init new Wordprocessor
4
2b5c52ae3923 1.52 beta rc
heinrichsweikamp
parents: 3
diff changeset
3274
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3275 lfsr FSR2,letter
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3276 movff char_I_const_ppO2,lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3277
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3278 tstfsz lo ; In Bailout mode (char_I_const_ppO2=0)?
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3279 bra PLED_const_ppO2_value2 ; No, display Setpoint
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3280
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3281 ; Yes, Display "Bail"
27
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
3282 call PLED_standard_color
325
4a28d7a1c620 Fixed Setpoint behavior >2,55bar with CF38=ON
heinrichsweikamp
parents: 324
diff changeset
3283 OUTPUTTEXTH d'263' ;"Bail "
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3284 call word_processor
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3285 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3286
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3287 PLED_const_ppO2_value2: ; Display SetPoint
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3288 ;Show fixed SP value
341
2144f19fa1eb BUGFIX protect against ISR changing pressure/temperature while reading it.
JeanDo
parents: 340
diff changeset
3289 SAFE_2BYTE_COPY amb_pressure, xA
2144f19fa1eb BUGFIX protect against ISR changing pressure/temperature while reading it.
JeanDo
parents: 340
diff changeset
3290
4
2b5c52ae3923 1.52 beta rc
heinrichsweikamp
parents: 3
diff changeset
3291 movlw d'10'
2b5c52ae3923 1.52 beta rc
heinrichsweikamp
parents: 3
diff changeset
3292 movwf xB+0
2b5c52ae3923 1.52 beta rc
heinrichsweikamp
parents: 3
diff changeset
3293 clrf xB+1
2b5c52ae3923 1.52 beta rc
heinrichsweikamp
parents: 3
diff changeset
3294 ;xA/xB=xC with xA as remainder
2b5c52ae3923 1.52 beta rc
heinrichsweikamp
parents: 3
diff changeset
3295 call div16x16 ; xC+0=p_amb/10
26
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3296
412
b2c9cc018671 small cleanup
heinrichsweikamp
parents: 410
diff changeset
3297 ; char_I_const_ppO2 > p_amb/10 -> Not physically possible! -> Display actual value!
b2c9cc018671 small cleanup
heinrichsweikamp
parents: 410
diff changeset
3298 tstfsz xC+1 ; xC>255
b2c9cc018671 small cleanup
heinrichsweikamp
parents: 410
diff changeset
3299 setf xC+0 ; Yes, set xC+0 to 2,55bar ppO2
26
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3300
4
2b5c52ae3923 1.52 beta rc
heinrichsweikamp
parents: 3
diff changeset
3301 movff ppO2_setpoint_store,WREG
2b5c52ae3923 1.52 beta rc
heinrichsweikamp
parents: 3
diff changeset
3302 cpfslt xC+0 ; Setpoint value possible?
26
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3303 bra PLED_const_ppO2_value1 ; Yes
4
2b5c52ae3923 1.52 beta rc
heinrichsweikamp
parents: 3
diff changeset
3304
406
2534277be060 Bug #52 fixed (ppO2 blinking if setpoint is not physically possible)
heinrichsweikamp
parents: 403
diff changeset
3305 clrf hi ; Reset hi
4
2b5c52ae3923 1.52 beta rc
heinrichsweikamp
parents: 3
diff changeset
3306 movff xC+0,char_I_const_ppO2 ; No, Overwrite with actual value
2b5c52ae3923 1.52 beta rc
heinrichsweikamp
parents: 3
diff changeset
3307 bra PLED_const_ppO2_value1a
2b5c52ae3923 1.52 beta rc
heinrichsweikamp
parents: 3
diff changeset
3308
2b5c52ae3923 1.52 beta rc
heinrichsweikamp
parents: 3
diff changeset
3309 PLED_const_ppO2_value1:
26
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3310 ; 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
3311 SAFE_2BYTE_COPY amb_pressure, xA
26
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3312 movlw d'10'
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3313 movwf xB+0
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3314 clrf xB+1
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3315 call div16x16 ; xC=p_amb/10
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3316 movff xC+0,xA+0
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3317 movff xC+1,xA+1
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3318 movff char_I_O2_ratio,xB+0
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3319 clrf xB+1
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3320 call mult16x16 ; xC:2=char_I_O2_ratio * p_amb/10
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3321
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3322 movff xC+0,sub_b+0
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3323 movff xC+1,sub_b+1
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3324 movff ppO2_setpoint_store,WREG; Setpoint
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3325 mullw d'100' ; Setpoint*100
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3326 movff PRODL,sub_a+0
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3327 movff PRODH,sub_a+1
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3328 call sub16 ; sub_c = sub_a - sub_b
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3329
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3330 btfss neg_flag
325
4a28d7a1c620 Fixed Setpoint behavior >2,55bar with CF38=ON
heinrichsweikamp
parents: 324
diff changeset
3331 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
3332
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3333 ; char_I_const_ppO2 < ppO2[Diluent] -> Not physically possible! -> Display actual value!
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3334
406
2534277be060 Bug #52 fixed (ppO2 blinking if setpoint is not physically possible)
heinrichsweikamp
parents: 403
diff changeset
3335 movff xC+0,xA+0 ; xC=p_amb/10
26
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3336 movff xC+1,xA+1
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3337 movlw d'100'
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3338 movwf xB+0
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3339 clrf xB+1
406
2534277be060 Bug #52 fixed (ppO2 blinking if setpoint is not physically possible)
heinrichsweikamp
parents: 403
diff changeset
3340 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
3341
2534277be060 Bug #52 fixed (ppO2 blinking if setpoint is not physically possible)
heinrichsweikamp
parents: 403
diff changeset
3342 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
3343 movff xC+1,hi ; For test if ppO2>2,55bar
138
dd4b899c56c1 1.75beta released
heinrichsweikamp
parents: 136
diff changeset
3344
406
2534277be060 Bug #52 fixed (ppO2 blinking if setpoint is not physically possible)
heinrichsweikamp
parents: 403
diff changeset
3345 GETCUSTOM8 d'39' ; Adjust fixed SP?
138
dd4b899c56c1 1.75beta released
heinrichsweikamp
parents: 136
diff changeset
3346 dcfsnz WREG,F
406
2534277be060 Bug #52 fixed (ppO2 blinking if setpoint is not physically possible)
heinrichsweikamp
parents: 403
diff changeset
3347 bra PLED_const_ppO2_value1a ; Yes!
138
dd4b899c56c1 1.75beta released
heinrichsweikamp
parents: 136
diff changeset
3348 ; Do not adjust -> restore original SetPoint
26
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3349
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3350 PLED_const_ppO2_value11:
8d7af04e0f85 ppO2 limits in fixed setpoint ccr
heinrichsweikamp
parents: 25
diff changeset
3351 ; Setpoint in possible limits
4
2b5c52ae3923 1.52 beta rc
heinrichsweikamp
parents: 3
diff changeset
3352 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
3353 clrf hi
4a28d7a1c620 Fixed Setpoint behavior >2,55bar with CF38=ON
heinrichsweikamp
parents: 324
diff changeset
3354
4
2b5c52ae3923 1.52 beta rc
heinrichsweikamp
parents: 3
diff changeset
3355 PLED_const_ppO2_value1a:
2b5c52ae3923 1.52 beta rc
heinrichsweikamp
parents: 3
diff changeset
3356 movff char_I_const_ppO2,lo
325
4a28d7a1c620 Fixed Setpoint behavior >2,55bar with CF38=ON
heinrichsweikamp
parents: 324
diff changeset
3357
4a28d7a1c620 Fixed Setpoint behavior >2,55bar with CF38=ON
heinrichsweikamp
parents: 324
diff changeset
3358 movff lo,WREG ; copy to WREG
4a28d7a1c620 Fixed Setpoint behavior >2,55bar with CF38=ON
heinrichsweikamp
parents: 324
diff changeset
3359 mullw .100
4a28d7a1c620 Fixed Setpoint behavior >2,55bar with CF38=ON
heinrichsweikamp
parents: 324
diff changeset
3360 movff PRODH,xC+1
4a28d7a1c620 Fixed Setpoint behavior >2,55bar with CF38=ON
heinrichsweikamp
parents: 324
diff changeset
3361 movff PRODL,xC+0 ; For color code
4a28d7a1c620 Fixed Setpoint behavior >2,55bar with CF38=ON
heinrichsweikamp
parents: 324
diff changeset
3362 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
3363
4a28d7a1c620 Fixed Setpoint behavior >2,55bar with CF38=ON
heinrichsweikamp
parents: 324
diff changeset
3364 tstfsz hi ; >2,55bar?
4a28d7a1c620 Fixed Setpoint behavior >2,55bar with CF38=ON
heinrichsweikamp
parents: 324
diff changeset
3365 rcall PLED_const_ppO2_too_hi ; Yes
4a28d7a1c620 Fixed Setpoint behavior >2,55bar with CF38=ON
heinrichsweikamp
parents: 324
diff changeset
3366
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3367 bsf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3368 output_16dp d'3'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3369 bcf leftbind
406
2534277be060 Bug #52 fixed (ppO2 blinking if setpoint is not physically possible)
heinrichsweikamp
parents: 403
diff changeset
3370 STRCAT_PRINT " " ; Display Setpoint with trailing zero
325
4a28d7a1c620 Fixed Setpoint behavior >2,55bar with CF38=ON
heinrichsweikamp
parents: 324
diff changeset
3371 call PLED_standard_color ; Reset color
4a28d7a1c620 Fixed Setpoint behavior >2,55bar with CF38=ON
heinrichsweikamp
parents: 324
diff changeset
3372 return
4a28d7a1c620 Fixed Setpoint behavior >2,55bar with CF38=ON
heinrichsweikamp
parents: 324
diff changeset
3373
4a28d7a1c620 Fixed Setpoint behavior >2,55bar with CF38=ON
heinrichsweikamp
parents: 324
diff changeset
3374 PLED_const_ppO2_too_hi:
386
deced1cacff7 Added velocity in divemode, BIG stopwatch in Gauge mode
heinrichsweikamp
parents: 382
diff changeset
3375 PUTC '>'
325
4a28d7a1c620 Fixed Setpoint behavior >2,55bar with CF38=ON
heinrichsweikamp
parents: 324
diff changeset
3376 setf lo ; show ">2.55"
4a28d7a1c620 Fixed Setpoint behavior >2,55bar with CF38=ON
heinrichsweikamp
parents: 324
diff changeset
3377 clrf hi ; clear hi
4a28d7a1c620 Fixed Setpoint behavior >2,55bar with CF38=ON
heinrichsweikamp
parents: 324
diff changeset
3378 call PLED_warnings_color ; Set Warning color
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3379 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3380
307
5bc3467fc421 New live EAD/END in divemode (both OCR and CCR).
JeanDo
parents: 305
diff changeset
3381 ;=============================================================================
5bc3467fc421 New live EAD/END in divemode (both OCR and CCR).
JeanDo
parents: 305
diff changeset
3382 ; 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
3383 ;
274
a728b4a1b660 Setpoint changes stored in profile, EAD and END displayed in divemode (Customview 7)
heinrichsweikamp
parents: 256
diff changeset
3384 PLED_show_end_ead_divemode:
307
5bc3467fc421 New live EAD/END in divemode (both OCR and CCR).
JeanDo
parents: 305
diff changeset
3385 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
3386
5bc3467fc421 New live EAD/END in divemode (both OCR and CCR).
JeanDo
parents: 305
diff changeset
3387 WIN_FONT FT_SMALL
274
a728b4a1b660 Setpoint changes stored in profile, EAD and END displayed in divemode (Customview 7)
heinrichsweikamp
parents: 256
diff changeset
3388 WIN_LEFT .95
a728b4a1b660 Setpoint changes stored in profile, EAD and END displayed in divemode (Customview 7)
heinrichsweikamp
parents: 256
diff changeset
3389 WIN_TOP .192
a728b4a1b660 Setpoint changes stored in profile, EAD and END displayed in divemode (Customview 7)
heinrichsweikamp
parents: 256
diff changeset
3390 lfsr FSR2,letter
307
5bc3467fc421 New live EAD/END in divemode (both OCR and CCR).
JeanDo
parents: 305
diff changeset
3391 OUTPUTTEXTH .299 ; EAD:
326
a7ed48daf597 Fix minor rounding error in ppO2[flush].
JeanDo
parents: 325
diff changeset
3392 call word_processor
307
5bc3467fc421 New live EAD/END in divemode (both OCR and CCR).
JeanDo
parents: 305
diff changeset
3393
274
a728b4a1b660 Setpoint changes stored in profile, EAD and END displayed in divemode (Customview 7)
heinrichsweikamp
parents: 256
diff changeset
3394 WIN_TOP .216
326
a7ed48daf597 Fix minor rounding error in ppO2[flush].
JeanDo
parents: 325
diff changeset
3395 lfsr FSR2,letter
307
5bc3467fc421 New live EAD/END in divemode (both OCR and CCR).
JeanDo
parents: 305
diff changeset
3396 OUTPUTTEXTH .298 ; END:
326
a7ed48daf597 Fix minor rounding error in ppO2[flush].
JeanDo
parents: 325
diff changeset
3397 call word_processor
a7ed48daf597 Fix minor rounding error in ppO2[flush].
JeanDo
parents: 325
diff changeset
3398
a7ed48daf597 Fix minor rounding error in ppO2[flush].
JeanDo
parents: 325
diff changeset
3399 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
3400 WIN_LEFT .125
a728b4a1b660 Setpoint changes stored in profile, EAD and END displayed in divemode (Customview 7)
heinrichsweikamp
parents: 256
diff changeset
3401 WIN_TOP .192
326
a7ed48daf597 Fix minor rounding error in ppO2[flush].
JeanDo
parents: 325
diff changeset
3402 lfsr FSR2,letter
a7ed48daf597 Fix minor rounding error in ppO2[flush].
JeanDo
parents: 325
diff changeset
3403 movff char_O_EAD,lo
a7ed48daf597 Fix minor rounding error in ppO2[flush].
JeanDo
parents: 325
diff changeset
3404 bsf leftbind
307
5bc3467fc421 New live EAD/END in divemode (both OCR and CCR).
JeanDo
parents: 305
diff changeset
3405 output_8 ; Print EAD w/o leading space.
446
92304826000d localisation part2 from Sergei
heinrichsweikamp
parents: 430
diff changeset
3406 STRCAT_PRINT TXT_METER2
307
5bc3467fc421 New live EAD/END in divemode (both OCR and CCR).
JeanDo
parents: 305
diff changeset
3407
274
a728b4a1b660 Setpoint changes stored in profile, EAD and END displayed in divemode (Customview 7)
heinrichsweikamp
parents: 256
diff changeset
3408 WIN_TOP .216
326
a7ed48daf597 Fix minor rounding error in ppO2[flush].
JeanDo
parents: 325
diff changeset
3409 lfsr FSR2,letter
a7ed48daf597 Fix minor rounding error in ppO2[flush].
JeanDo
parents: 325
diff changeset
3410 movff char_O_END,lo
307
5bc3467fc421 New live EAD/END in divemode (both OCR and CCR).
JeanDo
parents: 305
diff changeset
3411 output_8 ; Print END w/o leading space.
326
a7ed48daf597 Fix minor rounding error in ppO2[flush].
JeanDo
parents: 325
diff changeset
3412 bcf leftbind
446
92304826000d localisation part2 from Sergei
heinrichsweikamp
parents: 430
diff changeset
3413 STRCAT_PRINT TXT_METER2
326
a7ed48daf597 Fix minor rounding error in ppO2[flush].
JeanDo
parents: 325
diff changeset
3414
a7ed48daf597 Fix minor rounding error in ppO2[flush].
JeanDo
parents: 325
diff changeset
3415 ; Show ppO2[Flush] iff in CCR mode & not in Bailout:
a7ed48daf597 Fix minor rounding error in ppO2[flush].
JeanDo
parents: 325
diff changeset
3416 btfsc is_bailout ; In bailout mode?
307
5bc3467fc421 New live EAD/END in divemode (both OCR and CCR).
JeanDo
parents: 305
diff changeset
3417 return ; Yes: done.
5bc3467fc421 New live EAD/END in divemode (both OCR and CCR).
JeanDo
parents: 305
diff changeset
3418
326
a7ed48daf597 Fix minor rounding error in ppO2[flush].
JeanDo
parents: 325
diff changeset
3419 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
3420 return ; No: done.
5bc3467fc421 New live EAD/END in divemode (both OCR and CCR).
JeanDo
parents: 305
diff changeset
3421
301
a5fd8777a598 Display ppO2[Diluent] in CCR modes
heinrichsweikamp
parents: 300
diff changeset
3422 WIN_LEFT .95
a5fd8777a598 Display ppO2[Diluent] in CCR modes
heinrichsweikamp
parents: 300
diff changeset
3423 WIN_TOP .168
326
a7ed48daf597 Fix minor rounding error in ppO2[flush].
JeanDo
parents: 325
diff changeset
3424 call PLED_divemask_color ; Set Color for Divemode mask
446
92304826000d localisation part2 from Sergei
heinrichsweikamp
parents: 430
diff changeset
3425 STRCPY_PRINT TXT_PPO2_5 ; ppO2 of diluent
326
a7ed48daf597 Fix minor rounding error in ppO2[flush].
JeanDo
parents: 325
diff changeset
3426
a7ed48daf597 Fix minor rounding error in ppO2[flush].
JeanDo
parents: 325
diff changeset
3427 movff char_O_flush_ppO2,WREG ; copy to WREG
a7ed48daf597 Fix minor rounding error in ppO2[flush].
JeanDo
parents: 325
diff changeset
3428 mullw .100
a7ed48daf597 Fix minor rounding error in ppO2[flush].
JeanDo
parents: 325
diff changeset
3429 movff PRODH,xC+1
a7ed48daf597 Fix minor rounding error in ppO2[flush].
JeanDo
parents: 325
diff changeset
3430 movff PRODL,xC+0 ; For color code
324
a86c9d1219ce ppO2 diluent (flush) color coded
Heinrichsweikamp
parents: 323
diff changeset
3431 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
3432
a5fd8777a598 Display ppO2[Diluent] in CCR modes
heinrichsweikamp
parents: 300
diff changeset
3433 WIN_LEFT .130
a5fd8777a598 Display ppO2[Diluent] in CCR modes
heinrichsweikamp
parents: 300
diff changeset
3434 WIN_TOP .168
322
676d18bce8d7 Fix ppO2[flush] display in customview.
JeanDo
parents: 314
diff changeset
3435
676d18bce8d7 Fix ppO2[flush] display in customview.
JeanDo
parents: 314
diff changeset
3436 movff char_O_flush_ppO2, lo
676d18bce8d7 Fix ppO2[flush] display in customview.
JeanDo
parents: 314
diff changeset
3437 incf lo,W ; ppO2 == 2.55 ?
676d18bce8d7 Fix ppO2[flush] display in customview.
JeanDo
parents: 314
diff changeset
3438 bnz PLED_show_end_ead_divemode_1
326
a7ed48daf597 Fix minor rounding error in ppO2[flush].
JeanDo
parents: 325
diff changeset
3439
322
676d18bce8d7 Fix ppO2[flush] display in customview.
JeanDo
parents: 314
diff changeset
3440 STRCPY_PRINT "----" ; YES: mark overflow.
326
a7ed48daf597 Fix minor rounding error in ppO2[flush].
JeanDo
parents: 325
diff changeset
3441 goto PLED_standard_color ; Back to white.
322
676d18bce8d7 Fix ppO2[flush] display in customview.
JeanDo
parents: 314
diff changeset
3442
676d18bce8d7 Fix ppO2[flush] display in customview.
JeanDo
parents: 314
diff changeset
3443 PLED_show_end_ead_divemode_1:
301
a5fd8777a598 Display ppO2[Diluent] in CCR modes
heinrichsweikamp
parents: 300
diff changeset
3444 lfsr FSR2,letter
307
5bc3467fc421 New live EAD/END in divemode (both OCR and CCR).
JeanDo
parents: 305
diff changeset
3445 clrf hi
301
a5fd8777a598 Display ppO2[Diluent] in CCR modes
heinrichsweikamp
parents: 300
diff changeset
3446 bsf leftbind
307
5bc3467fc421 New live EAD/END in divemode (both OCR and CCR).
JeanDo
parents: 305
diff changeset
3447 output_16dp d'3' ; Show ppO2 w/o leading zero
301
a5fd8777a598 Display ppO2[Diluent] in CCR modes
heinrichsweikamp
parents: 300
diff changeset
3448 bcf leftbind
a5fd8777a598 Display ppO2[Diluent] in CCR modes
heinrichsweikamp
parents: 300
diff changeset
3449 STRCAT_PRINT " " ; Display ppO2[Diluent]
326
a7ed48daf597 Fix minor rounding error in ppO2[flush].
JeanDo
parents: 325
diff changeset
3450 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
3451
307
5bc3467fc421 New live EAD/END in divemode (both OCR and CCR).
JeanDo
parents: 305
diff changeset
3452 ;=============================================================================
312
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth.
JeanDo
parents: 310
diff changeset
3453 ; 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
3454 ;
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth.
JeanDo
parents: 310
diff changeset
3455 PLED_show_@5:
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth.
JeanDo
parents: 310
diff changeset
3456 WIN_FONT FT_SMALL
314
c61d94186f8f @5 "Escape TTS" translations
JeanDo
parents: 313
diff changeset
3457 WIN_LEFT .160-.70 ; 10 chars aligned right.
313
11be2470b9eb Fix @5 preventing main computation
JeanDo
parents: 312
diff changeset
3458 WIN_TOP .170
323
b7940978edc9 Fix "Future TTS" display customview.
JeanDo
parents: 322
diff changeset
3459 call PLED_divemask_color ; Set Color for Divemode mask
314
c61d94186f8f @5 "Escape TTS" translations
JeanDo
parents: 313
diff changeset
3460 lfsr FSR2,letter
323
b7940978edc9 Fix "Future TTS" display customview.
JeanDo
parents: 322
diff changeset
3461
b7940978edc9 Fix "Future TTS" display customview.
JeanDo
parents: 322
diff changeset
3462 OUTPUTTEXTH .305 ; "Future TTS"
314
c61d94186f8f @5 "Escape TTS" translations
JeanDo
parents: 313
diff changeset
3463 call word_processor
c61d94186f8f @5 "Escape TTS" translations
JeanDo
parents: 313
diff changeset
3464
c61d94186f8f @5 "Escape TTS" translations
JeanDo
parents: 313
diff changeset
3465 WIN_LEFT .97
313
11be2470b9eb Fix @5 preventing main computation
JeanDo
parents: 312
diff changeset
3466 WIN_TOP .194
312
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth.
JeanDo
parents: 310
diff changeset
3467 STRCPY "@"
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth.
JeanDo
parents: 310
diff changeset
3468 GETCUSTOM8 d'58'
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth.
JeanDo
parents: 310
diff changeset
3469 movwf lo
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth.
JeanDo
parents: 310
diff changeset
3470 bsf leftbind
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth.
JeanDo
parents: 310
diff changeset
3471 output_8
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth.
JeanDo
parents: 310
diff changeset
3472 bcf leftbind
323
b7940978edc9 Fix "Future TTS" display customview.
JeanDo
parents: 322
diff changeset
3473 STRCAT_PRINT "': "
313
11be2470b9eb Fix @5 preventing main computation
JeanDo
parents: 312
diff changeset
3474
323
b7940978edc9 Fix "Future TTS" display customview.
JeanDo
parents: 322
diff changeset
3475 WIN_LEFT .97+7*5 ; "@10':" is 5 chars long
313
11be2470b9eb Fix @5 preventing main computation
JeanDo
parents: 312
diff changeset
3476 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
3477 lfsr FSR2,letter
323
b7940978edc9 Fix "Future TTS" display customview.
JeanDo
parents: 322
diff changeset
3478
312
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth.
JeanDo
parents: 310
diff changeset
3479 movff int_O_extra_ascenttime+0,lo
313
11be2470b9eb Fix @5 preventing main computation
JeanDo
parents: 312
diff changeset
3480 movff int_O_extra_ascenttime+1,hi
11be2470b9eb Fix @5 preventing main computation
JeanDo
parents: 312
diff changeset
3481 movf lo,W
323
b7940978edc9 Fix "Future TTS" display customview.
JeanDo
parents: 322
diff changeset
3482 iorwf hi,W ; extra_ascenttime == 0 ?
b7940978edc9 Fix "Future TTS" display customview.
JeanDo
parents: 322
diff changeset
3483 bz PLED_show_@5_nodeco
b7940978edc9 Fix "Future TTS" display customview.
JeanDo
parents: 322
diff changeset
3484 movf lo,W ; extra_ascenttime == 0xFFFF ?
b7940978edc9 Fix "Future TTS" display customview.
JeanDo
parents: 322
diff changeset
3485 andwf hi,W
b7940978edc9 Fix "Future TTS" display customview.
JeanDo
parents: 322
diff changeset
3486 incf WREG,w
312
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth.
JeanDo
parents: 310
diff changeset
3487 bz PLED_show_@5_wait
323
b7940978edc9 Fix "Future TTS" display customview.
JeanDo
parents: 322
diff changeset
3488
312
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth.
JeanDo
parents: 310
diff changeset
3489 bsf leftbind
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth.
JeanDo
parents: 310
diff changeset
3490 output_16
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth.
JeanDo
parents: 310
diff changeset
3491 bcf leftbind
323
b7940978edc9 Fix "Future TTS" display customview.
JeanDo
parents: 322
diff changeset
3492 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
3493 return
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth.
JeanDo
parents: 310
diff changeset
3494
323
b7940978edc9 Fix "Future TTS" display customview.
JeanDo
parents: 322
diff changeset
3495 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
3496 PLED_show_@5_wait:
323
b7940978edc9 Fix "Future TTS" display customview.
JeanDo
parents: 322
diff changeset
3497 STRCPY_PRINT "--- "
312
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth.
JeanDo
parents: 310
diff changeset
3498 return
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth.
JeanDo
parents: 310
diff changeset
3499
b7e4e74c0e17 New @5 variant: compute TTS if staying some extra time (CF58) at current depth.
JeanDo
parents: 310
diff changeset
3500 ;=============================================================================
592
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63)
heinrichsweikamp
parents: 587
diff changeset
3501
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63)
heinrichsweikamp
parents: 587
diff changeset
3502 compute_pscr_ppo2:
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63)
heinrichsweikamp
parents: 587
diff changeset
3503 ; (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
3504 movff char_I_O2_ratio,WREG
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3505 sublw .100 ; 100-char_I_O2_ratio -> WREG
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3506 mullw .10 ; (100-char_I_O2_ratio)*10 -> PROD:2
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3507 movff PRODL,xA+0
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3508 movff PRODH,xA+1
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3509 GETCUSTOM8 d'62' ; O2 Drop
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3510 movff WREG,xB+0
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3511 clrf xB+1
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3512 call mult16x16 ;xA*xB=xC -> (100-char_I_O2_ratio)*10*CF61
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3513 movff xC+0,xA+0
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3514 movff xC+1,xA+1
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3515 GETCUSTOM8 d'63' ; Lung ratio
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3516 movff WREG,xB+0
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3517 clrf xB+1
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3518 call mult16x16 ;xA*xB=xC -> (100-char_I_O2_ratio)*10*CF61*CF62
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3519
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3520 movlw .10
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3521 movwf xB+0
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3522 clrf xB+1
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3523 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
3524 ; store xC:2 in lo:hi
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3525 movff xC+0,lo
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3526 movff xC+1,hi
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3527
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3528 SAFE_2BYTE_COPY amb_pressure, xA
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3529 movff char_I_O2_ratio,xB+0
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3530 clrf xB+1
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3531 call mult16x16 ;xA*xB=xC -> xC:4 = Pressure[mbar]*char_I_O2_ratio
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3532
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3533 movlw .10
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3534 movwf xB+0
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3535 clrf xB+1
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3536 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
3537
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3538 ; store xC:2 in sub_a
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3539 movff xC+0,sub_a+0
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3540 movff xC+1,sub_a+1
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3541 ; reload result from lo:hi
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3542 movff lo,sub_b+0
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3543 movff hi,sub_b+1
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3544
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3545 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
3546 return
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63)
heinrichsweikamp
parents: 587
diff changeset
3547
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63)
heinrichsweikamp
parents: 587
diff changeset
3548 ; Display pSCR ppO2
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63)
heinrichsweikamp
parents: 587
diff changeset
3549 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
3550 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
3551 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
3552 WIN_TOP .170
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63)
heinrichsweikamp
parents: 587
diff changeset
3553 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
3554 lfsr FSR2,letter
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63)
heinrichsweikamp
parents: 587
diff changeset
3555 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
3556 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
3557
cda5b45b953f NEW: Deco mode "pSCR-GF": Computes deco and CNS based on pSCR parameters (CF62/63)
heinrichsweikamp
parents: 587
diff changeset
3558 rcall compute_pscr_ppo2 ; pSCR ppO2 into sub_c:2
552
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3559
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3560 WIN_FONT FT_SMALL
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3561 WIN_LEFT .95
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3562 WIN_TOP .192
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3563 lfsr FSR2,letter
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3564 STRCPY_PRINT TXT_PPO2_5 ; ppO2:
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3565
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3566 movff sub_c+0,xC+0
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3567 movff sub_c+1,xC+1
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3568 clrf xC+2
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3569 clrf xC+3 ; For color coding
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3570 PLED_color_code warn_ppo2 ; Color-code output (ppO2 stored in xC)
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3571 WIN_LEFT .130
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3572 WIN_TOP .192
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3573 lfsr FSR2,letter
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3574 movff xC+0,lo
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3575 movff xC+1,hi
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3576 bsf ignore_digit4
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3577 output_16dp d'1'
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3578 bcf ignore_digit4
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3579 STRCAT_PRINT " "
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3580 call PLED_standard_color ; Back to white.
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3581 ; Show O2 drop and counter lung ration in second row
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3582 WIN_LEFT .98
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3583 WIN_TOP .216
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3584 lfsr FSR2,letter
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3585 GETCUSTOM8 d'62' ; O2 Drop in percent
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3586 movwf lo
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3587 bsf leftbind
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3588 output_8
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3589 STRCAT "% 1/"
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3590 GETCUSTOM8 d'63' ; Counter lung ratio in 1/X
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3591 movwf lo
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3592 output_8
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3593 bcf leftbind
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3594 STRCAT_PRINT " " ; Trailing space needed when changing the O2 drop
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3595 return
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3596
44e9b961f156 Compute ppO2 for pSCR diving
heinrichsweikamp
parents: 532
diff changeset
3597 ;=============================================================================
476
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3598 ; Display cave consomation prediction (and warning).
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3599 ;
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3600 PLED_show_cave_bailout:
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3601 WIN_FONT FT_SMALL
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3602 WIN_LEFT .160-.70 ; 10 chars aligned right.
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3603 WIN_TOP .170
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3604 call PLED_divemask_color ; Set Color for Divemode mask
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3605 lfsr FSR2,letter
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3606
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3607 OUTPUTTEXTH .311 ; "Cave Bail."
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3608 call word_processor
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3609
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3610 ; WIN_TOP .240 - 24 ; DO NOT display liter units, as this
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3611 ; WIN_LEFT .160 - 7 ; can be Bars also...
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3612 ; STRCPY_PRINT "l"
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3613
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3614 WIN_FONT FT_MEDIUM
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3615 WIN_LEFT .90
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3616 WIN_TOP .201 ; 170 + 24 + 14/2 + 32 + 14/2 = 240.
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3617 call PLED_standard_color
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3618 lfsr FSR2,letter
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3619
479
9fc8feff27a5 Enable reset in cave bailout prediction, by using chrono average depth.
JeanDo
parents: 478
diff changeset
3620 ;---- Retrieve divetime in seconds (since last reset)
9fc8feff27a5 Enable reset in cave bailout prediction, by using chrono average depth.
JeanDo
parents: 478
diff changeset
3621 movff average_divesecs+0,xA+0
9fc8feff27a5 Enable reset in cave bailout prediction, by using chrono average depth.
JeanDo
parents: 478
diff changeset
3622 movff average_divesecs+1,xA+1
476
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3623
478
fd8266b511cc New SAC (CF56/CF57) in 5..50 l/min range (no more decimal).
JeanDo
parents: 476
diff changeset
3624 ;---- Multiply by SAC, and divide by 60 (SAC inliters per minutes)
476
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3625 GETCUSTOM8 d'56' ; Get bottom SAC
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3626 movwf xB+0
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3627 clrf xB+1
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3628 call mult16x16 ; xC:4=xA:2*xB:2
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3629
478
fd8266b511cc New SAC (CF56/CF57) in 5..50 l/min range (no more decimal).
JeanDo
parents: 476
diff changeset
3630 movlw LOW(.60)
476
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3631 movwf xB+0
478
fd8266b511cc New SAC (CF56/CF57) in 5..50 l/min range (no more decimal).
JeanDo
parents: 476
diff changeset
3632 movlw HIGH(.60)
476
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3633 movwf xB+1
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3634 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
3635
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3636 ;---- Multiply by average pressure [absolute, in bar]
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3637 movff xC+0,xA+0 ; Get result (in xC+0, noy xC+2 !) into xA
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3638 movff xC+1,xA+1
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3639
479
9fc8feff27a5 Enable reset in cave bailout prediction, by using chrono average depth.
JeanDo
parents: 478
diff changeset
3640 movf avr_rel_pressure+0,W ; Add surface pressure to get absolute pressure
476
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3641 addwf last_surfpressure_30min+0,W
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3642 movwf xB+0
479
9fc8feff27a5 Enable reset in cave bailout prediction, by using chrono average depth.
JeanDo
parents: 478
diff changeset
3643 movf avr_rel_pressure+1,W
476
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3644 addwfc last_surfpressure_30min+1,W
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3645 movwf xB+1 ; --> Into xB
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3646
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3647 call mult16x16 ; xC:4=xA:2*xB:2
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3648
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3649 movlw LOW(.1000) ; Pressure was in milibar, so divide by 1000.
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3650 movwf xB+0
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3651 movlw HIGH(.1000)
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3652 movwf xB+1
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3653 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
3654
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3655 ;---- Go RED when limit is exceeded
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3656 movff xC+0,sub_a+0
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3657 movff xC+1,sub_a+1
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3658 GETCUSTOM15 d'59' ; Get Cave bailout alarm threshold
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3659 movff lo, sub_b+0
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3660 movff hi, sub_b+1
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3661 call sub16 ; Computes prediction - limit
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3662 btfss neg_flag ; Negativ ?
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3663 call PLED_warnings_color ; NO: go RED.
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3664
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3665 ;---- Then display...
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3666 movff xC+0,lo
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3667 movff xC+1,hi
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3668
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3669 bcf leftbind
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3670 output_16
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3671 call word_processor
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3672 WIN_FONT FT_SMALL
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3673 return
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3674
7779bfa89171 Cave bailout prediction.
JeanDo
parents: 462
diff changeset
3675 ;=============================================================================
274
a728b4a1b660 Setpoint changes stored in profile, EAD and END displayed in divemode (Customview 7)
heinrichsweikamp
parents: 256
diff changeset
3676
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3677 PLED_show_leading_tissue:
98
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 91
diff changeset
3678 call PLED_divemask_color ; Set Color for Divemode mask
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 91
diff changeset
3679 DISPLAYTEXTH .282 ; L. Tissue:
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 91
diff changeset
3680 PLED_show_leading_tissue_2:
116
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents: 115
diff changeset
3681 call deco_calc_desaturation_time ; calculate desaturation time
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3682 movlb b'00000001' ; select ram bank 1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3683
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3684 STRCPY "#"
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3685 movff char_O_gtissue_no,lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3686 movff char_O_gtissue_no,wait_temp ; used as temp
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3687 bsf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3688 output_8
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3689 STRCAT " ("
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3690
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3691 movlw d'16'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3692 cpfslt wait_temp
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3693 bra PLED_show_leading_tissue_he
446
92304826000d localisation part2 from Sergei
heinrichsweikamp
parents: 430
diff changeset
3694 STRCAT TXT_N2_2
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3695 bra PLED_show_leading_tissue2
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3696
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3697 PLED_show_leading_tissue_he:
446
92304826000d localisation part2 from Sergei
heinrichsweikamp
parents: 430
diff changeset
3698 STRCAT TXT_HE2
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3699
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3700 PLED_show_leading_tissue2:
98
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 91
diff changeset
3701 WIN_LEFT .95
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 91
diff changeset
3702 WIN_TOP .192
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3703 WIN_FONT FT_SMALL
3
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
3704 call PLED_standard_color
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3705
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3706 STRCAT_PRINT ") "
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3707
339
cb77d1fa4535 More cleanups in internal deco structures.
JeanDo
parents: 326
diff changeset
3708 lfsr FSR1,char_O_tissue_N2_saturation
cb77d1fa4535 More cleanups in internal deco structures.
JeanDo
parents: 326
diff changeset
3709 movf wait_temp,W ; W <- 0-15
cb77d1fa4535 More cleanups in internal deco structures.
JeanDo
parents: 326
diff changeset
3710 movff PLUSW1,lo ; lo <- FSR1[W]
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3711
98
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 91
diff changeset
3712 WIN_LEFT .95
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 91
diff changeset
3713 WIN_TOP .216
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3714 WIN_FONT FT_SMALL
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3715
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3716 lfsr FSR2,letter
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3717 output_8
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3718 STRCAT_PRINT "% "
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3719 bcf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3720 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3721
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3722 PLED_topline_box_clear: ; Writes an empty box
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3723 movlw .0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3724 bra PLED_topline_box2
98
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 91
diff changeset
3725 PLED_topline_box: ; Writes a filled box...
6f8e3a08011e 1.73beta rc1 (Added new customview for divemode)
heinrichsweikamp
parents: 91
diff changeset
3726 GETCUSTOM8 d'35' ; ... with the standard color
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3727 PLED_topline_box2:
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3728 WIN_BOX_COLOR .0, .26, .0, .159
309
2f21f7a77608 moved cf warning to upper right corner
heinrichsweikamp
parents: 307
diff changeset
3729 call PLED_standard_color ; Reset to standard color in case of unreadable color
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3730 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3731
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3732 PLED_display_cns:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3733 btfsc gauge_mode ; Do not display in gauge mode
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3734 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3735
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3736 btfsc FLAG_apnoe_mode ; Do not display in apnoe mode
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3737 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3738
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3739 btfsc pled_velocity_display ; Is velocity displayed?`
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3740 return ; Yes, do not overwrite until pled_velocity_clear was called
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3741
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3742 ostc_debug 'k' ; Sends debug-information to screen if debugmode active
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3743
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3744 WIN_TOP .090
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3745 WIN_LEFT .0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3746 WIN_FONT FT_SMALL
27
29341afd2060 NEW: Depth, CNS, GF, ppO2 and Velocity are Color-coded
heinrichsweikamp
parents: 26
diff changeset
3747 PLED_color_code warn_cns ; Color-code CNS output
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3748
446
92304826000d localisation part2 from Sergei
heinrichsweikamp
parents: 430
diff changeset
3749 STRCPY TXT_CNS4
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3750 movff char_O_CNS_fraction,lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3751 bsf leftbind
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3752 output_8
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3753 bcf leftbind
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3754 STRCAT_PRINT "%"
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3755 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3756
519
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
3757 ;-----------------------------------------------------------------------------
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
3758 ;
43
65d5b0c8da41 New CF48, changed CF15
heinrichsweikamp
parents: 37
diff changeset
3759 PLED_display_cns_surface:
65d5b0c8da41 New CF48, changed CF15
heinrichsweikamp
parents: 37
diff changeset
3760 ; Check if CNS should be displayed
65d5b0c8da41 New CF48, changed CF15
heinrichsweikamp
parents: 37
diff changeset
3761 movff char_O_CNS_fraction,lo ; copy into bank1
65d5b0c8da41 New CF48, changed CF15
heinrichsweikamp
parents: 37
diff changeset
3762 GETCUSTOM8 d'15' ; cns_display_high_surfacemode
65d5b0c8da41 New CF48, changed CF15
heinrichsweikamp
parents: 37
diff changeset
3763 subwf lo,W
65d5b0c8da41 New CF48, changed CF15
heinrichsweikamp
parents: 37
diff changeset
3764 btfss STATUS,C
65d5b0c8da41 New CF48, changed CF15
heinrichsweikamp
parents: 37
diff changeset
3765 return ; Do not show...
65d5b0c8da41 New CF48, changed CF15
heinrichsweikamp
parents: 37
diff changeset
3766 ; Show CNS
65d5b0c8da41 New CF48, changed CF15
heinrichsweikamp
parents: 37
diff changeset
3767
65d5b0c8da41 New CF48, changed CF15
heinrichsweikamp
parents: 37
diff changeset
3768 ostc_debug 'W' ; Sends debug-information to screen if debugmode active
65d5b0c8da41 New CF48, changed CF15
heinrichsweikamp
parents: 37
diff changeset
3769
65d5b0c8da41 New CF48, changed CF15
heinrichsweikamp
parents: 37
diff changeset
3770 WIN_TOP .175
65d5b0c8da41 New CF48, changed CF15
heinrichsweikamp
parents: 37
diff changeset
3771 WIN_LEFT .45
65d5b0c8da41 New CF48, changed CF15
heinrichsweikamp
parents: 37
diff changeset
3772 WIN_FONT FT_SMALL
65d5b0c8da41 New CF48, changed CF15
heinrichsweikamp
parents: 37
diff changeset
3773 WIN_INVERT .0 ; Init new Wordprocessor
65d5b0c8da41 New CF48, changed CF15
heinrichsweikamp
parents: 37
diff changeset
3774 PLED_color_code warn_cns ; Color-code CNS output
65d5b0c8da41 New CF48, changed CF15
heinrichsweikamp
parents: 37
diff changeset
3775
446
92304826000d localisation part2 from Sergei
heinrichsweikamp
parents: 430
diff changeset
3776 STRCPY TXT_CNS4
43
65d5b0c8da41 New CF48, changed CF15
heinrichsweikamp
parents: 37
diff changeset
3777 movff char_O_CNS_fraction,lo
65d5b0c8da41 New CF48, changed CF15
heinrichsweikamp
parents: 37
diff changeset
3778 bsf leftbind
65d5b0c8da41 New CF48, changed CF15
heinrichsweikamp
parents: 37
diff changeset
3779 output_8
65d5b0c8da41 New CF48, changed CF15
heinrichsweikamp
parents: 37
diff changeset
3780 bcf leftbind
519
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
3781 STRCAT_PRINT "% "
43
65d5b0c8da41 New CF48, changed CF15
heinrichsweikamp
parents: 37
diff changeset
3782 return
65d5b0c8da41 New CF48, changed CF15
heinrichsweikamp
parents: 37
diff changeset
3783
519
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
3784 ;-----------------------------------------------------------------------------
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
3785 ; Display GF at furface, if > CF8.
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
3786 ;
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
3787 PLED_display_gf_surface:
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
3788 movff char_O_gradient_factor,lo ; gradient factor
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
3789 GETCUSTOM8 d'8' ; threshold for display
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
3790 cpfslt lo ; show value?
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
3791 bra PLED_display_gf_surf_1 ; YES: do it.
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
3792 return
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
3793
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
3794 PLED_display_gf_surf_1:
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
3795 WIN_TOP .175
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
3796 WIN_LEFT .45
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
3797 WIN_FONT FT_SMALL
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
3798 PLED_color_code warn_gf ; Color-code Output
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
3799
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
3800 STRCPY TXT_GF3
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
3801 movff char_O_gradient_factor,lo ; gradient factor
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
3802 output_8
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
3803 STRCAT_PRINT "% "
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
3804 goto PLED_standard_color
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
3805
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
3806 ;-----------------------------------------------------------------------------
43
65d5b0c8da41 New CF48, changed CF15
heinrichsweikamp
parents: 37
diff changeset
3807
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3808 PLED_custom_text:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3809 read_int_eeprom d'64'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3810 movlw d'1'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3811 cpfseq EEDATA ; Custom text active?
607
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
3812 bra PLED_custom_text_serial ; No, show serial instead
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3813 WIN_TOP .200
62
2972a06b0785 1.71 beta in work
heinrichsweikamp
parents: 56
diff changeset
3814 WIN_LEFT .0
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3815 WIN_FONT FT_SMALL
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3816 WIN_INVERT .0 ; Init new Wordprocessor
9
395230c28023 Added CF36: Divemask color
heinrichsweikamp
parents: 8
diff changeset
3817 call PLED_divemask_color ; Set Color for Divemode mask
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3818
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3819 lfsr FSR2,letter
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3820 movlw d'64'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3821 movwf lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3822 movlw d'24'
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3823 movwf hi ; counter
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3824
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3825 PLED_custom_text1:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3826 incf lo,F
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3827 call PLED_get_custom_letter ; Get one letter for the custom text
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3828 movlw '}' ; End marker found?
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3829 cpfseq EEDATA
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3830 bra PLED_custom_text2 ; No
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3831 bra PLED_custom_text3
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3832 PLED_custom_text2:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3833 movff EEDATA,POSTINC2 ; Copy into Postinc
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3834
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3835 decfsz hi,F ; Max. numbers?
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3836 bra PLED_custom_text1 ; No, get next letters
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3837
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3838 PLED_custom_text3:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3839 call word_processor
3
3cf8af30b36e v1.51 beta
heinrichsweikamp
parents: 0
diff changeset
3840 call PLED_standard_color
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3841 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3842
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3843 PLED_get_custom_letter:
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3844 movff lo,EEADR ; Address for next custom text letter
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3845 call read_eeprom ; Read letter
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3846 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3847
607
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
3848 PLED_custom_text_serial:
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3849 WIN_TOP .200
607
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
3850 WIN_LEFT .50
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
3851 WIN_FONT FT_SMALL
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
3852 WIN_INVERT .0 ; Init new Wordprocessor
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
3853 call PLED_divemask_color ; Set Color for Divemode mask
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
3854
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
3855 lfsr FSR2,letter
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
3856 OUTPUTTEXTH d'262' ; "OSTC "
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
3857 clrf EEADRH
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
3858 clrf EEADR ; Get Serial number LOW
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
3859 call read_eeprom ; read byte
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
3860 movff EEDATA,lo
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
3861 incf EEADR,F ; Get Serial number HIGH
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
3862 call read_eeprom ; read byte
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
3863 movff EEDATA,hi
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
3864 bsf leftbind
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
3865 output_16
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
3866 call word_processor
227eaded4e1b Small layout change for mainscreen
heinrichsweikamp
parents: 598
diff changeset
3867 call PLED_standard_color
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3868 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
3869
33
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3870 PLED_simdata_screen: ;Display Pre-Dive Screen
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3871 ; List active gases/Setpoints
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3872 btfsc FLAG_const_ppO2_mode ; in ppO2 mode?
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3873 bra PLED_simdata_screen3 ; Yes, display SetPoint/Sensor result list
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3874
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3875 PLED_simdata_screen2:
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3876 ostc_debug 'm' ; Sends debug-information to screen if debugmode active
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3877
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3878 WIN_LEFT .0
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3879 WIN_FONT FT_SMALL
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3880 bsf leftbind
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3881
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3882 movlw d'2'
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3883 movwf wait_temp ; here: stores eeprom address for gas list
34
5dbdc08e5460 New Simulator results screen
heinrichsweikamp
parents: 33
diff changeset
3884 movlw d'10'
33
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3885 movwf waitms_temp ; here: stores row for gas list
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3886 clrf hi ; here: Gas counter
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3887
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3888 PLED_simdata_screen2_loop:
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3889 incf hi,F ; Increase Gas
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3890 movlw d'4'
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3891 addwf wait_temp,F ; Increase eeprom address for gas list
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3892
446
92304826000d localisation part2 from Sergei
heinrichsweikamp
parents: 430
diff changeset
3893 STRCPY TXT_GAS1
33
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3894 movff hi,lo ; copy gas number
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3895 output_8 ; display gas number
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3896 PUTC ':'
519
154b1d1c489e NEW added GF surface display.
JeanDo
parents: 517
diff changeset
3897 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
3898 call read_eeprom ; get byte (stored in EEDATA)
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3899 movff EEDATA,lo ; copy to lo
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3900 output_8 ; outputs into Postinc2!
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3901 PUTC '/'
33
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3902 incf EEADR,F ; Gas #hi: %He - Set address in internal EEPROM
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3903 call read_eeprom ; get byte (stored in EEDATA)
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3904 movff EEDATA,lo ; copy to lo
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3905 output_8 ; outputs into Postinc2!
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3906 PUTC ' '
34
5dbdc08e5460 New Simulator results screen
heinrichsweikamp
parents: 33
diff changeset
3907 movf hi,W ; Gas number
5dbdc08e5460 New Simulator results screen
heinrichsweikamp
parents: 33
diff changeset
3908 addlw d'27' ; -> Adress of change depth register
5dbdc08e5460 New Simulator results screen
heinrichsweikamp
parents: 33
diff changeset
3909 call read_int_eeprom_1
5dbdc08e5460 New Simulator results screen
heinrichsweikamp
parents: 33
diff changeset
3910 movff EEDATA,lo ; Change depth in m
223
2a0a446fa6c0 Show decoplan.
JeanDo
parents: 221
diff changeset
3911 movff lo,divemins ; Store for grey-out
34
5dbdc08e5460 New Simulator results screen
heinrichsweikamp
parents: 33
diff changeset
3912 output_99 ; outputs into Postinc2!
446
92304826000d localisation part2 from Sergei
heinrichsweikamp
parents: 430
diff changeset
3913 PUTC TXT_METER_C
223
2a0a446fa6c0 Show decoplan.
JeanDo
parents: 221
diff changeset
3914
2a0a446fa6c0 Show decoplan.
JeanDo
parents: 221
diff changeset
3915 ; Check if gas is first gas ?
2a0a446fa6c0 Show decoplan.
JeanDo
parents: 221
diff changeset
3916 read_int_eeprom d'33' ; First gas (1-5)?
2a0a446fa6c0 Show decoplan.
JeanDo
parents: 221
diff changeset
3917 movf hi,W ; Current gas in WREG
2a0a446fa6c0 Show decoplan.
JeanDo
parents: 221
diff changeset
3918 cpfseq EEDATA ; Is equal first gas?
2a0a446fa6c0 Show decoplan.
JeanDo
parents: 221
diff changeset
3919 bra PLED_simdata_screen2_loop2 ; No : more tests...
2a0a446fa6c0 Show decoplan.
JeanDo
parents: 221
diff changeset
3920
2a0a446fa6c0 Show decoplan.
JeanDo
parents: 221
diff changeset
3921 bra PLED_simdata_white ; Yes
2a0a446fa6c0 Show decoplan.
JeanDo
parents: 221
diff changeset
3922
2a0a446fa6c0 Show decoplan.
JeanDo
parents: 221
diff changeset
3923 PLED_simdata_screen2_loop2:
2a0a446fa6c0 Show decoplan.
JeanDo
parents: 221
diff changeset
3924 ; Check if gas is inactive ?
2a0a446fa6c0 Show decoplan.
JeanDo
parents: 221
diff changeset
3925 read_int_eeprom d'27' ; read flag register
2a0a446fa6c0 Show decoplan.
JeanDo
parents: 221
diff changeset
3926 movff hi,lo ; copy gas number
33
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3927 PLED_simdata_screen2_loop1:
223
2a0a446fa6c0 Show decoplan.
JeanDo
parents: 221
diff changeset
3928 rrcf EEDATA ; roll flags into carry
2a0a446fa6c0 Show decoplan.
JeanDo
parents: 221
diff changeset
3929 decfsz lo,F ; max. 5 times...
33
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3930 bra PLED_simdata_screen2_loop1
181
0651d5dc3f42 1st. gas not grey in simulator
heinrichsweikamp
parents: 180
diff changeset
3931
223
2a0a446fa6c0 Show decoplan.
JeanDo
parents: 221
diff changeset
3932 btfss STATUS,C ; test inactive flag
2a0a446fa6c0 Show decoplan.
JeanDo
parents: 221
diff changeset
3933 bra PLED_simdata_grey ; Is inactive!
2a0a446fa6c0 Show decoplan.
JeanDo
parents: 221
diff changeset
3934
2a0a446fa6c0 Show decoplan.
JeanDo
parents: 221
diff changeset
3935 tstfsz divemins ; Test change depth=0?
2a0a446fa6c0 Show decoplan.
JeanDo
parents: 221
diff changeset
3936 bra PLED_simdata_white ; Is not zero
179
77ab44108c07 BUGFIX: Inactive gases greyed-out in Simulator results
Heinrichsweikamp
parents: 178
diff changeset
3937
77ab44108c07 BUGFIX: Inactive gases greyed-out in Simulator results
Heinrichsweikamp
parents: 178
diff changeset
3938 PLED_simdata_grey:
587
1b021a280e15 NEW CF64: Configures color for inactive gases
heinrichsweikamp
parents: 576
diff changeset
3939 GETCUSTOM8 d'64' ;movlw color_grey
223
2a0a446fa6c0 Show decoplan.
JeanDo
parents: 221
diff changeset
3940 call PLED_set_color ; grey out inactive gases!
33
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3941 bra PLED_simdata_color_done
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3942
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3943 PLED_simdata_white:
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3944 call PLED_standard_color
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3945
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3946 PLED_simdata_color_done:
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3947 movlw d'25'
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3948 addwf waitms_temp,F ; Increase row
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3949 WIN_LEFT .0
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3950 movff waitms_temp,win_top ; Set Row
34
5dbdc08e5460 New Simulator results screen
heinrichsweikamp
parents: 33
diff changeset
3951 call word_processor ; display gas
33
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3952
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3953 PLED_simdata_screen2b:
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3954 call PLED_standard_color
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3955
34
5dbdc08e5460 New Simulator results screen
heinrichsweikamp
parents: 33
diff changeset
3956 movlw d'5' ; list all five gases
33
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3957 cpfseq hi ; All gases shown?
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3958 bra PLED_simdata_screen2_loop ; No
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3959
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3960 return ; No, return (OC mode)
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3961
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3962 PLED_simdata_screen3:
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3963 WIN_LEFT .0
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3964 WIN_FONT FT_SMALL
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3965 bsf leftbind
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3966
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3967 ; list three SP in Gaslist
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3968 movlw d'35' ; 36 = current SP position in EEPROM
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3969 movwf wait_temp ; here: stores eeprom address for gas list
34
5dbdc08e5460 New Simulator results screen
heinrichsweikamp
parents: 33
diff changeset
3970 movlw d'10'
33
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3971 movwf waitms_temp ; here: stores row for gas list
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
3972 clrf decoplan_index ; here: SP counter
33
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3973
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3974 PLED_simdata_screen3_loop:
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3975 incf wait_temp,F ; EEPROM address
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
3976 incf decoplan_index,F ; Increase SP
33
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3977
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3978 movlw d'25'
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3979 addwf waitms_temp,F ; Increase row
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3980 WIN_LEFT .0
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3981 movff waitms_temp,win_top ; Set Row
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3982
446
92304826000d localisation part2 from Sergei
heinrichsweikamp
parents: 430
diff changeset
3983 STRCPY TXT_SP2
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
3984 movff decoplan_index,lo ; copy gas number
33
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3985 output_8 ; display gas number
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
3986 STRCAT ": "
33
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3987 movff wait_temp, EEADR; SP #hi position
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3988 call read_eeprom ; get byte (stored in EEDATA)
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3989 movff EEDATA,lo ; copy to lo
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3990 clrf hi
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3991 output_16dp d'3' ; outputs into Postinc2!
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3992 call word_processor
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 movlw d'3' ; list all three SP
124
4f9f477bb452 Rewrite display of decoplan:
JeanDo
parents: 123
diff changeset
3995 cpfseq decoplan_index ; All gases shown?
33
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3996 bra PLED_simdata_screen3_loop ;no
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3997
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3998 read_int_eeprom d'33' ; Read byte (stored in EEDATA)
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
3999 movff EEDATA,active_gas ; Read start gas (1-5)
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
4000 decf active_gas,W ; Gas 0-4
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
4001 mullw d'4'
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
4002 movf PRODL,W
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
4003 addlw d'7' ; = address for He ratio
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
4004 movwf EEADR
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
4005 call read_eeprom ; Read He ratio
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
4006 movff EEDATA,hi ; And copy into hold register
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
4007 decf active_gas,W ; Gas 0-4
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
4008 mullw d'4'
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
4009 movf PRODL,W
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
4010 addlw d'6' ; = address for O2 ratio
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
4011 movwf EEADR
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
4012 call read_eeprom ; Read O2 ratio
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
4013 movff EEDATA, lo ; O2 ratio
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
4014
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
4015 WIN_LEFT .0
34
5dbdc08e5460 New Simulator results screen
heinrichsweikamp
parents: 33
diff changeset
4016 WIN_TOP .110
123
6a94f96e9cea The big cleanup, again.
JeanDo
parents: 121
diff changeset
4017
446
92304826000d localisation part2 from Sergei
heinrichsweikamp
parents: 430
diff changeset
4018 STRCPY TXT_DIL4
33
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
4019 output_8 ; O2 Ratio
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 hi,lo
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
4022 output_8 ; He Ratio
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
4023 call word_processor
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
4024
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
4025 bcf leftbind
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
4026 return ; Return (CC Mode)
6e5db85382a2 Speedy simulator! New Deco code test 1
heinrichsweikamp
parents: 30
diff changeset
4027
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4028
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4029
398
ab962c4b19d6 Fixing issue 50, correct "Bar" to "bar" in texts and comments
heinrichsweikamp
parents: 396
diff changeset
4030 adjust_depth_with_salinity: ; computes salinity setting into lo:hi [mbar]
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4031
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4032 btfsc simulatormode_active ; Do apply salinity in Simulatormode
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4033 return
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4034
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4035 read_int_eeprom d'26' ; Read Salinity from EEPROM
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4036 movff EEDATA, wait_temp ; salinity
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4037
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4038 movlw d'105' ; 105% ?
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4039 cpfslt wait_temp ; Salinity higher limit
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4040 return ; Out of limit, do not adjust lo:hi
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4041
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4042 movlw d'99' ; 99% ?
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4043 cpfsgt wait_temp ; Salinity lower limit
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4044 return ; Out of limit, do not adjust lo:hi
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4045
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4046 movff lo,xA+0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4047 movff hi,xA+1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4048
419
e671d2018e0f 0.98bar equal 10m depths with salinity set to 1.00kg/l
heinrichsweikamp
parents: 417
diff changeset
4049 movlw d'102' ; 0,98bar/10m
0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4050 movwf xB+0
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4051 clrf xB+1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4052
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4053 call mult16x16 ;xA*xB=xC (lo:hi * 100)
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4054
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4055 movff wait_temp,xB+0 ; Salinity
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4056 clrf xB+1
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4057
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4058 call div32x16 ; xC:4 / xB:2 = xC+3:xC+2 with xC+1:xC+0 as remainder
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4059
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4060 movff xC+0,lo
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4061 movff xC+1,hi ; restore lo and hi with updated value
96a35aeda5f2 Initial setup
heinrichsweikamp
parents:
diff changeset
4062
517
a73a452ca155 Backed out changeset: b498245da3f1
heinrichsweikamp
parents: 516
diff changeset
4063 return