list p=12c509
	include <p12c509.inc>
	__config _MCLRE_OFF & _CP_OFF & _WDT_OFF & _XT_OSC

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

SETUP
	MOVLW	00H
	MOVWF	GPIO
	list p=12c509

;40KHz=25μsec　12μHi、13μLoの繰り返し
;7,6,5番ピンに40KHzの信号を出す

LOOP
	MOVLW	07H
	MOVWF	GPIO
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP

	MOVLW	00H
	MOVWF	GPIO
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	GOTO	LOOP

	END