TFtoPL change file for VM/CMS and MVS.
Copyright (C) 1984 by David Fuchs.  All rights are reserved.

@x
@d banner=='This is TFtoPL, Version 2.5' {printed when the program starts}
@y
@d banner=='This is TFtoPL, VM/CMS Version 2.5'
@z

@x
@!tfm_file:packed file of 0..255;
@y
@!tfm_file:packed file of block;
@!tfm_count:0..CMS_block_length; {where the next byte comes from}
@z

@x
@<Read the whole input file@>=
read(tfm_file,tfm[0]);
@y
@d read_tfm_file(#)==begin
  if tfm_count=CMS_block_length then begin
    get(tfm_file);
    tfm_count:=0;
    end;
  #:=tfm_file@@(.tfm_count.);
  incr(tfm_count);
  end

@<Read the whole input file@>=
read_tfm_file(tfm(.0.));
@z

@x
if eof(tfm_file) then abort('The input file is only one byte long!');
@.The input...one byte long@>
read(tfm_file,tfm[1]); lf:=tfm[0]*@'400+tfm[1];
@y
read_tfm_file(tfm(.1.)); lf:=tfm(.0.)*@'400+tfm(.1.);
@z

@x
  read(tfm_file,tfm[tfm_ptr]);
@y
  read_tfm_file(tfm(.tfm_ptr.));
@z

@x
if not eof(tfm_file) then
@y
get(tfm_file);
if not eof(tfm_file) then
@z

@x
This section should be replaced, if necessary, by changes to the program
that are necessary to make \.{TFtoPL} work at a particular installation.
It is usually best to design your change file so that all changes to
previous sections preserve the section numbering; then everybody's version
will be consistent with the printed program. More extensive changes,
which introduce new sections, can be inserted here; then only the index
itself will get a new section number.
@y
Here are the remaining changes to the program
that are necessary to make \.{TFtoPL} work on VM/CMS.

@ Here's the extra stuff we need for buffering the |tfm_file|.
The |CMS_block_length| constant should be 1024 for consistency
with the idea that CMS \TeX\ and \MF\ read and write non-text
data files blocked \.{RECFM F LRECL 1024}, but I have set it at
2048 to accomodate re-formatting \.{TFM} files for the \.{am}
fonts of the old CMS \TeX\ versions which were \.{RECFM V} with
some record lengths greater than 1024 but less than 2048. These
files can be re-formatted for use with \TeX\ 2.0 by running
\.{TFtoPL} on them and \.{PLtoTF} on the resulting \.{PL} files.

@<Const...@>==
@!CMS_block_length=2048;

@ @<Types...@>==
@!block=packed array (.0..CMS_block_length-1.) of packed 0..255;

@ @<Set init...@>=
tfm_count:=0;

@z