mov a, pin_value
  orl a, #0F0h        ;zero mask
  orl p1, pin_value   ;set one bits
  anl p1, a           ;clear zero bits