* W+! ( w-val addr -- ) add a 2byte-val to addressed 2byte-value
W+!
( w-val addr -- )
misc ordinary primitive