$S>-COPY $PID $S>
$S>-COPY
* $S>-COPY ( $: a$ -- S: a.str )

Drop a$ from the string stack, copy it into data space as a packed string,
and leave it as a Forth string a.str. An error is thrown if the string
length is larger than the system parameter MAX_SCOUNT (see >S,).
"string-s-from-copy"

dstrings ordinary primitive