%
% process xtx telemetry and downloaded program most recent
%
"Devices" text_conn <_>
1 2 rot
{
 pop
%%% "mtelex" log)(
 pop
%%% "Telem" log)(
%
% monitor cloud messaging for this device
%
 !Telem
 0 !counter
%
% scan for programs and telemetry
% parse through messages sifted for actionable
%
 _Telem &"\" &_Subscription &"\" ofconn
 empty
 _Device _Telem eq$
 {
  "Md*.xt?" !wilder
 }
 {
  "Md*.*" !wilder
 } ifelse
 {
  nextfile ?
%%% "next" log)(
  *machmsgq
%%% "valid" log)(
  {
%
% this message has proper format
%
   empty !Msg.Rcved
   execing
   _Msg.Status _Devc.Pulled and nonzero
%%% "pulled" log)(
   {
    *machfpgm
   }
   {
   } ifelse
   _Msg.Status dup _Devc.Pulling and exch _Devc.Drained and or nonzero
%%% "listen" log)(
   {
    "Thold." &_Telem _
    any?
    {
     second term2 "." left$ ^"tlm_" ^"\" ^_Telem &".tlm" ofconn writeb
     empty "Thold." &_Telem !
    } if    
%
% is pulling or pulled, vent the telemetry before receiving program segment
%
    *machftlm
    _Msg.Rcved "Phold." &_Telem val:&hex
   }
   {
    _Msg.Rcved "Thold." &_Telem val:&hex
   } ifelse
%%% "after" log)(
  } if
%
% this file can be shelved now
%
  filing
  _Telem &"\xtx" ofconn folder
  &3
  overwrite
  +counter 100 gt ?
 } loop
 filing)
%%% "eTelem" log#
 _Msys.TelmSave
 {
  *machftlm
 } if
%%% "fTelem" log#
} for
false !Msys.TelmSave