Mercurial > public > hwos_code
annotate src/ghostwriter.asm @ 578:2b8ef780cfa8
work in progress...
| author | heinrichsweikamp |
|---|---|
| date | Sun, 18 Feb 2018 21:04:54 +0100 |
| parents | b7eb98dbd800 |
| children | b455b31ce022 |
| rev | line source |
|---|---|
| 0 | 1 ;============================================================================= |
| 2 ; | |
| 560 | 3 ; File ghostwriter.asm REFACTORED VERSION 2.94 |
| 0 | 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 | |
| 275 | 12 #include "hwos.inc" ; Mandatory header |
| 0 | 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 | |
| 560 | 26 store_dive_data: |
| 27 bcf store_sample ; clear flag | |
| 0 | 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 | |
| 560 | 96 ; Third, check events and add additional bytes |
| 0 | 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 | |
| 560 | 260 SAFE_2BYTE_COPY o2_mv_sensor1,lo ; o2_mv_sensor may be modified via ISR during the two writes here... |
| 0 | 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 | |
| 560 | 268 SAFE_2BYTE_COPY o2_mv_sensor2,lo ; o2_mv_sensor may be modified via ISR during the two writes here... |
| 0 | 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 | |
| 560 | 276 SAFE_2BYTE_COPY o2_mv_sensor3,lo ; o2_mv_sensor may be modified via ISR during the two writes here... |
| 0 | 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: | |
| 560 | 287 movff int_O_gradient_factor+0,WREG ; gradient factor absolute (range is limited to 255, only lower byte used for value) |
| 288 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. Flash | |
| 0 | 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 | |
| 560 | 349 call deco_calc_wo_deco_step_1_min ; calculate deco in surface mode |
| 350 | |
| 351 call deco_calc_desaturation_time ; calculate desaturation time | |
| 352 movlb b'00000001' ; select ram bank 1 | |
| 353 | |
| 0 | 354 movlw 0xFD ; .... End-of-Profile Bytes |
| 355 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. Flash | |
| 356 movlw 0xFD | |
| 357 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. Flash | |
| 358 movff ext_flash_address+0,ext_flash_log_pointer+0 | |
| 359 movff ext_flash_address+1,ext_flash_log_pointer+1 | |
| 360 movff ext_flash_address+2,ext_flash_log_pointer+2 ; Save end-of-profile pointer to store in header | |
| 361 | |
| 362 ; Set to first address again to store dive length ext_flash_dive_counter:3 | |
|
219
4b2622e0fd50
init new 4kB Page in logbook memory when pointer is not valid.
heinrichsweikamp
parents:
185
diff
changeset
|
363 rcall ghostwriter_load_pointer ; Load ext_flash_address:3 from EEPROM .4-.6 |
| 0 | 364 |
| 365 incf_ext_flash_address_0x20 d'6' ; Skip internal "0xFA 0xFA #Divenumber:2 0xFA 0xFA" Header | |
| 366 ; Store dive length | |
| 367 movf ext_flash_dive_counter+0,W | |
|
278
dfac47ac2e1d
BUGFIX: There was a 1:4096 chance that a portion of a dive was not stored correctly resulting in download issues
heinrichsweikamp
parents:
275
diff
changeset
|
368 call write_byte_ext_flash_plus_nodel ; WREG -> Profile in ext. flash (No ext_flash_dive_counter:3 increase) and does NOT delete 4kB page |
| 0 | 369 movf ext_flash_dive_counter+1,W |
|
278
dfac47ac2e1d
BUGFIX: There was a 1:4096 chance that a portion of a dive was not stored correctly resulting in download issues
heinrichsweikamp
parents:
275
diff
changeset
|
370 call write_byte_ext_flash_plus_nodel ; WREG -> Profile in ext. flash (No ext_flash_dive_counter:3 increase) and does NOT delete 4kB page |
| 0 | 371 movf ext_flash_dive_counter+2,W |
|
278
dfac47ac2e1d
BUGFIX: There was a 1:4096 chance that a portion of a dive was not stored correctly resulting in download issues
heinrichsweikamp
parents:
275
diff
changeset
|
372 call write_byte_ext_flash_plus_nodel ; WREG -> Profile in ext. flash (No ext_flash_dive_counter:3 increase) and does NOT delete 4kB page |
| 0 | 373 |
| 374 ; profile recording done. | |
| 375 | |
| 376 ; Load total number of dives | |
| 377 read_int_eeprom .2 | |
| 378 movff EEDATA,lo | |
| 379 read_int_eeprom .3 | |
| 380 movff EEDATA,hi | |
| 381 ; +1 increase total dive counter | |
| 147 | 382 infsnz lo,F |
| 383 incf hi,F | |
| 0 | 384 ; Store new number in EEPROM |
| 385 movff lo,EEDATA | |
| 386 write_int_eeprom .2 | |
| 387 movff hi,EEDATA | |
| 388 write_int_eeprom .3 | |
| 389 | |
| 390 decf lo,F ; -1 | |
| 391 ; Set ext_flash_address:3 to TOC entry of this dive | |
| 392 ; 1st: 200000h-200FFFh -> lo=0 | |
| 393 ; 2nd: 201000h-201FFFh -> lo=1 | |
| 394 ; 3rd: 202000h-202FFFh -> lo=2 | |
| 395 ; 255: 2FF000h-2FFFFFh -> lo=255 | |
| 396 | |
| 397 clrf ext_flash_address+0 | |
| 398 clrf ext_flash_address+1 | |
| 399 movlw 0x20 | |
| 400 movwf ext_flash_address+2 | |
| 401 movlw .16 | |
| 402 mulwf lo ; lo*16 = offset to 0x2000 (up:hi) | |
| 403 movf PRODL,W | |
| 404 addwf ext_flash_address+1,F | |
| 405 movf PRODH,W | |
| 406 addwfc ext_flash_address+2,F | |
| 407 | |
| 408 ; Now, write header | |
| 409 | |
| 410 movlw 0xFA ; Header start | |
| 411 rcall ghostwrite_byte_header ; (This call will also delete the 4kB TOC entry first) | |
| 412 movlw 0xFA | |
| 413 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 414 | |
| 415 ; store pointer to begin of diveprofile | |
| 416 read_int_eeprom .4 | |
| 417 movf EEDATA,W | |
| 418 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 419 read_int_eeprom .5 | |
| 420 movf EEDATA,W | |
| 421 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 422 read_int_eeprom .6 | |
| 423 movf EEDATA,W | |
| 424 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 425 | |
| 560 | 426 ; store pointer to end of diveprofile |
| 0 | 427 movf ext_flash_log_pointer+0,W |
| 428 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 429 movf ext_flash_log_pointer+1,W | |
| 430 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 431 movf ext_flash_log_pointer+2,W | |
| 432 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 433 | |
| 434 ; write rest of header | |
| 275 | 435 movlw logbook_profile_version ; Defined in hwos.inc |
| 0 | 436 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash |
| 437 | |
| 438 ; Store dive length | |
| 439 movf ext_flash_dive_counter+0,W | |
| 440 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 441 movf ext_flash_dive_counter+1,W | |
| 442 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 443 movf ext_flash_dive_counter+2,W | |
| 444 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 445 | |
|
389
9175429bdeba
CHANGE: Logbook now shows end-of-dive date and time for dives made with firmware <1.92 indicated by an icon in the logbook
heinrichsweikamp
parents:
279
diff
changeset
|
446 movff start_year,WREG ; Date |
| 0 | 447 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash |
|
389
9175429bdeba
CHANGE: Logbook now shows end-of-dive date and time for dives made with firmware <1.92 indicated by an icon in the logbook
heinrichsweikamp
parents:
279
diff
changeset
|
448 movff start_month,WREG |
| 0 | 449 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash |
|
389
9175429bdeba
CHANGE: Logbook now shows end-of-dive date and time for dives made with firmware <1.92 indicated by an icon in the logbook
heinrichsweikamp
parents:
279
diff
changeset
|
450 movff start_day,WREG |
| 0 | 451 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash |
|
389
9175429bdeba
CHANGE: Logbook now shows end-of-dive date and time for dives made with firmware <1.92 indicated by an icon in the logbook
heinrichsweikamp
parents:
279
diff
changeset
|
452 movff start_hours,WREG ; Start of dive time |
| 0 | 453 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash |
|
389
9175429bdeba
CHANGE: Logbook now shows end-of-dive date and time for dives made with firmware <1.92 indicated by an icon in the logbook
heinrichsweikamp
parents:
279
diff
changeset
|
454 movff start_mins,WREG |
| 0 | 455 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash |
| 456 | |
| 457 btfss FLAG_apnoe_mode ; Store apnoe max or normal max (Which is only max from the last descent) | |
| 458 bra end_dive1 ; Store normal depth | |
| 459 | |
| 460 movff apnoe_max_pressure+0,lo | |
| 461 movff apnoe_max_pressure+1,hi | |
| 462 call adjust_depth_with_salinity ; computes salinity setting into lo:hi [mbar] | |
| 463 movff lo,apnoe_max_pressure+0 | |
| 464 movff hi,apnoe_max_pressure+1 | |
| 465 | |
| 466 movf apnoe_max_pressure+0,W ; Max. depth | |
| 467 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 468 movf apnoe_max_pressure+1,W | |
| 469 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 470 bra end_dive2 ; skip normal max. depth | |
| 471 | |
| 472 end_dive1: | |
| 473 movff max_pressure+0,lo | |
| 474 movff max_pressure+1,hi | |
| 475 call adjust_depth_with_salinity ; computes salinity setting into lo:hi [mbar] | |
| 476 movff lo,max_pressure+0 | |
| 477 movff hi,max_pressure+1 | |
| 478 | |
| 560 | 479 movff max_pressure+0,WREG ; Max. depth |
| 480 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 0 | 481 movff max_pressure+1,WREG |
| 560 | 482 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash |
| 0 | 483 |
| 484 end_dive2: | |
| 560 | 485 movf divemins+0,W ; divetime minutes |
| 486 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 0 | 487 movf divemins+1,W |
| 560 | 488 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash |
| 489 movf divesecs,W ; divetime seconds | |
| 490 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 491 movff minimum_temperature+0,WREG ; minimum temperature | |
| 492 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 0 | 493 movff minimum_temperature+1,WREG |
| 560 | 494 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash |
| 495 movff last_surfpressure_30min+0,WREG ; airpressure before dive | |
| 496 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 0 | 497 movff last_surfpressure_30min+1,WREG |
| 560 | 498 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash |
| 499 movff int_O_desaturation_time+0,WREG ; desaturation time in minutes | |
| 500 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 0 | 501 movff int_O_desaturation_time+1,WREG |
| 560 | 502 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash |
| 0 | 503 |
| 504 btfss FLAG_ccr_mode ; In CCR mode... | |
| 505 bra end_dive_oc_gaslist ; No, write OC gases | |
| 506 ; Write Diluents... | |
| 507 movff opt_dil_O2_ratio+0,WREG | |
| 508 rcall ghostwrite_byte_header ; %O2 | |
| 509 movff opt_dil_He_ratio+0,WREG | |
| 510 rcall ghostwrite_byte_header ; %He | |
| 511 movff char_I_dil_change+0,WREG | |
| 512 rcall ghostwrite_byte_header ; Configured change depth in m | |
| 513 movff opt_dil_type+0,WREG | |
| 514 rcall ghostwrite_byte_header ; 0=Disabled, 1=First, 2=Normal | |
| 515 | |
| 516 movff opt_dil_O2_ratio+1,WREG | |
| 517 rcall ghostwrite_byte_header ; %O2 | |
| 518 movff opt_dil_He_ratio+1,WREG | |
| 519 rcall ghostwrite_byte_header ; %He | |
| 520 movff char_I_dil_change+1,WREG | |
| 521 rcall ghostwrite_byte_header ; Configured change depth in m | |
| 522 movff opt_dil_type+1,WREG | |
| 523 rcall ghostwrite_byte_header ; 0=Disabled, 1=First, 2=Normal | |
| 524 | |
| 525 movff opt_dil_O2_ratio+2,WREG | |
| 526 rcall ghostwrite_byte_header ; %O2 | |
| 527 movff opt_dil_He_ratio+2,WREG | |
| 528 rcall ghostwrite_byte_header ; %He | |
| 529 movff char_I_dil_change+2,WREG | |
| 530 rcall ghostwrite_byte_header ; Configured change depth in m | |
| 531 movff opt_dil_type+2,WREG | |
| 532 rcall ghostwrite_byte_header ; 0=Disabled, 1=First, 2=Normal | |
| 533 | |
| 534 movff opt_dil_O2_ratio+3,WREG | |
| 535 rcall ghostwrite_byte_header ; %O2 | |
| 536 movff opt_dil_He_ratio+3,WREG | |
| 537 rcall ghostwrite_byte_header ; %He | |
| 538 movff char_I_dil_change+3,WREG | |
| 539 rcall ghostwrite_byte_header ; Configured change depth in m | |
| 540 movff opt_dil_type+3,WREG | |
| 541 rcall ghostwrite_byte_header ; 0=Disabled, 1=First, 2=Normal | |
| 542 | |
| 543 movff opt_dil_O2_ratio+4,WREG | |
| 544 rcall ghostwrite_byte_header ; %O2 | |
| 545 movff opt_dil_He_ratio+4,WREG | |
| 546 rcall ghostwrite_byte_header ; %He | |
| 547 movff char_I_dil_change+4,WREG | |
| 548 rcall ghostwrite_byte_header ; Configured change depth in m | |
| 549 movff opt_dil_type+4,WREG | |
| 550 rcall ghostwrite_byte_header ; 0=Disabled, 1=First, 2=Normal | |
| 551 bra end_dive_oc_cc_common | |
| 552 | |
| 553 end_dive_oc_gaslist: ; OC Gases... | |
| 554 movff opt_gas_O2_ratio+0,WREG | |
| 555 rcall ghostwrite_byte_header ; %O2 | |
| 556 movff opt_gas_He_ratio+0,WREG | |
| 557 rcall ghostwrite_byte_header ; %He | |
|
97
53a99a2dc6a1
CHANGE: Always compute bailout plan based on all active gases
heinrichsweikamp
parents:
39
diff
changeset
|
558 movff opt_OC_bail_gas_change+0,WREG |
| 0 | 559 rcall ghostwrite_byte_header ; Configured change depth in m |
| 560 movff opt_gas_type+0,WREG | |
| 561 rcall ghostwrite_byte_header ; 0=Disabled, 1=First, 2= Travel, 3= Deco | |
| 562 | |
| 563 movff opt_gas_O2_ratio+1,WREG | |
| 564 rcall ghostwrite_byte_header ; %O2 | |
| 565 movff opt_gas_He_ratio+1,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+1,WREG |
| 0 | 568 rcall ghostwrite_byte_header ; Configured change depth in m |
| 569 movff opt_gas_type+1,WREG | |
| 570 rcall ghostwrite_byte_header ; 0=Disabled, 1=First, 2= Travel, 3= Deco | |
| 571 | |
| 572 movff opt_gas_O2_ratio+2,WREG | |
| 573 rcall ghostwrite_byte_header ; %O2 | |
| 574 movff opt_gas_He_ratio+2,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+2,WREG |
| 0 | 577 rcall ghostwrite_byte_header ; Configured change depth in m |
| 578 movff opt_gas_type+2,WREG | |
| 579 rcall ghostwrite_byte_header ; 0=Disabled, 1=First, 2= Travel, 3= Deco | |
| 580 | |
| 581 movff opt_gas_O2_ratio+3,WREG | |
| 582 rcall ghostwrite_byte_header ; %O2 | |
| 583 movff opt_gas_He_ratio+3,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+3,WREG |
| 0 | 586 rcall ghostwrite_byte_header ; Configured change depth in m |
| 587 movff opt_gas_type+3,WREG | |
| 588 rcall ghostwrite_byte_header ; 0=Disabled, 1=First, 2= Travel, 3= Deco | |
| 589 | |
| 590 movff opt_gas_O2_ratio+4,WREG | |
| 591 rcall ghostwrite_byte_header ; %O2 | |
| 592 movff opt_gas_He_ratio+4,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+4,WREG |
| 0 | 595 rcall ghostwrite_byte_header ; Configured change depth in m |
| 596 movff opt_gas_type+4,WREG | |
| 597 rcall ghostwrite_byte_header ; 0=Disabled, 1=First, 2= Travel, 3= Deco | |
| 598 ; bra end_dive_oc_cc_common | |
| 599 | |
| 600 end_dive_oc_cc_common: | |
| 560 | 601 movlw softwareversion_x ; Firmware version |
| 0 | 602 rcall ghostwrite_byte_header |
| 603 movlw softwareversion_y | |
| 604 rcall ghostwrite_byte_header | |
| 560 | 605 movf batt_voltage+0,W ; Battery voltage |
| 0 | 606 rcall ghostwrite_byte_header |
| 607 movf batt_voltage+1,W | |
| 608 rcall ghostwrite_byte_header | |
| 609 | |
|
23
e402813343b6
new option to switch samplingrate between 10s and 2s
heinrichsweikamp
parents:
6
diff
changeset
|
610 movf samplingrate,W ; Sampling rate |
|
e402813343b6
new option to switch samplingrate between 10s and 2s
heinrichsweikamp
parents:
6
diff
changeset
|
611 btfsc FLAG_apnoe_mode ; Apnoe mode? |
|
e402813343b6
new option to switch samplingrate between 10s and 2s
heinrichsweikamp
parents:
6
diff
changeset
|
612 movlw samplingrate_apnoe ; Apnoe sampling rate |
| 0 | 613 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash |
| 614 | |
| 237 | 615 ; CNS at beginning of dive |
| 0 | 616 movff CNS_start+0,WREG |
| 617 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 618 movff CNS_start+1,WREG | |
| 619 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 620 ; Gradient factor | |
| 621 movff GF_start,WREG | |
| 622 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 560 | 623 movff int_O_gradient_factor+0,WREG ; value limited to 255, only lower byte in use |
| 0 | 624 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash |
| 5 | 625 |
| 626 ; Logbook offset | |
| 627 call do_logoffset_common_read; Read into lo:hi | |
| 628 movf lo,W | |
| 0 | 629 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash |
| 5 | 630 movf hi,W |
| 0 | 631 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash |
| 5 | 632 |
|
455
85b533b7a18c
NEW: Store more battery info into logbook memory
heinrichsweikamp
parents:
453
diff
changeset
|
633 ; Battery info at Byte 59 |
|
85b533b7a18c
NEW: Store more battery info into logbook memory
heinrichsweikamp
parents:
453
diff
changeset
|
634 movf batt_percent,W ; 0-100 |
| 0 | 635 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash |
| 636 ; Store 5 Setpoints | |
| 637 movff char_I_setpoint_cbar+0,WREG | |
| 638 rcall ghostwrite_byte_header ; Setpoint in cbar | |
| 639 movff char_I_setpoint_change+0,WREG | |
| 640 rcall ghostwrite_byte_header ; Change depth | |
| 641 movff char_I_setpoint_cbar+1,WREG | |
| 642 rcall ghostwrite_byte_header ; Setpoint in cbar | |
| 643 movff char_I_setpoint_change+1,WREG | |
| 644 rcall ghostwrite_byte_header ; Change depth | |
| 645 movff char_I_setpoint_cbar+2,WREG | |
| 646 rcall ghostwrite_byte_header ; Setpoint in cbar | |
| 647 movff char_I_setpoint_change+2,WREG | |
| 648 rcall ghostwrite_byte_header ; Change depth | |
| 649 movff char_I_setpoint_cbar+3,WREG | |
| 650 rcall ghostwrite_byte_header ; Setpoint in cbar | |
| 651 movff char_I_setpoint_change+3,WREG | |
| 652 rcall ghostwrite_byte_header ; Change depth | |
| 653 movff char_I_setpoint_cbar+4,WREG | |
| 654 rcall ghostwrite_byte_header ; Setpoint in cbar | |
| 655 movff char_I_setpoint_change+4,WREG | |
| 656 rcall ghostwrite_byte_header ; Change depth | |
| 657 | |
|
185
f515712d8cd6
BUGFIX: Check min and max values after PC configuration properly
heinrichsweikamp
parents:
174
diff
changeset
|
658 movff opt_salinity,WREG ; Salinity (0-4%) |
| 0 | 659 rcall ghostwrite_byte_header ; Store Salinity to Dive |
| 660 | |
| 661 movff int_O_CNS_fraction+0,WREG ; copy into bank1 | |
| 662 rcall ghostwrite_byte_header; Stores CNS% | |
| 663 movff int_O_CNS_fraction+1,WREG ; copy into bank1 | |
| 664 rcall ghostwrite_byte_header; Stores CNS% | |
| 665 | |
| 437 | 666 movff avg_rel_pressure_total+0,WREG ; Average Depth |
| 0 | 667 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash |
| 437 | 668 movff avg_rel_pressure_total+1,WREG ; Average Depth |
| 0 | 669 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash |
| 670 | |
| 671 movff total_divetime_seconds+0,WREG ; Total dive time (Regardless of start_dive_threshold) | |
| 672 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 673 movff total_divetime_seconds+1,WREG ; Total dive time (Regardless of start_dive_threshold) | |
| 674 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 675 | |
| 676 movff char_I_GF_Low_percentage,WREG ; GF_lo | |
| 677 movff char_I_deco_model,lo | |
| 678 decfsz lo,F ; jump over next line if char_I_deco_model == 1 | |
| 679 movff char_I_saturation_multiplier,WREG ; Saturation Multiplier | |
| 680 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 681 | |
| 682 movff char_I_GF_High_percentage,WREG ; GF_hi | |
| 683 movff char_I_deco_model,lo | |
| 684 decfsz lo,F ; jump over next line if char_I_deco_model == 1 | |
| 685 movff char_I_desaturation_multiplier,WREG ; Desaturation Multiplier | |
| 686 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 687 | |
| 688 movff char_I_deco_model,WREG ; 0 = ZH-L16, 1 = ZH-L16-GF | |
| 689 rcall ghostwrite_byte_header; writes byte and increases address (no banking) | |
| 690 | |
| 691 read_int_eeprom .2 | |
| 692 movf EEDATA,W | |
| 693 rcall ghostwrite_byte_header ; Total dive counter, low | |
| 694 read_int_eeprom .3 | |
| 695 movf EEDATA,W | |
| 696 rcall ghostwrite_byte_header ; Total dive counter, high | |
| 697 | |
| 698 movff opt_dive_mode,WREG | |
|
480
ad8acade5567
NEW: PSCR mode (Passive semi-closed rebreather)
heinrichsweikamp
parents:
472
diff
changeset
|
699 rcall ghostwrite_byte_header ; 0=OC, 1=CC, 2=Gauge, 3=Apnea, 4=PSCR |
| 0 | 700 |
| 701 ; Store all tissue data available | |
| 702 movlw .16 | |
| 703 movwf lo | |
| 704 lfsr FSR1,char_O_tissue_N2_saturation+0 | |
| 705 end_dive_store_tissues_N2: | |
| 706 movf POSTINC1,W | |
| 560 | 707 bcf WREG,7 ; clear flag bit for ongassing/offgassing |
| 0 | 708 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash |
| 709 decfsz lo,F | |
| 710 bra end_dive_store_tissues_N2 ; No | |
| 711 | |
| 712 movlw .64 | |
| 713 movwf lo | |
| 560 | 714 lfsr FSR1,0x700;pres_tissue_N2+0 ; 16*4Byte Float = 64Bytes |
| 0 | 715 end_dive_store_tissues_N2_2: |
| 716 movf POSTINC1,W | |
| 717 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 718 decfsz lo,F | |
| 719 bra end_dive_store_tissues_N2_2 ; No | |
| 720 | |
| 721 movlw .16 | |
| 722 movwf lo | |
| 723 lfsr FSR1,char_O_tissue_He_saturation+0 | |
| 724 end_dive_store_tissues_He: | |
| 725 movf POSTINC1,W | |
| 560 | 726 bcf WREG,7 ; clear flag bit for ongassing/offgassing |
| 0 | 727 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash |
| 728 decfsz lo,F | |
| 729 bra end_dive_store_tissues_He ; No | |
| 730 | |
| 731 movlw .64 | |
| 732 movwf lo | |
| 560 | 733 lfsr FSR1,0x740;pres_tissue_He+0 ; 16*4Byte Float = 64Bytes |
| 0 | 734 end_dive_store_tissues_He_2: |
| 735 movf POSTINC1,W | |
| 736 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 737 decfsz lo,F | |
| 738 bra end_dive_store_tissues_He_2 ; No | |
| 739 | |
| 740 ; Some deco stuff | |
| 741 movff char_I_depth_last_deco,WREG ; last stop [m] | |
| 742 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 743 movff char_I_deco_distance,WREG ; assumed distance to shown stop | |
| 744 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 745 | |
| 746 ; Last HUD data | |
| 747 movff hud_battery_mv+0,WREG ; Last HUD battery value | |
| 748 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 749 movff hud_battery_mv+1,WREG ; Last HUD battery value | |
| 750 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 751 movff hud_status_byte,WREG ; Last HUD status | |
| 752 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 753 | |
| 754 ; Battery gauge registers [nAs] | |
| 755 movff battery_gauge+0,WREG ; Battery gauge register | |
| 756 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 757 movff battery_gauge+1,WREG ; Battery gauge register | |
| 758 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 759 movff battery_gauge+2,WREG ; Battery gauge register | |
| 760 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 761 movff battery_gauge+3,WREG ; Battery gauge register | |
| 762 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 763 movff battery_gauge+4,WREG ; Battery gauge register | |
| 764 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 765 movff battery_gauge+5,WREG ; Battery gauge register | |
| 766 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash | |
| 767 | |
| 768 ; Header stop | |
| 769 movlw 0xFB | |
| 560 | 770 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash |
| 0 | 771 movlw 0xFB |
| 560 | 772 rcall ghostwrite_byte_header ; WREG -> Header in ext. flash |
| 0 | 773 |
| 560 | 774 call divemode_store_statistics ; Store/update statistics for this unit |
| 0 | 775 |
| 776 clrf surface_interval+0 | |
| 560 | 777 clrf surface_interval+1 ; Clear surface interval timer |
| 0 | 778 |
| 779 ghostwriter_end_dive_common: | |
| 780 ; Update ext_flash_log_pointer into EEPROM | |
| 781 clrf EEADRH | |
| 782 movff ext_flash_log_pointer+0,EEDATA | |
| 783 write_int_eeprom .4 | |
| 784 movff ext_flash_log_pointer+1,EEDATA | |
| 785 write_int_eeprom .5 | |
| 786 movff ext_flash_log_pointer+2,EEDATA | |
| 787 write_int_eeprom .6 | |
| 788 | |
| 560 | 789 bcf simulatormode_active ; if we were in simulator mode |
| 0 | 790 |
| 791 ; In DEBUG compile, keep all simulated dives in logbook, Desat time, nofly, etc... | |
| 792 ifndef __DEBUG | |
| 560 | 793 extern deco_pull_tissues_from_vault |
| 794 btfsc restore_deco_data ; Restore decodata? | |
| 795 call deco_pull_tissues_from_vault | |
| 796 banksel common ; Bank1 | |
| 0 | 797 endif |
| 560 | 798 call update_battery_registers ; update battery registers into EEPROM |
| 799 goto surfloop ; and return to surfaceloop | |
| 0 | 800 |
|
166
30ebaf72170d
BUGFIX: Flip compass with flipped screen, too
heinrichsweikamp
parents:
147
diff
changeset
|
801 ghostwriter_end_dive_common_sim: |
| 560 | 802 tstfsz surface_interval+0 ; Was interval zero? |
|
174
932e91074bdb
CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents:
170
diff
changeset
|
803 bra ghostwriter_end_dive_common_sim2 ; No |
| 560 | 804 tstfsz surface_interval+1 ; Was interval zero? |
|
174
932e91074bdb
CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents:
170
diff
changeset
|
805 bra ghostwriter_end_dive_common_sim2 ; No |
| 560 | 806 bra ghostwriter_end_dive_common ; Yes, done. |
|
174
932e91074bdb
CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents:
170
diff
changeset
|
807 |
|
932e91074bdb
CHANGE: Clarify Travel Gases with "---" as change depth
heinrichsweikamp
parents:
170
diff
changeset
|
808 ghostwriter_end_dive_common_sim2: |
|
166
30ebaf72170d
BUGFIX: Flip compass with flipped screen, too
heinrichsweikamp
parents:
147
diff
changeset
|
809 movf divemins+0,W |
|
30ebaf72170d
BUGFIX: Flip compass with flipped screen, too
heinrichsweikamp
parents:
147
diff
changeset
|
810 addwf surface_interval+0,F |
|
30ebaf72170d
BUGFIX: Flip compass with flipped screen, too
heinrichsweikamp
parents:
147
diff
changeset
|
811 movf divemins+1,W |
| 560 | 812 addwfc surface_interval+1 ; Add simulated divetime to surface interval |
|
166
30ebaf72170d
BUGFIX: Flip compass with flipped screen, too
heinrichsweikamp
parents:
147
diff
changeset
|
813 bra ghostwriter_end_dive_common |
|
30ebaf72170d
BUGFIX: Flip compass with flipped screen, too
heinrichsweikamp
parents:
147
diff
changeset
|
814 |
|
219
4b2622e0fd50
init new 4kB Page in logbook memory when pointer is not valid.
heinrichsweikamp
parents:
185
diff
changeset
|
815 ghostwriter_load_pointer: ; Load ext_flash_address:3 from EEPROM .4-.6 |
| 0 | 816 clrf EEADRH ; Make sure to select eeprom bank 0 |
| 817 read_int_eeprom .4 | |
| 818 movff EEDATA,ext_flash_address+0 | |
| 819 read_int_eeprom .5 | |
| 820 movff EEDATA,ext_flash_address+1 | |
| 821 read_int_eeprom .6 | |
| 822 movff EEDATA,ext_flash_address+2 | |
|
219
4b2622e0fd50
init new 4kB Page in logbook memory when pointer is not valid.
heinrichsweikamp
parents:
185
diff
changeset
|
823 return |
|
4b2622e0fd50
init new 4kB Page in logbook memory when pointer is not valid.
heinrichsweikamp
parents:
185
diff
changeset
|
824 |
|
4b2622e0fd50
init new 4kB Page in logbook memory when pointer is not valid.
heinrichsweikamp
parents:
185
diff
changeset
|
825 ghostwriter_short_header_init: ; Proceed one page forward |
|
4b2622e0fd50
init new 4kB Page in logbook memory when pointer is not valid.
heinrichsweikamp
parents:
185
diff
changeset
|
826 clrf EEDATA |
|
4b2622e0fd50
init new 4kB Page in logbook memory when pointer is not valid.
heinrichsweikamp
parents:
185
diff
changeset
|
827 write_int_eeprom .4 ; ext_flash_address+0 = 0 |
|
4b2622e0fd50
init new 4kB Page in logbook memory when pointer is not valid.
heinrichsweikamp
parents:
185
diff
changeset
|
828 movlw .16 |
|
4b2622e0fd50
init new 4kB Page in logbook memory when pointer is not valid.
heinrichsweikamp
parents:
185
diff
changeset
|
829 addwf ext_flash_address+1,F |
|
4b2622e0fd50
init new 4kB Page in logbook memory when pointer is not valid.
heinrichsweikamp
parents:
185
diff
changeset
|
830 movlw .0 |
|
4b2622e0fd50
init new 4kB Page in logbook memory when pointer is not valid.
heinrichsweikamp
parents:
185
diff
changeset
|
831 addwfc ext_flash_address+2,F |
|
4b2622e0fd50
init new 4kB Page in logbook memory when pointer is not valid.
heinrichsweikamp
parents:
185
diff
changeset
|
832 movlw 0x20 |
|
4b2622e0fd50
init new 4kB Page in logbook memory when pointer is not valid.
heinrichsweikamp
parents:
185
diff
changeset
|
833 cpfseq ext_flash_address+2 ; at address 0x200000? |
|
4b2622e0fd50
init new 4kB Page in logbook memory when pointer is not valid.
heinrichsweikamp
parents:
185
diff
changeset
|
834 bra ghostwriter_short_header_init2 ; No |
|
4b2622e0fd50
init new 4kB Page in logbook memory when pointer is not valid.
heinrichsweikamp
parents:
185
diff
changeset
|
835 clrf ext_flash_address+2 ; Yes, rollover to 0x000000 |
|
4b2622e0fd50
init new 4kB Page in logbook memory when pointer is not valid.
heinrichsweikamp
parents:
185
diff
changeset
|
836 ghostwriter_short_header_init2: |
|
4b2622e0fd50
init new 4kB Page in logbook memory when pointer is not valid.
heinrichsweikamp
parents:
185
diff
changeset
|
837 movlw 0xF0 |
|
4b2622e0fd50
init new 4kB Page in logbook memory when pointer is not valid.
heinrichsweikamp
parents:
185
diff
changeset
|
838 andwf ext_flash_address+1,F ; keep higher nibble, set lower nibble to 0 |
|
4b2622e0fd50
init new 4kB Page in logbook memory when pointer is not valid.
heinrichsweikamp
parents:
185
diff
changeset
|
839 |
|
4b2622e0fd50
init new 4kB Page in logbook memory when pointer is not valid.
heinrichsweikamp
parents:
185
diff
changeset
|
840 movff ext_flash_address+1,EEDATA |
|
4b2622e0fd50
init new 4kB Page in logbook memory when pointer is not valid.
heinrichsweikamp
parents:
185
diff
changeset
|
841 write_int_eeprom .5 ; Write new pointer |
|
4b2622e0fd50
init new 4kB Page in logbook memory when pointer is not valid.
heinrichsweikamp
parents:
185
diff
changeset
|
842 movff ext_flash_address+2,EEDATA |
|
4b2622e0fd50
init new 4kB Page in logbook memory when pointer is not valid.
heinrichsweikamp
parents:
185
diff
changeset
|
843 write_int_eeprom .6 ; Write new pointer |
|
4b2622e0fd50
init new 4kB Page in logbook memory when pointer is not valid.
heinrichsweikamp
parents:
185
diff
changeset
|
844 bra ghostwriter_short_header2 ; Done. |
|
4b2622e0fd50
init new 4kB Page in logbook memory when pointer is not valid.
heinrichsweikamp
parents:
185
diff
changeset
|
845 |
|
4b2622e0fd50
init new 4kB Page in logbook memory when pointer is not valid.
heinrichsweikamp
parents:
185
diff
changeset
|
846 global ghostwriter_short_header |
|
4b2622e0fd50
init new 4kB Page in logbook memory when pointer is not valid.
heinrichsweikamp
parents:
185
diff
changeset
|
847 ghostwriter_short_header: ; Write short header with divenumber into profile memory |
|
4b2622e0fd50
init new 4kB Page in logbook memory when pointer is not valid.
heinrichsweikamp
parents:
185
diff
changeset
|
848 ; load pointer for profile storing into RAM (Updated in EEPROM after the dive) |
|
4b2622e0fd50
init new 4kB Page in logbook memory when pointer is not valid.
heinrichsweikamp
parents:
185
diff
changeset
|
849 rcall ghostwriter_load_pointer ; Load ext_flash_address:3 from EEPROM .4-.6 |
|
4b2622e0fd50
init new 4kB Page in logbook memory when pointer is not valid.
heinrichsweikamp
parents:
185
diff
changeset
|
850 |
|
4b2622e0fd50
init new 4kB Page in logbook memory when pointer is not valid.
heinrichsweikamp
parents:
185
diff
changeset
|
851 ; The following code is used to write a clean new dive after the previous hasn't been |
|
4b2622e0fd50
init new 4kB Page in logbook memory when pointer is not valid.
heinrichsweikamp
parents:
185
diff
changeset
|
852 ; stored correctly. e.g. after a battery fail during the dive |
|
4b2622e0fd50
init new 4kB Page in logbook memory when pointer is not valid.
heinrichsweikamp
parents:
185
diff
changeset
|
853 call ext_flash_byte_read_plus_0x20 ; Into temp1 |
|
4b2622e0fd50
init new 4kB Page in logbook memory when pointer is not valid.
heinrichsweikamp
parents:
185
diff
changeset
|
854 incfsz temp1,F |
|
4b2622e0fd50
init new 4kB Page in logbook memory when pointer is not valid.
heinrichsweikamp
parents:
185
diff
changeset
|
855 bra ghostwriter_short_header_init ; Not 0xFF -> init page |
|
4b2622e0fd50
init new 4kB Page in logbook memory when pointer is not valid.
heinrichsweikamp
parents:
185
diff
changeset
|
856 call ext_flash_byte_read_plus_0x20 ; Into temp1 |
|
4b2622e0fd50
init new 4kB Page in logbook memory when pointer is not valid.
heinrichsweikamp
parents:
185
diff
changeset
|
857 incfsz temp1,F |
|
4b2622e0fd50
init new 4kB Page in logbook memory when pointer is not valid.
heinrichsweikamp
parents:
185
diff
changeset
|
858 bra ghostwriter_short_header_init ; Not 0xFF -> init page |
|
4b2622e0fd50
init new 4kB Page in logbook memory when pointer is not valid.
heinrichsweikamp
parents:
185
diff
changeset
|
859 |
|
4b2622e0fd50
init new 4kB Page in logbook memory when pointer is not valid.
heinrichsweikamp
parents:
185
diff
changeset
|
860 ghostwriter_short_header2: |
|
4b2622e0fd50
init new 4kB Page in logbook memory when pointer is not valid.
heinrichsweikamp
parents:
185
diff
changeset
|
861 ; All ok, reload the pointer and start |
|
4b2622e0fd50
init new 4kB Page in logbook memory when pointer is not valid.
heinrichsweikamp
parents:
185
diff
changeset
|
862 rcall ghostwriter_load_pointer ; Load ext_flash_address:3 from EEPROM .4-.6 |
| 0 | 863 |
| 864 ; Clear dive length counter | |
| 865 clrf ext_flash_dive_counter+0 | |
| 866 clrf ext_flash_dive_counter+1 | |
| 867 clrf ext_flash_dive_counter+2 | |
| 868 | |
| 869 ; Write short header with divenumber into profile memory | |
| 870 movlw 0xFA | |
| 871 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. flash | |
| 872 movlw 0xFA | |
| 873 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. flash | |
| 874 ; Load total number of dives (low byte only) | |
| 875 read_int_eeprom .2 | |
| 876 incf EEDATA,W ;+1 | |
| 877 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. flash | |
| 878 read_int_eeprom .3 | |
| 879 movf EEDATA,W | |
| 880 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. flash | |
| 881 movlw 0xFA | |
| 882 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. flash | |
| 883 movlw 0xFA | |
| 884 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. flash | |
|
278
dfac47ac2e1d
BUGFIX: There was a 1:4096 chance that a portion of a dive was not stored correctly resulting in download issues
heinrichsweikamp
parents:
275
diff
changeset
|
885 |
| 0 | 886 ; Keep room for dive length ext_flash_dive_counter:3 (Stored at the end of the dive) |
|
278
dfac47ac2e1d
BUGFIX: There was a 1:4096 chance that a portion of a dive was not stored correctly resulting in download issues
heinrichsweikamp
parents:
275
diff
changeset
|
887 ; Writing 0xFF three times here is mandatory |
|
dfac47ac2e1d
BUGFIX: There was a 1:4096 chance that a portion of a dive was not stored correctly resulting in download issues
heinrichsweikamp
parents:
275
diff
changeset
|
888 ; - 0xFF can be overwritten after the dive |
|
dfac47ac2e1d
BUGFIX: There was a 1:4096 chance that a portion of a dive was not stored correctly resulting in download issues
heinrichsweikamp
parents:
275
diff
changeset
|
889 ; - ghostwrite_byte_profile takes care of 4kB Page switching |
|
dfac47ac2e1d
BUGFIX: There was a 1:4096 chance that a portion of a dive was not stored correctly resulting in download issues
heinrichsweikamp
parents:
275
diff
changeset
|
890 ; - fixes an issue when we are at exactly 0xXXX000 here... |
|
dfac47ac2e1d
BUGFIX: There was a 1:4096 chance that a portion of a dive was not stored correctly resulting in download issues
heinrichsweikamp
parents:
275
diff
changeset
|
891 |
|
dfac47ac2e1d
BUGFIX: There was a 1:4096 chance that a portion of a dive was not stored correctly resulting in download issues
heinrichsweikamp
parents:
275
diff
changeset
|
892 movlw 0xFF |
| 279 | 893 call write_byte_ext_flash_plus_nocnt ; WREG -> Profile in ext. flash (No ext_flash_dive_counter:3 increase) |
|
278
dfac47ac2e1d
BUGFIX: There was a 1:4096 chance that a portion of a dive was not stored correctly resulting in download issues
heinrichsweikamp
parents:
275
diff
changeset
|
894 movlw 0xFF |
| 279 | 895 call write_byte_ext_flash_plus_nocnt ; WREG -> Profile in ext. flash (No ext_flash_dive_counter:3 increase) |
|
278
dfac47ac2e1d
BUGFIX: There was a 1:4096 chance that a portion of a dive was not stored correctly resulting in download issues
heinrichsweikamp
parents:
275
diff
changeset
|
896 movlw 0xFF |
| 279 | 897 call write_byte_ext_flash_plus_nocnt ; WREG -> Profile in ext. flash (No ext_flash_dive_counter:3 increase) |
| 0 | 898 |
|
23
e402813343b6
new option to switch samplingrate between 10s and 2s
heinrichsweikamp
parents:
6
diff
changeset
|
899 movf samplingrate,W ; Sampling rate |
| 0 | 900 btfsc FLAG_apnoe_mode ; Apnoe mode? |
| 901 movlw samplingrate_apnoe ; Apnoe sampling rate | |
| 902 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. flash | |
| 903 | |
| 904 movlw .7 ; Number of divisors | |
| 905 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. flash | |
| 906 | |
| 907 movlw .0 ; Type | |
| 908 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. flash | |
| 909 movlw infolength_temperature | |
| 910 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. flash | |
| 911 movlw div_temperature ; Divisor temperature | |
| 912 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. flash | |
| 913 | |
| 914 movlw .1 ; Type | |
| 915 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. flash | |
| 916 movlw infolength_deco | |
| 917 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. flash | |
| 918 movlw div_deco ; Divisor decodata | |
| 919 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. flash | |
| 920 | |
| 921 movlw .2 ; Type | |
| 922 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. flash | |
| 923 movlw infolength_gf | |
| 924 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. flash | |
| 925 movlw div_gf ; Divisor gf | |
| 926 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. flash | |
| 927 | |
| 928 movlw .3 ; Type | |
| 929 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. flash | |
| 930 movlw infolength_ppo2_sensors | |
| 931 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. flash | |
| 932 movlw div_ppo2_sensors ; Divisor ppO2 | |
|
107
dc44aa645549
BUGFIX: wrong ppo2 recording parameter in short header
heinrichsweikamp
parents:
99
diff
changeset
|
933 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
|
934 movlw .0 ; No ppO2 data in OC mode |
| 0 | 935 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. flash |
| 936 | |
| 937 movlw .4 ; Type | |
| 938 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. flash | |
| 939 movlw infolength_decoplan | |
| 940 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. flash | |
| 941 movlw div_decoplan ; Divisor debug | |
| 942 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. flash | |
| 943 | |
| 944 movlw .5 ; Type | |
| 945 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. flash | |
| 946 movlw infolength_cns | |
| 947 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. flash | |
| 948 movlw div_cns ; Divisor CNS | |
| 949 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. flash | |
| 950 | |
| 951 movlw .6 ; Type | |
| 952 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. flash | |
| 953 movlw infolength_tank | |
| 954 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. flash | |
| 955 movlw div_tank ; Divisor Tank | |
| 956 rcall ghostwrite_byte_profile ; WREG -> Profile in ext. flash | |
| 957 | |
| 958 return | |
| 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: | |
|
453
b4f28ab23b87
NEW: Show Uptime (Time since last firmware boot) in information menu
heinrichsweikamp
parents:
437
diff
changeset
|
975 ; Clear lastdive:4 |
|
b4f28ab23b87
NEW: Show Uptime (Time since last firmware boot) in information menu
heinrichsweikamp
parents:
437
diff
changeset
|
976 banksel lastdive_time+0 |
|
b4f28ab23b87
NEW: Show Uptime (Time since last firmware boot) in information menu
heinrichsweikamp
parents:
437
diff
changeset
|
977 clrf lastdive_time+0 |
|
b4f28ab23b87
NEW: Show Uptime (Time since last firmware boot) in information menu
heinrichsweikamp
parents:
437
diff
changeset
|
978 clrf lastdive_time+1 |
|
b4f28ab23b87
NEW: Show Uptime (Time since last firmware boot) in information menu
heinrichsweikamp
parents:
437
diff
changeset
|
979 clrf lastdive_time+2 |
|
b4f28ab23b87
NEW: Show Uptime (Time since last firmware boot) in information menu
heinrichsweikamp
parents:
437
diff
changeset
|
980 clrf lastdive_time+3 |
|
503
4542d03f748a
NEW: Last Dive customviews in surface mode with divetime, depth and interval
heinrichsweikamp
parents:
490
diff
changeset
|
981 movff divemins+0,lastdive_duration+0 |
|
4542d03f748a
NEW: Last Dive customviews in surface mode with divetime, depth and interval
heinrichsweikamp
parents:
490
diff
changeset
|
982 movff divemins+1,lastdive_duration+1 |
|
4542d03f748a
NEW: Last Dive customviews in surface mode with divetime, depth and interval
heinrichsweikamp
parents:
490
diff
changeset
|
983 movff divesecs,lastdive_duration+2 |
|
4542d03f748a
NEW: Last Dive customviews in surface mode with divetime, depth and interval
heinrichsweikamp
parents:
490
diff
changeset
|
984 movff max_pressure+0,lastdive_maxdepth+0 |
|
4542d03f748a
NEW: Last Dive customviews in surface mode with divetime, depth and interval
heinrichsweikamp
parents:
490
diff
changeset
|
985 movff max_pressure+1,lastdive_maxdepth+1 |
|
453
b4f28ab23b87
NEW: Show Uptime (Time since last firmware boot) in information menu
heinrichsweikamp
parents:
437
diff
changeset
|
986 banksel common |
|
b4f28ab23b87
NEW: Show Uptime (Time since last firmware boot) in information menu
heinrichsweikamp
parents:
437
diff
changeset
|
987 |
| 0 | 988 ; Add more here... |
| 989 return | |
| 990 | |
| 991 global do_logoffset_common_write | |
| 992 do_logoffset_common_write: | |
|
535
cf68fe0c3002
NEW: Show a warning for each sensor if the sensor is end-of-life after calibration (Less then 8mV in Air at sea level)
heinrichsweikamp
parents:
521
diff
changeset
|
993 ; TODO: limit [lo:hi] to 9999 ? may arrive here as >= 10000 because of +10 increment option |
|
cf68fe0c3002
NEW: Show a warning for each sensor if the sensor is end-of-life after calibration (Less then 8mV in Air at sea level)
heinrichsweikamp
parents:
521
diff
changeset
|
994 ; SIMPLER WAY: return without writing to eeprom if hi == 0x27 -> 0x2700 = 9984, this is within |
|
cf68fe0c3002
NEW: Show a warning for each sensor if the sensor is end-of-life after calibration (Less then 8mV in Air at sea level)
heinrichsweikamp
parents:
521
diff
changeset
|
995 ; the save range for a +10 increment, shall do it... |
|
cf68fe0c3002
NEW: Show a warning for each sensor if the sensor is end-of-life after calibration (Less then 8mV in Air at sea level)
heinrichsweikamp
parents:
521
diff
changeset
|
996 ; mH |
|
cf68fe0c3002
NEW: Show a warning for each sensor if the sensor is end-of-life after calibration (Less then 8mV in Air at sea level)
heinrichsweikamp
parents:
521
diff
changeset
|
997 |
| 0 | 998 movff lo,EEDATA |
| 999 write_int_eeprom 0x0D | |
| 1000 movff hi,EEDATA | |
| 1001 write_int_eeprom 0x0E | |
| 1002 return | |
| 1003 | |
| 1004 global do_logoffset_common_read | |
| 1005 do_logoffset_common_read: | |
| 1006 clrf EEADRH | |
| 1007 read_int_eeprom 0x0D | |
| 1008 movff EEDATA,lo | |
| 1009 read_int_eeprom 0x0E | |
| 1010 movff EEDATA,hi ; Existing logbook offset into lo:hi | |
| 1011 return | |
| 1012 | |
| 1013 | |
| 1014 global update_battery_registers | |
| 1015 update_battery_registers: | |
| 1016 ; save battery_gauge:6 into EEPROM 0x07-0x0C | |
| 1017 clrf EEADRH | |
| 1018 movff battery_gauge+0,EEDATA | |
| 1019 write_int_eeprom 0x07 | |
| 1020 movff battery_gauge+1,EEDATA | |
| 1021 write_int_eeprom 0x08 | |
| 1022 movff battery_gauge+2,EEDATA | |
| 1023 write_int_eeprom 0x09 | |
| 1024 movff battery_gauge+3,EEDATA | |
| 1025 write_int_eeprom 0x0A | |
| 1026 movff battery_gauge+4,EEDATA | |
| 1027 write_int_eeprom 0x0B | |
| 1028 movff battery_gauge+5,EEDATA | |
| 1029 write_int_eeprom 0x0C | |
|
472
4fdf6886004b
CHANGE: Show warnings either in Customview (If active) _or_ next to warning sign
heinrichsweikamp
parents:
457
diff
changeset
|
1030 movff battery_type,EEDATA ; =0:1.5V, =1:3,6V Saft, =2:LiIon 3,7V/0.8Ah, =3:LiIon 3,7V/3.1Ah, =4: LiIon 3,7V/2.3Ah |
| 457 | 1031 write_int_eeprom 0x0F |
| 0 | 1032 return |
| 1033 | |
| 1034 | |
|
133
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1035 global vault_decodata_into_eeprom |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1036 vault_decodata_into_eeprom: |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1037 ; Vault in EEPROM 512...1023 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1038 ; 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
|
1039 ; Store last time/date |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1040 ; 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
|
1041 movlw HIGH .512 ; =2 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1042 movwf EEADRH |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1043 movlw 0xAA |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1044 movwf EEDATA |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1045 write_int_eeprom .0 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1046 ; Store date/time |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1047 movff year,EEDATA |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1048 write_int_eeprom .1 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1049 movff month,EEDATA |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1050 write_int_eeprom .2 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1051 movff day,EEDATA |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1052 write_int_eeprom .3 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1053 movff hours,EEDATA |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1054 write_int_eeprom .4 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1055 movff mins,EEDATA |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1056 write_int_eeprom .5 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1057 movff secs,EEDATA |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1058 write_int_eeprom .6 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1059 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1060 movff int_O_CNS_fraction+0,EEDATA |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1061 write_int_eeprom .7 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1062 movff int_O_CNS_fraction+1,EEDATA |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1063 write_int_eeprom .8 |
| 560 | 1064 movff int_O_desaturation_time+0,EEDATA |
|
133
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1065 write_int_eeprom .9 |
| 560 | 1066 movff int_O_desaturation_time+1,EEDATA |
|
133
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1067 write_int_eeprom .10 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1068 movff surface_interval+0,EEDATA |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1069 write_int_eeprom .11 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1070 movff surface_interval+1,EEDATA |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1071 write_int_eeprom .12 |
| 560 | 1072 movff int_O_gradient_factor+0,EEDATA ; value limited to 255, only lower byte in use for value |
|
133
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1073 write_int_eeprom .13 |
| 560 | 1074 movff int_O_nofly_time+0,EEDATA |
|
133
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1075 write_int_eeprom .14 |
| 560 | 1076 movff int_O_nofly_time+1,EEDATA |
|
133
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1077 write_int_eeprom .15 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1078 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1079 ; Tissue data from 16 to 144 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1080 movlw .16 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1081 movwf EEADR |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1082 movlw .128 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1083 movwf lo |
| 560 | 1084 lfsr FSR1,0x700;pres_tissue_N2+0 ; 32*4Byte Float = 128Bytes |
|
133
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1085 vault_decodata_into_eeprom2: |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1086 movff POSTINC1,EEDATA |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1087 call write_eeprom ; EEDATA into EEPROM@EEADR |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1088 incf EEADR,F |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1089 decfsz lo,F ; All done? |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1090 bra vault_decodata_into_eeprom2 ; No |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1091 clrf EEADRH |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1092 return |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1093 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1094 global restore_decodata_from_eeprom |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1095 restore_decodata_from_eeprom: |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1096 movlw LOW .512 ; =0 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1097 movwf EEADR |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1098 movlw HIGH .512 ; =2 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1099 movwf EEADRH |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1100 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1101 ; Restore date/time |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1102 read_int_eeprom .1 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1103 movff EEDATA,year |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1104 read_int_eeprom .2 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1105 movff EEDATA,month |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1106 read_int_eeprom .3 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1107 movff EEDATA,day |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1108 read_int_eeprom .4 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1109 movff EEDATA,hours |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1110 read_int_eeprom .5 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1111 movff EEDATA,mins |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1112 read_int_eeprom .6 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1113 movff EEDATA,secs |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1114 call rtc_set_rtc |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1115 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1116 read_int_eeprom .7 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1117 movff EEDATA,int_O_CNS_fraction+0 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1118 read_int_eeprom .8 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1119 movff EEDATA,int_O_CNS_fraction+1 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1120 read_int_eeprom .9 |
| 560 | 1121 movff EEDATA,int_O_desaturation_time+0 |
|
133
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1122 read_int_eeprom .10 |
| 560 | 1123 movff EEDATA,int_O_desaturation_time+1 |
|
133
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1124 read_int_eeprom .11 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1125 movff EEDATA,surface_interval+0 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1126 read_int_eeprom .12 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1127 movff EEDATA,surface_interval+1 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1128 read_int_eeprom .13 |
| 560 | 1129 movff EEDATA,int_O_gradient_factor+0 |
|
133
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1130 read_int_eeprom .14 |
| 560 | 1131 movff EEDATA,int_O_nofly_time+0 |
|
133
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1132 read_int_eeprom .15 |
| 560 | 1133 movff EEDATA,int_O_nofly_time+1 |
|
133
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1134 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1135 ; Tissue data from 16 to 144 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1136 movlw .16 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1137 movwf EEADR |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1138 movlw .128 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1139 movwf lo |
| 560 | 1140 lfsr FSR1,0x700;pres_tissue_N2+0 ; 32*4Byte Float = 128Bytes |
|
133
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1141 restore_decodata_from_eeprom2: |
| 560 | 1142 call read_eeprom ; EEPROM@EEADR into EEDATA |
|
133
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1143 movff EEDATA,POSTINC1 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1144 incf EEADR,F |
| 560 | 1145 decfsz lo,F ; All done? |
|
133
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1146 bra restore_decodata_from_eeprom2 ; No |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1147 clrf EEADRH |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1148 return |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1149 |
|
939f1e83c4c2
BUGFIX: Surface interval was not displayed correctly in some cases
heinrichsweikamp
parents:
107
diff
changeset
|
1150 |
| 0 | 1151 END |