sys/lib/tmac/tmac.ptx

   1 '''\"   ptx.src (@(#)ptx.src    1.1)  -  format permuted index macro
   2 .tr ~
   3 .nr)y \n(.lu-.65i
   4 .nr)x \n()yu/2u
   5 .dss2 ~~~
   6 .dss4 ~
   7 .dss5 ~
   8 .dexx
   9 .dss1
  10 .if\w\a\\$2\a .ds s1 ~\|
  11 .dss3
  12 .if\w\a\\$4\a .ds s3 ~\|
  13 .dsy \\*(s4\f3\a\fP\\*(s5
  14 .ta\\n()yu-\w\a\\*(s5\au
  15 \h\a\\n()xu-\w\a\\$1\\*(s1\\$2\\*(s2\au\a\\$1\\*(s1\\$2\\*(s2\\$3\\*(s3\\$4\\*y\\$5
  16 ..
  17 .nf