* W@ ( addr -- w-val ) fetch a 2byte-val from address
W@
( addr -- w-val )
FORTH/BASE misc ordinary primitive