mov   dptr,#portaddress
   movx  @dptr,a
   movx  a,@dptr
   ret