1 /*  BEGIN INCLUDE FILE ..... mrds_rst_translate_mad.incl.pl1 ..... 06/05/81  1042.6 mst Fri JGray.Multics */
 2 /*  FROM INPUT SEGMENT mrds_rst_translate.mad */
 3 
 4 /* using ted$com >udd>LIS>Wardd>Wardd|mad  mrds_rst_translate.mad */
 5 
 6 dcl  mrds_rst_translate   (0:511)fixed bin static int options(constant) init(
 7           /*
 8           '000'777  7
 9           '011      6
10           '013      6
11           '014      6
12           '040      6
13           '012      5
14           $         4
15           /         3
16           :         3
17           ;         3
18           ,         3
19           (         3
20           )         3
21           *         3
22           -         3
23           +         3
24           09        2
25           az        1
26           AZ        1
27           */
28            (9)7, 6, 5, (2)6, (19)7, 6, (3)7, 4, (3)7, (6)3, 7, 3,
29            (10)2, (2)3, (5)7, (26)1, (6)7, (26)1, (389)7  );
30 /*    END INCLUDE FILE ..... mrds_rst_translate_mad.incl.pl1 ..... */