%
% Atop chain processor
%
% stack: chain-step chain-remain
%
trim
!Atop.Chain
trim
1 charat(
<
> not
{
%
% no special chain vectoring
% execute the chain step preserving current tick
%
 atop(

} if