Mercurial > public > mk2

annotate code_part1/OSTC_code_asm_part1/outputs.asm @ 841:8d73c9dcf851 default tip

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