ON 20030927@1:50:23 AM at page:
http://www.piclist.com/techref/member/lch-YS-7A8/index.htm
lch-YS-7A8 Chao  Lin edited the page. Difference:
http://www.piclist.com/techref/diff.asp?url=H:\techref\member\lch-YS-7A8\index.htm&version=0

ON 20030927@1:52:47 AM at page:
http://www.piclist.com/techref/member/lch-YS-7A8/index.htm
lch-YS-7A8 Chao  Lin Says

A Serial Port Communication Program<BR>
<BR>
   <BR>
   list P= 16F84<BR>
   include &quot;P16F84.inc&quot;<BR>
<BR>
DataR equ 0x0<BR>
DataT equ 0x1<BR>
SCount equ 0x30<BR>
RBuf equ 0x31<BR>
TBuf equ 0x32<BR>
DelayConst equ 0x33<BR>
<BR>
   org 0x0000<BR>
   goto MAIN<BR>
   org 0x0015<BR>
<BR>
MAIN<BR>
   banksel TRISA<BR>
   bsf PORTA, DataR<BR>
   bcf PORTA, DataT<BR>
   bcf STATUS, RP0<BR>
<BR>
;----------------------------------------<BR>
DATARECEIVE<BR>
   ;INPUT: RBuf<BR>
   <BR>
   clrwdt<BR>
   btfsc PORTA, DataR   ;Wait Start Signal<BR>
   return <BR>
   movlw 8           ;8 Bit Data<BR>
   movwf SCount<BR>
   ;call DELAY<BR>
   ;call DELAY<BR>
RECEIVEPROC   <BR>
   call DELAY<BR>
   rrf RBuf<BR>
   bcf STATUS, C  <BR>
   btfsc PORTA, DataR<BR>
   bsf STATUS, C<BR>
   call DELAY<BR>
   decfsz SCount  <BR>
   goto RECEIVEPROC<BR>
   return <BR>
;----------------------------------------<BR>
DATATRANSMIT   <BR>
   clrwdt <BR>
   movlw 8 <BR>
   movwf SCount  <BR>
   bcf PORTA, DataT     ;Send Start Bit <BR>
TRANSMITPROC<BR>
   call DELAY <BR>
   call DELAY <BR>
   rrf TBuf <BR>
   btfsc STATUS,C<BR>
   bsf PORTA, DataT     ;Send 1 <BR>
   bcf PORTA, DataT     ;Send 0 <BR>
   decfsz SCount<BR>
   goto TRANSMITPROC<BR>
   call DELAY <BR>
   call DELAY <BR>
   bsf PORTA, DataT<BR>
   return<BR>
;----------------------------------------   <BR>
DELAY<BR>
   movlw 15          ;52us(baud=9600) <BR>
   movwf DelayConst <BR>
DELAYLOOP   <BR>
   decfsz DelayConst  <BR>
   goto DELAYLOOP <BR>
   return<BR>
;----------------------------------------<BR>
<BR>
   end