LJMP START
P5 EQU 0F8H
P7 EQU 0DBH
ORG 0100H

START:

QATR:
MOV R0,#7FH
MOV A,R0
MOV P5,A
MOV A,P7
ANL A,R0
MOV R2,A
CLR C
SUBB A,R0
JZ NEXT

MOV A,R2
MOV DPH,#80H
MOV DPL,A
MOVX A,@DPTR

MOV A,R2
MOV P1,A


NEXT:
MOV R0,#0BFH
MOV A,R0
MOV P5,A
MOV A,P7
ANL A,R0
MOV R2,A
CLR C
SUBB A,R0
JZ SEC

MOV A,R2
MOV DPH,#80H
MOV DPL,A
MOVX A,@DPTR

MOV A,R2
MOV P1,A

SEC:
MOV R0,#0DFH
MOV A,R0
MOV P5,A
MOV A,P7
ANL A,R0
MOV R2,A
CLR C
SUBB A,R0
JZ TRI

MOV A,R2
MOV DPH,#80H
MOV DPL,A
MOVX A,@DPTR

MOV A,R2
MOV P1,A

TRI:
MOV R0,#0EFH
MOV A,R0
MOV P5,A
MOV A,P7
ANL A,R0
MOV R2,A
CLR C
SUBB A,R0
JZ QATR

MOV A,R2


MOV DPH,#80H
MOV DPL,A
MOVX A,@DPTR

MOV A,R2
MOV P1,A


JMP START
NOP
NOP
NOP
END START