* HIWORD ( xxyy -- xx ) The high half of the value. : HIWORD ( xxyy -- xx ) 16 RSHIFT ;
HIWORD
( xxyy -- xx )
: HIWORD ( xxyy -- xx ) 16 RSHIFT ;
FORTH/DEF toolbelt ordinary primitive