(PIC-汇编)实验6--LED红绿蓝同时亮灭,同步实现5
;============================================================================;====================翼芯科技 LED红绿蓝同时亮灭,同步=========================
;============================================================================
;此源码版权属 翼芯科技 全权享有，如欲引用，敬请署名并告知
; 严禁随意用于商业目的，违者必究，后果自负
; 公司网站 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秒同时亮灭,同步实现,延时1ms后再次检测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输出口定义=========================================
#defineRED1 GPIO,0; //红色输出口
#defineGREEN1 GPIO,1; //绿色输出口
#defineBLUE1 GPIO,2; //蓝色输出口
#definePSAA_ZERO GPIO,4; //过零检测口
;=========================状态标志定义========================================
#defineFLAG_ACZ FLAG,0;
#defineFLAG_OK FLAG,1;
#defineACZ_HL FLAG,2; //过零输入高低电平标识
;=========================变量定义============================================
FLAG EQU 07H; //状态标志寄存器
T_DELAY EQU 08H; //延时用
TEMP1 EQU 09H;
DLY1 EQU 0AH;
ORG 00H;
GOTO MAIN;
;==============================================================================
;功能描述：过零检测
;隶属模块：无
;参数说明：检测50/60Hz过零,检测两次,两次检测已过零才确定以过零.
;返回说明：无
;注：.....
;==============================================================================
AC_TIME:
BTFSSACZ_HL; 为1高电平状态
GOTO AC00;
BTFSCPSAA_ZERO; 状态为1时判定过零脚电平
GOTO AC20; 无过零,退出
GOTO AC05; 有过零
AC00:
BTFSSPSAA_ZERO; 状态为0时判定过零脚电平
GOTO AC20; 无过零,退出
AC05:
BTFSCFLAG_OK; 有过零,判定是否是第一次过零
GOTO AC10; 跳到第二次过零
BSF FLAG_OK; 第一次过零
GOTO AC20;
;//===========================================================================
AC10:
BSF FLAG_ACZ; 成功过零标识
BCF FLAG_OK; 清标识次数标识
BTFSSPSAA_ZERO; 重置过零状态标识
GOTO AC15;
BSF ACZ_HL; 高电平标识
GOTO AC20;
AC15:
BCF ACZ_HL; 低电平标识
AC20:
RETURN; 中断反回
;==============================================================================
;功能描述：延时程序
;隶属模块：无
;参数说明：实现T_DELAY*10MS的延时
;返回说明：无
;注：.....
;==============================================================================
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，已启动定时器
GOTO D00; //检测过零
BCF FLAG_ACZ;
DECFSZ TEMP1,1;
GOTO D00;
RETURN
;==============================================================================
;功能描述：主函数,程序开始
;隶属模块：无
;参数说明：无
;返回说明：无
;注：.....
;==============================================================================
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:
;==============================================================================
;功能描述：实现红绿蓝同时跳变
;隶属模块：无
;参数说明无
;返回说明：无
;注：.....
;==============================================================================
FUN1:
BSF RED1; 红亮
BSF GREEN1; 绿亮
BSF BLUE1; 蓝亮
CALL DELAY1;
BCF RED1; 红灭
BCF GREEN1; 绿灭
BCF BLUE1; 蓝灭
CALL DELAY1;
GOTO LOOP;
END
页:
[1]