TX_SECUENCIA
movff MsnAddressUpper,TBLPTRU
movff MsnAddressHigh,TBLPTRH
movff MsnAddressLow,TBLPTRL
CARGO_SECUENCIA
TBLRD*+ ; Leo la tabla
movff TABLAT,TEMP_SEND ; Cargo el dato
MOVLW 0XAA
XORWF TEMP_SEND,W
BTFSC STATUS,Z ;SI LOS DATOS NO SON IGUALES,
GOTO COMANDO_FIN
CALL TX_SPI ; y lo envió
TBLRD*+ ; Leo la tabla nuevamente para saltearme un dato
movff TABLAT,TEMP_SEND ; Cargo el dato
CLRF TEMP_SEND ; y lo borro
bra CARGO_SECUENCIA ; Vuelvo a empezar
COMANDO_FIN
RETLW 0X00 ; Vuelve al programa principal.
TX_SPI
bcf PIR1,SSPIF ; borra flag interrupción
movFf TEMP_SEND, SSPBUF ; Transmision por puerto SPI
SPI_DELAY
NOP
NOP
btfss PIR1,SSPIF ; Espera a que se envie el dato
goto SPI_DELAY
bcf PIR1,SSPIF ; borra flag interrupción
RETLW 0X00