%
% show zero-compensated scope axes
%

_Tsrv.ScopingA %%% _Tsrv.ScopingB or
{
%
% show the new axis movements
%
  @Micros
  _Scope.X _Scope.ZeroX sub catcr
  _Scope.Y _Scope.ZeroY sub & @!Axes
  _Scope.X _Scope.ZeroX sub
  1000000 mul
  _Scope.MicPix div normint
  dup !Scope.PixX
  catcr
  _Scope.Y _Scope.ZeroY sub
  1000000 mul
  _Scope.MicPix div normint
  dup !Scope.PixY
  & @!Pixels
} if