ORG 0000H
LJMP MAIN
ORG 0030H
MAIN: MOV R4,#08H
      MOV R0,#01H
      MOV A,R0
      MOV DPTR,#TABLE
LOOP1:MOVC A,@A+DPTR
      MOV P1,A
      INC R0
      LCALL DL1S
      MOV A,R0
      DJNZ R4,LOOP1
      DEC R0
      MOV R4,#08H
LOOP2:DEC R0
      MOV A,R0
      MOVC A,@A+DPTR
      MOV P1,A
      LCALL DL1S
      MOV A,R0
      DJNZ R4,LOOP2
      LJMP MAIN
TABLE: DB 0FFH,0FEH,0FCH,0F8H,0F0H,0E0H,0C0H,80H,00H
DL1S:MOV R1,#100
     MOV R2,#100
  D1:MOV R3,#50
  D2:DJNZ R3,$
     DJNZ R2,D1
     DJNZ R1,D1
     RET
     END