dummies guide to serin/serout by a dummie

[earltyso]

Hello All,
I have come to this forum so many times for help and have always been able to find it conditinal only that I give the coding my best shot before asking blindly researched topics.
I have really appreciated all the help I have been given and just wanted to give back in some small way. I realize that I am no Jedi Master even after 3 years of weekend warrior coding, but I thought hey this works for me, maybe I can help someone else out.

This code does the following...
Allows the user to serial out from a PIC16F628A to a PIC16F877 and then output the entire ASCII Table to a 4x20 line LCD. (see pics). You can also turn to page 207-210 of the PPB manual to see where my code is going. The data is also sends binary "B0" to PORTC of the 16f877 so you can compare ASCII key displays,decimal, binary, and hexidecimal values all at the same time.

Yes my coding is not perfect, and you can certainly modify this code to work on almost all pics, give it a shot and let know what you think. Once again this was written by a padawon but I think it make milk of the meaty ASCII table.

Enjoy!

 '****************************************************************
'*  Name    : SERIAL TRANSMITTER BOARD                        *
'*  Author  : TYSON EARL                                        *
'*  Notice  : Copyright (c) 2008 Ty's Custom Electronics        *
'*          : All Rights Reserved                               *
'*  Date    : 3/19/2008                                         *
'*  Version : 2.0 pic16f628a                                    *
'*  Notes   : once switch is pressed on breadboard code begins  *
'*          : sending values 0-127 (see ASCII table) every sec  *                                              *
'****************************************************************
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
B0 var byte

INTRO:
for x = 0 to 1
high buzzer
pause 50
low buzzer
pause 50
next x

main:
while switch = 0
    FOR B0 = 0 to 127
        SEROUT PORTA.0,N2400, ["A",B0]
        PAUSE 1   
        pause 1000
    NEXT B0
wend
GOTO INTRO
END

'****************************************************************
'*  Name    : SERIAL RECIEVER BOARD              	                *
'*  Author  : TYSON EARL                                        *
'*  Notice  : Copyright (c) 2008							    *
'*          : All Rights Reserved                               *
'*  Date    : October 20th                                      *
'*  Version : 2.0 PIC16F877                                     *
'*  Notes   : This program recieves serial data in and outputs  *
'*			: display, decimal, binary, and hex to 4x20 lcd     *
'****************************************************************

INCLUDE "modedefs.bas"
DEFINE OSC 12
ADCON1 = 7 'all digital inputs, good to go now!!
DEFINE LCD_LINES 4
DEFINE LCD_DREG PORTB
DEFINE LCD_DBIT 4 
DEFINE LCD_COMMANDUS 2005 
DEFINE LCD_DATAUS 55
DEFINE ADC_BITS 8 

Row1  CON 128 'constant for LCD line1
Row2  CON 192 'constant for LCD line2
Row3  CON 148 'comstant for LCD line3
Row4  CON 212 'constant for LCD line4

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
B0      VAR byte
  
low l1:low l2:low l3:low l4:low l5:low l8:

Loop1:
lcdout 254, 1
while back = 0:wend
   	LCDOut 254,1
   	LCDOut 254,Row1," KEYPAD Monitoring  " 
   	LCDOut 254,Row2," beginning in ...   "
   	pause 1000
   	LCDOut 254,Row3,"         3"
   	pause 1000
   	LCDOut 254,Row3,"         2"
   	pause 1000
   	LCDOut 254,Row3,"         1"
   	pause 1000
   	lcdout 254,1
 
FROMKEYPAD:
    LCDOut 254,1
    bubba:
    SERIN PORTA.0,N2400,["A"],B0
   	LCDOut 254,Row1,"DISPLAY ",B0
    lcdout 254,Row2,"DECIMAL ",DEC b0
   	LCDOut 254,Row3,"BINARY  ",BIN B0
    lcdout 254,Row4,"HEX   $ ",HEX b0

    PORTC.3 = B0.0
   	PORTC.2 = B0.1
   	PORTC.1 = B0.2
   	PORTC.0 = B0.3
   	PORTE.2 = B0.4
   	PORTE.1 = B0.5
   	PORTE.0 = B0.6
   	PORTA.5 = b0.7	
   	pause 200
    GOTO bubba