I have been wondering how to post code in box form for a while...
	Code:
	'transmitter side pic16f628a
Include "modedefs.bas"   
Define   OSC 4          
CMCON = 7                
          
input PORTB.0
OUTPUT PORTB.5
OUTPUT PORTA.0
SWITCH VAR PORTB.0
Buzzer VAR PORTB.5
x VAR BYTE
INTRO:
for x = 0 to 1
high buzzer
pause 50
low buzzer
pause 50
next x
main:
while switch = 0
        SEROUT PORTB.5,N2400, ["A",#55]
        PAUSE 1
WEND
GOTO INTRO
END
 
	Code:
	'receiver pic16f877
INCLUDE "modedefs.bas"
DEFINE OSC 12
ADCON1 = 7 'all digital inputs, good to go now!!
input  PORTA.0  'SERIAL INPUT
Output PORTA.5  'L1
Output PORTE.0  'L2
Output PORTE.1  'L3
Output PORTE.2  'L4
Output PORTC.0  'L5
Output PORTC.1  'L6
Output PORTC.2  'L7
Output PORTC.3  'L8
INPUT  PORTD.0  'RX1
INPUT  PORTD.1  'RX2
Output PORTD.7  'RELAY4	
Input  PORTD.5  'BACK
Input  PORTD.4	'NXTSLT
Input  PORTC.7	'UP
Input  PORTC.6  'DOWN
Input  PORTC.5  'RX6
input  PORTC.4  'RX5
input  PORTD.3  'RX4
input  PORTD.2  'RX3
L1		VAR PORTA.5	'8 lights
L2		VAR PORTE.0
L3		VAR PORTE.1
L4		VAR PORTE.2
L5		VAR PORTC.0
L6		VAR PORTC.1
L7		VAR PORTC.2
L8		VAR PORTC.3
Relay4	VAR PORTD.7
tx1 	VAR PORTD.0	'reciever 6 inputs
tx2 	VAR PORTD.1
tx3 	VAR PORTD.2
tx4 	VAR PORTD.3
tx5 	VAR PORTC.4
tx6 	VAR PORTC.5
back	VAR PORTD.5
nxtslt	VAR PORTD.4
up		VAR PORTC.7
down	VAR PORTC.6
B0      VAR byte
  
low l1:low l2:low l3:low l4:low l5:low l8: low relay4
start:
LCDOut 254,1
Pause 1000
High L1
Pause 90
Low L1
High L2
Pause 90
Low L2
High L3
Pause 90
Low L3
High L4
Pause 90
Low L4
High L5
Pause 90
Low L5
High L6
Pause 90
Low L6
High L7
Pause 90
Low L7
High L8
Pause 90
Low L8
HIGH Relay4
PAUSE 90
LOW RELAY4
main:
SERIN PORTA.0,N2400, ["A"],B0
'PAUSE 1
PORTC = B0
GOTO MAIN
 As this is only a test, I just want to see something on my pcb to show that I have good serial data coming in (leds on portc) then I will move on to LCD text input output from pic16f628a multiplexed keypad...
thanks for the help with the text boxes!
				
			
Bookmarks