1 " ****************************************
2 "
3 " BEGIN cobol_op_fix_con.incl.alm
4 " Modified on 1/17/77 by Bob Chang to add short binary constants.
5 " Modified since Version 2.0.
6 "
7 "
8 " CONSTANT SECTION
9 " All locations are relative to the starting location con_sec.
10 " This part of the constant section includes only those
11 " constants which are never changed, because the cobol
12 " object codes are depending on the offset of teach constant.
13 " or those constants which may be changed, use cobol_op_var_con.incl.alm.
14 " The first number is the total number of characters. It should
15 " be updated whenever a new constant is added at the end.
16 " No constant is allowed to be inserted into the middle of this section.
17 " Update cobol_op_con.incl.pl1 and cobol_alphabet_offset.incl.pl1 when this
18 " include file is updated.
19 " ****************************************
20 "
21 "
22 "
23 con_sec:
24 " start from pr0|4000oct
25 " The following number is the total number of characters of this section.
26 " ******* Update the follwing number whenever new constants are appended at the end *******
27 oct 000000001030
28 oct 000000000000
29 null_con: its -1,1 null pointer
30 mask_con: oct 077777000077
31 oct 777777077077
32 " start from pr0|4006oct
33 space_con:
34 aci / /
35 aci / /
36 "
37 " The constant for operpunch begin pr0|4010oct
38 aci /ABC/
39 aci /DEFG/
40 aci /HI /
41 aci /JKL/
42 aci /MNOP/
43 aci /QR /
44 " decimal numbers start from pr0|4016oct
45 dce_con:
46 oct 060060060060 0
47 oct 060060060060 0
48 oct 061060060060 1000
49 oct 062060060060 2000
50 oct 063060060060 3000
51 oct 064060060060 4000
52 oct 065060060060 5000
53 oct 066060060060 6000
54 oct 067060060060 7000
55 oct 070060060060 8000
56 oct 071060060060 9000
57 oct 060061060060 100
58 oct 060062060060 200
59 oct 060063060060 300
60 oct 060064060060 400
61 oct 060065060060 500
62 oct 060066060060 600
63 oct 060067060060 700
64 oct 060070060060 800
65 oct 060071060060 900
66 oct 060060061060 10
67 oct 060060061061 11
68 oct 060060061062 12
69 oct 060060061063 13
70 oct 060060061064 14
71 oct 060060061065 15
72 oct 060060061066 16
73 oct 060060061067 17
74 oct 060060061070 18
75 oct 060060061071 19
76 oct 060060062060 20
77 oct 060060063060 30
78 oct 060060064060 40
79 oct 060060065060 50
80 oct 060060066060 60
81 oct 060060067060 70
82 oct 060060070060 80
83 oct 060060071060 90
84 oct 060060060061 1
85 oct 060060060062 2
86 oct 060060060063 3
87 oct 060060060064 4
88 oct 060060060065 5
89 oct 060060060066 6
90 oct 060060060067 7
91 oct 060060060070 8
92 oct 060060060071 9
93 " start from pr0|4074oct
94 neg_con: oct 777777777754 -20
95 oct 777777777755 -19
96 oct 777777777756 -18
97 oct 777777777757 -17
98 oct 777777777760 -16
99 oct 777777777761 -15
100 oct 777777777762 -14
101 oct 777777777763 -13
102 oct 777777777764 -12
103 oct 777777777765 -11
104 oct 777777777766 -10
105 oct 777777777767 -9
106 oct 777777777770 -8
107 oct 777777777771 -7
108 oct 777777777772 -6
109 oct 777777777773 -5
110 oct 777777777774 -4
111 oct 777777777775 -3
112 oct 777777777776 -2
113 oct 777777777777 -1
114 zero_con: oct 000000000000 0
115 one_con: oct 000000000001 1
116 oct 000000000002 2
117 oct 000000000003 3
118 oct 000000000004 4
119 oct 000000000005 5
120 oct 000000000006 6
121 oct 000000000007 7
122 oct 000000000010 8
123 oct 000000000011 9
124 oct 000000000012 10
125 oct 000000000013 11
126 oct 000000000014 12
127 oct 000000000015 13
128 oct 000000000016 14
129 oct 000000000017 15
130 oct 000000000020 16
131 oct 000000000021 17
132 oct 000000000022 18
133 oct 000000000023 19
134 oct 000000000024 20
135 sort_con: aci /-bf/
136 aci /clea/
137 aci /nup/
138 aci /$$$$/
139 aci /****/
140 aci /""""/
141 aci /++++/
142 aci /----/
143 oct 057057057057
144 aci /..../
145 aci /,,,,/
146 oct 177177177177
147 aci /CRCR/
148 aci /DBDB/
149 bin_18: oct 000001000000 1
150 oct 000002000000 2
151 oct 000003000000 3
152 oct 000004000000 4
153 oct 000005000000 5
154 oct 000006000000 6
155 oct 000007000000 7
156 oct 000010000000 8
157 oct 000011000000 9
158 oct 000012000000 10
159 oct 000013000000 11
160 oct 000014000000 12
161 oct 000015000000 13
162 oct 000016000000 14
163 oct 000017000000 15
164 oct 000020000000 16
165 oct 000021000000 17
166 oct 000022000000 18
167 oct 000023000000 19
168 oct 000024000000 20
169 "
170 "
171 org 256
172 use text3
173 ^L
174 "
175 "
176 " Starts from pr0|4400oct
177 " The following table are the translation table from ascii to ebcdic
178 "
179 ascii_ebcdic:
180 oct 000001002003
181 oct 067055056057
182 oct 026005045013
183 oct 014015016017
184 oct 020021022023
185 oct 074075062046
186 oct 030031077047
187 oct 034035036037
188 oct 100117177173
189 oct 133154120175
190 oct 115135134116
191 oct 153140113141
192 oct 360361362363
193 oct 364365366367
194 oct 370371172136
195 oct 114176156157
196 oct 174301302303
197 oct 304305306307
198 oct 310311321322
199 oct 323324325326
200 oct 327330331342
201 oct 343344345346
202 oct 347350351112
203 oct 340132137155
204 oct 171201202203
205 oct 204205206207
206 oct 210211221222
207 oct 223224225226
208 oct 227230231242
209 oct 243244245246
210 oct 247250251300
211 oct 152320241007
212 oct 040041042043
213 oct 044025006027
214 oct 050051052053
215 oct 054011012033
216 oct 060061032063
217 oct 064065066010
218 oct 070071072073
219 oct 004024076341
220 oct 101102103104
221 oct 105106107110
222 oct 111121122123
223 oct 124125126127
224 oct 130131142143
225 oct 144145146147
226 oct 150151160161
227 oct 162163164165
228 oct 166167170200
229 oct 212213214215
230 oct 216217220232
231 oct 233234235236
232 oct 237240252253
233 oct 254255256257
234 oct 260261262263
235 oct 264265266267
236 oct 270271272273
237 oct 274275276277
238 oct 312313314315
239 oct 316317332333
240 oct 334335336337
241 oct 352353354355
242 oct 356357372373
243 oct 374375376377
244 oct 400401402403
245 oct 404405406407
246 oct 410411412413
247 oct 414415416417
248 oct 420421422423
249 oct 424425426427
250 oct 430431432433
251 oct 434435436437
252 oct 440441442443
253 oct 444445446447
254 oct 450451452453
255 oct 454455456457
256 oct 460461462463
257 oct 464465466467
258 oct 470471472473
259 oct 474475476477
260 oct 500501502503
261 oct 504505506507
262 oct 510511512513
263 oct 514515516517
264 oct 520521522523
265 oct 524525526527
266 oct 530531532533
267 oct 534535536537
268 oct 540541542543
269 oct 544545546547
270 oct 550551552553
271 oct 554555556557
272 oct 560561562563
273 oct 564565566567
274 oct 570571572573
275 oct 574575576577
276 oct 600601602603
277 oct 604605606607
278 oct 610611612613
279 oct 614615616617
280 oct 620621622623
281 oct 624625626627
282 oct 630631632633
283 oct 634635636637
284 oct 640641642643
285 oct 644645646647
286 oct 650651652653
287 oct 654655656657
288 oct 660661662663
289 oct 664665666667
290 oct 670671672673
291 oct 674675676677
292 oct 700701702703
293 oct 704705706707
294 oct 710711712713
295 oct 714715716717
296 oct 720721722723
297 oct 724725726727
298 oct 730731732733
299 oct 734735736737
300 oct 740741742743
301 oct 744745746747
302 oct 750751752753
303 oct 754755756757
304 oct 760761762763
305 oct 764765766767
306 oct 770771772773
307 oct 774775776777
308 "
309 "
310 " The ebcdic to ascii translation table
311 "
312 ebcdic_ascii:
313 oct 000001002003
314 oct 234011206177
315 oct 227215216013
316 oct 014015016017
317 oct 020021022023
318 oct 235205010207
319 oct 030031222217
320 oct 034035036037
321 oct 200201202203
322 oct 204012027033
323 oct 210211212213
324 oct 214005006007
325 oct 220221026223
326 oct 224225226004
327 oct 230231232233
328 oct 024025236032
329 oct 040240241242
330 oct 243244245246
331 oct 247250133056
332 oct 074050053041
333 oct 046251252253
334 oct 254255256257
335 oct 260261135044
336 oct 052051073136
337 oct 055057262263
338 oct 264265266267
339 oct 270271174054
340 oct 045137076077
341 oct 272273274275
342 oct 276277300301
343 oct 302140072043
344 oct 100047075042
345 oct 303141142143
346 oct 144145146147
347 oct 150151304305
348 oct 306307310311
349 oct 312152153154
350 oct 155156157160
351 oct 161162313314
352 oct 315316317320
353 oct 321176163164
354 oct 165166167170
355 oct 171172322323
356 oct 324325326327
357 oct 330331332333
358 oct 334335336337
359 oct 340341342343
360 oct 344345346347
361 oct 173101102103
362 oct 104105106107
363 oct 110111350351
364 oct 352353354355
365 oct 175112113114
366 oct 115116117120
367 oct 121122356357
368 oct 360361362363
369 oct 134237123124
370 oct 125126127130
371 oct 131132364365
372 oct 366367370371
373 oct 060061062063
374 oct 064065066067
375 oct 070071372373
376 oct 374375376377
377 oct 400401402403
378 oct 404405406407
379 oct 410411412413
380 oct 414415416417
381 oct 420421422423
382 oct 424425426427
383 oct 430431432433
384 oct 434435436437
385 oct 440441442443
386 oct 444445446447
387 oct 450451452453
388 oct 454455456457
389 oct 460461462463
390 oct 464465466467
391 oct 470471472473
392 oct 474475476477
393 oct 500501502503
394 oct 504505506507
395 oct 510511512513
396 oct 514515516517
397 oct 520521522523
398 oct 524525526527
399 oct 530531532533
400 oct 534535536537
401 oct 540541542543
402 oct 544545546547
403 oct 550551552553
404 oct 554555556557
405 oct 560561562563
406 oct 564565566567
407 oct 570571572573
408 oct 574575576577
409 oct 600601602603
410 oct 604605606607
411 oct 610611612613
412 oct 614615616617
413 oct 620621622623
414 oct 624625626627
415 oct 630631632633
416 oct 634635636637
417 oct 640641642643
418 oct 644645646647
419 oct 650651652653
420 oct 654655656657
421 oct 660661662663
422 oct 664665666667
423 oct 670671672673
424 oct 674675676677
425 oct 700701702703
426 oct 704705706707
427 oct 710711712713
428 oct 714715716717
429 oct 720721722723
430 oct 724725726727
431 oct 730731732733
432 oct 734735736737
433 oct 740741742743
434 oct 744745746747
435 oct 750751752753
436 oct 754755756757
437 oct 760761762763
438 oct 764765766767
439 oct 770771772773
440 oct 774775776777
441 " Please insert the new frequently used constant before this line.
442 "
443 "
444 " END cobol_op_fix_con.incl.alm
445 "