秒表.PNG (28.3 KB, 下載次數: 21)
下載附件
2018-11-2 09:01 上傳
ORG 0000H
START:
MOV P0,#00H
JB P1.0,$
CALL FILTER
JNB P1.0,$
MOV R0,#00
PRESS1:MOV A,R0
MOV P0,A
MOV R2,#10
ADD1:
MOV R3,#200
CALL DELAY05
DJNZ R2,ADD1
MOV A,R0
ADD A,#01H
DA A
MOV R0,A
SJMP PRESS1
PRESS2:
CALL FILTER
JB p1.0,PRESS2
PRESS3:
JB P1.0,$
CALL FILTER
RELEASE:
JB P1.0,START
SJMP RELEASE
DELAY05:
MOV R4,#250
JNB P2.0,PRESS2
DJNZ R4,$
DJNZ R3,DELAY05
RET
FILTER:
MOV R5,#40
DEL:
MOV R6,#250
DJNZ R6,$
DJNZ R5,DEL
RET
END
|