TXCHR
	btfss	PIR1,TXIF		; (1)データが送信済みかチェックする
	goto	$-1			; (2)そうでなければ、終わるまでチェックを繰り返す
	movwf	TXREG			; (3)送信する
	return

リスト5-7    Copyright 2005 Noriaki Mitsunaga