ORG 0000H
AJMP MAIN
ORG 0080H
MAIN:
CLR P2.0 ;选中第一个数码管
MOV P0,#76H ;显示H
LCALL DELAY ; 调用延时
MOV P0,#00H ;关显示
SETB P2.0
CLR P2.1 ;选中第二个数码管
MOV P0,#76H ;显示H
LCALL DELAY
MOV P0,#00H
SETB P2.1
CLR P2.2 ;选中第三个数码管
MOV P0,#76H ;显示H
LCALL DELAY
MOV P0,#00H
SETB P2.2
CLR P2.3 ;选中第四个数码管
MOV P0,#76H ;显示H
LCALL DELAY
MOV P0,#00H
SETB P2.3
CLR P2.4 ;选中第五个数码管
MOV P0,#76H ;显示H
LCALL DELAY
MOV P0,#00H
SETB P2.4
CLR P2.5 ;选中第六个数码管
MOV P0,#76H ; 显示H
LCALL DELAY
MOV P0,#00H
SETB P2.5
CLR P2.6 ;选中第七个数码管
MOV P0,#76H ; 显示H
LCALL DELAY
MOV P0,#00H
SETB P2.6
CLR P2.7 ;选中第八个数码管
MOV P0,#76H ; 显示H
LCALL DELAY
SETB P2.7
MOV P0,#00H
AJMP MAIN ;重新开始
DELAY: ;延时子程序
MOV R7,#2
D1: MOV R6,#25
D2: DJNZ R6,D2
DJNZ R7,D1
RET
END
|