ORG 0000H
START:       LJMP  ITT
             LJMP  D2
D1:          CLR A
             MOV R7,A
             MOV R6,A
             SETB  P3.1
             CLR   P3.1
             CPL   P3.4
             JNB   P3.3,D1
             MOV R7,P1
             MOV A,R7
             CPL A
             MOV P2,A
D2:          MOV DPTR,#0000H
             MOV A,#80H
             MOVX  @DPTR,A
             INC DPTR
             MOVX @DPTR,A
             LCALL DELAY
             MOV A,P1
             JNB ACC.0,ZZ
             JNB ACC.2,FZ
             JNB ACC.4,TZ
             LJMP D1
ITT:         MOV R0,#7FH
             CLR A
DL:          MOV @R0,A
             DJNZ R0,DL
             MOV SP,#07H
             LJMP D1
ZZ:          MOV DPTR,#0000H
             MOV A,#0FFH
             MOVX  @DPTR,A
             INC DPTR
             MOVX @DPTR,A
             LCALL DEL1
             RET
FZ:          MOV DPTR,#0000H
             MOV A,#00H
             MOVX  @DPTR,A
             INC DPTR
             MOVX @DPTR,A
             LCALL DEL1
             RET
TZ:          MOV DPTR,#0000H
             MOV A,#80H
             MOVX  @DPTR,A
             INC DPTR
             MOVX @DPTR,A
             LCALL DEL1
             RET
DELAY:       MOV R3,#01H
M1:          MOV R2,#01H
M2:          NOP
             DJNZ R2,M2
             DJNZ R3,M1
             RET
DEL1:        MOV A,P2
M3:          MOV R5,A
             NOP
             DJNZ R5,M3
             RET
END