summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/pmpostdir/upmp.ch
blob: a7e99a0cc4be03b0169c454680f7666988111bcd (plain)
1
2
3
4
5
6
7
8
9
10
11
12
%
% routine to process JFM file format
@x
@d read_two(A) { (A)=tfbyte;
  if ( (A)>127 ) goto BAD_TFM;
  tfget; (A)=(A)*0400+tfbyte;
}
@y
@d read_two(A) { (A)=tfbyte;
  tfget; (A)=(A)*0400+tfbyte;
}
@z