STADJUST
STADJUST(-amount, expdest);
STADJUST(-adjustment, expdest); /* remove the argstr() result */
STADJUST(adjustment, expdest); /* move expdest to end */
STADJUST(amount, expdest);
STADJUST(amount, expdest);
STADJUST(amount, expdest);
STADJUST(-1, expdest);
STADJUST(-varlen, expdest);
STADJUST(savelen, out);