; Programme de test du bootloader de sparkfun
; Jean-Pierre MANDON 2004
	
	list p=16F88
	include "p16f88.inc"
	radix dec

	org 0
	goto main

	org 100
main
	MOVLW 112
	BSF   STATUS,RP0
	BCF   STATUS,RP1
	MOVWF OSCCON
TestIOFS
	BTFSS OSCCON,IOFS
	GOTO  TestIOFS
	MOVLW 0DFH
	MOVWF TRISB
	BSF   TXSTA,BRGH			; configuration de l'UART
	MOVLW .51					; 9600 bauds
	MOVWF SPBRG
	BSF   TXSTA,TXEN			; enable émission
	MOVLW .144
	BCF   STATUS,RP0
	MOVWF RCSTA					; registre de contrôle de reception
envoi
	BSF   STATUS,RP0
	BTFSS TXSTA,TRMT			; registre d'émission vide ?
	GOTO  envoi
	BCF STATUS,RP0
	MOVLW 'A'					; caractere A
	MOVWF TXREG					; dans le registre d'émission
	GOTO envoi

end