COMPILATION LISTING OF SEGMENT reloader Compiled by: Multics PL/I Compiler, Release 32f, of October 9, 1989 Compiled at: Bull HN, Phoenix AZ, System-M Compiled on: 11/11/89 1000.2 mst Sat Options: optimize list 1 /****^ *********************************************************** 2* * * 3* * Copyright, (C) BULL HN Information Systems Inc., 1989 * 4* * * 5* * Copyright, (C) Honeywell Bull Inc., 1987 * 6* * * 7* * Copyright, (C) Honeywell Information Systems Inc., 1982 * 8* * * 9* * Copyright (c) 1972 by Massachusetts Institute of * 10* * Technology and Honeywell Information Systems, Inc. * 11* * * 12* *********************************************************** */ 13 14 15 16 /****^ HISTORY COMMENTS: 17* 1) change(86-01-15,Fawcett), approve(86-04-11,MCR7383), 18* audit(86-06-03,GWMay), install(86-07-17,MR12.0-1097): 19* Add support for 512_WORD_IO devices. 20* 2) change(88-10-05,GWMay), approve(88-10-05,MCR8005), audit(88-10-12,Farley), 21* install(88-10-17,MR12.2-1173): 22* Added administrative calls to support one additional temporary work 23* segment. Changed the call to reload_volume_ to used the correct number of 24* parameters. 25* 3) change(89-08-31,GWMay), approve(89-10-03,MCR8135), 26* audit(89-10-04,Beattie), install(89-10-10,MR12.3-1089): 27* Updated to process version 3 for backup_volume_log.incl.pl1 structures. 28* END HISTORY COMMENTS */ 29 30 31 /* format: style1,ind2,^inddcls,ifthenstmt,dclind2,declareind2,ifthendo,ifthen*/ 32 33 reloader: proc; 34 35 /* This routine is the main control program of the volume reloader. We initialize the control 36* structure, and read and process the control arguments. We then get info about the physical volume to 37* be reloaded and calculate some parameters that are used to convert disk sector address 38* to Multics record numbers. We then create the needed temp segs and set the external pointers. 39* We then create the control seg which will be used to restart the reload if it should be interrupted. Next we 40* determine the list of dump volumes that must be read and in what order to recreate the logical image the 41* the physical volume to be reloaded. We then initialize the output attachment and initialize the label, 42* volume map, and vtoc header data bases. Finally we compare the label info in the volume log with that on the 43* pre-initialized output medium and if we find a problems we query the operator as to whether he wants 44* to proceed. If so we reload the physical volume, build the VTOC map, and update 45* the vtoc header, the volume map, and the label. Just a nice straigth foward program. */ 46 47 /* 48* Modified April 1982 by J. Bongiovanni for new pack layout 49* Modified Feburary 1983 by E. N. Kittlitz for 256K segments. 50* Modified 3/1/83 by GA Texada for multiple physical volume reloading. 51* Modified 3/5/84 by GA Texada to fix hardcore 630, which simply deletes the 52* control seg when no -restart specified and one exisites. Changed 53* to continue the reload and make restart a per pv attribute. 54* Modified 3/6/84 by GA Texada to allow for reloading of 'stranger' physical volumes. 55* 56**/ 57 58 reload_volume: entry; 59 60 dcl Area area based (areap); 61 dcl (areap, argp) ptr; 62 dcl (code, ignore) fixed bin (35); 63 dcl dev_idx fixed bin; 64 dcl lvname char (32) aligned; 65 dcl time_string char (24); 66 dcl (ename, control_name) char (32); 67 dcl (cln, enl, i, pvindex, vtocx) fixed bin; 68 dcl mounted_rpv_pvid bit (36); 69 dcl time_unmounted fixed bin (71); 70 dcl (YES, found_restart, dont_query_restart, pvid_missing, version_1_found, volog_missing) bit (1); 71 72 dcl 1 local_vtoce like vtoce aligned; 73 74 dcl tp2 (2) ptr; 75 dcl tp6 (6) ptr; 76 77 dcl error_table_$entlong fixed bin (35) ext; 78 dcl error_table_$improper_data_format ext fixed bin (35); 79 dcl error_table_$namedup ext fixed bin (35); 80 dcl error_table_$segknown ext fixed bin (35); 81 dcl sys_info$seg_size_256K fixed bin (19) ext static; 82 dcl myname char (32) static int init ("reload_volume") options (constant); 83 84 dcl hcs_$initiate entry (char (*), char (*), char (*), fixed bin, fixed bin, ptr, fixed bin (35)); 85 dcl hcs_$set_max_length_seg entry (ptr, fixed bin (19), fixed bin (35)); 86 dcl ioa_$rsnnl entry options (variable); 87 dcl hcs_$level_get entry returns (fixed bin); 88 dcl get_group_id_ entry returns (char (32)); 89 dcl get_system_free_area_ entry () returns (ptr); 90 dcl hcs_$delentry_seg entry (ptr, fixed bin (35)); 91 dcl hcs_$make_seg entry (char (*), char (*), char (*), fixed bin (5), ptr, fixed bin (35)); 92 dcl hcs_$fs_search_get_wdir entry (ptr, fixed bin (35)); 93 dcl hcs_$set_256K_switch entry (bit (2) aligned, bit (2) aligned, fixed bin (35)); 94 dcl cu_$arg_list_ptr entry (ptr); 95 dcl command_query_$yes_no entry options (variable); 96 dcl mdc_$pvname_info entry (char (*) aligned, bit (36) aligned, char (*) aligned, bit (36) aligned, 97 fixed bin, fixed bin (35)); 98 dcl rldr_arg_reader_ entry (ptr, ptr, fixed bin (35)); 99 dcl rldr_check_pvol_ entry (ptr, fixed bin, fixed bin (35)); 100 dcl rldr_label_$open entry (ptr, fixed bin, fixed bin (35)); 101 dcl rldr_label_$close entry (ptr, fixed bin, fixed bin (35)); 102 dcl get_temp_segments_ entry (char (*), (*) ptr, fixed bin (35)); 103 dcl date_time_ entry (fixed bin (71), char (*)); 104 dcl rldr_input_$init_volume_list entry (ptr, fixed bin (35)); 105 dcl rldr_output_$init entry (ptr, fixed bin, fixed bin (35)); 106 dcl reload_volume_ entry (ptr, fixed bin (35)); 107 dcl rldr_vtoc_header_$open entry (ptr, fixed bin, fixed bin (35)); 108 dcl rldr_vtoc_header_$close entry (ptr, fixed bin, fixed bin (35)); 109 dcl rldr_vtoc_header_$build_vtoc_map entry (ptr, fixed bin, fixed bin (35)); 110 dcl rldr_volume_map_$open entry (ptr, fixed bin, fixed bin (35)); 111 dcl rldr_volume_map_$close entry (ptr, fixed bin, fixed bin (35)); 112 dcl rldr_finish_ entry (ptr, ptr, fixed bin (35)); 113 dcl rldr_report_$error_output entry options (variable); 114 dcl rldr_report_$online_output entry options (variable); 115 dcl rldr_output_$read_vtoce entry (ptr, fixed bin, ptr, fixed bin, fixed bin, fixed bin (35)); 116 117 dcl (cleanup, seg_fault_error) condition; 118 119 dcl (addr, clock, divide, null, search, substr) builtin; 120 121 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 122 123 124 /* init control structure */ 125 areap, rldr_datap = null (); 126 /* setup cleanup handler */ 127 on cleanup call rldr_finish_ (rldr_datap, areap, ignore); 128 /* init local variables */ 129 call get_max_pvs (rldr_data_max_pvs, code); /* get the pvt and set up for allocation */ 130 if code ^= 0 then rldr_data_max_pvs = 100; /* just in case */ 131 areap = get_system_free_area_ (); 132 allocate rldr_data_ in (Area) set (rldr_datap); 133 rldr_data_.ptrs = null (); 134 rldr_data_.bits = "0"b; 135 rldr_data_.fixed = 0; 136 rldr_data_.chars = ""; 137 rldr_data_.detach = "1"b; 138 rldr_data_.first_volume = "1"b; 139 rldr_data_.sys_dir, 140 rldr_data_.default_sys_dir = ">daemon_dir_dir>volume_backup"; 141 rldr_data_.io_module = "tape_mult_"; 142 rldr_data_.old_256K_switch = ""b; 143 144 do pvindex = 1 to rldr_data_max_pvs; /* initialize the per pv info */ 145 rldr_data_.per_pv (pvindex) = rldr_data_nulled_pv; 146 rldr_data_.prev_wordx (pvindex) = 1; 147 rldr_data_.prev_bitx (pvindex) = 2; 148 end; 149 call hcs_$set_256K_switch ("11"b, rldr_data_.old_256K_switch, code); 150 if code ^= 0 then do; 151 call rldr_report_$error_output (rldr_datap, code, myname, "Could not enable 256KW segments."); 152 goto err; 153 end; 154 rldr_data_.data_init = "1"b; 155 code = 0; 156 query_info.version = query_info_version_5; 157 call cu_$arg_list_ptr (argp); 158 if argp = null () then do; /* no, no, no, we need something! */ 159 call rldr_report_$error_output (rldr_datap, 0, myname, "This command requires arguments, please consult AM81 (MOH) for information."); 160 goto err; 161 end; 162 call rldr_arg_reader_ (rldr_datap, argp, code); 163 if code ^= 0 then goto err; 164 rldr_data_.arg_init = "1"b; 165 if rldr_data_.operator = "" | rldr_data_.npvs <= 0 then do; 166 if ((rldr_data_.operator = "") & (rldr_data_.npvs <= 0)) then 167 call rldr_report_$error_output (rldr_datap, 0, myname, "Operator name and physical volume name not specified"); 168 else if (rldr_data_.operator = "") then 169 call rldr_report_$error_output (rldr_datap, 0, myname, "Operator name not specified"); 170 else call rldr_report_$error_output (rldr_datap, 0, myname, "Physical volume name not specified."); 171 goto err; 172 end; 173 found_restart, volog_missing, version_1_found = "0"b; 174 do i = 1 to rldr_data_.npvs; /* just do this all at once */ 175 call find_volog (i); /* or else we could have many many vologs missing */ 176 end; /* user would have to reinvoke reload_volume once for each*/ 177 if volog_missing then do; /* this is set by find_volog if it can't find */ 178 call rldr_report_$online_output (rldr_datap, 0, myname, "Please start volume log recovery procedure"); 179 goto finish; 180 end; 181 182 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 183 /* */ 184 /* Here, if we have found any version 1 vologs, then everything MUST belong to the */ 185 /* mounted RPV, except if we are reloading an rpv. In that case, it must be the only pv */ 186 /* being reloaded. This is exactly a'la MR10.2. This support of version 1 volume logs */ 187 /* will disappear in MR12. */ 188 /* */ 189 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 190 191 if version_1_found then do; 192 call mdc_$pvname_info ("rpv", rldr_data_.rpv_pvid, lvname, rldr_data_.rpv_lvid, 193 rldr_data_.rpv_disk_type, code); 194 if code ^= 0 then do; 195 call rldr_report_$error_output (rldr_datap, code, myname, "Unable to get info about rpv"); 196 goto err; 197 end; 198 mounted_rpv_pvid = rldr_data_.rpv_pvid; 199 if rldr_data_.rpv then do; /* ok if rpv being reloaded, be sure he's alone */ 200 if rldr_data_.npvs > 1 then do; 201 call rldr_report_$error_output (rldr_datap, 0, myname, 202 "An implementation restriction when using version 1 volume logs. 203 This requires that the RPV be reloaded separately from other volumes."); 204 goto err; 205 end; 206 bvlp = rldr_data_.per_pv (1).bvlp; /* if RPV then this is his volume log */ 207 rldr_data_.rpv_pvid = backup_volume_log.info.pvid; 208 rldr_data_.rpv_lvid = backup_volume_log.info.lvid; 209 rldr_data_.disk_type (1) = rldr_data_.rpv_disk_type; 210 rldr_data_.lvname (1) = lvname; 211 end; 212 else do; /* ok, not doing the RPV, all must belong to mounted RPV*/ 213 do pvindex = 1 to rldr_data_.npvs; 214 pvid_missing = "0"b; /* check if pvname registered and get type and pvid */ 215 do i = 1 to rldr_data_.npvs; /* do this once for the entire list */ 216 call mdc_$pvname_info (rldr_data_.pvname (i), rldr_data_.pvid (i), 217 rldr_data_.lvname (i), rldr_data_.lvid (i), rldr_data_.disk_type (i), code); 218 if code ^= 0 then do; 219 call rldr_report_$error_output (rldr_datap, code, myname, "Unable to determine pvid for ^a", 220 rldr_data_.pvname (i)); 221 pvid_missing = "1"b; 222 end; 223 end; 224 if pvid_missing then goto err; 225 end; 226 end; 227 rldr_data_.stranger = ^(rldr_data_.rpv_pvid = mounted_rpv_pvid); 228 /* do rldr_input_ knows */ 229 end; /* end version 1 stuff */ 230 231 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 232 /* */ 233 /* This is the section that allows for 'stranger' physical volume reloading. It is */ 234 /* executed only if all volume logs were version 2. */ 235 /* */ 236 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 237 else do; 238 call mdc_$pvname_info ("rpv", rldr_data_.rpv_pvid, lvname, rldr_data_.rpv_lvid, rldr_data_.rpv_disk_type, code); 239 if code ^= 0 then do; 240 call rldr_report_$error_output (rldr_datap, code, myname, "Unable to get info about rpv"); 241 goto err; 242 end; 243 mounted_rpv_pvid = rldr_data_.rpv_pvid; 244 rldr_data_.rpv_pvid = "0"b; 245 if rldr_data_.sys_dir ^= rldr_data_.default_sys_dir then do; /* -working_dir specified */ 246 if rldr_data_.rpv then do; /* find the RPV */ 247 do i = 1 to rldr_data_.npvs while (rldr_data_.per_pv (i).pvname ^= "rpv"); 248 end; 249 bvlp = rldr_data_.per_pv (i).bvlp; /* point to his volume log */ 250 rldr_data_.rpv_pvid = backup_volume_log.pvid; 251 rldr_data_.rpv_lvid = backup_volume_log.info.lvid; 252 goto got_rpvid; 253 end; 254 else do; /* RPV not in he list, pick the first */ 255 bvlp = rldr_data_.per_pv (1).bvlp; /* point to the volume log */ 256 rldr_data_.rpv_pvid = backup_volume_log.rpv_pvid; 257 end; 258 end; /* end wd mode */ 259 if rldr_data_.rpv_pvid = "0"b then /* must belong to mounted RPV */ 260 rldr_data_.rpv_pvid = mounted_rpv_pvid; 261 got_rpvid: 262 if (validate_all_vologs ()) then ; /* make sure all rpv_pvid's match in the vologs */ 263 else do; /* forget it... */ 264 call rldr_report_$error_output (rldr_datap, 0, myname, "The reload will be aborted."); 265 goto err; 266 end; 267 call fill_from_volog (); /* puts in the necessary per pv info */ 268 rldr_data_.stranger = ^(rldr_data_.rpv_pvid = mounted_rpv_pvid); 269 /* for rldr_input_ */ 270 end; /* end the version 2 stuff */ 271 272 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 273 /* Back to common code... */ 274 275 call get_temp_segments_ (myname, tp2, code); /* create temp segs */ 276 if code ^= 0 then do; 277 call rldr_report_$error_output (rldr_datap, code, myname, "Error creating temp segs "); 278 goto err; 279 end; 280 dont_query_restart = "0"b; 281 do pvindex = 1 to rldr_data_.npvs; 282 if rldr_data_.disk_model (pvindex) = "" then do; /* if caller did not specify use registration info */ 283 dev_idx = rldr_data_.disk_type (pvindex); 284 rldr_data_.usable_sectors (pvindex) = divide (sect_per_cyl (dev_idx), sect_per_rec (dev_idx), 17, 0) * sect_per_rec (dev_idx); 285 rldr_data_.unusable_sectors (pvindex) = 286 sect_per_cyl (dev_idx) - rldr_data_.usable_sectors (pvindex); 287 end; 288 rldr_data_.vtocbp (pvindex) = tp2 (1); 289 rldr_data_.labelp (pvindex) = tp2 (2); 290 cln = search (rldr_data_.pvname (pvindex), " ") - 1; /* create control seg to allow restart */ 291 if cln < 1 | cln > 24 then cln = 24; 292 control_name = substr (rldr_data_.pvname (pvindex), 1, cln) || ".control"; 293 remake_control_seg: 294 call hcs_$make_seg (wdir_ (), control_name, "", 01010b, rldr_data_.controlp (pvindex), code); 295 if code ^= 0 then do; 296 if rldr_data_.common.restart & (code = error_table_$segknown | code = error_table_$namedup) then code = 0; 297 else do; 298 call command_query_$yes_no (YES, 0, myname, 299 "A control segment was found for the specified physical volume, but -restart was not specified. 300 Do you wish a restart on the specified physical volume?", 301 "Control segment ^a exists but -restart not specified. Do you want a restart on the physical volume? ", 302 control_name); 303 if YES then found_restart, rldr_data_.per_pv (pvindex).restart = "1"b; 304 else do; /* ok, delete the old one, and make a new one */ 305 dont_query_restart = "1"b; 306 call hcs_$delentry_seg (rldr_data_.controlp (pvindex), ignore); 307 goto remake_control_seg; 308 end; 309 end; 310 end; /* end each pv */ 311 if ((rldr_data_.common.restart) & (^found_restart) & (^dont_query_restart)) then do; 312 /* -restart specified, but didn't find a control seg.*/ 313 call command_query_$yes_no (YES, 0, myname, 314 "The -restart control argument was specified, but no control segment was found. 315 A ""yes"" answer will continue with the reload, whereas a ""no"" answer will abort it. Continue the reload?", 316 "No control seg found for -restart control arg. Do you wish to continue with the reload?"); 317 if YES then rldr_data_.common.restart = "0"b; /* turn this off for rldr_input_ */ 318 else goto err; 319 end; 320 end; 321 do pvindex = 1 to rldr_data_.npvs; /* ok, let's go... */ 322 controlp = rldr_data_.controlp (pvindex); 323 rldr_data_.vol_mapp (pvindex) = addr (rldr_control.vol_map); 324 rldr_data_.vtoc_headerp (pvindex) = addr (rldr_control.vtoc_header); 325 rldr_data_.labelp (pvindex) = addr (rldr_control.label); 326 call rldr_output_$init (rldr_datap, pvindex, code); /* initialize output attachment */ 327 if code ^= 0 then do; 328 call rldr_report_$error_output (rldr_datap, code, myname, "Error initializing output medium, pv ^a", 329 rldr_data_.pvname (pvindex)); 330 goto err; 331 end; 332 if ^rldr_data_.per_pv.restart (pvindex) then do; /* initialize physical volume label data base */ 333 call rldr_label_$open (rldr_datap, pvindex, code); 334 if code ^= 0 then do; 335 call rldr_report_$error_output (rldr_datap, code, myname, "Label check failed for pv ^a", 336 rldr_data_.pvname (pvindex)); 337 goto err; 338 end; 339 call rldr_volume_map_$open (rldr_datap, pvindex, code); /* initialize volume map data base */ 340 if code ^= 0 then do; 341 call rldr_report_$error_output (rldr_datap, code, myname, "Error opening volume map for pv ^a", 342 rldr_data_.pvname (pvindex)); 343 goto err; 344 end; 345 call rldr_vtoc_header_$open (rldr_datap, pvindex, code); /* initialize vtoc header data base */ 346 if code ^= 0 then do; 347 call rldr_report_$error_output (rldr_datap, code, myname, "Unable to open vtoc header for pv ^a", 348 rldr_data_.pvname (pvindex)); 349 goto err; 350 end; 351 call rldr_check_pvol_ (rldr_datap, pvindex, code);/* cross check volume log and physical volume label */ 352 if code ^= 0 then do; 353 if code > 2 then do; 354 call rldr_report_$error_output (rldr_datap, 0, myname, 355 "Unable to reload volume ^a. Volog and volume label have fatal mismatch", 356 rldr_data_.pvname (pvindex)); 357 goto err; 358 end; 359 else do; 360 call command_query_$yes_no (YES, 0, myname, "", 361 "Initialized physical volume ^a does not match online logical image. Do you wish to proceed", 362 rldr_data_.pvname (pvindex)); 363 if ^YES then goto err; 364 end; 365 end; 366 if rldr_data_.save then call update_control_seg (); 367 end; 368 end; /* <- each physical volume */ 369 call get_temp_segments_ (myname, tp6, code); /* a few more of these and we can start */ 370 if code ^= 0 then do; 371 call rldr_report_$error_output (rldr_datap, code, myname, "Error creating temp segs "); 372 goto err; 373 end; 374 rldr_data_.volume_record_bp = tp6 (1); 375 rldr_data_.data_object_bp = tp6 (2); 376 rldr_data_.input_vol_lstp = tp6 (3); 377 rldr_data_.infop = tp6 (4); 378 rldr_data_.skip = tp6 (5); 379 rldr_data_.input_buffer_ptr = tp6 (6); 380 rldr_data_.input_buffer_len = 0; 381 call hcs_$set_max_length_seg (rldr_data_.data_object_bp, sys_info$seg_size_256K, code); 382 if code ^= 0 then do; 383 call rldr_report_$error_output (rldr_datap, code, myname, "Could not create 256KW temporary segment."); 384 goto err; 385 end; 386 387 call hcs_$set_max_length_seg (rldr_data_.input_buffer_ptr, 388 sys_info$seg_size_256K, code); 389 if code ^= 0 then do; 390 call rldr_report_$error_output (rldr_datap, code, myname, "Could not create 256KW temporary segment."); 391 goto err; 392 end; 393 394 call rldr_input_$init_volume_list (rldr_datap, code); /* generate list of dump volumes */ 395 if code ^= 0 then do; 396 call rldr_report_$error_output (rldr_datap, code, myname, "Error initializing input volume list "); 397 goto err; 398 end; 399 /* Inform the user */ 400 call rldr_report_$online_output (rldr_datap, 0, myname, "Begin reload of volume^[s^] ^v(^a ^) at ^a", 401 (rldr_data_.npvs > 1), rldr_data_.npvs, rldr_data_.pvname (*), time_now_ ()); 402 /* do the actual job */ 403 call reload_volume_ (rldr_datap, code); /* reload them all */ 404 if code ^= 0 then /* if code ^=0 then pvindex is one who failed. */ 405 call rldr_report_$error_output (rldr_datap, code, myname, "Error reloading volume ^a", rldr_data_.pvname (pvindex)); 406 do pvindex = 1 to rldr_data_.npvs; /* Build the VTOC Map, as init_vol set it to all-free */ 407 call rldr_vtoc_header_$build_vtoc_map (rldr_datap, pvindex, code); 408 if code ^= 0 then 409 call rldr_report_$error_output (rldr_datap, code, myname, "Unable to build VTOC map for pv ^a", 410 rldr_data_.pvname (pvindex)); 411 /* Update the vtoc header */ 412 call rldr_vtoc_header_$close (rldr_datap, pvindex, code); 413 if code ^= 0 then 414 call rldr_report_$error_output (rldr_datap, code, myname, "Error closing vtoc header for pv ^a", 415 rldr_data_.pvname (pvindex)); 416 /* Update the volume map */ 417 call rldr_volume_map_$close (rldr_datap, pvindex, code); 418 if code ^= 0 then 419 call rldr_report_$error_output (rldr_datap, code, myname, "Error closing volume map for pv ^a", 420 rldr_data_.pvname (pvindex)); 421 /* Update the label */ 422 call rldr_label_$close (rldr_datap, pvindex, code); 423 if code ^= 0 then 424 call rldr_report_$error_output (rldr_datap, code, myname, "Error closing volume label for pv ^a", 425 rldr_data_.pvname (pvindex)); 426 /* Inform the user */ 427 call rldr_report_$online_output (rldr_datap, 0, myname, "End reload of volume ^a at ^a", 428 rldr_data_.pvname (pvindex), time_now_ ()); 429 controlp = rldr_data_.controlp (pvindex); 430 call rldr_report_$online_output (rldr_datap, 0, myname, 431 "Reloaded on volume ^a ^d records of ^d directories and ^d records of ^d segments and ^d null vtoces", 432 rldr_data_.pvname (pvindex), rldr_control.dir_rec, rldr_control.dir_num, rldr_control.seg_rec, 433 rldr_control.seg_num, rldr_control.num_null_vtoce); 434 435 call hcs_$delentry_seg (rldr_data_.controlp (pvindex), ignore); /* all done so delete control seg */ 436 if hcs_$level_get () = 1 & get_group_id_ () = "Initializer.SysDaemon.z" 437 & rldr_data_.default_sys_dir ^= rldr_data_.sys_dir 438 then do; 439 call hcs_$delentry_seg (rldr_data_.bvlp (pvindex), ignore); /* delete temp volog */ 440 rldr_data_.bvlp (pvindex) = null (); /* and set for finish_ */ 441 end; 442 end; /* for each physical volume */ 443 444 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 445 446 end_reload_volume: entry; 447 finish: 448 /* clean up */ 449 call rldr_finish_ (rldr_datap, areap, ignore); /* releases temp segs and frees as required */ 450 return; 451 452 err: 453 do pvindex = 1 to rldr_data_.npvs; 454 if rldr_data_.controlp (pvindex) ^= null then call hcs_$delentry_seg (rldr_data_.controlp (pvindex), ignore); 455 end; 456 goto finish; 457 458 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 459 460 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 461 462 463 time_now_: proc returns (char (6)); 464 465 /* This proc returns a time string in a printable form */ 466 467 call date_time_ (clock (), time_string); 468 return (substr (time_string, 11, 6)); 469 end time_now_; 470 471 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 472 473 474 wdir_: proc returns (char (168) aligned); 475 476 /* This proc returns the working directory */ 477 478 dcl wdir char (168) aligned; 479 call hcs_$fs_search_get_wdir (addr (wdir), ignore); 480 return (wdir); 481 end wdir_; 482 483 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 484 485 update_control_seg: proc; 486 487 /* This proc updates the control seg look aside memory as if the data had been loaded from an input 488* volume via rldr_input_. Thus before the reload begins the control segment is up-to-date with 489* the data on the pack */ 490 491 vtocep = addr (local_vtoce); 492 labelp, old_labelp = rldr_data_.labelp (pvindex); 493 if label.volmap_version = 1 | label.volmap_version = 2 494 then time_unmounted = label.time_unmounted; 495 else time_unmounted = old_label.time_unmounted; 496 controlp = rldr_data_.controlp (pvindex); 497 vtoc_headerp = rldr_data_.vtoc_headerp (pvindex); 498 do vtocx = 0 to vtoc_header.n_vtoce - 1; 499 call rldr_output_$read_vtoce (rldr_datap, pvindex, vtocep, vtocx, 1, code); 500 if code ^= 0 then do; 501 call rldr_report_$online_output (rldr_datap, 0, code, myname, "Unable to read VTOCE ^o on pv ^a", vtocx, 502 rldr_data_.pvname (pvindex)); 503 goto err; 504 end; 505 rldr_control (vtocx).uid = vtoce.uid; 506 rldr_control (vtocx).time_dumped = time_unmounted; 507 end; 508 509 end update_control_seg; 510 511 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 512 513 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 514 515 516 find_volog: proc (i); 517 518 /* This proc attempts to locate the volog for the volume to be reloaded */ 519 dcl i fixed bin; 520 521 /* create volume log name */ 522 call ioa_$rsnnl ("^a.^a", ename, enl, rldr_data_.pvname (i), "volog"); 523 if enl > 32 then do; 524 code = error_table_$entlong; 525 goto vol_err; 526 end; 527 /* get ptr to volume log */ 528 call hcs_$initiate ((rldr_data_.sys_dir), ename, "", 0, 1, bvlp, code); 529 if bvlp = null then do; 530 vol_err: call rldr_report_$online_output (rldr_datap, code, myname, "Unable to locate valid volume log ^a^[>^]^a", 531 rldr_data_.sys_dir, rldr_data_.sys_dir ^= ">", ename); 532 volog_missing = "1"b; /* set for caller to check */ 533 return; 534 end; 535 /* check if object is a log */ 536 on seg_fault_error goto vol_err; 537 if (backup_volume_log.pvname = rldr_data_.pvname (i)) & ((backup_volume_log.version = backup_volume_log_version_1) 538 | (backup_volume_log.version = backup_volume_log_version_2) 539 | (backup_volume_log.version = backup_volume_log_version_3)) then 540 if ^version_1_found then version_1_found = /* if its been set once, leave it alone */ 541 (backup_volume_log.version = backup_volume_log_version_1); 542 else do; 543 code = error_table_$improper_data_format; 544 goto vol_err; 545 end; 546 revert seg_fault_error; 547 /* clear code and set ext ptr */ 548 code = 0; 549 rldr_data_.bvlp (i) = bvlp; 550 end find_volog; 551 552 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 553 554 555 get_max_pvs: proc (maxpvs, ec); 556 557 dcl ec fixed bin (35), 558 maxpvs fixed bin; 559 560 ec = -1; /* just for now */ 561 end get_max_pvs; 562 563 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 564 565 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 566 567 568 fill_from_volog: 569 proc (); 570 571 dcl i fixed bin; 572 573 do i = 1 to rldr_data_.npvs; 574 bvlp = rldr_data_.per_pv (i).bvlp; /* point to the volume log */ 575 rldr_data_.per_pv (i).pvid = backup_volume_log.pvid; 576 rldr_data_.per_pv (i).disk_type = backup_volume_log.disk_type; 577 rldr_data_.per_pv (i).lvid = backup_volume_log.info.lvid; 578 rldr_data_.per_pv (i).lvname = backup_volume_log.info.lv_name; 579 end; 580 581 end fill_from_volog; 582 583 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 584 585 586 validate_all_vologs: 587 proc () returns (bit (1)); 588 589 dcl i fixed bin; 590 dcl mismatch bit (1) init ("0"b); 591 592 593 do i = 1 to rldr_data_.npvs; 594 bvlp = rldr_data_.per_pv (i).bvlp; /* point at the volog */ 595 if backup_volume_log.rpv_pvid ^= rldr_data_.rpv_pvid then do; 596 mismatch = "1"b; /* flag to return */ 597 call rldr_report_$error_output (rldr_datap, 0, myname, 598 "The RPV pvid for physical volume ^a does not match the determined RPV pvid.", 599 rldr_data_.per_pv (i).pvname); 600 end; 601 end; 602 return (^mismatch); 603 end validate_all_vologs; 604 605 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 606 1 1 /* BEGIN INCLUDE FILE ... rldr_data_.incl.pl1 ... March 1976 */ 1 2 1 3 1 4 /****^ HISTORY COMMENTS: 1 5* 1) change(86-04-21,Fawcett), approve(86-04-21,MCR7383), 1 6* audit(86-05-22,GWMay), install(86-07-18,MR12.0-1098): 1 7* Add device_name to support the -pvname_device argument to reload. 1 8* 2) change(88-10-05,GWMay), approve(88-10-05,MCR8005), audit(88-10-12,Farley), 1 9* install(88-10-17,MR12.2-1173): 1 10* Added pointer and length values for use as an input_buffer for 1 11* intermediate reads. 1 12* END HISTORY COMMENTS */ 1 13 1 14 1 15 /* Severely modified 3/1/83 by GA Texada to support multiple physical */ 1 16 /* volume reloading. */ 1 17 /* Modified: 3/5/84 by GA Texada to make restart a per pv attribute */ 1 18 /* and add stranger flag. */ 1 19 1 20 /* format: style1,ind2,^inddcls,ifthenstmt,dclind2,declareind2,ifthendo,ifthen*/ 1 21 1 22 1 23 dcl rldr_datap ptr, 1 24 rldr_data_max_pvs fixed bin, 1 25 1 26 1 rldr_data_ aligned based (rldr_datap), 1 27 2 common like rldr_data_common, /* only one of each needed */ 1 28 2 per_pv (rldr_data_max_pvs refer (rldr_data_.npvs)) like rldr_data_perpv, 1 29 1 30 1 rldr_data_common aligned, 1 31 2 bits, 1 32 ( 3 save bit (1), /* if on can use disk pack restored by BOS */ 1 33 3 first_volume bit (1), /* if on indicates we are on first volume */ 1 34 3 rpv bit (1), /* if on indicates we are reloading rpv */ 1 35 3 data_init bit (1), /* if on data structure initialized to null state */ 1 36 3 arg_init bit (1), /* on if arguments have been processed */ 1 37 3 disable_error_report bit (1), /* if on will disable error messages */ 1 38 3 no_object bit (1), /* if on only vtoces will be reloaded */ 1 39 3 err_online bit (1), /* if on error messages written to error output */ 1 40 3 detach bit (1), /* if on attached media will be detached */ 1 41 3 brief bit (1), /* if on brief mode enabled */ 1 42 3 manual bit (1), /* if on operator will select input volumes */ 1 43 3 restart bit (1), /* -restart was supplied */ 1 44 3 stranger bit (1), /* ON if the pv's do not belong to the mounted RPV*/ 1 45 3 pad0 bit (23)) unal, 1 46 3 old_256K_switch bit (2) aligned, /* state of 256KW connection switch before we came along*/ 1 47 (3 last_pvid, /* pvid of last good object read */ 1 48 3 rpv_pvid, /* rpv pvid */ 1 49 3 rpv_lvid) bit (36), /* rpv lvid */ 1 50 3 last_valid_puid (0:15) bit (36), /* last non-zero path uid read from input medium */ 1 51 2 chars, 1 52 ( 3 sys_dir, /* directory where vologs are */ 1 53 3 default_sys_dir) char (168), /* default directory where vologs are */ 1 54 (3 last_valid_vtoce_ename, /* last valid entry name from VTOCE */ 1 55 3 operator, /* operator's name or initials */ 1 56 3 io_module) char (32), /* name of io outer module used to read input */ 1 57 (3 input_volume_desc, /* optional input medium attach description */ 1 58 3 output_volume_desc) char (256), /* optional output medium attach description */ 1 59 2 fixed, 1 60 ( 3 num_abandoned, /* count these as we go along */ 1 61 3 last_vtocx, /* vtocx of last valid object read */ 1 62 3 npvs, /* the number of pv names given to the reload_volume command*/ 1 63 3 rpv_disk_type) fixed bin, /* model index of rpv disk drive */ 1 64 (3 start_time, /* time reload started */ 1 65 3 from_time) fixed bin (71), /* time from which dump tapes should be skipped */ 1 66 3 input_buffer_len fixed bin (21), /* length of the data in the read buffer */ 1 67 3 input_buffer_start fixed bin (21), /* position in read buffer where new data begins */ 1 68 2 ptrs, 1 69 ( 3 inputvol_iocbp, /* iocb ptr for input */ 1 70 3 error_iocbp, /* iocb ptr for error output */ 1 71 3 skip, /* ptr to skip list */ 1 72 3 volume_record_bp, /* ptr to temp seg containing most recent volume record */ 1 73 3 infop, /* ptr to temp seg containig tdump info */ 1 74 3 data_object_bp, /* ptr to temp seg containing most recent object from input medium */ 1 75 3 input_vol_lstp ptr, /* ptr to temp seg containing list of input media */ 1 76 3 input_buffer_ptr) ptr, /* ptr to read buffer */ 1 77 1 78 1 79 1 rldr_data_perpv aligned, /* one entry per physical volume to be reloaded */ 1 80 2 flags, 1 81 3 abandoned bit (1) unal, /* we quit due to some error */ 1 82 3 restart bit (1), /* if on unitialized volume ok and reload will restart */ 1 83 3 mbz0 bit (34) unal, /* beware, RFU */ 1 84 (2 pvname, /* physical volume name */ 1 85 2 lvname, /* logical volume name of physical volume being reloaded */ 1 86 2 disk_model) char (32), /* model name of disk drive */ 1 87 2 device_name char (8), 1 88 (2 lvid, /* logical volume id of volume being reloaded */ 1 89 2 pvid) bit (36), /* physical volume id of volume being reloaded */ 1 90 (2 prev_wordx, /* index to fsmap */ 1 91 2 prev_bitx, /* index to fsmap */ 1 92 2 disk_type, /* model index of disk drive */ 1 93 2 usable_sectors, /* usable sectors per cylinder of disk pack */ 1 94 2 unusable_sectors, /* unusable sectors per cylinder of disk pack */ 1 95 2 n_vtoce) fixed bin, /* number of vtoce on disk pack */ 1 96 (2 vtocbp, /* ptr to vtoc buffer seg */ 1 97 2 vtoc_headerp, /* ptr to temp seg containing the vtoc header */ 1 98 2 labelp, /* ptr to temp seg containing pack label */ 1 99 2 bvlp, /* ptr to volume log */ 1 100 2 outputvol_iocbp, /* iocb ptr for output */ 1 101 2 controlp, /* ptr to seg containing reload control info about vtoc */ 1 102 2 vol_mapp) ptr, /* ptr to temp seg containing volume map */ 1 103 1 104 1 rldr_data_nulled_pv aligned int static options (constant), 1 105 2 flags, 1 106 3 abandoned bit (1) init ("0"b) unal, 1 107 3 restart bit (1) init ("0"b) unal, 1 108 3 mbz0 bit (34) init ((34)"0"b) unal, 1 109 (2 pvname, 1 110 2 lvname, 1 111 2 disk_model) char (32) init (""), 1 112 2 device_name char (8) init (""), 1 113 (2 lvid, 1 114 2 pvid) bit (36) init ("0"b), 1 115 (2 prev_wordx, 1 116 2 prev_bitx, 1 117 2 disk_type, 1 118 2 usable_sectors, 1 119 2 unusable_sectors, 1 120 2 n_vtoce) fixed bin init (0), 1 121 (2 vtocbp, 1 122 2 vtoc_headerp, 1 123 2 labelp, 1 124 2 bvlp, 1 125 2 outputvol_iocbp, 1 126 2 controlp, 1 127 2 vol_mapp) ptr init (null ()); 1 128 1 129 1 130 /* END INCLUDE FILE rldr_data_.incl.pl1 */ 607 608 2 1 /* BEGIN INCLUDE FILE ... backup_volume_log.incl.pl1 ... Feb 1976 */ 2 2 2 3 2 4 /****^ HISTORY COMMENTS: 2 5* 1) change(88-03-03,GWMay), approve(89-10-03,MCR8135), 2 6* audit(89-10-04,Beattie), install(89-10-10,MR12.3-1089): 2 7* Added values for storing the number of incremental and consolidated dump 2 8* sets to retain in the volume log. Incremented version number to 3. 2 9* END HISTORY COMMENTS */ 2 10 2 11 2 12 /* Modified: 3/7/84 by GA Texada to change to version 2 */ 2 13 dcl bvlp ptr; 2 14 dcl bvlep ptr; 2 15 2 16 dcl backup_volume_log_version_1 fixed bin static init (1) options (constant); 2 17 dcl backup_volume_log_version_2 fixed bin init(2) int static options(constant); 2 18 dcl backup_volume_log_version_3 fixed bin init(3) int static options(constant); 2 19 2 20 dcl 1 backup_volume_log based (bvlp) aligned, 2 21 2 header like backup_volume_header aligned, 2 22 2 info like backup_pvol_info aligned, 2 23 2 version fixed bin, /* version number */ 2 24 2 lock bit (36), /* shared data base */ 2 25 2 pvname char (32), /* physical volume name */ 2 26 2 pvid bit (36), /* physical volume id */ 2 27 2 next fixed bin, /* next available dump record */ 2 28 2 reload_groups fixed bin, /* number of reload groups in log */ 2 29 2 purge_control (3), /* control selective purging by dump type */ 2 30 3 group (36) bit (1) unaligned, /* up to 36 reload groups */ 2 31 2 disk_type fixed bin unal, /* type of disk drive */ 2 32 2 half_word_pad bit(18) unal, /* MBZ */ 2 33 2 rpv_pvid bit(36), /* pvid of this volumes RPV */ 2 34 2 Nsaved_incr_sets fixed bin, /* number of incr cycles to retain */ 2 35 2 Nsaved_cons_sets fixed bin, /* number of incr cycles to retain */ 2 36 2 pad (31) bit (36), /* for future expansion (MBZ) */ 2 37 2 array (1:1 refer (backup_volume_log.next)) like bvle aligned; 2 38 2 39 dcl 1 bvle based (bvlep) aligned, 2 40 2 cycle_uid bit (36), /* uid of this dump cycle */ 2 41 2 dump_type fixed bin, /* type of dump */ 2 42 2 volname char (32), /* name of output volume */ 2 43 2 open_time fixed bin (71), /* opening time of dump pass on this physical volume */ 2 44 2 close_time fixed bin (71), /* ending time of dump pass */ 2 45 2 volid bit (36), /* uid of output volume */ 2 46 2 io_module char (32), /* outer module name that wrote this volume */ 2 47 2 flags, /* flags */ 2 48 3 purge_scan_logged bit (1) unaligned, /* if on object looged during purge scan */ 2 49 3 pad1 bit (35) unaligned, 2 50 2 pad (7) bit (36), /* for future expansion */ 2 51 (2 dir_num fixed bin, /* number of dirs dumped on this pass */ 2 52 2 dir_rec fixed bin, /* number of records of dirs */ 2 53 2 seg_num fixed bin, /* number of segs dumped on this pass */ 2 54 2 seg_rec fixed bin) unaligned; /* number of records of segs */ 2 55 2 56 /* END INCLUDE FILE ... backup_volume_log */ 609 610 3 1 /* BEGIN INCLUDE FILE ... backup_volume_header ... Feb 1976 */ 3 2 3 3 dcl hdp ptr; /* ptr to header */ 3 4 3 5 dcl 1 backup_volume_header based (hdp) aligned, 3 6 2 pattern1 bit (36), /* unique word 1 */ 3 7 2 rec1_type fixed bin, /* record 1 type */ 3 8 2 rec1_len fixed bin, /* length in chars */ 3 9 2 pattern2 bit (36), /* unique word 2 */ 3 10 2 rec2_type fixed bin, /* record 2 type */ 3 11 2 rec2_len fixed bin, /* length in chars */ 3 12 2 pattern3 bit (36), /* unique word 3 */ 3 13 2 time_dumped bit (36); /* dump time of this record */ 3 14 3 15 dcl vtoce_type fixed bin static init (1) options (constant); /* type code for vtoce */ 3 16 dcl dir_type fixed bin static init (2) options (constant); /* type code for directory */ 3 17 dcl seg_type fixed bin static init (3) options (constant); /* type code for segment */ 3 18 dcl null_type fixed bin static init (4) options (constant); /* type code for null record */ 3 19 dcl volume_log_type fixed bin static init (5) options (constant); /* type code for volume log */ 3 20 dcl prev_output_log_type fixed bin static init (6) options (constant); /* type code for prev output log */ 3 21 dcl contents_type fixed bin static init (7) options (constant); /* type code for contents segment of previous volume */ 3 22 dcl info_type fixed bin static init (8) options (constant); /* type code for info structure */ 3 23 3 24 dcl pattern1 bit (36) int static init ("110111000011001100011101101010100101"b) options (constant); 3 25 dcl pattern2 bit (36) int static init ("101001010101101110001100110000111011"b) options (constant); 3 26 dcl pattern3 bit (36) int static init ("001000111100110011100010010101011010"b) options (constant); 3 27 3 28 /* END INCLUDE FILE ... backup_volume_header */ 611 612 4 1 /* BEGIN INCLUDE FILE ... backup_pvol_info.incl.pl1 */ 4 2 4 3 dcl bpvip ptr; 4 4 4 5 dcl 1 backup_pvol_info based (bpvip) aligned, 4 6 2 label like label aligned, 4 7 2 n_vtoce fixed bin, 4 8 2 n_free_vtoce fixed bin, 4 9 2 n_rec fixed bin, 4 10 2 baseadd fixed bin, 4 11 2 n_free_rec fixed bin; 4 12 4 13 /* END INCLUDE FILE ... backup_pvol_info.incl.pl1 */ 613 5 1 /* BEGIN INCLUDE FILE ... rldr_control.incl.pll ... March 1976 */ 5 2 5 3 dcl controlp ptr; /* ptr to control segment */ 5 4 5 5 dcl 1 rldr_control based (controlp) aligned, /* structure of control segment for reloader */ 5 6 2 curn_volname char (32), /* volune name of present input volume */ 5 7 2 dir_num fixed bin, /* number of directories reloaded */ 5 8 2 dir_rec fixed bin, /* number of driectory records reloaded */ 5 9 2 seg_num fixed bin, /* number of segments reloaded */ 5 10 2 seg_rec fixed bin, /* number of segment records reloaded */ 5 11 2 input_vol_dir_num fixed bin, /* number of directories reloaded from input vol */ 5 12 2 input_vol_dir_rec fixed bin, /* number of driectory records reloaded from input vol */ 5 13 2 input_vol_seg_num fixed bin, /* number of segments reloaded from input vol */ 5 14 2 input_vol_seg_rec fixed bin, /* number of segment records reloaded from input vol */ 5 15 2 num_null_vtoce fixed bin, /* number of null vtoce reloaded */ 5 16 2 num_rejected fixed bin, /* number of data objects on input media that were skipped */ 5 17 2 curn_volid bit (36), /* volume id of present input volume */ 5 18 2 label like label aligned, 5 19 2 vol_map like vol_map aligned, 5 20 2 vtoc_header like vtoc_header aligned, 5 21 2 array (0 : 1), /* look aside memory of vtoces reloaded */ 5 22 3 uid bit (36), /* uid of reloaded vtoce */ 5 23 3 buffer_idx fixed bin, /* index in vtoc buffer */ 5 24 3 time_dumped fixed bin(71), /* time object dumped */ 5 25 3 volid bit (36); /* volid of input volume vtoce reloaded from */ 5 26 5 27 /* END INCLUDE FILE ... rld_control.incl.pl1 */ 614 615 6 1 /* Begin include file ...... fs_dev_types.incl.pl1 */ 6 2 6 3 /****^ HISTORY COMMENTS: 6 4* 1) change(85-09-09,Farley), approve(85-09-09,MCR6979), 6 5* audit(86-01-17,CLJones), install(86-03-21,MR12.0-1033): 6 6* Add support for FIPS 6 7* 3380. 6 8* 2) change(86-04-21,Fawcett), approve(86-04-21,MCR7383), 6 9* audit(86-05-15,Coppola), install(86-07-18,MR12.0-1098): 6 10* Add the support for subvolumes for the MSU3380 and MSU3390. 6 11* 3) change(86-10-02,Fawcett), approve(86-10-02,PBF7383), 6 12* audit(86-10-23,Farley), install(86-10-28,MR12.0-1200): 6 13* Changed 3390 to 3381, "d338" to "3380" & "d339" to "3381". 6 14* END HISTORY COMMENTS */ 6 15 6 16 /* Modified 5/19/76 by N. I. Morris */ 6 17 /* Modified 12/27/78 by Michael R. Jordan to correct MSS0500 information */ 6 18 /* Modified 4/79 by R.J.C. Kissel to add msu0501 information. */ 6 19 /* Modified '82 by BIM for needs_alt_part */ 6 20 /* Modified 4/84 by Chris Jones for FIPS disks */ 6 21 /* Modified 12/84 by Paul Farley for FIPS disks formatted for 512wd sectors */ 6 22 /* Modified 1/85 by Paul Farley to decrease the size of the 3380, until the 6 23* volmap and record stock can be expanded. */ 6 24 6 25 /* 6 26******************************************************************************** 6 27** * 6 28** WARNING: * 6 29** * 6 30** There exists fs_dev_types.incl.alm that must me updated when a new device * 6 31** type is added. * 6 32** * 6 33** There are other include files that contain arrays indexed by the device * 6 34** index obtained by references to MODELX or MODELN in this include file. * 6 35** These must be modified when a new device type is added: * 6 36** disk_pack.incl.pl1 * 6 37** fs_dev_types_sector.incl.pl1 (included in this include) * 6 38** * 6 39******************************************************************************** 6 40**/ 6 41 6 42 6 43 dcl (maxdevt init (9), /* maximum legal devt */ 6 44 bulkdevt init (1), /* bulk store devt */ 6 45 msu0500devt init (2), /* MSU0500 device type */ 6 46 msu0451devt init (3), /* MSU0451 device type */ 6 47 msu0450devt init (3), /* MSU0450 device type */ 6 48 msu0400devt init (4), /* MSU0400 device type */ 6 49 dsu191devt init (4), /* DSU191 device type */ 6 50 dsu190devt init (5), /* DSU190 device type */ 6 51 dsu181devt init (6), /* DSU181 device type */ 6 52 msu0501devt init (7), /* MSU0501 device type */ 6 53 fips3380devt init (8), /* 3380D FIPS device type */ 6 54 fips3381devt init (9) /* 3380E FIPS device type */ 6 55 ) fixed bin (4) static options (constant); 6 56 6 57 dcl MODEL (12) fixed bin static options (constant) init /* Known device model numbers */ 6 58 (0, 500, 451, 450, 400, 402, 191, 190, 181, 501, 3380, 3381); 6 59 6 60 dcl MODELX (12) fixed bin static options (constant) init /* translation from model number to device type */ 6 61 (1, 2, 3, 3, 4, 4, 4, 5, 6, 7, 8, 9); 6 62 6 63 dcl MODELN (9) fixed bin static options (constant) init /* translation from device type to model number */ 6 64 (0, 500, 451, 400, 190, 181, 501, 3380, 3381); 6 65 6 66 dcl device_names (9) char (4) aligned static options (constant) init /* device names indexed by device type */ 6 67 ("bulk", "d500", "d451", "d400", "d190", "d181", "d501", "3380", "3381"); 6 68 6 69 dcl first_dev_number (9) fixed bin (17) static options (constant) init /* First valid device_number */ 6 70 (1, 1, 1, 1, 1, 1, 1, 0, 0); 6 71 6 72 dcl fips_type_disk (9) bit (1) unal static options (constant) init /* ON => FIPS disk */ 6 73 ("0"b,"0"b,"0"b,"0"b,"0"b,"0"b,"0"b,"1"b,"1"b); 6 74 6 75 dcl media_removable (9) bit (1) static options (constant) init /* ON => demountable pack on device */ 6 76 ("0"b, "0"b, "1"b, "1"b, "1"b, "1"b, "0"b, "0"b, "0"b); 6 77 6 78 dcl shared_spindle (9) bit (1) static options (constant) init /* ON => 2 devices per spindle */ 6 79 ("0"b, "1"b, "0"b, "0"b, "0"b, "0"b, "1"b, "0"b, "0"b); 6 80 6 81 dcl needs_alt_part (9) bit (1) static options (constant) init /* ON => needs alternate partition to run alternate tracks */ 6 82 ("0"b, "0"b, "1"b, "1"b, "1"b, "1"b, "0"b, "0"b, "0"b); 6 83 6 84 dcl seek_command (9) bit (6) init /* Seek command: 00 => N/A, 30 => Seek_512, 34 => seek_64 */ 6 85 ("00"b3,"34"b3,"34"b3,"34"b3,"34"b3,"34"b3,"34"b3,"30"b3, "30"b3); 6 86 6 87 dcl rec_per_dev (9) fixed bin (21) static options (constant) init /* table of # of records on each device */ 6 88 (0, 38258, 38258, 19270, 14760, 4444, 67200, 112395, 224790); 6 89 6 90 dcl rec_per_sv (9) fixed bin static options (constant) init /* table of # of records on each subvol */ 6 91 (0, 38258, 38258, 19270, 14760, 4444, 67200, 56134, 74930); 6 92 6 93 dcl number_of_sv (9) fixed bin static options (constant) init /* table of subvolumes */ 6 94 (0, 0, 0, 0, 0, 0, 0, 2, 3); 6 95 6 96 dcl valid_sv_string char (3) static options (constant) init /* string of valid subvolume names */ 6 97 ("abc"); 6 98 6 99 dcl valid_sv_array (0:2) char (1) static options (constant) /* array of valid subvolume names */ 6 100 init ("a","b","c"); 6 101 6 102 dcl cyl_per_dev (9) fixed bin static options (constant) init /* table of # of cylinders on each device */ 6 103 (0, 814, 814, 410, 410, 202, 840, 885, 1770); 6 104 6 105 dcl cyl_per_sv (9) fixed bin static options (constant) init /* table of # of cylinders on each subvolume */ 6 106 (0, 814, 814, 410, 410, 202, 840, 442, 590); 6 107 6 108 dcl rec_per_cyl (9) fixed bin static options (constant) init /* table of # of records per cylinder on each device */ 6 109 (0, 47, 47, 47, 36, 22, 80, 127, 127); 6 110 6 111 dcl tracks_per_cyl (9) fixed bin static options (constant) init /* table of # of tracks per cylinder on each device */ 6 112 (0, 19, 19, 19, 19, 20, 20, 15, 15); 6 113 6 114 6 115 dcl first_rec_num (9) fixed bin static options (constant) init /* table of # of first record on each device */ 6 116 (0, 0, 0, 0, 0, 0, 0, 0, 0); 6 117 6 118 dcl last_rec_num (9) fixed bin (18) static options (constant) init /* table of # of last record on each device */ 6 119 (0, 38257, 38116, 19128, 14651, 4399, 67199, 112394, 224789); 6 120 6 121 dcl last_sv_rec_num (9) fixed bin (18) static options (constant) init /* table of # of last record on each subvolume */ 6 122 (0, 38257, 38116, 19128, 14651, 4399, 67199, 56133, 74929); 6 123 6 124 dcl first_sect_num (9) fixed bin (24) static options (constant) init /* table of # of first sector for each device */ 6 125 (0, 0, 0, 0, 0, 0, 0, 0, 0); 6 126 6 127 dcl last_sect_num (9) fixed bin (24) static options (constant) init /* table of # last sector number for each device */ 6 128 (0, 618639, 616359, 309319, 239722, 71999, 1075199, 225674, 451349); 6 129 6 130 dcl first_alt_sect_num (9) fixed bin (24) static options (constant) init /* table of # of first sector of alt partition */ 6 131 (0, 638400, 616360, 309320, 239723, 72000, 1075200, 225675, 451350); 6 132 6 133 dcl last_alt_sect_num (9) fixed bin (24) static options (constant) init /* table of # of last sector of alt partition */ 6 134 (0, 639919, 618639, 311599, 241489, 72719, 1077759, 225930, 451605); 6 135 6 136 dcl last_physical_sect_num (9) fixed bin (24) static options (constant) init /* table of # of last sector on device (includes T&D cylinders) */ 6 137 (0, 639919, 619399, 312359, 242249, 72359, 1077759, 225674, 451859); 6 138 6 139 dcl dev_time (9) float bin (27) static options (constant) init /* table of average access times for each device */ 6 140 (384e0, 33187e0, 33187e0, 34722e0, 46935e0, 52631e0, 33187e0, 26260e0, 26260e0); 6 141 7 1 /* Begin fs_dev_types_sector.incl.pl1 */ 7 2 7 3 7 4 /****^ HISTORY COMMENTS: 7 5* 1) change(86-04-21,Fawcett), approve(86-04-21,MCR7383), 7 6* audit(86-05-12,Coppola), install(86-07-18,MR12.0-1098): 7 7* Add the sector differance for devices that do 64 word IO and devices that 7 8* do 512 word IO. 7 9* END HISTORY COMMENTS */ 7 10 7 11 /* Created by R. A. Fawcett for 512 word IO. for procedures that do not 7 12* need all the data in fs_dev_types. This is also included in 7 13* fs_dev_types.incl.pl1 */ 7 14 7 15 dcl sect_per_cyl (9) fixed bin static options (constant) init /* table of # of sectors per cylinder on each device */ 7 16 (0, 760, 760, 760, 589, 360, 1280, 255, 255); 7 17 7 18 dcl sect_per_sv (9) fixed bin (24) static options (constant) init /* table of # of sectors per cylinder on each subvolume */ 7 19 (0, 0, 0, 0, 0, 0, 0, 112710, 150450); 7 20 7 21 dcl sect_per_rec (9) fixed bin static options (constant) init 7 22 /* table of # of sectors per record on each device */ 7 23 /* coresponding array in disk_pack.incl.pl1 called SECTORS_PER_RECORD */ 7 24 (0, 16, 16, 16, 16, 16, 16, 2, 2); 7 25 7 26 dcl sect_per_vtoc (9) fixed bin static options (constant) init 7 27 (0, 3, 3, 3, 3, 3, 3, 1, 1); 7 28 7 29 dcl vtoc_per_rec (9) fixed bin static options (constant) init 7 30 /* corespending array in disk_pack.incl.pl1 named VTOCES_PER_RECORD */ 7 31 (0, 5, 5, 5, 5, 5, 5, 2, 2); 7 32 7 33 dcl sect_per_track (9) fixed bin static options (constant) init /* table of # of sectors per track on each device */ 7 34 (0, 40, 40, 40, 31, 18, 64, 17, 17); 7 35 7 36 dcl words_per_sect (9) fixed bin static options (constant) init /* table of # of words per sector on each device */ 7 37 (0, 64, 64, 64, 64, 64, 64, 512, 512); 7 38 7 39 /* End fs_dev_types_sector.incl.pl1 */ 7 40 6 142 6 143 6 144 /* End of include file ...... fs_dev_types.incl.pl1 */ 616 617 8 1 /* BEGIN INCLUDE FILE ... fs_vol_label.incl.pl1 .. last modified January 1982 for new volume map format */ 8 2 8 3 /****^ HISTORY COMMENTS: 8 4* 1) change(86-04-10,Fawcett), approve(86-04-10,MCR7383), 8 5* audit(86-05-12,Coppola), install(86-07-18,MR12.0-1098): 8 6* Add the subvolume info. 8 7* 2) change(88-05-27,GWMay), approve(88-05-27,MCR7883), 8 8* audit(88-06-14,Beattie), install(88-07-19,MR12.2-1061): 8 9* Added inconsistent_dbm bit used to determine consistency of volume 8 10* dumper bit maps. 8 11* END HISTORY COMMENTS */ 8 12 8 13 /* This is the label at fixed location of each physical volume. Length 1 page */ 8 14 /* Note: fsout_vol clears pad fields before writing the label */ 8 15 8 16 dcl labelp ptr; 8 17 8 18 dcl 1 label based (labelp) aligned, 8 19 8 20 /* First comes data not used by Multics.. for compatibility with GCOS */ 8 21 8 22 2 gcos (5*64) fixed bin, 8 23 8 24 /* Now we have the Multics label */ 8 25 8 26 2 Multics char (32) init ("Multics Storage System Volume"), /* Identifier */ 8 27 2 version fixed bin, /* Version 1 */ 8 28 2 mfg_serial char (32), /* Manufacturer's serial number */ 8 29 2 pv_name char (32), /* Physical volume name. */ 8 30 2 lv_name char (32), /* Name of logical volume for pack */ 8 31 2 pvid bit (36), /* Unique ID of this pack */ 8 32 2 lvid bit (36), /* unique ID of its logical vol */ 8 33 2 root_pvid bit (36), /* unique ID of the pack containing the root. everybody must agree. */ 8 34 2 time_registered fixed bin (71), /* time imported to system */ 8 35 2 n_pv_in_lv fixed bin, /* # phys volumes in logical */ 8 36 2 vol_size fixed bin, /* total size of volume, in records */ 8 37 2 vtoc_size fixed bin, /* number of recs in fixed area + vtoc */ 8 38 2 not_used bit (1) unal, /* used to be multiple_class */ 8 39 2 private bit (1) unal, /* TRUE if was registered as private */ 8 40 2 inconsistent_dbm bit (1) unal, /* TRUE if ESD-less crash */ 8 41 2 flagpad bit (33) unal, 8 42 2 max_access_class bit (72), /* Maximum access class for stuff on volume */ 8 43 2 min_access_class bit (72), /* Minimum access class for stuff on volume */ 8 44 2 password bit (72), /* not yet used */ 8 45 2 number_of_sv fixed bin, /* if = 0 not a subvolume else the number of svs */ 8 46 2 this_sv fixed bin, /* what subvolume number it is */ 8 47 2 sub_vol_name char (1), /* what subvolume name (a b c d) it is */ 8 48 2 pad1 (13) fixed bin, 8 49 2 time_mounted fixed bin (71), /* time mounted */ 8 50 2 time_map_updated fixed bin (71), /* time vmap known good */ 8 51 8 52 /* The next two words overlay time_unmounted on pre-MR10 systems. This 8 53* forces a salvage if an MR10 pack is mounted on an earlier system. 8 54* */ 8 55 2 volmap_version fixed bin, /* version of volume map (currently 1) */ 8 56 2 pad6 fixed bin, 8 57 8 58 2 time_salvaged fixed bin (71), /* time salvaged */ 8 59 2 time_of_boot fixed bin (71), /* time of last bootload */ 8 60 2 time_unmounted fixed bin (71), /* time unmounted cleanly */ 8 61 2 last_pvtx fixed bin, /* pvtx in that PDMAP */ 8 62 2 pad1a (2) fixed bin, 8 63 2 err_hist_size fixed bin, /* size of pack error history */ 8 64 2 time_last_dmp (3) fixed bin (71), /* time last completed dump pass started */ 8 65 2 time_last_reloaded fixed bin (71), /* what it says */ 8 66 2 pad2 (40) fixed bin, 8 67 2 root, 8 68 3 here bit (1), /* TRUE if the root is on this pack */ 8 69 3 root_vtocx fixed bin (35), /* VTOC index of root, if it is here */ 8 70 3 shutdown_state fixed bin, /* Status of hierarchy */ 8 71 3 pad7 bit (1) aligned, 8 72 3 disk_table_vtocx fixed bin, /* VTOC index of disk table on RPV */ 8 73 3 disk_table_uid bit (36) aligned, /* UID of disk table */ 8 74 3 esd_state fixed bin, /* State of esd */ 8 75 2 volmap_record fixed bin, /* Begin record of volume map */ 8 76 2 size_of_volmap fixed bin, /* Number of records in volume map */ 8 77 2 vtoc_map_record fixed bin, /* Begin record of VTOC map */ 8 78 2 size_of_vtoc_map fixed bin, /* Number of records in VTOC map */ 8 79 2 volmap_unit_size fixed bin, /* Number of words per volume map section */ 8 80 2 vtoc_origin_record fixed bin, /* Begin record of VTOC */ 8 81 2 dumper_bit_map_record fixed bin, /* Begin record of dumper bit-map */ 8 82 2 vol_trouble_count fixed bin, /* Count of inconsistencies found since salvage */ 8 83 2 pad3 (52) fixed bin, 8 84 2 nparts fixed bin, /* Number of special partitions on pack */ 8 85 2 parts (47), 8 86 3 part char (4), /* Name of partition */ 8 87 3 frec fixed bin, /* First record */ 8 88 3 nrec fixed bin, /* Number of records */ 8 89 3 pad5 fixed bin, 8 90 2 pad4 (5*64) fixed bin; 8 91 8 92 dcl Multics_ID_String char (32) init ("Multics Storage System Volume") static; 8 93 8 94 /* END INCLUDE FILE fs_vol_label.incl.pl1 */ 618 619 9 1 /* BEGIN INCLUDE FILE ... old_fs_vol_label.incl.pl1 .. March 1982 */ 9 2 9 3 /* Pre-MR10 Volume Label */ 9 4 9 5 dcl old_labelp ptr; 9 6 9 7 dcl 1 old_label based (old_labelp) aligned, 9 8 9 9 /* First comes data not used by Multics.. for compatibility with GCOS */ 9 10 9 11 2 gcos (5*64) fixed bin, 9 12 9 13 /* Now we have the Multics label */ 9 14 9 15 2 Multics char (32) init ("Multics Storage System Volume"), /* Identifier */ 9 16 2 version fixed bin, /* Version 1 */ 9 17 2 mfg_serial char (32), /* Manufacturer's serial number */ 9 18 2 pv_name char (32), /* Physical volume name. */ 9 19 2 lv_name char (32), /* Name of logical volume for pack */ 9 20 2 pvid bit (36), /* Unique ID of this pack */ 9 21 2 lvid bit (36), /* unique ID of its logical vol */ 9 22 2 root_pvid bit (36), /* unique ID of the pack containing the root. everybody must agree. */ 9 23 2 time_registered fixed bin (71), /* time imported to system */ 9 24 2 n_pv_in_lv fixed bin, /* # phys volumes in logical */ 9 25 2 vol_size fixed bin, /* total size of volume, in records */ 9 26 2 vtoc_size fixed bin, /* number of recs in fixed area + vtoc */ 9 27 2 not_used bit (1) unal, /* uset to be multiple_class */ 9 28 2 private bit (1) unal, /* TRUE if was registered as private */ 9 29 2 flagpad bit (34) unal, 9 30 2 max_access_class bit (72), /* Maximum access class for stuff on volume */ 9 31 2 min_access_class bit (72), /* Minimum access class for stuff on volume */ 9 32 2 password bit (72), /* not yet used */ 9 33 2 pad1 (16) fixed bin, 9 34 2 time_mounted fixed bin (71), /* time mounted */ 9 35 2 time_map_updated fixed bin (71), /* time vmap known good */ 9 36 2 time_unmounted fixed bin (71), /* time unmounted cleanly */ 9 37 2 time_salvaged fixed bin (71), /* time salvaged */ 9 38 2 time_of_boot fixed bin (71), /* time of last bootload */ 9 39 2 pd_time fixed bin (71), /* PDMAP time of last PD which saw this vol */ 9 40 2 last_pvtx fixed bin, /* pvtx in that PDMAP */ 9 41 2 pad1a fixed bin, 9 42 2 pad7 fixed bin, 9 43 2 err_hist_size fixed bin, /* size of pack error history */ 9 44 2 time_last_dmp (3) fixed bin (71), /* time last completed dump pass started */ 9 45 2 time_last_reloaded fixed bin (71), /* what it says */ 9 46 2 pad5 (2) fixed bin, 9 47 2 pad6 (3) fixed bin, 9 48 2 pad2 (35) fixed bin, 9 49 2 root, 9 50 3 here bit (1), /* TRUE if the root is on this pack */ 9 51 3 root_vtocx fixed bin (35), /* VTOC index of root, if it is here */ 9 52 3 shutdown_state fixed bin, /* Status of hierarchy */ 9 53 3 pd_active bit (1) aligned, /* Unflushed PD exists */ 9 54 3 disk_table_vtocx fixed bin, /* VTOC index of disk table on RPV */ 9 55 3 disk_table_uid bit (36) aligned, /* UID of disk table */ 9 56 3 esd_state fixed bin, /* State of esd */ 9 57 2 pad3 (60) fixed bin, 9 58 2 nparts fixed bin, /* Number of special partitions on pack */ 9 59 2 parts (47), 9 60 3 part char (4), /* Name of partition */ 9 61 3 frec fixed bin, /* First record */ 9 62 3 nrec fixed bin, /* Number of records */ 9 63 3 pad5 fixed bin, 9 64 2 pad4 (5*64) fixed bin; 9 65 9 66 9 67 /* END INCLUDE FILE old_fs_vol_label.incl.pl1 */ 620 621 10 1 /* BEGIN INCLUDE FILE ... vtoc_header.incl.pl1 */ 10 2 10 3 dcl vtoc_headerp ptr; 10 4 10 5 dcl 1 vtoc_header based (vtoc_headerp) aligned, 10 6 10 7 2 version fixed bin (17), /* version number. The current version number is 1. * */ 10 8 2 n_vtoce fixed bin (17), /* number of vtoc entries */ 10 9 2 vtoc_last_recno fixed bin (17), /* record number of the last record of the vtoc */ 10 10 2 n_free_vtoce fixed bin (17), /* number of free vtoc entries */ 10 11 2 first_free_vtocx fixed bin (17), /* index of the first vtoce in the free list */ 10 12 2 pad (3) bit (36), 10 13 2 dmpr_bit_map (2048 - 8) bit (36); /* space for dmpr bit map */ 10 14 10 15 /* END INCLUDE ... vtoc_header */ 10 16 622 11 1 /* BEGIN INCLUDE FILE ... vol_map.incl.pl1 */ 11 2 11 3 dcl vol_mapp ptr; 11 4 11 5 dcl 1 vol_map based (vol_mapp) aligned, 11 6 11 7 2 n_rec fixed bin(17), /* number of records represented in the map */ 11 8 2 base_add fixed bin(17), /* record number for first bit in bit map */ 11 9 2 n_free_rec fixed bin(17), /* number of free records */ 11 10 2 bit_map_n_words fixed bin(17), /* number of words of the bit map */ 11 11 2 pad (60) bit(36), /* pad to 64 words */ 11 12 2 bit_map (3*1024 - 64) bit(36) ; /* bit map - the entire vol map occupies 3 records */ 11 13 11 14 /* END INCLUDE ... vol_map */ 623 624 12 1 /* BEGIN INCLUDE FILE ...vtoce.incl.pl1 ... last modified September 1982 */ 12 2 /* Template for a VTOC entry. Length = 192 words. (3 * 64). */ 12 3 /* NOTE: vtoc_man clears pad fields before writing a vtoce. */ 12 4 12 5 dcl vtocep ptr; 12 6 12 7 dcl 1 vtoce based (vtocep) aligned, 12 8 12 9 12 10 (2 pad_free_vtoce_chain bit (36), /* Used to be pointer to next free VTOCE */ 12 11 12 12 2 uid bit (36), /* segment's uid - zero if vtoce is free */ 12 13 12 14 2 msl bit (9), /* maximum segment length in 1024 word units */ 12 15 2 csl bit (9), /* current segment length - in 1024 word units */ 12 16 2 records bit (9), /* number of records used by the seg in second storage */ 12 17 2 pad2 bit (9), 12 18 12 19 2 dtu bit (36), /* date and time segment was last used */ 12 20 12 21 2 dtm bit (36), /* date and time segment was last modified */ 12 22 12 23 2 nqsw bit (1), /* no quota switch - no checking for pages of this seg */ 12 24 2 deciduous bit (1), /* true if hc_sdw */ 12 25 2 nid bit (1), /* no incremental dump switch */ 12 26 2 dnzp bit (1), /* Dont null zero pages */ 12 27 2 gtpd bit (1), /* Global transparent paging device */ 12 28 2 per_process bit (1), /* Per process segment (deleted every bootload) */ 12 29 2 damaged bit (1), /* TRUE if contents damaged */ 12 30 2 fm_damaged bit (1), /* TRUE if filemap checksum bad */ 12 31 2 fm_checksum_valid bit (1), /* TRUE if the checksum has been computed */ 12 32 2 synchronized bit (1), /* TRUE if this is a data management synchronized segment */ 12 33 2 pad3 bit (8), 12 34 2 dirsw bit (1), /* directory switch */ 12 35 2 master_dir bit (1), /* master directory - a root for the logical volume */ 12 36 2 pad4 bit (16)) unaligned, /* not used */ 12 37 12 38 2 fm_checksum bit (36) aligned, /* Checksum of used portion of file map */ 12 39 12 40 (2 quota (0:1) fixed bin (18) unsigned, /* sec storage quota - (0) for non dir pages */ 12 41 12 42 2 used (0:1) fixed bin (18) unsigned, /* sec storage used - (0) for non dir pages */ 12 43 12 44 2 received (0:1) fixed bin (18) unsigned, /* total amount of storage this dir has received */ 12 45 12 46 2 trp (0:1) fixed bin (71), /* time record product - (0) for non dir pages */ 12 47 12 48 2 trp_time (0:1) bit (36), /* time time_record_product was last calculated */ 12 49 12 50 12 51 12 52 12 53 12 54 2 fm (0:255) bit (18), /* file map - 256 entries - 18 bits per entry */ 12 55 12 56 2 pad6 (10) bit (36), /* not used */ 12 57 12 58 2 ncd bit (1), /* no complete dump switch */ 12 59 2 pad7 bit (17), 12 60 2 pad8 bit (18), 12 61 12 62 2 dtd bit (36), /* date-time-dumped */ 12 63 12 64 2 volid (3) bit (36), /* volume ids of last incremental, consolidated, and complete dumps */ 12 65 12 66 2 master_dir_uid bit (36), /* superior master directory uid */ 12 67 12 68 12 69 12 70 12 71 2 uid_path (0:15) bit (36), /* uid pathname of all parents starting after the root */ 12 72 12 73 2 primary_name char (32), /* primary name of the segment */ 12 74 12 75 2 time_created bit (36), /* time the segment was created */ 12 76 12 77 2 par_pvid bit (36), /* physical volume id of the parent */ 12 78 12 79 2 par_vtocx fixed bin (17), /* vtoc entry index of the parent */ 12 80 2 branch_rp bit (18)) unaligned, /* rel pointer of the branch of this segment */ 12 81 12 82 2 cn_salv_time bit (36), /* time branch - vtoce connection checked */ 12 83 12 84 2 access_class bit (72), /* access class in branch */ 12 85 2 perm_flags aligned, 12 86 3 per_bootload bit (1) unal, /* ON => deleted each bootload */ 12 87 3 pad9 bit (35) unal, 12 88 2 owner bit (36); /* pvid of this volume */ 12 89 12 90 dcl vtoce_parts (3) bit (36 * 64) aligned based (vtocep); 12 91 12 92 dcl 1 seg_vtoce based (vtocep) aligned, /* Overlay for vtoce of segments, which don't have quota */ 12 93 2 pad1 bit (7*36), 12 94 2 usage fixed bin (35), /* page fault count: overlays quota */ 12 95 2 pad2 bit (184*36); 12 96 12 97 /* END INCLUDE FILE vtoce.incl.pl1 */ 625 626 13 1 /* BEGIN INCLUDE FILE query_info.incl.pl1 TAC June 1, 1973 */ 13 2 /* Renamed to query_info.incl.pl1 and cp_escape_control added, 08/10/78 WOS */ 13 3 /* version number changed to 4, 08/10/78 WOS */ 13 4 /* Version 5 adds explanation_(ptr len) 05/08/81 S. Herbst */ 13 5 /* Version 6 adds literal_sw, prompt_after_explanation switch 12/15/82 S. Herbst */ 13 6 13 7 dcl 1 query_info aligned, /* argument structure for command_query_ call */ 13 8 2 version fixed bin, /* version of this structure - must be set, see below */ 13 9 2 switches aligned, /* various bit switch values */ 13 10 3 yes_or_no_sw bit (1) unaligned init ("0"b), /* not a yes-or-no question, by default */ 13 11 3 suppress_name_sw bit (1) unaligned init ("0"b), /* do not suppress command name */ 13 12 3 cp_escape_control bit (2) unaligned init ("00"b), /* obey static default value */ 13 13 /* "01" -> invalid, "10" -> don't allow, "11" -> allow */ 13 14 3 suppress_spacing bit (1) unaligned init ("0"b), /* whether to print extra spacing */ 13 15 3 literal_sw bit (1) unaligned init ("0"b), /* ON => do not strip leading/trailing white space */ 13 16 3 prompt_after_explanation bit (1) unaligned init ("0"b), /* ON => repeat question after explanation */ 13 17 3 padding bit (29) unaligned init (""b), /* pads it out to t word */ 13 18 2 status_code fixed bin (35) init (0), /* query not prompted by any error, by default */ 13 19 2 query_code fixed bin (35) init (0), /* currently has no meaning */ 13 20 13 21 /* Limit of data defined for version 2 */ 13 22 13 23 2 question_iocbp ptr init (null ()), /* IO switch to write question */ 13 24 2 answer_iocbp ptr init (null ()), /* IO switch to read answer */ 13 25 2 repeat_time fixed bin (71) init (0), /* repeat question every N seconds if no answer */ 13 26 /* minimum of 30 seconds required for repeat */ 13 27 /* otherwise, no repeat will occur */ 13 28 /* Limit of data defined for version 4 */ 13 29 13 30 2 explanation_ptr ptr init (null ()), /* explanation of question to be printed if */ 13 31 2 explanation_len fixed bin (21) init (0); /* user answers "?" (disabled if ptr=null or len=0) */ 13 32 13 33 dcl query_info_version_3 fixed bin int static options (constant) init (3); 13 34 dcl query_info_version_4 fixed bin int static options (constant) init (4); 13 35 dcl query_info_version_5 fixed bin int static options (constant) init (5); 13 36 dcl query_info_version_6 fixed bin int static options (constant) init (6); /* the current version number */ 13 37 13 38 /* END INCLUDE FILE query_info.incl.pl1 */ 627 628 629 /* BEGIN MESSAGE DOCUMENTATION 630* 631* 632* Message: 633* reload_volume: Unable to locate a valid volume log for PATH: ERROR_MESS 634* 635* S: $rld_out 636* 637* T: $reload 638* 639* M: The volue log at PATH was not found. This message will always cause the 640*reload to be aborted. 641* 642* A: $tryagn 643* 644* Message: 645* reload_volume: Please start volume log recovery procedure. 646* 647* S: $rld_out 648* 649* T: $reload 650* 651* M: Use the recover_volume_log command to recover the specified physical 652*volumes volume log. 653* 654* A: $tryagn 655* 656* Message: 657* reload_volume: The RPV pvid for physical volume NAME does not match the 658*determined RPV pvid. 659* 660* S: $rld_out 661* 662* T: $reload 663* 664* M: The backup_volume_log.rpv_pvid for NAME does not match the reloader 665*determined RPV pvid. This could be an invalid attempt to reload a stranger 666*physical volume. 667* 668* A: $inform 669* 670* 671* Message: 672* reload_volume: An implementation restriction when using version 1 volume logs. 673*This requires that the RPV be reloaded separately from other volumes. 674* 675* S: $rld_out 676* 677* T: $reload 678* 679* M: Using version 1 volume logs, all physical volumes must belong to the mounted RPV. An exception is when reloading the RPV itself, it must be reloaded separately, then a re-boot on the new RPV will allow the other volumes to be reloaded. 680* 681* A: $tryagn 682* 683* 684* Message: 685* reload_volume: Operator name not specified. 686* 687* S: $rld_out 688* 689* T: $reload 690* 691* M: Missing input. 692* 693* A: $tryagn 694* 695* 696* Message: 697* reload_volume: Physical volume name not specified. 698* 699* S: $rld_out 700* 701* T: $reload 702* 703* M: Missing input. 704* 705* A: $tryagn 706* 707* Message: 708* reload_volume: Could not enable 256KW segments: ERORR_MESS 709* 710* S: $rld_out 711* 712* T: $reload 713* 714* M: The call to hcs_$set_256K_switch failed. 715* 716* A: $inform 717* 718* 719* Message: 720* reload_volume: Begin reload of volume NAME at TIME 721* 722* S: $rld_on 723* 724* T: $reload 725* 726* M: A volume reload is beginning. 727* 728* A: $ignore 729* 730* 731* Message: 732* reload_volume: End reload of volume NAME at TIME 733* .br 734* reload_volume: Reloaded on volume NAME XX records of XX directories and XX records of XX segments and XX null vtoces 735* 736* S: $rld_on 737* 738* T: $reload 739* 740* M: A volume reload has completed. 741* The statistics printed indicate how many records were reloaded. 742* 743* A: $ignore 744* 745* 746* Message: 747* reload_volume: arg err: ERROR_MESS 748* 749* S: $rld_out 750* 751* T: $reload 752* 753* M: Invalid input was given. 754* 755* A: $tryagn 756* 757* 758* Message: 759* reload_volume: error closing volume label: ERROR_MESS 760* 761* S: $rld_out 762* 763* T: $reload 764* 765* M: An error occurred while reloading. 766* 767* A: $inform 768* 769* 770* Message: 771* reload_volume: error closing volume map: ERROR_MESS 772* 773* S: $rld_out 774* 775* T: $reload 776* 777* M: An error occurred while reloading. 778* 779* A: $inform 780* 781* 782* Message: 783* reload_volume: error closing vtoc header: ERROR_MESS 784* 785* S: $rld_out 786* 787* T: $reload 788* 789* M: An error occurred while reloading. 790* 791* A: $inform 792* 793* 794* Message: 795* reload_volume: error creating control seg: ERROR_MESS 796* 797* S: $rld_out 798* 799* T: $reload 800* 801* M: An error occurred while reloading. 802* 803* A: $inform 804* 805* 806* Message: 807* reload_volume: error creating temp segs: ERROR_MESS 808* 809* S: $rld_out 810* 811* T: $reload 812* 813* M: An error occurred while reloading. 814* 815* A: $inform 816* 817* 818* Message: 819* reload_volume: error initializing input volume list: ERROR_MESS 820* 821* S: $rld_out 822* 823* T: $reload 824* 825* M: An error occurred while reloading. 826* 827* A: $inform 828* 829* 830* Message: 831* reload_volume: error initializing output medium: ERROR_MESS 832* 833* S: $rld_out 834* 835* T: $reload 836* 837* M: An error occurred while reloading. 838* 839* A: $inform 840* 841* 842* Message: 843* reload_volume: error opening volume map: ERROR_MESS 844* 845* S: $rld_out 846* 847* T: $reload 848* 849* M: An error occurred while reloading. 850* 851* A: $inform 852* 853* 854* Message: 855* reload_volume: error reloading volume NAME: ERROR_MESS 856* 857* S: $rld_out 858* 859* T: $reload 860* 861* M: An error occurred while reloading. 862* 863* A: $inform 864* 865* 866* Message: 867* reload_volume: label check failed: ERROR_MESS 868* 869* S: $rld_out 870* 871* T: $reload 872* 873* M: An error occurred while reloading. 874* 875* A: $inform 876* 877* 878* Message: 879* reload_volume: Operator name and physical volume name not specified 880* 881* S: $rld_out 882* 883* T: $reload 884* 885* M: Invalid input was typed. 886* 887* A: $tryagn 888* 889* 890* Message: 891* reload_volume: unable to determine pvid for NAME: ERROR_MESS 892* 893* S: $rld_out 894* 895* T: $reload 896* 897* M: The volume registration information does not contain the physical volume 898*NAME. This could be an invalid attempt to reload a stranger physical volume. 899* 900* A: $inform 901* 902* 903* Message: 904* reload_volume: unable to get info about rpv: ERROR_MESS 905* 906* S: $rld_out 907* 908* T: $reload 909* 910* M: An error occurred while reloading. 911* 912* A: $inform 913* 914* 915* Message: 916* reload_volume: unable to open vtoc header: ERROR_MESS 917* 918* S: $rld_out 919* 920* T: $reload 921* 922* M: An error occurred while reloading. 923* 924* A: $inform 925* 926* 927* Message: 928* reload_volume: unable to build VTOC map: ERROR_MESS 929* 930* S: $rld_out 931* 932* T: $reload 933* 934* M: An error occurred while reloading. 935* 936* A: $inform 937* 938* 939* END MESSAGE DOCUMENTATION */ 940 941 end reloader; SOURCE FILES USED IN THIS COMPILATION. LINE NUMBER DATE MODIFIED NAME PATHNAME 0 11/11/89 0851.2 reloader.pl1 >spec>install>1115>reloader.pl1 607 1 10/18/88 1215.0 rldr_data_.incl.pl1 >ldd>include>rldr_data_.incl.pl1 609 2 10/12/89 2013.4 backup_volume_log.incl.pl1 >ldd>include>backup_volume_log.incl.pl1 611 3 09/05/80 1136.5 backup_volume_header.incl.pl1 >ldd>include>backup_volume_header.incl.pl1 613 4 06/07/77 1233.6 backup_pvol_info.incl.pl1 >ldd>include>backup_pvol_info.incl.pl1 614 5 04/01/81 0830.5 rldr_control.incl.pl1 >ldd>include>rldr_control.incl.pl1 616 6 10/30/86 2010.5 fs_dev_types.incl.pl1 >ldd>include>fs_dev_types.incl.pl1 6-142 7 07/24/86 2051.8 fs_dev_types_sector.incl.pl1 >ldd>include>fs_dev_types_sector.incl.pl1 618 8 07/21/88 2036.0 fs_vol_label.incl.pl1 >ldd>include>fs_vol_label.incl.pl1 620 9 05/27/82 1525.8 old_fs_vol_label.incl.pl1 >ldd>include>old_fs_vol_label.incl.pl1 622 10 05/23/77 0919.3 vtoc_header.incl.pl1 >ldd>include>vtoc_header.incl.pl1 623 11 04/29/76 1050.5 vol_map.incl.pl1 >ldd>include>vol_map.incl.pl1 625 12 10/04/83 1105.1 vtoce.incl.pl1 >ldd>include>vtoce.incl.pl1 627 13 03/11/83 1204.3 query_info.incl.pl1 >ldd>include>query_info.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. Area based area(1024) dcl 60 ref 132 YES 000156 automatic bit(1) packed unaligned dcl 70 set ref 298* 303 313* 317 360* 363 addr builtin function dcl 119 ref 323 324 325 479 479 491 answer_iocbp 6 001254 automatic pointer initial level 2 dcl 13-7 set ref 13-7* areap 000100 automatic pointer dcl 61 set ref 125* 127* 131* 132 447* arg_init 0(04) based bit(1) level 4 packed packed unaligned dcl 1-23 set ref 164* argp 000102 automatic pointer dcl 61 set ref 157* 158 162* array 14024 based structure array level 2 dcl 5-5 backup_pvol_info based structure level 1 dcl 4-5 backup_volume_header based structure level 1 dcl 3-5 backup_volume_log based structure level 1 dcl 2-20 backup_volume_log_version_1 constant fixed bin(17,0) initial dcl 2-16 ref 537 537 backup_volume_log_version_2 constant fixed bin(17,0) initial dcl 2-17 ref 537 backup_volume_log_version_3 constant fixed bin(17,0) initial dcl 2-18 ref 537 bits based structure level 3 dcl 1-23 set ref 134* bvle based structure level 1 dcl 2-39 bvlp 001236 automatic pointer dcl 2-13 in procedure "reloader" set ref 206* 207 208 249* 250 251 255* 256 528* 529 537 537 537 537 537 549 574* 575 576 577 578 594* 595 bvlp 510 based pointer array level 3 in structure "rldr_data_" dcl 1-23 in procedure "reloader" set ref 206 249 255 439* 440* 549* 574 594 bvlp 52 000000 constant pointer initial level 2 in structure "rldr_data_nulled_pv" dcl 1-23 in procedure "reloader" chars 25 based structure level 3 dcl 1-23 set ref 136* cleanup 000504 stack reference condition dcl 117 ref 127 cln 000145 automatic fixed bin(17,0) dcl 67 set ref 290* 291 291 291* 292 clock builtin function dcl 119 ref 467 467 code 000104 automatic fixed bin(35,0) dcl 62 set ref 129* 130 149* 150 151* 155* 162* 163 192* 194 195* 216* 218 219* 238* 239 240* 275* 276 277* 293* 295 296 296 296* 326* 327 328* 333* 334 335* 339* 340 341* 345* 346 347* 351* 352 353 369* 370 371* 381* 382 383* 387* 389 390* 394* 395 396* 403* 404 404* 407* 408 408* 412* 413 413* 417* 418 418* 422* 423 423* 499* 500 501* 524* 528* 530* 543* 548* command_query_$yes_no 000050 constant entry external dcl 95 ref 298 313 360 common based structure level 2 dcl 1-23 control_name 000135 automatic char(32) packed unaligned dcl 66 set ref 292* 293* 298* controlp 514 based pointer array level 3 in structure "rldr_data_" dcl 1-23 in procedure "reloader" set ref 293* 306* 322 429 435* 454 454* 496 controlp 56 000000 constant pointer initial level 2 in structure "rldr_data_nulled_pv" dcl 1-23 in procedure "reloader" controlp 001240 automatic pointer dcl 5-3 in procedure "reloader" set ref 322* 323 324 325 429* 430 430 430 430 430 496* 505 506 cp_escape_control 1(02) 001254 automatic bit(2) initial level 3 packed packed unaligned dcl 13-7 set ref 13-7* cu_$arg_list_ptr 000046 constant entry external dcl 94 ref 157 data_init 0(03) based bit(1) level 4 packed packed unaligned dcl 1-23 set ref 154* data_object_bp 426 based pointer level 4 dcl 1-23 set ref 375* 381* date_time_ 000066 constant entry external dcl 103 ref 467 default_sys_dir 77 based char(168) level 4 dcl 1-23 set ref 139* 245 436 detach 0(08) based bit(1) level 4 packed packed unaligned dcl 1-23 set ref 137* dev_idx 000106 automatic fixed bin(17,0) dcl 63 set ref 283* 284 284 284 285 device_name 31 000000 constant char(8) initial level 2 dcl 1-23 dir_num 10 based fixed bin(17,0) level 2 dcl 5-5 set ref 430* dir_rec 11 based fixed bin(17,0) level 2 dcl 5-5 set ref 430* disk_model 457 based char(32) array level 3 in structure "rldr_data_" dcl 1-23 in procedure "reloader" set ref 282 disk_model 21 000000 constant char(32) initial level 2 in structure "rldr_data_nulled_pv" dcl 1-23 in procedure "reloader" disk_type 2035 based fixed bin(17,0) level 2 in structure "backup_volume_log" packed packed unaligned dcl 2-20 in procedure "reloader" ref 576 disk_type 475 based fixed bin(17,0) array level 3 in structure "rldr_data_" dcl 1-23 in procedure "reloader" set ref 209* 216* 283 576* divide builtin function dcl 119 ref 284 dont_query_restart 000160 automatic bit(1) packed unaligned dcl 70 set ref 280* 305* 311 ec parameter fixed bin(35,0) dcl 557 set ref 555 560* ename 000125 automatic char(32) packed unaligned dcl 66 set ref 522* 528* 530* enl 000146 automatic fixed bin(17,0) dcl 67 set ref 522* 523 error_table_$entlong 000010 external static fixed bin(35,0) dcl 77 ref 524 error_table_$improper_data_format 000012 external static fixed bin(35,0) dcl 78 ref 543 error_table_$namedup 000014 external static fixed bin(35,0) dcl 79 ref 296 error_table_$segknown 000016 external static fixed bin(35,0) dcl 80 ref 296 explanation_len 14 001254 automatic fixed bin(21,0) initial level 2 dcl 13-7 set ref 13-7* explanation_ptr 12 001254 automatic pointer initial level 2 dcl 13-7 set ref 13-7* first_volume 0(01) based bit(1) level 4 packed packed unaligned dcl 1-23 set ref 138* fixed 402 based structure level 3 dcl 1-23 set ref 135* flags 434 based structure array level 3 dcl 1-23 found_restart 000157 automatic bit(1) packed unaligned dcl 70 set ref 173* 303* 311 get_group_id_ 000032 constant entry external dcl 88 ref 436 get_system_free_area_ 000034 constant entry external dcl 89 ref 131 get_temp_segments_ 000064 constant entry external dcl 102 ref 275 369 hcs_$delentry_seg 000036 constant entry external dcl 90 ref 306 435 439 454 hcs_$fs_search_get_wdir 000042 constant entry external dcl 92 ref 479 hcs_$initiate 000022 constant entry external dcl 84 ref 528 hcs_$level_get 000030 constant entry external dcl 87 ref 436 hcs_$make_seg 000040 constant entry external dcl 91 ref 293 hcs_$set_256K_switch 000044 constant entry external dcl 93 ref 149 hcs_$set_max_length_seg 000024 constant entry external dcl 85 ref 381 387 i 001426 automatic fixed bin(17,0) dcl 589 in procedure "validate_all_vologs" set ref 593* 594 597* i 001416 automatic fixed bin(17,0) dcl 571 in procedure "fill_from_volog" set ref 573* 574 575 576 577 578* i 000147 automatic fixed bin(17,0) dcl 67 in procedure "reloader" set ref 174* 175* 215* 216 216 216 216 216 219* 247* 247* 249 i parameter fixed bin(17,0) dcl 519 in procedure "find_volog" ref 516 522 537 549 ignore 000105 automatic fixed bin(35,0) dcl 62 set ref 127* 306* 435* 439* 447* 454* 479* info 10 based structure level 2 dcl 2-20 infop 424 based pointer level 4 dcl 1-23 set ref 377* input_buffer_len 412 based fixed bin(21,0) level 4 dcl 1-23 set ref 380* input_buffer_ptr 432 based pointer level 4 dcl 1-23 set ref 379* 387* input_vol_lstp 430 based pointer level 4 dcl 1-23 set ref 376* io_module 171 based char(32) level 4 dcl 1-23 set ref 141* ioa_$rsnnl 000026 constant entry external dcl 86 ref 522 label based structure level 1 dcl 8-18 in procedure "reloader" label 24 based structure level 2 in structure "rldr_control" dcl 5-5 in procedure "reloader" set ref 325 label 10 based structure level 3 in structure "backup_volume_log" dcl 2-20 in procedure "reloader" labelp 50 000000 constant pointer initial level 2 in structure "rldr_data_nulled_pv" dcl 1-23 in procedure "reloader" labelp 001244 automatic pointer dcl 8-16 in procedure "reloader" set ref 492* 493 493 493 labelp 506 based pointer array level 3 in structure "rldr_data_" dcl 1-23 in procedure "reloader" set ref 289* 325* 492 literal_sw 1(05) 001254 automatic bit(1) initial level 3 packed packed unaligned dcl 13-7 set ref 13-7* local_vtoce 000164 automatic structure level 1 dcl 72 set ref 491 lv_name 541 based char(32) level 4 dcl 2-20 ref 578 lvid 471 based bit(36) array level 3 in structure "rldr_data_" dcl 1-23 in procedure "reloader" set ref 216* 577* lvid 552 based bit(36) level 4 in structure "backup_volume_log" dcl 2-20 in procedure "reloader" ref 208 251 577 lvname 11 000000 constant char(32) initial level 2 in structure "rldr_data_nulled_pv" dcl 1-23 in procedure "reloader" lvname 447 based char(32) array level 3 in structure "rldr_data_" dcl 1-23 in procedure "reloader" set ref 210* 216* 578* lvname 000107 automatic char(32) dcl 64 in procedure "reloader" set ref 192* 210 238* maxpvs parameter fixed bin(17,0) dcl 557 ref 555 mbz0 0(02) 000000 constant bit(34) initial level 3 packed packed unaligned dcl 1-23 mdc_$pvname_info 000052 constant entry external dcl 96 ref 192 216 238 mismatch 001427 automatic bit(1) initial packed unaligned dcl 590 set ref 590* 596* 602 mounted_rpv_pvid 000152 automatic bit(36) packed unaligned dcl 68 set ref 198* 227 243* 259 268 myname 000104 constant char(32) initial packed unaligned dcl 82 set ref 151* 159* 166* 168* 170* 178* 195* 201* 219* 240* 264* 275* 277* 298* 313* 328* 335* 341* 347* 354* 360* 369* 371* 383* 390* 396* 400* 404* 408* 413* 418* 423* 427* 430* 501* 530* 597* n_vtoce 1 based fixed bin(17,0) level 2 dcl 10-5 ref 498 npvs 404 based fixed bin(17,0) level 4 dcl 1-23 set ref 132* 165 166 174 200 213 215 247 281 321 400 400* 400 406 452 573 593 null builtin function dcl 119 ref 125 133 158 440 454 13-7 13-7 13-7 529 num_null_vtoce 20 based fixed bin(17,0) level 2 dcl 5-5 set ref 430* old_256K_switch 1 based bit(2) level 4 dcl 1-23 set ref 142* 149* old_label based structure level 1 dcl 9-7 old_labelp 001246 automatic pointer dcl 9-5 set ref 492* 495 operator 161 based char(32) level 4 dcl 1-23 set ref 165 166 168 outputvol_iocbp 54 000000 constant pointer initial level 2 dcl 1-23 padding 1(07) 001254 automatic bit(29) initial level 3 packed packed unaligned dcl 13-7 set ref 13-7* per_pv 434 based structure array level 2 dcl 1-23 set ref 145* prev_bitx 474 based fixed bin(17,0) array level 3 dcl 1-23 set ref 147* prev_wordx 473 based fixed bin(17,0) array level 3 dcl 1-23 set ref 146* prompt_after_explanation 1(06) 001254 automatic bit(1) initial level 3 packed packed unaligned dcl 13-7 set ref 13-7* ptrs 414 based structure level 3 dcl 1-23 set ref 133* pvid 472 based bit(36) array level 3 in structure "rldr_data_" dcl 1-23 in procedure "reloader" set ref 216* 575* pvid 551 based bit(36) level 4 in structure "backup_volume_log" dcl 2-20 in procedure "reloader" ref 207 pvid 2027 based bit(36) level 2 in structure "backup_volume_log" dcl 2-20 in procedure "reloader" ref 250 575 pvid_missing 000161 automatic bit(1) packed unaligned dcl 70 set ref 214* 221* 224 pvindex 000150 automatic fixed bin(17,0) dcl 67 set ref 144* 145 145 145 145 145 145 145 145 145 145 145 145 145 145 145 145 145 145 145 145 145 145 145 146 147* 213* 281* 282 283 284 285 285 288 289 290 292 293 303 306* 321* 322 323 324 325 326* 328 332 333* 335 339* 341 345* 347 351* 354 360* 404 406* 407* 408 412* 413 417* 418 422* 423 427 429 430 435 439 440* 452* 454 454* 492 496 497 499* 501 pvname 1 000000 constant char(32) initial level 2 in structure "rldr_data_nulled_pv" dcl 1-23 in procedure "reloader" pvname 437 based char(32) array level 3 in structure "rldr_data_" dcl 1-23 in procedure "reloader" set ref 216* 219* 247 290 292 328* 335* 341* 347* 354* 360* 400* 404* 408* 413* 418* 423* 427* 430* 501* 522* 537 597* pvname 2017 based char(32) level 2 in structure "backup_volume_log" dcl 2-20 in procedure "reloader" ref 537 query_code 3 001254 automatic fixed bin(35,0) initial level 2 dcl 13-7 set ref 13-7* query_info 001254 automatic structure level 1 dcl 13-7 query_info_version_5 constant fixed bin(17,0) initial dcl 13-35 ref 156 question_iocbp 4 001254 automatic pointer initial level 2 dcl 13-7 set ref 13-7* reload_volume_ 000074 constant entry external dcl 106 ref 403 repeat_time 10 001254 automatic fixed bin(71,0) initial level 2 dcl 13-7 set ref 13-7* restart 0(11) based bit(1) level 4 in structure "rldr_data_" packed packed unaligned dcl 1-23 in procedure "reloader" set ref 296 311 317* restart 0(01) 000000 constant bit(1) initial level 3 in structure "rldr_data_nulled_pv" packed packed unaligned dcl 1-23 in procedure "reloader" restart 435 based bit(1) array level 4 in structure "rldr_data_" dcl 1-23 in procedure "reloader" set ref 303* 332 rldr_arg_reader_ 000054 constant entry external dcl 98 ref 162 rldr_check_pvol_ 000056 constant entry external dcl 99 ref 351 rldr_control based structure level 1 dcl 5-5 rldr_data_ based structure level 1 dcl 1-23 set ref 132 rldr_data_common 000516 automatic structure level 1 dcl 1-23 rldr_data_max_pvs 000514 automatic fixed bin(17,0) dcl 1-23 set ref 129* 130* 132 132 144 rldr_data_nulled_pv 000000 constant structure level 1 dcl 1-23 ref 145 rldr_data_perpv 001152 automatic structure level 1 dcl 1-23 rldr_datap 000512 automatic pointer dcl 1-23 set ref 125* 127* 132* 133 134 135 136 137 138 139 139 141 142 145 146 147 149 151* 154 159* 162* 164 165 165 166 166 166* 168 168* 170* 174 178* 192 192 192 195* 198 199 200 201* 206 207 208 209 209 210 213 215 216 216 216 216 216 219* 219 227 227 238 238 238 240* 243 244 245 245 246 247 247 249 250 251 255 256 259 259 264* 268 268 277* 281 282 283 284 285 285 288 289 290 292 293 296 303 306 311 317 321 322 323 324 325 326* 328* 328 332 333* 335* 335 339* 341* 341 345* 347* 347 351* 354* 354 360 366 371* 374 375 376 377 378 379 380 381 383* 387 390* 394* 396* 400* 400 400 400 403* 404* 404 406 407* 408* 408 412* 413* 413 417* 418* 418 422* 423* 423 427* 427 429 430* 430 435 436 436 439 440 447* 452 454 454 492 496 497 499* 501* 501 522 528 530* 530 530 537 549 573 574 575 576 577 578 593 594 595 597* 597 rldr_finish_ 000110 constant entry external dcl 112 ref 127 447 rldr_input_$init_volume_list 000070 constant entry external dcl 104 ref 394 rldr_label_$close 000062 constant entry external dcl 101 ref 422 rldr_label_$open 000060 constant entry external dcl 100 ref 333 rldr_output_$init 000072 constant entry external dcl 105 ref 326 rldr_output_$read_vtoce 000116 constant entry external dcl 115 ref 499 rldr_report_$error_output 000112 constant entry external dcl 113 ref 151 159 166 168 170 195 201 219 240 264 277 328 335 341 347 354 371 383 390 396 404 408 413 418 423 597 rldr_report_$online_output 000114 constant entry external dcl 114 ref 178 400 427 430 501 530 rldr_volume_map_$close 000106 constant entry external dcl 111 ref 417 rldr_volume_map_$open 000104 constant entry external dcl 110 ref 339 rldr_vtoc_header_$build_vtoc_map 000102 constant entry external dcl 109 ref 407 rldr_vtoc_header_$close 000100 constant entry external dcl 108 ref 412 rldr_vtoc_header_$open 000076 constant entry external dcl 107 ref 345 rpv 0(02) based bit(1) level 4 packed packed unaligned dcl 1-23 set ref 199 246 rpv_disk_type 405 based fixed bin(17,0) level 4 dcl 1-23 set ref 192* 209 238* rpv_lvid 4 based bit(36) level 4 dcl 1-23 set ref 192* 208* 238* 251* rpv_pvid 3 based bit(36) level 4 in structure "rldr_data_" dcl 1-23 in procedure "reloader" set ref 192* 198 207* 227 238* 243 244* 250* 256* 259 259* 268 595 rpv_pvid 2036 based bit(36) level 2 in structure "backup_volume_log" dcl 2-20 in procedure "reloader" ref 256 595 save based bit(1) level 4 packed packed unaligned dcl 1-23 set ref 366 search builtin function dcl 119 ref 290 sect_per_cyl 000073 constant fixed bin(17,0) initial array dcl 7-15 ref 284 285 sect_per_rec 000062 constant fixed bin(17,0) initial array dcl 7-21 ref 284 284 seek_command 001242 automatic bit(6) initial array packed unaligned dcl 6-84 set ref 6-84* 6-84* 6-84* 6-84* 6-84* 6-84* 6-84* 6-84* 6-84* seg_fault_error 000000 stack reference condition dcl 117 ref 536 546 seg_num 12 based fixed bin(17,0) level 2 dcl 5-5 set ref 430* seg_rec 13 based fixed bin(17,0) level 2 dcl 5-5 set ref 430* skip 420 based pointer level 4 dcl 1-23 set ref 378* status_code 2 001254 automatic fixed bin(35,0) initial level 2 dcl 13-7 set ref 13-7* stranger 0(12) based bit(1) level 4 packed packed unaligned dcl 1-23 set ref 227* 268* substr builtin function dcl 119 ref 292 468 suppress_name_sw 1(01) 001254 automatic bit(1) initial level 3 packed packed unaligned dcl 13-7 set ref 13-7* suppress_spacing 1(04) 001254 automatic bit(1) initial level 3 packed packed unaligned dcl 13-7 set ref 13-7* switches 1 001254 automatic structure level 2 dcl 13-7 sys_dir 25 based char(168) level 4 dcl 1-23 set ref 139* 245 436 528 530* 530 sys_info$seg_size_256K 000020 external static fixed bin(19,0) dcl 81 set ref 381* 387* time_dumped 14026 based fixed bin(71,0) array level 3 dcl 5-5 set ref 506* time_string 000117 automatic char(24) packed unaligned dcl 65 set ref 467* 468 time_unmounted 000154 automatic fixed bin(71,0) dcl 69 in procedure "reloader" set ref 493* 495* 506 time_unmounted 612 based fixed bin(71,0) level 2 in structure "label" dcl 8-18 in procedure "reloader" ref 493 time_unmounted 604 based fixed bin(71,0) level 2 in structure "old_label" dcl 9-7 in procedure "reloader" ref 495 tp2 000464 automatic pointer array dcl 74 set ref 275* 288 289 tp6 000470 automatic pointer array dcl 75 set ref 369* 374 375 376 377 378 379 uid 1 based bit(36) level 2 in structure "vtoce" packed packed unaligned dcl 12-7 in procedure "reloader" ref 505 uid 14024 based bit(36) array level 3 in structure "rldr_control" dcl 5-5 in procedure "reloader" set ref 505* unusable_sectors 477 based fixed bin(17,0) array level 3 dcl 1-23 set ref 285* usable_sectors 476 based fixed bin(17,0) array level 3 dcl 1-23 set ref 284* 285 version 2015 based fixed bin(17,0) level 2 in structure "backup_volume_log" dcl 2-20 in procedure "reloader" ref 537 537 537 537 version 001254 automatic fixed bin(17,0) level 2 in structure "query_info" dcl 13-7 in procedure "reloader" set ref 156* version_1_found 000162 automatic bit(1) packed unaligned dcl 70 set ref 173* 191 537 537* vol_map based structure level 1 dcl 11-5 in procedure "reloader" vol_map 2024 based structure level 2 in structure "rldr_control" dcl 5-5 in procedure "reloader" set ref 323 vol_mapp 516 based pointer array level 3 in structure "rldr_data_" dcl 1-23 in procedure "reloader" set ref 323* vol_mapp 60 000000 constant pointer initial level 2 in structure "rldr_data_nulled_pv" dcl 1-23 in procedure "reloader" volmap_version 604 based fixed bin(17,0) level 2 dcl 8-18 ref 493 493 volog_missing 000163 automatic bit(1) packed unaligned dcl 70 set ref 173* 177 532* volume_record_bp 422 based pointer level 4 dcl 1-23 set ref 374* vtoc_header based structure level 1 dcl 10-5 in procedure "reloader" vtoc_header 10024 based structure level 2 in structure "rldr_control" dcl 5-5 in procedure "reloader" set ref 324 vtoc_headerp 504 based pointer array level 3 in structure "rldr_data_" dcl 1-23 in procedure "reloader" set ref 324* 497 vtoc_headerp 001250 automatic pointer dcl 10-3 in procedure "reloader" set ref 497* 498 vtoc_headerp 46 000000 constant pointer initial level 2 in structure "rldr_data_nulled_pv" dcl 1-23 in procedure "reloader" vtocbp 502 based pointer array level 3 in structure "rldr_data_" dcl 1-23 in procedure "reloader" set ref 288* vtocbp 44 000000 constant pointer initial level 2 in structure "rldr_data_nulled_pv" dcl 1-23 in procedure "reloader" vtoce based structure level 1 dcl 12-7 vtocep 001252 automatic pointer dcl 12-5 set ref 491* 499* 505 vtocx 000151 automatic fixed bin(17,0) dcl 67 set ref 498* 499* 501* 505 506* wdir 001320 automatic char(168) dcl 478 set ref 479 479 480 yes_or_no_sw 1 001254 automatic bit(1) initial level 3 packed packed unaligned dcl 13-7 set ref 13-7* NAMES DECLARED BY DECLARE STATEMENT AND NEVER REFERENCED. MODEL internal static fixed bin(17,0) initial array dcl 6-57 MODELN internal static fixed bin(17,0) initial array dcl 6-63 MODELX internal static fixed bin(17,0) initial array dcl 6-60 Multics_ID_String internal static char(32) initial packed unaligned dcl 8-92 bpvip automatic pointer dcl 4-3 bulkdevt internal static fixed bin(4,0) initial dcl 6-43 bvlep automatic pointer dcl 2-14 contents_type internal static fixed bin(17,0) initial dcl 3-21 cyl_per_dev internal static fixed bin(17,0) initial array dcl 6-102 cyl_per_sv internal static fixed bin(17,0) initial array dcl 6-105 dev_time internal static float bin(27) initial array dcl 6-139 device_names internal static char(4) initial array dcl 6-66 dir_type internal static fixed bin(17,0) initial dcl 3-16 dsu181devt internal static fixed bin(4,0) initial dcl 6-43 dsu190devt internal static fixed bin(4,0) initial dcl 6-43 dsu191devt internal static fixed bin(4,0) initial dcl 6-43 fips3380devt internal static fixed bin(4,0) initial dcl 6-43 fips3381devt internal static fixed bin(4,0) initial dcl 6-43 fips_type_disk internal static bit(1) initial array packed unaligned dcl 6-72 first_alt_sect_num internal static fixed bin(24,0) initial array dcl 6-130 first_dev_number internal static fixed bin(17,0) initial array dcl 6-69 first_rec_num internal static fixed bin(17,0) initial array dcl 6-115 first_sect_num internal static fixed bin(24,0) initial array dcl 6-124 hdp automatic pointer dcl 3-3 info_type internal static fixed bin(17,0) initial dcl 3-22 last_alt_sect_num internal static fixed bin(24,0) initial array dcl 6-133 last_physical_sect_num internal static fixed bin(24,0) initial array dcl 6-136 last_rec_num internal static fixed bin(18,0) initial array dcl 6-118 last_sect_num internal static fixed bin(24,0) initial array dcl 6-127 last_sv_rec_num internal static fixed bin(18,0) initial array dcl 6-121 maxdevt internal static fixed bin(4,0) initial dcl 6-43 media_removable internal static bit(1) initial array packed unaligned dcl 6-75 msu0400devt internal static fixed bin(4,0) initial dcl 6-43 msu0450devt internal static fixed bin(4,0) initial dcl 6-43 msu0451devt internal static fixed bin(4,0) initial dcl 6-43 msu0500devt internal static fixed bin(4,0) initial dcl 6-43 msu0501devt internal static fixed bin(4,0) initial dcl 6-43 needs_alt_part internal static bit(1) initial array packed unaligned dcl 6-81 null_type internal static fixed bin(17,0) initial dcl 3-18 number_of_sv internal static fixed bin(17,0) initial array dcl 6-93 pattern1 internal static bit(36) initial packed unaligned dcl 3-24 pattern2 internal static bit(36) initial packed unaligned dcl 3-25 pattern3 internal static bit(36) initial packed unaligned dcl 3-26 prev_output_log_type internal static fixed bin(17,0) initial dcl 3-20 query_info_version_3 internal static fixed bin(17,0) initial dcl 13-33 query_info_version_4 internal static fixed bin(17,0) initial dcl 13-34 query_info_version_6 internal static fixed bin(17,0) initial dcl 13-36 rec_per_cyl internal static fixed bin(17,0) initial array dcl 6-108 rec_per_dev internal static fixed bin(21,0) initial array dcl 6-87 rec_per_sv internal static fixed bin(17,0) initial array dcl 6-90 sect_per_sv internal static fixed bin(24,0) initial array dcl 7-18 sect_per_track internal static fixed bin(17,0) initial array dcl 7-33 sect_per_vtoc internal static fixed bin(17,0) initial array dcl 7-26 seg_type internal static fixed bin(17,0) initial dcl 3-17 seg_vtoce based structure level 1 dcl 12-92 shared_spindle internal static bit(1) initial array packed unaligned dcl 6-78 tracks_per_cyl internal static fixed bin(17,0) initial array dcl 6-111 valid_sv_array internal static char(1) initial array packed unaligned dcl 6-99 valid_sv_string internal static char(3) initial packed unaligned dcl 6-96 vol_mapp automatic pointer dcl 11-3 volume_log_type internal static fixed bin(17,0) initial dcl 3-19 vtoc_per_rec internal static fixed bin(17,0) initial array dcl 7-29 vtoce_parts based bit(2304) array dcl 12-90 vtoce_type internal static fixed bin(17,0) initial dcl 3-15 words_per_sect internal static fixed bin(17,0) initial array dcl 7-36 NAMES DECLARED BY EXPLICIT CONTEXT. end_reload_volume 005332 constant entry external dcl 446 err 005354 constant label dcl 452 ref 152 160 163 171 196 204 224 241 265 278 317 330 337 343 349 357 363 372 384 391 397 503 fill_from_volog 006145 constant entry internal dcl 568 ref 267 find_volog 005644 constant entry internal dcl 516 ref 175 finish 005340 constant label dcl 447 ref 179 456 get_max_pvs 006140 constant entry internal dcl 555 ref 129 got_rpvid 002765 constant label dcl 261 ref 252 reload_volume 001335 constant entry external dcl 58 reloader 001325 constant entry external dcl 33 remake_control_seg 003221 constant label dcl 293 ref 307 time_now_ 005411 constant entry internal dcl 463 ref 400 400 427 427 update_control_seg 005463 constant entry internal dcl 485 ref 366 validate_all_vologs 006203 constant entry internal dcl 586 ref 261 vol_err 006000 constant label dcl 530 ref 525 536 544 wdir_ 005440 constant entry internal dcl 474 ref 293 293 THERE WERE NO NAMES DECLARED BY CONTEXT OR IMPLICATION. STORAGE REQUIREMENTS FOR THIS PROGRAM. Object Text Link Symbol Defs Static Start 0 0 7254 7374 6551 7264 Length 10140 6551 120 530 502 0 BLOCK NAME STACK SIZE TYPE WHY NONQUICK/WHO SHARES STACK FRAME reloader 1154 external procedure is an external procedure. on unit on line 127 72 on unit time_now_ internal procedure shares stack frame of external procedure reloader. wdir_ internal procedure shares stack frame of external procedure reloader. update_control_seg internal procedure shares stack frame of external procedure reloader. find_volog 172 internal procedure enables or reverts conditions. on unit on line 536 64 on unit get_max_pvs internal procedure shares stack frame of external procedure reloader. fill_from_volog internal procedure shares stack frame of external procedure reloader. validate_all_vologs internal procedure shares stack frame of external procedure reloader. STORAGE FOR AUTOMATIC VARIABLES. STACK FRAME LOC IDENTIFIER BLOCK NAME reloader 000100 areap reloader 000102 argp reloader 000104 code reloader 000105 ignore reloader 000106 dev_idx reloader 000107 lvname reloader 000117 time_string reloader 000125 ename reloader 000135 control_name reloader 000145 cln reloader 000146 enl reloader 000147 i reloader 000150 pvindex reloader 000151 vtocx reloader 000152 mounted_rpv_pvid reloader 000154 time_unmounted reloader 000156 YES reloader 000157 found_restart reloader 000160 dont_query_restart reloader 000161 pvid_missing reloader 000162 version_1_found reloader 000163 volog_missing reloader 000164 local_vtoce reloader 000464 tp2 reloader 000470 tp6 reloader 000512 rldr_datap reloader 000514 rldr_data_max_pvs reloader 000516 rldr_data_common reloader 001152 rldr_data_perpv reloader 001236 bvlp reloader 001240 controlp reloader 001242 seek_command reloader 001244 labelp reloader 001246 old_labelp reloader 001250 vtoc_headerp reloader 001252 vtocep reloader 001254 query_info reloader 001320 wdir wdir_ 001416 i fill_from_volog 001426 i validate_all_vologs 001427 mismatch validate_all_vologs THE FOLLOWING EXTERNAL OPERATORS ARE USED BY THIS PROGRAM. r_g_a r_e_as r_ne_as r_le_a alloc_char_temp call_ext_out_desc call_ext_out call_int_this return_mac tra_ext_1 enable_op shorten_stack ext_entry int_entry op_alloc_ clock_mac THE FOLLOWING EXTERNAL ENTRIES ARE CALLED BY THIS PROGRAM. command_query_$yes_no cu_$arg_list_ptr date_time_ get_group_id_ get_system_free_area_ get_temp_segments_ hcs_$delentry_seg hcs_$fs_search_get_wdir hcs_$initiate hcs_$level_get hcs_$make_seg hcs_$set_256K_switch hcs_$set_max_length_seg ioa_$rsnnl mdc_$pvname_info reload_volume_ rldr_arg_reader_ rldr_check_pvol_ rldr_finish_ rldr_input_$init_volume_list rldr_label_$close rldr_label_$open rldr_output_$init rldr_output_$read_vtoce rldr_report_$error_output rldr_report_$online_output rldr_volume_map_$close rldr_volume_map_$open rldr_vtoc_header_$build_vtoc_map rldr_vtoc_header_$close rldr_vtoc_header_$open THE FOLLOWING EXTERNAL VARIABLES ARE USED BY THIS PROGRAM. error_table_$entlong error_table_$improper_data_format error_table_$namedup error_table_$segknown sys_info$seg_size_256K CONSTANTS 006306 aa 000002000000 006307 aa 000000000000 006310 aa 600000000041 006311 aa 001432000000 006312 aa 000002000000 006313 aa 000000000000 006314 aa 600000000041 006315 aa 001616000000 006316 aa 000 000 000 000 006317 aa 000 000 000 000 006320 aa 000 000 000 000 006321 aa 000 000 000 000 006322 aa 000 000 000 000 006323 aa 000 000 000 000 006324 aa 000 000 000 000 006325 aa 000 000 000 000 006326 aa 777 000 000 000 ÿ 006327 aa 000 000 000 000 006330 aa 000 000 000 000 006331 aa 000 000 000 000 006332 aa 000 000 000 000 006333 aa 000 000 000 000 006334 aa 000 000 000 000 006335 aa 000 000 000 000 006336 aa 000 000 000 000 006337 aa 000 000 000 000 006340 aa 000 000 000 000 006341 aa 000 000 000 000 006342 aa 000 000 000 000 006343 aa 000 000 000 000 006344 aa 000 000 000 000 006345 aa 000 000 000 000 006346 aa 000 000 000 000 006347 aa 000 000 000 000 006350 aa 000 000 000 000 006351 aa 000 000 000 000 006352 aa 000 000 000 000 006353 aa 000 000 000 000 006354 aa 000 000 000 000 006355 aa 000 000 000 000 006356 aa 000 000 000 000 006357 aa 000 000 000 000 006360 aa 000 000 000 000 006361 aa 000 000 000 000 006362 aa 000 000 000 000 006363 aa 000 000 000 000 006364 aa 000 000 000 000 006365 aa 000 000 000 000 006366 aa 000 000 000 000 006367 aa 000 000 000 000 006370 aa 000 000 000 000 006371 aa 000 000 000 000 006372 aa 000 000 000 000 006373 aa 000 000 000 000 006374 aa 000 000 000 000 006375 aa 000 000 000 000 006376 aa 000 000 000 000 006377 aa 000 000 000 000 006400 aa 000 000 000 000 006401 aa 000 000 000 000 006402 aa 000 000 000 000 006403 aa 000 000 000 000 006404 aa 000 000 000 000 006405 aa 000 000 000 000 006406 aa 000 000 000 000 006407 aa 000 000 000 000 006410 aa 000 000 000 000 006411 aa 000 000 000 000 006412 aa 000 000 000 000 006413 aa 000 000 000 000 006414 aa 000 000 000 000 006415 aa 000 000 000 000 006416 aa 000 000 000 000 006417 aa 000 000 000 000 006420 aa 000 000 000 000 006421 aa 000 000 000 000 006422 aa 000 000 000 000 006423 aa 000 000 000 000 006424 aa 000 000 000 000 006425 aa 000 000 000 000 006426 aa 000 000 000 000 006427 aa 000 000 000 000 006430 aa 000 000 000 000 006431 aa 000 000 000 000 006432 aa 000 000 000 000 006433 aa 000 000 000 000 006434 aa 000 000 000 000 006435 aa 000 000 000 000 006436 aa 000 000 000 000 006437 aa 000 000 000 000 006440 aa 000 000 000 000 006441 aa 000 000 000 000 006442 aa 000 000 000 000 006443 aa 000 000 000 000 006444 aa 000 000 000 000 006445 aa 000 000 000 000 006446 aa 000 000 000 000 006447 aa 000 000 000 000 006450 aa 000 000 000 000 006451 aa 000 000 000 000 006452 aa 000 000 000 000 006453 aa 000 000 000 000 006454 aa 000 000 000 000 006455 aa 000 000 000 000 006456 aa 000 000 000 000 006457 aa 000 000 000 000 006460 aa 000 000 000 000 006461 aa 000 000 000 000 006462 aa 000 000 000 000 006463 aa 000 000 000 000 006464 aa 000 000 000 000 006465 aa 000 000 000 000 006466 aa 000 000 000 000 006467 aa 000 000 000 000 006470 aa 000 000 000 000 006471 aa 000 000 000 000 006472 aa 000 000 000 000 006473 aa 000 000 000 000 006474 aa 000 000 000 000 006475 aa 000 000 000 000 006476 aa 000 000 000 000 006477 aa 000 000 000 000 006500 aa 000 000 000 000 006501 aa 000 000 000 000 006502 aa 000 000 000 000 006503 aa 000 000 000 000 006504 aa 000 000 000 000 006505 aa 000 000 000 000 006506 aa 000 000 000 000 006507 aa 000 000 000 000 006510 aa 000 000 000 000 006511 aa 000 000 000 000 006512 aa 000 000 000 000 006513 aa 000 000 000 000 006514 aa 000 000 000 000 006515 aa 000 000 000 000 006516 aa 000002000000 006517 aa 000000000000 006520 aa 600000000041 006521 aa 001440000000 006522 aa 777737777777 006523 aa 777677777777 006524 aa 777577777777 006525 aa 777377777777 006526 aa 776777777777 006527 aa 775777777777 006530 aa 737777777777 006531 aa 677777777777 006532 aa 000004000000 006533 aa 000000000000 006534 aa 600000000041 006535 aa 000514000000 006536 aa 600000000041 006537 aa 000104000000 006540 aa 773777777777 006541 aa 767777777777 006542 aa 757777777777 006543 aa 637777777777 006544 aa 577777777777 006545 aa 377777777777 000062 aa 000000000000 000063 aa 000000000020 000064 aa 000000000020 000065 aa 000000000020 000066 aa 000000000020 000067 aa 000000000020 000070 aa 000000000020 000071 aa 000000000002 000072 aa 000000000002 000073 aa 000000000000 000074 aa 000000001370 000075 aa 000000001370 000076 aa 000000001370 000077 aa 000000001115 000100 aa 000000000550 000101 aa 000000002400 000102 aa 000000000377 000103 aa 000000000377 000104 aa 162 145 154 157 relo 000105 aa 141 144 137 166 ad_v 000106 aa 157 154 165 155 olum 000107 aa 145 040 040 040 e 000110 aa 040 040 040 040 000111 aa 040 040 040 040 000112 aa 040 040 040 040 000113 aa 040 040 040 040 006546 aa 076 000 000 000 > 000114 aa 524000000053 000115 aa 524000000005 000116 aa 526000000030 000117 aa 410000000107 006547 aa 300000000000 006550 aa 340000000000 000120 aa 524000000035 000121 aa 524000000006 000122 aa 524100000040 000123 aa 514000000001 000124 aa 524000000045 000125 aa 524000000051 000126 aa 524000000132 000127 aa 524000000106 000130 aa 524000000044 000131 aa 524000000042 000132 aa 524000000047 000133 aa 524000000127 000134 aa 524000000266 000135 aa 524000000144 000136 aa 524000000227 000137 aa 524000000000 000140 aa 524000000031 000141 aa 524000000037 000142 aa 524000000205 000143 aa 524000000034 000144 aa 514000000044 000145 aa 524000000003 000146 aa 162 160 166 000 rpv 000147 aa 524000000052 000150 aa 524000000043 000151 aa 524000000033 000152 aa 524000000064 000153 aa 524000000113 000154 aa 404000000005 000155 aa 524000000040 000156 aa 404000000043 000157 aa 516000000001 000160 aa 524000000250 000161 aa 526000000006 000162 aa 464000000000 000163 aa 526000000040 000164 aa 404000000021 000166 aa 166 157 154 157 volo 000167 aa 147 000 000 000 g 000170 aa 136 141 056 136 ^a.^ 000171 aa 141 000 000 000 a 000172 aa 056 143 157 156 .con 000173 aa 164 162 157 154 trol 000174 aa 000000000000 000175 aa 000000000000 000176 aa 077777000043 000177 aa 000001000000 000200 aa 143 154 145 141 clea 000201 aa 156 165 160 000 nup 000202 aa 164 141 160 145 tape 000203 aa 137 155 165 154 _mul 000204 aa 164 137 000 000 t_ 000205 aa 464100000000 000206 aa 000000000001 000207 aa 000000000006 000210 aa 000000000002 000211 aa 464100000000 000212 aa 000000000001 000213 aa 000000000002 000214 aa 000000000002 000215 aa 163 145 147 137 seg_ 000216 aa 146 141 165 154 faul 000217 aa 164 137 145 162 t_er 000220 aa 162 157 162 000 ror 000221 aa 111 156 151 164 Init 000222 aa 151 141 154 151 iali 000223 aa 172 145 162 056 zer. 000224 aa 123 171 163 104 SysD 000225 aa 141 145 155 157 aemo 000226 aa 156 056 172 000 n.z 000227 aa 105 162 162 157 Erro 000230 aa 162 040 162 145 r re 000231 aa 154 157 141 144 load 000232 aa 151 156 147 040 ing 000233 aa 166 157 154 165 volu 000234 aa 155 145 040 136 me ^ 000235 aa 141 000 000 000 a 000236 aa 114 141 142 145 Labe 000237 aa 154 040 143 150 l ch 000240 aa 145 143 153 040 eck 000241 aa 146 141 151 154 fail 000242 aa 145 144 040 146 ed f 000243 aa 157 162 040 160 or p 000244 aa 166 040 136 141 v ^a 000245 aa 105 162 162 157 Erro 000246 aa 162 040 143 162 r cr 000247 aa 145 141 164 151 eati 000250 aa 156 147 040 164 ng t 000251 aa 145 155 160 040 emp 000252 aa 163 145 147 163 segs 000253 aa 040 000 000 000 000254 aa 124 150 145 040 The 000255 aa 162 145 154 157 relo 000256 aa 141 144 040 167 ad w 000257 aa 151 154 154 040 ill 000260 aa 142 145 040 141 be a 000261 aa 142 157 162 164 bort 000262 aa 145 144 056 000 ed. 000263 aa 125 156 141 142 Unab 000264 aa 154 145 040 164 le t 000265 aa 157 040 147 145 o ge 000266 aa 164 040 151 156 t in 000267 aa 146 157 040 141 fo a 000270 aa 142 157 165 164 bout 000271 aa 040 162 160 166 rpv 000272 aa 117 160 145 162 Oper 000273 aa 141 164 157 162 ator 000274 aa 040 156 141 155 nam 000275 aa 145 040 156 157 e no 000276 aa 164 040 163 160 t sp 000277 aa 145 143 151 146 ecif 000300 aa 151 145 144 000 ied 000301 aa 125 156 141 142 Unab 000302 aa 154 145 040 164 le t 000303 aa 157 040 162 145 o re 000304 aa 141 144 040 126 ad V 000305 aa 124 117 103 105 TOCE 000306 aa 040 136 157 040 ^o 000307 aa 157 156 040 160 on p 000310 aa 166 040 136 141 v ^a 000311 aa 105 156 144 040 End 000312 aa 162 145 154 157 relo 000313 aa 141 144 040 157 ad o 000314 aa 146 040 166 157 f vo 000315 aa 154 165 155 145 lume 000316 aa 040 136 141 040 ^a 000317 aa 141 164 040 136 at ^ 000320 aa 141 000 000 000 a 000321 aa 125 156 141 142 Unab 000322 aa 154 145 040 164 le t 000323 aa 157 040 144 145 o de 000324 aa 164 145 162 155 term 000325 aa 151 156 145 040 ine 000326 aa 160 166 151 144 pvid 000327 aa 040 146 157 162 for 000330 aa 040 136 141 000 ^a 000331 aa 103 157 165 154 Coul 000332 aa 144 040 156 157 d no 000333 aa 164 040 145 156 t en 000334 aa 141 142 154 145 able 000335 aa 040 062 065 066 256 000336 aa 113 127 040 163 KW s 000337 aa 145 147 155 145 egme 000340 aa 156 164 163 056 nts. 000341 aa 076 144 141 145 >dae 000342 aa 155 157 156 137 mon_ 000343 aa 144 151 162 137 dir_ 000344 aa 144 151 162 076 dir> 000345 aa 166 157 154 165 volu 000346 aa 155 145 137 142 me_b 000347 aa 141 143 153 165 acku 000350 aa 160 000 000 000 p 000351 aa 105 162 162 157 Erro 000352 aa 162 040 143 154 r cl 000353 aa 157 163 151 156 osin 000354 aa 147 040 166 157 g vo 000355 aa 154 165 155 145 lume 000356 aa 040 154 141 142 lab 000357 aa 145 154 040 146 el f 000360 aa 157 162 040 160 or p 000361 aa 166 040 136 141 v ^a 000362 aa 105 162 162 157 Erro 000363 aa 162 040 143 154 r cl 000364 aa 157 163 151 156 osin 000365 aa 147 040 166 157 g vo 000366 aa 154 165 155 145 lume 000367 aa 040 155 141 160 map 000370 aa 040 146 157 162 for 000371 aa 040 160 166 040 pv 000372 aa 136 141 000 000 ^a 000373 aa 105 162 162 157 Erro 000374 aa 162 040 143 154 r cl 000375 aa 157 163 151 156 osin 000376 aa 147 040 166 164 g vt 000377 aa 157 143 040 150 oc h 000400 aa 145 141 144 145 eade 000401 aa 162 040 146 157 r fo 000402 aa 162 040 160 166 r pv 000403 aa 040 136 141 000 ^a 000404 aa 125 156 141 142 Unab 000405 aa 154 145 040 164 le t 000406 aa 157 040 142 165 o bu 000407 aa 151 154 144 040 ild 000410 aa 126 124 117 103 VTOC 000411 aa 040 155 141 160 map 000412 aa 040 146 157 162 for 000413 aa 040 160 166 040 pv 000414 aa 136 141 000 000 ^a 000415 aa 125 156 141 142 Unab 000416 aa 154 145 040 164 le t 000417 aa 157 040 157 160 o op 000420 aa 145 156 040 166 en v 000421 aa 164 157 143 040 toc 000422 aa 150 145 141 144 head 000423 aa 145 162 040 146 er f 000424 aa 157 162 040 160 or p 000425 aa 166 040 136 141 v ^a 000426 aa 105 162 162 157 Erro 000427 aa 162 040 157 160 r op 000430 aa 145 156 151 156 enin 000431 aa 147 040 166 157 g vo 000432 aa 154 165 155 145 lume 000433 aa 040 155 141 160 map 000434 aa 040 146 157 162 for 000435 aa 040 160 166 040 pv 000436 aa 136 141 000 000 ^a 000437 aa 120 150 171 163 Phys 000440 aa 151 143 141 154 ical 000441 aa 040 166 157 154 vol 000442 aa 165 155 145 040 ume 000443 aa 156 141 155 145 name 000444 aa 040 156 157 164 not 000445 aa 040 163 160 145 spe 000446 aa 143 151 146 151 cifi 000447 aa 145 144 056 000 ed. 000450 aa 105 162 162 157 Erro 000451 aa 162 040 151 156 r in 000452 aa 151 164 151 141 itia 000453 aa 154 151 172 151 lizi 000454 aa 156 147 040 151 ng i 000455 aa 156 160 165 164 nput 000456 aa 040 166 157 154 vol 000457 aa 165 155 145 040 ume 000460 aa 154 151 163 164 list 000461 aa 040 000 000 000 000462 aa 105 162 162 157 Erro 000463 aa 162 040 151 156 r in 000464 aa 151 164 151 141 itia 000465 aa 154 151 172 151 lizi 000466 aa 156 147 040 157 ng o 000467 aa 165 164 160 165 utpu 000470 aa 164 040 155 145 t me 000471 aa 144 151 165 155 dium 000472 aa 054 040 160 166 , pv 000473 aa 040 136 141 000 ^a 000474 aa 125 156 141 142 Unab 000475 aa 154 145 040 164 le t 000476 aa 157 040 154 157 o lo 000477 aa 143 141 164 145 cate 000500 aa 040 166 141 154 val 000501 aa 151 144 040 166 id v 000502 aa 157 154 165 155 olum 000503 aa 145 040 154 157 e lo 000504 aa 147 040 136 141 g ^a 000505 aa 136 133 076 136 ^[>^ 000506 aa 135 136 141 000 ]^a 000507 aa 102 145 147 151 Begi 000510 aa 156 040 162 145 n re 000511 aa 154 157 141 144 load 000512 aa 040 157 146 040 of 000513 aa 166 157 154 165 volu 000514 aa 155 145 136 133 me^[ 000515 aa 163 136 135 040 s^] 000516 aa 136 166 050 136 ^v(^ 000517 aa 141 040 136 051 a ^) 000520 aa 040 141 164 040 at 000521 aa 136 141 000 000 ^a 000522 aa 103 157 165 154 Coul 000523 aa 144 040 156 157 d no 000524 aa 164 040 143 162 t cr 000525 aa 145 141 164 145 eate 000526 aa 040 062 065 066 256 000527 aa 113 127 040 164 KW t 000530 aa 145 155 160 157 empo 000531 aa 162 141 162 171 rary 000532 aa 040 163 145 147 seg 000533 aa 155 145 156 164 ment 000534 aa 056 000 000 000 . 000535 aa 120 154 145 141 Plea 000536 aa 163 145 040 163 se s 000537 aa 164 141 162 164 tart 000540 aa 040 166 157 154 vol 000541 aa 165 155 145 040 ume 000542 aa 154 157 147 040 log 000543 aa 162 145 143 157 reco 000544 aa 166 145 162 171 very 000545 aa 040 160 162 157 pro 000546 aa 143 145 144 165 cedu 000547 aa 162 145 000 000 re 000550 aa 117 160 145 162 Oper 000551 aa 141 164 157 162 ator 000552 aa 040 156 141 155 nam 000553 aa 145 040 141 156 e an 000554 aa 144 040 160 150 d ph 000555 aa 171 163 151 143 ysic 000556 aa 141 154 040 166 al v 000557 aa 157 154 165 155 olum 000560 aa 145 040 156 141 e na 000561 aa 155 145 040 156 me n 000562 aa 157 164 040 163 ot s 000563 aa 160 145 143 151 peci 000564 aa 146 151 145 144 fied 000565 aa 125 156 141 142 Unab 000566 aa 154 145 040 164 le t 000567 aa 157 040 162 145 o re 000570 aa 154 157 141 144 load 000571 aa 040 166 157 154 vol 000572 aa 165 155 145 040 ume 000573 aa 136 141 056 040 ^a. 000574 aa 126 157 154 157 Volo 000575 aa 147 040 141 156 g an 000576 aa 144 040 166 157 d vo 000577 aa 154 165 155 145 lume 000600 aa 040 154 141 142 lab 000601 aa 145 154 040 150 el h 000602 aa 141 166 145 040 ave 000603 aa 146 141 164 141 fata 000604 aa 154 040 155 151 l mi 000605 aa 163 155 141 164 smat 000606 aa 143 150 000 000 ch 000607 aa 124 150 145 040 The 000610 aa 122 120 126 040 RPV 000611 aa 160 166 151 144 pvid 000612 aa 040 146 157 162 for 000613 aa 040 160 150 171 phy 000614 aa 163 151 143 141 sica 000615 aa 154 040 166 157 l vo 000616 aa 154 165 155 145 lume 000617 aa 040 136 141 040 ^a 000620 aa 144 157 145 163 does 000621 aa 040 156 157 164 not 000622 aa 040 155 141 164 mat 000623 aa 143 150 040 164 ch t 000624 aa 150 145 040 144 he d 000625 aa 145 164 145 162 eter 000626 aa 155 151 156 145 mine 000627 aa 144 040 122 120 d RP 000630 aa 126 040 160 166 V pv 000631 aa 151 144 056 000 id. 000632 aa 124 150 151 163 This 000633 aa 040 143 157 155 com 000634 aa 155 141 156 144 mand 000635 aa 040 162 145 161 req 000636 aa 165 151 162 145 uire 000637 aa 163 040 141 162 s ar 000640 aa 147 165 155 145 gume 000641 aa 156 164 163 054 nts, 000642 aa 040 160 154 145 ple 000643 aa 141 163 145 040 ase 000644 aa 143 157 156 163 cons 000645 aa 165 154 164 040 ult 000646 aa 101 115 070 061 AM81 000647 aa 040 050 115 117 (MO 000650 aa 110 051 040 146 H) f 000651 aa 157 162 040 151 or i 000652 aa 156 146 157 162 nfor 000653 aa 155 141 164 151 mati 000654 aa 157 156 056 000 on. 000655 aa 116 157 040 143 No c 000656 aa 157 156 164 162 ontr 000657 aa 157 154 040 163 ol s 000660 aa 145 147 040 146 eg f 000661 aa 157 165 156 144 ound 000662 aa 040 146 157 162 for 000663 aa 040 055 162 145 -re 000664 aa 163 164 141 162 star 000665 aa 164 040 143 157 t co 000666 aa 156 164 162 157 ntro 000667 aa 154 040 141 162 l ar 000670 aa 147 056 040 104 g. D 000671 aa 157 040 171 157 o yo 000672 aa 165 040 167 151 u wi 000673 aa 163 150 040 164 sh t 000674 aa 157 040 143 157 o co 000675 aa 156 164 151 156 ntin 000676 aa 165 145 040 167 ue w 000677 aa 151 164 150 040 ith 000700 aa 164 150 145 040 the 000701 aa 162 145 154 157 relo 000702 aa 141 144 077 000 ad? 000703 aa 111 156 151 164 Init 000704 aa 151 141 154 151 iali 000705 aa 172 145 144 040 zed 000706 aa 160 150 171 163 phys 000707 aa 151 143 141 154 ical 000710 aa 040 166 157 154 vol 000711 aa 165 155 145 040 ume 000712 aa 136 141 040 144 ^a d 000713 aa 157 145 163 040 oes 000714 aa 156 157 164 040 not 000715 aa 155 141 164 143 matc 000716 aa 150 040 157 156 h on 000717 aa 154 151 156 145 line 000720 aa 040 154 157 147 log 000721 aa 151 143 141 154 ical 000722 aa 040 151 155 141 ima 000723 aa 147 145 056 040 ge. 000724 aa 104 157 040 171 Do y 000725 aa 157 165 040 167 ou w 000726 aa 151 163 150 040 ish 000727 aa 164 157 040 160 to p 000730 aa 162 157 143 145 roce 000731 aa 145 144 000 000 ed 000732 aa 122 145 154 157 Relo 000733 aa 141 144 145 144 aded 000734 aa 040 157 156 040 on 000735 aa 166 157 154 165 volu 000736 aa 155 145 040 136 me ^ 000737 aa 141 040 136 144 a ^d 000740 aa 040 162 145 143 rec 000741 aa 157 162 144 163 ords 000742 aa 040 157 146 040 of 000743 aa 136 144 040 144 ^d d 000744 aa 151 162 145 143 irec 000745 aa 164 157 162 151 tori 000746 aa 145 163 040 141 es a 000747 aa 156 144 040 040 nd 000750 aa 136 144 040 162 ^d r 000751 aa 145 143 157 162 ecor 000752 aa 144 163 040 157 ds o 000753 aa 146 040 136 144 f ^d 000754 aa 040 163 145 147 seg 000755 aa 155 145 156 164 ment 000756 aa 163 040 141 156 s an 000757 aa 144 040 136 144 d ^d 000760 aa 040 156 165 154 nul 000761 aa 154 040 166 164 l vt 000762 aa 157 143 145 163 oces 000763 aa 103 157 156 164 Cont 000764 aa 162 157 154 040 rol 000765 aa 163 145 147 155 segm 000766 aa 145 156 164 040 ent 000767 aa 136 141 040 145 ^a e 000770 aa 170 151 163 164 xist 000771 aa 163 040 142 165 s bu 000772 aa 164 040 055 162 t -r 000773 aa 145 163 164 141 esta 000774 aa 162 164 040 156 rt n 000775 aa 157 164 040 163 ot s 000776 aa 160 145 143 151 peci 000777 aa 146 151 145 144 fied 001000 aa 056 040 104 157 . Do 001001 aa 040 171 157 165 you 001002 aa 040 167 141 156 wan 001003 aa 164 040 141 040 t a 001004 aa 162 145 163 164 rest 001005 aa 141 162 164 040 art 001006 aa 157 156 040 164 on t 001007 aa 150 145 040 160 he p 001010 aa 150 171 163 151 hysi 001011 aa 143 141 154 040 cal 001012 aa 166 157 154 165 volu 001013 aa 155 145 077 040 me? 001014 aa 101 156 040 151 An i 001015 aa 155 160 154 145 mple 001016 aa 155 145 156 164 ment 001017 aa 141 164 151 157 atio 001020 aa 156 040 162 145 n re 001021 aa 163 164 162 151 stri 001022 aa 143 164 151 157 ctio 001023 aa 156 040 167 150 n wh 001024 aa 145 156 040 165 en u 001025 aa 163 151 156 147 sing 001026 aa 040 166 145 162 ver 001027 aa 163 151 157 156 sion 001030 aa 040 061 040 166 1 v 001031 aa 157 154 165 155 olum 001032 aa 145 040 154 157 e lo 001033 aa 147 163 056 012 gs. 001034 aa 124 150 151 163 This 001035 aa 040 162 145 161 req 001036 aa 165 151 162 145 uire 001037 aa 163 040 164 150 s th 001040 aa 141 164 040 164 at t 001041 aa 150 145 040 122 he R 001042 aa 120 126 040 142 PV b 001043 aa 145 040 162 145 e re 001044 aa 154 157 141 144 load 001045 aa 145 144 040 163 ed s 001046 aa 145 160 141 162 epar 001047 aa 141 164 145 154 atel 001050 aa 171 040 146 162 y fr 001051 aa 157 155 040 157 om o 001052 aa 164 150 145 162 ther 001053 aa 040 166 157 154 vol 001054 aa 165 155 145 163 umes 001055 aa 056 000 000 000 . 001056 aa 101 040 143 157 A co 001057 aa 156 164 162 157 ntro 001060 aa 154 040 163 145 l se 001061 aa 147 155 145 156 gmen 001062 aa 164 040 167 141 t wa 001063 aa 163 040 146 157 s fo 001064 aa 165 156 144 040 und 001065 aa 146 157 162 040 for 001066 aa 164 150 145 040 the 001067 aa 163 160 145 143 spec 001070 aa 151 146 151 145 ifie 001071 aa 144 040 160 150 d ph 001072 aa 171 163 151 143 ysic 001073 aa 141 154 040 166 al v 001074 aa 157 154 165 155 olum 001075 aa 145 054 040 142 e, b 001076 aa 165 164 040 055 ut - 001077 aa 162 145 163 164 rest 001100 aa 141 162 164 040 art 001101 aa 167 141 163 040 was 001102 aa 156 157 164 040 not 001103 aa 163 160 145 143 spec 001104 aa 151 146 151 145 ifie 001105 aa 144 056 040 012 d. 001106 aa 104 157 040 171 Do y 001107 aa 157 165 040 167 ou w 001110 aa 151 163 150 040 ish 001111 aa 141 040 162 145 a re 001112 aa 163 164 141 162 star 001113 aa 164 040 157 156 t on 001114 aa 040 164 150 145 the 001115 aa 040 163 160 145 spe 001116 aa 143 151 146 151 cifi 001117 aa 145 144 040 160 ed p 001120 aa 150 171 163 151 hysi 001121 aa 143 141 154 040 cal 001122 aa 166 157 154 165 volu 001123 aa 155 145 077 000 me? 001124 aa 124 150 145 040 The 001125 aa 055 162 145 163 -res 001126 aa 164 141 162 164 tart 001127 aa 040 143 157 156 con 001130 aa 164 162 157 154 trol 001131 aa 040 141 162 147 arg 001132 aa 165 155 145 156 umen 001133 aa 164 040 167 141 t wa 001134 aa 163 040 163 160 s sp 001135 aa 145 143 151 146 ecif 001136 aa 151 145 144 054 ied, 001137 aa 040 142 165 164 but 001140 aa 040 156 157 040 no 001141 aa 143 157 156 164 cont 001142 aa 162 157 154 040 rol 001143 aa 163 145 147 155 segm 001144 aa 145 156 164 040 ent 001145 aa 167 141 163 040 was 001146 aa 146 157 165 156 foun 001147 aa 144 056 012 101 d. A 001150 aa 040 042 171 145 "ye 001151 aa 163 042 040 141 s" a 001152 aa 156 163 167 145 nswe 001153 aa 162 040 167 151 r wi 001154 aa 154 154 040 143 ll c 001155 aa 157 156 164 151 onti 001156 aa 156 165 145 040 nue 001157 aa 167 151 164 150 with 001160 aa 040 164 150 145 the 001161 aa 040 162 145 154 rel 001162 aa 157 141 144 054 oad, 001163 aa 040 167 150 145 whe 001164 aa 162 145 141 163 reas 001165 aa 040 141 040 042 a " 001166 aa 156 157 042 040 no" 001167 aa 141 156 163 167 answ 001170 aa 145 162 040 167 er w 001171 aa 151 154 154 040 ill 001172 aa 141 142 157 162 abor 001173 aa 164 040 151 164 t it 001174 aa 056 040 103 157 . Co 001175 aa 156 164 151 156 ntin 001176 aa 165 145 040 164 ue t 001177 aa 150 145 040 162 he r 001200 aa 145 154 157 141 eloa 001201 aa 144 077 000 000 d? BEGIN PROCEDURE reloader PROLOGUE SEQUENCE 001202 aa 6 01431 4401 00 sxl0 pr6|793 STATEMENT 1 ON LINE 84 OF FILE 6 001203 aa 6 01271 4501 00 stz pr6|697 001204 aa 6 01271 0541 00 aos pr6|697 001205 aa 6 01271 2361 00 ldq pr6|697 001206 aa 000006 4020 07 mpy 6,dl 001207 aa 003 106 060 400 csl (),(pr,ql),fill(0),bool(move) 001210 aa 000000 00 0000 descb 0,0 001211 aa 6 01241 63 0006 descb pr6|673(30),6 seek_command 001212 aa 6 01271 0541 00 aos pr6|697 001213 aa 6 01271 2361 00 ldq pr6|697 001214 aa 000006 4020 07 mpy 6,dl 001215 aa 003 106 060 404 csl (ic),(pr,ql),fill(0),bool(move) 001216 aa 005333 00 0006 descb 2779,6 006550 = 340000000000 001217 aa 6 01241 63 0006 descb pr6|673(30),6 seek_command 001220 aa 6 01271 0541 00 aos pr6|697 001221 aa 6 01271 2361 00 ldq pr6|697 001222 aa 000006 4020 07 mpy 6,dl 001223 aa 003 106 060 404 csl (ic),(pr,ql),fill(0),bool(move) 001224 aa 005325 00 0006 descb 2773,6 006550 = 340000000000 001225 aa 6 01241 63 0006 descb pr6|673(30),6 seek_command 001226 aa 6 01271 0541 00 aos pr6|697 001227 aa 6 01271 2361 00 ldq pr6|697 001230 aa 000006 4020 07 mpy 6,dl 001231 aa 003 106 060 404 csl (ic),(pr,ql),fill(0),bool(move) 001232 aa 005317 00 0006 descb 2767,6 006550 = 340000000000 001233 aa 6 01241 63 0006 descb pr6|673(30),6 seek_command 001234 aa 6 01271 0541 00 aos pr6|697 001235 aa 6 01271 2361 00 ldq pr6|697 001236 aa 000006 4020 07 mpy 6,dl 001237 aa 003 106 060 404 csl (ic),(pr,ql),fill(0),bool(move) 001240 aa 005311 00 0006 descb 2761,6 006550 = 340000000000 001241 aa 6 01241 63 0006 descb pr6|673(30),6 seek_command 001242 aa 6 01271 0541 00 aos pr6|697 001243 aa 6 01271 2361 00 ldq pr6|697 001244 aa 000006 4020 07 mpy 6,dl 001245 aa 003 106 060 404 csl (ic),(pr,ql),fill(0),bool(move) 001246 aa 005303 00 0006 descb 2755,6 006550 = 340000000000 001247 aa 6 01241 63 0006 descb pr6|673(30),6 seek_command 001250 aa 6 01271 0541 00 aos pr6|697 001251 aa 6 01271 2361 00 ldq pr6|697 001252 aa 000006 4020 07 mpy 6,dl 001253 aa 003 106 060 404 csl (ic),(pr,ql),fill(0),bool(move) 001254 aa 005275 00 0006 descb 2749,6 006550 = 340000000000 001255 aa 6 01241 63 0006 descb pr6|673(30),6 seek_command 001256 aa 6 01271 0541 00 aos pr6|697 001257 aa 6 01271 2361 00 ldq pr6|697 001260 aa 000006 4020 07 mpy 6,dl 001261 aa 003 106 060 404 csl (ic),(pr,ql),fill(0),bool(move) 001262 aa 005266 00 0006 descb 2742,6 006547 = 300000000000 001263 aa 6 01241 63 0006 descb pr6|673(30),6 seek_command 001264 aa 6 01271 0541 00 aos pr6|697 001265 aa 6 01271 2361 00 ldq pr6|697 001266 aa 000006 4020 07 mpy 6,dl 001267 aa 003 106 060 404 csl (ic),(pr,ql),fill(0),bool(move) 001270 aa 005260 00 0006 descb 2736,6 006547 = 300000000000 001271 aa 6 01241 63 0006 descb pr6|673(30),6 seek_command STATEMENT 1 ON LINE 7 OF FILE 13 001272 aa 6 01256 4501 00 stz pr6|686 query_info.status_code 001273 aa 6 01257 4501 00 stz pr6|687 query_info.query_code 001274 aa 776702 2370 04 ldaq -574,ic 000176 = 077777000043 000001000000 001275 aa 6 01260 7571 00 staq pr6|688 query_info.question_iocbp 001276 aa 6 01262 7571 00 staq pr6|690 query_info.answer_iocbp 001277 aa 776675 2370 04 ldaq -579,ic 000174 = 000000000000 000000000000 001300 aa 6 01264 7571 00 staq pr6|692 query_info.repeat_time 001301 aa 776675 2370 04 ldaq -579,ic 000176 = 077777000043 000001000000 001302 aa 6 01266 7571 00 staq pr6|694 query_info.explanation_ptr 001303 aa 6 01270 4501 00 stz pr6|696 query_info.explanation_len 001304 aa 005241 2350 04 lda 2721,ic 006545 = 377777777777 001305 aa 6 01255 3551 00 ansa pr6|685 query_info.yes_or_no_sw 001306 aa 005236 2350 04 lda 2718,ic 006544 = 577777777777 001307 aa 6 01255 3551 00 ansa pr6|685 query_info.suppress_name_sw 001310 aa 005233 2350 04 lda 2715,ic 006543 = 637777777777 001311 aa 6 01255 3551 00 ansa pr6|685 query_info.cp_escape_control 001312 aa 005230 2350 04 lda 2712,ic 006542 = 757777777777 001313 aa 6 01255 3551 00 ansa pr6|685 query_info.suppress_spacing 001314 aa 005225 2350 04 lda 2709,ic 006541 = 767777777777 001315 aa 6 01255 3551 00 ansa pr6|685 query_info.literal_sw 001316 aa 005222 2350 04 lda 2706,ic 006540 = 773777777777 001317 aa 6 01255 3551 00 ansa pr6|685 query_info.prompt_after_explanation 001320 aa 774000 2350 03 lda 260096,du 001321 aa 6 01255 3551 00 ansa pr6|685 query_info.padding 001322 aa 6 01431 7201 00 lxl0 pr6|793 001323 aa 000000 7100 10 tra 0,0 MAIN SEQUENCE ENTRY TO reloader STATEMENT 1 ON LINE 33 reloader: proc; 001324 da 000433200000 001325 aa 002220 6270 00 eax7 1168 001326 aa 7 00034 3521 20 epp2 pr7|28,* 001327 aa 2 01045 2721 00 tsp2 pr2|549 ext_entry 001330 aa 000000000000 001331 aa 000000000000 001332 aa 777650 7000 04 tsx0 -88,ic 001202 STATEMENT 1 ON LINE 58 reload_volume: entry; 001333 aa 000010 7100 04 tra 8,ic 001343 ENTRY TO reload_volume STATEMENT 1 ON LINE 58 reload_volume: entry; 001334 da 000442200000 001335 aa 002220 6270 00 eax7 1168 001336 aa 7 00034 3521 20 epp2 pr7|28,* 001337 aa 2 01045 2721 00 tsp2 pr2|549 ext_entry 001340 aa 000000000000 001341 aa 000000000000 001342 aa 777640 7000 04 tsx0 -96,ic 001202 STATEMENT 1 ON LINE 125 areap, rldr_datap = null (); 001343 aa 776633 3734 24 epp7 -613,ic* 001344 aa 6 00100 6535 00 spri7 pr6|64 areap 001345 aa 6 00512 6535 00 spri7 pr6|330 rldr_datap STATEMENT 1 ON LINE 127 on cleanup call rldr_finish_ (rldr_datap, areap, ignore); 001346 aa 000007 7260 07 lxl6 7,dl 001347 aa 776631 3520 04 epp2 -615,ic 000200 = 143154145141 001350 aa 0 00717 7001 00 tsx0 pr0|463 enable_op 001351 aa 000004 7100 04 tra 4,ic 001355 001352 aa 000504000000 001353 aa 000023 7100 04 tra 19,ic 001376 BEGIN CONDITION cleanup.1 ENTRY TO cleanup.1 STATEMENT 1 ON LINE 127 on cleanup call rldr_finish_ (rldr_datap, areap, ignore); 001354 da 000450200000 001355 aa 000120 6270 00 eax7 80 001356 aa 7 00034 3521 20 epp2 pr7|28,* 001357 aa 2 01047 2721 00 tsp2 pr2|551 int_entry 001360 aa 000000000000 001361 aa 000000000000 001362 aa 6 00040 3735 20 epp7 pr6|32,* 001363 aa 7 00512 3521 00 epp2 pr7|330 rldr_datap 001364 aa 6 00102 2521 00 spri2 pr6|66 001365 aa 7 00100 3521 00 epp2 pr7|64 areap 001366 aa 6 00104 2521 00 spri2 pr6|68 001367 aa 7 00105 3521 00 epp2 pr7|69 ignore 001370 aa 6 00106 2521 00 spri2 pr6|70 001371 aa 6 00100 6211 00 eax1 pr6|64 001372 aa 014000 4310 07 fld 6144,dl 001373 la 4 00110 3521 20 epp2 pr4|72,* rldr_finish_ 001374 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out 001375 aa 0 00631 7101 00 tra pr0|409 return_mac END CONDITION cleanup.1 STATEMENT 1 ON LINE 129 call get_max_pvs (rldr_data_max_pvs, code); 001376 aa 005134 3520 04 epp2 2652,ic 006532 = 000004000000 001377 aa 004541 6700 04 tsp4 2401,ic 006140 STATEMENT 1 ON LINE 130 if code ^= 0 then rldr_data_max_pvs = 100; 001400 aa 6 00104 2361 00 ldq pr6|68 code 001401 aa 000003 6000 04 tze 3,ic 001404 001402 aa 000144 2360 07 ldq 100,dl 001403 aa 6 00514 7561 00 stq pr6|332 rldr_data_max_pvs STATEMENT 1 ON LINE 131 areap = get_system_free_area_ (); 001404 aa 6 00100 3521 00 epp2 pr6|64 areap 001405 aa 6 01436 2521 00 spri2 pr6|798 001406 aa 6 01434 6211 00 eax1 pr6|796 001407 aa 004000 4310 07 fld 2048,dl 001410 aa 6 00044 3701 20 epp4 pr6|36,* 001411 la 4 00034 3521 20 epp2 pr4|28,* get_system_free_area_ 001412 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 132 allocate rldr_data_ in (Area) set (rldr_datap); 001413 aa 6 00514 2361 00 ldq pr6|332 rldr_data_max_pvs 001414 aa 000064 4020 07 mpy 52,dl 001415 aa 000434 0760 07 adq 284,dl 001416 aa 6 00100 3521 20 epp2 pr6|64,* Area 001417 aa 0 01402 7001 00 tsx0 pr0|770 op_alloc_ 001420 aa 777773 7100 04 tra -5,ic 001413 001421 aa 6 00512 2521 00 spri2 pr6|330 rldr_datap 001422 aa 6 00514 2361 00 ldq pr6|332 rldr_data_max_pvs 001423 aa 2 00404 7561 00 stq pr2|260 rldr_data_.npvs STATEMENT 1 ON LINE 133 rldr_data_.ptrs = null (); 001424 aa 776552 2370 04 ldaq -662,ic 000176 = 077777000043 000001000000 001425 aa 2 00414 7571 00 staq pr2|268 rldr_data_.inputvol_iocbp 001426 aa 2 00416 7571 00 staq pr2|270 rldr_data_.error_iocbp 001427 aa 2 00420 7571 00 staq pr2|272 rldr_data_.skip 001430 aa 2 00422 7571 00 staq pr2|274 rldr_data_.volume_record_bp 001431 aa 2 00424 7571 00 staq pr2|276 rldr_data_.infop 001432 aa 2 00426 7571 00 staq pr2|278 rldr_data_.data_object_bp 001433 aa 2 00430 7571 00 staq pr2|280 rldr_data_.input_vol_lstp 001434 aa 2 00432 7571 00 staq pr2|282 rldr_data_.input_buffer_ptr STATEMENT 1 ON LINE 134 rldr_data_.bits = "0"b; 001435 aa 005110 2350 04 lda 2632,ic 006545 = 377777777777 001436 aa 2 00000 3551 00 ansa pr2|0 rldr_data_.save 001437 aa 005105 2350 04 lda 2629,ic 006544 = 577777777777 001440 aa 2 00000 3551 00 ansa pr2|0 rldr_data_.first_volume 001441 aa 005070 2350 04 lda 2616,ic 006531 = 677777777777 001442 aa 2 00000 3551 00 ansa pr2|0 rldr_data_.rpv 001443 aa 005065 2350 04 lda 2613,ic 006530 = 737777777777 001444 aa 2 00000 3551 00 ansa pr2|0 rldr_data_.data_init 001445 aa 005075 2350 04 lda 2621,ic 006542 = 757777777777 001446 aa 2 00000 3551 00 ansa pr2|0 rldr_data_.arg_init 001447 aa 005072 2350 04 lda 2618,ic 006541 = 767777777777 001450 aa 2 00000 3551 00 ansa pr2|0 rldr_data_.disable_error_report 001451 aa 005067 2350 04 lda 2615,ic 006540 = 773777777777 001452 aa 2 00000 3551 00 ansa pr2|0 rldr_data_.no_object 001453 aa 005054 2350 04 lda 2604,ic 006527 = 775777777777 001454 aa 2 00000 3551 00 ansa pr2|0 rldr_data_.err_online 001455 aa 005051 2350 04 lda 2601,ic 006526 = 776777777777 001456 aa 2 00000 3551 00 ansa pr2|0 rldr_data_.detach 001457 aa 005046 2350 04 lda 2598,ic 006525 = 777377777777 001460 aa 2 00000 3551 00 ansa pr2|0 rldr_data_.brief 001461 aa 005043 2350 04 lda 2595,ic 006524 = 777577777777 001462 aa 2 00000 3551 00 ansa pr2|0 rldr_data_.manual 001463 aa 005040 2350 04 lda 2592,ic 006523 = 777677777777 001464 aa 2 00000 3551 00 ansa pr2|0 rldr_data_.restart 001465 aa 005035 2350 04 lda 2589,ic 006522 = 777737777777 001466 aa 2 00000 3551 00 ansa pr2|0 rldr_data_.stranger 001467 aa 777740 2350 03 lda 262112,du 001470 aa 2 00000 3551 00 ansa pr2|0 rldr_data_.pad0 001471 aa 2 00001 4501 00 stz pr2|1 rldr_data_.old_256K_switch 001472 aa 2 00002 4501 00 stz pr2|2 rldr_data_.last_pvid 001473 aa 2 00003 4501 00 stz pr2|3 rldr_data_.rpv_pvid 001474 aa 2 00004 4501 00 stz pr2|4 rldr_data_.rpv_lvid 001475 aa 000001 2360 07 ldq 1,dl 001476 aa 6 01272 7561 00 stq pr6|698 001477 aa 000000 0110 03 nop 0,du 001500 aa 6 01272 7271 00 lxl7 pr6|698 001501 aa 6 00512 3735 20 epp7 pr6|330,* rldr_datap 001502 aa 7 00004 4501 17 stz pr7|4,7 rldr_data_.last_valid_puid 001503 aa 6 01272 2361 00 ldq pr6|698 001504 aa 6 01272 0541 00 aos pr6|698 001505 aa 000020 1160 07 cmpq 16,dl 001506 aa 777772 6040 04 tmi -6,ic 001500 STATEMENT 1 ON LINE 135 rldr_data_.fixed = 0; 001507 aa 7 00402 4501 00 stz pr7|258 rldr_data_.num_abandoned 001510 aa 7 00403 4501 00 stz pr7|259 rldr_data_.last_vtocx 001511 aa 7 00404 4501 00 stz pr7|260 rldr_data_.npvs 001512 aa 7 00405 4501 00 stz pr7|261 rldr_data_.rpv_disk_type 001513 aa 776461 2370 04 ldaq -719,ic 000174 = 000000000000 000000000000 001514 aa 7 00406 7571 00 staq pr7|262 rldr_data_.start_time 001515 aa 7 00410 7571 00 staq pr7|264 rldr_data_.from_time 001516 aa 7 00412 4501 00 stz pr7|266 rldr_data_.input_buffer_len 001517 aa 7 00413 4501 00 stz pr7|267 rldr_data_.input_buffer_start STATEMENT 1 ON LINE 136 rldr_data_.chars = ""; 001520 aa 040 100 100 400 mlr (),(pr),fill(040) 001521 aa 000000 00 0000 desc9a 0,0 001522 aa 7 00025 00 0250 desc9a pr7|21,168 rldr_data_.sys_dir 001523 aa 040 100 100 400 mlr (),(pr),fill(040) 001524 aa 000000 00 0000 desc9a 0,0 001525 aa 7 00077 00 0250 desc9a pr7|63,168 rldr_data_.default_sys_dir 001526 aa 040 100 100 400 mlr (),(pr),fill(040) 001527 aa 000000 00 0000 desc9a 0,0 001530 aa 7 00151 00 0040 desc9a pr7|105,32 rldr_data_.last_valid_vtoce_ename 001531 aa 040 100 100 400 mlr (),(pr),fill(040) 001532 aa 000000 00 0000 desc9a 0,0 001533 aa 7 00161 00 0040 desc9a pr7|113,32 rldr_data_.operator 001534 aa 040 100 100 400 mlr (),(pr),fill(040) 001535 aa 000000 00 0000 desc9a 0,0 001536 aa 7 00171 00 0040 desc9a pr7|121,32 rldr_data_.io_module 001537 aa 040 100 100 400 mlr (),(pr),fill(040) 001540 aa 000000 00 0000 desc9a 0,0 001541 aa 7 00201 00 0400 desc9a pr7|129,256 rldr_data_.input_volume_desc 001542 aa 040 100 100 400 mlr (),(pr),fill(040) 001543 aa 000000 00 0000 desc9a 0,0 001544 aa 7 00301 00 0400 desc9a pr7|193,256 rldr_data_.output_volume_desc STATEMENT 1 ON LINE 137 rldr_data_.detach = "1"b; 001545 aa 001000 2350 03 lda 512,du 001546 aa 7 00000 2551 00 orsa pr7|0 rldr_data_.detach STATEMENT 1 ON LINE 138 rldr_data_.first_volume = "1"b; 001547 aa 200000 2350 03 lda 65536,du 001550 aa 7 00000 2551 00 orsa pr7|0 rldr_data_.first_volume STATEMENT 1 ON LINE 139 rldr_data_.sys_dir, rldr_data_.default_sys_dir = ">daemon_dir_dir>volume_backup"; 001551 aa 040 100 100 404 mlr (ic),(pr),fill(040) 001552 aa 776570 00 0035 desc9a -648,29 000341 = 076144141145 001553 aa 7 00025 00 0250 desc9a pr7|21,168 rldr_data_.sys_dir 001554 aa 040 100 100 404 mlr (ic),(pr),fill(040) 001555 aa 776565 00 0035 desc9a -651,29 000341 = 076144141145 001556 aa 7 00077 00 0250 desc9a pr7|63,168 rldr_data_.default_sys_dir STATEMENT 1 ON LINE 141 rldr_data_.io_module = "tape_mult_"; 001557 aa 040 100 100 404 mlr (ic),(pr),fill(040) 001560 aa 776423 00 0012 desc9a -749,10 000202 = 164141160145 001561 aa 7 00171 00 0040 desc9a pr7|121,32 rldr_data_.io_module STATEMENT 1 ON LINE 142 rldr_data_.old_256K_switch = ""b; 001562 aa 7 00001 4501 00 stz pr7|1 rldr_data_.old_256K_switch STATEMENT 1 ON LINE 144 do pvindex = 1 to rldr_data_max_pvs; 001563 aa 6 00514 2361 00 ldq pr6|332 rldr_data_max_pvs 001564 aa 6 01273 7561 00 stq pr6|699 001565 aa 000001 2360 07 ldq 1,dl 001566 aa 6 00150 7561 00 stq pr6|104 pvindex 001567 aa 000000 0110 03 nop 0,du 001570 aa 6 00150 2361 00 ldq pr6|104 pvindex 001571 aa 6 01273 1161 00 cmpq pr6|699 001572 aa 000105 6054 04 tpnz 69,ic 001677 STATEMENT 1 ON LINE 145 rldr_data_.per_pv (pvindex) = rldr_data_nulled_pv; 001573 aa 000064 4020 07 mpy 52,dl 001574 aa 000000 2350 07 lda 0,dl 001575 aa 6 00512 3735 20 epp7 pr6|330,* rldr_datap 001576 aa 7 00350 6751 06 era pr7|232,ql rldr_data_.abandoned 001577 aa 0 00002 3751 00 ana pr0|2 = 400000000000 001600 aa 7 00350 6551 06 ersa pr7|232,ql rldr_data_.abandoned 001601 aa 776177 2350 04 lda -897,ic 000000 = 000000000000 001602 aa 000001 7350 00 als 1 001603 aa 000000 6270 06 eax7 0,ql 001604 aa 0 00002 3771 00 anaq pr0|2 = 400000000000 000000000000 001605 aa 7 00351 7551 17 sta pr7|233,7 rldr_data_.restart 001606 aa 776172 2350 04 lda -902,ic 000000 = 000000000000 001607 aa 000002 7350 00 als 2 001610 aa 7 00352 6751 17 era pr7|234,7 rldr_data_.mbz0 001611 aa 0 00104 3751 00 ana pr0|68 = 777777777774 001612 aa 7 00352 6551 17 ersa pr7|234,7 rldr_data_.mbz0 001613 aa 7 00353 3715 17 epp5 pr7|235,7 rldr_data_.pvname 001614 aa 000 100 100 404 mlr (ic),(pr),fill(000) 001615 aa 776165 00 0040 desc9a -907,32 000001 = 040040040040 001616 aa 5 00000 00 0040 desc9a pr5|0,32 rldr_data_.pvname 001617 aa 7 00363 3535 17 epp3 pr7|243,7 rldr_data_.lvname 001620 aa 000 100 100 404 mlr (ic),(pr),fill(000) 001621 aa 776171 00 0040 desc9a -903,32 000011 = 040040040040 001622 aa 3 00000 00 0040 desc9a pr3|0,32 rldr_data_.lvname 001623 aa 7 00373 3515 17 epp1 pr7|251,7 rldr_data_.disk_model 001624 aa 000 100 100 404 mlr (ic),(pr),fill(000) 001625 aa 776175 00 0040 desc9a -899,32 000021 = 040040040040 001626 aa 1 00000 00 0040 desc9a pr1|0,32 rldr_data_.disk_model 001627 aa 776202 2350 04 lda -894,ic 000031 = 040040040040 001630 aa 776202 2360 04 ldq -894,ic 000032 = 040040040040 001631 aa 7 00403 7551 17 sta pr7|259,7 rldr_data_.device_name 001632 aa 7 00404 7561 17 stq pr7|260,7 rldr_data_.device_name 001633 aa 000000 2350 07 lda 0,dl 001634 aa 7 00405 7551 17 sta pr7|261,7 rldr_data_.lvid 001635 aa 000000 2350 07 lda 0,dl 001636 aa 7 00406 7551 17 sta pr7|262,7 rldr_data_.pvid 001637 aa 000000 2360 07 ldq 0,dl 001640 aa 7 00407 7561 17 stq pr7|263,7 rldr_data_.prev_wordx 001641 aa 000000 2360 07 ldq 0,dl 001642 aa 7 00410 7561 17 stq pr7|264,7 rldr_data_.prev_bitx 001643 aa 000000 2360 07 ldq 0,dl 001644 aa 7 00411 7561 17 stq pr7|265,7 rldr_data_.disk_type 001645 aa 000000 2360 07 ldq 0,dl 001646 aa 7 00412 7561 17 stq pr7|266,7 rldr_data_.usable_sectors 001647 aa 000000 2360 07 ldq 0,dl 001650 aa 7 00413 7561 17 stq pr7|267,7 rldr_data_.unusable_sectors 001651 aa 000000 2360 07 ldq 0,dl 001652 aa 7 00414 7561 17 stq pr7|268,7 rldr_data_.n_vtoce 001653 aa 776171 2370 04 ldaq -903,ic 000044 = 077777000043 000001000000 001654 aa 7 00416 7571 17 staq pr7|270,7 rldr_data_.vtocbp 001655 aa 776171 2370 04 ldaq -903,ic 000046 = 077777000043 000001000000 001656 aa 7 00420 7571 17 staq pr7|272,7 rldr_data_.vtoc_headerp 001657 aa 776171 2370 04 ldaq -903,ic 000050 = 077777000043 000001000000 001660 aa 7 00422 7571 17 staq pr7|274,7 rldr_data_.labelp 001661 aa 776171 2370 04 ldaq -903,ic 000052 = 077777000043 000001000000 001662 aa 7 00424 7571 17 staq pr7|276,7 rldr_data_.bvlp 001663 aa 776171 2370 04 ldaq -903,ic 000054 = 077777000043 000001000000 001664 aa 7 00426 7571 17 staq pr7|278,7 rldr_data_.outputvol_iocbp 001665 aa 776171 2370 04 ldaq -903,ic 000056 = 077777000043 000001000000 001666 aa 7 00430 7571 17 staq pr7|280,7 rldr_data_.controlp 001667 aa 776171 2370 04 ldaq -903,ic 000060 = 077777000043 000001000000 001670 aa 7 00432 7571 17 staq pr7|282,7 rldr_data_.vol_mapp STATEMENT 1 ON LINE 146 rldr_data_.prev_wordx (pvindex) = 1; 001671 aa 000001 2360 07 ldq 1,dl 001672 aa 7 00407 7561 17 stq pr7|263,7 rldr_data_.prev_wordx STATEMENT 1 ON LINE 147 rldr_data_.prev_bitx (pvindex) = 2; 001673 aa 000002 2360 07 ldq 2,dl 001674 aa 7 00410 7561 17 stq pr7|264,7 rldr_data_.prev_bitx STATEMENT 1 ON LINE 148 end; 001675 aa 6 00150 0541 00 aos pr6|104 pvindex 001676 aa 777672 7100 04 tra -70,ic 001570 STATEMENT 1 ON LINE 149 call hcs_$set_256K_switch ("11"b, rldr_data_.old_256K_switch, code); 001677 aa 600000 2350 03 lda 196608,du 001700 aa 6 01440 7551 00 sta pr6|800 001701 aa 6 01440 3521 00 epp2 pr6|800 001702 aa 6 01444 2521 00 spri2 pr6|804 001703 aa 6 00512 3735 20 epp7 pr6|330,* rldr_datap 001704 aa 7 00001 3521 00 epp2 pr7|1 rldr_data_.old_256K_switch 001705 aa 6 01446 2521 00 spri2 pr6|806 001706 aa 6 00104 3521 00 epp2 pr6|68 code 001707 aa 6 01450 2521 00 spri2 pr6|808 001710 aa 6 01442 6211 00 eax1 pr6|802 001711 aa 014000 4310 07 fld 6144,dl 001712 aa 6 00044 3701 20 epp4 pr6|36,* 001713 la 4 00044 3521 20 epp2 pr4|36,* hcs_$set_256K_switch 001714 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 150 if code ^= 0 then do; 001715 aa 6 00104 2361 00 ldq pr6|68 code 001716 aa 000032 6000 04 tze 26,ic 001750 STATEMENT 1 ON LINE 151 call rldr_report_$error_output (rldr_datap, code, myname, "Could not enable 256KW segments."); 001717 aa 000 100 100 404 mlr (ic),(pr),fill(000) 001720 aa 776412 00 0040 desc9a -758,32 000331 = 103157165154 001721 aa 6 01442 00 0040 desc9a pr6|802,32 001722 aa 6 00512 3521 00 epp2 pr6|330 rldr_datap 001723 aa 6 01454 2521 00 spri2 pr6|812 001724 aa 6 00104 3521 00 epp2 pr6|68 code 001725 aa 6 01456 2521 00 spri2 pr6|814 001726 aa 776156 3520 04 epp2 -914,ic 000104 = 162145154157 001727 aa 6 01460 2521 00 spri2 pr6|816 001730 aa 6 01442 3521 00 epp2 pr6|802 001731 aa 6 01462 2521 00 spri2 pr6|818 001732 aa 776230 3520 04 epp2 -872,ic 000162 = 464000000000 001733 aa 6 01464 2521 00 spri2 pr6|820 001734 aa 776222 3520 04 epp2 -878,ic 000156 = 404000000043 001735 aa 6 01466 2521 00 spri2 pr6|822 001736 aa 776225 3520 04 epp2 -875,ic 000163 = 526000000040 001737 aa 6 01470 2521 00 spri2 pr6|824 001740 aa 776215 3520 04 epp2 -883,ic 000155 = 524000000040 001741 aa 6 01472 2521 00 spri2 pr6|826 001742 aa 6 01452 6211 00 eax1 pr6|810 001743 aa 020000 4310 07 fld 8192,dl 001744 aa 6 00044 3701 20 epp4 pr6|36,* 001745 la 4 00112 3521 20 epp2 pr4|74,* rldr_report_$error_output 001746 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 152 goto err; 001747 aa 003405 7100 04 tra 1797,ic 005354 STATEMENT 1 ON LINE 153 end; STATEMENT 1 ON LINE 154 rldr_data_.data_init = "1"b; 001750 aa 040000 2350 03 lda 16384,du 001751 aa 6 00512 2551 20 orsa pr6|330,* rldr_data_.data_init STATEMENT 1 ON LINE 155 code = 0; 001752 aa 6 00104 4501 00 stz pr6|68 code STATEMENT 1 ON LINE 156 query_info.version = query_info_version_5; 001753 aa 000005 2360 07 ldq 5,dl 001754 aa 6 01254 7561 00 stq pr6|684 query_info.version STATEMENT 1 ON LINE 157 call cu_$arg_list_ptr (argp); 001755 aa 6 00102 3521 00 epp2 pr6|66 argp 001756 aa 6 01436 2521 00 spri2 pr6|798 001757 aa 6 01434 6211 00 eax1 pr6|796 001760 aa 004000 4310 07 fld 2048,dl 001761 aa 6 00044 3701 20 epp4 pr6|36,* 001762 la 4 00046 3521 20 epp2 pr4|38,* cu_$arg_list_ptr 001763 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 158 if argp = null () then do; 001764 aa 6 00102 2371 00 ldaq pr6|66 argp 001765 aa 776211 6770 04 eraq -887,ic 000176 = 077777000043 000001000000 001766 aa 0 00460 3771 00 anaq pr0|304 = 077777000077 777777077077 001767 aa 000033 6010 04 tnz 27,ic 002022 STATEMENT 1 ON LINE 159 call rldr_report_$error_output (rldr_datap, 0, myname, "This command requires arguments, please consult AM81 (MOH) for information."); 001770 aa 6 01440 4501 00 stz pr6|800 001771 aa 000 100 100 404 mlr (ic),(pr),fill(000) 001772 aa 776641 00 0114 desc9a -607,76 000632 = 124150151163 001773 aa 6 01474 00 0114 desc9a pr6|828,76 001774 aa 6 00512 3521 00 epp2 pr6|330 rldr_datap 001775 aa 6 01454 2521 00 spri2 pr6|812 001776 aa 6 01440 3521 00 epp2 pr6|800 001777 aa 6 01456 2521 00 spri2 pr6|814 002000 aa 776104 3520 04 epp2 -956,ic 000104 = 162145154157 002001 aa 6 01460 2521 00 spri2 pr6|816 002002 aa 6 01474 3521 00 epp2 pr6|828 002003 aa 6 01462 2521 00 spri2 pr6|818 002004 aa 776156 3520 04 epp2 -914,ic 000162 = 464000000000 002005 aa 6 01464 2521 00 spri2 pr6|820 002006 aa 776146 3520 04 epp2 -922,ic 000154 = 404000000005 002007 aa 6 01466 2521 00 spri2 pr6|822 002010 aa 776153 3520 04 epp2 -917,ic 000163 = 526000000040 002011 aa 6 01470 2521 00 spri2 pr6|824 002012 aa 776141 3520 04 epp2 -927,ic 000153 = 524000000113 002013 aa 6 01472 2521 00 spri2 pr6|826 002014 aa 6 01452 6211 00 eax1 pr6|810 002015 aa 020000 4310 07 fld 8192,dl 002016 aa 6 00044 3701 20 epp4 pr6|36,* 002017 la 4 00112 3521 20 epp2 pr4|74,* rldr_report_$error_output 002020 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 160 goto err; 002021 aa 003333 7100 04 tra 1755,ic 005354 STATEMENT 1 ON LINE 161 end; STATEMENT 1 ON LINE 162 call rldr_arg_reader_ (rldr_datap, argp, code); 002022 aa 6 00512 3521 00 epp2 pr6|330 rldr_datap 002023 aa 6 01444 2521 00 spri2 pr6|804 002024 aa 6 00102 3521 00 epp2 pr6|66 argp 002025 aa 6 01446 2521 00 spri2 pr6|806 002026 aa 6 00104 3521 00 epp2 pr6|68 code 002027 aa 6 01450 2521 00 spri2 pr6|808 002030 aa 6 01442 6211 00 eax1 pr6|802 002031 aa 014000 4310 07 fld 6144,dl 002032 aa 6 00044 3701 20 epp4 pr6|36,* 002033 la 4 00054 3521 20 epp2 pr4|44,* rldr_arg_reader_ 002034 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 163 if code ^= 0 then goto err; 002035 aa 6 00104 2361 00 ldq pr6|68 code 002036 aa 003316 6010 04 tnz 1742,ic 005354 STATEMENT 1 ON LINE 164 rldr_data_.arg_init = "1"b; 002037 aa 020000 2350 03 lda 8192,du 002040 aa 6 00512 2551 20 orsa pr6|330,* rldr_data_.arg_init STATEMENT 1 ON LINE 165 if rldr_data_.operator = "" | rldr_data_.npvs <= 0 then do; 002041 aa 6 00512 3735 20 epp7 pr6|330,* rldr_datap 002042 aa 7 00404 2361 00 ldq pr7|260 rldr_data_.npvs 002043 aa 0 00520 7001 00 tsx0 pr0|336 r_le_a 002044 aa 040 004 106 500 cmpc (pr),(ic),fill(040) 002045 aa 7 00161 00 0040 desc9a pr7|113,32 rldr_data_.operator 002046 aa 004502 00 0000 desc9a 2370,0 006546 = 076000000000 002047 aa 6 01440 7551 00 sta pr6|800 002050 aa 0 00512 7001 00 tsx0 pr0|330 r_e_as 002051 aa 6 01441 7551 00 sta pr6|801 002052 aa 000003 6010 04 tnz 3,ic 002055 002053 aa 6 01440 2351 00 lda pr6|800 002054 aa 000127 6000 04 tze 87,ic 002203 STATEMENT 1 ON LINE 166 if ((rldr_data_.operator = "") & (rldr_data_.npvs <= 0)) then call rldr_report_$error_output (rldr_datap, 0, myname, "Operator name and physical volume name not specified"); 002055 aa 6 01441 2351 00 lda pr6|801 002056 aa 000035 6000 04 tze 29,ic 002113 002057 aa 6 01440 2351 00 lda pr6|800 002060 aa 000033 6000 04 tze 27,ic 002113 002061 aa 6 01440 4501 00 stz pr6|800 002062 aa 000 100 100 404 mlr (ic),(pr),fill(000) 002063 aa 776466 00 0064 desc9a -714,52 000550 = 117160145162 002064 aa 6 01452 00 0064 desc9a pr6|810,52 002065 aa 6 00512 3521 00 epp2 pr6|330 rldr_datap 002066 aa 6 01476 2521 00 spri2 pr6|830 002067 aa 6 01440 3521 00 epp2 pr6|800 002070 aa 6 01500 2521 00 spri2 pr6|832 002071 aa 776013 3520 04 epp2 -1013,ic 000104 = 162145154157 002072 aa 6 01502 2521 00 spri2 pr6|834 002073 aa 6 01452 3521 00 epp2 pr6|810 002074 aa 6 01504 2521 00 spri2 pr6|836 002075 aa 776065 3520 04 epp2 -971,ic 000162 = 464000000000 002076 aa 6 01506 2521 00 spri2 pr6|838 002077 aa 776055 3520 04 epp2 -979,ic 000154 = 404000000005 002100 aa 6 01510 2521 00 spri2 pr6|840 002101 aa 776062 3520 04 epp2 -974,ic 000163 = 526000000040 002102 aa 6 01512 2521 00 spri2 pr6|842 002103 aa 776047 3520 04 epp2 -985,ic 000152 = 524000000064 002104 aa 6 01514 2521 00 spri2 pr6|844 002105 aa 6 01474 6211 00 eax1 pr6|828 002106 aa 020000 4310 07 fld 8192,dl 002107 aa 6 00044 3701 20 epp4 pr6|36,* 002110 la 4 00112 3521 20 epp2 pr4|74,* rldr_report_$error_output 002111 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc 002112 aa 003242 7100 04 tra 1698,ic 005354 STATEMENT 1 ON LINE 168 else if (rldr_data_.operator = "") then call rldr_report_$error_output (rldr_datap, 0, myname, "Operator name not specified"); 002113 aa 040 004 106 500 cmpc (pr),(ic),fill(040) 002114 aa 7 00161 00 0040 desc9a pr7|113,32 rldr_data_.operator 002115 aa 004433 00 0000 desc9a 2331,0 006546 = 076000000000 002116 aa 000033 6010 04 tnz 27,ic 002151 002117 aa 6 01440 4501 00 stz pr6|800 002120 aa 000 100 100 404 mlr (ic),(pr),fill(000) 002121 aa 776152 00 0034 desc9a -918,28 000272 = 117160145162 002122 aa 6 01442 00 0034 desc9a pr6|802,28 002123 aa 6 00512 3521 00 epp2 pr6|330 rldr_datap 002124 aa 6 01454 2521 00 spri2 pr6|812 002125 aa 6 01440 3521 00 epp2 pr6|800 002126 aa 6 01456 2521 00 spri2 pr6|814 002127 aa 775755 3520 04 epp2 -1043,ic 000104 = 162145154157 002130 aa 6 01460 2521 00 spri2 pr6|816 002131 aa 6 01442 3521 00 epp2 pr6|802 002132 aa 6 01462 2521 00 spri2 pr6|818 002133 aa 776027 3520 04 epp2 -1001,ic 000162 = 464000000000 002134 aa 6 01464 2521 00 spri2 pr6|820 002135 aa 776017 3520 04 epp2 -1009,ic 000154 = 404000000005 002136 aa 6 01466 2521 00 spri2 pr6|822 002137 aa 776024 3520 04 epp2 -1004,ic 000163 = 526000000040 002140 aa 6 01470 2521 00 spri2 pr6|824 002141 aa 776010 3520 04 epp2 -1016,ic 000151 = 524000000033 002142 aa 6 01472 2521 00 spri2 pr6|826 002143 aa 6 01452 6211 00 eax1 pr6|810 002144 aa 020000 4310 07 fld 8192,dl 002145 aa 6 00044 3701 20 epp4 pr6|36,* 002146 la 4 00112 3521 20 epp2 pr4|74,* rldr_report_$error_output 002147 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc 002150 aa 003204 7100 04 tra 1668,ic 005354 STATEMENT 1 ON LINE 170 else call rldr_report_$error_output (rldr_datap, 0, myname, "Physical volume name not specified."); 002151 aa 6 01440 4501 00 stz pr6|800 002152 aa 000 100 100 404 mlr (ic),(pr),fill(000) 002153 aa 776265 00 0044 desc9a -843,36 000437 = 120150171163 002154 aa 6 01452 00 0044 desc9a pr6|810,36 002155 aa 6 00512 3521 00 epp2 pr6|330 rldr_datap 002156 aa 6 01476 2521 00 spri2 pr6|830 002157 aa 6 01440 3521 00 epp2 pr6|800 002160 aa 6 01500 2521 00 spri2 pr6|832 002161 aa 775723 3520 04 epp2 -1069,ic 000104 = 162145154157 002162 aa 6 01502 2521 00 spri2 pr6|834 002163 aa 6 01452 3521 00 epp2 pr6|810 002164 aa 6 01504 2521 00 spri2 pr6|836 002165 aa 775775 3520 04 epp2 -1027,ic 000162 = 464000000000 002166 aa 6 01506 2521 00 spri2 pr6|838 002167 aa 775765 3520 04 epp2 -1035,ic 000154 = 404000000005 002170 aa 6 01510 2521 00 spri2 pr6|840 002171 aa 775772 3520 04 epp2 -1030,ic 000163 = 526000000040 002172 aa 6 01512 2521 00 spri2 pr6|842 002173 aa 775755 3520 04 epp2 -1043,ic 000150 = 524000000043 002174 aa 6 01514 2521 00 spri2 pr6|844 002175 aa 6 01474 6211 00 eax1 pr6|828 002176 aa 020000 4310 07 fld 8192,dl 002177 aa 6 00044 3701 20 epp4 pr6|36,* 002200 la 4 00112 3521 20 epp2 pr4|74,* rldr_report_$error_output 002201 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 171 goto err; 002202 aa 003152 7100 04 tra 1642,ic 005354 STATEMENT 1 ON LINE 172 end; STATEMENT 1 ON LINE 173 found_restart, volog_missing, version_1_found = "0"b; 002203 aa 6 00157 4501 00 stz pr6|111 found_restart 002204 aa 6 00163 4501 00 stz pr6|115 volog_missing 002205 aa 6 00162 4501 00 stz pr6|114 version_1_found STATEMENT 1 ON LINE 174 do i = 1 to rldr_data_.npvs; 002206 aa 6 01274 7561 00 stq pr6|700 002207 aa 000001 2360 07 ldq 1,dl 002210 aa 6 00147 7561 00 stq pr6|103 i 002211 aa 000000 0110 03 nop 0,du 002212 aa 6 00147 2361 00 ldq pr6|103 i 002213 aa 6 01274 1161 00 cmpq pr6|700 002214 aa 000011 6054 04 tpnz 9,ic 002225 STATEMENT 1 ON LINE 175 call find_volog (i); 002215 aa 6 00147 3521 00 epp2 pr6|103 i 002216 aa 6 01444 2521 00 spri2 pr6|804 002217 aa 6 01442 6211 00 eax1 pr6|802 002220 aa 004000 4310 07 fld 2048,dl 002221 aa 003423 3520 04 epp2 1811,ic 005644 = 000260627000 002222 aa 0 00625 7001 00 tsx0 pr0|405 call_int_this STATEMENT 1 ON LINE 176 end; 002223 aa 6 00147 0541 00 aos pr6|103 i 002224 aa 777766 7100 04 tra -10,ic 002212 STATEMENT 1 ON LINE 177 if volog_missing then do; 002225 aa 6 00163 2351 00 lda pr6|115 volog_missing 002226 aa 000033 6000 04 tze 27,ic 002261 STATEMENT 1 ON LINE 178 call rldr_report_$online_output (rldr_datap, 0, myname, "Please start volume log recovery procedure"); 002227 aa 6 01440 4501 00 stz pr6|800 002230 aa 000 100 100 404 mlr (ic),(pr),fill(000) 002231 aa 776305 00 0054 desc9a -827,44 000535 = 120154145141 002232 aa 6 01452 00 0054 desc9a pr6|810,44 002233 aa 6 00512 3521 00 epp2 pr6|330 rldr_datap 002234 aa 6 01476 2521 00 spri2 pr6|830 002235 aa 6 01440 3521 00 epp2 pr6|800 002236 aa 6 01500 2521 00 spri2 pr6|832 002237 aa 775645 3520 04 epp2 -1115,ic 000104 = 162145154157 002240 aa 6 01502 2521 00 spri2 pr6|834 002241 aa 6 01452 3521 00 epp2 pr6|810 002242 aa 6 01504 2521 00 spri2 pr6|836 002243 aa 775717 3520 04 epp2 -1073,ic 000162 = 464000000000 002244 aa 6 01506 2521 00 spri2 pr6|838 002245 aa 775707 3520 04 epp2 -1081,ic 000154 = 404000000005 002246 aa 6 01510 2521 00 spri2 pr6|840 002247 aa 775714 3520 04 epp2 -1076,ic 000163 = 526000000040 002250 aa 6 01512 2521 00 spri2 pr6|842 002251 aa 775676 3520 04 epp2 -1090,ic 000147 = 524000000052 002252 aa 6 01514 2521 00 spri2 pr6|844 002253 aa 6 01474 6211 00 eax1 pr6|828 002254 aa 020000 4310 07 fld 8192,dl 002255 aa 6 00044 3701 20 epp4 pr6|36,* 002256 la 4 00114 3521 20 epp2 pr4|76,* rldr_report_$online_output 002257 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 179 goto finish; 002260 aa 003060 7100 04 tra 1584,ic 005340 STATEMENT 1 ON LINE 180 end; STATEMENT 1 ON LINE 191 if version_1_found then do; 002261 aa 6 00162 2351 00 lda pr6|114 version_1_found 002262 aa 000332 6000 04 tze 218,ic 002614 STATEMENT 1 ON LINE 192 call mdc_$pvname_info ("rpv", rldr_data_.rpv_pvid, lvname, rldr_data_.rpv_lvid, rldr_data_.rpv_disk_type, code); 002263 aa 775663 2350 04 lda -1101,ic 000146 = 162160166000 002264 aa 6 01440 7551 00 sta pr6|800 002265 aa 6 01440 3521 00 epp2 pr6|800 002266 aa 6 01522 2521 00 spri2 pr6|850 002267 aa 6 00512 3735 20 epp7 pr6|330,* rldr_datap 002270 aa 7 00003 3521 00 epp2 pr7|3 rldr_data_.rpv_pvid 002271 aa 6 01524 2521 00 spri2 pr6|852 002272 aa 6 00107 3521 00 epp2 pr6|71 lvname 002273 aa 6 01526 2521 00 spri2 pr6|854 002274 aa 7 00004 3521 00 epp2 pr7|4 rldr_data_.rpv_lvid 002275 aa 6 01530 2521 00 spri2 pr6|856 002276 aa 7 00405 3521 00 epp2 pr7|261 rldr_data_.rpv_disk_type 002277 aa 6 01532 2521 00 spri2 pr6|858 002300 aa 6 00104 3521 00 epp2 pr6|68 code 002301 aa 6 01534 2521 00 spri2 pr6|860 002302 aa 775643 3520 04 epp2 -1117,ic 000145 = 524000000003 002303 aa 6 01536 2521 00 spri2 pr6|862 002304 aa 775640 3520 04 epp2 -1120,ic 000144 = 514000000044 002305 aa 6 01540 2521 00 spri2 pr6|864 002306 aa 6 01544 2521 00 spri2 pr6|868 002307 aa 775646 3520 04 epp2 -1114,ic 000155 = 524000000040 002310 aa 6 01542 2521 00 spri2 pr6|866 002311 aa 775653 3520 04 epp2 -1109,ic 000164 = 404000000021 002312 aa 6 01546 2521 00 spri2 pr6|870 002313 aa 775643 3520 04 epp2 -1117,ic 000156 = 404000000043 002314 aa 6 01550 2521 00 spri2 pr6|872 002315 aa 6 01520 6211 00 eax1 pr6|848 002316 aa 030000 4310 07 fld 12288,dl 002317 aa 6 00044 3701 20 epp4 pr6|36,* 002320 la 4 00052 3521 20 epp2 pr4|42,* mdc_$pvname_info 002321 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 194 if code ^= 0 then do; 002322 aa 6 00104 2361 00 ldq pr6|68 code 002323 aa 000032 6000 04 tze 26,ic 002355 STATEMENT 1 ON LINE 195 call rldr_report_$error_output (rldr_datap, code, myname, "Unable to get info about rpv"); 002324 aa 000 100 100 404 mlr (ic),(pr),fill(000) 002325 aa 775737 00 0034 desc9a -1057,28 000263 = 125156141142 002326 aa 6 01442 00 0034 desc9a pr6|802,28 002327 aa 6 00512 3521 00 epp2 pr6|330 rldr_datap 002330 aa 6 01454 2521 00 spri2 pr6|812 002331 aa 6 00104 3521 00 epp2 pr6|68 code 002332 aa 6 01456 2521 00 spri2 pr6|814 002333 aa 775551 3520 04 epp2 -1175,ic 000104 = 162145154157 002334 aa 6 01460 2521 00 spri2 pr6|816 002335 aa 6 01442 3521 00 epp2 pr6|802 002336 aa 6 01462 2521 00 spri2 pr6|818 002337 aa 775623 3520 04 epp2 -1133,ic 000162 = 464000000000 002340 aa 6 01464 2521 00 spri2 pr6|820 002341 aa 775615 3520 04 epp2 -1139,ic 000156 = 404000000043 002342 aa 6 01466 2521 00 spri2 pr6|822 002343 aa 775620 3520 04 epp2 -1136,ic 000163 = 526000000040 002344 aa 6 01470 2521 00 spri2 pr6|824 002345 aa 775576 3520 04 epp2 -1154,ic 000143 = 524000000034 002346 aa 6 01472 2521 00 spri2 pr6|826 002347 aa 6 01452 6211 00 eax1 pr6|810 002350 aa 020000 4310 07 fld 8192,dl 002351 aa 6 00044 3701 20 epp4 pr6|36,* 002352 la 4 00112 3521 20 epp2 pr4|74,* rldr_report_$error_output 002353 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 196 goto err; 002354 aa 003000 7100 04 tra 1536,ic 005354 STATEMENT 1 ON LINE 197 end; STATEMENT 1 ON LINE 198 mounted_rpv_pvid = rldr_data_.rpv_pvid; 002355 aa 6 00512 3735 20 epp7 pr6|330,* rldr_datap 002356 aa 7 00003 2351 00 lda pr7|3 rldr_data_.rpv_pvid 002357 aa 6 00152 7551 00 sta pr6|106 mounted_rpv_pvid STATEMENT 1 ON LINE 199 if rldr_data_.rpv then do; 002360 aa 7 00000 2351 00 lda pr7|0 rldr_data_.rpv 002361 aa 100000 3150 03 cana 32768,du 002362 aa 000052 6000 04 tze 42,ic 002434 STATEMENT 1 ON LINE 200 if rldr_data_.npvs > 1 then do; 002363 aa 7 00404 2361 00 ldq pr7|260 rldr_data_.npvs 002364 aa 000001 1160 07 cmpq 1,dl 002365 aa 000033 6044 04 tmoz 27,ic 002420 STATEMENT 1 ON LINE 201 call rldr_report_$error_output (rldr_datap, 0, myname, "An implementation restriction when using version 1 volume logs. This requires that the RPV be reloaded separately from other volumes."); 002366 aa 6 01440 4501 00 stz pr6|800 002367 aa 000 100 100 404 mlr (ic),(pr),fill(000) 002370 aa 776425 00 0210 desc9a -747,136 001014 = 101156040151 002371 aa 6 01552 00 0210 desc9a pr6|874,136 002372 aa 6 00512 3521 00 epp2 pr6|330 rldr_datap 002373 aa 6 01454 2521 00 spri2 pr6|812 002374 aa 6 01440 3521 00 epp2 pr6|800 002375 aa 6 01456 2521 00 spri2 pr6|814 002376 aa 775506 3520 04 epp2 -1210,ic 000104 = 162145154157 002377 aa 6 01460 2521 00 spri2 pr6|816 002400 aa 6 01552 3521 00 epp2 pr6|874 002401 aa 6 01462 2521 00 spri2 pr6|818 002402 aa 775560 3520 04 epp2 -1168,ic 000162 = 464000000000 002403 aa 6 01464 2521 00 spri2 pr6|820 002404 aa 775550 3520 04 epp2 -1176,ic 000154 = 404000000005 002405 aa 6 01466 2521 00 spri2 pr6|822 002406 aa 775555 3520 04 epp2 -1171,ic 000163 = 526000000040 002407 aa 6 01470 2521 00 spri2 pr6|824 002410 aa 775532 3520 04 epp2 -1190,ic 000142 = 524000000205 002411 aa 6 01472 2521 00 spri2 pr6|826 002412 aa 6 01452 6211 00 eax1 pr6|810 002413 aa 020000 4310 07 fld 8192,dl 002414 aa 6 00044 3701 20 epp4 pr6|36,* 002415 la 4 00112 3521 20 epp2 pr4|74,* rldr_report_$error_output 002416 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 204 goto err; 002417 aa 002735 7100 04 tra 1501,ic 005354 STATEMENT 1 ON LINE 205 end; STATEMENT 1 ON LINE 206 bvlp = rldr_data_.per_pv (1).bvlp; 002420 aa 7 00510 3715 20 epp5 pr7|328,* rldr_data_.bvlp 002421 aa 6 01236 6515 00 spri5 pr6|670 bvlp STATEMENT 1 ON LINE 207 rldr_data_.rpv_pvid = backup_volume_log.info.pvid; 002422 aa 5 00551 2351 00 lda pr5|361 backup_volume_log.pvid 002423 aa 7 00003 7551 00 sta pr7|3 rldr_data_.rpv_pvid STATEMENT 1 ON LINE 208 rldr_data_.rpv_lvid = backup_volume_log.info.lvid; 002424 aa 5 00552 2351 00 lda pr5|362 backup_volume_log.lvid 002425 aa 7 00004 7551 00 sta pr7|4 rldr_data_.rpv_lvid STATEMENT 1 ON LINE 209 rldr_data_.disk_type (1) = rldr_data_.rpv_disk_type; 002426 aa 7 00405 2361 00 ldq pr7|261 rldr_data_.rpv_disk_type 002427 aa 7 00475 7561 00 stq pr7|317 rldr_data_.disk_type STATEMENT 1 ON LINE 210 rldr_data_.lvname (1) = lvname; 002430 aa 000 100 100 500 mlr (pr),(pr),fill(000) 002431 aa 6 00107 00 0040 desc9a pr6|71,32 lvname 002432 aa 7 00447 00 0040 desc9a pr7|295,32 rldr_data_.lvname STATEMENT 1 ON LINE 211 end; 002433 aa 000147 7100 04 tra 103,ic 002602 STATEMENT 1 ON LINE 212 else do; STATEMENT 1 ON LINE 213 do pvindex = 1 to rldr_data_.npvs; 002434 aa 7 00404 2361 00 ldq pr7|260 rldr_data_.npvs 002435 aa 6 01275 7561 00 stq pr6|701 002436 aa 000001 2360 07 ldq 1,dl 002437 aa 6 00150 7561 00 stq pr6|104 pvindex 002440 aa 6 00150 2361 00 ldq pr6|104 pvindex 002441 aa 6 01275 1161 00 cmpq pr6|701 002442 aa 000140 6054 04 tpnz 96,ic 002602 STATEMENT 1 ON LINE 214 pvid_missing = "0"b; 002443 aa 6 00161 4501 00 stz pr6|113 pvid_missing STATEMENT 1 ON LINE 215 do i = 1 to rldr_data_.npvs; 002444 aa 6 00512 3735 20 epp7 pr6|330,* rldr_datap 002445 aa 7 00404 2361 00 ldq pr7|260 rldr_data_.npvs 002446 aa 6 01276 7561 00 stq pr6|702 002447 aa 000001 2360 07 ldq 1,dl 002450 aa 6 00147 7561 00 stq pr6|103 i 002451 aa 000000 0110 03 nop 0,du 002452 aa 6 00147 2361 00 ldq pr6|103 i 002453 aa 6 01276 1161 00 cmpq pr6|702 002454 aa 000122 6054 04 tpnz 82,ic 002576 STATEMENT 1 ON LINE 216 call mdc_$pvname_info (rldr_data_.pvname (i), rldr_data_.pvid (i), rldr_data_.lvname (i), rldr_data_.lvid (i), rldr_data_.disk_type (i), code); 002455 aa 775500 2360 04 ldq -1216,ic 000155 = 524000000040 002456 aa 6 01440 7561 00 stq pr6|800 002457 aa 775465 2360 04 ldq -1227,ic 000144 = 514000000044 002460 aa 6 01517 7561 00 stq pr6|847 002461 aa 775474 2360 04 ldq -1220,ic 000155 = 524000000040 002462 aa 6 01441 7561 00 stq pr6|801 002463 aa 775461 2360 04 ldq -1231,ic 000144 = 514000000044 002464 aa 6 01614 7561 00 stq pr6|908 002465 aa 775477 2360 04 ldq -1217,ic 000164 = 404000000021 002466 aa 6 01615 7561 00 stq pr6|909 002467 aa 6 00147 2361 00 ldq pr6|103 i 002470 aa 000064 4020 07 mpy 52,dl 002471 aa 6 00512 3735 20 epp7 pr6|330,* rldr_datap 002472 aa 7 00353 3521 06 epp2 pr7|235,ql rldr_data_.pvname 002473 aa 6 01522 2521 00 spri2 pr6|850 002474 aa 7 00406 3521 06 epp2 pr7|262,ql rldr_data_.pvid 002475 aa 6 01524 2521 00 spri2 pr6|852 002476 aa 7 00363 3521 06 epp2 pr7|243,ql rldr_data_.lvname 002477 aa 6 01526 2521 00 spri2 pr6|854 002500 aa 7 00405 3521 06 epp2 pr7|261,ql rldr_data_.lvid 002501 aa 6 01530 2521 00 spri2 pr6|856 002502 aa 7 00411 3521 06 epp2 pr7|265,ql rldr_data_.disk_type 002503 aa 6 01532 2521 00 spri2 pr6|858 002504 aa 6 00104 3521 00 epp2 pr6|68 code 002505 aa 6 01534 2521 00 spri2 pr6|860 002506 aa 6 01440 3521 00 epp2 pr6|800 002507 aa 6 01536 2521 00 spri2 pr6|862 002510 aa 6 01517 3521 00 epp2 pr6|847 002511 aa 6 01540 2521 00 spri2 pr6|864 002512 aa 6 01441 3521 00 epp2 pr6|801 002513 aa 6 01542 2521 00 spri2 pr6|866 002514 aa 6 01614 3521 00 epp2 pr6|908 002515 aa 6 01544 2521 00 spri2 pr6|868 002516 aa 6 01615 3521 00 epp2 pr6|909 002517 aa 6 01546 2521 00 spri2 pr6|870 002520 aa 775436 3520 04 epp2 -1250,ic 000156 = 404000000043 002521 aa 6 01550 2521 00 spri2 pr6|872 002522 aa 6 01520 6211 00 eax1 pr6|848 002523 aa 030000 4310 07 fld 12288,dl 002524 aa 6 00044 3701 20 epp4 pr6|36,* 002525 la 4 00052 3521 20 epp2 pr4|42,* mdc_$pvname_info 002526 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 218 if code ^= 0 then do; 002527 aa 6 00104 2361 00 ldq pr6|68 code 002530 aa 000044 6000 04 tze 36,ic 002574 STATEMENT 1 ON LINE 219 call rldr_report_$error_output (rldr_datap, code, myname, "Unable to determine pvid for ^a", rldr_data_.pvname (i)); 002531 aa 775424 2360 04 ldq -1260,ic 000155 = 524000000040 002532 aa 6 01440 7561 00 stq pr6|800 002533 aa 000 100 100 404 mlr (ic),(pr),fill(000) 002534 aa 775566 00 0040 desc9a -1162,32 000321 = 125156141142 002535 aa 6 01442 00 0040 desc9a pr6|802,32 002536 aa 6 00147 2361 00 ldq pr6|103 i 002537 aa 000064 4020 07 mpy 52,dl 002540 aa 6 00512 3521 00 epp2 pr6|330 rldr_datap 002541 aa 6 01522 2521 00 spri2 pr6|850 002542 aa 6 00104 3521 00 epp2 pr6|68 code 002543 aa 6 01524 2521 00 spri2 pr6|852 002544 aa 775340 3520 04 epp2 -1312,ic 000104 = 162145154157 002545 aa 6 01526 2521 00 spri2 pr6|854 002546 aa 6 01442 3521 00 epp2 pr6|802 002547 aa 6 01530 2521 00 spri2 pr6|856 002550 aa 6 00512 3735 20 epp7 pr6|330,* rldr_datap 002551 aa 7 00353 3521 06 epp2 pr7|235,ql rldr_data_.pvname 002552 aa 6 01532 2521 00 spri2 pr6|858 002553 aa 775407 3520 04 epp2 -1273,ic 000162 = 464000000000 002554 aa 6 01534 2521 00 spri2 pr6|860 002555 aa 775401 3520 04 epp2 -1279,ic 000156 = 404000000043 002556 aa 6 01536 2521 00 spri2 pr6|862 002557 aa 775404 3520 04 epp2 -1276,ic 000163 = 526000000040 002560 aa 6 01540 2521 00 spri2 pr6|864 002561 aa 775360 3520 04 epp2 -1296,ic 000141 = 524000000037 002562 aa 6 01542 2521 00 spri2 pr6|866 002563 aa 6 01440 3521 00 epp2 pr6|800 002564 aa 6 01544 2521 00 spri2 pr6|868 002565 aa 6 01520 6211 00 eax1 pr6|848 002566 aa 024000 4310 07 fld 10240,dl 002567 aa 6 00044 3701 20 epp4 pr6|36,* 002570 la 4 00112 3521 20 epp2 pr4|74,* rldr_report_$error_output 002571 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 221 pvid_missing = "1"b; 002572 aa 400000 2350 03 lda 131072,du 002573 aa 6 00161 7551 00 sta pr6|113 pvid_missing STATEMENT 1 ON LINE 222 end; STATEMENT 1 ON LINE 223 end; 002574 aa 6 00147 0541 00 aos pr6|103 i 002575 aa 777655 7100 04 tra -83,ic 002452 STATEMENT 1 ON LINE 224 if pvid_missing then goto err; 002576 aa 6 00161 2351 00 lda pr6|113 pvid_missing 002577 aa 002555 6010 04 tnz 1389,ic 005354 STATEMENT 1 ON LINE 225 end; 002600 aa 6 00150 0541 00 aos pr6|104 pvindex 002601 aa 777637 7100 04 tra -97,ic 002440 STATEMENT 1 ON LINE 226 end; STATEMENT 1 ON LINE 227 rldr_data_.stranger = ^(rldr_data_.rpv_pvid = mounted_rpv_pvid); 002602 aa 6 00512 3735 20 epp7 pr6|330,* rldr_datap 002603 aa 7 00003 2351 00 lda pr7|3 rldr_data_.rpv_pvid 002604 aa 6 00152 1151 00 cmpa pr6|106 mounted_rpv_pvid 002605 aa 0 00512 7001 00 tsx0 pr0|330 r_e_as 002606 aa 0 00002 6751 00 era pr0|2 = 400000000000 002607 aa 000014 7710 00 arl 12 002610 aa 7 00000 6751 00 era pr7|0 rldr_data_.stranger 002611 aa 000040 3750 03 ana 32,du 002612 aa 7 00000 6551 00 ersa pr7|0 rldr_data_.stranger STATEMENT 1 ON LINE 229 end; 002613 aa 000224 7100 04 tra 148,ic 003037 STATEMENT 1 ON LINE 237 else do; STATEMENT 1 ON LINE 238 call mdc_$pvname_info ("rpv", rldr_data_.rpv_pvid, lvname, rldr_data_.rpv_lvid, rldr_data_.rpv_disk_type, code); 002614 aa 775332 2350 04 lda -1318,ic 000146 = 162160166000 002615 aa 6 01440 7551 00 sta pr6|800 002616 aa 6 01440 3521 00 epp2 pr6|800 002617 aa 6 01522 2521 00 spri2 pr6|850 002620 aa 6 00512 3735 20 epp7 pr6|330,* rldr_datap 002621 aa 7 00003 3521 00 epp2 pr7|3 rldr_data_.rpv_pvid 002622 aa 6 01524 2521 00 spri2 pr6|852 002623 aa 6 00107 3521 00 epp2 pr6|71 lvname 002624 aa 6 01526 2521 00 spri2 pr6|854 002625 aa 7 00004 3521 00 epp2 pr7|4 rldr_data_.rpv_lvid 002626 aa 6 01530 2521 00 spri2 pr6|856 002627 aa 7 00405 3521 00 epp2 pr7|261 rldr_data_.rpv_disk_type 002630 aa 6 01532 2521 00 spri2 pr6|858 002631 aa 6 00104 3521 00 epp2 pr6|68 code 002632 aa 6 01534 2521 00 spri2 pr6|860 002633 aa 775312 3520 04 epp2 -1334,ic 000145 = 524000000003 002634 aa 6 01536 2521 00 spri2 pr6|862 002635 aa 775307 3520 04 epp2 -1337,ic 000144 = 514000000044 002636 aa 6 01540 2521 00 spri2 pr6|864 002637 aa 6 01544 2521 00 spri2 pr6|868 002640 aa 775315 3520 04 epp2 -1331,ic 000155 = 524000000040 002641 aa 6 01542 2521 00 spri2 pr6|866 002642 aa 775322 3520 04 epp2 -1326,ic 000164 = 404000000021 002643 aa 6 01546 2521 00 spri2 pr6|870 002644 aa 775312 3520 04 epp2 -1334,ic 000156 = 404000000043 002645 aa 6 01550 2521 00 spri2 pr6|872 002646 aa 6 01520 6211 00 eax1 pr6|848 002647 aa 030000 4310 07 fld 12288,dl 002650 aa 6 00044 3701 20 epp4 pr6|36,* 002651 la 4 00052 3521 20 epp2 pr4|42,* mdc_$pvname_info 002652 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 239 if code ^= 0 then do; 002653 aa 6 00104 2361 00 ldq pr6|68 code 002654 aa 000032 6000 04 tze 26,ic 002706 STATEMENT 1 ON LINE 240 call rldr_report_$error_output (rldr_datap, code, myname, "Unable to get info about rpv"); 002655 aa 000 100 100 404 mlr (ic),(pr),fill(000) 002656 aa 775406 00 0034 desc9a -1274,28 000263 = 125156141142 002657 aa 6 01442 00 0034 desc9a pr6|802,28 002660 aa 6 00512 3521 00 epp2 pr6|330 rldr_datap 002661 aa 6 01454 2521 00 spri2 pr6|812 002662 aa 6 00104 3521 00 epp2 pr6|68 code 002663 aa 6 01456 2521 00 spri2 pr6|814 002664 aa 775220 3520 04 epp2 -1392,ic 000104 = 162145154157 002665 aa 6 01460 2521 00 spri2 pr6|816 002666 aa 6 01442 3521 00 epp2 pr6|802 002667 aa 6 01462 2521 00 spri2 pr6|818 002670 aa 775272 3520 04 epp2 -1350,ic 000162 = 464000000000 002671 aa 6 01464 2521 00 spri2 pr6|820 002672 aa 775264 3520 04 epp2 -1356,ic 000156 = 404000000043 002673 aa 6 01466 2521 00 spri2 pr6|822 002674 aa 775267 3520 04 epp2 -1353,ic 000163 = 526000000040 002675 aa 6 01470 2521 00 spri2 pr6|824 002676 aa 775245 3520 04 epp2 -1371,ic 000143 = 524000000034 002677 aa 6 01472 2521 00 spri2 pr6|826 002700 aa 6 01452 6211 00 eax1 pr6|810 002701 aa 020000 4310 07 fld 8192,dl 002702 aa 6 00044 3701 20 epp4 pr6|36,* 002703 la 4 00112 3521 20 epp2 pr4|74,* rldr_report_$error_output 002704 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 241 goto err; 002705 aa 002447 7100 04 tra 1319,ic 005354 STATEMENT 1 ON LINE 242 end; STATEMENT 1 ON LINE 243 mounted_rpv_pvid = rldr_data_.rpv_pvid; 002706 aa 6 00512 3735 20 epp7 pr6|330,* rldr_datap 002707 aa 7 00003 2351 00 lda pr7|3 rldr_data_.rpv_pvid 002710 aa 6 00152 7551 00 sta pr6|106 mounted_rpv_pvid STATEMENT 1 ON LINE 244 rldr_data_.rpv_pvid = "0"b; 002711 aa 7 00003 4501 00 stz pr7|3 rldr_data_.rpv_pvid STATEMENT 1 ON LINE 245 if rldr_data_.sys_dir ^= rldr_data_.default_sys_dir then do; 002712 aa 040 100 106 500 cmpc (pr),(pr),fill(040) 002713 aa 7 00025 00 0250 desc9a pr7|21,168 rldr_data_.sys_dir 002714 aa 7 00077 00 0250 desc9a pr7|63,168 rldr_data_.default_sys_dir 002715 aa 000044 6000 04 tze 36,ic 002761 STATEMENT 1 ON LINE 246 if rldr_data_.rpv then do; 002716 aa 7 00000 2351 00 lda pr7|0 rldr_data_.rpv 002717 aa 100000 3150 03 cana 32768,du 002720 aa 000035 6000 04 tze 29,ic 002755 STATEMENT 1 ON LINE 247 do i = 1 to rldr_data_.npvs while (rldr_data_.per_pv (i).pvname ^= "rpv"); 002721 aa 7 00404 2361 00 ldq pr7|260 rldr_data_.npvs 002722 aa 6 01277 7561 00 stq pr6|703 002723 aa 000001 2360 07 ldq 1,dl 002724 aa 6 00147 7561 00 stq pr6|103 i 002725 aa 000000 0110 03 nop 0,du 002726 aa 6 00147 2361 00 ldq pr6|103 i 002727 aa 6 01277 1161 00 cmpq pr6|703 002730 aa 000012 6054 04 tpnz 10,ic 002742 002731 aa 000064 4020 07 mpy 52,dl 002732 aa 6 00512 3735 20 epp7 pr6|330,* rldr_datap 002733 aa 7 00353 3735 06 epp7 pr7|235,ql rldr_data_.pvname 002734 aa 040 004 106 500 cmpc (pr),(ic),fill(040) 002735 aa 7 00000 00 0040 desc9a pr7|0,32 rldr_data_.pvname 002736 aa 775212 00 0003 desc9a -1398,3 000146 = 162160166000 002737 aa 000003 6000 04 tze 3,ic 002742 STATEMENT 1 ON LINE 248 end; 002740 aa 6 00147 0541 00 aos pr6|103 i 002741 aa 777765 7100 04 tra -11,ic 002726 STATEMENT 1 ON LINE 249 bvlp = rldr_data_.per_pv (i).bvlp; 002742 aa 6 00147 2361 00 ldq pr6|103 i 002743 aa 000064 4020 07 mpy 52,dl 002744 aa 6 00512 3735 20 epp7 pr6|330,* rldr_datap 002745 aa 7 00424 3735 26 epp7 pr7|276,ql* rldr_data_.bvlp 002746 aa 6 01236 6535 00 spri7 pr6|670 bvlp STATEMENT 1 ON LINE 250 rldr_data_.rpv_pvid = backup_volume_log.pvid; 002747 aa 7 02027 2351 00 lda pr7|1047 backup_volume_log.pvid 002750 aa 6 00512 3715 20 epp5 pr6|330,* rldr_datap 002751 aa 5 00003 7551 00 sta pr5|3 rldr_data_.rpv_pvid STATEMENT 1 ON LINE 251 rldr_data_.rpv_lvid = backup_volume_log.info.lvid; 002752 aa 7 00552 2351 00 lda pr7|362 backup_volume_log.lvid 002753 aa 5 00004 7551 00 sta pr5|4 rldr_data_.rpv_lvid STATEMENT 1 ON LINE 252 goto got_rpvid; 002754 aa 000011 7100 04 tra 9,ic 002765 STATEMENT 1 ON LINE 253 end; STATEMENT 1 ON LINE 254 else do; STATEMENT 1 ON LINE 255 bvlp = rldr_data_.per_pv (1).bvlp; 002755 aa 7 00510 3715 20 epp5 pr7|328,* rldr_data_.bvlp 002756 aa 6 01236 6515 00 spri5 pr6|670 bvlp STATEMENT 1 ON LINE 256 rldr_data_.rpv_pvid = backup_volume_log.rpv_pvid; 002757 aa 5 02036 2351 00 lda pr5|1054 backup_volume_log.rpv_pvid 002760 aa 7 00003 7551 00 sta pr7|3 rldr_data_.rpv_pvid STATEMENT 1 ON LINE 257 end; STATEMENT 1 ON LINE 258 end; STATEMENT 1 ON LINE 259 if rldr_data_.rpv_pvid = "0"b then /* must belong to mounted RPV */ rldr_data_.rpv_pvid = mounted_rpv_pvid; 002761 aa 7 00003 2351 00 lda pr7|3 rldr_data_.rpv_pvid 002762 aa 000003 6010 04 tnz 3,ic 002765 002763 aa 6 00152 2351 00 lda pr6|106 mounted_rpv_pvid 002764 aa 7 00003 7551 00 sta pr7|3 rldr_data_.rpv_pvid STATEMENT 1 ON LINE 261 got_rpvid: if (validate_all_vologs ()) then ; 002765 aa 003531 3520 04 epp2 1881,ic 006516 = 000002000000 002766 aa 003215 6700 04 tsp4 1677,ic 006203 002767 aa 6 01440 2351 00 lda pr6|800 002770 aa 400000 3150 03 cana 131072,du 002771 aa 000002 6000 04 tze 2,ic 002773 002772 aa 000033 7100 04 tra 27,ic 003025 STATEMENT 1 ON LINE 263 else do; STATEMENT 1 ON LINE 264 call rldr_report_$error_output (rldr_datap, 0, myname, "The reload will be aborted."); 002773 aa 6 01440 4501 00 stz pr6|800 002774 aa 000 100 100 404 mlr (ic),(pr),fill(000) 002775 aa 775260 00 0034 desc9a -1360,28 000254 = 124150145040 002776 aa 6 01442 00 0034 desc9a pr6|802,28 002777 aa 6 00512 3521 00 epp2 pr6|330 rldr_datap 003000 aa 6 01454 2521 00 spri2 pr6|812 003001 aa 6 01440 3521 00 epp2 pr6|800 003002 aa 6 01456 2521 00 spri2 pr6|814 003003 aa 775101 3520 04 epp2 -1471,ic 000104 = 162145154157 003004 aa 6 01460 2521 00 spri2 pr6|816 003005 aa 6 01442 3521 00 epp2 pr6|802 003006 aa 6 01462 2521 00 spri2 pr6|818 003007 aa 775153 3520 04 epp2 -1429,ic 000162 = 464000000000 003010 aa 6 01464 2521 00 spri2 pr6|820 003011 aa 775143 3520 04 epp2 -1437,ic 000154 = 404000000005 003012 aa 6 01466 2521 00 spri2 pr6|822 003013 aa 775150 3520 04 epp2 -1432,ic 000163 = 526000000040 003014 aa 6 01470 2521 00 spri2 pr6|824 003015 aa 775134 3520 04 epp2 -1444,ic 000151 = 524000000033 003016 aa 6 01472 2521 00 spri2 pr6|826 003017 aa 6 01452 6211 00 eax1 pr6|810 003020 aa 020000 4310 07 fld 8192,dl 003021 aa 6 00044 3701 20 epp4 pr6|36,* 003022 la 4 00112 3521 20 epp2 pr4|74,* rldr_report_$error_output 003023 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 265 goto err; 003024 aa 002330 7100 04 tra 1240,ic 005354 STATEMENT 1 ON LINE 266 end; STATEMENT 1 ON LINE 267 call fill_from_volog (); 003025 aa 003120 6700 04 tsp4 1616,ic 006145 STATEMENT 1 ON LINE 268 rldr_data_.stranger = ^(rldr_data_.rpv_pvid = mounted_rpv_pvid); 003026 aa 6 00512 3735 20 epp7 pr6|330,* rldr_datap 003027 aa 7 00003 2351 00 lda pr7|3 rldr_data_.rpv_pvid 003030 aa 6 00152 1151 00 cmpa pr6|106 mounted_rpv_pvid 003031 aa 0 00512 7001 00 tsx0 pr0|330 r_e_as 003032 aa 0 00002 6751 00 era pr0|2 = 400000000000 003033 aa 000014 7710 00 arl 12 003034 aa 7 00000 6751 00 era pr7|0 rldr_data_.stranger 003035 aa 000040 3750 03 ana 32,du 003036 aa 7 00000 6551 00 ersa pr7|0 rldr_data_.stranger STATEMENT 1 ON LINE 270 end; STATEMENT 1 ON LINE 275 call get_temp_segments_ (myname, tp2, code); 003037 aa 775045 3520 04 epp2 -1499,ic 000104 = 162145154157 003040 aa 6 01454 2521 00 spri2 pr6|812 003041 aa 6 00464 3521 00 epp2 pr6|308 tp2 003042 aa 6 01456 2521 00 spri2 pr6|814 003043 aa 6 00104 3521 00 epp2 pr6|68 code 003044 aa 6 01460 2521 00 spri2 pr6|816 003045 aa 775116 3520 04 epp2 -1458,ic 000163 = 526000000040 003046 aa 6 01462 2521 00 spri2 pr6|818 003047 aa 775142 3520 04 epp2 -1438,ic 000211 = 464100000000 003050 aa 6 01464 2521 00 spri2 pr6|820 003051 aa 775105 3520 04 epp2 -1467,ic 000156 = 404000000043 003052 aa 6 01466 2521 00 spri2 pr6|822 003053 aa 6 01452 6211 00 eax1 pr6|810 003054 aa 014000 4310 07 fld 6144,dl 003055 aa 6 00044 3701 20 epp4 pr6|36,* 003056 la 4 00064 3521 20 epp2 pr4|52,* get_temp_segments_ 003057 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 276 if code ^= 0 then do; 003060 aa 6 00104 2361 00 ldq pr6|68 code 003061 aa 000032 6000 04 tze 26,ic 003113 STATEMENT 1 ON LINE 277 call rldr_report_$error_output (rldr_datap, code, myname, "Error creating temp segs "); 003062 aa 000 100 100 404 mlr (ic),(pr),fill(000) 003063 aa 775163 00 0034 desc9a -1421,28 000245 = 105162162157 003064 aa 6 01442 00 0034 desc9a pr6|802,28 003065 aa 6 00512 3521 00 epp2 pr6|330 rldr_datap 003066 aa 6 01454 2521 00 spri2 pr6|812 003067 aa 6 00104 3521 00 epp2 pr6|68 code 003070 aa 6 01456 2521 00 spri2 pr6|814 003071 aa 775013 3520 04 epp2 -1525,ic 000104 = 162145154157 003072 aa 6 01460 2521 00 spri2 pr6|816 003073 aa 6 01442 3521 00 epp2 pr6|802 003074 aa 6 01462 2521 00 spri2 pr6|818 003075 aa 775065 3520 04 epp2 -1483,ic 000162 = 464000000000 003076 aa 6 01464 2521 00 spri2 pr6|820 003077 aa 775057 3520 04 epp2 -1489,ic 000156 = 404000000043 003100 aa 6 01466 2521 00 spri2 pr6|822 003101 aa 775062 3520 04 epp2 -1486,ic 000163 = 526000000040 003102 aa 6 01470 2521 00 spri2 pr6|824 003103 aa 775035 3520 04 epp2 -1507,ic 000140 = 524000000031 003104 aa 6 01472 2521 00 spri2 pr6|826 003105 aa 6 01452 6211 00 eax1 pr6|810 003106 aa 020000 4310 07 fld 8192,dl 003107 aa 6 00044 3701 20 epp4 pr6|36,* 003110 la 4 00112 3521 20 epp2 pr4|74,* rldr_report_$error_output 003111 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 278 goto err; 003112 aa 002242 7100 04 tra 1186,ic 005354 STATEMENT 1 ON LINE 279 end; STATEMENT 1 ON LINE 280 dont_query_restart = "0"b; 003113 aa 6 00160 4501 00 stz pr6|112 dont_query_restart STATEMENT 1 ON LINE 281 do pvindex = 1 to rldr_data_.npvs; 003114 aa 6 00512 3735 20 epp7 pr6|330,* rldr_datap 003115 aa 7 00404 2361 00 ldq pr7|260 rldr_data_.npvs 003116 aa 6 01300 7561 00 stq pr6|704 003117 aa 000001 2360 07 ldq 1,dl 003120 aa 6 00150 7561 00 stq pr6|104 pvindex 003121 aa 000000 0110 03 nop 0,du 003122 aa 6 00150 2361 00 ldq pr6|104 pvindex 003123 aa 6 01300 1161 00 cmpq pr6|704 003124 aa 000336 6054 04 tpnz 222,ic 003462 STATEMENT 1 ON LINE 282 if rldr_data_.disk_model (pvindex) = "" then do; 003125 aa 000064 4020 07 mpy 52,dl 003126 aa 6 01440 7561 00 stq pr6|800 003127 aa 6 00512 3735 20 epp7 pr6|330,* rldr_datap 003130 aa 7 00373 3735 06 epp7 pr7|251,ql rldr_data_.disk_model 003131 aa 040 004 106 500 cmpc (pr),(ic),fill(040) 003132 aa 7 00000 00 0040 desc9a pr7|0,32 rldr_data_.disk_model 003133 aa 003415 00 0000 desc9a 1805,0 006546 = 076000000000 003134 aa 000015 6010 04 tnz 13,ic 003151 STATEMENT 1 ON LINE 283 dev_idx = rldr_data_.disk_type (pvindex); 003135 aa 6 00512 3715 20 epp5 pr6|330,* rldr_datap 003136 aa 5 00411 2361 06 ldq pr5|265,ql rldr_data_.disk_type 003137 aa 6 00106 7561 00 stq pr6|70 dev_idx STATEMENT 1 ON LINE 284 rldr_data_.usable_sectors (pvindex) = divide (sect_per_cyl (dev_idx), sect_per_rec (dev_idx), 17, 0) * sect_per_rec (dev_idx); 003140 ta 000072 2360 06 ldq 58,ql 003141 aa 6 00106 7271 00 lxl7 pr6|70 dev_idx 003142 ta 000061 5060 17 div 49,7 003143 ta 000061 4020 17 mpy 49,7 003144 aa 6 01440 7261 00 lxl6 pr6|800 003145 aa 5 00412 7561 16 stq pr5|266,6 rldr_data_.usable_sectors STATEMENT 1 ON LINE 285 rldr_data_.unusable_sectors (pvindex) = sect_per_cyl (dev_idx) - rldr_data_.usable_sectors (pvindex); 003146 ta 000072 2360 17 ldq 58,7 003147 aa 5 00412 1761 16 sbq pr5|266,6 rldr_data_.usable_sectors 003150 aa 5 00413 7561 16 stq pr5|267,6 rldr_data_.unusable_sectors STATEMENT 1 ON LINE 287 end; STATEMENT 1 ON LINE 288 rldr_data_.vtocbp (pvindex) = tp2 (1); 003151 aa 6 00464 3715 20 epp5 pr6|308,* tp2 003152 aa 6 01440 7271 00 lxl7 pr6|800 003153 aa 6 00512 3535 20 epp3 pr6|330,* rldr_datap 003154 aa 3 00416 6515 17 spri5 pr3|270,7 rldr_data_.vtocbp STATEMENT 1 ON LINE 289 rldr_data_.labelp (pvindex) = tp2 (2); 003155 aa 6 00466 3515 20 epp1 pr6|310,* tp2 003156 aa 3 00422 2515 17 spri1 pr3|274,7 rldr_data_.labelp STATEMENT 1 ON LINE 290 cln = search (rldr_data_.pvname (pvindex), " ") - 1; 003157 aa 3 00353 3715 17 epp5 pr3|235,7 rldr_data_.pvname 003160 aa 000 000 164 500 tct (pr) 003161 aa 5 00000 00 0040 desc9a pr5|0,32 rldr_data_.pvname 003162 aa 003136 0000 04 arg 1630,ic 006316 = 000000000000 003163 aa 6 00056 0001 00 arg pr6|46 003164 aa 6 00056 2361 00 ldq pr6|46 003165 aa 0 00242 3761 00 anq pr0|162 = 000777777777 003166 aa 000002 6070 04 ttf 2,ic 003170 003167 aa 000001 3360 07 lcq 1,dl 003170 aa 6 00145 7561 00 stq pr6|101 cln STATEMENT 1 ON LINE 291 if cln < 1 | cln > 24 then cln = 24; 003171 aa 000001 1160 07 cmpq 1,dl 003172 aa 000003 6040 04 tmi 3,ic 003175 003173 aa 000030 1160 07 cmpq 24,dl 003174 aa 000003 6044 04 tmoz 3,ic 003177 003175 aa 000030 2360 07 ldq 24,dl 003176 aa 6 00145 7561 00 stq pr6|101 cln STATEMENT 1 ON LINE 292 control_name = substr (rldr_data_.pvname (pvindex), 1, cln) || ".control"; 003177 aa 6 00150 2361 00 ldq pr6|104 pvindex 003200 aa 000064 4020 07 mpy 52,dl 003201 aa 000002 7360 00 qls 2 003202 aa 6 01440 7561 00 stq pr6|800 003203 aa 6 00145 2361 00 ldq pr6|101 cln 003204 aa 000010 0760 07 adq 8,dl 003205 aa 0 00551 7001 00 tsx0 pr0|361 alloc_char_temp 003206 aa 6 01440 2351 00 lda pr6|800 003207 aa 6 00145 7261 00 lxl6 pr6|101 cln 003210 aa 040 140 100 545 mlr (pr,rl,al),(pr,rl),fill(040) 003211 aa 3 00353 00 0016 desc9a pr3|235,x6 rldr_data_.pvname 003212 aa 2 00000 00 0016 desc9a pr2|0,x6 003213 aa 040 116 100 404 mlr (ic),(pr,x6),fill(040) 003214 aa 774757 00 0010 desc9a -1553,8 000172 = 056143157156 003215 aa 2 00000 00 0010 desc9a pr2|0,8 003216 aa 040 100 100 540 mlr (pr,rl),(pr),fill(040) 003217 aa 2 00000 00 0006 desc9a pr2|0,ql 003220 aa 6 00135 00 0040 desc9a pr6|93,32 control_name STATEMENT 1 ON LINE 293 remake_control_seg: call hcs_$make_seg (wdir_ (), control_name, "", 01010b, rldr_data_.controlp (pvindex), code); 003221 aa 0 01014 7001 00 tsx0 pr0|524 shorten_stack 003222 aa 464000 2360 03 ldq 157696,du 003223 aa 6 01440 7561 00 stq pr6|800 003224 aa 003066 3520 04 epp2 1590,ic 006312 = 000002000000 003225 aa 002213 6700 04 tsp4 1163,ic 005440 003226 aa 000 100 100 500 mlr (pr),(pr),fill(000) 003227 aa 6 01616 00 0250 desc9a pr6|910,168 003230 aa 6 01670 00 0250 desc9a pr6|952,168 003231 aa 000012 2360 07 ldq 10,dl 003232 aa 6 01441 7561 00 stq pr6|801 003233 aa 6 00150 2361 00 ldq pr6|104 pvindex 003234 aa 000064 4020 07 mpy 52,dl 003235 aa 6 01670 3521 00 epp2 pr6|952 003236 aa 6 01522 2521 00 spri2 pr6|850 003237 aa 6 00135 3521 00 epp2 pr6|93 control_name 003240 aa 6 01524 2521 00 spri2 pr6|852 003241 aa 6 01517 3521 00 epp2 pr6|847 003242 aa 6 01526 2521 00 spri2 pr6|854 003243 aa 6 01441 3521 00 epp2 pr6|801 003244 aa 6 01530 2521 00 spri2 pr6|856 003245 aa 6 00512 3735 20 epp7 pr6|330,* rldr_datap 003246 aa 7 00430 3521 06 epp2 pr7|280,ql rldr_data_.controlp 003247 aa 6 01532 2521 00 spri2 pr6|858 003250 aa 6 00104 3521 00 epp2 pr6|68 code 003251 aa 6 01534 2521 00 spri2 pr6|860 003252 aa 774706 3520 04 epp2 -1594,ic 000160 = 524000000250 003253 aa 6 01536 2521 00 spri2 pr6|862 003254 aa 774707 3520 04 epp2 -1593,ic 000163 = 526000000040 003255 aa 6 01540 2521 00 spri2 pr6|864 003256 aa 774661 3520 04 epp2 -1615,ic 000137 = 524000000000 003257 aa 6 01542 2521 00 spri2 pr6|866 003260 aa 774674 3520 04 epp2 -1604,ic 000154 = 404000000005 003261 aa 6 01544 2521 00 spri2 pr6|868 003262 aa 6 01440 3521 00 epp2 pr6|800 003263 aa 6 01546 2521 00 spri2 pr6|870 003264 aa 774672 3520 04 epp2 -1606,ic 000156 = 404000000043 003265 aa 6 01550 2521 00 spri2 pr6|872 003266 aa 6 01520 6211 00 eax1 pr6|848 003267 aa 030000 4310 07 fld 12288,dl 003270 aa 6 00044 3701 20 epp4 pr6|36,* 003271 la 4 00040 3521 20 epp2 pr4|32,* hcs_$make_seg 003272 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 295 if code ^= 0 then do; 003273 aa 6 00104 2361 00 ldq pr6|68 code 003274 aa 000110 6000 04 tze 72,ic 003404 STATEMENT 1 ON LINE 296 if rldr_data_.common.restart & (code = error_table_$segknown | code = error_table_$namedup) then code = 0; 003275 aa 6 00512 2351 20 lda pr6|330,* rldr_data_.restart 003276 aa 000100 3150 03 cana 64,du 003277 aa 000010 6000 04 tze 8,ic 003307 003300 aa 6 00044 3701 20 epp4 pr6|36,* 003301 la 4 00016 1161 20 cmpq pr4|14,* error_table_$segknown 003302 aa 000003 6000 04 tze 3,ic 003305 003303 la 4 00014 1161 20 cmpq pr4|12,* error_table_$namedup 003304 aa 000003 6010 04 tnz 3,ic 003307 003305 aa 6 00104 4501 00 stz pr6|68 code 003306 aa 000076 7100 04 tra 62,ic 003404 STATEMENT 1 ON LINE 297 else do; STATEMENT 1 ON LINE 298 call command_query_$yes_no (YES, 0, myname, "A control segment was found for the specified physical volume, but -restart was not specified. Do you wish a restart on the specified physical volume?", "Control segment ^a exists but -restart not specified. Do you want a restart on the physical volume? ", control_name); 003307 aa 6 01440 4501 00 stz pr6|800 003310 aa 000 100 100 404 mlr (ic),(pr),fill(000) 003311 aa 775546 00 0230 desc9a -1178,152 001056 = 101040143157 003312 aa 6 01616 00 0230 desc9a pr6|910,152 003313 aa 000 100 100 404 mlr (ic),(pr),fill(000) 003314 aa 775450 00 0144 desc9a -1240,100 000763 = 103157156164 003315 aa 6 01520 00 0144 desc9a pr6|848,100 003316 aa 6 00156 3521 00 epp2 pr6|110 YES 003317 aa 6 01554 2521 00 spri2 pr6|876 003320 aa 6 01440 3521 00 epp2 pr6|800 003321 aa 6 01556 2521 00 spri2 pr6|878 003322 aa 774562 3520 04 epp2 -1678,ic 000104 = 162145154157 003323 aa 6 01560 2521 00 spri2 pr6|880 003324 aa 6 01616 3521 00 epp2 pr6|910 003325 aa 6 01562 2521 00 spri2 pr6|882 003326 aa 6 01520 3521 00 epp2 pr6|848 003327 aa 6 01564 2521 00 spri2 pr6|884 003330 aa 6 00135 3521 00 epp2 pr6|93 control_name 003331 aa 6 01566 2521 00 spri2 pr6|886 003332 aa 774625 3520 04 epp2 -1643,ic 000157 = 516000000001 003333 aa 6 01570 2521 00 spri2 pr6|888 003334 aa 774620 3520 04 epp2 -1648,ic 000154 = 404000000005 003335 aa 6 01572 2521 00 spri2 pr6|890 003336 aa 774625 3520 04 epp2 -1643,ic 000163 = 526000000040 003337 aa 6 01574 2521 00 spri2 pr6|892 003340 aa 6 01602 2521 00 spri2 pr6|898 003341 aa 774575 3520 04 epp2 -1667,ic 000136 = 524000000227 003342 aa 6 01576 2521 00 spri2 pr6|894 003343 aa 774572 3520 04 epp2 -1670,ic 000135 = 524000000144 003344 aa 6 01600 2521 00 spri2 pr6|896 003345 aa 6 01552 6211 00 eax1 pr6|874 003346 aa 030000 4310 07 fld 12288,dl 003347 aa 6 00044 3701 20 epp4 pr6|36,* 003350 la 4 00050 3521 20 epp2 pr4|40,* command_query_$yes_no 003351 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 303 if YES then found_restart, rldr_data_.per_pv (pvindex).restart = "1"b; 003352 aa 6 00156 2351 00 lda pr6|110 YES 003353 aa 400000 3150 03 cana 131072,du 003354 aa 000011 6000 04 tze 9,ic 003365 003355 aa 400000 2350 03 lda 131072,du 003356 aa 6 00157 7551 00 sta pr6|111 found_restart 003357 aa 6 00150 2361 00 ldq pr6|104 pvindex 003360 aa 000064 4020 07 mpy 52,dl 003361 aa 400000 2350 03 lda 131072,du 003362 aa 6 00512 3735 20 epp7 pr6|330,* rldr_datap 003363 aa 7 00351 7551 06 sta pr7|233,ql rldr_data_.restart 003364 aa 000020 7100 04 tra 16,ic 003404 STATEMENT 1 ON LINE 304 else do; STATEMENT 1 ON LINE 305 dont_query_restart = "1"b; 003365 aa 400000 2350 03 lda 131072,du 003366 aa 6 00160 7551 00 sta pr6|112 dont_query_restart STATEMENT 1 ON LINE 306 call hcs_$delentry_seg (rldr_data_.controlp (pvindex), ignore); 003367 aa 6 00150 2361 00 ldq pr6|104 pvindex 003370 aa 000064 4020 07 mpy 52,dl 003371 aa 6 00512 3735 20 epp7 pr6|330,* rldr_datap 003372 aa 7 00430 3521 06 epp2 pr7|280,ql rldr_data_.controlp 003373 aa 6 01444 2521 00 spri2 pr6|804 003374 aa 6 00105 3521 00 epp2 pr6|69 ignore 003375 aa 6 01446 2521 00 spri2 pr6|806 003376 aa 6 01442 6211 00 eax1 pr6|802 003377 aa 010000 4310 07 fld 4096,dl 003400 aa 6 00044 3701 20 epp4 pr6|36,* 003401 la 4 00036 3521 20 epp2 pr4|30,* hcs_$delentry_seg 003402 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 307 goto remake_control_seg; 003403 aa 777616 7100 04 tra -114,ic 003221 STATEMENT 1 ON LINE 308 end; STATEMENT 1 ON LINE 309 end; STATEMENT 1 ON LINE 310 end; STATEMENT 1 ON LINE 311 if ((rldr_data_.common.restart) & (^found_restart) & (^dont_query_restart)) then do; 003404 aa 6 00512 2351 20 lda pr6|330,* rldr_data_.restart 003405 aa 000100 3150 03 cana 64,du 003406 aa 000052 6000 04 tze 42,ic 003460 003407 aa 6 00157 2351 00 lda pr6|111 found_restart 003410 aa 000050 6010 04 tnz 40,ic 003460 003411 aa 6 00160 2351 00 lda pr6|112 dont_query_restart 003412 aa 000046 6010 04 tnz 38,ic 003460 STATEMENT 1 ON LINE 313 call command_query_$yes_no (YES, 0, myname, "The -restart control argument was specified, but no control segment was found. A ""yes"" answer will continue with the reload, whereas a ""no"" answer will abort it. Continue the reload?", "No control seg found for -restart control arg. Do you wish to continue with the reload?"); 003413 aa 6 01440 4501 00 stz pr6|800 003414 aa 000 100 100 404 mlr (ic),(pr),fill(000) 003415 aa 775510 00 0270 desc9a -1208,184 001124 = 124150145040 003416 aa 6 01742 00 0270 desc9a pr6|994,184 003417 aa 000 100 100 404 mlr (ic),(pr),fill(000) 003420 aa 775236 00 0130 desc9a -1378,88 000655 = 116157040143 003421 aa 6 01520 00 0130 desc9a pr6|848,88 003422 aa 6 00156 3521 00 epp2 pr6|110 YES 003423 aa 6 01554 2521 00 spri2 pr6|876 003424 aa 6 01440 3521 00 epp2 pr6|800 003425 aa 6 01556 2521 00 spri2 pr6|878 003426 aa 774456 3520 04 epp2 -1746,ic 000104 = 162145154157 003427 aa 6 01560 2521 00 spri2 pr6|880 003430 aa 6 01742 3521 00 epp2 pr6|994 003431 aa 6 01562 2521 00 spri2 pr6|882 003432 aa 6 01520 3521 00 epp2 pr6|848 003433 aa 6 01564 2521 00 spri2 pr6|884 003434 aa 774523 3520 04 epp2 -1709,ic 000157 = 516000000001 003435 aa 6 01566 2521 00 spri2 pr6|886 003436 aa 774516 3520 04 epp2 -1714,ic 000154 = 404000000005 003437 aa 6 01570 2521 00 spri2 pr6|888 003440 aa 774523 3520 04 epp2 -1709,ic 000163 = 526000000040 003441 aa 6 01572 2521 00 spri2 pr6|890 003442 aa 774472 3520 04 epp2 -1734,ic 000134 = 524000000266 003443 aa 6 01574 2521 00 spri2 pr6|892 003444 aa 774467 3520 04 epp2 -1737,ic 000133 = 524000000127 003445 aa 6 01576 2521 00 spri2 pr6|894 003446 aa 6 01552 6211 00 eax1 pr6|874 003447 aa 024000 4310 07 fld 10240,dl 003450 aa 6 00044 3701 20 epp4 pr6|36,* 003451 la 4 00050 3521 20 epp2 pr4|40,* command_query_$yes_no 003452 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 317 if YES then rldr_data_.common.restart = "0"b; 003453 aa 6 00156 2351 00 lda pr6|110 YES 003454 aa 400000 3150 03 cana 131072,du 003455 aa 001677 6000 04 tze 959,ic 005354 003456 aa 003045 2350 04 lda 1573,ic 006523 = 777677777777 003457 aa 6 00512 3551 20 ansa pr6|330,* rldr_data_.restart STATEMENT 1 ON LINE 319 end; STATEMENT 1 ON LINE 320 end; 003460 aa 6 00150 0541 00 aos pr6|104 pvindex 003461 aa 777441 7100 04 tra -223,ic 003122 STATEMENT 1 ON LINE 321 do pvindex = 1 to rldr_data_.npvs; 003462 aa 6 00512 3735 20 epp7 pr6|330,* rldr_datap 003463 aa 7 00404 2361 00 ldq pr7|260 rldr_data_.npvs 003464 aa 6 01301 7561 00 stq pr6|705 003465 aa 000001 2360 07 ldq 1,dl 003466 aa 6 00150 7561 00 stq pr6|104 pvindex 003467 aa 000000 0110 03 nop 0,du 003470 aa 6 00150 2361 00 ldq pr6|104 pvindex 003471 aa 6 01301 1161 00 cmpq pr6|705 003472 aa 000456 6054 04 tpnz 302,ic 004150 STATEMENT 1 ON LINE 322 controlp = rldr_data_.controlp (pvindex); 003473 aa 000064 4020 07 mpy 52,dl 003474 aa 6 00512 3735 20 epp7 pr6|330,* rldr_datap 003475 aa 7 00430 3735 26 epp7 pr7|280,ql* rldr_data_.controlp 003476 aa 6 01240 6535 00 spri7 pr6|672 controlp STATEMENT 1 ON LINE 323 rldr_data_.vol_mapp (pvindex) = addr (rldr_control.vol_map); 003477 aa 7 02024 3715 00 epp5 pr7|1044 rldr_control.vol_map 003500 aa 6 00512 3535 20 epp3 pr6|330,* rldr_datap 003501 aa 3 00432 6515 06 spri5 pr3|282,ql rldr_data_.vol_mapp STATEMENT 1 ON LINE 324 rldr_data_.vtoc_headerp (pvindex) = addr (rldr_control.vtoc_header); 003502 aa 7 10024 3515 00 epp1 pr7|4116 rldr_control.vtoc_header 003503 aa 3 00420 2515 06 spri1 pr3|272,ql rldr_data_.vtoc_headerp STATEMENT 1 ON LINE 325 rldr_data_.labelp (pvindex) = addr (rldr_control.label); 003504 aa 7 00024 3715 00 epp5 pr7|20 rldr_control.label 003505 aa 3 00422 6515 06 spri5 pr3|274,ql rldr_data_.labelp STATEMENT 1 ON LINE 326 call rldr_output_$init (rldr_datap, pvindex, code); 003506 aa 6 00512 3521 00 epp2 pr6|330 rldr_datap 003507 aa 6 01444 2521 00 spri2 pr6|804 003510 aa 6 00150 3521 00 epp2 pr6|104 pvindex 003511 aa 6 01446 2521 00 spri2 pr6|806 003512 aa 6 00104 3521 00 epp2 pr6|68 code 003513 aa 6 01450 2521 00 spri2 pr6|808 003514 aa 6 01442 6211 00 eax1 pr6|802 003515 aa 014000 4310 07 fld 6144,dl 003516 aa 6 00044 3701 20 epp4 pr6|36,* 003517 la 4 00072 3521 20 epp2 pr4|58,* rldr_output_$init 003520 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 327 if code ^= 0 then do; 003521 aa 6 00104 2361 00 ldq pr6|68 code 003522 aa 000043 6000 04 tze 35,ic 003565 STATEMENT 1 ON LINE 328 call rldr_report_$error_output (rldr_datap, code, myname, "Error initializing output medium, pv ^a", rldr_data_.pvname (pvindex)); 003523 aa 774432 2360 04 ldq -1766,ic 000155 = 524000000040 003524 aa 6 01440 7561 00 stq pr6|800 003525 aa 000 100 100 404 mlr (ic),(pr),fill(000) 003526 aa 774735 00 0050 desc9a -1571,40 000462 = 105162162157 003527 aa 6 01452 00 0050 desc9a pr6|810,40 003530 aa 6 00150 2361 00 ldq pr6|104 pvindex 003531 aa 000064 4020 07 mpy 52,dl 003532 aa 6 00512 3521 00 epp2 pr6|330 rldr_datap 003533 aa 6 01522 2521 00 spri2 pr6|850 003534 aa 6 00104 3521 00 epp2 pr6|68 code 003535 aa 6 01524 2521 00 spri2 pr6|852 003536 aa 774346 3520 04 epp2 -1818,ic 000104 = 162145154157 003537 aa 6 01526 2521 00 spri2 pr6|854 003540 aa 6 01452 3521 00 epp2 pr6|810 003541 aa 6 01530 2521 00 spri2 pr6|856 003542 aa 6 00512 3735 20 epp7 pr6|330,* rldr_datap 003543 aa 7 00353 3521 06 epp2 pr7|235,ql rldr_data_.pvname 003544 aa 6 01532 2521 00 spri2 pr6|858 003545 aa 774415 3520 04 epp2 -1779,ic 000162 = 464000000000 003546 aa 6 01534 2521 00 spri2 pr6|860 003547 aa 774407 3520 04 epp2 -1785,ic 000156 = 404000000043 003550 aa 6 01536 2521 00 spri2 pr6|862 003551 aa 774412 3520 04 epp2 -1782,ic 000163 = 526000000040 003552 aa 6 01540 2521 00 spri2 pr6|864 003553 aa 774357 3520 04 epp2 -1809,ic 000132 = 524000000047 003554 aa 6 01542 2521 00 spri2 pr6|866 003555 aa 6 01440 3521 00 epp2 pr6|800 003556 aa 6 01544 2521 00 spri2 pr6|868 003557 aa 6 01520 6211 00 eax1 pr6|848 003560 aa 024000 4310 07 fld 10240,dl 003561 aa 6 00044 3701 20 epp4 pr6|36,* 003562 la 4 00112 3521 20 epp2 pr4|74,* rldr_report_$error_output 003563 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 330 goto err; 003564 aa 001570 7100 04 tra 888,ic 005354 STATEMENT 1 ON LINE 331 end; STATEMENT 1 ON LINE 332 if ^rldr_data_.per_pv.restart (pvindex) then do; 003565 aa 6 00150 2361 00 ldq pr6|104 pvindex 003566 aa 000064 4020 07 mpy 52,dl 003567 aa 6 00512 3735 20 epp7 pr6|330,* rldr_datap 003570 aa 7 00351 2351 06 lda pr7|233,ql rldr_data_.restart 003571 aa 000355 6010 04 tnz 237,ic 004146 STATEMENT 1 ON LINE 333 call rldr_label_$open (rldr_datap, pvindex, code); 003572 aa 6 00512 3521 00 epp2 pr6|330 rldr_datap 003573 aa 6 01444 2521 00 spri2 pr6|804 003574 aa 6 00150 3521 00 epp2 pr6|104 pvindex 003575 aa 6 01446 2521 00 spri2 pr6|806 003576 aa 6 00104 3521 00 epp2 pr6|68 code 003577 aa 6 01450 2521 00 spri2 pr6|808 003600 aa 6 01442 6211 00 eax1 pr6|802 003601 aa 014000 4310 07 fld 6144,dl 003602 aa 6 00044 3701 20 epp4 pr6|36,* 003603 la 4 00060 3521 20 epp2 pr4|48,* rldr_label_$open 003604 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 334 if code ^= 0 then do; 003605 aa 6 00104 2361 00 ldq pr6|68 code 003606 aa 000043 6000 04 tze 35,ic 003651 STATEMENT 1 ON LINE 335 call rldr_report_$error_output (rldr_datap, code, myname, "Label check failed for pv ^a", rldr_data_.pvname (pvindex)); 003607 aa 774346 2360 04 ldq -1818,ic 000155 = 524000000040 003610 aa 6 01440 7561 00 stq pr6|800 003611 aa 000 100 100 404 mlr (ic),(pr),fill(000) 003612 aa 774425 00 0034 desc9a -1771,28 000236 = 114141142145 003613 aa 6 01442 00 0034 desc9a pr6|802,28 003614 aa 6 00150 2361 00 ldq pr6|104 pvindex 003615 aa 000064 4020 07 mpy 52,dl 003616 aa 6 00512 3521 00 epp2 pr6|330 rldr_datap 003617 aa 6 01522 2521 00 spri2 pr6|850 003620 aa 6 00104 3521 00 epp2 pr6|68 code 003621 aa 6 01524 2521 00 spri2 pr6|852 003622 aa 774262 3520 04 epp2 -1870,ic 000104 = 162145154157 003623 aa 6 01526 2521 00 spri2 pr6|854 003624 aa 6 01442 3521 00 epp2 pr6|802 003625 aa 6 01530 2521 00 spri2 pr6|856 003626 aa 6 00512 3735 20 epp7 pr6|330,* rldr_datap 003627 aa 7 00353 3521 06 epp2 pr7|235,ql rldr_data_.pvname 003630 aa 6 01532 2521 00 spri2 pr6|858 003631 aa 774331 3520 04 epp2 -1831,ic 000162 = 464000000000 003632 aa 6 01534 2521 00 spri2 pr6|860 003633 aa 774323 3520 04 epp2 -1837,ic 000156 = 404000000043 003634 aa 6 01536 2521 00 spri2 pr6|862 003635 aa 774326 3520 04 epp2 -1834,ic 000163 = 526000000040 003636 aa 6 01540 2521 00 spri2 pr6|864 003637 aa 774304 3520 04 epp2 -1852,ic 000143 = 524000000034 003640 aa 6 01542 2521 00 spri2 pr6|866 003641 aa 6 01440 3521 00 epp2 pr6|800 003642 aa 6 01544 2521 00 spri2 pr6|868 003643 aa 6 01520 6211 00 eax1 pr6|848 003644 aa 024000 4310 07 fld 10240,dl 003645 aa 6 00044 3701 20 epp4 pr6|36,* 003646 la 4 00112 3521 20 epp2 pr4|74,* rldr_report_$error_output 003647 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 337 goto err; 003650 aa 001504 7100 04 tra 836,ic 005354 STATEMENT 1 ON LINE 338 end; STATEMENT 1 ON LINE 339 call rldr_volume_map_$open (rldr_datap, pvindex, code); 003651 aa 6 00512 3521 00 epp2 pr6|330 rldr_datap 003652 aa 6 01444 2521 00 spri2 pr6|804 003653 aa 6 00150 3521 00 epp2 pr6|104 pvindex 003654 aa 6 01446 2521 00 spri2 pr6|806 003655 aa 6 00104 3521 00 epp2 pr6|68 code 003656 aa 6 01450 2521 00 spri2 pr6|808 003657 aa 6 01442 6211 00 eax1 pr6|802 003660 aa 014000 4310 07 fld 6144,dl 003661 aa 6 00044 3701 20 epp4 pr6|36,* 003662 la 4 00104 3521 20 epp2 pr4|68,* rldr_volume_map_$open 003663 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 340 if code ^= 0 then do; 003664 aa 6 00104 2361 00 ldq pr6|68 code 003665 aa 000043 6000 04 tze 35,ic 003730 STATEMENT 1 ON LINE 341 call rldr_report_$error_output (rldr_datap, code, myname, "Error opening volume map for pv ^a", rldr_data_.pvname (pvindex)); 003666 aa 774267 2360 04 ldq -1865,ic 000155 = 524000000040 003667 aa 6 01440 7561 00 stq pr6|800 003670 aa 000 100 100 404 mlr (ic),(pr),fill(000) 003671 aa 774536 00 0044 desc9a -1698,36 000426 = 105162162157 003672 aa 6 01452 00 0044 desc9a pr6|810,36 003673 aa 6 00150 2361 00 ldq pr6|104 pvindex 003674 aa 000064 4020 07 mpy 52,dl 003675 aa 6 00512 3521 00 epp2 pr6|330 rldr_datap 003676 aa 6 01522 2521 00 spri2 pr6|850 003677 aa 6 00104 3521 00 epp2 pr6|68 code 003700 aa 6 01524 2521 00 spri2 pr6|852 003701 aa 774203 3520 04 epp2 -1917,ic 000104 = 162145154157 003702 aa 6 01526 2521 00 spri2 pr6|854 003703 aa 6 01452 3521 00 epp2 pr6|810 003704 aa 6 01530 2521 00 spri2 pr6|856 003705 aa 6 00512 3735 20 epp7 pr6|330,* rldr_datap 003706 aa 7 00353 3521 06 epp2 pr7|235,ql rldr_data_.pvname 003707 aa 6 01532 2521 00 spri2 pr6|858 003710 aa 774252 3520 04 epp2 -1878,ic 000162 = 464000000000 003711 aa 6 01534 2521 00 spri2 pr6|860 003712 aa 774244 3520 04 epp2 -1884,ic 000156 = 404000000043 003713 aa 6 01536 2521 00 spri2 pr6|862 003714 aa 774247 3520 04 epp2 -1881,ic 000163 = 526000000040 003715 aa 6 01540 2521 00 spri2 pr6|864 003716 aa 774213 3520 04 epp2 -1909,ic 000131 = 524000000042 003717 aa 6 01542 2521 00 spri2 pr6|866 003720 aa 6 01440 3521 00 epp2 pr6|800 003721 aa 6 01544 2521 00 spri2 pr6|868 003722 aa 6 01520 6211 00 eax1 pr6|848 003723 aa 024000 4310 07 fld 10240,dl 003724 aa 6 00044 3701 20 epp4 pr6|36,* 003725 la 4 00112 3521 20 epp2 pr4|74,* rldr_report_$error_output 003726 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 343 goto err; 003727 aa 001425 7100 04 tra 789,ic 005354 STATEMENT 1 ON LINE 344 end; STATEMENT 1 ON LINE 345 call rldr_vtoc_header_$open (rldr_datap, pvindex, code); 003730 aa 6 00512 3521 00 epp2 pr6|330 rldr_datap 003731 aa 6 01444 2521 00 spri2 pr6|804 003732 aa 6 00150 3521 00 epp2 pr6|104 pvindex 003733 aa 6 01446 2521 00 spri2 pr6|806 003734 aa 6 00104 3521 00 epp2 pr6|68 code 003735 aa 6 01450 2521 00 spri2 pr6|808 003736 aa 6 01442 6211 00 eax1 pr6|802 003737 aa 014000 4310 07 fld 6144,dl 003740 aa 6 00044 3701 20 epp4 pr6|36,* 003741 la 4 00076 3521 20 epp2 pr4|62,* rldr_vtoc_header_$open 003742 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 346 if code ^= 0 then do; 003743 aa 6 00104 2361 00 ldq pr6|68 code 003744 aa 000043 6000 04 tze 35,ic 004007 STATEMENT 1 ON LINE 347 call rldr_report_$error_output (rldr_datap, code, myname, "Unable to open vtoc header for pv ^a", rldr_data_.pvname (pvindex)); 003745 aa 774210 2360 04 ldq -1912,ic 000155 = 524000000040 003746 aa 6 01440 7561 00 stq pr6|800 003747 aa 000 100 100 404 mlr (ic),(pr),fill(000) 003750 aa 774446 00 0044 desc9a -1754,36 000415 = 125156141142 003751 aa 6 01452 00 0044 desc9a pr6|810,36 003752 aa 6 00150 2361 00 ldq pr6|104 pvindex 003753 aa 000064 4020 07 mpy 52,dl 003754 aa 6 00512 3521 00 epp2 pr6|330 rldr_datap 003755 aa 6 01522 2521 00 spri2 pr6|850 003756 aa 6 00104 3521 00 epp2 pr6|68 code 003757 aa 6 01524 2521 00 spri2 pr6|852 003760 aa 774124 3520 04 epp2 -1964,ic 000104 = 162145154157 003761 aa 6 01526 2521 00 spri2 pr6|854 003762 aa 6 01452 3521 00 epp2 pr6|810 003763 aa 6 01530 2521 00 spri2 pr6|856 003764 aa 6 00512 3735 20 epp7 pr6|330,* rldr_datap 003765 aa 7 00353 3521 06 epp2 pr7|235,ql rldr_data_.pvname 003766 aa 6 01532 2521 00 spri2 pr6|858 003767 aa 774173 3520 04 epp2 -1925,ic 000162 = 464000000000 003770 aa 6 01534 2521 00 spri2 pr6|860 003771 aa 774165 3520 04 epp2 -1931,ic 000156 = 404000000043 003772 aa 6 01536 2521 00 spri2 pr6|862 003773 aa 774170 3520 04 epp2 -1928,ic 000163 = 526000000040 003774 aa 6 01540 2521 00 spri2 pr6|864 003775 aa 774133 3520 04 epp2 -1957,ic 000130 = 524000000044 003776 aa 6 01542 2521 00 spri2 pr6|866 003777 aa 6 01440 3521 00 epp2 pr6|800 004000 aa 6 01544 2521 00 spri2 pr6|868 004001 aa 6 01520 6211 00 eax1 pr6|848 004002 aa 024000 4310 07 fld 10240,dl 004003 aa 6 00044 3701 20 epp4 pr6|36,* 004004 la 4 00112 3521 20 epp2 pr4|74,* rldr_report_$error_output 004005 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 349 goto err; 004006 aa 001346 7100 04 tra 742,ic 005354 STATEMENT 1 ON LINE 350 end; STATEMENT 1 ON LINE 351 call rldr_check_pvol_ (rldr_datap, pvindex, code); 004007 aa 6 00512 3521 00 epp2 pr6|330 rldr_datap 004010 aa 6 01444 2521 00 spri2 pr6|804 004011 aa 6 00150 3521 00 epp2 pr6|104 pvindex 004012 aa 6 01446 2521 00 spri2 pr6|806 004013 aa 6 00104 3521 00 epp2 pr6|68 code 004014 aa 6 01450 2521 00 spri2 pr6|808 004015 aa 6 01442 6211 00 eax1 pr6|802 004016 aa 014000 4310 07 fld 6144,dl 004017 aa 6 00044 3701 20 epp4 pr6|36,* 004020 la 4 00056 3521 20 epp2 pr4|46,* rldr_check_pvol_ 004021 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 352 if code ^= 0 then do; 004022 aa 6 00104 2361 00 ldq pr6|68 code 004023 aa 000117 6000 04 tze 79,ic 004142 STATEMENT 1 ON LINE 353 if code > 2 then do; 004024 aa 000002 1160 07 cmpq 2,dl 004025 aa 000044 6044 04 tmoz 36,ic 004071 STATEMENT 1 ON LINE 354 call rldr_report_$error_output (rldr_datap, 0, myname, "Unable to reload volume ^a. Volog and volume label have fatal mismatch", rldr_data_.pvname (pvindex)); 004026 aa 774127 2360 04 ldq -1961,ic 000155 = 524000000040 004027 aa 6 01440 7561 00 stq pr6|800 004030 aa 6 01441 4501 00 stz pr6|801 004031 aa 000 100 100 404 mlr (ic),(pr),fill(000) 004032 aa 774534 00 0110 desc9a -1700,72 000565 = 125156141142 004033 aa 6 01452 00 0110 desc9a pr6|810,72 004034 aa 6 00150 2361 00 ldq pr6|104 pvindex 004035 aa 000064 4020 07 mpy 52,dl 004036 aa 6 00512 3521 00 epp2 pr6|330 rldr_datap 004037 aa 6 01522 2521 00 spri2 pr6|850 004040 aa 6 01441 3521 00 epp2 pr6|801 004041 aa 6 01524 2521 00 spri2 pr6|852 004042 aa 774042 3520 04 epp2 -2014,ic 000104 = 162145154157 004043 aa 6 01526 2521 00 spri2 pr6|854 004044 aa 6 01452 3521 00 epp2 pr6|810 004045 aa 6 01530 2521 00 spri2 pr6|856 004046 aa 6 00512 3735 20 epp7 pr6|330,* rldr_datap 004047 aa 7 00353 3521 06 epp2 pr7|235,ql rldr_data_.pvname 004050 aa 6 01532 2521 00 spri2 pr6|858 004051 aa 774111 3520 04 epp2 -1975,ic 000162 = 464000000000 004052 aa 6 01534 2521 00 spri2 pr6|860 004053 aa 774101 3520 04 epp2 -1983,ic 000154 = 404000000005 004054 aa 6 01536 2521 00 spri2 pr6|862 004055 aa 774106 3520 04 epp2 -1978,ic 000163 = 526000000040 004056 aa 6 01540 2521 00 spri2 pr6|864 004057 aa 774050 3520 04 epp2 -2008,ic 000127 = 524000000106 004060 aa 6 01542 2521 00 spri2 pr6|866 004061 aa 6 01440 3521 00 epp2 pr6|800 004062 aa 6 01544 2521 00 spri2 pr6|868 004063 aa 6 01520 6211 00 eax1 pr6|848 004064 aa 024000 4310 07 fld 10240,dl 004065 aa 6 00044 3701 20 epp4 pr6|36,* 004066 la 4 00112 3521 20 epp2 pr4|74,* rldr_report_$error_output 004067 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 357 goto err; 004070 aa 001264 7100 04 tra 692,ic 005354 STATEMENT 1 ON LINE 358 end; STATEMENT 1 ON LINE 359 else do; STATEMENT 1 ON LINE 360 call command_query_$yes_no (YES, 0, myname, "", "Initialized physical volume ^a does not match online logical image. Do you wish to proceed", rldr_data_.pvname (pvindex)); 004071 aa 774064 2360 04 ldq -1996,ic 000155 = 524000000040 004072 aa 6 01440 7561 00 stq pr6|800 004073 aa 6 01441 4501 00 stz pr6|801 004074 aa 000 100 100 404 mlr (ic),(pr),fill(000) 004075 aa 774607 00 0134 desc9a -1657,92 000703 = 111156151164 004076 aa 6 01520 00 0134 desc9a pr6|848,92 004077 aa 6 00150 2361 00 ldq pr6|104 pvindex 004100 aa 000064 4020 07 mpy 52,dl 004101 aa 6 00156 3521 00 epp2 pr6|110 YES 004102 aa 6 01554 2521 00 spri2 pr6|876 004103 aa 6 01441 3521 00 epp2 pr6|801 004104 aa 6 01556 2521 00 spri2 pr6|878 004105 aa 773777 3520 04 epp2 -2049,ic 000104 = 162145154157 004106 aa 6 01560 2521 00 spri2 pr6|880 004107 aa 6 01517 3521 00 epp2 pr6|847 004110 aa 6 01562 2521 00 spri2 pr6|882 004111 aa 6 01520 3521 00 epp2 pr6|848 004112 aa 6 01564 2521 00 spri2 pr6|884 004113 aa 6 00512 3735 20 epp7 pr6|330,* rldr_datap 004114 aa 7 00353 3521 06 epp2 pr7|235,ql rldr_data_.pvname 004115 aa 6 01566 2521 00 spri2 pr6|886 004116 aa 774041 3520 04 epp2 -2015,ic 000157 = 516000000001 004117 aa 6 01570 2521 00 spri2 pr6|888 004120 aa 774034 3520 04 epp2 -2020,ic 000154 = 404000000005 004121 aa 6 01572 2521 00 spri2 pr6|890 004122 aa 774041 3520 04 epp2 -2015,ic 000163 = 526000000040 004123 aa 6 01574 2521 00 spri2 pr6|892 004124 aa 774013 3520 04 epp2 -2037,ic 000137 = 524000000000 004125 aa 6 01576 2521 00 spri2 pr6|894 004126 aa 774000 3520 04 epp2 -2048,ic 000126 = 524000000132 004127 aa 6 01600 2521 00 spri2 pr6|896 004130 aa 6 01440 3521 00 epp2 pr6|800 004131 aa 6 01602 2521 00 spri2 pr6|898 004132 aa 6 01552 6211 00 eax1 pr6|874 004133 aa 030000 4310 07 fld 12288,dl 004134 aa 6 00044 3701 20 epp4 pr6|36,* 004135 la 4 00050 3521 20 epp2 pr4|40,* command_query_$yes_no 004136 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 363 if ^YES then goto err; 004137 aa 6 00156 2351 00 lda pr6|110 YES 004140 aa 400000 3150 03 cana 131072,du 004141 aa 001213 6000 04 tze 651,ic 005354 STATEMENT 1 ON LINE 364 end; STATEMENT 1 ON LINE 365 end; STATEMENT 1 ON LINE 366 if rldr_data_.save then call update_control_seg (); 004142 aa 6 00512 2351 20 lda pr6|330,* rldr_data_.save 004143 aa 400000 3150 03 cana 131072,du 004144 aa 000002 6000 04 tze 2,ic 004146 004145 aa 001316 6700 04 tsp4 718,ic 005463 STATEMENT 1 ON LINE 367 end; STATEMENT 1 ON LINE 368 end; 004146 aa 6 00150 0541 00 aos pr6|104 pvindex 004147 aa 777321 7100 04 tra -303,ic 003470 STATEMENT 1 ON LINE 369 call get_temp_segments_ (myname, tp6, code); 004150 aa 773734 3520 04 epp2 -2084,ic 000104 = 162145154157 004151 aa 6 01454 2521 00 spri2 pr6|812 004152 aa 6 00470 3521 00 epp2 pr6|312 tp6 004153 aa 6 01456 2521 00 spri2 pr6|814 004154 aa 6 00104 3521 00 epp2 pr6|68 code 004155 aa 6 01460 2521 00 spri2 pr6|816 004156 aa 774005 3520 04 epp2 -2043,ic 000163 = 526000000040 004157 aa 6 01462 2521 00 spri2 pr6|818 004160 aa 774025 3520 04 epp2 -2027,ic 000205 = 464100000000 004161 aa 6 01464 2521 00 spri2 pr6|820 004162 aa 773774 3520 04 epp2 -2052,ic 000156 = 404000000043 004163 aa 6 01466 2521 00 spri2 pr6|822 004164 aa 6 01452 6211 00 eax1 pr6|810 004165 aa 014000 4310 07 fld 6144,dl 004166 aa 6 00044 3701 20 epp4 pr6|36,* 004167 la 4 00064 3521 20 epp2 pr4|52,* get_temp_segments_ 004170 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 370 if code ^= 0 then do; 004171 aa 6 00104 2361 00 ldq pr6|68 code 004172 aa 000032 6000 04 tze 26,ic 004224 STATEMENT 1 ON LINE 371 call rldr_report_$error_output (rldr_datap, code, myname, "Error creating temp segs "); 004173 aa 000 100 100 404 mlr (ic),(pr),fill(000) 004174 aa 774052 00 0034 desc9a -2006,28 000245 = 105162162157 004175 aa 6 01442 00 0034 desc9a pr6|802,28 004176 aa 6 00512 3521 00 epp2 pr6|330 rldr_datap 004177 aa 6 01454 2521 00 spri2 pr6|812 004200 aa 6 00104 3521 00 epp2 pr6|68 code 004201 aa 6 01456 2521 00 spri2 pr6|814 004202 aa 773702 3520 04 epp2 -2110,ic 000104 = 162145154157 004203 aa 6 01460 2521 00 spri2 pr6|816 004204 aa 6 01442 3521 00 epp2 pr6|802 004205 aa 6 01462 2521 00 spri2 pr6|818 004206 aa 773754 3520 04 epp2 -2068,ic 000162 = 464000000000 004207 aa 6 01464 2521 00 spri2 pr6|820 004210 aa 773746 3520 04 epp2 -2074,ic 000156 = 404000000043 004211 aa 6 01466 2521 00 spri2 pr6|822 004212 aa 773751 3520 04 epp2 -2071,ic 000163 = 526000000040 004213 aa 6 01470 2521 00 spri2 pr6|824 004214 aa 773724 3520 04 epp2 -2092,ic 000140 = 524000000031 004215 aa 6 01472 2521 00 spri2 pr6|826 004216 aa 6 01452 6211 00 eax1 pr6|810 004217 aa 020000 4310 07 fld 8192,dl 004220 aa 6 00044 3701 20 epp4 pr6|36,* 004221 la 4 00112 3521 20 epp2 pr4|74,* rldr_report_$error_output 004222 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 372 goto err; 004223 aa 001131 7100 04 tra 601,ic 005354 STATEMENT 1 ON LINE 373 end; STATEMENT 1 ON LINE 374 rldr_data_.volume_record_bp = tp6 (1); 004224 aa 6 00470 3735 20 epp7 pr6|312,* tp6 004225 aa 6 00512 3715 20 epp5 pr6|330,* rldr_datap 004226 aa 5 00422 6535 00 spri7 pr5|274 rldr_data_.volume_record_bp STATEMENT 1 ON LINE 375 rldr_data_.data_object_bp = tp6 (2); 004227 aa 6 00472 3535 20 epp3 pr6|314,* tp6 004230 aa 5 00426 2535 00 spri3 pr5|278 rldr_data_.data_object_bp STATEMENT 1 ON LINE 376 rldr_data_.input_vol_lstp = tp6 (3); 004231 aa 6 00474 3515 20 epp1 pr6|316,* tp6 004232 aa 5 00430 2515 00 spri1 pr5|280 rldr_data_.input_vol_lstp STATEMENT 1 ON LINE 377 rldr_data_.infop = tp6 (4); 004233 aa 6 00476 3535 20 epp3 pr6|318,* tp6 004234 aa 5 00424 2535 00 spri3 pr5|276 rldr_data_.infop STATEMENT 1 ON LINE 378 rldr_data_.skip = tp6 (5); 004235 aa 6 00500 3735 20 epp7 pr6|320,* tp6 004236 aa 5 00420 6535 00 spri7 pr5|272 rldr_data_.skip STATEMENT 1 ON LINE 379 rldr_data_.input_buffer_ptr = tp6 (6); 004237 aa 6 00502 3515 20 epp1 pr6|322,* tp6 004240 aa 5 00432 2515 00 spri1 pr5|282 rldr_data_.input_buffer_ptr STATEMENT 1 ON LINE 380 rldr_data_.input_buffer_len = 0; 004241 aa 5 00412 4501 00 stz pr5|266 rldr_data_.input_buffer_len STATEMENT 1 ON LINE 381 call hcs_$set_max_length_seg (rldr_data_.data_object_bp, sys_info$seg_size_256K, code); 004242 aa 5 00426 3521 00 epp2 pr5|278 rldr_data_.data_object_bp 004243 aa 6 01444 2521 00 spri2 pr6|804 004244 aa 6 00044 3701 20 epp4 pr6|36,* 004245 la 4 00020 3521 20 epp2 pr4|16,* sys_info$seg_size_256K 004246 aa 6 01446 2521 00 spri2 pr6|806 004247 aa 6 00104 3521 00 epp2 pr6|68 code 004250 aa 6 01450 2521 00 spri2 pr6|808 004251 aa 6 01442 6211 00 eax1 pr6|802 004252 aa 014000 4310 07 fld 6144,dl 004253 la 4 00024 3521 20 epp2 pr4|20,* hcs_$set_max_length_seg 004254 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 382 if code ^= 0 then do; 004255 aa 6 00104 2361 00 ldq pr6|68 code 004256 aa 000032 6000 04 tze 26,ic 004310 STATEMENT 1 ON LINE 383 call rldr_report_$error_output (rldr_datap, code, myname, "Could not create 256KW temporary segment."); 004257 aa 000 100 100 404 mlr (ic),(pr),fill(000) 004260 aa 774243 00 0054 desc9a -1885,44 000522 = 103157165154 004261 aa 6 01452 00 0054 desc9a pr6|810,44 004262 aa 6 00512 3521 00 epp2 pr6|330 rldr_datap 004263 aa 6 01476 2521 00 spri2 pr6|830 004264 aa 6 00104 3521 00 epp2 pr6|68 code 004265 aa 6 01500 2521 00 spri2 pr6|832 004266 aa 773616 3520 04 epp2 -2162,ic 000104 = 162145154157 004267 aa 6 01502 2521 00 spri2 pr6|834 004270 aa 6 01452 3521 00 epp2 pr6|810 004271 aa 6 01504 2521 00 spri2 pr6|836 004272 aa 773670 3520 04 epp2 -2120,ic 000162 = 464000000000 004273 aa 6 01506 2521 00 spri2 pr6|838 004274 aa 773662 3520 04 epp2 -2126,ic 000156 = 404000000043 004275 aa 6 01510 2521 00 spri2 pr6|840 004276 aa 773665 3520 04 epp2 -2123,ic 000163 = 526000000040 004277 aa 6 01512 2521 00 spri2 pr6|842 004300 aa 773625 3520 04 epp2 -2155,ic 000125 = 524000000051 004301 aa 6 01514 2521 00 spri2 pr6|844 004302 aa 6 01474 6211 00 eax1 pr6|828 004303 aa 020000 4310 07 fld 8192,dl 004304 aa 6 00044 3701 20 epp4 pr6|36,* 004305 la 4 00112 3521 20 epp2 pr4|74,* rldr_report_$error_output 004306 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 384 goto err; 004307 aa 001045 7100 04 tra 549,ic 005354 STATEMENT 1 ON LINE 385 end; STATEMENT 1 ON LINE 387 call hcs_$set_max_length_seg (rldr_data_.input_buffer_ptr, sys_info$seg_size_256K, code); 004310 aa 6 00512 3735 20 epp7 pr6|330,* rldr_datap 004311 aa 7 00432 3521 00 epp2 pr7|282 rldr_data_.input_buffer_ptr 004312 aa 6 01444 2521 00 spri2 pr6|804 004313 aa 6 00044 3701 20 epp4 pr6|36,* 004314 la 4 00020 3521 20 epp2 pr4|16,* sys_info$seg_size_256K 004315 aa 6 01446 2521 00 spri2 pr6|806 004316 aa 6 00104 3521 00 epp2 pr6|68 code 004317 aa 6 01450 2521 00 spri2 pr6|808 004320 aa 6 01442 6211 00 eax1 pr6|802 004321 aa 014000 4310 07 fld 6144,dl 004322 la 4 00024 3521 20 epp2 pr4|20,* hcs_$set_max_length_seg 004323 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 389 if code ^= 0 then do; 004324 aa 6 00104 2361 00 ldq pr6|68 code 004325 aa 000032 6000 04 tze 26,ic 004357 STATEMENT 1 ON LINE 390 call rldr_report_$error_output (rldr_datap, code, myname, "Could not create 256KW temporary segment."); 004326 aa 000 100 100 404 mlr (ic),(pr),fill(000) 004327 aa 774174 00 0054 desc9a -1924,44 000522 = 103157165154 004330 aa 6 01452 00 0054 desc9a pr6|810,44 004331 aa 6 00512 3521 00 epp2 pr6|330 rldr_datap 004332 aa 6 01476 2521 00 spri2 pr6|830 004333 aa 6 00104 3521 00 epp2 pr6|68 code 004334 aa 6 01500 2521 00 spri2 pr6|832 004335 aa 773547 3520 04 epp2 -2201,ic 000104 = 162145154157 004336 aa 6 01502 2521 00 spri2 pr6|834 004337 aa 6 01452 3521 00 epp2 pr6|810 004340 aa 6 01504 2521 00 spri2 pr6|836 004341 aa 773621 3520 04 epp2 -2159,ic 000162 = 464000000000 004342 aa 6 01506 2521 00 spri2 pr6|838 004343 aa 773613 3520 04 epp2 -2165,ic 000156 = 404000000043 004344 aa 6 01510 2521 00 spri2 pr6|840 004345 aa 773616 3520 04 epp2 -2162,ic 000163 = 526000000040 004346 aa 6 01512 2521 00 spri2 pr6|842 004347 aa 773556 3520 04 epp2 -2194,ic 000125 = 524000000051 004350 aa 6 01514 2521 00 spri2 pr6|844 004351 aa 6 01474 6211 00 eax1 pr6|828 004352 aa 020000 4310 07 fld 8192,dl 004353 aa 6 00044 3701 20 epp4 pr6|36,* 004354 la 4 00112 3521 20 epp2 pr4|74,* rldr_report_$error_output 004355 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 391 goto err; 004356 aa 000776 7100 04 tra 510,ic 005354 STATEMENT 1 ON LINE 392 end; STATEMENT 1 ON LINE 394 call rldr_input_$init_volume_list (rldr_datap, code); 004357 aa 6 00512 3521 00 epp2 pr6|330 rldr_datap 004360 aa 6 01444 2521 00 spri2 pr6|804 004361 aa 6 00104 3521 00 epp2 pr6|68 code 004362 aa 6 01446 2521 00 spri2 pr6|806 004363 aa 6 01442 6211 00 eax1 pr6|802 004364 aa 010000 4310 07 fld 4096,dl 004365 aa 6 00044 3701 20 epp4 pr6|36,* 004366 la 4 00070 3521 20 epp2 pr4|56,* rldr_input_$init_volume_list 004367 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 395 if code ^= 0 then do; 004370 aa 6 00104 2361 00 ldq pr6|68 code 004371 aa 000032 6000 04 tze 26,ic 004423 STATEMENT 1 ON LINE 396 call rldr_report_$error_output (rldr_datap, code, myname, "Error initializing input volume list "); 004372 aa 000 100 100 404 mlr (ic),(pr),fill(000) 004373 aa 774056 00 0050 desc9a -2002,40 000450 = 105162162157 004374 aa 6 01452 00 0050 desc9a pr6|810,40 004375 aa 6 00512 3521 00 epp2 pr6|330 rldr_datap 004376 aa 6 01476 2521 00 spri2 pr6|830 004377 aa 6 00104 3521 00 epp2 pr6|68 code 004400 aa 6 01500 2521 00 spri2 pr6|832 004401 aa 773503 3520 04 epp2 -2237,ic 000104 = 162145154157 004402 aa 6 01502 2521 00 spri2 pr6|834 004403 aa 6 01452 3521 00 epp2 pr6|810 004404 aa 6 01504 2521 00 spri2 pr6|836 004405 aa 773555 3520 04 epp2 -2195,ic 000162 = 464000000000 004406 aa 6 01506 2521 00 spri2 pr6|838 004407 aa 773547 3520 04 epp2 -2201,ic 000156 = 404000000043 004410 aa 6 01510 2521 00 spri2 pr6|840 004411 aa 773552 3520 04 epp2 -2198,ic 000163 = 526000000040 004412 aa 6 01512 2521 00 spri2 pr6|842 004413 aa 773511 3520 04 epp2 -2231,ic 000124 = 524000000045 004414 aa 6 01514 2521 00 spri2 pr6|844 004415 aa 6 01474 6211 00 eax1 pr6|828 004416 aa 020000 4310 07 fld 8192,dl 004417 aa 6 00044 3701 20 epp4 pr6|36,* 004420 la 4 00112 3521 20 epp2 pr4|74,* rldr_report_$error_output 004421 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 397 goto err; 004422 aa 000732 7100 04 tra 474,ic 005354 STATEMENT 1 ON LINE 398 end; STATEMENT 1 ON LINE 400 call rldr_report_$online_output (rldr_datap, 0, myname, "Begin reload of volume^[s^] ^v(^a ^) at ^a", (rldr_data_.npvs > 1), rldr_data_.npvs, rldr_data_.pvname (*), time_now_ ()); 004423 aa 773477 2360 04 ldq -2241,ic 000122 = 524100000040 004424 aa 6 01434 7561 00 stq pr6|796 004425 aa 000001 2360 07 ldq 1,dl 004426 aa 6 01435 7561 00 stq pr6|797 004427 aa 6 00512 3735 20 epp7 pr6|330,* rldr_datap 004430 aa 7 00404 2361 00 ldq pr7|260 rldr_data_.npvs 004431 aa 6 01436 7561 00 stq pr6|798 004432 aa 000064 2360 07 ldq 52,dl 004433 aa 6 01437 7561 00 stq pr6|799 004434 aa 6 01440 4501 00 stz pr6|800 004435 aa 000 100 100 404 mlr (ic),(pr),fill(000) 004436 aa 774052 00 0054 desc9a -2006,44 000507 = 102145147151 004437 aa 6 01452 00 0054 desc9a pr6|810,44 004440 aa 7 00404 2361 00 ldq pr7|260 rldr_data_.npvs 004441 aa 000001 1160 07 cmpq 1,dl 004442 aa 0 00503 7001 00 tsx0 pr0|323 r_g_a 004443 aa 6 01517 7551 00 sta pr6|847 004444 aa 001642 3520 04 epp2 930,ic 006306 = 000002000000 004445 aa 000744 6700 04 tsp4 484,ic 005411 004446 aa 6 00512 3521 00 epp2 pr6|330 rldr_datap 004447 aa 6 01554 2521 00 spri2 pr6|876 004450 aa 6 01440 3521 00 epp2 pr6|800 004451 aa 6 01556 2521 00 spri2 pr6|878 004452 aa 773432 3520 04 epp2 -2278,ic 000104 = 162145154157 004453 aa 6 01560 2521 00 spri2 pr6|880 004454 aa 6 01452 3521 00 epp2 pr6|810 004455 aa 6 01562 2521 00 spri2 pr6|882 004456 aa 6 01517 3521 00 epp2 pr6|847 004457 aa 6 01564 2521 00 spri2 pr6|884 004460 aa 6 00512 3735 20 epp7 pr6|330,* rldr_datap 004461 aa 7 00404 3521 00 epp2 pr7|260 rldr_data_.npvs 004462 aa 6 01566 2521 00 spri2 pr6|886 004463 aa 7 00437 3521 00 epp2 pr7|287 rldr_data_.pvname 004464 aa 6 01570 2521 00 spri2 pr6|888 004465 aa 6 01432 3521 00 epp2 pr6|794 004466 aa 6 01572 2521 00 spri2 pr6|890 004467 aa 773473 3520 04 epp2 -2245,ic 000162 = 464000000000 004470 aa 6 01574 2521 00 spri2 pr6|892 004471 aa 773463 3520 04 epp2 -2253,ic 000154 = 404000000005 004472 aa 6 01576 2521 00 spri2 pr6|894 004473 aa 773470 3520 04 epp2 -2248,ic 000163 = 526000000040 004474 aa 6 01600 2521 00 spri2 pr6|896 004475 aa 773452 3520 04 epp2 -2262,ic 000147 = 524000000052 004476 aa 6 01602 2521 00 spri2 pr6|898 004477 aa 773424 3520 04 epp2 -2284,ic 000123 = 514000000001 004500 aa 6 01604 2521 00 spri2 pr6|900 004501 aa 773463 3520 04 epp2 -2253,ic 000164 = 404000000021 004502 aa 6 01606 2521 00 spri2 pr6|902 004503 aa 6 01434 3521 00 epp2 pr6|796 004504 aa 6 01610 2521 00 spri2 pr6|904 004505 aa 773414 3520 04 epp2 -2292,ic 000121 = 524000000006 004506 aa 6 01612 2521 00 spri2 pr6|906 004507 aa 6 01552 6211 00 eax1 pr6|874 004510 aa 040000 4310 07 fld 16384,dl 004511 aa 6 00044 3701 20 epp4 pr6|36,* 004512 la 4 00114 3521 20 epp2 pr4|76,* rldr_report_$online_output 004513 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 403 call reload_volume_ (rldr_datap, code); 004514 aa 6 00512 3521 00 epp2 pr6|330 rldr_datap 004515 aa 6 01444 2521 00 spri2 pr6|804 004516 aa 6 00104 3521 00 epp2 pr6|68 code 004517 aa 6 01446 2521 00 spri2 pr6|806 004520 aa 6 01442 6211 00 eax1 pr6|802 004521 aa 010000 4310 07 fld 4096,dl 004522 aa 6 00044 3701 20 epp4 pr6|36,* 004523 la 4 00074 3521 20 epp2 pr4|60,* reload_volume_ 004524 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 404 if code ^= 0 then /* if code ^=0 then pvindex is one who failed. */ call rldr_report_$error_output (rldr_datap, code, myname, "Error reloading volume ^a", rldr_data_.pvname (pvindex)); 004525 aa 6 00104 2361 00 ldq pr6|68 code 004526 aa 000042 6000 04 tze 34,ic 004570 004527 aa 773426 2360 04 ldq -2282,ic 000155 = 524000000040 004530 aa 6 01517 7561 00 stq pr6|847 004531 aa 000 100 100 404 mlr (ic),(pr),fill(000) 004532 aa 773476 00 0034 desc9a -2242,28 000227 = 105162162157 004533 aa 6 01442 00 0034 desc9a pr6|802,28 004534 aa 6 00150 2361 00 ldq pr6|104 pvindex 004535 aa 000064 4020 07 mpy 52,dl 004536 aa 6 00512 3521 00 epp2 pr6|330 rldr_datap 004537 aa 6 01522 2521 00 spri2 pr6|850 004540 aa 6 00104 3521 00 epp2 pr6|68 code 004541 aa 6 01524 2521 00 spri2 pr6|852 004542 aa 773342 3520 04 epp2 -2334,ic 000104 = 162145154157 004543 aa 6 01526 2521 00 spri2 pr6|854 004544 aa 6 01442 3521 00 epp2 pr6|802 004545 aa 6 01530 2521 00 spri2 pr6|856 004546 aa 6 00512 3735 20 epp7 pr6|330,* rldr_datap 004547 aa 7 00353 3521 06 epp2 pr7|235,ql rldr_data_.pvname 004550 aa 6 01532 2521 00 spri2 pr6|858 004551 aa 773411 3520 04 epp2 -2295,ic 000162 = 464000000000 004552 aa 6 01534 2521 00 spri2 pr6|860 004553 aa 773403 3520 04 epp2 -2301,ic 000156 = 404000000043 004554 aa 6 01536 2521 00 spri2 pr6|862 004555 aa 773406 3520 04 epp2 -2298,ic 000163 = 526000000040 004556 aa 6 01540 2521 00 spri2 pr6|864 004557 aa 773361 3520 04 epp2 -2319,ic 000140 = 524000000031 004560 aa 6 01542 2521 00 spri2 pr6|866 004561 aa 6 01517 3521 00 epp2 pr6|847 004562 aa 6 01544 2521 00 spri2 pr6|868 004563 aa 6 01520 6211 00 eax1 pr6|848 004564 aa 024000 4310 07 fld 10240,dl 004565 aa 6 00044 3701 20 epp4 pr6|36,* 004566 la 4 00112 3521 20 epp2 pr4|74,* rldr_report_$error_output 004567 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 406 do pvindex = 1 to rldr_data_.npvs; 004570 aa 6 00512 3735 20 epp7 pr6|330,* rldr_datap 004571 aa 7 00404 2361 00 ldq pr7|260 rldr_data_.npvs 004572 aa 6 01302 7561 00 stq pr6|706 004573 aa 000001 2360 07 ldq 1,dl 004574 aa 6 00150 7561 00 stq pr6|104 pvindex 004575 aa 000000 0110 03 nop 0,du 004576 aa 6 00150 2361 00 ldq pr6|104 pvindex 004577 aa 6 01302 1161 00 cmpq pr6|706 004600 aa 000540 6054 04 tpnz 352,ic 005340 STATEMENT 1 ON LINE 407 call rldr_vtoc_header_$build_vtoc_map (rldr_datap, pvindex, code); 004601 aa 6 00512 3521 00 epp2 pr6|330 rldr_datap 004602 aa 6 01444 2521 00 spri2 pr6|804 004603 aa 6 00150 3521 00 epp2 pr6|104 pvindex 004604 aa 6 01446 2521 00 spri2 pr6|806 004605 aa 6 00104 3521 00 epp2 pr6|68 code 004606 aa 6 01450 2521 00 spri2 pr6|808 004607 aa 6 01442 6211 00 eax1 pr6|802 004610 aa 014000 4310 07 fld 6144,dl 004611 aa 6 00044 3701 20 epp4 pr6|36,* 004612 la 4 00102 3521 20 epp2 pr4|66,* rldr_vtoc_header_$build_vtoc_map 004613 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 408 if code ^= 0 then call rldr_report_$error_output (rldr_datap, code, myname, "Unable to build VTOC map for pv ^a", rldr_data_.pvname (pvindex)); 004614 aa 6 00104 2361 00 ldq pr6|68 code 004615 aa 000042 6000 04 tze 34,ic 004657 004616 aa 773337 2360 04 ldq -2337,ic 000155 = 524000000040 004617 aa 6 01517 7561 00 stq pr6|847 004620 aa 000 100 100 404 mlr (ic),(pr),fill(000) 004621 aa 773564 00 0044 desc9a -2188,36 000404 = 125156141142 004622 aa 6 01452 00 0044 desc9a pr6|810,36 004623 aa 6 00150 2361 00 ldq pr6|104 pvindex 004624 aa 000064 4020 07 mpy 52,dl 004625 aa 6 00512 3521 00 epp2 pr6|330 rldr_datap 004626 aa 6 01522 2521 00 spri2 pr6|850 004627 aa 6 00104 3521 00 epp2 pr6|68 code 004630 aa 6 01524 2521 00 spri2 pr6|852 004631 aa 773253 3520 04 epp2 -2389,ic 000104 = 162145154157 004632 aa 6 01526 2521 00 spri2 pr6|854 004633 aa 6 01452 3521 00 epp2 pr6|810 004634 aa 6 01530 2521 00 spri2 pr6|856 004635 aa 6 00512 3735 20 epp7 pr6|330,* rldr_datap 004636 aa 7 00353 3521 06 epp2 pr7|235,ql rldr_data_.pvname 004637 aa 6 01532 2521 00 spri2 pr6|858 004640 aa 773322 3520 04 epp2 -2350,ic 000162 = 464000000000 004641 aa 6 01534 2521 00 spri2 pr6|860 004642 aa 773314 3520 04 epp2 -2356,ic 000156 = 404000000043 004643 aa 6 01536 2521 00 spri2 pr6|862 004644 aa 773317 3520 04 epp2 -2353,ic 000163 = 526000000040 004645 aa 6 01540 2521 00 spri2 pr6|864 004646 aa 773263 3520 04 epp2 -2381,ic 000131 = 524000000042 004647 aa 6 01542 2521 00 spri2 pr6|866 004650 aa 6 01517 3521 00 epp2 pr6|847 004651 aa 6 01544 2521 00 spri2 pr6|868 004652 aa 6 01520 6211 00 eax1 pr6|848 004653 aa 024000 4310 07 fld 10240,dl 004654 aa 6 00044 3701 20 epp4 pr6|36,* 004655 la 4 00112 3521 20 epp2 pr4|74,* rldr_report_$error_output 004656 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 412 call rldr_vtoc_header_$close (rldr_datap, pvindex, code); 004657 aa 6 00512 3521 00 epp2 pr6|330 rldr_datap 004660 aa 6 01444 2521 00 spri2 pr6|804 004661 aa 6 00150 3521 00 epp2 pr6|104 pvindex 004662 aa 6 01446 2521 00 spri2 pr6|806 004663 aa 6 00104 3521 00 epp2 pr6|68 code 004664 aa 6 01450 2521 00 spri2 pr6|808 004665 aa 6 01442 6211 00 eax1 pr6|802 004666 aa 014000 4310 07 fld 6144,dl 004667 aa 6 00044 3701 20 epp4 pr6|36,* 004670 la 4 00100 3521 20 epp2 pr4|64,* rldr_vtoc_header_$close 004671 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 413 if code ^= 0 then call rldr_report_$error_output (rldr_datap, code, myname, "Error closing vtoc header for pv ^a", rldr_data_.pvname (pvindex)); 004672 aa 6 00104 2361 00 ldq pr6|68 code 004673 aa 000042 6000 04 tze 34,ic 004735 004674 aa 773261 2360 04 ldq -2383,ic 000155 = 524000000040 004675 aa 6 01517 7561 00 stq pr6|847 004676 aa 000 100 100 404 mlr (ic),(pr),fill(000) 004677 aa 773475 00 0044 desc9a -2243,36 000373 = 105162162157 004700 aa 6 01452 00 0044 desc9a pr6|810,36 004701 aa 6 00150 2361 00 ldq pr6|104 pvindex 004702 aa 000064 4020 07 mpy 52,dl 004703 aa 6 00512 3521 00 epp2 pr6|330 rldr_datap 004704 aa 6 01522 2521 00 spri2 pr6|850 004705 aa 6 00104 3521 00 epp2 pr6|68 code 004706 aa 6 01524 2521 00 spri2 pr6|852 004707 aa 773175 3520 04 epp2 -2435,ic 000104 = 162145154157 004710 aa 6 01526 2521 00 spri2 pr6|854 004711 aa 6 01452 3521 00 epp2 pr6|810 004712 aa 6 01530 2521 00 spri2 pr6|856 004713 aa 6 00512 3735 20 epp7 pr6|330,* rldr_datap 004714 aa 7 00353 3521 06 epp2 pr7|235,ql rldr_data_.pvname 004715 aa 6 01532 2521 00 spri2 pr6|858 004716 aa 773244 3520 04 epp2 -2396,ic 000162 = 464000000000 004717 aa 6 01534 2521 00 spri2 pr6|860 004720 aa 773236 3520 04 epp2 -2402,ic 000156 = 404000000043 004721 aa 6 01536 2521 00 spri2 pr6|862 004722 aa 773241 3520 04 epp2 -2399,ic 000163 = 526000000040 004723 aa 6 01540 2521 00 spri2 pr6|864 004724 aa 773224 3520 04 epp2 -2412,ic 000150 = 524000000043 004725 aa 6 01542 2521 00 spri2 pr6|866 004726 aa 6 01517 3521 00 epp2 pr6|847 004727 aa 6 01544 2521 00 spri2 pr6|868 004730 aa 6 01520 6211 00 eax1 pr6|848 004731 aa 024000 4310 07 fld 10240,dl 004732 aa 6 00044 3701 20 epp4 pr6|36,* 004733 la 4 00112 3521 20 epp2 pr4|74,* rldr_report_$error_output 004734 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 417 call rldr_volume_map_$close (rldr_datap, pvindex, code); 004735 aa 6 00512 3521 00 epp2 pr6|330 rldr_datap 004736 aa 6 01444 2521 00 spri2 pr6|804 004737 aa 6 00150 3521 00 epp2 pr6|104 pvindex 004740 aa 6 01446 2521 00 spri2 pr6|806 004741 aa 6 00104 3521 00 epp2 pr6|68 code 004742 aa 6 01450 2521 00 spri2 pr6|808 004743 aa 6 01442 6211 00 eax1 pr6|802 004744 aa 014000 4310 07 fld 6144,dl 004745 aa 6 00044 3701 20 epp4 pr6|36,* 004746 la 4 00106 3521 20 epp2 pr4|70,* rldr_volume_map_$close 004747 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 418 if code ^= 0 then call rldr_report_$error_output (rldr_datap, code, myname, "Error closing volume map for pv ^a", rldr_data_.pvname (pvindex)); 004750 aa 6 00104 2361 00 ldq pr6|68 code 004751 aa 000042 6000 04 tze 34,ic 005013 004752 aa 773203 2360 04 ldq -2429,ic 000155 = 524000000040 004753 aa 6 01517 7561 00 stq pr6|847 004754 aa 000 100 100 404 mlr (ic),(pr),fill(000) 004755 aa 773406 00 0044 desc9a -2298,36 000362 = 105162162157 004756 aa 6 01452 00 0044 desc9a pr6|810,36 004757 aa 6 00150 2361 00 ldq pr6|104 pvindex 004760 aa 000064 4020 07 mpy 52,dl 004761 aa 6 00512 3521 00 epp2 pr6|330 rldr_datap 004762 aa 6 01522 2521 00 spri2 pr6|850 004763 aa 6 00104 3521 00 epp2 pr6|68 code 004764 aa 6 01524 2521 00 spri2 pr6|852 004765 aa 773117 3520 04 epp2 -2481,ic 000104 = 162145154157 004766 aa 6 01526 2521 00 spri2 pr6|854 004767 aa 6 01452 3521 00 epp2 pr6|810 004770 aa 6 01530 2521 00 spri2 pr6|856 004771 aa 6 00512 3735 20 epp7 pr6|330,* rldr_datap 004772 aa 7 00353 3521 06 epp2 pr7|235,ql rldr_data_.pvname 004773 aa 6 01532 2521 00 spri2 pr6|858 004774 aa 773166 3520 04 epp2 -2442,ic 000162 = 464000000000 004775 aa 6 01534 2521 00 spri2 pr6|860 004776 aa 773160 3520 04 epp2 -2448,ic 000156 = 404000000043 004777 aa 6 01536 2521 00 spri2 pr6|862 005000 aa 773163 3520 04 epp2 -2445,ic 000163 = 526000000040 005001 aa 6 01540 2521 00 spri2 pr6|864 005002 aa 773127 3520 04 epp2 -2473,ic 000131 = 524000000042 005003 aa 6 01542 2521 00 spri2 pr6|866 005004 aa 6 01517 3521 00 epp2 pr6|847 005005 aa 6 01544 2521 00 spri2 pr6|868 005006 aa 6 01520 6211 00 eax1 pr6|848 005007 aa 024000 4310 07 fld 10240,dl 005010 aa 6 00044 3701 20 epp4 pr6|36,* 005011 la 4 00112 3521 20 epp2 pr4|74,* rldr_report_$error_output 005012 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 422 call rldr_label_$close (rldr_datap, pvindex, code); 005013 aa 6 00512 3521 00 epp2 pr6|330 rldr_datap 005014 aa 6 01444 2521 00 spri2 pr6|804 005015 aa 6 00150 3521 00 epp2 pr6|104 pvindex 005016 aa 6 01446 2521 00 spri2 pr6|806 005017 aa 6 00104 3521 00 epp2 pr6|68 code 005020 aa 6 01450 2521 00 spri2 pr6|808 005021 aa 6 01442 6211 00 eax1 pr6|802 005022 aa 014000 4310 07 fld 6144,dl 005023 aa 6 00044 3701 20 epp4 pr6|36,* 005024 la 4 00062 3521 20 epp2 pr4|50,* rldr_label_$close 005025 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 423 if code ^= 0 then call rldr_report_$error_output (rldr_datap, code, myname, "Error closing volume label for pv ^a", rldr_data_.pvname (pvindex)); 005026 aa 6 00104 2361 00 ldq pr6|68 code 005027 aa 000042 6000 04 tze 34,ic 005071 005030 aa 773125 2360 04 ldq -2475,ic 000155 = 524000000040 005031 aa 6 01517 7561 00 stq pr6|847 005032 aa 000 100 100 404 mlr (ic),(pr),fill(000) 005033 aa 773317 00 0044 desc9a -2353,36 000351 = 105162162157 005034 aa 6 01452 00 0044 desc9a pr6|810,36 005035 aa 6 00150 2361 00 ldq pr6|104 pvindex 005036 aa 000064 4020 07 mpy 52,dl 005037 aa 6 00512 3521 00 epp2 pr6|330 rldr_datap 005040 aa 6 01522 2521 00 spri2 pr6|850 005041 aa 6 00104 3521 00 epp2 pr6|68 code 005042 aa 6 01524 2521 00 spri2 pr6|852 005043 aa 773041 3520 04 epp2 -2527,ic 000104 = 162145154157 005044 aa 6 01526 2521 00 spri2 pr6|854 005045 aa 6 01452 3521 00 epp2 pr6|810 005046 aa 6 01530 2521 00 spri2 pr6|856 005047 aa 6 00512 3735 20 epp7 pr6|330,* rldr_datap 005050 aa 7 00353 3521 06 epp2 pr7|235,ql rldr_data_.pvname 005051 aa 6 01532 2521 00 spri2 pr6|858 005052 aa 773110 3520 04 epp2 -2488,ic 000162 = 464000000000 005053 aa 6 01534 2521 00 spri2 pr6|860 005054 aa 773102 3520 04 epp2 -2494,ic 000156 = 404000000043 005055 aa 6 01536 2521 00 spri2 pr6|862 005056 aa 773105 3520 04 epp2 -2491,ic 000163 = 526000000040 005057 aa 6 01540 2521 00 spri2 pr6|864 005060 aa 773050 3520 04 epp2 -2520,ic 000130 = 524000000044 005061 aa 6 01542 2521 00 spri2 pr6|866 005062 aa 6 01517 3521 00 epp2 pr6|847 005063 aa 6 01544 2521 00 spri2 pr6|868 005064 aa 6 01520 6211 00 eax1 pr6|848 005065 aa 024000 4310 07 fld 10240,dl 005066 aa 6 00044 3701 20 epp4 pr6|36,* 005067 la 4 00112 3521 20 epp2 pr4|74,* rldr_report_$error_output 005070 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 427 call rldr_report_$online_output (rldr_datap, 0, myname, "End reload of volume ^a at ^a", rldr_data_.pvname (pvindex), time_now_ ()); 005071 aa 773064 2360 04 ldq -2508,ic 000155 = 524000000040 005072 aa 6 01517 7561 00 stq pr6|847 005073 aa 6 01440 4501 00 stz pr6|800 005074 aa 000 100 100 404 mlr (ic),(pr),fill(000) 005075 aa 773215 00 0040 desc9a -2419,32 000311 = 105156144040 005076 aa 6 01442 00 0040 desc9a pr6|802,32 005077 aa 6 00150 2361 00 ldq pr6|104 pvindex 005100 aa 000064 4020 07 mpy 52,dl 005101 aa 001205 3520 04 epp2 645,ic 006306 = 000002000000 005102 aa 6 01441 7561 00 stq pr6|801 005103 aa 000306 6700 04 tsp4 198,ic 005411 005104 aa 6 00512 3521 00 epp2 pr6|330 rldr_datap 005105 aa 6 01522 2521 00 spri2 pr6|850 005106 aa 6 01440 3521 00 epp2 pr6|800 005107 aa 6 01524 2521 00 spri2 pr6|852 005110 aa 772774 3520 04 epp2 -2564,ic 000104 = 162145154157 005111 aa 6 01526 2521 00 spri2 pr6|854 005112 aa 6 01442 3521 00 epp2 pr6|802 005113 aa 6 01530 2521 00 spri2 pr6|856 005114 aa 6 01441 7271 00 lxl7 pr6|801 005115 aa 6 00512 3735 20 epp7 pr6|330,* rldr_datap 005116 aa 7 00353 3521 17 epp2 pr7|235,7 rldr_data_.pvname 005117 aa 6 01532 2521 00 spri2 pr6|858 005120 aa 6 01432 3521 00 epp2 pr6|794 005121 aa 6 01534 2521 00 spri2 pr6|860 005122 aa 773040 3520 04 epp2 -2528,ic 000162 = 464000000000 005123 aa 6 01536 2521 00 spri2 pr6|862 005124 aa 773030 3520 04 epp2 -2536,ic 000154 = 404000000005 005125 aa 6 01540 2521 00 spri2 pr6|864 005126 aa 773035 3520 04 epp2 -2531,ic 000163 = 526000000040 005127 aa 6 01542 2521 00 spri2 pr6|866 005130 aa 772770 3520 04 epp2 -2568,ic 000120 = 524000000035 005131 aa 6 01544 2521 00 spri2 pr6|868 005132 aa 6 01517 3521 00 epp2 pr6|847 005133 aa 6 01546 2521 00 spri2 pr6|870 005134 aa 772765 3520 04 epp2 -2571,ic 000121 = 524000000006 005135 aa 6 01550 2521 00 spri2 pr6|872 005136 aa 6 01520 6211 00 eax1 pr6|848 005137 aa 030000 4310 07 fld 12288,dl 005140 aa 6 00044 3701 20 epp4 pr6|36,* 005141 la 4 00114 3521 20 epp2 pr4|76,* rldr_report_$online_output 005142 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 429 controlp = rldr_data_.controlp (pvindex); 005143 aa 6 00150 2361 00 ldq pr6|104 pvindex 005144 aa 000064 4020 07 mpy 52,dl 005145 aa 6 00512 3735 20 epp7 pr6|330,* rldr_datap 005146 aa 7 00430 3735 26 epp7 pr7|280,ql* rldr_data_.controlp 005147 aa 6 01240 6535 00 spri7 pr6|672 controlp STATEMENT 1 ON LINE 430 call rldr_report_$online_output (rldr_datap, 0, myname, "Reloaded on volume ^a ^d records of ^d directories and ^d records of ^d segments and ^d null vtoces", rldr_data_.pvname (pvindex), rldr_control.dir_rec, rldr_control.dir_num, rldr_control.seg_rec, rldr_control.seg_num, rldr_control.num_null_vtoce); 005150 aa 000000 6270 06 eax7 0,ql 005151 aa 773004 2360 04 ldq -2556,ic 000155 = 524000000040 005152 aa 6 01517 7561 00 stq pr6|847 005153 aa 6 01441 4501 00 stz pr6|801 005154 aa 000 100 100 404 mlr (ic),(pr),fill(000) 005155 aa 773556 00 0144 desc9a -2194,100 000732 = 122145154157 005156 aa 6 01520 00 0144 desc9a pr6|848,100 005157 aa 6 00512 3521 00 epp2 pr6|330 rldr_datap 005160 aa 6 01672 2521 00 spri2 pr6|954 005161 aa 6 01441 3521 00 epp2 pr6|801 005162 aa 6 01674 2521 00 spri2 pr6|956 005163 aa 772721 3520 04 epp2 -2607,ic 000104 = 162145154157 005164 aa 6 01676 2521 00 spri2 pr6|958 005165 aa 6 01520 3521 00 epp2 pr6|848 005166 aa 6 01700 2521 00 spri2 pr6|960 005167 aa 6 00512 3715 20 epp5 pr6|330,* rldr_datap 005170 aa 5 00353 3521 17 epp2 pr5|235,7 rldr_data_.pvname 005171 aa 6 01702 2521 00 spri2 pr6|962 005172 aa 7 00011 3521 00 epp2 pr7|9 rldr_control.dir_rec 005173 aa 6 01704 2521 00 spri2 pr6|964 005174 aa 7 00010 3521 00 epp2 pr7|8 rldr_control.dir_num 005175 aa 6 01706 2521 00 spri2 pr6|966 005176 aa 7 00013 3521 00 epp2 pr7|11 rldr_control.seg_rec 005177 aa 6 01710 2521 00 spri2 pr6|968 005200 aa 7 00012 3521 00 epp2 pr7|10 rldr_control.seg_num 005201 aa 6 01712 2521 00 spri2 pr6|970 005202 aa 7 00020 3521 00 epp2 pr7|16 rldr_control.num_null_vtoce 005203 aa 6 01714 2521 00 spri2 pr6|972 005204 aa 772756 3520 04 epp2 -2578,ic 000162 = 464000000000 005205 aa 6 01716 2521 00 spri2 pr6|974 005206 aa 772746 3520 04 epp2 -2586,ic 000154 = 404000000005 005207 aa 6 01720 2521 00 spri2 pr6|976 005210 aa 772753 3520 04 epp2 -2581,ic 000163 = 526000000040 005211 aa 6 01722 2521 00 spri2 pr6|978 005212 aa 772723 3520 04 epp2 -2605,ic 000135 = 524000000144 005213 aa 6 01724 2521 00 spri2 pr6|980 005214 aa 6 01517 3521 00 epp2 pr6|847 005215 aa 6 01726 2521 00 spri2 pr6|982 005216 aa 772746 3520 04 epp2 -2586,ic 000164 = 404000000021 005217 aa 6 01730 2521 00 spri2 pr6|984 005220 aa 6 01732 2521 00 spri2 pr6|986 005221 aa 6 01734 2521 00 spri2 pr6|988 005222 aa 6 01736 2521 00 spri2 pr6|990 005223 aa 6 01740 2521 00 spri2 pr6|992 005224 aa 6 01670 6211 00 eax1 pr6|952 005225 aa 050000 4310 07 fld 20480,dl 005226 aa 6 00044 3701 20 epp4 pr6|36,* 005227 la 4 00114 3521 20 epp2 pr4|76,* rldr_report_$online_output 005230 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 435 call hcs_$delentry_seg (rldr_data_.controlp (pvindex), ignore); 005231 aa 6 00150 2361 00 ldq pr6|104 pvindex 005232 aa 000064 4020 07 mpy 52,dl 005233 aa 6 00512 3735 20 epp7 pr6|330,* rldr_datap 005234 aa 7 00430 3521 06 epp2 pr7|280,ql rldr_data_.controlp 005235 aa 6 01444 2521 00 spri2 pr6|804 005236 aa 6 00105 3521 00 epp2 pr6|69 ignore 005237 aa 6 01446 2521 00 spri2 pr6|806 005240 aa 6 01442 6211 00 eax1 pr6|802 005241 aa 010000 4310 07 fld 4096,dl 005242 aa 6 00044 3701 20 epp4 pr6|36,* 005243 la 4 00036 3521 20 epp2 pr4|30,* hcs_$delentry_seg 005244 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 436 if hcs_$level_get () = 1 & get_group_id_ () = "Initializer.SysDaemon.z" & rldr_data_.default_sys_dir ^= rldr_data_.sys_dir then do; 005245 aa 6 00512 3735 20 epp7 pr6|330,* rldr_datap 005246 aa 040 100 106 500 cmpc (pr),(pr),fill(040) 005247 aa 7 00077 00 0250 desc9a pr7|63,168 rldr_data_.default_sys_dir 005250 aa 7 00025 00 0250 desc9a pr7|21,168 rldr_data_.sys_dir 005251 aa 0 00515 7001 00 tsx0 pr0|333 r_ne_as 005252 aa 6 01517 7551 00 sta pr6|847 005253 aa 6 01442 3521 00 epp2 pr6|802 005254 aa 6 01436 2521 00 spri2 pr6|798 005255 aa 6 01434 6211 00 eax1 pr6|796 005256 aa 004000 4310 07 fld 2048,dl 005257 aa 6 00044 3701 20 epp4 pr6|36,* 005260 la 4 00032 3521 20 epp2 pr4|26,* get_group_id_ 005261 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out 005262 aa 040 004 106 500 cmpc (pr),(ic),fill(040) 005263 aa 6 01442 00 0040 desc9a pr6|802,32 005264 aa 772737 00 0027 desc9a -2593,23 000221 = 111156151164 005265 aa 0 00512 7001 00 tsx0 pr0|330 r_e_as 005266 aa 6 01441 7551 00 sta pr6|801 005267 aa 6 01440 3521 00 epp2 pr6|800 005270 aa 6 01436 2521 00 spri2 pr6|798 005271 aa 6 01434 6211 00 eax1 pr6|796 005272 aa 004000 4310 07 fld 2048,dl 005273 aa 6 00044 3701 20 epp4 pr6|36,* 005274 la 4 00030 3521 20 epp2 pr4|24,* hcs_$level_get 005275 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out 005276 aa 6 01440 2361 00 ldq pr6|800 005277 aa 000001 1160 07 cmpq 1,dl 005300 aa 0 00512 7001 00 tsx0 pr0|330 r_e_as 005301 aa 6 01441 3751 00 ana pr6|801 005302 aa 6 01517 3151 00 cana pr6|847 005303 aa 000023 6000 04 tze 19,ic 005326 STATEMENT 1 ON LINE 439 call hcs_$delentry_seg (rldr_data_.bvlp (pvindex), ignore); 005304 aa 6 00150 2361 00 ldq pr6|104 pvindex 005305 aa 000064 4020 07 mpy 52,dl 005306 aa 6 00512 3735 20 epp7 pr6|330,* rldr_datap 005307 aa 7 00424 3521 06 epp2 pr7|276,ql rldr_data_.bvlp 005310 aa 6 01444 2521 00 spri2 pr6|804 005311 aa 6 00105 3521 00 epp2 pr6|69 ignore 005312 aa 6 01446 2521 00 spri2 pr6|806 005313 aa 6 01442 6211 00 eax1 pr6|802 005314 aa 010000 4310 07 fld 4096,dl 005315 aa 6 00044 3701 20 epp4 pr6|36,* 005316 la 4 00036 3521 20 epp2 pr4|30,* hcs_$delentry_seg 005317 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 440 rldr_data_.bvlp (pvindex) = null (); 005320 aa 6 00150 2361 00 ldq pr6|104 pvindex 005321 aa 000064 4020 07 mpy 52,dl 005322 aa 000000 6270 06 eax7 0,ql 005323 aa 772653 2370 04 ldaq -2645,ic 000176 = 077777000043 000001000000 005324 aa 6 00512 3735 20 epp7 pr6|330,* rldr_datap 005325 aa 7 00424 7571 17 staq pr7|276,7 rldr_data_.bvlp STATEMENT 1 ON LINE 441 end; STATEMENT 1 ON LINE 442 end; 005326 aa 6 00150 0541 00 aos pr6|104 pvindex 005327 aa 777247 7100 04 tra -345,ic 004576 STATEMENT 1 ON LINE 446 end_reload_volume: entry; 005330 aa 000010 7100 04 tra 8,ic 005340 ENTRY TO end_reload_volume STATEMENT 1 ON LINE 446 end_reload_volume: entry; 005331 da 000460200000 005332 aa 002220 6270 00 eax7 1168 005333 aa 7 00034 3521 20 epp2 pr7|28,* 005334 aa 2 01045 2721 00 tsp2 pr2|549 ext_entry 005335 aa 000000000000 005336 aa 000000000000 005337 aa 773643 7000 04 tsx0 -2141,ic 001202 STATEMENT 1 ON LINE 447 finish: /* clean up */ call rldr_finish_ (rldr_datap, areap, ignore); 005340 aa 6 00512 3521 00 epp2 pr6|330 rldr_datap 005341 aa 6 01444 2521 00 spri2 pr6|804 005342 aa 6 00100 3521 00 epp2 pr6|64 areap 005343 aa 6 01446 2521 00 spri2 pr6|806 005344 aa 6 00105 3521 00 epp2 pr6|69 ignore 005345 aa 6 01450 2521 00 spri2 pr6|808 005346 aa 6 01442 6211 00 eax1 pr6|802 005347 aa 014000 4310 07 fld 6144,dl 005350 aa 6 00044 3701 20 epp4 pr6|36,* 005351 la 4 00110 3521 20 epp2 pr4|72,* rldr_finish_ 005352 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 450 return; 005353 aa 0 00631 7101 00 tra pr0|409 return_mac STATEMENT 1 ON LINE 452 err: do pvindex = 1 to rldr_data_.npvs; 005354 aa 6 00512 3735 20 epp7 pr6|330,* rldr_datap 005355 aa 7 00404 2361 00 ldq pr7|260 rldr_data_.npvs 005356 aa 6 01303 7561 00 stq pr6|707 005357 aa 000001 2360 07 ldq 1,dl 005360 aa 6 00150 7561 00 stq pr6|104 pvindex 005361 aa 000000 0110 03 nop 0,du 005362 aa 6 00150 2361 00 ldq pr6|104 pvindex 005363 aa 6 01303 1161 00 cmpq pr6|707 005364 aa 777754 6054 04 tpnz -20,ic 005340 STATEMENT 1 ON LINE 454 if rldr_data_.controlp (pvindex) ^= null then call hcs_$delentry_seg (rldr_data_.controlp (pvindex), ignore); 005365 aa 000064 4020 07 mpy 52,dl 005366 aa 6 00512 3735 20 epp7 pr6|330,* rldr_datap 005367 aa 6 01517 7561 00 stq pr6|847 005370 aa 7 00430 2371 06 ldaq pr7|280,ql rldr_data_.controlp 005371 aa 772605 6770 04 eraq -2683,ic 000176 = 077777000043 000001000000 005372 aa 0 00460 3771 00 anaq pr0|304 = 077777000077 777777077077 005373 aa 000013 6000 04 tze 11,ic 005406 005374 aa 6 01517 7271 00 lxl7 pr6|847 005375 aa 7 00430 3521 17 epp2 pr7|280,7 rldr_data_.controlp 005376 aa 6 01444 2521 00 spri2 pr6|804 005377 aa 6 00105 3521 00 epp2 pr6|69 ignore 005400 aa 6 01446 2521 00 spri2 pr6|806 005401 aa 6 01442 6211 00 eax1 pr6|802 005402 aa 010000 4310 07 fld 4096,dl 005403 aa 6 00044 3701 20 epp4 pr6|36,* 005404 la 4 00036 3521 20 epp2 pr4|30,* hcs_$delentry_seg 005405 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 455 end; 005406 aa 6 00150 0541 00 aos pr6|104 pvindex 005407 aa 777753 7100 04 tra -21,ic 005362 STATEMENT 1 ON LINE 456 goto finish; 005410 aa 777730 7100 04 tra -40,ic 005340 STATEMENT 1 ON LINE 941 end reloader; BEGIN PROCEDURE time_now_ ENTRY TO time_now_ STATEMENT 1 ON LINE 463 time_now_: proc returns (char (6)); 005411 aa 6 01304 6501 00 spri4 pr6|708 005412 aa 6 01306 2521 00 spri2 pr6|710 STATEMENT 1 ON LINE 467 call date_time_ (clock (), time_string); 005413 aa 0 01435 7001 00 tsx0 pr0|797 clock_mac 005414 aa 6 02020 7571 00 staq pr6|1040 005415 aa 6 02020 3521 00 epp2 pr6|1040 005416 aa 6 02024 2521 00 spri2 pr6|1044 005417 aa 6 00117 3521 00 epp2 pr6|79 time_string 005420 aa 6 02026 2521 00 spri2 pr6|1046 005421 aa 772476 3520 04 epp2 -2754,ic 000117 = 410000000107 005422 aa 6 02030 2521 00 spri2 pr6|1048 005423 aa 772473 3520 04 epp2 -2757,ic 000116 = 526000000030 005424 aa 6 02032 2521 00 spri2 pr6|1050 005425 aa 6 02022 6211 00 eax1 pr6|1042 005426 aa 010000 4310 07 fld 4096,dl 005427 aa 6 00044 3701 20 epp4 pr6|36,* 005430 la 4 00066 3521 20 epp2 pr4|54,* date_time_ 005431 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 468 return (substr (time_string, 11, 6)); 005432 aa 6 01306 3735 20 epp7 pr6|710,* 005433 aa 7 00002 3715 20 epp5 pr7|2,* 005434 aa 040 100 100 500 mlr (pr),(pr),fill(040) 005435 aa 6 00121 40 0006 desc9a pr6|81(2),6 time_string 005436 aa 5 00000 00 0006 desc9a pr5|0,6 005437 aa 6 01304 6101 00 rtcd pr6|708 STATEMENT 1 ON LINE 469 end time_now_; END PROCEDURE time_now_ BEGIN PROCEDURE wdir_ ENTRY TO wdir_ STATEMENT 1 ON LINE 474 wdir_: proc returns (char (168) aligned); 005440 aa 6 01312 6501 00 spri4 pr6|714 005441 aa 6 01314 2521 00 spri2 pr6|716 STATEMENT 1 ON LINE 479 call hcs_$fs_search_get_wdir (addr (wdir), ignore); 005442 aa 6 01320 3735 00 epp7 pr6|720 wdir 005443 aa 6 02034 6535 00 spri7 pr6|1052 005444 aa 6 02034 3521 00 epp2 pr6|1052 005445 aa 6 02040 2521 00 spri2 pr6|1056 005446 aa 6 00105 3521 00 epp2 pr6|69 ignore 005447 aa 6 02042 2521 00 spri2 pr6|1058 005450 aa 6 02036 6211 00 eax1 pr6|1054 005451 aa 010000 4310 07 fld 4096,dl 005452 aa 6 00044 3701 20 epp4 pr6|36,* 005453 la 4 00042 3521 20 epp2 pr4|34,* hcs_$fs_search_get_wdir 005454 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 480 return (wdir); 005455 aa 6 01314 3735 20 epp7 pr6|716,* 005456 aa 7 00002 3715 20 epp5 pr7|2,* 005457 aa 000 100 100 500 mlr (pr),(pr),fill(000) 005460 aa 6 01320 00 0250 desc9a pr6|720,168 wdir 005461 aa 5 00000 00 0250 desc9a pr5|0,168 005462 aa 6 01312 6101 00 rtcd pr6|714 STATEMENT 1 ON LINE 481 end wdir_; END PROCEDURE wdir_ BEGIN PROCEDURE update_control_seg ENTRY TO update_control_seg STATEMENT 1 ON LINE 485 update_control_seg: proc; 005463 aa 6 01372 6501 00 spri4 pr6|762 STATEMENT 1 ON LINE 491 vtocep = addr (local_vtoce); 005464 aa 6 00164 3735 00 epp7 pr6|116 local_vtoce 005465 aa 6 01252 6535 00 spri7 pr6|682 vtocep STATEMENT 1 ON LINE 492 labelp, old_labelp = rldr_data_.labelp (pvindex); 005466 aa 6 00150 2361 00 ldq pr6|104 pvindex 005467 aa 000064 4020 07 mpy 52,dl 005470 aa 6 00512 3715 20 epp5 pr6|330,* rldr_datap 005471 aa 5 00422 3715 26 epp5 pr5|274,ql* rldr_data_.labelp 005472 aa 6 01244 6515 00 spri5 pr6|676 labelp 005473 aa 6 01246 6515 00 spri5 pr6|678 old_labelp STATEMENT 1 ON LINE 493 if label.volmap_version = 1 | label.volmap_version = 2 then time_unmounted = label.time_unmounted; 005474 aa 6 02046 7561 00 stq pr6|1062 005475 aa 6 01244 3535 20 epp3 pr6|676,* labelp 005476 aa 3 00604 2361 00 ldq pr3|388 label.volmap_version 005477 aa 000001 1160 07 cmpq 1,dl 005500 aa 000003 6000 04 tze 3,ic 005503 005501 aa 000002 1160 07 cmpq 2,dl 005502 aa 000004 6010 04 tnz 4,ic 005506 005503 aa 3 00612 2371 00 ldaq pr3|394 label.time_unmounted 005504 aa 6 00154 7571 00 staq pr6|108 time_unmounted 005505 aa 000003 7100 04 tra 3,ic 005510 STATEMENT 1 ON LINE 495 else time_unmounted = old_label.time_unmounted; 005506 aa 5 00604 2371 00 ldaq pr5|388 old_label.time_unmounted 005507 aa 6 00154 7571 00 staq pr6|108 time_unmounted STATEMENT 1 ON LINE 496 controlp = rldr_data_.controlp (pvindex); 005510 aa 6 02046 7271 00 lxl7 pr6|1062 005511 aa 6 00512 3515 20 epp1 pr6|330,* rldr_datap 005512 aa 1 00430 3515 37 epp1 pr1|280,7* rldr_data_.controlp 005513 aa 6 01240 2515 00 spri1 pr6|672 controlp STATEMENT 1 ON LINE 497 vtoc_headerp = rldr_data_.vtoc_headerp (pvindex); 005514 aa 6 00512 3735 20 epp7 pr6|330,* rldr_datap 005515 aa 7 00420 3735 37 epp7 pr7|272,7* rldr_data_.vtoc_headerp 005516 aa 6 01250 6535 00 spri7 pr6|680 vtoc_headerp STATEMENT 1 ON LINE 498 do vtocx = 0 to vtoc_header.n_vtoce - 1; 005517 aa 7 00001 2361 00 ldq pr7|1 vtoc_header.n_vtoce 005520 aa 000001 1760 07 sbq 1,dl 005521 aa 6 01400 7561 00 stq pr6|768 005522 aa 6 00151 4501 00 stz pr6|105 vtocx 005523 aa 000000 0110 03 nop 0,du 005524 aa 6 00151 2361 00 ldq pr6|105 vtocx 005525 aa 6 01400 1161 00 cmpq pr6|768 005526 aa 000114 6054 04 tpnz 76,ic 005642 STATEMENT 1 ON LINE 499 call rldr_output_$read_vtoce (rldr_datap, pvindex, vtocep, vtocx, 1, code); 005527 aa 000001 2360 07 ldq 1,dl 005530 aa 6 02046 7561 00 stq pr6|1062 005531 aa 6 00512 3521 00 epp2 pr6|330 rldr_datap 005532 aa 6 02052 2521 00 spri2 pr6|1066 005533 aa 6 00150 3521 00 epp2 pr6|104 pvindex 005534 aa 6 02054 2521 00 spri2 pr6|1068 005535 aa 6 01252 3521 00 epp2 pr6|682 vtocep 005536 aa 6 02056 2521 00 spri2 pr6|1070 005537 aa 6 00151 3521 00 epp2 pr6|105 vtocx 005540 aa 6 02060 2521 00 spri2 pr6|1072 005541 aa 6 02046 3521 00 epp2 pr6|1062 005542 aa 6 02062 2521 00 spri2 pr6|1074 005543 aa 6 00104 3521 00 epp2 pr6|68 code 005544 aa 6 02064 2521 00 spri2 pr6|1076 005545 aa 6 02050 6211 00 eax1 pr6|1064 005546 aa 030000 4310 07 fld 12288,dl 005547 aa 6 00044 3701 20 epp4 pr6|36,* 005550 la 4 00116 3521 20 epp2 pr4|78,* rldr_output_$read_vtoce 005551 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 500 if code ^= 0 then do; 005552 aa 6 00104 2361 00 ldq pr6|68 code 005553 aa 000054 6000 04 tze 44,ic 005627 STATEMENT 1 ON LINE 501 call rldr_report_$online_output (rldr_datap, 0, code, myname, "Unable to read VTOCE ^o on pv ^a", vtocx, rldr_data_.pvname (pvindex)); 005554 aa 772401 2360 04 ldq -2815,ic 000155 = 524000000040 005555 aa 6 02046 7561 00 stq pr6|1062 005556 aa 6 02047 4501 00 stz pr6|1063 005557 aa 000 100 100 404 mlr (ic),(pr),fill(000) 005560 aa 772522 00 0040 desc9a -2734,32 000301 = 125156141142 005561 aa 6 02050 00 0040 desc9a pr6|1064,32 005562 aa 6 00150 2361 00 ldq pr6|104 pvindex 005563 aa 000064 4020 07 mpy 52,dl 005564 aa 6 00512 3521 00 epp2 pr6|330 rldr_datap 005565 aa 6 02070 2521 00 spri2 pr6|1080 005566 aa 6 02047 3521 00 epp2 pr6|1063 005567 aa 6 02072 2521 00 spri2 pr6|1082 005570 aa 6 00104 3521 00 epp2 pr6|68 code 005571 aa 6 02074 2521 00 spri2 pr6|1084 005572 aa 772312 3520 04 epp2 -2870,ic 000104 = 162145154157 005573 aa 6 02076 2521 00 spri2 pr6|1086 005574 aa 6 02050 3521 00 epp2 pr6|1064 005575 aa 6 02100 2521 00 spri2 pr6|1088 005576 aa 6 00151 3521 00 epp2 pr6|105 vtocx 005577 aa 6 02102 2521 00 spri2 pr6|1090 005600 aa 6 00512 3735 20 epp7 pr6|330,* rldr_datap 005601 aa 7 00353 3521 06 epp2 pr7|235,ql rldr_data_.pvname 005602 aa 6 02104 2521 00 spri2 pr6|1092 005603 aa 772357 3520 04 epp2 -2833,ic 000162 = 464000000000 005604 aa 6 02106 2521 00 spri2 pr6|1094 005605 aa 772347 3520 04 epp2 -2841,ic 000154 = 404000000005 005606 aa 6 02110 2521 00 spri2 pr6|1096 005607 aa 772347 3520 04 epp2 -2841,ic 000156 = 404000000043 005610 aa 6 02112 2521 00 spri2 pr6|1098 005611 aa 772352 3520 04 epp2 -2838,ic 000163 = 526000000040 005612 aa 6 02114 2521 00 spri2 pr6|1100 005613 aa 772342 3520 04 epp2 -2846,ic 000155 = 524000000040 005614 aa 6 02116 2521 00 spri2 pr6|1102 005615 aa 772347 3520 04 epp2 -2841,ic 000164 = 404000000021 005616 aa 6 02120 2521 00 spri2 pr6|1104 005617 aa 6 02046 3521 00 epp2 pr6|1062 005620 aa 6 02122 2521 00 spri2 pr6|1106 005621 aa 6 02066 6211 00 eax1 pr6|1078 005622 aa 034000 4310 07 fld 14336,dl 005623 aa 6 00044 3701 20 epp4 pr6|36,* 005624 la 4 00114 3521 20 epp2 pr4|76,* rldr_report_$online_output 005625 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 503 goto err; 005626 aa 777526 7100 04 tra -170,ic 005354 STATEMENT 1 ON LINE 504 end; STATEMENT 1 ON LINE 505 rldr_control (vtocx).uid = vtoce.uid; 005627 aa 6 00151 2361 00 ldq pr6|105 vtocx 005630 aa 000006 4020 07 mpy 6,dl 005631 aa 6 01252 3735 20 epp7 pr6|682,* vtocep 005632 aa 7 00001 2351 00 lda pr7|1 vtoce.uid 005633 aa 6 01240 3715 20 epp5 pr6|672,* controlp 005634 aa 5 14024 7551 06 sta pr5|6164,ql rldr_control.uid STATEMENT 1 ON LINE 506 rldr_control (vtocx).time_dumped = time_unmounted; 005635 aa 000000 6270 06 eax7 0,ql 005636 aa 6 00154 2371 00 ldaq pr6|108 time_unmounted 005637 aa 5 14026 7571 17 staq pr5|6166,7 rldr_control.time_dumped STATEMENT 1 ON LINE 507 end; 005640 aa 6 00151 0541 00 aos pr6|105 vtocx 005641 aa 777663 7100 04 tra -77,ic 005524 STATEMENT 1 ON LINE 509 end update_control_seg; 005642 aa 6 01372 6101 00 rtcd pr6|762 END PROCEDURE update_control_seg BEGIN PROCEDURE find_volog ENTRY TO find_volog STATEMENT 1 ON LINE 516 find_volog: proc (i); 005643 da 000466200000 005644 aa 000260 6270 00 eax7 176 005645 aa 7 00034 3521 20 epp2 pr7|28,* 005646 aa 2 01047 2721 00 tsp2 pr2|551 int_entry 005647 aa 000002000000 005650 aa 000000000000 STATEMENT 1 ON LINE 522 call ioa_$rsnnl ("^a.^a", ename, enl, rldr_data_.pvname (i), "volog"); 005651 aa 772304 2360 04 ldq -2876,ic 000155 = 524000000040 005652 aa 6 00106 7561 00 stq pr6|70 005653 aa 772315 2370 04 ldaq -2867,ic 000170 = 136141056136 141000000000 005654 aa 6 00110 7571 00 staq pr6|72 005655 aa 6 00032 3735 20 epp7 pr6|26,* 005656 aa 7 00002 2361 20 ldq pr7|2,* i 005657 aa 000064 4020 07 mpy 52,dl 005660 aa 000000 6270 06 eax7 0,ql 005661 aa 772305 2370 04 ldaq -2875,ic 000166 = 166157154157 147000000000 005662 aa 6 00112 7571 00 staq pr6|74 005663 aa 6 00110 3521 00 epp2 pr6|72 005664 aa 6 00116 2521 00 spri2 pr6|78 005665 aa 6 00040 3715 20 epp5 pr6|32,* 005666 aa 5 00125 3521 00 epp2 pr5|85 ename 005667 aa 6 00120 2521 00 spri2 pr6|80 005670 aa 5 00146 3521 00 epp2 pr5|102 enl 005671 aa 6 00122 2521 00 spri2 pr6|82 005672 aa 5 00512 3535 20 epp3 pr5|330,* rldr_datap 005673 aa 3 00353 3521 17 epp2 pr3|235,7 rldr_data_.pvname 005674 aa 6 00124 2521 00 spri2 pr6|84 005675 aa 6 00112 3521 00 epp2 pr6|74 005676 aa 6 00126 2521 00 spri2 pr6|86 005677 aa 772216 3520 04 epp2 -2930,ic 000115 = 524000000005 005700 aa 6 00130 2521 00 spri2 pr6|88 005701 aa 6 00140 2521 00 spri2 pr6|96 005702 aa 772261 3520 04 epp2 -2895,ic 000163 = 526000000040 005703 aa 6 00132 2521 00 spri2 pr6|90 005704 aa 772260 3520 04 epp2 -2896,ic 000164 = 404000000021 005705 aa 6 00134 2521 00 spri2 pr6|92 005706 aa 6 00106 3521 00 epp2 pr6|70 005707 aa 6 00136 2521 00 spri2 pr6|94 005710 aa 6 00114 6211 00 eax1 pr6|76 005711 aa 024000 4310 07 fld 10240,dl 005712 la 4 00026 3521 20 epp2 pr4|22,* ioa_$rsnnl 005713 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 523 if enl > 32 then do; 005714 aa 6 00040 3735 20 epp7 pr6|32,* 005715 aa 7 00146 2361 00 ldq pr7|102 enl 005716 aa 000040 1160 07 cmpq 32,dl 005717 aa 000005 6044 04 tmoz 5,ic 005724 STATEMENT 1 ON LINE 524 code = error_table_$entlong; 005720 aa 6 00044 3701 20 epp4 pr6|36,* 005721 la 4 00010 2361 20 ldq pr4|8,* error_table_$entlong 005722 aa 7 00104 7561 00 stq pr7|68 code STATEMENT 1 ON LINE 525 goto vol_err; 005723 aa 000055 7100 04 tra 45,ic 006000 STATEMENT 1 ON LINE 526 end; STATEMENT 1 ON LINE 528 call hcs_$initiate ((rldr_data_.sys_dir), ename, "", 0, 1, bvlp, code); 005724 aa 7 00512 3715 20 epp5 pr7|330,* rldr_datap 005725 aa 000 100 100 500 mlr (pr),(pr),fill(000) 005726 aa 5 00025 00 0250 desc9a pr5|21,168 rldr_data_.sys_dir 005727 aa 6 00142 00 0250 desc9a pr6|98,168 005730 aa 6 00107 4501 00 stz pr6|71 005731 aa 000001 2360 07 ldq 1,dl 005732 aa 6 00214 7561 00 stq pr6|140 005733 aa 6 00142 3521 00 epp2 pr6|98 005734 aa 6 00220 2521 00 spri2 pr6|144 005735 aa 7 00125 3521 00 epp2 pr7|85 ename 005736 aa 6 00222 2521 00 spri2 pr6|146 005737 aa 6 00106 3521 00 epp2 pr6|70 005740 aa 6 00224 2521 00 spri2 pr6|148 005741 aa 6 00107 3521 00 epp2 pr6|71 005742 aa 6 00226 2521 00 spri2 pr6|150 005743 aa 6 00214 3521 00 epp2 pr6|140 005744 aa 6 00230 2521 00 spri2 pr6|152 005745 aa 7 01236 3521 00 epp2 pr7|670 bvlp 005746 aa 6 00232 2521 00 spri2 pr6|154 005747 aa 7 00104 3521 00 epp2 pr7|68 code 005750 aa 6 00234 2521 00 spri2 pr6|156 005751 aa 772207 3520 04 epp2 -2937,ic 000160 = 524000000250 005752 aa 6 00236 2521 00 spri2 pr6|158 005753 aa 772210 3520 04 epp2 -2936,ic 000163 = 526000000040 005754 aa 6 00240 2521 00 spri2 pr6|160 005755 aa 772162 3520 04 epp2 -2958,ic 000137 = 524000000000 005756 aa 6 00242 2521 00 spri2 pr6|162 005757 aa 772205 3520 04 epp2 -2939,ic 000164 = 404000000021 005760 aa 6 00244 2521 00 spri2 pr6|164 005761 aa 6 00246 2521 00 spri2 pr6|166 005762 aa 772200 3520 04 epp2 -2944,ic 000162 = 464000000000 005763 aa 6 00250 2521 00 spri2 pr6|168 005764 aa 772172 3520 04 epp2 -2950,ic 000156 = 404000000043 005765 aa 6 00252 2521 00 spri2 pr6|170 005766 aa 6 00216 6211 00 eax1 pr6|142 005767 aa 034000 4310 07 fld 14336,dl 005770 aa 6 00044 3701 20 epp4 pr6|36,* 005771 la 4 00022 3521 20 epp2 pr4|18,* hcs_$initiate 005772 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 529 if bvlp = null then do; 005773 aa 6 00040 3735 20 epp7 pr6|32,* 005774 aa 7 01236 2371 00 ldaq pr7|670 bvlp 005775 aa 772201 6770 04 eraq -2943,ic 000176 = 077777000043 000001000000 005776 aa 0 00460 3771 00 anaq pr0|304 = 077777000077 777777077077 005777 aa 000057 6010 04 tnz 47,ic 006056 STATEMENT 1 ON LINE 530 vol_err: call rldr_report_$online_output (rldr_datap, code, myname, "Unable to locate valid volume log ^a^[>^]^a", rldr_data_.sys_dir, rldr_data_.sys_dir ^= ">", ename); 006000 aa 000 100 100 404 mlr (ic),(pr),fill(000) 006001 aa 772474 00 0054 desc9a -2756,44 000474 = 125156141142 006002 aa 6 00114 00 0054 desc9a pr6|76,44 006003 aa 6 00040 3735 20 epp7 pr6|32,* 006004 aa 7 00512 3715 20 epp5 pr7|330,* rldr_datap 006005 aa 040 004 106 500 cmpc (pr),(ic),fill(040) 006006 aa 5 00025 00 0250 desc9a pr5|21,168 rldr_data_.sys_dir 006007 aa 000541 00 0001 desc9a 353,1 006546 = 076000000000 006010 aa 0 00515 7001 00 tsx0 pr0|333 r_ne_as 006011 aa 6 00214 7551 00 sta pr6|140 006012 aa 7 00512 3521 00 epp2 pr7|330 rldr_datap 006013 aa 6 00220 2521 00 spri2 pr6|144 006014 aa 7 00104 3521 00 epp2 pr7|68 code 006015 aa 6 00222 2521 00 spri2 pr6|146 006016 aa 772066 3520 04 epp2 -3018,ic 000104 = 162145154157 006017 aa 6 00224 2521 00 spri2 pr6|148 006020 aa 6 00114 3521 00 epp2 pr6|76 006021 aa 6 00226 2521 00 spri2 pr6|150 006022 aa 5 00025 3521 00 epp2 pr5|21 rldr_data_.sys_dir 006023 aa 6 00230 2521 00 spri2 pr6|152 006024 aa 6 00214 3521 00 epp2 pr6|140 006025 aa 6 00232 2521 00 spri2 pr6|154 006026 aa 7 00125 3521 00 epp2 pr7|85 ename 006027 aa 6 00234 2521 00 spri2 pr6|156 006030 aa 772132 3520 04 epp2 -2982,ic 000162 = 464000000000 006031 aa 6 00236 2521 00 spri2 pr6|158 006032 aa 772124 3520 04 epp2 -2988,ic 000156 = 404000000043 006033 aa 6 00240 2521 00 spri2 pr6|160 006034 aa 772127 3520 04 epp2 -2985,ic 000163 = 526000000040 006035 aa 6 00242 2521 00 spri2 pr6|162 006036 aa 6 00252 2521 00 spri2 pr6|170 006037 aa 772055 3520 04 epp2 -3027,ic 000114 = 524000000053 006040 aa 6 00244 2521 00 spri2 pr6|164 006041 aa 772117 3520 04 epp2 -2993,ic 000160 = 524000000250 006042 aa 6 00246 2521 00 spri2 pr6|166 006043 aa 772060 3520 04 epp2 -3024,ic 000123 = 514000000001 006044 aa 6 00250 2521 00 spri2 pr6|168 006045 aa 6 00216 6211 00 eax1 pr6|142 006046 aa 034000 4310 07 fld 14336,dl 006047 aa 6 00044 3701 20 epp4 pr6|36,* 006050 la 4 00114 3521 20 epp2 pr4|76,* rldr_report_$online_output 006051 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 532 volog_missing = "1"b; 006052 aa 400000 2350 03 lda 131072,du 006053 aa 6 00040 3735 20 epp7 pr6|32,* 006054 aa 7 00163 7551 00 sta pr7|115 volog_missing STATEMENT 1 ON LINE 533 return; 006055 aa 0 00631 7101 00 tra pr0|409 return_mac STATEMENT 1 ON LINE 534 end; STATEMENT 1 ON LINE 536 on seg_fault_error goto vol_err; 006056 aa 000017 7260 07 lxl6 15,dl 006057 aa 772136 3520 04 epp2 -2978,ic 000215 = 163145147137 006060 aa 0 00717 7001 00 tsx0 pr0|463 enable_op 006061 aa 000004 7100 04 tra 4,ic 006065 006062 aa 000100000000 006063 aa 000012 7100 04 tra 10,ic 006075 BEGIN CONDITION seg_fault_error.2 ENTRY TO seg_fault_error.2 STATEMENT 1 ON LINE 536 on seg_fault_error goto vol_err; 006064 da 000476200000 006065 aa 000100 6270 00 eax7 64 006066 aa 7 00034 3521 20 epp2 pr7|28,* 006067 aa 2 01047 2721 00 tsp2 pr2|551 int_entry 006070 aa 000000000000 006071 aa 000000000000 006072 aa 777706 3520 04 epp2 -58,ic 006000 = 000100100404 006073 aa 000001 7270 07 lxl7 1,dl 006074 aa 0 00657 7101 00 tra pr0|431 tra_ext_1 END CONDITION seg_fault_error.2 STATEMENT 1 ON LINE 537 if (backup_volume_log.pvname = rldr_data_.pvname (i)) & ((backup_volume_log.version = backup_volume_log_version_1) | (backup_volume_log.version = backup_volume_log_version_2) | (backup_volume_log.version = backup_volume_log_version_3)) then if ^version_1_found then version_1_found = /* if its been set once, leave it alone */ (backup_volume_log.version = backup_volume_log_version_1); 006075 aa 6 00032 3735 20 epp7 pr6|26,* 006076 aa 7 00002 2361 20 ldq pr7|2,* i 006077 aa 000064 4020 07 mpy 52,dl 006100 aa 6 00214 7561 00 stq pr6|140 006101 aa 6 00040 3715 20 epp5 pr6|32,* 006102 aa 5 01236 3535 20 epp3 pr5|670,* bvlp 006103 aa 5 00512 3515 20 epp1 pr5|330,* rldr_datap 006104 aa 1 00353 3515 06 epp1 pr1|235,ql rldr_data_.pvname 006105 aa 040 100 106 500 cmpc (pr),(pr),fill(040) 006106 aa 3 02017 00 0040 desc9a pr3|1039,32 backup_volume_log.pvname 006107 aa 1 00000 00 0040 desc9a pr1|0,32 rldr_data_.pvname 006110 aa 000022 6010 04 tnz 18,ic 006132 006111 aa 3 02015 2361 00 ldq pr3|1037 backup_volume_log.version 006112 aa 000001 1160 07 cmpq 1,dl 006113 aa 000005 6000 04 tze 5,ic 006120 006114 aa 000002 1160 07 cmpq 2,dl 006115 aa 000003 6000 04 tze 3,ic 006120 006116 aa 000003 1160 07 cmpq 3,dl 006117 aa 000013 6010 04 tnz 11,ic 006132 006120 aa 5 00162 2351 00 lda pr5|114 version_1_found 006121 aa 000005 6010 04 tnz 5,ic 006126 006122 aa 000001 1160 07 cmpq 1,dl 006123 aa 0 00512 7001 00 tsx0 pr0|330 r_e_as 006124 aa 5 00162 7551 00 sta pr5|114 version_1_found 006125 aa 000005 7100 04 tra 5,ic 006132 STATEMENT 1 ON LINE 542 else do; STATEMENT 1 ON LINE 543 code = error_table_$improper_data_format; 006126 aa 6 00044 3701 20 epp4 pr6|36,* 006127 la 4 00012 2361 20 ldq pr4|10,* error_table_$improper_data_format 006130 aa 5 00104 7561 00 stq pr5|68 code STATEMENT 1 ON LINE 544 goto vol_err; 006131 aa 777647 7100 04 tra -89,ic 006000 STATEMENT 1 ON LINE 545 end; STATEMENT 1 ON LINE 546 revert seg_fault_error; 006132 aa 6 00104 4501 00 stz pr6|68 STATEMENT 1 ON LINE 548 code = 0; 006133 aa 5 00104 4501 00 stz pr5|68 code STATEMENT 1 ON LINE 549 rldr_data_.bvlp (i) = bvlp; 006134 aa 6 00214 7271 00 lxl7 pr6|140 006135 aa 5 00512 3515 20 epp1 pr5|330,* rldr_datap 006136 aa 1 00424 2535 17 spri3 pr1|276,7 rldr_data_.bvlp STATEMENT 1 ON LINE 550 end find_volog; 006137 aa 0 00631 7101 00 tra pr0|409 return_mac END PROCEDURE find_volog BEGIN PROCEDURE get_max_pvs ENTRY TO get_max_pvs STATEMENT 1 ON LINE 555 get_max_pvs: proc (maxpvs, ec); 006140 aa 6 01402 6501 00 spri4 pr6|770 006141 aa 6 01404 2521 00 spri2 pr6|772 STATEMENT 1 ON LINE 560 ec = -1; 006142 aa 000001 3360 07 lcq 1,dl 006143 aa 2 00004 7561 20 stq pr2|4,* ec STATEMENT 1 ON LINE 561 end get_max_pvs; 006144 aa 6 01402 6101 00 rtcd pr6|770 END PROCEDURE get_max_pvs BEGIN PROCEDURE fill_from_volog ENTRY TO fill_from_volog STATEMENT 1 ON LINE 568 fill_from_volog: proc (); 006145 aa 6 01410 6501 00 spri4 pr6|776 STATEMENT 1 ON LINE 573 do i = 1 to rldr_data_.npvs; 006146 aa 6 00512 3735 20 epp7 pr6|330,* rldr_datap 006147 aa 7 00404 2361 00 ldq pr7|260 rldr_data_.npvs 006150 aa 6 01417 7561 00 stq pr6|783 006151 aa 000001 2360 07 ldq 1,dl 006152 aa 6 01416 7561 00 stq pr6|782 i 006153 aa 000000 0110 03 nop 0,du 006154 aa 6 01416 2361 00 ldq pr6|782 i 006155 aa 6 01417 1161 00 cmpq pr6|783 006156 aa 000024 6054 04 tpnz 20,ic 006202 STATEMENT 1 ON LINE 574 bvlp = rldr_data_.per_pv (i).bvlp; 006157 aa 000064 4020 07 mpy 52,dl 006160 aa 6 00512 3735 20 epp7 pr6|330,* rldr_datap 006161 aa 7 00424 3735 26 epp7 pr7|276,ql* rldr_data_.bvlp 006162 aa 6 01236 6535 00 spri7 pr6|670 bvlp STATEMENT 1 ON LINE 575 rldr_data_.per_pv (i).pvid = backup_volume_log.pvid; 006163 aa 7 02027 2351 00 lda pr7|1047 backup_volume_log.pvid 006164 aa 6 00512 3715 20 epp5 pr6|330,* rldr_datap 006165 aa 5 00406 7551 06 sta pr5|262,ql rldr_data_.pvid STATEMENT 1 ON LINE 576 rldr_data_.per_pv (i).disk_type = backup_volume_log.disk_type; 006166 aa 7 02035 2351 00 lda pr7|1053 backup_volume_log.disk_type 006167 aa 000000 6270 06 eax7 0,ql 006170 aa 000066 7330 00 lrs 54 006171 aa 5 00411 7561 17 stq pr5|265,7 rldr_data_.disk_type STATEMENT 1 ON LINE 577 rldr_data_.per_pv (i).lvid = backup_volume_log.info.lvid; 006172 aa 7 00552 2351 00 lda pr7|362 backup_volume_log.lvid 006173 aa 5 00405 7551 17 sta pr5|261,7 rldr_data_.lvid STATEMENT 1 ON LINE 578 rldr_data_.per_pv (i).lvname = backup_volume_log.info.lv_name; 006174 aa 5 00363 3535 17 epp3 pr5|243,7 rldr_data_.lvname 006175 aa 000 100 100 500 mlr (pr),(pr),fill(000) 006176 aa 7 00541 00 0040 desc9a pr7|353,32 backup_volume_log.lv_name 006177 aa 3 00000 00 0040 desc9a pr3|0,32 rldr_data_.lvname STATEMENT 1 ON LINE 579 end; 006200 aa 6 01416 0541 00 aos pr6|782 i 006201 aa 777753 7100 04 tra -21,ic 006154 STATEMENT 1 ON LINE 581 end fill_from_volog; 006202 aa 6 01410 6101 00 rtcd pr6|776 END PROCEDURE fill_from_volog BEGIN PROCEDURE validate_all_vologs ENTRY TO validate_all_vologs STATEMENT 1 ON LINE 586 validate_all_vologs: proc () returns (bit (1)); 006203 aa 6 01420 6501 00 spri4 pr6|784 006204 aa 6 01422 2521 00 spri2 pr6|786 STATEMENT 1 ON LINE 590 006205 aa 6 01427 4501 00 stz pr6|791 mismatch STATEMENT 1 ON LINE 593 do i = 1 to rldr_data_.npvs; 006206 aa 6 00512 3735 20 epp7 pr6|330,* rldr_datap 006207 aa 7 00404 2361 00 ldq pr7|260 rldr_data_.npvs 006210 aa 6 01430 7561 00 stq pr6|792 006211 aa 000001 2360 07 ldq 1,dl 006212 aa 6 01426 7561 00 stq pr6|790 i 006213 aa 000000 0110 03 nop 0,du 006214 aa 6 01426 2361 00 ldq pr6|790 i 006215 aa 6 01430 1161 00 cmpq pr6|792 006216 aa 000056 6054 04 tpnz 46,ic 006274 STATEMENT 1 ON LINE 594 bvlp = rldr_data_.per_pv (i).bvlp; 006217 aa 000064 4020 07 mpy 52,dl 006220 aa 6 00512 3735 20 epp7 pr6|330,* rldr_datap 006221 aa 7 00424 3735 26 epp7 pr7|276,ql* rldr_data_.bvlp 006222 aa 6 01236 6535 00 spri7 pr6|670 bvlp STATEMENT 1 ON LINE 595 if backup_volume_log.rpv_pvid ^= rldr_data_.rpv_pvid then do; 006223 aa 6 02125 7561 00 stq pr6|1109 006224 aa 7 02036 2351 00 lda pr7|1054 backup_volume_log.rpv_pvid 006225 aa 6 00512 3715 20 epp5 pr6|330,* rldr_datap 006226 aa 5 00003 1151 00 cmpa pr5|3 rldr_data_.rpv_pvid 006227 aa 000043 6000 04 tze 35,ic 006272 STATEMENT 1 ON LINE 596 mismatch = "1"b; 006230 aa 400000 2350 03 lda 131072,du 006231 aa 6 01427 7551 00 sta pr6|791 mismatch STATEMENT 1 ON LINE 597 call rldr_report_$error_output (rldr_datap, 0, myname, "The RPV pvid for physical volume ^a does not match the determined RPV pvid.", rldr_data_.per_pv (i).pvname); 006232 aa 771723 2360 04 ldq -3117,ic 000155 = 524000000040 006233 aa 6 02126 7561 00 stq pr6|1110 006234 aa 6 02127 4501 00 stz pr6|1111 006235 aa 000 100 100 404 mlr (ic),(pr),fill(000) 006236 aa 772352 00 0114 desc9a -2838,76 000607 = 124150145040 006237 aa 6 02130 00 0114 desc9a pr6|1112,76 006240 aa 6 00512 3521 00 epp2 pr6|330 rldr_datap 006241 aa 6 02156 2521 00 spri2 pr6|1134 006242 aa 6 02127 3521 00 epp2 pr6|1111 006243 aa 6 02160 2521 00 spri2 pr6|1136 006244 aa 771640 3520 04 epp2 -3168,ic 000104 = 162145154157 006245 aa 6 02162 2521 00 spri2 pr6|1138 006246 aa 6 02130 3521 00 epp2 pr6|1112 006247 aa 6 02164 2521 00 spri2 pr6|1140 006250 aa 6 02125 7271 00 lxl7 pr6|1109 006251 aa 5 00353 3521 17 epp2 pr5|235,7 rldr_data_.pvname 006252 aa 6 02166 2521 00 spri2 pr6|1142 006253 aa 771707 3520 04 epp2 -3129,ic 000162 = 464000000000 006254 aa 6 02170 2521 00 spri2 pr6|1144 006255 aa 771677 3520 04 epp2 -3137,ic 000154 = 404000000005 006256 aa 6 02172 2521 00 spri2 pr6|1146 006257 aa 771704 3520 04 epp2 -3132,ic 000163 = 526000000040 006260 aa 6 02174 2521 00 spri2 pr6|1148 006261 aa 771672 3520 04 epp2 -3142,ic 000153 = 524000000113 006262 aa 6 02176 2521 00 spri2 pr6|1150 006263 aa 6 02126 3521 00 epp2 pr6|1110 006264 aa 6 02200 2521 00 spri2 pr6|1152 006265 aa 6 02154 6211 00 eax1 pr6|1132 006266 aa 024000 4310 07 fld 10240,dl 006267 aa 6 00044 3701 20 epp4 pr6|36,* 006270 la 4 00112 3521 20 epp2 pr4|74,* rldr_report_$error_output 006271 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 600 end; STATEMENT 1 ON LINE 601 end; 006272 aa 6 01426 0541 00 aos pr6|790 i 006273 aa 777721 7100 04 tra -47,ic 006214 STATEMENT 1 ON LINE 602 return (^mismatch); 006274 aa 6 01427 2351 00 lda pr6|791 mismatch 006275 aa 0 00002 6751 00 era pr0|2 = 400000000000 006276 aa 6 02126 7551 00 sta pr6|1110 006277 aa 6 01422 3735 20 epp7 pr6|786,* 006300 aa 7 00002 3715 20 epp5 pr7|2,* 006301 aa 003 100 060 500 csl (pr),(pr),fill(0),bool(move) 006302 aa 6 02126 00 0001 descb pr6|1110,1 006303 aa 5 00000 00 0001 descb pr5|0,1 006304 aa 6 01420 6101 00 rtcd pr6|784 STATEMENT 1 ON LINE 603 end validate_all_vologs; END PROCEDURE validate_all_vologs END PROCEDURE reloader ----------------------------------------------------------- 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