目次＞８章．機能が豊富なＰＩＣを使う(PIC12F683)＞内部クロックを使う＞ソース
内部クロックを使う（ソース）
更新日２００５．１２．１７
以下のソースを取り込んで、アセンブル→ＰＩＣ書き込み→実行して下さい。
; ========================== ここから ==============================
;
; PIC12F683
; clock:INTOSCIO 8MHz
;
; 内部クロック（８ＭＨｚ）の動作確認
; 全てのピン（６ピン）をデジタルＩＯで使用
; GP0-2,GP4-5:LED（５個）
; GP3: 未使用
;
; ０．５秒毎にＬＥＤを点滅させる
; 時間は、命令のループにより待ち合わせる
;
;
LIST P=12f683
#INCLUDE <p12f683.inc>
__CONFIG _CP_OFF & _CPD_OFF & _WDT_OFF & _BOD_ON & _IESO_OFF& _PWRTE_ON & _INTOSCIO & _MCLRE_OFF
T05mCNT EQU 020h ;0.5mSループカウンタ
T100CNT EQU 021h ;100mSループカウンタ
T05SCNT EQU 022h ;0.5Sループカウンタ
ORG 0
; ＰＩＣの初期化
INIT
MOVLW 07h
MOVWF CMCON0 ;GP2-0はデジタルＩＯ
BSF STATUS,RP0 ;■バンク１に切替え
CLRF TRISIO ; GP0-5は出力
MOVLW 070h ; CLOCK=8MHz
MOVWF OSCCON
CLRF ANSEL ;デジタルＩＯ（ＡＮ機能を使用しない）
BCF STATUS,RP0 ;■バンク０に切替え
; メイン処理
MAIN
MOVLW 03Fh
MOVWF GPIO ; ５個のＬＥＤ全て点灯
CALL T05S ; ０．５秒待つ
CLRF GPIO ; ５個のＬＥＤ全て消灯
CALL T05S ; ０．５秒待つ
GOTO MAIN
; タイマルーチン
; ＜＜ 0.5S待つサブルーチン ＞＞
T05S
MOVLW D'5' ; ループ回数５を
MOVWF T05SCNT ; セット
T05LP CALL T100mS ; 100mS待つ
DECFSZ T05SCNT,F ; ループ回数−１して０になったら次の命令をスキップ
GOTO T05LP
RETURN ; このサブルーチン呼出し元に戻る
; ＜＜ 100mS待つサブルーチン ＞＞
T100mS
MOVLW D'200' ; ループ回数200を
MOVWF T100CNT ; セット
T100LP CALL T05mS ; 0.5mS待つ
DECFSZ T100CNT,F ; ループ回数−１して０になったら次の命令をスキップ
GOTO T100LP ;
RETURN ; このサブルーチン呼出し元に戻る
; ＜＜ 0.5mS待つサブルーチン ＞＞
T05mS
MOVLW D'249' ; ループ回数249を
MOVWF T05mCNT ; セット
T05mLP NOP ; 何もせず１サイクル消費
DECFSZ T05mCNT,F ; ループ回数−１して０になったら次の命令をスキップ
GOTO T05mLP ;
RETURN ; このサブルーチン呼出し元に戻る
END
; =========================== ここまで ===============================