movlw	B'00000111'	; PORTB のウィーク・プルアップを有効に
				; プリスケーラはタイマに割り当て
				; プリスケーラは1/256にする
	movwf	OPTION_REG

	(a) 初期設定に書く部分


wait20ms
	bcf	INTCON,TMR0IF
	movlw	D'61'
	movwf	TMR0

	btfss	INTCON,TMR0IF
	goto	$-1

	return

	(b) 20[ms]待つサブルーチン

リスト5-13    Copyright 2005 Noriaki Mitsunaga