Serin,Serout Problem

[orwell101]

Hello!
I have tried this.
INCLUDE "modedefs.bas"
B0 var byte
define OSC 4
DEFINE CHAR_PACING 1000
A var byte
SI var PORTB.7
start:
SERIN si,N2400,B0
if b0 <> "0" then
for a= 32 to 126
serout si,N2400,[a]
next a
endif
goto start
end

And the PIC sends nothing more

[norohs]

It stops sending anything? Or the same garbage? Which?

And I'm with Mike:

"Serial out and serial in on same PIC pin? Normally separate pins. "