COMPILATION LISTING OF SEGMENT hvr_ Compiled by: Multics PL/I Compiler, Release 28d, of October 4, 1983 Compiled at: Honeywell Multics Op. - System M Compiled on: 07/02/84 1431.4 mst Mon Options: optimize list 1 /* *********************************************************** 2* * * 3* * Copyright, (C) Honeywell Information Systems Inc., 1982 * 4* * * 5* * Copyright (c) 1972 by Massachusetts Institute of * 6* * Technology and Honeywell Information Systems, Inc. * 7* * * 8* *********************************************************** */ 9 10 11 hvr_: proc; 12 13 /* Logical Volume Registration Functions. 14* 15* add_vol_registration pv abc -lv def -model 191 ... 16* change_vol_registration ... 17* del_vol_registration pv|lv name 18* 19* THVV 20* Modified 4/79 by Michael R. Jordan to require -model in avr and print correct model number in lvr. 21**/ 22 23 dcl svrp ptr static init (null); 24 dcl ap ptr, al fixed bin, bchr char (al) based (ap); /* args */ 25 dcl (addr, null, rtrim, bit, fixed, hbound, index, length, reverse, substr, verify) builtin; 26 dcl uname char (32); 27 dcl pvname char (32) init (""); /* Physical volume name */ 28 dcl lvname char (32) init (""); /* Logical volume name */ 29 dcl tcs char (32) init (""); /* Control arg */ 30 dcl tcs1 char (168) init (""); /* Value */ 31 dcl comname char (32) init ("add_vol_registration"); 32 dcl aa_string char (32) aligned; 33 dcl b36 bit (36) aligned init ("0"b); 34 dcl old_lvid bit (36) init ("0"b); 35 dcl old_lvname char (32) init (""); 36 dcl access_low bit (72) init ("0"b); /* Volume access */ 37 dcl access_high bit (72) init (sys_info$access_class_ceiling); 38 dcl (gave_access_low, gave_access_high) bit (1) init ("0"b); /* TRUE if user specified */ 39 dcl new_lv bit (1) init ("0"b); /* TRUE if new seg */ 40 dcl acs_path char (168) init (""); /* link target */ 41 dcl (i, j) fixed bin; 42 dcl more_args bit (1) init ("1"b); 43 dcl argno fixed bin init (1); 44 dcl serial char (32) init ("none"); /* Volume manufaturer's serial */ 45 dcl pubbit bit (1) init ("1"b); /* TRUE if public volume */ 46 dcl owner char (32) init (""); /* Person.Project of vol owner */ 47 dcl owneri fixed bin; /* .. index of dot in owner */ 48 dcl model fixed bin init (0); /* internal model number */ 49 dcl ec fixed bin (35) init (0); 50 51 dcl YESNO (0:1) char (3) static init ("no", "yes"); 52 dcl LEGAL char (37) static options (constant) init ("0123456789abcdefghijklmnopqrstuvwxyz_"); 53 54 dcl error_table_$badopt fixed bin (35) ext; 55 dcl error_table_$bad_volid fixed bin (35) ext; 56 dcl error_table_$segnamedup fixed bin (35) ext; 57 dcl error_table_$namedup fixed bin (35) ext; 58 dcl error_table_$noarg fixed bin (35) ext; 59 dcl sys_info$access_class_ceiling bit (72) aligned ext; 60 61 dcl clock_ entry () returns (fixed bin (71)); 62 dcl com_err_ entry options (variable); 63 dcl convert_authorization_$from_string entry (bit (72), char (*), fixed bin (35)); 64 dcl convert_aim_attributes_ entry (bit (72) aligned, char (32) aligned); 65 dcl convert_date_to_binary_ entry (char (*), fixed bin (71), fixed bin (35)); 66 dcl cv_dec_check_ entry (char (*), fixed bin (35)) returns (fixed bin); 67 dcl cv_oct_check_ entry (char (*), fixed bin (35)) returns (bit (36)); 68 dcl cu_$arg_ptr entry (fixed bin, ptr, fixed bin, fixed bin (35)); 69 dcl expand_path_ entry (ptr, fixed bin, ptr, ptr, fixed bin (35)); 70 dcl get_group_id_ entry () returns (char (32)); 71 dcl hcs_$make_seg entry (char (*), char (*), char (*), fixed bin (5), ptr, fixed bin (35)); 72 dcl hcs_$truncate_seg entry (ptr, fixed bin, fixed bin (35)); 73 dcl initializer_mdc_$chname_hv entry (char (*), char (*), char (*), fixed bin (35)); 74 dcl initializer_mdc_$delete_hv entry (char (*), fixed bin (35)); 75 dcl initializer_mdc_$make_link entry (char (*), fixed bin (35)); 76 dcl initializer_mdc_$read_hv entry (char (*), ptr, fixed bin (35)); 77 dcl initializer_mdc_$read_pv entry (char (*), ptr, fixed bin (35)); 78 dcl initializer_mdc_$write_hv entry (char (*), ptr, fixed bin (35)); 79 dcl ioa_ entry options (variable); 80 dcl mdc_priv_$make_mdcs entry (char (*), fixed bin (35)); 81 dcl mdc_priv_$rename_mdcs entry (char (*), char (*), fixed bin (35)); 82 dcl mdc_priv_$delete_mdcs entry (char (*), fixed bin (35)); 83 dcl mdc_priv_$update_hvid entry (char (*), bit (36), fixed bin (35)); 84 dcl unique_chars_ entry (bit (*) aligned) returns (char (15)); 85 86 add_volume_registration: entry; 87 88 if svrp = null then call hcs_$make_seg ("", "", "", 1011b, svrp, ec); 89 vrp = svrp; 90 call getarg (tcs); /* First arg must be "pv" */ 91 ec = 0; 92 if tcs ^= "pv" then call FAIL ("unknown arg: " || tcs); 93 call getarg (pvname); /* Get physical volume name */ 94 if pvname = "" then call FAIL ("pv name not specified"); 95 if verify (rtrim (pvname), LEGAL) ^= 0 then call FAIL ("Invalid characters in name: " || pvname); 96 do while (more_args); 97 call getarg (tcs); /* Get control arg */ 98 call getarg (tcs1); /* .. and value */ 99 if tcs = "-lv" then lvname = tcs1; 100 else if tcs = "-access_low" then do; 101 call convert_authorization_$from_string (access_low, tcs1, ec); 102 if ec ^= 0 then call FAIL ("illegal auth: " || tcs1); 103 gave_access_low = "1"b; 104 end; 105 else if tcs = "-access_high" then do; 106 call convert_authorization_$from_string (access_high, tcs1, ec); 107 if ec ^= 0 then call FAIL ("illegal auth: " || tcs1); 108 gave_access_high = "1"b; 109 end; 110 else if tcs = "-owner" then do; 111 call check_owner; 112 if owneri = 0 then call FAIL ("invalid owner: " || tcs1); 113 end; 114 else if tcs = "-public" then pubbit = (tcs1 = "yes"); 115 else if tcs = "-acs" then do; 116 i = length (tcs1) + 1 - verify (reverse (tcs1), " "); 117 call expand_path_ (addr (tcs1), i, addr (acs_path), null, ec); 118 if ec ^= 0 then call FAIL ("bad acs path: " || tcs1); 119 end; 120 else if tcs = "-pvid" then do; 121 b36 = cv_oct_check_ (tcs1, ec); 122 if ec ^= 0 then call FAIL ("invalid: " || tcs1); 123 end; 124 else if tcs = "-model" then do; 125 i = cv_dec_check_ (tcs1, ec); 126 if ec ^= 0 then call FAIL ("invalid: " || tcs1); 127 do model = 1 to hbound (MODEL, 1) while (i ^= MODEL (model)); end; 128 if model > hbound (MODEL, 1) then call FAIL ("unknown model: " || tcs1); 129 model = MODELX (model); 130 end; 131 else if tcs = "-serial" then serial = tcs1; 132 else call com_err_ (error_table_$badopt, comname, "^a", tcs); 133 end; 134 135 if model = 0 /* Missing -model control arg */ 136 then do; 137 ec = error_table_$noarg; 138 call FAIL ("-model must be specified"); 139 end; 140 141 call initializer_mdc_$read_pv (pvname, vrp, ec); 142 if ec = 0 then call FAIL ("pv already registered: " || pvname); 143 ec = 0; 144 145 if lvname = "" then call FAIL ("-lv must be specified"); /* Check given args */ 146 call initializer_mdc_$read_hv (lvname, vrp, ec); 147 if ec ^= 0 then do; 148 call hcs_$truncate_seg (vrp, 0, ec); 149 if ec ^= 0 then call FAIL ("cannot create: " || lvname); 150 volume_registration.version = 1; /* Initialize new seg */ 151 volume_registration.hvid = substr (bit (fixed (clock_ (), 71), 71), 36, 36); 152 uname = "lvid." || unique_chars_ (volume_registration.hvid); 153 volume_registration.hvname = lvname; 154 if owner = "" then do; 155 tcs1 = get_group_id_ (); 156 i = length (tcs1) + 1 - verify (reverse (tcs1), " "); 157 substr (tcs1, i-1) = ""; 158 call check_owner; 159 end; 160 volume_registration.volume_owner = owner; 161 volume_registration.public = pubbit; 162 volume_registration.min_access_class = access_low; 163 volume_registration.max_access_class = access_high; 164 165 if ^pubbit | acs_path ^= "" then do; /* Is ACS requested or needed? */ 166 i = length (lvname) + 1 - verify (reverse (lvname), " "); 167 uname = substr (lvname, 1, i) || ".acs"; 168 if acs_path = "" then do; 169 j = index (substr (owner, owneri+1), " ") - 1; 170 acs_path = ">udd>" || substr (owner, owneri+1, j) || ">" || substr (owner, 1, owneri-1) || 171 ">" || uname; 172 end; 173 else if index (acs_path, uname) = 0 then call FAIL ("acs_path invalid: " || acs_path); 174 call initializer_mdc_$make_link (acs_path, ec); 175 if ec ^= 0 then call com_err_ (ec, comname, "cannot link to acs: ^a", acs_path); 176 end; 177 volume_registration.acs_path = acs_path; 178 179 call initializer_mdc_$write_hv (lvname, vrp, ec); 180 if ec ^= 0 then call FAIL ("cannot create: " || lvname); 181 call mdc_priv_$make_mdcs (lvname, ec); 182 if ec ^= 0 & ec ^= error_table_$namedup then call FAIL ("cannot make mdcs: " || lvname); 183 new_lv = "1"b; 184 end; 185 186 do i = 1 to volume_registration.npv while (volume_registration.pvname (i) ^= pvname); end; 187 if i <= volume_registration.npv 188 then call com_err_ (0, comname, "pv ^a already registered in ^a", pvname, lvname); 189 call initializer_mdc_$chname_hv (lvname, "", "pv." || pvname, ec); /* .. add new pv name */ 190 if ec ^= 0 then call com_err_ (ec, comname, "cannot add name pv.^a to lv.^a", pvname, lvname); 191 192 if owner ^= "" /* If he gave args check them */ 193 then if owner ^= volume_registration.volume_owner 194 then call FAIL ("registered owner conflicts: " || volume_registration.volume_owner); 195 if gave_access_low 196 then if access_low ^= volume_registration.min_access_class 197 then call FAIL ("registered min access class conflicts"); 198 if gave_access_high 199 then if access_high ^= volume_registration.max_access_class 200 then call FAIL ("registered max access class conflicts"); 201 202 if b36 = "0"b then b36 = substr (bit (fixed (clock_ (), 71), 71), 36, 36); 203 volume_registration.pv (i).pvid = b36; 204 uname = "pvid." || unique_chars_ (volume_registration.pv (i).pvid); 205 call initializer_mdc_$chname_hv (lvname, "", uname, ec); /* Add pvid to registration */ 206 if ec ^= 0 then call com_err_ (ec, comname, "cannot add ^a on ^a", uname, lvname); 207 208 volume_registration.pv (i).model = model; /* Fill in per-pak data */ 209 volume_registration.pv (i).pvname = pvname; 210 volume_registration.pv (i).location = "uninitialized"; 211 volume_registration.pv (i).mfg_serial = serial; 212 volume_registration.pv (i).password = "0"b; 213 volume_registration.pv (i).date_registered = clock_ (); 214 if i > volume_registration.npv then volume_registration.npv = i; 215 216 call initializer_mdc_$write_hv (lvname, vrp, ec); 217 if ec ^= 0 then call FAIL ("cannot modify: " || lvname); 218 219 if new_lv then call ioa_ ("registered new lv ^a with lvid ^w", 220 lvname, volume_registration.hvid); 221 222 return; 223 224 change_volume_registration: entry; 225 226 comname = "change_vol_registration"; 227 if svrp = null then call hcs_$make_seg ("", "", "", 1011b, svrp, ec); 228 vrp = svrp; 229 ec = 0; 230 call getarg (tcs); 231 if tcs = "pv" then do; /* Single pv? */ 232 call getarg (pvname); /* yes */ 233 call initializer_mdc_$read_pv (pvname, vrp, ec); 234 if ec ^= 0 then call FAIL ("pv not found: " || pvname); 235 lvname = volume_registration.hvname; 236 do i = 1 to volume_registration.npv while (volume_registration.pv (i).pvname ^= pvname); end; 237 if i > volume_registration.npv then call FAIL ("pv not in lv file: " || pvname); 238 239 do while (more_args); 240 call getarg (tcs); /* Get control arg */ 241 call getarg (tcs1); /* .. and value */ 242 if tcs = "-model" then do; 243 j = cv_dec_check_ (tcs1, ec); 244 if ec ^= 0 then call com_err_ (ec, comname, "invalid: ^a", tcs1); 245 else do; 246 do model = 1 to hbound (MODEL, 1) while (j ^= MODEL (model)); end; 247 if model > hbound (MODEL, 1) then call com_err_ (ec, comname, "unknown model: ^a", tcs1); 248 else do; 249 model = MODELX (model); 250 volume_registration.pv (i).model = model; 251 end; 252 end; 253 end; 254 else if tcs = "-serial" then volume_registration.pv (i).mfg_serial = tcs1; 255 else if tcs = "-location" then volume_registration.pv (i).location = tcs1; 256 else if tcs = "-date_registered" then do; 257 call convert_date_to_binary_ (tcs1, volume_registration.pv (i).date_registered, ec); 258 if ec ^= 0 then call com_err_ (ec, comname, "bad date: ^a", tcs1); 259 end; 260 else if tcs = "-name" then do; 261 if verify (rtrim (tcs1), LEGAL) ^= 0 then call FAIL ("Invalid characters in name: " || tcs1); 262 uname = "pv." || tcs1; 263 call initializer_mdc_$chname_hv (lvname, "pv." || pvname, uname, ec); 264 if ec ^= 0 then call com_err_ (ec, comname, "^a", uname); 265 else do; 266 volume_registration.pv (i).pvname = tcs1; 267 pvname = tcs1; 268 end; 269 end; 270 else if tcs = "-pvid" then do; 271 b36 = cv_oct_check_ (tcs1, ec); 272 if ec ^= 0 then call com_err_ (ec, comname, "invalid: ^a", tcs1); 273 else do; 274 uname = "pvid." || unique_chars_ (b36); 275 call initializer_mdc_$chname_hv (lvname, "pvid." || unique_chars_ (volume_registration.pv (i).pvid), 276 uname, ec); 277 if ec ^= 0 then call com_err_ (ec, comname, "cannot change pvid: ^a", uname); 278 else do; 279 volume_registration.pv (i).pvid = b36; 280 end; 281 end; 282 end; 283 else call com_err_ (ec, comname, "bad control arg: ^a ^a", tcs, tcs1); 284 end; 285 end; 286 else if tcs = "lv" then do; 287 call getarg (lvname); 288 call initializer_mdc_$read_hv (lvname, vrp, ec); 289 if ec ^= 0 then call FAIL ("lv not registered: " || lvname); 290 291 do while (more_args); 292 call getarg (tcs); 293 call getarg (tcs1); 294 if tcs = "-access_low" then do; 295 call convert_authorization_$from_string (access_low, tcs1, ec); 296 if ec ^= 0 then call com_err_ (ec, comname, "illegal auth: ^a", tcs1); 297 else volume_registration.min_access_class = access_low; 298 end; 299 else if tcs = "-access_high" then do; 300 call convert_authorization_$from_string (access_high, tcs1, ec); 301 if ec ^= 0 then call com_err_ (ec, comname, "illegal auth: ^a", tcs1); 302 else volume_registration.max_access_class = access_high; 303 end; 304 else if tcs = "-public" then volume_registration.public = (tcs1 = "yes"); 305 else if tcs = "-acs" then do; 306 i = length (tcs1) + 1 - verify (reverse (tcs1), " "); 307 call expand_path_ (addr (tcs1), i, addr (acs_path), null, ec); 308 if ec ^= 0 then call com_err_ (ec, comname, "bad acs path: ^a", tcs1); 309 else do; 310 call initializer_mdc_$make_link (acs_path, ec); 311 if ec ^= 0 then call com_err_ (ec, comname, "cannot link: ^a", acs_path); 312 else volume_registration.acs_path = acs_path; 313 end; 314 end; 315 else if tcs = "-owner" then do; 316 call check_owner; 317 if owneri = 0 then call com_err_ (0, comname, "invalid owner: ^a", tcs1); 318 else volume_registration.volume_owner = owner; 319 end; 320 else if tcs = "-name" then do; 321 uname = "lv." || tcs1; 322 call initializer_mdc_$chname_hv (lvname, "lv." || lvname, uname, ec); 323 if ec ^= 0 then call com_err_ (ec, comname, "new lvname duplicated: ^a", uname); 324 else do; 325 volume_registration.hvname = tcs1; 326 old_lvname = lvname; 327 lvname = tcs1; 328 end; 329 end; 330 else if tcs = "-lvid" then do; 331 b36 = cv_oct_check_ (tcs1, ec); 332 if ec ^= 0 then call com_err_ (ec, comname, "invalid: ^a", tcs1); 333 else do; 334 uname = "lvid." || unique_chars_ (b36); 335 call initializer_mdc_$chname_hv (lvname, "lvid." || unique_chars_ (volume_registration.hvid), 336 uname, ec); 337 if ec ^= 0 then call com_err_ (ec, comname, "cannot change lvid: ^a", uname); 338 else do; 339 old_lvid = volume_registration.hvid; 340 volume_registration.hvid = b36; 341 end; 342 end; 343 end; 344 else call com_err_ (0, comname, "unknown control arg: ^a", tcs); 345 end; 346 end; 347 else call FAIL ("arg neither pv nor lv: " || tcs); 348 349 call initializer_mdc_$write_hv (lvname, vrp, ec); 350 if ec ^= 0 then call FAIL ("cannot modify: " || lvname); 351 352 if old_lvname ^= "" then call mdc_priv_$rename_mdcs (old_lvname, lvname, ec); 353 if ec ^= 0 then call FAIL ("mdc rename err"); 354 if old_lvid then call mdc_priv_$update_hvid (lvname, old_lvid, ec); 355 if ec ^= 0 then call FAIL ("mdc lvid update err"); 356 return; 357 358 del_volume_registration: entry; 359 360 comname = "del_vol_registration"; 361 if svrp = null then call hcs_$make_seg ("", "", "", 1011b, svrp, ec); 362 vrp = svrp; 363 ec = 0; 364 call getarg (tcs); 365 if tcs = "pv" then do; /* Can delete pv from lv */ 366 call getarg (pvname); 367 call initializer_mdc_$read_pv (pvname, vrp, ec); 368 if ec ^= 0 then call FAIL ("pv not found: " || pvname); 369 lvname = volume_registration.hvname; 370 if volume_registration.npv = 1 then call FAIL ("lv has only one pv: " || lvname); 371 call initializer_mdc_$chname_hv (lvname, "pv." || pvname, "", ec); 372 do i = 1 to volume_registration.npv while (volume_registration.pv (i).pvname ^= pvname); end; 373 if i <= volume_registration.npv then do; 374 uname = "pvid." || unique_chars_ (volume_registration.pv (i).pvid); 375 call initializer_mdc_$chname_hv (lvname, uname, "", ec); 376 do j = i+1 to volume_registration.npv; /* Squash out the pv data */ 377 volume_registration.pv (j-1) = volume_registration.pv (j); 378 end; 379 volume_registration.npv = volume_registration.npv - 1; 380 end; 381 call initializer_mdc_$write_hv (lvname, vrp, ec); 382 if ec ^= 0 then call FAIL ("cannot modify: " || lvname); 383 384 end; 385 else if tcs = "lv" then do; /* Deleting entire lv */ 386 call getarg (lvname); 387 call initializer_mdc_$read_hv (lvname, vrp, ec); 388 if ec ^= 0 then call FAIL ("lv not registered: " || lvname); 389 call mdc_priv_$delete_mdcs (lvname, ec); 390 if ec ^= 0 then call FAIL ("mdcs delete err: " || lvname); 391 do i = 1 to volume_registration.npv; 392 call ioa_ ("Releasing pv ^a", volume_registration.pv (i).pvname); 393 end; 394 call initializer_mdc_$delete_hv (lvname, ec); 395 if ec ^= 0 then call FAIL ("cannot modify: " || lvname); 396 end; 397 else call FAIL ("arg neither pv nor lv: " || tcs); 398 return; 399 400 list_volume_registration: entry; 401 402 comname = "list_vol_registration"; 403 if svrp = null then call hcs_$make_seg ("", "", "", 1011b, svrp, ec); 404 vrp = svrp; 405 ec = 0; 406 call getarg (tcs); 407 if tcs = "pv" then do; 408 call getarg (pvname); 409 call initializer_mdc_$read_pv (pvname, vrp, ec); 410 if ec ^= 0 then call FAIL ("pv not found: " || pvname); 411 lvname = volume_registration.hvname; 412 do i = 1 to volume_registration.npv while (volume_registration.pv (i).pvname ^= pvname); end; 413 if i <= volume_registration.npv then do; 414 call ioa_ ("^/pvname:^-^a", volume_registration.pv (i).pvname); 415 call ioa_ ("pvid:^-^-^w", volume_registration.pv (i).pvid); 416 call ioa_ ("serial:^-^-^a", volume_registration.pv (i).mfg_serial); 417 call ioa_ ("model:^-^-^d", MODELN (volume_registration.pv (i).model)); 418 call ioa_ ("location:^-^-^a", volume_registration.pv (i).location); 419 call ioa_ ("lvname:^-^-^a", volume_registration.hvname); 420 end; 421 else call FAIL ("pv not in lv file: " || pvname); 422 end; 423 else if tcs = "lv" then do; 424 call getarg (lvname); 425 call initializer_mdc_$read_hv (lvname, vrp, ec); 426 if ec ^= 0 then call FAIL ("lv not registered: " || lvname); 427 call getarg (tcs); 428 if tcs ^= "-bf" & tcs ^= "-brief" then do; 429 call ioa_ ("^/lvname:^-^a", lvname); 430 call ioa_ ("lvid:^-^-^w", volume_registration.hvid); 431 call ioa_ ("owner:^-^-^a", volume_registration.volume_owner); 432 call ioa_ ("public:^-^-^a", YESNO (fixed (volume_registration.public, 1))); 433 call convert_aim_attributes_ (volume_registration.min_access_class, aa_string); 434 call ioa_ ("min_access_class:^-^a", aa_string); 435 call convert_aim_attributes_ (volume_registration.max_access_class, aa_string); 436 call ioa_ ("max_access_class:^-^a", aa_string); 437 call ioa_ ("acs_path:^-^-^a", volume_registration.acs_path); 438 call ioa_ ("^/npv:^-^-^d", volume_registration.npv); 439 end; 440 do i = 1 to volume_registration.npv; 441 if tcs = "-bf" | tcs = "-brief" 442 then call ioa_ ("^a", volume_registration.pv (i).pvname); 443 else do; 444 call ioa_ ("^/ pvname:^-^a", volume_registration.pv (i).pvname); 445 call ioa_ (" pvid:^-^-^w", volume_registration.pv (i).pvid); 446 call ioa_ (" serial:^-^-^a", volume_registration.pv (i).mfg_serial); 447 call ioa_ (" model:^-^-^d", MODELN (volume_registration.pv (i).model)); 448 call ioa_ (" location:^-^a", volume_registration.pv (i).location); 449 end; 450 end; 451 end; 452 else call FAIL ("arg neither pv nor lv: " || tcs); 453 call ioa_ (""); 454 return; 455 456 /* ------------------------------------------------------ */ 457 458 getarg: proc (x); 459 460 dcl x char (*); 461 dcl errc fixed bin (35); 462 463 call cu_$arg_ptr (argno, ap, al, errc); 464 if errc = 0 then x = bchr; 465 else x = ""; 466 argno = argno + 1; 467 call cu_$arg_ptr (argno, ap, al, errc); 468 if errc ^= 0 | bchr = "" then more_args = "0"b; 469 470 end getarg; 471 472 FAIL: proc (x); 473 474 dcl x char (*); 475 476 call com_err_ (ec, comname, "^a", x); 477 go to bust; 478 479 end FAIL; 480 bust: return; 481 482 check_owner: proc; 483 484 owneri = index (tcs1, "."); 485 if owneri = 0 then return; 486 if index (substr (tcs1, owneri+1), ".") ^= 0 then owneri = 0; 487 else owner = tcs1; 488 489 end check_owner; 490 491 492 1 1 /* BEGIN INCLUDE FILE ... volume_registration.incl.pl1 */ 1 2 1 3 dcl vrp ptr; 1 4 1 5 dcl 1 volume_registration aligned based (vrp), 1 6 2 version fixed bin init (1), /* Version number of this dcl */ 1 7 2 hvid bit (36), /* Hierarchy volume unique ID */ 1 8 2 hvname char (32), /* Hierarchy volume name */ 1 9 2 max_access_class bit (72), /* Maximum AIM class */ 1 10 2 min_access_class bit (72), /* Minimum AIM class */ 1 11 2 volume_owner char (32), /* Person.Project */ 1 12 2 acs_path char (168), /* Path name of ACS */ 1 13 2 flags, 1 14 3 public bit (1) unal, /* TRUE if public volume */ 1 15 3 pad bit (35) unal, 1 16 2 npv fixed bin, /* Number of physical volumes */ 1 17 2 pv (volume_registration.npv refer (volume_registration.npv)), 1 18 3 pvid bit (36), /* Physical volume unique ID */ 1 19 3 model fixed bin, /* Model number */ 1 20 3 pvname char (32), /* Physical volume name */ 1 21 3 location char (32) init ("slot"), /* Where to find volume */ 1 22 3 mfg_serial char (32), /* Manufacturer's serial no, etc */ 1 23 3 date_registered fixed bin (71), /* Date and time registered */ 1 24 3 password bit (2); 1 25 1 26 /* END INCLUDE FILE ... volume_registration.incl.pl1 */ 493 2 1 /* Begin include file ...... fs_dev_types.incl.pl1 */ 2 2 /* Modified 5/19/76 by N. I. Morris */ 2 3 /* Modified 12/27/78 by Michael R. Jordan to correct MSS0500 information */ 2 4 /* Modified 4/79 by R.J.C. Kissel to add msu0501 information. */ 2 5 /* Modified '82 by BIM for needs_alt_part */ 2 6 2 7 dcl (maxdevt init (7), /* maximum legal devt */ 2 8 bulkdevt init (1), /* bulk store devt */ 2 9 msu0500devt init (2), /* MSU0500 device type */ 2 10 msu0451devt init (3), /* MSU0451 device type */ 2 11 msu0450devt init (3), /* MSU0450 device type */ 2 12 msu0400devt init (4), /* MSU0400 device type */ 2 13 dsu191devt init (4), /* DSU191 device type */ 2 14 dsu190devt init (5), /* DSU190 device type */ 2 15 dsu181devt init (6), /* DSU181 device type */ 2 16 msu0501devt init (7) /* MSU0501 device type */ 2 17 ) fixed bin (4) static options (constant); 2 18 2 19 dcl MODEL (10) fixed bin static options (constant) init /* Known device model numbers */ 2 20 (0, 500, 451, 450, 400, 402, 191, 190, 181, 501); 2 21 2 22 dcl MODELX (10) fixed bin static options (constant) init /* translation from model number to device type */ 2 23 (1, 2, 3, 3, 4, 4, 4, 5, 6, 7); 2 24 2 25 dcl MODELN (7) fixed bin static options (constant) init /* translation from device type to model number */ 2 26 (0, 500, 451, 400, 190, 181, 501); 2 27 2 28 dcl device_names (7) char (4) aligned static options (constant) init ( /* device names indexed by device type */ 2 29 "bulk", "d500", "d451", "d400", "d190", "d181", "d501"); 2 30 2 31 dcl media_removable (7) bit (1) static options (constant) init /* ON => demountable pack on device */ 2 32 ("0"b, "0"b, "1"b, "1"b, "1"b, "1"b, "0"b); 2 33 2 34 dcl shared_spindle (7) bit (1) static options (constant) init /* ON => 2 devices per spindle */ 2 35 ("0"b, "1"b, "0"b, "0"b, "0"b, "0"b, "1"b); 2 36 2 37 dcl needs_alt_part (7) bit (1) static options (constant) init /* ON => needs alternate partition to run alternate tracks */ 2 38 ("0"b, "0"b, "1"b, "1"b, "1"b, "1"b, "0"b); 2 39 2 40 dcl rec_per_dev (7) fixed bin static options (constant) init /* table of # of records on each device */ 2 41 (0, 38258, 38258, 19270, 14760, 4444, 67200); 2 42 2 43 dcl cyl_per_dev (7) fixed bin static options (constant) init /* table of # of cylinders on each device */ 2 44 (0, 814, 814, 410, 410, 202, 840); 2 45 2 46 dcl rec_per_cyl (7) fixed bin static options (constant) init /* table of # of records per cylinder on each device */ 2 47 (0, 47, 47, 47, 36, 22, 80); 2 48 2 49 dcl sect_per_cyl (7) fixed bin static options (constant) init /* table of # of sectors per cylinder on each device */ 2 50 (0, 760, 760, 760, 589, 360, 1280); 2 51 2 52 dcl sect_per_rec (7) fixed bin static options (constant) init /* table of # of sectors per record on each device */ 2 53 (0, 16, 16, 16, 16, 16, 16); 2 54 2 55 dcl tracks_per_cyl (7) fixed bin static options (constant) init /* table of # of tracks per cylinder on each device */ 2 56 (0, 19, 19, 19, 19, 20, 20); 2 57 2 58 dcl sect_per_track (7) fixed bin static options (constant) init /* table of # of sectors per track on each device */ 2 59 (0, 40, 40, 40, 31, 18, 64); 2 60 2 61 dcl words_per_sect (7) fixed bin static options (constant) init /* table of # of words per sector on each device */ 2 62 (0, 64, 64, 64, 64, 64, 64); 2 63 2 64 dcl first_rec_num (7) fixed bin static options (constant) init /* table of # of first record on each device */ 2 65 (0, 0, 0, 0, 0, 0, 0); 2 66 2 67 dcl last_rec_num (7) fixed bin (18) static options (constant) init /* table of # of last record on each device */ 2 68 (0, 38257, 38116, 19128, 14651, 4399, 67199); 2 69 2 70 dcl first_sect_num (7) fixed bin (24) static options (constant) init /* table of # of first sector for each device */ 2 71 (0, 0, 0, 0, 0, 0, 0); 2 72 2 73 dcl last_sect_num (7) fixed bin (24) static options (constant) init /* table of # last sector number for each device */ 2 74 (0, 618639, 616359, 309319, 239722, 71999, 1075199); 2 75 2 76 dcl first_alt_sect_num (7) fixed bin (24) static options (constant) init /* table of # of first sector of alt partition */ 2 77 (0, 638400, 616360, 309320, 239723, 72000, 1075200); 2 78 2 79 dcl last_alt_sect_num (7) fixed bin (24) static options (constant) init /* table of # of last sector of alt partition */ 2 80 (0, 639919, 618639, 311599, 241489, 72719, 1077759); 2 81 2 82 dcl last_physical_sect_num (7) fixed bin (24) static options (constant) init /* table of # of last sector on device (includes T&D cylinders) */ 2 83 (0, 639919, 619399, 312359, 242249, 72359, 1077759); 2 84 2 85 dcl dev_time (7) float bin (27) static options (constant) init /* table of average access times for each device */ 2 86 (384e0, 33187e0, 33187e0, 34722e0, 46935e0, 52631e0, 33187e0); 2 87 2 88 /* End of include file ...... fs_dev_types.incl.pl1 */ 494 495 496 /* BEGIN MESSAGE DOCUMENTATION 497* 498* Message: 499* add_vol_registration: Specified control argument is not implemented by this command. BLAH 500* 501* S: $initializer_io 502* 503* T: $response 504* 505* M: Invalid input was typed. 506* BLAH must be one of 507* -lv, -access_low, -access_high, -owner, -public, -acs, -pvid, -model, or -serial. 508* 509* A: $tryagn 510* 511* 512* Message: 513* add_vol_registration: ERROR_MESSAGE. cannot link to acs: PATH 514* 515* S: $initializer_io 516* 517* T: $response 518* 519* M: The system failed to link to the Access Control Segment specified by PATH. 520* The syntax of PATH may be incorrect, or there may be some other file system problem. 521* 522* A: $tryagn 523* 524* 525* Message: 526* add_vol_registration: pv PVNAME already registered in LVNAME 527* 528* S: $initializer_io 529* 530* T: $response 531* 532* M: A redundant avr command was typed. 533* 534* A: $tryagn 535* 536* 537* Message: 538* add_vol_registration: ERROR_MESSAGE. cannot add name pv.NAME to lv.NAME 539* 540* S: $initializer_io 541* 542* T: $response 543* 544* M: The volume registration data base may be messed up. 545* 546* A: $inform 547* 548* 549* Message: 550* add_vol_registration: ERROR_MESSAGE. cannot add UNIQUE on LVNAME 551* 552* S: $initializer_io 553* 554* T: $response 555* 556* M: The volume registration data base may be messed up. 557* 558* A: $inform 559* 560* 561* Message: 562* change_vol_registration: ERROR_MESSAGE. invalid: XMODEL 563* 564* S: $initializer_io 565* 566* T: $response 567* 568* M: Invalid input was typed. 569* 570* A: $tryagn 571* 572* 573* Message: 574* change_vol_registration: ERROR_MESSAGE. unknown model: XMODEL 575* 576* S: $initializer_io 577* 578* T: $response 579* 580* M: Invalid input was typed. 581* 582* A: $tryagn 583* 584* 585* Message: 586* change_vol_registration: ERROR_MESSAGE. bad date: XDATE 587* 588* S: $initializer_io 589* 590* T: $response 591* 592* M: Invalid input was typed. 593* 594* A: $tryagn 595* 596* 597* Message: 598* change_vol_registration: ERROR_MESSAGE. pv.PVNAME 599* 600* S: $initializer_io 601* 602* T: $response 603* 604* M: The system was unable to add the 605* name pv.PVNAME to the logical volume registration file. 606* Confusion may result. 607* 608* A: $inform 609* 610* 611* Message: 612* change_vol_registration: ERROR_MESSAGE. invalid: XPVID 613* 614* S: $initializer_io 615* 616* T: $response 617* 618* M: Invalid input was typed. 619* 620* A: $tryagn 621* 622* 623* Message: 624* change_vol_registration: ERROR_MESSAGE. cannot change pvid: pvid.UNIQUE 625* 626* S: $initializer_io 627* 628* T: $response 629* 630* M: The volume registration data base may be messed up. 631* 632* A: $inform 633* 634* 635* Message: 636* change_vol_registration: ERROR_MESSAGE. bad control arg: XARG XARG1 637* 638* S: $initializer_io 639* 640* T: $response 641* 642* M: Invalid input was typed. 643* XARG and XARG1 will be ignored. 644* 645* A: $tryagn 646* 647* 648* Message: 649* change_vol_registration: ERROR_MESSAGE. illegal auth: XAUTH 650* 651* S: $initializer_io 652* 653* T: $response 654* 655* M: Invalid input was typed. 656* 657* A: $tryagn 658* 659* 660* Message: 661* change_vol_registration: ERROR_MESSAGE. bad acs path: XPATH 662* 663* S: $initializer_io 664* 665* T: $response 666* 667* M: Invalid input was typed. 668* 669* A: $tryagn 670* 671* 672* Message: 673* change_vol_registration: ERROR_MESSAGE. cannot link: PATH 674* 675* S: $initializer_io 676* 677* T: $response 678* 679* M: The volume registration data base may be messed up. 680* 681* A: $inform 682* 683* 684* Message: 685* change_vol_registration: ERROR_MESSAGE. invalid owner: XOWNER 686* 687* S: $initializer_io 688* 689* T: $response 690* 691* M: Invalid input was typed. 692* 693* A: $tryagn 694* 695* 696* Message: 697* add_vol_registration: ERROR_MESSAGE. Invalid characters in name: XOWNER 698* 699* S: $initializer_io 700* 701* T: $response 702* 703* M: Only lower-case letters, digits, and underscore may appear in a physical volume name. 704* 705* A: $tryagn 706* 707* 708* Message: 709* change_vol_registration: ERROR_MESSAGE. Invalid characters in name: XOWNER 710* 711* S: $initializer_io 712* 713* T: $response 714* 715* M: Only lower-case letters, digits, and underscore may appear in a physical volume name. 716* 717* A: $tryagn 718* 719* 720* Message: 721* change_vol_registration: ERROR_MESSAGE. new lvname duplicated: lv.LVNAME 722* 723* S: $initializer_io 724* 725* T: $response 726* 727* M: The volume registration data base may be messed up. 728* 729* A: $inform 730* 731* 732* Message: 733* change_vol_registration: ERROR_MESSAGE. invalid: XLVID 734* 735* S: $initializer_io 736* 737* T: $response 738* 739* M: Invalid input was typed. 740* 741* A: $tryagn 742* 743* 744* Message: 745* change_vol_registration: ERROR_MESSAGE. cannot change lvid: lvid.UNIQUE 746* 747* S: $initializer_io 748* 749* T: $response 750* 751* M: The volume registration data base may be messed up. 752* 753* A: $inform 754* 755* 756* Message: 757* change_vol_registration: unknown control arg: BLAH 758* 759* S: $initializer_io 760* 761* T: $response 762* 763* M: Invalid input was typed. 764* 765* A: $tryagn 766* 767* 768* Message: 769* add_vol_registration: unknown arg: BLAH 770* 771* S: $initializer_io 772* 773* T: $response 774* 775* M: Invalid input was typed. 776* 777* A: $tryagn 778* 779* 780* Message: 781* add_vol_registration: pv name not specified 782* 783* S: $initializer_io 784* 785* T: $response 786* 787* M: Invalid input was typed. 788* 789* A: $tryagn 790* 791* 792* Message: 793* add_vol_registration: ERROR_MESSAGE. illegal auth: XAUTH 794* 795* S: $initializer_io 796* 797* T: $response 798* 799* M: Invalid input was typed. 800* 801* A: $tryagn 802* 803* 804* Message: 805* add_vol_registration: ERROR_MESSAGE. invalid owner: XOWNER 806* 807* S: $initializer_io 808* 809* T: $response 810* 811* M: Invalid input was typed. 812* 813* A: $tryagn 814* 815* 816* Message: 817* add_vol_registration: ERROR_MESSAGE. bad acs path: XPATH 818* 819* S: $initializer_io 820* 821* T: $response 822* 823* M: Invalid input was typed. 824* 825* A: $tryagn 826* 827* 828* Message: 829* add_vol_registration: ERROR_MESSAGE. invalid: XPVID 830* 831* S: $initializer_io 832* 833* T: $response 834* 835* M: Invalid input was typed. 836* 837* A: $tryagn 838* 839* 840* Message: 841* add_vol_registration: ERROR_MESSAGE. invalid: XMODEL 842* 843* S: $initializer_io 844* 845* T: $response 846* 847* M: Invalid input was typed. 848* 849* A: $tryagn 850* 851* 852* Message: 853* add_vol_registration: ERROR_MESSAGE. unknown model: XMODEL 854* 855* S: $initializer_io 856* 857* T: $response 858* 859* M: Invalid input was typed. 860* 861* A: $tryagn 862* 863* 864* Message: 865* add_vol_registration: pv already registered: PVNAME 866* 867* S: $initializer_io 868* 869* T: $response 870* 871* M: The physical volume PVNAME is already registered. 872* 873* A: $tryagn 874* Use change_vol_registration to change volume attributes. 875* 876* 877* Message: 878* add_vol_registration: -lv must be specified 879* 880* S: $initializer_io 881* 882* T: $response 883* 884* M: Invalid input was typed. 885* 886* A: $tryagn 887* 888* 889* Message: 890* add_vol_registration: ERROR_MESSAGE. cannot create: LVNAME 891* 892* S: $initializer_io 893* 894* T: $response 895* 896* M: The volume registration data base may be messed up. 897* 898* A: $inform 899* 900* 901* Message: 902* add_vol_registration: acs_path invalid: XPATH 903* 904* S: $initializer_io 905* 906* T: $response 907* 908* M: Invalid input was typed. 909* 910* A: $tryagn 911* 912* 913* Message: 914* add_vol_registration: ERROR_MESSAGE. cannot make mdcs: LVNAME 915* 916* S: $initializer_io 917* 918* T: $response 919* 920* M: The volume registration data base may be messed up. 921* 922* A: $inform 923* 924* 925* Message: 926* add_vol_registration: registered owner conflicts: OWNER 927* 928* S: $initializer_io 929* 930* T: $response 931* 932* M: -owner was specified but the logical volume existed already and had a different registered owner. 933* 934* A: $tryagn 935* Use change_vol_registration to change volume attributes. 936* 937* 938* Message: 939* add_vol_registration: registered min access class conflicts 940* 941* S: $initializer_io 942* 943* T: $response 944* 945* M: -access_low was specified but the logical volume existed already and had a different registered access_low. 946* 947* A: $tryagn 948* Use change_vol_registration to change volume attributes. 949* 950* 951* Message: 952* add_vol_registration: registered max access class conflicts 953* 954* S: $initializer_io 955* 956* T: $response 957* 958* M: -access_high was specified but the logical volume existed already and had a different registered access_high. 959* 960* A: $tryagn 961* Use change_vol_registration to change volume attributes. 962* 963* 964* Message: 965* add_vol_registration: ERROR_MESSAGE. cannot modify: LVNAME 966* 967* S: $initializer_io 968* 969* T: $response 970* 971* M: The volume registration data base may be messed up. 972* 973* A: $inform 974* 975* 976* Message: 977* change_vol_registration: ERROR_MESSAGE. pv not found: PVNAME 978* 979* S: $initializer_io 980* 981* T: $response 982* 983* M: Invalid input was typed. 984* 985* A: $tryagn 986* 987* 988* Message: 989* change_vol_registration: pv not in lv file: PVNAME 990* 991* S: $initializer_io 992* 993* T: $response 994* 995* M: The volume registration data base is messed up. 996* The registration segment for PVNAME does not contain the information for the volume. 997* 998* A: $inform 999* 1000* 1001* Message: 1002* change_vol_registration: ERROR_MESSAGE. lv not registered: LVNAME 1003* 1004* S: $initializer_io 1005* 1006* T: $response 1007* 1008* M: Invalid input was typed. 1009* 1010* A: $tryagn 1011* 1012* 1013* Message: 1014* change_vol_registration: arg neither pv nor lv: BLAH 1015* 1016* S: $initializer_io 1017* 1018* T: $response 1019* 1020* M: Invalid input was typed. 1021* 1022* A: $tryagn 1023* 1024* 1025* Message: 1026* change_vol_registration: ERROR_MESSAGE. cannot modify: LVNAME 1027* 1028* S: $initializer_io 1029* 1030* T: $response 1031* 1032* M: The volume registration data base may be messed up. 1033* 1034* A: $inform 1035* 1036* 1037* Message: 1038* change_vol_registration: ERROR_MESSAGE. mdc rename err 1039* 1040* S: $initializer_io 1041* 1042* T: $response 1043* 1044* M: The volume registration data base may be messed up. 1045* 1046* A: $inform 1047* 1048* 1049* Message: 1050* change_vol_registration: ERROR_MESSAGE. mdc lvid update err 1051* 1052* S: $initializer_io 1053* 1054* T: $response 1055* 1056* M: The volume registration data base may be messed up. 1057* 1058* A: $inform 1059* 1060* 1061* Message: 1062* del_vol_registration: ERROR_MESSAGE. pv not found: PVNAME 1063* 1064* S: $initializer_io 1065* 1066* T: $response 1067* 1068* M: Invalid input was typed. 1069* 1070* A: $tryagn 1071* 1072* 1073* Message: 1074* del_vol_registration: lv has only one pv: LVNAME 1075* 1076* S: $initializer_io 1077* 1078* T: $response 1079* 1080* M: An attempt has been made to delete the last physical volume of a logical volume. 1081* It is an error to attempt this, 1082* since it would leave a logical volume with no physical volumes. 1083* 1084* 1085* A: Use del_vol_registration lv LVNAME instead. 1086* 1087* 1088* Message: 1089* del_vol_registration: ERROR_MESSAGE. cannot modify: LVNAME 1090* 1091* S: $initializer_io 1092* 1093* T: $response 1094* 1095* M: The volume registration data base may be messed up. 1096* 1097* A: $inform 1098* 1099* 1100* Message: 1101* del_vol_registration: ERROR_MESSAGE. lv not registered: LVNAME 1102* 1103* S: $initializer_io 1104* 1105* T: $response 1106* 1107* M: Invalid input was typed. 1108* 1109* A: $tryagn 1110* 1111* 1112* Message: 1113* del_vol_registration: ERROR_MESSAGE. mdcs delete err: LVNAME 1114* 1115* S: $initializer_io 1116* 1117* T: $response 1118* 1119* M: The volume registration data base may be messed up. 1120* 1121* A: $inform 1122* 1123* 1124* Message: 1125* del_vol_registration: ERROR_MESSAGE. cannot modify: LVNAME 1126* 1127* S: $initializer_io 1128* 1129* T: $response 1130* 1131* M: The volume registration data base may be messed up. 1132* 1133* A: $inform 1134* 1135* 1136* Message: 1137* del_vol_registration: arg neither pv nor lv: BLAH 1138* 1139* S: $initializer_io 1140* 1141* T: $response 1142* 1143* M: Invalid input was typed. 1144* 1145* A: $tryagn 1146* 1147* 1148* Message: 1149* list_vol_registration: ERROR_MESSAGE. pv not found: PVNAME 1150* 1151* S: $initializer_io 1152* 1153* T: $response 1154* 1155* M: Invalid input was typed. 1156* 1157* A: $tryagn 1158* 1159* 1160* Message: 1161* list_vol_registration: pv not in lv file: PVNAME 1162* 1163* S: $initializer_io 1164* 1165* T: $response 1166* 1167* M: The volume registration data base is messed up. 1168* The registration file for PVNAME 1169* does not contain an entry for the volume. 1170* 1171* A: $inform 1172* 1173* 1174* Message: 1175* list_vol_registration: ERROR_MESSAGE. lv not registered: LVNAME 1176* 1177* S: $initializer_io 1178* 1179* T: $response 1180* 1181* M: Invalid input was typed. 1182* 1183* A: $tryagn 1184* 1185* 1186* Message: 1187* list_vol_registration: arg neither pv nor lv: BLAH 1188* 1189* S: $initializer_io 1190* 1191* T: $response 1192* 1193* M: Invalid input was typed. 1194* 1195* A: $tryagn 1196* 1197* 1198* Message: 1199* add_vol_registration: ERROR_MESSAGE. -model must be specified 1200* 1201* S: $initializer_io 1202* 1203* T: $response 1204* 1205* M: Invalid input was typed. The -model control argument must be used. 1206* 1207* A: $tryagn 1208* 1209* 1210* END MESSAGE DOCUMENTATION */ 1211 1212 end hvr_; SOURCE FILES USED IN THIS COMPILATION. LINE NUMBER DATE MODIFIED NAME PATHNAME 0 07/02/84 1133.2 hvr_.pl1 >dumps>old_dumps>hardcore>hvr_.pl1 493 1 04/29/76 1143.8 volume_registration.incl.pl1 >ldd>include>volume_registration.incl.pl1 494 2 08/17/83 1135.7 fs_dev_types.incl.pl1 >ldd>include>fs_dev_types.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. LEGAL 000033 constant char(37) initial unaligned dcl 52 ref 95 261 MODEL 000021 constant fixed bin(17,0) initial array dcl 2-19 ref 127 127 128 246 246 247 MODELN 000000 constant fixed bin(17,0) initial array dcl 2-25 set ref 417* 447* MODELX 000007 constant fixed bin(17,0) initial array dcl 2-22 ref 129 249 YESNO 000012 internal static char(3) initial array unaligned dcl 51 set ref 432* aa_string 000225 automatic char(32) dcl 32 set ref 433* 434* 435* 436* access_high 000252 automatic bit(72) initial unaligned dcl 37 set ref 37* 106* 163 198 300* 302 access_low 000250 automatic bit(72) initial unaligned dcl 36 set ref 36* 101* 162 195 295* 297 acs_path 000257 automatic char(168) initial unaligned dcl 40 in procedure "hvr_" set ref 40* 117 117 165 168 170* 173 173 174* 175* 177 307 307 310* 311* 312 acs_path 26 based char(168) level 2 in structure "volume_registration" dcl 1-5 in procedure "hvr_" set ref 177* 312* 437* addr builtin function dcl 25 ref 117 117 117 117 307 307 307 307 al 000102 automatic fixed bin(17,0) dcl 24 set ref 463* 464 467* 468 ap 000100 automatic pointer dcl 24 set ref 463* 464 467* 468 argno 000334 automatic fixed bin(17,0) initial dcl 43 set ref 43* 463* 466* 466 467* b36 000235 automatic bit(36) initial dcl 33 set ref 33* 121* 202 202* 203 271* 274* 279 331* 334* 340 bchr based char unaligned dcl 24 ref 464 468 bit builtin function dcl 25 ref 151 202 clock_ 000024 constant entry external dcl 61 ref 151 202 213 com_err_ 000026 constant entry external dcl 62 ref 132 175 187 190 206 244 247 258 264 272 277 283 296 301 308 311 317 323 332 337 344 476 comname 000215 automatic char(32) initial unaligned dcl 31 set ref 31* 132* 175* 187* 190* 206* 226* 244* 247* 258* 264* 272* 277* 283* 296* 301* 308* 311* 317* 323* 332* 337* 344* 360* 402* 476* convert_aim_attributes_ 000032 constant entry external dcl 64 ref 433 435 convert_authorization_$from_string 000030 constant entry external dcl 63 ref 101 106 295 300 convert_date_to_binary_ 000034 constant entry external dcl 65 ref 257 cu_$arg_ptr 000042 constant entry external dcl 68 ref 463 467 cv_dec_check_ 000036 constant entry external dcl 66 ref 125 243 cv_oct_check_ 000040 constant entry external dcl 67 ref 121 271 331 date_registered 134 based fixed bin(71,0) array level 3 dcl 1-5 set ref 213* 257* ec 000360 automatic fixed bin(35,0) initial dcl 49 set ref 49* 88* 91* 101* 102 106* 107 117* 118 121* 122 125* 126 137* 141* 142 143* 146* 147 148* 149 174* 175 175* 179* 180 181* 182 182 189* 190 190* 205* 206 206* 216* 217 227* 229* 233* 234 243* 244 244* 247* 257* 258 258* 263* 264 264* 271* 272 272* 275* 277 277* 283* 288* 289 295* 296 296* 300* 301 301* 307* 308 308* 310* 311 311* 322* 323 323* 331* 332 332* 335* 337 337* 349* 350 352* 353 354* 355 361* 363* 367* 368 371* 375* 381* 382 387* 388 389* 390 394* 395 403* 405* 409* 410 425* 426 476* errc 000402 automatic fixed bin(35,0) dcl 461 set ref 463* 464 467* 468 error_table_$badopt 000014 external static fixed bin(35,0) dcl 54 set ref 132* error_table_$namedup 000016 external static fixed bin(35,0) dcl 57 ref 182 error_table_$noarg 000020 external static fixed bin(35,0) dcl 58 ref 137 expand_path_ 000044 constant entry external dcl 69 ref 117 307 fixed builtin function dcl 25 ref 151 202 432 flags 100 based structure level 2 dcl 1-5 gave_access_high 000255 automatic bit(1) initial unaligned dcl 38 set ref 38* 108* 198 gave_access_low 000254 automatic bit(1) initial unaligned dcl 38 set ref 38* 103* 195 get_group_id_ 000046 constant entry external dcl 70 ref 155 hbound builtin function dcl 25 ref 127 128 246 247 hcs_$make_seg 000050 constant entry external dcl 71 ref 88 227 361 403 hcs_$truncate_seg 000052 constant entry external dcl 72 ref 148 hvid 1 based bit(36) level 2 dcl 1-5 set ref 151* 152* 219* 335* 339 340* 430* hvname 2 based char(32) level 2 dcl 1-5 set ref 153* 235 325* 369 411 419* i 000331 automatic fixed bin(17,0) dcl 41 set ref 116* 117* 125* 127 156* 157 166* 167 186* 186* 187 203 204 208 209 210 211 212 213 214 214 236* 236* 237 250 254 255 257 266 275 279 306* 307* 372* 372* 373 374 376 391* 392* 412* 412* 413 414 415 416 417 418 440* 441 444 445 446 447 448* index builtin function dcl 25 ref 169 173 484 486 initializer_mdc_$chname_hv 000054 constant entry external dcl 73 ref 189 205 263 275 322 335 371 375 initializer_mdc_$delete_hv 000056 constant entry external dcl 74 ref 394 initializer_mdc_$make_link 000060 constant entry external dcl 75 ref 174 310 initializer_mdc_$read_hv 000062 constant entry external dcl 76 ref 146 288 387 425 initializer_mdc_$read_pv 000064 constant entry external dcl 77 ref 141 233 367 409 initializer_mdc_$write_hv 000066 constant entry external dcl 78 ref 179 216 349 381 ioa_ 000070 constant entry external dcl 79 ref 219 392 414 415 416 417 418 419 429 430 431 432 434 436 437 438 441 444 445 446 447 448 453 j 000332 automatic fixed bin(17,0) dcl 41 set ref 169* 170 243* 246 376* 377 377* length builtin function dcl 25 ref 116 156 166 306 location 114 based char(32) initial array level 3 dcl 1-5 set ref 210* 255* 418* 448* lvname 000123 automatic char(32) initial unaligned dcl 28 set ref 28* 99* 145 146* 149 153 166 166 167 179* 180 181* 182 187* 189* 190* 205* 206* 216* 217 219* 235* 263* 275* 287* 288* 289 322* 322 326 327* 335* 349* 350 352* 354* 369* 370 371* 375* 381* 382 386* 387* 388 389* 390 394* 395 411* 424* 425* 426 429* max_access_class 12 based bit(72) level 2 dcl 1-5 set ref 163* 198 302* 435* mdc_priv_$delete_mdcs 000076 constant entry external dcl 82 ref 389 mdc_priv_$make_mdcs 000072 constant entry external dcl 80 ref 181 mdc_priv_$rename_mdcs 000074 constant entry external dcl 81 ref 352 mdc_priv_$update_hvid 000100 constant entry external dcl 83 ref 354 mfg_serial 124 based char(32) array level 3 dcl 1-5 set ref 211* 254* 416* 446* min_access_class 14 based bit(72) level 2 dcl 1-5 set ref 162* 195 297* 433* model 103 based fixed bin(17,0) array level 3 in structure "volume_registration" dcl 1-5 in procedure "hvr_" set ref 208* 250* 417 447 model 000357 automatic fixed bin(17,0) initial dcl 48 in procedure "hvr_" set ref 48* 127* 127* 128 129* 129 135 208 246* 246* 247 249* 249 250 more_args 000333 automatic bit(1) initial unaligned dcl 42 set ref 42* 96 239 291 468* new_lv 000256 automatic bit(1) initial unaligned dcl 39 set ref 39* 183* 219 npv 101 based fixed bin(17,0) level 2 dcl 1-5 set ref 186 187 214 214* 236 237 370 372 373 376 379* 379 391 412 413 438* 440 null builtin function dcl 25 ref 88 117 117 227 307 307 361 403 old_lvid 000236 automatic bit(36) initial unaligned dcl 34 set ref 34* 339* 354 354* old_lvname 000237 automatic char(32) initial unaligned dcl 35 set ref 35* 326* 352 352* owner 000346 automatic char(32) initial unaligned dcl 46 set ref 46* 154 160 169 170 170 192 192 318 487* owneri 000356 automatic fixed bin(17,0) dcl 47 set ref 112 169 170 170 317 484* 485 486 486* password 136 based bit(2) array level 3 dcl 1-5 set ref 212* pubbit 000345 automatic bit(1) initial unaligned dcl 45 set ref 45* 114* 161 165 public 100 based bit(1) level 3 packed unaligned dcl 1-5 set ref 161* 304* 432 pv 102 based structure array level 2 dcl 1-5 set ref 377* 377 pvid 102 based bit(36) array level 3 dcl 1-5 set ref 203* 204* 275* 279* 374* 415* 445* pvname 104 based char(32) array level 3 in structure "volume_registration" dcl 1-5 in procedure "hvr_" set ref 186 209* 236 266* 372 392* 412 414* 441* 444* pvname 000113 automatic char(32) initial unaligned dcl 27 in procedure "hvr_" set ref 27* 93* 94 95 95 141* 142 186 187* 189 190* 209 232* 233* 234 236 237 263 267* 366* 367* 368 371 372 408* 409* 410 412 421 reverse builtin function dcl 25 ref 116 156 166 306 rtrim builtin function dcl 25 ref 95 261 serial 000335 automatic char(32) initial unaligned dcl 44 set ref 44* 131* 211 substr builtin function dcl 25 set ref 151 157* 167 169 170 170 202 486 svrp 000010 internal static pointer initial dcl 23 set ref 88 88* 89 227 227* 228 361 361* 362 403 403* 404 sys_info$access_class_ceiling 000022 external static bit(72) dcl 59 ref 37 tcs 000133 automatic char(32) initial unaligned dcl 29 set ref 29* 90* 92 92 97* 99 100 105 110 114 115 120 124 131 132* 230* 231 240* 242 254 255 256 260 270 283* 286 292* 294 299 304 305 315 320 330 344* 347 364* 365 385 397 406* 407 423 427* 428 428 441 441 452 tcs1 000143 automatic char(168) initial unaligned dcl 30 set ref 30* 98* 99 101* 102 106* 107 112 114 116 116 117 117 118 121* 122 125* 126 128 131 155* 156 156 157* 241* 243* 244* 247* 254 255 257* 258* 261 261 262 266 267 271* 272* 283* 293* 295* 296* 300* 301* 304 306 306 307 307 308* 317* 321 325 327 331* 332* 484 486 487 uname 000103 automatic char(32) unaligned dcl 26 set ref 152* 167* 170 173 204* 205* 206* 262* 263* 264* 274* 275* 277* 321* 322* 323* 334* 335* 337* 374* 375* unique_chars_ 000102 constant entry external dcl 84 ref 152 204 274 275 334 335 374 verify builtin function dcl 25 ref 95 116 156 166 261 306 version based fixed bin(17,0) initial level 2 dcl 1-5 set ref 150* volume_owner 16 based char(32) level 2 dcl 1-5 set ref 160* 192 192 318* 431* volume_registration based structure level 1 dcl 1-5 vrp 000362 automatic pointer dcl 1-3 set ref 89* 141* 146* 148* 150 151 152 153 160 161 162 163 177 179* 186 186 187 192 192 195 198 203 204 208 209 210 211 212 213 214 214 216* 219 228* 233* 235 236 236 237 250 254 255 257 266 275 279 288* 297 302 304 312 318 325 335 339 340 349* 362* 367* 369 370 372 372 373 374 376 377 377 379 379 381* 387* 391 392 404* 409* 411 412 412 413 414 415 416 417 418 419 425* 430 431 432 433 435 437 438 440 441 444 445 446 447 448 x parameter char unaligned dcl 460 in procedure "getarg" set ref 458 464* 465* x parameter char unaligned dcl 474 in procedure "FAIL" set ref 472 476* NAMES DECLARED BY DECLARE STATEMENT AND NEVER REFERENCED. bulkdevt internal static fixed bin(4,0) initial dcl 2-7 cyl_per_dev internal static fixed bin(17,0) initial array dcl 2-43 dev_time internal static float bin(27) initial array dcl 2-85 device_names internal static char(4) initial array dcl 2-28 dsu181devt internal static fixed bin(4,0) initial dcl 2-7 dsu190devt internal static fixed bin(4,0) initial dcl 2-7 dsu191devt internal static fixed bin(4,0) initial dcl 2-7 error_table_$bad_volid external static fixed bin(35,0) dcl 55 error_table_$segnamedup external static fixed bin(35,0) dcl 56 first_alt_sect_num internal static fixed bin(24,0) initial array dcl 2-76 first_rec_num internal static fixed bin(17,0) initial array dcl 2-64 first_sect_num internal static fixed bin(24,0) initial array dcl 2-70 last_alt_sect_num internal static fixed bin(24,0) initial array dcl 2-79 last_physical_sect_num internal static fixed bin(24,0) initial array dcl 2-82 last_rec_num internal static fixed bin(18,0) initial array dcl 2-67 last_sect_num internal static fixed bin(24,0) initial array dcl 2-73 maxdevt internal static fixed bin(4,0) initial dcl 2-7 media_removable internal static bit(1) initial array unaligned dcl 2-31 msu0400devt internal static fixed bin(4,0) initial dcl 2-7 msu0450devt internal static fixed bin(4,0) initial dcl 2-7 msu0451devt internal static fixed bin(4,0) initial dcl 2-7 msu0500devt internal static fixed bin(4,0) initial dcl 2-7 msu0501devt internal static fixed bin(4,0) initial dcl 2-7 needs_alt_part internal static bit(1) initial array unaligned dcl 2-37 rec_per_cyl internal static fixed bin(17,0) initial array dcl 2-46 rec_per_dev internal static fixed bin(17,0) initial array dcl 2-40 sect_per_cyl internal static fixed bin(17,0) initial array dcl 2-49 sect_per_rec internal static fixed bin(17,0) initial array dcl 2-52 sect_per_track internal static fixed bin(17,0) initial array dcl 2-58 shared_spindle internal static bit(1) initial array unaligned dcl 2-34 tracks_per_cyl internal static fixed bin(17,0) initial array dcl 2-55 words_per_sect internal static fixed bin(17,0) initial array dcl 2-61 NAMES DECLARED BY EXPLICIT CONTEXT. FAIL 007634 constant entry internal dcl 472 ref 92 94 95 102 107 112 118 122 126 128 138 142 145 149 173 180 182 192 195 198 217 234 237 261 289 347 350 353 355 368 370 382 388 390 395 397 410 421 426 452 add_volume_registration 001020 constant entry external dcl 86 bust 007534 constant label dcl 480 ref 477 change_volume_registration 003176 constant entry external dcl 224 check_owner 007677 constant entry internal dcl 482 ref 111 158 316 del_volume_registration 005560 constant entry external dcl 358 getarg 007535 constant entry internal dcl 458 ref 90 93 97 98 230 232 240 241 287 292 293 364 366 386 406 408 424 427 hvr_ 001010 constant entry external dcl 11 list_volume_registration 006351 constant entry external dcl 400 THERE WERE NO NAMES DECLARED BY CONTEXT OR IMPLICATION. STORAGE REQUIREMENTS FOR THIS PROGRAM. Object Text Link Symbol Defs Static Start 0 0 10754 11060 10353 10764 Length 11436 10353 104 342 400 4 BLOCK NAME STACK SIZE TYPE WHY NONQUICK/WHO SHARES STACK FRAME hvr_ 484 external procedure is an external procedure. getarg internal procedure shares stack frame of external procedure hvr_. FAIL internal procedure shares stack frame of external procedure hvr_. check_owner internal procedure shares stack frame of external procedure hvr_. STORAGE FOR INTERNAL STATIC VARIABLES. LOC IDENTIFIER BLOCK NAME 000010 svrp hvr_ 000012 YESNO hvr_ STORAGE FOR AUTOMATIC VARIABLES. STACK FRAME LOC IDENTIFIER BLOCK NAME hvr_ 000100 ap hvr_ 000102 al hvr_ 000103 uname hvr_ 000113 pvname hvr_ 000123 lvname hvr_ 000133 tcs hvr_ 000143 tcs1 hvr_ 000215 comname hvr_ 000225 aa_string hvr_ 000235 b36 hvr_ 000236 old_lvid hvr_ 000237 old_lvname hvr_ 000250 access_low hvr_ 000252 access_high hvr_ 000254 gave_access_low hvr_ 000255 gave_access_high hvr_ 000256 new_lv hvr_ 000257 acs_path hvr_ 000331 i hvr_ 000332 j hvr_ 000333 more_args hvr_ 000334 argno hvr_ 000335 serial hvr_ 000345 pubbit hvr_ 000346 owner hvr_ 000356 owneri hvr_ 000357 model hvr_ 000360 ec hvr_ 000362 vrp hvr_ 000402 errc getarg THE FOLLOWING EXTERNAL OPERATORS ARE USED BY THIS PROGRAM. r_e_as alloc_cs cat_realloc_cs call_ext_out_desc call_ext_out return shorten_stack ext_entry set_cs_eis index_cs_eis THE FOLLOWING EXTERNAL ENTRIES ARE CALLED BY THIS PROGRAM. clock_ com_err_ convert_aim_attributes_ convert_authorization_$from_string convert_date_to_binary_ cu_$arg_ptr cv_dec_check_ cv_oct_check_ expand_path_ get_group_id_ hcs_$make_seg hcs_$truncate_seg initializer_mdc_$chname_hv initializer_mdc_$delete_hv initializer_mdc_$make_link initializer_mdc_$read_hv initializer_mdc_$read_pv initializer_mdc_$write_hv ioa_ mdc_priv_$delete_mdcs mdc_priv_$make_mdcs mdc_priv_$rename_mdcs mdc_priv_$update_hvid unique_chars_ THE FOLLOWING EXTERNAL VARIABLES ARE USED BY THIS PROGRAM. error_table_$badopt error_table_$namedup error_table_$noarg sys_info$access_class_ceiling CONSTANTS 007736 aa 000002000000 007737 aa 000002000000 007740 aa 600000000041 007741 aa 000426000000 007742 ta 000054000000 007743 aa 000000000000 007744 aa 000002000000 007745 aa 000002000000 007746 aa 600000000041 007747 aa 000426000000 007750 ta 000055000000 007751 aa 000000000000 007752 aa 000002000000 007753 aa 000002000000 007754 aa 600000000041 007755 aa 000426000000 007756 ta 000074000000 007757 aa 000000000000 007760 aa 000002000000 007761 aa 000002000000 007762 aa 600000000041 007763 aa 000426000000 007764 ta 000056000000 007765 aa 000000000000 007766 aa 000002000000 007767 aa 000002000000 007770 aa 600000000041 007771 aa 000123000000 007772 ta 000132000000 007773 aa 000000000000 007774 aa 000002000000 007775 aa 000002000000 007776 aa 600000000041 007777 aa 000624000000 010000 ta 000065000000 010001 aa 000000000000 010002 aa 000002000000 010003 aa 000002000000 010004 aa 600000000041 010005 aa 000426000000 010006 ta 000071000000 010007 aa 000000000000 010010 aa 000002000000 010011 aa 000002000000 010012 aa 600000000041 010013 aa 000426000000 010014 ta 000072000000 010015 aa 000000000000 010016 aa 000002000000 010017 aa 000002000000 010020 aa 600000000041 010021 aa 000426000000 010022 ta 000075000000 010023 aa 000000000000 010024 aa 000002000000 010025 aa 000002000000 010026 aa 600000000041 010027 aa 000426000000 010030 ta 000101000000 010031 aa 000000000000 010032 aa 000002000000 010033 aa 000002000000 010034 aa 600000000041 010035 aa 000544000000 010036 ta 000103000000 010037 aa 000000000000 010040 aa 000002000000 010041 aa 000002000000 010042 aa 600000000041 010043 aa 000426000000 010044 ta 000106000000 010045 aa 000000000000 010046 aa 000002000000 010047 aa 000002000000 010050 aa 600000000041 010051 aa 000426000000 010052 ta 000107000000 010053 aa 000000000000 010054 aa 000002000000 010055 aa 000002000000 010056 aa 600000000041 010057 aa 000426000000 010060 ta 000110000000 010061 aa 000000000000 010062 aa 000002000000 010063 aa 000002000000 010064 aa 600000000041 010065 aa 000460000000 010066 ta 000112000000 010067 aa 000000000000 010070 aa 000002000000 010071 aa 000002000000 010072 aa 600000000041 010073 aa 000460000000 010074 ta 000115000000 010075 aa 000000000000 010076 aa 000002000000 010077 aa 000002000000 010100 aa 600000000041 010101 aa 000460000000 010102 ta 000116000000 010103 aa 000000000000 010104 aa 000002000000 010105 aa 000002000000 010106 aa 600000000041 010107 aa 000143000000 010110 ta 000121000000 010111 aa 000000000000 010112 aa 000002000000 010113 aa 000002000000 010114 aa 600000000041 010115 aa 000426000000 010116 ta 000122000000 010117 aa 000000000000 010120 aa 777 777 777 777 ÿÿÿÿ 010121 aa 777 777 777 777 ÿÿÿÿ 010122 aa 777 777 777 777 ÿÿÿÿ 010123 aa 777 777 777 777 ÿÿÿÿ 010124 aa 777 777 777 777 ÿÿÿÿ 010125 aa 777 777 777 777 ÿÿÿÿ 010126 aa 777 777 777 777 ÿÿÿÿ 010127 aa 777 777 777 777 ÿÿÿÿ 010130 aa 777 777 777 777 ÿÿÿÿ 010131 aa 777 777 777 777 ÿÿÿÿ 010132 aa 777 777 777 777 ÿÿÿÿ 010133 aa 777 777 777 777 ÿÿÿÿ 010134 aa 000 000 000 000 010135 aa 000 000 000 000 010136 aa 000 000 777 777 ÿÿ 010137 aa 777 777 777 777 ÿÿÿÿ 010140 aa 777 777 777 777 ÿÿÿÿ 010141 aa 777 777 777 777 ÿÿÿÿ 010142 aa 777 777 777 777 ÿÿÿÿ 010143 aa 777 777 777 777 ÿÿÿÿ 010144 aa 777 777 777 777 ÿÿÿÿ 010145 aa 777 777 777 777 ÿÿÿÿ 010146 aa 777 777 777 777 ÿÿÿÿ 010147 aa 777 777 777 000 ÿÿÿ 010150 aa 777 000 000 000 ÿ 010151 aa 000 000 000 000 010152 aa 000 000 000 000 010153 aa 000 000 000 000 010154 aa 000 000 000 000 010155 aa 000 000 000 000 010156 aa 000 000 000 777 ÿ 010157 aa 777 777 777 777 ÿÿÿÿ 010160 aa 777 777 777 777 ÿÿÿÿ 010161 aa 777 777 777 777 ÿÿÿÿ 010162 aa 777 777 777 777 ÿÿÿÿ 010163 aa 777 777 777 777 ÿÿÿÿ 010164 aa 777 777 777 777 ÿÿÿÿ 010165 aa 777 777 777 777 ÿÿÿÿ 010166 aa 777 777 777 777 ÿÿÿÿ 010167 aa 777 777 777 777 ÿÿÿÿ 010170 aa 777 777 777 777 ÿÿÿÿ 010171 aa 777 777 777 777 ÿÿÿÿ 010172 aa 777 777 777 777 ÿÿÿÿ 010173 aa 777 777 777 777 ÿÿÿÿ 010174 aa 777 777 777 777 ÿÿÿÿ 010175 aa 777 777 777 777 ÿÿÿÿ 010176 aa 777 777 777 777 ÿÿÿÿ 010177 aa 777 777 777 777 ÿÿÿÿ 010200 aa 777 777 777 777 ÿÿÿÿ 010201 aa 777 777 777 777 ÿÿÿÿ 010202 aa 777 777 777 777 ÿÿÿÿ 010203 aa 777 777 777 777 ÿÿÿÿ 010204 aa 777 777 777 777 ÿÿÿÿ 010205 aa 777 777 777 777 ÿÿÿÿ 010206 aa 777 777 777 777 ÿÿÿÿ 010207 aa 777 777 777 777 ÿÿÿÿ 010210 aa 777 777 777 777 ÿÿÿÿ 010211 aa 777 777 777 777 ÿÿÿÿ 010212 aa 777 777 777 777 ÿÿÿÿ 010213 aa 777 777 777 777 ÿÿÿÿ 010214 aa 777 777 777 777 ÿÿÿÿ 010215 aa 777 777 777 777 ÿÿÿÿ 010216 aa 777 777 777 777 ÿÿÿÿ 010217 aa 777 777 777 777 ÿÿÿÿ 010220 aa 777 777 777 777 ÿÿÿÿ 010221 aa 777 777 777 777 ÿÿÿÿ 010222 aa 777 777 777 777 ÿÿÿÿ 010223 aa 777 777 777 777 ÿÿÿÿ 010224 aa 777 777 777 777 ÿÿÿÿ 010225 aa 777 777 777 777 ÿÿÿÿ 010226 aa 777 777 777 777 ÿÿÿÿ 010227 aa 777 777 777 777 ÿÿÿÿ 010230 aa 777 777 777 777 ÿÿÿÿ 010231 aa 777 777 777 777 ÿÿÿÿ 010232 aa 777 777 777 777 ÿÿÿÿ 010233 aa 777 777 777 777 ÿÿÿÿ 010234 aa 777 777 777 777 ÿÿÿÿ 010235 aa 777 777 777 777 ÿÿÿÿ 010236 aa 777 777 777 777 ÿÿÿÿ 010237 aa 777 777 777 777 ÿÿÿÿ 010240 aa 777 777 777 777 ÿÿÿÿ 010241 aa 777 777 777 777 ÿÿÿÿ 010242 aa 777 777 777 777 ÿÿÿÿ 010243 aa 777 777 777 777 ÿÿÿÿ 010244 aa 777 777 777 777 ÿÿÿÿ 010245 aa 777 777 777 777 ÿÿÿÿ 010246 aa 777 777 777 777 ÿÿÿÿ 010247 aa 777 777 777 777 ÿÿÿÿ 010250 aa 777 777 777 777 ÿÿÿÿ 010251 aa 777 777 777 777 ÿÿÿÿ 010252 aa 777 777 777 777 ÿÿÿÿ 010253 aa 777 777 777 777 ÿÿÿÿ 010254 aa 777 777 777 777 ÿÿÿÿ 010255 aa 777 777 777 777 ÿÿÿÿ 010256 aa 777 777 777 777 ÿÿÿÿ 010257 aa 777 777 777 777 ÿÿÿÿ 010260 aa 777 777 777 777 ÿÿÿÿ 010261 aa 777 777 777 777 ÿÿÿÿ 010262 aa 777 777 777 777 ÿÿÿÿ 010263 aa 777 777 777 777 ÿÿÿÿ 010264 aa 777 777 777 777 ÿÿÿÿ 010265 aa 777 777 777 777 ÿÿÿÿ 010266 aa 777 777 777 777 ÿÿÿÿ 010267 aa 777 777 777 777 ÿÿÿÿ 010270 aa 777 777 777 777 ÿÿÿÿ 010271 aa 777 777 777 777 ÿÿÿÿ 010272 aa 777 777 777 777 ÿÿÿÿ 010273 aa 777 777 777 777 ÿÿÿÿ 010274 aa 777 777 777 777 ÿÿÿÿ 010275 aa 777 777 777 777 ÿÿÿÿ 010276 aa 777 777 777 777 ÿÿÿÿ 010277 aa 777 777 777 777 ÿÿÿÿ 010300 aa 777 777 777 777 ÿÿÿÿ 010301 aa 777 777 777 777 ÿÿÿÿ 010302 aa 777 777 777 777 ÿÿÿÿ 010303 aa 777 777 777 777 ÿÿÿÿ 010304 aa 777 777 777 777 ÿÿÿÿ 010305 aa 777 777 777 777 ÿÿÿÿ 010306 aa 777 777 777 777 ÿÿÿÿ 010307 aa 777 777 777 777 ÿÿÿÿ 010310 aa 777 777 777 777 ÿÿÿÿ 010311 aa 777 777 777 777 ÿÿÿÿ 010312 aa 777 777 777 777 ÿÿÿÿ 010313 aa 777 777 777 777 ÿÿÿÿ 010314 aa 777 777 777 777 ÿÿÿÿ 010315 aa 777 777 777 777 ÿÿÿÿ 010316 aa 777 777 777 777 ÿÿÿÿ 010317 aa 777 777 777 777 ÿÿÿÿ 010320 aa 000002000000 010321 aa 000002000000 010322 aa 600000000041 010323 aa 000426000000 010324 ta 000123000000 010325 aa 000000000000 010326 aa 000002000000 010327 aa 000002000000 010330 aa 600000000041 010331 aa 000113000000 010332 ta 000132000000 010333 aa 000000000000 010334 aa 000002000000 010335 aa 000002000000 010336 aa 600000000041 010337 aa 000426000000 010340 ta 000124000000 010341 aa 000000000000 010342 aa 000002000000 010343 aa 000002000000 010344 aa 600000000041 010345 aa 000133000000 010346 ta 000132000000 010347 aa 000000000000 000000 aa 000000000000 000001 aa 000000000764 000002 aa 000000000703 000003 aa 000000000620 000004 aa 000000000276 000005 aa 000000000265 000006 aa 000000000765 000007 aa 000000000001 000010 aa 000000000002 000011 aa 000000000003 000012 aa 000000000003 000013 aa 000000000004 000014 aa 000000000004 000015 aa 000000000004 000016 aa 000000000005 000017 aa 000000000006 000020 aa 000000000007 000021 aa 000000000000 000022 aa 000000000764 000023 aa 000000000703 000024 aa 000000000702 000025 aa 000000000620 000026 aa 000000000622 000027 aa 000000000277 000030 aa 000000000276 000031 aa 000000000265 000032 aa 000000000765 000033 aa 060 061 062 063 0123 000034 aa 064 065 066 067 4567 000035 aa 070 071 141 142 89ab 000036 aa 143 144 145 146 cdef 000037 aa 147 150 151 152 ghij 000040 aa 153 154 155 156 klmn 000041 aa 157 160 161 162 opqr 000042 aa 163 164 165 166 stuv 000043 aa 167 170 171 172 wxyz 000044 aa 137 000 000 000 _ 000045 aa 526077777777 000046 aa 156 157 156 145 none 000047 aa 524000000250 000050 aa 526000000003 000051 aa 055 142 146 000 -bf 000052 aa 524000000015 000053 aa 524000000040 000054 aa 524000000061 000055 aa 524000000064 000056 aa 524000000016 000057 aa 524000000027 000060 aa 524000000031 000061 aa 154 166 056 000 lv. 000062 aa 524000000017 000063 aa 524000000020 010350 aa 154 166 000 000 lv 000064 aa 524000000024 000065 aa 524000000304 000066 aa 524000000014 000067 aa 524000000021 000070 aa 524000000013 000071 aa 524000000063 000072 aa 524000000056 000073 aa 524000000041 000074 aa 524000000023 000075 aa 524000000045 000076 aa 524000000043 000077 aa 160 166 056 000 pv. 000100 aa 524000000036 000101 aa 524000000062 000102 aa 524000000026 000103 aa 524000000272 010351 aa 076 000 000 000 > 000104 aa 056 141 143 163 .acs 000105 aa 514000000044 000106 aa 524000000057 000107 aa 524000000067 000110 aa 524000000030 000111 aa 524000000002 000112 aa 524000000261 000113 aa 055 141 143 163 -acs 000114 aa 171 145 163 000 yes 000115 aa 524000000267 000116 aa 524000000266 000117 aa 516000000110 000120 aa 055 154 166 000 -lv 000121 aa 526000000250 000122 aa 524000000074 000123 aa 524000000025 000124 aa 524000000055 010352 aa 160 166 000 000 pv 000125 aa 404000000043 000126 aa 464000000000 000127 aa 404000000005 000130 aa 524000000000 000131 aa 526000000017 000132 aa 526000000040 000133 aa 516000000044 000134 aa 404000000021 000135 aa 410000000107 000136 aa 000000000000 000137 aa 000000000000 000140 aa 055 142 162 151 -bri 000141 aa 145 146 000 000 ef 000142 aa 055 154 166 151 -lvi 000143 aa 144 000 000 000 d 000144 aa 055 156 141 155 -nam 000145 aa 145 000 000 000 e 000146 aa 160 166 151 144 pvid 000147 aa 056 000 000 000 . 000150 aa 076 165 144 144 >udd 000151 aa 076 000 000 000 > 000152 aa 154 166 151 144 lvid 000153 aa 056 000 000 000 . 000154 aa 055 163 145 162 -ser 000155 aa 151 141 154 000 ial 000156 aa 055 155 157 144 -mod 000157 aa 145 154 000 000 el 000160 aa 055 160 166 151 -pvi 000161 aa 144 000 000 000 d 000162 aa 055 160 165 142 -pub 000163 aa 154 151 143 000 lic 000164 aa 055 157 167 156 -own 000165 aa 145 162 000 000 er 000166 aa 077777000043 000167 aa 000001000000 000170 aa 040 160 166 151 pvi 000171 aa 144 072 136 055 d:^- 000172 aa 136 055 136 167 ^-^w 000173 aa 136 057 156 160 ^/np 000174 aa 166 072 136 055 v:^- 000175 aa 136 055 136 144 ^-^d 000176 aa 157 167 156 145 owne 000177 aa 162 072 136 055 r:^- 000200 aa 136 055 136 141 ^-^a 000201 aa 154 166 151 144 lvid 000202 aa 072 136 055 136 :^-^ 000203 aa 055 136 167 000 -^w 000204 aa 155 157 144 145 mode 000205 aa 154 072 136 055 l:^- 000206 aa 136 055 136 144 ^-^d 000207 aa 160 166 151 144 pvid 000210 aa 072 136 055 136 :^-^ 000211 aa 055 136 167 000 -^w 000212 aa 142 141 144 040 bad 000213 aa 144 141 164 145 date 000214 aa 072 040 136 141 : ^a 000215 aa 055 154 157 143 -loc 000216 aa 141 164 151 157 atio 000217 aa 156 000 000 000 n 000220 aa 151 156 166 141 inva 000221 aa 154 151 144 072 lid: 000222 aa 040 136 141 000 ^a 000223 aa 151 156 166 141 inva 000224 aa 154 151 144 072 lid: 000225 aa 040 000 000 000 000226 aa 055 141 143 143 -acc 000227 aa 145 163 163 137 ess_ 000230 aa 150 151 147 150 high 000231 aa 055 141 143 143 -acc 000232 aa 145 163 163 137 ess_ 000233 aa 154 157 167 000 low 000234 aa 040 154 157 143 loc 000235 aa 141 164 151 157 atio 000236 aa 156 072 136 055 n:^- 000237 aa 136 141 000 000 ^a 000240 aa 040 155 157 144 mod 000241 aa 145 154 072 136 el:^ 000242 aa 055 136 055 136 -^-^ 000243 aa 144 000 000 000 d 000244 aa 040 163 145 162 ser 000245 aa 151 141 154 072 ial: 000246 aa 136 055 136 055 ^-^- 000247 aa 136 141 000 000 ^a 000250 aa 136 057 040 160 ^/ p 000251 aa 166 156 141 155 vnam 000252 aa 145 072 136 055 e:^- 000253 aa 136 141 000 000 ^a 000254 aa 141 143 163 137 acs_ 000255 aa 160 141 164 150 path 000256 aa 072 136 055 136 :^-^ 000257 aa 055 136 141 000 -^a 000260 aa 160 165 142 154 publ 000261 aa 151 143 072 136 ic:^ 000262 aa 055 136 055 136 -^-^ 000263 aa 141 000 000 000 a 000264 aa 136 057 154 166 ^/lv 000265 aa 156 141 155 145 name 000266 aa 072 136 055 136 :^-^ 000267 aa 141 000 000 000 a 000270 aa 154 166 156 141 lvna 000271 aa 155 145 072 136 me:^ 000272 aa 055 136 055 136 -^-^ 000273 aa 141 000 000 000 a 000274 aa 154 157 143 141 loca 000275 aa 164 151 157 156 tion 000276 aa 072 136 055 136 :^-^ 000277 aa 055 136 141 000 -^a 000300 aa 163 145 162 151 seri 000301 aa 141 154 072 136 al:^ 000302 aa 055 136 055 136 -^-^ 000303 aa 141 000 000 000 a 000304 aa 136 057 160 166 ^/pv 000305 aa 156 141 155 145 name 000306 aa 072 136 055 136 :^-^ 000307 aa 141 000 000 000 a 000310 aa 122 145 154 145 Rele 000311 aa 141 163 151 156 asin 000312 aa 147 040 160 166 g pv 000313 aa 040 136 141 000 ^a 000314 aa 155 144 143 040 mdc 000315 aa 162 145 156 141 rena 000316 aa 155 145 040 145 me e 000317 aa 162 162 000 000 rr 000320 aa 143 141 156 156 cann 000321 aa 157 164 040 154 ot l 000322 aa 151 156 153 072 ink: 000323 aa 040 136 141 000 ^a 000324 aa 142 141 144 040 bad 000325 aa 141 143 163 040 acs 000326 aa 160 141 164 150 path 000327 aa 072 040 136 141 : ^a 000330 aa 151 154 154 145 ille 000331 aa 147 141 154 040 gal 000332 aa 141 165 164 150 auth 000333 aa 072 040 136 141 : ^a 000334 aa 055 144 141 164 -dat 000335 aa 145 137 162 145 e_re 000336 aa 147 151 163 164 gist 000337 aa 145 162 145 144 ered 000340 aa 160 166 040 156 pv n 000341 aa 157 164 040 146 ot f 000342 aa 157 165 156 144 ound 000343 aa 072 040 000 000 : 000344 aa 143 141 156 156 cann 000345 aa 157 164 040 155 ot m 000346 aa 157 144 151 146 odif 000347 aa 171 072 040 000 y: 000350 aa 165 156 151 156 unin 000351 aa 151 164 151 141 itia 000352 aa 154 151 172 145 lize 000353 aa 144 000 000 000 d 000354 aa 143 141 156 156 cann 000355 aa 157 164 040 143 ot c 000356 aa 162 145 141 164 reat 000357 aa 145 072 040 000 e: 000360 aa 165 156 153 156 unkn 000361 aa 157 167 156 040 own 000362 aa 155 157 144 145 mode 000363 aa 154 072 040 000 l: 000364 aa 142 141 144 040 bad 000365 aa 141 143 163 040 acs 000366 aa 160 141 164 150 path 000367 aa 072 040 000 000 : 000370 aa 151 156 166 141 inva 000371 aa 154 151 144 040 lid 000372 aa 157 167 156 145 owne 000373 aa 162 072 040 000 r: 000374 aa 151 154 154 145 ille 000375 aa 147 141 154 040 gal 000376 aa 141 165 164 150 auth 000377 aa 072 040 000 000 : 000400 aa 165 156 153 156 unkn 000401 aa 157 167 156 040 own 000402 aa 141 162 147 072 arg: 000403 aa 040 000 000 000 000404 aa 141 144 144 137 add_ 000405 aa 166 157 154 137 vol_ 000406 aa 162 145 147 151 regi 000407 aa 163 164 162 141 stra 000410 aa 164 151 157 156 tion 000411 aa 155 144 143 163 mdcs 000412 aa 040 144 145 154 del 000413 aa 145 164 145 040 ete 000414 aa 145 162 162 072 err: 000415 aa 040 000 000 000 000416 aa 154 166 040 150 lv h 000417 aa 141 163 040 157 as o 000420 aa 156 154 171 040 nly 000421 aa 157 156 145 040 one 000422 aa 160 166 072 040 pv: 000423 aa 144 145 154 137 del_ 000424 aa 166 157 154 137 vol_ 000425 aa 162 145 147 151 regi 000426 aa 163 164 162 141 stra 000427 aa 164 151 157 156 tion 000430 aa 155 144 143 040 mdc 000431 aa 154 166 151 144 lvid 000432 aa 040 165 160 144 upd 000433 aa 141 164 145 040 ate 000434 aa 145 162 162 000 err 000435 aa 151 156 166 141 inva 000436 aa 154 151 144 040 lid 000437 aa 157 167 156 145 owne 000440 aa 162 072 040 136 r: ^ 000441 aa 141 000 000 000 a 000442 aa 154 166 040 156 lv n 000443 aa 157 164 040 162 ot r 000444 aa 145 147 151 163 egis 000445 aa 164 145 162 145 tere 000446 aa 144 072 040 000 d: 000447 aa 165 156 153 156 unkn 000450 aa 157 167 156 040 own 000451 aa 155 157 144 145 mode 000452 aa 154 072 040 136 l: ^ 000453 aa 141 000 000 000 a 000454 aa 160 166 040 156 pv n 000455 aa 157 164 040 151 ot i 000456 aa 156 040 154 166 n lv 000457 aa 040 146 151 154 fil 000460 aa 145 072 040 000 e: 000461 aa 143 141 156 156 cann 000462 aa 157 164 040 141 ot a 000463 aa 144 144 040 136 dd ^ 000464 aa 141 040 157 156 a on 000465 aa 040 136 141 000 ^a 000466 aa 143 141 156 156 cann 000467 aa 157 164 040 155 ot m 000470 aa 141 153 145 040 ake 000471 aa 155 144 143 163 mdcs 000472 aa 072 040 000 000 : 000473 aa 141 143 163 137 acs_ 000474 aa 160 141 164 150 path 000475 aa 040 151 156 166 inv 000476 aa 141 154 151 144 alid 000477 aa 072 040 000 000 : 000500 aa 155 141 170 137 max_ 000501 aa 141 143 143 145 acce 000502 aa 163 163 137 143 ss_c 000503 aa 154 141 163 163 lass 000504 aa 072 136 055 136 :^-^ 000505 aa 141 000 000 000 a 000506 aa 155 151 156 137 min_ 000507 aa 141 143 143 145 acce 000510 aa 163 163 137 143 ss_c 000511 aa 154 141 163 163 lass 000512 aa 072 136 055 136 :^-^ 000513 aa 141 000 000 000 a 000514 aa 154 151 163 164 list 000515 aa 137 166 157 154 _vol 000516 aa 137 162 145 147 _reg 000517 aa 151 163 164 162 istr 000520 aa 141 164 151 157 atio 000521 aa 156 000 000 000 n 000522 aa 141 162 147 040 arg 000523 aa 156 145 151 164 neit 000524 aa 150 145 162 040 her 000525 aa 160 166 040 156 pv n 000526 aa 157 162 040 154 or l 000527 aa 166 072 040 000 v: 000530 aa 165 156 153 156 unkn 000531 aa 157 167 156 040 own 000532 aa 143 157 156 164 cont 000533 aa 162 157 154 040 rol 000534 aa 141 162 147 072 arg: 000535 aa 040 136 141 000 ^a 000536 aa 143 141 156 156 cann 000537 aa 157 164 040 143 ot c 000540 aa 150 141 156 147 hang 000541 aa 145 040 154 166 e lv 000542 aa 151 144 072 040 id: 000543 aa 136 141 000 000 ^a 000544 aa 142 141 144 040 bad 000545 aa 143 157 156 164 cont 000546 aa 162 157 154 040 rol 000547 aa 141 162 147 072 arg: 000550 aa 040 136 141 040 ^a 000551 aa 136 141 000 000 ^a 000552 aa 143 141 156 156 cann 000553 aa 157 164 040 143 ot c 000554 aa 150 141 156 147 hang 000555 aa 145 040 160 166 e pv 000556 aa 151 144 072 040 id: 000557 aa 136 141 000 000 ^a 000560 aa 143 150 141 156 chan 000561 aa 147 145 137 166 ge_v 000562 aa 157 154 137 162 ol_r 000563 aa 145 147 151 163 egis 000564 aa 164 162 141 164 trat 000565 aa 151 157 156 000 ion 000566 aa 143 141 156 156 cann 000567 aa 157 164 040 154 ot l 000570 aa 151 156 153 040 ink 000571 aa 164 157 040 141 to a 000572 aa 143 163 072 040 cs: 000573 aa 136 141 000 000 ^a 000574 aa 055 154 166 040 -lv 000575 aa 155 165 163 164 must 000576 aa 040 142 145 040 be 000577 aa 163 160 145 143 spec 000600 aa 151 146 151 145 ifie 000601 aa 144 000 000 000 d 000602 aa 160 166 040 141 pv a 000603 aa 154 162 145 141 lrea 000604 aa 144 171 040 162 dy r 000605 aa 145 147 151 163 egis 000606 aa 164 145 162 145 tere 000607 aa 144 072 040 000 d: 000610 aa 055 155 157 144 -mod 000611 aa 145 154 040 155 el m 000612 aa 165 163 164 040 ust 000613 aa 142 145 040 163 be s 000614 aa 160 145 143 151 peci 000615 aa 146 151 145 144 fied 000616 aa 160 166 040 156 pv n 000617 aa 141 155 145 040 ame 000620 aa 156 157 164 040 not 000621 aa 163 160 145 143 spec 000622 aa 151 146 151 145 ifie 000623 aa 144 000 000 000 d 000624 aa 156 145 167 040 new 000625 aa 154 166 156 141 lvna 000626 aa 155 145 040 144 me d 000627 aa 165 160 154 151 upli 000630 aa 143 141 164 145 cate 000631 aa 144 072 040 136 d: ^ 000632 aa 141 000 000 000 a 000633 aa 162 145 147 151 regi 000634 aa 163 164 145 162 ster 000635 aa 145 144 040 157 ed o 000636 aa 167 156 145 162 wner 000637 aa 040 143 157 156 con 000640 aa 146 154 151 143 flic 000641 aa 164 163 072 040 ts: 000642 aa 111 156 166 141 Inva 000643 aa 154 151 144 040 lid 000644 aa 143 150 141 162 char 000645 aa 141 143 164 145 acte 000646 aa 162 163 040 151 rs i 000647 aa 156 040 156 141 n na 000650 aa 155 145 072 040 me: 000651 aa 143 141 156 156 cann 000652 aa 157 164 040 141 ot a 000653 aa 144 144 040 156 dd n 000654 aa 141 155 145 040 ame 000655 aa 160 166 056 136 pv.^ 000656 aa 141 040 164 157 a to 000657 aa 040 154 166 056 lv. 000660 aa 136 141 000 000 ^a 000661 aa 160 166 040 136 pv ^ 000662 aa 141 040 141 154 a al 000663 aa 162 145 141 144 read 000664 aa 171 040 162 145 y re 000665 aa 147 151 163 164 gist 000666 aa 145 162 145 144 ered 000667 aa 040 151 156 040 in 000670 aa 136 141 000 000 ^a 000671 aa 162 145 147 151 regi 000672 aa 163 164 145 162 ster 000673 aa 145 144 040 156 ed n 000674 aa 145 167 040 154 ew l 000675 aa 166 040 136 141 v ^a 000676 aa 040 167 151 164 wit 000677 aa 150 040 154 166 h lv 000700 aa 151 144 040 136 id ^ 000701 aa 167 000 000 000 w 000702 aa 162 145 147 151 regi 000703 aa 163 164 145 162 ster 000704 aa 145 144 040 155 ed m 000705 aa 141 170 040 141 ax a 000706 aa 143 143 145 163 cces 000707 aa 163 040 143 154 s cl 000710 aa 141 163 163 040 ass 000711 aa 143 157 156 146 conf 000712 aa 154 151 143 164 lict 000713 aa 163 000 000 000 s 000714 aa 162 145 147 151 regi 000715 aa 163 164 145 162 ster 000716 aa 145 144 040 155 ed m 000717 aa 151 156 040 141 in a 000720 aa 143 143 145 163 cces 000721 aa 163 040 143 154 s cl 000722 aa 141 163 163 040 ass 000723 aa 143 157 156 146 conf 000724 aa 154 151 143 164 lict 000725 aa 163 000 000 000 s BEGIN PROCEDURE hvr_ PROLOGUE SEQUENCE 000726 aa 6 00420 4401 00 sxl0 pr6|272 STATEMENT 1 ON LINE 27 000727 aa 040 100 100 400 mlr (),(pr),fill(040) 000730 aa 000000 00 0000 desc9a 0,0 000731 aa 6 00113 00 0040 desc9a pr6|75,32 pvname STATEMENT 1 ON LINE 28 000732 aa 040 100 100 400 mlr (),(pr),fill(040) 000733 aa 000000 00 0000 desc9a 0,0 000734 aa 6 00123 00 0040 desc9a pr6|83,32 lvname STATEMENT 1 ON LINE 29 000735 aa 040 100 100 400 mlr (),(pr),fill(040) 000736 aa 000000 00 0000 desc9a 0,0 000737 aa 6 00133 00 0040 desc9a pr6|91,32 tcs STATEMENT 1 ON LINE 30 000740 aa 040 100 100 400 mlr (),(pr),fill(040) 000741 aa 000000 00 0000 desc9a 0,0 000742 aa 6 00143 00 0250 desc9a pr6|99,168 tcs1 STATEMENT 1 ON LINE 31 000743 aa 040 100 100 404 mlr (ic),(pr),fill(040) 000744 aa 777441 00 0024 desc9a -223,20 000404 = 141144144137 000745 aa 6 00215 00 0040 desc9a pr6|141,32 comname STATEMENT 1 ON LINE 33 000746 aa 6 00235 4501 00 stz pr6|157 b36 STATEMENT 1 ON LINE 34 000747 aa 6 00236 4501 00 stz pr6|158 old_lvid STATEMENT 1 ON LINE 35 000750 aa 040 100 100 400 mlr (),(pr),fill(040) 000751 aa 000000 00 0000 desc9a 0,0 000752 aa 6 00237 00 0040 desc9a pr6|159,32 old_lvname STATEMENT 1 ON LINE 36 000753 aa 777163 2370 04 ldaq -397,ic 000136 = 000000000000 000000000000 000754 aa 6 00250 7571 00 staq pr6|168 access_low STATEMENT 1 ON LINE 37 000755 aa 6 00044 3701 20 epp4 pr6|36,* 000756 la 4 00022 3735 20 epp7 pr4|18,* sys_info$access_class_ceiling 000757 aa 7 00000 2351 00 lda pr7|0 sys_info$access_class_ceiling 000760 aa 7 00001 2361 00 ldq pr7|1 sys_info$access_class_ceiling 000761 aa 6 00252 7571 00 staq pr6|170 access_high STATEMENT 1 ON LINE 38 000762 aa 6 00254 4501 00 stz pr6|172 gave_access_low 000763 aa 6 00255 4501 00 stz pr6|173 gave_access_high STATEMENT 1 ON LINE 39 000764 aa 6 00256 4501 00 stz pr6|174 new_lv STATEMENT 1 ON LINE 40 000765 aa 040 100 100 400 mlr (),(pr),fill(040) 000766 aa 000000 00 0000 desc9a 0,0 000767 aa 6 00257 00 0250 desc9a pr6|175,168 acs_path STATEMENT 1 ON LINE 42 000770 aa 400000 2350 03 lda 131072,du 000771 aa 6 00333 7551 00 sta pr6|219 more_args STATEMENT 1 ON LINE 43 000772 aa 000001 2360 07 ldq 1,dl 000773 aa 6 00334 7561 00 stq pr6|220 argno STATEMENT 1 ON LINE 44 000774 aa 040 100 100 404 mlr (ic),(pr),fill(040) 000775 aa 777052 00 0004 desc9a -470,4 000046 = 156157156145 000776 aa 6 00335 00 0040 desc9a pr6|221,32 serial STATEMENT 1 ON LINE 45 000777 aa 6 00345 7551 00 sta pr6|229 pubbit STATEMENT 1 ON LINE 46 001000 aa 040 100 100 400 mlr (),(pr),fill(040) 001001 aa 000000 00 0000 desc9a 0,0 001002 aa 6 00346 00 0040 desc9a pr6|230,32 owner STATEMENT 1 ON LINE 48 001003 aa 6 00357 4501 00 stz pr6|239 model STATEMENT 1 ON LINE 49 001004 aa 6 00360 4501 00 stz pr6|240 ec 001005 aa 6 00420 7201 00 lxl0 pr6|272 001006 aa 000000 7100 10 tra 0,0 MAIN SEQUENCE ENTRY TO hvr_ STATEMENT 1 ON LINE 11 hvr_: proc; 001007 da 000326200000 001010 aa 000760 6270 00 eax7 496 001011 aa 7 00034 3521 20 epp2 pr7|28,* 001012 aa 2 01045 2721 00 tsp2 pr2|549 ext_entry 001013 aa 000000000000 001014 aa 000000000000 001015 aa 777711 7000 04 tsx0 -55,ic 000726 STATEMENT 1 ON LINE 86 add_volume_registration: entry; 001016 aa 000010 7100 04 tra 8,ic 001026 ENTRY TO add_volume_registration STATEMENT 1 ON LINE 86 add_volume_registration: entry; 001017 da 000337200000 001020 aa 000760 6270 00 eax7 496 001021 aa 7 00034 3521 20 epp2 pr7|28,* 001022 aa 2 01045 2721 00 tsp2 pr2|549 ext_entry 001023 aa 000000000000 001024 aa 000000000000 001025 aa 777701 7000 04 tsx0 -63,ic 000726 STATEMENT 1 ON LINE 88 if svrp = null then call hcs_$make_seg ("", "", "", 1011b, svrp, ec); 001026 aa 6 00044 3701 20 epp4 pr6|36,* 001027 ia 4 00010 2371 00 ldaq pr4|8 svrp 001030 aa 777136 6770 04 eraq -418,ic 000166 = 077777000043 000001000000 001031 aa 0 00460 3771 00 anaq pr0|304 = 077777000077 777777077077 001032 aa 000035 6010 04 tnz 29,ic 001067 001033 aa 000013 2360 07 ldq 11,dl 001034 aa 6 00424 7561 00 stq pr6|276 001035 aa 6 00421 3521 00 epp2 pr6|273 001036 aa 6 00430 2521 00 spri2 pr6|280 001037 aa 6 00422 3521 00 epp2 pr6|274 001040 aa 6 00432 2521 00 spri2 pr6|282 001041 aa 6 00423 3521 00 epp2 pr6|275 001042 aa 6 00434 2521 00 spri2 pr6|284 001043 aa 6 00424 3521 00 epp2 pr6|276 001044 aa 6 00436 2521 00 spri2 pr6|286 001045 ia 4 00010 3521 00 epp2 pr4|8 svrp 001046 aa 6 00440 2521 00 spri2 pr6|288 001047 aa 6 00360 3521 00 epp2 pr6|240 ec 001050 aa 6 00442 2521 00 spri2 pr6|290 001051 aa 777057 3520 04 epp2 -465,ic 000130 = 524000000000 001052 aa 6 00444 2521 00 spri2 pr6|292 001053 aa 6 00446 2521 00 spri2 pr6|294 001054 aa 6 00450 2521 00 spri2 pr6|296 001055 aa 777052 3520 04 epp2 -470,ic 000127 = 404000000005 001056 aa 6 00452 2521 00 spri2 pr6|298 001057 aa 777047 3520 04 epp2 -473,ic 000126 = 464000000000 001060 aa 6 00454 2521 00 spri2 pr6|300 001061 aa 777044 3520 04 epp2 -476,ic 000125 = 404000000043 001062 aa 6 00456 2521 00 spri2 pr6|302 001063 aa 6 00426 6211 00 eax1 pr6|278 001064 aa 030000 4310 07 fld 12288,dl 001065 la 4 00050 3521 20 epp2 pr4|40,* hcs_$make_seg 001066 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 89 vrp = svrp; 001067 aa 6 00044 3701 20 epp4 pr6|36,* 001070 ia 4 00010 3735 20 epp7 pr4|8,* svrp 001071 aa 6 00362 6535 00 spri7 pr6|242 vrp STATEMENT 1 ON LINE 90 call getarg (tcs); 001072 aa 007250 3520 04 epp2 3752,ic 010342 = 000002000000 001073 aa 2 00000 2351 00 lda pr2|0 001074 aa 006441 6700 04 tsp4 3361,ic 007535 STATEMENT 1 ON LINE 91 ec = 0; 001075 aa 6 00360 4501 00 stz pr6|240 ec STATEMENT 1 ON LINE 92 if tcs ^= "pv" then call FAIL ("unknown arg: " || tcs); 001076 aa 040 004 106 500 cmpc (pr),(ic),fill(040) 001077 aa 6 00133 00 0040 desc9a pr6|91,32 tcs 001100 aa 007254 00 0002 desc9a 3756,2 010352 = 160166000000 001101 aa 000012 6000 04 tze 10,ic 001113 001102 aa 040 100 100 404 mlr (ic),(pr),fill(040) 001103 aa 777276 00 0015 desc9a -322,13 000400 = 165156153156 001104 aa 6 00426 00 0015 desc9a pr6|278,13 001105 aa 040 100 100 500 mlr (pr),(pr),fill(040) 001106 aa 6 00133 00 0040 desc9a pr6|91,32 tcs 001107 aa 6 00431 20 0040 desc9a pr6|281(1),32 001110 aa 007224 3520 04 epp2 3732,ic 010334 = 000002000000 001111 aa 2 00000 2351 00 lda pr2|0 001112 aa 006522 6700 04 tsp4 3410,ic 007634 STATEMENT 1 ON LINE 93 call getarg (pvname); 001113 aa 007213 3520 04 epp2 3723,ic 010326 = 000002000000 001114 aa 2 00000 2351 00 lda pr2|0 001115 aa 006420 6700 04 tsp4 3344,ic 007535 STATEMENT 1 ON LINE 94 if pvname = "" then call FAIL ("pv name not specified"); 001116 aa 040 004 106 500 cmpc (pr),(ic),fill(040) 001117 aa 6 00113 00 0040 desc9a pr6|75,32 pvname 001120 aa 007232 00 0000 desc9a 3738,0 010350 = 154166000000 001121 aa 000012 6010 04 tnz 10,ic 001133 001122 aa 777474 2370 04 ldaq -196,ic 000616 = 160166040156 141155145040 001123 aa 6 00426 7571 00 staq pr6|278 001124 aa 777474 2370 04 ldaq -196,ic 000620 = 156157164040 163160145143 001125 aa 6 00430 7571 00 staq pr6|280 001126 aa 777474 2370 04 ldaq -196,ic 000622 = 151146151145 144000000000 001127 aa 6 00432 7571 00 staq pr6|282 001130 aa 007170 3520 04 epp2 3704,ic 010320 = 000002000000 001131 aa 2 00000 2351 00 lda pr2|0 001132 aa 006502 6700 04 tsp4 3394,ic 007634 STATEMENT 1 ON LINE 95 if verify (rtrim (pvname), LEGAL) ^= 0 then call FAIL ("Invalid characters in name: " || pvname); 001133 aa 000 000 165 500 tctr (pr) 001134 aa 6 00113 00 0040 desc9a pr6|75,32 pvname 001135 aa 0 76605 0001 00 arg pr0|-635 = 777777777777 001136 aa 6 00056 0001 00 arg pr6|46 001137 aa 6 00056 2361 00 ldq pr6|46 001140 aa 0 00242 3761 00 anq pr0|162 = 000777777777 001141 aa 6 00424 7561 00 stq pr6|276 001142 aa 000040 2360 07 ldq 32,dl 001143 aa 6 00424 1761 00 sbq pr6|276 001144 aa 000 000 164 540 tct (pr,rl) 001145 aa 6 00113 00 0006 desc9a pr6|75,ql pvname 001146 aa 006754 0000 04 arg 3564,ic 010120 = 777777777777 001147 aa 6 00056 0001 00 arg pr6|46 001150 aa 6 00056 2361 00 ldq pr6|46 001151 aa 0 00242 3761 00 anq pr0|162 = 000777777777 001152 aa 000002 6070 04 ttf 2,ic 001154 001153 aa 000001 3360 07 lcq 1,dl 001154 aa 000001 0760 07 adq 1,dl 001155 aa 000012 6000 04 tze 10,ic 001167 001156 aa 040 100 100 404 mlr (ic),(pr),fill(040) 001157 aa 777464 00 0034 desc9a -204,28 000642 = 111156166141 001160 aa 6 00426 00 0034 desc9a pr6|278,28 001161 aa 040 100 100 500 mlr (pr),(pr),fill(040) 001162 aa 6 00113 00 0040 desc9a pr6|75,32 pvname 001163 aa 6 00435 00 0040 desc9a pr6|285,32 001164 aa 006726 3520 04 epp2 3542,ic 010112 = 000002000000 001165 aa 2 00000 2351 00 lda pr2|0 001166 aa 006446 6700 04 tsp4 3366,ic 007634 STATEMENT 1 ON LINE 96 do while (more_args); 001167 aa 000000 0110 03 nop 0,du 001170 aa 6 00333 2351 00 lda pr6|219 more_args 001171 aa 000437 6000 04 tze 287,ic 001630 STATEMENT 1 ON LINE 97 call getarg (tcs); 001172 aa 007150 3520 04 epp2 3688,ic 010342 = 000002000000 001173 aa 2 00000 2351 00 lda pr2|0 001174 aa 006341 6700 04 tsp4 3297,ic 007535 STATEMENT 1 ON LINE 98 call getarg (tcs1); 001175 aa 006707 3520 04 epp2 3527,ic 010104 = 000002000000 001176 aa 2 00000 2351 00 lda pr2|0 001177 aa 006336 6700 04 tsp4 3294,ic 007535 STATEMENT 1 ON LINE 99 if tcs = "-lv" then lvname = tcs1; 001200 aa 040 004 106 500 cmpc (pr),(ic),fill(040) 001201 aa 6 00133 00 0040 desc9a pr6|91,32 tcs 001202 aa 776720 00 0003 desc9a -560,3 000120 = 055154166000 001203 aa 000005 6010 04 tnz 5,ic 001210 001204 aa 000 100 100 500 mlr (pr),(pr),fill(000) 001205 aa 6 00143 00 0040 desc9a pr6|99,32 tcs1 001206 aa 6 00123 00 0040 desc9a pr6|83,32 lvname 001207 aa 777761 7100 04 tra -15,ic 001170 STATEMENT 1 ON LINE 100 else if tcs = "-access_low" then do; 001210 aa 040 004 106 500 cmpc (pr),(ic),fill(040) 001211 aa 6 00133 00 0040 desc9a pr6|91,32 tcs 001212 aa 777021 00 0013 desc9a -495,11 000231 = 055141143143 001213 aa 000040 6010 04 tnz 32,ic 001253 STATEMENT 1 ON LINE 101 call convert_authorization_$from_string (access_low, tcs1, ec); 001214 aa 6 00250 3521 00 epp2 pr6|168 access_low 001215 aa 6 00430 2521 00 spri2 pr6|280 001216 aa 6 00143 3521 00 epp2 pr6|99 tcs1 001217 aa 6 00432 2521 00 spri2 pr6|282 001220 aa 6 00360 3521 00 epp2 pr6|240 ec 001221 aa 6 00434 2521 00 spri2 pr6|284 001222 aa 776675 3520 04 epp2 -579,ic 000117 = 516000000110 001223 aa 6 00436 2521 00 spri2 pr6|286 001224 aa 776675 3520 04 epp2 -579,ic 000121 = 526000000250 001225 aa 6 00440 2521 00 spri2 pr6|288 001226 aa 776677 3520 04 epp2 -577,ic 000125 = 404000000043 001227 aa 6 00442 2521 00 spri2 pr6|290 001230 aa 6 00426 6211 00 eax1 pr6|278 001231 aa 014000 4310 07 fld 6144,dl 001232 aa 6 00044 3701 20 epp4 pr6|36,* 001233 la 4 00030 3521 20 epp2 pr4|24,* convert_authorization_$from_string 001234 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 102 if ec ^= 0 then call FAIL ("illegal auth: " || tcs1); 001235 aa 6 00360 2361 00 ldq pr6|240 ec 001236 aa 000012 6000 04 tze 10,ic 001250 001237 aa 040 100 100 404 mlr (ic),(pr),fill(040) 001240 aa 777135 00 0016 desc9a -419,14 000374 = 151154154145 001241 aa 6 00460 00 0016 desc9a pr6|304,14 001242 aa 040 100 100 500 mlr (pr),(pr),fill(040) 001243 aa 6 00143 00 0250 desc9a pr6|99,168 tcs1 001244 aa 6 00463 40 0250 desc9a pr6|307(2),168 001245 aa 006631 3520 04 epp2 3481,ic 010076 = 000002000000 001246 aa 2 00000 2351 00 lda pr2|0 001247 aa 006365 6700 04 tsp4 3317,ic 007634 STATEMENT 1 ON LINE 103 gave_access_low = "1"b; 001250 aa 400000 2350 03 lda 131072,du 001251 aa 6 00254 7551 00 sta pr6|172 gave_access_low STATEMENT 1 ON LINE 104 end; 001252 aa 777716 7100 04 tra -50,ic 001170 STATEMENT 1 ON LINE 105 else if tcs = "-access_high" then do; 001253 aa 040 004 106 500 cmpc (pr),(ic),fill(040) 001254 aa 6 00133 00 0040 desc9a pr6|91,32 tcs 001255 aa 776753 00 0014 desc9a -533,12 000226 = 055141143143 001256 aa 000040 6010 04 tnz 32,ic 001316 STATEMENT 1 ON LINE 106 call convert_authorization_$from_string (access_high, tcs1, ec); 001257 aa 6 00252 3521 00 epp2 pr6|170 access_high 001260 aa 6 00430 2521 00 spri2 pr6|280 001261 aa 6 00143 3521 00 epp2 pr6|99 tcs1 001262 aa 6 00432 2521 00 spri2 pr6|282 001263 aa 6 00360 3521 00 epp2 pr6|240 ec 001264 aa 6 00434 2521 00 spri2 pr6|284 001265 aa 776632 3520 04 epp2 -614,ic 000117 = 516000000110 001266 aa 6 00436 2521 00 spri2 pr6|286 001267 aa 776632 3520 04 epp2 -614,ic 000121 = 526000000250 001270 aa 6 00440 2521 00 spri2 pr6|288 001271 aa 776634 3520 04 epp2 -612,ic 000125 = 404000000043 001272 aa 6 00442 2521 00 spri2 pr6|290 001273 aa 6 00426 6211 00 eax1 pr6|278 001274 aa 014000 4310 07 fld 6144,dl 001275 aa 6 00044 3701 20 epp4 pr6|36,* 001276 la 4 00030 3521 20 epp2 pr4|24,* convert_authorization_$from_string 001277 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 107 if ec ^= 0 then call FAIL ("illegal auth: " || tcs1); 001300 aa 6 00360 2361 00 ldq pr6|240 ec 001301 aa 000012 6000 04 tze 10,ic 001313 001302 aa 040 100 100 404 mlr (ic),(pr),fill(040) 001303 aa 777072 00 0016 desc9a -454,14 000374 = 151154154145 001304 aa 6 00460 00 0016 desc9a pr6|304,14 001305 aa 040 100 100 500 mlr (pr),(pr),fill(040) 001306 aa 6 00143 00 0250 desc9a pr6|99,168 tcs1 001307 aa 6 00463 40 0250 desc9a pr6|307(2),168 001310 aa 006566 3520 04 epp2 3446,ic 010076 = 000002000000 001311 aa 2 00000 2351 00 lda pr2|0 001312 aa 006322 6700 04 tsp4 3282,ic 007634 STATEMENT 1 ON LINE 108 gave_access_high = "1"b; 001313 aa 400000 2350 03 lda 131072,du 001314 aa 6 00255 7551 00 sta pr6|173 gave_access_high STATEMENT 1 ON LINE 109 end; 001315 aa 777653 7100 04 tra -85,ic 001170 STATEMENT 1 ON LINE 110 else if tcs = "-owner" then do; 001316 aa 040 004 106 500 cmpc (pr),(ic),fill(040) 001317 aa 6 00133 00 0040 desc9a pr6|91,32 tcs 001320 aa 776646 00 0006 desc9a -602,6 000164 = 055157167156 001321 aa 000016 6010 04 tnz 14,ic 001337 STATEMENT 1 ON LINE 111 call check_owner; 001322 aa 006355 6700 04 tsp4 3309,ic 007677 STATEMENT 1 ON LINE 112 if owneri = 0 then call FAIL ("invalid owner: " || tcs1); 001323 aa 6 00356 2361 00 ldq pr6|238 owneri 001324 aa 777644 6010 04 tnz -92,ic 001170 001325 aa 040 100 100 404 mlr (ic),(pr),fill(040) 001326 aa 777043 00 0017 desc9a -477,15 000370 = 151156166141 001327 aa 6 00460 00 0017 desc9a pr6|304,15 001330 aa 040 100 100 500 mlr (pr),(pr),fill(040) 001331 aa 6 00143 00 0250 desc9a pr6|99,168 tcs1 001332 aa 6 00463 60 0250 desc9a pr6|307(3),168 001333 aa 006535 3520 04 epp2 3421,ic 010070 = 000002000000 001334 aa 2 00000 2351 00 lda pr2|0 001335 aa 006277 6700 04 tsp4 3263,ic 007634 STATEMENT 1 ON LINE 113 end; 001336 aa 777632 7100 04 tra -102,ic 001170 STATEMENT 1 ON LINE 114 else if tcs = "-public" then pubbit = (tcs1 = "yes"); 001337 aa 040 004 106 500 cmpc (pr),(ic),fill(040) 001340 aa 6 00133 00 0040 desc9a pr6|91,32 tcs 001341 aa 776623 00 0007 desc9a -621,7 000162 = 055160165142 001342 aa 000007 6010 04 tnz 7,ic 001351 001343 aa 040 004 106 500 cmpc (pr),(ic),fill(040) 001344 aa 6 00143 00 0250 desc9a pr6|99,168 tcs1 001345 aa 776551 00 0003 desc9a -663,3 000114 = 171145163000 001346 aa 0 00512 7001 00 tsx0 pr0|330 r_e_as 001347 aa 6 00345 7551 00 sta pr6|229 pubbit 001350 aa 777620 7100 04 tra -112,ic 001170 STATEMENT 1 ON LINE 115 else if tcs = "-acs" then do; 001351 aa 040 004 106 500 cmpc (pr),(ic),fill(040) 001352 aa 6 00133 00 0040 desc9a pr6|91,32 tcs 001353 aa 776542 00 0004 desc9a -670,4 000113 = 055141143163 001354 aa 000057 6010 04 tnz 47,ic 001433 STATEMENT 1 ON LINE 116 i = length (tcs1) + 1 - verify (reverse (tcs1), " "); 001355 aa 000 000 165 500 tctr (pr) 001356 aa 6 00143 00 0250 desc9a pr6|99,168 tcs1 001357 aa 0 76605 0001 00 arg pr0|-635 = 777777777777 001360 aa 6 00056 0001 00 arg pr6|46 001361 aa 6 00056 2361 00 ldq pr6|46 001362 aa 0 00242 3761 00 anq pr0|162 = 000777777777 001363 aa 000002 6070 04 ttf 2,ic 001365 001364 aa 000001 3360 07 lcq 1,dl 001365 aa 000001 0760 07 adq 1,dl 001366 aa 6 00424 7561 00 stq pr6|276 001367 aa 000251 2360 07 ldq 169,dl 001370 aa 6 00424 1761 00 sbq pr6|276 001371 aa 6 00331 7561 00 stq pr6|217 i STATEMENT 1 ON LINE 117 call expand_path_ (addr (tcs1), i, addr (acs_path), null, ec); 001372 aa 6 00143 3735 00 epp7 pr6|99 tcs1 001373 aa 6 00536 6535 00 spri7 pr6|350 001374 aa 6 00257 3715 00 epp5 pr6|175 acs_path 001375 aa 6 00540 6515 00 spri5 pr6|352 001376 aa 776570 3534 24 epp3 -648,ic* 001377 aa 6 00542 2535 00 spri3 pr6|354 001400 aa 6 00536 3521 00 epp2 pr6|350 001401 aa 6 00430 2521 00 spri2 pr6|280 001402 aa 6 00331 3521 00 epp2 pr6|217 i 001403 aa 6 00432 2521 00 spri2 pr6|282 001404 aa 6 00540 3521 00 epp2 pr6|352 001405 aa 6 00434 2521 00 spri2 pr6|284 001406 aa 6 00542 3521 00 epp2 pr6|354 001407 aa 6 00436 2521 00 spri2 pr6|286 001410 aa 6 00360 3521 00 epp2 pr6|240 ec 001411 aa 6 00440 2521 00 spri2 pr6|288 001412 aa 6 00426 6211 00 eax1 pr6|278 001413 aa 024000 4310 07 fld 10240,dl 001414 aa 6 00044 3701 20 epp4 pr6|36,* 001415 la 4 00044 3521 20 epp2 pr4|36,* expand_path_ 001416 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 118 if ec ^= 0 then call FAIL ("bad acs path: " || tcs1); 001417 aa 6 00360 2361 00 ldq pr6|240 ec 001420 aa 777550 6000 04 tze -152,ic 001170 001421 aa 040 100 100 404 mlr (ic),(pr),fill(040) 001422 aa 776743 00 0016 desc9a -541,14 000364 = 142141144040 001423 aa 6 00460 00 0016 desc9a pr6|304,14 001424 aa 040 100 100 500 mlr (pr),(pr),fill(040) 001425 aa 6 00143 00 0250 desc9a pr6|99,168 tcs1 001426 aa 6 00463 40 0250 desc9a pr6|307(2),168 001427 aa 006447 3520 04 epp2 3367,ic 010076 = 000002000000 001430 aa 2 00000 2351 00 lda pr2|0 001431 aa 006203 6700 04 tsp4 3203,ic 007634 STATEMENT 1 ON LINE 119 end; 001432 aa 777536 7100 04 tra -162,ic 001170 STATEMENT 1 ON LINE 120 else if tcs = "-pvid" then do; 001433 aa 040 004 106 500 cmpc (pr),(ic),fill(040) 001434 aa 6 00133 00 0040 desc9a pr6|91,32 tcs 001435 aa 776525 00 0005 desc9a -683,5 000160 = 055160166151 001436 aa 000040 6010 04 tnz 32,ic 001476 STATEMENT 1 ON LINE 121 b36 = cv_oct_check_ (tcs1, ec); 001437 aa 6 00143 3521 00 epp2 pr6|99 tcs1 001440 aa 6 00430 2521 00 spri2 pr6|280 001441 aa 6 00360 3521 00 epp2 pr6|240 ec 001442 aa 6 00432 2521 00 spri2 pr6|282 001443 aa 6 00424 3521 00 epp2 pr6|276 001444 aa 6 00434 2521 00 spri2 pr6|284 001445 aa 776454 3520 04 epp2 -724,ic 000121 = 526000000250 001446 aa 6 00436 2521 00 spri2 pr6|286 001447 aa 776456 3520 04 epp2 -722,ic 000125 = 404000000043 001450 aa 6 00440 2521 00 spri2 pr6|288 001451 aa 776462 3520 04 epp2 -718,ic 000133 = 516000000044 001452 aa 6 00442 2521 00 spri2 pr6|290 001453 aa 6 00426 6211 00 eax1 pr6|278 001454 aa 014000 4310 07 fld 6144,dl 001455 aa 6 00044 3701 20 epp4 pr6|36,* 001456 la 4 00040 3521 20 epp2 pr4|32,* cv_oct_check_ 001457 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc 001460 aa 6 00424 2351 00 lda pr6|276 001461 aa 6 00235 7551 00 sta pr6|157 b36 STATEMENT 1 ON LINE 122 if ec ^= 0 then call FAIL ("invalid: " || tcs1); 001462 aa 6 00360 2361 00 ldq pr6|240 ec 001463 aa 777505 6000 04 tze -187,ic 001170 001464 aa 040 100 100 404 mlr (ic),(pr),fill(040) 001465 aa 776537 00 0011 desc9a -673,9 000223 = 151156166141 001466 aa 6 00460 00 0011 desc9a pr6|304,9 001467 aa 040 100 100 500 mlr (pr),(pr),fill(040) 001470 aa 6 00143 00 0250 desc9a pr6|99,168 tcs1 001471 aa 6 00462 20 0250 desc9a pr6|306(1),168 001472 aa 006370 3520 04 epp2 3320,ic 010062 = 000002000000 001473 aa 2 00000 2351 00 lda pr2|0 001474 aa 006140 6700 04 tsp4 3168,ic 007634 STATEMENT 1 ON LINE 123 end; 001475 aa 777473 7100 04 tra -197,ic 001170 STATEMENT 1 ON LINE 124 else if tcs = "-model" then do; 001476 aa 040 004 106 500 cmpc (pr),(ic),fill(040) 001477 aa 6 00133 00 0040 desc9a pr6|91,32 tcs 001500 aa 776460 00 0006 desc9a -720,6 000156 = 055155157144 001501 aa 000070 6010 04 tnz 56,ic 001571 STATEMENT 1 ON LINE 125 i = cv_dec_check_ (tcs1, ec); 001502 aa 6 00143 3521 00 epp2 pr6|99 tcs1 001503 aa 6 00430 2521 00 spri2 pr6|280 001504 aa 6 00360 3521 00 epp2 pr6|240 ec 001505 aa 6 00432 2521 00 spri2 pr6|282 001506 aa 6 00331 3521 00 epp2 pr6|217 i 001507 aa 6 00434 2521 00 spri2 pr6|284 001510 aa 776411 3520 04 epp2 -759,ic 000121 = 526000000250 001511 aa 6 00436 2521 00 spri2 pr6|286 001512 aa 776413 3520 04 epp2 -757,ic 000125 = 404000000043 001513 aa 6 00440 2521 00 spri2 pr6|288 001514 aa 776420 3520 04 epp2 -752,ic 000134 = 404000000021 001515 aa 6 00442 2521 00 spri2 pr6|290 001516 aa 6 00426 6211 00 eax1 pr6|278 001517 aa 014000 4310 07 fld 6144,dl 001520 aa 6 00044 3701 20 epp4 pr6|36,* 001521 la 4 00036 3521 20 epp2 pr4|30,* cv_dec_check_ 001522 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 126 if ec ^= 0 then call FAIL ("invalid: " || tcs1); 001523 aa 6 00360 2361 00 ldq pr6|240 ec 001524 aa 000012 6000 04 tze 10,ic 001536 001525 aa 040 100 100 404 mlr (ic),(pr),fill(040) 001526 aa 776476 00 0011 desc9a -706,9 000223 = 151156166141 001527 aa 6 00460 00 0011 desc9a pr6|304,9 001530 aa 040 100 100 500 mlr (pr),(pr),fill(040) 001531 aa 6 00143 00 0250 desc9a pr6|99,168 tcs1 001532 aa 6 00462 20 0250 desc9a pr6|306(1),168 001533 aa 006327 3520 04 epp2 3287,ic 010062 = 000002000000 001534 aa 2 00000 2351 00 lda pr2|0 001535 aa 006077 6700 04 tsp4 3135,ic 007634 STATEMENT 1 ON LINE 127 do model = 1 to hbound (MODEL, 1) while (i ^= MODEL (model)); 001536 aa 000001 2360 07 ldq 1,dl 001537 aa 6 00357 7561 00 stq pr6|239 model 001540 aa 6 00357 2361 00 ldq pr6|239 model 001541 aa 000012 1160 07 cmpq 10,dl 001542 aa 000007 6054 04 tpnz 7,ic 001551 001543 aa 6 00331 2361 00 ldq pr6|217 i 001544 aa 6 00357 7271 00 lxl7 pr6|239 model 001545 ta 000020 1160 17 cmpq 16,7 001546 aa 000003 6000 04 tze 3,ic 001551 STATEMENT 2 ON LINE 127 end; 001547 aa 6 00357 0541 00 aos pr6|239 model 001550 aa 777770 7100 04 tra -8,ic 001540 STATEMENT 1 ON LINE 128 if model > hbound (MODEL, 1) then call FAIL ("unknown model: " || tcs1); 001551 aa 6 00357 2361 00 ldq pr6|239 model 001552 aa 000012 1160 07 cmpq 10,dl 001553 aa 000012 6044 04 tmoz 10,ic 001565 001554 aa 040 100 100 404 mlr (ic),(pr),fill(040) 001555 aa 776604 00 0017 desc9a -636,15 000360 = 165156153156 001556 aa 6 00460 00 0017 desc9a pr6|304,15 001557 aa 040 100 100 500 mlr (pr),(pr),fill(040) 001560 aa 6 00143 00 0250 desc9a pr6|99,168 tcs1 001561 aa 6 00463 60 0250 desc9a pr6|307(3),168 001562 aa 006306 3520 04 epp2 3270,ic 010070 = 000002000000 001563 aa 2 00000 2351 00 lda pr2|0 001564 aa 006050 6700 04 tsp4 3112,ic 007634 STATEMENT 1 ON LINE 129 model = MODELX (model); 001565 aa 6 00357 7271 00 lxl7 pr6|239 model 001566 ta 000006 2360 17 ldq 6,7 001567 aa 6 00357 7561 00 stq pr6|239 model STATEMENT 1 ON LINE 130 end; 001570 aa 777400 7100 04 tra -256,ic 001170 STATEMENT 1 ON LINE 131 else if tcs = "-serial" then serial = tcs1; 001571 aa 040 004 106 500 cmpc (pr),(ic),fill(040) 001572 aa 6 00133 00 0040 desc9a pr6|91,32 tcs 001573 aa 776363 00 0007 desc9a -781,7 000154 = 055163145162 001574 aa 000005 6010 04 tnz 5,ic 001601 001575 aa 000 100 100 500 mlr (pr),(pr),fill(000) 001576 aa 6 00143 00 0040 desc9a pr6|99,32 tcs1 001577 aa 6 00335 00 0040 desc9a pr6|221,32 serial 001600 aa 777370 7100 04 tra -264,ic 001170 STATEMENT 1 ON LINE 132 else call com_err_ (error_table_$badopt, comname, "^a", tcs); 001601 aa 136141 2350 03 lda 48225,du 001602 aa 6 00424 7551 00 sta pr6|276 001603 aa 6 00044 3701 20 epp4 pr6|36,* 001604 la 4 00014 3521 20 epp2 pr4|12,* error_table_$badopt 001605 aa 6 00430 2521 00 spri2 pr6|280 001606 aa 6 00215 3521 00 epp2 pr6|141 comname 001607 aa 6 00432 2521 00 spri2 pr6|282 001610 aa 6 00424 3521 00 epp2 pr6|276 001611 aa 6 00434 2521 00 spri2 pr6|284 001612 aa 6 00133 3521 00 epp2 pr6|91 tcs 001613 aa 6 00436 2521 00 spri2 pr6|286 001614 aa 776311 3520 04 epp2 -823,ic 000125 = 404000000043 001615 aa 6 00440 2521 00 spri2 pr6|288 001616 aa 776314 3520 04 epp2 -820,ic 000132 = 526000000040 001617 aa 6 00442 2521 00 spri2 pr6|290 001620 aa 6 00446 2521 00 spri2 pr6|294 001621 aa 776270 3520 04 epp2 -840,ic 000111 = 524000000002 001622 aa 6 00444 2521 00 spri2 pr6|292 001623 aa 6 00426 6211 00 eax1 pr6|278 001624 aa 020000 4310 07 fld 8192,dl 001625 la 4 00026 3521 20 epp2 pr4|22,* com_err_ 001626 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 133 end; 001627 aa 777341 7100 04 tra -287,ic 001170 STATEMENT 1 ON LINE 135 if model = 0 /* Missing -model control arg */ then do; 001630 aa 6 00357 2361 00 ldq pr6|239 model 001631 aa 000015 6010 04 tnz 13,ic 001646 STATEMENT 1 ON LINE 137 ec = error_table_$noarg; 001632 aa 6 00044 3701 20 epp4 pr6|36,* 001633 la 4 00020 2361 20 ldq pr4|16,* error_table_$noarg 001634 aa 6 00360 7561 00 stq pr6|240 ec STATEMENT 1 ON LINE 138 call FAIL ("-model must be specified"); 001635 aa 776753 2370 04 ldaq -533,ic 000610 = 055155157144 145154040155 001636 aa 6 00426 7571 00 staq pr6|278 001637 aa 776753 2370 04 ldaq -533,ic 000612 = 165163164040 142145040163 001640 aa 6 00430 7571 00 staq pr6|280 001641 aa 776753 2370 04 ldaq -533,ic 000614 = 160145143151 146151145144 001642 aa 6 00432 7571 00 staq pr6|282 001643 aa 006211 3520 04 epp2 3209,ic 010054 = 000002000000 001644 aa 2 00000 2351 00 lda pr2|0 001645 aa 005767 6700 04 tsp4 3063,ic 007634 STATEMENT 1 ON LINE 139 end; STATEMENT 1 ON LINE 141 call initializer_mdc_$read_pv (pvname, vrp, ec); 001646 aa 6 00113 3521 00 epp2 pr6|75 pvname 001647 aa 6 00430 2521 00 spri2 pr6|280 001650 aa 6 00362 3521 00 epp2 pr6|242 vrp 001651 aa 6 00432 2521 00 spri2 pr6|282 001652 aa 6 00360 3521 00 epp2 pr6|240 ec 001653 aa 6 00434 2521 00 spri2 pr6|284 001654 aa 776256 3520 04 epp2 -850,ic 000132 = 526000000040 001655 aa 6 00436 2521 00 spri2 pr6|286 001656 aa 776250 3520 04 epp2 -856,ic 000126 = 464000000000 001657 aa 6 00440 2521 00 spri2 pr6|288 001660 aa 776245 3520 04 epp2 -859,ic 000125 = 404000000043 001661 aa 6 00442 2521 00 spri2 pr6|290 001662 aa 6 00426 6211 00 eax1 pr6|278 001663 aa 014000 4310 07 fld 6144,dl 001664 aa 6 00044 3701 20 epp4 pr6|36,* 001665 la 4 00064 3521 20 epp2 pr4|52,* initializer_mdc_$read_pv 001666 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 142 if ec = 0 then call FAIL ("pv already registered: " || pvname); 001667 aa 6 00360 2361 00 ldq pr6|240 ec 001670 aa 000012 6010 04 tnz 10,ic 001702 001671 aa 040 100 100 404 mlr (ic),(pr),fill(040) 001672 aa 776711 00 0027 desc9a -567,23 000602 = 160166040141 001673 aa 6 00426 00 0027 desc9a pr6|278,23 001674 aa 040 100 100 500 mlr (pr),(pr),fill(040) 001675 aa 6 00113 00 0040 desc9a pr6|75,32 pvname 001676 aa 6 00433 60 0040 desc9a pr6|283(3),32 001677 aa 006147 3520 04 epp2 3175,ic 010046 = 000002000000 001700 aa 2 00000 2351 00 lda pr2|0 001701 aa 005733 6700 04 tsp4 3035,ic 007634 STATEMENT 1 ON LINE 143 ec = 0; 001702 aa 6 00360 4501 00 stz pr6|240 ec STATEMENT 1 ON LINE 145 if lvname = "" then call FAIL ("-lv must be specified"); 001703 aa 040 004 106 500 cmpc (pr),(ic),fill(040) 001704 aa 6 00123 00 0040 desc9a pr6|83,32 lvname 001705 aa 006445 00 0000 desc9a 3365,0 010350 = 154166000000 001706 aa 000012 6010 04 tnz 10,ic 001720 001707 aa 776665 2370 04 ldaq -587,ic 000574 = 055154166040 155165163164 001710 aa 6 00426 7571 00 staq pr6|278 001711 aa 776665 2370 04 ldaq -587,ic 000576 = 040142145040 163160145143 001712 aa 6 00430 7571 00 staq pr6|280 001713 aa 776665 2370 04 ldaq -587,ic 000600 = 151146151145 144000000000 001714 aa 6 00432 7571 00 staq pr6|282 001715 aa 006403 3520 04 epp2 3331,ic 010320 = 000002000000 001716 aa 2 00000 2351 00 lda pr2|0 001717 aa 005715 6700 04 tsp4 3021,ic 007634 STATEMENT 1 ON LINE 146 call initializer_mdc_$read_hv (lvname, vrp, ec); 001720 aa 6 00123 3521 00 epp2 pr6|83 lvname 001721 aa 6 00430 2521 00 spri2 pr6|280 001722 aa 6 00362 3521 00 epp2 pr6|242 vrp 001723 aa 6 00432 2521 00 spri2 pr6|282 001724 aa 6 00360 3521 00 epp2 pr6|240 ec 001725 aa 6 00434 2521 00 spri2 pr6|284 001726 aa 776204 3520 04 epp2 -892,ic 000132 = 526000000040 001727 aa 6 00436 2521 00 spri2 pr6|286 001730 aa 776176 3520 04 epp2 -898,ic 000126 = 464000000000 001731 aa 6 00440 2521 00 spri2 pr6|288 001732 aa 776173 3520 04 epp2 -901,ic 000125 = 404000000043 001733 aa 6 00442 2521 00 spri2 pr6|290 001734 aa 6 00426 6211 00 eax1 pr6|278 001735 aa 014000 4310 07 fld 6144,dl 001736 aa 6 00044 3701 20 epp4 pr6|36,* 001737 la 4 00062 3521 20 epp2 pr4|50,* initializer_mdc_$read_hv 001740 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 147 if ec ^= 0 then do; 001741 aa 6 00360 2361 00 ldq pr6|240 ec 001742 aa 000522 6000 04 tze 338,ic 002464 STATEMENT 1 ON LINE 148 call hcs_$truncate_seg (vrp, 0, ec); 001743 aa 6 00424 4501 00 stz pr6|276 001744 aa 6 00362 3521 00 epp2 pr6|242 vrp 001745 aa 6 00430 2521 00 spri2 pr6|280 001746 aa 6 00424 3521 00 epp2 pr6|276 001747 aa 6 00432 2521 00 spri2 pr6|282 001750 aa 6 00360 3521 00 epp2 pr6|240 ec 001751 aa 6 00434 2521 00 spri2 pr6|284 001752 aa 6 00426 6211 00 eax1 pr6|278 001753 aa 014000 4310 07 fld 6144,dl 001754 aa 6 00044 3701 20 epp4 pr6|36,* 001755 la 4 00052 3521 20 epp2 pr4|42,* hcs_$truncate_seg 001756 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 149 if ec ^= 0 then call FAIL ("cannot create: " || lvname); 001757 aa 6 00360 2361 00 ldq pr6|240 ec 001760 aa 000012 6000 04 tze 10,ic 001772 001761 aa 040 100 100 404 mlr (ic),(pr),fill(040) 001762 aa 776373 00 0017 desc9a -773,15 000354 = 143141156156 001763 aa 6 00426 00 0017 desc9a pr6|278,15 001764 aa 040 100 100 500 mlr (pr),(pr),fill(040) 001765 aa 6 00123 00 0040 desc9a pr6|83,32 lvname 001766 aa 6 00431 60 0040 desc9a pr6|281(3),32 001767 aa 006051 3520 04 epp2 3113,ic 010040 = 000002000000 001770 aa 2 00000 2351 00 lda pr2|0 001771 aa 005643 6700 04 tsp4 2979,ic 007634 STATEMENT 1 ON LINE 150 volume_registration.version = 1; 001772 aa 000001 2360 07 ldq 1,dl 001773 aa 6 00362 7561 20 stq pr6|242,* volume_registration.version STATEMENT 1 ON LINE 151 volume_registration.hvid = substr (bit (fixed (clock_ (), 71), 71), 36, 36); 001774 aa 6 00542 3521 00 epp2 pr6|354 001775 aa 6 00430 2521 00 spri2 pr6|280 001776 aa 6 00426 6211 00 eax1 pr6|278 001777 aa 004000 4310 07 fld 2048,dl 002000 aa 6 00044 3701 20 epp4 pr6|36,* 002001 la 4 00024 3521 20 epp2 pr4|20,* clock_ 002002 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out 002003 aa 6 00542 2371 00 ldaq pr6|354 002004 aa 000002 6050 04 tpl 2,ic 002006 002005 aa 000000 5330 00 negl 0 002006 aa 000001 7370 00 lls 1 002007 aa 6 00540 7571 00 staq pr6|352 002010 aa 000043 7370 00 lls 35 002011 aa 6 00362 3735 20 epp7 pr6|242,* vrp 002012 aa 7 00001 7551 00 sta pr7|1 volume_registration.hvid STATEMENT 1 ON LINE 152 uname = "lvid." || unique_chars_ (volume_registration.hvid); 002013 aa 7 00001 3521 00 epp2 pr7|1 volume_registration.hvid 002014 aa 6 00462 2521 00 spri2 pr6|306 002015 aa 6 00426 3521 00 epp2 pr6|278 002016 aa 6 00464 2521 00 spri2 pr6|308 002017 aa 776066 3520 04 epp2 -970,ic 000105 = 514000000044 002020 aa 6 00466 2521 00 spri2 pr6|310 002021 aa 776110 3520 04 epp2 -952,ic 000131 = 526000000017 002022 aa 6 00470 2521 00 spri2 pr6|312 002023 aa 6 00460 6211 00 eax1 pr6|304 002024 aa 010000 4310 07 fld 4096,dl 002025 aa 6 00044 3701 20 epp4 pr6|36,* 002026 la 4 00102 3521 20 epp2 pr4|66,* unique_chars_ 002027 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc 002030 aa 000024 2360 07 ldq 20,dl 002031 aa 0 00551 7001 00 tsx0 pr0|361 alloc_cs 002032 aa 040 100 100 404 mlr (ic),(pr),fill(040) 002033 aa 776120 00 0005 desc9a -944,5 000152 = 154166151144 002034 aa 2 00000 00 0005 desc9a pr2|0,5 002035 aa 040 100 100 500 mlr (pr),(pr),fill(040) 002036 aa 6 00426 00 0017 desc9a pr6|278,15 002037 aa 2 00001 20 0017 desc9a pr2|1(1),15 002040 aa 040 100 100 500 mlr (pr),(pr),fill(040) 002041 aa 2 00000 00 0024 desc9a pr2|0,20 002042 aa 6 00103 00 0040 desc9a pr6|67,32 uname STATEMENT 1 ON LINE 153 volume_registration.hvname = lvname; 002043 aa 0 01014 7001 00 tsx0 pr0|524 shorten_stack 002044 aa 6 00362 3735 20 epp7 pr6|242,* vrp 002045 aa 000 100 100 500 mlr (pr),(pr),fill(000) 002046 aa 6 00123 00 0040 desc9a pr6|83,32 lvname 002047 aa 7 00002 00 0040 desc9a pr7|2,32 volume_registration.hvname STATEMENT 1 ON LINE 154 if owner = "" then do; 002050 aa 040 004 106 500 cmpc (pr),(ic),fill(040) 002051 aa 6 00346 00 0040 desc9a pr6|230,32 owner 002052 aa 006300 00 0000 desc9a 3264,0 010350 = 154166000000 002053 aa 000041 6010 04 tnz 33,ic 002114 STATEMENT 1 ON LINE 155 tcs1 = get_group_id_ (); 002054 aa 6 00426 3521 00 epp2 pr6|278 002055 aa 6 00462 2521 00 spri2 pr6|306 002056 aa 6 00460 6211 00 eax1 pr6|304 002057 aa 004000 4310 07 fld 2048,dl 002060 aa 6 00044 3701 20 epp4 pr6|36,* 002061 la 4 00046 3521 20 epp2 pr4|38,* get_group_id_ 002062 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out 002063 aa 040 100 100 500 mlr (pr),(pr),fill(040) 002064 aa 6 00426 00 0040 desc9a pr6|278,32 002065 aa 6 00143 00 0250 desc9a pr6|99,168 tcs1 STATEMENT 1 ON LINE 156 i = length (tcs1) + 1 - verify (reverse (tcs1), " "); 002066 aa 000 000 165 500 tctr (pr) 002067 aa 6 00143 00 0250 desc9a pr6|99,168 tcs1 002070 aa 0 76605 0001 00 arg pr0|-635 = 777777777777 002071 aa 6 00056 0001 00 arg pr6|46 002072 aa 6 00056 2361 00 ldq pr6|46 002073 aa 0 00242 3761 00 anq pr0|162 = 000777777777 002074 aa 000002 6070 04 ttf 2,ic 002076 002075 aa 000001 3360 07 lcq 1,dl 002076 aa 000001 0760 07 adq 1,dl 002077 aa 6 00424 7561 00 stq pr6|276 002100 aa 000251 2360 07 ldq 169,dl 002101 aa 6 00424 1761 00 sbq pr6|276 002102 aa 6 00331 7561 00 stq pr6|217 i STATEMENT 1 ON LINE 157 substr (tcs1, i-1) = ""; 002103 aa 000002 1760 07 sbq 2,dl 002104 aa 6 00424 7561 00 stq pr6|276 002105 aa 000250 2360 07 ldq 168,dl 002106 aa 6 00424 1761 00 sbq pr6|276 002107 aa 6 00331 7271 00 lxl7 pr6|217 i 002110 aa 040 157 100 400 mlr (),(pr,rl,x7),fill(040) 002111 aa 000000 00 0000 desc9a 0,0 002112 aa 6 00142 40 0006 desc9a pr6|98(2),ql tcs1 STATEMENT 1 ON LINE 158 call check_owner; 002113 aa 005564 6700 04 tsp4 2932,ic 007677 STATEMENT 1 ON LINE 159 end; STATEMENT 1 ON LINE 160 volume_registration.volume_owner = owner; 002114 aa 6 00362 3735 20 epp7 pr6|242,* vrp 002115 aa 000 100 100 500 mlr (pr),(pr),fill(000) 002116 aa 6 00346 00 0040 desc9a pr6|230,32 owner 002117 aa 7 00016 00 0040 desc9a pr7|14,32 volume_registration.volume_owner STATEMENT 1 ON LINE 161 volume_registration.public = pubbit; 002120 aa 6 00345 2351 00 lda pr6|229 pubbit 002121 aa 7 00100 6751 00 era pr7|64 volume_registration.public 002122 aa 0 00002 3751 00 ana pr0|2 = 400000000000 002123 aa 7 00100 6551 00 ersa pr7|64 volume_registration.public STATEMENT 1 ON LINE 162 volume_registration.min_access_class = access_low; 002124 aa 6 00250 2371 00 ldaq pr6|168 access_low 002125 aa 7 00014 7551 00 sta pr7|12 volume_registration.min_access_class 002126 aa 7 00015 7561 00 stq pr7|13 volume_registration.min_access_class STATEMENT 1 ON LINE 163 volume_registration.max_access_class = access_high; 002127 aa 6 00252 2371 00 ldaq pr6|170 access_high 002130 aa 7 00012 7551 00 sta pr7|10 volume_registration.max_access_class 002131 aa 7 00013 7561 00 stq pr7|11 volume_registration.max_access_class STATEMENT 1 ON LINE 165 if ^pubbit | acs_path ^= "" then do; 002132 aa 6 00345 2351 00 lda pr6|229 pubbit 002133 aa 000005 6000 04 tze 5,ic 002140 002134 aa 040 004 106 500 cmpc (pr),(ic),fill(040) 002135 aa 6 00257 00 0250 desc9a pr6|175,168 acs_path 002136 aa 006214 00 0000 desc9a 3212,0 010350 = 154166000000 002137 aa 000230 6000 04 tze 152,ic 002367 STATEMENT 1 ON LINE 166 i = length (lvname) + 1 - verify (reverse (lvname), " "); 002140 aa 000 000 165 500 tctr (pr) 002141 aa 6 00123 00 0040 desc9a pr6|83,32 lvname 002142 aa 0 76605 0001 00 arg pr0|-635 = 777777777777 002143 aa 6 00056 0001 00 arg pr6|46 002144 aa 6 00056 2361 00 ldq pr6|46 002145 aa 0 00242 3761 00 anq pr0|162 = 000777777777 002146 aa 000002 6070 04 ttf 2,ic 002150 002147 aa 000001 3360 07 lcq 1,dl 002150 aa 000001 0760 07 adq 1,dl 002151 aa 6 00424 7561 00 stq pr6|276 002152 aa 000041 2360 07 ldq 33,dl 002153 aa 6 00424 1761 00 sbq pr6|276 002154 aa 6 00331 7561 00 stq pr6|217 i STATEMENT 1 ON LINE 167 uname = substr (lvname, 1, i) || ".acs"; 002155 aa 000004 0760 07 adq 4,dl 002156 aa 0 00551 7001 00 tsx0 pr0|361 alloc_cs 002157 aa 6 00331 7271 00 lxl7 pr6|217 i 002160 aa 040 140 100 540 mlr (pr,rl),(pr,rl),fill(040) 002161 aa 6 00123 00 0017 desc9a pr6|83,x7 lvname 002162 aa 2 00000 00 0017 desc9a pr2|0,x7 002163 aa 040 117 100 404 mlr (ic),(pr,x7),fill(040) 002164 aa 775721 00 0004 desc9a -1071,4 000104 = 056141143163 002165 aa 2 00000 00 0004 desc9a pr2|0,4 002166 aa 040 100 100 540 mlr (pr,rl),(pr),fill(040) 002167 aa 2 00000 00 0006 desc9a pr2|0,ql 002170 aa 6 00103 00 0040 desc9a pr6|67,32 uname STATEMENT 1 ON LINE 168 if acs_path = "" then do; 002171 aa 0 01014 7001 00 tsx0 pr0|524 shorten_stack 002172 aa 040 004 106 500 cmpc (pr),(ic),fill(040) 002173 aa 6 00257 00 0250 desc9a pr6|175,168 acs_path 002174 aa 006156 00 0000 desc9a 3182,0 010350 = 154166000000 002175 aa 000100 6010 04 tnz 64,ic 002275 STATEMENT 1 ON LINE 169 j = index (substr (owner, owneri+1), " ") - 1; 002176 aa 000040 2360 07 ldq 32,dl 002177 aa 6 00356 1761 00 sbq pr6|238 owneri 002200 aa 6 00356 7261 00 lxl6 pr6|238 owneri 002201 aa 000 003 124 556 scm (pr,rl,x6),(du),mask(000) 002202 aa 6 00346 00 0006 desc9a pr6|230,ql owner 002203 aa 040000 00 0001 desc9a 16384,1 002204 aa 6 00056 0001 00 arg pr6|46 002205 aa 6 00056 2361 00 ldq pr6|46 002206 aa 000002 6070 04 ttf 2,ic 002210 002207 aa 000001 3360 07 lcq 1,dl 002210 aa 6 00332 7561 00 stq pr6|218 j STATEMENT 1 ON LINE 170 acs_path = ">udd>" || substr (owner, owneri+1, j) || ">" || substr (owner, 1, owneri-1) || ">" || uname; 002211 aa 6 00356 2361 00 ldq pr6|238 owneri 002212 aa 000001 1760 07 sbq 1,dl 002213 aa 6 00424 7561 00 stq pr6|276 002214 aa 000005 2360 07 ldq 5,dl 002215 aa 6 00332 0761 00 adq pr6|218 j 002216 aa 0 00551 7001 00 tsx0 pr0|361 alloc_cs 002217 aa 040 100 100 404 mlr (ic),(pr),fill(040) 002220 aa 775731 00 0005 desc9a -1063,5 000150 = 076165144144 002221 aa 2 00000 00 0005 desc9a pr2|0,5 002222 aa 6 00332 7251 00 lxl5 pr6|218 j 002223 aa 040 140 100 556 mlr (pr,rl,x6),(pr,rl),fill(040) 002224 aa 6 00346 00 0015 desc9a pr6|230,x5 owner 002225 aa 2 00001 20 0015 desc9a pr2|1(1),x5 002226 aa 6 00423 7561 00 stq pr6|275 002227 aa 000001 0760 07 adq 1,dl 002230 aa 6 00422 7561 00 stq pr6|274 002231 aa 0 00606 7001 00 tsx0 pr0|390 cat_realloc_cs 002232 aa 6 00423 2351 00 lda pr6|275 002233 aa 040 105 100 404 mlr (ic),(pr,al),fill(040) 002234 aa 006116 00 0001 desc9a 3150,1 010351 = 076000000000 002235 aa 2 00000 00 0001 desc9a pr2|0,1 002236 aa 6 00422 2361 00 ldq pr6|274 002237 aa 6 00424 0761 00 adq pr6|276 002240 aa 6 00423 7561 00 stq pr6|275 002241 aa 0 00606 7001 00 tsx0 pr0|390 cat_realloc_cs 002242 aa 6 00422 2351 00 lda pr6|274 002243 aa 6 00424 7241 00 lxl4 pr6|276 002244 aa 040 145 100 540 mlr (pr,rl),(pr,rl,al),fill(040) 002245 aa 6 00346 00 0014 desc9a pr6|230,x4 owner 002246 aa 2 00000 00 0014 desc9a pr2|0,x4 002247 aa 6 00423 2361 00 ldq pr6|275 002250 aa 000001 0760 07 adq 1,dl 002251 aa 6 00422 7561 00 stq pr6|274 002252 aa 0 00606 7001 00 tsx0 pr0|390 cat_realloc_cs 002253 aa 6 00423 2351 00 lda pr6|275 002254 aa 040 105 100 404 mlr (ic),(pr,al),fill(040) 002255 aa 006075 00 0001 desc9a 3133,1 010351 = 076000000000 002256 aa 2 00000 00 0001 desc9a pr2|0,1 002257 aa 6 00422 2361 00 ldq pr6|274 002260 aa 000040 0760 07 adq 32,dl 002261 aa 6 00423 7561 00 stq pr6|275 002262 aa 0 00606 7001 00 tsx0 pr0|390 cat_realloc_cs 002263 aa 6 00422 2351 00 lda pr6|274 002264 aa 040 105 100 500 mlr (pr),(pr,al),fill(040) 002265 aa 6 00103 00 0040 desc9a pr6|67,32 uname 002266 aa 2 00000 00 0040 desc9a pr2|0,32 002267 aa 6 00423 2361 00 ldq pr6|275 002270 aa 040 100 100 540 mlr (pr,rl),(pr),fill(040) 002271 aa 2 00000 00 0006 desc9a pr2|0,ql 002272 aa 6 00257 00 0250 desc9a pr6|175,168 acs_path STATEMENT 1 ON LINE 172 end; 002273 aa 0 01014 7001 00 tsx0 pr0|524 shorten_stack 002274 aa 000021 7100 04 tra 17,ic 002315 STATEMENT 1 ON LINE 173 else if index (acs_path, uname) = 0 then call FAIL ("acs_path invalid: " || acs_path); 002275 aa 000250 2360 07 ldq 168,dl 002276 aa 6 00257 3521 00 epp2 pr6|175 acs_path 002277 aa 0 01227 7001 00 tsx0 pr0|663 set_cs_eis 002300 aa 000040 2360 07 ldq 32,dl 002301 aa 6 00103 3521 00 epp2 pr6|67 uname 002302 aa 0 01231 7001 00 tsx0 pr0|665 index_cs_eis 002303 aa 000012 6010 04 tnz 10,ic 002315 002304 aa 040 100 100 404 mlr (ic),(pr),fill(040) 002305 aa 776167 00 0022 desc9a -905,18 000473 = 141143163137 002306 aa 6 00544 00 0022 desc9a pr6|356,18 002307 aa 040 100 100 500 mlr (pr),(pr),fill(040) 002310 aa 6 00257 00 0250 desc9a pr6|175,168 acs_path 002311 aa 6 00550 40 0250 desc9a pr6|360(2),168 002312 aa 005520 3520 04 epp2 2896,ic 010032 = 000002000000 002313 aa 2 00000 2351 00 lda pr2|0 002314 aa 005320 6700 04 tsp4 2768,ic 007634 STATEMENT 1 ON LINE 174 call initializer_mdc_$make_link (acs_path, ec); 002315 aa 6 00257 3521 00 epp2 pr6|175 acs_path 002316 aa 6 00430 2521 00 spri2 pr6|280 002317 aa 6 00360 3521 00 epp2 pr6|240 ec 002320 aa 6 00432 2521 00 spri2 pr6|282 002321 aa 775600 3520 04 epp2 -1152,ic 000121 = 526000000250 002322 aa 6 00434 2521 00 spri2 pr6|284 002323 aa 775602 3520 04 epp2 -1150,ic 000125 = 404000000043 002324 aa 6 00436 2521 00 spri2 pr6|286 002325 aa 6 00426 6211 00 eax1 pr6|278 002326 aa 010000 4310 07 fld 4096,dl 002327 aa 6 00044 3701 20 epp4 pr6|36,* 002330 la 4 00060 3521 20 epp2 pr4|48,* initializer_mdc_$make_link 002331 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 175 if ec ^= 0 then call com_err_ (ec, comname, "cannot link to acs: ^a", acs_path); 002332 aa 6 00360 2361 00 ldq pr6|240 ec 002333 aa 000034 6000 04 tze 28,ic 002367 002334 aa 776232 2370 04 ldaq -870,ic 000566 = 143141156156 157164040154 002335 aa 6 00426 7571 00 staq pr6|278 002336 aa 776232 2370 04 ldaq -870,ic 000570 = 151156153040 164157040141 002337 aa 6 00430 7571 00 staq pr6|280 002340 aa 776232 2370 04 ldaq -870,ic 000572 = 143163072040 136141000000 002341 aa 6 00432 7571 00 staq pr6|282 002342 aa 6 00360 3521 00 epp2 pr6|240 ec 002343 aa 6 00462 2521 00 spri2 pr6|306 002344 aa 6 00215 3521 00 epp2 pr6|141 comname 002345 aa 6 00464 2521 00 spri2 pr6|308 002346 aa 6 00426 3521 00 epp2 pr6|278 002347 aa 6 00466 2521 00 spri2 pr6|310 002350 aa 6 00257 3521 00 epp2 pr6|175 acs_path 002351 aa 6 00470 2521 00 spri2 pr6|312 002352 aa 775553 3520 04 epp2 -1173,ic 000125 = 404000000043 002353 aa 6 00472 2521 00 spri2 pr6|314 002354 aa 775556 3520 04 epp2 -1170,ic 000132 = 526000000040 002355 aa 6 00474 2521 00 spri2 pr6|316 002356 aa 775524 3520 04 epp2 -1196,ic 000102 = 524000000026 002357 aa 6 00476 2521 00 spri2 pr6|318 002360 aa 775541 3520 04 epp2 -1183,ic 000121 = 526000000250 002361 aa 6 00500 2521 00 spri2 pr6|320 002362 aa 6 00460 6211 00 eax1 pr6|304 002363 aa 020000 4310 07 fld 8192,dl 002364 aa 6 00044 3701 20 epp4 pr6|36,* 002365 la 4 00026 3521 20 epp2 pr4|22,* com_err_ 002366 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 176 end; STATEMENT 1 ON LINE 177 volume_registration.acs_path = acs_path; 002367 aa 6 00362 3735 20 epp7 pr6|242,* vrp 002370 aa 000 100 100 500 mlr (pr),(pr),fill(000) 002371 aa 6 00257 00 0250 desc9a pr6|175,168 acs_path 002372 aa 7 00026 00 0250 desc9a pr7|22,168 volume_registration.acs_path STATEMENT 1 ON LINE 179 call initializer_mdc_$write_hv (lvname, vrp, ec); 002373 aa 6 00123 3521 00 epp2 pr6|83 lvname 002374 aa 6 00430 2521 00 spri2 pr6|280 002375 aa 6 00362 3521 00 epp2 pr6|242 vrp 002376 aa 6 00432 2521 00 spri2 pr6|282 002377 aa 6 00360 3521 00 epp2 pr6|240 ec 002400 aa 6 00434 2521 00 spri2 pr6|284 002401 aa 775531 3520 04 epp2 -1191,ic 000132 = 526000000040 002402 aa 6 00436 2521 00 spri2 pr6|286 002403 aa 775523 3520 04 epp2 -1197,ic 000126 = 464000000000 002404 aa 6 00440 2521 00 spri2 pr6|288 002405 aa 775520 3520 04 epp2 -1200,ic 000125 = 404000000043 002406 aa 6 00442 2521 00 spri2 pr6|290 002407 aa 6 00426 6211 00 eax1 pr6|278 002410 aa 014000 4310 07 fld 6144,dl 002411 aa 6 00044 3701 20 epp4 pr6|36,* 002412 la 4 00066 3521 20 epp2 pr4|54,* initializer_mdc_$write_hv 002413 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 180 if ec ^= 0 then call FAIL ("cannot create: " || lvname); 002414 aa 6 00360 2361 00 ldq pr6|240 ec 002415 aa 000012 6000 04 tze 10,ic 002427 002416 aa 040 100 100 404 mlr (ic),(pr),fill(040) 002417 aa 775736 00 0017 desc9a -1058,15 000354 = 143141156156 002420 aa 6 00426 00 0017 desc9a pr6|278,15 002421 aa 040 100 100 500 mlr (pr),(pr),fill(040) 002422 aa 6 00123 00 0040 desc9a pr6|83,32 lvname 002423 aa 6 00431 60 0040 desc9a pr6|281(3),32 002424 aa 005414 3520 04 epp2 2828,ic 010040 = 000002000000 002425 aa 2 00000 2351 00 lda pr2|0 002426 aa 005206 6700 04 tsp4 2694,ic 007634 STATEMENT 1 ON LINE 181 call mdc_priv_$make_mdcs (lvname, ec); 002427 aa 6 00123 3521 00 epp2 pr6|83 lvname 002430 aa 6 00430 2521 00 spri2 pr6|280 002431 aa 6 00360 3521 00 epp2 pr6|240 ec 002432 aa 6 00432 2521 00 spri2 pr6|282 002433 aa 775477 3520 04 epp2 -1217,ic 000132 = 526000000040 002434 aa 6 00434 2521 00 spri2 pr6|284 002435 aa 775470 3520 04 epp2 -1224,ic 000125 = 404000000043 002436 aa 6 00436 2521 00 spri2 pr6|286 002437 aa 6 00426 6211 00 eax1 pr6|278 002440 aa 010000 4310 07 fld 4096,dl 002441 aa 6 00044 3701 20 epp4 pr6|36,* 002442 la 4 00072 3521 20 epp2 pr4|58,* mdc_priv_$make_mdcs 002443 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 182 if ec ^= 0 & ec ^= error_table_$namedup then call FAIL ("cannot make mdcs: " || lvname); 002444 aa 6 00360 2361 00 ldq pr6|240 ec 002445 aa 000015 6000 04 tze 13,ic 002462 002446 aa 6 00044 3701 20 epp4 pr6|36,* 002447 la 4 00016 1161 20 cmpq pr4|14,* error_table_$namedup 002450 aa 000012 6000 04 tze 10,ic 002462 002451 aa 040 100 100 404 mlr (ic),(pr),fill(040) 002452 aa 776015 00 0022 desc9a -1011,18 000466 = 143141156156 002453 aa 6 00426 00 0022 desc9a pr6|278,18 002454 aa 040 100 100 500 mlr (pr),(pr),fill(040) 002455 aa 6 00123 00 0040 desc9a pr6|83,32 lvname 002456 aa 6 00432 40 0040 desc9a pr6|282(2),32 002457 aa 005345 3520 04 epp2 2789,ic 010024 = 000002000000 002460 aa 2 00000 2351 00 lda pr2|0 002461 aa 005153 6700 04 tsp4 2667,ic 007634 STATEMENT 1 ON LINE 183 new_lv = "1"b; 002462 aa 400000 2350 03 lda 131072,du 002463 aa 6 00256 7551 00 sta pr6|174 new_lv STATEMENT 1 ON LINE 184 end; STATEMENT 1 ON LINE 186 do i = 1 to volume_registration.npv while (volume_registration.pvname (i) ^= pvname); 002464 aa 6 00362 3735 20 epp7 pr6|242,* vrp 002465 aa 7 00101 2361 00 ldq pr7|65 volume_registration.npv 002466 aa 6 00364 7561 00 stq pr6|244 002467 aa 000001 2360 07 ldq 1,dl 002470 aa 6 00331 7561 00 stq pr6|217 i 002471 aa 000000 0110 03 nop 0,du 002472 aa 6 00331 2361 00 ldq pr6|217 i 002473 aa 6 00364 1161 00 cmpq pr6|244 002474 aa 000012 6054 04 tpnz 10,ic 002506 002475 aa 000036 4020 07 mpy 30,dl 002476 aa 6 00362 3735 20 epp7 pr6|242,* vrp 002477 aa 7 00046 3735 06 epp7 pr7|38,ql volume_registration.pvname 002500 aa 040 100 106 500 cmpc (pr),(pr),fill(040) 002501 aa 7 00000 00 0040 desc9a pr7|0,32 volume_registration.pvname 002502 aa 6 00113 00 0040 desc9a pr6|75,32 pvname 002503 aa 000003 6000 04 tze 3,ic 002506 STATEMENT 2 ON LINE 186 end; 002504 aa 6 00331 0541 00 aos pr6|217 i 002505 aa 777765 7100 04 tra -11,ic 002472 STATEMENT 1 ON LINE 187 if i <= volume_registration.npv then call com_err_ (0, comname, "pv ^a already registered in ^a", pvname, lvname); 002506 aa 6 00331 2361 00 ldq pr6|217 i 002507 aa 6 00362 3735 20 epp7 pr6|242,* vrp 002510 aa 7 00101 1161 00 cmpq pr7|65 volume_registration.npv 002511 aa 000034 6054 04 tpnz 28,ic 002545 002512 aa 6 00423 4501 00 stz pr6|275 002513 aa 000 100 100 404 mlr (ic),(pr),fill(000) 002514 aa 776146 00 0040 desc9a -922,32 000661 = 160166040136 002515 aa 6 00426 00 0040 desc9a pr6|278,32 002516 aa 6 00423 3521 00 epp2 pr6|275 002517 aa 6 00462 2521 00 spri2 pr6|306 002520 aa 6 00215 3521 00 epp2 pr6|141 comname 002521 aa 6 00464 2521 00 spri2 pr6|308 002522 aa 6 00426 3521 00 epp2 pr6|278 002523 aa 6 00466 2521 00 spri2 pr6|310 002524 aa 6 00113 3521 00 epp2 pr6|75 pvname 002525 aa 6 00470 2521 00 spri2 pr6|312 002526 aa 6 00123 3521 00 epp2 pr6|83 lvname 002527 aa 6 00472 2521 00 spri2 pr6|314 002530 aa 775377 3520 04 epp2 -1281,ic 000127 = 404000000005 002531 aa 6 00474 2521 00 spri2 pr6|316 002532 aa 775400 3520 04 epp2 -1280,ic 000132 = 526000000040 002533 aa 6 00476 2521 00 spri2 pr6|318 002534 aa 6 00502 2521 00 spri2 pr6|322 002535 aa 6 00504 2521 00 spri2 pr6|324 002536 aa 775342 3520 04 epp2 -1310,ic 000100 = 524000000036 002537 aa 6 00500 2521 00 spri2 pr6|320 002540 aa 6 00460 6211 00 eax1 pr6|304 002541 aa 024000 4310 07 fld 10240,dl 002542 aa 6 00044 3701 20 epp4 pr6|36,* 002543 la 4 00026 3521 20 epp2 pr4|22,* com_err_ 002544 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 189 call initializer_mdc_$chname_hv (lvname, "", "pv." || pvname, ec); 002545 aa 040 100 100 404 mlr (ic),(pr),fill(040) 002546 aa 775332 00 0003 desc9a -1318,3 000077 = 160166056000 002547 aa 6 00426 00 0003 desc9a pr6|278,3 002550 aa 040 100 100 500 mlr (pr),(pr),fill(040) 002551 aa 6 00113 00 0040 desc9a pr6|75,32 pvname 002552 aa 6 00426 60 0040 desc9a pr6|278(3),32 002553 aa 6 00123 3521 00 epp2 pr6|83 lvname 002554 aa 6 00462 2521 00 spri2 pr6|306 002555 aa 6 00423 3521 00 epp2 pr6|275 002556 aa 6 00464 2521 00 spri2 pr6|308 002557 aa 6 00426 3521 00 epp2 pr6|278 002560 aa 6 00466 2521 00 spri2 pr6|310 002561 aa 6 00360 3521 00 epp2 pr6|240 ec 002562 aa 6 00470 2521 00 spri2 pr6|312 002563 aa 775347 3520 04 epp2 -1305,ic 000132 = 526000000040 002564 aa 6 00472 2521 00 spri2 pr6|314 002565 aa 775343 3520 04 epp2 -1309,ic 000130 = 524000000000 002566 aa 6 00474 2521 00 spri2 pr6|316 002567 aa 775307 3520 04 epp2 -1337,ic 000076 = 524000000043 002570 aa 6 00476 2521 00 spri2 pr6|318 002571 aa 775334 3520 04 epp2 -1316,ic 000125 = 404000000043 002572 aa 6 00500 2521 00 spri2 pr6|320 002573 aa 6 00460 6211 00 eax1 pr6|304 002574 aa 020000 4310 07 fld 8192,dl 002575 aa 6 00044 3701 20 epp4 pr6|36,* 002576 la 4 00054 3521 20 epp2 pr4|44,* initializer_mdc_$chname_hv 002577 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 190 if ec ^= 0 then call com_err_ (ec, comname, "cannot add name pv.^a to lv.^a", pvname, lvname); 002600 aa 6 00360 2361 00 ldq pr6|240 ec 002601 aa 000033 6000 04 tze 27,ic 002634 002602 aa 000 100 100 404 mlr (ic),(pr),fill(000) 002603 aa 776047 00 0040 desc9a -985,32 000651 = 143141156156 002604 aa 6 00426 00 0040 desc9a pr6|278,32 002605 aa 6 00360 3521 00 epp2 pr6|240 ec 002606 aa 6 00462 2521 00 spri2 pr6|306 002607 aa 6 00215 3521 00 epp2 pr6|141 comname 002610 aa 6 00464 2521 00 spri2 pr6|308 002611 aa 6 00426 3521 00 epp2 pr6|278 002612 aa 6 00466 2521 00 spri2 pr6|310 002613 aa 6 00113 3521 00 epp2 pr6|75 pvname 002614 aa 6 00470 2521 00 spri2 pr6|312 002615 aa 6 00123 3521 00 epp2 pr6|83 lvname 002616 aa 6 00472 2521 00 spri2 pr6|314 002617 aa 775306 3520 04 epp2 -1338,ic 000125 = 404000000043 002620 aa 6 00474 2521 00 spri2 pr6|316 002621 aa 775311 3520 04 epp2 -1335,ic 000132 = 526000000040 002622 aa 6 00476 2521 00 spri2 pr6|318 002623 aa 6 00502 2521 00 spri2 pr6|322 002624 aa 6 00504 2521 00 spri2 pr6|324 002625 aa 775253 3520 04 epp2 -1365,ic 000100 = 524000000036 002626 aa 6 00500 2521 00 spri2 pr6|320 002627 aa 6 00460 6211 00 eax1 pr6|304 002630 aa 024000 4310 07 fld 10240,dl 002631 aa 6 00044 3701 20 epp4 pr6|36,* 002632 la 4 00026 3521 20 epp2 pr4|22,* com_err_ 002633 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 192 if owner ^= "" /* If he gave args check them */ then if owner ^= volume_registration.volume_owner then call FAIL ("registered owner conflicts: " || volume_registration.volume_owner); 002634 aa 040 004 106 500 cmpc (pr),(ic),fill(040) 002635 aa 6 00346 00 0040 desc9a pr6|230,32 owner 002636 aa 005514 00 0000 desc9a 2892,0 010350 = 154166000000 002637 aa 000017 6000 04 tze 15,ic 002656 002640 aa 6 00362 3735 20 epp7 pr6|242,* vrp 002641 aa 040 100 106 500 cmpc (pr),(pr),fill(040) 002642 aa 6 00346 00 0040 desc9a pr6|230,32 owner 002643 aa 7 00016 00 0040 desc9a pr7|14,32 volume_registration.volume_owner 002644 aa 000012 6000 04 tze 10,ic 002656 002645 aa 040 100 100 404 mlr (ic),(pr),fill(040) 002646 aa 775766 00 0034 desc9a -1034,28 000633 = 162145147151 002647 aa 6 00426 00 0034 desc9a pr6|278,28 002650 aa 040 100 100 500 mlr (pr),(pr),fill(040) 002651 aa 7 00016 00 0040 desc9a pr7|14,32 volume_registration.volume_owner 002652 aa 6 00435 00 0040 desc9a pr6|285,32 002653 aa 005237 3520 04 epp2 2719,ic 010112 = 000002000000 002654 aa 2 00000 2351 00 lda pr2|0 002655 aa 004757 6700 04 tsp4 2543,ic 007634 STATEMENT 1 ON LINE 195 if gave_access_low then if access_low ^= volume_registration.min_access_class then call FAIL ("registered min access class conflicts"); 002656 aa 6 00254 2351 00 lda pr6|172 gave_access_low 002657 aa 000015 6000 04 tze 13,ic 002674 002660 aa 6 00250 2371 00 ldaq pr6|168 access_low 002661 aa 6 00362 3735 20 epp7 pr6|242,* vrp 002662 aa 7 00014 1151 00 cmpa pr7|12 volume_registration.min_access_class 002663 aa 000002 6010 04 tnz 2,ic 002665 002664 aa 7 00015 1161 00 cmpq pr7|13 volume_registration.min_access_class 002665 aa 000007 6000 04 tze 7,ic 002674 002666 aa 000 100 100 404 mlr (ic),(pr),fill(000) 002667 aa 776026 00 0050 desc9a -1002,40 000714 = 162145147151 002670 aa 6 00426 00 0050 desc9a pr6|278,40 002671 aa 005125 3520 04 epp2 2645,ic 010016 = 000002000000 002672 aa 2 00000 2351 00 lda pr2|0 002673 aa 004741 6700 04 tsp4 2529,ic 007634 STATEMENT 1 ON LINE 198 if gave_access_high then if access_high ^= volume_registration.max_access_class then call FAIL ("registered max access class conflicts"); 002674 aa 6 00255 2351 00 lda pr6|173 gave_access_high 002675 aa 000015 6000 04 tze 13,ic 002712 002676 aa 6 00252 2371 00 ldaq pr6|170 access_high 002677 aa 6 00362 3735 20 epp7 pr6|242,* vrp 002700 aa 7 00012 1151 00 cmpa pr7|10 volume_registration.max_access_class 002701 aa 000002 6010 04 tnz 2,ic 002703 002702 aa 7 00013 1161 00 cmpq pr7|11 volume_registration.max_access_class 002703 aa 000007 6000 04 tze 7,ic 002712 002704 aa 000 100 100 404 mlr (ic),(pr),fill(000) 002705 aa 775776 00 0050 desc9a -1026,40 000702 = 162145147151 002706 aa 6 00426 00 0050 desc9a pr6|278,40 002707 aa 005107 3520 04 epp2 2631,ic 010016 = 000002000000 002710 aa 2 00000 2351 00 lda pr2|0 002711 aa 004723 6700 04 tsp4 2515,ic 007634 STATEMENT 1 ON LINE 202 if b36 = "0"b then b36 = substr (bit (fixed (clock_ (), 71), 71), 36, 36); 002712 aa 6 00235 2351 00 lda pr6|157 b36 002713 aa 000017 6010 04 tnz 15,ic 002732 002714 aa 6 00540 3521 00 epp2 pr6|352 002715 aa 6 00430 2521 00 spri2 pr6|280 002716 aa 6 00426 6211 00 eax1 pr6|278 002717 aa 004000 4310 07 fld 2048,dl 002720 aa 6 00044 3701 20 epp4 pr6|36,* 002721 la 4 00024 3521 20 epp2 pr4|20,* clock_ 002722 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out 002723 aa 6 00540 2371 00 ldaq pr6|352 002724 aa 000002 6050 04 tpl 2,ic 002726 002725 aa 000000 5330 00 negl 0 002726 aa 000001 7370 00 lls 1 002727 aa 6 00542 7571 00 staq pr6|354 002730 aa 000043 7370 00 lls 35 002731 aa 6 00235 7551 00 sta pr6|157 b36 STATEMENT 1 ON LINE 203 volume_registration.pv (i).pvid = b36; 002732 aa 6 00331 2361 00 ldq pr6|217 i 002733 aa 000036 4020 07 mpy 30,dl 002734 aa 6 00235 2351 00 lda pr6|157 b36 002735 aa 6 00362 3735 20 epp7 pr6|242,* vrp 002736 aa 7 00044 7551 06 sta pr7|36,ql volume_registration.pvid STATEMENT 1 ON LINE 204 uname = "pvid." || unique_chars_ (volume_registration.pv (i).pvid); 002737 aa 000000 6270 06 eax7 0,ql 002740 aa 775145 2360 04 ldq -1435,ic 000105 = 514000000044 002741 aa 6 00423 7561 00 stq pr6|275 002742 aa 7 00044 3521 17 epp2 pr7|36,7 volume_registration.pvid 002743 aa 6 00462 2521 00 spri2 pr6|306 002744 aa 6 00426 3521 00 epp2 pr6|278 002745 aa 6 00464 2521 00 spri2 pr6|308 002746 aa 6 00423 3521 00 epp2 pr6|275 002747 aa 6 00466 2521 00 spri2 pr6|310 002750 aa 775161 3520 04 epp2 -1423,ic 000131 = 526000000017 002751 aa 6 00470 2521 00 spri2 pr6|312 002752 aa 6 00460 6211 00 eax1 pr6|304 002753 aa 010000 4310 07 fld 4096,dl 002754 aa 6 00044 3701 20 epp4 pr6|36,* 002755 la 4 00102 3521 20 epp2 pr4|66,* unique_chars_ 002756 aa 6 00422 7471 00 stx7 pr6|274 002757 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc 002760 aa 000024 2360 07 ldq 20,dl 002761 aa 0 00551 7001 00 tsx0 pr0|361 alloc_cs 002762 aa 040 100 100 404 mlr (ic),(pr),fill(040) 002763 aa 775164 00 0005 desc9a -1420,5 000146 = 160166151144 002764 aa 2 00000 00 0005 desc9a pr2|0,5 002765 aa 040 100 100 500 mlr (pr),(pr),fill(040) 002766 aa 6 00426 00 0017 desc9a pr6|278,15 002767 aa 2 00001 20 0017 desc9a pr2|1(1),15 002770 aa 040 100 100 500 mlr (pr),(pr),fill(040) 002771 aa 2 00000 00 0024 desc9a pr2|0,20 002772 aa 6 00103 00 0040 desc9a pr6|67,32 uname STATEMENT 1 ON LINE 205 call initializer_mdc_$chname_hv (lvname, "", uname, ec); 002773 aa 0 01014 7001 00 tsx0 pr0|524 shorten_stack 002774 aa 6 00123 3521 00 epp2 pr6|83 lvname 002775 aa 6 00430 2521 00 spri2 pr6|280 002776 aa 6 00423 3521 00 epp2 pr6|275 002777 aa 6 00432 2521 00 spri2 pr6|282 003000 aa 6 00103 3521 00 epp2 pr6|67 uname 003001 aa 6 00434 2521 00 spri2 pr6|284 003002 aa 6 00360 3521 00 epp2 pr6|240 ec 003003 aa 6 00436 2521 00 spri2 pr6|286 003004 aa 775126 3520 04 epp2 -1450,ic 000132 = 526000000040 003005 aa 6 00440 2521 00 spri2 pr6|288 003006 aa 6 00444 2521 00 spri2 pr6|292 003007 aa 775121 3520 04 epp2 -1455,ic 000130 = 524000000000 003010 aa 6 00442 2521 00 spri2 pr6|290 003011 aa 775114 3520 04 epp2 -1460,ic 000125 = 404000000043 003012 aa 6 00446 2521 00 spri2 pr6|294 003013 aa 6 00426 6211 00 eax1 pr6|278 003014 aa 020000 4310 07 fld 8192,dl 003015 aa 6 00044 3701 20 epp4 pr6|36,* 003016 la 4 00054 3521 20 epp2 pr4|44,* initializer_mdc_$chname_hv 003017 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 206 if ec ^= 0 then call com_err_ (ec, comname, "cannot add ^a on ^a", uname, lvname); 003020 aa 6 00360 2361 00 ldq pr6|240 ec 003021 aa 000033 6000 04 tze 27,ic 003054 003022 aa 000 100 100 404 mlr (ic),(pr),fill(000) 003023 aa 775437 00 0024 desc9a -1249,20 000461 = 143141156156 003024 aa 6 00426 00 0024 desc9a pr6|278,20 003025 aa 6 00360 3521 00 epp2 pr6|240 ec 003026 aa 6 00462 2521 00 spri2 pr6|306 003027 aa 6 00215 3521 00 epp2 pr6|141 comname 003030 aa 6 00464 2521 00 spri2 pr6|308 003031 aa 6 00426 3521 00 epp2 pr6|278 003032 aa 6 00466 2521 00 spri2 pr6|310 003033 aa 6 00103 3521 00 epp2 pr6|67 uname 003034 aa 6 00470 2521 00 spri2 pr6|312 003035 aa 6 00123 3521 00 epp2 pr6|83 lvname 003036 aa 6 00472 2521 00 spri2 pr6|314 003037 aa 775066 3520 04 epp2 -1482,ic 000125 = 404000000043 003040 aa 6 00474 2521 00 spri2 pr6|316 003041 aa 775071 3520 04 epp2 -1479,ic 000132 = 526000000040 003042 aa 6 00476 2521 00 spri2 pr6|318 003043 aa 6 00502 2521 00 spri2 pr6|322 003044 aa 6 00504 2521 00 spri2 pr6|324 003045 aa 775027 3520 04 epp2 -1513,ic 000074 = 524000000023 003046 aa 6 00500 2521 00 spri2 pr6|320 003047 aa 6 00460 6211 00 eax1 pr6|304 003050 aa 024000 4310 07 fld 10240,dl 003051 aa 6 00044 3701 20 epp4 pr6|36,* 003052 la 4 00026 3521 20 epp2 pr4|22,* com_err_ 003053 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 208 volume_registration.pv (i).model = model; 003054 aa 6 00357 2361 00 ldq pr6|239 model 003055 aa 6 00422 2271 00 ldx7 pr6|274 003056 aa 6 00362 3735 20 epp7 pr6|242,* vrp 003057 aa 7 00045 7561 17 stq pr7|37,7 volume_registration.model STATEMENT 1 ON LINE 209 volume_registration.pv (i).pvname = pvname; 003060 aa 7 00046 3715 17 epp5 pr7|38,7 volume_registration.pvname 003061 aa 000 100 100 500 mlr (pr),(pr),fill(000) 003062 aa 6 00113 00 0040 desc9a pr6|75,32 pvname 003063 aa 5 00000 00 0040 desc9a pr5|0,32 volume_registration.pvname STATEMENT 1 ON LINE 210 volume_registration.pv (i).location = "uninitialized"; 003064 aa 7 00056 3535 17 epp3 pr7|46,7 volume_registration.location 003065 aa 040 100 100 404 mlr (ic),(pr),fill(040) 003066 aa 775263 00 0015 desc9a -1357,13 000350 = 165156151156 003067 aa 3 00000 00 0040 desc9a pr3|0,32 volume_registration.location STATEMENT 1 ON LINE 211 volume_registration.pv (i).mfg_serial = serial; 003070 aa 7 00066 3515 17 epp1 pr7|54,7 volume_registration.mfg_serial 003071 aa 000 100 100 500 mlr (pr),(pr),fill(000) 003072 aa 6 00335 00 0040 desc9a pr6|221,32 serial 003073 aa 1 00000 00 0040 desc9a pr1|0,32 volume_registration.mfg_serial STATEMENT 1 ON LINE 212 volume_registration.pv (i).password = "0"b; 003074 aa 7 00100 4501 17 stz pr7|64,7 volume_registration.password STATEMENT 1 ON LINE 213 volume_registration.pv (i).date_registered = clock_ (); 003075 aa 7 00076 3521 17 epp2 pr7|62,7 volume_registration.date_registered 003076 aa 6 00430 2521 00 spri2 pr6|280 003077 aa 6 00426 6211 00 eax1 pr6|278 003100 aa 004000 4310 07 fld 2048,dl 003101 aa 6 00044 3701 20 epp4 pr6|36,* 003102 la 4 00024 3521 20 epp2 pr4|20,* clock_ 003103 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 214 if i > volume_registration.npv then volume_registration.npv = i; 003104 aa 6 00331 2361 00 ldq pr6|217 i 003105 aa 6 00362 3735 20 epp7 pr6|242,* vrp 003106 aa 7 00101 1161 00 cmpq pr7|65 volume_registration.npv 003107 aa 000002 6044 04 tmoz 2,ic 003111 003110 aa 7 00101 7561 00 stq pr7|65 volume_registration.npv STATEMENT 1 ON LINE 216 call initializer_mdc_$write_hv (lvname, vrp, ec); 003111 aa 6 00123 3521 00 epp2 pr6|83 lvname 003112 aa 6 00430 2521 00 spri2 pr6|280 003113 aa 6 00362 3521 00 epp2 pr6|242 vrp 003114 aa 6 00432 2521 00 spri2 pr6|282 003115 aa 6 00360 3521 00 epp2 pr6|240 ec 003116 aa 6 00434 2521 00 spri2 pr6|284 003117 aa 775013 3520 04 epp2 -1525,ic 000132 = 526000000040 003120 aa 6 00436 2521 00 spri2 pr6|286 003121 aa 775005 3520 04 epp2 -1531,ic 000126 = 464000000000 003122 aa 6 00440 2521 00 spri2 pr6|288 003123 aa 775002 3520 04 epp2 -1534,ic 000125 = 404000000043 003124 aa 6 00442 2521 00 spri2 pr6|290 003125 aa 6 00426 6211 00 eax1 pr6|278 003126 aa 014000 4310 07 fld 6144,dl 003127 aa 6 00044 3701 20 epp4 pr6|36,* 003130 la 4 00066 3521 20 epp2 pr4|54,* initializer_mdc_$write_hv 003131 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 217 if ec ^= 0 then call FAIL ("cannot modify: " || lvname); 003132 aa 6 00360 2361 00 ldq pr6|240 ec 003133 aa 000012 6000 04 tze 10,ic 003145 003134 aa 040 100 100 404 mlr (ic),(pr),fill(040) 003135 aa 775210 00 0017 desc9a -1400,15 000344 = 143141156156 003136 aa 6 00426 00 0017 desc9a pr6|278,15 003137 aa 040 100 100 500 mlr (pr),(pr),fill(040) 003140 aa 6 00123 00 0040 desc9a pr6|83,32 lvname 003141 aa 6 00431 60 0040 desc9a pr6|281(3),32 003142 aa 004676 3520 04 epp2 2494,ic 010040 = 000002000000 003143 aa 2 00000 2351 00 lda pr2|0 003144 aa 004470 6700 04 tsp4 2360,ic 007634 STATEMENT 1 ON LINE 219 if new_lv then call ioa_ ("registered new lv ^a with lvid ^w", lvname, volume_registration.hvid); 003145 aa 6 00256 2351 00 lda pr6|174 new_lv 003146 aa 000026 6000 04 tze 22,ic 003174 003147 aa 000 100 100 404 mlr (ic),(pr),fill(000) 003150 aa 775522 00 0044 desc9a -1198,36 000671 = 162145147151 003151 aa 6 00426 00 0044 desc9a pr6|278,36 003152 aa 6 00426 3521 00 epp2 pr6|278 003153 aa 6 00462 2521 00 spri2 pr6|306 003154 aa 6 00123 3521 00 epp2 pr6|83 lvname 003155 aa 6 00464 2521 00 spri2 pr6|308 003156 aa 6 00362 3735 20 epp7 pr6|242,* vrp 003157 aa 7 00001 3521 00 epp2 pr7|1 volume_registration.hvid 003160 aa 6 00466 2521 00 spri2 pr6|310 003161 aa 774712 3520 04 epp2 -1590,ic 000073 = 524000000041 003162 aa 6 00470 2521 00 spri2 pr6|312 003163 aa 774747 3520 04 epp2 -1561,ic 000132 = 526000000040 003164 aa 6 00472 2521 00 spri2 pr6|314 003165 aa 774720 3520 04 epp2 -1584,ic 000105 = 514000000044 003166 aa 6 00474 2521 00 spri2 pr6|316 003167 aa 6 00460 6211 00 eax1 pr6|304 003170 aa 014000 4310 07 fld 6144,dl 003171 aa 6 00044 3701 20 epp4 pr6|36,* 003172 la 4 00070 3521 20 epp2 pr4|56,* ioa_ 003173 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 222 return; 003174 aa 0 00631 7101 00 tra pr0|409 return ENTRY TO change_volume_registration STATEMENT 1 ON LINE 224 change_volume_registration: entry; 003175 da 000351200000 003176 aa 000760 6270 00 eax7 496 003177 aa 7 00034 3521 20 epp2 pr7|28,* 003200 aa 2 01045 2721 00 tsp2 pr2|549 ext_entry 003201 aa 000000000000 003202 aa 000000000000 003203 aa 775523 7000 04 tsx0 -1197,ic 000726 STATEMENT 1 ON LINE 226 comname = "change_vol_registration"; 003204 aa 040 100 100 404 mlr (ic),(pr),fill(040) 003205 aa 775354 00 0027 desc9a -1300,23 000560 = 143150141156 003206 aa 6 00215 00 0040 desc9a pr6|141,32 comname STATEMENT 1 ON LINE 227 if svrp = null then call hcs_$make_seg ("", "", "", 1011b, svrp, ec); 003207 aa 6 00044 3701 20 epp4 pr6|36,* 003210 ia 4 00010 2371 00 ldaq pr4|8 svrp 003211 aa 774755 6770 04 eraq -1555,ic 000166 = 077777000043 000001000000 003212 aa 0 00460 3771 00 anaq pr0|304 = 077777000077 777777077077 003213 aa 000035 6010 04 tnz 29,ic 003250 003214 aa 000013 2360 07 ldq 11,dl 003215 aa 6 00421 7561 00 stq pr6|273 003216 aa 6 00422 3521 00 epp2 pr6|274 003217 aa 6 00430 2521 00 spri2 pr6|280 003220 aa 6 00423 3521 00 epp2 pr6|275 003221 aa 6 00432 2521 00 spri2 pr6|282 003222 aa 6 00424 3521 00 epp2 pr6|276 003223 aa 6 00434 2521 00 spri2 pr6|284 003224 aa 6 00421 3521 00 epp2 pr6|273 003225 aa 6 00436 2521 00 spri2 pr6|286 003226 ia 4 00010 3521 00 epp2 pr4|8 svrp 003227 aa 6 00440 2521 00 spri2 pr6|288 003230 aa 6 00360 3521 00 epp2 pr6|240 ec 003231 aa 6 00442 2521 00 spri2 pr6|290 003232 aa 774676 3520 04 epp2 -1602,ic 000130 = 524000000000 003233 aa 6 00444 2521 00 spri2 pr6|292 003234 aa 6 00446 2521 00 spri2 pr6|294 003235 aa 6 00450 2521 00 spri2 pr6|296 003236 aa 774671 3520 04 epp2 -1607,ic 000127 = 404000000005 003237 aa 6 00452 2521 00 spri2 pr6|298 003240 aa 774666 3520 04 epp2 -1610,ic 000126 = 464000000000 003241 aa 6 00454 2521 00 spri2 pr6|300 003242 aa 774663 3520 04 epp2 -1613,ic 000125 = 404000000043 003243 aa 6 00456 2521 00 spri2 pr6|302 003244 aa 6 00426 6211 00 eax1 pr6|278 003245 aa 030000 4310 07 fld 12288,dl 003246 la 4 00050 3521 20 epp2 pr4|40,* hcs_$make_seg 003247 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 228 vrp = svrp; 003250 aa 6 00044 3701 20 epp4 pr6|36,* 003251 ia 4 00010 3735 20 epp7 pr4|8,* svrp 003252 aa 6 00362 6535 00 spri7 pr6|242 vrp STATEMENT 1 ON LINE 229 ec = 0; 003253 aa 6 00360 4501 00 stz pr6|240 ec STATEMENT 1 ON LINE 230 call getarg (tcs); 003254 aa 005066 3520 04 epp2 2614,ic 010342 = 000002000000 003255 aa 2 00000 2351 00 lda pr2|0 003256 aa 004257 6700 04 tsp4 2223,ic 007535 STATEMENT 1 ON LINE 231 if tcs = "pv" then do; 003257 aa 040 004 106 500 cmpc (pr),(ic),fill(040) 003260 aa 6 00133 00 0040 desc9a pr6|91,32 tcs 003261 aa 005073 00 0002 desc9a 2619,2 010352 = 160166000000 003262 aa 001037 6010 04 tnz 543,ic 004321 STATEMENT 1 ON LINE 232 call getarg (pvname); 003263 aa 005043 3520 04 epp2 2595,ic 010326 = 000002000000 003264 aa 2 00000 2351 00 lda pr2|0 003265 aa 004250 6700 04 tsp4 2216,ic 007535 STATEMENT 1 ON LINE 233 call initializer_mdc_$read_pv (pvname, vrp, ec); 003266 aa 6 00113 3521 00 epp2 pr6|75 pvname 003267 aa 6 00430 2521 00 spri2 pr6|280 003270 aa 6 00362 3521 00 epp2 pr6|242 vrp 003271 aa 6 00432 2521 00 spri2 pr6|282 003272 aa 6 00360 3521 00 epp2 pr6|240 ec 003273 aa 6 00434 2521 00 spri2 pr6|284 003274 aa 774636 3520 04 epp2 -1634,ic 000132 = 526000000040 003275 aa 6 00436 2521 00 spri2 pr6|286 003276 aa 774630 3520 04 epp2 -1640,ic 000126 = 464000000000 003277 aa 6 00440 2521 00 spri2 pr6|288 003300 aa 774625 3520 04 epp2 -1643,ic 000125 = 404000000043 003301 aa 6 00442 2521 00 spri2 pr6|290 003302 aa 6 00426 6211 00 eax1 pr6|278 003303 aa 014000 4310 07 fld 6144,dl 003304 aa 6 00044 3701 20 epp4 pr6|36,* 003305 la 4 00064 3521 20 epp2 pr4|52,* initializer_mdc_$read_pv 003306 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 234 if ec ^= 0 then call FAIL ("pv not found: " || pvname); 003307 aa 6 00360 2361 00 ldq pr6|240 ec 003310 aa 000012 6000 04 tze 10,ic 003322 003311 aa 040 100 100 404 mlr (ic),(pr),fill(040) 003312 aa 775027 00 0016 desc9a -1513,14 000340 = 160166040156 003313 aa 6 00426 00 0016 desc9a pr6|278,14 003314 aa 040 100 100 500 mlr (pr),(pr),fill(040) 003315 aa 6 00113 00 0040 desc9a pr6|75,32 pvname 003316 aa 6 00431 40 0040 desc9a pr6|281(2),32 003317 aa 004471 3520 04 epp2 2361,ic 010010 = 000002000000 003320 aa 2 00000 2351 00 lda pr2|0 003321 aa 004313 6700 04 tsp4 2251,ic 007634 STATEMENT 1 ON LINE 235 lvname = volume_registration.hvname; 003322 aa 6 00362 3735 20 epp7 pr6|242,* vrp 003323 aa 000 100 100 500 mlr (pr),(pr),fill(000) 003324 aa 7 00002 00 0040 desc9a pr7|2,32 volume_registration.hvname 003325 aa 6 00123 00 0040 desc9a pr6|83,32 lvname STATEMENT 1 ON LINE 236 do i = 1 to volume_registration.npv while (volume_registration.pv (i).pvname ^= pvname); 003326 aa 7 00101 2361 00 ldq pr7|65 volume_registration.npv 003327 aa 6 00365 7561 00 stq pr6|245 003330 aa 000001 2360 07 ldq 1,dl 003331 aa 6 00331 7561 00 stq pr6|217 i 003332 aa 6 00331 2361 00 ldq pr6|217 i 003333 aa 6 00365 1161 00 cmpq pr6|245 003334 aa 000012 6054 04 tpnz 10,ic 003346 003335 aa 000036 4020 07 mpy 30,dl 003336 aa 6 00362 3735 20 epp7 pr6|242,* vrp 003337 aa 7 00046 3735 06 epp7 pr7|38,ql volume_registration.pvname 003340 aa 040 100 106 500 cmpc (pr),(pr),fill(040) 003341 aa 7 00000 00 0040 desc9a pr7|0,32 volume_registration.pvname 003342 aa 6 00113 00 0040 desc9a pr6|75,32 pvname 003343 aa 000003 6000 04 tze 3,ic 003346 STATEMENT 2 ON LINE 236 end; 003344 aa 6 00331 0541 00 aos pr6|217 i 003345 aa 777765 7100 04 tra -11,ic 003332 STATEMENT 1 ON LINE 237 if i > volume_registration.npv then call FAIL ("pv not in lv file: " || pvname); 003346 aa 6 00331 2361 00 ldq pr6|217 i 003347 aa 6 00362 3735 20 epp7 pr6|242,* vrp 003350 aa 7 00101 1161 00 cmpq pr7|65 volume_registration.npv 003351 aa 000012 6044 04 tmoz 10,ic 003363 003352 aa 040 100 100 404 mlr (ic),(pr),fill(040) 003353 aa 775102 00 0023 desc9a -1470,19 000454 = 160166040156 003354 aa 6 00426 00 0023 desc9a pr6|278,19 003355 aa 040 100 100 500 mlr (pr),(pr),fill(040) 003356 aa 6 00113 00 0040 desc9a pr6|75,32 pvname 003357 aa 6 00432 60 0040 desc9a pr6|282(3),32 003360 aa 004422 3520 04 epp2 2322,ic 010002 = 000002000000 003361 aa 2 00000 2351 00 lda pr2|0 003362 aa 004252 6700 04 tsp4 2218,ic 007634 STATEMENT 1 ON LINE 239 do while (more_args); 003363 aa 000000 0110 03 nop 0,du 003364 aa 6 00333 2351 00 lda pr6|219 more_args 003365 aa 002042 6000 04 tze 1058,ic 005427 STATEMENT 1 ON LINE 240 call getarg (tcs); 003366 aa 004754 3520 04 epp2 2540,ic 010342 = 000002000000 003367 aa 2 00000 2351 00 lda pr2|0 003370 aa 004145 6700 04 tsp4 2149,ic 007535 STATEMENT 1 ON LINE 241 call getarg (tcs1); 003371 aa 004513 3520 04 epp2 2379,ic 010104 = 000002000000 003372 aa 2 00000 2351 00 lda pr2|0 003373 aa 004142 6700 04 tsp4 2146,ic 007535 STATEMENT 1 ON LINE 242 if tcs = "-model" then do; 003374 aa 040 004 106 500 cmpc (pr),(ic),fill(040) 003375 aa 6 00133 00 0040 desc9a pr6|91,32 tcs 003376 aa 774562 00 0006 desc9a -1678,6 000156 = 055155157144 003377 aa 000137 6010 04 tnz 95,ic 003536 STATEMENT 1 ON LINE 243 j = cv_dec_check_ (tcs1, ec); 003400 aa 6 00143 3521 00 epp2 pr6|99 tcs1 003401 aa 6 00430 2521 00 spri2 pr6|280 003402 aa 6 00360 3521 00 epp2 pr6|240 ec 003403 aa 6 00432 2521 00 spri2 pr6|282 003404 aa 6 00332 3521 00 epp2 pr6|218 j 003405 aa 6 00434 2521 00 spri2 pr6|284 003406 aa 774513 3520 04 epp2 -1717,ic 000121 = 526000000250 003407 aa 6 00436 2521 00 spri2 pr6|286 003410 aa 774515 3520 04 epp2 -1715,ic 000125 = 404000000043 003411 aa 6 00440 2521 00 spri2 pr6|288 003412 aa 774522 3520 04 epp2 -1710,ic 000134 = 404000000021 003413 aa 6 00442 2521 00 spri2 pr6|290 003414 aa 6 00426 6211 00 eax1 pr6|278 003415 aa 014000 4310 07 fld 6144,dl 003416 aa 6 00044 3701 20 epp4 pr6|36,* 003417 la 4 00036 3521 20 epp2 pr4|30,* cv_dec_check_ 003420 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 244 if ec ^= 0 then call com_err_ (ec, comname, "invalid: ^a", tcs1); 003421 aa 6 00360 2361 00 ldq pr6|240 ec 003422 aa 000033 6000 04 tze 27,ic 003455 003423 aa 774575 2370 04 ldaq -1667,ic 000220 = 151156166141 154151144072 003424 aa 6 00426 7571 00 staq pr6|278 003425 aa 774575 2350 04 lda -1667,ic 000222 = 040136141000 003426 aa 6 00430 7551 00 sta pr6|280 003427 aa 6 00360 3521 00 epp2 pr6|240 ec 003430 aa 6 00462 2521 00 spri2 pr6|306 003431 aa 6 00215 3521 00 epp2 pr6|141 comname 003432 aa 6 00464 2521 00 spri2 pr6|308 003433 aa 6 00426 3521 00 epp2 pr6|278 003434 aa 6 00466 2521 00 spri2 pr6|310 003435 aa 6 00143 3521 00 epp2 pr6|99 tcs1 003436 aa 6 00470 2521 00 spri2 pr6|312 003437 aa 774466 3520 04 epp2 -1738,ic 000125 = 404000000043 003440 aa 6 00472 2521 00 spri2 pr6|314 003441 aa 774471 3520 04 epp2 -1735,ic 000132 = 526000000040 003442 aa 6 00474 2521 00 spri2 pr6|316 003443 aa 774425 3520 04 epp2 -1771,ic 000070 = 524000000013 003444 aa 6 00476 2521 00 spri2 pr6|318 003445 aa 774454 3520 04 epp2 -1748,ic 000121 = 526000000250 003446 aa 6 00500 2521 00 spri2 pr6|320 003447 aa 6 00460 6211 00 eax1 pr6|304 003450 aa 020000 4310 07 fld 8192,dl 003451 aa 6 00044 3701 20 epp4 pr6|36,* 003452 la 4 00026 3521 20 epp2 pr4|22,* com_err_ 003453 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc 003454 aa 777710 7100 04 tra -56,ic 003364 STATEMENT 1 ON LINE 245 else do; STATEMENT 1 ON LINE 246 do model = 1 to hbound (MODEL, 1) while (j ^= MODEL (model)); 003455 aa 000001 2360 07 ldq 1,dl 003456 aa 6 00357 7561 00 stq pr6|239 model 003457 aa 000000 0110 03 nop 0,du 003460 aa 6 00357 2361 00 ldq pr6|239 model 003461 aa 000012 1160 07 cmpq 10,dl 003462 aa 000007 6054 04 tpnz 7,ic 003471 003463 aa 6 00332 2361 00 ldq pr6|218 j 003464 aa 6 00357 7271 00 lxl7 pr6|239 model 003465 ta 000020 1160 17 cmpq 16,7 003466 aa 000003 6000 04 tze 3,ic 003471 STATEMENT 2 ON LINE 246 end; 003467 aa 6 00357 0541 00 aos pr6|239 model 003470 aa 777770 7100 04 tra -8,ic 003460 STATEMENT 1 ON LINE 247 if model > hbound (MODEL, 1) then call com_err_ (ec, comname, "unknown model: ^a", tcs1); 003471 aa 6 00357 2361 00 ldq pr6|239 model 003472 aa 000012 1160 07 cmpq 10,dl 003473 aa 000032 6044 04 tmoz 26,ic 003525 003474 aa 000 100 100 404 mlr (ic),(pr),fill(000) 003475 aa 774753 00 0024 desc9a -1557,20 000447 = 165156153156 003476 aa 6 00426 00 0024 desc9a pr6|278,20 003477 aa 6 00360 3521 00 epp2 pr6|240 ec 003500 aa 6 00462 2521 00 spri2 pr6|306 003501 aa 6 00215 3521 00 epp2 pr6|141 comname 003502 aa 6 00464 2521 00 spri2 pr6|308 003503 aa 6 00426 3521 00 epp2 pr6|278 003504 aa 6 00466 2521 00 spri2 pr6|310 003505 aa 6 00143 3521 00 epp2 pr6|99 tcs1 003506 aa 6 00470 2521 00 spri2 pr6|312 003507 aa 774416 3520 04 epp2 -1778,ic 000125 = 404000000043 003510 aa 6 00472 2521 00 spri2 pr6|314 003511 aa 774421 3520 04 epp2 -1775,ic 000132 = 526000000040 003512 aa 6 00474 2521 00 spri2 pr6|316 003513 aa 774354 3520 04 epp2 -1812,ic 000067 = 524000000021 003514 aa 6 00476 2521 00 spri2 pr6|318 003515 aa 774404 3520 04 epp2 -1788,ic 000121 = 526000000250 003516 aa 6 00500 2521 00 spri2 pr6|320 003517 aa 6 00460 6211 00 eax1 pr6|304 003520 aa 020000 4310 07 fld 8192,dl 003521 aa 6 00044 3701 20 epp4 pr6|36,* 003522 la 4 00026 3521 20 epp2 pr4|22,* com_err_ 003523 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc 003524 aa 777640 7100 04 tra -96,ic 003364 STATEMENT 1 ON LINE 248 else do; STATEMENT 1 ON LINE 249 model = MODELX (model); 003525 ta 000006 2360 06 ldq 6,ql 003526 aa 6 00357 7561 00 stq pr6|239 model STATEMENT 1 ON LINE 250 volume_registration.pv (i).model = model; 003527 aa 6 00331 2361 00 ldq pr6|217 i 003530 aa 000036 4020 07 mpy 30,dl 003531 aa 000000 6270 06 eax7 0,ql 003532 aa 6 00357 2361 00 ldq pr6|239 model 003533 aa 6 00362 3735 20 epp7 pr6|242,* vrp 003534 aa 7 00045 7561 17 stq pr7|37,7 volume_registration.model STATEMENT 1 ON LINE 251 end; STATEMENT 1 ON LINE 252 end; STATEMENT 1 ON LINE 253 end; 003535 aa 777627 7100 04 tra -105,ic 003364 STATEMENT 1 ON LINE 254 else if tcs = "-serial" then volume_registration.pv (i).mfg_serial = tcs1; 003536 aa 040 004 106 500 cmpc (pr),(ic),fill(040) 003537 aa 6 00133 00 0040 desc9a pr6|91,32 tcs 003540 aa 774416 00 0007 desc9a -1778,7 000154 = 055163145162 003541 aa 000011 6010 04 tnz 9,ic 003552 003542 aa 6 00331 2361 00 ldq pr6|217 i 003543 aa 000036 4020 07 mpy 30,dl 003544 aa 6 00362 3735 20 epp7 pr6|242,* vrp 003545 aa 7 00066 3735 06 epp7 pr7|54,ql volume_registration.mfg_serial 003546 aa 000 100 100 500 mlr (pr),(pr),fill(000) 003547 aa 6 00143 00 0040 desc9a pr6|99,32 tcs1 003550 aa 7 00000 00 0040 desc9a pr7|0,32 volume_registration.mfg_serial 003551 aa 777613 7100 04 tra -117,ic 003364 STATEMENT 1 ON LINE 255 else if tcs = "-location" then volume_registration.pv (i).location = tcs1; 003552 aa 040 004 106 500 cmpc (pr),(ic),fill(040) 003553 aa 6 00133 00 0040 desc9a pr6|91,32 tcs 003554 aa 774443 00 0011 desc9a -1757,9 000215 = 055154157143 003555 aa 000011 6010 04 tnz 9,ic 003566 003556 aa 6 00331 2361 00 ldq pr6|217 i 003557 aa 000036 4020 07 mpy 30,dl 003560 aa 6 00362 3735 20 epp7 pr6|242,* vrp 003561 aa 7 00056 3735 06 epp7 pr7|46,ql volume_registration.location 003562 aa 000 100 100 500 mlr (pr),(pr),fill(000) 003563 aa 6 00143 00 0040 desc9a pr6|99,32 tcs1 003564 aa 7 00000 00 0040 desc9a pr7|0,32 volume_registration.location 003565 aa 777577 7100 04 tra -129,ic 003364 STATEMENT 1 ON LINE 256 else if tcs = "-date_registered" then do; 003566 aa 040 004 106 500 cmpc (pr),(ic),fill(040) 003567 aa 6 00133 00 0040 desc9a pr6|91,32 tcs 003570 aa 774546 00 0020 desc9a -1690,16 000334 = 055144141164 003571 aa 000063 6010 04 tnz 51,ic 003654 STATEMENT 1 ON LINE 257 call convert_date_to_binary_ (tcs1, volume_registration.pv (i).date_registered, ec); 003572 aa 774343 2360 04 ldq -1821,ic 000135 = 410000000107 003573 aa 6 00421 7561 00 stq pr6|273 003574 aa 6 00331 2361 00 ldq pr6|217 i 003575 aa 000036 4020 07 mpy 30,dl 003576 aa 6 00143 3521 00 epp2 pr6|99 tcs1 003577 aa 6 00430 2521 00 spri2 pr6|280 003600 aa 6 00362 3735 20 epp7 pr6|242,* vrp 003601 aa 7 00076 3521 06 epp2 pr7|62,ql volume_registration.date_registered 003602 aa 6 00432 2521 00 spri2 pr6|282 003603 aa 6 00360 3521 00 epp2 pr6|240 ec 003604 aa 6 00434 2521 00 spri2 pr6|284 003605 aa 774314 3520 04 epp2 -1844,ic 000121 = 526000000250 003606 aa 6 00436 2521 00 spri2 pr6|286 003607 aa 6 00421 3521 00 epp2 pr6|273 003610 aa 6 00440 2521 00 spri2 pr6|288 003611 aa 774314 3520 04 epp2 -1844,ic 000125 = 404000000043 003612 aa 6 00442 2521 00 spri2 pr6|290 003613 aa 6 00426 6211 00 eax1 pr6|278 003614 aa 014000 4310 07 fld 6144,dl 003615 aa 6 00044 3701 20 epp4 pr6|36,* 003616 la 4 00034 3521 20 epp2 pr4|28,* convert_date_to_binary_ 003617 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 258 if ec ^= 0 then call com_err_ (ec, comname, "bad date: ^a", tcs1); 003620 aa 6 00360 2361 00 ldq pr6|240 ec 003621 aa 777543 6000 04 tze -157,ic 003364 003622 aa 774370 2370 04 ldaq -1800,ic 000212 = 142141144040 144141164145 003623 aa 6 00426 7571 00 staq pr6|278 003624 aa 774370 2350 04 lda -1800,ic 000214 = 072040136141 003625 aa 6 00430 7551 00 sta pr6|280 003626 aa 6 00360 3521 00 epp2 pr6|240 ec 003627 aa 6 00462 2521 00 spri2 pr6|306 003630 aa 6 00215 3521 00 epp2 pr6|141 comname 003631 aa 6 00464 2521 00 spri2 pr6|308 003632 aa 6 00426 3521 00 epp2 pr6|278 003633 aa 6 00466 2521 00 spri2 pr6|310 003634 aa 6 00143 3521 00 epp2 pr6|99 tcs1 003635 aa 6 00470 2521 00 spri2 pr6|312 003636 aa 774267 3520 04 epp2 -1865,ic 000125 = 404000000043 003637 aa 6 00472 2521 00 spri2 pr6|314 003640 aa 774272 3520 04 epp2 -1862,ic 000132 = 526000000040 003641 aa 6 00474 2521 00 spri2 pr6|316 003642 aa 774224 3520 04 epp2 -1900,ic 000066 = 524000000014 003643 aa 6 00476 2521 00 spri2 pr6|318 003644 aa 774255 3520 04 epp2 -1875,ic 000121 = 526000000250 003645 aa 6 00500 2521 00 spri2 pr6|320 003646 aa 6 00460 6211 00 eax1 pr6|304 003647 aa 020000 4310 07 fld 8192,dl 003650 aa 6 00044 3701 20 epp4 pr6|36,* 003651 la 4 00026 3521 20 epp2 pr4|22,* com_err_ 003652 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 259 end; 003653 aa 777511 7100 04 tra -183,ic 003364 STATEMENT 1 ON LINE 260 else if tcs = "-name" then do; 003654 aa 040 004 106 500 cmpc (pr),(ic),fill(040) 003655 aa 6 00133 00 0040 desc9a pr6|91,32 tcs 003656 aa 774270 00 0005 desc9a -1864,5 000144 = 055156141155 003657 aa 000147 6010 04 tnz 103,ic 004026 STATEMENT 1 ON LINE 261 if verify (rtrim (tcs1), LEGAL) ^= 0 then call FAIL ("Invalid characters in name: " || tcs1); 003660 aa 000 000 165 500 tctr (pr) 003661 aa 6 00143 00 0250 desc9a pr6|99,168 tcs1 003662 aa 0 76605 0001 00 arg pr0|-635 = 777777777777 003663 aa 6 00056 0001 00 arg pr6|46 003664 aa 6 00056 2361 00 ldq pr6|46 003665 aa 0 00242 3761 00 anq pr0|162 = 000777777777 003666 aa 6 00421 7561 00 stq pr6|273 003667 aa 000250 2360 07 ldq 168,dl 003670 aa 6 00421 1761 00 sbq pr6|273 003671 aa 000 000 164 540 tct (pr,rl) 003672 aa 6 00143 00 0006 desc9a pr6|99,ql tcs1 003673 aa 004227 0000 04 arg 2199,ic 010120 = 777777777777 003674 aa 6 00056 0001 00 arg pr6|46 003675 aa 6 00056 2361 00 ldq pr6|46 003676 aa 0 00242 3761 00 anq pr0|162 = 000777777777 003677 aa 000002 6070 04 ttf 2,ic 003701 003700 aa 000001 3360 07 lcq 1,dl 003701 aa 000001 0760 07 adq 1,dl 003702 aa 000012 6000 04 tze 10,ic 003714 003703 aa 040 100 100 404 mlr (ic),(pr),fill(040) 003704 aa 774737 00 0034 desc9a -1569,28 000642 = 111156166141 003705 aa 6 00624 00 0034 desc9a pr6|404,28 003706 aa 040 100 100 500 mlr (pr),(pr),fill(040) 003707 aa 6 00143 00 0250 desc9a pr6|99,168 tcs1 003710 aa 6 00633 00 0250 desc9a pr6|411,168 003711 aa 004063 3520 04 epp2 2099,ic 007774 = 000002000000 003712 aa 2 00000 2351 00 lda pr2|0 003713 aa 003721 6700 04 tsp4 2001,ic 007634 STATEMENT 1 ON LINE 262 uname = "pv." || tcs1; 003714 aa 000253 2360 07 ldq 171,dl 003715 aa 0 00551 7001 00 tsx0 pr0|361 alloc_cs 003716 aa 040 100 100 404 mlr (ic),(pr),fill(040) 003717 aa 774161 00 0003 desc9a -1935,3 000077 = 160166056000 003720 aa 2 00000 00 0003 desc9a pr2|0,3 003721 aa 040 100 100 500 mlr (pr),(pr),fill(040) 003722 aa 6 00143 00 0250 desc9a pr6|99,168 tcs1 003723 aa 2 00000 60 0250 desc9a pr2|0(3),168 003724 aa 000 100 100 500 mlr (pr),(pr),fill(000) 003725 aa 2 00000 00 0040 desc9a pr2|0,32 003726 aa 6 00103 00 0040 desc9a pr6|67,32 uname STATEMENT 1 ON LINE 263 call initializer_mdc_$chname_hv (lvname, "pv." || pvname, uname, ec); 003727 aa 0 01014 7001 00 tsx0 pr0|524 shorten_stack 003730 aa 040 100 100 404 mlr (ic),(pr),fill(040) 003731 aa 774147 00 0003 desc9a -1945,3 000077 = 160166056000 003732 aa 6 00426 00 0003 desc9a pr6|278,3 003733 aa 040 100 100 500 mlr (pr),(pr),fill(040) 003734 aa 6 00113 00 0040 desc9a pr6|75,32 pvname 003735 aa 6 00426 60 0040 desc9a pr6|278(3),32 003736 aa 6 00123 3521 00 epp2 pr6|83 lvname 003737 aa 6 00462 2521 00 spri2 pr6|306 003740 aa 6 00426 3521 00 epp2 pr6|278 003741 aa 6 00464 2521 00 spri2 pr6|308 003742 aa 6 00103 3521 00 epp2 pr6|67 uname 003743 aa 6 00466 2521 00 spri2 pr6|310 003744 aa 6 00360 3521 00 epp2 pr6|240 ec 003745 aa 6 00470 2521 00 spri2 pr6|312 003746 aa 774164 3520 04 epp2 -1932,ic 000132 = 526000000040 003747 aa 6 00472 2521 00 spri2 pr6|314 003750 aa 6 00476 2521 00 spri2 pr6|318 003751 aa 774125 3520 04 epp2 -1963,ic 000076 = 524000000043 003752 aa 6 00474 2521 00 spri2 pr6|316 003753 aa 774152 3520 04 epp2 -1942,ic 000125 = 404000000043 003754 aa 6 00500 2521 00 spri2 pr6|320 003755 aa 6 00460 6211 00 eax1 pr6|304 003756 aa 020000 4310 07 fld 8192,dl 003757 aa 6 00044 3701 20 epp4 pr6|36,* 003760 la 4 00054 3521 20 epp2 pr4|44,* initializer_mdc_$chname_hv 003761 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 264 if ec ^= 0 then call com_err_ (ec, comname, "^a", uname); 003762 aa 6 00360 2361 00 ldq pr6|240 ec 003763 aa 000030 6000 04 tze 24,ic 004013 003764 aa 136141 2350 03 lda 48225,du 003765 aa 6 00623 7551 00 sta pr6|403 003766 aa 6 00360 3521 00 epp2 pr6|240 ec 003767 aa 6 00430 2521 00 spri2 pr6|280 003770 aa 6 00215 3521 00 epp2 pr6|141 comname 003771 aa 6 00432 2521 00 spri2 pr6|282 003772 aa 6 00623 3521 00 epp2 pr6|403 003773 aa 6 00434 2521 00 spri2 pr6|284 003774 aa 6 00103 3521 00 epp2 pr6|67 uname 003775 aa 6 00436 2521 00 spri2 pr6|286 003776 aa 774127 3520 04 epp2 -1961,ic 000125 = 404000000043 003777 aa 6 00440 2521 00 spri2 pr6|288 004000 aa 774132 3520 04 epp2 -1958,ic 000132 = 526000000040 004001 aa 6 00442 2521 00 spri2 pr6|290 004002 aa 6 00446 2521 00 spri2 pr6|294 004003 aa 774106 3520 04 epp2 -1978,ic 000111 = 524000000002 004004 aa 6 00444 2521 00 spri2 pr6|292 004005 aa 6 00426 6211 00 eax1 pr6|278 004006 aa 020000 4310 07 fld 8192,dl 004007 aa 6 00044 3701 20 epp4 pr6|36,* 004010 la 4 00026 3521 20 epp2 pr4|22,* com_err_ 004011 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc 004012 aa 777352 7100 04 tra -278,ic 003364 STATEMENT 1 ON LINE 265 else do; STATEMENT 1 ON LINE 266 volume_registration.pv (i).pvname = tcs1; 004013 aa 6 00331 2361 00 ldq pr6|217 i 004014 aa 000036 4020 07 mpy 30,dl 004015 aa 6 00362 3735 20 epp7 pr6|242,* vrp 004016 aa 7 00046 3735 06 epp7 pr7|38,ql volume_registration.pvname 004017 aa 000 100 100 500 mlr (pr),(pr),fill(000) 004020 aa 6 00143 00 0040 desc9a pr6|99,32 tcs1 004021 aa 7 00000 00 0040 desc9a pr7|0,32 volume_registration.pvname STATEMENT 1 ON LINE 267 pvname = tcs1; 004022 aa 000 100 100 500 mlr (pr),(pr),fill(000) 004023 aa 6 00143 00 0040 desc9a pr6|99,32 tcs1 004024 aa 6 00113 00 0040 desc9a pr6|75,32 pvname STATEMENT 1 ON LINE 268 end; STATEMENT 1 ON LINE 269 end; 004025 aa 777337 7100 04 tra -289,ic 003364 STATEMENT 1 ON LINE 270 else if tcs = "-pvid" then do; 004026 aa 040 004 106 500 cmpc (pr),(ic),fill(040) 004027 aa 6 00133 00 0040 desc9a pr6|91,32 tcs 004030 aa 774132 00 0005 desc9a -1958,5 000160 = 055160166151 004031 aa 000230 6010 04 tnz 152,ic 004261 STATEMENT 1 ON LINE 271 b36 = cv_oct_check_ (tcs1, ec); 004032 aa 6 00143 3521 00 epp2 pr6|99 tcs1 004033 aa 6 00430 2521 00 spri2 pr6|280 004034 aa 6 00360 3521 00 epp2 pr6|240 ec 004035 aa 6 00432 2521 00 spri2 pr6|282 004036 aa 6 00623 3521 00 epp2 pr6|403 004037 aa 6 00434 2521 00 spri2 pr6|284 004040 aa 774061 3520 04 epp2 -1999,ic 000121 = 526000000250 004041 aa 6 00436 2521 00 spri2 pr6|286 004042 aa 774063 3520 04 epp2 -1997,ic 000125 = 404000000043 004043 aa 6 00440 2521 00 spri2 pr6|288 004044 aa 774067 3520 04 epp2 -1993,ic 000133 = 516000000044 004045 aa 6 00442 2521 00 spri2 pr6|290 004046 aa 6 00426 6211 00 eax1 pr6|278 004047 aa 014000 4310 07 fld 6144,dl 004050 aa 6 00044 3701 20 epp4 pr6|36,* 004051 la 4 00040 3521 20 epp2 pr4|32,* cv_oct_check_ 004052 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc 004053 aa 6 00623 2351 00 lda pr6|403 004054 aa 6 00235 7551 00 sta pr6|157 b36 STATEMENT 1 ON LINE 272 if ec ^= 0 then call com_err_ (ec, comname, "invalid: ^a", tcs1); 004055 aa 6 00360 2361 00 ldq pr6|240 ec 004056 aa 000033 6000 04 tze 27,ic 004111 004057 aa 774141 2370 04 ldaq -1951,ic 000220 = 151156166141 154151144072 004060 aa 6 00426 7571 00 staq pr6|278 004061 aa 774141 2350 04 lda -1951,ic 000222 = 040136141000 004062 aa 6 00430 7551 00 sta pr6|280 004063 aa 6 00360 3521 00 epp2 pr6|240 ec 004064 aa 6 00462 2521 00 spri2 pr6|306 004065 aa 6 00215 3521 00 epp2 pr6|141 comname 004066 aa 6 00464 2521 00 spri2 pr6|308 004067 aa 6 00426 3521 00 epp2 pr6|278 004070 aa 6 00466 2521 00 spri2 pr6|310 004071 aa 6 00143 3521 00 epp2 pr6|99 tcs1 004072 aa 6 00470 2521 00 spri2 pr6|312 004073 aa 774032 3520 04 epp2 -2022,ic 000125 = 404000000043 004074 aa 6 00472 2521 00 spri2 pr6|314 004075 aa 774035 3520 04 epp2 -2019,ic 000132 = 526000000040 004076 aa 6 00474 2521 00 spri2 pr6|316 004077 aa 773771 3520 04 epp2 -2055,ic 000070 = 524000000013 004100 aa 6 00476 2521 00 spri2 pr6|318 004101 aa 774020 3520 04 epp2 -2032,ic 000121 = 526000000250 004102 aa 6 00500 2521 00 spri2 pr6|320 004103 aa 6 00460 6211 00 eax1 pr6|304 004104 aa 020000 4310 07 fld 8192,dl 004105 aa 6 00044 3701 20 epp4 pr6|36,* 004106 la 4 00026 3521 20 epp2 pr4|22,* com_err_ 004107 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc 004110 aa 777254 7100 04 tra -340,ic 003364 STATEMENT 1 ON LINE 273 else do; STATEMENT 1 ON LINE 274 uname = "pvid." || unique_chars_ (b36); 004111 aa 6 00235 3521 00 epp2 pr6|157 b36 004112 aa 6 00462 2521 00 spri2 pr6|306 004113 aa 6 00426 3521 00 epp2 pr6|278 004114 aa 6 00464 2521 00 spri2 pr6|308 004115 aa 773770 3520 04 epp2 -2056,ic 000105 = 514000000044 004116 aa 6 00466 2521 00 spri2 pr6|310 004117 aa 774012 3520 04 epp2 -2038,ic 000131 = 526000000017 004120 aa 6 00470 2521 00 spri2 pr6|312 004121 aa 6 00460 6211 00 eax1 pr6|304 004122 aa 010000 4310 07 fld 4096,dl 004123 aa 6 00044 3701 20 epp4 pr6|36,* 004124 la 4 00102 3521 20 epp2 pr4|66,* unique_chars_ 004125 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc 004126 aa 000024 2360 07 ldq 20,dl 004127 aa 0 00551 7001 00 tsx0 pr0|361 alloc_cs 004130 aa 040 100 100 404 mlr (ic),(pr),fill(040) 004131 aa 774016 00 0005 desc9a -2034,5 000146 = 160166151144 004132 aa 2 00000 00 0005 desc9a pr2|0,5 004133 aa 040 100 100 500 mlr (pr),(pr),fill(040) 004134 aa 6 00426 00 0017 desc9a pr6|278,15 004135 aa 2 00001 20 0017 desc9a pr2|1(1),15 004136 aa 040 100 100 500 mlr (pr),(pr),fill(040) 004137 aa 2 00000 00 0024 desc9a pr2|0,20 004140 aa 6 00103 00 0040 desc9a pr6|67,32 uname STATEMENT 1 ON LINE 275 call initializer_mdc_$chname_hv (lvname, "pvid." || unique_chars_ (volume_registration.pv (i).pvid), uname, ec); 004141 aa 0 01014 7001 00 tsx0 pr0|524 shorten_stack 004142 aa 773743 2360 04 ldq -2077,ic 000105 = 514000000044 004143 aa 6 00623 7561 00 stq pr6|403 004144 aa 6 00331 2361 00 ldq pr6|217 i 004145 aa 000036 4020 07 mpy 30,dl 004146 aa 6 00362 3735 20 epp7 pr6|242,* vrp 004147 aa 7 00044 3521 06 epp2 pr7|36,ql volume_registration.pvid 004150 aa 6 00462 2521 00 spri2 pr6|306 004151 aa 6 00426 3521 00 epp2 pr6|278 004152 aa 6 00464 2521 00 spri2 pr6|308 004153 aa 6 00623 3521 00 epp2 pr6|403 004154 aa 6 00466 2521 00 spri2 pr6|310 004155 aa 773754 3520 04 epp2 -2068,ic 000131 = 526000000017 004156 aa 6 00470 2521 00 spri2 pr6|312 004157 aa 6 00421 7561 00 stq pr6|273 004160 aa 6 00460 6211 00 eax1 pr6|304 004161 aa 010000 4310 07 fld 4096,dl 004162 aa 6 00044 3701 20 epp4 pr6|36,* 004163 la 4 00102 3521 20 epp2 pr4|66,* unique_chars_ 004164 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc 004165 aa 040 100 100 404 mlr (ic),(pr),fill(040) 004166 aa 773761 00 0005 desc9a -2063,5 000146 = 160166151144 004167 aa 6 00460 00 0005 desc9a pr6|304,5 004170 aa 040 100 100 500 mlr (pr),(pr),fill(040) 004171 aa 6 00426 00 0017 desc9a pr6|278,15 004172 aa 6 00461 20 0017 desc9a pr6|305(1),15 004173 aa 6 00123 3521 00 epp2 pr6|83 lvname 004174 aa 6 00430 2521 00 spri2 pr6|280 004175 aa 6 00460 3521 00 epp2 pr6|304 004176 aa 6 00432 2521 00 spri2 pr6|282 004177 aa 6 00103 3521 00 epp2 pr6|67 uname 004200 aa 6 00434 2521 00 spri2 pr6|284 004201 aa 6 00360 3521 00 epp2 pr6|240 ec 004202 aa 6 00436 2521 00 spri2 pr6|286 004203 aa 773727 3520 04 epp2 -2089,ic 000132 = 526000000040 004204 aa 6 00440 2521 00 spri2 pr6|288 004205 aa 6 00444 2521 00 spri2 pr6|292 004206 aa 773656 3520 04 epp2 -2130,ic 000064 = 524000000024 004207 aa 6 00442 2521 00 spri2 pr6|290 004210 aa 773715 3520 04 epp2 -2099,ic 000125 = 404000000043 004211 aa 6 00446 2521 00 spri2 pr6|294 004212 aa 6 00426 6211 00 eax1 pr6|278 004213 aa 020000 4310 07 fld 8192,dl 004214 aa 6 00044 3701 20 epp4 pr6|36,* 004215 la 4 00054 3521 20 epp2 pr4|44,* initializer_mdc_$chname_hv 004216 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 277 if ec ^= 0 then call com_err_ (ec, comname, "cannot change pvid: ^a", uname); 004217 aa 6 00360 2361 00 ldq pr6|240 ec 004220 aa 000034 6000 04 tze 28,ic 004254 004221 aa 774331 2370 04 ldaq -1831,ic 000552 = 143141156156 157164040143 004222 aa 6 00426 7571 00 staq pr6|278 004223 aa 774331 2370 04 ldaq -1831,ic 000554 = 150141156147 145040160166 004224 aa 6 00430 7571 00 staq pr6|280 004225 aa 774331 2370 04 ldaq -1831,ic 000556 = 151144072040 136141000000 004226 aa 6 00432 7571 00 staq pr6|282 004227 aa 6 00360 3521 00 epp2 pr6|240 ec 004230 aa 6 00462 2521 00 spri2 pr6|306 004231 aa 6 00215 3521 00 epp2 pr6|141 comname 004232 aa 6 00464 2521 00 spri2 pr6|308 004233 aa 6 00426 3521 00 epp2 pr6|278 004234 aa 6 00466 2521 00 spri2 pr6|310 004235 aa 6 00103 3521 00 epp2 pr6|67 uname 004236 aa 6 00470 2521 00 spri2 pr6|312 004237 aa 773666 3520 04 epp2 -2122,ic 000125 = 404000000043 004240 aa 6 00472 2521 00 spri2 pr6|314 004241 aa 773671 3520 04 epp2 -2119,ic 000132 = 526000000040 004242 aa 6 00474 2521 00 spri2 pr6|316 004243 aa 6 00500 2521 00 spri2 pr6|320 004244 aa 773636 3520 04 epp2 -2146,ic 000102 = 524000000026 004245 aa 6 00476 2521 00 spri2 pr6|318 004246 aa 6 00460 6211 00 eax1 pr6|304 004247 aa 020000 4310 07 fld 8192,dl 004250 aa 6 00044 3701 20 epp4 pr6|36,* 004251 la 4 00026 3521 20 epp2 pr4|22,* com_err_ 004252 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc 004253 aa 777111 7100 04 tra -439,ic 003364 STATEMENT 1 ON LINE 278 else do; STATEMENT 1 ON LINE 279 volume_registration.pv (i).pvid = b36; 004254 aa 6 00235 2351 00 lda pr6|157 b36 004255 aa 6 00421 7271 00 lxl7 pr6|273 004256 aa 6 00362 3735 20 epp7 pr6|242,* vrp 004257 aa 7 00044 7551 17 sta pr7|36,7 volume_registration.pvid STATEMENT 1 ON LINE 280 end; STATEMENT 1 ON LINE 281 end; STATEMENT 1 ON LINE 282 end; 004260 aa 777104 7100 04 tra -444,ic 003364 STATEMENT 1 ON LINE 283 else call com_err_ (ec, comname, "bad control arg: ^a ^a", tcs, tcs1); 004261 aa 774263 2370 04 ldaq -1869,ic 000544 = 142141144040 143157156164 004262 aa 6 00426 7571 00 staq pr6|278 004263 aa 774263 2370 04 ldaq -1869,ic 000546 = 162157154040 141162147072 004264 aa 6 00430 7571 00 staq pr6|280 004265 aa 774263 2370 04 ldaq -1869,ic 000550 = 040136141040 136141000000 004266 aa 6 00432 7571 00 staq pr6|282 004267 aa 6 00360 3521 00 epp2 pr6|240 ec 004270 aa 6 00462 2521 00 spri2 pr6|306 004271 aa 6 00215 3521 00 epp2 pr6|141 comname 004272 aa 6 00464 2521 00 spri2 pr6|308 004273 aa 6 00426 3521 00 epp2 pr6|278 004274 aa 6 00466 2521 00 spri2 pr6|310 004275 aa 6 00133 3521 00 epp2 pr6|91 tcs 004276 aa 6 00470 2521 00 spri2 pr6|312 004277 aa 6 00143 3521 00 epp2 pr6|99 tcs1 004300 aa 6 00472 2521 00 spri2 pr6|314 004301 aa 773624 3520 04 epp2 -2156,ic 000125 = 404000000043 004302 aa 6 00474 2521 00 spri2 pr6|316 004303 aa 773627 3520 04 epp2 -2153,ic 000132 = 526000000040 004304 aa 6 00476 2521 00 spri2 pr6|318 004305 aa 6 00502 2521 00 spri2 pr6|322 004306 aa 773574 3520 04 epp2 -2180,ic 000102 = 524000000026 004307 aa 6 00500 2521 00 spri2 pr6|320 004310 aa 773611 3520 04 epp2 -2167,ic 000121 = 526000000250 004311 aa 6 00504 2521 00 spri2 pr6|324 004312 aa 6 00460 6211 00 eax1 pr6|304 004313 aa 024000 4310 07 fld 10240,dl 004314 aa 6 00044 3701 20 epp4 pr6|36,* 004315 la 4 00026 3521 20 epp2 pr4|22,* com_err_ 004316 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 284 end; 004317 aa 777045 7100 04 tra -475,ic 003364 STATEMENT 1 ON LINE 285 end; 004320 aa 001107 7100 04 tra 583,ic 005427 STATEMENT 1 ON LINE 286 else if tcs = "lv" then do; 004321 aa 040 004 106 500 cmpc (pr),(ic),fill(040) 004322 aa 6 00133 00 0040 desc9a pr6|91,32 tcs 004323 aa 004027 00 0002 desc9a 2071,2 010350 = 154166000000 004324 aa 001072 6010 04 tnz 570,ic 005416 STATEMENT 1 ON LINE 287 call getarg (lvname); 004325 aa 003441 3520 04 epp2 1825,ic 007766 = 000002000000 004326 aa 2 00000 2351 00 lda pr2|0 004327 aa 003206 6700 04 tsp4 1670,ic 007535 STATEMENT 1 ON LINE 288 call initializer_mdc_$read_hv (lvname, vrp, ec); 004330 aa 6 00123 3521 00 epp2 pr6|83 lvname 004331 aa 6 00430 2521 00 spri2 pr6|280 004332 aa 6 00362 3521 00 epp2 pr6|242 vrp 004333 aa 6 00432 2521 00 spri2 pr6|282 004334 aa 6 00360 3521 00 epp2 pr6|240 ec 004335 aa 6 00434 2521 00 spri2 pr6|284 004336 aa 773574 3520 04 epp2 -2180,ic 000132 = 526000000040 004337 aa 6 00436 2521 00 spri2 pr6|286 004340 aa 773566 3520 04 epp2 -2186,ic 000126 = 464000000000 004341 aa 6 00440 2521 00 spri2 pr6|288 004342 aa 773563 3520 04 epp2 -2189,ic 000125 = 404000000043 004343 aa 6 00442 2521 00 spri2 pr6|290 004344 aa 6 00426 6211 00 eax1 pr6|278 004345 aa 014000 4310 07 fld 6144,dl 004346 aa 6 00044 3701 20 epp4 pr6|36,* 004347 la 4 00062 3521 20 epp2 pr4|50,* initializer_mdc_$read_hv 004350 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 289 if ec ^= 0 then call FAIL ("lv not registered: " || lvname); 004351 aa 6 00360 2361 00 ldq pr6|240 ec 004352 aa 000012 6000 04 tze 10,ic 004364 004353 aa 040 100 100 404 mlr (ic),(pr),fill(040) 004354 aa 774067 00 0023 desc9a -1993,19 000442 = 154166040156 004355 aa 6 00426 00 0023 desc9a pr6|278,19 004356 aa 040 100 100 500 mlr (pr),(pr),fill(040) 004357 aa 6 00123 00 0040 desc9a pr6|83,32 lvname 004360 aa 6 00432 60 0040 desc9a pr6|282(3),32 004361 aa 003421 3520 04 epp2 1809,ic 010002 = 000002000000 004362 aa 2 00000 2351 00 lda pr2|0 004363 aa 003251 6700 04 tsp4 1705,ic 007634 STATEMENT 1 ON LINE 291 do while (more_args); 004364 aa 6 00333 2351 00 lda pr6|219 more_args 004365 aa 001042 6000 04 tze 546,ic 005427 STATEMENT 1 ON LINE 292 call getarg (tcs); 004366 aa 003754 3520 04 epp2 2028,ic 010342 = 000002000000 004367 aa 2 00000 2351 00 lda pr2|0 004370 aa 003145 6700 04 tsp4 1637,ic 007535 STATEMENT 1 ON LINE 293 call getarg (tcs1); 004371 aa 003513 3520 04 epp2 1867,ic 010104 = 000002000000 004372 aa 2 00000 2351 00 lda pr2|0 004373 aa 003142 6700 04 tsp4 1634,ic 007535 STATEMENT 1 ON LINE 294 if tcs = "-access_low" then do; 004374 aa 040 004 106 500 cmpc (pr),(ic),fill(040) 004375 aa 6 00133 00 0040 desc9a pr6|91,32 tcs 004376 aa 773635 00 0013 desc9a -2147,11 000231 = 055141143143 004377 aa 000063 6010 04 tnz 51,ic 004462 STATEMENT 1 ON LINE 295 call convert_authorization_$from_string (access_low, tcs1, ec); 004400 aa 6 00250 3521 00 epp2 pr6|168 access_low 004401 aa 6 00430 2521 00 spri2 pr6|280 004402 aa 6 00143 3521 00 epp2 pr6|99 tcs1 004403 aa 6 00432 2521 00 spri2 pr6|282 004404 aa 6 00360 3521 00 epp2 pr6|240 ec 004405 aa 6 00434 2521 00 spri2 pr6|284 004406 aa 773511 3520 04 epp2 -2231,ic 000117 = 516000000110 004407 aa 6 00436 2521 00 spri2 pr6|286 004410 aa 773511 3520 04 epp2 -2231,ic 000121 = 526000000250 004411 aa 6 00440 2521 00 spri2 pr6|288 004412 aa 773513 3520 04 epp2 -2229,ic 000125 = 404000000043 004413 aa 6 00442 2521 00 spri2 pr6|290 004414 aa 6 00426 6211 00 eax1 pr6|278 004415 aa 014000 4310 07 fld 6144,dl 004416 aa 6 00044 3701 20 epp4 pr6|36,* 004417 la 4 00030 3521 20 epp2 pr4|24,* convert_authorization_$from_string 004420 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 296 if ec ^= 0 then call com_err_ (ec, comname, "illegal auth: ^a", tcs1); 004421 aa 6 00360 2361 00 ldq pr6|240 ec 004422 aa 000033 6000 04 tze 27,ic 004455 004423 aa 773705 2370 04 ldaq -2107,ic 000330 = 151154154145 147141154040 004424 aa 6 00426 7571 00 staq pr6|278 004425 aa 773705 2370 04 ldaq -2107,ic 000332 = 141165164150 072040136141 004426 aa 6 00430 7571 00 staq pr6|280 004427 aa 6 00360 3521 00 epp2 pr6|240 ec 004430 aa 6 00462 2521 00 spri2 pr6|306 004431 aa 6 00215 3521 00 epp2 pr6|141 comname 004432 aa 6 00464 2521 00 spri2 pr6|308 004433 aa 6 00426 3521 00 epp2 pr6|278 004434 aa 6 00466 2521 00 spri2 pr6|310 004435 aa 6 00143 3521 00 epp2 pr6|99 tcs1 004436 aa 6 00470 2521 00 spri2 pr6|312 004437 aa 773466 3520 04 epp2 -2250,ic 000125 = 404000000043 004440 aa 6 00472 2521 00 spri2 pr6|314 004441 aa 773471 3520 04 epp2 -2247,ic 000132 = 526000000040 004442 aa 6 00474 2521 00 spri2 pr6|316 004443 aa 773420 3520 04 epp2 -2288,ic 000063 = 524000000020 004444 aa 6 00476 2521 00 spri2 pr6|318 004445 aa 773454 3520 04 epp2 -2260,ic 000121 = 526000000250 004446 aa 6 00500 2521 00 spri2 pr6|320 004447 aa 6 00460 6211 00 eax1 pr6|304 004450 aa 020000 4310 07 fld 8192,dl 004451 aa 6 00044 3701 20 epp4 pr6|36,* 004452 la 4 00026 3521 20 epp2 pr4|22,* com_err_ 004453 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc 004454 aa 777710 7100 04 tra -56,ic 004364 STATEMENT 1 ON LINE 297 else volume_registration.min_access_class = access_low; 004455 aa 6 00250 2371 00 ldaq pr6|168 access_low 004456 aa 6 00362 3735 20 epp7 pr6|242,* vrp 004457 aa 7 00014 7551 00 sta pr7|12 volume_registration.min_access_class 004460 aa 7 00015 7561 00 stq pr7|13 volume_registration.min_access_class STATEMENT 1 ON LINE 298 end; 004461 aa 777703 7100 04 tra -61,ic 004364 STATEMENT 1 ON LINE 299 else if tcs = "-access_high" then do; 004462 aa 040 004 106 500 cmpc (pr),(ic),fill(040) 004463 aa 6 00133 00 0040 desc9a pr6|91,32 tcs 004464 aa 773544 00 0014 desc9a -2204,12 000226 = 055141143143 004465 aa 000063 6010 04 tnz 51,ic 004550 STATEMENT 1 ON LINE 300 call convert_authorization_$from_string (access_high, tcs1, ec); 004466 aa 6 00252 3521 00 epp2 pr6|170 access_high 004467 aa 6 00430 2521 00 spri2 pr6|280 004470 aa 6 00143 3521 00 epp2 pr6|99 tcs1 004471 aa 6 00432 2521 00 spri2 pr6|282 004472 aa 6 00360 3521 00 epp2 pr6|240 ec 004473 aa 6 00434 2521 00 spri2 pr6|284 004474 aa 773423 3520 04 epp2 -2285,ic 000117 = 516000000110 004475 aa 6 00436 2521 00 spri2 pr6|286 004476 aa 773423 3520 04 epp2 -2285,ic 000121 = 526000000250 004477 aa 6 00440 2521 00 spri2 pr6|288 004500 aa 773425 3520 04 epp2 -2283,ic 000125 = 404000000043 004501 aa 6 00442 2521 00 spri2 pr6|290 004502 aa 6 00426 6211 00 eax1 pr6|278 004503 aa 014000 4310 07 fld 6144,dl 004504 aa 6 00044 3701 20 epp4 pr6|36,* 004505 la 4 00030 3521 20 epp2 pr4|24,* convert_authorization_$from_string 004506 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 301 if ec ^= 0 then call com_err_ (ec, comname, "illegal auth: ^a", tcs1); 004507 aa 6 00360 2361 00 ldq pr6|240 ec 004510 aa 000033 6000 04 tze 27,ic 004543 004511 aa 773617 2370 04 ldaq -2161,ic 000330 = 151154154145 147141154040 004512 aa 6 00426 7571 00 staq pr6|278 004513 aa 773617 2370 04 ldaq -2161,ic 000332 = 141165164150 072040136141 004514 aa 6 00430 7571 00 staq pr6|280 004515 aa 6 00360 3521 00 epp2 pr6|240 ec 004516 aa 6 00462 2521 00 spri2 pr6|306 004517 aa 6 00215 3521 00 epp2 pr6|141 comname 004520 aa 6 00464 2521 00 spri2 pr6|308 004521 aa 6 00426 3521 00 epp2 pr6|278 004522 aa 6 00466 2521 00 spri2 pr6|310 004523 aa 6 00143 3521 00 epp2 pr6|99 tcs1 004524 aa 6 00470 2521 00 spri2 pr6|312 004525 aa 773400 3520 04 epp2 -2304,ic 000125 = 404000000043 004526 aa 6 00472 2521 00 spri2 pr6|314 004527 aa 773403 3520 04 epp2 -2301,ic 000132 = 526000000040 004530 aa 6 00474 2521 00 spri2 pr6|316 004531 aa 773332 3520 04 epp2 -2342,ic 000063 = 524000000020 004532 aa 6 00476 2521 00 spri2 pr6|318 004533 aa 773366 3520 04 epp2 -2314,ic 000121 = 526000000250 004534 aa 6 00500 2521 00 spri2 pr6|320 004535 aa 6 00460 6211 00 eax1 pr6|304 004536 aa 020000 4310 07 fld 8192,dl 004537 aa 6 00044 3701 20 epp4 pr6|36,* 004540 la 4 00026 3521 20 epp2 pr4|22,* com_err_ 004541 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc 004542 aa 777622 7100 04 tra -110,ic 004364 STATEMENT 1 ON LINE 302 else volume_registration.max_access_class = access_high; 004543 aa 6 00252 2371 00 ldaq pr6|170 access_high 004544 aa 6 00362 3735 20 epp7 pr6|242,* vrp 004545 aa 7 00012 7551 00 sta pr7|10 volume_registration.max_access_class 004546 aa 7 00013 7561 00 stq pr7|11 volume_registration.max_access_class STATEMENT 1 ON LINE 303 end; 004547 aa 777615 7100 04 tra -115,ic 004364 STATEMENT 1 ON LINE 304 else if tcs = "-public" then volume_registration.public = (tcs1 = "yes"); 004550 aa 040 004 106 500 cmpc (pr),(ic),fill(040) 004551 aa 6 00133 00 0040 desc9a pr6|91,32 tcs 004552 aa 773412 00 0007 desc9a -2294,7 000162 = 055160165142 004553 aa 000012 6010 04 tnz 10,ic 004565 004554 aa 040 004 106 500 cmpc (pr),(ic),fill(040) 004555 aa 6 00143 00 0250 desc9a pr6|99,168 tcs1 004556 aa 773340 00 0003 desc9a -2336,3 000114 = 171145163000 004557 aa 0 00512 7001 00 tsx0 pr0|330 r_e_as 004560 aa 6 00362 3735 20 epp7 pr6|242,* vrp 004561 aa 7 00100 6751 00 era pr7|64 volume_registration.public 004562 aa 0 00002 3751 00 ana pr0|2 = 400000000000 004563 aa 7 00100 6551 00 ersa pr7|64 volume_registration.public 004564 aa 777600 7100 04 tra -128,ic 004364 STATEMENT 1 ON LINE 305 else if tcs = "-acs" then do; 004565 aa 040 004 106 500 cmpc (pr),(ic),fill(040) 004566 aa 6 00133 00 0040 desc9a pr6|91,32 tcs 004567 aa 773326 00 0004 desc9a -2346,4 000113 = 055141143163 004570 aa 000155 6010 04 tnz 109,ic 004745 STATEMENT 1 ON LINE 306 i = length (tcs1) + 1 - verify (reverse (tcs1), " "); 004571 aa 000 000 165 500 tctr (pr) 004572 aa 6 00143 00 0250 desc9a pr6|99,168 tcs1 004573 aa 0 76605 0001 00 arg pr0|-635 = 777777777777 004574 aa 6 00056 0001 00 arg pr6|46 004575 aa 6 00056 2361 00 ldq pr6|46 004576 aa 0 00242 3761 00 anq pr0|162 = 000777777777 004577 aa 000002 6070 04 ttf 2,ic 004601 004600 aa 000001 3360 07 lcq 1,dl 004601 aa 000001 0760 07 adq 1,dl 004602 aa 6 00421 7561 00 stq pr6|273 004603 aa 000251 2360 07 ldq 169,dl 004604 aa 6 00421 1761 00 sbq pr6|273 004605 aa 6 00331 7561 00 stq pr6|217 i STATEMENT 1 ON LINE 307 call expand_path_ (addr (tcs1), i, addr (acs_path), null, ec); 004606 aa 6 00143 3735 00 epp7 pr6|99 tcs1 004607 aa 6 00542 6535 00 spri7 pr6|354 004610 aa 6 00257 3715 00 epp5 pr6|175 acs_path 004611 aa 6 00540 6515 00 spri5 pr6|352 004612 aa 773354 3534 24 epp3 -2324,ic* 004613 aa 6 00536 2535 00 spri3 pr6|350 004614 aa 6 00542 3521 00 epp2 pr6|354 004615 aa 6 00430 2521 00 spri2 pr6|280 004616 aa 6 00331 3521 00 epp2 pr6|217 i 004617 aa 6 00432 2521 00 spri2 pr6|282 004620 aa 6 00540 3521 00 epp2 pr6|352 004621 aa 6 00434 2521 00 spri2 pr6|284 004622 aa 6 00536 3521 00 epp2 pr6|350 004623 aa 6 00436 2521 00 spri2 pr6|286 004624 aa 6 00360 3521 00 epp2 pr6|240 ec 004625 aa 6 00440 2521 00 spri2 pr6|288 004626 aa 6 00426 6211 00 eax1 pr6|278 004627 aa 024000 4310 07 fld 10240,dl 004630 aa 6 00044 3701 20 epp4 pr6|36,* 004631 la 4 00044 3521 20 epp2 pr4|36,* expand_path_ 004632 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 308 if ec ^= 0 then call com_err_ (ec, comname, "bad acs path: ^a", tcs1); 004633 aa 6 00360 2361 00 ldq pr6|240 ec 004634 aa 000033 6000 04 tze 27,ic 004667 004635 aa 773467 2370 04 ldaq -2249,ic 000324 = 142141144040 141143163040 004636 aa 6 00426 7571 00 staq pr6|278 004637 aa 773467 2370 04 ldaq -2249,ic 000326 = 160141164150 072040136141 004640 aa 6 00430 7571 00 staq pr6|280 004641 aa 6 00360 3521 00 epp2 pr6|240 ec 004642 aa 6 00462 2521 00 spri2 pr6|306 004643 aa 6 00215 3521 00 epp2 pr6|141 comname 004644 aa 6 00464 2521 00 spri2 pr6|308 004645 aa 6 00426 3521 00 epp2 pr6|278 004646 aa 6 00466 2521 00 spri2 pr6|310 004647 aa 6 00143 3521 00 epp2 pr6|99 tcs1 004650 aa 6 00470 2521 00 spri2 pr6|312 004651 aa 773254 3520 04 epp2 -2388,ic 000125 = 404000000043 004652 aa 6 00472 2521 00 spri2 pr6|314 004653 aa 773257 3520 04 epp2 -2385,ic 000132 = 526000000040 004654 aa 6 00474 2521 00 spri2 pr6|316 004655 aa 773206 3520 04 epp2 -2426,ic 000063 = 524000000020 004656 aa 6 00476 2521 00 spri2 pr6|318 004657 aa 773242 3520 04 epp2 -2398,ic 000121 = 526000000250 004660 aa 6 00500 2521 00 spri2 pr6|320 004661 aa 6 00460 6211 00 eax1 pr6|304 004662 aa 020000 4310 07 fld 8192,dl 004663 aa 6 00044 3701 20 epp4 pr6|36,* 004664 la 4 00026 3521 20 epp2 pr4|22,* com_err_ 004665 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc 004666 aa 777476 7100 04 tra -194,ic 004364 STATEMENT 1 ON LINE 309 else do; STATEMENT 1 ON LINE 310 call initializer_mdc_$make_link (acs_path, ec); 004667 aa 6 00257 3521 00 epp2 pr6|175 acs_path 004670 aa 6 00430 2521 00 spri2 pr6|280 004671 aa 6 00360 3521 00 epp2 pr6|240 ec 004672 aa 6 00432 2521 00 spri2 pr6|282 004673 aa 773226 3520 04 epp2 -2410,ic 000121 = 526000000250 004674 aa 6 00434 2521 00 spri2 pr6|284 004675 aa 773230 3520 04 epp2 -2408,ic 000125 = 404000000043 004676 aa 6 00436 2521 00 spri2 pr6|286 004677 aa 6 00426 6211 00 eax1 pr6|278 004700 aa 010000 4310 07 fld 4096,dl 004701 aa 6 00044 3701 20 epp4 pr6|36,* 004702 la 4 00060 3521 20 epp2 pr4|48,* initializer_mdc_$make_link 004703 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 311 if ec ^= 0 then call com_err_ (ec, comname, "cannot link: ^a", acs_path); 004704 aa 6 00360 2361 00 ldq pr6|240 ec 004705 aa 000033 6000 04 tze 27,ic 004740 004706 aa 773412 2370 04 ldaq -2294,ic 000320 = 143141156156 157164040154 004707 aa 6 00426 7571 00 staq pr6|278 004710 aa 773412 2370 04 ldaq -2294,ic 000322 = 151156153072 040136141000 004711 aa 6 00430 7571 00 staq pr6|280 004712 aa 6 00360 3521 00 epp2 pr6|240 ec 004713 aa 6 00462 2521 00 spri2 pr6|306 004714 aa 6 00215 3521 00 epp2 pr6|141 comname 004715 aa 6 00464 2521 00 spri2 pr6|308 004716 aa 6 00426 3521 00 epp2 pr6|278 004717 aa 6 00466 2521 00 spri2 pr6|310 004720 aa 6 00257 3521 00 epp2 pr6|175 acs_path 004721 aa 6 00470 2521 00 spri2 pr6|312 004722 aa 773203 3520 04 epp2 -2429,ic 000125 = 404000000043 004723 aa 6 00472 2521 00 spri2 pr6|314 004724 aa 773206 3520 04 epp2 -2426,ic 000132 = 526000000040 004725 aa 6 00474 2521 00 spri2 pr6|316 004726 aa 773134 3520 04 epp2 -2468,ic 000062 = 524000000017 004727 aa 6 00476 2521 00 spri2 pr6|318 004730 aa 773171 3520 04 epp2 -2439,ic 000121 = 526000000250 004731 aa 6 00500 2521 00 spri2 pr6|320 004732 aa 6 00460 6211 00 eax1 pr6|304 004733 aa 020000 4310 07 fld 8192,dl 004734 aa 6 00044 3701 20 epp4 pr6|36,* 004735 la 4 00026 3521 20 epp2 pr4|22,* com_err_ 004736 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc 004737 aa 777425 7100 04 tra -235,ic 004364 STATEMENT 1 ON LINE 312 else volume_registration.acs_path = acs_path; 004740 aa 6 00362 3735 20 epp7 pr6|242,* vrp 004741 aa 000 100 100 500 mlr (pr),(pr),fill(000) 004742 aa 6 00257 00 0250 desc9a pr6|175,168 acs_path 004743 aa 7 00026 00 0250 desc9a pr7|22,168 volume_registration.acs_path STATEMENT 1 ON LINE 313 end; STATEMENT 1 ON LINE 314 end; 004744 aa 777420 7100 04 tra -240,ic 004364 STATEMENT 1 ON LINE 315 else if tcs = "-owner" then do; 004745 aa 040 004 106 500 cmpc (pr),(ic),fill(040) 004746 aa 6 00133 00 0040 desc9a pr6|91,32 tcs 004747 aa 773217 00 0006 desc9a -2417,6 000164 = 055157167156 004750 aa 000043 6010 04 tnz 35,ic 005013 STATEMENT 1 ON LINE 316 call check_owner; 004751 aa 002726 6700 04 tsp4 1494,ic 007677 STATEMENT 1 ON LINE 317 if owneri = 0 then call com_err_ (0, comname, "invalid owner: ^a", tcs1); 004752 aa 6 00356 2361 00 ldq pr6|238 owneri 004753 aa 000033 6010 04 tnz 27,ic 005006 004754 aa 6 00421 4501 00 stz pr6|273 004755 aa 000 100 100 404 mlr (ic),(pr),fill(000) 004756 aa 773460 00 0024 desc9a -2256,20 000435 = 151156166141 004757 aa 6 00426 00 0024 desc9a pr6|278,20 004760 aa 6 00421 3521 00 epp2 pr6|273 004761 aa 6 00462 2521 00 spri2 pr6|306 004762 aa 6 00215 3521 00 epp2 pr6|141 comname 004763 aa 6 00464 2521 00 spri2 pr6|308 004764 aa 6 00426 3521 00 epp2 pr6|278 004765 aa 6 00466 2521 00 spri2 pr6|310 004766 aa 6 00143 3521 00 epp2 pr6|99 tcs1 004767 aa 6 00470 2521 00 spri2 pr6|312 004770 aa 773137 3520 04 epp2 -2465,ic 000127 = 404000000005 004771 aa 6 00472 2521 00 spri2 pr6|314 004772 aa 773140 3520 04 epp2 -2464,ic 000132 = 526000000040 004773 aa 6 00474 2521 00 spri2 pr6|316 004774 aa 773073 3520 04 epp2 -2501,ic 000067 = 524000000021 004775 aa 6 00476 2521 00 spri2 pr6|318 004776 aa 773123 3520 04 epp2 -2477,ic 000121 = 526000000250 004777 aa 6 00500 2521 00 spri2 pr6|320 005000 aa 6 00460 6211 00 eax1 pr6|304 005001 aa 020000 4310 07 fld 8192,dl 005002 aa 6 00044 3701 20 epp4 pr6|36,* 005003 la 4 00026 3521 20 epp2 pr4|22,* com_err_ 005004 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc 005005 aa 777357 7100 04 tra -273,ic 004364 STATEMENT 1 ON LINE 318 else volume_registration.volume_owner = owner; 005006 aa 6 00362 3735 20 epp7 pr6|242,* vrp 005007 aa 000 100 100 500 mlr (pr),(pr),fill(000) 005010 aa 6 00346 00 0040 desc9a pr6|230,32 owner 005011 aa 7 00016 00 0040 desc9a pr7|14,32 volume_registration.volume_owner STATEMENT 1 ON LINE 319 end; 005012 aa 777352 7100 04 tra -278,ic 004364 STATEMENT 1 ON LINE 320 else if tcs = "-name" then do; 005013 aa 040 004 106 500 cmpc (pr),(ic),fill(040) 005014 aa 6 00133 00 0040 desc9a pr6|91,32 tcs 005015 aa 773131 00 0005 desc9a -2471,5 000144 = 055156141155 005016 aa 000114 6010 04 tnz 76,ic 005132 STATEMENT 1 ON LINE 321 uname = "lv." || tcs1; 005017 aa 000253 2360 07 ldq 171,dl 005020 aa 0 00551 7001 00 tsx0 pr0|361 alloc_cs 005021 aa 040 100 100 404 mlr (ic),(pr),fill(040) 005022 aa 773040 00 0003 desc9a -2528,3 000061 = 154166056000 005023 aa 2 00000 00 0003 desc9a pr2|0,3 005024 aa 040 100 100 500 mlr (pr),(pr),fill(040) 005025 aa 6 00143 00 0250 desc9a pr6|99,168 tcs1 005026 aa 2 00000 60 0250 desc9a pr2|0(3),168 005027 aa 000 100 100 500 mlr (pr),(pr),fill(000) 005030 aa 2 00000 00 0040 desc9a pr2|0,32 005031 aa 6 00103 00 0040 desc9a pr6|67,32 uname STATEMENT 1 ON LINE 322 call initializer_mdc_$chname_hv (lvname, "lv." || lvname, uname, ec); 005032 aa 0 01014 7001 00 tsx0 pr0|524 shorten_stack 005033 aa 040 100 100 404 mlr (ic),(pr),fill(040) 005034 aa 773026 00 0003 desc9a -2538,3 000061 = 154166056000 005035 aa 6 00426 00 0003 desc9a pr6|278,3 005036 aa 040 100 100 500 mlr (pr),(pr),fill(040) 005037 aa 6 00123 00 0040 desc9a pr6|83,32 lvname 005040 aa 6 00426 60 0040 desc9a pr6|278(3),32 005041 aa 6 00123 3521 00 epp2 pr6|83 lvname 005042 aa 6 00462 2521 00 spri2 pr6|306 005043 aa 6 00426 3521 00 epp2 pr6|278 005044 aa 6 00464 2521 00 spri2 pr6|308 005045 aa 6 00103 3521 00 epp2 pr6|67 uname 005046 aa 6 00466 2521 00 spri2 pr6|310 005047 aa 6 00360 3521 00 epp2 pr6|240 ec 005050 aa 6 00470 2521 00 spri2 pr6|312 005051 aa 773061 3520 04 epp2 -2511,ic 000132 = 526000000040 005052 aa 6 00472 2521 00 spri2 pr6|314 005053 aa 6 00476 2521 00 spri2 pr6|318 005054 aa 773022 3520 04 epp2 -2542,ic 000076 = 524000000043 005055 aa 6 00474 2521 00 spri2 pr6|316 005056 aa 773047 3520 04 epp2 -2521,ic 000125 = 404000000043 005057 aa 6 00500 2521 00 spri2 pr6|320 005060 aa 6 00460 6211 00 eax1 pr6|304 005061 aa 020000 4310 07 fld 8192,dl 005062 aa 6 00044 3701 20 epp4 pr6|36,* 005063 la 4 00054 3521 20 epp2 pr4|44,* initializer_mdc_$chname_hv 005064 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 323 if ec ^= 0 then call com_err_ (ec, comname, "new lvname duplicated: ^a", uname); 005065 aa 6 00360 2361 00 ldq pr6|240 ec 005066 aa 000031 6000 04 tze 25,ic 005117 005067 aa 000 100 100 404 mlr (ic),(pr),fill(000) 005070 aa 773535 00 0034 desc9a -2211,28 000624 = 156145167040 005071 aa 6 00426 00 0034 desc9a pr6|278,28 005072 aa 6 00360 3521 00 epp2 pr6|240 ec 005073 aa 6 00462 2521 00 spri2 pr6|306 005074 aa 6 00215 3521 00 epp2 pr6|141 comname 005075 aa 6 00464 2521 00 spri2 pr6|308 005076 aa 6 00426 3521 00 epp2 pr6|278 005077 aa 6 00466 2521 00 spri2 pr6|310 005100 aa 6 00103 3521 00 epp2 pr6|67 uname 005101 aa 6 00470 2521 00 spri2 pr6|312 005102 aa 773023 3520 04 epp2 -2541,ic 000125 = 404000000043 005103 aa 6 00472 2521 00 spri2 pr6|314 005104 aa 773026 3520 04 epp2 -2538,ic 000132 = 526000000040 005105 aa 6 00474 2521 00 spri2 pr6|316 005106 aa 6 00500 2521 00 spri2 pr6|320 005107 aa 772751 3520 04 epp2 -2583,ic 000060 = 524000000031 005110 aa 6 00476 2521 00 spri2 pr6|318 005111 aa 6 00460 6211 00 eax1 pr6|304 005112 aa 020000 4310 07 fld 8192,dl 005113 aa 6 00044 3701 20 epp4 pr6|36,* 005114 la 4 00026 3521 20 epp2 pr4|22,* com_err_ 005115 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc 005116 aa 777246 7100 04 tra -346,ic 004364 STATEMENT 1 ON LINE 324 else do; STATEMENT 1 ON LINE 325 volume_registration.hvname = tcs1; 005117 aa 6 00362 3735 20 epp7 pr6|242,* vrp 005120 aa 000 100 100 500 mlr (pr),(pr),fill(000) 005121 aa 6 00143 00 0040 desc9a pr6|99,32 tcs1 005122 aa 7 00002 00 0040 desc9a pr7|2,32 volume_registration.hvname STATEMENT 1 ON LINE 326 old_lvname = lvname; 005123 aa 000 100 100 500 mlr (pr),(pr),fill(000) 005124 aa 6 00123 00 0040 desc9a pr6|83,32 lvname 005125 aa 6 00237 00 0040 desc9a pr6|159,32 old_lvname STATEMENT 1 ON LINE 327 lvname = tcs1; 005126 aa 000 100 100 500 mlr (pr),(pr),fill(000) 005127 aa 6 00143 00 0040 desc9a pr6|99,32 tcs1 005130 aa 6 00123 00 0040 desc9a pr6|83,32 lvname STATEMENT 1 ON LINE 328 end; STATEMENT 1 ON LINE 329 end; 005131 aa 777233 7100 04 tra -357,ic 004364 STATEMENT 1 ON LINE 330 else if tcs = "-lvid" then do; 005132 aa 040 004 106 500 cmpc (pr),(ic),fill(040) 005133 aa 6 00133 00 0040 desc9a pr6|91,32 tcs 005134 aa 773010 00 0005 desc9a -2552,5 000142 = 055154166151 005135 aa 000224 6010 04 tnz 148,ic 005361 STATEMENT 1 ON LINE 331 b36 = cv_oct_check_ (tcs1, ec); 005136 aa 6 00143 3521 00 epp2 pr6|99 tcs1 005137 aa 6 00430 2521 00 spri2 pr6|280 005140 aa 6 00360 3521 00 epp2 pr6|240 ec 005141 aa 6 00432 2521 00 spri2 pr6|282 005142 aa 6 00421 3521 00 epp2 pr6|273 005143 aa 6 00434 2521 00 spri2 pr6|284 005144 aa 772755 3520 04 epp2 -2579,ic 000121 = 526000000250 005145 aa 6 00436 2521 00 spri2 pr6|286 005146 aa 772757 3520 04 epp2 -2577,ic 000125 = 404000000043 005147 aa 6 00440 2521 00 spri2 pr6|288 005150 aa 772763 3520 04 epp2 -2573,ic 000133 = 516000000044 005151 aa 6 00442 2521 00 spri2 pr6|290 005152 aa 6 00426 6211 00 eax1 pr6|278 005153 aa 014000 4310 07 fld 6144,dl 005154 aa 6 00044 3701 20 epp4 pr6|36,* 005155 la 4 00040 3521 20 epp2 pr4|32,* cv_oct_check_ 005156 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc 005157 aa 6 00421 2351 00 lda pr6|273 005160 aa 6 00235 7551 00 sta pr6|157 b36 STATEMENT 1 ON LINE 332 if ec ^= 0 then call com_err_ (ec, comname, "invalid: ^a", tcs1); 005161 aa 6 00360 2361 00 ldq pr6|240 ec 005162 aa 000033 6000 04 tze 27,ic 005215 005163 aa 773035 2370 04 ldaq -2531,ic 000220 = 151156166141 154151144072 005164 aa 6 00426 7571 00 staq pr6|278 005165 aa 773035 2350 04 lda -2531,ic 000222 = 040136141000 005166 aa 6 00430 7551 00 sta pr6|280 005167 aa 6 00360 3521 00 epp2 pr6|240 ec 005170 aa 6 00462 2521 00 spri2 pr6|306 005171 aa 6 00215 3521 00 epp2 pr6|141 comname 005172 aa 6 00464 2521 00 spri2 pr6|308 005173 aa 6 00426 3521 00 epp2 pr6|278 005174 aa 6 00466 2521 00 spri2 pr6|310 005175 aa 6 00143 3521 00 epp2 pr6|99 tcs1 005176 aa 6 00470 2521 00 spri2 pr6|312 005177 aa 772726 3520 04 epp2 -2602,ic 000125 = 404000000043 005200 aa 6 00472 2521 00 spri2 pr6|314 005201 aa 772731 3520 04 epp2 -2599,ic 000132 = 526000000040 005202 aa 6 00474 2521 00 spri2 pr6|316 005203 aa 772665 3520 04 epp2 -2635,ic 000070 = 524000000013 005204 aa 6 00476 2521 00 spri2 pr6|318 005205 aa 772714 3520 04 epp2 -2612,ic 000121 = 526000000250 005206 aa 6 00500 2521 00 spri2 pr6|320 005207 aa 6 00460 6211 00 eax1 pr6|304 005210 aa 020000 4310 07 fld 8192,dl 005211 aa 6 00044 3701 20 epp4 pr6|36,* 005212 la 4 00026 3521 20 epp2 pr4|22,* com_err_ 005213 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc 005214 aa 777150 7100 04 tra -408,ic 004364 STATEMENT 1 ON LINE 333 else do; STATEMENT 1 ON LINE 334 uname = "lvid." || unique_chars_ (b36); 005215 aa 6 00235 3521 00 epp2 pr6|157 b36 005216 aa 6 00462 2521 00 spri2 pr6|306 005217 aa 6 00426 3521 00 epp2 pr6|278 005220 aa 6 00464 2521 00 spri2 pr6|308 005221 aa 772664 3520 04 epp2 -2636,ic 000105 = 514000000044 005222 aa 6 00466 2521 00 spri2 pr6|310 005223 aa 772706 3520 04 epp2 -2618,ic 000131 = 526000000017 005224 aa 6 00470 2521 00 spri2 pr6|312 005225 aa 6 00460 6211 00 eax1 pr6|304 005226 aa 010000 4310 07 fld 4096,dl 005227 aa 6 00044 3701 20 epp4 pr6|36,* 005230 la 4 00102 3521 20 epp2 pr4|66,* unique_chars_ 005231 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc 005232 aa 000024 2360 07 ldq 20,dl 005233 aa 0 00551 7001 00 tsx0 pr0|361 alloc_cs 005234 aa 040 100 100 404 mlr (ic),(pr),fill(040) 005235 aa 772716 00 0005 desc9a -2610,5 000152 = 154166151144 005236 aa 2 00000 00 0005 desc9a pr2|0,5 005237 aa 040 100 100 500 mlr (pr),(pr),fill(040) 005240 aa 6 00426 00 0017 desc9a pr6|278,15 005241 aa 2 00001 20 0017 desc9a pr2|1(1),15 005242 aa 040 100 100 500 mlr (pr),(pr),fill(040) 005243 aa 2 00000 00 0024 desc9a pr2|0,20 005244 aa 6 00103 00 0040 desc9a pr6|67,32 uname STATEMENT 1 ON LINE 335 call initializer_mdc_$chname_hv (lvname, "lvid." || unique_chars_ (volume_registration.hvid), uname, ec); 005245 aa 0 01014 7001 00 tsx0 pr0|524 shorten_stack 005246 aa 6 00362 3735 20 epp7 pr6|242,* vrp 005247 aa 7 00001 3521 00 epp2 pr7|1 volume_registration.hvid 005250 aa 6 00462 2521 00 spri2 pr6|306 005251 aa 6 00426 3521 00 epp2 pr6|278 005252 aa 6 00464 2521 00 spri2 pr6|308 005253 aa 772632 3520 04 epp2 -2662,ic 000105 = 514000000044 005254 aa 6 00466 2521 00 spri2 pr6|310 005255 aa 772654 3520 04 epp2 -2644,ic 000131 = 526000000017 005256 aa 6 00470 2521 00 spri2 pr6|312 005257 aa 6 00460 6211 00 eax1 pr6|304 005260 aa 010000 4310 07 fld 4096,dl 005261 aa 6 00044 3701 20 epp4 pr6|36,* 005262 la 4 00102 3521 20 epp2 pr4|66,* unique_chars_ 005263 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc 005264 aa 040 100 100 404 mlr (ic),(pr),fill(040) 005265 aa 772666 00 0005 desc9a -2634,5 000152 = 154166151144 005266 aa 6 00460 00 0005 desc9a pr6|304,5 005267 aa 040 100 100 500 mlr (pr),(pr),fill(040) 005270 aa 6 00426 00 0017 desc9a pr6|278,15 005271 aa 6 00461 20 0017 desc9a pr6|305(1),15 005272 aa 6 00123 3521 00 epp2 pr6|83 lvname 005273 aa 6 00430 2521 00 spri2 pr6|280 005274 aa 6 00460 3521 00 epp2 pr6|304 005275 aa 6 00432 2521 00 spri2 pr6|282 005276 aa 6 00103 3521 00 epp2 pr6|67 uname 005277 aa 6 00434 2521 00 spri2 pr6|284 005300 aa 6 00360 3521 00 epp2 pr6|240 ec 005301 aa 6 00436 2521 00 spri2 pr6|286 005302 aa 772630 3520 04 epp2 -2664,ic 000132 = 526000000040 005303 aa 6 00440 2521 00 spri2 pr6|288 005304 aa 6 00444 2521 00 spri2 pr6|292 005305 aa 772557 3520 04 epp2 -2705,ic 000064 = 524000000024 005306 aa 6 00442 2521 00 spri2 pr6|290 005307 aa 772616 3520 04 epp2 -2674,ic 000125 = 404000000043 005310 aa 6 00446 2521 00 spri2 pr6|294 005311 aa 6 00426 6211 00 eax1 pr6|278 005312 aa 020000 4310 07 fld 8192,dl 005313 aa 6 00044 3701 20 epp4 pr6|36,* 005314 la 4 00054 3521 20 epp2 pr4|44,* initializer_mdc_$chname_hv 005315 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 337 if ec ^= 0 then call com_err_ (ec, comname, "cannot change lvid: ^a", uname); 005316 aa 6 00360 2361 00 ldq pr6|240 ec 005317 aa 000034 6000 04 tze 28,ic 005353 005320 aa 773216 2370 04 ldaq -2418,ic 000536 = 143141156156 157164040143 005321 aa 6 00426 7571 00 staq pr6|278 005322 aa 773216 2370 04 ldaq -2418,ic 000540 = 150141156147 145040154166 005323 aa 6 00430 7571 00 staq pr6|280 005324 aa 773216 2370 04 ldaq -2418,ic 000542 = 151144072040 136141000000 005325 aa 6 00432 7571 00 staq pr6|282 005326 aa 6 00360 3521 00 epp2 pr6|240 ec 005327 aa 6 00462 2521 00 spri2 pr6|306 005330 aa 6 00215 3521 00 epp2 pr6|141 comname 005331 aa 6 00464 2521 00 spri2 pr6|308 005332 aa 6 00426 3521 00 epp2 pr6|278 005333 aa 6 00466 2521 00 spri2 pr6|310 005334 aa 6 00103 3521 00 epp2 pr6|67 uname 005335 aa 6 00470 2521 00 spri2 pr6|312 005336 aa 772567 3520 04 epp2 -2697,ic 000125 = 404000000043 005337 aa 6 00472 2521 00 spri2 pr6|314 005340 aa 772572 3520 04 epp2 -2694,ic 000132 = 526000000040 005341 aa 6 00474 2521 00 spri2 pr6|316 005342 aa 6 00500 2521 00 spri2 pr6|320 005343 aa 772537 3520 04 epp2 -2721,ic 000102 = 524000000026 005344 aa 6 00476 2521 00 spri2 pr6|318 005345 aa 6 00460 6211 00 eax1 pr6|304 005346 aa 020000 4310 07 fld 8192,dl 005347 aa 6 00044 3701 20 epp4 pr6|36,* 005350 la 4 00026 3521 20 epp2 pr4|22,* com_err_ 005351 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc 005352 aa 777012 7100 04 tra -502,ic 004364 STATEMENT 1 ON LINE 338 else do; STATEMENT 1 ON LINE 339 old_lvid = volume_registration.hvid; 005353 aa 6 00362 3735 20 epp7 pr6|242,* vrp 005354 aa 7 00001 2351 00 lda pr7|1 volume_registration.hvid 005355 aa 6 00236 7551 00 sta pr6|158 old_lvid STATEMENT 1 ON LINE 340 volume_registration.hvid = b36; 005356 aa 6 00235 2351 00 lda pr6|157 b36 005357 aa 7 00001 7551 00 sta pr7|1 volume_registration.hvid STATEMENT 1 ON LINE 341 end; STATEMENT 1 ON LINE 342 end; STATEMENT 1 ON LINE 343 end; 005360 aa 777004 7100 04 tra -508,ic 004364 STATEMENT 1 ON LINE 344 else call com_err_ (0, comname, "unknown control arg: ^a", tcs); 005361 aa 6 00421 4501 00 stz pr6|273 005362 aa 773146 2370 04 ldaq -2458,ic 000530 = 165156153156 157167156040 005363 aa 6 00426 7571 00 staq pr6|278 005364 aa 773146 2370 04 ldaq -2458,ic 000532 = 143157156164 162157154040 005365 aa 6 00430 7571 00 staq pr6|280 005366 aa 773146 2370 04 ldaq -2458,ic 000534 = 141162147072 040136141000 005367 aa 6 00432 7571 00 staq pr6|282 005370 aa 6 00421 3521 00 epp2 pr6|273 005371 aa 6 00462 2521 00 spri2 pr6|306 005372 aa 6 00215 3521 00 epp2 pr6|141 comname 005373 aa 6 00464 2521 00 spri2 pr6|308 005374 aa 6 00426 3521 00 epp2 pr6|278 005375 aa 6 00466 2521 00 spri2 pr6|310 005376 aa 6 00133 3521 00 epp2 pr6|91 tcs 005377 aa 6 00470 2521 00 spri2 pr6|312 005400 aa 772527 3520 04 epp2 -2729,ic 000127 = 404000000005 005401 aa 6 00472 2521 00 spri2 pr6|314 005402 aa 772530 3520 04 epp2 -2728,ic 000132 = 526000000040 005403 aa 6 00474 2521 00 spri2 pr6|316 005404 aa 6 00500 2521 00 spri2 pr6|320 005405 aa 772452 3520 04 epp2 -2774,ic 000057 = 524000000027 005406 aa 6 00476 2521 00 spri2 pr6|318 005407 aa 6 00460 6211 00 eax1 pr6|304 005410 aa 020000 4310 07 fld 8192,dl 005411 aa 6 00044 3701 20 epp4 pr6|36,* 005412 la 4 00026 3521 20 epp2 pr4|22,* com_err_ 005413 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 345 end; 005414 aa 776750 7100 04 tra -536,ic 004364 STATEMENT 1 ON LINE 346 end; 005415 aa 000012 7100 04 tra 10,ic 005427 STATEMENT 1 ON LINE 347 else call FAIL ("arg neither pv nor lv: " || tcs); 005416 aa 040 100 100 404 mlr (ic),(pr),fill(040) 005417 aa 773104 00 0027 desc9a -2492,23 000522 = 141162147040 005420 aa 6 00426 00 0027 desc9a pr6|278,23 005421 aa 040 100 100 500 mlr (pr),(pr),fill(040) 005422 aa 6 00133 00 0040 desc9a pr6|91,32 tcs 005423 aa 6 00433 60 0040 desc9a pr6|283(3),32 005424 aa 002422 3520 04 epp2 1298,ic 010046 = 000002000000 005425 aa 2 00000 2351 00 lda pr2|0 005426 aa 002206 6700 04 tsp4 1158,ic 007634 STATEMENT 1 ON LINE 349 call initializer_mdc_$write_hv (lvname, vrp, ec); 005427 aa 6 00123 3521 00 epp2 pr6|83 lvname 005430 aa 6 00430 2521 00 spri2 pr6|280 005431 aa 6 00362 3521 00 epp2 pr6|242 vrp 005432 aa 6 00432 2521 00 spri2 pr6|282 005433 aa 6 00360 3521 00 epp2 pr6|240 ec 005434 aa 6 00434 2521 00 spri2 pr6|284 005435 aa 772475 3520 04 epp2 -2755,ic 000132 = 526000000040 005436 aa 6 00436 2521 00 spri2 pr6|286 005437 aa 772467 3520 04 epp2 -2761,ic 000126 = 464000000000 005440 aa 6 00440 2521 00 spri2 pr6|288 005441 aa 772464 3520 04 epp2 -2764,ic 000125 = 404000000043 005442 aa 6 00442 2521 00 spri2 pr6|290 005443 aa 6 00426 6211 00 eax1 pr6|278 005444 aa 014000 4310 07 fld 6144,dl 005445 aa 6 00044 3701 20 epp4 pr6|36,* 005446 la 4 00066 3521 20 epp2 pr4|54,* initializer_mdc_$write_hv 005447 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 350 if ec ^= 0 then call FAIL ("cannot modify: " || lvname); 005450 aa 6 00360 2361 00 ldq pr6|240 ec 005451 aa 000012 6000 04 tze 10,ic 005463 005452 aa 040 100 100 404 mlr (ic),(pr),fill(040) 005453 aa 772672 00 0017 desc9a -2630,15 000344 = 143141156156 005454 aa 6 00426 00 0017 desc9a pr6|278,15 005455 aa 040 100 100 500 mlr (pr),(pr),fill(040) 005456 aa 6 00123 00 0040 desc9a pr6|83,32 lvname 005457 aa 6 00431 60 0040 desc9a pr6|281(3),32 005460 aa 002360 3520 04 epp2 1264,ic 010040 = 000002000000 005461 aa 2 00000 2351 00 lda pr2|0 005462 aa 002152 6700 04 tsp4 1130,ic 007634 STATEMENT 1 ON LINE 352 if old_lvname ^= "" then call mdc_priv_$rename_mdcs (old_lvname, lvname, ec); 005463 aa 040 004 106 500 cmpc (pr),(ic),fill(040) 005464 aa 6 00237 00 0040 desc9a pr6|159,32 old_lvname 005465 aa 002665 00 0000 desc9a 1461,0 010350 = 154166000000 005466 aa 000021 6000 04 tze 17,ic 005507 005467 aa 6 00237 3521 00 epp2 pr6|159 old_lvname 005470 aa 6 00430 2521 00 spri2 pr6|280 005471 aa 6 00123 3521 00 epp2 pr6|83 lvname 005472 aa 6 00432 2521 00 spri2 pr6|282 005473 aa 6 00360 3521 00 epp2 pr6|240 ec 005474 aa 6 00434 2521 00 spri2 pr6|284 005475 aa 772435 3520 04 epp2 -2787,ic 000132 = 526000000040 005476 aa 6 00436 2521 00 spri2 pr6|286 005477 aa 6 00440 2521 00 spri2 pr6|288 005500 aa 772425 3520 04 epp2 -2795,ic 000125 = 404000000043 005501 aa 6 00442 2521 00 spri2 pr6|290 005502 aa 6 00426 6211 00 eax1 pr6|278 005503 aa 014000 4310 07 fld 6144,dl 005504 aa 6 00044 3701 20 epp4 pr6|36,* 005505 la 4 00074 3521 20 epp2 pr4|60,* mdc_priv_$rename_mdcs 005506 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 353 if ec ^= 0 then call FAIL ("mdc rename err"); 005507 aa 6 00360 2361 00 ldq pr6|240 ec 005510 aa 000010 6000 04 tze 8,ic 005520 005511 aa 772603 2370 04 ldaq -2685,ic 000314 = 155144143040 162145156141 005512 aa 6 00426 7571 00 staq pr6|278 005513 aa 772603 2370 04 ldaq -2685,ic 000316 = 155145040145 162162000000 005514 aa 6 00430 7571 00 staq pr6|280 005515 aa 002243 3520 04 epp2 1187,ic 007760 = 000002000000 005516 aa 2 00000 2351 00 lda pr2|0 005517 aa 002115 6700 04 tsp4 1101,ic 007634 STATEMENT 1 ON LINE 354 if old_lvid then call mdc_priv_$update_hvid (lvname, old_lvid, ec); 005520 aa 6 00236 2351 00 lda pr6|158 old_lvid 005521 aa 000022 6000 04 tze 18,ic 005543 005522 aa 6 00123 3521 00 epp2 pr6|83 lvname 005523 aa 6 00430 2521 00 spri2 pr6|280 005524 aa 6 00236 3521 00 epp2 pr6|158 old_lvid 005525 aa 6 00432 2521 00 spri2 pr6|282 005526 aa 6 00360 3521 00 epp2 pr6|240 ec 005527 aa 6 00434 2521 00 spri2 pr6|284 005530 aa 772402 3520 04 epp2 -2814,ic 000132 = 526000000040 005531 aa 6 00436 2521 00 spri2 pr6|286 005532 aa 772401 3520 04 epp2 -2815,ic 000133 = 516000000044 005533 aa 6 00440 2521 00 spri2 pr6|288 005534 aa 772371 3520 04 epp2 -2823,ic 000125 = 404000000043 005535 aa 6 00442 2521 00 spri2 pr6|290 005536 aa 6 00426 6211 00 eax1 pr6|278 005537 aa 014000 4310 07 fld 6144,dl 005540 aa 6 00044 3701 20 epp4 pr6|36,* 005541 la 4 00100 3521 20 epp2 pr4|64,* mdc_priv_$update_hvid 005542 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 355 if ec ^= 0 then call FAIL ("mdc lvid update err"); 005543 aa 6 00360 2361 00 ldq pr6|240 ec 005544 aa 000012 6000 04 tze 10,ic 005556 005545 aa 772663 2370 04 ldaq -2637,ic 000430 = 155144143040 154166151144 005546 aa 6 00426 7571 00 staq pr6|278 005547 aa 772663 2370 04 ldaq -2637,ic 000432 = 040165160144 141164145040 005550 aa 6 00430 7571 00 staq pr6|280 005551 aa 772663 2350 04 lda -2637,ic 000434 = 145162162000 005552 aa 6 00432 7551 00 sta pr6|282 005553 aa 002177 3520 04 epp2 1151,ic 007752 = 000002000000 005554 aa 2 00000 2351 00 lda pr2|0 005555 aa 002057 6700 04 tsp4 1071,ic 007634 STATEMENT 1 ON LINE 356 return; 005556 aa 0 00631 7101 00 tra pr0|409 return ENTRY TO del_volume_registration STATEMENT 1 ON LINE 358 del_volume_registration: entry; 005557 da 000362200000 005560 aa 000760 6270 00 eax7 496 005561 aa 7 00034 3521 20 epp2 pr7|28,* 005562 aa 2 01045 2721 00 tsp2 pr2|549 ext_entry 005563 aa 000000000000 005564 aa 000000000000 005565 aa 773141 7000 04 tsx0 -2463,ic 000726 STATEMENT 1 ON LINE 360 comname = "del_vol_registration"; 005566 aa 040 100 100 404 mlr (ic),(pr),fill(040) 005567 aa 772635 00 0024 desc9a -2659,20 000423 = 144145154137 005570 aa 6 00215 00 0040 desc9a pr6|141,32 comname STATEMENT 1 ON LINE 361 if svrp = null then call hcs_$make_seg ("", "", "", 1011b, svrp, ec); 005571 aa 6 00044 3701 20 epp4 pr6|36,* 005572 ia 4 00010 2371 00 ldaq pr4|8 svrp 005573 aa 772373 6770 04 eraq -2821,ic 000166 = 077777000043 000001000000 005574 aa 0 00460 3771 00 anaq pr0|304 = 077777000077 777777077077 005575 aa 000035 6010 04 tnz 29,ic 005632 005576 aa 000013 2360 07 ldq 11,dl 005577 aa 6 00423 7561 00 stq pr6|275 005600 aa 6 00421 3521 00 epp2 pr6|273 005601 aa 6 00430 2521 00 spri2 pr6|280 005602 aa 6 00623 3521 00 epp2 pr6|403 005603 aa 6 00432 2521 00 spri2 pr6|282 005604 aa 6 00424 3521 00 epp2 pr6|276 005605 aa 6 00434 2521 00 spri2 pr6|284 005606 aa 6 00423 3521 00 epp2 pr6|275 005607 aa 6 00436 2521 00 spri2 pr6|286 005610 ia 4 00010 3521 00 epp2 pr4|8 svrp 005611 aa 6 00440 2521 00 spri2 pr6|288 005612 aa 6 00360 3521 00 epp2 pr6|240 ec 005613 aa 6 00442 2521 00 spri2 pr6|290 005614 aa 772314 3520 04 epp2 -2868,ic 000130 = 524000000000 005615 aa 6 00444 2521 00 spri2 pr6|292 005616 aa 6 00446 2521 00 spri2 pr6|294 005617 aa 6 00450 2521 00 spri2 pr6|296 005620 aa 772307 3520 04 epp2 -2873,ic 000127 = 404000000005 005621 aa 6 00452 2521 00 spri2 pr6|298 005622 aa 772304 3520 04 epp2 -2876,ic 000126 = 464000000000 005623 aa 6 00454 2521 00 spri2 pr6|300 005624 aa 772301 3520 04 epp2 -2879,ic 000125 = 404000000043 005625 aa 6 00456 2521 00 spri2 pr6|302 005626 aa 6 00426 6211 00 eax1 pr6|278 005627 aa 030000 4310 07 fld 12288,dl 005630 la 4 00050 3521 20 epp2 pr4|40,* hcs_$make_seg 005631 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 362 vrp = svrp; 005632 aa 6 00044 3701 20 epp4 pr6|36,* 005633 ia 4 00010 3735 20 epp7 pr4|8,* svrp 005634 aa 6 00362 6535 00 spri7 pr6|242 vrp STATEMENT 1 ON LINE 363 ec = 0; 005635 aa 6 00360 4501 00 stz pr6|240 ec STATEMENT 1 ON LINE 364 call getarg (tcs); 005636 aa 002504 3520 04 epp2 1348,ic 010342 = 000002000000 005637 aa 2 00000 2351 00 lda pr2|0 005640 aa 001675 6700 04 tsp4 957,ic 007535 STATEMENT 1 ON LINE 365 if tcs = "pv" then do; 005641 aa 040 004 106 500 cmpc (pr),(ic),fill(040) 005642 aa 6 00133 00 0040 desc9a pr6|91,32 tcs 005643 aa 002511 00 0002 desc9a 1353,2 010352 = 160166000000 005644 aa 000305 6010 04 tnz 197,ic 006151 STATEMENT 1 ON LINE 366 call getarg (pvname); 005645 aa 002461 3520 04 epp2 1329,ic 010326 = 000002000000 005646 aa 2 00000 2351 00 lda pr2|0 005647 aa 001666 6700 04 tsp4 950,ic 007535 STATEMENT 1 ON LINE 367 call initializer_mdc_$read_pv (pvname, vrp, ec); 005650 aa 6 00113 3521 00 epp2 pr6|75 pvname 005651 aa 6 00430 2521 00 spri2 pr6|280 005652 aa 6 00362 3521 00 epp2 pr6|242 vrp 005653 aa 6 00432 2521 00 spri2 pr6|282 005654 aa 6 00360 3521 00 epp2 pr6|240 ec 005655 aa 6 00434 2521 00 spri2 pr6|284 005656 aa 772254 3520 04 epp2 -2900,ic 000132 = 526000000040 005657 aa 6 00436 2521 00 spri2 pr6|286 005660 aa 772246 3520 04 epp2 -2906,ic 000126 = 464000000000 005661 aa 6 00440 2521 00 spri2 pr6|288 005662 aa 772243 3520 04 epp2 -2909,ic 000125 = 404000000043 005663 aa 6 00442 2521 00 spri2 pr6|290 005664 aa 6 00426 6211 00 eax1 pr6|278 005665 aa 014000 4310 07 fld 6144,dl 005666 aa 6 00044 3701 20 epp4 pr6|36,* 005667 la 4 00064 3521 20 epp2 pr4|52,* initializer_mdc_$read_pv 005670 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 368 if ec ^= 0 then call FAIL ("pv not found: " || pvname); 005671 aa 6 00360 2361 00 ldq pr6|240 ec 005672 aa 000012 6000 04 tze 10,ic 005704 005673 aa 040 100 100 404 mlr (ic),(pr),fill(040) 005674 aa 772445 00 0016 desc9a -2779,14 000340 = 160166040156 005675 aa 6 00426 00 0016 desc9a pr6|278,14 005676 aa 040 100 100 500 mlr (pr),(pr),fill(040) 005677 aa 6 00113 00 0040 desc9a pr6|75,32 pvname 005700 aa 6 00431 40 0040 desc9a pr6|281(2),32 005701 aa 002107 3520 04 epp2 1095,ic 010010 = 000002000000 005702 aa 2 00000 2351 00 lda pr2|0 005703 aa 001731 6700 04 tsp4 985,ic 007634 STATEMENT 1 ON LINE 369 lvname = volume_registration.hvname; 005704 aa 6 00362 3735 20 epp7 pr6|242,* vrp 005705 aa 000 100 100 500 mlr (pr),(pr),fill(000) 005706 aa 7 00002 00 0040 desc9a pr7|2,32 volume_registration.hvname 005707 aa 6 00123 00 0040 desc9a pr6|83,32 lvname STATEMENT 1 ON LINE 370 if volume_registration.npv = 1 then call FAIL ("lv has only one pv: " || lvname); 005710 aa 7 00101 2361 00 ldq pr7|65 volume_registration.npv 005711 aa 000001 1160 07 cmpq 1,dl 005712 aa 000012 6010 04 tnz 10,ic 005724 005713 aa 040 100 100 404 mlr (ic),(pr),fill(040) 005714 aa 772503 00 0024 desc9a -2749,20 000416 = 154166040150 005715 aa 6 00426 00 0024 desc9a pr6|278,20 005716 aa 040 100 100 500 mlr (pr),(pr),fill(040) 005717 aa 6 00123 00 0040 desc9a pr6|83,32 lvname 005720 aa 6 00433 00 0040 desc9a pr6|283,32 005721 aa 002023 3520 04 epp2 1043,ic 007744 = 000002000000 005722 aa 2 00000 2351 00 lda pr2|0 005723 aa 001711 6700 04 tsp4 969,ic 007634 STATEMENT 1 ON LINE 371 call initializer_mdc_$chname_hv (lvname, "pv." || pvname, "", ec); 005724 aa 040 100 100 404 mlr (ic),(pr),fill(040) 005725 aa 772153 00 0003 desc9a -2965,3 000077 = 160166056000 005726 aa 6 00426 00 0003 desc9a pr6|278,3 005727 aa 040 100 100 500 mlr (pr),(pr),fill(040) 005730 aa 6 00113 00 0040 desc9a pr6|75,32 pvname 005731 aa 6 00426 60 0040 desc9a pr6|278(3),32 005732 aa 6 00123 3521 00 epp2 pr6|83 lvname 005733 aa 6 00462 2521 00 spri2 pr6|306 005734 aa 6 00426 3521 00 epp2 pr6|278 005735 aa 6 00464 2521 00 spri2 pr6|308 005736 aa 6 00423 3521 00 epp2 pr6|275 005737 aa 6 00466 2521 00 spri2 pr6|310 005740 aa 6 00360 3521 00 epp2 pr6|240 ec 005741 aa 6 00470 2521 00 spri2 pr6|312 005742 aa 772170 3520 04 epp2 -2952,ic 000132 = 526000000040 005743 aa 6 00472 2521 00 spri2 pr6|314 005744 aa 772132 3520 04 epp2 -2982,ic 000076 = 524000000043 005745 aa 6 00474 2521 00 spri2 pr6|316 005746 aa 772162 3520 04 epp2 -2958,ic 000130 = 524000000000 005747 aa 6 00476 2521 00 spri2 pr6|318 005750 aa 772155 3520 04 epp2 -2963,ic 000125 = 404000000043 005751 aa 6 00500 2521 00 spri2 pr6|320 005752 aa 6 00460 6211 00 eax1 pr6|304 005753 aa 020000 4310 07 fld 8192,dl 005754 aa 6 00044 3701 20 epp4 pr6|36,* 005755 la 4 00054 3521 20 epp2 pr4|44,* initializer_mdc_$chname_hv 005756 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 372 do i = 1 to volume_registration.npv while (volume_registration.pv (i).pvname ^= pvname); 005757 aa 6 00362 3735 20 epp7 pr6|242,* vrp 005760 aa 7 00101 2361 00 ldq pr7|65 volume_registration.npv 005761 aa 6 00366 7561 00 stq pr6|246 005762 aa 000001 2360 07 ldq 1,dl 005763 aa 6 00331 7561 00 stq pr6|217 i 005764 aa 6 00331 2361 00 ldq pr6|217 i 005765 aa 6 00366 1161 00 cmpq pr6|246 005766 aa 000012 6054 04 tpnz 10,ic 006000 005767 aa 000036 4020 07 mpy 30,dl 005770 aa 6 00362 3735 20 epp7 pr6|242,* vrp 005771 aa 7 00046 3735 06 epp7 pr7|38,ql volume_registration.pvname 005772 aa 040 100 106 500 cmpc (pr),(pr),fill(040) 005773 aa 7 00000 00 0040 desc9a pr7|0,32 volume_registration.pvname 005774 aa 6 00113 00 0040 desc9a pr6|75,32 pvname 005775 aa 000003 6000 04 tze 3,ic 006000 STATEMENT 2 ON LINE 372 end; 005776 aa 6 00331 0541 00 aos pr6|217 i 005777 aa 777765 7100 04 tra -11,ic 005764 STATEMENT 1 ON LINE 373 if i <= volume_registration.npv then do; 006000 aa 6 00331 2361 00 ldq pr6|217 i 006001 aa 6 00362 3735 20 epp7 pr6|242,* vrp 006002 aa 7 00101 1161 00 cmpq pr7|65 volume_registration.npv 006003 aa 000111 6054 04 tpnz 73,ic 006114 STATEMENT 1 ON LINE 374 uname = "pvid." || unique_chars_ (volume_registration.pv (i).pvid); 006004 aa 772101 2360 04 ldq -3007,ic 000105 = 514000000044 006005 aa 6 00423 7561 00 stq pr6|275 006006 aa 6 00331 2361 00 ldq pr6|217 i 006007 aa 000036 4020 07 mpy 30,dl 006010 aa 7 00044 3521 06 epp2 pr7|36,ql volume_registration.pvid 006011 aa 6 00462 2521 00 spri2 pr6|306 006012 aa 6 00426 3521 00 epp2 pr6|278 006013 aa 6 00464 2521 00 spri2 pr6|308 006014 aa 6 00423 3521 00 epp2 pr6|275 006015 aa 6 00466 2521 00 spri2 pr6|310 006016 aa 772113 3520 04 epp2 -2997,ic 000131 = 526000000017 006017 aa 6 00470 2521 00 spri2 pr6|312 006020 aa 6 00460 6211 00 eax1 pr6|304 006021 aa 010000 4310 07 fld 4096,dl 006022 aa 6 00044 3701 20 epp4 pr6|36,* 006023 la 4 00102 3521 20 epp2 pr4|66,* unique_chars_ 006024 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc 006025 aa 000024 2360 07 ldq 20,dl 006026 aa 0 00551 7001 00 tsx0 pr0|361 alloc_cs 006027 aa 040 100 100 404 mlr (ic),(pr),fill(040) 006030 aa 772117 00 0005 desc9a -2993,5 000146 = 160166151144 006031 aa 2 00000 00 0005 desc9a pr2|0,5 006032 aa 040 100 100 500 mlr (pr),(pr),fill(040) 006033 aa 6 00426 00 0017 desc9a pr6|278,15 006034 aa 2 00001 20 0017 desc9a pr2|1(1),15 006035 aa 040 100 100 500 mlr (pr),(pr),fill(040) 006036 aa 2 00000 00 0024 desc9a pr2|0,20 006037 aa 6 00103 00 0040 desc9a pr6|67,32 uname STATEMENT 1 ON LINE 375 call initializer_mdc_$chname_hv (lvname, uname, "", ec); 006040 aa 0 01014 7001 00 tsx0 pr0|524 shorten_stack 006041 aa 6 00123 3521 00 epp2 pr6|83 lvname 006042 aa 6 00430 2521 00 spri2 pr6|280 006043 aa 6 00103 3521 00 epp2 pr6|67 uname 006044 aa 6 00432 2521 00 spri2 pr6|282 006045 aa 6 00423 3521 00 epp2 pr6|275 006046 aa 6 00434 2521 00 spri2 pr6|284 006047 aa 6 00360 3521 00 epp2 pr6|240 ec 006050 aa 6 00436 2521 00 spri2 pr6|286 006051 aa 772061 3520 04 epp2 -3023,ic 000132 = 526000000040 006052 aa 6 00440 2521 00 spri2 pr6|288 006053 aa 6 00442 2521 00 spri2 pr6|290 006054 aa 772054 3520 04 epp2 -3028,ic 000130 = 524000000000 006055 aa 6 00444 2521 00 spri2 pr6|292 006056 aa 772047 3520 04 epp2 -3033,ic 000125 = 404000000043 006057 aa 6 00446 2521 00 spri2 pr6|294 006060 aa 6 00426 6211 00 eax1 pr6|278 006061 aa 020000 4310 07 fld 8192,dl 006062 aa 6 00044 3701 20 epp4 pr6|36,* 006063 la 4 00054 3521 20 epp2 pr4|44,* initializer_mdc_$chname_hv 006064 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 376 do j = i+1 to volume_registration.npv; 006065 aa 6 00362 3735 20 epp7 pr6|242,* vrp 006066 aa 7 00101 2361 00 ldq pr7|65 volume_registration.npv 006067 aa 6 00367 7561 00 stq pr6|247 006070 aa 6 00331 2361 00 ldq pr6|217 i 006071 aa 000001 0760 07 adq 1,dl 006072 aa 6 00332 7561 00 stq pr6|218 j 006073 aa 000000 0110 03 nop 0,du 006074 aa 6 00332 2361 00 ldq pr6|218 j 006075 aa 6 00367 1161 00 cmpq pr6|247 006076 aa 000013 6054 04 tpnz 11,ic 006111 STATEMENT 1 ON LINE 377 volume_registration.pv (j-1) = volume_registration.pv (j); 006077 aa 000036 4020 07 mpy 30,dl 006100 aa 6 00362 3735 20 epp7 pr6|242,* vrp 006101 aa 7 00006 3735 06 epp7 pr7|6,ql volume_registration.pv 006102 aa 6 00362 3715 20 epp5 pr6|242,* vrp 006103 aa 5 00044 3715 06 epp5 pr5|36,ql volume_registration.pv 006104 aa 000 100 100 500 mlr (pr),(pr),fill(000) 006105 aa 5 00000 00 0170 desc9a pr5|0,120 volume_registration.pv 006106 aa 7 00000 00 0170 desc9a pr7|0,120 volume_registration.pv STATEMENT 1 ON LINE 378 end; 006107 aa 6 00332 0541 00 aos pr6|218 j 006110 aa 777764 7100 04 tra -12,ic 006074 STATEMENT 1 ON LINE 379 volume_registration.npv = volume_registration.npv - 1; 006111 aa 000001 3360 07 lcq 1,dl 006112 aa 6 00362 3735 20 epp7 pr6|242,* vrp 006113 aa 7 00101 0561 00 asq pr7|65 volume_registration.npv STATEMENT 1 ON LINE 380 end; STATEMENT 1 ON LINE 381 call initializer_mdc_$write_hv (lvname, vrp, ec); 006114 aa 6 00123 3521 00 epp2 pr6|83 lvname 006115 aa 6 00430 2521 00 spri2 pr6|280 006116 aa 6 00362 3521 00 epp2 pr6|242 vrp 006117 aa 6 00432 2521 00 spri2 pr6|282 006120 aa 6 00360 3521 00 epp2 pr6|240 ec 006121 aa 6 00434 2521 00 spri2 pr6|284 006122 aa 772010 3520 04 epp2 -3064,ic 000132 = 526000000040 006123 aa 6 00436 2521 00 spri2 pr6|286 006124 aa 772002 3520 04 epp2 -3070,ic 000126 = 464000000000 006125 aa 6 00440 2521 00 spri2 pr6|288 006126 aa 771777 3520 04 epp2 -3073,ic 000125 = 404000000043 006127 aa 6 00442 2521 00 spri2 pr6|290 006130 aa 6 00426 6211 00 eax1 pr6|278 006131 aa 014000 4310 07 fld 6144,dl 006132 aa 6 00044 3701 20 epp4 pr6|36,* 006133 la 4 00066 3521 20 epp2 pr4|54,* initializer_mdc_$write_hv 006134 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 382 if ec ^= 0 then call FAIL ("cannot modify: " || lvname); 006135 aa 6 00360 2361 00 ldq pr6|240 ec 006136 aa 000211 6000 04 tze 137,ic 006347 006137 aa 040 100 100 404 mlr (ic),(pr),fill(040) 006140 aa 772205 00 0017 desc9a -2939,15 000344 = 143141156156 006141 aa 6 00426 00 0017 desc9a pr6|278,15 006142 aa 040 100 100 500 mlr (pr),(pr),fill(040) 006143 aa 6 00123 00 0040 desc9a pr6|83,32 lvname 006144 aa 6 00431 60 0040 desc9a pr6|281(3),32 006145 aa 001673 3520 04 epp2 955,ic 010040 = 000002000000 006146 aa 2 00000 2351 00 lda pr2|0 006147 aa 001465 6700 04 tsp4 821,ic 007634 STATEMENT 1 ON LINE 384 end; 006150 aa 000177 7100 04 tra 127,ic 006347 STATEMENT 1 ON LINE 385 else if tcs = "lv" then do; 006151 aa 040 004 106 500 cmpc (pr),(ic),fill(040) 006152 aa 6 00133 00 0040 desc9a pr6|91,32 tcs 006153 aa 002177 00 0002 desc9a 1151,2 010350 = 154166000000 006154 aa 000162 6010 04 tnz 114,ic 006336 STATEMENT 1 ON LINE 386 call getarg (lvname); 006155 aa 001611 3520 04 epp2 905,ic 007766 = 000002000000 006156 aa 2 00000 2351 00 lda pr2|0 006157 aa 001356 6700 04 tsp4 750,ic 007535 STATEMENT 1 ON LINE 387 call initializer_mdc_$read_hv (lvname, vrp, ec); 006160 aa 6 00123 3521 00 epp2 pr6|83 lvname 006161 aa 6 00430 2521 00 spri2 pr6|280 006162 aa 6 00362 3521 00 epp2 pr6|242 vrp 006163 aa 6 00432 2521 00 spri2 pr6|282 006164 aa 6 00360 3521 00 epp2 pr6|240 ec 006165 aa 6 00434 2521 00 spri2 pr6|284 006166 aa 771744 3520 04 epp2 -3100,ic 000132 = 526000000040 006167 aa 6 00436 2521 00 spri2 pr6|286 006170 aa 771736 3520 04 epp2 -3106,ic 000126 = 464000000000 006171 aa 6 00440 2521 00 spri2 pr6|288 006172 aa 771733 3520 04 epp2 -3109,ic 000125 = 404000000043 006173 aa 6 00442 2521 00 spri2 pr6|290 006174 aa 6 00426 6211 00 eax1 pr6|278 006175 aa 014000 4310 07 fld 6144,dl 006176 aa 6 00044 3701 20 epp4 pr6|36,* 006177 la 4 00062 3521 20 epp2 pr4|50,* initializer_mdc_$read_hv 006200 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 388 if ec ^= 0 then call FAIL ("lv not registered: " || lvname); 006201 aa 6 00360 2361 00 ldq pr6|240 ec 006202 aa 000012 6000 04 tze 10,ic 006214 006203 aa 040 100 100 404 mlr (ic),(pr),fill(040) 006204 aa 772237 00 0023 desc9a -2913,19 000442 = 154166040156 006205 aa 6 00426 00 0023 desc9a pr6|278,19 006206 aa 040 100 100 500 mlr (pr),(pr),fill(040) 006207 aa 6 00123 00 0040 desc9a pr6|83,32 lvname 006210 aa 6 00432 60 0040 desc9a pr6|282(3),32 006211 aa 001571 3520 04 epp2 889,ic 010002 = 000002000000 006212 aa 2 00000 2351 00 lda pr2|0 006213 aa 001421 6700 04 tsp4 785,ic 007634 STATEMENT 1 ON LINE 389 call mdc_priv_$delete_mdcs (lvname, ec); 006214 aa 6 00123 3521 00 epp2 pr6|83 lvname 006215 aa 6 00430 2521 00 spri2 pr6|280 006216 aa 6 00360 3521 00 epp2 pr6|240 ec 006217 aa 6 00432 2521 00 spri2 pr6|282 006220 aa 771712 3520 04 epp2 -3126,ic 000132 = 526000000040 006221 aa 6 00434 2521 00 spri2 pr6|284 006222 aa 771703 3520 04 epp2 -3133,ic 000125 = 404000000043 006223 aa 6 00436 2521 00 spri2 pr6|286 006224 aa 6 00426 6211 00 eax1 pr6|278 006225 aa 010000 4310 07 fld 4096,dl 006226 aa 6 00044 3701 20 epp4 pr6|36,* 006227 la 4 00076 3521 20 epp2 pr4|62,* mdc_priv_$delete_mdcs 006230 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 390 if ec ^= 0 then call FAIL ("mdcs delete err: " || lvname); 006231 aa 6 00360 2361 00 ldq pr6|240 ec 006232 aa 000012 6000 04 tze 10,ic 006244 006233 aa 040 100 100 404 mlr (ic),(pr),fill(040) 006234 aa 772156 00 0021 desc9a -2962,17 000411 = 155144143163 006235 aa 6 00426 00 0021 desc9a pr6|278,17 006236 aa 040 100 100 500 mlr (pr),(pr),fill(040) 006237 aa 6 00123 00 0040 desc9a pr6|83,32 lvname 006240 aa 6 00432 20 0040 desc9a pr6|282(1),32 006241 aa 001475 3520 04 epp2 829,ic 007736 = 000002000000 006242 aa 2 00000 2351 00 lda pr2|0 006243 aa 001371 6700 04 tsp4 761,ic 007634 STATEMENT 1 ON LINE 391 do i = 1 to volume_registration.npv; 006244 aa 6 00362 3735 20 epp7 pr6|242,* vrp 006245 aa 7 00101 2361 00 ldq pr7|65 volume_registration.npv 006246 aa 6 00370 7561 00 stq pr6|248 006247 aa 000001 2360 07 ldq 1,dl 006250 aa 6 00331 7561 00 stq pr6|217 i 006251 aa 000000 0110 03 nop 0,du 006252 aa 6 00331 2361 00 ldq pr6|217 i 006253 aa 6 00370 1161 00 cmpq pr6|248 006254 aa 000031 6054 04 tpnz 25,ic 006305 STATEMENT 1 ON LINE 392 call ioa_ ("Releasing pv ^a", volume_registration.pv (i).pvname); 006255 aa 771576 2360 04 ldq -3202,ic 000053 = 524000000040 006256 aa 6 00423 7561 00 stq pr6|275 006257 aa 772031 2370 04 ldaq -3047,ic 000310 = 122145154145 141163151156 006260 aa 6 00426 7571 00 staq pr6|278 006261 aa 772031 2370 04 ldaq -3047,ic 000312 = 147040160166 040136141000 006262 aa 6 00430 7571 00 staq pr6|280 006263 aa 6 00331 2361 00 ldq pr6|217 i 006264 aa 000036 4020 07 mpy 30,dl 006265 aa 6 00426 3521 00 epp2 pr6|278 006266 aa 6 00462 2521 00 spri2 pr6|306 006267 aa 6 00362 3735 20 epp7 pr6|242,* vrp 006270 aa 7 00046 3521 06 epp2 pr7|38,ql volume_registration.pvname 006271 aa 6 00464 2521 00 spri2 pr6|308 006272 aa 771570 3520 04 epp2 -3208,ic 000062 = 524000000017 006273 aa 6 00466 2521 00 spri2 pr6|310 006274 aa 6 00423 3521 00 epp2 pr6|275 006275 aa 6 00470 2521 00 spri2 pr6|312 006276 aa 6 00460 6211 00 eax1 pr6|304 006277 aa 010000 4310 07 fld 4096,dl 006300 aa 6 00044 3701 20 epp4 pr6|36,* 006301 la 4 00070 3521 20 epp2 pr4|56,* ioa_ 006302 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 393 end; 006303 aa 6 00331 0541 00 aos pr6|217 i 006304 aa 777746 7100 04 tra -26,ic 006252 STATEMENT 1 ON LINE 394 call initializer_mdc_$delete_hv (lvname, ec); 006305 aa 6 00123 3521 00 epp2 pr6|83 lvname 006306 aa 6 00430 2521 00 spri2 pr6|280 006307 aa 6 00360 3521 00 epp2 pr6|240 ec 006310 aa 6 00432 2521 00 spri2 pr6|282 006311 aa 771621 3520 04 epp2 -3183,ic 000132 = 526000000040 006312 aa 6 00434 2521 00 spri2 pr6|284 006313 aa 771612 3520 04 epp2 -3190,ic 000125 = 404000000043 006314 aa 6 00436 2521 00 spri2 pr6|286 006315 aa 6 00426 6211 00 eax1 pr6|278 006316 aa 010000 4310 07 fld 4096,dl 006317 aa 6 00044 3701 20 epp4 pr6|36,* 006320 la 4 00056 3521 20 epp2 pr4|46,* initializer_mdc_$delete_hv 006321 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 395 if ec ^= 0 then call FAIL ("cannot modify: " || lvname); 006322 aa 6 00360 2361 00 ldq pr6|240 ec 006323 aa 000024 6000 04 tze 20,ic 006347 006324 aa 040 100 100 404 mlr (ic),(pr),fill(040) 006325 aa 772020 00 0017 desc9a -3056,15 000344 = 143141156156 006326 aa 6 00426 00 0017 desc9a pr6|278,15 006327 aa 040 100 100 500 mlr (pr),(pr),fill(040) 006330 aa 6 00123 00 0040 desc9a pr6|83,32 lvname 006331 aa 6 00431 60 0040 desc9a pr6|281(3),32 006332 aa 001506 3520 04 epp2 838,ic 010040 = 000002000000 006333 aa 2 00000 2351 00 lda pr2|0 006334 aa 001300 6700 04 tsp4 704,ic 007634 STATEMENT 1 ON LINE 396 end; 006335 aa 000012 7100 04 tra 10,ic 006347 STATEMENT 1 ON LINE 397 else call FAIL ("arg neither pv nor lv: " || tcs); 006336 aa 040 100 100 404 mlr (ic),(pr),fill(040) 006337 aa 772164 00 0027 desc9a -2956,23 000522 = 141162147040 006340 aa 6 00426 00 0027 desc9a pr6|278,23 006341 aa 040 100 100 500 mlr (pr),(pr),fill(040) 006342 aa 6 00133 00 0040 desc9a pr6|91,32 tcs 006343 aa 6 00433 60 0040 desc9a pr6|283(3),32 006344 aa 001502 3520 04 epp2 834,ic 010046 = 000002000000 006345 aa 2 00000 2351 00 lda pr2|0 006346 aa 001266 6700 04 tsp4 694,ic 007634 STATEMENT 1 ON LINE 398 return; 006347 aa 0 00631 7101 00 tra pr0|409 return ENTRY TO list_volume_registration STATEMENT 1 ON LINE 400 list_volume_registration: entry; 006350 da 000374200000 006351 aa 000760 6270 00 eax7 496 006352 aa 7 00034 3521 20 epp2 pr7|28,* 006353 aa 2 01045 2721 00 tsp2 pr2|549 ext_entry 006354 aa 000000000000 006355 aa 000000000000 006356 aa 772350 7000 04 tsx0 -2840,ic 000726 STATEMENT 1 ON LINE 402 comname = "list_vol_registration"; 006357 aa 040 100 100 404 mlr (ic),(pr),fill(040) 006360 aa 772135 00 0025 desc9a -2979,21 000514 = 154151163164 006361 aa 6 00215 00 0040 desc9a pr6|141,32 comname STATEMENT 1 ON LINE 403 if svrp = null then call hcs_$make_seg ("", "", "", 1011b, svrp, ec); 006362 aa 6 00044 3701 20 epp4 pr6|36,* 006363 ia 4 00010 2371 00 ldaq pr4|8 svrp 006364 aa 771602 6770 04 eraq -3198,ic 000166 = 077777000043 000001000000 006365 aa 0 00460 3771 00 anaq pr0|304 = 077777000077 777777077077 006366 aa 000035 6010 04 tnz 29,ic 006423 006367 aa 000013 2360 07 ldq 11,dl 006370 aa 6 00421 7561 00 stq pr6|273 006371 aa 6 00423 3521 00 epp2 pr6|275 006372 aa 6 00430 2521 00 spri2 pr6|280 006373 aa 6 00424 3521 00 epp2 pr6|276 006374 aa 6 00432 2521 00 spri2 pr6|282 006375 aa 6 00623 3521 00 epp2 pr6|403 006376 aa 6 00434 2521 00 spri2 pr6|284 006377 aa 6 00421 3521 00 epp2 pr6|273 006400 aa 6 00436 2521 00 spri2 pr6|286 006401 ia 4 00010 3521 00 epp2 pr4|8 svrp 006402 aa 6 00440 2521 00 spri2 pr6|288 006403 aa 6 00360 3521 00 epp2 pr6|240 ec 006404 aa 6 00442 2521 00 spri2 pr6|290 006405 aa 771523 3520 04 epp2 -3245,ic 000130 = 524000000000 006406 aa 6 00444 2521 00 spri2 pr6|292 006407 aa 6 00446 2521 00 spri2 pr6|294 006410 aa 6 00450 2521 00 spri2 pr6|296 006411 aa 771516 3520 04 epp2 -3250,ic 000127 = 404000000005 006412 aa 6 00452 2521 00 spri2 pr6|298 006413 aa 771513 3520 04 epp2 -3253,ic 000126 = 464000000000 006414 aa 6 00454 2521 00 spri2 pr6|300 006415 aa 771510 3520 04 epp2 -3256,ic 000125 = 404000000043 006416 aa 6 00456 2521 00 spri2 pr6|302 006417 aa 6 00426 6211 00 eax1 pr6|278 006420 aa 030000 4310 07 fld 12288,dl 006421 la 4 00050 3521 20 epp2 pr4|40,* hcs_$make_seg 006422 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 404 vrp = svrp; 006423 aa 6 00044 3701 20 epp4 pr6|36,* 006424 ia 4 00010 3735 20 epp7 pr4|8,* svrp 006425 aa 6 00362 6535 00 spri7 pr6|242 vrp STATEMENT 1 ON LINE 405 ec = 0; 006426 aa 6 00360 4501 00 stz pr6|240 ec STATEMENT 1 ON LINE 406 call getarg (tcs); 006427 aa 001713 3520 04 epp2 971,ic 010342 = 000002000000 006430 aa 2 00000 2351 00 lda pr2|0 006431 aa 001104 6700 04 tsp4 580,ic 007535 STATEMENT 1 ON LINE 407 if tcs = "pv" then do; 006432 aa 040 004 106 500 cmpc (pr),(ic),fill(040) 006433 aa 6 00133 00 0040 desc9a pr6|91,32 tcs 006434 aa 001720 00 0002 desc9a 976,2 010352 = 160166000000 006435 aa 000300 6010 04 tnz 192,ic 006735 STATEMENT 1 ON LINE 408 call getarg (pvname); 006436 aa 001670 3520 04 epp2 952,ic 010326 = 000002000000 006437 aa 2 00000 2351 00 lda pr2|0 006440 aa 001075 6700 04 tsp4 573,ic 007535 STATEMENT 1 ON LINE 409 call initializer_mdc_$read_pv (pvname, vrp, ec); 006441 aa 6 00113 3521 00 epp2 pr6|75 pvname 006442 aa 6 00430 2521 00 spri2 pr6|280 006443 aa 6 00362 3521 00 epp2 pr6|242 vrp 006444 aa 6 00432 2521 00 spri2 pr6|282 006445 aa 6 00360 3521 00 epp2 pr6|240 ec 006446 aa 6 00434 2521 00 spri2 pr6|284 006447 aa 771463 3520 04 epp2 -3277,ic 000132 = 526000000040 006450 aa 6 00436 2521 00 spri2 pr6|286 006451 aa 771455 3520 04 epp2 -3283,ic 000126 = 464000000000 006452 aa 6 00440 2521 00 spri2 pr6|288 006453 aa 771452 3520 04 epp2 -3286,ic 000125 = 404000000043 006454 aa 6 00442 2521 00 spri2 pr6|290 006455 aa 6 00426 6211 00 eax1 pr6|278 006456 aa 014000 4310 07 fld 6144,dl 006457 aa 6 00044 3701 20 epp4 pr6|36,* 006460 la 4 00064 3521 20 epp2 pr4|52,* initializer_mdc_$read_pv 006461 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 410 if ec ^= 0 then call FAIL ("pv not found: " || pvname); 006462 aa 6 00360 2361 00 ldq pr6|240 ec 006463 aa 000012 6000 04 tze 10,ic 006475 006464 aa 040 100 100 404 mlr (ic),(pr),fill(040) 006465 aa 771654 00 0016 desc9a -3156,14 000340 = 160166040156 006466 aa 6 00426 00 0016 desc9a pr6|278,14 006467 aa 040 100 100 500 mlr (pr),(pr),fill(040) 006470 aa 6 00113 00 0040 desc9a pr6|75,32 pvname 006471 aa 6 00431 40 0040 desc9a pr6|281(2),32 006472 aa 001316 3520 04 epp2 718,ic 010010 = 000002000000 006473 aa 2 00000 2351 00 lda pr2|0 006474 aa 001140 6700 04 tsp4 608,ic 007634 STATEMENT 1 ON LINE 411 lvname = volume_registration.hvname; 006475 aa 6 00362 3735 20 epp7 pr6|242,* vrp 006476 aa 000 100 100 500 mlr (pr),(pr),fill(000) 006477 aa 7 00002 00 0040 desc9a pr7|2,32 volume_registration.hvname 006500 aa 6 00123 00 0040 desc9a pr6|83,32 lvname STATEMENT 1 ON LINE 412 do i = 1 to volume_registration.npv while (volume_registration.pv (i).pvname ^= pvname); 006501 aa 7 00101 2361 00 ldq pr7|65 volume_registration.npv 006502 aa 6 00371 7561 00 stq pr6|249 006503 aa 000001 2360 07 ldq 1,dl 006504 aa 6 00331 7561 00 stq pr6|217 i 006505 aa 000000 0110 03 nop 0,du 006506 aa 6 00331 2361 00 ldq pr6|217 i 006507 aa 6 00371 1161 00 cmpq pr6|249 006510 aa 000012 6054 04 tpnz 10,ic 006522 006511 aa 000036 4020 07 mpy 30,dl 006512 aa 6 00362 3735 20 epp7 pr6|242,* vrp 006513 aa 7 00046 3735 06 epp7 pr7|38,ql volume_registration.pvname 006514 aa 040 100 106 500 cmpc (pr),(pr),fill(040) 006515 aa 7 00000 00 0040 desc9a pr7|0,32 volume_registration.pvname 006516 aa 6 00113 00 0040 desc9a pr6|75,32 pvname 006517 aa 000003 6000 04 tze 3,ic 006522 STATEMENT 2 ON LINE 412 end; 006520 aa 6 00331 0541 00 aos pr6|217 i 006521 aa 777765 7100 04 tra -11,ic 006506 STATEMENT 1 ON LINE 413 if i <= volume_registration.npv then do; 006522 aa 6 00331 2361 00 ldq pr6|217 i 006523 aa 6 00362 3735 20 epp7 pr6|242,* vrp 006524 aa 7 00101 1161 00 cmpq pr7|65 volume_registration.npv 006525 aa 000176 6054 04 tpnz 126,ic 006723 STATEMENT 1 ON LINE 414 call ioa_ ("^/pvname:^-^a", volume_registration.pv (i).pvname); 006526 aa 771325 2360 04 ldq -3371,ic 000053 = 524000000040 006527 aa 6 00421 7561 00 stq pr6|273 006530 aa 771554 2370 04 ldaq -3220,ic 000304 = 136057160166 156141155145 006531 aa 6 00426 7571 00 staq pr6|278 006532 aa 771554 2370 04 ldaq -3220,ic 000306 = 072136055136 141000000000 006533 aa 6 00430 7571 00 staq pr6|280 006534 aa 6 00331 2361 00 ldq pr6|217 i 006535 aa 000036 4020 07 mpy 30,dl 006536 aa 6 00426 3521 00 epp2 pr6|278 006537 aa 6 00462 2521 00 spri2 pr6|306 006540 aa 7 00046 3521 06 epp2 pr7|38,ql volume_registration.pvname 006541 aa 6 00464 2521 00 spri2 pr6|308 006542 aa 771310 3520 04 epp2 -3384,ic 000052 = 524000000015 006543 aa 6 00466 2521 00 spri2 pr6|310 006544 aa 6 00421 3521 00 epp2 pr6|273 006545 aa 6 00470 2521 00 spri2 pr6|312 006546 aa 6 00623 7561 00 stq pr6|403 006547 aa 6 00460 6211 00 eax1 pr6|304 006550 aa 010000 4310 07 fld 4096,dl 006551 aa 6 00044 3701 20 epp4 pr6|36,* 006552 la 4 00070 3521 20 epp2 pr4|56,* ioa_ 006553 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 415 call ioa_ ("pvid:^-^-^w", volume_registration.pv (i).pvid); 006554 aa 771331 2360 04 ldq -3367,ic 000105 = 514000000044 006555 aa 6 00421 7561 00 stq pr6|273 006556 aa 771431 2350 04 lda -3303,ic 000207 = 160166151144 006557 aa 771431 2360 04 ldq -3303,ic 000210 = 072136055136 006560 aa 6 00426 7571 00 staq pr6|278 006561 aa 771430 2350 04 lda -3304,ic 000211 = 055136167000 006562 aa 6 00430 7551 00 sta pr6|280 006563 aa 6 00426 3521 00 epp2 pr6|278 006564 aa 6 00462 2521 00 spri2 pr6|306 006565 aa 6 00623 7271 00 lxl7 pr6|403 006566 aa 6 00362 3735 20 epp7 pr6|242,* vrp 006567 aa 7 00044 3521 17 epp2 pr7|36,7 volume_registration.pvid 006570 aa 6 00464 2521 00 spri2 pr6|308 006571 aa 771277 3520 04 epp2 -3393,ic 000070 = 524000000013 006572 aa 6 00466 2521 00 spri2 pr6|310 006573 aa 6 00421 3521 00 epp2 pr6|273 006574 aa 6 00470 2521 00 spri2 pr6|312 006575 aa 6 00460 6211 00 eax1 pr6|304 006576 aa 010000 4310 07 fld 4096,dl 006577 aa 6 00044 3701 20 epp4 pr6|36,* 006600 la 4 00070 3521 20 epp2 pr4|56,* ioa_ 006601 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 416 call ioa_ ("serial:^-^-^a", volume_registration.pv (i).mfg_serial); 006602 aa 771251 2360 04 ldq -3415,ic 000053 = 524000000040 006603 aa 6 00421 7561 00 stq pr6|273 006604 aa 771474 2370 04 ldaq -3268,ic 000300 = 163145162151 141154072136 006605 aa 6 00426 7571 00 staq pr6|278 006606 aa 771474 2370 04 ldaq -3268,ic 000302 = 055136055136 141000000000 006607 aa 6 00430 7571 00 staq pr6|280 006610 aa 6 00426 3521 00 epp2 pr6|278 006611 aa 6 00462 2521 00 spri2 pr6|306 006612 aa 6 00623 7271 00 lxl7 pr6|403 006613 aa 6 00362 3735 20 epp7 pr6|242,* vrp 006614 aa 7 00066 3521 17 epp2 pr7|54,7 volume_registration.mfg_serial 006615 aa 6 00464 2521 00 spri2 pr6|308 006616 aa 771234 3520 04 epp2 -3428,ic 000052 = 524000000015 006617 aa 6 00466 2521 00 spri2 pr6|310 006620 aa 6 00421 3521 00 epp2 pr6|273 006621 aa 6 00470 2521 00 spri2 pr6|312 006622 aa 6 00460 6211 00 eax1 pr6|304 006623 aa 010000 4310 07 fld 4096,dl 006624 aa 6 00044 3701 20 epp4 pr6|36,* 006625 la 4 00070 3521 20 epp2 pr4|56,* ioa_ 006626 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 417 call ioa_ ("model:^-^-^d", MODELN (volume_registration.pv (i).model)); 006627 aa 771355 2370 04 ldaq -3347,ic 000204 = 155157144145 154072136055 006630 aa 6 00426 7571 00 staq pr6|278 006631 aa 771355 2350 04 lda -3347,ic 000206 = 136055136144 006632 aa 6 00430 7551 00 sta pr6|280 006633 aa 6 00426 3521 00 epp2 pr6|278 006634 aa 6 00462 2521 00 spri2 pr6|306 006635 aa 6 00623 7271 00 lxl7 pr6|403 006636 aa 6 00362 3735 20 epp7 pr6|242,* vrp 006637 aa 7 00045 7261 17 lxl6 pr7|37,7 volume_registration.model 006640 ta 777777 3520 16 epp2 -1,6 006641 aa 6 00464 2521 00 spri2 pr6|308 006642 aa 771224 3520 04 epp2 -3436,ic 000066 = 524000000014 006643 aa 6 00466 2521 00 spri2 pr6|310 006644 aa 771270 3520 04 epp2 -3400,ic 000134 = 404000000021 006645 aa 6 00470 2521 00 spri2 pr6|312 006646 aa 6 00460 6211 00 eax1 pr6|304 006647 aa 010000 4310 07 fld 4096,dl 006650 aa 6 00044 3701 20 epp4 pr6|36,* 006651 la 4 00070 3521 20 epp2 pr4|56,* ioa_ 006652 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 418 call ioa_ ("location:^-^-^a", volume_registration.pv (i).location); 006653 aa 771200 2360 04 ldq -3456,ic 000053 = 524000000040 006654 aa 6 00421 7561 00 stq pr6|273 006655 aa 771417 2370 04 ldaq -3313,ic 000274 = 154157143141 164151157156 006656 aa 6 00426 7571 00 staq pr6|278 006657 aa 771417 2370 04 ldaq -3313,ic 000276 = 072136055136 055136141000 006660 aa 6 00430 7571 00 staq pr6|280 006661 aa 6 00426 3521 00 epp2 pr6|278 006662 aa 6 00462 2521 00 spri2 pr6|306 006663 aa 6 00623 7271 00 lxl7 pr6|403 006664 aa 6 00362 3735 20 epp7 pr6|242,* vrp 006665 aa 7 00056 3521 17 epp2 pr7|46,7 volume_registration.location 006666 aa 6 00464 2521 00 spri2 pr6|308 006667 aa 771173 3520 04 epp2 -3461,ic 000062 = 524000000017 006670 aa 6 00466 2521 00 spri2 pr6|310 006671 aa 6 00421 3521 00 epp2 pr6|273 006672 aa 6 00470 2521 00 spri2 pr6|312 006673 aa 6 00460 6211 00 eax1 pr6|304 006674 aa 010000 4310 07 fld 4096,dl 006675 aa 6 00044 3701 20 epp4 pr6|36,* 006676 la 4 00070 3521 20 epp2 pr4|56,* ioa_ 006677 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 419 call ioa_ ("lvname:^-^-^a", volume_registration.hvname); 006700 aa 771370 2370 04 ldaq -3336,ic 000270 = 154166156141 155145072136 006701 aa 6 00426 7571 00 staq pr6|278 006702 aa 771370 2370 04 ldaq -3336,ic 000272 = 055136055136 141000000000 006703 aa 6 00430 7571 00 staq pr6|280 006704 aa 6 00426 3521 00 epp2 pr6|278 006705 aa 6 00462 2521 00 spri2 pr6|306 006706 aa 6 00362 3735 20 epp7 pr6|242,* vrp 006707 aa 7 00002 3521 00 epp2 pr7|2 volume_registration.hvname 006710 aa 6 00464 2521 00 spri2 pr6|308 006711 aa 771141 3520 04 epp2 -3487,ic 000052 = 524000000015 006712 aa 6 00466 2521 00 spri2 pr6|310 006713 aa 771140 3520 04 epp2 -3488,ic 000053 = 524000000040 006714 aa 6 00470 2521 00 spri2 pr6|312 006715 aa 6 00460 6211 00 eax1 pr6|304 006716 aa 010000 4310 07 fld 4096,dl 006717 aa 6 00044 3701 20 epp4 pr6|36,* 006720 la 4 00070 3521 20 epp2 pr4|56,* ioa_ 006721 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 420 end; 006722 aa 000600 7100 04 tra 384,ic 007522 STATEMENT 1 ON LINE 421 else call FAIL ("pv not in lv file: " || pvname); 006723 aa 040 100 100 404 mlr (ic),(pr),fill(040) 006724 aa 771531 00 0023 desc9a -3239,19 000454 = 160166040156 006725 aa 6 00426 00 0023 desc9a pr6|278,19 006726 aa 040 100 100 500 mlr (pr),(pr),fill(040) 006727 aa 6 00113 00 0040 desc9a pr6|75,32 pvname 006730 aa 6 00432 60 0040 desc9a pr6|282(3),32 006731 aa 001051 3520 04 epp2 553,ic 010002 = 000002000000 006732 aa 2 00000 2351 00 lda pr2|0 006733 aa 000701 6700 04 tsp4 449,ic 007634 STATEMENT 1 ON LINE 422 end; 006734 aa 000566 7100 04 tra 374,ic 007522 STATEMENT 1 ON LINE 423 else if tcs = "lv" then do; 006735 aa 040 004 106 500 cmpc (pr),(ic),fill(040) 006736 aa 6 00133 00 0040 desc9a pr6|91,32 tcs 006737 aa 001413 00 0002 desc9a 779,2 010350 = 154166000000 006740 aa 000551 6010 04 tnz 361,ic 007511 STATEMENT 1 ON LINE 424 call getarg (lvname); 006741 aa 001025 3520 04 epp2 533,ic 007766 = 000002000000 006742 aa 2 00000 2351 00 lda pr2|0 006743 aa 000572 6700 04 tsp4 378,ic 007535 STATEMENT 1 ON LINE 425 call initializer_mdc_$read_hv (lvname, vrp, ec); 006744 aa 6 00123 3521 00 epp2 pr6|83 lvname 006745 aa 6 00430 2521 00 spri2 pr6|280 006746 aa 6 00362 3521 00 epp2 pr6|242 vrp 006747 aa 6 00432 2521 00 spri2 pr6|282 006750 aa 6 00360 3521 00 epp2 pr6|240 ec 006751 aa 6 00434 2521 00 spri2 pr6|284 006752 aa 771160 3520 04 epp2 -3472,ic 000132 = 526000000040 006753 aa 6 00436 2521 00 spri2 pr6|286 006754 aa 771152 3520 04 epp2 -3478,ic 000126 = 464000000000 006755 aa 6 00440 2521 00 spri2 pr6|288 006756 aa 771147 3520 04 epp2 -3481,ic 000125 = 404000000043 006757 aa 6 00442 2521 00 spri2 pr6|290 006760 aa 6 00426 6211 00 eax1 pr6|278 006761 aa 014000 4310 07 fld 6144,dl 006762 aa 6 00044 3701 20 epp4 pr6|36,* 006763 la 4 00062 3521 20 epp2 pr4|50,* initializer_mdc_$read_hv 006764 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 426 if ec ^= 0 then call FAIL ("lv not registered: " || lvname); 006765 aa 6 00360 2361 00 ldq pr6|240 ec 006766 aa 000012 6000 04 tze 10,ic 007000 006767 aa 040 100 100 404 mlr (ic),(pr),fill(040) 006770 aa 771453 00 0023 desc9a -3285,19 000442 = 154166040156 006771 aa 6 00426 00 0023 desc9a pr6|278,19 006772 aa 040 100 100 500 mlr (pr),(pr),fill(040) 006773 aa 6 00123 00 0040 desc9a pr6|83,32 lvname 006774 aa 6 00432 60 0040 desc9a pr6|282(3),32 006775 aa 001005 3520 04 epp2 517,ic 010002 = 000002000000 006776 aa 2 00000 2351 00 lda pr2|0 006777 aa 000635 6700 04 tsp4 413,ic 007634 STATEMENT 1 ON LINE 427 call getarg (tcs); 007000 aa 001342 3520 04 epp2 738,ic 010342 = 000002000000 007001 aa 2 00000 2351 00 lda pr2|0 007002 aa 000533 6700 04 tsp4 347,ic 007535 STATEMENT 1 ON LINE 428 if tcs ^= "-bf" & tcs ^= "-brief" then do; 007003 aa 040 004 106 500 cmpc (pr),(ic),fill(040) 007004 aa 6 00133 00 0040 desc9a pr6|91,32 tcs 007005 aa 771046 00 0003 desc9a -3546,3 000051 = 055142146000 007006 aa 000260 6000 04 tze 176,ic 007266 007007 aa 040 004 106 500 cmpc (pr),(ic),fill(040) 007010 aa 6 00133 00 0040 desc9a pr6|91,32 tcs 007011 aa 771131 00 0006 desc9a -3495,6 000140 = 055142162151 007012 aa 000254 6000 04 tze 172,ic 007266 STATEMENT 1 ON LINE 429 call ioa_ ("^/lvname:^-^a", lvname); 007013 aa 771251 2370 04 ldaq -3415,ic 000264 = 136057154166 156141155145 007014 aa 6 00426 7571 00 staq pr6|278 007015 aa 771251 2370 04 ldaq -3415,ic 000266 = 072136055136 141000000000 007016 aa 6 00430 7571 00 staq pr6|280 007017 aa 6 00426 3521 00 epp2 pr6|278 007020 aa 6 00462 2521 00 spri2 pr6|306 007021 aa 6 00123 3521 00 epp2 pr6|83 lvname 007022 aa 6 00464 2521 00 spri2 pr6|308 007023 aa 771027 3520 04 epp2 -3561,ic 000052 = 524000000015 007024 aa 6 00466 2521 00 spri2 pr6|310 007025 aa 771105 3520 04 epp2 -3515,ic 000132 = 526000000040 007026 aa 6 00470 2521 00 spri2 pr6|312 007027 aa 6 00460 6211 00 eax1 pr6|304 007030 aa 010000 4310 07 fld 4096,dl 007031 aa 6 00044 3701 20 epp4 pr6|36,* 007032 la 4 00070 3521 20 epp2 pr4|56,* ioa_ 007033 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 430 call ioa_ ("lvid:^-^-^w", volume_registration.hvid); 007034 aa 771145 2350 04 lda -3483,ic 000201 = 154166151144 007035 aa 771145 2360 04 ldq -3483,ic 000202 = 072136055136 007036 aa 6 00426 7571 00 staq pr6|278 007037 aa 771144 2350 04 lda -3484,ic 000203 = 055136167000 007040 aa 6 00430 7551 00 sta pr6|280 007041 aa 6 00426 3521 00 epp2 pr6|278 007042 aa 6 00462 2521 00 spri2 pr6|306 007043 aa 6 00362 3735 20 epp7 pr6|242,* vrp 007044 aa 7 00001 3521 00 epp2 pr7|1 volume_registration.hvid 007045 aa 6 00464 2521 00 spri2 pr6|308 007046 aa 771022 3520 04 epp2 -3566,ic 000070 = 524000000013 007047 aa 6 00466 2521 00 spri2 pr6|310 007050 aa 771035 3520 04 epp2 -3555,ic 000105 = 514000000044 007051 aa 6 00470 2521 00 spri2 pr6|312 007052 aa 6 00460 6211 00 eax1 pr6|304 007053 aa 010000 4310 07 fld 4096,dl 007054 aa 6 00044 3701 20 epp4 pr6|36,* 007055 la 4 00070 3521 20 epp2 pr4|56,* ioa_ 007056 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 431 call ioa_ ("owner:^-^-^a", volume_registration.volume_owner); 007057 aa 771117 2370 04 ldaq -3505,ic 000176 = 157167156145 162072136055 007060 aa 6 00426 7571 00 staq pr6|278 007061 aa 771117 2350 04 lda -3505,ic 000200 = 136055136141 007062 aa 6 00430 7551 00 sta pr6|280 007063 aa 6 00426 3521 00 epp2 pr6|278 007064 aa 6 00462 2521 00 spri2 pr6|306 007065 aa 6 00362 3735 20 epp7 pr6|242,* vrp 007066 aa 7 00016 3521 00 epp2 pr7|14 volume_registration.volume_owner 007067 aa 6 00464 2521 00 spri2 pr6|308 007070 aa 770776 3520 04 epp2 -3586,ic 000066 = 524000000014 007071 aa 6 00466 2521 00 spri2 pr6|310 007072 aa 770761 3520 04 epp2 -3599,ic 000053 = 524000000040 007073 aa 6 00470 2521 00 spri2 pr6|312 007074 aa 6 00460 6211 00 eax1 pr6|304 007075 aa 010000 4310 07 fld 4096,dl 007076 aa 6 00044 3701 20 epp4 pr6|36,* 007077 la 4 00070 3521 20 epp2 pr4|56,* ioa_ 007100 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 432 call ioa_ ("public:^-^-^a", YESNO (fixed (volume_registration.public, 1))); 007101 aa 771157 2370 04 ldaq -3473,ic 000260 = 160165142154 151143072136 007102 aa 6 00426 7571 00 staq pr6|278 007103 aa 771157 2370 04 ldaq -3473,ic 000262 = 055136055136 141000000000 007104 aa 6 00430 7571 00 staq pr6|280 007105 aa 6 00362 3735 20 epp7 pr6|242,* vrp 007106 aa 7 00100 2351 00 lda pr7|64 volume_registration.public 007107 aa 000107 7730 00 lrl 71 007110 aa 000003 4020 07 mpy 3,dl 007111 aa 6 00426 3521 00 epp2 pr6|278 007112 aa 6 00462 2521 00 spri2 pr6|306 007113 aa 6 00044 3701 20 epp4 pr6|36,* 007114 ia 4 00012 3521 00 epp2 pr4|10 YESNO 007115 aa 2 00000 5005 06 a9bd pr2|0,ql 007116 aa 6 00464 2521 00 spri2 pr6|308 007117 aa 770733 3520 04 epp2 -3621,ic 000052 = 524000000015 007120 aa 6 00466 2521 00 spri2 pr6|310 007121 aa 770727 3520 04 epp2 -3625,ic 000050 = 526000000003 007122 aa 6 00470 2521 00 spri2 pr6|312 007123 aa 6 00460 6211 00 eax1 pr6|304 007124 aa 010000 4310 07 fld 4096,dl 007125 la 4 00070 3521 20 epp2 pr4|56,* ioa_ 007126 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 433 call convert_aim_attributes_ (volume_registration.min_access_class, aa_string); 007127 aa 6 00362 3735 20 epp7 pr6|242,* vrp 007130 aa 7 00014 3521 00 epp2 pr7|12 volume_registration.min_access_class 007131 aa 6 00430 2521 00 spri2 pr6|280 007132 aa 6 00225 3521 00 epp2 pr6|149 aa_string 007133 aa 6 00432 2521 00 spri2 pr6|282 007134 aa 6 00426 6211 00 eax1 pr6|278 007135 aa 010000 4310 07 fld 4096,dl 007136 aa 6 00044 3701 20 epp4 pr6|36,* 007137 la 4 00032 3521 20 epp2 pr4|26,* convert_aim_attributes_ 007140 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 434 call ioa_ ("min_access_class:^-^a", aa_string); 007141 aa 771345 2370 04 ldaq -3355,ic 000506 = 155151156137 141143143145 007142 aa 6 00426 7571 00 staq pr6|278 007143 aa 771345 2370 04 ldaq -3355,ic 000510 = 163163137143 154141163163 007144 aa 6 00430 7571 00 staq pr6|280 007145 aa 771345 2370 04 ldaq -3355,ic 000512 = 072136055136 141000000000 007146 aa 6 00432 7571 00 staq pr6|282 007147 aa 6 00426 3521 00 epp2 pr6|278 007150 aa 6 00462 2521 00 spri2 pr6|306 007151 aa 6 00225 3521 00 epp2 pr6|149 aa_string 007152 aa 6 00464 2521 00 spri2 pr6|308 007153 aa 770750 3520 04 epp2 -3608,ic 000123 = 524000000025 007154 aa 6 00466 2521 00 spri2 pr6|310 007155 aa 770676 3520 04 epp2 -3650,ic 000053 = 524000000040 007156 aa 6 00470 2521 00 spri2 pr6|312 007157 aa 6 00460 6211 00 eax1 pr6|304 007160 aa 010000 4310 07 fld 4096,dl 007161 aa 6 00044 3701 20 epp4 pr6|36,* 007162 la 4 00070 3521 20 epp2 pr4|56,* ioa_ 007163 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 435 call convert_aim_attributes_ (volume_registration.max_access_class, aa_string); 007164 aa 6 00362 3735 20 epp7 pr6|242,* vrp 007165 aa 7 00012 3521 00 epp2 pr7|10 volume_registration.max_access_class 007166 aa 6 00430 2521 00 spri2 pr6|280 007167 aa 6 00225 3521 00 epp2 pr6|149 aa_string 007170 aa 6 00432 2521 00 spri2 pr6|282 007171 aa 6 00426 6211 00 eax1 pr6|278 007172 aa 010000 4310 07 fld 4096,dl 007173 aa 6 00044 3701 20 epp4 pr6|36,* 007174 la 4 00032 3521 20 epp2 pr4|26,* convert_aim_attributes_ 007175 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 436 call ioa_ ("max_access_class:^-^a", aa_string); 007176 aa 771302 2370 04 ldaq -3390,ic 000500 = 155141170137 141143143145 007177 aa 6 00426 7571 00 staq pr6|278 007200 aa 771302 2370 04 ldaq -3390,ic 000502 = 163163137143 154141163163 007201 aa 6 00430 7571 00 staq pr6|280 007202 aa 771302 2370 04 ldaq -3390,ic 000504 = 072136055136 141000000000 007203 aa 6 00432 7571 00 staq pr6|282 007204 aa 6 00426 3521 00 epp2 pr6|278 007205 aa 6 00462 2521 00 spri2 pr6|306 007206 aa 6 00225 3521 00 epp2 pr6|149 aa_string 007207 aa 6 00464 2521 00 spri2 pr6|308 007210 aa 770713 3520 04 epp2 -3637,ic 000123 = 524000000025 007211 aa 6 00466 2521 00 spri2 pr6|310 007212 aa 770641 3520 04 epp2 -3679,ic 000053 = 524000000040 007213 aa 6 00470 2521 00 spri2 pr6|312 007214 aa 6 00460 6211 00 eax1 pr6|304 007215 aa 010000 4310 07 fld 4096,dl 007216 aa 6 00044 3701 20 epp4 pr6|36,* 007217 la 4 00070 3521 20 epp2 pr4|56,* ioa_ 007220 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 437 call ioa_ ("acs_path:^-^-^a", volume_registration.acs_path); 007221 aa 771033 2370 04 ldaq -3557,ic 000254 = 141143163137 160141164150 007222 aa 6 00426 7571 00 staq pr6|278 007223 aa 771033 2370 04 ldaq -3557,ic 000256 = 072136055136 055136141000 007224 aa 6 00430 7571 00 staq pr6|280 007225 aa 6 00426 3521 00 epp2 pr6|278 007226 aa 6 00462 2521 00 spri2 pr6|306 007227 aa 6 00362 3735 20 epp7 pr6|242,* vrp 007230 aa 7 00026 3521 00 epp2 pr7|22 volume_registration.acs_path 007231 aa 6 00464 2521 00 spri2 pr6|308 007232 aa 770630 3520 04 epp2 -3688,ic 000062 = 524000000017 007233 aa 6 00466 2521 00 spri2 pr6|310 007234 aa 770613 3520 04 epp2 -3701,ic 000047 = 524000000250 007235 aa 6 00470 2521 00 spri2 pr6|312 007236 aa 6 00460 6211 00 eax1 pr6|304 007237 aa 010000 4310 07 fld 4096,dl 007240 aa 6 00044 3701 20 epp4 pr6|36,* 007241 la 4 00070 3521 20 epp2 pr4|56,* ioa_ 007242 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 438 call ioa_ ("^/npv:^-^-^d", volume_registration.npv); 007243 aa 770730 2350 04 lda -3624,ic 000173 = 136057156160 007244 aa 770730 2360 04 ldq -3624,ic 000174 = 166072136055 007245 aa 6 00426 7571 00 staq pr6|278 007246 aa 770727 2350 04 lda -3625,ic 000175 = 136055136144 007247 aa 6 00430 7551 00 sta pr6|280 007250 aa 6 00426 3521 00 epp2 pr6|278 007251 aa 6 00462 2521 00 spri2 pr6|306 007252 aa 6 00362 3735 20 epp7 pr6|242,* vrp 007253 aa 7 00101 3521 00 epp2 pr7|65 volume_registration.npv 007254 aa 6 00464 2521 00 spri2 pr6|308 007255 aa 770611 3520 04 epp2 -3703,ic 000066 = 524000000014 007256 aa 6 00466 2521 00 spri2 pr6|310 007257 aa 770655 3520 04 epp2 -3667,ic 000134 = 404000000021 007260 aa 6 00470 2521 00 spri2 pr6|312 007261 aa 6 00460 6211 00 eax1 pr6|304 007262 aa 010000 4310 07 fld 4096,dl 007263 aa 6 00044 3701 20 epp4 pr6|36,* 007264 la 4 00070 3521 20 epp2 pr4|56,* ioa_ 007265 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 439 end; STATEMENT 1 ON LINE 440 do i = 1 to volume_registration.npv; 007266 aa 6 00362 3735 20 epp7 pr6|242,* vrp 007267 aa 7 00101 2361 00 ldq pr7|65 volume_registration.npv 007270 aa 6 00372 7561 00 stq pr6|250 007271 aa 000001 2360 07 ldq 1,dl 007272 aa 6 00331 7561 00 stq pr6|217 i 007273 aa 000000 0110 03 nop 0,du 007274 aa 6 00331 2361 00 ldq pr6|217 i 007275 aa 6 00372 1161 00 cmpq pr6|250 007276 aa 000224 6054 04 tpnz 148,ic 007522 STATEMENT 1 ON LINE 441 if tcs = "-bf" | tcs = "-brief" then call ioa_ ("^a", volume_registration.pv (i).pvname); 007277 aa 040 004 106 500 cmpc (pr),(ic),fill(040) 007300 aa 6 00133 00 0040 desc9a pr6|91,32 tcs 007301 aa 770552 00 0003 desc9a -3734,3 000051 = 055142146000 007302 aa 000005 6000 04 tze 5,ic 007307 007303 aa 040 004 106 500 cmpc (pr),(ic),fill(040) 007304 aa 6 00133 00 0040 desc9a pr6|91,32 tcs 007305 aa 770635 00 0006 desc9a -3683,6 000140 = 055142162151 007306 aa 000026 6010 04 tnz 22,ic 007334 007307 aa 770544 2360 04 ldq -3740,ic 000053 = 524000000040 007310 aa 6 00421 7561 00 stq pr6|273 007311 aa 136141 2350 03 lda 48225,du 007312 aa 6 00623 7551 00 sta pr6|403 007313 aa 6 00331 2361 00 ldq pr6|217 i 007314 aa 000036 4020 07 mpy 30,dl 007315 aa 6 00623 3521 00 epp2 pr6|403 007316 aa 6 00430 2521 00 spri2 pr6|280 007317 aa 6 00362 3735 20 epp7 pr6|242,* vrp 007320 aa 7 00046 3521 06 epp2 pr7|38,ql volume_registration.pvname 007321 aa 6 00432 2521 00 spri2 pr6|282 007322 aa 770567 3520 04 epp2 -3721,ic 000111 = 524000000002 007323 aa 6 00434 2521 00 spri2 pr6|284 007324 aa 6 00421 3521 00 epp2 pr6|273 007325 aa 6 00436 2521 00 spri2 pr6|286 007326 aa 6 00426 6211 00 eax1 pr6|278 007327 aa 010000 4310 07 fld 4096,dl 007330 aa 6 00044 3701 20 epp4 pr6|36,* 007331 la 4 00070 3521 20 epp2 pr4|56,* ioa_ 007332 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc 007333 aa 000153 7100 04 tra 107,ic 007506 STATEMENT 1 ON LINE 443 else do; STATEMENT 1 ON LINE 444 call ioa_ ("^/ pvname:^-^a", volume_registration.pv (i).pvname); 007334 aa 770517 2360 04 ldq -3761,ic 000053 = 524000000040 007335 aa 6 00421 7561 00 stq pr6|273 007336 aa 770712 2370 04 ldaq -3638,ic 000250 = 136057040160 166156141155 007337 aa 6 00426 7571 00 staq pr6|278 007340 aa 770712 2370 04 ldaq -3638,ic 000252 = 145072136055 136141000000 007341 aa 6 00430 7571 00 staq pr6|280 007342 aa 6 00331 2361 00 ldq pr6|217 i 007343 aa 000036 4020 07 mpy 30,dl 007344 aa 6 00426 3521 00 epp2 pr6|278 007345 aa 6 00462 2521 00 spri2 pr6|306 007346 aa 6 00362 3735 20 epp7 pr6|242,* vrp 007347 aa 7 00046 3521 06 epp2 pr7|38,ql volume_registration.pvname 007350 aa 6 00464 2521 00 spri2 pr6|308 007351 aa 770505 3520 04 epp2 -3771,ic 000056 = 524000000016 007352 aa 6 00466 2521 00 spri2 pr6|310 007353 aa 6 00421 3521 00 epp2 pr6|273 007354 aa 6 00470 2521 00 spri2 pr6|312 007355 aa 6 00623 7561 00 stq pr6|403 007356 aa 6 00460 6211 00 eax1 pr6|304 007357 aa 010000 4310 07 fld 4096,dl 007360 aa 6 00044 3701 20 epp4 pr6|36,* 007361 la 4 00070 3521 20 epp2 pr4|56,* ioa_ 007362 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 445 call ioa_ (" pvid:^-^-^w", volume_registration.pv (i).pvid); 007363 aa 770522 2360 04 ldq -3758,ic 000105 = 514000000044 007364 aa 6 00421 7561 00 stq pr6|273 007365 aa 770603 2370 04 ldaq -3709,ic 000170 = 040160166151 144072136055 007366 aa 6 00426 7571 00 staq pr6|278 007367 aa 770603 2350 04 lda -3709,ic 000172 = 136055136167 007370 aa 6 00430 7551 00 sta pr6|280 007371 aa 6 00426 3521 00 epp2 pr6|278 007372 aa 6 00462 2521 00 spri2 pr6|306 007373 aa 6 00623 7271 00 lxl7 pr6|403 007374 aa 6 00362 3735 20 epp7 pr6|242,* vrp 007375 aa 7 00044 3521 17 epp2 pr7|36,7 volume_registration.pvid 007376 aa 6 00464 2521 00 spri2 pr6|308 007377 aa 770467 3520 04 epp2 -3785,ic 000066 = 524000000014 007400 aa 6 00466 2521 00 spri2 pr6|310 007401 aa 6 00421 3521 00 epp2 pr6|273 007402 aa 6 00470 2521 00 spri2 pr6|312 007403 aa 6 00460 6211 00 eax1 pr6|304 007404 aa 010000 4310 07 fld 4096,dl 007405 aa 6 00044 3701 20 epp4 pr6|36,* 007406 la 4 00070 3521 20 epp2 pr4|56,* ioa_ 007407 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 446 call ioa_ (" serial:^-^-^a", volume_registration.pv (i).mfg_serial); 007410 aa 770443 2360 04 ldq -3805,ic 000053 = 524000000040 007411 aa 6 00421 7561 00 stq pr6|273 007412 aa 770632 2370 04 ldaq -3686,ic 000244 = 040163145162 151141154072 007413 aa 6 00426 7571 00 staq pr6|278 007414 aa 770632 2370 04 ldaq -3686,ic 000246 = 136055136055 136141000000 007415 aa 6 00430 7571 00 staq pr6|280 007416 aa 6 00426 3521 00 epp2 pr6|278 007417 aa 6 00462 2521 00 spri2 pr6|306 007420 aa 6 00623 7271 00 lxl7 pr6|403 007421 aa 6 00362 3735 20 epp7 pr6|242,* vrp 007422 aa 7 00066 3521 17 epp2 pr7|54,7 volume_registration.mfg_serial 007423 aa 6 00464 2521 00 spri2 pr6|308 007424 aa 770432 3520 04 epp2 -3814,ic 000056 = 524000000016 007425 aa 6 00466 2521 00 spri2 pr6|310 007426 aa 6 00421 3521 00 epp2 pr6|273 007427 aa 6 00470 2521 00 spri2 pr6|312 007430 aa 6 00460 6211 00 eax1 pr6|304 007431 aa 010000 4310 07 fld 4096,dl 007432 aa 6 00044 3701 20 epp4 pr6|36,* 007433 la 4 00070 3521 20 epp2 pr4|56,* ioa_ 007434 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 447 call ioa_ (" model:^-^-^d", MODELN (volume_registration.pv (i).model)); 007435 aa 770603 2370 04 ldaq -3709,ic 000240 = 040155157144 145154072136 007436 aa 6 00426 7571 00 staq pr6|278 007437 aa 770603 2370 04 ldaq -3709,ic 000242 = 055136055136 144000000000 007440 aa 6 00430 7571 00 staq pr6|280 007441 aa 6 00426 3521 00 epp2 pr6|278 007442 aa 6 00462 2521 00 spri2 pr6|306 007443 aa 6 00623 7271 00 lxl7 pr6|403 007444 aa 6 00362 3735 20 epp7 pr6|242,* vrp 007445 aa 7 00045 7261 17 lxl6 pr7|37,7 volume_registration.model 007446 ta 777777 3520 16 epp2 -1,6 007447 aa 6 00464 2521 00 spri2 pr6|308 007450 aa 770402 3520 04 epp2 -3838,ic 000052 = 524000000015 007451 aa 6 00466 2521 00 spri2 pr6|310 007452 aa 770462 3520 04 epp2 -3790,ic 000134 = 404000000021 007453 aa 6 00470 2521 00 spri2 pr6|312 007454 aa 6 00460 6211 00 eax1 pr6|304 007455 aa 010000 4310 07 fld 4096,dl 007456 aa 6 00044 3701 20 epp4 pr6|36,* 007457 la 4 00070 3521 20 epp2 pr4|56,* ioa_ 007460 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 448 call ioa_ (" location:^-^a", volume_registration.pv (i).location); 007461 aa 770372 2360 04 ldq -3846,ic 000053 = 524000000040 007462 aa 6 00421 7561 00 stq pr6|273 007463 aa 770551 2370 04 ldaq -3735,ic 000234 = 040154157143 141164151157 007464 aa 6 00426 7571 00 staq pr6|278 007465 aa 770551 2370 04 ldaq -3735,ic 000236 = 156072136055 136141000000 007466 aa 6 00430 7571 00 staq pr6|280 007467 aa 6 00426 3521 00 epp2 pr6|278 007470 aa 6 00462 2521 00 spri2 pr6|306 007471 aa 6 00623 7271 00 lxl7 pr6|403 007472 aa 6 00362 3735 20 epp7 pr6|242,* vrp 007473 aa 7 00056 3521 17 epp2 pr7|46,7 volume_registration.location 007474 aa 6 00464 2521 00 spri2 pr6|308 007475 aa 770361 3520 04 epp2 -3855,ic 000056 = 524000000016 007476 aa 6 00466 2521 00 spri2 pr6|310 007477 aa 6 00421 3521 00 epp2 pr6|273 007500 aa 6 00470 2521 00 spri2 pr6|312 007501 aa 6 00460 6211 00 eax1 pr6|304 007502 aa 010000 4310 07 fld 4096,dl 007503 aa 6 00044 3701 20 epp4 pr6|36,* 007504 la 4 00070 3521 20 epp2 pr4|56,* ioa_ 007505 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 449 end; STATEMENT 1 ON LINE 450 end; 007506 aa 6 00331 0541 00 aos pr6|217 i 007507 aa 777565 7100 04 tra -139,ic 007274 STATEMENT 1 ON LINE 451 end; 007510 aa 000012 7100 04 tra 10,ic 007522 STATEMENT 1 ON LINE 452 else call FAIL ("arg neither pv nor lv: " || tcs); 007511 aa 040 100 100 404 mlr (ic),(pr),fill(040) 007512 aa 771011 00 0027 desc9a -3575,23 000522 = 141162147040 007513 aa 6 00426 00 0027 desc9a pr6|278,23 007514 aa 040 100 100 500 mlr (pr),(pr),fill(040) 007515 aa 6 00133 00 0040 desc9a pr6|91,32 tcs 007516 aa 6 00433 60 0040 desc9a pr6|283(3),32 007517 aa 000327 3520 04 epp2 215,ic 010046 = 000002000000 007520 aa 2 00000 2351 00 lda pr2|0 007521 aa 000113 6700 04 tsp4 75,ic 007634 STATEMENT 1 ON LINE 453 call ioa_ (""); 007522 aa 6 00421 3521 00 epp2 pr6|273 007523 aa 6 00430 2521 00 spri2 pr6|280 007524 aa 770404 3520 04 epp2 -3836,ic 000130 = 524000000000 007525 aa 6 00432 2521 00 spri2 pr6|282 007526 aa 6 00426 6211 00 eax1 pr6|278 007527 aa 004000 4310 07 fld 2048,dl 007530 aa 6 00044 3701 20 epp4 pr6|36,* 007531 la 4 00070 3521 20 epp2 pr4|56,* ioa_ 007532 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 454 return; 007533 aa 0 00631 7101 00 tra pr0|409 return STATEMENT 1 ON LINE 480 bust: return; 007534 aa 0 00631 7101 00 tra pr0|409 return STATEMENT 1 ON LINE 1212 end hvr_; BEGIN PROCEDURE getarg ENTRY TO getarg STATEMENT 1 ON LINE 458 getarg: proc (x); 007535 aa 6 00374 6501 00 spri4 pr6|252 007536 aa 6 00376 2521 00 spri2 pr6|254 007537 aa 2 00002 3521 01 epp2 pr2|2,au 007540 aa 6 00400 2521 00 spri2 pr6|256 007541 aa 2 00000 2361 20 ldq pr2|0,* 007542 aa 000002 6040 04 tmi 2,ic 007544 007543 aa 777777 3760 07 anq 262143,dl 007544 aa 0 00250 3761 00 anq pr0|168 = 000077777777 007545 aa 6 00705 7561 00 stq pr6|453 STATEMENT 1 ON LINE 463 call cu_$arg_ptr (argno, ap, al, errc); 007546 aa 6 00334 3521 00 epp2 pr6|220 argno 007547 aa 6 00710 2521 00 spri2 pr6|456 007550 aa 6 00100 3521 00 epp2 pr6|64 ap 007551 aa 6 00712 2521 00 spri2 pr6|458 007552 aa 6 00102 3521 00 epp2 pr6|66 al 007553 aa 6 00714 2521 00 spri2 pr6|460 007554 aa 6 00402 3521 00 epp2 pr6|258 errc 007555 aa 6 00716 2521 00 spri2 pr6|462 007556 aa 6 00706 6211 00 eax1 pr6|454 007557 aa 020000 4310 07 fld 8192,dl 007560 aa 6 00044 3701 20 epp4 pr6|36,* 007561 la 4 00042 3521 20 epp2 pr4|34,* cu_$arg_ptr 007562 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 464 if errc = 0 then x = bchr; 007563 aa 6 00402 2361 00 ldq pr6|258 errc 007564 aa 000012 6010 04 tnz 10,ic 007576 007565 aa 6 00376 3735 20 epp7 pr6|254,* 007566 aa 7 00002 3715 20 epp5 pr7|2,* 007567 aa 6 00100 3535 20 epp3 pr6|64,* ap 007570 aa 6 00705 2351 00 lda pr6|453 007571 aa 6 00102 7271 00 lxl7 pr6|66 al 007572 aa 040 140 100 540 mlr (pr,rl),(pr,rl),fill(040) 007573 aa 3 00000 00 0017 desc9a pr3|0,x7 bchr 007574 aa 5 00000 00 0005 desc9a pr5|0,al x 007575 aa 000007 7100 04 tra 7,ic 007604 STATEMENT 1 ON LINE 465 else x = ""; 007576 aa 6 00376 3735 20 epp7 pr6|254,* 007577 aa 7 00002 3715 20 epp5 pr7|2,* 007600 aa 6 00705 2351 00 lda pr6|453 007601 aa 040 140 100 400 mlr (),(pr,rl),fill(040) 007602 aa 000000 00 0000 desc9a 0,0 007603 aa 5 00000 00 0005 desc9a pr5|0,al x STATEMENT 1 ON LINE 466 argno = argno + 1; 007604 aa 6 00334 0541 00 aos pr6|220 argno STATEMENT 1 ON LINE 467 call cu_$arg_ptr (argno, ap, al, errc); 007605 aa 6 00334 3521 00 epp2 pr6|220 argno 007606 aa 6 00710 2521 00 spri2 pr6|456 007607 aa 6 00100 3521 00 epp2 pr6|64 ap 007610 aa 6 00712 2521 00 spri2 pr6|458 007611 aa 6 00102 3521 00 epp2 pr6|66 al 007612 aa 6 00714 2521 00 spri2 pr6|460 007613 aa 6 00402 3521 00 epp2 pr6|258 errc 007614 aa 6 00716 2521 00 spri2 pr6|462 007615 aa 6 00706 6211 00 eax1 pr6|454 007616 aa 020000 4310 07 fld 8192,dl 007617 aa 6 00044 3701 20 epp4 pr6|36,* 007620 la 4 00042 3521 20 epp2 pr4|34,* cu_$arg_ptr 007621 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 468 if errc ^= 0 | bchr = "" then more_args = "0"b; 007622 aa 6 00402 2361 00 ldq pr6|258 errc 007623 aa 000007 6010 04 tnz 7,ic 007632 007624 aa 6 00100 3735 20 epp7 pr6|64,* ap 007625 aa 6 00102 7271 00 lxl7 pr6|66 al 007626 aa 040 004 106 540 cmpc (pr,rl),(ic),fill(040) 007627 aa 7 00000 00 0017 desc9a pr7|0,x7 bchr 007630 aa 000522 00 0000 desc9a 338,0 010350 = 154166000000 007631 aa 000002 6010 04 tnz 2,ic 007633 007632 aa 6 00333 4501 00 stz pr6|219 more_args STATEMENT 1 ON LINE 470 end getarg; 007633 aa 6 00374 6101 00 rtcd pr6|252 END PROCEDURE getarg BEGIN PROCEDURE FAIL ENTRY TO FAIL STATEMENT 1 ON LINE 472 FAIL: proc (x); 007634 aa 6 00404 6501 00 spri4 pr6|260 007635 aa 6 00406 2521 00 spri2 pr6|262 007636 aa 2 00002 3521 01 epp2 pr2|2,au 007637 aa 6 00410 2521 00 spri2 pr6|264 007640 aa 2 00000 2361 20 ldq pr2|0,* 007641 aa 000002 6040 04 tmi 2,ic 007643 007642 aa 777777 3760 07 anq 262143,dl 007643 aa 0 00250 3761 00 anq pr0|168 = 000077777777 007644 aa 6 00720 7561 00 stq pr6|464 STATEMENT 1 ON LINE 476 call com_err_ (ec, comname, "^a", x); 007645 aa 136141 2350 03 lda 48225,du 007646 aa 6 00721 7551 00 sta pr6|465 007647 aa 6 00360 3521 00 epp2 pr6|240 ec 007650 aa 6 00724 2521 00 spri2 pr6|468 007651 aa 6 00215 3521 00 epp2 pr6|141 comname 007652 aa 6 00726 2521 00 spri2 pr6|470 007653 aa 6 00721 3521 00 epp2 pr6|465 007654 aa 6 00730 2521 00 spri2 pr6|472 007655 aa 6 00406 3735 20 epp7 pr6|262,* 007656 aa 7 00002 3521 20 epp2 pr7|2,* x 007657 aa 6 00732 2521 00 spri2 pr6|474 007660 aa 770245 3520 04 epp2 -3931,ic 000125 = 404000000043 007661 aa 6 00734 2521 00 spri2 pr6|476 007662 aa 770250 3520 04 epp2 -3928,ic 000132 = 526000000040 007663 aa 6 00736 2521 00 spri2 pr6|478 007664 aa 770225 3520 04 epp2 -3947,ic 000111 = 524000000002 007665 aa 6 00740 2521 00 spri2 pr6|480 007666 aa 6 00410 3715 20 epp5 pr6|264,* 007667 aa 5 00000 3521 20 epp2 pr5|0,* 007670 aa 6 00742 2521 00 spri2 pr6|482 007671 aa 6 00722 6211 00 eax1 pr6|466 007672 aa 020000 4310 07 fld 8192,dl 007673 aa 6 00044 3701 20 epp4 pr6|36,* 007674 la 4 00026 3521 20 epp2 pr4|22,* com_err_ 007675 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 477 go to bust; 007676 aa 777636 7100 04 tra -98,ic 007534 STATEMENT 1 ON LINE 479 end FAIL; END PROCEDURE FAIL BEGIN PROCEDURE check_owner ENTRY TO check_owner STATEMENT 1 ON LINE 482 check_owner: proc; 007677 aa 6 00412 6501 00 spri4 pr6|266 STATEMENT 1 ON LINE 484 owneri = index (tcs1, "."); 007700 aa 000 003 124 500 scm (pr),(du),mask(000) 007701 aa 6 00143 00 0250 desc9a pr6|99,168 tcs1 007702 aa 056000 00 0001 desc9a 23552,1 007703 aa 6 00056 0001 00 arg pr6|46 007704 aa 6 00056 2361 00 ldq pr6|46 007705 aa 000002 6070 04 ttf 2,ic 007707 007706 aa 000001 3360 07 lcq 1,dl 007707 aa 000001 0760 07 adq 1,dl 007710 aa 6 00356 7561 00 stq pr6|238 owneri STATEMENT 1 ON LINE 485 if owneri = 0 then return; 007711 aa 000002 6010 04 tnz 2,ic 007713 007712 aa 6 00412 6101 00 rtcd pr6|266 STATEMENT 1 ON LINE 486 if index (substr (tcs1, owneri+1), ".") ^= 0 then owneri = 0; 007713 aa 000250 2360 07 ldq 168,dl 007714 aa 6 00356 1761 00 sbq pr6|238 owneri 007715 aa 6 00356 7271 00 lxl7 pr6|238 owneri 007716 aa 000 003 124 557 scm (pr,rl,x7),(du),mask(000) 007717 aa 6 00143 00 0006 desc9a pr6|99,ql tcs1 007720 aa 056000 00 0001 desc9a 23552,1 007721 aa 6 00056 0001 00 arg pr6|46 007722 aa 6 00056 2361 00 ldq pr6|46 007723 aa 000002 6070 04 ttf 2,ic 007725 007724 aa 000001 3360 07 lcq 1,dl 007725 aa 000001 0760 07 adq 1,dl 007726 aa 000003 6000 04 tze 3,ic 007731 007727 aa 6 00356 4501 00 stz pr6|238 owneri 007730 aa 000004 7100 04 tra 4,ic 007734 STATEMENT 1 ON LINE 487 else owner = tcs1; 007731 aa 000 100 100 500 mlr (pr),(pr),fill(000) 007732 aa 6 00143 00 0040 desc9a pr6|99,32 tcs1 007733 aa 6 00346 00 0040 desc9a pr6|230,32 owner STATEMENT 1 ON LINE 489 end check_owner; 007734 aa 6 00412 6101 00 rtcd pr6|266 END PROCEDURE check_owner END PROCEDURE hvr_ ----------------------------------------------------------- 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