* NTOHS ( 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)
NTOHS
( w -- w' )
W@
W!
EXTENSIONS posix ordinary primitive