delay05s:
	movlw	D'250'		; 1
	movwf	CT_DELAY05S	; 1
delay05sl1:
	call	delay1ms	; 2500
	call	delay1ms	; 2500
	decfsz	CT_DELAY05S,f	; 1(次の行を実行)、2(次の行はとばす)
	goto	delay05sl1	; 2

	return			; 2

リスト4-8     Copyright 2005 Noriaki Mitsunaga