⑤ＰＩＣプログラムのソース （ＦＩＲＳＴ１Ｖ２．ＡＳＭ）
;------------------------------------------------------------------------------------------
; ●プログラム ： ＦＩＲＳＴ１Ｖ２ ●言語 ： ＰＡ（秋月電子通商製作アセンブラ）
; ●タイトル ： ＬＥＤ（０９）点滅 ＬＥＤ（１０）点灯 プログラム（ＶＥＲ．２）
; ___________________ ____________________
; | V |
; | |
; >--+ 1 RA2 PORTA(BIT2) | PORTA(BIT1) RA1 18 +--<
; >--+ 2 RA3 PORTA(BIT3) | PORTA(BIT0) RA0 17 +--<
; ﾐｼﾖｳ --+ 3 RA4 PORTA(BIT4) | OSC1 16 +--< ｵｼﾚｰﾀ端子／外部ｸﾛｯｸ入力
; >--+ 4 MCLR | OSC2 15 +--> ｵｼﾚｰﾀ端子／ｸﾛｯｸ出力
; 0V --+ 5 Vss (-) | (+) Vdd 14 +-- 3～5V+
; >--+ 6 RB0 PORTB(BIT0) | PORTB(BIT7) RB7 13 +--<
; >--+ 7 RB1 PORTB(BIT1) | PORTB(BIT6) RB6 12 +--<
; >--+ 8 RB2 PORTB(BIT2) | PORTB(BIT5) RB5 11 +--<
; LED(09) <--+ 9 RB3 PORTB(BIT3) | PORTB(BIT4) RB4 10 +--> LED(10)
; | |
; +----------------------------------------+
; １ピン（２０ｍＡ） PIC16F84-20/P Copyright (c) 2003.12.27 by T.EJIRI
;------------------------------------------------------------------------------------------
INCLUDE 16F84.H ;プロセッサの仕様の変数宣言
;------------------------------------------------------------------------------------------
; コンフィギュレーション・レジスタの設定
;------------------------------------------------------------------------------------------
.OSC HS ;オシレータ・タイプ（ＨＳ：高速ｸﾘｽﾀﾙ）の設定
.PWRT ON ;パワーアップ・タイマ（ＯＮ：有効）の設定
.WDT OFF ;ウォッチドッグ・タイマ（ＯＦＦ：無効）の設定
.PROTECT OFF ;コード・プロテクト（ＯＦＦ：無効）の設定
;------------------------------------------------------------------------------------------
; 汎用レジスタ エリア ６８バイト （ＳＲＡＭ） 変数定義
;------------------------------------------------------------------------------------------
ORG 0CH ;汎用レジスタ開始アドレス（０００Ｃ番地)
POI DS 1 ; エリア （１バイト）
WK DS 1 ;Ｗレジスタ・ワーク エリア （１バイト）
TM1 DS 1 ;タイマーカウント１ エリア （１バイト）
TM2 DS 1 ;タイマーカウント２ エリア （１バイト）
;------------------------------------------------------------------------------------------
; リセット処理
;------------------------------------------------------------------------------------------
ORG 0 ;リセット・ベクタ アドレス（００００番地)
GOTO START ;プログラムの開始点（START）へジャンプ
;------------------------------------------------------------------------------------------
; 外部割り込み処理
;------------------------------------------------------------------------------------------
ORG 4 ;外部割り込みベクタ アドレス（０００４番地)
GOTO START ;プログラムの開始点（START）へジャンプ
;------------------------------------------------------------------------------------------
; ゲット パターン ルーチン ＬＥＤの点灯パターン
;------------------------------------------------------------------------------------------
GETPATTERN
JMP PC+W ;Ｗレジスタに？をセットして、ＲＥＴＵＲＮする
RETW 0000b,00011000b ;ＰＣ＋＝Ｗ＋１ テーブル参照
RETW 0000b,00010000b ;プログラム・カウンタ
RETW 0000b,00010000b ;
RETW 0000b,00010000b ;
RETW 0000b,00010000b ;
RETW 0000b,00010000b ;
RETW 0000b,00011000b ;
RETW 0000b,00010000b ;
RETW 0000b,00010000b ;
RETW 0000b,00010000b ;
RETW 0000b,00010000b ;
RETW 0000b,00010000b ;
RETW 0000b,00010000b ;
RETW 0000b,00010000b ;
RETW 0000b,00010000b ;
RETW 0000b,00010000b ;
RETW 0000b,00010000b ;
RETW 0000b,00010000b ;
RETW 0000b,00010000b ;
RETW 0000b,00010000b ;
RETW 0000b,00010000b ;
RETW 0000b,00010000b ;
RETW 0000b,00010000b ;
RETW 0000b,00010000b ;
;------------------------------------------------------------------------------------------
; 開始プログラム
;------------------------------------------------------------------------------------------
START ;プログラムの始まり
CLR ra ;ＲＡ＝０
CLR rb ;ＲＢ＝０
MOV !ra,#0 ;Ａポート出力設定
MOV !rb,#0 ;Ｂポート出力設定
MAIN0
CLR POI ;ＰＯＩ＝０
MAIN
MOV WK,POI ;ＷＫ＝ＰＯＩ
CLC ;ＣＦ＝０
RL WK ;ＷＫを左へシフト（１ビット）
MOV W,WK ;Ｗ＝ＷＫ
CALL GETPATTERN ;ゲットパターンルーチン呼び出し
MOV ra,W ;ＲＡ＝Ｗ
INC WK ;ＷＫ＋＋
MOV W,WK ;Ｗ＝ＷＫ
CALL GETPATTERN ;ゲットパターンルーチン呼び出し
MOV rb,W ;ＲＢ＝Ｗ
CALL WAIT ;ループ・タイマールーチンの呼び出し
INC POI ;ＰＯＩ＋＋
CJB POI,#24,MAIN ;ＩＦ ＰＯＩ ＜２４ の時 mainへジャンプ
GOTO MAIN0 ;main0へジャンプ
;------------------------------------------------------------------------------------------
; ループ・タイマー ルーチン
;------------------------------------------------------------------------------------------
WAIT
CLR TM1 ;ＴＭ１＝０
WAIT0
CLR TM2 ;ＴＭ２＝０
WAIT1
NOP ;１クロック時間を消費する
DJNZ TM2,WAIT1 ;TM2=TM2-1 IF TM2 NOT= 0 の時 wait1へｼﾞｬﾝﾌﾟ
DJNZ TM1,WAIT0 ;TM1=TM1-1 IF TM1 NOT= 0 の時 wait0へｼﾞｬﾝﾌﾟ
RET ;ループ・タイマー ルーチンの出口
;------------------------------------------------------------------------------------------
;プログラムの終了
;------------------------------------------------------------------------------------------
