hwos_code: src/comm.asm annotate

annotate src/comm.asm @ 198:c511dc403d7e

(Slightly) reduce current consumption in Eco and sleep mode

author	heinrichsweikamp
date	Mon, 10 Nov 2014 13:54:20 +0100
parents	95d05cc14736
children	dcd513840c6c

rev	line source
0 11d4fc797f74 init heinrichsweikamp parents: diff changeset	1 ;=============================================================================
11d4fc797f74 init heinrichsweikamp parents: diff changeset	2 ;
11d4fc797f74 init heinrichsweikamp parents: diff changeset	3 ; File comm.asm
11d4fc797f74 init heinrichsweikamp parents: diff changeset	4 ;
11d4fc797f74 init heinrichsweikamp parents: diff changeset	5 ; RS232 via USB
11d4fc797f74 init heinrichsweikamp parents: diff changeset	6 ;
11d4fc797f74 init heinrichsweikamp parents: diff changeset	7 ; Copyright (c) 2012, JD Gascuel, HeinrichsWeikamp, all right reserved.
11d4fc797f74 init heinrichsweikamp parents: diff changeset	8 ;=============================================================================
11d4fc797f74 init heinrichsweikamp parents: diff changeset	9 ; HISTORY
11d4fc797f74 init heinrichsweikamp parents: diff changeset	10 ; 2011-08-22 : [mH] Creation
11d4fc797f74 init heinrichsweikamp parents: diff changeset	11 ; 2012-02-11 : [jDG] Added "c" set custom text, and "i" identify.
11d4fc797f74 init heinrichsweikamp parents: diff changeset	12
11d4fc797f74 init heinrichsweikamp parents: diff changeset	13 #include "ostc3.inc"
11d4fc797f74 init heinrichsweikamp parents: diff changeset	14 #include "eeprom_rs232.inc"
11d4fc797f74 init heinrichsweikamp parents: diff changeset	15 #include "tft.inc"
11d4fc797f74 init heinrichsweikamp parents: diff changeset	16 #include "wait.inc"
11d4fc797f74 init heinrichsweikamp parents: diff changeset	17 #include "strings.inc"
11d4fc797f74 init heinrichsweikamp parents: diff changeset	18 #include "convert.inc"
11d4fc797f74 init heinrichsweikamp parents: diff changeset	19 #include "external_flash.inc"
11d4fc797f74 init heinrichsweikamp parents: diff changeset	20 #include "tft_outputs.inc"
11d4fc797f74 init heinrichsweikamp parents: diff changeset	21 #include "surfmode.inc"
11d4fc797f74 init heinrichsweikamp parents: diff changeset	22 #include "rtc.inc"
11d4fc797f74 init heinrichsweikamp parents: diff changeset	23 #include "adc_lightsensor.inc"
11d4fc797f74 init heinrichsweikamp parents: diff changeset	24
147 fdd4e30846ae some cleanup heinrichsweikamp parents: 136 diff changeset	25 extern new_battery_menu,restart,option_reset_all
97 53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases heinrichsweikamp parents: 92 diff changeset	26 extern char_I_dil_change, char_I_setpoint_cbar, char_I_setpoint_change
79 0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	27 extern char_I_deco_model, char_I_extra_time, char_I_saturation_multiplier, char_I_desaturation_multiplier
81 8e13866b5496 add some extra safety checks when settings were altered from the PC software mh@mh-THINK.localdomain parents: 80 diff changeset	28 extern option_check_all, gaslist_cleanup_list, get_first_gas_to_WREG, get_first_dil_to_WREG
162 95d05cc14736 NEW: Safe tissue data, date and time during firmware update heinrichsweikamp parents: 159 diff changeset	29 extern vault_decodata_into_eeprom
0 11d4fc797f74 init heinrichsweikamp parents: diff changeset	30
11d4fc797f74 init heinrichsweikamp parents: diff changeset	31 #DEFINE timeout_comm_pre_mode .120 ; Pre-loop
11d4fc797f74 init heinrichsweikamp parents: diff changeset	32 #DEFINE timeout_comm_mode .120 ; Download mode
11d4fc797f74 init heinrichsweikamp parents: diff changeset	33 #DEFINE timeout_service_mode .120 ; Service mode
11d4fc797f74 init heinrichsweikamp parents: diff changeset	34
11d4fc797f74 init heinrichsweikamp parents: diff changeset	35 #DEFINE comm_title_row .0
11d4fc797f74 init heinrichsweikamp parents: diff changeset	36 #DEFINE comm_title_column .50
11d4fc797f74 init heinrichsweikamp parents: diff changeset	37
11d4fc797f74 init heinrichsweikamp parents: diff changeset	38 #DEFINE comm_string_row .30
11d4fc797f74 init heinrichsweikamp parents: diff changeset	39 #DEFINE comm_string_column .40
11d4fc797f74 init heinrichsweikamp parents: diff changeset	40
11d4fc797f74 init heinrichsweikamp parents: diff changeset	41
11d4fc797f74 init heinrichsweikamp parents: diff changeset	42 #DEFINE comm_status1_row .70
11d4fc797f74 init heinrichsweikamp parents: diff changeset	43 #DEFINE comm_status1_column .10
11d4fc797f74 init heinrichsweikamp parents: diff changeset	44 #DEFINE comm_status2_row .100
11d4fc797f74 init heinrichsweikamp parents: diff changeset	45 #DEFINE comm_status2_column comm_status1_column
11d4fc797f74 init heinrichsweikamp parents: diff changeset	46 #DEFINE comm_status3_row .130
11d4fc797f74 init heinrichsweikamp parents: diff changeset	47 #DEFINE comm_status3_column comm_status1_column
11d4fc797f74 init heinrichsweikamp parents: diff changeset	48
11d4fc797f74 init heinrichsweikamp parents: diff changeset	49 #DEFINE comm_warning_row .160
11d4fc797f74 init heinrichsweikamp parents: diff changeset	50 #DEFINE comm_warning_column .65
11d4fc797f74 init heinrichsweikamp parents: diff changeset	51
11d4fc797f74 init heinrichsweikamp parents: diff changeset	52 comm code
11d4fc797f74 init heinrichsweikamp parents: diff changeset	53
11d4fc797f74 init heinrichsweikamp parents: diff changeset	54 ; test for comm
11d4fc797f74 init heinrichsweikamp parents: diff changeset	55 global comm_mode
11d4fc797f74 init heinrichsweikamp parents: diff changeset	56 comm_mode:
113 f3062a611eef Merge heinrichsweikamp parents: 110 diff changeset	57 WAITMS d'1'
f3062a611eef Merge heinrichsweikamp parents: 110 diff changeset	58 btfss vusb_in ; USB plugged in?
f3062a611eef Merge heinrichsweikamp parents: 110 diff changeset	59 return ; No, it was only a glitch
f3062a611eef Merge heinrichsweikamp parents: 110 diff changeset	60 WAITMS d'1'
f3062a611eef Merge heinrichsweikamp parents: 110 diff changeset	61 btfss vusb_in ; USB plugged in?
f3062a611eef Merge heinrichsweikamp parents: 110 diff changeset	62 return ; No, it was only a glitch
f3062a611eef Merge heinrichsweikamp parents: 110 diff changeset	63
0 11d4fc797f74 init heinrichsweikamp parents: diff changeset	64 call TFT_ClearScreen
11d4fc797f74 init heinrichsweikamp parents: diff changeset	65 WIN_COLOR color_greenish
11d4fc797f74 init heinrichsweikamp parents: diff changeset	66 WIN_SMALL comm_title_column, comm_title_row
11d4fc797f74 init heinrichsweikamp parents: diff changeset	67 STRCPY_TEXT_PRINT tUsbTitle ; comm Mode
11d4fc797f74 init heinrichsweikamp parents: diff changeset	68 call TFT_standard_color
11d4fc797f74 init heinrichsweikamp parents: diff changeset	69 WIN_TOP .10
11d4fc797f74 init heinrichsweikamp parents: diff changeset	70 WIN_LEFT .1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	71 movlw 0xDE
11d4fc797f74 init heinrichsweikamp parents: diff changeset	72 movwf TBLPTRL
11d4fc797f74 init heinrichsweikamp parents: diff changeset	73 movlw 0xEE
11d4fc797f74 init heinrichsweikamp parents: diff changeset	74 movwf TBLPTRH
11d4fc797f74 init heinrichsweikamp parents: diff changeset	75 movlw 0x01
11d4fc797f74 init heinrichsweikamp parents: diff changeset	76 movwf TBLPTRU
11d4fc797f74 init heinrichsweikamp parents: diff changeset	77 call color_image ; Show usb logo
11d4fc797f74 init heinrichsweikamp parents: diff changeset	78 WIN_SMALL comm_status1_column, comm_status1_row
11d4fc797f74 init heinrichsweikamp parents: diff changeset	79 STRCPY_TEXT_PRINT tUsbStarting ; Starting...
11d4fc797f74 init heinrichsweikamp parents: diff changeset	80 call TFT_serial ; Show serial and firmware version
11d4fc797f74 init heinrichsweikamp parents: diff changeset	81 bcf enable_screen_dumps ; =1: Ignore vin_usb, wait for "l" command (Screen dump)
11d4fc797f74 init heinrichsweikamp parents: diff changeset	82 bcf switch_right
11d4fc797f74 init heinrichsweikamp parents: diff changeset	83 bcf comm_service_enabled
11d4fc797f74 init heinrichsweikamp parents: diff changeset	84 bsf menubit
11d4fc797f74 init heinrichsweikamp parents: diff changeset	85 bcf battery_removed_in_usb ; =1: The battery has been removed in USB
11d4fc797f74 init heinrichsweikamp parents: diff changeset	86 movlw timeout_comm_pre_mode
11d4fc797f74 init heinrichsweikamp parents: diff changeset	87 movwf timeout_counter
11d4fc797f74 init heinrichsweikamp parents: diff changeset	88 WIN_SMALL comm_status1_column+.80, comm_status1_row
11d4fc797f74 init heinrichsweikamp parents: diff changeset	89 STRCPY_TEXT_PRINT tUsbStartDone ; Done...
11d4fc797f74 init heinrichsweikamp parents: diff changeset	90 call enable_rs232 ; Also sets to speed_normal ...
11d4fc797f74 init heinrichsweikamp parents: diff changeset	91 comm_mode1:
11d4fc797f74 init heinrichsweikamp parents: diff changeset	92 bcf onesecupdate
11d4fc797f74 init heinrichsweikamp parents: diff changeset	93 bcf LEDr
11d4fc797f74 init heinrichsweikamp parents: diff changeset	94 dcfsnz timeout_counter,F
11d4fc797f74 init heinrichsweikamp parents: diff changeset	95 bra comm_service_exit ; Timeout -> Exit
11d4fc797f74 init heinrichsweikamp parents: diff changeset	96 comm_mode2:
150 074b1a9ded7b 1.51beta start heinrichsweikamp parents: 147 diff changeset	97 btfsc c3_hardware
074b1a9ded7b 1.51beta start heinrichsweikamp parents: 147 diff changeset	98 bra comm_mode4 ; Skip
074b1a9ded7b 1.51beta start heinrichsweikamp parents: 147 diff changeset	99
0 11d4fc797f74 init heinrichsweikamp parents: diff changeset	100 call get_battery_voltage ; gets battery voltage
11d4fc797f74 init heinrichsweikamp parents: diff changeset	101 movlw .3
11d4fc797f74 init heinrichsweikamp parents: diff changeset	102 cpfslt batt_voltage+1 ; Batt Voltage less then 3*256mV?
11d4fc797f74 init heinrichsweikamp parents: diff changeset	103 bra comm_mode3 ; No
11d4fc797f74 init heinrichsweikamp parents: diff changeset	104 ; Set flag
11d4fc797f74 init heinrichsweikamp parents: diff changeset	105 bsf battery_removed_in_usb ; =1: The battery has been removed in USB
11d4fc797f74 init heinrichsweikamp parents: diff changeset	106 bra comm_mode4
11d4fc797f74 init heinrichsweikamp parents: diff changeset	107
11d4fc797f74 init heinrichsweikamp parents: diff changeset	108 comm_mode3:
11d4fc797f74 init heinrichsweikamp parents: diff changeset	109 ; Voltage ok. Do we have a new battery now?
11d4fc797f74 init heinrichsweikamp parents: diff changeset	110 btfsc battery_removed_in_usb ; =1: The battery has been removed in USB
11d4fc797f74 init heinrichsweikamp parents: diff changeset	111 goto new_battery_menu ; show "New battery dialog"
11d4fc797f74 init heinrichsweikamp parents: diff changeset	112
11d4fc797f74 init heinrichsweikamp parents: diff changeset	113 comm_mode4:
11d4fc797f74 init heinrichsweikamp parents: diff changeset	114 call rs232_get_byte
11d4fc797f74 init heinrichsweikamp parents: diff changeset	115
11d4fc797f74 init heinrichsweikamp parents: diff changeset	116 btfss vusb_in ; USB plugged in?
69 50697bd41c54 +CHANGE: Some French Translations heinrichsweikamp parents: 66 diff changeset	117 bra comm_service_exit_nousb_delay ; Disconnected -> Exit
50697bd41c54 +CHANGE: Some French Translations heinrichsweikamp parents: 66 diff changeset	118 comm_mode4a:
0 11d4fc797f74 init heinrichsweikamp parents: diff changeset	119
11d4fc797f74 init heinrichsweikamp parents: diff changeset	120 btfsc switch_right ; Abort with right
11d4fc797f74 init heinrichsweikamp parents: diff changeset	121 bra comm_service_exit
11d4fc797f74 init heinrichsweikamp parents: diff changeset	122
11d4fc797f74 init heinrichsweikamp parents: diff changeset	123 btfsc onesecupdate
11d4fc797f74 init heinrichsweikamp parents: diff changeset	124 bra comm_mode1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	125
11d4fc797f74 init heinrichsweikamp parents: diff changeset	126 movlw 0xAA ; start byte=0xAA?
11d4fc797f74 init heinrichsweikamp parents: diff changeset	127 cpfseq RCREG1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	128 bra comm_mode2a
11d4fc797f74 init heinrichsweikamp parents: diff changeset	129 bra comm_mode2b ; Startbyte for service mode found
11d4fc797f74 init heinrichsweikamp parents: diff changeset	130 comm_mode2a:
11d4fc797f74 init heinrichsweikamp parents: diff changeset	131 movlw 0xBB ; start byte=0xBB?
11d4fc797f74 init heinrichsweikamp parents: diff changeset	132 cpfseq RCREG1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	133 bra comm_mode2 ; Cycle
11d4fc797f74 init heinrichsweikamp parents: diff changeset	134 bra comm_download_mode ; Startbyte for download mode found
11d4fc797f74 init heinrichsweikamp parents: diff changeset	135
11d4fc797f74 init heinrichsweikamp parents: diff changeset	136 comm_mode2b:
11d4fc797f74 init heinrichsweikamp parents: diff changeset	137 ; Startbyte found
11d4fc797f74 init heinrichsweikamp parents: diff changeset	138 call rs232_wait_tx ; Wait for UART
11d4fc797f74 init heinrichsweikamp parents: diff changeset	139 movlw 0x4B
11d4fc797f74 init heinrichsweikamp parents: diff changeset	140 movwf TXREG1 ; Send Answer
11d4fc797f74 init heinrichsweikamp parents: diff changeset	141 ; Now, check comm command
11d4fc797f74 init heinrichsweikamp parents: diff changeset	142
11d4fc797f74 init heinrichsweikamp parents: diff changeset	143 call rs232_get_byte ; first byte
11d4fc797f74 init heinrichsweikamp parents: diff changeset	144 call rs232_wait_tx ; Wait for UART
11d4fc797f74 init heinrichsweikamp parents: diff changeset	145 movff RCREG1,TXREG1 ; Echo
11d4fc797f74 init heinrichsweikamp parents: diff changeset	146 movlw UPPER comm_service_key
11d4fc797f74 init heinrichsweikamp parents: diff changeset	147 cpfseq RCREG1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	148 bra comm_mode1 ; Wrong -> Restart
11d4fc797f74 init heinrichsweikamp parents: diff changeset	149 call rs232_get_byte ; second byte
11d4fc797f74 init heinrichsweikamp parents: diff changeset	150 call rs232_wait_tx ; Wait for UART
11d4fc797f74 init heinrichsweikamp parents: diff changeset	151 movff RCREG1,TXREG1 ; Echo
11d4fc797f74 init heinrichsweikamp parents: diff changeset	152 movlw HIGH (comm_service_key & 0xFFFF)
11d4fc797f74 init heinrichsweikamp parents: diff changeset	153 cpfseq RCREG1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	154 bra comm_mode1 ; Wrong -> Restart
11d4fc797f74 init heinrichsweikamp parents: diff changeset	155 call rs232_get_byte ; third byte
11d4fc797f74 init heinrichsweikamp parents: diff changeset	156 call rs232_wait_tx ; Wait for UART
11d4fc797f74 init heinrichsweikamp parents: diff changeset	157 movff RCREG1,TXREG1 ; Echo
11d4fc797f74 init heinrichsweikamp parents: diff changeset	158 movlw LOW comm_service_key
11d4fc797f74 init heinrichsweikamp parents: diff changeset	159 cpfseq RCREG1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	160 bra comm_mode1 ; Wrong -> Restart
11d4fc797f74 init heinrichsweikamp parents: diff changeset	161
11d4fc797f74 init heinrichsweikamp parents: diff changeset	162 ; Enable comm service mode
11d4fc797f74 init heinrichsweikamp parents: diff changeset	163 WIN_SMALL comm_status2_column, comm_status2_row
11d4fc797f74 init heinrichsweikamp parents: diff changeset	164 STRCPY_TEXT_PRINT tUsbServiceMode ; Service mode enabled
11d4fc797f74 init heinrichsweikamp parents: diff changeset	165 bsf comm_service_enabled
11d4fc797f74 init heinrichsweikamp parents: diff changeset	166 bra comm_download_mode0 ; Startbyte for download mode found
11d4fc797f74 init heinrichsweikamp parents: diff changeset	167
69 50697bd41c54 +CHANGE: Some French Translations heinrichsweikamp parents: 66 diff changeset	168
50697bd41c54 +CHANGE: Some French Translations heinrichsweikamp parents: 66 diff changeset	169 comm_service_exit_nousb_delay:
50697bd41c54 +CHANGE: Some French Translations heinrichsweikamp parents: 66 diff changeset	170 WAITMS d'200'
50697bd41c54 +CHANGE: Some French Translations heinrichsweikamp parents: 66 diff changeset	171 btfss vusb_in ; USB plugged in?
50697bd41c54 +CHANGE: Some French Translations heinrichsweikamp parents: 66 diff changeset	172 bra comm_service_exit_nousb ; Disconnected -> Exit
50697bd41c54 +CHANGE: Some French Translations heinrichsweikamp parents: 66 diff changeset	173 bra comm_mode4a ; (Still) connected, return
50697bd41c54 +CHANGE: Some French Translations heinrichsweikamp parents: 66 diff changeset	174
0 11d4fc797f74 init heinrichsweikamp parents: diff changeset	175 comm_service_exit_nousb: ; Disconnected -> Exit
11d4fc797f74 init heinrichsweikamp parents: diff changeset	176 WIN_SMALL comm_status3_column, comm_status3_row
11d4fc797f74 init heinrichsweikamp parents: diff changeset	177 STRCPY_TEXT_PRINT tUsbClosed ; Port closed
11d4fc797f74 init heinrichsweikamp parents: diff changeset	178 bra comm_service_exit_common
11d4fc797f74 init heinrichsweikamp parents: diff changeset	179
11d4fc797f74 init heinrichsweikamp parents: diff changeset	180 comm_service_exit:
11d4fc797f74 init heinrichsweikamp parents: diff changeset	181 WIN_SMALL comm_status3_column, comm_status3_row
11d4fc797f74 init heinrichsweikamp parents: diff changeset	182 STRCPY_TEXT_PRINT tUsbExit ; Exited
11d4fc797f74 init heinrichsweikamp parents: diff changeset	183
11d4fc797f74 init heinrichsweikamp parents: diff changeset	184 comm_service_exit_common:
11d4fc797f74 init heinrichsweikamp parents: diff changeset	185 call rs232_wait_tx ; Wait for UART
11d4fc797f74 init heinrichsweikamp parents: diff changeset	186 movlw 0xFF ; Reply FF
11d4fc797f74 init heinrichsweikamp parents: diff changeset	187 movwf TXREG1 ; Send Answer
11d4fc797f74 init heinrichsweikamp parents: diff changeset	188
11d4fc797f74 init heinrichsweikamp parents: diff changeset	189 ; Wait 1 second
11d4fc797f74 init heinrichsweikamp parents: diff changeset	190 bcf onesecupdate
11d4fc797f74 init heinrichsweikamp parents: diff changeset	191 btfss onesecupdate
11d4fc797f74 init heinrichsweikamp parents: diff changeset	192 bra $-2
11d4fc797f74 init heinrichsweikamp parents: diff changeset	193 ; Wait 1 second
11d4fc797f74 init heinrichsweikamp parents: diff changeset	194 bcf onesecupdate
11d4fc797f74 init heinrichsweikamp parents: diff changeset	195 btfss onesecupdate
11d4fc797f74 init heinrichsweikamp parents: diff changeset	196 bra $-2
11d4fc797f74 init heinrichsweikamp parents: diff changeset	197
11d4fc797f74 init heinrichsweikamp parents: diff changeset	198 call disable_rs232
11d4fc797f74 init heinrichsweikamp parents: diff changeset	199 bcf LEDr
11d4fc797f74 init heinrichsweikamp parents: diff changeset	200 goto restart
11d4fc797f74 init heinrichsweikamp parents: diff changeset	201
11d4fc797f74 init heinrichsweikamp parents: diff changeset	202 ;-----------------------------------------------------------------------------
11d4fc797f74 init heinrichsweikamp parents: diff changeset	203
11d4fc797f74 init heinrichsweikamp parents: diff changeset	204 comm_service_ll_bootloader:
11d4fc797f74 init heinrichsweikamp parents: diff changeset	205 bsf LEDr
11d4fc797f74 init heinrichsweikamp parents: diff changeset	206 WIN_SMALL comm_status3_column, comm_status3_row
11d4fc797f74 init heinrichsweikamp parents: diff changeset	207 STRCPY_TEXT_PRINT tUsbLlBld ; Low Level Bootloader started
11d4fc797f74 init heinrichsweikamp parents: diff changeset	208 WIN_TOP comm_warning_row
11d4fc797f74 init heinrichsweikamp parents: diff changeset	209 WIN_LEFT comm_warning_column
11d4fc797f74 init heinrichsweikamp parents: diff changeset	210 TFT_WRITE_PROM_IMAGE dive_warning_block ; Show Warning icon
11d4fc797f74 init heinrichsweikamp parents: diff changeset	211 goto 0x1FF0C
11d4fc797f74 init heinrichsweikamp parents: diff changeset	212
11d4fc797f74 init heinrichsweikamp parents: diff changeset	213 ;-----------------------------------------------------------------------------
11d4fc797f74 init heinrichsweikamp parents: diff changeset	214 ; Sends external flash from 0x3E0000 to 0x3FD000 (118784bytes) via comm
11d4fc797f74 init heinrichsweikamp parents: diff changeset	215 ;
11d4fc797f74 init heinrichsweikamp parents: diff changeset	216 comm_send_firmware:
11d4fc797f74 init heinrichsweikamp parents: diff changeset	217 movlw 0x50 ; send echo
11d4fc797f74 init heinrichsweikamp parents: diff changeset	218 movwf TXREG1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	219 call rs232_wait_tx ; Wait for UART
11d4fc797f74 init heinrichsweikamp parents: diff changeset	220
11d4fc797f74 init heinrichsweikamp parents: diff changeset	221 ; Read 5 bytes into buffer.
11d4fc797f74 init heinrichsweikamp parents: diff changeset	222 lfsr FSR2,buffer
11d4fc797f74 init heinrichsweikamp parents: diff changeset	223 movlw .5 ; counter
11d4fc797f74 init heinrichsweikamp parents: diff changeset	224 movwf lo
11d4fc797f74 init heinrichsweikamp parents: diff changeset	225 movlw 0x55 ; 5'ft byte checksum.
11d4fc797f74 init heinrichsweikamp parents: diff changeset	226 movwf hi
11d4fc797f74 init heinrichsweikamp parents: diff changeset	227
11d4fc797f74 init heinrichsweikamp parents: diff changeset	228 comm_send_firmware_loop:
11d4fc797f74 init heinrichsweikamp parents: diff changeset	229 call rs232_get_byte
11d4fc797f74 init heinrichsweikamp parents: diff changeset	230 btfsc rs232_recieve_overflow ; Got byte?
11d4fc797f74 init heinrichsweikamp parents: diff changeset	231 bra comm_send_firmware_abort ; No, abort!
11d4fc797f74 init heinrichsweikamp parents: diff changeset	232 movf RCREG1,W
11d4fc797f74 init heinrichsweikamp parents: diff changeset	233 movwf POSTINC2 ; Store checksum byte.
11d4fc797f74 init heinrichsweikamp parents: diff changeset	234 xorwf hi,F ; Also xor into checksum
11d4fc797f74 init heinrichsweikamp parents: diff changeset	235 rlncf hi,F ; And rotate it.
11d4fc797f74 init heinrichsweikamp parents: diff changeset	236 decfsz lo,F
11d4fc797f74 init heinrichsweikamp parents: diff changeset	237 bra comm_send_firmware_loop
11d4fc797f74 init heinrichsweikamp parents: diff changeset	238
11d4fc797f74 init heinrichsweikamp parents: diff changeset	239 ; Check that 5ft byte checksum's checksum
11d4fc797f74 init heinrichsweikamp parents: diff changeset	240 movf hi,W
11d4fc797f74 init heinrichsweikamp parents: diff changeset	241 bnz comm_send_firmware_failed
11d4fc797f74 init heinrichsweikamp parents: diff changeset	242
11d4fc797f74 init heinrichsweikamp parents: diff changeset	243 movlw 0x4C ; send OK
11d4fc797f74 init heinrichsweikamp parents: diff changeset	244 movwf TXREG1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	245 call rs232_wait_tx ; Wait for UART
11d4fc797f74 init heinrichsweikamp parents: diff changeset	246
11d4fc797f74 init heinrichsweikamp parents: diff changeset	247 ; Passed: goto second stage verification.
11d4fc797f74 init heinrichsweikamp parents: diff changeset	248 ; NOTE: Bootloader is Bank0. With buffer at address 0x200.
162 95d05cc14736 NEW: Safe tissue data, date and time during firmware update heinrichsweikamp parents: 159 diff changeset	249 call vault_decodata_into_eeprom ; Store last deco data (And Time/Date) into EEPROM
0 11d4fc797f74 init heinrichsweikamp parents: diff changeset	250 goto 0x1FDF0 ; And pray...
11d4fc797f74 init heinrichsweikamp parents: diff changeset	251
11d4fc797f74 init heinrichsweikamp parents: diff changeset	252 comm_send_firmware_failed:
11d4fc797f74 init heinrichsweikamp parents: diff changeset	253 WIN_SMALL comm_string_column, comm_string_row
50 ec4d8503ec45 NEW: user-selectable color schemes heinrichsweikamp parents: 7 diff changeset	254 call TFT_warnings_color
0 11d4fc797f74 init heinrichsweikamp parents: diff changeset	255 STRCPY_PRINT "Checksum failed"
11d4fc797f74 init heinrichsweikamp parents: diff changeset	256
11d4fc797f74 init heinrichsweikamp parents: diff changeset	257 comm_send_firmware_abort:
11d4fc797f74 init heinrichsweikamp parents: diff changeset	258
11d4fc797f74 init heinrichsweikamp parents: diff changeset	259 movlw 0xFF ; send ABORTED byte.
11d4fc797f74 init heinrichsweikamp parents: diff changeset	260 movwf TXREG1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	261 call rs232_wait_tx ; Wait for UART
11d4fc797f74 init heinrichsweikamp parents: diff changeset	262 bra comm_download_mode0 ; Done.
11d4fc797f74 init heinrichsweikamp parents: diff changeset	263
11d4fc797f74 init heinrichsweikamp parents: diff changeset	264 ;-----------------------------------------------------------------------------
11d4fc797f74 init heinrichsweikamp parents: diff changeset	265 ; Reset to Dive 1 in logbook
11d4fc797f74 init heinrichsweikamp parents: diff changeset	266
11d4fc797f74 init heinrichsweikamp parents: diff changeset	267 comm_reset_logbook_pointers:
11d4fc797f74 init heinrichsweikamp parents: diff changeset	268 clrf EEADRH ; Make sure to select eeprom bank 0
11d4fc797f74 init heinrichsweikamp parents: diff changeset	269 clrf EEDATA
11d4fc797f74 init heinrichsweikamp parents: diff changeset	270 write_int_eeprom .4
11d4fc797f74 init heinrichsweikamp parents: diff changeset	271 write_int_eeprom .5
11d4fc797f74 init heinrichsweikamp parents: diff changeset	272 write_int_eeprom .6
11d4fc797f74 init heinrichsweikamp parents: diff changeset	273 write_int_eeprom .2 ; Also, delete total dive counter
79 0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	274 write_int_eeprom .3
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	275 write_int_eeprom .15
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	276 write_int_eeprom .16 ; And the backup counter, too
0 11d4fc797f74 init heinrichsweikamp parents: diff changeset	277 call ext_flash_erase_logbook ; And complete logbook (!)
11d4fc797f74 init heinrichsweikamp parents: diff changeset	278 bra comm_download_mode0 ; Done.
11d4fc797f74 init heinrichsweikamp parents: diff changeset	279
11d4fc797f74 init heinrichsweikamp parents: diff changeset	280 ;-----------------------------------------------------------------------------
11d4fc797f74 init heinrichsweikamp parents: diff changeset	281 comm_reset_battery_gauge: ; Resets battery gauge registers
11d4fc797f74 init heinrichsweikamp parents: diff changeset	282 call reset_battery_pointer ; Resets battery pointer 0x07-0x0C and battery_gauge:5
11d4fc797f74 init heinrichsweikamp parents: diff changeset	283 bra comm_download_mode0 ; Done.
11d4fc797f74 init heinrichsweikamp parents: diff changeset	284
11d4fc797f74 init heinrichsweikamp parents: diff changeset	285 ;-----------------------------------------------------------------------------
11d4fc797f74 init heinrichsweikamp parents: diff changeset	286 ; erases range in 4kB steps
11d4fc797f74 init heinrichsweikamp parents: diff changeset	287
11d4fc797f74 init heinrichsweikamp parents: diff changeset	288 comm_erase_range4kb:
11d4fc797f74 init heinrichsweikamp parents: diff changeset	289 movlw 0x42 ; send echo
11d4fc797f74 init heinrichsweikamp parents: diff changeset	290 movwf TXREG1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	291 call rs232_wait_tx ; Wait for UART
11d4fc797f74 init heinrichsweikamp parents: diff changeset	292
11d4fc797f74 init heinrichsweikamp parents: diff changeset	293 bcf INTCON,GIE ; All interrups off!
11d4fc797f74 init heinrichsweikamp parents: diff changeset	294
11d4fc797f74 init heinrichsweikamp parents: diff changeset	295 rcall comm_get_flash_address ; Get three bytes address or return
11d4fc797f74 init heinrichsweikamp parents: diff changeset	296 btfsc rs232_recieve_overflow ; Got Data?
11d4fc797f74 init heinrichsweikamp parents: diff changeset	297 bra comm_download_mode0 ; No, Done.
11d4fc797f74 init heinrichsweikamp parents: diff changeset	298
11d4fc797f74 init heinrichsweikamp parents: diff changeset	299 call rs232_get_byte
11d4fc797f74 init heinrichsweikamp parents: diff changeset	300 btfsc rs232_recieve_overflow ; Got byte?
11d4fc797f74 init heinrichsweikamp parents: diff changeset	301 bra comm_download_mode0 ; No, Done.
11d4fc797f74 init heinrichsweikamp parents: diff changeset	302 movff RCREG1,lo
11d4fc797f74 init heinrichsweikamp parents: diff changeset	303 ; Got 4bytes: 3bytes address and 1 bytes (lo) amount of 4kB blocks
11d4fc797f74 init heinrichsweikamp parents: diff changeset	304
11d4fc797f74 init heinrichsweikamp parents: diff changeset	305 comm_erase_range4kb1:
11d4fc797f74 init heinrichsweikamp parents: diff changeset	306 call ext_flash_erase4kB ; Erase block!
11d4fc797f74 init heinrichsweikamp parents: diff changeset	307
11d4fc797f74 init heinrichsweikamp parents: diff changeset	308 movlw 0x10
11d4fc797f74 init heinrichsweikamp parents: diff changeset	309 addwf ext_flash_address+1,F
11d4fc797f74 init heinrichsweikamp parents: diff changeset	310 movlw .0
11d4fc797f74 init heinrichsweikamp parents: diff changeset	311 addwfc ext_flash_address+2,F ; Increase address by .4096, or 0x1000
11d4fc797f74 init heinrichsweikamp parents: diff changeset	312 decfsz lo,F
11d4fc797f74 init heinrichsweikamp parents: diff changeset	313 bra comm_erase_range4kb1 ; Loop until lo=zero
11d4fc797f74 init heinrichsweikamp parents: diff changeset	314
11d4fc797f74 init heinrichsweikamp parents: diff changeset	315 bra comm_download_mode0 ; Done (Sends the 4C OK too).
11d4fc797f74 init heinrichsweikamp parents: diff changeset	316
11d4fc797f74 init heinrichsweikamp parents: diff changeset	317 ;-----------------------------------------------------------------------------
11d4fc797f74 init heinrichsweikamp parents: diff changeset	318
11d4fc797f74 init heinrichsweikamp parents: diff changeset	319 comm_erase_4kb: ; Get 3 bytes start address
11d4fc797f74 init heinrichsweikamp parents: diff changeset	320 bcf INTCON,GIE ; All interrups off!
11d4fc797f74 init heinrichsweikamp parents: diff changeset	321
11d4fc797f74 init heinrichsweikamp parents: diff changeset	322 rcall comm_get_flash_address ; Get three bytes address or return
11d4fc797f74 init heinrichsweikamp parents: diff changeset	323 btfsc rs232_recieve_overflow ; Got Data?
11d4fc797f74 init heinrichsweikamp parents: diff changeset	324 bra comm_download_mode0 ; No, Done.
11d4fc797f74 init heinrichsweikamp parents: diff changeset	325
11d4fc797f74 init heinrichsweikamp parents: diff changeset	326 call ext_flash_erase4kB ; Erase one block
11d4fc797f74 init heinrichsweikamp parents: diff changeset	327 bra comm_download_mode0 ; Done.
11d4fc797f74 init heinrichsweikamp parents: diff changeset	328
11d4fc797f74 init heinrichsweikamp parents: diff changeset	329 ;-----------------------------------------------------------------------------
11d4fc797f74 init heinrichsweikamp parents: diff changeset	330
11d4fc797f74 init heinrichsweikamp parents: diff changeset	331 comm_write_range: ; Get 3 bytes start address
11d4fc797f74 init heinrichsweikamp parents: diff changeset	332 movlw 0x30 ; send echo
11d4fc797f74 init heinrichsweikamp parents: diff changeset	333 movwf TXREG1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	334 call rs232_wait_tx ; Wait for UART
11d4fc797f74 init heinrichsweikamp parents: diff changeset	335
11d4fc797f74 init heinrichsweikamp parents: diff changeset	336 bcf INTCON,GIE ; All interrups off!
11d4fc797f74 init heinrichsweikamp parents: diff changeset	337
11d4fc797f74 init heinrichsweikamp parents: diff changeset	338 rcall comm_get_flash_address ; Get three bytes address or return
11d4fc797f74 init heinrichsweikamp parents: diff changeset	339 btfsc rs232_recieve_overflow ; Got Data?
11d4fc797f74 init heinrichsweikamp parents: diff changeset	340 bra comm_download_mode0 ; No, Done.
11d4fc797f74 init heinrichsweikamp parents: diff changeset	341
11d4fc797f74 init heinrichsweikamp parents: diff changeset	342 comm_write_range_loop:
11d4fc797f74 init heinrichsweikamp parents: diff changeset	343 call rs232_get_byte
11d4fc797f74 init heinrichsweikamp parents: diff changeset	344 btfsc rs232_recieve_overflow ; Got byte?
11d4fc797f74 init heinrichsweikamp parents: diff changeset	345 bra comm_download_mode0 ; No, Done (and send OK byte too).
11d4fc797f74 init heinrichsweikamp parents: diff changeset	346 movf RCREG1,W
11d4fc797f74 init heinrichsweikamp parents: diff changeset	347 call ext_flash_byte_write ; write one byte
11d4fc797f74 init heinrichsweikamp parents: diff changeset	348 call incf_ext_flash_address_p1 ; increase address+1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	349 bra comm_write_range_loop
11d4fc797f74 init heinrichsweikamp parents: diff changeset	350
11d4fc797f74 init heinrichsweikamp parents: diff changeset	351 ;-----------------------------------------------------------------------------
11d4fc797f74 init heinrichsweikamp parents: diff changeset	352
11d4fc797f74 init heinrichsweikamp parents: diff changeset	353 comm_send_range: ; Get 3 bytes start address and 3 bytes amount
11d4fc797f74 init heinrichsweikamp parents: diff changeset	354 movlw 0x20 ; send echo
11d4fc797f74 init heinrichsweikamp parents: diff changeset	355 movwf TXREG1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	356 call rs232_wait_tx ; Wait for UART
11d4fc797f74 init heinrichsweikamp parents: diff changeset	357
11d4fc797f74 init heinrichsweikamp parents: diff changeset	358 bcf INTCON,GIE ; All interrups off!
11d4fc797f74 init heinrichsweikamp parents: diff changeset	359
11d4fc797f74 init heinrichsweikamp parents: diff changeset	360 rcall comm_get_flash_address ; Get three bytes address or return
11d4fc797f74 init heinrichsweikamp parents: diff changeset	361 btfsc rs232_recieve_overflow ; Got Data?
11d4fc797f74 init heinrichsweikamp parents: diff changeset	362 bra comm_download_mode0 ; No, Done.
11d4fc797f74 init heinrichsweikamp parents: diff changeset	363
11d4fc797f74 init heinrichsweikamp parents: diff changeset	364 call rs232_get_byte
11d4fc797f74 init heinrichsweikamp parents: diff changeset	365 btfsc rs232_recieve_overflow ; Got byte?
11d4fc797f74 init heinrichsweikamp parents: diff changeset	366 bra comm_download_mode0 ; No, Done.
11d4fc797f74 init heinrichsweikamp parents: diff changeset	367 movff RCREG1,up
11d4fc797f74 init heinrichsweikamp parents: diff changeset	368 call rs232_get_byte
11d4fc797f74 init heinrichsweikamp parents: diff changeset	369 btfsc rs232_recieve_overflow ; Got byte?
11d4fc797f74 init heinrichsweikamp parents: diff changeset	370 bra comm_download_mode0 ; No, Done.
11d4fc797f74 init heinrichsweikamp parents: diff changeset	371 movff RCREG1,hi
11d4fc797f74 init heinrichsweikamp parents: diff changeset	372 call rs232_get_byte
11d4fc797f74 init heinrichsweikamp parents: diff changeset	373 btfsc rs232_recieve_overflow ; Got byte?
11d4fc797f74 init heinrichsweikamp parents: diff changeset	374 bra comm_download_mode0 ; No, Done.
11d4fc797f74 init heinrichsweikamp parents: diff changeset	375 movff RCREG1,lo
11d4fc797f74 init heinrichsweikamp parents: diff changeset	376
11d4fc797f74 init heinrichsweikamp parents: diff changeset	377 ; If lo==0, we must precondition hi because there is to many bytes send !
11d4fc797f74 init heinrichsweikamp parents: diff changeset	378 movf lo,W
11d4fc797f74 init heinrichsweikamp parents: diff changeset	379 bnz $+4
11d4fc797f74 init heinrichsweikamp parents: diff changeset	380 decf hi,F
11d4fc797f74 init heinrichsweikamp parents: diff changeset	381
11d4fc797f74 init heinrichsweikamp parents: diff changeset	382 ; 6bytes received, send data
11d4fc797f74 init heinrichsweikamp parents: diff changeset	383 comm_send_range2: ; needs ext_flash_address:3 start address and up:hi:lo amount
11d4fc797f74 init heinrichsweikamp parents: diff changeset	384 call ext_flash_read_block_start
11d4fc797f74 init heinrichsweikamp parents: diff changeset	385 movwf TXREG1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	386
11d4fc797f74 init heinrichsweikamp parents: diff changeset	387 bra comm_send_range24 ; counter 24bit
11d4fc797f74 init heinrichsweikamp parents: diff changeset	388 comm_send_range24_loop:
11d4fc797f74 init heinrichsweikamp parents: diff changeset	389 call ext_flash_read_block ; Read one byte
11d4fc797f74 init heinrichsweikamp parents: diff changeset	390 movwf TXREG1 ; Start new transmit
11d4fc797f74 init heinrichsweikamp parents: diff changeset	391 comm_send_range24:
11d4fc797f74 init heinrichsweikamp parents: diff changeset	392 call rs232_wait_tx ; Wait for UART
11d4fc797f74 init heinrichsweikamp parents: diff changeset	393 decfsz lo,F
11d4fc797f74 init heinrichsweikamp parents: diff changeset	394 bra comm_send_range24_loop
11d4fc797f74 init heinrichsweikamp parents: diff changeset	395 decf hi,F
11d4fc797f74 init heinrichsweikamp parents: diff changeset	396 movlw 0xFF
11d4fc797f74 init heinrichsweikamp parents: diff changeset	397 cpfseq hi
11d4fc797f74 init heinrichsweikamp parents: diff changeset	398 bra comm_send_range24_loop
11d4fc797f74 init heinrichsweikamp parents: diff changeset	399 decf up,F
11d4fc797f74 init heinrichsweikamp parents: diff changeset	400 movlw 0xFF
11d4fc797f74 init heinrichsweikamp parents: diff changeset	401 cpfseq up
11d4fc797f74 init heinrichsweikamp parents: diff changeset	402 bra comm_send_range24_loop
11d4fc797f74 init heinrichsweikamp parents: diff changeset	403 call ext_flash_read_block_stop
11d4fc797f74 init heinrichsweikamp parents: diff changeset	404
11d4fc797f74 init heinrichsweikamp parents: diff changeset	405 bra comm_download_mode0 ; Done.
11d4fc797f74 init heinrichsweikamp parents: diff changeset	406
11d4fc797f74 init heinrichsweikamp parents: diff changeset	407 ;-----------------------------------------------------------------------------
11d4fc797f74 init heinrichsweikamp parents: diff changeset	408
11d4fc797f74 init heinrichsweikamp parents: diff changeset	409 comm_get_flash_address:
11d4fc797f74 init heinrichsweikamp parents: diff changeset	410 call rs232_get_byte
11d4fc797f74 init heinrichsweikamp parents: diff changeset	411 btfsc rs232_recieve_overflow ; Got byte?
11d4fc797f74 init heinrichsweikamp parents: diff changeset	412 return ; No, return
11d4fc797f74 init heinrichsweikamp parents: diff changeset	413 movff RCREG1,ext_flash_address+2
11d4fc797f74 init heinrichsweikamp parents: diff changeset	414 call rs232_get_byte
11d4fc797f74 init heinrichsweikamp parents: diff changeset	415 btfsc rs232_recieve_overflow ; Got byte?
11d4fc797f74 init heinrichsweikamp parents: diff changeset	416 return ; No, return
11d4fc797f74 init heinrichsweikamp parents: diff changeset	417 movff RCREG1,ext_flash_address+1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	418 call rs232_get_byte
11d4fc797f74 init heinrichsweikamp parents: diff changeset	419 btfsc rs232_recieve_overflow ; Got byte?
11d4fc797f74 init heinrichsweikamp parents: diff changeset	420 return ; No, return
11d4fc797f74 init heinrichsweikamp parents: diff changeset	421 movff RCREG1,ext_flash_address+0
11d4fc797f74 init heinrichsweikamp parents: diff changeset	422 return
11d4fc797f74 init heinrichsweikamp parents: diff changeset	423
11d4fc797f74 init heinrichsweikamp parents: diff changeset	424 ;-----------------------------------------------------------------------------
11d4fc797f74 init heinrichsweikamp parents: diff changeset	425
11d4fc797f74 init heinrichsweikamp parents: diff changeset	426 comm_download_mode:
11d4fc797f74 init heinrichsweikamp parents: diff changeset	427 ; Enable comm download mode
11d4fc797f74 init heinrichsweikamp parents: diff changeset	428 WIN_SMALL comm_status2_column, comm_status2_row
11d4fc797f74 init heinrichsweikamp parents: diff changeset	429 STRCPY_TEXT_PRINT tUsbDownloadMode; Download mode enabled
11d4fc797f74 init heinrichsweikamp parents: diff changeset	430 bsf INTCON,GIE ; All interrups on
11d4fc797f74 init heinrichsweikamp parents: diff changeset	431 call rs232_wait_tx ; Wait for UART
11d4fc797f74 init heinrichsweikamp parents: diff changeset	432 movlw 0xBB ; Command Echo
11d4fc797f74 init heinrichsweikamp parents: diff changeset	433 movwf TXREG1 ; Send Answer
11d4fc797f74 init heinrichsweikamp parents: diff changeset	434 comm_download_mode0:
11d4fc797f74 init heinrichsweikamp parents: diff changeset	435 bsf INTCON,GIE ; All interrups on
11d4fc797f74 init heinrichsweikamp parents: diff changeset	436 call rs232_wait_tx ; Wait for UART
11d4fc797f74 init heinrichsweikamp parents: diff changeset	437 movlw 0x4C ; 4C in service mode
11d4fc797f74 init heinrichsweikamp parents: diff changeset	438 btfss comm_service_enabled
11d4fc797f74 init heinrichsweikamp parents: diff changeset	439 movlw 0x4D ; 4D in download mode
11d4fc797f74 init heinrichsweikamp parents: diff changeset	440 movwf TXREG1 ; Send Answer
11d4fc797f74 init heinrichsweikamp parents: diff changeset	441 movlw timeout_service_mode
11d4fc797f74 init heinrichsweikamp parents: diff changeset	442 movwf timeout_counter ; Timeout
11d4fc797f74 init heinrichsweikamp parents: diff changeset	443 bcf switch_right
11d4fc797f74 init heinrichsweikamp parents: diff changeset	444 comm_download_mode1:
11d4fc797f74 init heinrichsweikamp parents: diff changeset	445 bcf onesecupdate
11d4fc797f74 init heinrichsweikamp parents: diff changeset	446 dcfsnz timeout_counter,F
11d4fc797f74 init heinrichsweikamp parents: diff changeset	447 bra comm_service_exit ; Timeout -> Exit
11d4fc797f74 init heinrichsweikamp parents: diff changeset	448 comm_download_mode2:
11d4fc797f74 init heinrichsweikamp parents: diff changeset	449 call rs232_get_byte ; Check for a byte
11d4fc797f74 init heinrichsweikamp parents: diff changeset	450 btfsc comm_service_enabled
11d4fc797f74 init heinrichsweikamp parents: diff changeset	451 btg LEDr ; Blink in Service mode
11d4fc797f74 init heinrichsweikamp parents: diff changeset	452 btfss vusb_in ; USB plugged in?
11d4fc797f74 init heinrichsweikamp parents: diff changeset	453 bra comm_service_exit_nousb ; Disconnected -> Exit
11d4fc797f74 init heinrichsweikamp parents: diff changeset	454 btfsc switch_right ; Abort with right
11d4fc797f74 init heinrichsweikamp parents: diff changeset	455 bra comm_service_exit
11d4fc797f74 init heinrichsweikamp parents: diff changeset	456 btfsc onesecupdate
11d4fc797f74 init heinrichsweikamp parents: diff changeset	457 bra comm_download_mode1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	458 btfsc rs232_recieve_overflow
11d4fc797f74 init heinrichsweikamp parents: diff changeset	459 bra comm_download_mode2 ; Wait for command byte
11d4fc797f74 init heinrichsweikamp parents: diff changeset	460
11d4fc797f74 init heinrichsweikamp parents: diff changeset	461 ; command received!
11d4fc797f74 init heinrichsweikamp parents: diff changeset	462 bcf LEDr
11d4fc797f74 init heinrichsweikamp parents: diff changeset	463 movlw 0xFF
11d4fc797f74 init heinrichsweikamp parents: diff changeset	464 cpfseq RCREG1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	465 bra $+4
11d4fc797f74 init heinrichsweikamp parents: diff changeset	466 bra comm_service_exit ; exit
11d4fc797f74 init heinrichsweikamp parents: diff changeset	467 movlw "a"
11d4fc797f74 init heinrichsweikamp parents: diff changeset	468 cpfseq RCREG1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	469 bra $+4
11d4fc797f74 init heinrichsweikamp parents: diff changeset	470 bra comm_send_headers ; Send all 256 dive headers
11d4fc797f74 init heinrichsweikamp parents: diff changeset	471 movlw "b"
11d4fc797f74 init heinrichsweikamp parents: diff changeset	472 cpfseq RCREG1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	473 bra $+4
11d4fc797f74 init heinrichsweikamp parents: diff changeset	474 bra comm_set_time ; Read time and date from the PC and set clock
11d4fc797f74 init heinrichsweikamp parents: diff changeset	475 movlw "c"
11d4fc797f74 init heinrichsweikamp parents: diff changeset	476 cpfseq RCREG1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	477 bra $+4
11d4fc797f74 init heinrichsweikamp parents: diff changeset	478 bra comm_set_custom_text ; Send a opt_name_length byte string of custom text.
11d4fc797f74 init heinrichsweikamp parents: diff changeset	479 movlw "f"
11d4fc797f74 init heinrichsweikamp parents: diff changeset	480 cpfseq RCREG1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	481 bra $+4
11d4fc797f74 init heinrichsweikamp parents: diff changeset	482 bra comm_send_dive ; Send header and profile for one dive
11d4fc797f74 init heinrichsweikamp parents: diff changeset	483 movlw "i"
11d4fc797f74 init heinrichsweikamp parents: diff changeset	484 cpfseq RCREG1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	485 bra $+4
11d4fc797f74 init heinrichsweikamp parents: diff changeset	486 bra comm_identify ; Send firmware, serial, etc.
11d4fc797f74 init heinrichsweikamp parents: diff changeset	487 movlw "n"
11d4fc797f74 init heinrichsweikamp parents: diff changeset	488 cpfseq RCREG1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	489 bra $+4
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	490 goto comm_send_string ; Send a 15byte string to the screen
0 11d4fc797f74 init heinrichsweikamp parents: diff changeset	491 movlw "l"
11d4fc797f74 init heinrichsweikamp parents: diff changeset	492 cpfseq RCREG1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	493 bra $+4
11d4fc797f74 init heinrichsweikamp parents: diff changeset	494 call TFT_dump_screen ; Dump the screen contents
79 0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	495 movlw "r"
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	496 cpfseq RCREG1
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	497 bra $+4
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	498 bra comm_read_setting ; Read a setting (And send via USB)
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	499 movlw "w"
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	500 cpfseq RCREG1
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	501 bra $+4
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	502 bra comm_write_setting ; Write a setting (Into RAM)
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	503 movlw "x"
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	504 cpfseq RCREG1
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	505 bra $+4
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	506 bra comm_option_reset_all ; Reset all options to factory default.
79 0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	507
0 11d4fc797f74 init heinrichsweikamp parents: diff changeset	508
11d4fc797f74 init heinrichsweikamp parents: diff changeset	509 btfss comm_service_enabled ; Done for Download mode
11d4fc797f74 init heinrichsweikamp parents: diff changeset	510 bra comm_download_mode0 ; Loop with timeout reset
11d4fc797f74 init heinrichsweikamp parents: diff changeset	511
11d4fc797f74 init heinrichsweikamp parents: diff changeset	512 movlw 0x20
11d4fc797f74 init heinrichsweikamp parents: diff changeset	513 cpfseq RCREG1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	514 bra $+4
11d4fc797f74 init heinrichsweikamp parents: diff changeset	515 bra comm_send_range ; send hi:lo:temp1 bytes starting from ext_flash_address:3
11d4fc797f74 init heinrichsweikamp parents: diff changeset	516 movlw 0x22
11d4fc797f74 init heinrichsweikamp parents: diff changeset	517 cpfseq RCREG1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	518 bra $+4
11d4fc797f74 init heinrichsweikamp parents: diff changeset	519 bra comm_reset_logbook_pointers ; Resets all logbook pointers and the logbook (!)
11d4fc797f74 init heinrichsweikamp parents: diff changeset	520 movlw 0x23
11d4fc797f74 init heinrichsweikamp parents: diff changeset	521 cpfseq RCREG1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	522 bra $+4
11d4fc797f74 init heinrichsweikamp parents: diff changeset	523 bra comm_reset_battery_gauge ; Resets battery gauge registers
11d4fc797f74 init heinrichsweikamp parents: diff changeset	524 movlw 0x30
11d4fc797f74 init heinrichsweikamp parents: diff changeset	525 cpfseq RCREG1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	526 bra $+4
11d4fc797f74 init heinrichsweikamp parents: diff changeset	527 bra comm_write_range ; write bytes starting from ext_flash_address:3 (Stop when timeout)
11d4fc797f74 init heinrichsweikamp parents: diff changeset	528 movlw 0x40
11d4fc797f74 init heinrichsweikamp parents: diff changeset	529 cpfseq RCREG1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	530 bra $+4
11d4fc797f74 init heinrichsweikamp parents: diff changeset	531 bra comm_erase_4kb ; erases 4kB block from ext_flash_address:3 (Warning: No confirmation or built-in security here...)
11d4fc797f74 init heinrichsweikamp parents: diff changeset	532 movlw 0x42
11d4fc797f74 init heinrichsweikamp parents: diff changeset	533 cpfseq RCREG1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	534 bra $+4
11d4fc797f74 init heinrichsweikamp parents: diff changeset	535 bra comm_erase_range4kb ; erases range in 4kB steps (Get 3 bytes address and 1byte amount of 4kB blocks)
11d4fc797f74 init heinrichsweikamp parents: diff changeset	536 movlw 0x50
11d4fc797f74 init heinrichsweikamp parents: diff changeset	537 cpfseq RCREG1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	538 bra $+4
11d4fc797f74 init heinrichsweikamp parents: diff changeset	539 bra comm_send_firmware ; sends firmware from external flash from 0x3E0000 to 0x3FD000 (118784bytes) via comm
147 fdd4e30846ae some cleanup heinrichsweikamp parents: 136 diff changeset	540 ; movlw "t"
fdd4e30846ae some cleanup heinrichsweikamp parents: 136 diff changeset	541 ; cpfseq RCREG1
fdd4e30846ae some cleanup heinrichsweikamp parents: 136 diff changeset	542 ; bra $+4
fdd4e30846ae some cleanup heinrichsweikamp parents: 136 diff changeset	543 ; goto testloop ; Start raw-data testloop
0 11d4fc797f74 init heinrichsweikamp parents: diff changeset	544 movlw 0xC1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	545 cpfseq RCREG1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	546 bra $+4
11d4fc797f74 init heinrichsweikamp parents: diff changeset	547 bra comm_service_ll_bootloader ; Start low-level bootloader
11d4fc797f74 init heinrichsweikamp parents: diff changeset	548 bra comm_download_mode0 ; Loop with timeout reset
11d4fc797f74 init heinrichsweikamp parents: diff changeset	549
11d4fc797f74 init heinrichsweikamp parents: diff changeset	550 ;-----------------------------------------------------------------------------
11d4fc797f74 init heinrichsweikamp parents: diff changeset	551
11d4fc797f74 init heinrichsweikamp parents: diff changeset	552 comm_send_headers:
11d4fc797f74 init heinrichsweikamp parents: diff changeset	553 movlw "a" ; send echo
11d4fc797f74 init heinrichsweikamp parents: diff changeset	554 movwf TXREG1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	555 ; Send 256 bytes/dive (Header)
11d4fc797f74 init heinrichsweikamp parents: diff changeset	556 ; 1st: 200000h-2000FFh
11d4fc797f74 init heinrichsweikamp parents: diff changeset	557 ; 2nd: 201000h-2010FFh
11d4fc797f74 init heinrichsweikamp parents: diff changeset	558 ; 3rd: 202000h-2020FFh
11d4fc797f74 init heinrichsweikamp parents: diff changeset	559 ; 100: 264000h-2640FFh
11d4fc797f74 init heinrichsweikamp parents: diff changeset	560 ; 256: 2FF000h-2FF0FFh
11d4fc797f74 init heinrichsweikamp parents: diff changeset	561 movlw 0x1F
11d4fc797f74 init heinrichsweikamp parents: diff changeset	562 movwf ext_flash_address+2
11d4fc797f74 init heinrichsweikamp parents: diff changeset	563 movlw 0xF0
11d4fc797f74 init heinrichsweikamp parents: diff changeset	564 movwf ext_flash_address+1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	565
11d4fc797f74 init heinrichsweikamp parents: diff changeset	566 comm_send_headers2:
11d4fc797f74 init heinrichsweikamp parents: diff changeset	567 movlw 0x00
11d4fc797f74 init heinrichsweikamp parents: diff changeset	568 movwf ext_flash_address+0
11d4fc797f74 init heinrichsweikamp parents: diff changeset	569 ; Adjust address for next dive
11d4fc797f74 init heinrichsweikamp parents: diff changeset	570 movlw 0x10
11d4fc797f74 init heinrichsweikamp parents: diff changeset	571 addwf ext_flash_address+1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	572 movlw 0x00
11d4fc797f74 init heinrichsweikamp parents: diff changeset	573 addwfc ext_flash_address+2
11d4fc797f74 init heinrichsweikamp parents: diff changeset	574
11d4fc797f74 init heinrichsweikamp parents: diff changeset	575 movlw 0x30
11d4fc797f74 init heinrichsweikamp parents: diff changeset	576 cpfseq ext_flash_address+2 ; All 256 dive send?
11d4fc797f74 init heinrichsweikamp parents: diff changeset	577 bra comm_send_headers4 ; No, continue
11d4fc797f74 init heinrichsweikamp parents: diff changeset	578 bra comm_download_mode0 ; Done. Loop with timeout reset
11d4fc797f74 init heinrichsweikamp parents: diff changeset	579
11d4fc797f74 init heinrichsweikamp parents: diff changeset	580 comm_send_headers4:
11d4fc797f74 init heinrichsweikamp parents: diff changeset	581 clrf lo ; Counter
11d4fc797f74 init heinrichsweikamp parents: diff changeset	582 call rs232_wait_tx ; Wait for UART
11d4fc797f74 init heinrichsweikamp parents: diff changeset	583 call ext_flash_read_block_start ; 1st byte
11d4fc797f74 init heinrichsweikamp parents: diff changeset	584 movwf TXREG1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	585 bra comm_send_headers3 ; counter 24bit
11d4fc797f74 init heinrichsweikamp parents: diff changeset	586 comm_send_headers_loop:
11d4fc797f74 init heinrichsweikamp parents: diff changeset	587 call ext_flash_read_block ; Read one byte
11d4fc797f74 init heinrichsweikamp parents: diff changeset	588 movwf TXREG1 ; Start new transmit
11d4fc797f74 init heinrichsweikamp parents: diff changeset	589 comm_send_headers3:
11d4fc797f74 init heinrichsweikamp parents: diff changeset	590 call rs232_wait_tx ; Wait for UART
11d4fc797f74 init heinrichsweikamp parents: diff changeset	591 decfsz lo,F
11d4fc797f74 init heinrichsweikamp parents: diff changeset	592 bra comm_send_headers_loop
11d4fc797f74 init heinrichsweikamp parents: diff changeset	593 call ext_flash_read_block_stop
11d4fc797f74 init heinrichsweikamp parents: diff changeset	594 bra comm_send_headers2 ; continue
11d4fc797f74 init heinrichsweikamp parents: diff changeset	595
11d4fc797f74 init heinrichsweikamp parents: diff changeset	596 ;-----------------------------------------------------------------------------
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	597
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	598 comm_option_reset_all: ; Reset all options to factory default.
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	599 movlw "x" ; send echo
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	600 movwf TXREG1
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	601 call option_reset_all
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	602 bra comm_download_mode0 ; Done. back to loop with timeout reset
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	603
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	604 ;-----------------------------------------------------------------------------
0 11d4fc797f74 init heinrichsweikamp parents: diff changeset	605
11d4fc797f74 init heinrichsweikamp parents: diff changeset	606 comm_set_time:
11d4fc797f74 init heinrichsweikamp parents: diff changeset	607 movlw "b" ; send echo
11d4fc797f74 init heinrichsweikamp parents: diff changeset	608 movwf TXREG1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	609
11d4fc797f74 init heinrichsweikamp parents: diff changeset	610 call rs232_wait_tx ; wait for UART
11d4fc797f74 init heinrichsweikamp parents: diff changeset	611 call rs232_get_byte
11d4fc797f74 init heinrichsweikamp parents: diff changeset	612 btfsc rs232_recieve_overflow ; Got byte?
128 bd74161c4292 catch timeout during set time/date command heinrichsweikamp parents: 124 diff changeset	613 bra comm_download_mode0 ; No, abort
0 11d4fc797f74 init heinrichsweikamp parents: diff changeset	614 movff RCREG1, hours
11d4fc797f74 init heinrichsweikamp parents: diff changeset	615 movlw d'24'
11d4fc797f74 init heinrichsweikamp parents: diff changeset	616 cpfslt hours
11d4fc797f74 init heinrichsweikamp parents: diff changeset	617 clrf hours
11d4fc797f74 init heinrichsweikamp parents: diff changeset	618 call rs232_get_byte
11d4fc797f74 init heinrichsweikamp parents: diff changeset	619 btfsc rs232_recieve_overflow ; Got byte?
128 bd74161c4292 catch timeout during set time/date command heinrichsweikamp parents: 124 diff changeset	620 bra comm_download_mode0 ; No, abort
0 11d4fc797f74 init heinrichsweikamp parents: diff changeset	621 movff RCREG1, mins
11d4fc797f74 init heinrichsweikamp parents: diff changeset	622 movlw d'60'
11d4fc797f74 init heinrichsweikamp parents: diff changeset	623 cpfslt mins
11d4fc797f74 init heinrichsweikamp parents: diff changeset	624 clrf mins
11d4fc797f74 init heinrichsweikamp parents: diff changeset	625 call rs232_get_byte
11d4fc797f74 init heinrichsweikamp parents: diff changeset	626 btfsc rs232_recieve_overflow ; Got byte?
128 bd74161c4292 catch timeout during set time/date command heinrichsweikamp parents: 124 diff changeset	627 bra comm_download_mode0 ; No, abort
0 11d4fc797f74 init heinrichsweikamp parents: diff changeset	628 movff RCREG1, secs
11d4fc797f74 init heinrichsweikamp parents: diff changeset	629 movlw d'60'
11d4fc797f74 init heinrichsweikamp parents: diff changeset	630 cpfslt secs
11d4fc797f74 init heinrichsweikamp parents: diff changeset	631 clrf secs
11d4fc797f74 init heinrichsweikamp parents: diff changeset	632 call rs232_get_byte
11d4fc797f74 init heinrichsweikamp parents: diff changeset	633 btfsc rs232_recieve_overflow ; Got byte?
128 bd74161c4292 catch timeout during set time/date command heinrichsweikamp parents: 124 diff changeset	634 bra comm_download_mode0 ; No, abort
0 11d4fc797f74 init heinrichsweikamp parents: diff changeset	635 movff RCREG1, month
11d4fc797f74 init heinrichsweikamp parents: diff changeset	636 movlw d'13'
11d4fc797f74 init heinrichsweikamp parents: diff changeset	637 cpfslt month
11d4fc797f74 init heinrichsweikamp parents: diff changeset	638 movwf month
11d4fc797f74 init heinrichsweikamp parents: diff changeset	639 call rs232_get_byte
11d4fc797f74 init heinrichsweikamp parents: diff changeset	640 btfsc rs232_recieve_overflow ; Got byte?
128 bd74161c4292 catch timeout during set time/date command heinrichsweikamp parents: 124 diff changeset	641 bra comm_download_mode0 ; No, abort
92 7ca1105751c7 add sensor calibration option (PC only), some cleanup heinrichsweikamp parents: 81 diff changeset	642 call comm_check_day ; Check day
0 11d4fc797f74 init heinrichsweikamp parents: diff changeset	643 call rs232_get_byte
11d4fc797f74 init heinrichsweikamp parents: diff changeset	644 btfsc rs232_recieve_overflow ; Got byte?
128 bd74161c4292 catch timeout during set time/date command heinrichsweikamp parents: 124 diff changeset	645 bra comm_download_mode0 ; No, abort
0 11d4fc797f74 init heinrichsweikamp parents: diff changeset	646 movff RCREG1, year
11d4fc797f74 init heinrichsweikamp parents: diff changeset	647 movlw d'100'
11d4fc797f74 init heinrichsweikamp parents: diff changeset	648 cpfslt year
11d4fc797f74 init heinrichsweikamp parents: diff changeset	649 clrf year
11d4fc797f74 init heinrichsweikamp parents: diff changeset	650 ; All ok, set RTCC
11d4fc797f74 init heinrichsweikamp parents: diff changeset	651 call rtc_set_rtc ; writes mins,sec,hours,day,month and year to rtc module
11d4fc797f74 init heinrichsweikamp parents: diff changeset	652 bra comm_download_mode0 ; Done. back to loop with timeout reset
11d4fc797f74 init heinrichsweikamp parents: diff changeset	653
11d4fc797f74 init heinrichsweikamp parents: diff changeset	654 ;-----------------------------------------------------------------------------
11d4fc797f74 init heinrichsweikamp parents: diff changeset	655 ; Set OSTC3 custom text string (opt_name_length ascii chars).
11d4fc797f74 init heinrichsweikamp parents: diff changeset	656 ;
11d4fc797f74 init heinrichsweikamp parents: diff changeset	657
11d4fc797f74 init heinrichsweikamp parents: diff changeset	658 comm_set_custom_text:
11d4fc797f74 init heinrichsweikamp parents: diff changeset	659 movlw "c" ; send echo
11d4fc797f74 init heinrichsweikamp parents: diff changeset	660 movwf TXREG1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	661 call rs232_wait_tx ; wait for UART
11d4fc797f74 init heinrichsweikamp parents: diff changeset	662 lfsr FSR2,opt_name
11d4fc797f74 init heinrichsweikamp parents: diff changeset	663 movlw opt_name_length
11d4fc797f74 init heinrichsweikamp parents: diff changeset	664 movwf lo ; counter
11d4fc797f74 init heinrichsweikamp parents: diff changeset	665 comm_set_ctext_loop:
11d4fc797f74 init heinrichsweikamp parents: diff changeset	666 call rs232_get_byte
11d4fc797f74 init heinrichsweikamp parents: diff changeset	667 btfsc rs232_recieve_overflow ; Got byte?
136 9a637c9bb19a rename Deco Planner to Simulator heinrichsweikamp parents: 128 diff changeset	668 bra comm_set_ctext_loop_done ; no, abort
7 1ab317814dd7 fix custom text <60 chars heinrichsweikamp parents: 0 diff changeset	669 movff RCREG1,POSTINC2 ; Store character
0 11d4fc797f74 init heinrichsweikamp parents: diff changeset	670 decfsz lo,F
11d4fc797f74 init heinrichsweikamp parents: diff changeset	671 bra comm_set_ctext_loop
136 9a637c9bb19a rename Deco Planner to Simulator heinrichsweikamp parents: 128 diff changeset	672 comm_set_ctext_loop_done:
9a637c9bb19a rename Deco Planner to Simulator heinrichsweikamp parents: 128 diff changeset	673 tstfsz lo ; Got opt_name_length bytes?
9a637c9bb19a rename Deco Planner to Simulator heinrichsweikamp parents: 128 diff changeset	674 bra comm_set_ctext_loop_done2 ; no, clear remaining chars
9a637c9bb19a rename Deco Planner to Simulator heinrichsweikamp parents: 128 diff changeset	675 bra comm_download_mode0 ; Done. Loop with timeout reset
9a637c9bb19a rename Deco Planner to Simulator heinrichsweikamp parents: 128 diff changeset	676 comm_set_ctext_loop_done2:
9a637c9bb19a rename Deco Planner to Simulator heinrichsweikamp parents: 128 diff changeset	677 clrf POSTINC2
9a637c9bb19a rename Deco Planner to Simulator heinrichsweikamp parents: 128 diff changeset	678 decfsz lo,F
9a637c9bb19a rename Deco Planner to Simulator heinrichsweikamp parents: 128 diff changeset	679 bra comm_set_ctext_loop_done2
7 1ab317814dd7 fix custom text <60 chars heinrichsweikamp parents: 0 diff changeset	680 bra comm_download_mode0 ; Done. Loop with timeout reset
0 11d4fc797f74 init heinrichsweikamp parents: diff changeset	681
11d4fc797f74 init heinrichsweikamp parents: diff changeset	682 ;-----------------------------------------------------------------------------
11d4fc797f74 init heinrichsweikamp parents: diff changeset	683 ; Reply Serial (2 bytes low:high), firmware (major.minor) and custom text.
11d4fc797f74 init heinrichsweikamp parents: diff changeset	684 ;
11d4fc797f74 init heinrichsweikamp parents: diff changeset	685
11d4fc797f74 init heinrichsweikamp parents: diff changeset	686 comm_identify:
11d4fc797f74 init heinrichsweikamp parents: diff changeset	687 movlw "i" ; send echo
11d4fc797f74 init heinrichsweikamp parents: diff changeset	688 movwf TXREG1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	689 call rs232_wait_tx ; wait for UART
11d4fc797f74 init heinrichsweikamp parents: diff changeset	690
11d4fc797f74 init heinrichsweikamp parents: diff changeset	691 ;---- Read serial from internal EEPROM address 0000
11d4fc797f74 init heinrichsweikamp parents: diff changeset	692 clrf EEADRH
11d4fc797f74 init heinrichsweikamp parents: diff changeset	693 clrf EEADR ; Get Serial number LOW
11d4fc797f74 init heinrichsweikamp parents: diff changeset	694 call read_eeprom ; read byte
11d4fc797f74 init heinrichsweikamp parents: diff changeset	695 movff EEDATA,lo
11d4fc797f74 init heinrichsweikamp parents: diff changeset	696 incf EEADR,F ; Get Serial number HIGH
11d4fc797f74 init heinrichsweikamp parents: diff changeset	697 call read_eeprom ; read byte
11d4fc797f74 init heinrichsweikamp parents: diff changeset	698 movff EEDATA,hi
11d4fc797f74 init heinrichsweikamp parents: diff changeset	699
11d4fc797f74 init heinrichsweikamp parents: diff changeset	700 ;---- Emit serial number
11d4fc797f74 init heinrichsweikamp parents: diff changeset	701 movff lo,TXREG1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	702 call rs232_wait_tx
11d4fc797f74 init heinrichsweikamp parents: diff changeset	703 movff hi,TXREG1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	704 call rs232_wait_tx
11d4fc797f74 init heinrichsweikamp parents: diff changeset	705
11d4fc797f74 init heinrichsweikamp parents: diff changeset	706 ;---- Emit fiwmware hi.lo
11d4fc797f74 init heinrichsweikamp parents: diff changeset	707 movlw softwareversion_x
11d4fc797f74 init heinrichsweikamp parents: diff changeset	708 movwf TXREG1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	709 call rs232_wait_tx
11d4fc797f74 init heinrichsweikamp parents: diff changeset	710 movlw softwareversion_y
11d4fc797f74 init heinrichsweikamp parents: diff changeset	711 movwf TXREG1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	712 call rs232_wait_tx
11d4fc797f74 init heinrichsweikamp parents: diff changeset	713
11d4fc797f74 init heinrichsweikamp parents: diff changeset	714 ;---- Emit custom text
11d4fc797f74 init heinrichsweikamp parents: diff changeset	715 movlw opt_name_length
11d4fc797f74 init heinrichsweikamp parents: diff changeset	716 movwf hi
11d4fc797f74 init heinrichsweikamp parents: diff changeset	717 lfsr FSR2,opt_name
11d4fc797f74 init heinrichsweikamp parents: diff changeset	718
11d4fc797f74 init heinrichsweikamp parents: diff changeset	719 common_identify_loop:
11d4fc797f74 init heinrichsweikamp parents: diff changeset	720 movff POSTINC2,TXREG1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	721 call rs232_wait_tx
11d4fc797f74 init heinrichsweikamp parents: diff changeset	722 decfsz hi,F
11d4fc797f74 init heinrichsweikamp parents: diff changeset	723 bra common_identify_loop
11d4fc797f74 init heinrichsweikamp parents: diff changeset	724
11d4fc797f74 init heinrichsweikamp parents: diff changeset	725 bra comm_download_mode0 ; Done.
11d4fc797f74 init heinrichsweikamp parents: diff changeset	726
11d4fc797f74 init heinrichsweikamp parents: diff changeset	727
11d4fc797f74 init heinrichsweikamp parents: diff changeset	728 ;-----------------------------------------------------------------------------
11d4fc797f74 init heinrichsweikamp parents: diff changeset	729
11d4fc797f74 init heinrichsweikamp parents: diff changeset	730 comm_send_dive:
11d4fc797f74 init heinrichsweikamp parents: diff changeset	731 movlw "f" ; send echo
11d4fc797f74 init heinrichsweikamp parents: diff changeset	732 movwf TXREG1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	733
11d4fc797f74 init heinrichsweikamp parents: diff changeset	734 call rs232_get_byte
11d4fc797f74 init heinrichsweikamp parents: diff changeset	735 btfsc rs232_recieve_overflow ; Got byte?
11d4fc797f74 init heinrichsweikamp parents: diff changeset	736 bra comm_download_mode0 ; No, abort!
11d4fc797f74 init heinrichsweikamp parents: diff changeset	737 movff RCREG1,lo ; Store dive number (0-255)
11d4fc797f74 init heinrichsweikamp parents: diff changeset	738 ; First, send the header (again)
11d4fc797f74 init heinrichsweikamp parents: diff changeset	739 ; Set ext_flash_address:3 to TOC entry of this dive
11d4fc797f74 init heinrichsweikamp parents: diff changeset	740 ; 1st: 200000h-200FFFh -> lo=0
11d4fc797f74 init heinrichsweikamp parents: diff changeset	741 ; 2nd: 201000h-201FFFh -> lo=1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	742 ; 3rd: 202000h-202FFFh -> lo=2
11d4fc797f74 init heinrichsweikamp parents: diff changeset	743 ; 256: 2FF000h-2FFFFFh -> lo=255
11d4fc797f74 init heinrichsweikamp parents: diff changeset	744 clrf ext_flash_address+0
11d4fc797f74 init heinrichsweikamp parents: diff changeset	745 clrf ext_flash_address+1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	746 movlw 0x20
11d4fc797f74 init heinrichsweikamp parents: diff changeset	747 movwf ext_flash_address+2
11d4fc797f74 init heinrichsweikamp parents: diff changeset	748 movlw .16
11d4fc797f74 init heinrichsweikamp parents: diff changeset	749 mulwf lo ; lo*16 = offset to 0x2000 (up:hi)
11d4fc797f74 init heinrichsweikamp parents: diff changeset	750 movf PRODL,W
11d4fc797f74 init heinrichsweikamp parents: diff changeset	751 addwf ext_flash_address+1,F
11d4fc797f74 init heinrichsweikamp parents: diff changeset	752 movf PRODH,W
11d4fc797f74 init heinrichsweikamp parents: diff changeset	753 addwfc ext_flash_address+2,F
11d4fc797f74 init heinrichsweikamp parents: diff changeset	754
11d4fc797f74 init heinrichsweikamp parents: diff changeset	755 incf_ext_flash_address d'2' ; Skip 0xFA, 0xFA
11d4fc797f74 init heinrichsweikamp parents: diff changeset	756 call ext_flash_byte_read_plus ; Read start address of profile
11d4fc797f74 init heinrichsweikamp parents: diff changeset	757 movff temp1,ext_flash_log_pointer+0
11d4fc797f74 init heinrichsweikamp parents: diff changeset	758 call ext_flash_byte_read_plus ; Read start address of profile
11d4fc797f74 init heinrichsweikamp parents: diff changeset	759 movff temp1,ext_flash_log_pointer+1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	760 call ext_flash_byte_read_plus ; Read start address of profile
11d4fc797f74 init heinrichsweikamp parents: diff changeset	761 movff temp1,ext_flash_log_pointer+2
11d4fc797f74 init heinrichsweikamp parents: diff changeset	762 call ext_flash_byte_read_plus ; Read end address of profile
11d4fc797f74 init heinrichsweikamp parents: diff changeset	763 movff temp1,convert_value_temp+0
11d4fc797f74 init heinrichsweikamp parents: diff changeset	764 call ext_flash_byte_read_plus ; Read end address of profile
11d4fc797f74 init heinrichsweikamp parents: diff changeset	765 movff temp1,convert_value_temp+1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	766 call ext_flash_byte_read_plus ; Read end address of profile
11d4fc797f74 init heinrichsweikamp parents: diff changeset	767 movff temp1,convert_value_temp+2
11d4fc797f74 init heinrichsweikamp parents: diff changeset	768 decf_ext_flash_address d'8' ; Back again to first 0xFA in header
11d4fc797f74 init heinrichsweikamp parents: diff changeset	769
11d4fc797f74 init heinrichsweikamp parents: diff changeset	770 movf ext_flash_log_pointer+0,W
11d4fc797f74 init heinrichsweikamp parents: diff changeset	771 cpfseq convert_value_temp+0 ; Equal?
11d4fc797f74 init heinrichsweikamp parents: diff changeset	772 bra comm_send_dive1 ; No, Send header
11d4fc797f74 init heinrichsweikamp parents: diff changeset	773
11d4fc797f74 init heinrichsweikamp parents: diff changeset	774 movf ext_flash_log_pointer+1,W
11d4fc797f74 init heinrichsweikamp parents: diff changeset	775 cpfseq convert_value_temp+1 ; Equal?
11d4fc797f74 init heinrichsweikamp parents: diff changeset	776 bra comm_send_dive1 ; No, Send header
11d4fc797f74 init heinrichsweikamp parents: diff changeset	777
11d4fc797f74 init heinrichsweikamp parents: diff changeset	778 movf ext_flash_log_pointer+2,W
11d4fc797f74 init heinrichsweikamp parents: diff changeset	779 cpfseq convert_value_temp+2 ; Equal?
11d4fc797f74 init heinrichsweikamp parents: diff changeset	780 bra comm_send_dive1 ; No, Send header
11d4fc797f74 init heinrichsweikamp parents: diff changeset	781
11d4fc797f74 init heinrichsweikamp parents: diff changeset	782 ; Start=End -> Not good, abort
11d4fc797f74 init heinrichsweikamp parents: diff changeset	783 bra comm_download_mode0 ; Done. Loop with timeout reset
11d4fc797f74 init heinrichsweikamp parents: diff changeset	784
11d4fc797f74 init heinrichsweikamp parents: diff changeset	785 comm_send_dive1:
11d4fc797f74 init heinrichsweikamp parents: diff changeset	786 ; Send header
11d4fc797f74 init heinrichsweikamp parents: diff changeset	787 clrf hi ; Counter
11d4fc797f74 init heinrichsweikamp parents: diff changeset	788 call rs232_wait_tx ; Wait for UART
11d4fc797f74 init heinrichsweikamp parents: diff changeset	789 call ext_flash_read_block_start ; 1st byte
11d4fc797f74 init heinrichsweikamp parents: diff changeset	790 movwf TXREG1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	791 bra comm_send_dive_header
11d4fc797f74 init heinrichsweikamp parents: diff changeset	792 comm_send_dive_header2:
11d4fc797f74 init heinrichsweikamp parents: diff changeset	793 call ext_flash_read_block ; Read one byte
11d4fc797f74 init heinrichsweikamp parents: diff changeset	794 movwf TXREG1 ; Start new transmit
11d4fc797f74 init heinrichsweikamp parents: diff changeset	795 comm_send_dive_header:
11d4fc797f74 init heinrichsweikamp parents: diff changeset	796 call rs232_wait_tx ; Wait for UART
11d4fc797f74 init heinrichsweikamp parents: diff changeset	797 decfsz hi,F
11d4fc797f74 init heinrichsweikamp parents: diff changeset	798 bra comm_send_dive_header2
11d4fc797f74 init heinrichsweikamp parents: diff changeset	799 call ext_flash_read_block_stop
11d4fc797f74 init heinrichsweikamp parents: diff changeset	800
11d4fc797f74 init heinrichsweikamp parents: diff changeset	801 ; Set address for profile
11d4fc797f74 init heinrichsweikamp parents: diff changeset	802 movff ext_flash_log_pointer+0,ext_flash_address+0
11d4fc797f74 init heinrichsweikamp parents: diff changeset	803 movff ext_flash_log_pointer+1,ext_flash_address+1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	804 movff ext_flash_log_pointer+2,ext_flash_address+2
11d4fc797f74 init heinrichsweikamp parents: diff changeset	805
11d4fc797f74 init heinrichsweikamp parents: diff changeset	806 movlw .6 ; Skip 6byte short header in profile - only for internal use
11d4fc797f74 init heinrichsweikamp parents: diff changeset	807 call incf_ext_flash_address0_0x20 ; increases bytes in ext_flash_address:3 with 0x200000 bank switching
11d4fc797f74 init heinrichsweikamp parents: diff changeset	808
11d4fc797f74 init heinrichsweikamp parents: diff changeset	809 comm_send_dive_profile:
11d4fc797f74 init heinrichsweikamp parents: diff changeset	810 call ext_flash_byte_read_plus_0x20 ; Read one byte into temp1, takes care of banking at 0x200000
11d4fc797f74 init heinrichsweikamp parents: diff changeset	811 call rs232_wait_tx ; Wait for UART
11d4fc797f74 init heinrichsweikamp parents: diff changeset	812 movff temp1,TXREG1 ; Send a byte
11d4fc797f74 init heinrichsweikamp parents: diff changeset	813
11d4fc797f74 init heinrichsweikamp parents: diff changeset	814 ; 24bit compare with end address
11d4fc797f74 init heinrichsweikamp parents: diff changeset	815 movff convert_value_temp+0,WREG
11d4fc797f74 init heinrichsweikamp parents: diff changeset	816 cpfseq ext_flash_address+0
11d4fc797f74 init heinrichsweikamp parents: diff changeset	817 bra comm_send_dive_profile
11d4fc797f74 init heinrichsweikamp parents: diff changeset	818 movff convert_value_temp+1,WREG
11d4fc797f74 init heinrichsweikamp parents: diff changeset	819 cpfseq ext_flash_address+1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	820 bra comm_send_dive_profile
11d4fc797f74 init heinrichsweikamp parents: diff changeset	821 movff convert_value_temp+2,WREG
11d4fc797f74 init heinrichsweikamp parents: diff changeset	822 cpfseq ext_flash_address+2
11d4fc797f74 init heinrichsweikamp parents: diff changeset	823 bra comm_send_dive_profile
11d4fc797f74 init heinrichsweikamp parents: diff changeset	824
11d4fc797f74 init heinrichsweikamp parents: diff changeset	825 call rs232_wait_tx ; Wait for UART
11d4fc797f74 init heinrichsweikamp parents: diff changeset	826 bra comm_download_mode0 ; Done. Loop with timeout reset
11d4fc797f74 init heinrichsweikamp parents: diff changeset	827
11d4fc797f74 init heinrichsweikamp parents: diff changeset	828 ;-----------------------------------------------------------------------------
11d4fc797f74 init heinrichsweikamp parents: diff changeset	829
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	830 comm_read_unused:
2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	831 bra comm_download_mode0 ; Done. Loop with timeout reset
2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	832
79 0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	833 comm_read_setting:
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	834 movlw "r"
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	835 movwf TXREG1
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	836 call rs232_get_byte
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	837 btfsc rs232_recieve_overflow ; Got byte?
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	838 bra comm_read_abort ; No, abort!
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	839 call rs232_wait_tx ; Wait for UART
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	840 movf RCREG1,W ; Copy
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	841 bz comm_read_unused ; RCREG1=0x00
79 0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	842 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	843 bra comm_read_unused ; RCREG1=0x01
79 0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	844 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	845 bra comm_read_unused ; RCREG1=0x02
79 0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	846 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	847 bra comm_read_unused ; RCREG1=0x03
79 0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	848 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	849 bra comm_read_unused ; RCREG1=0x04
79 0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	850 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	851 bra comm_read_unused ; RCREG1=0x05
79 0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	852 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	853 bra comm_read_unused ; RCREG1=0x06
79 0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	854 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	855 bra comm_read_unused ; RCREG1=0x07
79 0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	856 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	857 bra comm_read_unused ; RCREG1=0x08
79 0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	858 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	859 bra comm_read_unused ; RCREG1=0x09
79 0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	860 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	861 bra comm_read_unused ; RCREG1=0x0A
79 0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	862 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	863 bra comm_read_unused ; RCREG1=0x0B
79 0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	864 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	865 bra comm_read_unused ; RCREG1=0x0C
79 0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	866 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	867 bra comm_read_unused ; RCREG1=0x0D
79 0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	868 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	869 bra comm_read_unused ; RCREG1=0x0E
79 0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	870 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	871 bra comm_read_unused ; RCREG1=0x0F
79 0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	872 dcfsnz WREG
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	873 bra comm_read_gas1 ; RCREG1=0x10
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	874 dcfsnz WREG
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	875 bra comm_read_gas2 ; RCREG1=0x11
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	876 dcfsnz WREG
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	877 bra comm_read_gas3 ; RCREG1=0x12
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	878 dcfsnz WREG
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	879 bra comm_read_gas4 ; RCREG1=0x13
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	880 dcfsnz WREG
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	881 bra comm_read_gas5 ; RCREG1=0x14
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	882 dcfsnz WREG
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	883 bra comm_read_dil1 ; RCREG1=0x15
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	884 dcfsnz WREG
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	885 bra comm_read_dil2 ; RCREG1=0x16
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	886 dcfsnz WREG
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	887 bra comm_read_dil3 ; RCREG1=0x17
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	888 dcfsnz WREG
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	889 bra comm_read_dil4 ; RCREG1=0x18
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	890 dcfsnz WREG
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	891 bra comm_read_dil5 ; RCREG1=0x19
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	892 dcfsnz WREG
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	893 bra comm_read_sp1 ; RCREG1=0x1A
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	894 dcfsnz WREG
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	895 bra comm_read_sp2 ; RCREG1=0x1B
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	896 dcfsnz WREG
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	897 bra comm_read_sp3 ; RCREG1=0x1C
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	898 dcfsnz WREG
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	899 bra comm_read_sp4 ; RCREG1=0x1D
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	900 dcfsnz WREG
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	901 bra comm_read_sp5 ; RCREG1=0x1E
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	902 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	903 movff opt_ccr_mode, TXREG1 ; RCREG1=0x1F
79 0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	904 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	905 movff opt_dive_mode, TXREG1 ; RCREG1=0x20
79 0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	906 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	907 movff char_I_deco_model, TXREG1 ; RCREG1=0x21
79 0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	908 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	909 movff opt_ppO2_max, TXREG1 ; RCREG1=0x22
79 0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	910 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	911 movff opt_ppO2_min, TXREG1 ; RCREG1=0x23
79 0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	912 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	913 movff char_I_extra_time, TXREG1 ; RCREG1=0x24
79 0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	914 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	915 movff opt_GF_low, TXREG1 ; RCREG1=0x25
79 0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	916 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	917 movff opt_GF_high, TXREG1 ; RCREG1=0x26
79 0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	918 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	919 movff opt_aGF_low, TXREG1 ; RCREG1=0x27
79 0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	920 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	921 movff opt_aGF_high, TXREG1 ; RCREG1=0x28
79 0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	922 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	923 movff opt_enable_aGF, TXREG1 ; RCREG1=0x29
79 0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	924 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	925 movff char_I_saturation_multiplier, TXREG1; RCREG1=0x2A
79 0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	926 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	927 movff char_I_desaturation_multiplier, TXREG1; RCREG1=0x2B
79 0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	928 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	929 movff opt_last_stop, TXREG1 ; RCREG1=0x2C
79 0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	930 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	931 movff opt_brightness, TXREG1 ; RCREG1=0x2D
79 0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	932 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	933 movff opt_units, TXREG1 ; RCREG1=0x2E
79 0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	934 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	935 movff opt_sampling_rate, TXREG1 ; RCREG1=0x2F
79 0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	936 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	937 movff opt_salinity, TXREG1 ; RCREG1=0x30
79 0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	938 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	939 movff opt_dive_color_scheme, TXREG1 ; RCREG1=0x31
79 0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	940 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	941 movff opt_language, TXREG1 ; RCREG1=0x32
79 0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	942 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	943 movff opt_dateformat, TXREG1 ; RCREG1=0x33
92 7ca1105751c7 add sensor calibration option (PC only), some cleanup heinrichsweikamp parents: 81 diff changeset	944 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	945 movff opt_compass_gain, TXREG1 ; RCREG1=0x34
110 d39493c786a2 BUGFIX: OSTC settings via USB issues heinrichsweikamp parents: 97 diff changeset	946 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	947 movff opt_pressure_adjust, TXREG1 ; RCREG1=0x35
157 5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	948 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	949 movff opt_enable_safetystop, TXREG1 ; RCREG1=0x36
157 5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	950 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	951 movff opt_calibration_O2_ratio, TXREG1; RCREG1=0x37
157 5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	952 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	953 movff opt_sensor_fallback, TXREG1 ; RCREG1=0x38
2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	954 dcfsnz WREG
2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	955 movff opt_flip_screen, TXREG1 ; RCREG1=0x39
79 0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	956
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	957 comm_read_abort:
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	958 bra comm_download_mode0 ; Done. Loop with timeout reset
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	959
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	960 comm_read_setting_wait:
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	961 call rs232_wait_tx ; Wait for UART
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	962 return
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	963
157 5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	964 comm_read_done:
5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	965 call rs232_wait_tx ; Wait for UART
5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	966 bra comm_download_mode0 ; Done. Loop with timeout reset
5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	967
79 0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	968 comm_read_gas1:
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	969 movff opt_gas_O2_ratio+0, TXREG1
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	970 rcall comm_read_setting_wait ; Wait for UART
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	971 movff opt_gas_He_ratio+0, TXREG1
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	972 rcall comm_read_setting_wait ; Wait for UART
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	973 movff opt_gas_type+0, TXREG1
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	974 rcall comm_read_setting_wait ; Wait for UART
97 53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases heinrichsweikamp parents: 92 diff changeset	975 movff opt_OC_bail_gas_change+0,TXREG1
157 5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	976 bra comm_read_done ; Done. Wait for UART and loop with timeout reset
79 0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	977 comm_read_gas2:
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	978 movff opt_gas_O2_ratio+1, TXREG1
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	979 rcall comm_read_setting_wait ; Wait for UART
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	980 movff opt_gas_He_ratio+1, TXREG1
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	981 rcall comm_read_setting_wait ; Wait for UART
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	982 movff opt_gas_type+1, TXREG1
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	983 rcall comm_read_setting_wait ; Wait for UART
97 53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases heinrichsweikamp parents: 92 diff changeset	984 movff opt_OC_bail_gas_change+1,TXREG1
157 5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	985 bra comm_read_done ; Done. Wait for UART and loop with timeout reset
79 0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	986 comm_read_gas3:
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	987 movff opt_gas_O2_ratio+2, TXREG1
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	988 rcall comm_read_setting_wait ; Wait for UART
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	989 movff opt_gas_He_ratio+2, TXREG1
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	990 rcall comm_read_setting_wait ; Wait for UART
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	991 movff opt_gas_type+2, TXREG1
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	992 rcall comm_read_setting_wait ; Wait for UART
97 53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases heinrichsweikamp parents: 92 diff changeset	993 movff opt_OC_bail_gas_change+2,TXREG1
157 5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	994 bra comm_read_done ; Done. Wait for UART and loop with timeout reset
79 0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	995 comm_read_gas4:
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	996 movff opt_gas_O2_ratio+3, TXREG1
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	997 rcall comm_read_setting_wait ; Wait for UART
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	998 movff opt_gas_He_ratio+3, TXREG1
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	999 rcall comm_read_setting_wait ; Wait for UART
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1000 movff opt_gas_type+3, TXREG1
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1001 rcall comm_read_setting_wait ; Wait for UART
97 53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases heinrichsweikamp parents: 92 diff changeset	1002 movff opt_OC_bail_gas_change+3,TXREG1
157 5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	1003 bra comm_read_done ; Done. Wait for UART and loop with timeout reset
79 0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1004 comm_read_gas5:
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1005 movff opt_gas_O2_ratio+4, TXREG1
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1006 rcall comm_read_setting_wait ; Wait for UART
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1007 movff opt_gas_He_ratio+4, TXREG1
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1008 rcall comm_read_setting_wait ; Wait for UART
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1009 movff opt_gas_type+4, TXREG1
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1010 rcall comm_read_setting_wait ; Wait for UART
97 53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases heinrichsweikamp parents: 92 diff changeset	1011 movff opt_OC_bail_gas_change+4,TXREG1
157 5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	1012 bra comm_read_done ; Done. Wait for UART and loop with timeout reset
79 0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1013
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1014 comm_read_dil1:
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1015 movff opt_dil_O2_ratio+0, TXREG1
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1016 rcall comm_read_setting_wait ; Wait for UART
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1017 movff opt_dil_He_ratio+0, TXREG1
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1018 rcall comm_read_setting_wait ; Wait for UART
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1019 movff opt_dil_type+0, TXREG1
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1020 rcall comm_read_setting_wait ; Wait for UART
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1021 movff char_I_dil_change+0,TXREG1
157 5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	1022 bra comm_read_done ; Done. Wait for UART and loop with timeout reset
79 0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1023 comm_read_dil2:
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1024 movff opt_dil_O2_ratio+1, TXREG1
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1025 rcall comm_read_setting_wait ; Wait for UART
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1026 movff opt_dil_He_ratio+1, TXREG1
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1027 rcall comm_read_setting_wait ; Wait for UART
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1028 movff opt_dil_type+1, TXREG1
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1029 rcall comm_read_setting_wait ; Wait for UART
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1030 movff char_I_dil_change+1,TXREG1
157 5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	1031 bra comm_read_done ; Done. Wait for UART and loop with timeout reset
79 0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1032 comm_read_dil3:
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1033 movff opt_dil_O2_ratio+2, TXREG1
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1034 rcall comm_read_setting_wait ; Wait for UART
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1035 movff opt_dil_He_ratio+2, TXREG1
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1036 rcall comm_read_setting_wait ; Wait for UART
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1037 movff opt_dil_type+2, TXREG1
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1038 rcall comm_read_setting_wait ; Wait for UART
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1039 movff char_I_dil_change+2,TXREG1
157 5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	1040 bra comm_read_done ; Done. Wait for UART and loop with timeout reset
79 0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1041 comm_read_dil4:
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1042 movff opt_dil_O2_ratio+3, TXREG1
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1043 rcall comm_read_setting_wait ; Wait for UART
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1044 movff opt_dil_He_ratio+3, TXREG1
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1045 rcall comm_read_setting_wait ; Wait for UART
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1046 movff opt_dil_type+3, TXREG1
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1047 rcall comm_read_setting_wait ; Wait for UART
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1048 movff char_I_dil_change+3,TXREG1
157 5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	1049 bra comm_read_done ; Done. Wait for UART and loop with timeout reset
79 0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1050 comm_read_dil5:
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1051 movff opt_dil_O2_ratio+4, TXREG1
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1052 rcall comm_read_setting_wait ; Wait for UART
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1053 movff opt_dil_He_ratio+4, TXREG1
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1054 rcall comm_read_setting_wait ; Wait for UART
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1055 movff opt_dil_type+4, TXREG1
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1056 rcall comm_read_setting_wait ; Wait for UART
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1057 movff char_I_dil_change+4,TXREG1
157 5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	1058 bra comm_read_done ; Done. Wait for UART and loop with timeout reset
79 0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1059
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1060 comm_read_sp1:
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1061 movff char_I_setpoint_cbar+0, TXREG1
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1062 rcall comm_read_setting_wait ; Wait for UART
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1063 movff char_I_setpoint_change+0, TXREG1
157 5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	1064 bra comm_read_done ; Done. Wait for UART and loop with timeout reset
79 0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1065 comm_read_sp2:
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1066 movff char_I_setpoint_cbar+1, TXREG1
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1067 rcall comm_read_setting_wait ; Wait for UART
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1068 movff char_I_setpoint_change+1, TXREG1
157 5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	1069 bra comm_read_done ; Done. Wait for UART and loop with timeout reset
79 0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1070 comm_read_sp3:
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1071 movff char_I_setpoint_cbar+2, TXREG1
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1072 rcall comm_read_setting_wait ; Wait for UART
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1073 movff char_I_setpoint_change+2, TXREG1
157 5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	1074 bra comm_read_done ; Done. Wait for UART and loop with timeout reset
79 0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1075 comm_read_sp4:
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1076 movff char_I_setpoint_cbar+3, TXREG1
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1077 rcall comm_read_setting_wait ; Wait for UART
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1078 movff char_I_setpoint_change+3, TXREG1
157 5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	1079 bra comm_read_done ; Done. Wait for UART and loop with timeout reset
79 0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1080 comm_read_sp5:
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1081 movff char_I_setpoint_cbar+4, TXREG1
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1082 rcall comm_read_setting_wait ; Wait for UART
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1083 movff char_I_setpoint_change+4, TXREG1
157 5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	1084 bra comm_read_done ; Done. Wait for UART and loop with timeout reset
110 d39493c786a2 BUGFIX: OSTC settings via USB issues heinrichsweikamp parents: 97 diff changeset	1085
79 0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1086
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1087 ;-----------------------------------------------------------------------------
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1088
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	1089 comm_write_unused:
2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	1090 goto comm_write_abort
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1091
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1092 comm_write_setting:
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1093 movlw "w"
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1094 movwf TXREG1
157 5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	1095 rcall comm_write_get_byte ; "Byte 2"
5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	1096 btfsc rs232_recieve_overflow ; Got byte?
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1097 bra comm_write_abort ; No, abort!
157 5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	1098 movff RCREG1,temp1 ; Copy
5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	1099 rcall comm_write_get_byte ; "Byte 3"
5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	1100 call rs232_wait_tx ; Wait for UART
5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	1101 movf temp1,W
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	1102 bz comm_write_unused ; RCREG1=0x00
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1103 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	1104 bra comm_write_unused ; RCREG1=0x01
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1105 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	1106 bra comm_write_unused ; RCREG1=0x02
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1107 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	1108 bra comm_write_unused ; RCREG1=0x03
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1109 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	1110 bra comm_write_unused ; RCREG1=0x04
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1111 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	1112 bra comm_write_unused ; RCREG1=0x05
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1113 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	1114 bra comm_write_unused ; RCREG1=0x06
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1115 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	1116 bra comm_write_unused ; RCREG1=0x07
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1117 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	1118 bra comm_write_unused ; RCREG1=0x08
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1119 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	1120 bra comm_write_unused ; RCREG1=0x09
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1121 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	1122 bra comm_write_unused ; RCREG1=0x0A
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1123 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	1124 bra comm_write_unused ; RCREG1=0x0B
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1125 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	1126 bra comm_write_unused ; RCREG1=0x0C
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1127 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	1128 bra comm_write_unused ; RCREG1=0x0D
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1129 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	1130 bra comm_write_unused ; RCREG1=0x0E
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1131 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	1132 bra comm_write_unused ; RCREG1=0x0F
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1133 dcfsnz WREG
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1134 bra comm_write_gas1 ; RCREG1=0x10
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1135 dcfsnz WREG
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1136 bra comm_write_gas2 ; RCREG1=0x11
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1137 dcfsnz WREG
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1138 bra comm_write_gas3 ; RCREG1=0x12
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1139 dcfsnz WREG
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1140 bra comm_write_gas4 ; RCREG1=0x13
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1141 dcfsnz WREG
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1142 bra comm_write_gas5 ; RCREG1=0x14
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1143 dcfsnz WREG
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1144 bra comm_write_dil1 ; RCREG1=0x15
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1145 dcfsnz WREG
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1146 bra comm_write_dil2 ; RCREG1=0x16
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1147 dcfsnz WREG
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1148 bra comm_write_dil3 ; RCREG1=0x17
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1149 dcfsnz WREG
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1150 bra comm_write_dil4 ; RCREG1=0x18
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1151 dcfsnz WREG
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1152 bra comm_write_dil5 ; RCREG1=0x19
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1153 dcfsnz WREG
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1154 bra comm_write_sp1 ; RCREG1=0x1A
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1155 dcfsnz WREG
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1156 bra comm_write_sp2 ; RCREG1=0x1B
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1157 dcfsnz WREG
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1158 bra comm_write_sp3 ; RCREG1=0x1C
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1159 dcfsnz WREG
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1160 bra comm_write_sp4 ; RCREG1=0x1D
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1161 dcfsnz WREG
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1162 bra comm_write_sp5 ; RCREG1=0x1E
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1163 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	1164 movff RCREG1, opt_ccr_mode ; RCREG1=0x1F
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1165 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	1166 movff RCREG1, opt_dive_mode ; RCREG1=0x20
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1167 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	1168 movff RCREG1, char_I_deco_model ; RCREG1=0x21
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1169 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	1170 movff RCREG1, opt_ppO2_max ; RCREG1=0x22
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1171 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	1172 movff RCREG1, opt_ppO2_min ; RCREG1=0x23
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1173 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	1174 movff RCREG1, char_I_extra_time ; RCREG1=0x24
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1175 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	1176 movff RCREG1, opt_GF_low ; RCREG1=0x25
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1177 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	1178 movff RCREG1, opt_GF_high ; RCREG1=0x26
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1179 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	1180 movff RCREG1, opt_aGF_low ; RCREG1=0x27
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1181 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	1182 movff RCREG1, opt_aGF_high ; RCREG1=0x28
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1183 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	1184 movff RCREG1, opt_enable_aGF ; RCREG1=0x29
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1185 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	1186 movff RCREG1, char_I_saturation_multiplier; RCREG1=0x2A
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1187 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	1188 movff RCREG1, char_I_desaturation_multiplier; RCREG1=0x2B
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1189 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	1190 movff RCREG1, opt_last_stop ; RCREG1=0x2C
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1191 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	1192 movff RCREG1, opt_brightness ; RCREG1=0x2D
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1193 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	1194 movff RCREG1, opt_units ; RCREG1=0x2E
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1195 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	1196 movff RCREG1, opt_sampling_rate ; RCREG1=0x2F
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1197 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	1198 movff RCREG1, opt_salinity ; RCREG1=0x30
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1199 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	1200 movff RCREG1, opt_dive_color_scheme ; RCREG1=0x31
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1201 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	1202 movff RCREG1, opt_language ; RCREG1=0x32
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1203 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	1204 movff RCREG1, opt_dateformat ; RCREG1=0x33
92 7ca1105751c7 add sensor calibration option (PC only), some cleanup heinrichsweikamp parents: 81 diff changeset	1205 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	1206 movff RCREG1, opt_compass_gain ; RCREG1=0x34
110 d39493c786a2 BUGFIX: OSTC settings via USB issues heinrichsweikamp parents: 97 diff changeset	1207 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	1208 movff RCREG1, opt_pressure_adjust ; RCREG1=0x35
157 5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	1209 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	1210 movff RCREG1, opt_enable_safetystop ; RCREG1=0x36
157 5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	1211 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	1212 movff RCREG1, opt_calibration_O2_ratio; RCREG1=0x37
157 5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	1213 dcfsnz WREG
159 2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	1214 movff RCREG1, opt_sensor_fallback ; RCREG1=0x38
2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	1215 dcfsnz WREG
2eb037f48c3f 1.51 beta release - 1.52 beta start heinrichsweikamp parents: 157 diff changeset	1216 movff RCREG1, opt_flip_screen ; RCREG1=0x39
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1217
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1218 comm_write_abort:
81 8e13866b5496 add some extra safety checks when settings were altered from the PC software mh@mh-THINK.localdomain parents: 80 diff changeset	1219 ; Check Options, gases and diluents
8e13866b5496 add some extra safety checks when settings were altered from the PC software mh@mh-THINK.localdomain parents: 80 diff changeset	1220 call option_check_all ; Check all options (and reset if not within their min/max boundaries)
8e13866b5496 add some extra safety checks when settings were altered from the PC software mh@mh-THINK.localdomain parents: 80 diff changeset	1221 bsf ccr_diluent_setup ; =1: Setting up Diluents ("Gas6-10")
8e13866b5496 add some extra safety checks when settings were altered from the PC software mh@mh-THINK.localdomain parents: 80 diff changeset	1222 call gaslist_cleanup_list ; Takes care that only one gas can be first and first has 0m change depth
8e13866b5496 add some extra safety checks when settings were altered from the PC software mh@mh-THINK.localdomain parents: 80 diff changeset	1223 bcf ccr_diluent_setup ; =1: Setting up Diluents ("Gas6-10")
8e13866b5496 add some extra safety checks when settings were altered from the PC software mh@mh-THINK.localdomain parents: 80 diff changeset	1224 call gaslist_cleanup_list ; Takes care that only one gas can be first and first has 0m change depth
8e13866b5496 add some extra safety checks when settings were altered from the PC software mh@mh-THINK.localdomain parents: 80 diff changeset	1225 call get_first_gas_to_WREG ; Makes sure at least one Gas is "First"
8e13866b5496 add some extra safety checks when settings were altered from the PC software mh@mh-THINK.localdomain parents: 80 diff changeset	1226 call get_first_dil_to_WREG ; Makes sure at least one Diluent is "First"
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1227 bra comm_download_mode0 ; Done. Loop with timeout reset
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1228
157 5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	1229 comm_write_get_byte:
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1230 call rs232_get_byte
157 5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	1231 return
5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	1232
5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	1233 comm_write_gas1:
5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	1234 movff RCREG1,opt_gas_O2_ratio+0
5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	1235 rcall comm_write_get_byte
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1236 movff RCREG1,opt_gas_He_ratio+0
157 5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	1237 rcall comm_write_get_byte
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1238 movff RCREG1,opt_gas_type+0
157 5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	1239 rcall comm_write_get_byte
97 53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases heinrichsweikamp parents: 92 diff changeset	1240 movff RCREG1,opt_OC_bail_gas_change+0
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1241 bra comm_write_abort ; Done. Loop with timeout reset
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1242 comm_write_gas2:
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1243 movff RCREG1,opt_gas_O2_ratio+1
157 5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	1244 rcall comm_write_get_byte
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1245 movff RCREG1,opt_gas_He_ratio+1
157 5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	1246 rcall comm_write_get_byte
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1247 movff RCREG1,opt_gas_type+1
157 5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	1248 rcall comm_write_get_byte
97 53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases heinrichsweikamp parents: 92 diff changeset	1249 movff RCREG1,opt_OC_bail_gas_change+1
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1250 bra comm_write_abort ; Done. Loop with timeout reset
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1251 comm_write_gas3:
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1252 movff RCREG1,opt_gas_O2_ratio+2
157 5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	1253 rcall comm_write_get_byte
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1254 movff RCREG1,opt_gas_He_ratio+2
157 5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	1255 rcall comm_write_get_byte
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1256 movff RCREG1,opt_gas_type+2
157 5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	1257 rcall comm_write_get_byte
97 53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases heinrichsweikamp parents: 92 diff changeset	1258 movff RCREG1,opt_OC_bail_gas_change+2
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1259 bra comm_write_abort ; Done. Loop with timeout reset
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1260 comm_write_gas4:
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1261 movff RCREG1,opt_gas_O2_ratio+3
157 5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	1262 rcall comm_write_get_byte
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1263 movff RCREG1,opt_gas_He_ratio+3
157 5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	1264 rcall comm_write_get_byte
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1265 movff RCREG1,opt_gas_type+3
157 5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	1266 rcall comm_write_get_byte
97 53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases heinrichsweikamp parents: 92 diff changeset	1267 movff RCREG1,opt_OC_bail_gas_change+3
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1268 bra comm_write_abort ; Done. Loop with timeout reset
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1269 comm_write_gas5:
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1270 movff RCREG1,opt_gas_O2_ratio+4
157 5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	1271 rcall comm_write_get_byte
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1272 movff RCREG1,opt_gas_He_ratio+4
157 5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	1273 rcall comm_write_get_byte
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1274 movff RCREG1,opt_gas_type+4
157 5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	1275 rcall comm_write_get_byte
97 53a99a2dc6a1 CHANGE: Always compute bailout plan based on all active gases heinrichsweikamp parents: 92 diff changeset	1276 movff RCREG1,opt_OC_bail_gas_change+4
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1277 bra comm_write_abort ; Done. Loop with timeout reset
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1278
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1279 comm_write_dil1:
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1280 movff RCREG1,opt_dil_O2_ratio+0
157 5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	1281 rcall comm_write_get_byte
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1282 movff RCREG1,opt_dil_He_ratio+0
157 5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	1283 rcall comm_write_get_byte
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1284 movff RCREG1,opt_dil_type+0
157 5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	1285 rcall comm_write_get_byte
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1286 movff RCREG1,char_I_dil_change+0
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1287 bra comm_write_abort ; Done. Loop with timeout reset
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1288 comm_write_dil2:
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1289 movff RCREG1,opt_dil_O2_ratio+1
157 5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	1290 rcall comm_write_get_byte
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1291 movff RCREG1,opt_dil_He_ratio+1
157 5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	1292 rcall comm_write_get_byte
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1293 movff RCREG1,opt_dil_type+1
157 5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	1294 rcall comm_write_get_byte
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1295 movff RCREG1,char_I_dil_change+1
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1296 bra comm_write_abort ; Done. Loop with timeout reset
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1297 comm_write_dil3:
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1298 movff RCREG1,opt_dil_O2_ratio+2
157 5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	1299 rcall comm_write_get_byte
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1300 movff RCREG1,opt_dil_He_ratio+2
157 5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	1301 rcall comm_write_get_byte
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1302 movff RCREG1,opt_dil_type+2
157 5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	1303 rcall comm_write_get_byte
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1304 movff RCREG1,char_I_dil_change+2
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1305 bra comm_write_abort ; Done. Loop with timeout reset
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1306 comm_write_dil4:
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1307 movff RCREG1,opt_dil_O2_ratio+3
157 5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	1308 rcall comm_write_get_byte
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1309 movff RCREG1,opt_dil_He_ratio+3
157 5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	1310 rcall comm_write_get_byte
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1311 movff RCREG1,opt_dil_type+3
157 5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	1312 rcall comm_write_get_byte
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1313 movff RCREG1,char_I_dil_change+3
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1314 bra comm_write_abort ; Done. Loop with timeout reset
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1315 comm_write_dil5:
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1316 movff RCREG1,opt_dil_O2_ratio+4
157 5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	1317 rcall comm_write_get_byte
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1318 movff RCREG1,opt_dil_He_ratio+4
157 5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	1319 rcall comm_write_get_byte
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1320 movff RCREG1,opt_dil_type+4
157 5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	1321 rcall comm_write_get_byte
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1322 movff RCREG1,char_I_dil_change+4
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1323 bra comm_write_abort ; Done. Loop with timeout reset
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1324
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1325 comm_write_sp1:
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1326 movff RCREG1,char_I_setpoint_cbar+0
157 5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	1327 rcall comm_write_get_byte
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1328 movff RCREG1,char_I_setpoint_change+0
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1329 bra comm_write_abort ; Done. Loop with timeout reset
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1330 comm_write_sp2:
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1331 movff RCREG1,char_I_setpoint_cbar+1
157 5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	1332 rcall comm_write_get_byte
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1333 movff RCREG1,char_I_setpoint_change+1
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1334 bra comm_write_abort ; Done. Loop with timeout reset
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1335 comm_write_sp3:
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1336 movff RCREG1,char_I_setpoint_cbar+2
157 5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	1337 rcall comm_write_get_byte
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1338 movff RCREG1,char_I_setpoint_change+2
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1339 bra comm_write_abort ; Done. Loop with timeout reset
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1340 comm_write_sp4:
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1341 movff RCREG1,char_I_setpoint_cbar+3
157 5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	1342 rcall comm_write_get_byte
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1343 movff RCREG1,char_I_setpoint_change+3
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1344 bra comm_write_abort ; Done. Loop with timeout reset
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1345 comm_write_sp5:
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1346 movff RCREG1,char_I_setpoint_cbar+4
157 5ee76921e359 make new parameters configurable through pc heinrichsweikamp parents: 150 diff changeset	1347 rcall comm_write_get_byte
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1348 movff RCREG1,char_I_setpoint_change+4
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1349 bra comm_write_abort ; Done. Loop with timeout reset
db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1350
79 0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1351 ;-----------------------------------------------------------------------------
0fc8113ddf6d new command in download mode: "r" - read setting mh@mh-THINK.localdomain parents: 69 diff changeset	1352
0 11d4fc797f74 init heinrichsweikamp parents: diff changeset	1353 comm_send_string:
11d4fc797f74 init heinrichsweikamp parents: diff changeset	1354 movlw "n" ; send echo
11d4fc797f74 init heinrichsweikamp parents: diff changeset	1355 movwf TXREG1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	1356 call rs232_wait_tx ; Wait for UART
11d4fc797f74 init heinrichsweikamp parents: diff changeset	1357 WIN_SMALL comm_string_column, comm_string_row
11d4fc797f74 init heinrichsweikamp parents: diff changeset	1358 movlw .16
11d4fc797f74 init heinrichsweikamp parents: diff changeset	1359 movwf lo ; counter
11d4fc797f74 init heinrichsweikamp parents: diff changeset	1360 comm_send_string_loop:
11d4fc797f74 init heinrichsweikamp parents: diff changeset	1361 call rs232_get_byte
11d4fc797f74 init heinrichsweikamp parents: diff changeset	1362 btfsc rs232_recieve_overflow ; Got byte?
11d4fc797f74 init heinrichsweikamp parents: diff changeset	1363 bra comm_send_string_abort ; No, abort!
11d4fc797f74 init heinrichsweikamp parents: diff changeset	1364 movff RCREG1,POSTINC2 ; Store character
11d4fc797f74 init heinrichsweikamp parents: diff changeset	1365 decfsz lo,F
11d4fc797f74 init heinrichsweikamp parents: diff changeset	1366 bra comm_send_string_loop
11d4fc797f74 init heinrichsweikamp parents: diff changeset	1367 comm_send_string_abort:
11d4fc797f74 init heinrichsweikamp parents: diff changeset	1368 STRCAT_PRINT "" ; Show the text
80 db920ca01491 new commands in download mode: mh@mh-THINK.localdomain parents: 79 diff changeset	1369 goto comm_download_mode0 ; Done. Loop with timeout reset
0 11d4fc797f74 init heinrichsweikamp parents: diff changeset	1370
11d4fc797f74 init heinrichsweikamp parents: diff changeset	1371 ;-----------------------------------------------------------------------------
11d4fc797f74 init heinrichsweikamp parents: diff changeset	1372
11d4fc797f74 init heinrichsweikamp parents: diff changeset	1373 comm_check_day:
11d4fc797f74 init heinrichsweikamp parents: diff changeset	1374 movff RCREG1, day
11d4fc797f74 init heinrichsweikamp parents: diff changeset	1375 movff month,lo ; new month
11d4fc797f74 init heinrichsweikamp parents: diff changeset	1376 dcfsnz lo,F
11d4fc797f74 init heinrichsweikamp parents: diff changeset	1377 movlw .31
11d4fc797f74 init heinrichsweikamp parents: diff changeset	1378 dcfsnz lo,F
11d4fc797f74 init heinrichsweikamp parents: diff changeset	1379 movlw .28
11d4fc797f74 init heinrichsweikamp parents: diff changeset	1380 dcfsnz lo,F
11d4fc797f74 init heinrichsweikamp parents: diff changeset	1381 movlw .31
11d4fc797f74 init heinrichsweikamp parents: diff changeset	1382 dcfsnz lo,F
11d4fc797f74 init heinrichsweikamp parents: diff changeset	1383 movlw .30
11d4fc797f74 init heinrichsweikamp parents: diff changeset	1384 dcfsnz lo,F
11d4fc797f74 init heinrichsweikamp parents: diff changeset	1385 movlw .31
11d4fc797f74 init heinrichsweikamp parents: diff changeset	1386 dcfsnz lo,F
11d4fc797f74 init heinrichsweikamp parents: diff changeset	1387 movlw .30
11d4fc797f74 init heinrichsweikamp parents: diff changeset	1388 dcfsnz lo,F
11d4fc797f74 init heinrichsweikamp parents: diff changeset	1389 movlw .31
11d4fc797f74 init heinrichsweikamp parents: diff changeset	1390 dcfsnz lo,F
11d4fc797f74 init heinrichsweikamp parents: diff changeset	1391 movlw .31
11d4fc797f74 init heinrichsweikamp parents: diff changeset	1392 dcfsnz lo,F
11d4fc797f74 init heinrichsweikamp parents: diff changeset	1393 movlw .30
11d4fc797f74 init heinrichsweikamp parents: diff changeset	1394 dcfsnz lo,F
11d4fc797f74 init heinrichsweikamp parents: diff changeset	1395 movlw .31
11d4fc797f74 init heinrichsweikamp parents: diff changeset	1396 dcfsnz lo,F
11d4fc797f74 init heinrichsweikamp parents: diff changeset	1397 movlw .30
11d4fc797f74 init heinrichsweikamp parents: diff changeset	1398 dcfsnz lo,F
11d4fc797f74 init heinrichsweikamp parents: diff changeset	1399 movlw .31
11d4fc797f74 init heinrichsweikamp parents: diff changeset	1400 cpfsgt day ; day ok?
11d4fc797f74 init heinrichsweikamp parents: diff changeset	1401 return ; OK
11d4fc797f74 init heinrichsweikamp parents: diff changeset	1402 movlw .1 ; not OK, set to 1st
11d4fc797f74 init heinrichsweikamp parents: diff changeset	1403 movwf day
11d4fc797f74 init heinrichsweikamp parents: diff changeset	1404 return
11d4fc797f74 init heinrichsweikamp parents: diff changeset	1405
11d4fc797f74 init heinrichsweikamp parents: diff changeset	1406 ;----------------------------------------------------------------------------
11d4fc797f74 init heinrichsweikamp parents: diff changeset	1407 END

Mercurial > public > hwos_code

annotate src/comm.asm @ 198:c511dc403d7e