%
% set the physical basis
%
% stack: phys-addr
%
% must be no trailing backslash
%
!Arching.MediaAnchor
_Arching.MediaAnchor
/*
_Arching.Vm
{
 -1 left ^"u"
}
{
*/
 amach
 {
 }
 {
%
% not the snap chain machine, refer to it on P:
%
  -1 left ^"p"
 } ifelse
/*
} ifelse
*/
 &"\" !Arching.PhysGlobal
_Arching.PhysGlobal !Arching.PhysChain