MOV R0,#101
DELAY2:        
        MOV R1,#101
DELAY1:
        MOV R3,#101
        DJNZ R3,$ 
        DJNZ R1,DELAY1 
        DJNZ R0,DELAY2
        CPL P1.0
        RET