跑马灯.txt

跑马灯显示

           ORG      0000H             ;程序从0地址开始
           AJMP     START
           ORG      0030H

START:     MOV   P2,#0BH
       ;让ACC的内容为11111110
LOOP:
           MOV      A,#0FEH
           MOV      R0,#07H         ;R0寄存器加载7次数
LOOPL:     MOV      P0,A          ;让P1口输出ACC的内容
           RL       A             ;让ACC的内容左移
           LCALL    DELAY        ;调用延时子程序
                      ;DJNZ   R0,LOOPL        ;LOOPL循环执行R0次
           DJNZ   R0,LOOPL

           CLR      P3.7 
           LCALL    DELAY
           SETB P3.7  
;右移程序=======================================

           MOV      R0,#07H         ;R0寄存器加载7次数
LOOPR:     MOV      P0,A          ;让P1口输出ACC的内容
           RR       A             ;让ACC的内容右移
           LCALL     DELAY         ;调用延时子程序
           DJNZ     R0,LOOPR      ;LOOPR循环执行R0次数
           CLR      P3.7
           LCALL    DELAY
           SETB P3.7
           LJMP     LOOP          ;跳到LOOP处执       


;0.1秒延时子程序（12MHz晶振）=====================
DELAY:     MOV      R7,#250       ;R7寄存器加载250次数
D1:        MOV      R6,#200       ;R6寄存器加载200次数
           DJNZ     R6,$         ;本行循环执行R6次
           DJNZ     R7,D1         ;D1循环执行R7次
           RET                    ;返回主程序
           END                    ;主程序结束