ORG 0000H
	    LJMP MAIN
	    ORG 0030H
MAIN:	
	MOV P1,#3fH
	MOV R0,#00H
ST:	    MOV P3,#0FH
	MOV A,P3
   CJNE A,#0FH,F1
	ACALL DEL
	AJMP ST
F1:	    ACALL DEL
	CJNE A,#0FH,F2
	     AJMP ST
F2:	     INC R0
	     CJNE R0,#0AH,F3
	     MOV R0,#00H
F3:	     MOV DPTR,#JPTAB
MOV A,R0
CLR C
RLC A
JNC NADD
INC DPH
NADD:	JMP @A+DPTR
JPTAB:	NOP
	    NOP
	AJMP PR1
	AJMP PR2
	AJMP PR3
	AJMP PR4
	AJMP PR5
	AJMP PR6
	AJMP PR7
	AJMP PR8
	AJMP PR9
DEL: 	MOV R7,#014H
DEL1:	MOV R6,#0FFH
DEL2:   MOV R5,#01FH
DEL3:	DJNZ R5,DEL3
	DJNZ R6,DEL2
	DJNZ R7,DEL1
	RET
PR1:    MOV P1,#06H
	ACALL DEL
	AJMP ST
PR2:    MOV P1,#5BH
	ACALL DEL
	AJMP ST
PR3:    MOV P1,#4FH
	ACALL DEL
	AJMP ST
PR4:    MOV P1,#66H
	ACALL DEL
	AJMP ST
PR5:    MOV P1,#6DH
	ACALL DEL
	AJMP ST
PR6:    MOV P1,#7DH
	ACALL DEL
	AJMP ST
PR7:    MOV P1,#07H
	ACALL DEL
	AJMP ST
PR8:    MOV P1,#7FH
	ACALL DEL
	AJMP ST
PR9:    MOV P1,#67H
	ACALL DEL
	AJMP ST
	END 
