send movwf TXREG
banksel TXSTA ;bank 1
wait btfss TXSTA,TRMT ;loop until this bit gets set
goto wait ;when the shift register has been emptied
banksel PORTA ;bank 0
return
serial
banksel SPBRG ;bank 1
movlw .25 ;set baud rate
movwf SPBRG
movlw b'00100100' ;8-bit transmit, transmitter enabled,
movwf TXSTA ;asynchronous mode, high speed mode
banksel PORTA ;bank 0
movlw b'10010000' ;8-bit receive, receiver enabled,
movwf RCSTA ;serial port enabled
message movlw AmpereHours ;send: 16F88 alive
call send
movlw 0x0d ;CR
call send