(PIC-匯編)實(shí)驗(yàn)6--LED紅綠藍(lán)同時(shí)亮滅,同步實(shí)現(xiàn)5

;============================================================================
;====================翼芯科技 LED紅綠藍(lán)同時(shí)亮滅,同步=========================
;============================================================================   
;  此源碼版權(quán)屬 翼芯科技 全權(quán)享有，如欲引用，敬請(qǐng)署名并告知
;          嚴(yán)禁隨意用于商業(yè)目的，違者必究，后果自負(fù)
;          公司網(wǎng)站 http://www.mcu-led.com
;          公司論壇 http://www.cpu-led.com
;          淘寶店:  http://cpu-led.taobao.com/  和  http://mcu-led.taobao.com/
;          產(chǎn)品咨詢(xún) QQ :1322130074 電話:13715619122
;程序說(shuō)明：本程序用于實(shí)現(xiàn)LED紅綠藍(lán)1秒同時(shí)亮滅,同步實(shí)現(xiàn),延時(shí)1ms后再次檢測(cè)1次,
;          抗干擾最好.IC插到U2位置.
;文件名稱(chēng)：LED.ASM  
;日期：    2010/12/23   
;版本：    1.0   
;IC配置位: 內(nèi)部RC   看門(mén)狗開(kāi)     MCLRE為輸入
__CONFIG   _MCLRE_OFF&_CP_ON&_WDT_ON&_IntRC_OSC;     
;=============================================================================                          
;=============================================================================   
;=============================================================================        
#INCLUDE        <P12F509.INC>;          引導(dǎo)文件
;========================IC輸出口定義=========================================                                          
#define  RED1          GPIO,0;      //紅色輸出口
#define  GREEN1        GPIO,1;      //綠色輸出口  
#define  BLUE1         GPIO,2;      //藍(lán)色輸出口   
#define  PSAA_ZERO     GPIO,4;      //過(guò)零檢測(cè)口   

;=========================狀態(tài)標(biāo)志定義========================================                                      
#define  FLAG_ACZ      FLAG,0;                 
#define  FLAG_OK       FLAG,1;
#define  ACZ_HL        FLAG,2;      //過(guò)零輸入高低電平標(biāo)識(shí)
  
;=========================變量定義============================================
FLAG         EQU       07H;         //狀態(tài)標(biāo)志寄存器
T_DELAY      EQU       08H;         //延時(shí)用            
TEMP1        EQU       09H;
DLY1         EQU       0AH;




ORG   00H;
        GOTO    MAIN;  
;==============================================================================
;功能描述：過(guò)零檢測(cè)
;隸屬模塊：無(wú)
;參數(shù)說(shuō)明：檢測(cè)50/60Hz過(guò)零,檢測(cè)兩次,兩次檢測(cè)已過(guò)零才確定以過(guò)零.         
;返回說(shuō)明：無(wú)
;注：.....                                                
;==============================================================================   
AC_TIME:  
        BTFSS  ACZ_HL;       　為1高電平狀態(tài)
        GOTO   AC00;            
        BTFSC  PSAA_ZERO;      狀態(tài)為1時(shí)判定過(guò)零腳電平               
        GOTO   AC20;           無(wú)過(guò)零,退出      
        GOTO   AC05;           有過(guò)零  
AC00:
        BTFSS  PSAA_ZERO;      狀態(tài)為0時(shí)判定過(guò)零腳電平            
        GOTO   AC20;           無(wú)過(guò)零,退出
AC05:
        BTFSC  FLAG_OK;        有過(guò)零,判定是否是第一次過(guò)零
        GOTO   AC10;           跳到第二次過(guò)零
        BSF    FLAG_OK;        第一次過(guò)零
        GOTO   AC20;
;//===========================================================================
AC10:      
        BSF    FLAG_ACZ;       成功過(guò)零標(biāo)識(shí)
        BCF    FLAG_OK;        清標(biāo)識(shí)次數(shù)標(biāo)識(shí)
        BTFSS  PSAA_ZERO;      重置過(guò)零狀態(tài)標(biāo)識(shí)        
        GOTO   AC15;           
        BSF    ACZ_HL;         高電平標(biāo)識(shí)
        GOTO   AC20;
AC15:
        BCF    ACZ_HL;         低電平標(biāo)識(shí)                                                                 
AC20:         
        RETURN;                中斷反回                                                      
;==============================================================================
;功能描述：延時(shí)程序
;隸屬模塊：無(wú)
;參數(shù)說(shuō)明：實(shí)現(xiàn)T_DELAY*10MS的延時(shí)        
;返回說(shuō)明：無(wú)
;注：.....                                                
;==============================================================================
DELAY1:
        MOVF     T_DELAY,0;
        MOVWF    TEMP1;
D00:   
        MOVLW    .250;
        MOVWF    DLY1;
D10:
        CLRWDT;
        DECFSZ   DLY1,1;
        GOTO     D10;        
        CALL     AC_TIME;
        BTFSS    FLAG_ACZ;            //為1，已啟動(dòng)定時(shí)器   
        GOTO     D00;                 //檢測(cè)過(guò)零
        BCF      FLAG_ACZ;
        DECFSZ   TEMP1,1;
        GOTO     D00;
        RETURN
;==============================================================================
;功能描述：主函數(shù),程序開(kāi)始
;隸屬模塊：無(wú)
;參數(shù)說(shuō)明：無(wú)     
;返回說(shuō)明：無(wú)
;注：.....                                                
;==============================================================================
MAIN:                           
        MOVLW   0X38;             //定義IO口,GPIO 0,1,2為輸出,3,4,5為輸入.
        TRIS    GPIO;      
        CLRF    GPIO;             //GPIO清0               
            MOVLW   B'00000101';          //分給TMR0, 2~0定義分頻為1:64位
                OPTION;
        CLRF    FLAG;                  
        MOVLW   .100;             ////100*20ms=1S
        MOVWF   T_DELAY;   
LOOP:
;==============================================================================
;功能描述：實(shí)現(xiàn)紅綠藍(lán)同時(shí)跳變
;隸屬模塊：無(wú)
;參數(shù)說(shuō)明  無(wú)      
;返回說(shuō)明：無(wú)
;注：.....                                                
;==============================================================================      
FUN1:
        BSF     RED1;           紅亮
        BSF     GREEN1;         綠亮
        BSF     BLUE1;          藍(lán)亮
        CALL    DELAY1;

        BCF     RED1;           紅滅
        BCF     GREEN1;         綠滅
        BCF     BLUE1;          藍(lán)滅   
        CALL    DELAY1;
        GOTO    LOOP;

        END