1 /* BEGIN INCLUDE FILE - comp_DCcodes.incl.pl1 */
 2 
 3 /* format: style2,ind2,ll79,dclind4,idind25,comcol51,linecom */
 4 
 5 /* ASCII control characters */
 6      dcl (
 7          NUL                      init ("^@"),    /* 000 */
 8          SOH                      init ("^A"),    /* 001 */
 9          STX                      init ("^B"),    /* 002 */
10          ETX                      init ("^C"),    /* 003 */
11          EOT                      init ("^D"),    /* 004 */
12          ENQ                      init ("^E"),    /* 005 */
13          ACK                      init ("^F"),    /* 006 */
14          BEL                      init ("^G"),    /* 007 */
15          BSP                      init ("^H"),    /* 010 */
16          HT                       init ("         "),
17                                                   /* 011 */
18          (NL, LF)                 init ("
19 "),                                               /* 012 */
20          VT                       init ("^K"),                                            /* 013 */
21          FF                       init ("^L"),                                            /* 014 */
22          CR                       init ("^M"),    /* 015 */
23          (RRS, SO)                init ("^N"),    /* 016 */
24          (BRS, SI)                init ("^O"),    /* 017 */
25          DLE                      init ("^P"),    /* 020 */
26          DC1                      init ("^Q"),    /* 021 */
27          (DC2, HLF)               init ("^R"),    /* 022 */
28          DC3                      init ("^S"),    /* 023 */
29          (DC4, HLR, THICK)        init ("^T"),    /* 024 */
30          (NAK, MEDIUM)            init ("^U"),    /* 025 */
31          SYN                      init ("^V"),    /* 026 */
32          (ETB, HAIR)              init ("^W"),    /* 027 */
33          (CAN, STROKE)            init ("^X"),    /* 030 */
34          oct031                   init ("^Y"),    /* 031 */
35          SUB                      init ("^Z"),    /* 032 */
36          ESC                      init ("^["),    /* 033 */
37          FS                       init ("^\"),    /* 034 */
38          GS                       init ("^]"),    /* 035 */
39          RS                       init ("^^"),    /* 036 */
40          US                       init ("^_"),    /* 037 */
41          (DEL, PAD)               init ("^?"),    /* 177 */
42                                                   /* compose special use characters */
43          multiply                 init ("ª"),     /* 252 - multiply symbol */
44          pl_mi                    init ("«"),     /* 253 - plus-or-minus sign */
45          nabla                    init ("¬"),     /* 254 */
46          EMd                      init ("­"),     /* 255 - EM dash */
47          slash                    init ("¯"),     /* 256 */
48          dagger                   init ("±"),     /* 261 */
49          perpen                   init ("»"),     /* 273 - perpendicular mark */
50          not_eq                   init ("½"),     /* 275 - not-equal mark */
51          dbldag                   init ("Á"),     /* 301 - double daggar */
52          cright                   init ("Ã"),     /* 303 - copyright mark */
53          delta                    init ("Ä"),     /* 304 */
54          bullet                   init ("Í"),     /* 315 */
55          prll                     init ("Î"),     /* 316 - parallel mark */
56          PI                       init ("Ð"),     /* 320 - uppercase Greek pi */
57          tmark                    init ("Ô"),     /* 324 - trademark */
58          tfore                    init ("Ö"),     /* 326 - therefore mark */
59          approx                   init ("Ú"),     /* 332 - approximately-equal mark */
60          infin                    init ("ß"),     /* 337 - infinity */
61          theta                    init ("ê"),     /* 352 */
62          pi                       init ("ð"),     /* 360 - lowercase Greek pi */
63          square                   init ("ý"),     /* 375 */
64          overbar                  init ("þ"),     /* 376 */
65          PS                       init ("ÿ"),     /* 377 - punctuation space */
66          sup0                     init ("^@"),    /* 400 - superior digit 0 */
67          sup1                     init ("^A"),    /* 401 - superior digit 1 */
68          sup2                     init ("^B"),    /* 402 - superior digit 2 */
69          sup3                     init ("^C"),    /* 403 - superior digit 3 */
70          sup4                     init ("^D"),    /* 404 - superior digit 4 */
71          sup5                     init ("^E"),    /* 405 - superior digit 5 */
72          sup6                     init ("^F"),    /* 406 - superior digit 6 */
73          sup7                     init ("^G"),    /* 407 - superior digit 7 */
74          sup8                     init ("^H"),    /* 410 - superior digit 8 */
75          sup9                     init ("         "),       /* 411 - superior digit 9 */
76          EM                       init ("
77 "),       /* 412 - EM space */
78          EM_                      init ("^K"),    /* 413 - EM aligned dash */
79          EN                       init ("^L"),    /* 414 - EN space */
80          EN_                      init ("^M"),    /* 415 - EN aligned dash */
81          ENd                      init ("^N"),    /* 416 - EN dash */
82          THIN                     init ("^O"),    /* 417 - thinspace */
83          DEVIT                    init ("^P"),    /* 420 - device unit */
84          lquote                   init ("^Q"),    /* 421 - left double quote */
85          rquote                   init ("^R"),    /* 422 - right double quote */
86          modmark                  init ("^T"),    /* 424 - text modification/addition mark */
87          delmark                  init ("^X"),    /* 430 - deletion mark */
88          vrule                    init ("Z"),     /* 532 - vertical rule */
89          lslnt                    init ("^")      /* 536 - left slant */
90          )                        char (1) unaligned static options (constant);
91 
92      dcl PSv                      fixed bin static options (constant)
93                                   init (255);
94 
95 /* END INCLUDE FILE  comp_DCcodes.incl.pl1  */