'************************************************* ***************
'* Name : RX.BAS *
'* Author : [select VIEW...EDITOR OPTIONS] *
'* Notice : Copyright (c) 2008 [select VIEW...EDITOR OPTIONS] *
'* : All Rights Reserved *
'* Date : 18/11/2008 *
'* Version : 1.0 *
'* Notes : *
'* : *
'************************************************* ***************
include "modedefs.bas"

DEFINE OSC 4

@ DEVICE PIC16F84A 'iţlemci 16F628
@ DEVICE PIC16F84A, WDT_On
@ DEVICE PIC16F84A, PWRT_ON
@ DEVICE PIC16F84A, PROTECT_OFF
@ DEVICE PIC16F84A, XT_OSC

PORTA=0
TRISA=0
PORTB=0
TRISB=%00000010


B0 var byte
B1 var byte

prestart: pause 400
poke porta, 10 ' %00001010
pause 200
poke porta, 5 ' %00000101
pause 200
poke porta, 6 ' %00000110
pause 200
poke porta, 9 ' %00001001
pause 200
poke porta, 0 '
pause 200

start: serin PORTB.1,N9600,B0
if B0 = 1 then forward
if B0 = 2 then backward
if B0 = 3 then left
if B0 = 4 then right
if B0 = 5 then nomove
goto start

forward: poke porta, 10
goto start

backward: poke porta, 5
goto start

right: poke porta, 6
goto start

left: poke porta, 9
goto start

nomove: poke porta, 0
goto start
end



'************************************************* ***************
'* Name : tx.BAS *
'* Author : [select VIEW...EDITOR OPTIONS] *
'* Notice : Copyright (c) 2008 [select VIEW...EDITOR OPTIONS] *
'* : All Rights Reserved *
'* Date : 18/11/2008 *
'* Version : 1.0 *
'* Notes : *
'* : *
'************************************************* ***************
include "modedefs.bas"

DEFINE OSC 4

@ DEVICE PIC16F84A 'iţlemci 16F628
@ DEVICE PIC16F84A, WDT_On
@ DEVICE PIC16F84A, PWRT_ON
@ DEVICE PIC16F84A, PROTECT_OFF
@ DEVICE PIC16F84A, XT_OSC

trisb = %10000110 '134
trisa = %10000101 '133
portb = 6
porta = 5
low 1
input 0
input 2
B0 var byte
B1 var byte

start: pot PORTB.0,50,B0
pot PORTB.2,50,B1
B0 = B0 * 5
B1 = B1 * 5

y: if B0 < 100 then GOSUB yf
if B0 > 150 then GOSUB yb

x: if B1 < 100 then GOSUB xr
if B1 > 150 then GOSUB xl

serout PORTB.1,n9600,[5]
goto start

yf: serout PORTB.1,n9600,[2]
return

yb: serout PORTB.1,n9600,[1]
return

xl: serout PORTB.1,n9600,[3]
return

xr: serout PORTB.1,n9600,[4]
return

end