COMPILATION LISTING OF SEGMENT cobol_display_util 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 0935.3 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_display_util.pl1 Reformatted code to new Cobol standard. 19* END HISTORY COMMENTS */ 20 21 22 /* Modified on 10/21/82 by FCH, [5.1-1], incorrect dimension changed */ 23 /* Modified on 5/10/76 by George Mercuri for change to error handling. */ 24 /* Modified on 5/5/76 by George Mercuri for error handling techniques. */ 25 /* Created on 4/29/76 by George Mercuri for the call to DISPLAY operators. */ 26 /* format: style3 */ 27 cobol_display_util: 28 proc (erroroff, stoff); 29 30 disp: 31 entry (erroroff, stoff); 32 33 dcl erroroff fixed bin; /* erroroff 10 =user_output, 11 =error_output. */ 34 dcl stoff fixed bin; /* [5.1-1] */ 35 dcl disp_instr (2) bit (36) static init ("110000000000000000011111001101000000"b, 36 /* epp5 pr6| */ 37 "100000000000110000011101001101000000"b); 38 /* epp1 pr4|offset=60,62 */ 39 dcl disp_reloc (4) bit (5) aligned static init (""b, ""b, ""b, ""b); 40 dcl stz_instr (1) bit (36) static init ("110000000000101100100101000001000000"b); 41 /* stz pr6|54 */ 42 43 44 dcl cobol_emit entry (ptr, ptr, fixed bin); 45 46 47 /***************************************/ 48 start: 49 substr (disp_instr (1), 4, 15) = substr (unspec (stoff), 22, 15); 50 substr (disp_instr (2), 4, 15) = substr (unspec (erroroff), 22, 15); 51 52 call cobol_emit (addr (disp_instr), addr (disp_reloc), 2); 53 54 return; 55 56 57 /***************************************/ 58 59 set_stz: 60 entry; 61 62 63 call cobol_emit (addr (stz_instr), null (), 1); 64 65 return; 66 67 /****** Declaration for Builtin function *****/ 68 69 dcl (substr, mod, binary, fixed, addr, addrel, rel, length, string, unspec, null, index) 70 builtin; 71 72 /***** End of declaration dor builtin function *****/ 73 74 end cobol_display_util; SOURCE FILES USED IN THIS COMPILATION. LINE NUMBER DATE MODIFIED NAME PATHNAME 0 05/24/89 0830.2 cobol_display_util.pl1 >spec>install>MR12.3-1048>cobol_display_util.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. addr builtin function dcl 69 ref 52 52 52 52 63 63 cobol_emit 000020 constant entry external dcl 44 ref 52 63 disp_instr 000010 internal static bit(36) initial array packed unaligned dcl 35 set ref 48* 50* 52 52 disp_reloc 000012 internal static bit(5) initial array dcl 39 set ref 52 52 erroroff parameter fixed bin(17,0) dcl 33 ref 27 30 50 null builtin function dcl 69 ref 63 63 stoff parameter fixed bin(17,0) dcl 34 ref 27 30 48 stz_instr 000016 internal static bit(36) initial array packed unaligned dcl 40 set ref 63 63 substr builtin function dcl 69 set ref 48* 48 50* 50 unspec builtin function dcl 69 ref 48 50 NAMES DECLARED BY DECLARE STATEMENT AND NEVER REFERENCED. addrel builtin function dcl 69 binary builtin function dcl 69 fixed builtin function dcl 69 index builtin function dcl 69 length builtin function dcl 69 mod builtin function dcl 69 rel builtin function dcl 69 string builtin function dcl 69 NAMES DECLARED BY EXPLICIT CONTEXT. cobol_display_util 000010 constant entry external dcl 27 disp 000020 constant entry external dcl 30 set_stz 000062 constant entry external dcl 59 start 000025 constant label dcl 48 THERE WERE NO NAMES DECLARED BY CONTEXT OR IMPLICATION. STORAGE REQUIREMENTS FOR THIS PROGRAM. Object Text Link Symbol Defs Static Start 0 0 160 202 111 170 Length 356 111 22 137 46 10 BLOCK NAME STACK SIZE TYPE WHY NONQUICK/WHO SHARES STACK FRAME cobol_display_util 78 external procedure is an external procedure. STORAGE FOR INTERNAL STATIC VARIABLES. LOC IDENTIFIER BLOCK NAME 000010 disp_instr cobol_display_util 000012 disp_reloc cobol_display_util 000016 stz_instr cobol_display_util 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_emit NO EXTERNAL VARIABLES ARE USED BY THIS PROGRAM. LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC 27 000004 30 000015 48 000025 50 000033 52 000040 54 000060 59 000061 63 000067 65 000110 ----------------------------------------------------------- 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