Serial Baudrate 115200

[Bruce]

I use DEBUG & DEBUGIN. These commands produce much smaller code, and
you can get higher data-rates like 19200 with a 4MHz osc.

DEFINE OSC 20
DEFINE DEBUG_REG PORTC
DEFINE DEBUGIN_REG PORTC
DEFINE DEBUGIN_BIT 7
DEFINE DEBUG_BIT 6 
DEFINE DEBUG_MODE 0 '1 = Inverted, 0 = true
DEFINE DEBUGIN_MODE 0
DEFINE DEBUG_BAUD 19200
 
X VAR BYTE[3]
 
MAIN:
    DEBUGIN 6000,NoData,[WAIT("A"),str X\3]
    DEBUG "Received:  ",str X\3,13,10
    GOTO MAIN
 
NoData:
    DEBUG "Nada",13,10
    GOTO Main
 
    END

This example works with a max232 PIC-PC interface. If you need direct, then
just change mode to inverted.