Mercurial > public > hwos_code

annotate src/ghostwriter.asm @ 125:53409476a05f

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