" **************************************** " " BEGIN cobol_op_fix_con.incl.alm " Modified on 1/17/77 by Bob Chang to add short binary constants. " Modified since Version 2.0. " " " CONSTANT SECTION " All locations are relative to the starting location con_sec. " This part of the constant section includes only those " constants which are never changed, because the cobol " object codes are depending on the offset of teach constant. " or those constants which may be changed, use cobol_op_var_con.incl.alm. " The first number is the total number of characters. It should " be updated whenever a new constant is added at the end. " No constant is allowed to be inserted into the middle of this section. " Update cobol_op_con.incl.pl1 and cobol_alphabet_offset.incl.pl1 when this " include file is updated. " **************************************** " " " con_sec: " start from pr0|4000(oct) " The following number is the total number of characters of this section. " ******* Update the follwing number whenever new constants are appended at the end ******* oct 000000001030 oct 000000000000 null_con: its -1,1 null pointer mask_con: oct 077777000077 oct 777777077077 " start from pr0|4006(oct) space_con: aci / / aci / / " " The constant for operpunch begin pr0|4010(oct) aci /{ABC/ aci /DEFG/ aci /HI / aci /}JKL/ aci /MNOP/ aci /QR / " decimal numbers start from pr0|4016(oct) dce_con: oct 060060060060 0 oct 060060060060 0 oct 061060060060 1000 oct 062060060060 2000 oct 063060060060 3000 oct 064060060060 4000 oct 065060060060 5000 oct 066060060060 6000 oct 067060060060 7000 oct 070060060060 8000 oct 071060060060 9000 oct 060061060060 100 oct 060062060060 200 oct 060063060060 300 oct 060064060060 400 oct 060065060060 500 oct 060066060060 600 oct 060067060060 700 oct 060070060060 800 oct 060071060060 900 oct 060060061060 10 oct 060060061061 11 oct 060060061062 12 oct 060060061063 13 oct 060060061064 14 oct 060060061065 15 oct 060060061066 16 oct 060060061067 17 oct 060060061070 18 oct 060060061071 19 oct 060060062060 20 oct 060060063060 30 oct 060060064060 40 oct 060060065060 50 oct 060060066060 60 oct 060060067060 70 oct 060060070060 80 oct 060060071060 90 oct 060060060061 1 oct 060060060062 2 oct 060060060063 3 oct 060060060064 4 oct 060060060065 5 oct 060060060066 6 oct 060060060067 7 oct 060060060070 8 oct 060060060071 9 " start from pr0|4074(oct) neg_con: oct 777777777754 -20 oct 777777777755 -19 oct 777777777756 -18 oct 777777777757 -17 oct 777777777760 -16 oct 777777777761 -15 oct 777777777762 -14 oct 777777777763 -13 oct 777777777764 -12 oct 777777777765 -11 oct 777777777766 -10 oct 777777777767 -9 oct 777777777770 -8 oct 777777777771 -7 oct 777777777772 -6 oct 777777777773 -5 oct 777777777774 -4 oct 777777777775 -3 oct 777777777776 -2 oct 777777777777 -1 zero_con: oct 000000000000 0 one_con: oct 000000000001 1 oct 000000000002 2 oct 000000000003 3 oct 000000000004 4 oct 000000000005 5 oct 000000000006 6 oct 000000000007 7 oct 000000000010 8 oct 000000000011 9 oct 000000000012 10 oct 000000000013 11 oct 000000000014 12 oct 000000000015 13 oct 000000000016 14 oct 000000000017 15 oct 000000000020 16 oct 000000000021 17 oct 000000000022 18 oct 000000000023 19 oct 000000000024 20 sort_con: aci /-bf/ aci /clea/ aci /nup/ aci /$$$$/ aci /****/ aci /""""/ aci /++++/ aci /----/ oct 057057057057 aci /..../ aci /,,,,/ oct 177177177177 aci /CRCR/ aci /DBDB/ bin_18: oct 000001000000 1 oct 000002000000 2 oct 000003000000 3 oct 000004000000 4 oct 000005000000 5 oct 000006000000 6 oct 000007000000 7 oct 000010000000 8 oct 000011000000 9 oct 000012000000 10 oct 000013000000 11 oct 000014000000 12 oct 000015000000 13 oct 000016000000 14 oct 000017000000 15 oct 000020000000 16 oct 000021000000 17 oct 000022000000 18 oct 000023000000 19 oct 000024000000 20 " " org 256 use text3 " " " Starts from pr0|4400(oct) " The following table are the translation table from ascii to ebcdic " ascii_ebcdic: oct 000001002003 oct 067055056057 oct 026005045013 oct 014015016017 oct 020021022023 oct 074075062046 oct 030031077047 oct 034035036037 oct 100117177173 oct 133154120175 oct 115135134116 oct 153140113141 oct 360361362363 oct 364365366367 oct 370371172136 oct 114176156157 oct 174301302303 oct 304305306307 oct 310311321322 oct 323324325326 oct 327330331342 oct 343344345346 oct 347350351112 oct 340132137155 oct 171201202203 oct 204205206207 oct 210211221222 oct 223224225226 oct 227230231242 oct 243244245246 oct 247250251300 oct 152320241007 oct 040041042043 oct 044025006027 oct 050051052053 oct 054011012033 oct 060061032063 oct 064065066010 oct 070071072073 oct 004024076341 oct 101102103104 oct 105106107110 oct 111121122123 oct 124125126127 oct 130131142143 oct 144145146147 oct 150151160161 oct 162163164165 oct 166167170200 oct 212213214215 oct 216217220232 oct 233234235236 oct 237240252253 oct 254255256257 oct 260261262263 oct 264265266267 oct 270271272273 oct 274275276277 oct 312313314315 oct 316317332333 oct 334335336337 oct 352353354355 oct 356357372373 oct 374375376377 oct 400401402403 oct 404405406407 oct 410411412413 oct 414415416417 oct 420421422423 oct 424425426427 oct 430431432433 oct 434435436437 oct 440441442443 oct 444445446447 oct 450451452453 oct 454455456457 oct 460461462463 oct 464465466467 oct 470471472473 oct 474475476477 oct 500501502503 oct 504505506507 oct 510511512513 oct 514515516517 oct 520521522523 oct 524525526527 oct 530531532533 oct 534535536537 oct 540541542543 oct 544545546547 oct 550551552553 oct 554555556557 oct 560561562563 oct 564565566567 oct 570571572573 oct 574575576577 oct 600601602603 oct 604605606607 oct 610611612613 oct 614615616617 oct 620621622623 oct 624625626627 oct 630631632633 oct 634635636637 oct 640641642643 oct 644645646647 oct 650651652653 oct 654655656657 oct 660661662663 oct 664665666667 oct 670671672673 oct 674675676677 oct 700701702703 oct 704705706707 oct 710711712713 oct 714715716717 oct 720721722723 oct 724725726727 oct 730731732733 oct 734735736737 oct 740741742743 oct 744745746747 oct 750751752753 oct 754755756757 oct 760761762763 oct 764765766767 oct 770771772773 oct 774775776777 " " " The ebcdic to ascii translation table " ebcdic_ascii: oct 000001002003 oct 234011206177 oct 227215216013 oct 014015016017 oct 020021022023 oct 235205010207 oct 030031222217 oct 034035036037 oct 200201202203 oct 204012027033 oct 210211212213 oct 214005006007 oct 220221026223 oct 224225226004 oct 230231232233 oct 024025236032 oct 040240241242 oct 243244245246 oct 247250133056 oct 074050053041 oct 046251252253 oct 254255256257 oct 260261135044 oct 052051073136 oct 055057262263 oct 264265266267 oct 270271174054 oct 045137076077 oct 272273274275 oct 276277300301 oct 302140072043 oct 100047075042 oct 303141142143 oct 144145146147 oct 150151304305 oct 306307310311 oct 312152153154 oct 155156157160 oct 161162313314 oct 315316317320 oct 321176163164 oct 165166167170 oct 171172322323 oct 324325326327 oct 330331332333 oct 334335336337 oct 340341342343 oct 344345346347 oct 173101102103 oct 104105106107 oct 110111350351 oct 352353354355 oct 175112113114 oct 115116117120 oct 121122356357 oct 360361362363 oct 134237123124 oct 125126127130 oct 131132364365 oct 366367370371 oct 060061062063 oct 064065066067 oct 070071372373 oct 374375376377 oct 400401402403 oct 404405406407 oct 410411412413 oct 414415416417 oct 420421422423 oct 424425426427 oct 430431432433 oct 434435436437 oct 440441442443 oct 444445446447 oct 450451452453 oct 454455456457 oct 460461462463 oct 464465466467 oct 470471472473 oct 474475476477 oct 500501502503 oct 504505506507 oct 510511512513 oct 514515516517 oct 520521522523 oct 524525526527 oct 530531532533 oct 534535536537 oct 540541542543 oct 544545546547 oct 550551552553 oct 554555556557 oct 560561562563 oct 564565566567 oct 570571572573 oct 574575576577 oct 600601602603 oct 604605606607 oct 610611612613 oct 614615616617 oct 620621622623 oct 624625626627 oct 630631632633 oct 634635636637 oct 640641642643 oct 644645646647 oct 650651652653 oct 654655656657 oct 660661662663 oct 664665666667 oct 670671672673 oct 674675676677 oct 700701702703 oct 704705706707 oct 710711712713 oct 714715716717 oct 720721722723 oct 724725726727 oct 730731732733 oct 734735736737 oct 740741742743 oct 744745746747 oct 750751752753 oct 754755756757 oct 760761762763 oct 764765766767 oct 770771772773 oct 774775776777 " Please insert the new frequently used constant before this line. " " " END cobol_op_fix_con.incl.alm " " " " ----------------------------------------------------------- " " " " Historical Background " " This edition of the Multics software materials and documentation is provided and donated " to Massachusetts Institute of Technology by Group Bull including Bull HN Information Systems Inc. " as a contribution to computer science knowledge. " This donation is made also to give evidence of the common contributions of Massachusetts Institute of Technology, " Bell Laboratories, General Electric, Honeywell Information Systems Inc., Honeywell Bull Inc., Groupe Bull " and Bull HN Information Systems Inc. to the development of this operating system. " Multics development was initiated by Massachusetts Institute of Technology Project MAC (1963-1970), " renamed the MIT Laboratory for Computer Science and Artificial Intelligence in the mid 1970s, under the leadership " of Professor Fernando Jose Corbato. Users consider that Multics provided the best software architecture for " managing computer hardware properly and for executing programs. Many subsequent operating systems " incorporated Multics principles. " Multics was distributed in 1975 to 2000 by Group Bull in Europe , and in the U.S. by Bull HN Information Systems Inc., " as successor in interest by change in name only to Honeywell Bull Inc. and Honeywell Information Systems Inc. . " " ----------------------------------------------------------- " " Permission to use, copy, modify, and distribute these programs and their documentation for any purpose and without " fee is hereby granted,provided that the below copyright notice and historical background appear in all copies " and that both the copyright notice and historical background and this permission notice appear in supporting " documentation, and that the names of MIT, HIS, Bull or Bull HN not be used in advertising or publicity pertaining " to distribution of the programs without specific prior written permission. " Copyright 1972 by Massachusetts Institute of Technology and Honeywell Information Systems Inc. " Copyright 2006 by Bull HN Information Systems Inc. " Copyright 2006 by Bull SAS " All Rights Reserved " "