\prog;XSer7R.asi|Serial receive for 16F87x

\rout;SndSer.asi|Serial transfer for 16F87x
\in:W
\mod;-
SndSer:
	Move	W,TxReg
	Nop	; nop required
  A$:	TestSkip,BS PIR1:#TxIF
	Jump	A$
	Ret

\rout:RecSer|Serial receive at 9600 bit/s
\out: DataRec = W
RecSer:	
  R$:	TestSkip,BS PIR1:#RcIF
	Jump	R$
	Move	RcReg,W
	Move	W,DataRec
	Ret
.End