list p=12c509
	include <p12c509.inc>

WAIT	EQU	07H


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

SETUP
	MOVLW	08H
	MOVWF	GPIO

LOOP				;出力ピンすべてに38KHzの信号を出す
	MOVLW	37H
	MOVWF	GPIO
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP


	MOVLW	08H
	MOVWF	GPIO
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP

	GOTO	LOOP


	END