1 /*  BEGIN INCLUDE FILE ..... mrds_rst_translate_mad.incl.pl1 ..... 10/15/81  1622.7 mst Thu Davids.Multics */
 2 /*  FROM INPUT SEGMENT mrds_rst_translate.mad */
 3 dcl  mrds_rst_translate_mad   (0:511)fixed bin static int options(constant) init(
 4           /*
 5           '000'777  7
 6           '011      6
 7           '013      6
 8           '014      6
 9           '040      6
10           '012      5
11           $         4
12           /         3
13           :         3
14           ;         3
15           ,         3
16           (         3
17           )         3
18           *         3
19           -         3
20           +         3
21           09        2
22           az        1
23           AZ        1
24           */
25            (9)7, 6, 5, (2)6, (19)7, 6, (3)7, 4, (3)7, (6)3, 7, 3,
26            (10)2, (2)3, (5)7, (26)1, (6)7, (26)1, (389)7  );
27 /*    END INCLUDE FILE ..... mrds_rst_translate_mad.incl.pl1 ..... */