%
% lock or unlock xact in snap chain
%
% stack: lock
%
_Arching.ServLock exch
*xactlock
%
% stack: [ locked ]
%