８ピンＰＩＣの「　１２Ｆ６７５　」を使用した回路のテストプログラム

（覚え書きです）

;**********************************************************
;
;    PIC 12F675 TEST Program No.1
;
;        2004.3.23   VER1.0   T.H.
;
;        \pic\F675.asm     F675.HEX
;
;**********************************************************

	LIST P=12F675

	; Include file, change directory if needed
	INCLUDE "P12F675.inc"

	__CONFIG       B'11000111000100'

WK1	EQU	0x20
WK2	EQU	0x21
WK3	EQU	0x22
OUTDATA	EQU	0x23

	; Start at the reset vector
	org	0x000
	
	CLRF	GPIO

	BSF	STATUS,RP0
	CALL	3FFH
	MOVWF	OSCCAL
	MOVLW	0x08
	MOVWF	TRISIO
	BCF	OPTION_REG,7
	BCF	STATUS,RP0

LP1	BTFSS	GPIO,3
	GOTO	SUB1
	GOTO	SUB2

SUB1	BSF	GPIO,5
	GOTO	SUB3

SUB2	BCF	GPIO,5

SUB3	BSF	GPIO,0
	BSF	GPIO,1
	BSF	GPIO,2
	BSF	GPIO,4
	GOTO	LP1

        END