PIC 18f4680 DIGITAL INPUTS

[Bruce]

Try this;

DEFINE HSER_BAUD 9600

Main:
    HSEROUT ["HSER",13,10]
    PAUSE 500
    SEROUT2 PORTC.6,84,["WITH RCSTA.7=1",13,10]
    PAUSE 500
    RCSTA.7=0
    SEROUT2 PORTC.6,84,["WITH RCSTA.7=0",13,10]
    PAUSE 500
    RCSTA.7=1
    
    GOTO Main

You should get this;

HSER
WITH RCSTA.7=0
HSER
WITH RCSTA.7=0

With RCSTA.7 set the USART takes over these pins.