ntohs:posix — ordinary primitive
( w -- w' )(
if current host-encoding is bigendian, this is a NOOP
otherwise byteswap the lower 16-bit bits of the topofstack.
see W@ and W!
(on some platforms, the upper bits are erased, on others not)