ORG 0000H
MAIN:  MOV P1,#3FH
ACALL DEL4MS
MOV P3,#0F0H
MOV A,P3
   CJNE A,#0F0H,F1
AJMP MAIN
F1:    MOV P1,#06H
     ACALL DEL1S
	   MOV P1,#5BH
     ACALL DEL1S
     MOV P1,#4FH
     ACALL DEL1S
     MOV P1,#66H
     ACALL DEL1S
     MOV P1,#6DH
     ACALL DEL1S
     MOV P1,#7DH
     ACALL DEL1S
     MOV P1,#07H
     ACALL DEL1S
     MOV P1,#7FH
     ACALL DEL1S
     MOV P1,#67H
     ACALL DEL1S
     MOV P1,#77H
     ACALL DEL1S
     MOV P1,#7CH
     ACALL DEL1S
     MOV P1,#39H
     ACALL DEL1S
     MOV P1,#5EH
     ACALL DEL1S
	   MOV P1,#79H
     ACALL DEL1S
	   MOV P1,#71H
     ACALL DEL1S
	   AJMP MAIN
DEL4MS:MOV R7,#04H
DL0:   MOV R6,#0FFH
DL1:   DJNZ R6,DL1
       DJNZ R7,DL0
	   RET
DEL1S: MOV R5,0FFH
F2:    ACALL DEL4MS
       DJNZ R5,F2
	   RET
	   END
