【新人求助】一个嵌入式汇编语言代码，100行左右，希望大神赐教

ORG0000H
AJMP MAIN ;跳主程序
ORG0050H
MAIN:
MOV SP,#6FH ;堆栈设初值
MOV R1,#03H ;用R1记录密码输入错误次数
WAIT:
MOV P1,#0FH
MOVA,P1
ANL A,#0FH
CJNE A,#0FH,DO ;若有键按下,则转到DO，继续判断键号；否则下一步
SJMP WAIT
DO:
ACALL DLY10MS;去抖动
MOVA,P1
ANLA,#0FH
CJNE A,#0FH,DO1
SJMP WAIT
DO1:
MOV P1,#0EFH
MOVR4,#0
MOVA,P1
ANLA,#0FH
CJNE A,#0FH,DO2
MOVP1,#0DFH
MOVR4,#1
MOVA,P1
ANLA,#0FH
CJNE A,#0FH,DO2
MOVP1,#0BFH
MOVR4,#2
MOVA,P1
ANLA,#0FH
CJNE A,#0FH,DO2
MOVP1,#7FH
MOVR4,#3
MOVA,P1
ANLA,#0FH
CJNE A,#0FH,DO2
LJMP WAIT
DO2:
MOV 50H,A
DOO:
MOV A,P1
ANLA,#0FH
CJNE A,#0FH,DOO
MOVA,50H
JBACC.0,JS1
MOVA,#0
ADDA,R4
MOV 51H,A
ACALL PD
JS1:
JB ACC.1,JS2
MOVA,#04H
ADDA,R4
MOV 51H,A
ACALL PD
JS2:
JB ACC.2,JS3
MOVA,#08H
ADDA,R4
MOV 51H,A
ACALL PD
JS3:
JB ACC.3,JS4
MOV A,#0CH
ADD A,R4
MOV 51H,A
JS4:
ACALL PD ;以上均为扫描键盘读值
PD:
CJNE A,#09H,MMCW ;将密码设置为9，判读密码输入是否正确
LJMPMMZQ
MMCW:
DJNZ R1,CXSR ;判断密码输入错误次数是否达到了3次减一不为0转移
CLR P0.7 ;3次输入错误，警告灯亮
LCALL F1
LCALL DLY10MS
SETB P0.7 ;延时结束，警告灯灭
MOV 40H,#0AH ;10*1=10s
L1: LCALL DEL
DJNZ 40H,L1
MOVR1,#03H
LJMP DO
RET
MMZQ: CLR P0.6 ;密码输入正确，灯亮开门
LCALL DLY10MS ;延时一段时间
SETB P0.6
RET
CXSR: LJMP DO ;跳转到键盘扫描，重新输入密码
DLY10MS:
MOV R6,#40
DLY:
MOVR7,#123
NOP
DJNZ R7,$
DJNZ R6,DLY ;延时子程序,延时时间为
（1+1+123*2+1*2）*40=10000us=10ms
RET
F1: CLR P3.7
LCALL DEL
SETB P3.7
DEL: MOVR5,#100 ;100*10=1s
DEL1: MOVR6,#40
DEL2: MOVR7,#123
NOP
DJNZ R7,$
DJNZR6,DEL2
DJNZ R5,DEL1
RET
END