COMPILATION LISTING OF SEGMENT cobol_gns1 Compiled by: Multics PL/I Compiler, Release 31b, of April 24, 1989 Compiled at: Bull HN, Phoenix AZ, System-M Compiled on: 05/24/89 1010.9 mst Wed Options: optimize map 1 /****^ *********************************************************** 2* * * 3* * Copyright, (C) BULL HN Information Systems Inc., 1989 * 4* * * 5* * Copyright, (C) Honeywell Information Systems Inc., 1982 * 6* * * 7* * Copyright (c) 1972 by Massachusetts Institute of * 8* * Technology and Honeywell Information Systems, Inc. * 9* * * 10* *********************************************************** */ 11 12 13 14 15 /****^ HISTORY COMMENTS: 16* 1) change(89-04-23,Zimmerman), approve(89-04-23,MCR8060), 17* audit(89-05-05,RWaters), install(89-05-24,MR12.3-1048): 18* MCR8060 cobol_gns1.pl1 Reformatted code to new Cobol standard. 19* END HISTORY COMMENTS */ 20 21 22 /* 5/27/77, FCH, fixed bin decls standardized */ 23 /* Modified on 10/26/76 by ORN to eliminate call to obsolete procedure cobol_check_rep */ 24 25 /* format: style3 */ 26 cobol_gns1: 27 proc; 28 29 /* This routine is the dispatcher for the basic functions of lex */ 30 31 declare cobol_res_words entry external; 32 declare cobol_gns entry external; 33 34 /* declare cobol_check_rep entry external; */ 35 36 /* general overlay for any token */ 37 38 declare 1 token based (cobol_current), 39 2 fwd_link pointer, 40 2 back_link pointer, 41 2 rep_link pointer, 42 2 l_info bit (8), 43 2 size fixed bin, 44 2 line fixed bin, 45 2 column fixed bin, 46 2 type fixed bin; 47 48 declare substr builtin; 49 50 if cobol_endprog_sw = "1"b 51 then return; 52 53 call cobol_gns; 54 55 if substr (token.l_info, 1, 1) = "0"b 56 then /* if cobol_rep_sw then call cobol_check_rep; */ 57 if token.type = 8 58 then call cobol_res_words; 59 1 1 1 2 /* BEGIN INCLUDE FILE ... cobol_ext_lex.incl.pl1 */ 1 3 /* Last modified on 06/18/76 by ORN */ 1 4 1 5 /* * * * LEX EXTERNAL DATA * * * */ 1 6 1 7 /* Pointers */ 1 8 1 9 dcl cobol_ext_lex$cobol_current ptr ext; 1 10 dcl cobol_current ptr defined ( cobol_ext_lex$cobol_current); 1 11 dcl cobol_ext_lex$cobol_top ptr ext; 1 12 dcl cobol_top ptr defined ( cobol_ext_lex$cobol_top); 1 13 dcl cobol_ext_lex$cobol_frst ptr ext; 1 14 dcl cobol_frst ptr defined ( cobol_ext_lex$cobol_frst); 1 15 dcl cobol_ext_lex$cobol_mfp ptr ext; 1 16 dcl cobol_mfp ptr defined ( cobol_ext_lex$cobol_mfp); 1 17 dcl cobol_ext_lex$cobol_rt_ptr ptr ext; 1 18 dcl cobol_rt_ptr ptr defined ( cobol_ext_lex$cobol_rt_ptr); 1 19 dcl cobol_ext_lex$cobol_cfp ptr ext; 1 20 dcl cobol_cfp ptr defined ( cobol_ext_lex$cobol_cfp); 1 21 dcl cobol_ext_lex$cobol_ta_ptr ptr ext; 1 22 dcl cobol_ta_ptr ptr defined ( cobol_ext_lex$cobol_ta_ptr); 1 23 dcl cobol_ext_lex$cobol_elt_buf_ptr ptr ext; 1 24 dcl cobol_elt_buf_ptr ptr defined ( cobol_ext_lex$cobol_elt_buf_ptr); 1 25 dcl cobol_ext_lex$cobol_lex_exit /*[*/ label /*]*/ /*[[[ entry static ]]]*/ ext; 1 26 dcl cobol_lex_exit /*[*/ label /*]*/ /*[[[ entry static ]]]*/ defined( cobol_ext_lex$cobol_lex_exit); /* -6- */ 1 27 1 28 /* Character */ 1 29 1 30 dcl cobol_ext_lex$cobol_tarea char (300) ext; 1 31 dcl cobol_tarea char (300) defined ( cobol_ext_lex$cobol_tarea); /* -75- */ 1 32 dcl cobol_ext_lex$cobol_comma_character char (1) ext; 1 33 dcl cobol_comma_character char (1) defined ( cobol_ext_lex$cobol_comma_character); 1 34 dcl cobol_ext_lex$cobol_decimal_point_character char (1) ext; 1 35 dcl cobol_decimal_point_character char (1) defined ( cobol_ext_lex$cobol_decimal_point_character); 1 36 dcl cobol_ext_lex$cobol_new_line_character char (1) ext; 1 37 dcl cobol_new_line_character char (1) defined ( cobol_ext_lex$cobol_new_line_character); 1 38 dcl cobol_ext_lex$cobol_si_key char (5) ext; 1 39 dcl cobol_si_key char (5) defined ( cobol_ext_lex$cobol_si_key); /* -2- */ 1 40 dcl cobol_ext_lex$cobol_so_key char (5) ext; 1 41 dcl cobol_so_key char (5) defined ( cobol_ext_lex$cobol_so_key); /* -2- */ 1 42 1 43 /* Fixed bin */ 1 44 1 45 dcl cobol_ext_lex$ph_num fixed bin ext; 1 46 dcl ph_num fixed bin defined(cobol_ext_lex$ph_num ); 1 47 dcl cobol_ext_lex$cobol_c_l_n fixed bin ext; 1 48 dcl cobol_c_l_n fixed bin defined ( cobol_ext_lex$cobol_c_l_n); 1 49 dcl cobol_ext_lex$cobol_save_cln fixed bin ext; 1 50 dcl cobol_save_cln fixed bin defined ( cobol_ext_lex$cobol_save_cln); 1 51 dcl cobol_ext_lex$cobol_save_col fixed bin ext; 1 52 dcl cobol_save_col fixed bin defined ( cobol_ext_lex$cobol_save_col); 1 53 dcl cobol_ext_lex$cobol_name_number fixed bin ext; 1 54 dcl cobol_name_number fixed bin defined ( cobol_ext_lex$cobol_name_number); 1 55 dcl cobol_ext_lex$cobol_section_number fixed bin ext; 1 56 dcl cobol_section_number fixed bin defined ( cobol_ext_lex$cobol_section_number); 1 57 dcl cobol_ext_lex$cobol_sr fixed bin ext; 1 58 dcl cobol_sr fixed bin defined ( cobol_ext_lex$cobol_sr); 1 59 dcl cobol_ext_lex$cobol_elt_idx fixed bin ext; 1 60 dcl cobol_elt_idx fixed bin defined ( cobol_ext_lex$cobol_elt_idx); 1 61 1 62 /* Structures */ 1 63 1 64 dcl 1 cobol_ext_lex$cobol_cards ext like cobol_cards; 1 65 dcl 1 cobol_cards defined ( cobol_ext_lex$cobol_cards), /* -67- */ 1 66 2 column fixed bin, 1 67 2 tblanks fixed bin, 1 68 2 nr_char fixed bin, 1 69 2 name char (256); 1 70 1 71 /* Bits */ 1 72 1 73 dcl cobol_ext_lex$processing_report bit(1) ext; 1 74 dcl processing_report bit (1) defined (cobol_ext_lex$processing_report); 1 75 dcl cobol_ext_lex$real_end_report bit (1) ext; 1 76 dcl real_end_report bit (1) defined (cobol_ext_lex$real_end_report); 1 77 dcl cobol_ext_lex$cobol_continuation bit (1) ext; 1 78 dcl cobol_continuation bit (1) defined ( cobol_ext_lex$cobol_continuation); 1 79 dcl cobol_ext_lex$cobol_pic_switch bit (1) ext; 1 80 dcl cobol_pic_switch bit (1) defined ( cobol_ext_lex$cobol_pic_switch); 1 81 dcl cobol_ext_lex$cobol_allo_init_sw bit (1) ext; 1 82 dcl cobol_allo_init_sw bit (1) defined ( cobol_ext_lex$cobol_allo_init_sw); 1 83 dcl cobol_ext_lex$cobol_lu_sw bit (1) ext; 1 84 dcl cobol_lu_sw bit (1) defined ( cobol_ext_lex$cobol_lu_sw); 1 85 dcl cobol_ext_lex$cobol_scanoff_sw bit (1) ext; 1 86 dcl cobol_scanoff_sw bit (1) defined ( cobol_ext_lex$cobol_scanoff_sw); 1 87 dcl cobol_ext_lex$cobol_output_sw bit (1) ext; 1 88 dcl cobol_output_sw bit (1) defined ( cobol_ext_lex$cobol_output_sw); 1 89 dcl cobol_ext_lex$cobol_stack_sw bit (1) ext; 1 90 dcl cobol_stack_sw bit (1) defined ( cobol_ext_lex$cobol_stack_sw); 1 91 dcl cobol_ext_lex$cobol_copy_found bit (1) ext; 1 92 dcl cobol_copy_found bit (1) defined ( cobol_ext_lex$cobol_copy_found); 1 93 dcl cobol_ext_lex$cobol_head_words (5) bit (1) ext; 1 94 dcl cobol_head_words (5) bit (1) defined ( cobol_ext_lex$cobol_head_words); 1 95 dcl cobol_ext_lex$cobol_elnp_sw bit (1) ext; 1 96 dcl cobol_elnp_sw bit (1) defined ( cobol_ext_lex$cobol_elnp_sw); 1 97 dcl cobol_ext_lex$cobol_dp_sw bit (1) ext; 1 98 dcl cobol_dp_sw bit (1) defined ( cobol_ext_lex$cobol_dp_sw); 1 99 dcl cobol_ext_lex$cobol_endprog_sw bit (1) ext; 1 100 dcl cobol_endprog_sw bit (1) defined ( cobol_ext_lex$cobol_endprog_sw); 1 101 dcl cobol_ext_lex$cobol_debug_mode bit (1) ext; 1 102 dcl cobol_debug_mode bit (1) defined ( cobol_ext_lex$cobol_debug_mode); 1 103 dcl cobol_ext_lex$cobol_rwt_init_sw bit (1) ext; 1 104 dcl cobol_rwt_init_sw bit (1) defined ( cobol_ext_lex$cobol_rwt_init_sw); 1 105 dcl cobol_ext_lex$cobol_init_ta_sw bit (1) ext; 1 106 dcl cobol_init_ta_sw bit (1) defined ( cobol_ext_lex$cobol_init_ta_sw); 1 107 dcl cobol_ext_lex$cobol_rep_sw bit (1) ext; 1 108 dcl cobol_rep_sw bit (1) defined ( cobol_ext_lex$cobol_rep_sw); 1 109 dcl cobol_ext_lex$cobol_copy_active bit (1) ext; 1 110 dcl cobol_copy_active bit (1) defined ( cobol_ext_lex$cobol_copy_active); 1 111 dcl cobol_ext_lex$cobol_ln_sw (2) bit (1) ext; 1 112 dcl cobol_ln_sw (2) bit (1) defined ( cobol_ext_lex$cobol_ln_sw); 1 113 dcl cobol_ext_lex$cobol_prime_sw bit (1) ext; 1 114 dcl cobol_prime_sw bit (1) defined ( cobol_ext_lex$cobol_prime_sw); 1 115 dcl cobol_ext_lex$cobol_rec1_sw (2) bit (1) ext; 1 116 dcl cobol_rec1_sw (2) bit (1) defined ( cobol_ext_lex$cobol_rec1_sw); 1 117 dcl cobol_ext_lex$cobol_progid_sw bit(1) ext; 1 118 dcl cobol_progid_sw bit(1) defined ( cobol_ext_lex$cobol_progid_sw); 1 119 1 120 1 121 /* * * * END LEX EXTERNAL DATA * * * */ 1 122 /* END INCLUDE FILE ... cobol_ext_lex.incl.pl1 */ 1 123 60 61 62 end cobol_gns1; SOURCE FILES USED IN THIS COMPILATION. LINE NUMBER DATE MODIFIED NAME PATHNAME 0 05/24/89 0835.2 cobol_gns1.pl1 >spec>install>MR12.3-1048>cobol_gns1.pl1 60 1 03/27/82 0431.6 cobol_ext_lex.incl.pl1 >ldd>include>cobol_ext_lex.incl.pl1 NAMES DECLARED IN THIS COMPILATION. IDENTIFIER OFFSET LOC STORAGE CLASS DATA TYPE ATTRIBUTES AND REFERENCES (* indicates a set context) NAMES DECLARED BY DECLARE STATEMENT. cobol_cards defined structure level 1 unaligned dcl 1-65 cobol_current defined pointer dcl 1-10 ref 55 55 cobol_endprog_sw defined bit(1) packed unaligned dcl 1-100 ref 50 cobol_ext_lex$cobol_current 000014 external static pointer dcl 1-9 ref 55 55 55 55 cobol_ext_lex$cobol_endprog_sw 000016 external static bit(1) packed unaligned dcl 1-99 ref 50 50 cobol_gns 000012 constant entry external dcl 32 ref 53 cobol_res_words 000010 constant entry external dcl 31 ref 55 l_info 6 based bit(8) level 2 packed packed unaligned dcl 38 ref 55 substr builtin function dcl 48 ref 55 token based structure level 1 unaligned dcl 38 type 12 based fixed bin(17,0) level 2 dcl 38 ref 55 NAMES DECLARED BY DECLARE STATEMENT AND NEVER REFERENCED. cobol_allo_init_sw defined bit(1) packed unaligned dcl 1-82 cobol_c_l_n defined fixed bin(17,0) dcl 1-48 cobol_cfp defined pointer dcl 1-20 cobol_comma_character defined char(1) packed unaligned dcl 1-33 cobol_continuation defined bit(1) packed unaligned dcl 1-78 cobol_copy_active defined bit(1) packed unaligned dcl 1-110 cobol_copy_found defined bit(1) packed unaligned dcl 1-92 cobol_debug_mode defined bit(1) packed unaligned dcl 1-102 cobol_decimal_point_character defined char(1) packed unaligned dcl 1-35 cobol_dp_sw defined bit(1) packed unaligned dcl 1-98 cobol_elnp_sw defined bit(1) packed unaligned dcl 1-96 cobol_elt_buf_ptr defined pointer dcl 1-24 cobol_elt_idx defined fixed bin(17,0) dcl 1-60 cobol_ext_lex$cobol_allo_init_sw external static bit(1) packed unaligned dcl 1-81 cobol_ext_lex$cobol_c_l_n external static fixed bin(17,0) dcl 1-47 cobol_ext_lex$cobol_cards external static structure level 1 unaligned dcl 1-64 cobol_ext_lex$cobol_cfp external static pointer dcl 1-19 cobol_ext_lex$cobol_comma_character external static char(1) packed unaligned dcl 1-32 cobol_ext_lex$cobol_continuation external static bit(1) packed unaligned dcl 1-77 cobol_ext_lex$cobol_copy_active external static bit(1) packed unaligned dcl 1-109 cobol_ext_lex$cobol_copy_found external static bit(1) packed unaligned dcl 1-91 cobol_ext_lex$cobol_debug_mode external static bit(1) packed unaligned dcl 1-101 cobol_ext_lex$cobol_decimal_point_character external static char(1) packed unaligned dcl 1-34 cobol_ext_lex$cobol_dp_sw external static bit(1) packed unaligned dcl 1-97 cobol_ext_lex$cobol_elnp_sw external static bit(1) packed unaligned dcl 1-95 cobol_ext_lex$cobol_elt_buf_ptr external static pointer dcl 1-23 cobol_ext_lex$cobol_elt_idx external static fixed bin(17,0) dcl 1-59 cobol_ext_lex$cobol_frst external static pointer dcl 1-13 cobol_ext_lex$cobol_head_words external static bit(1) array packed unaligned dcl 1-93 cobol_ext_lex$cobol_init_ta_sw external static bit(1) packed unaligned dcl 1-105 cobol_ext_lex$cobol_lex_exit external static label variable dcl 1-25 cobol_ext_lex$cobol_ln_sw external static bit(1) array packed unaligned dcl 1-111 cobol_ext_lex$cobol_lu_sw external static bit(1) packed unaligned dcl 1-83 cobol_ext_lex$cobol_mfp external static pointer dcl 1-15 cobol_ext_lex$cobol_name_number external static fixed bin(17,0) dcl 1-53 cobol_ext_lex$cobol_new_line_character external static char(1) packed unaligned dcl 1-36 cobol_ext_lex$cobol_output_sw external static bit(1) packed unaligned dcl 1-87 cobol_ext_lex$cobol_pic_switch external static bit(1) packed unaligned dcl 1-79 cobol_ext_lex$cobol_prime_sw external static bit(1) packed unaligned dcl 1-113 cobol_ext_lex$cobol_progid_sw external static bit(1) packed unaligned dcl 1-117 cobol_ext_lex$cobol_rec1_sw external static bit(1) array packed unaligned dcl 1-115 cobol_ext_lex$cobol_rep_sw external static bit(1) packed unaligned dcl 1-107 cobol_ext_lex$cobol_rt_ptr external static pointer dcl 1-17 cobol_ext_lex$cobol_rwt_init_sw external static bit(1) packed unaligned dcl 1-103 cobol_ext_lex$cobol_save_cln external static fixed bin(17,0) dcl 1-49 cobol_ext_lex$cobol_save_col external static fixed bin(17,0) dcl 1-51 cobol_ext_lex$cobol_scanoff_sw external static bit(1) packed unaligned dcl 1-85 cobol_ext_lex$cobol_section_number external static fixed bin(17,0) dcl 1-55 cobol_ext_lex$cobol_si_key external static char(5) packed unaligned dcl 1-38 cobol_ext_lex$cobol_so_key external static char(5) packed unaligned dcl 1-40 cobol_ext_lex$cobol_sr external static fixed bin(17,0) dcl 1-57 cobol_ext_lex$cobol_stack_sw external static bit(1) packed unaligned dcl 1-89 cobol_ext_lex$cobol_ta_ptr external static pointer dcl 1-21 cobol_ext_lex$cobol_tarea external static char(300) packed unaligned dcl 1-30 cobol_ext_lex$cobol_top external static pointer dcl 1-11 cobol_ext_lex$ph_num external static fixed bin(17,0) dcl 1-45 cobol_ext_lex$processing_report external static bit(1) packed unaligned dcl 1-73 cobol_ext_lex$real_end_report external static bit(1) packed unaligned dcl 1-75 cobol_frst defined pointer dcl 1-14 cobol_head_words defined bit(1) array packed unaligned dcl 1-94 cobol_init_ta_sw defined bit(1) packed unaligned dcl 1-106 cobol_lex_exit defined label variable dcl 1-26 cobol_ln_sw defined bit(1) array packed unaligned dcl 1-112 cobol_lu_sw defined bit(1) packed unaligned dcl 1-84 cobol_mfp defined pointer dcl 1-16 cobol_name_number defined fixed bin(17,0) dcl 1-54 cobol_new_line_character defined char(1) packed unaligned dcl 1-37 cobol_output_sw defined bit(1) packed unaligned dcl 1-88 cobol_pic_switch defined bit(1) packed unaligned dcl 1-80 cobol_prime_sw defined bit(1) packed unaligned dcl 1-114 cobol_progid_sw defined bit(1) packed unaligned dcl 1-118 cobol_rec1_sw defined bit(1) array packed unaligned dcl 1-116 cobol_rep_sw defined bit(1) packed unaligned dcl 1-108 cobol_rt_ptr defined pointer dcl 1-18 cobol_rwt_init_sw defined bit(1) packed unaligned dcl 1-104 cobol_save_cln defined fixed bin(17,0) dcl 1-50 cobol_save_col defined fixed bin(17,0) dcl 1-52 cobol_scanoff_sw defined bit(1) packed unaligned dcl 1-86 cobol_section_number defined fixed bin(17,0) dcl 1-56 cobol_si_key defined char(5) packed unaligned dcl 1-39 cobol_so_key defined char(5) packed unaligned dcl 1-41 cobol_sr defined fixed bin(17,0) dcl 1-58 cobol_stack_sw defined bit(1) packed unaligned dcl 1-90 cobol_ta_ptr defined pointer dcl 1-22 cobol_tarea defined char(300) packed unaligned dcl 1-31 cobol_top defined pointer dcl 1-12 ph_num defined fixed bin(17,0) dcl 1-46 processing_report defined bit(1) packed unaligned dcl 1-74 real_end_report defined bit(1) packed unaligned dcl 1-76 NAME DECLARED BY EXPLICIT CONTEXT. cobol_gns1 000001 constant entry external dcl 26 THERE WERE NO NAMES DECLARED BY CONTEXT OR IMPLICATION. STORAGE REQUIREMENTS FOR THIS PROGRAM. Object Text Link Symbol Defs Static Start 0 0 120 140 34 130 Length 322 34 20 145 64 0 BLOCK NAME STACK SIZE TYPE WHY NONQUICK/WHO SHARES STACK FRAME cobol_gns1 64 external procedure is an external procedure. THE FOLLOWING EXTERNAL OPERATORS ARE USED BY THIS PROGRAM. call_ext_out return_mac ext_entry THE FOLLOWING EXTERNAL ENTRIES ARE CALLED BY THIS PROGRAM. cobol_gns cobol_res_words THE FOLLOWING EXTERNAL VARIABLES ARE USED BY THIS PROGRAM. cobol_ext_lex$cobol_current cobol_ext_lex$cobol_endprog_sw LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC 26 000000 50 000006 53 000012 55 000016 62 000033 ----------------------------------------------------------- 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