Mercurial > public > hwos_code

annotate src/options.asm @ 99:87cc1adfe4da

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
show event "bailout" in the internal logbook
author heinrichsweikamp
date Fri, 02 May 2014 14:13:35 +0200
parents 53a99a2dc6a1
children 223579e905c3
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
heinrichsweikamp
parents:
diff changeset
1 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
2 ;
heinrichsweikamp
parents:
diff changeset
3 ; File options.asm
heinrichsweikamp
parents:
diff changeset
4 ;
heinrichsweikamp
parents:
diff changeset
5 ; Manage all options data.
heinrichsweikamp
parents:
diff changeset
6 ;
heinrichsweikamp
parents:
diff changeset
7 ; Copyright (c) 2011, JD Gascuel, HeinrichsWeikamp, all right reserved.
heinrichsweikamp
parents:
diff changeset
8 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
9 ; HISTORY
heinrichsweikamp
parents:
diff changeset
10 ; 2011-07-12 : [jDG] Creation.
heinrichsweikamp
parents:
diff changeset
11 ;
heinrichsweikamp
parents:
diff changeset
12 ; RATIONALS:
heinrichsweikamp
parents:
diff changeset
13 ;
heinrichsweikamp
parents:
diff changeset
14 ; Provides a centralized file with
heinrichsweikamp
parents:
diff changeset
15
heinrichsweikamp
parents:
diff changeset
16 #include "ostc3.inc" ; Mandatory header
heinrichsweikamp
parents:
diff changeset
17 #include "strings.inc"
heinrichsweikamp
parents:
diff changeset
18 #include "convert.inc"
heinrichsweikamp
parents:
diff changeset
19 #include "ghostwriter.inc"
heinrichsweikamp
parents:
diff changeset
20 #include "eeprom_rs232.inc"
heinrichsweikamp
parents:
diff changeset
21 #include "external_flash.inc"
21
79b2084fd75a Reset options to default if they are not within the allowed min/max values
heinrichsweikamp
parents: 18
diff changeset
22 #include "wait.inc"
0
heinrichsweikamp
parents:
diff changeset
23
heinrichsweikamp
parents:
diff changeset
24 extern write_eeprom
heinrichsweikamp
parents:
diff changeset
25 extern read_eeprom
heinrichsweikamp
parents:
diff changeset
26 extern eeprom_serial_save,eeprom_opt_backup
heinrichsweikamp
parents:
diff changeset
27
heinrichsweikamp
parents:
diff changeset
28 global option_reset_all ; Reset all options to factory default.
21
79b2084fd75a Reset options to default if they are not within the allowed min/max values
heinrichsweikamp
parents: 18
diff changeset
29 global option_check_all ; Check all option and reset option if out of min/max boundary
0
heinrichsweikamp
parents:
diff changeset
30 global option_reset ; Reset FSR0 option to factory default.
heinrichsweikamp
parents:
diff changeset
31 global option_save_all ; Save options to EEPROM.
heinrichsweikamp
parents:
diff changeset
32 global option_restore_all ; Restore options from EEPROM.
heinrichsweikamp
parents:
diff changeset
33 global option_inc ; Increment FSR0 option.
heinrichsweikamp
parents:
diff changeset
34 global option_draw ; STRCAT FRS0 option.
heinrichsweikamp
parents:
diff changeset
35
21
79b2084fd75a Reset options to default if they are not within the allowed min/max values
heinrichsweikamp
parents: 18
diff changeset
36
0
heinrichsweikamp
parents:
diff changeset
37 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
38 CBLOCK tmp+0x10 ; Reserve space for wordprocessor & convert
heinrichsweikamp
parents:
diff changeset
39 opt_type
heinrichsweikamp
parents:
diff changeset
40 opt_default
heinrichsweikamp
parents:
diff changeset
41 opt_inc ; Also default+1 (string), and enum low
heinrichsweikamp
parents:
diff changeset
42 opt_min ; also enum high
heinrichsweikamp
parents:
diff changeset
43 opt_max
heinrichsweikamp
parents:
diff changeset
44 opt_unit:2 ; Multi-lingual unit text.
heinrichsweikamp
parents:
diff changeset
45 opt_eeprom
heinrichsweikamp
parents:
diff changeset
46 opt_backup_tbl:3
heinrichsweikamp
parents:
diff changeset
47 ; Reserved to tmp+0x1F...
heinrichsweikamp
parents:
diff changeset
48 ENDC
heinrichsweikamp
parents:
diff changeset
49
heinrichsweikamp
parents:
diff changeset
50 gui CODE ; Appends to other GUI segment
heinrichsweikamp
parents:
diff changeset
51 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
52 ; Reset all options to factory defauts.
heinrichsweikamp
parents:
diff changeset
53 ;
heinrichsweikamp
parents:
diff changeset
54 ; INPUT: none
heinrichsweikamp
parents:
diff changeset
55 ; OUTPUT: none
heinrichsweikamp
parents:
diff changeset
56 ; TRASH: TBLPTR, TABLAT, WREG, FSR0, FSR1, FSR2
heinrichsweikamp
parents:
diff changeset
57
heinrichsweikamp
parents:
diff changeset
58 option_reset_all:
heinrichsweikamp
parents:
diff changeset
59 clrf EEADRH
heinrichsweikamp
parents:
diff changeset
60 read_int_eeprom .2
heinrichsweikamp
parents:
diff changeset
61 movff EEDATA,lo
heinrichsweikamp
parents:
diff changeset
62 read_int_eeprom .3
heinrichsweikamp
parents:
diff changeset
63 movff EEDATA,hi
heinrichsweikamp
parents:
diff changeset
64 tstfsz lo ; Total dives=0?
heinrichsweikamp
parents:
diff changeset
65 bra option_reset_all2 ; No, skip resetting logbook
heinrichsweikamp
parents:
diff changeset
66 tstfsz hi ; Total dives=0?
heinrichsweikamp
parents:
diff changeset
67 bra option_reset_all2 ; No, skip resetting logbook
heinrichsweikamp
parents:
diff changeset
68
heinrichsweikamp
parents:
diff changeset
69 clrf EEADRH ; Make sure to select eeprom bank 0
heinrichsweikamp
parents:
diff changeset
70 clrf EEDATA
heinrichsweikamp
parents:
diff changeset
71 write_int_eeprom .4
heinrichsweikamp
parents:
diff changeset
72 write_int_eeprom .5
heinrichsweikamp
parents:
diff changeset
73 write_int_eeprom .6
heinrichsweikamp
parents:
diff changeset
74 write_int_eeprom .2 ; Also, delete total dive counter
heinrichsweikamp
parents:
diff changeset
75 write_int_eeprom .3
heinrichsweikamp
parents:
diff changeset
76 call ext_flash_erase_logbook ; And complete logbook (!)
heinrichsweikamp
parents:
diff changeset
77
heinrichsweikamp
parents:
diff changeset
78 option_reset_all2:
heinrichsweikamp
parents:
diff changeset
79 clrf lo
heinrichsweikamp
parents:
diff changeset
80 clrf hi
heinrichsweikamp
parents:
diff changeset
81 call do_logoffset_common_write ; reset Logbook offset
21
79b2084fd75a Reset options to default if they are not within the allowed min/max values
heinrichsweikamp
parents: 18
diff changeset
82
79b2084fd75a Reset options to default if they are not within the allowed min/max values
heinrichsweikamp
parents: 18
diff changeset
83 ; Point to option table begin
0
heinrichsweikamp
parents:
diff changeset
84 movlw LOW(option_table_begin)
heinrichsweikamp
parents:
diff changeset
85 movwf FSR0L
heinrichsweikamp
parents:
diff changeset
86 movlw HIGH(option_table_begin)
heinrichsweikamp
parents:
diff changeset
87 movwf FSR0H
heinrichsweikamp
parents:
diff changeset
88 option_reset_all_1:
heinrichsweikamp
parents:
diff changeset
89 movf FSR0L,W ; Reached end of table ?
heinrichsweikamp
parents:
diff changeset
90 xorlw LOW(option_table_end) ; (8bit test -> 10 bytes x 128 options max)
heinrichsweikamp
parents:
diff changeset
91 btfsc STATUS,Z ; YES: done.
heinrichsweikamp
parents:
diff changeset
92 return
heinrichsweikamp
parents:
diff changeset
93
heinrichsweikamp
parents:
diff changeset
94 rcall option_reset ; Reset one option.
heinrichsweikamp
parents:
diff changeset
95 bra option_reset_all_1 ; and loop.
heinrichsweikamp
parents:
diff changeset
96
heinrichsweikamp
parents:
diff changeset
97 ;=============================================================================
21
79b2084fd75a Reset options to default if they are not within the allowed min/max values
heinrichsweikamp
parents: 18
diff changeset
98 ; Check all option and reset option if out of min/max boundary
79b2084fd75a Reset options to default if they are not within the allowed min/max values
heinrichsweikamp
parents: 18
diff changeset
99 ;
79b2084fd75a Reset options to default if they are not within the allowed min/max values
heinrichsweikamp
parents: 18
diff changeset
100 ; INPUT: none
79b2084fd75a Reset options to default if they are not within the allowed min/max values
heinrichsweikamp
parents: 18
diff changeset
101 ; OUTPUT: none
79b2084fd75a Reset options to default if they are not within the allowed min/max values
heinrichsweikamp
parents: 18
diff changeset
102 ; TRASH: TBLPTR, TABLAT, WREG, FSR0, FSR1, FSR2
79b2084fd75a Reset options to default if they are not within the allowed min/max values
heinrichsweikamp
parents: 18
diff changeset
103 option_check_all:
79b2084fd75a Reset options to default if they are not within the allowed min/max values
heinrichsweikamp
parents: 18
diff changeset
104 ; Point to option table begin
79b2084fd75a Reset options to default if they are not within the allowed min/max values
heinrichsweikamp
parents: 18
diff changeset
105 movlw LOW(option_table_begin)
79b2084fd75a Reset options to default if they are not within the allowed min/max values
heinrichsweikamp
parents: 18
diff changeset
106 movwf FSR0L
79b2084fd75a Reset options to default if they are not within the allowed min/max values
heinrichsweikamp
parents: 18
diff changeset
107 movlw HIGH(option_table_begin)
79b2084fd75a Reset options to default if they are not within the allowed min/max values
heinrichsweikamp
parents: 18
diff changeset
108 movwf FSR0H
79b2084fd75a Reset options to default if they are not within the allowed min/max values
heinrichsweikamp
parents: 18
diff changeset
109
79b2084fd75a Reset options to default if they are not within the allowed min/max values
heinrichsweikamp
parents: 18
diff changeset
110 option_check_all_1:
79b2084fd75a Reset options to default if they are not within the allowed min/max values
heinrichsweikamp
parents: 18
diff changeset
111 movf FSR0L,W ; Reached end of table ?
79b2084fd75a Reset options to default if they are not within the allowed min/max values
heinrichsweikamp
parents: 18
diff changeset
112 xorlw LOW(option_table_end) ; (8bit test -> 10 bytes x 128 options max)
79b2084fd75a Reset options to default if they are not within the allowed min/max values
heinrichsweikamp
parents: 18
diff changeset
113 btfsc STATUS,Z ; YES: done.
79b2084fd75a Reset options to default if they are not within the allowed min/max values
heinrichsweikamp
parents: 18
diff changeset
114 return
79b2084fd75a Reset options to default if they are not within the allowed min/max values
heinrichsweikamp
parents: 18
diff changeset
115
79b2084fd75a Reset options to default if they are not within the allowed min/max values
heinrichsweikamp
parents: 18
diff changeset
116 rcall option_check ; check one option.
79b2084fd75a Reset options to default if they are not within the allowed min/max values
heinrichsweikamp
parents: 18
diff changeset
117 bra option_check_all_1 ; and loop
79b2084fd75a Reset options to default if they are not within the allowed min/max values
heinrichsweikamp
parents: 18
diff changeset
118
79b2084fd75a Reset options to default if they are not within the allowed min/max values
heinrichsweikamp
parents: 18
diff changeset
119 ;=============================================================================
0
heinrichsweikamp
parents:
diff changeset
120 ; Read option handle
heinrichsweikamp
parents:
diff changeset
121 ; INPUT: FSR0 = option handle
heinrichsweikamp
parents:
diff changeset
122 ; OUTPUT: FSR1 = address of variable.
heinrichsweikamp
parents:
diff changeset
123 ; TRASH: TBLPTR, TABLAT, WREG, FSR0, FSR1
heinrichsweikamp
parents:
diff changeset
124 option_read:
heinrichsweikamp
parents:
diff changeset
125 movff FSR0L,TBLPTRL
heinrichsweikamp
parents:
diff changeset
126 movlw HIGH(option_table_begin); Get 8 high bits.
heinrichsweikamp
parents:
diff changeset
127 andlw 0xF0 ; Keep only the 4 highest ones.
heinrichsweikamp
parents:
diff changeset
128 iorwf FSR0H,W ; Cat with the known 4 lower ones.
heinrichsweikamp
parents:
diff changeset
129 movwf TBLPTRH ; And we have the high byte.
heinrichsweikamp
parents:
diff changeset
130 movlw UPPER(option_table_begin)
heinrichsweikamp
parents:
diff changeset
131 movwf TBLPTRU
heinrichsweikamp
parents:
diff changeset
132
heinrichsweikamp
parents:
diff changeset
133 ; Read type, default and register from table
heinrichsweikamp
parents:
diff changeset
134 tblrd*+
heinrichsweikamp
parents:
diff changeset
135 movff TABLAT,opt_type
heinrichsweikamp
parents:
diff changeset
136 tblrd*+
heinrichsweikamp
parents:
diff changeset
137 movff TABLAT,opt_default
heinrichsweikamp
parents:
diff changeset
138 tblrd*+
heinrichsweikamp
parents:
diff changeset
139 movff TABLAT,opt_inc
heinrichsweikamp
parents:
diff changeset
140 tblrd*+
heinrichsweikamp
parents:
diff changeset
141 movff TABLAT,opt_min
heinrichsweikamp
parents:
diff changeset
142 tblrd*+
heinrichsweikamp
parents:
diff changeset
143 movff TABLAT,opt_max
heinrichsweikamp
parents:
diff changeset
144 tblrd*+
heinrichsweikamp
parents:
diff changeset
145 movff TABLAT,opt_eeprom
heinrichsweikamp
parents:
diff changeset
146 tblrd*+
heinrichsweikamp
parents:
diff changeset
147 movff TABLAT,opt_unit+0
heinrichsweikamp
parents:
diff changeset
148 tblrd*+
heinrichsweikamp
parents:
diff changeset
149 movff TABLAT,opt_unit+1
heinrichsweikamp
parents:
diff changeset
150 tblrd*+
heinrichsweikamp
parents:
diff changeset
151 movff TABLAT,FSR1L
heinrichsweikamp
parents:
diff changeset
152 tblrd*+
heinrichsweikamp
parents:
diff changeset
153 movff TABLAT,FSR1H
heinrichsweikamp
parents:
diff changeset
154 movff TBLPTRL,FSR0L ; Advance handle too, for reset_all
heinrichsweikamp
parents:
diff changeset
155 movff TBLPTRH,FSR0H
heinrichsweikamp
parents:
diff changeset
156 return
21
79b2084fd75a Reset options to default if they are not within the allowed min/max values
heinrichsweikamp
parents: 18
diff changeset
157
79b2084fd75a Reset options to default if they are not within the allowed min/max values
heinrichsweikamp
parents: 18
diff changeset
158 ;=============================================================================
79b2084fd75a Reset options to default if they are not within the allowed min/max values
heinrichsweikamp
parents: 18
diff changeset
159 ; Check one option and reset if it's out of it's min/max boundaries
79b2084fd75a Reset options to default if they are not within the allowed min/max values
heinrichsweikamp
parents: 18
diff changeset
160 ; INPUT: FSR0 = option handle
79b2084fd75a Reset options to default if they are not within the allowed min/max values
heinrichsweikamp
parents: 18
diff changeset
161 ; OUTPUT: none
79b2084fd75a Reset options to default if they are not within the allowed min/max values
heinrichsweikamp
parents: 18
diff changeset
162 ; TRASH: TBLPTR, TABLAT, WREG, FSR1, FSR2, lo
79b2084fd75a Reset options to default if they are not within the allowed min/max values
heinrichsweikamp
parents: 18
diff changeset
163 ;
79b2084fd75a Reset options to default if they are not within the allowed min/max values
heinrichsweikamp
parents: 18
diff changeset
164 option_check:
79b2084fd75a Reset options to default if they are not within the allowed min/max values
heinrichsweikamp
parents: 18
diff changeset
165 ; Read type, default and register from table
79b2084fd75a Reset options to default if they are not within the allowed min/max values
heinrichsweikamp
parents: 18
diff changeset
166 rcall option_read
79b2084fd75a Reset options to default if they are not within the allowed min/max values
heinrichsweikamp
parents: 18
diff changeset
167
79b2084fd75a Reset options to default if they are not within the allowed min/max values
heinrichsweikamp
parents: 18
diff changeset
168 ; Switch on type
79b2084fd75a Reset options to default if they are not within the allowed min/max values
heinrichsweikamp
parents: 18
diff changeset
169 movf opt_type,W ; Type == STRING ?
79b2084fd75a Reset options to default if they are not within the allowed min/max values
heinrichsweikamp
parents: 18
diff changeset
170 xorlw 2
79b2084fd75a Reset options to default if they are not within the allowed min/max values
heinrichsweikamp
parents: 18
diff changeset
171 bz option_check_string ; String: Do not reset strings
79b2084fd75a Reset options to default if they are not within the allowed min/max values
heinrichsweikamp
parents: 18
diff changeset
172
79b2084fd75a Reset options to default if they are not within the allowed min/max values
heinrichsweikamp
parents: 18
diff changeset
173 movf opt_min,W
79b2084fd75a Reset options to default if they are not within the allowed min/max values
heinrichsweikamp
parents: 18
diff changeset
174 cpfsgt INDF1 ; bigger then opt_min?
79b2084fd75a Reset options to default if they are not within the allowed min/max values
heinrichsweikamp
parents: 18
diff changeset
175 bra option_check_reset ; No, reset option
79b2084fd75a Reset options to default if they are not within the allowed min/max values
heinrichsweikamp
parents: 18
diff changeset
176 movf INDF1,W
79b2084fd75a Reset options to default if they are not within the allowed min/max values
heinrichsweikamp
parents: 18
diff changeset
177 cpfsgt opt_max ; bigger then INDF1?
79b2084fd75a Reset options to default if they are not within the allowed min/max values
heinrichsweikamp
parents: 18
diff changeset
178 bra option_check_reset ; No, reset option
79b2084fd75a Reset options to default if they are not within the allowed min/max values
heinrichsweikamp
parents: 18
diff changeset
179 return ; in range, return
79b2084fd75a Reset options to default if they are not within the allowed min/max values
heinrichsweikamp
parents: 18
diff changeset
180
79b2084fd75a Reset options to default if they are not within the allowed min/max values
heinrichsweikamp
parents: 18
diff changeset
181 option_check_reset:
79b2084fd75a Reset options to default if they are not within the allowed min/max values
heinrichsweikamp
parents: 18
diff changeset
182 movff opt_default,INDF1 ; reset option to default
79b2084fd75a Reset options to default if they are not within the allowed min/max values
heinrichsweikamp
parents: 18
diff changeset
183 return ; Done.
79b2084fd75a Reset options to default if they are not within the allowed min/max values
heinrichsweikamp
parents: 18
diff changeset
184
79b2084fd75a Reset options to default if they are not within the allowed min/max values
heinrichsweikamp
parents: 18
diff changeset
185 option_check_string:
79b2084fd75a Reset options to default if they are not within the allowed min/max values
heinrichsweikamp
parents: 18
diff changeset
186 return
79b2084fd75a Reset options to default if they are not within the allowed min/max values
heinrichsweikamp
parents: 18
diff changeset
187
0
heinrichsweikamp
parents:
diff changeset
188 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
189 ; Reset an option to its default value.
heinrichsweikamp
parents:
diff changeset
190 ; INPUT: FSR0 = option handle
heinrichsweikamp
parents:
diff changeset
191 ; OUTPUT: none
heinrichsweikamp
parents:
diff changeset
192 ; TRASH: TBLPTR, TABLAT, WREG, FSR1, FSR2
heinrichsweikamp
parents:
diff changeset
193 ;
heinrichsweikamp
parents:
diff changeset
194 option_reset:
heinrichsweikamp
parents:
diff changeset
195 ; Read type, default and register from table
heinrichsweikamp
parents:
diff changeset
196 rcall option_read
heinrichsweikamp
parents:
diff changeset
197
heinrichsweikamp
parents:
diff changeset
198 ; Switch on type
heinrichsweikamp
parents:
diff changeset
199 movf opt_type,W ; Type == STRING ?
heinrichsweikamp
parents:
diff changeset
200 xorlw 2
heinrichsweikamp
parents:
diff changeset
201 bz opt_reset_string ; YES: special copy
heinrichsweikamp
parents:
diff changeset
202
heinrichsweikamp
parents:
diff changeset
203 movff opt_default,INDF1 ; NO: just a 8bit indirect copy
heinrichsweikamp
parents:
diff changeset
204 return
heinrichsweikamp
parents:
diff changeset
205
heinrichsweikamp
parents:
diff changeset
206 opt_reset_string:
heinrichsweikamp
parents:
diff changeset
207 movff FSR1L,FSR2L ; set string destination address.
heinrichsweikamp
parents:
diff changeset
208 movff FSR1H,FSR2H
heinrichsweikamp
parents:
diff changeset
209
heinrichsweikamp
parents:
diff changeset
210 movff opt_default+0,FSR1L ; Get handle to multi-lingual text in FSR1
heinrichsweikamp
parents:
diff changeset
211 movff opt_default+1,FSR1H
heinrichsweikamp
parents:
diff changeset
212
heinrichsweikamp
parents:
diff changeset
213 movff TBLPTRL,opt_backup_tbl+0; TBLPTR trashed by text routine...
heinrichsweikamp
parents:
diff changeset
214 movff TBLPTRH,opt_backup_tbl+1
heinrichsweikamp
parents:
diff changeset
215 movff TBLPTRU,opt_backup_tbl+2
heinrichsweikamp
parents:
diff changeset
216
heinrichsweikamp
parents:
diff changeset
217 call strcat_text ; Copy translated text to FSR2
heinrichsweikamp
parents:
diff changeset
218
heinrichsweikamp
parents:
diff changeset
219 movff opt_backup_tbl+0,TBLPTRL
heinrichsweikamp
parents:
diff changeset
220 movff opt_backup_tbl+1,TBLPTRH
heinrichsweikamp
parents:
diff changeset
221 movff opt_backup_tbl+2,TBLPTRU
heinrichsweikamp
parents:
diff changeset
222
heinrichsweikamp
parents:
diff changeset
223 return
heinrichsweikamp
parents:
diff changeset
224
heinrichsweikamp
parents:
diff changeset
225 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
226 ; Save all options to EEPROM
heinrichsweikamp
parents:
diff changeset
227 option_save_all:
heinrichsweikamp
parents:
diff changeset
228 ;---- Save option serial into EEPROM to detect reset and new version
heinrichsweikamp
parents:
diff changeset
229 movlw LOW(eeprom_serial_save)
heinrichsweikamp
parents:
diff changeset
230 movwf EEADR
heinrichsweikamp
parents:
diff changeset
231 movlw HIGH(eeprom_serial_save)
heinrichsweikamp
parents:
diff changeset
232 movf EEADRH
heinrichsweikamp
parents:
diff changeset
233 movlw LOW(eeprom_opt_serial)
heinrichsweikamp
parents:
diff changeset
234 movwf EEDATA
heinrichsweikamp
parents:
diff changeset
235 call write_eeprom
heinrichsweikamp
parents:
diff changeset
236 incf EEADR,F
heinrichsweikamp
parents:
diff changeset
237 movlw HIGH(eeprom_opt_serial)
heinrichsweikamp
parents:
diff changeset
238 movwf EEDATA
heinrichsweikamp
parents:
diff changeset
239 call write_eeprom
heinrichsweikamp
parents:
diff changeset
240
heinrichsweikamp
parents:
diff changeset
241 ;---- Save all options
heinrichsweikamp
parents:
diff changeset
242 movlw LOW(option_table_begin)
heinrichsweikamp
parents:
diff changeset
243 movwf FSR0L
heinrichsweikamp
parents:
diff changeset
244 movlw HIGH(option_table_begin)
heinrichsweikamp
parents:
diff changeset
245 movwf FSR0H
heinrichsweikamp
parents:
diff changeset
246
heinrichsweikamp
parents:
diff changeset
247 option_save_all_1:
heinrichsweikamp
parents:
diff changeset
248 movf FSR0L,W ; Reached end of table ?
heinrichsweikamp
parents:
diff changeset
249 xorlw LOW(option_table_end) ; (8bit test -> 10 bytes x 128 options max)
heinrichsweikamp
parents:
diff changeset
250 btfsc STATUS,Z ; YES: done.
heinrichsweikamp
parents:
diff changeset
251 return
heinrichsweikamp
parents:
diff changeset
252
heinrichsweikamp
parents:
diff changeset
253 rcall option_save ; Save one option.
heinrichsweikamp
parents:
diff changeset
254 bra option_save_all_1 ; and loop.
heinrichsweikamp
parents:
diff changeset
255
93
5e1ef9bf32ec clear pressure sensor compensation upon update
heinrichsweikamp
parents: 92
diff changeset
256 global option_save
0
heinrichsweikamp
parents:
diff changeset
257 option_save:
heinrichsweikamp
parents:
diff changeset
258 rcall option_read
heinrichsweikamp
parents:
diff changeset
259 incf opt_eeprom,W ; Should we save it ?
heinrichsweikamp
parents:
diff changeset
260 btfsc STATUS,Z ; eeprom address is FFh ?
heinrichsweikamp
parents:
diff changeset
261 return ; YES: nothing to do.
heinrichsweikamp
parents:
diff changeset
262
heinrichsweikamp
parents:
diff changeset
263 movf opt_eeprom,W ; Compute backup address in EEPROM
heinrichsweikamp
parents:
diff changeset
264 addlw LOW(eeprom_opt_backup) ; Add offset
heinrichsweikamp
parents:
diff changeset
265 movwf EEADR
heinrichsweikamp
parents:
diff changeset
266 movlw HIGH(eeprom_opt_backup)
heinrichsweikamp
parents:
diff changeset
267 movwf EEADRH
heinrichsweikamp
parents:
diff changeset
268
heinrichsweikamp
parents:
diff changeset
269 movf opt_type,W ; Option type is string ?
heinrichsweikamp
parents:
diff changeset
270 xorlw 2
heinrichsweikamp
parents:
diff changeset
271 bz option_save_string
heinrichsweikamp
parents:
diff changeset
272
heinrichsweikamp
parents:
diff changeset
273 ; One byte to save to eeprom
heinrichsweikamp
parents:
diff changeset
274 movff INDF1,EEDATA
heinrichsweikamp
parents:
diff changeset
275 goto write_eeprom
heinrichsweikamp
parents:
diff changeset
276
heinrichsweikamp
parents:
diff changeset
277 option_save_string:
heinrichsweikamp
parents:
diff changeset
278 movff POSTINC1,EEDATA ; Write one byte
heinrichsweikamp
parents:
diff changeset
279 call write_eeprom
heinrichsweikamp
parents:
diff changeset
280 infsnz EEADR,F
heinrichsweikamp
parents:
diff changeset
281 incf EEADRH,F
heinrichsweikamp
parents:
diff changeset
282
heinrichsweikamp
parents:
diff changeset
283 decfsz opt_max ; Decrement string length
heinrichsweikamp
parents:
diff changeset
284 bra option_save_string ; And loop while not finished
heinrichsweikamp
parents:
diff changeset
285
heinrichsweikamp
parents:
diff changeset
286 return
heinrichsweikamp
parents:
diff changeset
287 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
288
heinrichsweikamp
parents:
diff changeset
289 option_restore_all:
heinrichsweikamp
parents:
diff changeset
290 ;---- Read option serial from EEPROM
heinrichsweikamp
parents:
diff changeset
291 movlw LOW(eeprom_serial_save)
heinrichsweikamp
parents:
diff changeset
292 movwf EEADR
heinrichsweikamp
parents:
diff changeset
293 movlw HIGH(eeprom_serial_save)
heinrichsweikamp
parents:
diff changeset
294 movf EEADRH
heinrichsweikamp
parents:
diff changeset
295 call read_eeprom
heinrichsweikamp
parents:
diff changeset
296 movlw LOW(eeprom_opt_serial)
heinrichsweikamp
parents:
diff changeset
297 xorwf EEDATA,W
heinrichsweikamp
parents:
diff changeset
298 bnz option_restore_bad ; Auto reset if changed.
heinrichsweikamp
parents:
diff changeset
299 incf EEADR,F
heinrichsweikamp
parents:
diff changeset
300 call read_eeprom
heinrichsweikamp
parents:
diff changeset
301 movlw HIGH(eeprom_opt_serial)
heinrichsweikamp
parents:
diff changeset
302 xorwf EEDATA,W
heinrichsweikamp
parents:
diff changeset
303 bz option_restore_ok ; Auto reset if changed.
heinrichsweikamp
parents:
diff changeset
304
heinrichsweikamp
parents:
diff changeset
305 option_restore_bad:
heinrichsweikamp
parents:
diff changeset
306 call option_reset_all ; Reset RAM contains
heinrichsweikamp
parents:
diff changeset
307 goto option_save_all ; Then save to EEPROM
heinrichsweikamp
parents:
diff changeset
308
heinrichsweikamp
parents:
diff changeset
309 ;---- Proper restore
heinrichsweikamp
parents:
diff changeset
310 option_restore_ok:
heinrichsweikamp
parents:
diff changeset
311 movlw LOW(option_table_begin)
heinrichsweikamp
parents:
diff changeset
312 movwf FSR0L
heinrichsweikamp
parents:
diff changeset
313 movlw HIGH(option_table_begin)
heinrichsweikamp
parents:
diff changeset
314 movwf FSR0H
heinrichsweikamp
parents:
diff changeset
315
heinrichsweikamp
parents:
diff changeset
316 option_restore_all_1:
heinrichsweikamp
parents:
diff changeset
317 movf FSR0L,W ; Reached end of table ?
heinrichsweikamp
parents:
diff changeset
318 xorlw LOW(option_table_end) ; (8bit test -> 10 bytes x 128 options max)
heinrichsweikamp
parents:
diff changeset
319 btfsc STATUS,Z ; YES: done.
heinrichsweikamp
parents:
diff changeset
320 return
heinrichsweikamp
parents:
diff changeset
321
heinrichsweikamp
parents:
diff changeset
322 rcall option_restore ; Restore one option.
heinrichsweikamp
parents:
diff changeset
323 bra option_restore_all_1 ; and loop.
heinrichsweikamp
parents:
diff changeset
324 return
heinrichsweikamp
parents:
diff changeset
325
heinrichsweikamp
parents:
diff changeset
326 option_restore:
heinrichsweikamp
parents:
diff changeset
327 rcall option_read
heinrichsweikamp
parents:
diff changeset
328 incf opt_eeprom,W ; Should we save it ?
heinrichsweikamp
parents:
diff changeset
329 btfsc STATUS,Z ; eeprom address is FFh ?
heinrichsweikamp
parents:
diff changeset
330 return ; YES: nothing to do.
heinrichsweikamp
parents:
diff changeset
331
heinrichsweikamp
parents:
diff changeset
332 movf opt_eeprom,W ; Compute backup address in EEPROM
heinrichsweikamp
parents:
diff changeset
333 addlw LOW(eeprom_opt_backup) ; Add offset
heinrichsweikamp
parents:
diff changeset
334 movwf EEADR
heinrichsweikamp
parents:
diff changeset
335 movlw HIGH(eeprom_opt_backup)
heinrichsweikamp
parents:
diff changeset
336 movwf EEADRH
heinrichsweikamp
parents:
diff changeset
337
heinrichsweikamp
parents:
diff changeset
338 movf opt_type,W ; Option type is string ?
heinrichsweikamp
parents:
diff changeset
339 xorlw 2
heinrichsweikamp
parents:
diff changeset
340 bz option_restore_string
heinrichsweikamp
parents:
diff changeset
341
heinrichsweikamp
parents:
diff changeset
342 ; Read one byte from eeprom
heinrichsweikamp
parents:
diff changeset
343 call read_eeprom
heinrichsweikamp
parents:
diff changeset
344 movff EEDATA, INDF1 ; And restore option register.
heinrichsweikamp
parents:
diff changeset
345 return
heinrichsweikamp
parents:
diff changeset
346
heinrichsweikamp
parents:
diff changeset
347 option_restore_string:
heinrichsweikamp
parents:
diff changeset
348 call read_eeprom ; Read one byte, and
heinrichsweikamp
parents:
diff changeset
349 movff EEDATA,POSTINC1 ; restore it
heinrichsweikamp
parents:
diff changeset
350 infsnz EEADR,F
heinrichsweikamp
parents:
diff changeset
351 incf EEADRH,F
heinrichsweikamp
parents:
diff changeset
352
heinrichsweikamp
parents:
diff changeset
353 decfsz opt_max ; Decrement string length
heinrichsweikamp
parents:
diff changeset
354 bra option_restore_string ; And loop while not finished
heinrichsweikamp
parents:
diff changeset
355 return
heinrichsweikamp
parents:
diff changeset
356
heinrichsweikamp
parents:
diff changeset
357 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
358 ; Increment an option, based on type, and boundary.
heinrichsweikamp
parents:
diff changeset
359 ; INPUT: FSR0 = option handle
heinrichsweikamp
parents:
diff changeset
360 ; OUTPUT: none
heinrichsweikamp
parents:
diff changeset
361 ; TRASH: TBLPTR, TABLAT, WREG, FSR0, FSR1
heinrichsweikamp
parents:
diff changeset
362 option_inc:
heinrichsweikamp
parents:
diff changeset
363 ; Read type, default and register from table
heinrichsweikamp
parents:
diff changeset
364 rcall option_read
heinrichsweikamp
parents:
diff changeset
365
heinrichsweikamp
parents:
diff changeset
366 ; Switch on type
heinrichsweikamp
parents:
diff changeset
367 movf opt_type,W
heinrichsweikamp
parents:
diff changeset
368 bz option_inc_uint8
heinrichsweikamp
parents:
diff changeset
369 dcfsnz WREG
heinrichsweikamp
parents:
diff changeset
370 bra option_inc_enum8
heinrichsweikamp
parents:
diff changeset
371 dcfsnz WREG
heinrichsweikamp
parents:
diff changeset
372 bra option_inc_string
heinrichsweikamp
parents:
diff changeset
373
heinrichsweikamp
parents:
diff changeset
374 option_inc_uint8: ; Defaults type too...
heinrichsweikamp
parents:
diff changeset
375 movf INDF1,W
heinrichsweikamp
parents:
diff changeset
376 addwf opt_inc,W
heinrichsweikamp
parents:
diff changeset
377 cpfslt opt_max
heinrichsweikamp
parents:
diff changeset
378 bra option_inc_1
heinrichsweikamp
parents:
diff changeset
379 movf opt_min,W
heinrichsweikamp
parents:
diff changeset
380 option_inc_1:
heinrichsweikamp
parents:
diff changeset
381 movwf INDF1
heinrichsweikamp
parents:
diff changeset
382 return
heinrichsweikamp
parents:
diff changeset
383
heinrichsweikamp
parents:
diff changeset
384 option_inc_enum8: ; Always +1
heinrichsweikamp
parents:
diff changeset
385 incf INDF1,W
heinrichsweikamp
parents:
diff changeset
386 cpfsgt opt_max
heinrichsweikamp
parents:
diff changeset
387 clrf WREG
heinrichsweikamp
parents:
diff changeset
388 movwf INDF1
heinrichsweikamp
parents:
diff changeset
389 return
heinrichsweikamp
parents:
diff changeset
390
heinrichsweikamp
parents:
diff changeset
391 option_inc_string: ; No edition yet...
heinrichsweikamp
parents:
diff changeset
392 return
heinrichsweikamp
parents:
diff changeset
393
heinrichsweikamp
parents:
diff changeset
394 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
395 ; Strcat option into FSR2 buffer.
heinrichsweikamp
parents:
diff changeset
396 option_draw:
heinrichsweikamp
parents:
diff changeset
397 ; Read type, default and register from table
heinrichsweikamp
parents:
diff changeset
398 rcall option_read
heinrichsweikamp
parents:
diff changeset
399
heinrichsweikamp
parents:
diff changeset
400 ; Switch on type
heinrichsweikamp
parents:
diff changeset
401 movf opt_type,W
heinrichsweikamp
parents:
diff changeset
402 bz option_draw_uint8
heinrichsweikamp
parents:
diff changeset
403 dcfsnz WREG
heinrichsweikamp
parents:
diff changeset
404 bra option_draw_enum8
heinrichsweikamp
parents:
diff changeset
405 dcfsnz WREG
heinrichsweikamp
parents:
diff changeset
406 bra option_draw_string
heinrichsweikamp
parents:
diff changeset
407 return ; Unknown: return...
heinrichsweikamp
parents:
diff changeset
408
heinrichsweikamp
parents:
diff changeset
409 option_draw_uint8:
heinrichsweikamp
parents:
diff changeset
410 movff INDF1,lo ; Draw value.
heinrichsweikamp
parents:
diff changeset
411 output_8
heinrichsweikamp
parents:
diff changeset
412 clrf INDF2 ; Make sure to close string...
heinrichsweikamp
parents:
diff changeset
413
heinrichsweikamp
parents:
diff changeset
414 movf opt_unit+0,W ; Is there a unit to append ?
heinrichsweikamp
parents:
diff changeset
415 iorwf opt_unit+1,W
heinrichsweikamp
parents:
diff changeset
416 rcall option_draw_unit
heinrichsweikamp
parents:
diff changeset
417
heinrichsweikamp
parents:
diff changeset
418 movf opt_default,W ; Default value
heinrichsweikamp
parents:
diff changeset
419 cpfseq lo ; Current value
heinrichsweikamp
parents:
diff changeset
420 bra option_draw_uint8_2 ; Not default, add *
heinrichsweikamp
parents:
diff changeset
421 return ; Default, Done.
heinrichsweikamp
parents:
diff changeset
422 option_draw_uint8_2:
heinrichsweikamp
parents:
diff changeset
423 PUTC "*"
heinrichsweikamp
parents:
diff changeset
424 return ; Done.
heinrichsweikamp
parents:
diff changeset
425
heinrichsweikamp
parents:
diff changeset
426 option_draw_unit:
heinrichsweikamp
parents:
diff changeset
427 movff opt_unit+0,FSR1L
heinrichsweikamp
parents:
diff changeset
428 movff opt_unit+1,FSR1H
heinrichsweikamp
parents:
diff changeset
429 goto strcat_text
heinrichsweikamp
parents:
diff changeset
430
heinrichsweikamp
parents:
diff changeset
431
heinrichsweikamp
parents:
diff changeset
432
heinrichsweikamp
parents:
diff changeset
433 ;---- Draw an enumerated value (set of translated strings)
heinrichsweikamp
parents:
diff changeset
434 option_draw_enum8:
heinrichsweikamp
parents:
diff changeset
435 movf INDF1,W ; Get current value.
heinrichsweikamp
parents:
diff changeset
436 cpfsgt opt_max ; Bound value
heinrichsweikamp
parents:
diff changeset
437 clrf WREG
heinrichsweikamp
parents:
diff changeset
438 addwf WREG ; *= 2
heinrichsweikamp
parents:
diff changeset
439 addwf opt_inc,W ; Base text + 2 * value
heinrichsweikamp
parents:
diff changeset
440 movwf FSR1L
heinrichsweikamp
parents:
diff changeset
441 movlw 0
heinrichsweikamp
parents:
diff changeset
442 addwfc opt_min,W ; Propagate carry
heinrichsweikamp
parents:
diff changeset
443 movwf FSR1H ; Into FSR1
heinrichsweikamp
parents:
diff changeset
444
heinrichsweikamp
parents:
diff changeset
445 goto strcat_text
heinrichsweikamp
parents:
diff changeset
446
heinrichsweikamp
parents:
diff changeset
447 option_draw_string:
heinrichsweikamp
parents:
diff changeset
448 movff POSTINC1,POSTINC2
heinrichsweikamp
parents:
diff changeset
449 decfsz opt_max
heinrichsweikamp
parents:
diff changeset
450 bra option_draw_string
heinrichsweikamp
parents:
diff changeset
451 return
heinrichsweikamp
parents:
diff changeset
452
heinrichsweikamp
parents:
diff changeset
453 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
454 ; Options Tables
heinrichsweikamp
parents:
diff changeset
455
heinrichsweikamp
parents:
diff changeset
456 OPTION_UINT8 MACRO lbl, min, max, default, unit, eeprom, register
heinrichsweikamp
parents:
diff changeset
457 global lbl
heinrichsweikamp
parents:
diff changeset
458 lbl: db 0, default ; Type0 = INT8
heinrichsweikamp
parents:
diff changeset
459 db 1, min
heinrichsweikamp
parents:
diff changeset
460 db max, eeprom
heinrichsweikamp
parents:
diff changeset
461 dw unit
heinrichsweikamp
parents:
diff changeset
462 dw register
heinrichsweikamp
parents:
diff changeset
463 ENDM
heinrichsweikamp
parents:
diff changeset
464
heinrichsweikamp
parents:
diff changeset
465 OPTION_UINT8p2 MACRO lbl, min, max, default, unit, eeprom, register
heinrichsweikamp
parents:
diff changeset
466 global lbl
heinrichsweikamp
parents:
diff changeset
467 lbl: db 0, default ; Type0 = INT8
heinrichsweikamp
parents:
diff changeset
468 db 2, min
heinrichsweikamp
parents:
diff changeset
469 db max, eeprom
heinrichsweikamp
parents:
diff changeset
470 dw unit
heinrichsweikamp
parents:
diff changeset
471 dw register
heinrichsweikamp
parents:
diff changeset
472 ENDM
heinrichsweikamp
parents:
diff changeset
473
heinrichsweikamp
parents:
diff changeset
474 OPTION_UINT8p3 MACRO lbl, min, max, default, unit, eeprom, register
heinrichsweikamp
parents:
diff changeset
475 global lbl
heinrichsweikamp
parents:
diff changeset
476 lbl: db 0, default ; Type0 = INT8
heinrichsweikamp
parents:
diff changeset
477 db 3, min
heinrichsweikamp
parents:
diff changeset
478 db max, eeprom
heinrichsweikamp
parents:
diff changeset
479 dw unit
heinrichsweikamp
parents:
diff changeset
480 dw register
heinrichsweikamp
parents:
diff changeset
481 ENDM
heinrichsweikamp
parents:
diff changeset
482
heinrichsweikamp
parents:
diff changeset
483 OPTION_UINT8p10 MACRO lbl, min, max, default, unit, eeprom, register
heinrichsweikamp
parents:
diff changeset
484 global lbl
heinrichsweikamp
parents:
diff changeset
485 lbl: db 0, default ; Type0 = INT8
heinrichsweikamp
parents:
diff changeset
486 db .10, min
heinrichsweikamp
parents:
diff changeset
487 db max, eeprom
heinrichsweikamp
parents:
diff changeset
488 dw unit
heinrichsweikamp
parents:
diff changeset
489 dw register
heinrichsweikamp
parents:
diff changeset
490 ENDM
heinrichsweikamp
parents:
diff changeset
491
heinrichsweikamp
parents:
diff changeset
492 OPTION_ENUM8 MACRO lbl, max, default, tValue, eeprom, register
heinrichsweikamp
parents:
diff changeset
493 global lbl
heinrichsweikamp
parents:
diff changeset
494 extern tValue
heinrichsweikamp
parents:
diff changeset
495 lbl: db 1, default ; Type1 = ENUM
heinrichsweikamp
parents:
diff changeset
496 db LOW(tValue), HIGH(tValue)
heinrichsweikamp
parents:
diff changeset
497 db max, eeprom
heinrichsweikamp
parents:
diff changeset
498 dw 0 ; No unit
heinrichsweikamp
parents:
diff changeset
499 dw register
heinrichsweikamp
parents:
diff changeset
500 ENDM
heinrichsweikamp
parents:
diff changeset
501
heinrichsweikamp
parents:
diff changeset
502 OPTION_BOOL MACRO lbl, default, eeprom, register
heinrichsweikamp
parents:
diff changeset
503 OPTION_ENUM8 lbl, 2, default, tNo, eeprom, register
heinrichsweikamp
parents:
diff changeset
504 ENDM
heinrichsweikamp
parents:
diff changeset
505
heinrichsweikamp
parents:
diff changeset
506
heinrichsweikamp
parents:
diff changeset
507 OPTION_STRING MACRO lbl, length, defText, eeprom, register
heinrichsweikamp
parents:
diff changeset
508 global lbl
heinrichsweikamp
parents:
diff changeset
509 lbl: db 2, LOW(defText) ; Type2 = STRING
heinrichsweikamp
parents:
diff changeset
510 db HIGH(defText), 0
heinrichsweikamp
parents:
diff changeset
511 db length, eeprom
heinrichsweikamp
parents:
diff changeset
512 dw 0 ; No unit
heinrichsweikamp
parents:
diff changeset
513 dw register
heinrichsweikamp
parents:
diff changeset
514 ENDM
heinrichsweikamp
parents:
diff changeset
515
heinrichsweikamp
parents:
diff changeset
516 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
517 ; Option table
heinrichsweikamp
parents:
diff changeset
518 ; OPTION_UINT8 Label, min, max, default, text-string, EEPROM location (-1 for RAM only), RAM location
heinrichsweikamp
parents:
diff changeset
519
heinrichsweikamp
parents:
diff changeset
520 ; Manage Gas List.
18
4e3f133dfbf4 add new opt_compass_gain option to work with more magnetic battery types
heinrichsweikamp
parents: 0
diff changeset
521 extern tPercent, tMeters, tMinutes, tGasDisabled, tbar, tcharx
0
heinrichsweikamp
parents:
diff changeset
522
heinrichsweikamp
parents:
diff changeset
523 option_table_begin:
heinrichsweikamp
parents:
diff changeset
524 extern char_I_deco_gas_change, char_I_setpoint_change, char_I_setpoint_cbar, char_I_dil_change
heinrichsweikamp
parents:
diff changeset
525 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
526 ; Manage Decoplaner & Dive parameters
heinrichsweikamp
parents:
diff changeset
527
heinrichsweikamp
parents:
diff changeset
528 extern char_I_dive_interval, char_I_bottom_time, char_I_bottom_depth
heinrichsweikamp
parents:
diff changeset
529 OPTION_UINT8p10 odiveInterval, .0, .240, .0, tMinutes, -1, char_I_dive_interval
heinrichsweikamp
parents:
diff changeset
530 OPTION_UINT8p2 obottomTime, .1, .60, .5, tMinutes, -1, char_I_bottom_time
heinrichsweikamp
parents:
diff changeset
531 OPTION_UINT8p3 obottomDepth, .12,.120, .21, tMeters, -1, char_I_bottom_depth
heinrichsweikamp
parents:
diff changeset
532
heinrichsweikamp
parents:
diff changeset
533 extern char_I_deco_model, char_I_saturation_multiplier, char_I_desaturation_multiplier
79
0fc8113ddf6d new command in download mode: "r" - read setting
mh@mh-THINK.localdomain
parents: 69
diff changeset
534 OPTION_ENUM8 oDiveMode, 4, 0, tDvOC, .8, opt_dive_mode ; 0=OC, 1=CC, 2=Gauge, 3=Apnea
0fc8113ddf6d new command in download mode: "r" - read setting
mh@mh-THINK.localdomain
parents: 69
diff changeset
535 OPTION_ENUM8 oDecoMode, 2, 1, tZHL16, .9, char_I_deco_model ; 0 = ZH-L16, 1 = ZH-L16-GF
0
heinrichsweikamp
parents:
diff changeset
536 OPTION_UINT8p10 oPPO2Max, .120, ppo2_warning_high, .160, 0, .10, opt_ppO2_max
heinrichsweikamp
parents:
diff changeset
537 OPTION_UINT8 oLastDeco, .3, .6, .3, tMeters, .11, opt_last_stop
22
e01c39be267c change gf_low default to 30%
heinrichsweikamp
parents: 21
diff changeset
538 OPTION_UINT8 oGF_low, .10, .100, .30, tPercent, .12, opt_GF_low
32
413a1aa23acd GF high lowest setting 60%
heinrichsweikamp
parents: 24
diff changeset
539 OPTION_UINT8 oGF_high, .60, .110, .85, tPercent, .13, opt_GF_high
0
heinrichsweikamp
parents:
diff changeset
540 OPTION_UINT8p10 osatmult, .100, .140, .110,tPercent, .14, char_I_saturation_multiplier
heinrichsweikamp
parents:
diff changeset
541 OPTION_UINT8p10 odesatmult, .60, .100, .90,tPercent, .15, char_I_desaturation_multiplier
heinrichsweikamp
parents:
diff changeset
542 OPTION_UINT8p10 oPPO2Min, .16, ppo2_warning_low, .19, 0, .16, opt_ppO2_min
heinrichsweikamp
parents:
diff changeset
543 OPTION_UINT8 oaGF_low, .60, .100, .60, tPercent, .17, opt_aGF_low
32
413a1aa23acd GF high lowest setting 60%
heinrichsweikamp
parents: 24
diff changeset
544 OPTION_UINT8 oaGF_high, .70, .120, .85, tPercent, .18, opt_aGF_high
69
50697bd41c54 +CHANGE: Some French Translations
heinrichsweikamp
parents: 68
diff changeset
545 OPTION_BOOL oEnable_aGF, 0, .19, opt_enable_aGF ; =1: aGF can be selected underwater
79
0fc8113ddf6d new command in download mode: "r" - read setting
mh@mh-THINK.localdomain
parents: 69
diff changeset
546 OPTION_UINT8 oCompassGain, 0, 7, 6, tcharx, .20, opt_compass_gain ; 0-7 (230LSB/Gauss to 1370LSB/Gauss)
24
f51caad821b4 save logbook recording interval
heinrichsweikamp
parents: 23
diff changeset
547 OPTION_ENUM8 oSamplingRate, 2, 0, tSampling2s, .21, opt_sampling_rate ; =1: 10s, =0: 2s
0
heinrichsweikamp
parents:
diff changeset
548
heinrichsweikamp
parents:
diff changeset
549 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
550 ; Managing Settings
heinrichsweikamp
parents:
diff changeset
551 extern char_I_extra_time
79
0fc8113ddf6d new command in download mode: "r" - read setting
mh@mh-THINK.localdomain
parents: 69
diff changeset
552 OPTION_UINT8 oExtraTime, 0, .9, 0,tMinutes, .22, char_I_extra_time ; Future TTS
0fc8113ddf6d new command in download mode: "r" - read setting
mh@mh-THINK.localdomain
parents: 69
diff changeset
553 OPTION_ENUM8 oBrightness, 3, 0, tEco, .23, opt_brightness ; =0: Eco, =1:Medium, =2:Full
0fc8113ddf6d new command in download mode: "r" - read setting
mh@mh-THINK.localdomain
parents: 69
diff changeset
554 OPTION_UINT8 oDiveSalinity, 0, 4, 0, tPercent, .24, opt_salinity ; 0-5%
0fc8113ddf6d new command in download mode: "r" - read setting
mh@mh-THINK.localdomain
parents: 69
diff changeset
555 OPTION_ENUM8 oCCRMode, 2, 0, tCCRModeFixedSP, .25, opt_ccr_mode ; =0: Fixed SP, =1: Sensor
0
heinrichsweikamp
parents:
diff changeset
556 extern tDefName
79
0fc8113ddf6d new command in download mode: "r" - read setting
mh@mh-THINK.localdomain
parents: 69
diff changeset
557 OPTION_ENUM8 oLanguage, 4, 0, tEnglish, .26, opt_language ; 0=EN, 1=DE, 2=FR, 3=SP
0fc8113ddf6d new command in download mode: "r" - read setting
mh@mh-THINK.localdomain
parents: 69
diff changeset
558 OPTION_ENUM8 oDateFormat, 3, 1, tDateformat,.27, opt_dateformat ; =0:MMDDYY, =1:DDMMYY, =2:YYMMDD
0fc8113ddf6d new command in download mode: "r" - read setting
mh@mh-THINK.localdomain
parents: 69
diff changeset
559 OPTION_ENUM8 oUnits, 2, 0, tMetric, .28, opt_units ; 0=Meters, 1=Feets
0
heinrichsweikamp
parents:
diff changeset
560
heinrichsweikamp
parents:
diff changeset
561 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
562 ; Compass calibration data
heinrichsweikamp
parents:
diff changeset
563 OPTION_UINT8 oCalx0, 0,.255,.0, 0, .29, compass_CX_f+0
heinrichsweikamp
parents:
diff changeset
564 OPTION_UINT8 oCalx1, 0,.255,.0, 0, .30, compass_CX_f+1
heinrichsweikamp
parents:
diff changeset
565 OPTION_UINT8 oCaly0, 0,.255,.0, 0, .31, compass_CY_f+0
heinrichsweikamp
parents:
diff changeset
566 OPTION_UINT8 oCaly1, 0,.255,.0, 0, .32, compass_CY_f+1
heinrichsweikamp
parents:
diff changeset
567 OPTION_UINT8 oCalz0, 0,.255,.0, 0, .33, compass_CZ_f+0
heinrichsweikamp
parents:
diff changeset
568 OPTION_UINT8 oCalz1, 0,.255,.0, 0, .34, compass_CZ_f+1
heinrichsweikamp
parents:
diff changeset
569
heinrichsweikamp
parents:
diff changeset
570 OPTION_ENUM8 oGas1, 3, 1, tGasDisabled, .35, opt_gas_type+0; 0=Disabled, 1=First, 2=Travel, 3=Deco
heinrichsweikamp
parents:
diff changeset
571 OPTION_ENUM8 oGas2, 3, 0, tGasDisabled, .36, opt_gas_type+1
heinrichsweikamp
parents:
diff changeset
572 OPTION_ENUM8 oGas3, 3, 0, tGasDisabled, .37, opt_gas_type+2
heinrichsweikamp
parents:
diff changeset
573 OPTION_ENUM8 oGas4, 3, 0, tGasDisabled, .38, opt_gas_type+3
heinrichsweikamp
parents:
diff changeset
574 OPTION_ENUM8 oGas5, 3, 0, tGasDisabled, .39, opt_gas_type+4
heinrichsweikamp
parents:
diff changeset
575 OPTION_UINT8 oGas1O2, .21,.100, .21, tPercent, .40, opt_gas_O2_ratio+0
heinrichsweikamp
parents:
diff changeset
576 OPTION_UINT8 oGas1He, .1, .100, .0, tPercent, .41, opt_gas_He_ratio+0
heinrichsweikamp
parents:
diff changeset
577 OPTION_UINT8 oGas2O2, .21,.100, .21, tPercent, .42, opt_gas_O2_ratio+1
heinrichsweikamp
parents:
diff changeset
578 OPTION_UINT8 oGas2He, .1, .100, .0, tPercent, .43, opt_gas_He_ratio+1
heinrichsweikamp
parents:
diff changeset
579 OPTION_UINT8 oGas3O2, .21,.100, .21, tPercent, .44, opt_gas_O2_ratio+2
heinrichsweikamp
parents:
diff changeset
580 OPTION_UINT8 oGas3He, .1, .100, .0, tPercent, .45, opt_gas_He_ratio+2
heinrichsweikamp
parents:
diff changeset
581 OPTION_UINT8 oGas4O2, .21,.100, .21, tPercent, .46, opt_gas_O2_ratio+3
heinrichsweikamp
parents:
diff changeset
582 OPTION_UINT8 oGas4He, .1, .100, .0, tPercent, .47, opt_gas_He_ratio+3
heinrichsweikamp
parents:
diff changeset
583 OPTION_UINT8 oGas5O2, .21,.100, .21, tPercent, .48, opt_gas_O2_ratio+4
heinrichsweikamp
parents:
diff changeset
584 OPTION_UINT8 oGas5He, .1, .100, .0, tPercent, .49, opt_gas_He_ratio+4
97
53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents: 93
diff changeset
585 OPTION_UINT8 oGas1Depth, .0, .100, .0, tMeters, .50, opt_OC_bail_gas_change+0
53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents: 93
diff changeset
586 OPTION_UINT8 oGas2Depth, .0, .100, .0, tMeters, .51, opt_OC_bail_gas_change+1
53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents: 93
diff changeset
587 OPTION_UINT8 oGas3Depth, .0, .100, .0, tMeters, .52, opt_OC_bail_gas_change+2
53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents: 93
diff changeset
588 OPTION_UINT8 oGas4Depth, .0, .100, .0, tMeters, .53, opt_OC_bail_gas_change+3
53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents: 93
diff changeset
589 OPTION_UINT8 oGas5Depth, .0, .100, .0, tMeters, .54, opt_OC_bail_gas_change+4
0
heinrichsweikamp
parents:
diff changeset
590 OPTION_UINT8 oDil1O2, .21,.100, .21, tPercent, .55, opt_dil_O2_ratio+0
heinrichsweikamp
parents:
diff changeset
591 OPTION_UINT8 oDil1He, .1, .100, .0, tPercent, .56, opt_dil_He_ratio+0
heinrichsweikamp
parents:
diff changeset
592 OPTION_UINT8 oDil2O2, .21,.100, .21, tPercent, .57, opt_dil_O2_ratio+1
heinrichsweikamp
parents:
diff changeset
593 OPTION_UINT8 oDil2He, .1, .100, .0, tPercent, .58, opt_dil_He_ratio+1
heinrichsweikamp
parents:
diff changeset
594 OPTION_UINT8 oDil3O2, .21,.100, .21, tPercent, .59, opt_dil_O2_ratio+2
heinrichsweikamp
parents:
diff changeset
595 OPTION_UINT8 oDil3He, .1, .100, .0, tPercent, .60, opt_dil_He_ratio+2
heinrichsweikamp
parents:
diff changeset
596 OPTION_UINT8 oDil4O2, .21,.100, .21, tPercent, .61, opt_dil_O2_ratio+3
heinrichsweikamp
parents:
diff changeset
597 OPTION_UINT8 oDil4He, .1, .100, .0, tPercent, .62, opt_dil_He_ratio+3
heinrichsweikamp
parents:
diff changeset
598 OPTION_UINT8 oDil5O2, .21,.100, .21, tPercent, .63, opt_dil_O2_ratio+4
heinrichsweikamp
parents:
diff changeset
599 OPTION_UINT8 oDil5He, .1, .100, .0, tPercent, .64, opt_dil_He_ratio+4
heinrichsweikamp
parents:
diff changeset
600 OPTION_UINT8 oSetPoint1, .20, .160, .70, tbar, .65, char_I_setpoint_cbar+0
heinrichsweikamp
parents:
diff changeset
601 OPTION_UINT8 oSetPoint2, .20, .160, .90, tbar, .66, char_I_setpoint_cbar+1
heinrichsweikamp
parents:
diff changeset
602 OPTION_UINT8 oSetPoint3, .20, .160, .100, tbar, .67, char_I_setpoint_cbar+2
heinrichsweikamp
parents:
diff changeset
603 OPTION_UINT8 oSetPoint4, .20, .160, .120, tbar, .68, char_I_setpoint_cbar+3
heinrichsweikamp
parents:
diff changeset
604 OPTION_UINT8 oSetPoint5, .20, .160, .140, tbar, .69, char_I_setpoint_cbar+4
heinrichsweikamp
parents:
diff changeset
605 OPTION_UINT8 oSP1Depth, .0, .100, .0, tMeters, .70, char_I_setpoint_change+0
heinrichsweikamp
parents:
diff changeset
606 OPTION_UINT8 oSP2Depth, .0, .100, .0, tMeters, .71, char_I_setpoint_change+1
heinrichsweikamp
parents:
diff changeset
607 OPTION_UINT8 oSP3Depth, .0, .100, .0, tMeters, .72, char_I_setpoint_change+2
heinrichsweikamp
parents:
diff changeset
608 OPTION_UINT8 oSP4Depth, .0, .100, .0, tMeters, .73, char_I_setpoint_change+3
heinrichsweikamp
parents:
diff changeset
609 OPTION_UINT8 oSP5Depth, .0, .100, .0, tMeters, .74, char_I_setpoint_change+4
heinrichsweikamp
parents:
diff changeset
610 OPTION_ENUM8 oDil1, 2, 1, tDilDisabled, .75, opt_dil_type+0 ; 0=Disabled, 1=First, 2=Normal
heinrichsweikamp
parents:
diff changeset
611 OPTION_ENUM8 oDil2, 2, 0, tDilDisabled, .76, opt_dil_type+1
heinrichsweikamp
parents:
diff changeset
612 OPTION_ENUM8 oDil3, 2, 0, tDilDisabled, .77, opt_dil_type+2
heinrichsweikamp
parents:
diff changeset
613 OPTION_ENUM8 oDil4, 2, 0, tDilDisabled, .78, opt_dil_type+3
heinrichsweikamp
parents:
diff changeset
614 OPTION_ENUM8 oDil5, 2, 0, tDilDisabled, .79, opt_dil_type+4
heinrichsweikamp
parents:
diff changeset
615 OPTION_UINT8 oDil1Depth, .0, .100, .0, tMeters, .80, char_I_dil_change+0
heinrichsweikamp
parents:
diff changeset
616 OPTION_UINT8 oDil2Depth, .0, .100, .0, tMeters, .81, char_I_dil_change+1
heinrichsweikamp
parents:
diff changeset
617 OPTION_UINT8 oDil3Depth, .0, .100, .0, tMeters, .82, char_I_dil_change+2
heinrichsweikamp
parents:
diff changeset
618 OPTION_UINT8 oDil4Depth, .0, .100, .0, tMeters, .83, char_I_dil_change+3
heinrichsweikamp
parents:
diff changeset
619 OPTION_UINT8 oDil5Depth, .0, .100, .0, tMeters, .84, char_I_dil_change+4
heinrichsweikamp
parents:
diff changeset
620 OPTION_STRING oName, opt_name_length, tDefName, .85, opt_name
heinrichsweikamp
parents:
diff changeset
621 ; opt_name from 85 to 145
92
7ca1105751c7 add sensor calibration option (PC only), some cleanup
heinrichsweikamp
parents: 79
diff changeset
622 OPTION_ENUM8 oColorSetDive, 4, 0, tColorSetName0, .146, opt_dive_color_scheme ; Color scheme divemode
7ca1105751c7 add sensor calibration option (PC only), some cleanup
heinrichsweikamp
parents: 79
diff changeset
623 OPTION_UINT8 oPressureAdjust, .0,.255, .0, -1, .147, opt_pressure_adjust ; SIGNED int (-20/+20mbar max.)
0
heinrichsweikamp
parents:
diff changeset
624
heinrichsweikamp
parents:
diff changeset
625 ; Set Time/Set Date
heinrichsweikamp
parents:
diff changeset
626 OPTION_UINT8 oSetHours, .0, .23, .0, 0, -1, hours
heinrichsweikamp
parents:
diff changeset
627 OPTION_UINT8 oSetMinutes, .0, .59, .0, 0, -1, mins
heinrichsweikamp
parents:
diff changeset
628 OPTION_UINT8 oSetDay, .1, .31, .0, 0, -1, day
heinrichsweikamp
parents:
diff changeset
629 OPTION_UINT8 oSetMonth, .1, .12, .0, 0, -1, month
heinrichsweikamp
parents:
diff changeset
630 OPTION_UINT8 oSetYear, .13,.20, .0, 0, -1, year
heinrichsweikamp
parents:
diff changeset
631
heinrichsweikamp
parents:
diff changeset
632 option_table_end:
heinrichsweikamp
parents:
diff changeset
633 END