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
|