;****************************************************************************************** ; Project : ; Program Name : ; Programer : ; Create date : Version 1.0 H23.05.10 ; History : ; Laungage : MPLAB MPASM ;****************************************************************************************** ; (1)Description ; ;****************************************************************************************** LIST P=PIC12F1822,ST=OFF,R=DEC INCLUDE "P12F1822.inc" __CONFIG _CONFIG1 , _FOSC_INTOSC & _WDTE_OFF & _PWRTE_OFF & _MCLRE_OFF & _CP_OFF & _CPD_OFF & _BOREN_OFF & _CLKOUTEN_OFF & _IESO_OFF & _FCMEN_OFF __CONFIG _CONFIG2 , _WRT_OFF & _PLLEN_OFF & _STVREN_OFF & _BORV_25 & _LVP_OFF ; Define Macro SELBANK MACRO #BANK_NO MOVLW #BANK_NO MOVWF BSR ENDM ; SUP_LED EQU H'0005' R_LED EQU H'0004' R_SW EQU H'0002' W_LMP EQU H'0001' ; ; Define GENERAL PURPOSE RAM AREA (80 bytes maximum) ; TMP1 EQU 20H ; ; Define Common RAM AREA (16 bytes) ; WAT1M1 EQU 70H WAT1S2 EQU 71H WAT1S1 EQU 72H WAT01S1 EQU 73H STAT1 EQU 74H STAT2 EQU 75H ORG 0 GOTO START ORG 4 GOTO START START ;********************************** ; 1.初期化処理 ;********************************** ; (1)オシレータの設定（内部１６ＭＨｚにする） SELBANK 1 ; SET BANK1 MOVLW B'11111010' MOVWF OSCCON ; (2)ポートの設定１（全てをデジタルポートにする） SELBANK 3 ; SET BANK3 CLRF ANSELA ; (3)ポートの設定２（ディレクション設定） SELBANK 1 ; SET BANK1 MOVLW B'11011101' ; PORT設定 MOVWF TRISA ; PORT設定 ; (4)ポートの設定３（プルアップ設定） SELBANK 4 ; SET BANK4 BSF WPUA,2 ; PORTA(2)をプルアップする ; (5)初期値の設定 SELBANK 0 ; SET BANK0 CLRF PORTA SELBANK 2 ; SET BANK0 CLRF LATA SELBANK 0 ; SET BANK0 BCF PORTA,SUP_LED BCF PORTA,W_LMP MAIN ;********************************** ; 2.メインプログラム ;********************************** ; (1)振動センサーの状態チェック１ BTFSS PORTA,R_SW GOTO MAIN1B BCF STAT1,0 GOTO MAIN2 MAIN1B BSF STAT1,0 ; (2)少し待つ MAIN2 CALL TIMER ; (3)振動センサーの状態チェック２ BTFSS PORTA,R_SW GOTO MAIN2B BCF STAT2,0 GOTO MAIN3 MAIN2B BSF STAT2,0 ; (4)状態１と状態２が異なるなら処理実行 MAIN3 BTFSS STAT1,0 GOTO MAIN3B BTFSC STAT2,0 GOTO MAIN GOTO MAIN4 MAIN3B BTFSS STAT2,0 GOTO MAIN GOTO MAIN4 MAIN4 CALL CHKLED GOTO MAIN ;************************************************************************************ ; Function Name : CHKLED ; Title : 明暗をチェックし、暗ならランプを点灯する ; Input : ; Output : ;************************************************************************************ CHKLED ; 1.ＬＥＤ回路に電源を供給する BSF PORTA,SUP_LED CALL WAT01S ; 2.チェックする BTFSS PORTA,R_LED GOTO CHKLED2 ; 3-1.明の場合の処理 CHKLED1 ; a)ＬＥＤ回路の電源供給を停止する BCF PORTA,SUP_LED CALL WAT01S RETURN ; 3-2.暗の場合の処理 CHKLED2 ; a)ＬＥＤ回路の電源供給を停止する BCF PORTA,SUP_LED CALL WAT01S ; b)ランプを点灯する BSF PORTA,W_LMP CALL WAT1S CALL WAT1S CALL WAT1S CALL WAT1S CALL WAT1S CALL WAT1S CALL WAT1S CALL WAT1S CALL WAT1S CALL WAT1S BCF PORTA,W_LMP RETURN ;************************************************************************************ ; Function Name : WAT1M ; Title : Wait 1[M] ; Input : ; Output : ;************************************************************************************ WAT1M MOVLW H'64' MOVWF WAT1M1 WAT1MA CALL WAT1S DECFSZ WAT1M1,F GOTO WAT1MA RETURN ;************************************************************************************ ; Function Name : WAT1S ; Title : Wait 1[S] ; Input : ; Output : ;************************************************************************************ WAT1S MOVLW H'0A' MOVWF WAT1S2 WAT1SB MOVLW H'64' MOVWF WAT1S1 WAT1SA CALL TIMER DECFSZ WAT1S1,F GOTO WAT1SA DECFSZ WAT1S2,F GOTO WAT1SB RETURN ;************************************************************************************ ; Function Name : WAT01S ; Title : Wait 0.1[S] ; Input : ; Output : ;************************************************************************************ WAT01S MOVLW H'64' MOVWF WAT01S1 WAT01SA CALL TIMER DECFSZ WAT01S1 GOTO WAT01SA RETURN ;************************************************************************************ ; Function Name : TIMER ; Title : Wait 0.001[S] ; Input : ; Output : ;************************************************************************************ TIMER ; ******************************************************* ; 1.Define T1CON(TIMER1 CONTROL REGISTER) Register ; T1CON(7-6) TMR1CS1,TMR1CS0: Timer1 Clock Source Select bits ; 11 =Timer1 clock source is Capacitive Sensing Oscillator (CAPOSC) ; 10 =Timer1 clock source is pin or oscillator: ; If T1OSCEN = 0: ; External clock from T1CKI pin (on the rising edge) ; If T1OSCEN = 1: ; Crystal oscillator on T1OSI/T1OSO pins ; 01 =Timer1 clock source is system clock (FOSC) ; 00 =Timer1 clock source is instruction clock (FOSC/4) ; T1CON(5-4) T1CKPS1,T1CKPS0: Timer1 Input Clock Prescale Select bits ; 11 = 1:8 Prescale value ; 10 = 1:4 Prescale value ; 01 = 1:2 Prescale value ; 00 = 1:1 Prescale value ; T1CON(3) T1OSCEN: LP Oscillator Enable Control bit ; 1 = Dedicated Timer1 oscillator circuit enabled ; 0 = Dedicated Timer1 oscillator circuit disabled ; T1CON(2) T1SYNC: Timer1 External Clock Input Synchronization Control bit ; TMR1CS1,TMR1CS0 = 1X ; 1 = Do not synchronize external clock input ; 0 = Synchronize external clock input with system clock (FOSC) ; TMR1CS1,TMR1CS0 = 0X ; This bit is ignored. Timer1 uses the internal clock when TMR1CS<1:0> = 1X. ; T1CON(1) Unimplemented: Read as ‘0’ ; T1CON(0) TMR1ON: Timer1 On bit ; 1 = Enables Timer1 ; 0 = Stops Timer1 ; Clears Timer1 Gate flip-flop ; ******************************************************* SELBANK 0 ; SET BANK0 MOVLW B'00000001' MOVWF T1CON ; ******************************************************* ; 2.Define T1GCON (TIMER1 GATE CONTROL REGISTER) Register ; T1GCON(7) TMR1GE: Timer1 Gate Enable bit ; If TMR1ON = 0: ; This bit is ignored ; If TMR1ON = 1: ; 1 = Timer1 counting is controlled by the Timer1 gate function ; 0 = Timer1 counts regardless of Timer1 gate function ; T1GCON(6) T1GPOL: Timer1 Gate Polarity bit ; 1 = Timer1 gate is active-high (Timer1 counts when gate is high) ; 0 = Timer1 gate is active-low (Timer1 counts when gate is low) ; T1GCON(5) T1GTM: Timer1 Gate Toggle Mode bit ; 1 = Timer1 Gate Toggle mode is enabled ; 0 = Timer1 Gate Toggle mode is disabled and toggle flip-flop is cleared ; Timer1 gate flip-flop toggles on every rising edge. ; T1GCON(4) T1GSPM: Timer1 Gate Single-Pulse Mode bit ; 1 = Timer1 gate Single-Pulse mode is enabled and is controlling Timer1 gate ; 0 = Timer1 gate Single-Pulse mode is disabled ; T1GCON(3) T1GGO/DONE: Timer1 Gate Single-Pulse Acquisition Status bit ; 1 = Timer1 gate single-pulse acquisition is ready, waiting for an edge ; 0 = Timer1 gate single-pulse acquisition has completed or has not been started ; This bit is automatically cleared when T1GSPM is cleared. ; T1GCON(2) T1GVAL: Timer1 Gate Current State bit ; Indicates the current state of the Timer1 gate that could be provided to TMR1H:TMR1L. ; Unaffected by Timer1 Gate Enable (TMR1GE). ; T1GCON(1-0) T1GSS1,T1GSS0: Timer1 Gate Source Select bits ; 00 = Timer1 Gate pin ; 01 = Timer0 overflow output ; 10 = Comparator 1 optionally synchronized output (SYNCC1OUT) ; 11 = Comparator 2 optionally synchronized output (SYNCC2OUT) ; ******************************************************* MOVLW B'00000000' MOVWF T1GCON ; ******************************************************* ; 3.Define TMR1 Register ; ******************************************************* ; TMR1 data ( OSC:16MHz, FOSC/4, 1:8 Prescale value, 0.01[S];100Hz ) ; 10mS(100Hz): 16MHz / 4(FOSC/4) / 8(Prescale) / 100(100Hz)==> 0d5,000(Count) ==> 0x1388(Count) ; TMR1 = 0xFFFF - 0x1388 ==> 0xEC77 ; TMR1 data ( OSC:16MHz, FOSC/4, 1:8 Prescale value, 0.1[S];10Hz ) ; 100mS(10Hz): 16MHz / 4(FOSC/4) / 8(Prescale) / 10(10Hz) ==> 0d50,000(Count) ==> 0xC350(Count) ; TMR1 = 0xFFFF - 0xC350 ==> 0x3CAF ; TMR1 data ( OSC:16MHz, FOSC/4, 1:1 Prescale value, 0.001[S];1000Hz ) ; 100mS(10Hz): 16MHz / 4(FOSC/4) / 1(Prescale) / 1000(10Hz)==> 0d4,000(Count) ==> 0x0FA0(Count) ; TMR1 = 0xFFFF - 0x0FA0 ==> 0xF05F MOVLW H'F0' MOVWF TMR1H MOVLW H'5F' MOVWF TMR1L ; ******************************************************* ; 4.Timer ; ******************************************************* BCF PIR1,TMR1IF BTFSS PIR1,TMR1IF GOTO $-1 RETURN END