1 /* ====== BEGIN INCLUDE SEGMENT         apl_character_codes.incl.pl1 ============================== */
  2 
  3 /*  Defines symbol names for the character codes.
  4     Modified by PG on 8/9/73 to add LeftBrace, RightBrace, Diamond, LeftTack, RightTack, and Bell,
  5     to remove Quad_, and to add the special characters MarkError, LineFeed, and ConditionalNewLine. */
  6 /* Modified 780913 by PG to add CentSign */
  7 /* Modified 790319 by PG to add CommaHyphen */
  8 
  9 dcl (
 10           Bell                          init(7),
 11           BackSpace                     init(8),
 12           Tab                           init(9),
 13           NewLine                       init(10),
 14           Space                         init(32),
 15           Exclamation                   init(33),
 16           Dollar                        init(36),           /* /^HS */
 17           Apostrophe                    init(39),           /* his = quote */
 18           LeftParen                     init(40),
 19           RightParen                    init(41),
 20           Star                          init(42),
 21           Plus                          init(43),
 22           Comma                         init(44),
 23           Minus                         init(45),
 24           Period                        init(46),
 25           Slash                         init(47),
 26           Zero                          init(48),           /* why not? */
 27           One                           init(49),
 28           Two                           init(50),
 29           Three                         init(51),
 30           Four                          init(52),
 31           Five                          init(53),
 32           Six                           init(54),
 33           Seven                         init(55),
 34           Eight                         init(56),
 35           Nine                          init(57),
 36           Colon                         init(58),
 37           SemiColon                     init(59),
 38           LessThan                      init(60),
 39           Equal                         init(61),
 40           GreaterThan                   init(62),
 41           Question                      init(63),
 42           LetterA_                      init(65),
 43           LetterB_                      init(66),
 44           LetterC_                      init(67),
 45           LetterD_                      init(68),
 46           LetterE_                      init(69),
 47           LetterF_                      init(70),
 48           LetterG_                      init(71),
 49           LetterH_                      init(72),
 50           LetterI_                      init(73),
 51           LetterJ_                      init(74),
 52           LetterK_                      init(75),
 53           LetterL_                      init(76),
 54           LetterM_                      init(77),
 55           LetterN_                      init(78),
 56           LetterO_                      init(79),
 57           LetterP_                      init(80),
 58           LetterQ_                      init(81),
 59           LetterR_                      init(82),
 60           LetterS_                      init(83),
 61           LetterT_                      init(84),
 62           LetterU_                      init(85),
 63           LetterV_                      init(86),
 64           LetterW_                      init(87),
 65           LetterX_                      init(88),
 66           LetterY_                      init(89),
 67           LetterZ_                      init(90),
 68           LeftBracket                   init(91),
 69           BackSlash                     init(92),
 70           RightBracket                  init(93),
 71           UnderLine                     init(95),
 72           LetterA                       init(97),
 73           LetterB                       init(98),
 74           LetterC                       init(99),
 75           LetterD                       init(100),
 76           LetterE                       init(101),
 77           LetterF                       init(102),
 78           LetterG                       init(103),
 79           LetterH                       init(104),
 80           LetterI                       init(105),
 81           LetterJ                       init(106),
 82           LetterK                       init(107),
 83           LetterL                       init(108),
 84           LetterM                       init(109),
 85           LetterN                       init(110),
 86           LetterO                       init(111),
 87           LetterP                       init(112),
 88           LetterQ                       init(113),
 89           LetterR                       init(114),
 90           LetterS                       init(115),
 91           LetterT                       init(116),
 92           LetterU                       init(117),
 93           LetterV                       init(118),
 94           LetterW                       init(119),
 95           LetterX                       init(120),
 96           LetterY                       init(121),
 97           LetterZ                       init(122),
 98           LeftBrace                     init(123),
 99           VerticalBar                   init(124),
100           RightBrace                    init(125),
101           Tilde                         init(126),
102 
103 /* here is where we leave ascii behind */
104 
105           LessOrEqual                   init(128),
106           GreaterOrEqual                init(129),
107           NotEqual                      init(130),
108           OrSign                        init(131),
109           AndSign                       init(132),
110           Division                      init(133),
111           Epsilon                       init(134),
112           UpArrow                       init(135),
113           DownArrow                     init(136),
114           Circle                        init(137),
115           Ceiling                       init(138),
116           Floor                         init(139),
117           Delta                         init(140),
118           SmallCircle                   init(141),
119           Quad                          init(142),
120           Cap                           init(143),
121           DeCode                        init(144),
122           EnCode                        init(145),
123           LeftLump                      init(146),
124           RightLump                     init(147),
125           Cup                           init(148),
126           NorSign                       init(149),
127           NandSign                      init(150),
128           CircleHyphen                  init(151),
129           SlashHyphen                   init(152),
130           DelTilde                      init(153),
131           CircleStar                    init(154),
132           CircleBar                     init(155),
133           CircleBackSlash               init(156),
134           CircleSlash                   init(157),
135           GradeDown                     init(158),
136           GradeUp                       init(159),
137           Lamp                          init(160),
138           QuadQuote                     init(161),
139           IBeam                         init(162),
140           BackSlashHyphen               init(163),
141           Domino                        init(164),
142           Diaresis                      init(165),
143           Omega                         init(166),
144           Iota                          init(167),
145           Rho                           init(168),
146           Times                         init(169),
147           Alpha                         init(170),
148           UpperMinus                    init(171),
149           Del                           init(172),
150           LeftArrow                     init(173),
151           RightArrow                    init(174),
152           Diamond                       init(175),
153           Zero_                         init(176),                    /* underlined numbers... */
154           One_                          init(177),
155           Two_                          init(178),
156           Three_                        init(179),
157           Four_                         init(180),
158           Five_                         init(181),
159           Six_                          init(182),
160           Seven_                        init(183),
161           Eight_                        init(184),
162           Nine_                         init(185),
163           Delta_                        init(186),                    /* underlined Delta */
164           MarkError                     init(187),                    /* special character: means mark next char */
165           ExecuteSign                   init(188),
166           FormatSign                    init(189),
167           LeftTack                      init(190),
168           RightTack                     init(191),
169           Linefeed                      init(192),                    /* special character */
170           ConditionalNewLine            init(193),                    /* special character */
171           CentSign                      init(194),
172           CommaHyphen                   init(195)
173     ) fixed bin static options (constant);
174 
175 /* ------ END INCLUDE SEGMENT           apl_character_codes.incl.pl1 ------------------------------ */