TX:
include "modedefs.bas"
DEFINE OSC 4
DEFINE LCD_DREG PORTB
DEFINE LCD_DBIT 0
DEFINE LCD_EREG PORTB
DEFINE LCD_EBIT 5
DEFINE LCD_RSREG PORTB
DEFINE LCD_RSBIT 4
DEFINE LCD_BITS 4
DEFINE LCD_LINES 2
CMCON=7
TRISB=0
PORTB=0
TRISA=0
PORTA=0
LCDOUT $fe,1, " By Cesar"
pause 1000
DADOS VAR BYTE
PROG:
POT PORTA.0,255,DADOS
DADOS=DADOS*2
LCDOUT$FE, 1," DADOS = "
LCDOUT, #DADOS
PAUSE 1000
IF DADOS>95 THEN
SEROUT PORTA.2,N2400,["A"]
ELSE
SEROUT PORTA.2,N2400,["E"]
IF DADOS<30 THEN
SEROUT PORTA.2,N2400,["B"]
ELSE
SEROUT PORTA.2,N2400,["E"]
ENDIF
ENDIF
GOTO PROG
END
RX:
include "modedefs.bas"
@ DEVICE pic16F628A
@ DEVICE pic16F628A, WDT_OFF
@ DEVICE pic16F628A, PWRT_OFF
@ DEVICE pic16F628A, BOD_OFF
@ DEVICE pic16F628A, PROTECT_OFF
@ DEVICE pic16F628A, MCLR_OFF
@ DEVICE pic16F628A, INTRC_OSC_NOCLKOUT
DEFINE OCS 4
TRISA=%11111111
PORTA=0
TRISB=000001
PORTB=0
CMCON=7
B0 VAR BYTE
PROG:
serin PORTB.0,n2400,B0
if B0 = "A" then FRE
if B0 = "B" then TRA
if B0 = "E" then PARA
goto PROG
FRE:
PORTB=%01010000
goto PROG
TRA:
PORTB=%10100000
goto PROG
PARA:
PORTB=0
GOTO PROG
end
