CPU = 16F876
MHZ = 10
CONFIG 16254

;***********************************************
; http://www.basicmicro.com                    
; Title : uart.bas                             
; Author : Dale Kubin                          
; Date : 04/29/02                              
; Hserin / Hserout commands. Use the built in 
; hardware uart to send and receive rs-232 serial 
; data. Built in buffer.
;***********************************************

; the PICmicro hardware uart requires a max232
; if the below program receives an upper case "A"
; It will send back "Recevied the correct byte"

sethserial H9600

temp var byte
main
	high b0
	pause 200
	low b0
	pause 200
	HSERIN 1000,main,[temp]
	if temp = "A" then loop1
goto main

loop1
	Hserout ["Recevied the correct byte"]
goto main