I think that settings are incorrect, because
aska:
hserout ["Init:",10,13]
pause 200
goto aska

Outputs something not correct, like question marks.

DEFINE HSER_RCSTA 90h
DEFINE HSER_TXSTA 24h '9600 baud rate, BRGH=1 @8MHz clock
DEFINE HSER_BAUD 9600
DEFINE HSER_SPBRG 25
DEFINE HSER_CLROERR 1

these might need tuning?