mov r7,r6
mov r6,r5
mov r5,r4
mov r4,r3
mov r3,r2

mov a,p1
mov r2,a

cpl a
anl a,r7
anl a,r6
anl a,r5
anl a,r4
anl a,r3

mov r0,a
orl a,p2
mov r1,a
mov a,r0
anl a,p2
cpl a
anl a,r1

mov p2,a