ORG     0000H
        AJMP    MAIN

        ORG     0100H
MAIN:   MOV      SP,#5FH
        CLR      EA
        MOV      P0,#0
        
LOOP:   MOV      A,#0
LOP1:   MOV     DPTR,#TAB1
        MOV     R7,A
        MOVC    A,@A+DPTR
        CPL     A
        MOV     P0,A
        ACALL   DELAY
        MOV     A,R7
        INC     A
        CJNE    A,#14,LOP1
        LJMP    LOOP

DELAY:  PUSH    ACC
        MOV     A,R7
        MOV     DPTR,#TIME
        MOVC      A,@A+DPTR
        MOV     R4,A
DE1:
        ACALL   DELAY1
        DJNZ    R4,DE1
        POP     ACC
        RET

TAB1:   DB      11H,21H,01H,21H,01H
        DB      21H,01H,0AH,0BH,08H
        DB      0BH,08H,0BH,08H
        
TIME:   DB      08H,01H,01H,01H,01H
        DB      01H,01H,08H,08H,01H
        DB      01H,01H,01H,01H
DELAY1:
       MOV      R1,#255
ADE2:  MOV      R2,#255
ADE1:  NOP
       NOP
       NOP
       NOP
       NOP
       NOP
       DJNZ     R2,ADE1
       DJNZ     R1,ADE2
       RET
       END