ORG 0
LJMP MAIN
ORG 03H
ACALL SCAN
RETI
ORG 0030H
MAIN:
MOV A,#00000111B
MOV P2,A
MOV IE,#85H
SETB IT0
SETB IT1
MOV P1,R1
SJMP $
SCAN: MOV A,#11111111B
MOV P2,A
CLR P2.0
JB P2.3,J1
MOV R1,#3
J1:
JB P2.4,J2
MOV R1,#6
J2:
JB P2.5,J3
MOV R1,#9
J3:
JB P2.6,J4
MOV R1,#10
J4:
SETB P2.0
CLR P2.1
JB P2.3,J5
MOV R1,#2
J5:
JB P2.4,J6
MOV R1,#5
J6:
JB P2.5,J7
MOV R1,#8
J7:
JB P2.6,J8
MOV R1,#0
J8:
SETB P2.1
CLR P2.2
JB P2.3,K1
MOV R1,#1
K1:
JB P2.4,K2
MOV R1,#4
K2:
JB P2.5,K3
MOV R1,#7
K3:
JB P2.6,K4
MOV R1,#11
K4: MOV P1,R1
AJMP SCAN
END