NOR_DEL:
        MOV R0,dly1
m1:
        MOV R1,dly2
INLOP:
        MOV R2,#01H
m2:     DJNZ R2,m2
        DJNZ R1,INLOP
        DJNZ R0,m1
        RET