COMPILATION LISTING OF SEGMENT dmpr_unlock_pv Compiled by: Multics PL/I Compiler, Release 27d, of October 11, 1982 Compiled at: Honeywell LISD Phoenix, System M Compiled on: 11/15/82 1748.3 mst Mon Options: optimize map 1 /* *********************************************************** 2* * * 3* * Copyright, (C) Honeywell Information Systems Inc., 1982 * 4* * * 5* * Copyright (c) 1972 by Massachusetts Institute of * 6* * Technology and Honeywell Information Systems, Inc. * 7* * * 8* *********************************************************** */ 9 10 11 dmpr_unlock_pv: proc; 12 13 dcl pvname char (32); 14 dcl pvid bit (36); 15 dcl lvname char (32); 16 dcl lvid bit (36); 17 dcl argp ptr; 18 dcl argl fixed bin; 19 dcl device_type fixed bin; 20 dcl dtype fixed bin; 21 dcl arg char (argl) based (argp); 22 dcl code fixed bin (35); 23 dcl narg fixed bin; 24 25 dcl myname char (32) int static init ("dmpr_unlock_pv") options (constant); 26 27 dcl linkage_error condition; 28 29 dcl error_table_$badopt fixed bin (35) ext; 30 31 dcl cu_$arg_count entry (fixed bin); 32 dcl cu_$arg_ptr entry (fixed bin, ptr, fixed bin, fixed bin (35)); 33 dcl com_err_ entry options (variable); 34 dcl ioa_ entry options (variable); 35 dcl mdc_$pvname_info entry (char (*), bit (36), char (*), bit (36), fixed bin, fixed bin (35)); 36 dcl hc_backup_$dmpr_unlock_pv entry (bit (36), fixed bin, fixed bin (35)); 37 1 1 /* BEGIN INCLUDE FILE ... backup_static_variables.incl.pl1 ... March 1976 */ 1 2 1 3 1 4 dcl incr fixed bin init (1) internal static options (constant); /* incremental dump mode */ 1 5 dcl cons fixed bin init (2) internal static options (constant); /* consolidated dump mode */ 1 6 dcl comp fixed bin init (3) internal static options (constant); /* complete dump mode */ 1 7 dcl backup_version_1 fixed bin init (1) static internal options (constant); /* backup_version_1 of input/output structures */ 1 8 1 9 1 10 1 11 /* END INCLUDE FILE ... backup_static_variables.incl.pl1 */ 38 39 code = 0; 40 call cu_$arg_count (narg); 41 if narg ^= 2 then do; 42 call com_err_ (0, myname, "Usage: dmpr_unlock_pv pvname dump_type"); 43 return; 44 end; 45 call cu_$arg_ptr (1, argp, argl, code); 46 if code ^= 0 then goto err;; 47 pvname = arg; 48 call mdc_$pvname_info (pvname, pvid, lvname, lvid, device_type, code); 49 if code ^= 0 then do; 50 call com_err_ (code, myname, "^a", pvname); 51 return; 52 end; 53 call cu_$arg_ptr (2, argp, argl, code); 54 if code ^= 0 then goto err; 55 if arg = "-incr" | arg = "-incremental" then dtype = incr; 56 else if arg = "-cons" | arg = "-consolidated" then dtype = cons; 57 else if arg = "-comp" | arg = "-complete" then dtype = comp; 58 else do; 59 call com_err_ (error_table_$badopt, myname, "^a", arg); 60 return; 61 end; 62 on linkage_error begin; 63 call ioa_ ("Incorrect access to privilidged gate hc_backup_"); 64 goto finish; 65 end; 66 67 call hc_backup_$dmpr_unlock_pv (pvid, dtype, code); 68 if code ^= 0 then goto err; 69 70 finish: 71 return; 72 73 err: 74 call com_err_ (code, myname); 75 goto finish; 76 77 end dmpr_unlock_pv; SOURCE FILES USED IN THIS COMPILATION. LINE NUMBER DATE MODIFIED NAME PATHNAME 0 11/15/82 1529.5 dmpr_unlock_pv.pl1 >dumps>old>recomp>dmpr_unlock_pv.pl1 38 1 09/05/80 1136.5 backup_static_variables.incl.pl1 >ldd>include>backup_static_variables.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. arg based char unaligned dcl 21 set ref 47 55 55 56 56 57 57 59* argl 000124 automatic fixed bin(17,0) dcl 18 set ref 45* 47 53* 55 55 56 56 57 57 59 59 argp 000122 automatic pointer dcl 17 set ref 45* 47 53* 55 55 56 56 57 57 59 code 000127 automatic fixed bin(35,0) dcl 22 set ref 39* 45* 46 48* 49 50* 53* 54 67* 68 73* com_err_ 000016 constant entry external dcl 33 ref 42 50 59 73 comp constant fixed bin(17,0) initial dcl 1-6 ref 57 cons constant fixed bin(17,0) initial dcl 1-5 ref 56 cu_$arg_count 000012 constant entry external dcl 31 ref 40 cu_$arg_ptr 000014 constant entry external dcl 32 ref 45 53 device_type 000125 automatic fixed bin(17,0) dcl 19 set ref 48* dtype 000126 automatic fixed bin(17,0) dcl 20 set ref 55* 56* 57* 67* error_table_$badopt 000010 external static fixed bin(35,0) dcl 29 set ref 59* hc_backup_$dmpr_unlock_pv 000024 constant entry external dcl 36 ref 67 incr constant fixed bin(17,0) initial dcl 1-4 ref 55 ioa_ 000020 constant entry external dcl 34 ref 63 linkage_error 000132 stack reference condition dcl 27 ref 62 lvid 000121 automatic bit(36) unaligned dcl 16 set ref 48* lvname 000111 automatic char(32) unaligned dcl 15 set ref 48* mdc_$pvname_info 000022 constant entry external dcl 35 ref 48 myname 000000 constant char(32) initial unaligned dcl 25 set ref 42* 50* 59* 73* narg 000130 automatic fixed bin(17,0) dcl 23 set ref 40* 41 pvid 000110 automatic bit(36) unaligned dcl 14 set ref 48* 67* pvname 000100 automatic char(32) unaligned dcl 13 set ref 47* 48* 50* NAME DECLARED BY DECLARE STATEMENT AND NEVER REFERENCED. backup_version_1 internal static fixed bin(17,0) initial dcl 1-7 NAMES DECLARED BY EXPLICIT CONTEXT. dmpr_unlock_pv 000075 constant entry external dcl 11 err 000443 constant label dcl 73 ref 46 54 68 finish 000442 constant label dcl 70 ref 64 75 THERE WERE NO NAMES DECLARED BY CONTEXT OR IMPLICATION. STORAGE REQUIREMENTS FOR THIS PROGRAM. Object Text Link Symbol Defs Static Start 0 0 574 622 461 604 Length 1020 461 26 162 112 0 BLOCK NAME STACK SIZE TYPE WHY NONQUICK/WHO SHARES STACK FRAME dmpr_unlock_pv 152 external procedure is an external procedure. on unit on line 62 82 on unit STORAGE FOR AUTOMATIC VARIABLES. STACK FRAME LOC IDENTIFIER BLOCK NAME dmpr_unlock_pv 000100 pvname dmpr_unlock_pv 000110 pvid dmpr_unlock_pv 000111 lvname dmpr_unlock_pv 000121 lvid dmpr_unlock_pv 000122 argp dmpr_unlock_pv 000124 argl dmpr_unlock_pv 000125 device_type dmpr_unlock_pv 000126 dtype dmpr_unlock_pv 000127 code dmpr_unlock_pv 000130 narg dmpr_unlock_pv THE FOLLOWING EXTERNAL OPERATORS ARE USED BY THIS PROGRAM. call_ext_out_desc call_ext_out return tra_ext enable ext_entry int_entry THE FOLLOWING EXTERNAL ENTRIES ARE CALLED BY THIS PROGRAM. com_err_ cu_$arg_count cu_$arg_ptr hc_backup_$dmpr_unlock_pv ioa_ mdc_$pvname_info THE FOLLOWING EXTERNAL VARIABLES ARE USED BY THIS PROGRAM. error_table_$badopt LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC 11 000074 39 000102 40 000103 41 000111 42 000114 43 000141 45 000142 46 000161 47 000163 48 000170 49 000223 50 000225 51 000253 53 000254 54 000273 55 000275 56 000312 57 000325 59 000340 60 000372 62 000373 63 000407 64 000422 67 000425 68 000440 70 000442 73 000443 75 000460 ----------------------------------------------------------- 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