%
% Hitachi A distribute and report
%
"HitachiA" !Summ.Fprefix
"10/1/2020 4:30 AM"
"10/1/2020 4:00 PM"
%
% have a telem tick
%
% stack: new-coll
%
% parse the time into a date\triad folder
%
 "TIME" slicex trim
"yfla" log)(
 !Telm.Date
 "TOTAL COUNT" slicex trim
"yflb" log)(
 !Telm.Time
 "T 9" slicex trim
"yflc" log)(
 !Telm.Tcount
 "T10" slicex trim 9 *machinct
"yfld" log)(
 !Telm.T9
 "T11" slicex trim 10 *machinct
"yflf" log)(
 !Telm.T10
 "T12" slicex trim 11 *machinct
"yflg" log)(
 !Telm.T11
 "DATE " left$ trim 12 *machinct
"yflh" log)(
 !Telm.T12
 _Telm.T12 any)?
"t12" log)(
 {

dup Time.TimeOrder !Summ.XstampT
Time.DateOrder dup !Summ.XstampD

  _Summ.Ms !Telm.Msec
  empty
  "Telm.Msec" sval
  "Telm.Date" sval
  "Telm.Time" sval
  "Telm.Tcount" sval
  "Telm.T9" sval
  "Telm.T10" sval
  "Telm.T11" sval
  "Telm.T12" sval
   "Summ.Xval" sval
   "Summ.XstampD" sval
   "Summ.XstampT" sval
%
% have a telem tick
% _Summ.Ms estime Time.Timels pop2 !Summ.Hcyc
  _Telm.Tcount "Summ.HC" _Summ.Hcyc 2 prezero & !
  _Telm.T9   9 2 prezero "Summ.HH" _Summ.Hcyc 2 prezero & &"T" ^ !
  _Telm.T10 10 2 prezero "Summ.HH" _Summ.Hcyc 2 prezero & &"T" ^ !
  _Telm.T11 11 2 prezero "Summ.HH" _Summ.Hcyc 2 prezero & &"T" ^ !
  _Telm.T12 12 2 prezero "Summ.HH" _Summ.Hcyc 2 prezero & &"T" ^ !
 } if