program serverv02
DIM RXServer
AS byte
[6] 'para guardar los datos recibidos en byte
SUB procedure RXSer
RXServer [0] = soft_uart_read (b) 'rutina de recepcion
RXServer [1] = soft_uart_read (b) 'rutina de recepcion
RXServer [2] = soft_uart_read (b) 'rutina de recepcion
RXServer [3] = soft_uart_read (b) 'rutina de recepcion
RXServer [4] = soft_uart_read (b) 'rutina de recepcion
RXServer [5] = soft_uart_read (b) 'rutina de recepcion
SUB procedure Ciclo
RXSer
soft_uart_write (rxserver [0])
soft_uart_write (rxserver [1])
soft_uart_write (rxserver [2])
soft_uart_write (rxserver [3])
soft_uart_write (rxserver [4])
soft_uart_write (rxserver [5])
GOTO Ciclo
main:
ansel = %00000000 'REGISTRO A CONFIG. O DIGITAL, 1 ANALOGICO
trisa.0 = 1
trisa.1 = 0
trisa.2 = 0
trisa.3 = 0
trisa.4 = 0
trisb.0 = 1
trisb.1 = 0
trisb.2 = 0
trisb.3 = 0
trisb.4 = 0
trisb.5 = 0
trisb.6 = 0
trisb.7 = 0
porta.1 = 0
porta.2 = 0
porta.3 = 0
porta.4 = 0
portb.0 = 0
portb.1 = 0
portb.2 = 0
portb.3 = 0
portb.4 = 0
portb.5 = 0
portb.6 = 0
portb.7 = 0
'Inicializadores ++++++++++++++++++++++++++++++++++++++++++
UartReset 'reset de uart
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Ciclo