各位高手能能告诉我4位数字秒表的程序吗?我实习急用.

ORG 00H
START:ANL p2,#00H ；将数码管显示00
JB P3.2, $
CALL DELAY1 ；跳转消抖程序
JNB P3.5, $
MOV R0, #00
L1: MOV A,R0 ；显示程序
MOV P2, A
MOV R5, #10
A1: MOV R6, #200
CALL 　DELAY ；定时一秒
DJNZ R5, A1
MOV A, R0
ADD A,#01H ；加一秒
DA A
MOV R0, A
JMP L1
L2: CALL DELAY1 ；跳转消抖程序
JB P3.5,L3 ；暂停程序
JMP L2
L3: JB P3.5, $
CALL DELAY1
L4: JB P3.5,START ；复位程序
JMP L4
DELAY: ；定时一秒
D1: MOV R7, #248
JNB P3.5, L2
DJNZ R7, $
DJNZ R6, D1
RET
DELAY1: MOV R6,#60 ；消抖程序
D2: MOV R7, #248
DJNZ R7, $
DJNZ R6, D2
RET
END