WaitRX

btfsc flag,com
goto comm

call delay1s
call delay1s
comm
crx
call RxRoutine ; wait for a character to be received

movwf tempW

load8 rx_buf0,rx_buf1 ; a=b
load8 rx_buf1,rx_buf2
load8 rx_buf2,rx_buf3
load8 rx_buf3,rx_buf4
load8 rx_buf4,tempW

movfw rx_buf3



rcase 'c', rx_buf3, exit_c
rcase '3', rx_buf4, exit_3
TX '1'
TX '7'
TX '3'
exit_3
rcase '4', rx_buf4, exit_4
nop
; const16 555, temp1, temp0
call AsciiToDec
call DecToAscii
TX5

exit_4
rcase '7', rx_buf4, exit_7
const16 999, temp1, temp0
; call AsciiToDec
call DecToAscii
TX5
exit_7
rcase '+', rx_buf4, exit_pl

call AsciiToDec
mov16 temp16, data16
const16 1, adress16
call write_ee16
call d5ms
const16 1, adress16
call read_ee16
mov16 data16, temp16
call DecToAscii
TX5
exit_pl

rcase 'c', rx_buf4, exit_cc

; call AsciiToDec
; mov16 temp16, data16
; const16 1, adress16
; call write_ee16
const16 1, adress16
call read_ee16
mov16 data16, temp16
call DecToAscii
TX5
exit_cc
;----------- cr -------
rcase 'r', rx_buf4, exit_c