Try this in assembler

mov c,p1.7
mov a.2,c
mov c,p1.2
mov a.1,c
mov c,p1.1
mov a.0,c

or this other:

mov a,p1
rr
mov a.6,c
mov c,a.2
clr c
mov a.6,c

Regards.