Mercurial > public > hwos_code

annotate src/start.asm @ 457:b4417044a042

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
recover old battery status prior 2.09
author heinrichsweikamp
date Wed, 28 Sep 2016 11:16:31 +0200
parents 850c1f3c4824
children 2c58631d5229
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 start.asm
heinrichsweikamp
parents:
diff changeset
4 ;
heinrichsweikamp
parents:
diff changeset
5 ; Startup subroutines
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-08-06 : [mH] moving from OSTC code
heinrichsweikamp
parents:
diff changeset
11
275
653a3ab08062 rename into hwOS
heinrichsweikamp
parents: 267
diff changeset
12 #include "hwos.inc" ; Mandatory header
0
heinrichsweikamp
parents:
diff changeset
13 #include "ms5541.inc"
heinrichsweikamp
parents:
diff changeset
14 #include "isr.inc"
heinrichsweikamp
parents:
diff changeset
15 #include "shared_definitions.h" ; Mailbox from/to p2_deco.c
heinrichsweikamp
parents:
diff changeset
16 #include "eeprom_rs232.inc"
heinrichsweikamp
parents:
diff changeset
17 #include "math.inc"
heinrichsweikamp
parents:
diff changeset
18 #include "tft.inc"
heinrichsweikamp
parents:
diff changeset
19 #include "surfmode.inc"
heinrichsweikamp
parents:
diff changeset
20 #include "wait.inc"
heinrichsweikamp
parents:
diff changeset
21 #include "rtc.inc"
heinrichsweikamp
parents:
diff changeset
22 #include "external_flash.inc"
heinrichsweikamp
parents:
diff changeset
23 #include "convert.inc"
heinrichsweikamp
parents:
diff changeset
24 #include "strings.inc"
heinrichsweikamp
parents:
diff changeset
25 #include "tft_outputs.inc"
113
heinrichsweikamp
parents: 93
diff changeset
26 #include "adc_lightsensor.inc"
heinrichsweikamp
parents: 93
diff changeset
27 #include "i2c.inc"
0
heinrichsweikamp
parents:
diff changeset
28
275
653a3ab08062 rename into hwOS
heinrichsweikamp
parents: 267
diff changeset
29 extern init_ostc
0
heinrichsweikamp
parents:
diff changeset
30 extern option_restore_all
heinrichsweikamp
parents:
diff changeset
31
heinrichsweikamp
parents:
diff changeset
32 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
33 ; Reset vector: What to do on device wake-up and hard reset.
heinrichsweikamp
parents:
diff changeset
34 ;
heinrichsweikamp
parents:
diff changeset
35 reset_v code 0x00000
heinrichsweikamp
parents:
diff changeset
36 ; goto start
heinrichsweikamp
parents:
diff changeset
37 goto 0x1FF00 ; Bootloader
heinrichsweikamp
parents:
diff changeset
38
heinrichsweikamp
parents:
diff changeset
39 ORG 0x00004 ; Needed for second-level bootloader
heinrichsweikamp
parents:
diff changeset
40 goto start
heinrichsweikamp
parents:
diff changeset
41 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
42 boot CODE
heinrichsweikamp
parents:
diff changeset
43 global start
heinrichsweikamp
parents:
diff changeset
44
heinrichsweikamp
parents:
diff changeset
45 start:
heinrichsweikamp
parents:
diff changeset
46 lfsr FSR0,0x000 ; Clear rambank 0-14
heinrichsweikamp
parents:
diff changeset
47 clear_rambank:
heinrichsweikamp
parents:
diff changeset
48 clrf POSTINC0
heinrichsweikamp
parents:
diff changeset
49 movlw 0x0F
heinrichsweikamp
parents:
diff changeset
50 cpfseq FSR0H ; Bank 14 done?
heinrichsweikamp
parents:
diff changeset
51 bra clear_rambank ; clear...
heinrichsweikamp
parents:
diff changeset
52
275
653a3ab08062 rename into hwOS
heinrichsweikamp
parents: 267
diff changeset
53 call init_ostc
0
heinrichsweikamp
parents:
diff changeset
54
449
heinrichsweikamp
parents: 446
diff changeset
55 ; Get button type from Bootloader-Info
heinrichsweikamp
parents: 446
diff changeset
56 bsf analog_switches
heinrichsweikamp
parents: 446
diff changeset
57 movlw 0x7C
heinrichsweikamp
parents: 446
diff changeset
58 movwf TBLPTRL
heinrichsweikamp
parents: 446
diff changeset
59 movlw 0xF7
heinrichsweikamp
parents: 446
diff changeset
60 movwf TBLPTRH
heinrichsweikamp
parents: 446
diff changeset
61 movlw 0x01
heinrichsweikamp
parents: 446
diff changeset
62 movwf TBLPTRU
heinrichsweikamp
parents: 446
diff changeset
63 TBLRD*+ ; Reads 0x07 for analog buttons
heinrichsweikamp
parents: 446
diff changeset
64 movlw 0x07
heinrichsweikamp
parents: 446
diff changeset
65 cpfseq TABLAT
heinrichsweikamp
parents: 446
diff changeset
66 bcf analog_switches
heinrichsweikamp
parents: 446
diff changeset
67
0
heinrichsweikamp
parents:
diff changeset
68 ; Air pressure compensation after reset
heinrichsweikamp
parents:
diff changeset
69 call get_calibration_data ; Get calibration data from pressure sensor
heinrichsweikamp
parents:
diff changeset
70 banksel common ; get_calibration_data uses isr_backup
heinrichsweikamp
parents:
diff changeset
71 bcf no_sensor_int ; normal sensor interrupt mode
heinrichsweikamp
parents:
diff changeset
72
10
55dfc8f6093f sensor status on power-on reset
heinrichsweikamp
parents: 0
diff changeset
73 call TFT_DisplayOff ; display off
55dfc8f6093f sensor status on power-on reset
heinrichsweikamp
parents: 0
diff changeset
74 bsf LEDr ; Status LED
0
heinrichsweikamp
parents:
diff changeset
75 bcf pressure_refresh
heinrichsweikamp
parents:
diff changeset
76 ; First pass will not have valid temperature!
heinrichsweikamp
parents:
diff changeset
77 btfss pressure_refresh ; Air pressure compensation
heinrichsweikamp
parents:
diff changeset
78 bra $-2
441
360acdcda0d7 +BUGFIX: Compatibility with "hwOS Config" fixed
heinrichsweikamp
parents: 429
diff changeset
79 ; Second pass
0
heinrichsweikamp
parents:
diff changeset
80 bcf pressure_refresh
heinrichsweikamp
parents:
diff changeset
81 btfss pressure_refresh ; Air pressure compensation
heinrichsweikamp
parents:
diff changeset
82 bra $-2
441
360acdcda0d7 +BUGFIX: Compatibility with "hwOS Config" fixed
heinrichsweikamp
parents: 429
diff changeset
83 bcf LEDr
360acdcda0d7 +BUGFIX: Compatibility with "hwOS Config" fixed
heinrichsweikamp
parents: 429
diff changeset
84
0
heinrichsweikamp
parents:
diff changeset
85 clrf rel_pressure+0
heinrichsweikamp
parents:
diff changeset
86 clrf rel_pressure+1
heinrichsweikamp
parents:
diff changeset
87 clrf surface_interval+0
heinrichsweikamp
parents:
diff changeset
88 clrf surface_interval+1
heinrichsweikamp
parents:
diff changeset
89
heinrichsweikamp
parents:
diff changeset
90 SAFE_2BYTE_COPY amb_pressure, last_surfpressure
heinrichsweikamp
parents:
diff changeset
91
heinrichsweikamp
parents:
diff changeset
92 movlw LOW max_surfpressure
heinrichsweikamp
parents:
diff changeset
93 movff WREG,sub_a+0 ; max. "allowed" airpressure in mbar
heinrichsweikamp
parents:
diff changeset
94 movlw HIGH max_surfpressure
heinrichsweikamp
parents:
diff changeset
95 movff WREG,sub_a+1 ; max. "allowed" airpressure in mbar
heinrichsweikamp
parents:
diff changeset
96 movff last_surfpressure+0,sub_b+0
heinrichsweikamp
parents:
diff changeset
97 movff last_surfpressure+1,sub_b+1
heinrichsweikamp
parents:
diff changeset
98 call subU16 ; sub_c = sub_a - sub_b
heinrichsweikamp
parents:
diff changeset
99 btfss neg_flag ; Is 1080mbar < amb_pressure ?
heinrichsweikamp
parents:
diff changeset
100 bra start_copy_pressure ; NO: current airpressure is lower then "allowed" airpressure, ok!
heinrichsweikamp
parents:
diff changeset
101
heinrichsweikamp
parents:
diff changeset
102 ; not ok! Overwrite with max. "allowed" airpressure
heinrichsweikamp
parents:
diff changeset
103 movlw LOW max_surfpressure
heinrichsweikamp
parents:
diff changeset
104 movff WREG,last_surfpressure+0 ; max. "allowed" airpressure in mbar
heinrichsweikamp
parents:
diff changeset
105 movlw HIGH max_surfpressure
heinrichsweikamp
parents:
diff changeset
106 movff WREG,last_surfpressure+1 ; max. "allowed" airpressure in mbar
heinrichsweikamp
parents:
diff changeset
107
heinrichsweikamp
parents:
diff changeset
108 start_copy_pressure:
heinrichsweikamp
parents:
diff changeset
109 movff last_surfpressure+0,last_surfpressure_15min+0
heinrichsweikamp
parents:
diff changeset
110 movff last_surfpressure+1,last_surfpressure_15min+1
heinrichsweikamp
parents:
diff changeset
111 movff last_surfpressure+0,last_surfpressure_30min+0
heinrichsweikamp
parents:
diff changeset
112 movff last_surfpressure+1,last_surfpressure_30min+1 ; Rests all airpressure registers
heinrichsweikamp
parents:
diff changeset
113
heinrichsweikamp
parents:
diff changeset
114 ; reset deco data for surface mode
heinrichsweikamp
parents:
diff changeset
115 movlw d'79'
heinrichsweikamp
parents:
diff changeset
116 movff WREG,char_I_N2_ratio ; 79% N2
heinrichsweikamp
parents:
diff changeset
117 SAFE_2BYTE_COPY amb_pressure,int_I_pres_respiration ; copy for deco routine
heinrichsweikamp
parents:
diff changeset
118 movff int_I_pres_respiration+0,int_I_pres_surface+0 ; copy for desat routine
heinrichsweikamp
parents:
diff changeset
119 movff int_I_pres_respiration+1,int_I_pres_surface+1
heinrichsweikamp
parents:
diff changeset
120
heinrichsweikamp
parents:
diff changeset
121 extern deco_reset
heinrichsweikamp
parents:
diff changeset
122 call deco_reset
133
939f1e83c4c2 BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents: 113
diff changeset
123
939f1e83c4c2 BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents: 113
diff changeset
124 call rtc_init ; init clock
939f1e83c4c2 BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents: 113
diff changeset
125
939f1e83c4c2 BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents: 113
diff changeset
126 movlw HIGH .512 ; =2
939f1e83c4c2 BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents: 113
diff changeset
127 movwf EEADRH
939f1e83c4c2 BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents: 113
diff changeset
128 read_int_eeprom .0
939f1e83c4c2 BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents: 113
diff changeset
129 clrf EEADRH
939f1e83c4c2 BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents: 113
diff changeset
130 movlw 0xAA
939f1e83c4c2 BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents: 113
diff changeset
131 cpfseq EEDATA ; =0xAA
939f1e83c4c2 BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents: 113
diff changeset
132 bra no_deco_restore ; No
939f1e83c4c2 BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents: 113
diff changeset
133
939f1e83c4c2 BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents: 113
diff changeset
134 extern restore_decodata_from_eeprom
939f1e83c4c2 BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents: 113
diff changeset
135 call restore_decodata_from_eeprom ; Reload deco data and date/time from eeprom
939f1e83c4c2 BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents: 113
diff changeset
136
939f1e83c4c2 BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents: 113
diff changeset
137 no_deco_restore:
939f1e83c4c2 BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents: 113
diff changeset
138 call deco_calc_desaturation_time ; calculate desaturation time
939f1e83c4c2 BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents: 113
diff changeset
139 banksel common
939f1e83c4c2 BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents: 113
diff changeset
140 call deco_calc_wo_deco_step_1_min ; calculate deco in surface mode
939f1e83c4c2 BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents: 113
diff changeset
141 banksel common
0
heinrichsweikamp
parents:
diff changeset
142 bcf menubit ; clear menu flag
215
8636efc5c6c5 ignore battery menu for cr
heinrichsweikamp
parents: 207
diff changeset
143
0
heinrichsweikamp
parents:
diff changeset
144 ; Check for Power-on reset here
457
b4417044a042 recover old battery status prior 2.09
heinrichsweikamp
parents: 449
diff changeset
145 extern new_battery_menu,use_old_batteries, use_old_prior_209
215
8636efc5c6c5 ignore battery menu for cr
heinrichsweikamp
parents: 207
diff changeset
146 ; *****************************************************************************
8636efc5c6c5 ignore battery menu for cr
heinrichsweikamp
parents: 207
diff changeset
147 ; "new_battery_menu" and "use_old_batteries" 'goto' back to "power_on_return"
8636efc5c6c5 ignore battery menu for cr
heinrichsweikamp
parents: 207
diff changeset
148 ; *****************************************************************************
0
heinrichsweikamp
parents:
diff changeset
149
457
b4417044a042 recover old battery status prior 2.09
heinrichsweikamp
parents: 449
diff changeset
150 ; Try to migrate the old battery status from firmware 2.09 or earlier..
b4417044a042 recover old battery status prior 2.09
heinrichsweikamp
parents: 449
diff changeset
151 btfsc RCON,POR ; Was this a power-on reset?
b4417044a042 recover old battery status prior 2.09
heinrichsweikamp
parents: 449
diff changeset
152 call use_old_prior_209
b4417044a042 recover old battery status prior 2.09
heinrichsweikamp
parents: 449
diff changeset
153
416
4389fe9673b2 NEW: Support for new logbook memory chip (minor hardware change)
heinrichsweikamp
parents: 410
diff changeset
154 btfsc RCON,POR ; Was this a power-on reset?
4389fe9673b2 NEW: Support for new logbook memory chip (minor hardware change)
heinrichsweikamp
parents: 410
diff changeset
155 goto use_old_batteries ; No, load last stored battery values and return to "power_on_return:"
441
360acdcda0d7 +BUGFIX: Compatibility with "hwOS Config" fixed
heinrichsweikamp
parents: 429
diff changeset
156
360acdcda0d7 +BUGFIX: Compatibility with "hwOS Config" fixed
heinrichsweikamp
parents: 429
diff changeset
157 ; bsf LEDg
416
4389fe9673b2 NEW: Support for new logbook memory chip (minor hardware change)
heinrichsweikamp
parents: 410
diff changeset
158 goto new_battery_menu ; No, show "New battery dialog" and return to "power_on_return:"
4389fe9673b2 NEW: Support for new logbook memory chip (minor hardware change)
heinrichsweikamp
parents: 410
diff changeset
159
4389fe9673b2 NEW: Support for new logbook memory chip (minor hardware change)
heinrichsweikamp
parents: 410
diff changeset
160 global power_on_return
4389fe9673b2 NEW: Support for new logbook memory chip (minor hardware change)
heinrichsweikamp
parents: 410
diff changeset
161 power_on_return:
4389fe9673b2 NEW: Support for new logbook memory chip (minor hardware change)
heinrichsweikamp
parents: 410
diff changeset
162 bsf RCON,POR ; Set bit for next detection
0
heinrichsweikamp
parents:
diff changeset
163
215
8636efc5c6c5 ignore battery menu for cr
heinrichsweikamp
parents: 207
diff changeset
164 call lt2942_get_status ; Check for gauge IC
449
heinrichsweikamp
parents: 446
diff changeset
165 btfss battery_gauge_available ; cR or 2 hardware?
416
4389fe9673b2 NEW: Support for new logbook memory chip (minor hardware change)
heinrichsweikamp
parents: 410
diff changeset
166 bra power_on_return2 ; no
215
8636efc5c6c5 ignore battery menu for cr
heinrichsweikamp
parents: 207
diff changeset
167
375
a9e35c1327aa 1.88 release, BUGFIX: Start with Sensor use from sleep (cR only), CHANGE: Apply button settings when button menu is closed, NEW: Reset button settings on a magnet reset (cR and OSTC 2)
heinrichsweikamp
parents: 359
diff changeset
168 movlw .30
a9e35c1327aa 1.88 release, BUGFIX: Start with Sensor use from sleep (cR only), CHANGE: Apply button settings when button menu is closed, NEW: Reset button settings on a magnet reset (cR and OSTC 2)
heinrichsweikamp
parents: 359
diff changeset
169 movff WREG,opt_cR_button_right
a9e35c1327aa 1.88 release, BUGFIX: Start with Sensor use from sleep (cR only), CHANGE: Apply button settings when button menu is closed, NEW: Reset button settings on a magnet reset (cR and OSTC 2)
heinrichsweikamp
parents: 359
diff changeset
170 movff WREG,opt_cR_button_left ; Reset on power-on reset
a9e35c1327aa 1.88 release, BUGFIX: Start with Sensor use from sleep (cR only), CHANGE: Apply button settings when button menu is closed, NEW: Reset button settings on a magnet reset (cR and OSTC 2)
heinrichsweikamp
parents: 359
diff changeset
171 call piezo_config ; Yes, configure buttons
416
4389fe9673b2 NEW: Support for new logbook memory chip (minor hardware change)
heinrichsweikamp
parents: 410
diff changeset
172 call piezo_config ; Yes, configure buttons (2 times)
0
heinrichsweikamp
parents:
diff changeset
173
416
4389fe9673b2 NEW: Support for new logbook memory chip (minor hardware change)
heinrichsweikamp
parents: 410
diff changeset
174 power_on_return2:
0
heinrichsweikamp
parents:
diff changeset
175 ; check firmware and reset Custom Functions after an update
heinrichsweikamp
parents:
diff changeset
176 movlw d'1'
281
eb758a5b44eb BUGFIX: Fix download issue for dives made with 1.80 firmware
heinrichsweikamp
parents: 276
diff changeset
177 movwf EEADR ; =1
eb758a5b44eb BUGFIX: Fix download issue for dives made with 1.80 firmware
heinrichsweikamp
parents: 276
diff changeset
178 movwf EEADRH ; =1
0
heinrichsweikamp
parents:
diff changeset
179 call read_eeprom ; read current version x
heinrichsweikamp
parents:
diff changeset
180 movff EEDATA,temp1
heinrichsweikamp
parents:
diff changeset
181 incf EEADR,F ; set to 0x102
heinrichsweikamp
parents:
diff changeset
182 call read_eeprom ; read current version y
heinrichsweikamp
parents:
diff changeset
183 movff EEDATA,temp2
heinrichsweikamp
parents:
diff changeset
184 clrf EEADRH ; Reset EEADRH
heinrichsweikamp
parents:
diff changeset
185
443
heinrichsweikamp
parents: 441
diff changeset
186 movlw softwareversion_x
heinrichsweikamp
parents: 441
diff changeset
187 cpfseq temp1 ; compare version x
0
heinrichsweikamp
parents:
diff changeset
188 bra check_firmware_new ; is not equal -> reset CF and store new version in EEPROM
heinrichsweikamp
parents:
diff changeset
189
heinrichsweikamp
parents:
diff changeset
190 movlw softwareversion_y
heinrichsweikamp
parents:
diff changeset
191 cpfseq temp2 ; compare version y
heinrichsweikamp
parents:
diff changeset
192 bra check_firmware_new ; is not equal -> reset CF and store new version in EEPROM
heinrichsweikamp
parents:
diff changeset
193 bra restart ; x and y are equal -> do not reset cf
heinrichsweikamp
parents:
diff changeset
194
heinrichsweikamp
parents:
diff changeset
195 check_firmware_new:
heinrichsweikamp
parents:
diff changeset
196 call TFT_boot ; Initialize TFT (includes clear screen)
heinrichsweikamp
parents:
diff changeset
197 clrf CCPR1L ; Backlight off
heinrichsweikamp
parents:
diff changeset
198 WIN_TOP .50
heinrichsweikamp
parents:
diff changeset
199 WIN_LEFT .10
heinrichsweikamp
parents:
diff changeset
200 movlw LOW 0x1E000
heinrichsweikamp
parents:
diff changeset
201 movwf TBLPTRL
heinrichsweikamp
parents:
diff changeset
202 movlw HIGH 0x1E000
heinrichsweikamp
parents:
diff changeset
203 movwf TBLPTRH
heinrichsweikamp
parents:
diff changeset
204 movlw UPPER 0x1E000
heinrichsweikamp
parents:
diff changeset
205 movwf TBLPTRU
heinrichsweikamp
parents:
diff changeset
206 extern color_image
heinrichsweikamp
parents:
diff changeset
207 call color_image ; Show logo
heinrichsweikamp
parents:
diff changeset
208 call TFT_standard_color
heinrichsweikamp
parents:
diff changeset
209 WIN_SMALL .10,.100
427
ceb1b7329dce add code for new compass chip
heinrichsweikamp
parents: 416
diff changeset
210 STRCPY_PRINT "Update successful!" ; Hard coded since language switch does not work here
0
heinrichsweikamp
parents:
diff changeset
211 WIN_SMALL .10,.140
427
ceb1b7329dce add code for new compass chip
heinrichsweikamp
parents: 416
diff changeset
212 STRCPY "New Firmware: "
0
heinrichsweikamp
parents:
diff changeset
213 movlw softwareversion_x
heinrichsweikamp
parents:
diff changeset
214 movwf lo
heinrichsweikamp
parents:
diff changeset
215 bsf leftbind
heinrichsweikamp
parents:
diff changeset
216 output_8
heinrichsweikamp
parents:
diff changeset
217 PUTC "."
heinrichsweikamp
parents:
diff changeset
218 movlw softwareversion_y
heinrichsweikamp
parents:
diff changeset
219 movwf lo
45
76dfe320e6ec 1.01 beta start
heinrichsweikamp
parents: 24
diff changeset
220 output_99x
0
heinrichsweikamp
parents:
diff changeset
221 bcf leftbind
heinrichsweikamp
parents:
diff changeset
222 STRCAT_PRINT "" ; Print second row
heinrichsweikamp
parents:
diff changeset
223 call TFT_Display_FadeIn ; Display resulting surface screen.
heinrichsweikamp
parents:
diff changeset
224
heinrichsweikamp
parents:
diff changeset
225 ; place "after-update reset" here...
93
5e1ef9bf32ec clear pressure sensor compensation upon update
heinrichsweikamp
parents: 52
diff changeset
226
5e1ef9bf32ec clear pressure sensor compensation upon update
heinrichsweikamp
parents: 52
diff changeset
227 extern oPressureAdjust, option_reset, option_save
5e1ef9bf32ec clear pressure sensor compensation upon update
heinrichsweikamp
parents: 52
diff changeset
228 lfsr FSR0,oPressureAdjust
5e1ef9bf32ec clear pressure sensor compensation upon update
heinrichsweikamp
parents: 52
diff changeset
229 call option_reset ; Reset FSR0 option to factory default.
5e1ef9bf32ec clear pressure sensor compensation upon update
heinrichsweikamp
parents: 52
diff changeset
230 lfsr FSR0,oPressureAdjust
5e1ef9bf32ec clear pressure sensor compensation upon update
heinrichsweikamp
parents: 52
diff changeset
231 call option_save ; Save in EEPROM
5e1ef9bf32ec clear pressure sensor compensation upon update
heinrichsweikamp
parents: 52
diff changeset
232
281
eb758a5b44eb BUGFIX: Fix download issue for dives made with 1.80 firmware
heinrichsweikamp
parents: 276
diff changeset
233 call fix_180_dives ; fix dives made with the 1.80
eb758a5b44eb BUGFIX: Fix download issue for dives made with 1.80 firmware
heinrichsweikamp
parents: 276
diff changeset
234
410
d3087a8ed7e1 BUGFIX: Fix rare issue after battery change (OSTC3 did not start properly)
heinrichsweikamp
parents: 375
diff changeset
235 rcall backup_flash_page ; backup the first 128bytes from flash to EEPROM
d3087a8ed7e1 BUGFIX: Fix rare issue after battery change (OSTC3 did not start properly)
heinrichsweikamp
parents: 375
diff changeset
236
0
heinrichsweikamp
parents:
diff changeset
237 movlw d'1' ; store current version in EEPROM
281
eb758a5b44eb BUGFIX: Fix download issue for dives made with 1.80 firmware
heinrichsweikamp
parents: 276
diff changeset
238 movwf EEADR ; =1
eb758a5b44eb BUGFIX: Fix download issue for dives made with 1.80 firmware
heinrichsweikamp
parents: 276
diff changeset
239 movwf EEADRH ; =1
0
heinrichsweikamp
parents:
diff changeset
240 movlw softwareversion_x
heinrichsweikamp
parents:
diff changeset
241 movwf EEDATA
heinrichsweikamp
parents:
diff changeset
242 call write_eeprom ; write version x
heinrichsweikamp
parents:
diff changeset
243 incf EEADR,F ; set to 0x102
heinrichsweikamp
parents:
diff changeset
244 movlw softwareversion_y
heinrichsweikamp
parents:
diff changeset
245 movwf EEDATA
heinrichsweikamp
parents:
diff changeset
246 call write_eeprom ; write version y
heinrichsweikamp
parents:
diff changeset
247 clrf EEADRH ; Reset EEADRH
heinrichsweikamp
parents:
diff changeset
248
heinrichsweikamp
parents:
diff changeset
249 movlw .7
heinrichsweikamp
parents:
diff changeset
250 movwf lo
heinrichsweikamp
parents:
diff changeset
251 check_firmware_new2:
heinrichsweikamp
parents:
diff changeset
252 ; Wait 1 second
heinrichsweikamp
parents:
diff changeset
253 bcf onesecupdate
heinrichsweikamp
parents:
diff changeset
254 btfss onesecupdate
heinrichsweikamp
parents:
diff changeset
255 bra $-2
heinrichsweikamp
parents:
diff changeset
256 decfsz lo,F ; Wait 10 seconds...
heinrichsweikamp
parents:
diff changeset
257 bra check_firmware_new2
heinrichsweikamp
parents:
diff changeset
258
heinrichsweikamp
parents:
diff changeset
259 global restart
heinrichsweikamp
parents:
diff changeset
260 restart:
heinrichsweikamp
parents:
diff changeset
261 clrf STKPTR ; Never return from here
276
e4cb495aed3d Increase byte timeout in PC download mode, faster response to "Exit" in main menu
heinrichsweikamp
parents: 275
diff changeset
262 clrf CCP1CON ; stop PWM
e4cb495aed3d Increase byte timeout in PC download mode, faster response to "Exit" in main menu
heinrichsweikamp
parents: 275
diff changeset
263 bcf PORTC,2 ; Pull PWM out to GND
e4cb495aed3d Increase byte timeout in PC download mode, faster response to "Exit" in main menu
heinrichsweikamp
parents: 275
diff changeset
264
21
79b2084fd75a Reset options to default if they are not within the allowed min/max values
heinrichsweikamp
parents: 16
diff changeset
265 extern option_save_all, option_check_all
79b2084fd75a Reset options to default if they are not within the allowed min/max values
heinrichsweikamp
parents: 16
diff changeset
266
0
heinrichsweikamp
parents:
diff changeset
267 btfsc menubit ; Return from Menu/COMM mode or timeout?
heinrichsweikamp
parents:
diff changeset
268 call option_save_all ; Yes, save all settings into EEPROM
heinrichsweikamp
parents:
diff changeset
269
429
4b93354b7738 hardware_flag handling
heinrichsweikamp
parents: 427
diff changeset
270 call option_restore_all ; Restore everything from EEPROM into RAM
23
e402813343b6 new option to switch samplingrate between 10s and 2s
heinrichsweikamp
parents: 21
diff changeset
271 call option_check_all ; Check all options (and reset if not within their min/max boundaries)
429
4b93354b7738 hardware_flag handling
heinrichsweikamp
parents: 427
diff changeset
272 call option_save_all ; Save all settings into EEPROM after they have been checked
23
e402813343b6 new option to switch samplingrate between 10s and 2s
heinrichsweikamp
parents: 21
diff changeset
273
429
4b93354b7738 hardware_flag handling
heinrichsweikamp
parents: 427
diff changeset
274 clrf flag1 ; clear all flags
4b93354b7738 hardware_flag handling
heinrichsweikamp
parents: 427
diff changeset
275 clrf flag2
4b93354b7738 hardware_flag handling
heinrichsweikamp
parents: 427
diff changeset
276 clrf flag3
4b93354b7738 hardware_flag handling
heinrichsweikamp
parents: 427
diff changeset
277 clrf flag4
4b93354b7738 hardware_flag handling
heinrichsweikamp
parents: 427
diff changeset
278 clrf flag5
4b93354b7738 hardware_flag handling
heinrichsweikamp
parents: 427
diff changeset
279 clrf flag6
0
heinrichsweikamp
parents:
diff changeset
280 clrf flag7
heinrichsweikamp
parents:
diff changeset
281 clrf flag8
429
4b93354b7738 hardware_flag handling
heinrichsweikamp
parents: 427
diff changeset
282 clrf flag9
4b93354b7738 hardware_flag handling
heinrichsweikamp
parents: 427
diff changeset
283 clrf flag10
267
f64afa14ef07 BUGFIX: Analog sensors were ignored in 1.76
heinrichsweikamp
parents: 255
diff changeset
284 ; Do not clear flag11 (Sensor calibration and charger status)
255
ad62dff7739a add bearing option to compass
heinrichsweikamp
parents: 249
diff changeset
285 clrf flag12
449
heinrichsweikamp
parents: 446
diff changeset
286 ; ; Do not clear flag13 (Important hardware flags)
235
23311219dacc under construction: new hardware_flag to configure different hardware versions
heinrichsweikamp
parents: 224
diff changeset
287 clrf hardware_flag ; hardware descriptor flag
449
heinrichsweikamp
parents: 446
diff changeset
288 bsf tft_is_dimming ; TFT is dimming up (soon), ignore ambient sensor!
23
e402813343b6 new option to switch samplingrate between 10s and 2s
heinrichsweikamp
parents: 21
diff changeset
289
236
e2ea74646127 configure hardware_flag byte
heinrichsweikamp
parents: 235
diff changeset
290 ; configure hardware_flag byte
e2ea74646127 configure hardware_flag byte
heinrichsweikamp
parents: 235
diff changeset
291
429
4b93354b7738 hardware_flag handling
heinrichsweikamp
parents: 427
diff changeset
292 bsf ambient_sensor ; Set flag
4b93354b7738 hardware_flag handling
heinrichsweikamp
parents: 427
diff changeset
293 bsf optical_input ; Set flag
236
e2ea74646127 configure hardware_flag byte
heinrichsweikamp
parents: 235
diff changeset
294
113
heinrichsweikamp
parents: 93
diff changeset
295 call lt2942_get_status ; Check for gauge IC
449
heinrichsweikamp
parents: 446
diff changeset
296 btfss battery_gauge_available ; cR/2 hardware?
236
e2ea74646127 configure hardware_flag byte
heinrichsweikamp
parents: 235
diff changeset
297 bra restart2 ; No
e2ea74646127 configure hardware_flag byte
heinrichsweikamp
parents: 235
diff changeset
298
113
heinrichsweikamp
parents: 93
diff changeset
299 call lt2942_init ; Yes, init battery gauge IC
429
4b93354b7738 hardware_flag handling
heinrichsweikamp
parents: 427
diff changeset
300 bcf optical_input ; Clear flag
4b93354b7738 hardware_flag handling
heinrichsweikamp
parents: 427
diff changeset
301
441
360acdcda0d7 +BUGFIX: Compatibility with "hwOS Config" fixed
heinrichsweikamp
parents: 429
diff changeset
302 banksel 0xF16
429
4b93354b7738 hardware_flag handling
heinrichsweikamp
parents: 427
diff changeset
303 bcf ANCON0,7 ; AN7 Digital input
441
360acdcda0d7 +BUGFIX: Compatibility with "hwOS Config" fixed
heinrichsweikamp
parents: 429
diff changeset
304 banksel common
429
4b93354b7738 hardware_flag handling
heinrichsweikamp
parents: 427
diff changeset
305 bcf lightsen_power ; Power-down ambient light sensor
236
e2ea74646127 configure hardware_flag byte
heinrichsweikamp
parents: 235
diff changeset
306 bcf ambient_sensor ; Clear flag
441
360acdcda0d7 +BUGFIX: Compatibility with "hwOS Config" fixed
heinrichsweikamp
parents: 429
diff changeset
307 nop
429
4b93354b7738 hardware_flag handling
heinrichsweikamp
parents: 427
diff changeset
308 btfss PORTF,2 ; Light sensor available?
4b93354b7738 hardware_flag handling
heinrichsweikamp
parents: 427
diff changeset
309 bsf ambient_sensor ; Yes.
441
360acdcda0d7 +BUGFIX: Compatibility with "hwOS Config" fixed
heinrichsweikamp
parents: 429
diff changeset
310 banksel 0xF16
429
4b93354b7738 hardware_flag handling
heinrichsweikamp
parents: 427
diff changeset
311 bsf ANCON0,7 ; AN7 Analog again
441
360acdcda0d7 +BUGFIX: Compatibility with "hwOS Config" fixed
heinrichsweikamp
parents: 429
diff changeset
312 banksel common
360acdcda0d7 +BUGFIX: Compatibility with "hwOS Config" fixed
heinrichsweikamp
parents: 429
diff changeset
313 bsf lightsen_power ; Power-up ambient light sensor again
429
4b93354b7738 hardware_flag handling
heinrichsweikamp
parents: 427
diff changeset
314
243
ee81f46714cb auto-select correct settings menu
heinrichsweikamp
parents: 236
diff changeset
315 restart2:
ee81f46714cb auto-select correct settings menu
heinrichsweikamp
parents: 236
diff changeset
316 btfsc vusb_in
ee81f46714cb auto-select correct settings menu
heinrichsweikamp
parents: 236
diff changeset
317 bra restart3 ; USB (and powered on)
ee81f46714cb auto-select correct settings menu
heinrichsweikamp
parents: 236
diff changeset
318 bcf PORTE,0 ; Start comms
ee81f46714cb auto-select correct settings menu
heinrichsweikamp
parents: 236
diff changeset
319 WAITMS d'1'
ee81f46714cb auto-select correct settings menu
heinrichsweikamp
parents: 236
diff changeset
320 btfss vusb_in
ee81f46714cb auto-select correct settings menu
heinrichsweikamp
parents: 236
diff changeset
321 bra restart3 ; USB (and powered off)
ee81f46714cb auto-select correct settings menu
heinrichsweikamp
parents: 236
diff changeset
322 bsf ble_available ; ble available
ee81f46714cb auto-select correct settings menu
heinrichsweikamp
parents: 236
diff changeset
323 restart3:
ee81f46714cb auto-select correct settings menu
heinrichsweikamp
parents: 236
diff changeset
324 bsf PORTE,0 ; Stop comms
248
afe73e1a0181 support hardware_flag for all possible hardware combinations
heinrichsweikamp
parents: 243
diff changeset
325 btfsc ble_available ; ble available?
afe73e1a0181 support hardware_flag for all possible hardware combinations
heinrichsweikamp
parents: 243
diff changeset
326 bra restart4 ; Yes, can't be a cR
449
heinrichsweikamp
parents: 446
diff changeset
327 btfss battery_gauge_available ; Rechargeable
248
afe73e1a0181 support hardware_flag for all possible hardware combinations
heinrichsweikamp
parents: 243
diff changeset
328 bra restart4 ; No, can't be a cR
afe73e1a0181 support hardware_flag for all possible hardware combinations
heinrichsweikamp
parents: 243
diff changeset
329 bsf analog_o2_input ; Set flag for analog
249
94bf757690cf ignore sensor for non-sensor hardware
heinrichsweikamp
parents: 248
diff changeset
330 restart4:
94bf757690cf ignore sensor for non-sensor hardware
heinrichsweikamp
parents: 248
diff changeset
331 ; The hardware_flag is now:
94bf757690cf ignore sensor for non-sensor hardware
heinrichsweikamp
parents: 248
diff changeset
332 ; 3: 0x0A
94bf757690cf ignore sensor for non-sensor hardware
heinrichsweikamp
parents: 248
diff changeset
333 ; cR: 0x05
94bf757690cf ignore sensor for non-sensor hardware
heinrichsweikamp
parents: 248
diff changeset
334 ; 2 with BLE: 0x11
94bf757690cf ignore sensor for non-sensor hardware
heinrichsweikamp
parents: 248
diff changeset
335 ; 3 with BLE: 0x1A
429
4b93354b7738 hardware_flag handling
heinrichsweikamp
parents: 427
diff changeset
336 ; 2 with ambient: 0x13
113
heinrichsweikamp
parents: 93
diff changeset
337
0
heinrichsweikamp
parents:
diff changeset
338 ; Select high altitude (Fly) mode?
heinrichsweikamp
parents:
diff changeset
339 movff last_surfpressure_30min+0,sub_b+0
heinrichsweikamp
parents:
diff changeset
340 movff last_surfpressure_30min+1,sub_b+1
heinrichsweikamp
parents:
diff changeset
341 movlw HIGH high_altitude_threshold
heinrichsweikamp
parents:
diff changeset
342 movwf sub_a+1
heinrichsweikamp
parents:
diff changeset
343 movlw LOW high_altitude_threshold ; Hard-wired 880mbar
heinrichsweikamp
parents:
diff changeset
344 movwf sub_a+0
heinrichsweikamp
parents:
diff changeset
345 call subU16 ; sub_c = sub_a - sub_b
heinrichsweikamp
parents:
diff changeset
346 btfss neg_flag ; Result negative (Ambient>880mbar)?
heinrichsweikamp
parents:
diff changeset
347 bsf high_altitude_mode ; No, Set Flag!
heinrichsweikamp
parents:
diff changeset
348
236
e2ea74646127 configure hardware_flag byte
heinrichsweikamp
parents: 235
diff changeset
349 btfss analog_o2_input
165
9b82239fa062 testing consumption
heinrichsweikamp
parents: 155
diff changeset
350 bsf TRISB,3
449
heinrichsweikamp
parents: 446
diff changeset
351 btfss battery_gauge_available
165
9b82239fa062 testing consumption
heinrichsweikamp
parents: 155
diff changeset
352 bsf TRISG,0
0
heinrichsweikamp
parents:
diff changeset
353 call ext_flash_disable_protection ; Disable write protection for external flash
heinrichsweikamp
parents:
diff changeset
354
155
5f71e31bd5b3 CHANGE: Re-arranged Settings Menu, add 180? rotate to menu
heinrichsweikamp
parents: 154
diff changeset
355 bsf flip_screen ; Flip 180°
5f71e31bd5b3 CHANGE: Re-arranged Settings Menu, add 180? rotate to menu
heinrichsweikamp
parents: 154
diff changeset
356 TSTOSS opt_flip_screen ; =1: Flip the screen
5f71e31bd5b3 CHANGE: Re-arranged Settings Menu, add 180? rotate to menu
heinrichsweikamp
parents: 154
diff changeset
357 bcf flip_screen ; Normal orientation
151
5cb177f0948a work on flip screen...
heinrichsweikamp
parents: 147
diff changeset
358
0
heinrichsweikamp
parents:
diff changeset
359 goto surfloop ; Jump to Surfaceloop!
heinrichsweikamp
parents:
diff changeset
360
heinrichsweikamp
parents:
diff changeset
361 ;=============================================================================
heinrichsweikamp
parents:
diff changeset
362 ; Setup all flags and parameters for divemode and simulator computations.
heinrichsweikamp
parents:
diff changeset
363 ;
heinrichsweikamp
parents:
diff changeset
364 global restart_set_modes_and_flags
heinrichsweikamp
parents:
diff changeset
365 restart_set_modes_and_flags: ; "Call"ed from divemode, as well!
heinrichsweikamp
parents:
diff changeset
366 call option_restore_all ; Restore everything from EEPROM
24
f51caad821b4 save logbook recording interval
heinrichsweikamp
parents: 23
diff changeset
367
f51caad821b4 save logbook recording interval
heinrichsweikamp
parents: 23
diff changeset
368 ; Setup sampling rate
f51caad821b4 save logbook recording interval
heinrichsweikamp
parents: 23
diff changeset
369 movlw .2
f51caad821b4 save logbook recording interval
heinrichsweikamp
parents: 23
diff changeset
370 movwf samplingrate
f51caad821b4 save logbook recording interval
heinrichsweikamp
parents: 23
diff changeset
371 TSTOSS opt_sampling_rate ; =1: 10s, =0: 2s
f51caad821b4 save logbook recording interval
heinrichsweikamp
parents: 23
diff changeset
372 bra restart_set_modes_and_flags1
f51caad821b4 save logbook recording interval
heinrichsweikamp
parents: 23
diff changeset
373 movlw .10
f51caad821b4 save logbook recording interval
heinrichsweikamp
parents: 23
diff changeset
374 movwf samplingrate
f51caad821b4 save logbook recording interval
heinrichsweikamp
parents: 23
diff changeset
375 restart_set_modes_and_flags1:
0
heinrichsweikamp
parents:
diff changeset
376 movff opt_dive_mode,lo ; 0=OC, 1=CC, 2=Gauge, 3=Apnea
heinrichsweikamp
parents:
diff changeset
377
heinrichsweikamp
parents:
diff changeset
378 bcf FLAG_apnoe_mode
heinrichsweikamp
parents:
diff changeset
379 bcf FLAG_ccr_mode ; =1: CCR mode (Fixed ppO2 or Sensor) active
heinrichsweikamp
parents:
diff changeset
380 bcf FLAG_gauge_mode ; =1: In Gauge mode
224
5a4801918be9 temporally disable "Copy disable flags from digital input" routine
heinrichsweikamp
parents: 220
diff changeset
381 call disable_ir_s8 ; IR off
0
heinrichsweikamp
parents:
diff changeset
382
heinrichsweikamp
parents:
diff changeset
383 tstfsz lo
heinrichsweikamp
parents:
diff changeset
384 bra restart_set_modes_and_flags2
heinrichsweikamp
parents:
diff changeset
385 ; OC Mode
heinrichsweikamp
parents:
diff changeset
386 return
heinrichsweikamp
parents:
diff changeset
387
heinrichsweikamp
parents:
diff changeset
388 restart_set_modes_and_flags2:
heinrichsweikamp
parents:
diff changeset
389 decfsz lo,F
heinrichsweikamp
parents:
diff changeset
390 bra restart_set_modes_and_flags3
heinrichsweikamp
parents:
diff changeset
391 ; CC Mode
359
2be48ccfa9de make AUTO SP available on OSTC2 hardware
heinrichsweikamp
parents: 338
diff changeset
392 btfsc analog_o2_input ; cR?
2be48ccfa9de make AUTO SP available on OSTC2 hardware
heinrichsweikamp
parents: 338
diff changeset
393 bra restart_set_modes_and_flags2b ; Yes, skip mode check
2be48ccfa9de make AUTO SP available on OSTC2 hardware
heinrichsweikamp
parents: 338
diff changeset
394 btfsc optical_input ; 3
2be48ccfa9de make AUTO SP available on OSTC2 hardware
heinrichsweikamp
parents: 338
diff changeset
395 bra restart_set_modes_and_flags2b ; Yes, skip mode check
2be48ccfa9de make AUTO SP available on OSTC2 hardware
heinrichsweikamp
parents: 338
diff changeset
396 ; Make sure Sensor is not selected
2be48ccfa9de make AUTO SP available on OSTC2 hardware
heinrichsweikamp
parents: 338
diff changeset
397 ; opt_ccr_mode must be <> 1 (=0: Fixed SP, =1: Sensor, =2: Auto SP)
2be48ccfa9de make AUTO SP available on OSTC2 hardware
heinrichsweikamp
parents: 338
diff changeset
398 banksel opt_ccr_mode
2be48ccfa9de make AUTO SP available on OSTC2 hardware
heinrichsweikamp
parents: 338
diff changeset
399 movlw .1
2be48ccfa9de make AUTO SP available on OSTC2 hardware
heinrichsweikamp
parents: 338
diff changeset
400 cpfseq opt_ccr_mode ; = Sensor?
2be48ccfa9de make AUTO SP available on OSTC2 hardware
heinrichsweikamp
parents: 338
diff changeset
401 bra restart_set_modes_and_flags2b ; No
2be48ccfa9de make AUTO SP available on OSTC2 hardware
heinrichsweikamp
parents: 338
diff changeset
402 clrf opt_ccr_mode ; Yes, reset to Fixed SP
2be48ccfa9de make AUTO SP available on OSTC2 hardware
heinrichsweikamp
parents: 338
diff changeset
403 restart_set_modes_and_flags2b:
2be48ccfa9de make AUTO SP available on OSTC2 hardware
heinrichsweikamp
parents: 338
diff changeset
404 banksel common
338
2811932b4e99 NEW: Mode Auto SP: Automatically switches the SP during descent (CC Mode)
heinrichsweikamp
parents: 319
diff changeset
405 bsf FLAG_ccr_mode ; =1: CCR mode (Fixed SP, Auto SP or Sensor) active
187
669b5d00706d CHANGE: Longer timeout (4 min) for calibration menu
heinrichsweikamp
parents: 165
diff changeset
406 call enable_ir_s8 ; Enable IR/S8-Port
0
heinrichsweikamp
parents:
diff changeset
407 return
heinrichsweikamp
parents:
diff changeset
408
heinrichsweikamp
parents:
diff changeset
409 restart_set_modes_and_flags3:
heinrichsweikamp
parents:
diff changeset
410 decfsz lo,F
heinrichsweikamp
parents:
diff changeset
411 bra restart_set_modes_and_flags4
heinrichsweikamp
parents:
diff changeset
412 ; Gauge Mode
heinrichsweikamp
parents:
diff changeset
413 bsf FLAG_gauge_mode ; =1: In Gauge mode
heinrichsweikamp
parents:
diff changeset
414 return
heinrichsweikamp
parents:
diff changeset
415
heinrichsweikamp
parents:
diff changeset
416 restart_set_modes_and_flags4:
heinrichsweikamp
parents:
diff changeset
417 ; Apnea Mode
heinrichsweikamp
parents:
diff changeset
418 bsf FLAG_apnoe_mode
heinrichsweikamp
parents:
diff changeset
419 return ; start in Surfacemode
heinrichsweikamp
parents:
diff changeset
420
410
d3087a8ed7e1 BUGFIX: Fix rare issue after battery change (OSTC3 did not start properly)
heinrichsweikamp
parents: 375
diff changeset
421 backup_flash_page: ; backup the first 128bytes from flash to EEPROM
d3087a8ed7e1 BUGFIX: Fix rare issue after battery change (OSTC3 did not start properly)
heinrichsweikamp
parents: 375
diff changeset
422 ; Start address in internal flash
d3087a8ed7e1 BUGFIX: Fix rare issue after battery change (OSTC3 did not start properly)
heinrichsweikamp
parents: 375
diff changeset
423 movlw 0x00
d3087a8ed7e1 BUGFIX: Fix rare issue after battery change (OSTC3 did not start properly)
heinrichsweikamp
parents: 375
diff changeset
424 movwf TBLPTRL
d3087a8ed7e1 BUGFIX: Fix rare issue after battery change (OSTC3 did not start properly)
heinrichsweikamp
parents: 375
diff changeset
425 movwf TBLPTRH
d3087a8ed7e1 BUGFIX: Fix rare issue after battery change (OSTC3 did not start properly)
heinrichsweikamp
parents: 375
diff changeset
426 movwf TBLPTRU
d3087a8ed7e1 BUGFIX: Fix rare issue after battery change (OSTC3 did not start properly)
heinrichsweikamp
parents: 375
diff changeset
427
d3087a8ed7e1 BUGFIX: Fix rare issue after battery change (OSTC3 did not start properly)
heinrichsweikamp
parents: 375
diff changeset
428 movlw .128
d3087a8ed7e1 BUGFIX: Fix rare issue after battery change (OSTC3 did not start properly)
heinrichsweikamp
parents: 375
diff changeset
429 movwf lo ; Byte counter
d3087a8ed7e1 BUGFIX: Fix rare issue after battery change (OSTC3 did not start properly)
heinrichsweikamp
parents: 375
diff changeset
430 clrf EEADR
d3087a8ed7e1 BUGFIX: Fix rare issue after battery change (OSTC3 did not start properly)
heinrichsweikamp
parents: 375
diff changeset
431 movlw .3
d3087a8ed7e1 BUGFIX: Fix rare issue after battery change (OSTC3 did not start properly)
heinrichsweikamp
parents: 375
diff changeset
432 movwf EEADRH ; Setup backup address
d3087a8ed7e1 BUGFIX: Fix rare issue after battery change (OSTC3 did not start properly)
heinrichsweikamp
parents: 375
diff changeset
433
d3087a8ed7e1 BUGFIX: Fix rare issue after battery change (OSTC3 did not start properly)
heinrichsweikamp
parents: 375
diff changeset
434 TBLRD*- ; Dummy read to be in 128 byte block
d3087a8ed7e1 BUGFIX: Fix rare issue after battery change (OSTC3 did not start properly)
heinrichsweikamp
parents: 375
diff changeset
435 backup_flash_loop:
d3087a8ed7e1 BUGFIX: Fix rare issue after battery change (OSTC3 did not start properly)
heinrichsweikamp
parents: 375
diff changeset
436 tblrd+* ; Table Read with Pre-Increment
d3087a8ed7e1 BUGFIX: Fix rare issue after battery change (OSTC3 did not start properly)
heinrichsweikamp
parents: 375
diff changeset
437 movff TABLAT,EEDATA ; put 1 byte
d3087a8ed7e1 BUGFIX: Fix rare issue after battery change (OSTC3 did not start properly)
heinrichsweikamp
parents: 375
diff changeset
438 call write_eeprom ; save it in EEPROM
d3087a8ed7e1 BUGFIX: Fix rare issue after battery change (OSTC3 did not start properly)
heinrichsweikamp
parents: 375
diff changeset
439 incf EEADR,F
d3087a8ed7e1 BUGFIX: Fix rare issue after battery change (OSTC3 did not start properly)
heinrichsweikamp
parents: 375
diff changeset
440 decfsz lo,F ; 128byte done?
d3087a8ed7e1 BUGFIX: Fix rare issue after battery change (OSTC3 did not start properly)
heinrichsweikamp
parents: 375
diff changeset
441 bra backup_flash_loop ; No
d3087a8ed7e1 BUGFIX: Fix rare issue after battery change (OSTC3 did not start properly)
heinrichsweikamp
parents: 375
diff changeset
442 clrf EEADRH ; Reset EEADRH
d3087a8ed7e1 BUGFIX: Fix rare issue after battery change (OSTC3 did not start properly)
heinrichsweikamp
parents: 375
diff changeset
443 return ; Done.
d3087a8ed7e1 BUGFIX: Fix rare issue after battery change (OSTC3 did not start properly)
heinrichsweikamp
parents: 375
diff changeset
444
0
heinrichsweikamp
parents:
diff changeset
445 END