plus-store:core — ordinary primitive
FORTH
+! ( val addr -- )();p4:"plus-store";
+! ( val addr -- )(
)
add val to the value found in addr
simulate: : +! TUCK @ + SWAP ! ;
dpANS .6.1.0130 - standard forth word