DEFINE OSC 4
TRISB=%000001100
TRISA=0
PORTA=0
PORTB=0
AL VAR BYTE
PCIN VAR PORTB.2 'PC DEN GELEN PORT
PCOUT VAR PORTB.1 'PC YE GIDEN PORT
RFOUT VAR PORTB.3 'RF MODULE GIDEN PORT
R1=11 '1. RF MODULU ON
R2=10 '1. RF MODULU OFF
R3=21 '2. RF MODULU ON
R4=20 '2. RF MODULU OFF
BASLA:
SERIN2 PCIN,396,[WAIT("DUM"),AL]
IF AL=11 THEN
'SEROUT2 RFOUT,396,[REP$AA\5,REP$00\5,REP$FF\5]
'SEROUT2 RFOUT,396,[REP$AA\5,REP$00\5,REP$FF\5]
'SEROUT2 RFOUT,396,[("R"),("F"),("1"),R1]
'SEROUT2 RFOUT,396,[("R"),("F"),("1"),R1]
SEROUT2 PCOUT,396,[("R"),("F"),("1"),R1]
ENDIF
IF AL=10 THEN
'SEROUT2 RFOUT,396,[REP$AA\5,REP$00\5,REP$FF\5]
'SEROUT2 RFOUT,396,[REP$AA\5,REP$00\5,REP$FF\5]
'SEROUT2 RFOUT,396,[("R"),("F"),("1"),R2]
'SEROUT2 RFOUT,396,[("R"),("F"),("1"),R2]
SEROUT2 PCOUT,396,[("R"),("F"),("1"),R2]
ENDIF
IF AL=21 THEN
'SEROUT2 RFOUT,396,[REP$AA\5,REP$00\5,REP$FF\5]
'SEROUT2 RFOUT,396,[REP$AA\5,REP$00\5,REP$FF\5]
'SEROUT2 RFOUT,396,[("R"),("F"),("2"),R3]
'SEROUT2 RFOUT,396,[("R"),("F"),("2"),R3]
SEROUT2 PCOUT,396,[("R"),("F"),("2"),R3]
ENDIF
IF AL=20 THEN
'SEROUT2 RFOUT,396,[REP$AA\5,REP$00\5,REP$FF\5]
'SEROUT2 RFOUT,396,[REP$AA\5,REP$00\5,REP$FF\5]
'SEROUT2 RFOUT,396,[("R"),("F"),("2"),R4]
'SEROUT2 RFOUT,396,[("R"),("F"),("2"),R4]
SEROUT2 PCOUT,396,[("R"),("F"),("2"),R4]
ENDIF
PAUSE 500
GOTO BASLA
END