参考学习资料 单片机 附录3 完整的程序代码 ORG.docVIP

附录3完整的程序代码ORG0000H

JMPMAIN

ORG0100H

MAIN:SETBP2.0

JBP2.0,$;响第一声时，P1口的8个灯左移CALLLEFT_MOVE

SETBP2.0

JBP2.0,$;响第二声时，P1口的8个灯右移CALLRIGHT_MOVE

SETBP2.0

JBP2.0,$;响第三声时，P1口的8个灯从中间两个依次往外亮

CALLMIDDLE_MOVE

JMPMAIN

;===============================================================;灯的左移子函数

;===============================================================LEFT_MOVE:MOVA,#0FEH

MOVR1,#8;LED的左移一次所要的次数LOOP1:MOVP1,A

NOP;加两个空操作防止，程序运行跑飞NOP

CALLDELAY_500MS

RLA

DJNZR1,LOOP1

MOVP1,#0FFH

RET

;===============================================================;灯的右移子函数

;===============================================================RIGHT_MOVE:MOVA,#7FH

MOVR1,#8;LED的右移一次所要的次数LOOP2:MOVP1,A

NOP;加两个空操作防止，程序运行跑飞NOP

CALLDELAY_500MS

RRA

DJNZR1,LOOP2

MOVP1,#0FFH

RET

;===============================================================;灯的中间往两边移子函数

14

16/17

;===============================================================MIDDLE_MOVE:MOVA,#0E7H

MOVP1,A

NOP;加两个空操作防止，程序运行跑飞NOP

CALLDELAY_500MS

MOVA,#0DBH

MOVP1,A

NOP;加两个空操作防止，程序运行跑飞NOP

CALLDELAY_500MS

MOVA,#0BDH

MOVP1,A

NOP;加两个空操作防止，程序运行跑飞NOP

CALLDELAY_500MS

MOVA,#07EH

MOVP1,A

NOP;加两个空操作防止，程序运行跑飞NOP

CALLDELAY_500MS

MOVP1,#0FFH

RET

;===============================================================;下面是一个0.5s的延时函数

;===============================================================DELAY_500MS:

MOVR4,#24

DLY_1:MOVR5,#104

DLY_2:MOVR6,#99

DJNZR6,$

DJNZR5,DLY_2

DJNZR4,DLY_1

RET

END

15