%
% have a telem tick
%
% stack: new-coll
%
% parse the time into a date\triad folder
%
 false !Telm.Flaw
 "TIME" slicex trim
"yfla" log)(
 dup numeric second length) 6 eq and _Telm.Flaw or !Telm.Flaw
 !Telm.Date
 "TOTAL COUNT" slicex trim
"yflb" log)(
 dup numeric second length) 6 eq and _Telm.Flaw or !Telm.Flaw
 !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)(
 _Telm.Flaw
"flaw" log)(
 not and
 {
  _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.Chunk &; &"*/
"
  _Telm.Msec &"_" &_Telm.Date &"_" &_Telm.Time
  text ^_Summ.Ytime write

  _Summ.Tcnt zero
"stcntz" log)(
  {

   _Telm.Tcount !Summ.Tcnt
   _Telm.Tcount !Summ.Bcnt
   _Telm.Tcount !Summ.Halfer
  }
  {
%
% have a telem tick
% put a digested tick into the time folder
%
   empty
   "Summ.Xval" sval
   "Summ.XstampD" sval
   "Summ.XstampT" sval
   _Summ.XstampT ^_Summ.Xfold text
   write
   _Summ.Begin isnull)
   {
    _Summ.Xval dup !Summ.Begin
    ^"Hitachi - Data summary begins at: " &;
    &" TCOUNT start (" &_Telm.Tcount
    &") with hourly subtotals" &;
    &" --> " _Telm.Tcount
    dup !Summ.Halfer
    _Summ.Bcnt sub &
    &" --> =" &_Telm.Tcount
    &"
 (" _Summ.Xval Time.TimeOf & &")"
    &;
"subsect" log)(
    ^:Summ.Text
    _Summ.Ms !Summ.From
   } if
  } ifelse
  _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" ^ !
 }
 {
"not12" log#
 } ifelse
 empty !Summ.Chunk