ORG 0000H
	LJMP MAIN
	ORG 030H
MAIN:	 MOV P1,#000H
F1:        CLR A
        MOV P0,#000H
        MOV A,P0
        CJNE A,#011H,F2
	MOV P1,#001H
        ACALL DEL
        AJMP F1	
F2:     CLR A
        MOV  P0,#000H
        MOV A,P0
        CJNE A,#002H,F3
	MOV P1,#001H 
        ACALL DEL
         AJMP F2
F3:     CLR A
	MOV P0,#000H
        MOV A,P0
	CJNE A,#004H,F4
	MOV P1,#002H
        ACALL DEL
        AJMP F3
F4:     CLR A
	MOV P0,#000H
        MOV A,P0
	CJNE A,#014H,F5
	MOV P1,#002H
        ACALL DEL
        AJMP F4
F5:     CLR A
	MOV P2,#000H
        MOV A,P2
	CJNE A,#001H,S1
	MOV P1,#001H
        ACALL DEL
        AJMP F5
S1:     CLR A
	MOV P2,#000H
        MOV A,P2
	CJNE A,#003H,F6
	MOV P1,#001H
        ACALL DEL
        AJMP S1
F6:     CLR A
	MOV P2,#000H
        MOV A,P2
	CJNE A,#002H,MAIN
        ACALL DEL
        
F7:     CLR A
        MOV P0,#000H
        MOV A,P0
	CJNE A,#018H,MAIN
        AJMP F8
F8:	ACALL DEL
        CLR A
        MOV P0,#000H
	MOV A,P0
        CJNE A,#010H,F8
	MOV P1,#001H
        ACALL DEL
        AJMP MAIN
DEL:    MOV R5,#06H
DEL1: 	MOV R6,#0FFH
DEL2:	MOV R7,#0FFH
DEL3:	DJNZ R7,DEL3
	DJNZ R6,DEL2
        DJNZ R5,DEL1
	RET
	END