The way you have coded, it will function like a single shot.

You may want to repeat the operation infinitely to ensure that it keeps doing the operations over and over again.

A Do-Loop construct or even a While-Wend might be helpful.
Something like this
Code:
      Do
          SERIN rin,N9600,rr
          SERout rout,N9600,[rr]
      Loop
You will need this on both sides. Eventually though, you will realize, you may need to receive using interrupts. That makes your code much more reliable as the communications you are trying to realize are asynchronous.

END does nothing other than tell the processor to spin like a dog running after its own tail on the same spot.