! macro for use via the MUNG option of TECO, to generate a concise total-blocks-used table from a PIP fname=[*,*]/TB output file call seq: MUNG TBLKSFX,fname where fname is the file containing the PIP /TB listing. Output will be to file DSKTOT.LST. ! jx1 erq1 y ^n"f  Cannot fit listing file into TECO's text buffer.  |  Pass 1 -- Extract the numeric parameters From a PIP fname=[*,*]/TB list and push onto stack  ! Search for a device id (begins after first space before a "[", ends with ":") and put in q-reg no. 2, then append following line (date/time line). ! js[ 0fbs.u1fb: q1,.x2 :^u2  l:x2 sGRAND TOTAL .u2 ^YX1 ^sc < 12-:q1<:^u1 > stotal of .u1 s. 12-.+q1<:^u1 > q1,.:x1 fb/.u1 fb. 12-.+q1<:^u1 > q1,.:x1 fbs in .u1 fb. 14-.+q1<:^u1 > q1,.:x1 :^u1  [1 :g1 q2j 0l .,zd -s[;.-1u2s]q2,.x1>  Pass 2 -- Pull the saved /TB parameter lines back into the text buffer  hk<:]1;g1-t> -li  ji PIP /TB DIRECTORY LIST  G2 i UIC USED ALLOCATED # FILES   Deleting all entries for empty directories  j  Writing output to  ewDSKTOT.LST :G*  and exiting  ex'