: BSWAP16  ( u -- u )
    BASE @ >R  HEX
    S" FFFF AND 00010001 * 8 RSHIFT FFFF AND" EVALUATE
    R> BASE !
; IMMEDIATE

HEX
0123 BSWAP16 U.

: TEST  BSWAP16 ;
SEE TEST