调试通过的灯闪程序

分享到          

先是让第一个灯闪的程序：

start: SETB P0.0;(1)是让灯灭
       LCALL DELAY;（2）是延时，调用延时子程序指令
       CLR P0.0;（3）是让灯亮
       LCALL DELAY;（4）和第二条一模一样，也是调用延时子程序指令

       LJMP start;（5）跳转回去执行第一条指令
DELAY: MOV R7,#250;（6）让R7作为计数器，并装入一个常数
D1:    MOV R6,#250;（7）让R6作为计数器，并装入一个常数
D2:    DJNZ R6,D2;（8）让R6减1，并判断R6是否为0。若R6为0，向下执行指令。若R6不为0，跳转D2，继续让R6减1。
 DJNZ R7,D1;（9）让R7减1，并判断R7是否为0。若R7为0，向下执行指令。若R7不为0，跳转D1，使R6完成新一轮计数。
 RET;（10）返回指令。
 END;（11）程序结束

再是挨着闪的程序：

;------------------主程序------------------
START: CLR     P0.0;P0.0输出低电平，使LED1点亮
       ACALL   DELAY;调用延时子程序
       SETB    P0.0;P0.0输出高电平，使LED1熄灭
       CLR     P0.1;P0.1输出低电平，使LED2点亮
       ACALL   DELAY;调用延时子程序
       SETB    P0.1;P0.1输出高电平，使LED2熄灭
       CLR     P0.2;P0.2输出低电平，使LED3点亮
       ACALL   DELAY;调用延时子程序
       SETB    P0.2;P0.2输出高电平，使LED3熄灭
       CLR     P0.3;P0.3输出低电平，使LED4点亮
       ACALL   DELAY;调用延时子程序
       SETB    P0.3;P0.3输出高电平，使LED4熄灭
       CLR     P0.4;P0.4输出低电平，使LED5点亮
       ACALL   DELAY;调用延时子程序
       SETB    P0.4;P0.4输出高电平，使LED5熄灭
       CLR     P0.5;P0.5输出低电平，使LED6点亮
       ACALL   DELAY;调用延时子程序
       SETB    P0.5;P0.5输出高电平，使LED6熄灭
       CLR     P0.6;P0.6输出低电平，使LED7点亮
       ACALL   DELAY;调用延时子程序
       SETB    P0.6;P0.6输出高电平，使LED7熄灭
       CLR     P0.7;P0.7输出低电平，使LED8点亮
       ACALL   DELAY;调用延时子程序
       SETB    P0.7;P0.7输出高电平，使LED8熄灭
       ACALL   DELAY;调用延时子程序
       AJMP    START;八个灯一次亮了后返回开头再次循环
       ;------延时子程序-------
DELAY: MOV     R0,#255;R0装入255
D1:    MOV     R1,#255;R1装入255
       DJNZ    R1,$;使R1自减为零后执行下一句指令
       DJNZ    R0,D1;R0自减1，如果为零执行下一句指令，如果不为零，跳转D1
       RET;子程序返回
;==============================================================================;
 END；程序结束