%
% hitachi format analysis
%
_Summ.Chunk any?
{
%
% there is a chunk to process
%
 *machchnk
 _Summ.PreRep
 {
 }
 {
  40 countup
  {
   dup ^"Summ.TT" dup _ negative
%
% stack: display index target prior-neg
%
"ttproc " &3 log)(
   {
%
% has not been used in tool sequence
%
% stack: display index target
%
    pop2
   }
   {
%
% has been used in tool sequence, show current number
%
% stack: display index target
%
    "Tool " &3) &" --- " exch _ & &;
    ^:Summ.Text
   } ifelse

  } for
  true !Summ.PreRep
 } ifelse
 _Summ.Ms _Summ.From sub
"per" log)(
 _Summ.Period gt
"perg" log)(
 {
  _Summ.From _Summ.Period add !Summ.From
  "-- " _Telm.Tcount _Summ.Halfer sub & 
  &" --> " _Telm.Tcount
  dup !Summ.Halfer
  _Summ.Bcnt sub &
  &" --> =" &_Telm.Tcount
  &"
(" _Summ.Xval Time.TimeOf & &")"
  &;
"subsectb" log)(
  ^:Summ.Text
 } if
}
{
%
% no current chunk, see if one is available
%
 *machchnn
} ifelse