ORG 0000H
AJMP DIS1
ORG 030H
DIS1: MOV P1,#0FEH
ACALL DEL
MOV P1,#0FDH
ACALL DEL
MOV P1,#0FBH
ACALL DEL
MOV P1,#0F7H
ACALL DEL
MOV P1,#0EFH
ACALL DEL
MOV P1,#0DFH
ACALL DEL
MOV P1,#0BFH
ACALL DEL
MOV P1,#07FH
ACALL DEL
DIS3: MOV P1,#0FFH
MOV P3,#0FEH
ACALL DEL
MOV P3,#0FDH
ACALL DEL
MOV P3,#0FBH
ACALL DEL
MOV P3,#0F7H
ACALL DEL
MOV P3,#0EFH
ACALL DEL
MOV P3,#0DFH
ACALL DEL
MOV P3,#0BFH
ACALL DEL
MOV P3,#07FH
ACALL DEL
DIS2: MOV P3,#0FFH
MOV P2,#0FEH
ACALL DEL
MOV P2,#0FDH
ACALL DEL
MOV P2,#0FBH
ACALL DEL
MOV P2,#0F7H
ACALL DEL
MOV P2,#0EFH
ACALL DEL
MOV P2,#0DFH
ACALL DEL
MOV P2,#0BFH
ACALL DEL
MOV P2,#07FH
ACALL DEL
DIS0: MOV P2,#0FFH
MOV P0,#07FH
ACALL DEL
MOV P0,#0BFH
ACALL DEL
MOV P0,#0DFH
ACALL DEL
MOV P0,#0EFH
ACALL DEL
MOV P0,#0F7H
ACALL DEL
MOV P0,#0FBH
ACALL DEL
MOV P0,#0FDH
ACALL DEL
MOV P0,#0FEH
ACALL DEL
MOV P0,#0FFH
AJMP DIS1
DEL: MOV R5,#04H
DEL1: MOV R6,#0FFH
DEL2: MOV R7,#0FFH
DEL3: DJNZ R7, DEL3
DJNZ R6, DEL2
DJNZ R5, DEL1
RET
END
