パッシングライトの製作

12C509を使ったパッシングライト製作のです。

回路図はAORC未明さんに作成いただきました。ありがとうございます。
以下のソースを焼くに当たり、ライターの設定を、内部クロックの使用、ウオッチドックタイマーを使用しない、 リセットピンを使用しないに設定ください。

;パッシングライト
	list p=12c509
	include <p12c509.inc>
	__config _MCLRE_OFF & _CP_OFF & _WDT_OFF & _IntRC_OSC

T_OFF	EQU	07H
WAIT	EQU	08H
PASS	EQU	09H
WL	EQU	0AH

RESET
	GOTO	START
	ORG	04H
START
	MOVLW	09FH
	OPTION
	MOVLW	08H
	TRIS	GPIO

;1st Action

SETUP
	MOVLW	36H
	MOVWF	GPIO

TAIL
	CALL	T120M
	BCF	GPIO,	1
	BSF	GPIO,	0
	CALL	T120M

	BSF	GPIO,	1
	BCF	GPIO,	0
	CALL	T120M

	BCF	GPIO,	1
	BSF	GPIO,	0
	CALL	T120M

	BSF	GPIO,	1
	BCF	GPIO,	0
	CALL	T120M

	MOVLW	0FH
	MOVWF	WL
WAIT_L
	CALL	T120M
	DECFSZ	WL,	F
	GOTO	WAIT_L

	MOVLW	08H
	MOVWF	PASS

PASS1
	DECFSZ	PASS,	F
	GOTO	HEAD_L
	GOTO	ACTION2

HEAD_L
	BCF	GPIO,	4
	BCF	GPIO,	2
	CALL	T120M
	BSF	GPIO,	4

HEAD_R	
	BCF	GPIO,	5
	BSF	GPIO,	2
	CALL	T120M
	BSF	GPIO,	5
	GOTO	PASS1

;2nd Action

ACTION2

	CALL	T120M
	BCF	GPIO,	1
	BSF	GPIO,	0
	CALL	T120M

	BSF	GPIO,	1
	BCF	GPIO,	0
	CALL	T120M

	BCF	GPIO,	1
	BSF	GPIO,	0
	CALL	T120M

	BSF	GPIO,	1
	BCF	GPIO,	0
	CALL	T120M

	MOVLW	0FH
	MOVWF	WL
WAIT_L2
	CALL	T120M
	DECFSZ	WL,	F
	GOTO	WAIT_L2

	MOVLW	08H
	MOVWF	PASS

PASS2
	DECFSZ	PASS,	F
	GOTO	HEAD
	GOTO	SETUP

HEAD
	BCF	GPIO,	4
	BCF	GPIO,	5
	CALL	T120M
	BSF	GPIO,	4
	BSF	GPIO,	5
	CALL	T60M
	GOTO	PASS2

;Wait Loop1

T60M
	MOVLW	30H
	MOVWF	T_OFF
	MOVLW	0FFH
	MOVWF	WAIT
LOOP1
	CALL	WAIT1
	DECFSZ	T_OFF,	F
	GOTO	LOOP1
	RETLW	00H

WAIT1
	NOP
	DECFSZ	WAIT,	F
	GOTO	WAIT1
	RETLW	00H

;Wait loop2
	
T120M
	MOVLW	60H
	MOVWF	T_OFF
	MOVLW	0FFH
	MOVWF	WAIT
LOOP2
	CALL	WAIT2
	DECFSZ	T_OFF,	F
	GOTO	LOOP2
	RETLW	00H

WAIT2
	NOP
	DECFSZ	WAIT,	F
	GOTO	WAIT2
	RETLW	00H	

	END