HUND    EQU     100
COUNT   EQU     -10000
count1  equ     -10000


        ORG     0
        LJMP    MAIN
        ;ORG     0003H
        ;LJMP    EX0ISR
        ;ORG     0013H
       ; LJMP    EX1ISR

MAIN:   mov     8EH,#00010001B  
    
        MOV     IE,#00000000B
        MOV     TMOD,#00010001B
        MOV     IP,#00000001B

        MOV     P0,#00011111B 
        MOV     P1,#0H
        MOV     P2,#01111111B; for test
        MOV     P3,#00001100B 


notch0: MOV     P1,#00000000B
        CALL    DELAYLOOP

        SETB    P1.1
        SETB    P1.0
        CALL    DELAYLOOP


        SETB    P1.3
        SETB    P1.2
        CALL    DELAYLOOP


        SETB    P1.4
        CALL    DELAYLOOP

 
        SETB    P1.5
        CALL    DELAYLOOP


        SETB    P1.6
        CALL    DELAYLOOP


        LJMP    NOTCH0        





;*****************************************


;******************************************************************
DELAYLOOP:      MOV     R7,#HUND
ENTER:          MOV     TH0,#HIGH COUNT
                MOV     TL0,#LOW COUNT
                SETB    TR0
DELAY:          JNB     TF0,DELAY
                CLR     TR0
                CLR     TF0
                DJNZ    R7,ENTER
                RET
;******************************************************************

end