summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/pmpostdir/upmp.ch
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/web2c/pmpostdir/upmp.ch')
-rw-r--r--Build/source/texk/web2c/pmpostdir/upmp.ch12
1 files changed, 12 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/pmpostdir/upmp.ch b/Build/source/texk/web2c/pmpostdir/upmp.ch
new file mode 100644
index 00000000000..a7e99a0cc4b
--- /dev/null
+++ b/Build/source/texk/web2c/pmpostdir/upmp.ch
@@ -0,0 +1,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