课程上做的霹雳灯实验
下载：
霹雳灯.zip
(18.43 KB, 下载次数: 28)
- ORG 0000H
- MAIN: MOV R1,#07H
- MOV A,#0FEH
- NEXT: MOV P1,A
- ACALL DELAY
- RL A
- DJNZ R1,NEXT
- MOV R1,#07H
- NEXT1: MOV P1,A;第一次A=7F
- RR A
- ACALL DELAY
- DJNZ R1,NEXT1
- SJMP MAIN
- ;------DELAY 0.2 SEC----
- DELAY: MOV R7,#02
- DEL1:MOV R6,#250
- DEL2:MOV R5,#200
- DEL3:DJNZ R5,DEL3
- DJNZ R6,DEL2
- DJNZ R7,DEL1
- RET
- END
|
