●ＬＥＤプログラム １６Ｆ８１９ＬＥＤ０１
;****************************************************************************************** ;* ●ＬＥＤプログラム １６Ｆ８１９ＬＥＤ０１ ●言語：ＭＰＡＳＭアセンブラ * ;****************************************************************************************** ; ;ＰＩＣ１６Ｆ８４Ａからの現状移行時で、変更した主な箇所です。 ; ;------------------------------------------------------------------------------------------ ; ;■取り合えず動かす為の変更箇所は・・・ ; ;・標準ヘッダ、定義ファイルの変更 ; LIST P=PIC16F84A → P=PIC16F819 ; INCLUDE "P16F84A.INC" → "P16F819.INC" ; ;・汎用レジスタの開始アドレスの変更 （ 'ＯＣ' → '２０' ） ; ;------------------------------------------------------------------------------------------ ; ;■不具合事象に対応した変更箇所は・・・ ; ;・ＲＢ３からのＬＥＤが点灯しなかったので ; コンフィグレーションビットの設定項目を追加(_LVP_OFF)して、ＲＢ３を汎用入出力ピンとした。 ; ;------------------------------------------------------------------------------------------ ; ;■ちょっと、試したい事が・・・ ; ;・ＭＣＬＲピン（ＲＡ５）の抵抗接続を取り除きたいので ; コンフィグレーションビットの設定項目を追加(_MCLR_OFF)して、RA5をデジタル入力ピンとした。 ; ;・内部クロック周波数（４ＭＨｚ）を使用したいので ; コンフィグレーションビットで、内部クロックモード(_INTRC_IO)を指定設定して ; OSCCONレジスタは、周波数４ＭＨｚ(IRCF2:1,IRCF1:1,IRCF0:0)を選択設定した。 ; ;------------------------------------------------------------------------------------------ ; ; 【 PIC16F819 】 ; ___________________ ____________________ ; | V | ; | | ; 未使用 <--+ 1 RA2 PORTA(BIT2) | PORTA(BIT1) RA1 18 +--> 未使用 ; 未使用 <--+ 2 RA3 PORTA(BIT3) | PORTA(BIT0) RA0 17 +--> 未使用 ; 未使用 <--+ 3 RA4 PORTA(BIT4) | PORTA(BIT7) RA7 16 +--> 未使用 ; --+ 4 RA5 | PORTA(BIT6) RA6 15 +--> 未使用 ; 0V --+ 5 Vss (-) | (+) Vdd 14 +-- 3〜5V+ ; LED(0) <--+ 6 RB0 PORTB(BIT0) | PORTB(BIT7) RB7 13 +--> LED(7) ; LED(1) <--+ 7 RB1 PORTB(BIT1) | PORTB(BIT6) RB6 12 +--> LED(6) ; LED(2) <--+ 8 RB2 PORTB(BIT2) | PORTB(BIT5) RB5 11 +--> LED(5) ; LED(3) <--+ 9 RB3 PORTB(BIT3) | PORTB(BIT4) RB4 10 +--> LED(4) ; | | ; +----------------------------------------+ ; Copyright (c) 2009.01.31 by T.EJIRI ;------------------------------------------------------------------------------------------ ERRORLEVEL -302 ;バンク指定の確認 Warning Message［302］非表示にする ;------------------------------------------------------------------------------------------ LIST P=PIC16F819 ;標準ヘッダー INCLUDE "P16F819.INC" ;定義ファイルを取り込む ;------------------------------------------------------------------------------------------ ;****************************************************************************************** ;* コンフィグレーションビットの設定 * ;****************************************************************************************** ; ; ●クロック発振モード(OSC)の指定 ：_INTRC_IO ：内部クロックモード(INTOSC)を使用する ; (ＲＡ６,ＲＡ７は汎用入出力ピンとなる) ; ●ウォッチドックタイマの動作指定：_WDT_OFF ：ウォッチドックタイマ(WDT)の動作を禁止する ; ●パワーアップタイマの許可指定 ：_PWRTE_ON ：パワーアップタイマ(PWRTE)の動作を許可する ; ●ＭＣＬＲピンの機能選択指定 ：_MCLR_OFF ：ＲＡ５はデジタル入力ピンとする ; (ＭＣＬＲは内部でVddに接続) ; ●低電圧書き込み許可の指定 ：_LVP_OFF ：低電圧書き込みを禁止する ; (ＲＢ３は汎用入出力ピンとなる) ; ●コードプロテクトの指定 ：_CP_OFF ：コードプロテクト(CP)しない ; __CONFIG _INTRC_IO & _WDT_OFF & _PWRTE_ON & _MCLR_OFF & _LVP_OFF & _CP_OFF ;****************************************************************************************** ;* ＩＤワードの設定 * ;****************************************************************************************** __IDLOCS H'0001' ;ＩＤワード ← プログラムのバージョン ;****************************************************************************************** ;* 変数項目 汎用レジスタ ■バンク０（９６バイト：２０Ｃｈ〜７Ｆｈ番地） * ;****************************************************************************************** TIMCNT1 EQU H'20' ;タイマーカウンター１ TIMCNT2 EQU H'21' ;タイマーカウンター２ ;****************************************************************************************** ;* ＬＥＤ出力パターンデータ （ ０：消灯 １：点灯 ） * ;****************************************************************************************** LEDOFF EQU B'00000000' ;ＰＯＲＴＢ(全て)消灯 LED0 EQU B'00000001' ;ＰＯＲＴＢ(ＲＢ０)のみ点灯、以外は消灯 LED1 EQU B'00000010' ;ＰＯＲＴＢ(ＲＢ１)のみ点灯、以外は消灯 LED2 EQU B'00000100' ;ＰＯＲＴＢ(ＲＢ２)のみ点灯、以外は消灯 LED3 EQU B'00001000' ;ＰＯＲＴＢ(ＲＢ３)のみ点灯、以外は消灯 LED4 EQU B'00010000' ;ＰＯＲＴＢ(ＲＢ４)のみ点灯、以外は消灯 LED5 EQU B'00100000' ;ＰＯＲＴＢ(ＲＢ５)のみ点灯、以外は消灯 LED6 EQU B'01000000' ;ＰＯＲＴＢ(ＲＢ６)のみ点灯、以外は消灯 LED7 EQU B'10000000' ;ＰＯＲＴＢ(ＲＢ７)のみ点灯、以外は消灯 ;****************************************************************************************** ;* プログラムの開始 （リセット・ベクタ） * ;****************************************************************************************** ORG 0 ;リセット・ベクタ（０ｈ番地） GOTO START ;STARTへ ジャンプする ;****************************************************************************************** ;* 割り込み （割り込みベクタ） * ;****************************************************************************************** ORG 4 ;割り込みベクタ（４ｈ番地） GOTO START ;STARTへ ジャンプする ;****************************************************************************************** ;* プログラム・メイン処理の開始 * ;****************************************************************************************** ORG 5 ;プログラムの開始アドレス（５ｈ番地） START CALL INT_RTN ;初期処理 CALL MAIN_RTN ;主処理 ;****************************************************************************************** ;* 初期処理 * ;****************************************************************************************** INT_RTN BSF STATUS,RP0 ;■バンク１にする （ ステータスレジスタのRP0 ← 1 ） ;---内部クロック周波数（４ＭＨｚ）を設定する MOVLW B'01100000' ;Ｗレジスタ ← ４ＭＨｚ(IRCF2:1,IRCF1:1,IRCF0:0)を選択する MOVWF OSCCON ;OSCCONレジスタ ← Ｗレジスタ ;---ポートの初期化--- CLRF TRISA ;PORTAは全て出力モードに設定する CLRF TRISB ;PORTBは全て出力モードに設定する ;------ BCF STATUS,RP0 ;■バンク０にする （ ステータスレジスタのRP0 ← 0 ） CALL LED_A_OFF_RTN ;ＬＥＤ（ＰＯＲＴＡ）未使用処理 RETURN ;****************************************************************************************** ;* ＬＥＤ（ＰＯＲＴＡ）未使用処理 * ;****************************************************************************************** LED_A_OFF_RTN MOVLW B'0000' ;Ｗレジスタ ← ＰＯＲＴＡ(ＲＡ０〜ＲＡ３)を消灯する MOVWF PORTA ;ＰＯＲＴＡポート ← Ｗレジスタ RETURN ;****************************************************************************************** ;* 主処理 * ;****************************************************************************************** MAIN_RTN CALL LED_B_OFF_RTN ;ＬＥＤ（ＰＯＲＴＢ）消灯処理 CALL LED_B_OUT_RTN ;ＬＥＤ（ＰＯＲＴＢ）出力処理 GOTO MAIN_RTN ;MAIN_RTNへ ジャンプする（永久ループ） ;****************************************************************************************** ;* ＬＥＤ（ＰＯＲＴＢ）消灯処理 * ;****************************************************************************************** LED_B_OFF_RTN MOVLW LEDOFF ;Ｗレジスタ ← ＰＯＲＴＢ(ＲＢ０〜ＲＢ７)を消灯する MOVWF PORTB ;ＰＯＲＴＢポート ← Ｗレジスタ CALL TIM_RTN ;サブルーチンを呼ぶ（タイマー処理） RETURN ;****************************************************************************************** ;* ＬＥＤ（ＰＯＲＴＢ）出力処理 * ;****************************************************************************************** LED_B_OUT_RTN MOVLW LED0 ;Ｗレジスタ ← ＰＯＲＴＢ(ＲＢ０)を点灯する MOVWF PORTB ;ＰＯＲＴＢポート ← Ｗレジスタ CALL TIM_RTN ;サブルーチンを呼ぶ（タイマー処理） MOVLW LED1 ;Ｗレジスタ ← ＰＯＲＴＢ(ＲＢ１)を点灯する MOVWF PORTB ;ＰＯＲＴＢポート ← Ｗレジスタ CALL TIM_RTN ;サブルーチンを呼ぶ（タイマー処理） MOVLW LED2 ;Ｗレジスタ ← ＰＯＲＴＢ(ＲＢ２)を点灯する MOVWF PORTB ;ＰＯＲＴＢポート ← Ｗレジスタ CALL TIM_RTN ;サブルーチンを呼ぶ（タイマー処理） MOVLW LED3 ;Ｗレジスタ ← ＰＯＲＴＢ(ＲＢ３)を点灯する MOVWF PORTB ;ＰＯＲＴＢポート ← Ｗレジスタ CALL TIM_RTN ;サブルーチンを呼ぶ（タイマー処理） MOVLW LED4 ;Ｗレジスタ ← ＰＯＲＴＢ(ＲＢ４)を点灯する MOVWF PORTB ;ＰＯＲＴＢポート ← Ｗレジスタ CALL TIM_RTN ;サブルーチンを呼ぶ（タイマー処理） MOVLW LED5 ;Ｗレジスタ ← ＰＯＲＴＢ(ＲＢ５)を点灯する MOVWF PORTB ;ＰＯＲＴＢポート ← Ｗレジスタ CALL TIM_RTN ;サブルーチンを呼ぶ（タイマー処理） MOVLW LED6 ;Ｗレジスタ ← ＰＯＲＴＢ(ＲＢ６)を点灯する MOVWF PORTB ;ＰＯＲＴＢポート ← Ｗレジスタ CALL TIM_RTN ;サブルーチンを呼ぶ（タイマー処理） MOVLW LED7 ;Ｗレジスタ ← ＰＯＲＴＢ(ＲＢ７)を点灯する MOVWF PORTB ;ＰＯＲＴＢポート ← Ｗレジスタ CALL TIM_RTN ;サブルーチンを呼ぶ（タイマー処理） RETURN ;****************************************************************************************** ;* タイマー処理 * ;****************************************************************************************** TIM_RTN MOVLW D'255' ;Ｗレジスタ ← ２５５ MOVWF TIMCNT1 ;TIMCNT1（タイマーカウンター１） ← Ｗレジスタ TIM_LOOP1 MOVLW D'255' ;Ｗレジスタ ← ２５５ MOVWF TIMCNT2 ;TIMCNT2（タイマーカウンター２） ← Ｗレジスタ TIM_LOOP2 NOP ;空ステップ NOP ;空ステップ NOP ;空ステップ NOP ;空ステップ NOP ;空ステップ NOP ;空ステップ NOP ;空ステップ NOP ;空ステップ NOP ;空ステップ NOP ;空ステップ DECFSZ TIMCNT2,F ;（TIMCNT2＝TIMCNT2−１）＝０の時 次の命令をスキップする GOTO TIM_LOOP2 ;TIM_LOOP2へ ジャンプする（タイマーカウンタ２、ループ） DECFSZ TIMCNT1,F ;（TIMCNT1＝TIMCNT1−１）＝０の時 次の命令をスキップする GOTO TIM_LOOP1 ;TIM_LOOP1へ ジャンプする（タイマーカウンタ１、ループ） RETURN ;****************************************************************************************** END ;プログラムの終了