潜行者切尔诺贝利阴影:哪位大侠能帮我的这段程序加个注释啊，感激不尽，是一个主从报警系统

ORG 0000H
LJMP MAIN
ORG 000BH
LJMP TIME0
ORG 001BH
LJMP TIME1
ORG 0100H
MAIN: MOV SP,#55H
MOV DPTR,#600BH
MOV A,#02H
MOVX @DPTR,A
lcall stop
NLCALL: LCALL ORBAT
MOV A,#0CH;
MOV DPTR,#2100H;81551初始化,A,B入,C出
MOVX @DPTR,A;
mov dptr,#2101h
movx a,@dptr
mov 36h,a
inc dptr
movx a,@dptr
mov 37h,a
wait2: MOV DPTR,#600AH
MOVX A,@DPTR
JB ACC.7,WAIT2
mov dptr,#6004h
movx a,@dptr
mov 39h,a
mov dptr,#6006h
movx a,@dptr
mov 38h,a
MOV 50H,#32H
MOV 30H,#0FH
MOV 31H,#0FH
MOV 32H,#0FH
MOV 33H,#0FH
mov ip,#02h
mov tmod,#11h
MOV TH0,#00H
MOV TL0,#00H
MOV TH1,#00H
MOV TL0,#00H
SETB P1.1
setb p1.2
SETB P1.5
clr ex0
SETB ET0
SETB ET1
SETB EA
SETB TR0
SETB TR1
CLR 01h
CLR 00H
CLR 05H
CLR 06H
LOOP: JB P1.0,INLOOP
CPL 00H
CPL P1.1
CLR EA
LCALL DMS30S
mov th0,#00h
mov th1,#00h
setb tr0
SETB EA
INLOOP: MOV DPTR,#2101H
MOVX A,@DPTR
cjne a,36h,dl8155a
sjmp goon1
dl8155a:mov 36h,a
mov 35h,a
lcall dms20
MOV DPTR,#2101H
MOVX A,@DPTR
CJNE A,35H,B8155
goon1: cpl a
MOV 00H,A
ANL A,#0FH
ANL 30H,A
MOV A,00H
SWAP A
ANL A,#0FH
ANL 31H,A
B8155: MOV DPTR,#2102H
MOVX A,@DPTR
cjne a,37h,dl8155b
sjmp goon2
dl8155b:mov 37h,a
MOV 35H,A
LCALL DMS20
MOV DPTR,#2102H
MOVX A,@DPTR
CJNE A,35H,N8155
goon2: MOV 00H,A
ANL A,#0FH
ANL 32H,A
MOV A,00H
SWAP A
ANL A,#0FH
ANL 33H,A
N8155: JB P1.6,LNEXT2
CPL P1.5
LCALL DMS60
LCALL DMS60
CPL 06H
LNEXT2: JB P1.7,LNEXT1
SETB 05H
LNEXT1: SJMP LOOP
TIME0: PUSH PSW
PUSH DPL
PUSH DPH
PUSH ACC
PUSH 00H
DJNZ 50H,TNEXT
JB 06H,MNEXT
JB 00H,WORKON
JB 01H,WORKON
MNEXT: LCALL STOP
LJMP FULL
WORKON: LCALL BUSY
FULL: MOV 50H,#32H
TNEXT: MOV TL0,#00H
MOV TH0,#00H
SETB TR0
POP 00H
POP ACC
POP DPH
POP DPL
POP PSW
RETI
TIME1: PUSH PSW
PUSH DPL
PUSH DPH
PUSH ACC
PUSH 00H
wait: MOV DPTR,#600AH
MOVX A,@DPTR
JB ACC.7,WAIT
MOV DPTR,#6006H
MOVX A,@DPTR
cJNE A,38H,ILAST
mOV 38H,A
CJNE A,#06H,WNEXT
SETB 00H
LJMP ILAST
WNEXT: CJNE A,#07H,WAIT1
SETB 00H
LJMP ILAST
wait1: MOV DPTR,#6002H
MOVX A,@DPTR
MOV 3AH,A
MOV DPTR,#6004H
MOVX A,@DPTR
cjne a,39h,ilast
mov 39h,a
MOV 3BH,A
MOV A,3BH
clr c
CJNE A,#08h,INEXT
CLR 01H;3AH=3CH---CLR WARNING
LJMP ILAST
INEXT: JNC INEXT1 ;3BH>#08H---INEXT1
SETB 01H;3BH<3DH---START TO WARN
LJMP ILAST
INEXT1: CLR C
CJNE A,#17h,INEXT2
MOV A,3AH;3BH=3FH
CLR C
CJNE A,#30h,INEXT6
setb 01H;3AH=3CH---warning
ljmp ilast
inext6: jNc inext7
clr 01h;3ah<3ch---clr warning
ljmp ilast
inext7: setb 01h;3ah>3ch---warning
LJMP ILAST
INEXT2: JNC INEXT3;3BH>#17H---INEXT3
clr 01h;3bh<3fh---clr warning
ljmp ilast
INEXT3: SETB 01H;3BH>3FH---START TO WARN
ILAST: MOV TH1,#00H
MOV TL0,#00H
SETB TR1
POP 00H
POP ACC
POP DPH
POP DPL
POP PSW
RETI
我的邮箱norman20020325@163.com