资讯详情

STC单片机I/O口控制程序(两个不同的跑马灯效果)

STC公司的单片机主要是基于8051内核,是新一代增强型单片机,指令代码完全兼容传统8051,速度快8~12倍,带ADC,4路PWM,双串口,有全球唯一ID号,加密性好,抗干扰强.控制灵活!且价格便宜!也就几块钱吧!但你让她发挥出了性能,就不止几块钱了哦!单片机叫什么?o(∩_∩)o...微型计算机···                                                                                       ORG  000H   ;起始地址                                                                             START:         ;开始                                                                                          MOV R2,#10;设置循环次数                                                                                    D0:                                                                                         MOV  R0,#8  ;设置左移次数                                                                                          MOV  A,#07FH;向A寄存器输入初始值                                                                                                              D2: RL  A;将A中数据向左移一位                                                                                                    CALL DL;调入延时                                                                                                MOV P1,A;输出到P1口                                                                                               DJNZ  R0,D2;检测是否左移八次,否则继续执行左移命令                                                                                                   MOV  R1,#7;设置右移次数                                                                                         D3: RR   A;将A中数据向右移一位                                                                                                CALL DL;调入延时                                                                                                MOV P1,A;将A中数据输出到P1口                                                                                                MOV P0,A;并联输出至P0口                                                                                                DJNZ R1,D3;检测是否右移了七次,否则继续执行右移命令                                                                                                 DJNZ R2,D0;检测是否循环了十次,否则继续循环                                                                                                  MOV A,#0FFH;向A中载入新数据                                                                                              D4:SUBB A,#01;执行减法运算                                                                                                     CALL  DL1;调入延时程序1                                                                                                      MOV R3,A;将A中数据传送给R3                                                                                                     MOV  P1,R3;将R3(寄存器)中数据输出至P1口                                                                                                    DJNZ R3,D4;检测R3是否为零,否则继续执行减法运算                                                                                                     JMP  START;跳到开始执行                                                                                            DL1:    MOV  R7,#90;延时程序1                                                                                                 L4:  MOV  R6,#20                                                                                                 L3:  MOV R5,#50                                                                                                         DJNZ  R5,$                                                                                                          DJNZ  R6,L3                                                                                                          DJNZ  R7,L4                                                                                                           RET   ;子程序返回                                                                                                                                     DL:             ;延时程序                                                                                                                   MOV   R3,#20                                                                                                                   L1:MOV  R4,#15                                                                                                                    L2:MOV  R5,#50                                                                                                                          DJNZ  R5,$                                                                                                                          DJNZ  R4,L2                                                                                                                          DJNZ  R3,L1                                                                                                                           RET  ;子程序返回                                                                                                                            END  ;结束                                                                                                                                                                                                                     编程:蓝色梦幻                                                                                                                          2013年6月9日
-电子元器件采购网(www.ruidan.com)是本土元器件目录分销商,采用“小批量、现货、样品”销售模式,致力于满足客户多型号、高质量、快速交付的采购需求。 自建高效智能仓储,拥有自营库存超过50,000种,提供一站式正品现货采购、个性化解决方案、选型替代等多元化服务。
锐单商城拥有海量元器件数据手册IC替代型号,打造 电子元器件IC百科大全!

锐单商城 - 一站式电子元器件采购平台