单片机跑马灯.doc

***********************************************

运行现象：

编写时间：2010-07-24 10：22

************************************************/

/*************符号定义**********************/

COUNT_0 EQU 0020H ;该地址存放延时函数变量0

COUNT_1 EQU 0021H ;该地址存放延时函数变量1

DELAYTIME EQU 0022H ;该地址存放延时函数变量2

FLAG EQU 0023H ;程序运行标志

/*************程序*************************/

ORG 0000H

JMP INITIAL

/*初始化*/

INITIAL: MOV COUNT_0,#50 ;初始化数据

MOV COUNT_1,#50 ;将0写入地址COUNT_0中

MOV DELAYTIME,#1 ;将1写入地址DELAYTIME中

/*主循环*/

START: MOV FLAG,#8

LOOP_40: MOV P2,#0000H

CALL DELAY

CALL DELAY

CALL DELAY

MOV P2,#00FFH

CALL DELAY

CALL DELAY

CALL DELAY

DJNZ FLAG,LOOP_40

MOV FLAG,#6

LOOP_1: CALL RUNLED_0

DJNZ FLAG,LOOP_1

MOV FLAG,#6

LOOP_0: MOV P2,#000FH

CALL DELAY

CALL DELAY

CALL DELAY

CALL DELAY

CALL DELAY

CALL DELAY

MOV P2,#00F0H

CALL DELAY

CALL DELAY

CALL DELAY

CALL DELAY

CALL DELAY

CALL DELAY

DJNZ FLAG,LOOP_0

MOV FLAG,#5

LOOP_5: CALL RUNLED_4

DJNZ FLAG,LOOP_5

MOV FLAG,#5

LOOP_2: CALL RUNLED_1

DJNZ FLAG,LOOP_2

MOV FLAG,#5

LOOP_3: CALL RUNLED_2

DJNZ FLAG,LOOP_3

MOV FLAG,#5

LOOP_4: CALL RUNLED_3

DJNZ FLAG,LOOP_4

JMP START ;跳回START

JMP INITIAL

///////////////以下为子函数////////////////////

/*函数：延时函数（接近10ms）*/

DELAY: MOV R3,DELAYTIME

DELAY_0: MOV R0,COUNT_0

MOV R1,COUNT_1

DELAY_1: DJNZ R1,$

DJNZ R0,DELAY_1

DJNZ R3,DELAY_0

RET

/*函数：RUNLED_0*/

RUNLED_0: MOV DPTR,#TABLE_0

MOV R4,#8

RUNLED_00: CLR A

MOVC A,@A+DPTR

MOV P2,A

CALL DELAY

CALL DELAY

CALL DELAY

CALL DELAY

INC DPTR

DJNZ R4,RUNLED_00

RET

/*函数：RUNLED_1*/

RUNLED_1: MOV DPTR,#TABLE_1

MOV R4,#18

RUNLED_10: CLR A

MOVC A,@A+DPTR

MOV P2,A

CALL DELAY