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