%
% check message for communication status change
% process the incoming device message file
%
"Comm" <_Msg.Lookup>
%%% "endxota" log)(
{
 _Msys.CommStatus _Msg.Comm eq
%%% "endxotb" log)(
 {
%
% has same comm status
%
 }
 {
%
% has different communication status
%
  empty
  _Msg.Comm _Comm.Cnv7Init and nonzero
%%% "endxotc" log)(
  {
   &"C7("
   _Msg.Comm _Comm.Cnv7On and nonzero
%%% "endxotd" log)(
   {
    &"ON"
   }
   {
    &"off"
   } ifelse
   &") "
  } if
  _Msg.Comm 0x0FF and & &" "
  _Msg.Comm _Comm.Cts and zero
%%% "endxote" log)(
  {
   &"Cts "
  } if
  _Msg.Comm _Comm.Rts and zero
%%% "endxotf" log)(
  {
   &"Rts "
  } if
  _Msg.Comm _Comm.Over and nonzero
%%% "endxotg" log)(
  {
   &"Over "
  } if
  _Msg.Comm _Comm.Cancel and nonzero
%%% "endxoth" log)(
  {
   &"Cancel "
  } if
  _Msg.Comm _Comm.Within and nonzero
%%% "endxoti" log)(
  {
   &"Within "
  } if
  _Msg.Comm _Comm.Xflow and nonzero
%%% "endxotj" log)(
  {
   &"Xflow "
  } if
  @Machs
  escquo
  ^"SetDev(" &");"
%%% "endxotk" log)(
  Url.!
  @@
  _Msg.Comm !Msys.CommStatus
 } ifelse
%%% "endxotl" log)(
} if