instead of using the @R0,A method (which does not work)

1: decode the upper bits 5..4... they will equal 0 for p0 pins, 1 for p1 pins. etc.

2: use 4 case statements to apply changes....case 1: P1 = P1 | bit; to set