(LED學習板)實驗2--LED紅綠藍同時亮滅,同步實現1

;============================================================================
;====================翼芯科技 LED紅綠藍同時亮滅,同步=========================
;============================================================================   
;  此源碼版權屬 翼芯科技 全權享有，如欲引用，敬請署名并告知
;          嚴禁隨意用于商業(yè)目的，違者必究，后果自負
;          公司網站 http://www.mcu-led.com
;          公司論壇 http://www.cpu-led.com
;          淘寶店:  http://cpu-led.taobao.com/  和  http://mcu-led.taobao.com/
;          產品咨詢 QQ :1322130074   電話:13715619122
;程序說明：本程序用于實現LED紅綠藍1秒同時亮滅,同步實現,只檢測一次,抗干擾比較差.
;          IC插到U2位置.
;文件名稱：LED.ASM  
;日期：    2010/12/23   
;版本：    1.0   
;IC配置位: 內部RC   看門狗開     MCLRE為輸入
   __CONFIG   _MCLRE_OFF&_CP_ON&_WDT_ON&_IntRC_OSC;  
;=============================================================================                          
;=============================================================================   
;=============================================================================        
#INCLUDE        <P12F509.INC>;          引導文件
;========================IC輸出口定義=========================================                                          
#define  RED1          GPIO,0;      //紅色輸出口
#define  GREEN1        GPIO,1;      //綠色輸出口  
#define  BLUE1         GPIO,2;      //藍色輸出口   
#define  PSAA_ZERO     GPIO,4;      //過零檢測口      
;=========================變量定義============================================
FLAG         EQU       07H;         //狀態(tài)標志寄存器
T_DELAY      EQU       08H;         //延時用            
TEMP1        EQU       09H;





ORG   00H;
        GOTO    MAIN;  
                                                     
;==============================================================================
;功能描述：延時程序,檢測過零,實現同步
;隸屬模塊：無
;參數說明：實現T_DELAY*20MS的延時        
;返回說明：無
;注：.....                                                
;==============================================================================
DELAY1:
       MOVF     T_DELAY,0;
       MOVWF    TEMP1;
D00:
       CLRWDT   
       BTFSC    PSAA_ZERO;       //為1等侍
       GOTO     D00;  
D05:   
       CLRWDT            
       BTFSS    PSAA_ZERO;     //為1等侍
       GOTO     D05;  
       DECFSZ   TEMP1,1;
       GOTO     D00;
       RETURN
;==============================================================================
;功能描述：主函數,程序開始
;隸屬模塊：無
;參數說明：無     
;返回說明：無
;注：.....                                                
;==============================================================================
MAIN:                           
        MOVLW   0X38;             //定義IO口,GPIO 0,1,2為輸出,3,4,5為輸入.
        TRIS    GPIO;      
        CLRF    GPIO;             //GPIO清0               
            MOVLW   0x05;                  //分給TMR0, 2~0定義分頻為1:64位
                OPTION;                  
        MOVLW   .50;              //100*20ms=1S
        MOVWF   T_DELAY;   
LOOP:
;==============================================================================
;功能描述：實現紅綠藍同時跳變
;隸屬模塊：無
;參數說明  無      
;返回說明：無
;注：.....                                                
;==============================================================================      
FUN1:
        BSF     RED1;           紅亮
        BSF     GREEN1;         綠亮
        BSF     BLUE1;          藍亮
        CALL    DELAY1;

        BCF     RED1;           紅滅
        BCF     GREEN1;         綠滅
        BCF     BLUE1;          藍滅   
        CALL    DELAY1;
        GOTO    LOOP;


        END