%
% during configed plateau, check for any upgrade in partner Ip
%
@@
root\
_Msys.Partnership
"partnership" log)(
{

*machmsgq
{
%
% this message has a lookup
%
 "Partner" <_Msg.Lookup>
 {
%
% establish the saved tree partner setting
% check it against any incoming partner Ip
%
  \_Partner dup !Mach.Partner _Msg.Partner eq$
  {
%
% same partner Ip
%
   _Msys.HasPartner
   {
%
% we already have partner status
%
   }
   {
%
% not established partner, navigate partner page with this Ip
%
    *machnavp(
   } ifelse
  }
  {
%
% different report of partner Ip versus saved Ip
% insure the validity of partner Ip
%
   _Msg.Partner
   *machispb
   {
%
% proper Ip format, update partner setting in tree
% new partner Ip
%
    dup !Mach.Partner \!Partner
    nod@
%
% navigate partner page with new Ip
%
    *machnavp(
   }
   {
%
% don't have valid Ip report from Partner
% attempt to use the prior recorded Ip
%
    _Mach.Partner
    *machispb
    {
     pop
%
% the recorded partner in tree is valid
% navigate the partner tree to it
%
     true !Msys.HasPartner
     *machnavp(
    }
    {
    } ifelse
   } ifelse
  } ifelse
 } if
} if

} if