Hi Visitac

Will this work for you.

define OSC 20
define HSER_CLROERR 1 ' Automatically clear over-run errors
define HSER_SPBRG 32 ' 32 = 38400 at -1.36%error MisterE Calc software
define HSER_RCSTA 90h ' Enable USART receive
define HSER_TXSTA 24H ' Set TXSTA to allow for higher baud rate

Hserout ["DISPLAY-B"]

Not tried 18F4520 but works on 18F4331 OK (from what I remember, long time ago).

Chris