|
0
|
1 ;=============================================================================
|
|
|
2 ;
|
|
634
|
3 ; File eeprom_rs232.asm * combined next generation V3.09.4n
|
|
0
|
4 ;
|
|
|
5 ; Internal EEPROM, RS232
|
|
|
6 ;
|
|
|
7 ; Copyright (c) 2011, JD Gascuel, HeinrichsWeikamp, all right reserved.
|
|
|
8 ;=============================================================================
|
|
|
9 ; HISTORY
|
|
|
10 ; 2011-08-06 : [mH] moving from OSTC code
|
|
|
11
|
|
275
|
12 #include "hwos.inc"
|
|
0
|
13 #include "wait.inc"
|
|
582
|
14 #include "shared_definitions.h"
|
|
|
15 #include "rtc.inc"
|
|
631
|
16 #include "external_flash.inc"
|
|
|
17
|
|
|
18 #DEFINE INSIDE_EEPROM_RS232
|
|
|
19 #include "eeprom_rs232.inc"
|
|
|
20
|
|
582
|
21
|
|
623
|
22 extern lt2942_charge_done
|
|
|
23
|
|
634
|
24
|
|
|
25 ;=============================================================================
|
|
|
26 eeprom CODE
|
|
|
27 ;=============================================================================
|
|
|
28
|
|
623
|
29 ;-----------------------------------------------------------------------------
|
|
631
|
30 ;
|
|
634
|
31 ; EEPROM Functions - for EEPROM Macros and Memory Map, see eeprom_rs232.inc
|
|
631
|
32 ;
|
|
|
33 ;-----------------------------------------------------------------------------
|
|
623
|
34
|
|
582
|
35
|
|
623
|
36 ;-----------------------------------------------------------------------------
|
|
634
|
37 ; Read from internal EEPROM
|
|
623
|
38 ;
|
|
604
|
39 ; Input: EEADRH:EEADR = EEPROM address
|
|
|
40 ; Output: EEDATA
|
|
|
41 ; Trashed: NONE
|
|
623
|
42 ;
|
|
0
|
43 global read_eeprom
|
|
582
|
44 read_eeprom:
|
|
634
|
45 bcf EECON1,EEPGD ; access data EEPROM
|
|
|
46 bcf EECON1,CFGS ; ...
|
|
|
47 bsf EECON1,RD ; initiate reading
|
|
|
48 return ; done
|
|
|
49
|
|
0
|
50
|
|
631
|
51 ;-----------------------------------------------------------------------------
|
|
634
|
52 ; Write into internal EEPROM
|
|
623
|
53 ;
|
|
604
|
54 ; Input: EEADRH:EEADR = EEPROM address
|
|
|
55 ; EEDATA = byte to write
|
|
|
56 ; Trashed: WREG
|
|
623
|
57 ;
|
|
604
|
58 global write_eeprom
|
|
|
59 write_eeprom:
|
|
634
|
60 bcf EECON1,EEPGD ; access data EEPROM
|
|
|
61 bcf EECON1,CFGS ; ...
|
|
|
62 bsf EECON1,WREN ; enable writing
|
|
|
63 bcf INTCON,GIE ; disable interrupts
|
|
631
|
64 movlw 0x55 ; unlock sequence
|
|
|
65 movwf EECON2 ; ...
|
|
|
66 movlw 0xAA ; ...
|
|
|
67 movwf EECON2 ; ...
|
|
|
68 bsf EECON1,WR ; start write operation
|
|
|
69 write_eeprom_loop:
|
|
|
70 btfsc EECON1,WR ; write completed?
|
|
634
|
71 bra write_eeprom_loop ; NO - loop waiting
|
|
650
|
72 btfsc EECON1,WRERR ; All ok?
|
|
|
73 rcall write_eeprom_error ; NO, something failed.
|
|
634
|
74 bcf EECON1,WREN ; YES - disable writing
|
|
|
75 bsf INTCON,GIE ; - re-enable interrupts
|
|
|
76 return ; - done
|
|
650
|
77 write_eeprom_error:
|
|
|
78 bsf eeprom_write_error_flag ; Set error flag
|
|
|
79 ; Try again (once)
|
|
|
80 movlw 0x55 ; unlock sequence
|
|
|
81 movwf EECON2 ; ...
|
|
|
82 movlw 0xAA ; ...
|
|
|
83 movwf EECON2 ; ...
|
|
|
84 bsf EECON1,WR ; start write operation
|
|
|
85 write_eeprom_loop2:
|
|
|
86 btfsc EECON1,WR ; write completed?
|
|
|
87 bra write_eeprom_loop2 ; NO - loop waiting
|
|
|
88 return
|
|
|
89
|
|
631
|
90
|
|
|
91 ;-----------------------------------------------------------------------------
|
|
634
|
92 ; EEPROM read and write Functions to be used via Macros
|
|
631
|
93 ;
|
|
|
94 global eeprom_read_common
|
|
|
95 eeprom_read_common:
|
|
|
96 movwf eeprom_loop ; initialize loop counter
|
|
|
97 eeprom_read_common_loop:
|
|
|
98 rcall read_eeprom ; execute read
|
|
|
99 movff EEDATA,POSTINC1 ; copy byte from EEPROM data register to memory
|
|
|
100 incf EEADR,F ; advance to next EEPROM cell
|
|
|
101 decfsz eeprom_loop,F ; decrement loop counter, all done?
|
|
|
102 bra eeprom_read_common_loop ; NO - loop
|
|
|
103 return ; YES - done
|
|
604
|
104
|
|
631
|
105 global eeprom_write_common
|
|
|
106 eeprom_write_common:
|
|
|
107 movwf eeprom_loop ; initialize loop counter
|
|
|
108 eeprom_write_common_loop:
|
|
|
109 movff POSTINC1,EEDATA ; copy byte from memory to EEPROM data register
|
|
|
110 rcall write_eeprom ; execute write
|
|
|
111 incf EEADR,F ; advance to next EEPROM cell
|
|
|
112 decfsz eeprom_loop,F ; decrement loop counter, all done?
|
|
|
113 bra eeprom_write_common_loop ; NO - loop
|
|
|
114 return ; YES - done
|
|
|
115
|
|
634
|
116
|
|
631
|
117 ;-----------------------------------------------------------------------------
|
|
634
|
118 ; Read OSTC Serial Number
|
|
631
|
119 ;
|
|
|
120 global eeprom_serial_number_read
|
|
|
121 eeprom_serial_number_read:
|
|
634
|
122 EEPROM_II_READ eeprom_ostc_serial,mpr ; read serial number
|
|
|
123 return ; done
|
|
|
124
|
|
604
|
125
|
|
631
|
126 ;-----------------------------------------------------------------------------
|
|
634
|
127 ; Read and Write Dive Number Offset
|
|
631
|
128 ;
|
|
|
129 global eeprom_log_offset_read
|
|
|
130 eeprom_log_offset_read:
|
|
634
|
131 EEPROM_II_READ eeprom_log_offset,mpr ; read log offset
|
|
|
132 return ; done
|
|
631
|
133
|
|
|
134 global eeprom_log_offset_write
|
|
|
135 eeprom_log_offset_write:
|
|
634
|
136 EEPROM_II_WRITE mpr,eeprom_log_offset ; write log-offset
|
|
|
137 return ; done
|
|
631
|
138
|
|
|
139
|
|
|
140 ;-----------------------------------------------------------------------------
|
|
634
|
141 ; Read and Write total Number of Dives
|
|
631
|
142 ;
|
|
|
143 global eeprom_total_dives_read
|
|
|
144 eeprom_total_dives_read:
|
|
634
|
145 EEPROM_II_READ eeprom_num_dives,mpr ; read total dives
|
|
|
146 return ; done
|
|
631
|
147
|
|
|
148 global eeprom_total_dives_write
|
|
|
149 eeprom_total_dives_write:
|
|
634
|
150 EEPROM_II_WRITE mpr,eeprom_num_dives ; write total dives
|
|
|
151 return ; done
|
|
604
|
152
|
|
631
|
153
|
|
|
154 ;-----------------------------------------------------------------------------
|
|
634
|
155 ; Read and Write the Battery Type and Gauge Reading
|
|
631
|
156 ;
|
|
|
157 global eeprom_battery_gauge_read
|
|
|
158 eeprom_battery_gauge_read:
|
|
|
159 ; retrieve battery gauge from EEPROM 0x07-0x0C
|
|
|
160 bsf block_battery_gauge ; suspend ISR from accessing the battery gauge
|
|
|
161 EEPROM_CC_READ eeprom_battery_type, battery_type ; 1 byte read from EEPROM
|
|
|
162 EEPROM_RR_READ eeprom_battery_gauge,battery_gauge,.6 ; 6 byte read from EEPROM
|
|
|
163 bcf block_battery_gauge ; allow ISR to access the battery gauge again
|
|
634
|
164 return ; done
|
|
631
|
165
|
|
|
166 global eeprom_battery_gauge_write
|
|
|
167 eeprom_battery_gauge_write:
|
|
|
168 bsf block_battery_gauge ; suspend ISR from accessing the battery gauge
|
|
|
169 EEPROM_CC_WRITE battery_type, eeprom_battery_type ; 1 byte write to EEPROM
|
|
|
170 update_battery_gauge:
|
|
|
171 EEPROM_RR_WRITE battery_gauge,eeprom_battery_gauge,.6 ; 6 byte write to EEPROM
|
|
|
172 bcf block_battery_gauge ; allow ISR to access the battery gauge again
|
|
634
|
173 return ; done
|
|
631
|
174
|
|
|
175
|
|
|
176 ;-----------------------------------------------------------------------------
|
|
634
|
177 ; Memorize the Checksum of the Firmware in the update Storage
|
|
|
178 ;
|
|
|
179 global eeprom_memorize_fw_checksum
|
|
|
180 eeprom_memorize_fw_checksum:
|
|
|
181 EXT_FLASH_ADDR 0x3E000D ; address firmware ID at 0x3E000D
|
|
|
182 FLASH_CW_READ_0x40 ; read firmware ID to WREG
|
|
|
183 movff WREG,buffer+.5 ; append firmware ID to checksum
|
|
|
184 EEPROM_RR_WRITE buffer,eeprom_fw_chksum_current,.6 ; do a 6 byte write to EEPROM
|
|
|
185 return ; done
|
|
|
186
|
|
|
187
|
|
|
188 ;-----------------------------------------------------------------------------
|
|
|
189 ; Read and Write the Deco Status
|
|
631
|
190 ;
|
|
|
191 global eeprom_deco_data_read
|
|
|
192 eeprom_deco_data_read:
|
|
|
193
|
|
634
|
194 btfsc RCON,POR ; was there a power outage?
|
|
631
|
195 bra eeprom_deco_data_read_1 ; NO - RTC is up-to-date
|
|
|
196
|
|
|
197 EEPROM_RR_READ eeprom_deco_data_timestamp,rtc_latched_year,.6 ; 6 byte read from EEPROM
|
|
|
198 call rtc_set_rtc ; recover RTC to last known time & date
|
|
|
199
|
|
|
200 eeprom_deco_data_read_1:
|
|
|
201
|
|
|
202 ; restore surface interval
|
|
|
203 EEPROM_II_READ eeprom_deco_data_surfinterval,mpr ; 2 byte read from EEPROM
|
|
|
204 SMOVII mpr,surface_interval_mins ; ISR-safe copy of surface interval
|
|
|
205
|
|
|
206 ; bank 3: restore desaturation status
|
|
|
207 EEPROM_RR_READ eeprom_deco_data_bank3,0x300,.9 ; 9 byte read from EEPROM
|
|
|
208
|
|
|
209 ; bank 5: restore CNS
|
|
|
210 EEPROM_RR_READ eeprom_deco_data_bank5,0x500,.4 ; 4 byte read from EEPROM
|
|
|
211
|
|
|
212 ; bank 7: restore tissue pressures
|
|
|
213 EEPROM_RR_READ eeprom_deco_data_bank7,0x700,.128 ; 128 byte read from EEPROM
|
|
|
214
|
|
|
215 return ; done
|
|
|
216
|
|
|
217
|
|
|
218 global eeprom_deco_data_write
|
|
|
219 eeprom_deco_data_write:
|
|
|
220
|
|
|
221 ; invalidate current data in vault
|
|
|
222 movlw DECO_DATA_INVALID_TOKEN ; deco data invalid token
|
|
|
223 EEPROM_CC_WRITE WREG,eeprom_deco_data_validity ; 1 byte write to EEPROM
|
|
|
224
|
|
|
225 ; store vault version
|
|
|
226 movlw eeprom_vault_version ; deco data format version
|
|
|
227 EEPROM_CC_WRITE WREG,eeprom_deco_data_version ; 1 byte write to EEPROM
|
|
|
228
|
|
|
229 ; store date/time
|
|
|
230 SMOVSS rtc_year,rtc_latched_year ; ISR-safe 6 byte copy of date and time
|
|
|
231 EEPROM_RR_WRITE rtc_latched_year,eeprom_deco_data_timestamp,.6 ; 6 byte write to EEPROM
|
|
|
232
|
|
|
233 ; store surface interval
|
|
|
234 SMOVII surface_interval_mins,mpr ; ISR-safe copy of surface interval
|
|
|
235 EEPROM_II_WRITE mpr,eeprom_deco_data_surfinterval ; 2 byte write to EEPROM
|
|
|
236
|
|
|
237 ; bank 3: store desaturation status
|
|
|
238 EEPROM_RR_WRITE 0x300,eeprom_deco_data_bank3,.9 ; 9 byte write to EEPROM
|
|
|
239
|
|
|
240 ; bank 5: store CNS
|
|
|
241 EEPROM_RR_WRITE 0x500,eeprom_deco_data_bank5,.4 ; 4 byte write to EEPROM
|
|
|
242
|
|
|
243 ; bank 7: store tissue pressures
|
|
|
244 EEPROM_RR_WRITE 0x700,eeprom_deco_data_bank7,.128 ; 128 byte write to EEPROM
|
|
|
245
|
|
|
246 ; indicate new valid data in vault
|
|
|
247 movlw DECO_DATA_VALID_TOKEN ; deco data valid token
|
|
|
248 EEPROM_CC_WRITE WREG,eeprom_deco_data_validity ; 1 byte write to EEPROM
|
|
|
249
|
|
|
250 return ; done
|
|
|
251
|
|
|
252
|
|
|
253 ;=============================================================================
|
|
634
|
254 rs232 CODE
|
|
623
|
255 ;=============================================================================
|
|
|
256
|
|
634
|
257 ;-----------------------------------------------------------------------------
|
|
|
258 ;
|
|
|
259 ; RS232 Functions
|
|
|
260 ;
|
|
|
261 ;-----------------------------------------------------------------------------
|
|
0
|
262
|
|
|
263
|
|
634
|
264 ;-----------------------------------------------------------------------------
|
|
|
265 ; Switch-On the IR/S8 Port
|
|
|
266 ;
|
|
|
267 global enable_ir_s8_analog
|
|
|
268 enable_ir_s8_analog:
|
|
623
|
269 ;initialize serial port2 (TRISG2)
|
|
634
|
270 btfsc ext_input_s8_ana ; do we have an S8/analog input?
|
|
|
271 bra enable_s8_analog ; YES - enable S8/analog input
|
|
|
272 ;bra enable_ir ; NO - enable IR digital input
|
|
0
|
273
|
|
634
|
274 enable_ir:
|
|
|
275 banksel BAUDCON2 ; select bank for IO register access
|
|
|
276 movlw b'00100000' ; speed generator configuration: BRG16=0, inverted for IR
|
|
|
277 movwf BAUDCON2 ; ...
|
|
|
278 movlw b'00100000' ; TX configuration: BRGH=0, SYNC=0
|
|
|
279 movwf TXSTA2 ; ...
|
|
|
280 movlw .102 ; speed configuration: SPBRGH:SPBRG = .102 : 2403 BAUD @ 16 MHz
|
|
|
281 movwf SPBRG2 ; ...
|
|
|
282 clrf SPBRGH2 ; ...
|
|
|
283 movlw b'10010000' ; RX configuration
|
|
|
284 movwf RCSTA2 ; ...
|
|
|
285 banksel common ; back to bank common
|
|
|
286 bsf ir_power ; power-up IR
|
|
|
287 btfss ir_power ; power-up confirmed?
|
|
|
288 bra $-6 ; NO - loop and wait
|
|
|
289 bsf PIE3,RC2IE ; enable RC2 INT
|
|
|
290 return ; done
|
|
|
291
|
|
|
292 enable_s8_analog:
|
|
629
|
293 banksel TXSTA2 ; select bank for IO register access
|
|
631
|
294 clrf TXSTA2 ; reset UART 2 TX function
|
|
|
295 clrf RCSTA2 ; reset UART 2 RX function
|
|
623
|
296 banksel common ; back to bank common
|
|
631
|
297
|
|
634
|
298 bsf mcp_power ; power-up instrumentation amp (used by S8 and analog input)
|
|
631
|
299 btfss mcp_power ; power-up completed?
|
|
|
300 bra $-4 ; NO - loop
|
|
113
|
301
|
|
634
|
302 ; branch according to S8 / analog selection
|
|
631
|
303 TSTOSS opt_s8_mode ; =0: analog, =1: digital RS232
|
|
634
|
304 bra enable_analog ; -> analog
|
|
631
|
305
|
|
|
306 ; configure S8 digital interface
|
|
|
307 bcf s8_npower ; power S8 HUD (inverted via P-MOS transistor)
|
|
623
|
308 WAITMS d'30' ; NO - wait 30 ms
|
|
631
|
309 banksel BAUDCON2 ; select bank for IO register access
|
|
634
|
310 movlw b'00000000' ; speed generator configuration: BRG16=0, normal for S8
|
|
|
311 movwf BAUDCON2 ; ...
|
|
|
312 movlw b'00100000' ; TX configuration: BRGH=0, SYNC=0
|
|
|
313 movwf TXSTA2 ; ...
|
|
|
314 movlw .25 ; speed configuration: SPBRGH:SPBRG = .25 : 9615 BAUD @ 16 MHz
|
|
|
315 movwf SPBRG2 ; ...
|
|
|
316 movlw b'10010000' ; RX configuration
|
|
|
317 movwf RCSTA2 ; ...
|
|
623
|
318 banksel common ; back to bank common
|
|
631
|
319 bsf PIE3,RC2IE ; enable RC2 INT
|
|
582
|
320 return
|
|
113
|
321
|
|
634
|
322 enable_analog:
|
|
631
|
323 ; S8 analog interface
|
|
|
324 bcf PIE3,RC2IE ; disable RC2 INT
|
|
634
|
325 bsf s8_npower ; power-down S8 digital interface
|
|
|
326 return ; done
|
|
631
|
327
|
|
|
328
|
|
634
|
329 ;-----------------------------------------------------------------------------
|
|
|
330 ; Shut-Down the IR/S8 Port
|
|
|
331 ;
|
|
|
332 global disable_ir_s8_analog
|
|
|
333 disable_ir_s8_analog:
|
|
631
|
334 banksel TXSTA2 ; select bank for IO register access
|
|
634
|
335 clrf TXSTA2 ; shut down TX function
|
|
|
336 clrf RCSTA2 ; shut down RX function
|
|
|
337 banksel common ; back to bank common
|
|
|
338 bcf PIE3,RC2IE ; disable RC2 INT
|
|
|
339 bcf ir_power ; power down IR receiver
|
|
|
340 bcf mcp_power ; power-down instrumentation amp
|
|
|
341 bsf s8_npower ; power-down S8 digital interface
|
|
|
342 return ; done
|
|
|
343
|
|
|
344
|
|
|
345 ;-----------------------------------------------------------------------------
|
|
|
346 ; Send Byte in WREG via the IR/S8 Port
|
|
|
347 ;
|
|
|
348 global ir_s8_tx_single
|
|
|
349 ir_s8_tx_single:
|
|
|
350 banksel TXSTA2 ; UART 2 is outside of the access RAM
|
|
|
351 movwf TXREG2 ; transmit byte
|
|
|
352 ir_s8_tx_single_loop:
|
|
|
353 btfss TXSTA2,TRMT ; TX completed?
|
|
|
354 bra ir_s8_tx_single_loop ; NO - wait...
|
|
|
355 banksel common ; YES - back to bank common
|
|
631
|
356 return ; - done
|
|
|
357
|
|
634
|
358
|
|
631
|
359 ;-----------------------------------------------------------------------------
|
|
634
|
360 ; Switch-On USB/BT Port
|
|
|
361 ;
|
|
0
|
362 global enable_rs232
|
|
|
363 enable_rs232:
|
|
623
|
364 call request_speed_normal ; request CPU speed change to normal speed
|
|
|
365 enable_rs232_1:
|
|
|
366 btfss speed_is_normal ; speed = normal?
|
|
631
|
367 bra enable_rs232_1 ; NO - loop waiting for ISR to have adjusted the speed
|
|
640
|
368 bsf TRISC,7
|
|
631
|
369 bcf PORTE,0 ; YES - switch port to comm
|
|
|
370 bsf PORTJ,2 ; - /Reset (required for very old OSTC sport)
|
|
|
371 movlw b'00100100' ; - TX configuration: TX enabled, async, high speed
|
|
|
372 movwf TXSTA1 ; - ...
|
|
|
373 movlw b'10010000' ; - RX configuration: port enabled, RX enabled
|
|
|
374 movwf RCSTA1 ; - ...
|
|
634
|
375 IFNDEF _comm_debug
|
|
|
376 movlw HIGH(.65536-rx_timeout*.32) ; - define TMR5H initialization value for RX timeout (rx_timeout defined in hwos.inc)
|
|
|
377 ELSE
|
|
|
378 include "math.inc"
|
|
|
379 movff opt_comm_timeout,xA+0 ; - get timeout setting in multiples of 10 ms (opt_comm_timeout: 10 .. 200 x 10 ms)
|
|
|
380 clrf xA+1 ; - ...
|
|
|
381 MOVLI .320,xB ; - multiply with 10 to get timeout in ms and 32 because tmr5 ticks 32x per ms
|
|
|
382 call mult16x16 ; - xC = xA * xB = timer ticks to go until timeout
|
|
|
383 MOVII xC,sub_b ; - multiplication result is max. 64000
|
|
|
384 MOVLI .65535,sub_a ; - timer wraps around after 65535
|
|
|
385 call subU16 ; - sub_c = sub_a - sub_b = start value for timer
|
|
|
386
|
|
|
387 movlw .244 ; safety maximum value for rx_timeout_tmr5h_load (minimum timeout interval)
|
|
|
388 cpfslt sub_c+1 ; result > safety value?
|
|
|
389 movwf sub_c+1 ; YES - revert to safety value
|
|
|
390
|
|
|
391 movf sub_c+1,W ; - keep only the upper byte as TMR5H initialization value for RX timeout
|
|
|
392 ENDIF
|
|
|
393 movwf rx_timeout_tmr5h_load ; - store for later use
|
|
631
|
394 return ; - done
|
|
0
|
395
|
|
582
|
396
|
|
634
|
397 ;-----------------------------------------------------------------------------
|
|
|
398 ; Shut-Down USB/BT Port
|
|
|
399 ;
|
|
0
|
400 global disable_rs232
|
|
|
401 disable_rs232:
|
|
631
|
402 clrf RCSTA1 ; disable RX
|
|
|
403 clrf TXSTA1 ; disable TX
|
|
|
404 bcf PORTC,6 ; switch TX pin hard to GND
|
|
634
|
405 bsf PORTE,0 ; power down BT chip
|
|
631
|
406 bcf PORTJ,2 ; /Reset (required for very old OSTC sport)
|
|
640
|
407 bcf TRISC,7
|
|
|
408 bcf PORTC,7 ; switch RX pin hard to GND
|
|
582
|
409 return
|
|
|
410
|
|
|
411
|
|
634
|
412 ;-----------------------------------------------------------------------------
|
|
|
413 ; Wait for last Byte to be sent out of USB/BT Port
|
|
|
414 ;
|
|
631
|
415 global rs232_wait_tx ; ++++ do not touch WREG here! ++++
|
|
|
416 rs232_wait_tx:
|
|
|
417 btfss TXSTA1,TRMT ; last byte completely shifted out on TX pin?
|
|
|
418 bra rs232_wait_tx ; NO - wait...
|
|
|
419 btfss ble_available ; YES - OSTC running with Bluetooth?
|
|
|
420 return ; NO - done
|
|
|
421 btfsc NRTS ; YES - Bluetooth module also completed TX?
|
|
|
422 bra rs232_wait_tx ; NO - wait...
|
|
|
423 return ; YES - done
|
|
623
|
424
|
|
|
425
|
|
634
|
426 ;-----------------------------------------------------------------------------
|
|
|
427 ; Receive one Byte via the USB/BT Port
|
|
|
428 ;
|
|
|
429 ; ++++ make this code as fast as possible! ++++
|
|
|
430 ; ++++ do not touch WREG here! ++++
|
|
|
431 ;
|
|
|
432 global serial_rx_single
|
|
|
433 serial_rx_single:
|
|
631
|
434 bcf rs232_rx_timeout ; clear timeout flag
|
|
634
|
435 btfsc PIR1,RCIF ; received a data byte? (bit is set on RX completion and reset on reading RCREG1)
|
|
|
436 return ; YES - done (fast path)
|
|
|
437 movff rx_timeout_tmr5h_load,TMR5H ; NO - load TMR5 high with timeout value
|
|
631
|
438 clrf TMR5L ; - load TMR5 low with a zero, writing low starts the timer
|
|
|
439 bcf PIR5,TMR5IF ; - clear timer overflow flag
|
|
634
|
440 serial_rx_single_loop:
|
|
631
|
441 btfsc PIR1,RCIF ; received a data byte?
|
|
634
|
442 return ; YES - done
|
|
631
|
443 btfss PIR5,TMR5IF ; NO - timer overflow (timeout)?
|
|
634
|
444 bra serial_rx_single_loop ; NO - continue waiting
|
|
|
445 ;bra serial_rx_timeout ; YES - timeout
|
|
623
|
446
|
|
582
|
447
|
|
631
|
448 ;-----------------------------------------------------------------------------
|
|
634
|
449 ; Helper Function: Timeout in serial_rx_single / serial_tx_steam
|
|
|
450 ;
|
|
|
451 serial_rx_timeout:
|
|
|
452 bsf rs232_rx_timeout ; set timeout flag
|
|
|
453 bcf RCSTA1,CREN ; clear receiver status: disable RX,
|
|
|
454 bsf RCSTA1,CREN ; ... enable again RX
|
|
|
455 return ; done
|
|
|
456
|
|
623
|
457
|
|
634
|
458 ;-----------------------------------------------------------------------------
|
|
|
459 ; Send and Receive Functions to be used via Macros
|
|
|
460 ;-----------------------------------------------------------------------------
|
|
|
461
|
|
|
462 ;-----------------------------------------------------------------------------
|
|
|
463 ; Send a Range of 1-256 Bytes from Memory via the USB/BT Port
|
|
631
|
464 ;
|
|
634
|
465 global serial_tx_steam
|
|
|
466 serial_tx_steam:
|
|
631
|
467 movwf eeprom_loop ; initialize loop counter (eeprom variable used here)
|
|
|
468 serial_tx_ram_loop:
|
|
|
469 rcall rs232_wait_tx ; wait for completion of last transmit
|
|
|
470 movff POSTINC2,TXREG1 ; send a byte from memory to serial
|
|
|
471 decfsz eeprom_loop,F ; decrement loop counter, became zero?
|
|
|
472 bra serial_tx_ram_loop ; NO - loop
|
|
|
473 return ; YES - done
|
|
582
|
474
|
|
623
|
475
|
|
634
|
476 ;-----------------------------------------------------------------------------
|
|
|
477 ; Receive a Range of 1-256 Byte via the USB/BT Port and write them to Memory
|
|
|
478 ; ++++ make this code as fast as possible! ++++
|
|
631
|
479 ;
|
|
634
|
480 global serial_rx_stream
|
|
|
481 serial_rx_stream:
|
|
631
|
482 movwf eeprom_loop ; initialize loop counter (eeprom variable used here)
|
|
634
|
483 serial_rx_stream_loop:
|
|
631
|
484 btfss PIR1,RCIF ; received a data byte? (bit is set on RX complete and reset on reading RCREG1)
|
|
634
|
485 bra serial_rx_stream_tmr ; NO - enter receive loop with timeout
|
|
|
486 ;bra serial_rx_stream_received ; YES - copy to memory, tick counter, ...
|
|
|
487
|
|
|
488 serial_rx_stream_received:
|
|
|
489 movff RCREG1,POSTINC2 ; copy received byte to memory
|
|
|
490 decfsz eeprom_loop,F ; decrement loop counter, became zero?
|
|
|
491 bra serial_rx_stream_loop ; NO - await next byte
|
|
|
492 bcf rs232_rx_timeout ; YES - clear timeout flag
|
|
|
493 return ; - all bytes received, done
|
|
|
494
|
|
|
495 serial_rx_stream_tmr:
|
|
|
496 movff rx_timeout_tmr5h_load,TMR5H ; load TMR5 high with timeout value
|
|
|
497 clrf TMR5L ; load TMR5 low with a zero, writing to low starts the timer
|
|
631
|
498 bcf PIR5,TMR5IF ; clear timer overflow flag
|
|
634
|
499 serial_rx_stream_tmr_loop:
|
|
|
500 btfsc PIR1,RCIF ; received a data byte? (bit is set on RX complete and reset on reading RCREG1)
|
|
|
501 bra serial_rx_stream_received ; YES - copy to memory, tick counter, ...
|
|
|
502 btfss PIR5,TMR5IF ; NO - timer overflow (timeout)?
|
|
|
503 bra serial_rx_stream_tmr_loop ; NO - continue waiting
|
|
|
504 bra serial_rx_timeout ; YES - timeout
|
|
623
|
505
|
|
631
|
506 ;-----------------------------------------------------------------------------
|
|
634
|
507
|
|
648
|
508 ;-----------------------------------------------------------------------------
|
|
|
509 ; Add new services and characteristics to new BLE (type 2) module
|
|
|
510 ;-----------------------------------------------------------------------------
|
|
|
511 global ble2_configure
|
|
|
512 ble2_configure:
|
|
|
513 rcall enable_rs232
|
|
|
514 bcf NCTS ; Clear to send
|
|
|
515 call wait_1s
|
|
|
516 call wait_1s
|
|
650
|
517 call wait_1s
|
|
|
518 call wait_1s
|
|
648
|
519 bcf PORTB,6
|
|
650
|
520 nop
|
|
648
|
521 bsf PORTB,6 ; rising edge -> Command mode
|
|
|
522
|
|
|
523 ; point to config table
|
|
|
524 movlw LOW ble_AT1
|
|
|
525 movwf TBLPTRL
|
|
|
526 movlw HIGH ble_AT1
|
|
|
527 movwf TBLPTRH
|
|
|
528 movlw UPPER ble_AT1
|
|
|
529 movwf TBLPTRU
|
|
|
530 rcall ble_init_loop
|
|
|
531
|
|
|
532 rcall disable_rs232
|
|
|
533 bcf PORTB,6 ; keep low for min. current consumption
|
|
|
534 return ; done.
|
|
|
535
|
|
|
536 ble_init_loop:
|
|
|
537 TBLRD*+
|
|
|
538 movlw 0xFF ; end
|
|
|
539 cpfseq TABLAT
|
|
|
540 bra ble_init_loop1 ; not end
|
|
|
541 ; quit (return)
|
|
|
542 return ; done.
|
|
|
543 ble_init_loop1:
|
|
|
544 movlw 0xFE ; WAIT 20ms
|
|
|
545 cpfseq TABLAT
|
|
|
546 bra ble_init_loop2 ; not wait 20ms
|
|
|
547 WAITMS d'20'
|
|
|
548 bra ble_init_loop
|
|
|
549 ble_init_loop2:
|
|
|
550 movlw 0xFD ; WAIT 1s
|
|
|
551 cpfseq TABLAT
|
|
|
552 bra ble_init_loop3 ; not wait 1s
|
|
|
553 call wait_1s
|
|
|
554 bra ble_init_loop
|
|
|
555 ble_init_loop3:
|
|
|
556 movf TABLAT,W
|
|
|
557 SERIAL_CC_SEND WREG
|
|
|
558 bra ble_init_loop
|
|
|
559
|
|
|
560 ble_AT1: ; config table
|
|
|
561 ; 0xFF at the end
|
|
|
562 ; 0xFE: 20ms delay
|
|
|
563 ; 0xFD: 1s delay
|
|
|
564 ; .13: cr character
|
|
650
|
565 db 0xFD,0xFD,0xFD,0xFD ; Wait 4 seconds
|
|
648
|
566 db "AT+UDSC=0,0",.13,0xFE,0xFE ; Disable SPP Server on ID0 (and wait 40ms)
|
|
|
567 db "AT+UDSC=0,3",.13,0xFE,0xFE ; SPP Server on ID0 (and wait 40ms)
|
|
|
568 db "AT+UDSC=1,0",.13,0xFE,0xFE ; Disable SPS Server on ID1 (and wait 40ms)
|
|
|
569 db "AT+UDSC=1,6",.13,0xFE,0xFE ; SPS Server on ID1 (and wait 40ms)
|
|
|
570 db "AT&W",.13,0xFE ; write settings into eeprom (and wait 20ms)
|
|
|
571 db "AT+CPWROFF",.13,0xFD,0xFD,0xFF ; save and reboot (and wait 2 seconds)
|
|
|
572
|
|
|
573
|
|
582
|
574 END
|
