loop
	movlw	B'00100001'	; 
	movwf	PORTC		; 点灯
	call	delay05s	; 0.5[s]待ち
	movlw	B'00100000'	;
	movwf	PORTC		; 消灯
	call	delay05s	; 0.5[s]待ち
	goto	loop

リスト4-9     Copyright 2005 Noriaki Mitsunaga