hiword:toolbelt — ordinary primitive
FORTH
HIWORD ( xxyy -- xx )();p4:"hiword";
HIWORD ( xxyy -- xx )(
)
The high half of the value.
: HIWORD ( xxyy -- xx ) 16 RSHIFT ;