Mercurial > public > hwos_code
annotate src/ghostwriter.asm @ 177:67db1f6d3787
Merge
| author | heinrichsweikamp |
|---|---|
| date | Tue, 07 Oct 2014 08:42:38 +0200 |
| parents | 932e91074bdb |
| children | f515712d8cd6 |
| rev | line source |
|---|---|
| 0 | 1 ;============================================================================= |
| 2 ; | |
| 3 ; File ghostwriter.asm | |
| 4 ; | |
| 5 ; Ghostwriter (Log profile recorder) | |
| 6 ; | |
| 7 ; Copyright (c) 2011, JD Gascuel, HeinrichsWeikamp, all right reserved. | |
| 8 ;============================================================================= | |
| 9 ; HISTORY | |
| 10 ; 2011-11-27 : [mH] Creation | |
| 11 | |
| 12 #include "ostc3.inc" ; Mandatory header | |
| 13 #include "shared_definitions.h" ; Mailbox from/to p2_deco.c | |
| 14 #include "external_flash.inc" | |
| 15 #include "surfmode.inc" | |
|
133
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
16 #include "eeprom_rs232.inc" |
| 0 | 17 #include "strings.inc" |
| 18 #include "isr.inc" | |
| 19 #include "tft_outputs.inc" | |
| 20 #include "divemode.inc" | |
|
133
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
21 #include "rtc.inc" |
| 0 | 22 |
| 23 ghostwriter CODE | |
| 24 | |
| 25 global store_dive_data | |
| 26 store_dive_data: ; 5 seconds gone | |
| 27 bcf store_sample ; update only any 5 seconds | |
| 28 | |
| 29 ifndef __DEBUG | |
| 30 btfsc simulatormode_active ; Are we in simulator mode? | |
| 31 return ; Yes, discard everything | |
| 32 endif | |
| 33 | |
|
35
eca4a201d8cf
change apnea timeout, do no longer store apnea dives in logbook
heinrichsweikamp
parents:
23
diff
changeset
|
34 btfsc FLAG_apnoe_mode ; In Apnoe mode? |
|
eca4a201d8cf
change apnea timeout, do no longer store apnea dives in logbook
heinrichsweikamp
parents:
23
diff
changeset
|
35 return ; Yes, discard everything |
|
eca4a201d8cf
change apnea timeout, do no longer store apnea dives in logbook
heinrichsweikamp
parents:
23
diff
changeset
|
36 |
| 0 | 37 SAFE_2BYTE_COPY rel_pressure, lo |
| 38 movf lo,W ; store depth with every sample | |
|
35
eca4a201d8cf
change apnea timeout, do no longer store apnea dives in logbook
heinrichsweikamp
parents:
23
diff
changeset
|
39 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. Flash |
| 0 | 40 movf hi,W |
|
35
eca4a201d8cf
change apnea timeout, do no longer store apnea dives in logbook
heinrichsweikamp
parents:
23
diff
changeset
|
41 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. Flash |
| 0 | 42 |
| 43 ;First, find out how many bytes will append to this sample.... | |
| 44 clrf ProfileFlagByte ; clear number of bytes to append | |
| 45 | |
| 46 ; Check Extented informations | |
| 47 decfsz divisor_temperature,W ; Check divisor | |
| 48 bra check_extended1 | |
| 49 movlw infolength_temperature | |
| 50 addwf ProfileFlagByte,F ; add to ProfileFlagByte | |
| 51 check_extended1: | |
| 52 decfsz divisor_deco,W ; Check divisor | |
| 53 bra check_extended2 | |
| 54 movlw infolength_deco | |
| 55 addwf ProfileFlagByte,F ; add to ProfileFlagByte | |
| 56 check_extended2: | |
| 57 decfsz divisor_gf,W ; Check divisor | |
| 58 bra check_extended3 | |
| 59 movlw infolength_gf | |
| 60 addwf ProfileFlagByte,F ; add to ProfileFlagByte | |
| 61 check_extended3: | |
| 62 decfsz divisor_ppo2_sensors,W ; Check divisor | |
| 63 bra check_extended4 | |
| 64 movlw infolength_ppo2_sensors | |
| 65 addwf ProfileFlagByte,F ; add to ProfileFlagByte | |
| 66 check_extended4: | |
| 67 decfsz divisor_decoplan,W ; Check divisor | |
| 68 bra check_extended5 | |
| 69 movlw infolength_decoplan | |
| 70 addwf ProfileFlagByte,F ; add to ProfileFlagByte | |
| 71 check_extended5: | |
| 72 decfsz divisor_cns,W ; Check divisor | |
| 73 bra check_extended6 | |
| 74 movlw infolength_cns | |
| 75 addwf ProfileFlagByte,F ; add to ProfileFlagByte | |
| 76 check_extended6: | |
| 77 decfsz divisor_tank,W ; Check divisor | |
| 78 bra check_extended7 | |
| 79 movlw infolength_tank | |
| 80 addwf ProfileFlagByte,F ; add to ProfileFlagByte | |
| 81 check_extended7: | |
| 82 | |
| 83 ; Second, check global event flag | |
| 84 btfss event_occured ; Check global event flag | |
| 85 bra store_dive_data3 ; No Event | |
|
99
87cc1adfe4da
show event "bailout" in the internal logbook
heinrichsweikamp
parents:
98
diff
changeset
|
86 |
| 0 | 87 incf ProfileFlagByte,F ; add one byte (The EventByte) |
| 88 | |
| 89 clrf EventByte ; reset EventByte | |
| 98 | 90 clrf EventByte2 ; reset EventByte2 |
| 0 | 91 |
| 92 movf AlarmType,W ; Type of Alarm Bit 0-3 | |
| 93 addwf EventByte,F ; Copy to EventByte Bit 0-3 | |
| 94 clrf AlarmType ; Reset AlarmType | |
| 95 | |
| 96 ; Third, check events and add aditional bytes | |
| 97 btfss gas6_changed ; Check flag | |
| 98 bra check_event2 | |
| 99 movlw d'2' ; Information length | |
| 100 addwf ProfileFlagByte,F ; add to ProfileFlagByte | |
| 101 bsf EventByte,4 ; Also set Flag in EventByte! | |
| 102 check_event2: | |
| 103 btfss stored_gas_changed ; Check flag | |
| 104 bra check_event3 | |
| 105 movlw d'1' ; Information length | |
| 106 addwf ProfileFlagByte,F ; add to ProfileFlagByte | |
| 107 bsf EventByte,5 ; Also set Flag in EventByte! | |
| 108 check_event3: | |
| 109 btfss setpoint_changed ; Check flag | |
| 110 bra check_event4 | |
| 111 movlw d'1' ; Information length | |
| 112 addwf ProfileFlagByte,F ; add to ProfileFlagByte | |
| 113 bsf EventByte,6 ; Also set Flag in EventByte! | |
| 114 check_event4: | |
| 98 | 115 btfss bailoutgas_event ; =1: bailout was selected or a gaschange during bailout |
| 116 bra check_event5 | |
| 117 movlw d'2' ; Information length | |
| 118 addwf ProfileFlagByte,F ; add to ProfileFlagByte | |
| 119 bsf EventByte2,0 ; set flag in EventByte2! | |
| 120 bsf EventByte,7 ; =1: Another Eventbyte is available | |
| 121 | |
| 122 check_event5: | |
| 0 | 123 ; more events? |
| 124 | |
| 125 store_dive_data3: | |
| 98 | 126 btfsc EventByte,7 ; =1: Another Eventbyte is available |
| 127 incf ProfileFlagByte,F ; add one byte (The EventByte2) | |
| 128 | |
| 129 btfsc event_occured ; Check global event flag | |
| 130 bsf ProfileFlagByte,7 ; Set EventByte Flag in ProfileFlagByte | |
| 131 | |
| 132 movf ProfileFlagByte,W ; finally, write ProfileFlagByte! | |
| 133 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. Flash | |
| 134 | |
| 135 btfss event_occured ; Check global event flag (again) | |
| 136 bra store_dive_data4 ; No Event | |
| 137 | |
| 138 ; Store the EventByte(s) + additional bytes now | |
| 139 movf EventByte,W | |
|
99
87cc1adfe4da
show event "bailout" in the internal logbook
heinrichsweikamp
parents:
98
diff
changeset
|
140 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. Flash |
| 0 | 141 |
| 98 | 142 movf EventByte2,W ; Write second event byte... |
| 143 btfsc EventByte,7 ; =1: Another Eventbyte is available | |
| 144 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. Flash | |
| 0 | 145 |
|
99
87cc1adfe4da
show event "bailout" in the internal logbook
heinrichsweikamp
parents:
98
diff
changeset
|
146 btfss gas6_changed ; Check flag |
| 0 | 147 bra store_dive_data3b |
| 148 movff char_I_O2_ratio,WREG | |
|
99
87cc1adfe4da
show event "bailout" in the internal logbook
heinrichsweikamp
parents:
98
diff
changeset
|
149 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. Flash |
| 0 | 150 movff char_I_He_ratio,WREG |
|
99
87cc1adfe4da
show event "bailout" in the internal logbook
heinrichsweikamp
parents:
98
diff
changeset
|
151 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. Flash |
| 0 | 152 bcf gas6_changed ; Clear this event |
| 153 store_dive_data3b: | |
| 154 btfss stored_gas_changed ; Check flag | |
| 155 bra store_dive_data3c | |
| 156 movf active_gas,W ; Store active gas | |
| 157 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. Flash | |
| 158 bcf stored_gas_changed ; Clear this event | |
| 159 store_dive_data3c: | |
| 160 btfss setpoint_changed ; Check flag | |
| 161 bra store_dive_data3d | |
| 162 movff char_I_const_ppO2,WREG | |
| 163 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. Flash | |
| 164 bcf setpoint_changed ; Clear this event | |
| 165 store_dive_data3d: | |
| 98 | 166 btfss bailoutgas_event ; Check flag |
| 167 bra store_dive_data3e | |
| 168 movff char_I_O2_ratio,WREG | |
| 169 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. Flash | |
| 170 movff char_I_He_ratio,WREG | |
| 171 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. Flash | |
| 172 bcf bailoutgas_event ; Clear this event | |
| 173 store_dive_data3e: | |
| 0 | 174 |
| 175 store_dive_data4: | |
| 176 | |
| 177 ; Store extended informations | |
| 178 decfsz divisor_temperature,F ; Check divisor | |
| 179 bra store_extended1 | |
| 180 rcall store_dive_temperature | |
| 181 store_extended1: | |
| 182 decfsz divisor_deco,F ; Check divisor | |
| 183 bra store_extended2 | |
| 184 rcall store_dive_decodata | |
| 185 store_extended2: | |
| 186 decfsz divisor_gf,F ; Check divisor | |
| 187 bra store_extended3 | |
| 188 rcall store_dive_gf | |
| 189 store_extended3: | |
| 190 decfsz divisor_ppo2_sensors,F ; Check divisor | |
| 191 bra store_extended4 | |
| 192 rcall store_dive_ppO2_sensors | |
| 193 store_extended4: | |
| 194 decfsz divisor_decoplan,F ; Check divisor | |
| 195 bra store_extended5 | |
| 196 rcall store_dive_decoplan | |
| 197 store_extended5: | |
| 198 decfsz divisor_cns,F ; Check divisor | |
| 199 bra store_extended6 | |
| 200 rcall store_dive_cns | |
| 201 store_extended6: | |
| 202 decfsz divisor_tank,F ; Check divisor | |
| 203 bra store_extended7 | |
| 204 rcall store_dive_tank | |
| 205 store_extended7: | |
| 206 | |
| 207 ; The next block is required to take care of "store never" | |
| 208 btfsc divisor_temperature,7 ; Test highest Bit (Register must have been zero before the "decfsz" command!) | |
| 209 clrf divisor_temperature ; And clear register again, so it will never reach zero... | |
| 210 btfsc divisor_deco,7 | |
| 211 clrf divisor_deco | |
| 212 btfsc divisor_gf,7 | |
| 213 clrf divisor_gf | |
| 214 btfsc divisor_ppo2_sensors,7 | |
| 215 clrf divisor_ppo2_sensors | |
| 216 btfsc divisor_decoplan,7 | |
| 217 clrf divisor_decoplan | |
| 218 btfsc divisor_cns,7 | |
| 219 clrf divisor_cns | |
| 220 btfsc divisor_tank,7 | |
| 221 clrf divisor_tank | |
| 222 | |
| 223 store_dive_data5: | |
| 224 bcf event_occured ; Clear the global event flag | |
|
99
87cc1adfe4da
show event "bailout" in the internal logbook
heinrichsweikamp
parents:
98
diff
changeset
|
225 clrf EventByte ; reset EventByte |
|
87cc1adfe4da
show event "bailout" in the internal logbook
heinrichsweikamp
parents:
98
diff
changeset
|
226 clrf EventByte2 ; reset EventByte2 |
| 0 | 227 return ; Done. (Sample with all informations written to external flash) |
| 228 | |
| 229 store_dive_cns: | |
| 230 movff int_O_CNS_fraction+0,WREG | |
| 231 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. Flash | |
| 232 movff int_O_CNS_fraction+1,WREG | |
| 233 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. Flash | |
| 234 movlw div_cns | |
| 235 movwf divisor_cns ; Reload divisor from CF | |
| 236 return | |
| 237 | |
| 238 store_dive_tank: | |
| 239 movlw div_tank | |
| 240 movwf divisor_tank ; Reload divisor from CF | |
| 241 return | |
| 242 | |
| 243 store_dive_decoplan: | |
| 244 ; Store the decoplan | |
| 245 lfsr FSR1,char_O_deco_time_for_log+.0 | |
| 246 movlw .15 | |
| 247 movwf lo | |
| 248 store_dive_decoplan_loop: | |
| 249 movf POSTINC1,W | |
| 250 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. Flash | |
| 251 decfsz lo,F | |
| 252 bra store_dive_decoplan_loop | |
| 253 movlw div_decoplan | |
| 254 movwf divisor_decoplan ; Reload divisor from CF | |
| 255 return | |
| 256 | |
| 257 store_dive_ppO2_sensors: | |
| 258 movf o2_ppo2_sensor1,W ; Sensor1 ppO2 (in 0.01bar steps) | |
| 259 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. Flash | |
| 260 SAFE_2BYTE_COPY o2_mv_sensor1,lo ; o2_mv_sensor may be modifified via ISR during the two writes here... | |
| 261 movf lo,W ; in 0.1mV steps | |
| 262 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. Flash | |
| 263 movf hi,W ; in 0.1mV steps | |
| 264 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. Flash | |
| 265 | |
| 266 movf o2_ppo2_sensor2,W ; Sensor2 ppO2 (in 0.01bar steps) | |
| 267 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. Flash | |
| 268 SAFE_2BYTE_COPY o2_mv_sensor2,lo ; o2_mv_sensor may be modifified via ISR during the two writes here... | |
| 269 movf lo,W ; in 0.1mV steps | |
| 270 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. Flash | |
| 271 movf hi,W ; in 0.1mV steps | |
| 272 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. Flash | |
| 273 | |
| 274 movf o2_ppo2_sensor3,W ; Sensor3 ppO2 (in 0.01bar steps) | |
| 275 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. Flash | |
| 276 SAFE_2BYTE_COPY o2_mv_sensor3,lo ; o2_mv_sensor may be modifified via ISR during the two writes here... | |
| 277 movf lo,W ; in 0.1mV steps | |
| 278 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. Flash | |
| 279 movf hi,W ; in 0.1mV steps | |
| 280 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. Flash | |
| 281 | |
| 282 movlw div_ppo2_sensors | |
| 283 movwf divisor_ppo2_sensors ; Reload divisor | |
| 284 return | |
| 285 | |
| 286 store_dive_gf: | |
| 287 movff char_O_gradient_factor,WREG ; gradient factor absolute | |
| 288 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. Flash | |
| 289 movlw div_gf | |
| 290 movwf divisor_gf ; Reload divisor | |
| 291 return | |
| 292 | |
| 293 store_dive_decodata: | |
| 294 movf decodata+0,W ; =0:no stop dive, if in deco mode: ceiling in m | |
| 295 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. Flash | |
| 296 movf decodata+1,W ; no stop time of length of first stop | |
| 297 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. Flash | |
| 298 movlw div_deco | |
| 299 movwf divisor_deco ; Reload divisor | |
| 300 return | |
| 301 | |
| 302 store_dive_temperature: | |
| 303 SAFE_2BYTE_COPY temperature,lo | |
| 304 movf lo,W ; append temperature to current sample! | |
| 305 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. Flash | |
| 306 movf hi,W | |
| 307 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. Flash | |
| 308 movlw div_temperature | |
| 309 movwf divisor_temperature ; Reload divisor | |
| 310 return | |
| 311 | |
| 312 ghostwrite_byte_header: | |
| 313 goto write_byte_ext_flash_plus_header ; (This call will also delete the 4kB TOC entry first) | |
| 314 ; returns... | |
| 315 | |
| 316 ghostwrite_byte_profile: | |
| 317 goto write_byte_ext_flash_plus ; writes byte and increases address with banking at 0x200000 | |
| 318 ; returns... | |
| 319 | |
| 320 global ghostwriter_end_dive | |
| 321 ghostwriter_end_dive: | |
| 322 movff ext_flash_address+0,ext_flash_log_pointer+0 | |
| 323 movff ext_flash_address+1,ext_flash_log_pointer+1 | |
| 324 movff ext_flash_address+2,ext_flash_log_pointer+2 ; Save end-of-profile pointer to store in header | |
| 325 | |
|
39
e4e91fe8b09d
remember last customview in dive and surface mode
mh@mh-THINK.fritz.box
parents:
35
diff
changeset
|
326 movff menupos3,customview_divemode ; store last customview |
|
e4e91fe8b09d
remember last customview in dive and surface mode
mh@mh-THINK.fritz.box
parents:
35
diff
changeset
|
327 |
| 0 | 328 btfss realdive ; dive longer then one minute |
| 329 goto ghostwriter_end_dive_common ; No, discard everything | |
| 330 | |
| 331 ; In DEBUG compile, keep all simulated dives in logbook, Desat time, nofly, etc... | |
| 332 ifndef __DEBUG | |
| 333 btfsc simulatormode_active ; Are we in simulator mode? | |
|
166
30ebaf72170d
BUGFIX: Flip compass with flipped screen, too
heinrichsweikamp
parents:
147
diff
changeset
|
334 goto ghostwriter_end_dive_common_sim ; Yes, discard everything |
| 0 | 335 endif |
| 336 | |
|
35
eca4a201d8cf
change apnea timeout, do no longer store apnea dives in logbook
heinrichsweikamp
parents:
23
diff
changeset
|
337 btfsc FLAG_apnoe_mode ; In Apnoe mode? |
|
eca4a201d8cf
change apnea timeout, do no longer store apnea dives in logbook
heinrichsweikamp
parents:
23
diff
changeset
|
338 goto ghostwriter_end_dive_common ; Yes, discard everything |
|
eca4a201d8cf
change apnea timeout, do no longer store apnea dives in logbook
heinrichsweikamp
parents:
23
diff
changeset
|
339 |
|
eca4a201d8cf
change apnea timeout, do no longer store apnea dives in logbook
heinrichsweikamp
parents:
23
diff
changeset
|
340 ; Dive finished (and longer then one minute) |
| 0 | 341 |
| 342 btfsc FLAG_apnoe_mode ; Calc max. depth (again) for very short apnoe dives | |
| 343 call apnoe_calc_maxdepth | |
| 344 | |
| 345 ; calculate desaturation time | |
| 346 movff last_surfpressure_30min+0,int_I_pres_surface+0 ; Pass surface to desat routine ! | |
| 347 movff last_surfpressure_30min+1,int_I_pres_surface+1 | |
| 348 | |
| 349 call deco_calc_desaturation_time ; calculate desaturation time | |
| 350 movlb b'00000001' ; select ram bank 1 | |
| 351 movff int_O_desaturation_time+0, desaturation_time+0 | |
| 352 movff int_O_desaturation_time+1, desaturation_time+1 ; Buffer | |
| 353 call calc_deko_surfmode | |
| 354 rcall calculate_noflytime ; Calc NoFly time | |
| 355 | |
| 356 ; store header and ... | |
| 357 movlw 0xFD ; .... End-of-Profile Bytes | |
| 358 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. Flash | |
| 359 movlw 0xFD | |
| 360 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. Flash | |
| 361 movff ext_flash_address+0,ext_flash_log_pointer+0 | |
| 362 movff ext_flash_address+1,ext_flash_log_pointer+1 | |
| 363 movff ext_flash_address+2,ext_flash_log_pointer+2 ; Save end-of-profile pointer to store in header | |
| 364 | |
| 365 ; Set to first address again to store dive length ext_flash_dive_counter:3 | |
| 366 clrf EEADRH ; Make sure to select eeprom bank 0 | |
| 367 read_int_eeprom .4 | |
| 368 movff EEDATA,ext_flash_address+0 | |
| 369 read_int_eeprom .5 | |
| 370 movff EEDATA,ext_flash_address+1 | |
| 371 read_int_eeprom .6 | |
| 372 movff EEDATA,ext_flash_address+2 | |
| 373 | |
| 374 incf_ext_flash_address_0x20 d'6' ; Skip internal "0xFA 0xFA #Divenumber:2 0xFA 0xFA" Header | |
| 375 ; Store dive length | |
| 376 movf ext_flash_dive_counter+0,W | |
| 6 | 377 call write_byte_ext_flash_plus_nocnt ; WREG -> Profile in ext. flash (No ext_flash_dive_counter:3 increase) |
| 0 | 378 movf ext_flash_dive_counter+1,W |
| 6 | 379 call write_byte_ext_flash_plus_nocnt ; WREG -> Profile in ext. flash (No ext_flash_dive_counter:3 increase) |
| 0 | 380 movf ext_flash_dive_counter+2,W |
| 6 | 381 call write_byte_ext_flash_plus_nocnt ; WREG -> Profile in ext. flash (No ext_flash_dive_counter:3 increase) |
| 0 | 382 |
| 383 ; profile recording done. | |
| 384 | |
| 385 ; Load total number of dives | |
| 386 read_int_eeprom .2 | |
| 387 movff EEDATA,lo | |
| 388 read_int_eeprom .3 | |
| 389 movff EEDATA,hi | |
| 390 ; +1 increase total dive counter | |
| 147 | 391 infsnz lo,F |
| 392 incf hi,F | |
| 0 | 393 ; Store new number in EEPROM |
| 394 movff lo,EEDATA | |
| 395 write_int_eeprom .2 | |
| 396 movff hi,EEDATA | |
| 397 write_int_eeprom .3 | |
| 398 | |
| 399 decf lo,F ; -1 | |
| 400 ; Set ext_flash_address:3 to TOC entry of this dive | |
| 401 ; 1st: 200000h-200FFFh -> lo=0 | |
| 402 ; 2nd: 201000h-201FFFh -> lo=1 | |
| 403 ; 3rd: 202000h-202FFFh -> lo=2 | |
| 404 ; 255: 2FF000h-2FFFFFh -> lo=255 | |
| 405 | |
| 406 clrf ext_flash_address+0 | |
| 407 clrf ext_flash_address+1 | |
| 408 movlw 0x20 | |
| 409 movwf ext_flash_address+2 | |
| 410 movlw .16 | |
| 411 mulwf lo ; lo*16 = offset to 0x2000 (up:hi) | |
| 412 movf PRODL,W | |
| 413 addwf ext_flash_address+1,F | |
| 414 movf PRODH,W | |
| 415 addwfc ext_flash_address+2,F | |
| 416 | |
| 417 ; Now, write header | |
| 418 | |
| 419 movlw 0xFA ; Header start | |
| 420 rcall ghostwrite_byte_header ; (This call will also delete the 4kB TOC entry first) | |
| 421 movlw 0xFA | |
| 422 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 423 | |
| 424 ; store pointer to begin of diveprofile | |
| 425 read_int_eeprom .4 | |
| 426 movf EEDATA,W | |
| 427 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 428 read_int_eeprom .5 | |
| 429 movf EEDATA,W | |
| 430 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 431 read_int_eeprom .6 | |
| 432 movf EEDATA,W | |
| 433 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 434 | |
| 435 ; store pointer to end of diveprofile | |
| 436 movf ext_flash_log_pointer+0,W | |
| 437 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 438 movf ext_flash_log_pointer+1,W | |
| 439 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 440 movf ext_flash_log_pointer+2,W | |
| 441 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 442 | |
| 443 ; write rest of header | |
| 444 movlw logbook_profile_version ; Defined in ostc3.inc | |
| 445 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 446 | |
| 447 ; Store dive length | |
| 448 movf ext_flash_dive_counter+0,W | |
| 449 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 450 movf ext_flash_dive_counter+1,W | |
| 451 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 452 movf ext_flash_dive_counter+2,W | |
| 453 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 454 | |
| 455 movf year,W ; Date | |
| 456 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 457 movf month,W | |
| 458 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 459 movf day,W | |
| 460 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 461 movf hours,W ; End of dive time | |
| 462 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 463 movf mins,W | |
| 464 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 465 | |
| 466 btfss FLAG_apnoe_mode ; Store apnoe max or normal max (Which is only max from the last descent) | |
| 467 bra end_dive1 ; Store normal depth | |
| 468 | |
| 469 movff apnoe_max_pressure+0,lo | |
| 470 movff apnoe_max_pressure+1,hi | |
| 471 call adjust_depth_with_salinity ; computes salinity setting into lo:hi [mbar] | |
| 472 movff lo,apnoe_max_pressure+0 | |
| 473 movff hi,apnoe_max_pressure+1 | |
| 474 | |
| 475 movf apnoe_max_pressure+0,W ; Max. depth | |
| 476 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 477 movf apnoe_max_pressure+1,W | |
| 478 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 479 bra end_dive2 ; skip normal max. depth | |
| 480 | |
| 481 end_dive1: | |
| 482 movff max_pressure+0,lo | |
| 483 movff max_pressure+1,hi | |
| 484 call adjust_depth_with_salinity ; computes salinity setting into lo:hi [mbar] | |
| 485 movff lo,max_pressure+0 | |
| 486 movff hi,max_pressure+1 | |
| 487 | |
| 488 movff max_pressure+0,WREG ; Max. depth | |
| 489 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 490 movff max_pressure+1,WREG | |
| 491 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 492 | |
| 493 end_dive2: | |
| 494 movf divemins+0,W ; divetime minutes | |
| 495 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 496 movf divemins+1,W | |
| 497 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 498 movf divesecs,W ; divetime seconds | |
| 499 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 500 movff minimum_temperature+0,WREG ; minimum temperature | |
| 501 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 502 movff minimum_temperature+1,WREG | |
| 503 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 504 movff last_surfpressure_30min+0,WREG ; airpressure before dive | |
| 505 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 506 movff last_surfpressure_30min+1,WREG | |
| 507 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 508 movff int_O_desaturation_time+0,WREG ; desaturation time in minutes | |
| 509 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 510 movff int_O_desaturation_time+1,WREG | |
| 511 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 512 | |
| 513 btfss FLAG_ccr_mode ; In CCR mode... | |
| 514 bra end_dive_oc_gaslist ; No, write OC gases | |
| 515 ; Write Diluents... | |
| 516 movff opt_dil_O2_ratio+0,WREG | |
| 517 rcall ghostwrite_byte_header ; %O2 | |
| 518 movff opt_dil_He_ratio+0,WREG | |
| 519 rcall ghostwrite_byte_header ; %He | |
| 520 movff char_I_dil_change+0,WREG | |
| 521 rcall ghostwrite_byte_header ; Configured change depth in m | |
| 522 movff opt_dil_type+0,WREG | |
| 523 rcall ghostwrite_byte_header ; 0=Disabled, 1=First, 2=Normal | |
| 524 | |
| 525 movff opt_dil_O2_ratio+1,WREG | |
| 526 rcall ghostwrite_byte_header ; %O2 | |
| 527 movff opt_dil_He_ratio+1,WREG | |
| 528 rcall ghostwrite_byte_header ; %He | |
| 529 movff char_I_dil_change+1,WREG | |
| 530 rcall ghostwrite_byte_header ; Configured change depth in m | |
| 531 movff opt_dil_type+1,WREG | |
| 532 rcall ghostwrite_byte_header ; 0=Disabled, 1=First, 2=Normal | |
| 533 | |
| 534 movff opt_dil_O2_ratio+2,WREG | |
| 535 rcall ghostwrite_byte_header ; %O2 | |
| 536 movff opt_dil_He_ratio+2,WREG | |
| 537 rcall ghostwrite_byte_header ; %He | |
| 538 movff char_I_dil_change+2,WREG | |
| 539 rcall ghostwrite_byte_header ; Configured change depth in m | |
| 540 movff opt_dil_type+2,WREG | |
| 541 rcall ghostwrite_byte_header ; 0=Disabled, 1=First, 2=Normal | |
| 542 | |
| 543 movff opt_dil_O2_ratio+3,WREG | |
| 544 rcall ghostwrite_byte_header ; %O2 | |
| 545 movff opt_dil_He_ratio+3,WREG | |
| 546 rcall ghostwrite_byte_header ; %He | |
| 547 movff char_I_dil_change+3,WREG | |
| 548 rcall ghostwrite_byte_header ; Configured change depth in m | |
| 549 movff opt_dil_type+3,WREG | |
| 550 rcall ghostwrite_byte_header ; 0=Disabled, 1=First, 2=Normal | |
| 551 | |
| 552 movff opt_dil_O2_ratio+4,WREG | |
| 553 rcall ghostwrite_byte_header ; %O2 | |
| 554 movff opt_dil_He_ratio+4,WREG | |
| 555 rcall ghostwrite_byte_header ; %He | |
| 556 movff char_I_dil_change+4,WREG | |
| 557 rcall ghostwrite_byte_header ; Configured change depth in m | |
| 558 movff opt_dil_type+4,WREG | |
| 559 rcall ghostwrite_byte_header ; 0=Disabled, 1=First, 2=Normal | |
| 560 bra end_dive_oc_cc_common | |
| 561 | |
| 562 end_dive_oc_gaslist: ; OC Gases... | |
| 563 movff opt_gas_O2_ratio+0,WREG | |
| 564 rcall ghostwrite_byte_header ; %O2 | |
| 565 movff opt_gas_He_ratio+0,WREG | |
| 566 rcall ghostwrite_byte_header ; %He | |
|
97
53a99a2dc6a1
CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents:
39
diff
changeset
|
567 movff opt_OC_bail_gas_change+0,WREG |
| 0 | 568 rcall ghostwrite_byte_header ; Configured change depth in m |
| 569 movff opt_gas_type+0,WREG | |
| 570 rcall ghostwrite_byte_header ; 0=Disabled, 1=First, 2= Travel, 3= Deco | |
| 571 | |
| 572 movff opt_gas_O2_ratio+1,WREG | |
| 573 rcall ghostwrite_byte_header ; %O2 | |
| 574 movff opt_gas_He_ratio+1,WREG | |
| 575 rcall ghostwrite_byte_header ; %He | |
|
97
53a99a2dc6a1
CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents:
39
diff
changeset
|
576 movff opt_OC_bail_gas_change+1,WREG |
| 0 | 577 rcall ghostwrite_byte_header ; Configured change depth in m |
| 578 movff opt_gas_type+1,WREG | |
| 579 rcall ghostwrite_byte_header ; 0=Disabled, 1=First, 2= Travel, 3= Deco | |
| 580 | |
| 581 movff opt_gas_O2_ratio+2,WREG | |
| 582 rcall ghostwrite_byte_header ; %O2 | |
| 583 movff opt_gas_He_ratio+2,WREG | |
| 584 rcall ghostwrite_byte_header ; %He | |
|
97
53a99a2dc6a1
CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents:
39
diff
changeset
|
585 movff opt_OC_bail_gas_change+2,WREG |
| 0 | 586 rcall ghostwrite_byte_header ; Configured change depth in m |
| 587 movff opt_gas_type+2,WREG | |
| 588 rcall ghostwrite_byte_header ; 0=Disabled, 1=First, 2= Travel, 3= Deco | |
| 589 | |
| 590 movff opt_gas_O2_ratio+3,WREG | |
| 591 rcall ghostwrite_byte_header ; %O2 | |
| 592 movff opt_gas_He_ratio+3,WREG | |
| 593 rcall ghostwrite_byte_header ; %He | |
|
97
53a99a2dc6a1
CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents:
39
diff
changeset
|
594 movff opt_OC_bail_gas_change+3,WREG |
| 0 | 595 rcall ghostwrite_byte_header ; Configured change depth in m |
| 596 movff opt_gas_type+3,WREG | |
| 597 rcall ghostwrite_byte_header ; 0=Disabled, 1=First, 2= Travel, 3= Deco | |
| 598 | |
| 599 movff opt_gas_O2_ratio+4,WREG | |
| 600 rcall ghostwrite_byte_header ; %O2 | |
| 601 movff opt_gas_He_ratio+4,WREG | |
| 602 rcall ghostwrite_byte_header ; %He | |
|
97
53a99a2dc6a1
CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents:
39
diff
changeset
|
603 movff opt_OC_bail_gas_change+4,WREG |
| 0 | 604 rcall ghostwrite_byte_header ; Configured change depth in m |
| 605 movff opt_gas_type+4,WREG | |
| 606 rcall ghostwrite_byte_header ; 0=Disabled, 1=First, 2= Travel, 3= Deco | |
| 607 ; bra end_dive_oc_cc_common | |
| 608 | |
| 609 end_dive_oc_cc_common: | |
| 610 movlw softwareversion_x ; Firmware version | |
| 611 rcall ghostwrite_byte_header | |
| 612 movlw softwareversion_y | |
| 613 rcall ghostwrite_byte_header | |
| 614 movf batt_voltage+0,W ; Battery voltage | |
| 615 rcall ghostwrite_byte_header | |
| 616 movf batt_voltage+1,W | |
| 617 rcall ghostwrite_byte_header | |
| 618 | |
|
23
e402813343b6
new option to switch samplingrate between 10s and 2s
heinrichsweikamp
parents:
6
diff
changeset
|
619 movf samplingrate,W ; Sampling rate |
|
e402813343b6
new option to switch samplingrate between 10s and 2s
heinrichsweikamp
parents:
6
diff
changeset
|
620 btfsc FLAG_apnoe_mode ; Apnoe mode? |
|
e402813343b6
new option to switch samplingrate between 10s and 2s
heinrichsweikamp
parents:
6
diff
changeset
|
621 movlw samplingrate_apnoe ; Apnoe sampling rate |
| 0 | 622 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash |
| 623 | |
| 624 ; CNS at gebinning of dive | |
| 625 movff CNS_start+0,WREG | |
| 626 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 627 movff CNS_start+1,WREG | |
| 628 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 629 ; Gradient factor | |
| 630 movff GF_start,WREG | |
| 631 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 632 movff char_O_relative_gradient_GF,WREG | |
| 633 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 5 | 634 |
| 635 ; Logbook offset | |
| 636 call do_logoffset_common_read; Read into lo:hi | |
| 637 movf lo,W | |
| 0 | 638 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash |
| 5 | 639 movf hi,W |
| 0 | 640 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash |
| 5 | 641 |
| 642 ; Spare at Byte 60 | |
| 0 | 643 movlw 0xFF |
| 644 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 645 ; Store 5 Setpoints | |
| 646 movff char_I_setpoint_cbar+0,WREG | |
| 647 rcall ghostwrite_byte_header ; Setpoint in cbar | |
| 648 movff char_I_setpoint_change+0,WREG | |
| 649 rcall ghostwrite_byte_header ; Change depth | |
| 650 movff char_I_setpoint_cbar+1,WREG | |
| 651 rcall ghostwrite_byte_header ; Setpoint in cbar | |
| 652 movff char_I_setpoint_change+1,WREG | |
| 653 rcall ghostwrite_byte_header ; Change depth | |
| 654 movff char_I_setpoint_cbar+2,WREG | |
| 655 rcall ghostwrite_byte_header ; Setpoint in cbar | |
| 656 movff char_I_setpoint_change+2,WREG | |
| 657 rcall ghostwrite_byte_header ; Change depth | |
| 658 movff char_I_setpoint_cbar+3,WREG | |
| 659 rcall ghostwrite_byte_header ; Setpoint in cbar | |
| 660 movff char_I_setpoint_change+3,WREG | |
| 661 rcall ghostwrite_byte_header ; Change depth | |
| 662 movff char_I_setpoint_cbar+4,WREG | |
| 663 rcall ghostwrite_byte_header ; Setpoint in cbar | |
| 664 movff char_I_setpoint_change+4,WREG | |
| 665 rcall ghostwrite_byte_header ; Change depth | |
| 666 | |
| 667 movff opt_salinity,WREG ; Salinity (0-5%) | |
| 668 rcall ghostwrite_byte_header ; Store Salinity to Dive | |
| 669 | |
| 670 movff int_O_CNS_fraction+0,WREG ; copy into bank1 | |
| 671 rcall ghostwrite_byte_header; Stores CNS% | |
| 672 movff int_O_CNS_fraction+1,WREG ; copy into bank1 | |
| 673 rcall ghostwrite_byte_header; Stores CNS% | |
| 674 | |
| 675 movff avr_rel_pressure_total+0,WREG ; Average Depth | |
| 676 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 677 movff avr_rel_pressure_total+1,WREG ; Average Depth | |
| 678 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 679 | |
| 680 movff total_divetime_seconds+0,WREG ; Total dive time (Regardless of start_dive_threshold) | |
| 681 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 682 movff total_divetime_seconds+1,WREG ; Total dive time (Regardless of start_dive_threshold) | |
| 683 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 684 | |
| 685 movff char_I_GF_Low_percentage,WREG ; GF_lo | |
| 686 movff char_I_deco_model,lo | |
| 687 decfsz lo,F ; jump over next line if char_I_deco_model == 1 | |
| 688 movff char_I_saturation_multiplier,WREG ; Saturation Multiplier | |
| 689 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 690 | |
| 691 movff char_I_GF_High_percentage,WREG ; GF_hi | |
| 692 movff char_I_deco_model,lo | |
| 693 decfsz lo,F ; jump over next line if char_I_deco_model == 1 | |
| 694 movff char_I_desaturation_multiplier,WREG ; Desaturation Multiplier | |
| 695 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 696 | |
| 697 movff char_I_deco_model,WREG ; 0 = ZH-L16, 1 = ZH-L16-GF | |
| 698 rcall ghostwrite_byte_header; writes byte and increases address (no banking) | |
| 699 | |
| 700 read_int_eeprom .2 | |
| 701 movf EEDATA,W | |
| 702 rcall ghostwrite_byte_header ; Total dive counter, low | |
| 703 read_int_eeprom .3 | |
| 704 movf EEDATA,W | |
| 705 rcall ghostwrite_byte_header ; Total dive counter, high | |
| 706 | |
| 707 movff opt_dive_mode,WREG | |
| 708 rcall ghostwrite_byte_header ; 0=OC, 1=CC, 2=Gauge, 3=Apnea | |
| 709 | |
| 710 ; Store all tissue data available | |
| 711 movlw .16 | |
| 712 movwf lo | |
| 713 lfsr FSR1,char_O_tissue_N2_saturation+0 | |
| 714 end_dive_store_tissues_N2: | |
| 715 movf POSTINC1,W | |
| 716 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 717 decfsz lo,F | |
| 718 bra end_dive_store_tissues_N2 ; No | |
| 719 | |
| 720 movlw .64 | |
| 721 movwf lo | |
| 722 lfsr FSR1,0x700;pres_tissue_N2+0 ; 16*4Byte Float = 64Bytes | |
| 723 end_dive_store_tissues_N2_2: | |
| 724 movf POSTINC1,W | |
| 725 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 726 decfsz lo,F | |
| 727 bra end_dive_store_tissues_N2_2 ; No | |
| 728 | |
| 729 movlw .16 | |
| 730 movwf lo | |
| 731 lfsr FSR1,char_O_tissue_He_saturation+0 | |
| 732 end_dive_store_tissues_He: | |
| 733 movf POSTINC1,W | |
| 734 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 735 decfsz lo,F | |
| 736 bra end_dive_store_tissues_He ; No | |
| 737 | |
| 738 movlw .64 | |
| 739 movwf lo | |
| 740 lfsr FSR1,0x740;pres_tissue_He+0 ; 16*4Byte Float = 64Bytes | |
| 741 end_dive_store_tissues_He_2: | |
| 742 movf POSTINC1,W | |
| 743 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 744 decfsz lo,F | |
| 745 bra end_dive_store_tissues_He_2 ; No | |
| 746 | |
| 747 ; Some deco stuff | |
| 748 movff char_I_depth_last_deco,WREG ; last stop [m] | |
| 749 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 750 movff char_I_deco_distance,WREG ; assumed distance to shown stop | |
| 751 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 752 | |
| 753 ; Last HUD data | |
| 754 movff hud_battery_mv+0,WREG ; Last HUD battery value | |
| 755 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 756 movff hud_battery_mv+1,WREG ; Last HUD battery value | |
| 757 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 758 movff hud_status_byte,WREG ; Last HUD status | |
| 759 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 760 | |
| 761 ; Battery gauge registers [nAs] | |
| 762 movff battery_gauge+0,WREG ; Battery gauge register | |
| 763 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 764 movff battery_gauge+1,WREG ; Battery gauge register | |
| 765 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 766 movff battery_gauge+2,WREG ; Battery gauge register | |
| 767 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 768 movff battery_gauge+3,WREG ; Battery gauge register | |
| 769 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 770 movff battery_gauge+4,WREG ; Battery gauge register | |
| 771 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 772 movff battery_gauge+5,WREG ; Battery gauge register | |
| 773 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 774 | |
| 775 ; Header stop | |
| 776 movlw 0xFB | |
| 777 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 778 movlw 0xFB | |
| 779 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 780 | |
| 781 call divemode_store_statistics ; Store/update statistics for this unit | |
| 782 | |
| 783 clrf surface_interval+0 | |
| 784 clrf surface_interval+1 ; Clear surface interval timer | |
| 785 | |
| 786 ghostwriter_end_dive_common: | |
| 787 ; Update ext_flash_log_pointer into EEPROM | |
| 788 clrf EEADRH | |
| 789 movff ext_flash_log_pointer+0,EEDATA | |
| 790 write_int_eeprom .4 | |
| 791 movff ext_flash_log_pointer+1,EEDATA | |
| 792 write_int_eeprom .5 | |
| 793 movff ext_flash_log_pointer+2,EEDATA | |
| 794 write_int_eeprom .6 | |
| 795 | |
| 796 bcf simulatormode_active ; if we were in simulator mode | |
| 797 | |
| 798 ; In DEBUG compile, keep all simulated dives in logbook, Desat time, nofly, etc... | |
| 799 ifndef __DEBUG | |
| 800 extern deco_pull_tissues_from_vault | |
| 801 btfsc restore_deco_data ; Restore decodata? | |
| 802 call deco_pull_tissues_from_vault | |
| 803 banksel common ; Bank1 | |
| 804 endif | |
| 805 call update_battery_registers ; update battery registers into EEPROM | |
| 806 goto surfloop ; and return to surfaceloop | |
| 807 | |
|
166
30ebaf72170d
BUGFIX: Flip compass with flipped screen, too
heinrichsweikamp
parents:
147
diff
changeset
|
808 ghostwriter_end_dive_common_sim: |
|
174
932e91074bdb
CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents:
170
diff
changeset
|
809 tstfsz surface_interval+0 ; Was interval zero? |
|
932e91074bdb
CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents:
170
diff
changeset
|
810 bra ghostwriter_end_dive_common_sim2 ; No |
|
932e91074bdb
CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents:
170
diff
changeset
|
811 tstfsz surface_interval+1 ; Was interval zero? |
|
932e91074bdb
CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents:
170
diff
changeset
|
812 bra ghostwriter_end_dive_common_sim2 ; No |
|
932e91074bdb
CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents:
170
diff
changeset
|
813 bra ghostwriter_end_dive_common ; Yes, done. |
|
932e91074bdb
CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents:
170
diff
changeset
|
814 |
|
932e91074bdb
CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents:
170
diff
changeset
|
815 ghostwriter_end_dive_common_sim2: |
|
166
30ebaf72170d
BUGFIX: Flip compass with flipped screen, too
heinrichsweikamp
parents:
147
diff
changeset
|
816 movf divemins+0,W |
|
30ebaf72170d
BUGFIX: Flip compass with flipped screen, too
heinrichsweikamp
parents:
147
diff
changeset
|
817 addwf surface_interval+0,F |
|
30ebaf72170d
BUGFIX: Flip compass with flipped screen, too
heinrichsweikamp
parents:
147
diff
changeset
|
818 movf divemins+1,W |
|
30ebaf72170d
BUGFIX: Flip compass with flipped screen, too
heinrichsweikamp
parents:
147
diff
changeset
|
819 addwfc surface_interval+1 ; Add simulated divetime to surface interval |
|
30ebaf72170d
BUGFIX: Flip compass with flipped screen, too
heinrichsweikamp
parents:
147
diff
changeset
|
820 bra ghostwriter_end_dive_common |
|
30ebaf72170d
BUGFIX: Flip compass with flipped screen, too
heinrichsweikamp
parents:
147
diff
changeset
|
821 |
| 0 | 822 global ghostwriter_short_header |
| 823 ghostwriter_short_header: ; Write short header with divenumber into profile memory | |
| 824 | |
| 825 ; load pointer for profile storing into RAM (Updated in EEPROM after the dive) | |
| 826 clrf EEADRH ; Make sure to select eeprom bank 0 | |
| 827 read_int_eeprom .4 | |
| 828 movff EEDATA,ext_flash_address+0 | |
| 829 read_int_eeprom .5 | |
| 830 movff EEDATA,ext_flash_address+1 | |
| 831 read_int_eeprom .6 | |
| 832 movff EEDATA,ext_flash_address+2 | |
| 833 | |
| 834 ; Clear dive length counter | |
| 835 clrf ext_flash_dive_counter+0 | |
| 836 clrf ext_flash_dive_counter+1 | |
| 837 clrf ext_flash_dive_counter+2 | |
| 838 | |
| 839 ; Write short header with divenumber into profile memory | |
| 840 movlw 0xFA | |
| 841 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. flash | |
| 842 movlw 0xFA | |
| 843 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. flash | |
| 844 ; Load total number of dives (low byte only) | |
| 845 read_int_eeprom .2 | |
| 846 incf EEDATA,W ;+1 | |
| 847 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. flash | |
| 848 read_int_eeprom .3 | |
| 849 movf EEDATA,W | |
| 850 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. flash | |
| 851 movlw 0xFA | |
| 852 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. flash | |
| 853 movlw 0xFA | |
| 854 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. flash | |
| 855 ; Keep room for dive length ext_flash_dive_counter:3 (Stored at the end of the dive) | |
| 856 incf_ext_flash_address_0x20 d'3' ; Skip Bytes in external flash (faster) | |
| 857 | |
|
23
e402813343b6
new option to switch samplingrate between 10s and 2s
heinrichsweikamp
parents:
6
diff
changeset
|
858 movf samplingrate,W ; Sampling rate |
| 0 | 859 btfsc FLAG_apnoe_mode ; Apnoe mode? |
| 860 movlw samplingrate_apnoe ; Apnoe sampling rate | |
| 861 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. flash | |
| 862 | |
| 863 movlw .7 ; Number of divisors | |
| 864 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. flash | |
| 865 | |
| 866 movlw .0 ; Type | |
| 867 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. flash | |
| 868 movlw infolength_temperature | |
| 869 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. flash | |
| 870 movlw div_temperature ; Divisor temperature | |
| 871 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. flash | |
| 872 | |
| 873 movlw .1 ; Type | |
| 874 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. flash | |
| 875 movlw infolength_deco | |
| 876 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. flash | |
| 877 movlw div_deco ; Divisor decodata | |
| 878 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. flash | |
| 879 | |
| 880 movlw .2 ; Type | |
| 881 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. flash | |
| 882 movlw infolength_gf | |
| 883 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. flash | |
| 884 movlw div_gf ; Divisor gf | |
| 885 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. flash | |
| 886 | |
| 887 movlw .3 ; Type | |
| 888 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. flash | |
| 889 movlw infolength_ppo2_sensors | |
| 890 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. flash | |
| 891 movlw div_ppo2_sensors ; Divisor ppO2 | |
|
107
dc44aa645549
BUGFIX: wrong ppo2 recording parameter in short header
heinrichsweikamp
parents:
99
diff
changeset
|
892 btfss FLAG_ccr_mode ; =1: CCR mode (Fixed ppO2 or Sensor) active |
|
dc44aa645549
BUGFIX: wrong ppo2 recording parameter in short header
heinrichsweikamp
parents:
99
diff
changeset
|
893 movlw .0 ; No ppO2 data in OC mode |
| 0 | 894 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. flash |
| 895 | |
| 896 movlw .4 ; Type | |
| 897 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. flash | |
| 898 movlw infolength_decoplan | |
| 899 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. flash | |
| 900 movlw div_decoplan ; Divisor debug | |
| 901 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. flash | |
| 902 | |
| 903 movlw .5 ; Type | |
| 904 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. flash | |
| 905 movlw infolength_cns | |
| 906 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. flash | |
| 907 movlw div_cns ; Divisor CNS | |
| 908 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. flash | |
| 909 | |
| 910 movlw .6 ; Type | |
| 911 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. flash | |
| 912 movlw infolength_tank | |
| 913 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. flash | |
| 914 movlw div_tank ; Divisor Tank | |
| 915 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. flash | |
| 916 | |
| 917 return | |
| 918 | |
| 919 calculate_noflytime: | |
| 920 ; calculate nofly time | |
| 921 movff int_O_desaturation_time+0,xA+0 | |
| 922 movff int_O_desaturation_time+1,xA+1 | |
| 923 | |
| 924 btfsc xA+1,7 ; Is desat time negative ? | |
| 925 bra calculate_noflytime_3 ; Then surely not valid ! | |
| 926 | |
| 927 tstfsz xA+0 ; Desat=0? | |
| 928 bra calculate_noflytime2 | |
| 929 tstfsz xA+1 ; Desat=0? | |
| 930 bra calculate_noflytime2 | |
| 931 | |
| 932 calculate_noflytime_3: | |
| 933 ; Desaturation time = zero | |
| 934 clrf nofly_time+0 ; Clear nofly time | |
| 935 clrf nofly_time+1 ; Clear nofly time | |
| 936 return | |
| 937 | |
| 938 calculate_noflytime2: | |
| 939 movff xA+0,int_I_temp+0 | |
| 940 movff xA+1,int_I_temp+1 | |
| 941 movlw no_fly_time_ratio ; nofly_time_ratio | |
| 942 movff WREG,char_I_temp | |
| 943 call deco_calc_percentage | |
| 944 movlb b'00000001' ; select ram bank 1 | |
| 945 movff int_I_temp+0,xA+0 | |
| 946 movff int_I_temp+1,xA+1 | |
| 947 tstfsz xA+0 ; Desat=0? | |
| 948 bra calculate_noflytime_2_final | |
| 949 tstfsz xA+1 ; Desat=0? | |
| 950 bra calculate_noflytime_2_final | |
| 951 bra calculate_noflytime_3 | |
| 952 | |
| 953 calculate_noflytime_2_final: | |
| 954 movff xA+0,nofly_time+0 | |
| 955 movff xA+1,nofly_time+1 | |
| 956 return | |
| 957 | |
| 958 | |
| 959 divemode_store_statistics: ; Store/update statistics for this unit | |
|
133
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
960 rcall vault_decodata_into_eeprom ; update deco data |
| 0 | 961 rcall do_logoffset_common_read ; Existing logbook offset into lo:hi |
| 962 | |
| 963 tstfsz lo ; lo=0? | |
| 964 bra change_logbook_offset1 ; No, adjust offset | |
| 965 tstfsz hi ; hi=0? | |
| 966 bra change_logbook_offset1 ; No, adjust offset | |
| 967 bra change_logbook_offset2 ; lo=0 and hi=0 -> skip Offset routine | |
| 968 change_logbook_offset1: | |
| 969 movlw d'1' | |
| 970 addwf lo | |
| 971 movlw d'0' | |
| 972 addwfc hi | |
| 973 rcall do_logoffset_common_write ; lo:hi -> EEPROM | |
| 974 change_logbook_offset2: | |
| 975 ; Add more here... | |
| 976 return | |
| 977 | |
| 978 global do_logoffset_common_write | |
| 979 do_logoffset_common_write: | |
| 980 movff lo,EEDATA | |
| 981 write_int_eeprom 0x0D | |
| 982 movff hi,EEDATA | |
| 983 write_int_eeprom 0x0E | |
| 984 return | |
| 985 | |
| 986 global do_logoffset_common_read | |
| 987 do_logoffset_common_read: | |
| 988 clrf EEADRH | |
| 989 read_int_eeprom 0x0D | |
| 990 movff EEDATA,lo | |
| 991 read_int_eeprom 0x0E | |
| 992 movff EEDATA,hi ; Existing logbook offset into lo:hi | |
| 993 return | |
| 994 | |
| 995 | |
| 996 global update_battery_registers | |
| 997 update_battery_registers: | |
| 998 ; save battery_gauge:6 into EEPROM 0x07-0x0C | |
| 999 clrf EEADRH | |
| 1000 movff battery_gauge+0,EEDATA | |
| 1001 write_int_eeprom 0x07 | |
| 1002 movff battery_gauge+1,EEDATA | |
| 1003 write_int_eeprom 0x08 | |
| 1004 movff battery_gauge+2,EEDATA | |
| 1005 write_int_eeprom 0x09 | |
| 1006 movff battery_gauge+3,EEDATA | |
| 1007 write_int_eeprom 0x0A | |
| 1008 movff battery_gauge+4,EEDATA | |
| 1009 write_int_eeprom 0x0B | |
| 1010 movff battery_gauge+5,EEDATA | |
| 1011 write_int_eeprom 0x0C | |
| 1012 return | |
| 1013 | |
| 1014 | |
|
133
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1015 global vault_decodata_into_eeprom |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1016 vault_decodata_into_eeprom: |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1017 ; Vault in EEPROM 512...1023 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1018 ; Write 0xAA at 512 to indicate valid data in vault |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1019 ; Store last time/date |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1020 ; Store 0x700 to 0x780 (pres_tissue_N2 and pres_tissue_He) |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1021 movlw HIGH .512 ; =2 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1022 movwf EEADRH |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1023 movlw 0xAA |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1024 movwf EEDATA |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1025 write_int_eeprom .0 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1026 ; Store date/time |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1027 movff year,EEDATA |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1028 write_int_eeprom .1 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1029 movff month,EEDATA |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1030 write_int_eeprom .2 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1031 movff day,EEDATA |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1032 write_int_eeprom .3 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1033 movff hours,EEDATA |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1034 write_int_eeprom .4 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1035 movff mins,EEDATA |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1036 write_int_eeprom .5 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1037 movff secs,EEDATA |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1038 write_int_eeprom .6 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1039 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1040 movff int_O_CNS_fraction+0,EEDATA |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1041 write_int_eeprom .7 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1042 movff int_O_CNS_fraction+1,EEDATA |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1043 write_int_eeprom .8 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1044 movff desaturation_time+0,EEDATA |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1045 write_int_eeprom .9 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1046 movff desaturation_time+1,EEDATA |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1047 write_int_eeprom .10 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1048 movff surface_interval+0,EEDATA |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1049 write_int_eeprom .11 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1050 movff surface_interval+1,EEDATA |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1051 write_int_eeprom .12 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1052 movff char_O_gradient_factor,EEDATA |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1053 write_int_eeprom .13 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1054 movff nofly_time+0,EEDATA |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1055 write_int_eeprom .14 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1056 movff nofly_time+1,EEDATA |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1057 write_int_eeprom .15 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1058 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1059 ; Tissue data from 16 to 144 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1060 movlw .16 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1061 movwf EEADR |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1062 movlw .128 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1063 movwf lo |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1064 lfsr FSR1,0x700;pres_tissue_N2+0 ; 32*4Byte Float = 128Bytes |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1065 vault_decodata_into_eeprom2: |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1066 movff POSTINC1,EEDATA |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1067 call write_eeprom ; EEDATA into EEPROM@EEADR |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1068 incf EEADR,F |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1069 decfsz lo,F ; All done? |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1070 bra vault_decodata_into_eeprom2 ; No |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1071 clrf EEADRH |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1072 return |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1073 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1074 global restore_decodata_from_eeprom |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1075 restore_decodata_from_eeprom: |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1076 movlw LOW .512 ; =0 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1077 movwf EEADR |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1078 movlw HIGH .512 ; =2 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1079 movwf EEADRH |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1080 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1081 ; Restore date/time |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1082 read_int_eeprom .1 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1083 movff EEDATA,year |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1084 read_int_eeprom .2 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1085 movff EEDATA,month |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1086 read_int_eeprom .3 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1087 movff EEDATA,day |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1088 read_int_eeprom .4 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1089 movff EEDATA,hours |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1090 read_int_eeprom .5 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1091 movff EEDATA,mins |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1092 read_int_eeprom .6 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1093 movff EEDATA,secs |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1094 call rtc_set_rtc |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1095 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1096 read_int_eeprom .7 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1097 movff EEDATA,int_O_CNS_fraction+0 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1098 read_int_eeprom .8 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1099 movff EEDATA,int_O_CNS_fraction+1 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1100 read_int_eeprom .9 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1101 movff EEDATA,desaturation_time+0 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1102 read_int_eeprom .10 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1103 movff EEDATA,desaturation_time+1 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1104 read_int_eeprom .11 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1105 movff EEDATA,surface_interval+0 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1106 read_int_eeprom .12 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1107 movff EEDATA,surface_interval+1 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1108 read_int_eeprom .13 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1109 movff EEDATA,char_O_gradient_factor |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1110 read_int_eeprom .14 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1111 movff EEDATA,nofly_time+0 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1112 read_int_eeprom .15 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1113 movff EEDATA,nofly_time+1 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1114 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1115 ; Tissue data from 16 to 144 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1116 movlw .16 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1117 movwf EEADR |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1118 movlw .128 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1119 movwf lo |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1120 lfsr FSR1,0x700;pres_tissue_N2+0 ; 32*4Byte Float = 128Bytes |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1121 restore_decodata_from_eeprom2: |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1122 call read_eeprom ; EEPROM@EEADR into EEDATA |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1123 movff EEDATA,POSTINC1 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1124 incf EEADR,F |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1125 decfsz lo,F ; All done? |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1126 bra restore_decodata_from_eeprom2 ; No |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1127 clrf EEADRH |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1128 return |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1129 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1130 |
| 0 | 1131 END |