课程上做的流水灯实验
下载:
流水灯.zip
(18.63 KB, 下载次数: 51)
- ORG 0000H
- START: MOV R2,#08H
- MOV A,#01H ;FEH=1111 1110设置点亮第一盏灯的灯值
- NEXT: MOV P1,A;根据当前灯值亮灯
- ACALL DELAY ;延时一段时间,让灯亮一段时间,便于人眼观察。
- RL A ;左移,准备好下盏灯的灯值
- DJNZ R2,NEXT ;减1不等于0(没亮完8盏灯),转到NEXT去点亮下盏灯
- SJMP START
- DELAY: MOV R3,#0FFH ;软件延时程序
- DEL2: MOV R4,#0FFH
- DEL1: NOP
- DJNZ R4,DEL1
- DJNZ R3,DEL2
- RET
- END
复制代码
|