COMPILATION LISTING OF SEGMENT trace_mpc_ Compiled by: Multics PL/I Compiler, Release 28d, of October 4, 1983 Compiled at: Honeywell Multics Op. - System M Compiled on: 01/03/85 1509.7 mst Thu Options: optimize list 1 /* *********************************************************** 2* * * 3* * Copyright, (C) Honeywell Information Systems Inc., 1982 * 4* * * 5* *********************************************************** */ 6 /* TRACE_MPC_ - Print Trace Table for MPC. 7* coded 7/8/75 by Noel I. Morris */ 8 /* Modified April 1982 by Rich Coppola to add EURC support and fix some bugs */ 9 /* Modified Oct 1982 by Rich Coppola to correct trace of EURC */ 10 /* Modified Jan 1983 by Rich Coppola to correctly translate MPC specials */ 11 /* 12* Modified June 1984 by Paul Farley for DAU support and to use a pointer 13* parameter to reference the MPC memory image. 14* Modified Halloween 1984 by Paul Farley for enhancments to the DAU trace. 15**/ 16 17 /* format: style4,delnl,insnl,ifthenstmt,indnoniterend */ 18 19 /* ****************************************************** 20* * * 21* * * 22* * Copyright (c) 1972 by Massachusetts Institute of * 23* * Technology and Honeywell Information Systems, Inc. * 24* * * 25* * * 26* ****************************************************** */ 27 28 29 trace_mpc_: 30 proc (image_ptr, sw, mpc_datap); 31 32 dcl image_ptr ptr parameter; 33 dcl image (0:4095) bit (16) unal based (image_ptr); /* MPC memory image */ 34 dcl sw ptr; /* IOX_ switch for output */ 35 36 dcl p ptr, /* Pointer to trace word */ 37 eurc_trace_ptr ptr, /* Pointer to EURC trace */ 38 word bit (16) aligned, /* Trace word */ 39 loc fixed bin (16), /* Current location in trace */ 40 dt char (24); /* Current date and time */ 41 42 dcl 1 mword based (p) aligned, /* MPC trace word format */ 43 ( 44 2 st bit (1), /* "1"b if status word */ 45 2 a bit (7), /* First half info */ 46 2 type bit (2), /* Trace word type */ 47 2 b bit (6) 48 ) unal; /* Second half info */ 49 50 dcl 1 uword based (p) aligned, /* URMPC trace word format */ 51 ( 52 2 type bit (2), /* Trace word type */ 53 2 code bit (6), /* Info */ 54 2 device bit (4), /* Device number */ 55 2 pad bit (4) 56 ) unal; 57 58 dcl 1 spec_uword based (p) aligned, 59 ( 60 2 type bit (8), /* SPECIAL TYPE */ 61 2 opi bit (4), /* mux port opi change */ 62 2 opic bit (4) 63 ) unal; /* mux port opi-C */ 64 65 dcl 1 eurc_trace (0:15) based (eurc_trace_ptr) unal, 66 ( 67 2 module bit (4), /* The calling module */ 68 2 pad1 bit (2), 69 2 LCN bit (2), 70 2 reason bit (8), 71 2 pad2 bit (1), 72 2 command bit (3), 73 2 major_status bit (4), 74 2 pad3 bit (2), 75 2 minor_status bit (6), 76 2 pad4 bit (2), 77 2 chan_status bit (6), 78 2 card_state bit (4), 79 2 card_substate bit (4), 80 2 print_state bit (4), 81 2 print_substate bit (4), 82 2 iom_state bit (4), 83 2 iom_substate bit (4), 84 2 tnd_state bit (4), 85 2 tnd_substate bit (4), 86 2 queue_id bit (4), 87 2 link_status bit (4), 88 2 pad5 bit (2), 89 2 idcw_op bit (6), 90 2 pad6 bit (2), 91 2 idcw_dev bit (6), 92 2 pad7 bit (2), 93 2 idcw_add_ext bit (6), 94 2 pad8 bit (2), 95 2 idcw_flags bit (6), 96 2 pad9 bit (2), 97 2 idcw_chan_inst bit (6), 98 2 pad10 bit (2), 99 2 idcw_rec_tly bit (6) 100 ) unal; 101 102 103 dcl ioa_$ioa_switch entry options (variable); 104 dcl date_time_ entry (fixed bin (52), char (*)); 105 dcl urp_sw bit (1) init ("0"b); 106 dcl STR char (25) var init (""); 107 dcl i fixed bin; 108 dcl (addr, clock, substr, bin, bit, fixed, length) builtin; 109 110 dcl mth_spec_type (7) char (15) var int static options (constant) 111 init ("REWIND COMPLETE", "UNLOAD COMPLETE", "MTH READY", "MTH in STANDBY", "STANDBY LOADED", "RELEASED", 112 "MTH MALFUNCTION"); 113 114 dcl urc_svc_codes (0:15) char (45) var int static options (constant) 115 init ("PRT WENT FROM HALT TO READY.", "PRINT ONE LINE OR CRZ/CPZ READY.", 116 "FWD SPACE ONE LINE OR CRZ/CPZ RELEASED.", "FWD SPACE TO T.O.P.", "INVALID LINE.", 117 "OPERATOR KILLED THIS REPORT.", "BACKUP ONE LINE & REPRINT.", "BACKUP ONE PAGE & REPRINT.", "UNDEFINED", 118 "UNDEFINED", "UNDEFINED", "UNDEFINED", "UNDEFINED", "TERMINATE THIS CHANNEL PROGRAM.", "UNDEFINED", "UNDEFINED") 119 ; 120 121 dcl eurc_module (0:15) char (15) var int static options (constant) 122 init ("CORE", "UNDEFINED", "PR54", "CARD", "IOM", "PR71", "PR54", "UNDEFINED", "LINK", "UNDEFINED", "UNDEFINED", 123 "UNDEFINED", "UNDEFINED", "SCC", "FIRMWARE ERROR", "UNDEFINED"); 124 125 126 p = addr (word); /* Get pointer to trace word. */ 127 128 call date_time_ (clock (), dt); /* Get current date and time. */ 129 130 if substr (mpc_data.type, 1, 3) = "urp" then urp_sw = "1"b; 131 132 call ioa_$ioa_switch (sw, "^|^5xTrace of ^a controller. ^[FW Rev. ^a^;^s^]^3x^a^/", mpc_data.name, ^urp_sw, 133 mpc_data.fw_rev, dt); 134 135 136 do loc = mpc_data.trace_start to (mpc_data.trace_start + mpc_data.trace_size - 1); 137 /* Iterate through the trace table. */ 138 if loc = mpc_data.trace_cur 139 then /* If at current position of trace ... */ 140 call ioa_$ioa_switch (sw, "**************************************************"); 141 142 word = image (loc); /* Get word from trace. */ 143 if word = "0"b then go to skip_zeroes; 144 145 if word = "ffff"b4 then do; 146 call ioa_$ioa_switch (sw, "^4.4b^-Unknown trace type (FFFF)."); 147 go to skip_zeroes; 148 end; 149 150 if mpc_data.type = "urp" then do; /* If tracing URMPC ... */ 151 if spec_uword.type = "fe"b4 152 then call ioa_$ioa_switch (sw, "^4.4b^-DEVICE POWER CHANGE^-^[OPI CHANGED on MUX PORT=^4b^]", word, 153 spec_uword.opic, spec_uword.opic); 154 155 else if spec_uword.type = "ff"b4 then call ioa_$ioa_switch (sw, "^4.4b^-OPI DROPPED", word); 156 157 else if spec_uword.type = "7f"b4 then call ioa_$ioa_switch (sw, "^4.4b^-MPC ERROR INTERRUPT", word); 158 159 else if uword.type = "00"b 160 then /* Type 00 = COMMAND */ 161 call ioa_$ioa_switch (sw, "^4.4b^-COMMAND^-OPCODE=^2.3b^2-DEVICE PORT=^4b", word, uword.code, 162 uword.device); 163 else if uword.type = "01"b 164 then /* Type 01 = STATUS */ 165 call ioa_$ioa_switch (sw, "^4.4b^-TERMINATE STATUS^-MAJOR=^2.3b^-DEVICE PORT=^4b^/", word, 166 uword.code, uword.device); 167 else if uword.type = "10"b 168 then /* Type 10 = SPECIAL */ 169 call ioa_$ioa_switch (sw, 170 "^4.4b^-SPECIAL INTERRUPT STORED^-LA=^1b,PSI=^1b,LOG-CHAN=^3b,DEVICE PORT=^4b", word, 171 substr (uword.code, 2, 1), substr (uword.code, 3, 1), substr (uword.code, 4, 3), 172 uword.device); 173 else if uword.type = "11"b 174 then /* Type 11 = INTERRUPT */ 175 call ioa_$ioa_switch (sw, "^4.4b^-INTERRUPT^-SERVICE CODE=^4b^-DEVICE PORT=^4b^/^-^a", word, 176 substr (uword.code, 3), uword.device, urc_svc_codes (bin (substr (uword.code, 3, 4), 4))); 177 go to skip_zeroes; 178 end; 179 180 181 else if ((substr (mpc_data.type, 1, 3) = "mtp") & mpc_data.model = 610) then do; 182 /* If MTP610 */ 183 if mword.st then do; /* IIW STATUS */ 184 if mword.type = "10"b 185 then call ioa_$ioa_switch (sw, 186 "^4.4b^-IIW STATUS^-FAULT BYTE=^2.4b^-TCA=^1b,PSI=^1b,LOG-CHAN=^1b^/", word, 187 substr (word, 7, 2) || substr (word, 11, 6), substr (word, 2, 1), substr (word, 3, 1), 188 substr (word, 4, 1)); 189 else if mword.type = "11"b then do;/* either MPC or dev special status */ 190 if mword.b = "0"b 191 then /* MPC special */ 192 call ioa_$ioa_switch (sw, 193 "^4.4b^-MPC SPECIAL STATUS TYPE=^[SUSPEND^]^[RELEASE^]^-TCA=^1b,PSI=^1b,LOG-CHAN=^1b^/" 194 , word, substr (word, 8, 1), substr (word, 7, 1), substr (word, 2, 1), 195 substr (word, 3, 1), substr (word, 4, 1)); 196 else do; /* DEVICE SPECIAL STATUS */ 197 STR = ""; 198 do i = 1 to 7 while (STR = ""); 199 if substr (word, i + 1, 1) then STR = mth_spec_type (i); 200 end; 201 call ioa_$ioa_switch (sw, "^4.4b^-SPECIAL^-TYPE=^8b^-DEVICE=^2.3b (^a)", word, 202 substr (word, 1, 8), mword.b, STR); 203 end; 204 end; 205 end; 206 207 /* This must be checked TWICE as bit 0 'mword.st' may or may not be on for this 208* trace type */ 209 210 if (mword.type = "11"b & mword.b ^= "0"b) then do; 211 /* DEVICE SPECIAL STATUS */ 212 STR = ""; 213 do i = 1 to 7 while (STR = ""); 214 if substr (word, i + 1, 1) then STR = mth_spec_type (i); 215 end; 216 call ioa_$ioa_switch (sw, "^4.4b^-SPECIAL^-TYPE=^8b^-DEVICE=^2.3b (^a)", word, 217 substr (word, 1, 8), mword.b, STR); 218 end; 219 220 if mword.type = "00"b 221 then /* INCOMING IDCW */ 222 call ioa_$ioa_switch (sw, "^4.4b^-INCOMING IDCW^2-DEVICE=^2.3b^-TCA=^1b,PSI=^1b,LOG-CHAN=^1b", 223 word, mword.b, substr (word, 2, 1), substr (word, 3, 1), substr (word, 4, 1)); 224 225 else if mword.type = "01"b 226 then /* EXECUTION IDCW */ 227 call ioa_$ioa_switch (sw, "^4.4b^-IDCW EXECUTION^-OP=^2.3b^-DEVICE=^2.3b", word, 228 substr (word, 3, 6), mword.b); 229 230 else if mword.type = "10"b 231 then /* TERM STATUS */ 232 call ioa_$ioa_switch (sw, 233 "^4.4b^-TERMINATE STATUS^-MAJOR=^2.3b^-SUB=^2.3b^-TCA=^1b,PSI=^1b,LOG-CHAN=^1b^/", word, 234 "00"b || substr (word, 5, 4), mword.b, substr (word, 2, 1), substr (word, 3, 1), 235 substr (word, 4, 1)); 236 go to skip_zeroes; 237 end; /* If not URMPC or MTP610 ... */ 238 if mword.st 239 then /* If status ... */ 240 call ioa_$ioa_switch (sw, 241 "^4.4b^-TERMINATE STATUS^-MAJOR=^2.3b^-SUB=^2.3b^-LA=^1b,PSI=^1b,LOG-CHAN=^.3b^/", word, 242 "00"b || substr (word, 7, 4), mword.b, substr (mword.a, 1, 1), substr (mword.a, 2, 1), 243 substr (mword.a, 3, 3)); 244 else /* If not status ... */ 245 if mword.type = "00"b 246 then /* Type 00 = COMMAND */ 247 call ioa_$ioa_switch (sw, "^4.4b^-COMMAND^2-OP=^2.3b^-DEVICE=^2.3b", word, substr (mword.a, 2, 6), 248 mword.b); 249 250 251 else if mword.type = "10"b 252 then /* Type 10 = IDCW */ 253 call ioa_$ioa_switch (sw, "^4.4b^-IDCW^3-DEVICE=^2.3b^-LA=^1b,PSI=^1b,LOG-CHAN=^.3b", word, mword.b, 254 substr (mword.a, 1, 1), substr (mword.a, 2, 1), substr (mword.a, 3, 3)); 255 else if mword.type = "11"b then do; /* Type 11 = SPECIAL */ 256 if substr (mpc_data.type, 1, 3) = "mtp" then do; 257 STR = ""; 258 do i = 1 to 7 while (STR = ""); 259 if substr (mword.a, i + 1, 1) = "1"b then STR = mth_spec_type (i); 260 end; 261 262 call ioa_$ioa_switch (sw, "^4.4b^-SPECIAL^-TYPE=^8b^-DEVICE=^2.3b^/^a", word, mword.a, mword.b, 263 STR); 264 end; 265 266 else do; 267 if substr (word, 9, 3) = "111"b 268 then /* RPS TYPE */ 269 call ioa_$ioa_switch (sw, "^4.4b^-RPS FLAG^3-DEVICE=^2.3b", word, "0"b || substr (word, 12)) 270 ; 271 272 else call ioa_$ioa_switch (sw, 273 "^4.4b^-SPECIAL^-TYPE=^2b^2-DEVICE=^2.3b^-LA=^1b,PSI=^1b,LOG-CHAN=^.3b", word, 274 substr (mword.a, 6, 2), mword.b, substr (mword.a, 1, 1), substr (mword.a, 2, 1), 275 substr (mword.a, 3, 3)); 276 end; 277 end; 278 279 else if mword.type = "01"b 280 then /* Type 01 = POLLING */ 281 if substr (mpc_data.type, 1, 3) = "msp" 282 then call ioa_$ioa_switch (sw, "^4.4b^-POLLING^2-CA=^2b", word, substr (mword.b, 5)); 283 284 285 skip_zeroes: 286 end; 287 return; 288 289 trace_mpc_$eurc: 290 entry (image_ptr, sw, mpc_datap); 291 292 call date_time_ (clock (), dt); /* Get current date and time. */ 293 call ioa_$ioa_switch (sw, "^|^5xTrace of ^a controller.^3x^a^/", mpc_data.name, dt); 294 295 eurc_trace_ptr = image_ptr; 296 297 do loc = 0 to 15; /* 16 entries, 16 bytes each */ 298 call ioa_$ioa_switch (sw, "^2.4b^-MODULE=^a^-LOG-CHAN=^.2b", 299 eurc_trace (loc).module || eurc_trace (loc).pad1 || eurc_trace (loc).LCN, 300 eurc_module (bin (eurc_trace (loc).module, 4)), eurc_trace (loc).LCN); 301 call ioa_$ioa_switch (sw, "^2.4b^-REASON=^2.4b", eurc_trace (loc).reason, eurc_trace (loc).reason); 302 call ioa_$ioa_switch (sw, "^2.4b^-COMMAND=^.3b^2-^2xMAJOR STATUS=^2.3b", 303 eurc_trace (loc).pad2 || eurc_trace (loc).command || eurc_trace (loc).major_status, 304 eurc_trace (loc).command, "00"b || eurc_trace (loc).major_status); 305 call ioa_$ioa_switch (sw, "^2.4b^3-^4xSUB STATUS=^2.3b", 306 eurc_trace (loc).pad3 || eurc_trace (loc).minor_status, eurc_trace (loc).minor_status); 307 call ioa_$ioa_switch (sw, "^2.4b^3-CHANNEL STATUS=^2.3b", 308 eurc_trace (loc).pad4 || eurc_trace (loc).chan_status, eurc_trace (loc).chan_status); 309 call ioa_$ioa_switch (sw, "^2.4b^-CARD STATE=^.4b^-SUBSTATE=^.4b", 310 eurc_trace (loc).card_state || eurc_trace (loc).card_substate, eurc_trace (loc).card_state, 311 eurc_trace (loc).card_substate); 312 call ioa_$ioa_switch (sw, "^2.4b^-PRINT STATE=^.4b^-SUBSTATE=^.4b", 313 eurc_trace (loc).print_state || eurc_trace (loc).print_substate, eurc_trace (loc).print_state, 314 eurc_trace (loc).print_substate); 315 call ioa_$ioa_switch (sw, "^2.4b^-IOM STATE=^.4b^-SUBSTATE=^.4b", 316 eurc_trace (loc).iom_state || eurc_trace (loc).iom_substate, eurc_trace (loc).iom_state, 317 eurc_trace (loc).iom_substate); 318 call ioa_$ioa_switch (sw, "^2.4b^-TND STATE=^.4b^-SUBSTATE=^.4b", 319 eurc_trace (loc).tnd_state || eurc_trace (loc).tnd_substate, eurc_trace (loc).tnd_state, 320 eurc_trace (loc).tnd_substate); 321 call ioa_$ioa_switch (sw, "^2.4b^-QUEUE ID=^.4b^-LINK STATUS=^.4b", 322 eurc_trace (loc).queue_id || eurc_trace (loc).link_status, eurc_trace (loc).queue_id, 323 eurc_trace (loc).link_status); 324 call ioa_$ioa_switch (sw, "^2.4b^-IDCW OP CODE^-^2.3b^/^2.4b^-IDCW DEVICE ADDRESS^-^2.3b", 325 eurc_trace (loc).pad5 || eurc_trace (loc).idcw_op, eurc_trace (loc).idcw_op, 326 eurc_trace (loc).pad6 || eurc_trace (loc).idcw_dev, eurc_trace (loc).idcw_dev); 327 call ioa_$ioa_switch (sw, "^2.4b^-IDCW ADDR EXTENSION^-^o^/^2.4b^-IDCW FLAGS^-^6b", 328 eurc_trace (loc).pad7 || eurc_trace (loc).idcw_add_ext, eurc_trace (loc).idcw_add_ext, 329 eurc_trace (loc).pad8 || eurc_trace (loc).idcw_flags, eurc_trace (loc).idcw_flags); 330 call ioa_$ioa_switch (sw, "^2.4b^-IDCW CHAN INSTR^-^2.3b^/^2.4b^-IDCW RECORD TALLY^-^2.3b", 331 eurc_trace (loc).pad9 || eurc_trace (loc).idcw_chan_inst, eurc_trace (loc).idcw_chan_inst, 332 eurc_trace (loc).pad10 || eurc_trace (loc).idcw_rec_tly, eurc_trace (loc).idcw_rec_tly); 333 334 call ioa_$ioa_switch (sw, "----------------------------------------------------------------------------"); 335 end; 336 return; 337 338 trace_mpc_$dau: 339 entry (image_ptr, sw, mpc_datap); 340 341 dcl dau_image (0:127) bit (16) unal based (image_ptr); /* DAU trace table */ 342 dcl dau_image_for_eight (8) bit (16) unal based (eight_ptr); 343 dcl DH (6) bit (16) unal; 344 dcl (hold_idx, poll_rpt_cnt) fixed bin; 345 dcl spec_mess char (80) var; 346 dcl dau_addr fixed bin (8) uns; 347 dcl (eight_ptr, key_ptr) ptr; 348 dcl 1 key unal based (key_ptr), 349 2 F bit (4), 350 2 Index fixed bin (4) uns unal, 351 2 mbz bit (2), 352 2 PSI fixed bin (2) uns unal, 353 2 mbz1 bit (1), 354 2 LC fixed bin (3) uns unal; 355 356 call date_time_ (clock (), dt); /* Get current date and time. */ 357 call ioa_$ioa_switch (sw, "^|^5xTrace of ^a controller.^3x^a^/", mpc_data.name, dt); 358 hold_idx = 0; 359 do loc = 0 to 127; 360 if substr (dau_image (loc), 1, 4) = "f"b4 then do; 361 key_ptr = addr (dau_image (loc)); 362 goto Ftype (key.Index); 363 end; 364 stow_away: 365 if hold_idx > 0 366 then do i = hold_idx to 1 by -1; /* move data down */ 367 DH (i + 1) = DH (i); 368 end; 369 DH (1) = dau_image (loc); /* save data */ 370 hold_idx = hold_idx + 1; /* update index */ 371 next_loc: 372 end; 373 374 call ioa_$ioa_switch (sw, "^/^60(=^)^2/^5xRaw Trace Table Data^/"); 375 376 dau_addr = 0; 377 do loc = 0 to 127 by 8; 378 eight_ptr = addr (dau_image (loc)); 379 call ioa_$ioa_switch (sw, "^10x^2.4b ^8( ^4.4b^)", bit (dau_addr, 8), dau_image_for_eight); 380 if loc ^= 120 then dau_addr = dau_addr + 16; 381 end; 382 383 return; /* All done! */ 384 385 Ftype (0): 386 if key.mbz ^= "0"b | /* Check KEY */ 387 key.mbz1 ^= "0"b 388 then goto stow_away; 389 if hold_idx < 2 then do; /* Not enough! */ 390 if hold_idx = 0 391 then call ioa_$ioa_switch (sw, "(PSI-^d, LC-^d) Initial IDCW Recieved. [BOTH DATA WORDS MISSING!]", 392 key.PSI, key.LC); 393 else call ioa_$ioa_switch (sw, 394 "(PSI-^d, LC-^d) Initial IDCW Recieved. OP Code= ^1.3b^1.3b, Device= ^2.3b [LAST DATA WORD MISSING!]" 395 , key.PSI, key.LC, substr (DH (1), 2, 3), substr (DH (1), 6, 3), substr (DH (1), 11, 6)); 396 hold_idx = 0; 397 goto next_loc; 398 end; 399 call ioa_$ioa_switch (sw, 400 "(PSI-^d, LC-^d) Initial IDCW Recieved. OP Code= ^1.3b^1.3b, Device= ^2.3b^[^[^/^36x^]^[ (Marker)^; (Continue)^; (Continue-Marker)^]^[ (Channel inst.=^2.3b)^]^]" 401 , key.PSI, key.LC, substr (DH (1), 2, 3), substr (DH (1), 6, 3), substr (DH (1), 11, 6), 402 (substr (DH (2), 9, 8) ^= "0"b), (substr (DH (2), 11, 6) ^= "0"b & substr (DH (2), 9, 2) ^= "0"b), 403 fixed (substr (DH (2), 9, 2)), (substr (DH (2), 11, 6) ^= "0"b), substr (DH (2), 11, 6)); 404 hold_idx = 0; 405 goto next_loc; 406 407 Ftype (1): 408 if key.mbz ^= "0"b | /* Check KEY */ 409 key.mbz1 ^= "0"b 410 then goto stow_away; 411 if hold_idx ^= 0 then goto stow_away; /* Should be ZERO */ 412 call ioa_$ioa_switch (sw, "(PSI-^d, LC-^d) Initial IDCW Initiated (from CPW Queue).", key.PSI, key.LC); 413 goto next_loc; 414 415 Ftype (2): 416 if key.mbz ^= "0"b | /* Check KEY */ 417 key.mbz1 ^= "0"b 418 then goto stow_away; 419 if hold_idx < 1 then do; /* Not enough! */ 420 call ioa_$ioa_switch (sw, "(PSI-^d, LC-^d) Seek Command Initiated. [DATA WORD MISSING!]", key.PSI, key.LC); 421 hold_idx = 0; 422 goto next_loc; 423 end; 424 call ioa_$ioa_switch (sw, "(PSI-^d, LC-^d) Seek Command Initiated. Cylinder/Head= ^d/^d", key.PSI, key.LC, 425 fixed (substr (DH (1), 9, 2) || substr (DH (1), 1, 8)), fixed (substr (DH (1), 11, 6))); 426 hold_idx = 0; 427 goto next_loc; 428 429 Ftype (3): 430 if key.mbz ^= "0"b | /* Check KEY */ 431 key.mbz1 ^= "0"b 432 then goto stow_away; 433 if hold_idx < 1 then do; /* Not enough! */ 434 call ioa_$ioa_switch (sw, "(PSI-^d, LC-^d) Continue IDCW Initiated. [DATA WORD MISSING!]", key.PSI, key.LC) 435 ; 436 hold_idx = 0; 437 goto next_loc; 438 end; 439 call ioa_$ioa_switch (sw, 440 "(PSI-^d, LC-^d) Continue IDCW Initiated. OP Code= ^1.3b^1.3b^[^[^/^38x^]^[ (Marker)^; (Continue)^; (Continue-Marker)^]^[ (Channel inst.=^2.3b)^]^]" 441 , key.PSI, key.LC, substr (DH (1), 2, 3), substr (DH (1), 6, 3), (substr (DH (1), 9, 8) ^= "0"b), 442 (substr (DH (1), 11, 6) ^= "0"b & substr (DH (1), 9, 2) ^= "0"b), fixed (substr (DH (1), 9, 2)), 443 (substr (DH (1), 11, 6) ^= "0"b), substr (DH (1), 11, 6)); 444 hold_idx = 0; 445 goto next_loc; 446 447 Ftype (4): 448 if key.mbz ^= "0"b | /* Check KEY */ 449 key.mbz1 ^= "0"b 450 then goto stow_away; 451 if hold_idx < 1 then do; /* Not enough! */ 452 call ioa_$ioa_switch (sw, "(PSI-^d, LC-^d) Read Operation Started. [DATA WORD MISSING!]", key.PSI, key.LC); 453 hold_idx = 0; 454 goto next_loc; 455 end; 456 call ioa_$ioa_switch (sw, "(PSI-^d, LC-^d) Read Operation Started. ^d Record^[^;s^] Transfered.", key.PSI, 457 key.LC, fixed (DH (1)), (fixed (DH (1)) = 1)); 458 hold_idx = 0; 459 goto next_loc; 460 461 Ftype (5): 462 if key.mbz ^= "0"b | /* Check KEY */ 463 key.mbz1 ^= "0"b 464 then goto stow_away; 465 if hold_idx < 1 then do; /* Not enough! */ 466 call ioa_$ioa_switch (sw, "(PSI-^d, LC-^d) Write Operation Started. [DATA WORD MISSING!]", key.PSI, key.LC) 467 ; 468 hold_idx = 0; 469 goto next_loc; 470 end; 471 call ioa_$ioa_switch (sw, "(PSI-^d, LC-^d) Write Operation Started. ^d Record^[^;s^] Transfered.", key.PSI, 472 key.LC, fixed (DH (1)), (fixed (DH (1)) = 1)); 473 hold_idx = 0; 474 goto next_loc; 475 476 Ftype (6): 477 if key.mbz ^= "0"b | /* Check KEY */ 478 key.mbz1 ^= "0"b 479 then goto stow_away; 480 if hold_idx < 1 then do; /* Not enough! */ 481 call ioa_$ioa_switch (sw, "(PSI-^d, LC-^d) Termination Status. [DATA WORD MISSING!]", key.PSI, key.LC); 482 hold_idx = 0; 483 goto next_loc; 484 end; 485 call ioa_$ioa_switch (sw, "(PSI-^d, LC-^d) Termination Status (^1.3b^1.3b/^1.3b^1.3b).", key.PSI, key.LC, 486 substr (DH (1), 2, 3), substr (DH (1), 6, 3), substr (DH (1), 10, 3), substr (DH (1), 14, 3)); 487 hold_idx = 0; 488 goto next_loc; 489 490 Ftype (7): 491 if key.mbz ^= "0"b | /* Check KEY */ 492 key.mbz1 ^= "0"b 493 then goto stow_away; 494 if hold_idx ^= 0 then goto stow_away; /* Should be ZERO */ 495 call ioa_$ioa_switch (sw, "(PSI-^d, LC-^d) Device Released.", key.PSI, key.LC); 496 goto next_loc; 497 498 Ftype (8): 499 Ftype (9): 500 goto stow_away; /* Must be data */ 501 502 Ftype (10): 503 if key.mbz ^= "0"b | key.mbz1 ^= "0"b | /* Check KEY */ 504 key.LC ^= 0 505 then goto stow_away; 506 if hold_idx < 1 then do; /* Not enough! */ 507 call ioa_$ioa_switch (sw, "^4x(PSI-^d)^3xAbort Status. [DATA WORD MISSING!]", key.PSI); 508 hold_idx = 0; 509 goto next_loc; 510 end; 511 call ioa_$ioa_switch (sw, 512 "^4x(PSI-^d)^3xAbort Status (^[Channel/IOM status= ^1.3b/^1.3b^4s^;^2sMaj/Sub status= ^1.3b^1.3b/^1.3b^1.3b^])." 513 , key.PSI, (substr (DH (1), 1, 8) = "0"b), substr (DH (1), 10, 3), substr (DH (1), 14, 3), 514 substr (DH (1), 2, 3), substr (DH (1), 6, 3), substr (DH (1), 10, 3), substr (DH (1), 14, 3)); 515 hold_idx = 0; 516 goto next_loc; 517 518 Ftype (11): 519 if key.mbz ^= "0"b | key.mbz1 ^= "0"b | /* Check KEY */ 520 key.LC ^= 0 521 then goto stow_away; 522 if hold_idx < 1 then do; /* Not enough! */ 523 call ioa_$ioa_switch (sw, "^4x(PSI-^d)^3xIIW Processing Initiated. [DATA WORD MISSING!]", key.PSI); 524 hold_idx = 0; 525 goto next_loc; 526 end; 527 call ioa_$ioa_switch (sw, "^4x(PSI-^d)^3xIIW Processing Initiated. Fault Byte= ^2.4b, Device= ^2.3b", key.PSI, 528 substr (DH (1), 1, 8), substr (DH (1), 11, 6)); 529 hold_idx = 0; 530 goto next_loc; 531 532 Ftype (12): 533 if key.mbz ^= "0"b | key.mbz1 ^= "0"b | /* Check KEY */ 534 key.LC ^= 0 535 then goto stow_away; 536 if hold_idx ^= 0 then goto stow_away; /* Should be ZERO */ 537 call ioa_$ioa_switch (sw, "^4x(PSI-^d)^3xDrop of OPerational In (OPI).", key.PSI); 538 goto next_loc; 539 540 Ftype (13): 541 if key.mbz ^= "0"b | key.mbz1 ^= "0"b | /* Check KEY */ 542 key.LC ^= 0 543 then goto stow_away; 544 if hold_idx < 1 then do; /* Not enough! */ 545 call ioa_$ioa_switch (sw, "^4x(PSI-^d)^3xSpecial Interrupt. [DATA WORD MISSING!]", key.PSI); 546 hold_idx = 0; 547 goto next_loc; 548 end; 549 call ioa_$ioa_switch (sw, "^4x(PSI-^d)^3xSpecial Interrupt. Special Type= ^2.4b, Device= ^2.3b", key.PSI, 550 substr (DH (1), 1, 8), substr (DH (1), 11, 6)); 551 spec_mess = ""; 552 if substr (DH (1), 1, 1) then spec_mess = spec_mess || "Alt Channel in Control, "; 553 if substr (DH (1), 8, 1) then spec_mess = spec_mess || "Disc Powered ON/Suspend, "; 554 if substr (DH (1), 7, 1) then spec_mess = spec_mess || "Device Released, "; 555 if substr (DH (1), 6, 1) then spec_mess = spec_mess || "Disc Powered OFF, "; 556 if spec_mess ^= "" then call ioa_$ioa_switch (sw, "^33x(^a)", substr (spec_mess, 1, length (spec_mess) - 2)); 557 hold_idx = 0; 558 goto next_loc; 559 560 Ftype (14): 561 if key.mbz ^= "0"b | key.mbz1 ^= "0"b | /* Check KEY */ 562 key.LC ^= 0 563 then goto stow_away; 564 if hold_idx < 5 then do; /* Not enough! */ 565 if hold_idx = 0 566 then call ioa_$ioa_switch (sw, "^4x(PSI-^d)^3xHardware Interrupt. [ALL FIVE DATA WORDS MISSING!]", key.PSI) 567 ; 568 else if hold_idx = 1 569 then call ioa_$ioa_switch (sw, 570 "^4x(PSI-^d)^3xHardware Interrupt. Instruction PTR= ^4.4b. [FOUR DATA WORDS MISSING!]", key.PSI, 571 DH (1)); 572 else if hold_idx = 2 573 then call ioa_$ioa_switch (sw, 574 "^4x(PSI-^d)^3xHardware Interrupt. Instruction PTR= ^4.4b, OP Code= ^1.3b^1.3b, Device= ^2.3b. [THREE DATA WORDS MISSING!]" 575 , key.PSI, DH (1), substr (DH (2), 2, 3), substr (DH (2), 6, 3), substr (DH (2), 11, 6)); 576 else if hold_idx = 3 then do; 577 call ioa_$ioa_switch (sw, 578 "^4x(PSI-^d)^3xHardware Interrupt. Instruction PTR= ^4.4b, OP Code= ^1.3b^1.3b, Device= ^2.3b", 579 key.PSI, DH (1), substr (DH (2), 2, 3), substr (DH (2), 6, 3), substr (DH (2), 11, 6)); 580 call ioa_$ioa_switch (sw, "^35xci_status= ^2.4b, psi_status= ^2.4b. [TWO DATA WORDS MISSING!]", 581 substr (DH (3), 1, 8), substr (DH (3), 9, 8)); 582 end; 583 else do; 584 call ioa_$ioa_switch (sw, 585 "^4x(PSI-^d)^3xHardware Interrupt. Instruction PTR= ^4.4b, OP Code= ^1.3b^1.3b, Device= ^2.3b", 586 key.PSI, DH (1), substr (DH (2), 2, 3), substr (DH (2), 6, 3), substr (DH (2), 11, 6)); 587 call ioa_$ioa_switch (sw, "^35xci_status= ^2.4b, psi_status= ^2.4b, seq_status= ^2.4b", 588 substr (DH (3), 1, 8), substr (DH (3), 9, 8), substr (DH (4), 1, 8)); 589 call ioa_$ioa_switch (sw, "^35xseq_s1= ^2.4b. [LAST DATA WORD MISSING!]", substr (DH (4), 9, 8)); 590 end; 591 hold_idx = 0; 592 goto next_loc; 593 end; 594 call ioa_$ioa_switch (sw, 595 "^4x(PSI-^d)^3xHardware Interrupt. Instruction PTR= ^4.4b, OP Code= ^1.3b^1.3b, Device= ^2.3b", key.PSI, 596 DH (1), substr (DH (2), 2, 3), substr (DH (2), 6, 3), substr (DH (2), 11, 6)); 597 call ioa_$ioa_switch (sw, "^35xci_status= ^2.4b, psi_status= ^2.4b, seq_status= ^2.4b", substr (DH (3), 1, 8), 598 substr (DH (3), 9, 8), substr (DH (4), 1, 8)); 599 call ioa_$ioa_switch (sw, "^35xseq_s1= ^2.4b, buf_status= ^2.4b, mp_status= ^2.4b", substr (DH (4), 9, 8), 600 substr (DH (5), 1, 8), substr (DH (5), 9, 8)); 601 hold_idx = 0; 602 goto next_loc; 603 604 Ftype (15): 605 if hold_idx ^= 0 then do; /* Should be ZERO */ 606 if hold_idx = 1 & DH (1) = ""b 607 then hold_idx = 0; /* ignore */ 608 else goto stow_away; /* save */ 609 end; 610 if substr (dau_image (loc), 9, 8) = "ff"b4 then do; 611 poll_rpt_cnt = 0; 612 do loc = loc to 126 while (dau_image (loc + 1) = "ffff"b4); 613 /* count multiples */ 614 poll_rpt_cnt = poll_rpt_cnt + 1; 615 end; 616 call ioa_$ioa_switch (sw, "^4x-------^3x***** DAU Initialization *****^[ (Repeats ^d time^[s^])^]", 617 (poll_rpt_cnt ^= 0), poll_rpt_cnt, (poll_rpt_cnt > 1)); 618 goto next_loc; 619 end; 620 if dau_image (loc) ^= "fffe"b4 then goto stow_away; 621 /* must be data */ 622 poll_rpt_cnt = 0; 623 do loc = loc to 126 while (dau_image (loc + 1) = "fffe"b4); 624 /* count multiples */ 625 poll_rpt_cnt = poll_rpt_cnt + 1; 626 end; 627 call ioa_$ioa_switch (sw, "^4x-------^3xDevice Polling^[ (Repeats ^d time^[s^])^]", (poll_rpt_cnt ^= 0), 628 poll_rpt_cnt, (poll_rpt_cnt > 1)); 629 goto next_loc; 630 1 1 /* Begin include file ..... dump_mpc_data.incl.pl1 */ 1 2 1 3 /* Structure of data used by the dump_mpc command */ 1 4 1 5 /* Written March 1977 by Larry Johnson */ 1 6 /* Modified Jan 1981 by Rich Coppola to add additional info about mpc's */ 1 7 /* Modified May 1982 by Rich Coppola to add structure for EURC statistics */ 1 8 /* 1 9* Modified June 1984 by Paul Farley to add MSP800(DAU) support. 1 10**/ 1 11 1 12 dcl mpc_datap ptr; 1 13 1 14 dcl 1 mpc_data aligned based (mpc_datap), 1 15 2 type char (4), /* Type of mpc: tape, disk, or urc */ 1 16 2 name char (32), /* Name of device, suitable for headings */ 1 17 2 model fixed bin, /* Model of device, from rcp_ */ 1 18 2 fw_rev char (2), /* Revision level of current firmware */ 1 19 2 trace_start fixed bin, /* Address of first trace table entry */ 1 20 2 trace_size fixed bin, /* Total number of mpc words in trace table */ 1 21 2 trace_cur fixed bin, /* Address of next available trace entry */ 1 22 2 mpc_stat_addr fixed bin, /* Address of mpc error counters */ 1 23 2 mpc_err_int_ctr_addr fixed bin, /* Address of the err int ctr */ 1 24 2 mpc_err_data_reg_addr fixed bin, /* Address of error data register */ 1 25 2 dev_stat_addr fixed bin, /* Address of device statistics table */ 1 26 2 config_sw bit (16), /* Settings of switches on maintaince panel */ 1 27 2 dau_rev bit (8); /* Revision of DAU hardware */ 1 28 1 29 1 30 /* structure of data collected on mpc statistics */ 1 31 1 32 dcl mpc_stat_infop ptr; 1 33 1 34 dcl 1 mpc_stat_info aligned based (mpc_stat_infop), 1 35 2 mpc_name char (4), 1 36 2 stat_counters (12) fixed bin, 1 37 2 error_data, 1 38 3 pad bit (8), 1 39 3 int_counter fixed bin (8) uns, 1 40 3 register bit (16), 1 41 3 auxar bit (16), 1 42 3 intar bit (16), 1 43 2 eurc_data, 1 44 3 uptime_clock fixed bin (32) uns, 1 45 3 prom_revision, 1 46 4 core bit (8), 1 47 4 iom bit (8), 1 48 4 special_controller bit (8), 1 49 4 link_edit bit (8), 1 50 4 pdsi_application bit (8), 1 51 4 self_test bit (8), 1 52 4 dai_application bit (8), 1 53 2 ndev fixed bin, 1 54 2 dev_info (64) like dev_stat_info; 1 55 1 56 dcl dev_stat_infop ptr; 1 57 1 58 dcl 1 dev_stat_info aligned based (dev_stat_infop), 1 59 2 subsystem char (4), 1 60 2 model char (6), 1 61 2 driveno fixed bin, 1 62 2 opi bit (1), 1 63 2 port fixed bin, 1 64 2 ca fixed bin, 1 65 2 stat (16) fixed bin (16) uns; 1 66 1 67 dcl mpc_stat_analp ptr; 1 68 1 69 dcl 1 mpc_stat_anal based (mpc_stat_analp), 1 70 2 num_interps fixed bin, 1 71 2 interpretation (16), 1 72 3 message char (43) var, 1 73 3 HINT char (21) var, 1 74 2 auxar bit (16), 1 75 2 intar bit (16), 1 76 2 err_ctr fixed bin, 1 77 2 mpc_stat_ctrs, 1 78 3 num_ctr_interps fixed bin, 1 79 3 interp_stat_ctrs (20) char (20) var, 1 80 3 stat_cntr_cnt (20) fixed bin; 1 81 1 82 /* End include file ..... dump_mpc_data.incl.pl1 */ 631 632 633 634 end trace_mpc_; SOURCE FILES USED IN THIS COMPILATION. LINE NUMBER DATE MODIFIED NAME PATHNAME 0 01/03/85 1428.8 trace_mpc_.pl1 >spec>online>6929.pbf>trace_mpc_.pl1 631 1 10/08/84 1326.0 dump_mpc_data.incl.pl1 >ldd>include>dump_mpc_data.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. DH 000126 automatic bit(16) array unaligned dcl 343 set ref 367* 367 369* 393 393 393 393 393 393 399 399 399 399 399 399 399 399 399 399 399 399 399 399 424 424 424 424 424 424 439 439 439 439 439 439 439 439 439 439 439 439 456 456 456 471 471 471 485 485 485 485 485 485 485 485 511 511 511 511 511 511 511 511 511 511 511 511 511 527 527 527 527 549 549 549 549 552 553 554 555 568* 572* 572 572 572 572 572 572 577* 577 577 577 577 577 577 580 580 580 580 584* 584 584 584 584 584 584 587 587 587 587 587 587 589 589 594* 594 594 594 594 594 594 597 597 597 597 597 597 599 599 599 599 599 599 606 Index 0(04) based fixed bin(4,0) level 2 packed unsigned unaligned dcl 348 ref 362 LC 0(13) based fixed bin(3,0) level 2 packed unsigned unaligned dcl 348 set ref 390* 393* 399* 412* 420* 424* 434* 439* 452* 456* 466* 471* 481* 485* 495* 502 518 532 540 560 LCN 0(06) based bit(2) array level 2 packed unaligned dcl 65 set ref 298 298* PSI 0(10) based fixed bin(2,0) level 2 packed unsigned unaligned dcl 348 set ref 390* 393* 399* 412* 420* 424* 434* 439* 452* 456* 466* 471* 481* 485* 495* 507* 511* 523* 527* 537* 545* 549* 565* 568* 572* 577* 584* 594* STR 000115 automatic varying char(25) initial dcl 106 set ref 106* 197* 198 199* 201* 212* 213 214* 216* 257* 258 259* 262* a 0(01) based bit(7) level 2 packed unaligned dcl 42 set ref 238 238 238 238 238 238 244 244 251 251 251 251 251 251 259 262* 272 272 272 272 272 272 272 272 addr builtin function dcl 108 ref 126 361 378 b 0(10) based bit(6) level 2 packed unaligned dcl 42 set ref 190 201* 210 216* 220* 225* 230* 238* 244* 251* 262* 272* 279 279 bin builtin function dcl 108 ref 173 298 bit builtin function dcl 108 ref 379 379 card_state 1(04) based bit(4) array level 2 packed unaligned dcl 65 set ref 309 309* card_substate 1(08) based bit(4) array level 2 packed unaligned dcl 65 set ref 309 309* chan_status 0(34) based bit(6) array level 2 packed unaligned dcl 65 set ref 307 307* clock builtin function dcl 108 ref 128 128 292 292 356 356 code 0(02) based bit(6) level 2 packed unaligned dcl 50 set ref 159* 163* 167 167 167 167 167 167 173 173 173 command 0(17) based bit(3) array level 2 packed unaligned dcl 65 set ref 302 302* date_time_ 000012 constant entry external dcl 104 ref 128 292 356 dau_addr 000160 automatic fixed bin(8,0) unsigned dcl 346 set ref 376* 379 379 380* 380 dau_image based bit(16) array unaligned dcl 341 set ref 360 361 369 378 610 612 620 623 dau_image_for_eight based bit(16) array unaligned dcl 342 set ref 379* dev_stat_info based structure level 1 dcl 1-58 device 0(08) based bit(4) level 2 packed unaligned dcl 50 set ref 159* 163* 167* 173* dt 000106 automatic char(24) unaligned dcl 36 set ref 128* 132* 292* 293* 356* 357* eight_ptr 000162 automatic pointer dcl 347 set ref 378* 379 eurc_module 000020 constant varying char(15) initial array dcl 121 set ref 298* eurc_trace based structure array level 1 packed unaligned dcl 65 eurc_trace_ptr 000102 automatic pointer dcl 36 set ref 295* 298 298 298 298 298 301 301 302 302 302 302 302 305 305 305 307 307 307 309 309 309 309 312 312 312 312 315 315 315 315 318 318 318 318 321 321 321 321 324 324 324 324 324 324 327 327 327 327 327 327 330 330 330 330 330 330 fixed builtin function dcl 108 ref 399 399 424 424 424 424 439 439 456 456 456 471 471 471 fw_rev 12 based char(2) level 2 dcl 1-14 set ref 132* hold_idx 000131 automatic fixed bin(17,0) dcl 344 set ref 358* 364 364 370* 370 389 390 396* 404* 411 419 421* 426* 433 436* 444* 451 453* 458* 465 468* 473* 480 482* 487* 494 506 508* 515* 522 524* 529* 536 544 546* 557* 564 565 568 572 576 591* 601* 604 606 606* i 000125 automatic fixed bin(17,0) dcl 107 set ref 198* 199 199* 213* 214 214* 258* 259 259* 364* 367 367* idcw_add_ext 2(26) based bit(6) array level 2 packed unaligned dcl 65 set ref 327 327* idcw_chan_inst 3(06) based bit(6) array level 2 packed unaligned dcl 65 set ref 330 330* idcw_dev 2(18) based bit(6) array level 2 packed unaligned dcl 65 set ref 324 324* idcw_flags 2(34) based bit(6) array level 2 packed unaligned dcl 65 set ref 327 327* idcw_op 2(10) based bit(6) array level 2 packed unaligned dcl 65 set ref 324 324* idcw_rec_tly 3(14) based bit(6) array level 2 packed unaligned dcl 65 set ref 330 330* image based bit(16) array unaligned dcl 33 ref 142 image_ptr parameter pointer dcl 32 ref 29 142 289 295 338 360 361 369 378 610 612 620 623 ioa_$ioa_switch 000010 constant entry external dcl 103 ref 132 138 146 151 155 157 159 163 167 173 184 190 201 216 220 225 230 238 244 251 262 267 272 279 293 298 301 302 305 307 309 312 315 318 321 324 327 330 334 357 374 379 390 393 399 412 420 424 434 439 452 456 466 471 481 485 495 507 511 523 527 537 545 549 556 565 568 572 577 580 584 587 589 594 597 599 616 627 iom_state 1(20) based bit(4) array level 2 packed unaligned dcl 65 set ref 315 315* iom_substate 1(24) based bit(4) array level 2 packed unaligned dcl 65 set ref 315 315* key based structure level 1 packed unaligned dcl 348 key_ptr 000164 automatic pointer dcl 347 set ref 361* 362 385 385 390 390 393 393 399 399 407 407 412 412 415 415 420 420 424 424 429 429 434 434 439 439 447 447 452 452 456 456 461 461 466 466 471 471 476 476 481 481 485 485 490 490 495 495 502 502 502 507 511 518 518 518 523 527 532 532 532 537 540 540 540 545 549 560 560 560 565 568 572 577 584 594 length builtin function dcl 108 ref 556 556 link_status 2(04) based bit(4) array level 2 packed unaligned dcl 65 set ref 321 321* loc 000105 automatic fixed bin(16,0) dcl 36 set ref 136* 138 142* 297* 298 298 298 298 298 301 301 302 302 302 302 302 305 305 305 307 307 307 309 309 309 309 312 312 312 312 315 315 315 315 318 318 318 318 321 321 321 321 324 324 324 324 324 324 327 327 327 327 327 327 330 330 330 330 330 330* 359* 360 361 369* 377* 378 380* 610 612* 612 612* 620 623* 623 623* major_status 0(20) based bit(4) array level 2 packed unaligned dcl 65 ref 302 302 mbz 0(08) based bit(2) level 2 packed unaligned dcl 348 ref 385 407 415 429 447 461 476 490 502 518 532 540 560 mbz1 0(12) based bit(1) level 2 packed unaligned dcl 348 ref 385 407 415 429 447 461 476 490 502 518 532 540 560 minor_status 0(26) based bit(6) array level 2 packed unaligned dcl 65 set ref 305 305* model 11 based fixed bin(17,0) level 2 dcl 1-14 ref 181 module based bit(4) array level 2 packed unaligned dcl 65 ref 298 298 mpc_data based structure level 1 dcl 1-14 mpc_datap parameter pointer dcl 1-12 ref 29 130 132 132 136 136 136 138 150 181 181 256 279 289 293 338 357 mth_spec_type 000460 constant varying char(15) initial array dcl 110 ref 199 214 259 mword based structure level 1 dcl 42 name 1 based char(32) level 2 dcl 1-14 set ref 132* 293* 357* opic 0(12) based bit(4) level 2 packed unaligned dcl 58 set ref 151* 151* p 000100 automatic pointer dcl 36 set ref 126* 151 151 151 155 157 159 159 159 163 163 163 167 167 167 167 167 167 167 167 173 173 173 173 173 183 184 189 190 201 210 210 216 220 220 225 225 230 230 238 238 238 238 238 238 238 238 244 244 244 244 251 251 251 251 251 251 251 251 255 259 262 262 272 272 272 272 272 272 272 272 272 279 279 279 pad1 0(04) based bit(2) array level 2 packed unaligned dcl 65 ref 298 pad10 3(12) based bit(2) array level 2 packed unaligned dcl 65 ref 330 pad2 0(16) based bit(1) array level 2 packed unaligned dcl 65 ref 302 pad3 0(24) based bit(2) array level 2 packed unaligned dcl 65 ref 305 pad4 0(32) based bit(2) array level 2 packed unaligned dcl 65 ref 307 pad5 2(08) based bit(2) array level 2 packed unaligned dcl 65 ref 324 pad6 2(16) based bit(2) array level 2 packed unaligned dcl 65 ref 324 pad7 2(24) based bit(2) array level 2 packed unaligned dcl 65 ref 327 pad8 2(32) based bit(2) array level 2 packed unaligned dcl 65 ref 327 pad9 3(04) based bit(2) array level 2 packed unaligned dcl 65 ref 330 poll_rpt_cnt 000132 automatic fixed bin(17,0) dcl 344 set ref 611* 614* 614 616 616* 616 622* 625* 625 627 627* 627 print_state 1(12) based bit(4) array level 2 packed unaligned dcl 65 set ref 312 312* print_substate 1(16) based bit(4) array level 2 packed unaligned dcl 65 set ref 312 312* queue_id 2 based bit(4) array level 2 packed unaligned dcl 65 set ref 321 321* reason 0(08) based bit(8) array level 2 packed unaligned dcl 65 set ref 301* 301* spec_mess 000133 automatic varying char(80) dcl 345 set ref 551* 552* 552 553* 553 554* 554 555* 555 556 556 556 556 556 spec_uword based structure level 1 dcl 58 st based bit(1) level 2 packed unaligned dcl 42 ref 183 238 substr builtin function dcl 108 ref 130 167 167 167 167 167 167 173 173 173 181 184 184 184 184 184 184 184 184 190 190 190 190 190 190 190 190 190 190 199 201 201 214 216 216 220 220 220 220 220 220 225 225 230 230 230 230 230 230 230 238 238 238 238 238 238 238 244 244 251 251 251 251 251 251 256 259 267 267 272 272 272 272 272 272 272 272 279 279 279 360 393 393 393 393 393 393 399 399 399 399 399 399 399 399 399 399 399 399 399 399 424 424 424 424 424 424 439 439 439 439 439 439 439 439 439 439 439 439 485 485 485 485 485 485 485 485 511 511 511 511 511 511 511 511 511 511 511 511 511 527 527 527 527 549 549 549 549 552 553 554 555 556 556 572 572 572 572 572 572 577 577 577 577 577 577 580 580 580 580 584 584 584 584 584 584 587 587 587 587 587 587 589 589 594 594 594 594 594 594 597 597 597 597 597 597 599 599 599 599 599 599 610 sw parameter pointer dcl 34 set ref 29 132* 138* 146* 151* 155* 157* 159* 163* 167* 173* 184* 190* 201* 216* 220* 225* 230* 238* 244* 251* 262* 267* 272* 279* 289 293* 298* 301* 302* 305* 307* 309* 312* 315* 318* 321* 324* 327* 330* 334* 338 357* 374* 379* 390* 393* 399* 412* 420* 424* 434* 439* 452* 456* 466* 471* 481* 485* 495* 507* 511* 523* 527* 537* 545* 549* 556* 565* 568* 572* 577* 580* 584* 587* 589* 594* 597* 599* 616* 627* tnd_state 1(28) based bit(4) array level 2 packed unaligned dcl 65 set ref 318 318* tnd_substate 1(32) based bit(4) array level 2 packed unaligned dcl 65 set ref 318 318* trace_cur 15 based fixed bin(17,0) level 2 dcl 1-14 ref 138 trace_size 14 based fixed bin(17,0) level 2 dcl 1-14 ref 136 trace_start 13 based fixed bin(17,0) level 2 dcl 1-14 ref 136 136 type based char(4) level 2 in structure "mpc_data" dcl 1-14 in procedure "trace_mpc_" ref 130 150 181 256 279 type based bit(2) level 2 in structure "uword" packed unaligned dcl 50 in procedure "trace_mpc_" ref 159 163 167 173 type based bit(8) level 2 in structure "spec_uword" packed unaligned dcl 58 in procedure "trace_mpc_" ref 151 155 157 type 0(08) based bit(2) level 2 in structure "mword" packed unaligned dcl 42 in procedure "trace_mpc_" ref 184 189 210 220 225 230 244 251 255 279 urc_svc_codes 000140 constant varying char(45) initial array dcl 114 set ref 173* urp_sw 000114 automatic bit(1) initial unaligned dcl 105 set ref 105* 130* 132 uword based structure level 1 dcl 50 word 000104 automatic bit(16) dcl 36 set ref 126 142* 143 145 151* 155* 157* 159* 163* 167* 173* 184* 184 184 184 184 184 184 184 184 190* 190 190 190 190 190 190 190 190 190 190 199 201* 201 201 214 216* 216 216 220* 220 220 220 220 220 220 225* 225 225 230* 230 230 230 230 230 230 230 238* 238 244* 251* 262* 267 267* 267 272* 279* NAMES DECLARED BY DECLARE STATEMENT AND NEVER REFERENCED. dev_stat_infop automatic pointer dcl 1-56 mpc_stat_anal based structure level 1 unaligned dcl 1-69 mpc_stat_analp automatic pointer dcl 1-67 mpc_stat_info based structure level 1 dcl 1-34 mpc_stat_infop automatic pointer dcl 1-32 NAMES DECLARED BY EXPLICIT CONTEXT. Ftype 000000 constant label array(0:15) dcl 385 ref 362 next_loc 006527 constant label dcl 371 ref 397 405 413 422 427 437 445 454 459 469 474 483 488 496 509 516 525 530 538 547 558 592 602 618 629 skip_zeroes 005110 constant label dcl 285 ref 143 147 177 236 stow_away 006501 constant label dcl 364 ref 385 407 411 415 429 447 461 476 490 494 498 502 518 532 536 540 560 606 620 trace_mpc_ 002671 constant entry external dcl 29 trace_mpc_$dau 006372 constant entry external dcl 338 trace_mpc_$eurc 005115 constant entry external dcl 289 THERE WERE NO NAMES DECLARED BY CONTEXT OR IMPLICATION. STORAGE REQUIREMENTS FOR THIS PROGRAM. Object Text Link Symbol Defs Static Start 0 0 12260 12274 12167 12270 Length 12544 12167 14 233 71 0 BLOCK NAME STACK SIZE TYPE WHY NONQUICK/WHO SHARES STACK FRAME trace_mpc_ 360 external procedure is an external procedure. STORAGE FOR AUTOMATIC VARIABLES. STACK FRAME LOC IDENTIFIER BLOCK NAME trace_mpc_ 000100 p trace_mpc_ 000102 eurc_trace_ptr trace_mpc_ 000104 word trace_mpc_ 000105 loc trace_mpc_ 000106 dt trace_mpc_ 000114 urp_sw trace_mpc_ 000115 STR trace_mpc_ 000125 i trace_mpc_ 000126 DH trace_mpc_ 000131 hold_idx trace_mpc_ 000132 poll_rpt_cnt trace_mpc_ 000133 spec_mess trace_mpc_ 000160 dau_addr trace_mpc_ 000162 eight_ptr trace_mpc_ 000164 key_ptr trace_mpc_ THE FOLLOWING EXTERNAL OPERATORS ARE USED BY THIS PROGRAM. r_g_a r_e_as r_ne_as alloc_cs call_ext_out_desc return shorten_stack ext_entry clock THE FOLLOWING EXTERNAL ENTRIES ARE CALLED BY THIS PROGRAM. date_time_ ioa_$ioa_switch NO EXTERNAL VARIABLES ARE USED BY THIS PROGRAM. CONSTANTS 000020 aa 000000000004 000021 aa 103 117 122 105 CORE 000022 aa 040 040 040 040 000023 aa 040 040 040 040 000024 aa 040 040 040 000 000025 aa 000000000011 000026 aa 125 116 104 105 UNDE 000027 aa 106 111 116 105 FINE 000030 aa 104 040 040 040 D 000031 aa 040 040 040 000 000032 aa 000000000004 000033 aa 120 122 065 064 PR54 000034 aa 040 040 040 040 000035 aa 040 040 040 040 000036 aa 040 040 040 000 000037 aa 000000000004 000040 aa 103 101 122 104 CARD 000041 aa 040 040 040 040 000042 aa 040 040 040 040 000043 aa 040 040 040 000 000044 aa 000000000003 000045 aa 111 117 115 040 IOM 000046 aa 040 040 040 040 000047 aa 040 040 040 040 000050 aa 040 040 040 000 000051 aa 000000000004 000052 aa 120 122 067 061 PR71 000053 aa 040 040 040 040 000054 aa 040 040 040 040 000055 aa 040 040 040 000 000056 aa 000000000004 000057 aa 120 122 065 064 PR54 000060 aa 040 040 040 040 000061 aa 040 040 040 040 000062 aa 040 040 040 000 000063 aa 000000000011 000064 aa 125 116 104 105 UNDE 000065 aa 106 111 116 105 FINE 000066 aa 104 040 040 040 D 000067 aa 040 040 040 000 000070 aa 000000000004 000071 aa 114 111 116 113 LINK 000072 aa 040 040 040 040 000073 aa 040 040 040 040 000074 aa 040 040 040 000 000075 aa 000000000011 000076 aa 125 116 104 105 UNDE 000077 aa 106 111 116 105 FINE 000100 aa 104 040 040 040 D 000101 aa 040 040 040 000 000102 aa 000000000011 000103 aa 125 116 104 105 UNDE 000104 aa 106 111 116 105 FINE 000105 aa 104 040 040 040 D 000106 aa 040 040 040 000 000107 aa 000000000011 000110 aa 125 116 104 105 UNDE 000111 aa 106 111 116 105 FINE 000112 aa 104 040 040 040 D 000113 aa 040 040 040 000 000114 aa 000000000011 000115 aa 125 116 104 105 UNDE 000116 aa 106 111 116 105 FINE 000117 aa 104 040 040 040 D 000120 aa 040 040 040 000 000121 aa 000000000003 000122 aa 123 103 103 040 SCC 000123 aa 040 040 040 040 000124 aa 040 040 040 040 000125 aa 040 040 040 000 000126 aa 000000000016 000127 aa 106 111 122 115 FIRM 000130 aa 127 101 122 105 WARE 000131 aa 040 105 122 122 ERR 000132 aa 117 122 040 000 OR 000133 aa 000000000011 000134 aa 125 116 104 105 UNDE 000135 aa 106 111 116 105 FINE 000136 aa 104 040 040 040 D 000137 aa 040 040 040 000 000140 aa 000000000034 000141 aa 120 122 124 040 PRT 000142 aa 127 105 116 124 WENT 000143 aa 040 106 122 117 FRO 000144 aa 115 040 110 101 M HA 000145 aa 114 124 040 124 LT T 000146 aa 117 040 122 105 O RE 000147 aa 101 104 131 056 ADY. 000150 aa 040 040 040 040 000151 aa 040 040 040 040 000152 aa 040 040 040 040 000153 aa 040 040 040 040 000154 aa 040 000 000 000 000155 aa 000000000040 000156 aa 120 122 111 116 PRIN 000157 aa 124 040 117 116 T ON 000160 aa 105 040 114 111 E LI 000161 aa 116 105 040 117 NE O 000162 aa 122 040 103 122 R CR 000163 aa 132 057 103 120 Z/CP 000164 aa 132 040 122 105 Z RE 000165 aa 101 104 131 056 ADY. 000166 aa 040 040 040 040 000167 aa 040 040 040 040 000170 aa 040 040 040 040 000171 aa 040 000 000 000 000172 aa 000000000047 000173 aa 106 127 104 040 FWD 000174 aa 123 120 101 103 SPAC 000175 aa 105 040 117 116 E ON 000176 aa 105 040 114 111 E LI 000177 aa 116 105 040 117 NE O 000200 aa 122 040 103 122 R CR 000201 aa 132 057 103 120 Z/CP 000202 aa 132 040 122 105 Z RE 000203 aa 114 105 101 123 LEAS 000204 aa 105 104 056 040 ED. 000205 aa 040 040 040 040 000206 aa 040 000 000 000 000207 aa 000000000023 000210 aa 106 127 104 040 FWD 000211 aa 123 120 101 103 SPAC 000212 aa 105 040 124 117 E TO 000213 aa 040 124 056 117 T.O 000214 aa 056 120 056 040 .P. 000215 aa 040 040 040 040 000216 aa 040 040 040 040 000217 aa 040 040 040 040 000220 aa 040 040 040 040 000221 aa 040 040 040 040 000222 aa 040 040 040 040 000223 aa 040 000 000 000 000224 aa 000000000015 000225 aa 111 116 126 101 INVA 000226 aa 114 111 104 040 LID 000227 aa 114 111 116 105 LINE 000230 aa 056 040 040 040 . 000231 aa 040 040 040 040 000232 aa 040 040 040 040 000233 aa 040 040 040 040 000234 aa 040 040 040 040 000235 aa 040 040 040 040 000236 aa 040 040 040 040 000237 aa 040 040 040 040 000240 aa 040 000 000 000 000241 aa 000000000034 000242 aa 117 120 105 122 OPER 000243 aa 101 124 117 122 ATOR 000244 aa 040 113 111 114 KIL 000245 aa 114 105 104 040 LED 000246 aa 124 110 111 123 THIS 000247 aa 040 122 105 120 REP 000250 aa 117 122 124 056 ORT. 000251 aa 040 040 040 040 000252 aa 040 040 040 040 000253 aa 040 040 040 040 000254 aa 040 040 040 040 000255 aa 040 000 000 000 000256 aa 000000000032 000257 aa 102 101 103 113 BACK 000260 aa 125 120 040 117 UP O 000261 aa 116 105 040 114 NE L 000262 aa 111 116 105 040 INE 000263 aa 046 040 122 105 & RE 000264 aa 120 122 111 116 PRIN 000265 aa 124 056 040 040 T. 000266 aa 040 040 040 040 000267 aa 040 040 040 040 000270 aa 040 040 040 040 000271 aa 040 040 040 040 000272 aa 040 000 000 000 000273 aa 000000000032 000274 aa 102 101 103 113 BACK 000275 aa 125 120 040 117 UP O 000276 aa 116 105 040 120 NE P 000277 aa 101 107 105 040 AGE 000300 aa 046 040 122 105 & RE 000301 aa 120 122 111 116 PRIN 000302 aa 124 056 040 040 T. 000303 aa 040 040 040 040 000304 aa 040 040 040 040 000305 aa 040 040 040 040 000306 aa 040 040 040 040 000307 aa 040 000 000 000 000310 aa 000000000011 000311 aa 125 116 104 105 UNDE 000312 aa 106 111 116 105 FINE 000313 aa 104 040 040 040 D 000314 aa 040 040 040 040 000315 aa 040 040 040 040 000316 aa 040 040 040 040 000317 aa 040 040 040 040 000320 aa 040 040 040 040 000321 aa 040 040 040 040 000322 aa 040 040 040 040 000323 aa 040 040 040 040 000324 aa 040 000 000 000 000325 aa 000000000011 000326 aa 125 116 104 105 UNDE 000327 aa 106 111 116 105 FINE 000330 aa 104 040 040 040 D 000331 aa 040 040 040 040 000332 aa 040 040 040 040 000333 aa 040 040 040 040 000334 aa 040 040 040 040 000335 aa 040 040 040 040 000336 aa 040 040 040 040 000337 aa 040 040 040 040 000340 aa 040 040 040 040 000341 aa 040 000 000 000 000342 aa 000000000011 000343 aa 125 116 104 105 UNDE 000344 aa 106 111 116 105 FINE 000345 aa 104 040 040 040 D 000346 aa 040 040 040 040 000347 aa 040 040 040 040 000350 aa 040 040 040 040 000351 aa 040 040 040 040 000352 aa 040 040 040 040 000353 aa 040 040 040 040 000354 aa 040 040 040 040 000355 aa 040 040 040 040 000356 aa 040 000 000 000 000357 aa 000000000011 000360 aa 125 116 104 105 UNDE 000361 aa 106 111 116 105 FINE 000362 aa 104 040 040 040 D 000363 aa 040 040 040 040 000364 aa 040 040 040 040 000365 aa 040 040 040 040 000366 aa 040 040 040 040 000367 aa 040 040 040 040 000370 aa 040 040 040 040 000371 aa 040 040 040 040 000372 aa 040 040 040 040 000373 aa 040 000 000 000 000374 aa 000000000011 000375 aa 125 116 104 105 UNDE 000376 aa 106 111 116 105 FINE 000377 aa 104 040 040 040 D 000400 aa 040 040 040 040 000401 aa 040 040 040 040 000402 aa 040 040 040 040 000403 aa 040 040 040 040 000404 aa 040 040 040 040 000405 aa 040 040 040 040 000406 aa 040 040 040 040 000407 aa 040 040 040 040 000410 aa 040 000 000 000 000411 aa 000000000037 000412 aa 124 105 122 115 TERM 000413 aa 111 116 101 124 INAT 000414 aa 105 040 124 110 E TH 000415 aa 111 123 040 103 IS C 000416 aa 110 101 116 116 HANN 000417 aa 105 114 040 120 EL P 000420 aa 122 117 107 122 ROGR 000421 aa 101 115 056 040 AM. 000422 aa 040 040 040 040 000423 aa 040 040 040 040 000424 aa 040 040 040 040 000425 aa 040 000 000 000 000426 aa 000000000011 000427 aa 125 116 104 105 UNDE 000430 aa 106 111 116 105 FINE 000431 aa 104 040 040 040 D 000432 aa 040 040 040 040 000433 aa 040 040 040 040 000434 aa 040 040 040 040 000435 aa 040 040 040 040 000436 aa 040 040 040 040 000437 aa 040 040 040 040 000440 aa 040 040 040 040 000441 aa 040 040 040 040 000442 aa 040 000 000 000 000443 aa 000000000011 000444 aa 125 116 104 105 UNDE 000445 aa 106 111 116 105 FINE 000446 aa 104 040 040 040 D 000447 aa 040 040 040 040 000450 aa 040 040 040 040 000451 aa 040 040 040 040 000452 aa 040 040 040 040 000453 aa 040 040 040 040 000454 aa 040 040 040 040 000455 aa 040 040 040 040 000456 aa 040 040 040 040 000457 aa 040 000 000 000 000460 aa 000000000017 000461 aa 122 105 127 111 REWI 000462 aa 116 104 040 103 ND C 000463 aa 117 115 120 114 OMPL 000464 aa 105 124 105 000 ETE 000465 aa 000000000017 000466 aa 125 116 114 117 UNLO 000467 aa 101 104 040 103 AD C 000470 aa 117 115 120 114 OMPL 000471 aa 105 124 105 000 ETE 000472 aa 000000000011 000473 aa 115 124 110 040 MTH 000474 aa 122 105 101 104 READ 000475 aa 131 040 040 040 Y 000476 aa 040 040 040 000 000477 aa 000000000016 000500 aa 115 124 110 040 MTH 000501 aa 151 156 040 123 in S 000502 aa 124 101 116 104 TAND 000503 aa 102 131 040 000 BY 000504 aa 000000000016 000505 aa 123 124 101 116 STAN 000506 aa 104 102 131 040 DBY 000507 aa 114 117 101 104 LOAD 000510 aa 105 104 040 000 ED 000511 aa 000000000010 000512 aa 122 105 114 105 RELE 000513 aa 101 123 105 104 ASED 000514 aa 040 040 040 040 000515 aa 040 040 040 000 000516 aa 000000000017 000517 aa 115 124 110 040 MTH 000520 aa 115 101 114 106 MALF 000521 aa 125 116 103 124 UNCT 000522 aa 111 117 116 000 ION 012162 aa 777770000000 000523 aa 404000000021 000524 aa 524000000106 000525 aa 524000000054 000526 aa 524000000072 000527 aa 524000000102 000530 aa 524000000134 000531 aa 524000000171 000532 aa 516000000020 000533 aa 524000000124 000534 aa 524000000100 000535 aa 524000000000 000536 aa 524000000010 000537 aa 524000000065 000540 aa 524000000110 000541 aa 524000000156 000542 aa 524000000060 000543 aa 524000000104 000544 aa 524000000222 000545 aa 524000000074 000546 aa 410000000107 000547 aa 524000000237 000550 aa 524000000143 000551 aa 606000000003 000552 aa 606000000002 000553 aa 524000000026 012163 aa 740000000000 000554 aa 524000000076 000555 aa 524000000075 000556 aa 524000000044 000557 aa 524000000046 000560 aa 524000000045 000561 aa 524000000034 000562 aa 524000000033 000563 aa 516000000003 000564 aa 516000000010 000565 aa 524000000023 000566 aa 516000000002 000567 aa 530000000017 000570 aa 524000000037 000571 aa 524000000043 000572 aa 524000000027 000573 aa 155 163 160 000 msp 000574 aa 514000000002 000575 aa 524000000105 000576 aa 524000000036 000577 aa 516000000007 000600 aa 524000000052 000601 aa 524000000070 000602 aa 524000000047 000603 aa 524000000117 000604 aa 514000000006 000605 aa 524000000055 000606 aa 524000000101 000607 aa 530000000031 000610 aa 524000000053 000611 aa 524000000125 000612 aa 514000000010 000613 aa 524000000103 000614 aa 155 164 160 000 mtp 000615 aa 530000000055 000616 aa 514000000004 000617 aa 524000000071 000620 aa 514000000003 000621 aa 524000000114 000622 aa 524000000067 000623 aa 516000000006 000624 aa 524000000056 000625 aa 524000000032 000626 aa 524000000022 012165 aa 776000000000 000627 aa 516000000004 000630 aa 514000000020 000631 aa 524000000073 000632 aa 524000000041 012166 aa 777774000000 000633 aa 524000000062 000634 aa 524000000002 000635 aa 514000000001 000636 aa 524000000040 000637 aa 524000000066 012164 aa 400000000000 000640 aa 165 162 160 000 urp 000641 aa 526000000030 000642 aa 410000000064 000643 aa 464000000000 000644 aa 136 063 063 170 ^33x 000645 aa 050 136 141 051 (^a) 000646 aa 516100000020 000647 aa 000000000001 000650 aa 000000000010 000651 aa 000000000020 000652 aa 104 151 163 143 Disc 000653 aa 040 120 157 167 Pow 000654 aa 145 162 145 144 ered 000655 aa 040 117 106 106 OFF 000656 aa 054 040 000 000 , 000657 aa 104 145 166 151 Devi 000660 aa 143 145 040 122 ce R 000661 aa 145 154 145 141 elea 000662 aa 163 145 144 054 sed, 000663 aa 040 000 000 000 000664 aa 136 062 056 064 ^2.4 000665 aa 142 136 055 122 b^-R 000666 aa 105 101 123 117 EASO 000667 aa 116 075 136 062 N=^2 000670 aa 056 064 142 000 .4b 000671 aa 136 064 056 064 ^4.4 000672 aa 142 136 055 117 b^-O 000673 aa 120 111 040 104 PI D 000674 aa 122 117 120 120 ROPP 000675 aa 105 104 000 000 ED 000676 aa 101 154 164 040 Alt 000677 aa 103 150 141 156 Chan 000700 aa 156 145 154 040 nel 000701 aa 151 156 040 103 in C 000702 aa 157 156 164 162 ontr 000703 aa 157 154 054 040 ol, 000704 aa 136 061 060 170 ^10x 000705 aa 136 062 056 064 ^2.4 000706 aa 142 040 136 070 b ^8 000707 aa 050 040 040 136 ( ^ 000710 aa 064 056 064 142 4.4b 000711 aa 136 051 000 000 ^) 000712 aa 136 064 056 064 ^4.4 000713 aa 142 136 055 120 b^-P 000714 aa 117 114 114 111 OLLI 000715 aa 116 107 136 062 NG^2 000716 aa 055 103 101 075 -CA= 000717 aa 136 062 142 000 ^2b 000720 aa 104 151 163 143 Disc 000721 aa 040 120 157 167 Pow 000722 aa 145 162 145 144 ered 000723 aa 040 117 116 057 ON/ 000724 aa 123 165 163 160 Susp 000725 aa 145 156 144 054 end, 000726 aa 040 000 000 000 000727 aa 136 062 056 064 ^2.4 000730 aa 142 136 063 055 b^3- 000731 aa 103 110 101 116 CHAN 000732 aa 116 105 114 040 NEL 000733 aa 123 124 101 124 STAT 000734 aa 125 123 075 136 US=^ 000735 aa 062 056 063 142 2.3b 000736 aa 136 062 056 064 ^2.4 000737 aa 142 136 063 055 b^3- 000740 aa 136 064 170 123 ^4xS 000741 aa 125 102 040 123 UB S 000742 aa 124 101 124 125 TATU 000743 aa 123 075 136 062 S=^2 000744 aa 056 063 142 000 .3b 000745 aa 136 064 056 064 ^4.4 000746 aa 142 136 055 115 b^-M 000747 aa 120 103 040 105 PC E 000750 aa 122 122 117 122 RROR 000751 aa 040 111 116 124 INT 000752 aa 105 122 122 125 ERRU 000753 aa 120 124 000 000 PT 000754 aa 050 120 123 111 (PSI 000755 aa 055 136 144 054 -^d, 000756 aa 040 114 103 055 LC- 000757 aa 136 144 051 040 ^d) 000760 aa 104 145 166 151 Devi 000761 aa 143 145 040 122 ce R 000762 aa 145 154 145 141 elea 000763 aa 163 145 144 056 sed. 000764 aa 136 062 056 064 ^2.4 000765 aa 142 136 055 115 b^-M 000766 aa 117 104 125 114 ODUL 000767 aa 105 075 136 141 E=^a 000770 aa 136 055 114 117 ^-LO 000771 aa 107 055 103 110 G-CH 000772 aa 101 116 075 136 AN=^ 000773 aa 056 062 142 000 .2b 000774 aa 136 064 056 064 ^4.4 000775 aa 142 136 055 122 b^-R 000776 aa 120 123 040 106 PS F 000777 aa 114 101 107 136 LAG^ 001000 aa 063 055 104 105 3-DE 001001 aa 126 111 103 105 VICE 001002 aa 075 136 062 056 =^2. 001003 aa 063 142 000 000 3b 001004 aa 136 062 056 064 ^2.4 001005 aa 142 136 055 124 b^-T 001006 aa 116 104 040 123 ND S 001007 aa 124 101 124 105 TATE 001010 aa 075 136 056 064 =^.4 001011 aa 142 136 055 123 b^-S 001012 aa 125 102 123 124 UBST 001013 aa 101 124 105 075 ATE= 001014 aa 136 056 064 142 ^.4b 001015 aa 136 062 056 064 ^2.4 001016 aa 142 136 055 111 b^-I 001017 aa 117 115 040 123 OM S 001020 aa 124 101 124 105 TATE 001021 aa 075 136 056 064 =^.4 001022 aa 142 136 055 123 b^-S 001023 aa 125 102 123 124 UBST 001024 aa 101 124 105 075 ATE= 001025 aa 136 056 064 142 ^.4b 001026 aa 136 174 136 065 ^|^5 001027 aa 170 124 162 141 xTra 001030 aa 143 145 040 157 ce o 001031 aa 146 040 136 141 f ^a 001032 aa 040 143 157 156 con 001033 aa 164 162 157 154 trol 001034 aa 154 145 162 056 ler. 001035 aa 136 063 170 136 ^3x^ 001036 aa 141 136 057 000 a^/ 001037 aa 136 064 056 064 ^4.4 001040 aa 142 136 055 125 b^-U 001041 aa 156 153 156 157 nkno 001042 aa 167 156 040 164 wn t 001043 aa 162 141 143 145 race 001044 aa 040 164 171 160 typ 001045 aa 145 040 050 106 e (F 001046 aa 106 106 106 051 FFF) 001047 aa 056 000 000 000 . 001050 aa 136 057 136 066 ^/^6 001051 aa 060 050 075 136 0(=^ 001052 aa 051 136 062 057 )^2/ 001053 aa 136 065 170 122 ^5xR 001054 aa 141 167 040 124 aw T 001055 aa 162 141 143 145 race 001056 aa 040 124 141 142 Tab 001057 aa 154 145 040 104 le D 001060 aa 141 164 141 136 ata^ 001061 aa 057 000 000 000 / 001062 aa 136 062 056 064 ^2.4 001063 aa 142 136 055 121 b^-Q 001064 aa 125 105 125 105 UEUE 001065 aa 040 111 104 075 ID= 001066 aa 136 056 064 142 ^.4b 001067 aa 136 055 114 111 ^-LI 001070 aa 116 113 040 123 NK S 001071 aa 124 101 124 125 TATU 001072 aa 123 075 136 056 S=^. 001073 aa 064 142 000 000 4b 001074 aa 136 062 056 064 ^2.4 001075 aa 142 136 055 120 b^-P 001076 aa 122 111 116 124 RINT 001077 aa 040 123 124 101 STA 001100 aa 124 105 075 136 TE=^ 001101 aa 056 064 142 136 .4b^ 001102 aa 055 123 125 102 -SUB 001103 aa 123 124 101 124 STAT 001104 aa 105 075 136 056 E=^. 001105 aa 064 142 000 000 4b 001106 aa 136 062 056 064 ^2.4 001107 aa 142 136 055 103 b^-C 001110 aa 101 122 104 040 ARD 001111 aa 123 124 101 124 STAT 001112 aa 105 075 136 056 E=^. 001113 aa 064 142 136 055 4b^- 001114 aa 123 125 102 123 SUBS 001115 aa 124 101 124 105 TATE 001116 aa 075 136 056 064 =^.4 001117 aa 142 000 000 000 b 001120 aa 136 064 056 064 ^4.4 001121 aa 142 136 055 103 b^-C 001122 aa 117 115 115 101 OMMA 001123 aa 116 104 136 062 ND^2 001124 aa 055 117 120 075 -OP= 001125 aa 136 062 056 063 ^2.3 001126 aa 142 136 055 104 b^-D 001127 aa 105 126 111 103 EVIC 001130 aa 105 075 136 062 E=^2 001131 aa 056 063 142 000 .3b 001132 aa 136 063 065 170 ^35x 001133 aa 163 145 161 137 seq_ 001134 aa 163 061 075 040 s1= 001135 aa 136 062 056 064 ^2.4 001136 aa 142 056 040 133 b. [ 001137 aa 114 101 123 124 LAST 001140 aa 040 104 101 124 DAT 001141 aa 101 040 127 117 A WO 001142 aa 122 104 040 115 RD M 001143 aa 111 123 123 111 ISSI 001144 aa 116 107 041 135 NG!] 001145 aa 136 064 170 050 ^4x( 001146 aa 120 123 111 055 PSI- 001147 aa 136 144 051 136 ^d)^ 001150 aa 063 170 104 162 3xDr 001151 aa 157 160 040 157 op o 001152 aa 146 040 117 120 f OP 001153 aa 145 162 141 164 erat 001154 aa 151 157 156 141 iona 001155 aa 154 040 111 156 l In 001156 aa 040 050 117 120 (OP 001157 aa 111 051 056 000 I). 001160 aa 136 062 056 064 ^2.4 001161 aa 142 136 055 103 b^-C 001162 aa 117 115 115 101 OMMA 001163 aa 116 104 075 136 ND=^ 001164 aa 056 063 142 136 .3b^ 001165 aa 062 055 136 062 2-^2 001166 aa 170 115 101 112 xMAJ 001167 aa 117 122 040 123 OR S 001170 aa 124 101 124 125 TATU 001171 aa 123 075 136 062 S=^2 001172 aa 056 063 142 000 .3b 001173 aa 136 064 056 064 ^4.4 001174 aa 142 136 055 123 b^-S 001175 aa 120 105 103 111 PECI 001176 aa 101 114 136 055 AL^- 001177 aa 124 131 120 105 TYPE 001200 aa 075 136 070 142 =^8b 001201 aa 136 055 104 105 ^-DE 001202 aa 126 111 103 105 VICE 001203 aa 075 136 062 056 =^2. 001204 aa 063 142 136 057 3b^/ 001205 aa 136 141 000 000 ^a 001206 aa 136 064 056 064 ^4.4 001207 aa 142 136 055 123 b^-S 001210 aa 120 105 103 111 PECI 001211 aa 101 114 136 055 AL^- 001212 aa 124 131 120 105 TYPE 001213 aa 075 136 070 142 =^8b 001214 aa 136 055 104 105 ^-DE 001215 aa 126 111 103 105 VICE 001216 aa 075 136 062 056 =^2. 001217 aa 063 142 040 050 3b ( 001220 aa 136 141 051 000 ^a) 001221 aa 136 064 170 050 ^4x( 001222 aa 120 123 111 055 PSI- 001223 aa 136 144 051 136 ^d)^ 001224 aa 063 170 101 142 3xAb 001225 aa 157 162 164 040 ort 001226 aa 123 164 141 164 Stat 001227 aa 165 163 056 040 us. 001230 aa 133 104 101 124 [DAT 001231 aa 101 040 127 117 A WO 001232 aa 122 104 040 115 RD M 001233 aa 111 123 123 111 ISSI 001234 aa 116 107 041 135 NG!] 001235 aa 136 064 056 064 ^4.4 001236 aa 142 136 055 111 b^-I 001237 aa 104 103 127 040 DCW 001240 aa 105 130 105 103 EXEC 001241 aa 125 124 111 117 UTIO 001242 aa 116 136 055 117 N^-O 001243 aa 120 075 136 062 P=^2 001244 aa 056 063 142 136 .3b^ 001245 aa 055 104 105 126 -DEV 001246 aa 111 103 105 075 ICE= 001247 aa 136 062 056 063 ^2.3 001250 aa 142 000 000 000 b 001251 aa 136 064 056 064 ^4.4 001252 aa 142 136 055 103 b^-C 001253 aa 117 115 115 101 OMMA 001254 aa 116 104 136 055 ND^- 001255 aa 117 120 103 117 OPCO 001256 aa 104 105 075 136 DE=^ 001257 aa 062 056 063 142 2.3b 001260 aa 136 062 055 104 ^2-D 001261 aa 105 126 111 103 EVIC 001262 aa 105 040 120 117 E PO 001263 aa 122 124 075 136 RT=^ 001264 aa 064 142 000 000 4b 001265 aa 136 064 170 055 ^4x- 001266 aa 055 055 055 055 ---- 001267 aa 055 055 136 063 --^3 001270 aa 170 104 145 166 xDev 001271 aa 151 143 145 040 ice 001272 aa 120 157 154 154 Poll 001273 aa 151 156 147 136 ing^ 001274 aa 133 040 050 122 [ (R 001275 aa 145 160 145 141 epea 001276 aa 164 163 040 136 ts ^ 001277 aa 144 040 164 151 d ti 001300 aa 155 145 136 133 me^[ 001301 aa 163 136 135 051 s^]) 001302 aa 136 135 000 000 ^] 001303 aa 136 063 065 170 ^35x 001304 aa 163 145 161 137 seq_ 001305 aa 163 061 075 040 s1= 001306 aa 136 062 056 064 ^2.4 001307 aa 142 054 040 142 b, b 001310 aa 165 146 137 163 uf_s 001311 aa 164 141 164 165 tatu 001312 aa 163 075 040 136 s= ^ 001313 aa 062 056 064 142 2.4b 001314 aa 054 040 155 160 , mp 001315 aa 137 163 164 141 _sta 001316 aa 164 165 163 075 tus= 001317 aa 040 136 062 056 ^2. 001320 aa 064 142 000 000 4b 001321 aa 136 064 170 050 ^4x( 001322 aa 120 123 111 055 PSI- 001323 aa 136 144 051 136 ^d)^ 001324 aa 063 170 123 160 3xSp 001325 aa 145 143 151 141 ecia 001326 aa 154 040 111 156 l In 001327 aa 164 145 162 162 terr 001330 aa 165 160 164 056 upt. 001331 aa 040 133 104 101 [DA 001332 aa 124 101 040 127 TA W 001333 aa 117 122 104 040 ORD 001334 aa 115 111 123 123 MISS 001335 aa 111 116 107 041 ING! 001336 aa 135 000 000 000 ] 001337 aa 050 120 123 111 (PSI 001340 aa 055 136 144 054 -^d, 001341 aa 040 114 103 055 LC- 001342 aa 136 144 051 040 ^d) 001343 aa 124 145 162 155 Term 001344 aa 151 156 141 164 inat 001345 aa 151 157 156 040 ion 001346 aa 123 164 141 164 Stat 001347 aa 165 163 056 040 us. 001350 aa 133 104 101 124 [DAT 001351 aa 101 040 127 117 A WO 001352 aa 122 104 040 115 RD M 001353 aa 111 123 123 111 ISSI 001354 aa 116 107 041 135 NG!] 001355 aa 050 120 123 111 (PSI 001356 aa 055 136 144 054 -^d, 001357 aa 040 114 103 055 LC- 001360 aa 136 144 051 040 ^d) 001361 aa 111 156 151 164 Init 001362 aa 151 141 154 040 ial 001363 aa 111 104 103 127 IDCW 001364 aa 040 111 156 151 Ini 001365 aa 164 151 141 164 tiat 001366 aa 145 144 040 050 ed ( 001367 aa 146 162 157 155 from 001370 aa 040 103 120 127 CPW 001371 aa 040 121 165 145 Que 001372 aa 165 145 051 056 ue). 001373 aa 136 062 056 064 ^2.4 001374 aa 142 136 055 111 b^-I 001375 aa 104 103 127 040 DCW 001376 aa 101 104 104 122 ADDR 001377 aa 040 105 130 124 EXT 001400 aa 105 116 123 111 ENSI 001401 aa 117 116 136 055 ON^- 001402 aa 136 157 136 057 ^o^/ 001403 aa 136 062 056 064 ^2.4 001404 aa 142 136 055 111 b^-I 001405 aa 104 103 127 040 DCW 001406 aa 106 114 101 107 FLAG 001407 aa 123 136 055 136 S^-^ 001410 aa 066 142 000 000 6b 001411 aa 136 064 056 064 ^4.4 001412 aa 142 136 055 111 b^-I 001413 aa 104 103 127 136 DCW^ 001414 aa 063 055 104 105 3-DE 001415 aa 126 111 103 105 VICE 001416 aa 075 136 062 056 =^2. 001417 aa 063 142 136 055 3b^- 001420 aa 114 101 075 136 LA=^ 001421 aa 061 142 054 120 1b,P 001422 aa 123 111 075 136 SI=^ 001423 aa 061 142 054 114 1b,L 001424 aa 117 107 055 103 OG-C 001425 aa 110 101 116 075 HAN= 001426 aa 136 056 063 142 ^.3b 001427 aa 136 064 056 064 ^4.4 001430 aa 142 136 055 124 b^-T 001431 aa 105 122 115 111 ERMI 001432 aa 116 101 124 105 NATE 001433 aa 040 123 124 101 STA 001434 aa 124 125 123 136 TUS^ 001435 aa 055 115 101 112 -MAJ 001436 aa 117 122 075 136 OR=^ 001437 aa 062 056 063 142 2.3b 001440 aa 136 055 104 105 ^-DE 001441 aa 126 111 103 105 VICE 001442 aa 040 120 117 122 POR 001443 aa 124 075 136 064 T=^4 001444 aa 142 136 057 000 b^/ 001445 aa 136 174 136 065 ^|^5 001446 aa 170 124 162 141 xTra 001447 aa 143 145 040 157 ce o 001450 aa 146 040 136 141 f ^a 001451 aa 040 143 157 156 con 001452 aa 164 162 157 154 trol 001453 aa 154 145 162 056 ler. 001454 aa 040 136 133 106 ^[F 001455 aa 127 040 122 145 W Re 001456 aa 166 056 040 136 v. ^ 001457 aa 141 136 073 136 a^;^ 001460 aa 163 136 135 136 s^]^ 001461 aa 063 170 136 141 3x^a 001462 aa 136 057 000 000 ^/ 001463 aa 136 063 065 170 ^35x 001464 aa 143 151 137 163 ci_s 001465 aa 164 141 164 165 tatu 001466 aa 163 075 040 136 s= ^ 001467 aa 062 056 064 142 2.4b 001470 aa 054 040 160 163 , ps 001471 aa 151 137 163 164 i_st 001472 aa 141 164 165 163 atus 001473 aa 075 040 136 062 = ^2 001474 aa 056 064 142 054 .4b, 001475 aa 040 163 145 161 seq 001476 aa 137 163 164 141 _sta 001477 aa 164 165 163 075 tus= 001500 aa 040 136 062 056 ^2. 001501 aa 064 142 000 000 4b 001502 aa 136 064 170 050 ^4x( 001503 aa 120 123 111 055 PSI- 001504 aa 136 144 051 136 ^d)^ 001505 aa 063 170 111 111 3xII 001506 aa 127 040 120 162 W Pr 001507 aa 157 143 145 163 oces 001510 aa 163 151 156 147 sing 001511 aa 040 111 156 151 Ini 001512 aa 164 151 141 164 tiat 001513 aa 145 144 056 040 ed. 001514 aa 133 104 101 124 [DAT 001515 aa 101 040 127 117 A WO 001516 aa 122 104 040 115 RD M 001517 aa 111 123 123 111 ISSI 001520 aa 116 107 041 135 NG!] 001521 aa 050 120 123 111 (PSI 001522 aa 055 136 144 054 -^d, 001523 aa 040 114 103 055 LC- 001524 aa 136 144 051 040 ^d) 001525 aa 124 145 162 155 Term 001526 aa 151 156 141 164 inat 001527 aa 151 157 156 040 ion 001530 aa 123 164 141 164 Stat 001531 aa 165 163 040 050 us ( 001532 aa 136 061 056 063 ^1.3 001533 aa 142 136 061 056 b^1. 001534 aa 063 142 057 136 3b/^ 001535 aa 061 056 063 142 1.3b 001536 aa 136 061 056 063 ^1.3 001537 aa 142 051 056 000 b). 001540 aa 050 120 123 111 (PSI 001541 aa 055 136 144 054 -^d, 001542 aa 040 114 103 055 LC- 001543 aa 136 144 051 040 ^d) 001544 aa 122 145 141 144 Read 001545 aa 040 117 160 145 Ope 001546 aa 162 141 164 151 rati 001547 aa 157 156 040 123 on S 001550 aa 164 141 162 164 tart 001551 aa 145 144 056 040 ed. 001552 aa 133 104 101 124 [DAT 001553 aa 101 040 127 117 A WO 001554 aa 122 104 040 115 RD M 001555 aa 111 123 123 111 ISSI 001556 aa 116 107 041 135 NG!] 001557 aa 050 120 123 111 (PSI 001560 aa 055 136 144 054 -^d, 001561 aa 040 114 103 055 LC- 001562 aa 136 144 051 040 ^d) 001563 aa 123 145 145 153 Seek 001564 aa 040 103 157 155 Com 001565 aa 155 141 156 144 mand 001566 aa 040 111 156 151 Ini 001567 aa 164 151 141 164 tiat 001570 aa 145 144 056 040 ed. 001571 aa 103 171 154 151 Cyli 001572 aa 156 144 145 162 nder 001573 aa 057 110 145 141 /Hea 001574 aa 144 075 040 136 d= ^ 001575 aa 144 057 136 144 d/^d 001576 aa 050 120 123 111 (PSI 001577 aa 055 136 144 054 -^d, 001600 aa 040 114 103 055 LC- 001601 aa 136 144 051 040 ^d) 001602 aa 123 145 145 153 Seek 001603 aa 040 103 157 155 Com 001604 aa 155 141 156 144 mand 001605 aa 040 111 156 151 Ini 001606 aa 164 151 141 164 tiat 001607 aa 145 144 056 040 ed. 001610 aa 133 104 101 124 [DAT 001611 aa 101 040 127 117 A WO 001612 aa 122 104 040 115 RD M 001613 aa 111 123 123 111 ISSI 001614 aa 116 107 041 135 NG!] 001615 aa 136 064 056 064 ^4.4 001616 aa 142 136 055 111 b^-I 001617 aa 116 124 105 122 NTER 001620 aa 122 125 120 124 RUPT 001621 aa 136 055 123 105 ^-SE 001622 aa 122 126 111 103 RVIC 001623 aa 105 040 103 117 E CO 001624 aa 104 105 075 136 DE=^ 001625 aa 064 142 136 055 4b^- 001626 aa 104 105 126 111 DEVI 001627 aa 103 105 040 120 CE P 001630 aa 117 122 124 075 ORT= 001631 aa 136 064 142 136 ^4b^ 001632 aa 057 136 055 136 /^-^ 001633 aa 141 000 000 000 a 001634 aa 136 064 056 064 ^4.4 001635 aa 142 136 055 104 b^-D 001636 aa 105 126 111 103 EVIC 001637 aa 105 040 120 117 E PO 001640 aa 127 105 122 040 WER 001641 aa 103 110 101 116 CHAN 001642 aa 107 105 136 055 GE^- 001643 aa 136 133 117 120 ^[OP 001644 aa 111 040 103 110 I CH 001645 aa 101 116 107 105 ANGE 001646 aa 104 040 157 156 D on 001647 aa 040 115 125 130 MUX 001650 aa 040 120 117 122 POR 001651 aa 124 075 136 064 T=^4 001652 aa 142 136 135 000 b^] 001653 aa 136 064 170 050 ^4x( 001654 aa 120 123 111 055 PSI- 001655 aa 136 144 051 136 ^d)^ 001656 aa 063 170 110 141 3xHa 001657 aa 162 144 167 141 rdwa 001660 aa 162 145 040 111 re I 001661 aa 156 164 145 162 nter 001662 aa 162 165 160 164 rupt 001663 aa 056 040 133 101 . [A 001664 aa 114 114 040 106 LL F 001665 aa 111 126 105 040 IVE 001666 aa 104 101 124 101 DATA 001667 aa 040 127 117 122 WOR 001670 aa 104 123 040 115 DS M 001671 aa 111 123 123 111 ISSI 001672 aa 116 107 041 135 NG!] 001673 aa 050 120 123 111 (PSI 001674 aa 055 136 144 054 -^d, 001675 aa 040 114 103 055 LC- 001676 aa 136 144 051 040 ^d) 001677 aa 127 162 151 164 Writ 001700 aa 145 040 117 160 e Op 001701 aa 145 162 141 164 erat 001702 aa 151 157 156 040 ion 001703 aa 123 164 141 162 Star 001704 aa 164 145 144 056 ted. 001705 aa 040 133 104 101 [DA 001706 aa 124 101 040 127 TA W 001707 aa 117 122 104 040 ORD 001710 aa 115 111 123 123 MISS 001711 aa 111 116 107 041 ING! 001712 aa 135 000 000 000 ] 001713 aa 050 120 123 111 (PSI 001714 aa 055 136 144 054 -^d, 001715 aa 040 114 103 055 LC- 001716 aa 136 144 051 040 ^d) 001717 aa 103 157 156 164 Cont 001720 aa 151 156 165 145 inue 001721 aa 040 111 104 103 IDC 001722 aa 127 040 111 156 W In 001723 aa 151 164 151 141 itia 001724 aa 164 145 144 056 ted. 001725 aa 040 133 104 101 [DA 001726 aa 124 101 040 127 TA W 001727 aa 117 122 104 040 ORD 001730 aa 115 111 123 123 MISS 001731 aa 111 116 107 041 ING! 001732 aa 135 000 000 000 ] 001733 aa 136 062 056 064 ^2.4 001734 aa 142 136 055 111 b^-I 001735 aa 104 103 127 040 DCW 001736 aa 103 110 101 116 CHAN 001737 aa 040 111 116 123 INS 001740 aa 124 122 136 055 TR^- 001741 aa 136 062 056 063 ^2.3 001742 aa 142 136 057 136 b^/^ 001743 aa 062 056 064 142 2.4b 001744 aa 136 055 111 104 ^-ID 001745 aa 103 127 040 122 CW R 001746 aa 105 103 117 122 ECOR 001747 aa 104 040 124 101 D TA 001750 aa 114 114 131 136 LLY^ 001751 aa 055 136 062 056 -^2. 001752 aa 063 142 000 000 3b 001753 aa 136 062 056 064 ^2.4 001754 aa 142 136 055 111 b^-I 001755 aa 104 103 127 040 DCW 001756 aa 117 120 040 103 OP C 001757 aa 117 104 105 136 ODE^ 001760 aa 055 136 062 056 -^2. 001761 aa 063 142 136 057 3b^/ 001762 aa 136 062 056 064 ^2.4 001763 aa 142 136 055 111 b^-I 001764 aa 104 103 127 040 DCW 001765 aa 104 105 126 111 DEVI 001766 aa 103 105 040 101 CE A 001767 aa 104 104 122 105 DDRE 001770 aa 123 123 136 055 SS^- 001771 aa 136 062 056 063 ^2.3 001772 aa 142 000 000 000 b 001773 aa 136 063 065 170 ^35x 001774 aa 143 151 137 163 ci_s 001775 aa 164 141 164 165 tatu 001776 aa 163 075 040 136 s= ^ 001777 aa 062 056 064 142 2.4b 002000 aa 054 040 160 163 , ps 002001 aa 151 137 163 164 i_st 002002 aa 141 164 165 163 atus 002003 aa 075 040 136 062 = ^2 002004 aa 056 064 142 056 .4b. 002005 aa 040 133 124 127 [TW 002006 aa 117 040 104 101 O DA 002007 aa 124 101 040 127 TA W 002010 aa 117 122 104 123 ORDS 002011 aa 040 115 111 123 MIS 002012 aa 123 111 116 107 SING 002013 aa 041 135 000 000 !] 002014 aa 136 064 170 050 ^4x( 002015 aa 120 123 111 055 PSI- 002016 aa 136 144 051 136 ^d)^ 002017 aa 063 170 123 160 3xSp 002020 aa 145 143 151 141 ecia 002021 aa 154 040 111 156 l In 002022 aa 164 145 162 162 terr 002023 aa 165 160 164 056 upt. 002024 aa 040 123 160 145 Spe 002025 aa 143 151 141 154 cial 002026 aa 040 124 171 160 Typ 002027 aa 145 075 040 136 e= ^ 002030 aa 062 056 064 142 2.4b 002031 aa 054 040 104 145 , De 002032 aa 166 151 143 145 vice 002033 aa 075 040 136 062 = ^2 002034 aa 056 063 142 000 .3b 002035 aa 050 120 123 111 (PSI 002036 aa 055 136 144 054 -^d, 002037 aa 040 114 103 055 LC- 002040 aa 136 144 051 040 ^d) 002041 aa 122 145 141 144 Read 002042 aa 040 117 160 145 Ope 002043 aa 162 141 164 151 rati 002044 aa 157 156 040 123 on S 002045 aa 164 141 162 164 tart 002046 aa 145 144 056 040 ed. 002047 aa 136 144 040 122 ^d R 002050 aa 145 143 157 162 ecor 002051 aa 144 136 133 136 d^[^ 002052 aa 073 163 136 135 ;s^] 002053 aa 040 124 162 141 Tra 002054 aa 156 163 146 145 nsfe 002055 aa 162 145 144 056 red. 002056 aa 050 120 123 111 (PSI 002057 aa 055 136 144 054 -^d, 002060 aa 040 114 103 055 LC- 002061 aa 136 144 051 040 ^d) 002062 aa 111 156 151 164 Init 002063 aa 151 141 154 040 ial 002064 aa 111 104 103 127 IDCW 002065 aa 040 122 145 143 Rec 002066 aa 151 145 166 145 ieve 002067 aa 144 056 040 133 d. [ 002070 aa 102 117 124 110 BOTH 002071 aa 040 104 101 124 DAT 002072 aa 101 040 127 117 A WO 002073 aa 122 104 123 040 RDS 002074 aa 115 111 123 123 MISS 002075 aa 111 116 107 041 ING! 002076 aa 135 000 000 000 ] 002077 aa 136 064 056 064 ^4.4 002100 aa 142 136 055 111 b^-I 002101 aa 116 103 117 115 NCOM 002102 aa 111 116 107 040 ING 002103 aa 111 104 103 127 IDCW 002104 aa 136 062 055 104 ^2-D 002105 aa 105 126 111 103 EVIC 002106 aa 105 075 136 062 E=^2 002107 aa 056 063 142 136 .3b^ 002110 aa 055 124 103 101 -TCA 002111 aa 075 136 061 142 =^1b 002112 aa 054 120 123 111 ,PSI 002113 aa 075 136 061 142 =^1b 002114 aa 054 114 117 107 ,LOG 002115 aa 055 103 110 101 -CHA 002116 aa 116 075 136 061 N=^1 002117 aa 142 000 000 000 b 002120 aa 136 064 056 064 ^4.4 002121 aa 142 136 055 111 b^-I 002122 aa 111 127 040 123 IW S 002123 aa 124 101 124 125 TATU 002124 aa 123 136 055 106 S^-F 002125 aa 101 125 114 124 AULT 002126 aa 040 102 131 124 BYT 002127 aa 105 075 136 062 E=^2 002130 aa 056 064 142 136 .4b^ 002131 aa 055 124 103 101 -TCA 002132 aa 075 136 061 142 =^1b 002133 aa 054 120 123 111 ,PSI 002134 aa 075 136 061 142 =^1b 002135 aa 054 114 117 107 ,LOG 002136 aa 055 103 110 101 -CHA 002137 aa 116 075 136 061 N=^1 002140 aa 142 136 057 000 b^/ 002141 aa 136 064 170 055 ^4x- 002142 aa 055 055 055 055 ---- 002143 aa 055 055 136 063 --^3 002144 aa 170 052 052 052 x*** 002145 aa 052 052 040 104 ** D 002146 aa 101 125 040 111 AU I 002147 aa 156 151 164 151 niti 002150 aa 141 154 151 172 aliz 002151 aa 141 164 151 157 atio 002152 aa 156 040 052 052 n ** 002153 aa 052 052 052 136 ***^ 002154 aa 133 040 050 122 [ (R 002155 aa 145 160 145 141 epea 002156 aa 164 163 040 136 ts ^ 002157 aa 144 040 164 151 d ti 002160 aa 155 145 136 133 me^[ 002161 aa 163 136 135 051 s^]) 002162 aa 136 135 000 000 ^] 002163 aa 136 064 170 050 ^4x( 002164 aa 120 123 111 055 PSI- 002165 aa 136 144 051 136 ^d)^ 002166 aa 063 170 111 111 3xII 002167 aa 127 040 120 162 W Pr 002170 aa 157 143 145 163 oces 002171 aa 163 151 156 147 sing 002172 aa 040 111 156 151 Ini 002173 aa 164 151 141 164 tiat 002174 aa 145 144 056 040 ed. 002175 aa 106 141 165 154 Faul 002176 aa 164 040 102 171 t By 002177 aa 164 145 075 040 te= 002200 aa 136 062 056 064 ^2.4 002201 aa 142 054 040 104 b, D 002202 aa 145 166 151 143 evic 002203 aa 145 075 040 136 e= ^ 002204 aa 062 056 063 142 2.3b 002205 aa 050 120 123 111 (PSI 002206 aa 055 136 144 054 -^d, 002207 aa 040 114 103 055 LC- 002210 aa 136 144 051 040 ^d) 002211 aa 127 162 151 164 Writ 002212 aa 145 040 117 160 e Op 002213 aa 145 162 141 164 erat 002214 aa 151 157 156 040 ion 002215 aa 123 164 141 162 Star 002216 aa 164 145 144 056 ted. 002217 aa 040 136 144 040 ^d 002220 aa 122 145 143 157 Reco 002221 aa 162 144 136 133 rd^[ 002222 aa 136 073 163 136 ^;s^ 002223 aa 135 040 124 162 ] Tr 002224 aa 141 156 163 146 ansf 002225 aa 145 162 145 144 ered 002226 aa 056 000 000 000 . 002227 aa 136 064 056 064 ^4.4 002230 aa 142 136 055 123 b^-S 002231 aa 120 105 103 111 PECI 002232 aa 101 114 136 055 AL^- 002233 aa 124 131 120 105 TYPE 002234 aa 075 136 062 142 =^2b 002235 aa 136 062 055 104 ^2-D 002236 aa 105 126 111 103 EVIC 002237 aa 105 075 136 062 E=^2 002240 aa 056 063 142 136 .3b^ 002241 aa 055 114 101 075 -LA= 002242 aa 136 061 142 054 ^1b, 002243 aa 120 123 111 075 PSI= 002244 aa 136 061 142 054 ^1b, 002245 aa 114 117 107 055 LOG- 002246 aa 103 110 101 116 CHAN 002247 aa 075 136 056 063 =^.3 002250 aa 142 000 000 000 b 002251 aa 136 064 056 064 ^4.4 002252 aa 142 136 055 123 b^-S 002253 aa 120 105 103 111 PECI 002254 aa 101 114 040 111 AL I 002255 aa 116 124 105 122 NTER 002256 aa 122 125 120 124 RUPT 002257 aa 040 123 124 117 STO 002260 aa 122 105 104 136 RED^ 002261 aa 055 114 101 075 -LA= 002262 aa 136 061 142 054 ^1b, 002263 aa 120 123 111 075 PSI= 002264 aa 136 061 142 054 ^1b, 002265 aa 114 117 107 055 LOG- 002266 aa 103 110 101 116 CHAN 002267 aa 075 136 063 142 =^3b 002270 aa 054 104 105 126 ,DEV 002271 aa 111 103 105 040 ICE 002272 aa 120 117 122 124 PORT 002273 aa 075 136 064 142 =^4b 002274 aa 136 064 056 064 ^4.4 002275 aa 142 136 055 124 b^-T 002276 aa 105 122 115 111 ERMI 002277 aa 116 101 124 105 NATE 002300 aa 040 123 124 101 STA 002301 aa 124 125 123 136 TUS^ 002302 aa 055 115 101 112 -MAJ 002303 aa 117 122 075 136 OR=^ 002304 aa 062 056 063 142 2.3b 002305 aa 136 055 123 125 ^-SU 002306 aa 102 075 136 062 B=^2 002307 aa 056 063 142 136 .3b^ 002310 aa 055 114 101 075 -LA= 002311 aa 136 061 142 054 ^1b, 002312 aa 120 123 111 075 PSI= 002313 aa 136 061 142 054 ^1b, 002314 aa 114 117 107 055 LOG- 002315 aa 103 110 101 116 CHAN 002316 aa 075 136 056 063 =^.3 002317 aa 142 136 057 000 b^/ 002320 aa 136 064 056 064 ^4.4 002321 aa 142 136 055 124 b^-T 002322 aa 105 122 115 111 ERMI 002323 aa 116 101 124 105 NATE 002324 aa 040 123 124 101 STA 002325 aa 124 125 123 136 TUS^ 002326 aa 055 115 101 112 -MAJ 002327 aa 117 122 075 136 OR=^ 002330 aa 062 056 063 142 2.3b 002331 aa 136 055 123 125 ^-SU 002332 aa 102 075 136 062 B=^2 002333 aa 056 063 142 136 .3b^ 002334 aa 055 124 103 101 -TCA 002335 aa 075 136 061 142 =^1b 002336 aa 054 120 123 111 ,PSI 002337 aa 075 136 061 142 =^1b 002340 aa 054 114 117 107 ,LOG 002341 aa 055 103 110 101 -CHA 002342 aa 116 075 136 061 N=^1 002343 aa 142 136 057 000 b^/ 002344 aa 136 064 170 050 ^4x( 002345 aa 120 123 111 055 PSI- 002346 aa 136 144 051 136 ^d)^ 002347 aa 063 170 110 141 3xHa 002350 aa 162 144 167 141 rdwa 002351 aa 162 145 040 111 re I 002352 aa 156 164 145 162 nter 002353 aa 162 165 160 164 rupt 002354 aa 056 040 111 156 . In 002355 aa 163 164 162 165 stru 002356 aa 143 164 151 157 ctio 002357 aa 156 040 120 124 n PT 002360 aa 122 075 040 136 R= ^ 002361 aa 064 056 064 142 4.4b 002362 aa 056 040 133 106 . [F 002363 aa 117 125 122 040 OUR 002364 aa 104 101 124 101 DATA 002365 aa 040 127 117 122 WOR 002366 aa 104 123 040 115 DS M 002367 aa 111 123 123 111 ISSI 002370 aa 116 107 041 135 NG!] 002371 aa 136 064 056 064 ^4.4 002372 aa 142 136 055 115 b^-M 002373 aa 120 103 040 123 PC S 002374 aa 120 105 103 111 PECI 002375 aa 101 114 040 123 AL S 002376 aa 124 101 124 125 TATU 002377 aa 123 040 124 131 S TY 002400 aa 120 105 075 136 PE=^ 002401 aa 133 123 125 123 [SUS 002402 aa 120 105 116 104 PEND 002403 aa 136 135 136 133 ^]^[ 002404 aa 122 105 114 105 RELE 002405 aa 101 123 105 136 ASE^ 002406 aa 135 136 055 124 ]^-T 002407 aa 103 101 075 136 CA=^ 002410 aa 061 142 054 120 1b,P 002411 aa 123 111 075 136 SI=^ 002412 aa 061 142 054 114 1b,L 002413 aa 117 107 055 103 OG-C 002414 aa 110 101 116 075 HAN= 002415 aa 136 061 142 136 ^1b^ 002416 aa 057 000 000 000 / 002417 aa 050 120 123 111 (PSI 002420 aa 055 136 144 054 -^d, 002421 aa 040 114 103 055 LC- 002422 aa 136 144 051 040 ^d) 002423 aa 111 156 151 164 Init 002424 aa 151 141 154 040 ial 002425 aa 111 104 103 127 IDCW 002426 aa 040 122 145 143 Rec 002427 aa 151 145 166 145 ieve 002430 aa 144 056 040 117 d. O 002431 aa 120 040 103 157 P Co 002432 aa 144 145 075 040 de= 002433 aa 136 061 056 063 ^1.3 002434 aa 142 136 061 056 b^1. 002435 aa 063 142 054 040 3b, 002436 aa 104 145 166 151 Devi 002437 aa 143 145 075 040 ce= 002440 aa 136 062 056 063 ^2.3 002441 aa 142 040 133 114 b [L 002442 aa 101 123 124 040 AST 002443 aa 104 101 124 101 DATA 002444 aa 040 127 117 122 WOR 002445 aa 104 040 115 111 D MI 002446 aa 123 123 111 116 SSIN 002447 aa 107 041 135 000 G!] 002450 aa 136 064 170 050 ^4x( 002451 aa 120 123 111 055 PSI- 002452 aa 136 144 051 136 ^d)^ 002453 aa 063 170 101 142 3xAb 002454 aa 157 162 164 040 ort 002455 aa 123 164 141 164 Stat 002456 aa 165 163 040 050 us ( 002457 aa 136 133 103 150 ^[Ch 002460 aa 141 156 156 145 anne 002461 aa 154 057 111 117 l/IO 002462 aa 115 040 163 164 M st 002463 aa 141 164 165 163 atus 002464 aa 075 040 136 061 = ^1 002465 aa 056 063 142 057 .3b/ 002466 aa 136 061 056 063 ^1.3 002467 aa 142 136 064 163 b^4s 002470 aa 136 073 136 062 ^;^2 002471 aa 163 115 141 152 sMaj 002472 aa 057 123 165 142 /Sub 002473 aa 040 163 164 141 sta 002474 aa 164 165 163 075 tus= 002475 aa 040 136 061 056 ^1. 002476 aa 063 142 136 061 3b^1 002477 aa 056 063 142 057 .3b/ 002500 aa 136 061 056 063 ^1.3 002501 aa 142 136 061 056 b^1. 002502 aa 063 142 136 135 3b^] 002503 aa 051 056 000 000 ). 002504 aa 136 064 170 050 ^4x( 002505 aa 120 123 111 055 PSI- 002506 aa 136 144 051 136 ^d)^ 002507 aa 063 170 110 141 3xHa 002510 aa 162 144 167 141 rdwa 002511 aa 162 145 040 111 re I 002512 aa 156 164 145 162 nter 002513 aa 162 165 160 164 rupt 002514 aa 056 040 111 156 . In 002515 aa 163 164 162 165 stru 002516 aa 143 164 151 157 ctio 002517 aa 156 040 120 124 n PT 002520 aa 122 075 040 136 R= ^ 002521 aa 064 056 064 142 4.4b 002522 aa 054 040 117 120 , OP 002523 aa 040 103 157 144 Cod 002524 aa 145 075 040 136 e= ^ 002525 aa 061 056 063 142 1.3b 002526 aa 136 061 056 063 ^1.3 002527 aa 142 054 040 104 b, D 002530 aa 145 166 151 143 evic 002531 aa 145 075 040 136 e= ^ 002532 aa 062 056 063 142 2.3b 002533 aa 056 040 133 124 . [T 002534 aa 110 122 105 105 HREE 002535 aa 040 104 101 124 DAT 002536 aa 101 040 127 117 A WO 002537 aa 122 104 123 040 RDS 002540 aa 115 111 123 123 MISS 002541 aa 111 116 107 041 ING! 002542 aa 135 000 000 000 ] 002543 aa 050 120 123 111 (PSI 002544 aa 055 136 144 054 -^d, 002545 aa 040 114 103 055 LC- 002546 aa 136 144 051 040 ^d) 002547 aa 103 157 156 164 Cont 002550 aa 151 156 165 145 inue 002551 aa 040 111 104 103 IDC 002552 aa 127 040 111 156 W In 002553 aa 151 164 151 141 itia 002554 aa 164 145 144 056 ted. 002555 aa 040 117 120 040 OP 002556 aa 103 157 144 145 Code 002557 aa 075 040 136 061 = ^1 002560 aa 056 063 142 136 .3b^ 002561 aa 061 056 063 142 1.3b 002562 aa 136 133 136 133 ^[^[ 002563 aa 136 057 136 063 ^/^3 002564 aa 070 170 136 135 8x^] 002565 aa 136 133 040 050 ^[ ( 002566 aa 115 141 162 153 Mark 002567 aa 145 162 051 136 er)^ 002570 aa 073 040 050 103 ; (C 002571 aa 157 156 164 151 onti 002572 aa 156 165 145 051 nue) 002573 aa 136 073 040 050 ^; ( 002574 aa 103 157 156 164 Cont 002575 aa 151 156 165 145 inue 002576 aa 055 115 141 162 -Mar 002577 aa 153 145 162 051 ker) 002600 aa 136 135 136 133 ^]^[ 002601 aa 040 050 103 150 (Ch 002602 aa 141 156 156 145 anne 002603 aa 154 040 151 156 l in 002604 aa 163 164 056 075 st.= 002605 aa 136 062 056 063 ^2.3 002606 aa 142 051 136 135 b)^] 002607 aa 136 135 000 000 ^] 002610 aa 050 120 123 111 (PSI 002611 aa 055 136 144 054 -^d, 002612 aa 040 114 103 055 LC- 002613 aa 136 144 051 040 ^d) 002614 aa 111 156 151 164 Init 002615 aa 151 141 154 040 ial 002616 aa 111 104 103 127 IDCW 002617 aa 040 122 145 143 Rec 002620 aa 151 145 166 145 ieve 002621 aa 144 056 040 117 d. O 002622 aa 120 040 103 157 P Co 002623 aa 144 145 075 040 de= 002624 aa 136 061 056 063 ^1.3 002625 aa 142 136 061 056 b^1. 002626 aa 063 142 054 040 3b, 002627 aa 104 145 166 151 Devi 002630 aa 143 145 075 040 ce= 002631 aa 136 062 056 063 ^2.3 002632 aa 142 136 133 136 b^[^ 002633 aa 133 136 057 136 [^/^ 002634 aa 063 066 170 136 36x^ 002635 aa 135 136 133 040 ]^[ 002636 aa 050 115 141 162 (Mar 002637 aa 153 145 162 051 ker) 002640 aa 136 073 040 050 ^; ( 002641 aa 103 157 156 164 Cont 002642 aa 151 156 165 145 inue 002643 aa 051 136 073 040 )^; 002644 aa 050 103 157 156 (Con 002645 aa 164 151 156 165 tinu 002646 aa 145 055 115 141 e-Ma 002647 aa 162 153 145 162 rker 002650 aa 051 136 135 136 )^]^ 002651 aa 133 040 050 103 [ (C 002652 aa 150 141 156 156 hann 002653 aa 145 154 040 151 el i 002654 aa 156 163 164 056 nst. 002655 aa 075 136 062 056 =^2. 002656 aa 063 142 051 136 3b)^ 002657 aa 135 136 135 000 ]^] LABEL ARRAYS 000000 aa 006634 7100 04 tra 3484,ic 006634 000001 aa 007131 7100 04 tra 3673,ic 007132 000002 aa 007177 7100 04 tra 3711,ic 007201 000003 aa 007332 7100 04 tra 3802,ic 007335 000004 aa 007532 7100 04 tra 3930,ic 007536 000005 aa 007665 7100 04 tra 4021,ic 007672 000006 aa 010020 7100 04 tra 4112,ic 010026 000007 aa 010163 7100 04 tra 4211,ic 010172 000010 aa 010231 7100 04 tra 4249,ic 010241 000011 aa 010230 7100 04 tra 4248,ic 010241 000012 aa 010230 7100 04 tra 4248,ic 010242 000013 aa 010411 7100 04 tra 4361,ic 010424 000014 aa 010530 7100 04 tra 4440,ic 010544 000015 aa 010576 7100 04 tra 4478,ic 010613 000016 aa 011045 7100 04 tra 4645,ic 011063 000017 aa 011745 7100 04 tra 5093,ic 011764 BEGIN PROCEDURE trace_mpc_ PROLOGUE SEQUENCE 002660 aa 6 00167 4401 00 sxl0 pr6|119 STATEMENT 1 ON LINE 105 002661 aa 6 00114 4501 00 stz pr6|76 urp_sw STATEMENT 1 ON LINE 106 002662 aa 6 00115 4501 00 stz pr6|77 STR 002663 aa 6 00167 7201 00 lxl0 pr6|119 002664 aa 000000 7100 10 tra 0,0 MAIN SEQUENCE ENTRY TO trace_mpc_ STATEMENT 1 ON LINE 29 trace_mpc_: proc (image_ptr, sw, mpc_datap); 002665 at 000003000643 002666 tt 000643000643 002667 ta 002665000000 002670 da 000036300000 002671 aa 000560 6270 00 eax7 368 002672 aa 7 00034 3521 20 epp2 pr7|28,* 002673 aa 2 01045 2721 00 tsp2 pr2|549 ext_entry 002674 aa 000006000000 002675 aa 000000000000 002676 aa 777762 7000 04 tsx0 -14,ic 002660 STATEMENT 1 ON LINE 126 p = addr (word); 002677 aa 6 00104 3735 00 epp7 pr6|68 word 002700 aa 6 00100 6535 00 spri7 pr6|64 p STATEMENT 1 ON LINE 128 call date_time_ (clock (), dt); 002701 aa 0 01435 7001 00 tsx0 pr0|797 clock 002702 aa 6 00170 7571 00 staq pr6|120 002703 aa 6 00170 3521 00 epp2 pr6|120 002704 aa 6 00174 2521 00 spri2 pr6|124 002705 aa 6 00106 3521 00 epp2 pr6|70 dt 002706 aa 6 00176 2521 00 spri2 pr6|126 002707 aa 775733 3520 04 epp2 -1061,ic 000642 = 410000000064 002710 aa 6 00200 2521 00 spri2 pr6|128 002711 aa 775730 3520 04 epp2 -1064,ic 000641 = 526000000030 002712 aa 6 00202 2521 00 spri2 pr6|130 002713 aa 6 00172 6211 00 eax1 pr6|122 002714 aa 010000 4310 07 fld 4096,dl 002715 aa 6 00044 3701 20 epp4 pr6|36,* 002716 la 4 00012 3521 20 epp2 pr4|10,* date_time_ 002717 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 130 if substr (mpc_data.type, 1, 3) = "urp" then urp_sw = "1"b; 002720 aa 6 00032 3735 20 epp7 pr6|26,* 002721 aa 7 00006 3715 20 epp5 pr7|6,* mpc_datap 002722 aa 5 00000 2351 20 lda pr5|0,* mpc_data.type 002723 aa 0 00066 3771 00 anaq pr0|54 = 777777777000 000000000000 002724 aa 775714 1150 04 cmpa -1076,ic 000640 = 165162160000 002725 aa 000003 6010 04 tnz 3,ic 002730 002726 aa 400000 2350 03 lda 131072,du 002727 aa 6 00114 7551 00 sta pr6|76 urp_sw STATEMENT 1 ON LINE 132 call ioa_$ioa_switch (sw, "^|^5xTrace of ^a controller. ^[FW Rev. ^a^;^s^]^3x^a^/", mpc_data.name, ^urp_sw, mpc_data.fw_rev, dt); 002730 aa 000 100 100 404 mlr (ic),(pr),fill(000) 002731 aa 776515 00 0070 desc9a -691,56 001445 = 136174136065 002732 aa 6 00204 00 0070 desc9a pr6|132,56 002733 aa 6 00114 2351 00 lda pr6|76 urp_sw 002734 aa 0 00002 6751 00 era pr0|2 = 400000000000 002735 aa 6 00222 7551 00 sta pr6|146 002736 aa 7 00004 3521 20 epp2 pr7|4,* sw 002737 aa 6 00226 2521 00 spri2 pr6|150 002740 aa 6 00204 3521 00 epp2 pr6|132 002741 aa 6 00230 2521 00 spri2 pr6|152 002742 aa 5 00000 3535 20 epp3 pr5|0,* mpc_datap 002743 aa 3 00001 3521 00 epp2 pr3|1 mpc_data.name 002744 aa 6 00232 2521 00 spri2 pr6|154 002745 aa 6 00222 3521 00 epp2 pr6|146 002746 aa 6 00234 2521 00 spri2 pr6|156 002747 aa 3 00012 3521 00 epp2 pr3|10 mpc_data.fw_rev 002750 aa 6 00236 2521 00 spri2 pr6|158 002751 aa 6 00106 3521 00 epp2 pr6|70 dt 002752 aa 6 00240 2521 00 spri2 pr6|160 002753 aa 775670 3520 04 epp2 -1096,ic 000643 = 464000000000 002754 aa 6 00242 2521 00 spri2 pr6|162 002755 aa 775662 3520 04 epp2 -1102,ic 000637 = 524000000066 002756 aa 6 00244 2521 00 spri2 pr6|164 002757 aa 775657 3520 04 epp2 -1105,ic 000636 = 524000000040 002760 aa 6 00246 2521 00 spri2 pr6|166 002761 aa 775654 3520 04 epp2 -1108,ic 000635 = 514000000001 002762 aa 6 00250 2521 00 spri2 pr6|168 002763 aa 775651 3520 04 epp2 -1111,ic 000634 = 524000000002 002764 aa 6 00252 2521 00 spri2 pr6|170 002765 aa 775654 3520 04 epp2 -1108,ic 000641 = 526000000030 002766 aa 6 00254 2521 00 spri2 pr6|172 002767 aa 6 00224 6211 00 eax1 pr6|148 002770 aa 030000 4310 07 fld 12288,dl 002771 aa 6 00044 3701 20 epp4 pr6|36,* 002772 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 002773 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 136 do loc = mpc_data.trace_start to (mpc_data.trace_start + mpc_data.trace_size - 1); 002774 aa 6 00032 3735 20 epp7 pr6|26,* 002775 aa 7 00006 3715 20 epp5 pr7|6,* mpc_datap 002776 aa 5 00000 3715 20 epp5 pr5|0,* mpc_datap 002777 aa 5 00013 2361 00 ldq pr5|11 mpc_data.trace_start 003000 aa 5 00014 0761 00 adq pr5|12 mpc_data.trace_size 003001 aa 000001 1760 07 sbq 1,dl 003002 aa 6 00166 7561 00 stq pr6|118 003003 aa 5 00013 2361 00 ldq pr5|11 mpc_data.trace_start 003004 aa 6 00105 7561 00 stq pr6|69 loc 003005 aa 000000 0110 03 nop 0,du 003006 aa 6 00105 2361 00 ldq pr6|69 loc 003007 aa 6 00166 1161 00 cmpq pr6|118 003010 aa 002102 6054 04 tpnz 1090,ic 005112 STATEMENT 1 ON LINE 138 if loc = mpc_data.trace_cur then /* If at current position of trace ... */ call ioa_$ioa_switch (sw, "**************************************************"); 003011 aa 6 00032 3735 20 epp7 pr6|26,* 003012 aa 7 00006 3715 20 epp5 pr7|6,* mpc_datap 003013 aa 5 00000 3715 20 epp5 pr5|0,* mpc_datap 003014 aa 5 00015 1161 00 cmpq pr5|13 mpc_data.trace_cur 003015 aa 000021 6010 04 tnz 17,ic 003036 003016 aa 052 100 100 400 mlr (),(pr),fill(052) 003017 aa 000000 00 0000 desc9a 0,0 003020 aa 6 00204 00 0062 desc9a pr6|132,50 003021 aa 7 00004 3521 20 epp2 pr7|4,* sw 003022 aa 6 00174 2521 00 spri2 pr6|124 003023 aa 6 00204 3521 00 epp2 pr6|132 003024 aa 6 00176 2521 00 spri2 pr6|126 003025 aa 775616 3520 04 epp2 -1138,ic 000643 = 464000000000 003026 aa 6 00200 2521 00 spri2 pr6|128 003027 aa 775604 3520 04 epp2 -1148,ic 000633 = 524000000062 003030 aa 6 00202 2521 00 spri2 pr6|130 003031 aa 6 00172 6211 00 eax1 pr6|122 003032 aa 010000 4310 07 fld 4096,dl 003033 aa 6 00044 3701 20 epp4 pr6|36,* 003034 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 003035 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 142 word = image (loc); 003036 aa 6 00105 2361 00 ldq pr6|69 loc 003037 aa 000004 7360 00 qls 4 003040 aa 6 00104 4501 00 stz pr6|68 word 003041 aa 6 00032 3735 20 epp7 pr6|26,* 003042 aa 7 00002 3715 20 epp5 pr7|2,* image_ptr 003043 aa 5 00000 3715 20 epp5 pr5|0,* image_ptr 003044 aa 003 100 060 506 csl (pr,ql),(pr),fill(0),bool(move) 003045 aa 5 00000 00 0020 descb pr5|0,16 image 003046 aa 6 00104 00 0020 descb pr6|68,16 word STATEMENT 1 ON LINE 143 if word = "0"b then go to skip_zeroes; 003047 aa 6 00104 2351 00 lda pr6|68 word 003050 aa 777774 3150 03 cana 262140,du 003051 aa 002037 6000 04 tze 1055,ic 005110 STATEMENT 1 ON LINE 145 if word = "ffff"b4 then do; 003052 aa 0 00040 3771 00 anaq pr0|32 = 777774000000 000000000000 003053 aa 777774 1150 03 cmpa 262140,du 003054 aa 000022 6010 04 tnz 18,ic 003076 STATEMENT 1 ON LINE 146 call ioa_$ioa_switch (sw, "^4.4b^-Unknown trace type (FFFF)."); 003055 aa 000 100 100 404 mlr (ic),(pr),fill(000) 003056 aa 775762 00 0044 desc9a -1038,36 001037 = 136064056064 003057 aa 6 00172 00 0044 desc9a pr6|122,36 003060 aa 7 00004 3521 20 epp2 pr7|4,* sw 003061 aa 6 00206 2521 00 spri2 pr6|134 003062 aa 6 00172 3521 00 epp2 pr6|122 003063 aa 6 00210 2521 00 spri2 pr6|136 003064 aa 775557 3520 04 epp2 -1169,ic 000643 = 464000000000 003065 aa 6 00212 2521 00 spri2 pr6|138 003066 aa 775544 3520 04 epp2 -1180,ic 000632 = 524000000041 003067 aa 6 00214 2521 00 spri2 pr6|140 003070 aa 6 00204 6211 00 eax1 pr6|132 003071 aa 010000 4310 07 fld 4096,dl 003072 aa 6 00044 3701 20 epp4 pr6|36,* 003073 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 003074 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 147 go to skip_zeroes; 003075 aa 002013 7100 04 tra 1035,ic 005110 STATEMENT 1 ON LINE 148 end; STATEMENT 1 ON LINE 150 if mpc_data.type = "urp" then do; 003076 aa 775542 2350 04 lda -1182,ic 000640 = 165162160000 003077 aa 0 00446 2771 00 oraq pr0|294 = 000000000040 040040040040 003100 aa 0 00110 3771 00 anaq pr0|72 = 777777777777 000000000000 003101 aa 7 00006 3535 20 epp3 pr7|6,* mpc_datap 003102 aa 3 00000 1151 20 cmpa pr3|0,* mpc_data.type 003103 aa 000372 6010 04 tnz 250,ic 003475 STATEMENT 1 ON LINE 151 if spec_uword.type = "fe"b4 then call ioa_$ioa_switch (sw, "^4.4b^-DEVICE POWER CHANGE^-^[OPI CHANGED on MUX PORT=^4b^]", word, spec_uword.opic, spec_uword.opic); 003104 aa 6 00100 2351 20 lda pr6|64,* spec_uword.type 003105 aa 0 00020 3771 00 anaq pr0|16 = 776000000000 000000000000 003106 aa 6 00222 7551 00 sta pr6|146 spec_uword.type 003107 aa 774000 1150 03 cmpa 260096,du 003110 aa 000040 6010 04 tnz 32,ic 003150 003111 aa 000 100 100 404 mlr (ic),(pr),fill(000) 003112 aa 776523 00 0074 desc9a -685,60 001634 = 136064056064 003113 aa 6 00224 00 0074 desc9a pr6|148,60 003114 aa 7 00004 3521 20 epp2 pr7|4,* sw 003115 aa 6 00260 2521 00 spri2 pr6|176 003116 aa 6 00224 3521 00 epp2 pr6|148 003117 aa 6 00262 2521 00 spri2 pr6|178 003120 aa 6 00104 3521 00 epp2 pr6|68 word 003121 aa 6 00264 2521 00 spri2 pr6|180 003122 aa 000014 7270 07 lxl7 12,dl 003123 aa 6 00100 3521 20 epp2 pr6|64,* spec_uword.opic 003124 aa 2 00000 5035 17 abd pr2|0,7 003125 aa 6 00266 2521 00 spri2 pr6|182 003126 aa 6 00100 3521 20 epp2 pr6|64,* spec_uword.opic 003127 aa 2 00000 5035 17 abd pr2|0,7 003130 aa 6 00270 2521 00 spri2 pr6|184 003131 aa 775512 3520 04 epp2 -1206,ic 000643 = 464000000000 003132 aa 6 00272 2521 00 spri2 pr6|186 003133 aa 775476 3520 04 epp2 -1218,ic 000631 = 524000000073 003134 aa 6 00274 2521 00 spri2 pr6|188 003135 aa 775473 3520 04 epp2 -1221,ic 000630 = 514000000020 003136 aa 6 00276 2521 00 spri2 pr6|190 003137 aa 775470 3520 04 epp2 -1224,ic 000627 = 516000000004 003140 aa 6 00300 2521 00 spri2 pr6|192 003141 aa 6 00302 2521 00 spri2 pr6|194 003142 aa 6 00256 6211 00 eax1 pr6|174 003143 aa 024000 4310 07 fld 10240,dl 003144 aa 6 00044 3701 20 epp4 pr6|36,* 003145 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 003146 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc 003147 aa 001741 7100 04 tra 993,ic 005110 STATEMENT 1 ON LINE 155 else if spec_uword.type = "ff"b4 then call ioa_$ioa_switch (sw, "^4.4b^-OPI DROPPED", word); 003150 aa 776000 1150 03 cmpa 261120,du 003151 aa 000026 6010 04 tnz 22,ic 003177 003152 aa 000 100 100 404 mlr (ic),(pr),fill(000) 003153 aa 775517 00 0024 desc9a -1201,20 000671 = 136064056064 003154 aa 6 00172 00 0024 desc9a pr6|122,20 003155 aa 7 00004 3521 20 epp2 pr7|4,* sw 003156 aa 6 00206 2521 00 spri2 pr6|134 003157 aa 6 00172 3521 00 epp2 pr6|122 003160 aa 6 00210 2521 00 spri2 pr6|136 003161 aa 6 00104 3521 00 epp2 pr6|68 word 003162 aa 6 00212 2521 00 spri2 pr6|138 003163 aa 775460 3520 04 epp2 -1232,ic 000643 = 464000000000 003164 aa 6 00214 2521 00 spri2 pr6|140 003165 aa 775441 3520 04 epp2 -1247,ic 000626 = 524000000022 003166 aa 6 00216 2521 00 spri2 pr6|142 003167 aa 775441 3520 04 epp2 -1247,ic 000630 = 514000000020 003170 aa 6 00220 2521 00 spri2 pr6|144 003171 aa 6 00204 6211 00 eax1 pr6|132 003172 aa 014000 4310 07 fld 6144,dl 003173 aa 6 00044 3701 20 epp4 pr6|36,* 003174 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 003175 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc 003176 aa 001712 7100 04 tra 970,ic 005110 STATEMENT 1 ON LINE 157 else if spec_uword.type = "7f"b4 then call ioa_$ioa_switch (sw, "^4.4b^-MPC ERROR INTERRUPT", word); 003177 aa 376000 1150 03 cmpa 130048,du 003200 aa 000026 6010 04 tnz 22,ic 003226 003201 aa 000 100 100 404 mlr (ic),(pr),fill(000) 003202 aa 775544 00 0034 desc9a -1180,28 000745 = 136064056064 003203 aa 6 00172 00 0034 desc9a pr6|122,28 003204 aa 7 00004 3521 20 epp2 pr7|4,* sw 003205 aa 6 00206 2521 00 spri2 pr6|134 003206 aa 6 00172 3521 00 epp2 pr6|122 003207 aa 6 00210 2521 00 spri2 pr6|136 003210 aa 6 00104 3521 00 epp2 pr6|68 word 003211 aa 6 00212 2521 00 spri2 pr6|138 003212 aa 775431 3520 04 epp2 -1255,ic 000643 = 464000000000 003213 aa 6 00214 2521 00 spri2 pr6|140 003214 aa 775411 3520 04 epp2 -1271,ic 000625 = 524000000032 003215 aa 6 00216 2521 00 spri2 pr6|142 003216 aa 775412 3520 04 epp2 -1270,ic 000630 = 514000000020 003217 aa 6 00220 2521 00 spri2 pr6|144 003220 aa 6 00204 6211 00 eax1 pr6|132 003221 aa 014000 4310 07 fld 6144,dl 003222 aa 6 00044 3701 20 epp4 pr6|36,* 003223 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 003224 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc 003225 aa 001663 7100 04 tra 947,ic 005110 STATEMENT 1 ON LINE 159 else if uword.type = "00"b then /* Type 00 = COMMAND */ call ioa_$ioa_switch (sw, "^4.4b^-COMMAND^-OPCODE=^2.3b^2-DEVICE PORT=^4b", word, uword.code, uword.device); 003226 aa 6 00100 2351 20 lda pr6|64,* uword.type 003227 aa 0 00004 3771 00 anaq pr0|4 = 600000000000 000000000000 003230 aa 6 00222 7551 00 sta pr6|146 uword.type 003231 aa 000042 6010 04 tnz 34,ic 003273 003232 aa 000 100 100 404 mlr (ic),(pr),fill(000) 003233 aa 776017 00 0060 desc9a -1009,48 001251 = 136064056064 003234 aa 6 00204 00 0060 desc9a pr6|132,48 003235 aa 7 00004 3521 20 epp2 pr7|4,* sw 003236 aa 6 00260 2521 00 spri2 pr6|176 003237 aa 6 00204 3521 00 epp2 pr6|132 003240 aa 6 00262 2521 00 spri2 pr6|178 003241 aa 6 00104 3521 00 epp2 pr6|68 word 003242 aa 6 00264 2521 00 spri2 pr6|180 003243 aa 000002 7270 07 lxl7 2,dl 003244 aa 6 00100 3521 20 epp2 pr6|64,* uword.code 003245 aa 2 00000 5035 17 abd pr2|0,7 003246 aa 6 00266 2521 00 spri2 pr6|182 003247 aa 000010 7260 07 lxl6 8,dl 003250 aa 6 00100 3521 20 epp2 pr6|64,* uword.device 003251 aa 2 00000 5035 16 abd pr2|0,6 003252 aa 6 00270 2521 00 spri2 pr6|184 003253 aa 775370 3520 04 epp2 -1288,ic 000643 = 464000000000 003254 aa 6 00272 2521 00 spri2 pr6|186 003255 aa 775347 3520 04 epp2 -1305,ic 000624 = 524000000056 003256 aa 6 00274 2521 00 spri2 pr6|188 003257 aa 775351 3520 04 epp2 -1303,ic 000630 = 514000000020 003260 aa 6 00276 2521 00 spri2 pr6|190 003261 aa 775342 3520 04 epp2 -1310,ic 000623 = 516000000006 003262 aa 6 00300 2521 00 spri2 pr6|192 003263 aa 775344 3520 04 epp2 -1308,ic 000627 = 516000000004 003264 aa 6 00302 2521 00 spri2 pr6|194 003265 aa 6 00256 6211 00 eax1 pr6|174 003266 aa 024000 4310 07 fld 10240,dl 003267 aa 6 00044 3701 20 epp4 pr6|36,* 003270 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 003271 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc 003272 aa 001616 7100 04 tra 910,ic 005110 STATEMENT 1 ON LINE 163 else if uword.type = "01"b then /* Type 01 = STATUS */ call ioa_$ioa_switch (sw, "^4.4b^-TERMINATE STATUS^-MAJOR=^2.3b^-DEVICE PORT=^4b^/", word, uword.code, uword.device); 003273 aa 200000 1150 03 cmpa 65536,du 003274 aa 000042 6010 04 tnz 34,ic 003336 003275 aa 000 100 100 404 mlr (ic),(pr),fill(000) 003276 aa 776132 00 0070 desc9a -934,56 001427 = 136064056064 003277 aa 6 00204 00 0070 desc9a pr6|132,56 003300 aa 7 00004 3521 20 epp2 pr7|4,* sw 003301 aa 6 00260 2521 00 spri2 pr6|176 003302 aa 6 00204 3521 00 epp2 pr6|132 003303 aa 6 00262 2521 00 spri2 pr6|178 003304 aa 6 00104 3521 00 epp2 pr6|68 word 003305 aa 6 00264 2521 00 spri2 pr6|180 003306 aa 000002 7270 07 lxl7 2,dl 003307 aa 6 00100 3521 20 epp2 pr6|64,* uword.code 003310 aa 2 00000 5035 17 abd pr2|0,7 003311 aa 6 00266 2521 00 spri2 pr6|182 003312 aa 000010 7260 07 lxl6 8,dl 003313 aa 6 00100 3521 20 epp2 pr6|64,* uword.device 003314 aa 2 00000 5035 16 abd pr2|0,6 003315 aa 6 00270 2521 00 spri2 pr6|184 003316 aa 775325 3520 04 epp2 -1323,ic 000643 = 464000000000 003317 aa 6 00272 2521 00 spri2 pr6|186 003320 aa 775302 3520 04 epp2 -1342,ic 000622 = 524000000067 003321 aa 6 00274 2521 00 spri2 pr6|188 003322 aa 775306 3520 04 epp2 -1338,ic 000630 = 514000000020 003323 aa 6 00276 2521 00 spri2 pr6|190 003324 aa 775277 3520 04 epp2 -1345,ic 000623 = 516000000006 003325 aa 6 00300 2521 00 spri2 pr6|192 003326 aa 775301 3520 04 epp2 -1343,ic 000627 = 516000000004 003327 aa 6 00302 2521 00 spri2 pr6|194 003330 aa 6 00256 6211 00 eax1 pr6|174 003331 aa 024000 4310 07 fld 10240,dl 003332 aa 6 00044 3701 20 epp4 pr6|36,* 003333 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 003334 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc 003335 aa 001553 7100 04 tra 875,ic 005110 STATEMENT 1 ON LINE 167 else if uword.type = "10"b then /* Type 10 = SPECIAL */ call ioa_$ioa_switch (sw, "^4.4b^-SPECIAL INTERRUPT STORED^-LA=^1b,PSI=^1b,LOG-CHAN=^3b,DEVICE PORT=^4b", word, substr (uword.code, 2, 1), substr (uword.code, 3, 1), substr (uword.code, 4, 3), uword.device); 003336 aa 400000 1150 03 cmpa 131072,du 003337 aa 000063 6010 04 tnz 51,ic 003422 003340 aa 000 100 100 404 mlr (ic),(pr),fill(000) 003341 aa 776711 00 0114 desc9a -567,76 002251 = 136064056064 003342 aa 6 00256 00 0114 desc9a pr6|174,76 003343 aa 6 00100 2351 20 lda pr6|64,* uword.code 003344 aa 000003 7350 00 als 3 003345 aa 0 00002 3771 00 anaq pr0|2 = 400000000000 000000000000 003346 aa 6 00223 7551 00 sta pr6|147 003347 aa 6 00100 2351 20 lda pr6|64,* uword.code 003350 aa 000004 7350 00 als 4 003351 aa 0 00002 3771 00 anaq pr0|2 = 400000000000 000000000000 003352 aa 6 00304 7551 00 sta pr6|196 003353 aa 6 00100 2351 20 lda pr6|64,* uword.code 003354 aa 000005 7350 00 als 5 003355 aa 0 00006 3771 00 anaq pr0|6 = 700000000000 000000000000 003356 aa 6 00305 7551 00 sta pr6|197 003357 aa 7 00004 3521 20 epp2 pr7|4,* sw 003360 aa 6 00310 2521 00 spri2 pr6|200 003361 aa 6 00256 3521 00 epp2 pr6|174 003362 aa 6 00312 2521 00 spri2 pr6|202 003363 aa 6 00104 3521 00 epp2 pr6|68 word 003364 aa 6 00314 2521 00 spri2 pr6|204 003365 aa 6 00223 3521 00 epp2 pr6|147 003366 aa 6 00316 2521 00 spri2 pr6|206 003367 aa 6 00304 3521 00 epp2 pr6|196 003370 aa 6 00320 2521 00 spri2 pr6|208 003371 aa 6 00305 3521 00 epp2 pr6|197 003372 aa 6 00322 2521 00 spri2 pr6|210 003373 aa 000010 7270 07 lxl7 8,dl 003374 aa 6 00100 3521 20 epp2 pr6|64,* uword.device 003375 aa 2 00000 5035 17 abd pr2|0,7 003376 aa 6 00324 2521 00 spri2 pr6|212 003377 aa 775244 3520 04 epp2 -1372,ic 000643 = 464000000000 003400 aa 6 00326 2521 00 spri2 pr6|214 003401 aa 775220 3520 04 epp2 -1392,ic 000621 = 524000000114 003402 aa 6 00330 2521 00 spri2 pr6|216 003403 aa 775225 3520 04 epp2 -1387,ic 000630 = 514000000020 003404 aa 6 00332 2521 00 spri2 pr6|218 003405 aa 775230 3520 04 epp2 -1384,ic 000635 = 514000000001 003406 aa 6 00334 2521 00 spri2 pr6|220 003407 aa 6 00336 2521 00 spri2 pr6|222 003410 aa 775210 3520 04 epp2 -1400,ic 000620 = 514000000003 003411 aa 6 00340 2521 00 spri2 pr6|224 003412 aa 775215 3520 04 epp2 -1395,ic 000627 = 516000000004 003413 aa 6 00342 2521 00 spri2 pr6|226 003414 aa 6 00306 6211 00 eax1 pr6|198 003415 aa 034000 4310 07 fld 14336,dl 003416 aa 6 00044 3701 20 epp4 pr6|36,* 003417 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 003420 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc 003421 aa 001467 7100 04 tra 823,ic 005110 STATEMENT 1 ON LINE 173 else if uword.type = "11"b then /* Type 11 = INTERRUPT */ call ioa_$ioa_switch (sw, "^4.4b^-INTERRUPT^-SERVICE CODE=^4b^-DEVICE PORT=^4b^/^-^a", word, substr (uword.code, 3), uword.device, urc_svc_codes (bin (substr (uword.code, 3, 4), 4))); 003422 aa 600000 1150 03 cmpa 196608,du 003423 aa 001465 6010 04 tnz 821,ic 005110 003424 aa 000 100 100 404 mlr (ic),(pr),fill(000) 003425 aa 776171 00 0074 desc9a -903,60 001615 = 136064056064 003426 aa 6 00256 00 0074 desc9a pr6|174,60 003427 aa 6 00100 2351 20 lda pr6|64,* uword.code 003430 aa 000004 7350 00 als 4 003431 aa 0 00010 3771 00 anaq pr0|8 = 740000000000 000000000000 003432 aa 6 00222 7551 00 sta pr6|146 003433 aa 000104 7730 00 lrl 68 003434 aa 000015 4020 07 mpy 13,dl 003435 aa 7 00004 3521 20 epp2 pr7|4,* sw 003436 aa 6 00226 2521 00 spri2 pr6|150 003437 aa 6 00256 3521 00 epp2 pr6|174 003440 aa 6 00230 2521 00 spri2 pr6|152 003441 aa 6 00104 3521 00 epp2 pr6|68 word 003442 aa 6 00232 2521 00 spri2 pr6|154 003443 aa 6 00222 3521 00 epp2 pr6|146 003444 aa 6 00234 2521 00 spri2 pr6|156 003445 aa 000010 7270 07 lxl7 8,dl 003446 aa 6 00100 3521 20 epp2 pr6|64,* uword.device 003447 aa 2 00000 5035 17 abd pr2|0,7 003450 aa 6 00236 2521 00 spri2 pr6|158 003451 ta 000141 3520 06 epp2 97,ql 003452 aa 6 00240 2521 00 spri2 pr6|160 003453 aa 775170 3520 04 epp2 -1416,ic 000643 = 464000000000 003454 aa 6 00242 2521 00 spri2 pr6|162 003455 aa 775142 3520 04 epp2 -1438,ic 000617 = 524000000071 003456 aa 6 00244 2521 00 spri2 pr6|164 003457 aa 775151 3520 04 epp2 -1431,ic 000630 = 514000000020 003460 aa 6 00246 2521 00 spri2 pr6|166 003461 aa 775135 3520 04 epp2 -1443,ic 000616 = 514000000004 003462 aa 6 00250 2521 00 spri2 pr6|168 003463 aa 775144 3520 04 epp2 -1436,ic 000627 = 516000000004 003464 aa 6 00252 2521 00 spri2 pr6|170 003465 aa 775130 3520 04 epp2 -1448,ic 000615 = 530000000055 003466 aa 6 00254 2521 00 spri2 pr6|172 003467 aa 6 00224 6211 00 eax1 pr6|148 003470 aa 030000 4310 07 fld 12288,dl 003471 aa 6 00044 3701 20 epp4 pr6|36,* 003472 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 003473 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 177 go to skip_zeroes; 003474 aa 001414 7100 04 tra 780,ic 005110 STATEMENT 1 ON LINE 178 end; STATEMENT 1 ON LINE 181 else if ((substr (mpc_data.type, 1, 3) = "mtp") & mpc_data.model = 610) then do; 003475 aa 3 00000 2351 20 lda pr3|0,* mpc_data.type 003476 aa 0 00066 3771 00 anaq pr0|54 = 777777777000 000000000000 003477 aa 6 00222 7551 00 sta pr6|146 mpc_data.type 003500 aa 775114 1150 04 cmpa -1460,ic 000614 = 155164160000 003501 aa 000647 6010 04 tnz 423,ic 004350 003502 aa 3 00000 3515 20 epp1 pr3|0,* mpc_datap 003503 aa 1 00011 2361 00 ldq pr1|9 mpc_data.model 003504 aa 001142 1160 07 cmpq 610,dl 003505 aa 000643 6010 04 tnz 419,ic 004350 STATEMENT 1 ON LINE 183 if mword.st then do; 003506 aa 6 00100 2351 20 lda pr6|64,* mword.st 003507 aa 400000 3150 03 cana 131072,du 003510 aa 000276 6000 04 tze 190,ic 004006 STATEMENT 1 ON LINE 184 if mword.type = "10"b then call ioa_$ioa_switch (sw, "^4.4b^-IIW STATUS^-FAULT BYTE=^2.4b^-TCA=^1b,PSI=^1b,LOG-CHAN=^1b^/", word, substr (word, 7, 2) || substr (word, 11, 6), substr (word, 2, 1), substr (word, 3, 1), substr (word, 4, 1)); 003511 aa 6 00100 2351 20 lda pr6|64,* mword.type 003512 aa 000010 7350 00 als 8 003513 aa 0 00004 3771 00 anaq pr0|4 = 600000000000 000000000000 003514 aa 6 00305 7551 00 sta pr6|197 mword.type 003515 aa 400000 1150 03 cmpa 131072,du 003516 aa 000072 6010 04 tnz 58,ic 003610 003517 aa 000 100 100 404 mlr (ic),(pr),fill(000) 003520 aa 776401 00 0104 desc9a -767,68 002120 = 136064056064 003521 aa 6 00256 00 0104 desc9a pr6|174,68 003522 aa 6 00104 2351 00 lda pr6|68 word 003523 aa 000006 7350 00 als 6 003524 aa 0 00004 3771 00 anaq pr0|4 = 600000000000 000000000000 003525 aa 6 00304 7551 00 sta pr6|196 word 003526 aa 6 00104 2351 00 lda pr6|68 word 003527 aa 000012 7350 00 als 10 003530 aa 0 00014 3771 00 anaq pr0|12 = 770000000000 000000000000 003531 aa 000002 7710 00 arl 2 003532 aa 6 00304 2751 00 ora pr6|196 word 003533 aa 6 00304 7551 00 sta pr6|196 003534 aa 6 00104 2351 00 lda pr6|68 word 003535 aa 000001 7350 00 als 1 003536 aa 0 00002 3771 00 anaq pr0|2 = 400000000000 000000000000 003537 aa 6 00223 7551 00 sta pr6|147 003540 aa 6 00104 2351 00 lda pr6|68 word 003541 aa 000002 7350 00 als 2 003542 aa 0 00002 3771 00 anaq pr0|2 = 400000000000 000000000000 003543 aa 6 00344 7551 00 sta pr6|228 003544 aa 6 00104 2351 00 lda pr6|68 word 003545 aa 000003 7350 00 als 3 003546 aa 0 00002 3771 00 anaq pr0|2 = 400000000000 000000000000 003547 aa 6 00345 7551 00 sta pr6|229 003550 aa 7 00004 3521 20 epp2 pr7|4,* sw 003551 aa 6 00310 2521 00 spri2 pr6|200 003552 aa 6 00256 3521 00 epp2 pr6|174 003553 aa 6 00312 2521 00 spri2 pr6|202 003554 aa 6 00104 3521 00 epp2 pr6|68 word 003555 aa 6 00314 2521 00 spri2 pr6|204 003556 aa 6 00304 3521 00 epp2 pr6|196 003557 aa 6 00316 2521 00 spri2 pr6|206 003560 aa 6 00223 3521 00 epp2 pr6|147 003561 aa 6 00320 2521 00 spri2 pr6|208 003562 aa 6 00344 3521 00 epp2 pr6|228 003563 aa 6 00322 2521 00 spri2 pr6|210 003564 aa 6 00345 3521 00 epp2 pr6|229 003565 aa 6 00324 2521 00 spri2 pr6|212 003566 aa 775055 3520 04 epp2 -1491,ic 000643 = 464000000000 003567 aa 6 00326 2521 00 spri2 pr6|214 003570 aa 775023 3520 04 epp2 -1517,ic 000613 = 524000000103 003571 aa 6 00330 2521 00 spri2 pr6|216 003572 aa 775036 3520 04 epp2 -1506,ic 000630 = 514000000020 003573 aa 6 00332 2521 00 spri2 pr6|218 003574 aa 775016 3520 04 epp2 -1522,ic 000612 = 514000000010 003575 aa 6 00334 2521 00 spri2 pr6|220 003576 aa 775037 3520 04 epp2 -1505,ic 000635 = 514000000001 003577 aa 6 00336 2521 00 spri2 pr6|222 003600 aa 6 00340 2521 00 spri2 pr6|224 003601 aa 6 00342 2521 00 spri2 pr6|226 003602 aa 6 00306 6211 00 eax1 pr6|198 003603 aa 034000 4310 07 fld 14336,dl 003604 aa 6 00044 3701 20 epp4 pr6|36,* 003605 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 003606 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc 003607 aa 000177 7100 04 tra 127,ic 004006 STATEMENT 1 ON LINE 189 else if mword.type = "11"b then do; 003610 aa 600000 1150 03 cmpa 196608,du 003611 aa 000175 6010 04 tnz 125,ic 004006 STATEMENT 1 ON LINE 190 if mword.b = "0"b then /* MPC special */ call ioa_$ioa_switch (sw, "^4.4b^-MPC SPECIAL STATUS TYPE=^[SUSPEND^]^[RELEASE^]^-TCA=^1b,PSI=^1b,LOG-CHAN=^1b^/" , word, substr (word, 8, 1), substr (word, 7, 1), substr (word, 2, 1), substr (word, 3, 1), substr (word, 4, 1)); 003612 aa 6 00100 2351 20 lda pr6|64,* mword.b 003613 aa 000374 3150 03 cana 252,du 003614 aa 000072 6010 04 tnz 58,ic 003706 003615 aa 000 100 100 404 mlr (ic),(pr),fill(000) 003616 aa 776554 00 0130 desc9a -660,88 002371 = 136064056064 003617 aa 6 00256 00 0130 desc9a pr6|174,88 003620 aa 6 00104 2351 00 lda pr6|68 word 003621 aa 000007 7350 00 als 7 003622 aa 0 00002 3771 00 anaq pr0|2 = 400000000000 000000000000 003623 aa 6 00305 7551 00 sta pr6|197 003624 aa 6 00104 2351 00 lda pr6|68 word 003625 aa 000006 7350 00 als 6 003626 aa 0 00002 3771 00 anaq pr0|2 = 400000000000 000000000000 003627 aa 6 00345 7551 00 sta pr6|229 003630 aa 6 00104 2351 00 lda pr6|68 word 003631 aa 000001 7350 00 als 1 003632 aa 0 00002 3771 00 anaq pr0|2 = 400000000000 000000000000 003633 aa 6 00344 7551 00 sta pr6|228 003634 aa 6 00104 2351 00 lda pr6|68 word 003635 aa 000002 7350 00 als 2 003636 aa 0 00002 3771 00 anaq pr0|2 = 400000000000 000000000000 003637 aa 6 00223 7551 00 sta pr6|147 003640 aa 6 00104 2351 00 lda pr6|68 word 003641 aa 000003 7350 00 als 3 003642 aa 0 00002 3771 00 anaq pr0|2 = 400000000000 000000000000 003643 aa 6 00304 7551 00 sta pr6|196 003644 aa 7 00004 3521 20 epp2 pr7|4,* sw 003645 aa 6 00350 2521 00 spri2 pr6|232 003646 aa 6 00256 3521 00 epp2 pr6|174 003647 aa 6 00352 2521 00 spri2 pr6|234 003650 aa 6 00104 3521 00 epp2 pr6|68 word 003651 aa 6 00354 2521 00 spri2 pr6|236 003652 aa 6 00305 3521 00 epp2 pr6|197 003653 aa 6 00356 2521 00 spri2 pr6|238 003654 aa 6 00345 3521 00 epp2 pr6|229 003655 aa 6 00360 2521 00 spri2 pr6|240 003656 aa 6 00344 3521 00 epp2 pr6|228 003657 aa 6 00362 2521 00 spri2 pr6|242 003660 aa 6 00223 3521 00 epp2 pr6|147 003661 aa 6 00364 2521 00 spri2 pr6|244 003662 aa 6 00304 3521 00 epp2 pr6|196 003663 aa 6 00366 2521 00 spri2 pr6|246 003664 aa 774757 3520 04 epp2 -1553,ic 000643 = 464000000000 003665 aa 6 00370 2521 00 spri2 pr6|248 003666 aa 774723 3520 04 epp2 -1581,ic 000611 = 524000000125 003667 aa 6 00372 2521 00 spri2 pr6|250 003670 aa 774740 3520 04 epp2 -1568,ic 000630 = 514000000020 003671 aa 6 00374 2521 00 spri2 pr6|252 003672 aa 774743 3520 04 epp2 -1565,ic 000635 = 514000000001 003673 aa 6 00376 2521 00 spri2 pr6|254 003674 aa 6 00400 2521 00 spri2 pr6|256 003675 aa 6 00402 2521 00 spri2 pr6|258 003676 aa 6 00404 2521 00 spri2 pr6|260 003677 aa 6 00406 2521 00 spri2 pr6|262 003700 aa 6 00346 6211 00 eax1 pr6|230 003701 aa 040000 4310 07 fld 16384,dl 003702 aa 6 00044 3701 20 epp4 pr6|36,* 003703 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 003704 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc 003705 aa 000101 7100 04 tra 65,ic 004006 STATEMENT 1 ON LINE 196 else do; STATEMENT 1 ON LINE 197 STR = ""; 003706 aa 6 00115 4501 00 stz pr6|77 STR STATEMENT 1 ON LINE 198 do i = 1 to 7 while (STR = ""); 003707 aa 000001 2360 07 ldq 1,dl 003710 aa 6 00125 7561 00 stq pr6|85 i 003711 aa 000000 0110 03 nop 0,du 003712 aa 6 00125 2361 00 ldq pr6|85 i 003713 aa 000007 1160 07 cmpq 7,dl 003714 aa 000024 6054 04 tpnz 20,ic 003740 003715 aa 6 00115 7271 00 lxl7 pr6|77 STR 003716 aa 040 004 106 540 cmpc (pr,rl),(ic),fill(040) 003717 aa 6 00116 00 0017 desc9a pr6|78,x7 STR 003720 aa 006244 00 0000 desc9a 3236,0 012162 = 777770000000 003721 aa 000017 6010 04 tnz 15,ic 003740 STATEMENT 1 ON LINE 199 if substr (word, i + 1, 1) then STR = mth_spec_type (i); 003722 aa 000 000 066 506 cmpb (pr,ql),(),fill(0) 003723 aa 6 00104 00 0001 descb pr6|68,1 word 003724 aa 000000 00 0000 descb 0,0 003725 aa 000011 6000 04 tze 9,ic 003736 003726 aa 000005 4020 07 mpy 5,dl 003727 aa 000000 6270 06 eax7 0,ql 003730 ta 000453 2360 06 ldq 299,ql 003731 ta 000454 3734 17 epp7 300,7 003732 aa 6 00115 7561 00 stq pr6|77 STR 003733 aa 040 140 100 540 mlr (pr,rl),(pr,rl),fill(040) 003734 aa 7 00000 00 0006 desc9a pr7|0,ql mth_spec_type 003735 aa 6 00116 00 0006 desc9a pr6|78,ql STR STATEMENT 1 ON LINE 200 end; 003736 aa 6 00125 0541 00 aos pr6|85 i 003737 aa 777753 7100 04 tra -21,ic 003712 STATEMENT 1 ON LINE 201 call ioa_$ioa_switch (sw, "^4.4b^-SPECIAL^-TYPE=^8b^-DEVICE=^2.3b (^a)", word, substr (word, 1, 8), mword.b, STR); 003740 aa 000 100 100 404 mlr (ic),(pr),fill(000) 003741 aa 775246 00 0054 desc9a -1370,44 001206 = 136064056064 003742 aa 6 00204 00 0054 desc9a pr6|132,44 003743 aa 6 00104 2351 00 lda pr6|68 word 003744 aa 0 00020 3771 00 anaq pr0|16 = 776000000000 000000000000 003745 aa 6 00304 7551 00 sta pr6|196 003746 aa 6 00032 3735 20 epp7 pr6|26,* 003747 aa 7 00004 3521 20 epp2 pr7|4,* sw 003750 aa 6 00226 2521 00 spri2 pr6|150 003751 aa 6 00204 3521 00 epp2 pr6|132 003752 aa 6 00230 2521 00 spri2 pr6|152 003753 aa 6 00104 3521 00 epp2 pr6|68 word 003754 aa 6 00232 2521 00 spri2 pr6|154 003755 aa 6 00304 3521 00 epp2 pr6|196 003756 aa 6 00234 2521 00 spri2 pr6|156 003757 aa 000012 7270 07 lxl7 10,dl 003760 aa 6 00100 3521 20 epp2 pr6|64,* mword.b 003761 aa 2 00000 5035 17 abd pr2|0,7 003762 aa 6 00236 2521 00 spri2 pr6|158 003763 aa 6 00116 3521 00 epp2 pr6|78 STR 003764 aa 6 00240 2521 00 spri2 pr6|160 003765 aa 774656 3520 04 epp2 -1618,ic 000643 = 464000000000 003766 aa 6 00242 2521 00 spri2 pr6|162 003767 aa 774621 3520 04 epp2 -1647,ic 000610 = 524000000053 003770 aa 6 00244 2521 00 spri2 pr6|164 003771 aa 774637 3520 04 epp2 -1633,ic 000630 = 514000000020 003772 aa 6 00246 2521 00 spri2 pr6|166 003773 aa 774617 3520 04 epp2 -1649,ic 000612 = 514000000010 003774 aa 6 00250 2521 00 spri2 pr6|168 003775 aa 774626 3520 04 epp2 -1642,ic 000623 = 516000000006 003776 aa 6 00252 2521 00 spri2 pr6|170 003777 aa 774610 3520 04 epp2 -1656,ic 000607 = 530000000031 004000 aa 6 00254 2521 00 spri2 pr6|172 004001 aa 6 00224 6211 00 eax1 pr6|148 004002 aa 030000 4310 07 fld 12288,dl 004003 aa 6 00044 3701 20 epp4 pr6|36,* 004004 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 004005 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 203 end; STATEMENT 1 ON LINE 204 end; STATEMENT 1 ON LINE 205 end; STATEMENT 1 ON LINE 210 if (mword.type = "11"b & mword.b ^= "0"b) then do; 004006 aa 6 00100 2351 20 lda pr6|64,* mword.type 004007 aa 000010 7350 00 als 8 004010 aa 0 00004 3771 00 anaq pr0|4 = 600000000000 000000000000 004011 aa 600000 1150 03 cmpa 196608,du 004012 aa 000104 6010 04 tnz 68,ic 004116 004013 aa 6 00100 2351 20 lda pr6|64,* mword.b 004014 aa 000374 3150 03 cana 252,du 004015 aa 000101 6000 04 tze 65,ic 004116 STATEMENT 1 ON LINE 212 STR = ""; 004016 aa 6 00115 4501 00 stz pr6|77 STR STATEMENT 1 ON LINE 213 do i = 1 to 7 while (STR = ""); 004017 aa 000001 2360 07 ldq 1,dl 004020 aa 6 00125 7561 00 stq pr6|85 i 004021 aa 000000 0110 03 nop 0,du 004022 aa 6 00125 2361 00 ldq pr6|85 i 004023 aa 000007 1160 07 cmpq 7,dl 004024 aa 000024 6054 04 tpnz 20,ic 004050 004025 aa 6 00115 7271 00 lxl7 pr6|77 STR 004026 aa 040 004 106 540 cmpc (pr,rl),(ic),fill(040) 004027 aa 6 00116 00 0017 desc9a pr6|78,x7 STR 004030 aa 006134 00 0000 desc9a 3164,0 012162 = 777770000000 004031 aa 000017 6010 04 tnz 15,ic 004050 STATEMENT 1 ON LINE 214 if substr (word, i + 1, 1) then STR = mth_spec_type (i); 004032 aa 000 000 066 506 cmpb (pr,ql),(),fill(0) 004033 aa 6 00104 00 0001 descb pr6|68,1 word 004034 aa 000000 00 0000 descb 0,0 004035 aa 000011 6000 04 tze 9,ic 004046 004036 aa 000005 4020 07 mpy 5,dl 004037 aa 000000 6270 06 eax7 0,ql 004040 ta 000453 2360 06 ldq 299,ql 004041 ta 000454 3734 17 epp7 300,7 004042 aa 6 00115 7561 00 stq pr6|77 STR 004043 aa 040 140 100 540 mlr (pr,rl),(pr,rl),fill(040) 004044 aa 7 00000 00 0006 desc9a pr7|0,ql mth_spec_type 004045 aa 6 00116 00 0006 desc9a pr6|78,ql STR STATEMENT 1 ON LINE 215 end; 004046 aa 6 00125 0541 00 aos pr6|85 i 004047 aa 777753 7100 04 tra -21,ic 004022 STATEMENT 1 ON LINE 216 call ioa_$ioa_switch (sw, "^4.4b^-SPECIAL^-TYPE=^8b^-DEVICE=^2.3b (^a)", word, substr (word, 1, 8), mword.b, STR); 004050 aa 000 100 100 404 mlr (ic),(pr),fill(000) 004051 aa 775136 00 0054 desc9a -1442,44 001206 = 136064056064 004052 aa 6 00204 00 0054 desc9a pr6|132,44 004053 aa 6 00104 2351 00 lda pr6|68 word 004054 aa 0 00020 3771 00 anaq pr0|16 = 776000000000 000000000000 004055 aa 6 00304 7551 00 sta pr6|196 004056 aa 6 00032 3735 20 epp7 pr6|26,* 004057 aa 7 00004 3521 20 epp2 pr7|4,* sw 004060 aa 6 00226 2521 00 spri2 pr6|150 004061 aa 6 00204 3521 00 epp2 pr6|132 004062 aa 6 00230 2521 00 spri2 pr6|152 004063 aa 6 00104 3521 00 epp2 pr6|68 word 004064 aa 6 00232 2521 00 spri2 pr6|154 004065 aa 6 00304 3521 00 epp2 pr6|196 004066 aa 6 00234 2521 00 spri2 pr6|156 004067 aa 000012 7270 07 lxl7 10,dl 004070 aa 6 00100 3521 20 epp2 pr6|64,* mword.b 004071 aa 2 00000 5035 17 abd pr2|0,7 004072 aa 6 00236 2521 00 spri2 pr6|158 004073 aa 6 00116 3521 00 epp2 pr6|78 STR 004074 aa 6 00240 2521 00 spri2 pr6|160 004075 aa 774546 3520 04 epp2 -1690,ic 000643 = 464000000000 004076 aa 6 00242 2521 00 spri2 pr6|162 004077 aa 774511 3520 04 epp2 -1719,ic 000610 = 524000000053 004100 aa 6 00244 2521 00 spri2 pr6|164 004101 aa 774527 3520 04 epp2 -1705,ic 000630 = 514000000020 004102 aa 6 00246 2521 00 spri2 pr6|166 004103 aa 774507 3520 04 epp2 -1721,ic 000612 = 514000000010 004104 aa 6 00250 2521 00 spri2 pr6|168 004105 aa 774516 3520 04 epp2 -1714,ic 000623 = 516000000006 004106 aa 6 00252 2521 00 spri2 pr6|170 004107 aa 774500 3520 04 epp2 -1728,ic 000607 = 530000000031 004110 aa 6 00254 2521 00 spri2 pr6|172 004111 aa 6 00224 6211 00 eax1 pr6|148 004112 aa 030000 4310 07 fld 12288,dl 004113 aa 6 00044 3701 20 epp4 pr6|36,* 004114 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 004115 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 218 end; STATEMENT 1 ON LINE 220 if mword.type = "00"b then /* INCOMING IDCW */ call ioa_$ioa_switch (sw, "^4.4b^-INCOMING IDCW^2-DEVICE=^2.3b^-TCA=^1b,PSI=^1b,LOG-CHAN=^1b", word, mword.b, substr (word, 2, 1), substr (word, 3, 1), substr (word, 4, 1)); 004116 aa 6 00100 2351 20 lda pr6|64,* mword.type 004117 aa 000010 7350 00 als 8 004120 aa 0 00004 3771 00 anaq pr0|4 = 600000000000 000000000000 004121 aa 6 00304 7551 00 sta pr6|196 mword.type 004122 aa 000063 6010 04 tnz 51,ic 004205 004123 aa 000 100 100 404 mlr (ic),(pr),fill(000) 004124 aa 775754 00 0104 desc9a -1044,68 002077 = 136064056064 004125 aa 6 00256 00 0104 desc9a pr6|174,68 004126 aa 6 00104 2351 00 lda pr6|68 word 004127 aa 000001 7350 00 als 1 004130 aa 0 00002 3771 00 anaq pr0|2 = 400000000000 000000000000 004131 aa 6 00223 7551 00 sta pr6|147 004132 aa 6 00104 2351 00 lda pr6|68 word 004133 aa 000002 7350 00 als 2 004134 aa 0 00002 3771 00 anaq pr0|2 = 400000000000 000000000000 004135 aa 6 00344 7551 00 sta pr6|228 004136 aa 6 00104 2351 00 lda pr6|68 word 004137 aa 000003 7350 00 als 3 004140 aa 0 00002 3771 00 anaq pr0|2 = 400000000000 000000000000 004141 aa 6 00345 7551 00 sta pr6|229 004142 aa 6 00032 3735 20 epp7 pr6|26,* 004143 aa 7 00004 3521 20 epp2 pr7|4,* sw 004144 aa 6 00310 2521 00 spri2 pr6|200 004145 aa 6 00256 3521 00 epp2 pr6|174 004146 aa 6 00312 2521 00 spri2 pr6|202 004147 aa 6 00104 3521 00 epp2 pr6|68 word 004150 aa 6 00314 2521 00 spri2 pr6|204 004151 aa 000012 7270 07 lxl7 10,dl 004152 aa 6 00100 3521 20 epp2 pr6|64,* mword.b 004153 aa 2 00000 5035 17 abd pr2|0,7 004154 aa 6 00316 2521 00 spri2 pr6|206 004155 aa 6 00223 3521 00 epp2 pr6|147 004156 aa 6 00320 2521 00 spri2 pr6|208 004157 aa 6 00344 3521 00 epp2 pr6|228 004160 aa 6 00322 2521 00 spri2 pr6|210 004161 aa 6 00345 3521 00 epp2 pr6|229 004162 aa 6 00324 2521 00 spri2 pr6|212 004163 aa 774460 3520 04 epp2 -1744,ic 000643 = 464000000000 004164 aa 6 00326 2521 00 spri2 pr6|214 004165 aa 774421 3520 04 epp2 -1775,ic 000606 = 524000000101 004166 aa 6 00330 2521 00 spri2 pr6|216 004167 aa 774441 3520 04 epp2 -1759,ic 000630 = 514000000020 004170 aa 6 00332 2521 00 spri2 pr6|218 004171 aa 774432 3520 04 epp2 -1766,ic 000623 = 516000000006 004172 aa 6 00334 2521 00 spri2 pr6|220 004173 aa 774442 3520 04 epp2 -1758,ic 000635 = 514000000001 004174 aa 6 00336 2521 00 spri2 pr6|222 004175 aa 6 00340 2521 00 spri2 pr6|224 004176 aa 6 00342 2521 00 spri2 pr6|226 004177 aa 6 00306 6211 00 eax1 pr6|198 004200 aa 034000 4310 07 fld 14336,dl 004201 aa 6 00044 3701 20 epp4 pr6|36,* 004202 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 004203 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc 004204 aa 000704 7100 04 tra 452,ic 005110 STATEMENT 1 ON LINE 225 else if mword.type = "01"b then /* EXECUTION IDCW */ call ioa_$ioa_switch (sw, "^4.4b^-IDCW EXECUTION^-OP=^2.3b^-DEVICE=^2.3b", word, substr (word, 3, 6), mword.b); 004205 aa 200000 1150 03 cmpa 65536,du 004206 aa 000045 6010 04 tnz 37,ic 004253 004207 aa 000 100 100 404 mlr (ic),(pr),fill(000) 004210 aa 775026 00 0060 desc9a -1514,48 001235 = 136064056064 004211 aa 6 00204 00 0060 desc9a pr6|132,48 004212 aa 6 00104 2351 00 lda pr6|68 word 004213 aa 000002 7350 00 als 2 004214 aa 0 00014 3771 00 anaq pr0|12 = 770000000000 000000000000 004215 aa 6 00345 7551 00 sta pr6|229 004216 aa 6 00032 3735 20 epp7 pr6|26,* 004217 aa 7 00004 3521 20 epp2 pr7|4,* sw 004220 aa 6 00260 2521 00 spri2 pr6|176 004221 aa 6 00204 3521 00 epp2 pr6|132 004222 aa 6 00262 2521 00 spri2 pr6|178 004223 aa 6 00104 3521 00 epp2 pr6|68 word 004224 aa 6 00264 2521 00 spri2 pr6|180 004225 aa 6 00345 3521 00 epp2 pr6|229 004226 aa 6 00266 2521 00 spri2 pr6|182 004227 aa 000012 7270 07 lxl7 10,dl 004230 aa 6 00100 3521 20 epp2 pr6|64,* mword.b 004231 aa 2 00000 5035 17 abd pr2|0,7 004232 aa 6 00270 2521 00 spri2 pr6|184 004233 aa 774410 3520 04 epp2 -1784,ic 000643 = 464000000000 004234 aa 6 00272 2521 00 spri2 pr6|186 004235 aa 774350 3520 04 epp2 -1816,ic 000605 = 524000000055 004236 aa 6 00274 2521 00 spri2 pr6|188 004237 aa 774371 3520 04 epp2 -1799,ic 000630 = 514000000020 004240 aa 6 00276 2521 00 spri2 pr6|190 004241 aa 774343 3520 04 epp2 -1821,ic 000604 = 514000000006 004242 aa 6 00300 2521 00 spri2 pr6|192 004243 aa 774360 3520 04 epp2 -1808,ic 000623 = 516000000006 004244 aa 6 00302 2521 00 spri2 pr6|194 004245 aa 6 00256 6211 00 eax1 pr6|174 004246 aa 024000 4310 07 fld 10240,dl 004247 aa 6 00044 3701 20 epp4 pr6|36,* 004250 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 004251 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc 004252 aa 000636 7100 04 tra 414,ic 005110 STATEMENT 1 ON LINE 230 else if mword.type = "10"b then /* TERM STATUS */ call ioa_$ioa_switch (sw, "^4.4b^-TERMINATE STATUS^-MAJOR=^2.3b^-SUB=^2.3b^-TCA=^1b,PSI=^1b,LOG-CHAN=^1b^/", word, "00"b || substr (word, 5, 4), mword.b, substr (word, 2, 1), substr (word, 3, 1), substr (word, 4, 1)); 004253 aa 400000 1150 03 cmpa 131072,du 004254 aa 000634 6010 04 tnz 412,ic 005110 004255 aa 000 100 100 404 mlr (ic),(pr),fill(000) 004256 aa 776043 00 0120 desc9a -989,80 002320 = 136064056064 004257 aa 6 00256 00 0120 desc9a pr6|174,80 004260 aa 6 00104 2351 00 lda pr6|68 word 004261 aa 000004 7350 00 als 4 004262 aa 0 00010 3771 00 anaq pr0|8 = 740000000000 000000000000 004263 aa 000002 7710 00 arl 2 004264 aa 6 00304 7551 00 sta pr6|196 004265 aa 6 00104 2351 00 lda pr6|68 word 004266 aa 000001 7350 00 als 1 004267 aa 0 00002 3771 00 anaq pr0|2 = 400000000000 000000000000 004270 aa 6 00345 7551 00 sta pr6|229 004271 aa 6 00104 2351 00 lda pr6|68 word 004272 aa 000002 7350 00 als 2 004273 aa 0 00002 3771 00 anaq pr0|2 = 400000000000 000000000000 004274 aa 6 00344 7551 00 sta pr6|228 004275 aa 6 00104 2351 00 lda pr6|68 word 004276 aa 000003 7350 00 als 3 004277 aa 0 00002 3771 00 anaq pr0|2 = 400000000000 000000000000 004300 aa 6 00223 7551 00 sta pr6|147 004301 aa 6 00032 3735 20 epp7 pr6|26,* 004302 aa 7 00004 3521 20 epp2 pr7|4,* sw 004303 aa 6 00350 2521 00 spri2 pr6|232 004304 aa 6 00256 3521 00 epp2 pr6|174 004305 aa 6 00352 2521 00 spri2 pr6|234 004306 aa 6 00104 3521 00 epp2 pr6|68 word 004307 aa 6 00354 2521 00 spri2 pr6|236 004310 aa 6 00304 3521 00 epp2 pr6|196 004311 aa 6 00356 2521 00 spri2 pr6|238 004312 aa 000012 7270 07 lxl7 10,dl 004313 aa 6 00100 3521 20 epp2 pr6|64,* mword.b 004314 aa 2 00000 5035 17 abd pr2|0,7 004315 aa 6 00360 2521 00 spri2 pr6|240 004316 aa 6 00345 3521 00 epp2 pr6|229 004317 aa 6 00362 2521 00 spri2 pr6|242 004320 aa 6 00344 3521 00 epp2 pr6|228 004321 aa 6 00364 2521 00 spri2 pr6|244 004322 aa 6 00223 3521 00 epp2 pr6|147 004323 aa 6 00366 2521 00 spri2 pr6|246 004324 aa 774317 3520 04 epp2 -1841,ic 000643 = 464000000000 004325 aa 6 00370 2521 00 spri2 pr6|248 004326 aa 774255 3520 04 epp2 -1875,ic 000603 = 524000000117 004327 aa 6 00372 2521 00 spri2 pr6|250 004330 aa 774300 3520 04 epp2 -1856,ic 000630 = 514000000020 004331 aa 6 00374 2521 00 spri2 pr6|252 004332 aa 774252 3520 04 epp2 -1878,ic 000604 = 514000000006 004333 aa 6 00376 2521 00 spri2 pr6|254 004334 aa 774267 3520 04 epp2 -1865,ic 000623 = 516000000006 004335 aa 6 00400 2521 00 spri2 pr6|256 004336 aa 774277 3520 04 epp2 -1857,ic 000635 = 514000000001 004337 aa 6 00402 2521 00 spri2 pr6|258 004340 aa 6 00404 2521 00 spri2 pr6|260 004341 aa 6 00406 2521 00 spri2 pr6|262 004342 aa 6 00346 6211 00 eax1 pr6|230 004343 aa 040000 4310 07 fld 16384,dl 004344 aa 6 00044 3701 20 epp4 pr6|36,* 004345 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 004346 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 236 go to skip_zeroes; 004347 aa 000541 7100 04 tra 353,ic 005110 STATEMENT 1 ON LINE 237 end; STATEMENT 1 ON LINE 238 if mword.st then /* If status ... */ call ioa_$ioa_switch (sw, "^4.4b^-TERMINATE STATUS^-MAJOR=^2.3b^-SUB=^2.3b^-LA=^1b,PSI=^1b,LOG-CHAN=^.3b^/", word, "00"b || substr (word, 7, 4), mword.b, substr (mword.a, 1, 1), substr (mword.a, 2, 1), substr (mword.a, 3, 3)); 004350 aa 6 00100 2351 20 lda pr6|64,* mword.st 004351 aa 400000 3150 03 cana 131072,du 004352 aa 000074 6000 04 tze 60,ic 004446 004353 aa 000 100 100 404 mlr (ic),(pr),fill(000) 004354 aa 775721 00 0120 desc9a -1071,80 002274 = 136064056064 004355 aa 6 00256 00 0120 desc9a pr6|174,80 004356 aa 6 00104 2351 00 lda pr6|68 word 004357 aa 000006 7350 00 als 6 004360 aa 0 00010 3771 00 anaq pr0|8 = 740000000000 000000000000 004361 aa 000002 7710 00 arl 2 004362 aa 6 00223 7551 00 sta pr6|147 004363 aa 6 00100 2351 20 lda pr6|64,* mword.a 004364 aa 000001 7350 00 als 1 004365 aa 0 00002 3771 00 anaq pr0|2 = 400000000000 000000000000 004366 aa 6 00344 7551 00 sta pr6|228 004367 aa 6 00100 2351 20 lda pr6|64,* mword.a 004370 aa 000002 7350 00 als 2 004371 aa 0 00002 3771 00 anaq pr0|2 = 400000000000 000000000000 004372 aa 6 00345 7551 00 sta pr6|229 004373 aa 6 00100 2351 20 lda pr6|64,* mword.a 004374 aa 000003 7350 00 als 3 004375 aa 0 00006 3771 00 anaq pr0|6 = 700000000000 000000000000 004376 aa 6 00304 7551 00 sta pr6|196 004377 aa 7 00004 3521 20 epp2 pr7|4,* sw 004400 aa 6 00350 2521 00 spri2 pr6|232 004401 aa 6 00256 3521 00 epp2 pr6|174 004402 aa 6 00352 2521 00 spri2 pr6|234 004403 aa 6 00104 3521 00 epp2 pr6|68 word 004404 aa 6 00354 2521 00 spri2 pr6|236 004405 aa 6 00223 3521 00 epp2 pr6|147 004406 aa 6 00356 2521 00 spri2 pr6|238 004407 aa 000012 7270 07 lxl7 10,dl 004410 aa 6 00100 3521 20 epp2 pr6|64,* mword.b 004411 aa 2 00000 5035 17 abd pr2|0,7 004412 aa 6 00360 2521 00 spri2 pr6|240 004413 aa 6 00344 3521 00 epp2 pr6|228 004414 aa 6 00362 2521 00 spri2 pr6|242 004415 aa 6 00345 3521 00 epp2 pr6|229 004416 aa 6 00364 2521 00 spri2 pr6|244 004417 aa 6 00304 3521 00 epp2 pr6|196 004420 aa 6 00366 2521 00 spri2 pr6|246 004421 aa 774222 3520 04 epp2 -1902,ic 000643 = 464000000000 004422 aa 6 00370 2521 00 spri2 pr6|248 004423 aa 774160 3520 04 epp2 -1936,ic 000603 = 524000000117 004424 aa 6 00372 2521 00 spri2 pr6|250 004425 aa 774203 3520 04 epp2 -1917,ic 000630 = 514000000020 004426 aa 6 00374 2521 00 spri2 pr6|252 004427 aa 774155 3520 04 epp2 -1939,ic 000604 = 514000000006 004430 aa 6 00376 2521 00 spri2 pr6|254 004431 aa 774172 3520 04 epp2 -1926,ic 000623 = 516000000006 004432 aa 6 00400 2521 00 spri2 pr6|256 004433 aa 774202 3520 04 epp2 -1918,ic 000635 = 514000000001 004434 aa 6 00402 2521 00 spri2 pr6|258 004435 aa 6 00404 2521 00 spri2 pr6|260 004436 aa 774162 3520 04 epp2 -1934,ic 000620 = 514000000003 004437 aa 6 00406 2521 00 spri2 pr6|262 004440 aa 6 00346 6211 00 eax1 pr6|230 004441 aa 040000 4310 07 fld 16384,dl 004442 aa 6 00044 3701 20 epp4 pr6|36,* 004443 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 004444 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc 004445 aa 000443 7100 04 tra 291,ic 005110 STATEMENT 1 ON LINE 244 else /* If not status ... */ if mword.type = "00"b then /* Type 00 = COMMAND */ call ioa_$ioa_switch (sw, "^4.4b^-COMMAND^2-OP=^2.3b^-DEVICE=^2.3b", word, substr (mword.a, 2, 6), mword.b); 004446 aa 6 00100 2351 20 lda pr6|64,* mword.type 004447 aa 000010 7350 00 als 8 004450 aa 0 00004 3771 00 anaq pr0|4 = 600000000000 000000000000 004451 aa 6 00304 7551 00 sta pr6|196 mword.type 004452 aa 000044 6010 04 tnz 36,ic 004516 004453 aa 000 100 100 404 mlr (ic),(pr),fill(000) 004454 aa 774445 00 0050 desc9a -1755,40 001120 = 136064056064 004455 aa 6 00172 00 0050 desc9a pr6|122,40 004456 aa 6 00100 2351 20 lda pr6|64,* mword.a 004457 aa 000002 7350 00 als 2 004460 aa 0 00014 3771 00 anaq pr0|12 = 770000000000 000000000000 004461 aa 6 00345 7551 00 sta pr6|229 004462 aa 7 00004 3521 20 epp2 pr7|4,* sw 004463 aa 6 00260 2521 00 spri2 pr6|176 004464 aa 6 00172 3521 00 epp2 pr6|122 004465 aa 6 00262 2521 00 spri2 pr6|178 004466 aa 6 00104 3521 00 epp2 pr6|68 word 004467 aa 6 00264 2521 00 spri2 pr6|180 004470 aa 6 00345 3521 00 epp2 pr6|229 004471 aa 6 00266 2521 00 spri2 pr6|182 004472 aa 000012 7270 07 lxl7 10,dl 004473 aa 6 00100 3521 20 epp2 pr6|64,* mword.b 004474 aa 2 00000 5035 17 abd pr2|0,7 004475 aa 6 00270 2521 00 spri2 pr6|184 004476 aa 774145 3520 04 epp2 -1947,ic 000643 = 464000000000 004477 aa 6 00272 2521 00 spri2 pr6|186 004500 aa 774102 3520 04 epp2 -1982,ic 000602 = 524000000047 004501 aa 6 00274 2521 00 spri2 pr6|188 004502 aa 774126 3520 04 epp2 -1962,ic 000630 = 514000000020 004503 aa 6 00276 2521 00 spri2 pr6|190 004504 aa 774100 3520 04 epp2 -1984,ic 000604 = 514000000006 004505 aa 6 00300 2521 00 spri2 pr6|192 004506 aa 774115 3520 04 epp2 -1971,ic 000623 = 516000000006 004507 aa 6 00302 2521 00 spri2 pr6|194 004510 aa 6 00256 6211 00 eax1 pr6|174 004511 aa 024000 4310 07 fld 10240,dl 004512 aa 6 00044 3701 20 epp4 pr6|36,* 004513 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 004514 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc 004515 aa 000373 7100 04 tra 251,ic 005110 STATEMENT 1 ON LINE 251 else if mword.type = "10"b then /* Type 10 = IDCW */ call ioa_$ioa_switch (sw, "^4.4b^-IDCW^3-DEVICE=^2.3b^-LA=^1b,PSI=^1b,LOG-CHAN=^.3b", word, mword.b, substr (mword.a, 1, 1), substr (mword.a, 2, 1), substr (mword.a, 3, 3)); 004516 aa 400000 1150 03 cmpa 131072,du 004517 aa 000063 6010 04 tnz 51,ic 004602 004520 aa 000 100 100 404 mlr (ic),(pr),fill(000) 004521 aa 774671 00 0070 desc9a -1607,56 001411 = 136064056064 004522 aa 6 00204 00 0070 desc9a pr6|132,56 004523 aa 6 00100 2351 20 lda pr6|64,* mword.a 004524 aa 000001 7350 00 als 1 004525 aa 0 00002 3771 00 anaq pr0|2 = 400000000000 000000000000 004526 aa 6 00345 7551 00 sta pr6|229 004527 aa 6 00100 2351 20 lda pr6|64,* mword.a 004530 aa 000002 7350 00 als 2 004531 aa 0 00002 3771 00 anaq pr0|2 = 400000000000 000000000000 004532 aa 6 00344 7551 00 sta pr6|228 004533 aa 6 00100 2351 20 lda pr6|64,* mword.a 004534 aa 000003 7350 00 als 3 004535 aa 0 00006 3771 00 anaq pr0|6 = 700000000000 000000000000 004536 aa 6 00223 7551 00 sta pr6|147 004537 aa 7 00004 3521 20 epp2 pr7|4,* sw 004540 aa 6 00310 2521 00 spri2 pr6|200 004541 aa 6 00204 3521 00 epp2 pr6|132 004542 aa 6 00312 2521 00 spri2 pr6|202 004543 aa 6 00104 3521 00 epp2 pr6|68 word 004544 aa 6 00314 2521 00 spri2 pr6|204 004545 aa 000012 7270 07 lxl7 10,dl 004546 aa 6 00100 3521 20 epp2 pr6|64,* mword.b 004547 aa 2 00000 5035 17 abd pr2|0,7 004550 aa 6 00316 2521 00 spri2 pr6|206 004551 aa 6 00345 3521 00 epp2 pr6|229 004552 aa 6 00320 2521 00 spri2 pr6|208 004553 aa 6 00344 3521 00 epp2 pr6|228 004554 aa 6 00322 2521 00 spri2 pr6|210 004555 aa 6 00223 3521 00 epp2 pr6|147 004556 aa 6 00324 2521 00 spri2 pr6|212 004557 aa 774064 3520 04 epp2 -1996,ic 000643 = 464000000000 004560 aa 6 00326 2521 00 spri2 pr6|214 004561 aa 774020 3520 04 epp2 -2032,ic 000601 = 524000000070 004562 aa 6 00330 2521 00 spri2 pr6|216 004563 aa 774045 3520 04 epp2 -2011,ic 000630 = 514000000020 004564 aa 6 00332 2521 00 spri2 pr6|218 004565 aa 774036 3520 04 epp2 -2018,ic 000623 = 516000000006 004566 aa 6 00334 2521 00 spri2 pr6|220 004567 aa 774046 3520 04 epp2 -2010,ic 000635 = 514000000001 004570 aa 6 00336 2521 00 spri2 pr6|222 004571 aa 6 00340 2521 00 spri2 pr6|224 004572 aa 774026 3520 04 epp2 -2026,ic 000620 = 514000000003 004573 aa 6 00342 2521 00 spri2 pr6|226 004574 aa 6 00306 6211 00 eax1 pr6|198 004575 aa 034000 4310 07 fld 14336,dl 004576 aa 6 00044 3701 20 epp4 pr6|36,* 004577 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 004600 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc 004601 aa 000307 7100 04 tra 199,ic 005110 STATEMENT 1 ON LINE 255 else if mword.type = "11"b then do; 004602 aa 600000 1150 03 cmpa 196608,du 004603 aa 000241 6010 04 tnz 161,ic 005044 STATEMENT 1 ON LINE 256 if substr (mpc_data.type, 1, 3) = "mtp" then do; 004604 aa 6 00222 2351 00 lda pr6|146 mpc_data.type 004605 aa 774007 1150 04 cmpa -2041,ic 000614 = 155164160000 004606 aa 000101 6010 04 tnz 65,ic 004707 STATEMENT 1 ON LINE 257 STR = ""; 004607 aa 6 00115 4501 00 stz pr6|77 STR STATEMENT 1 ON LINE 258 do i = 1 to 7 while (STR = ""); 004610 aa 000001 2360 07 ldq 1,dl 004611 aa 6 00125 7561 00 stq pr6|85 i 004612 aa 6 00125 2361 00 ldq pr6|85 i 004613 aa 000007 1160 07 cmpq 7,dl 004614 aa 000025 6054 04 tpnz 21,ic 004641 004615 aa 6 00115 7271 00 lxl7 pr6|77 STR 004616 aa 040 004 106 540 cmpc (pr,rl),(ic),fill(040) 004617 aa 6 00116 00 0017 desc9a pr6|78,x7 STR 004620 aa 005344 00 0000 desc9a 2788,0 012162 = 777770000000 004621 aa 000020 6010 04 tnz 16,ic 004641 STATEMENT 1 ON LINE 259 if substr (mword.a, i + 1, 1) = "1"b then STR = mth_spec_type (i); 004622 aa 6 00100 3735 20 epp7 pr6|64,* p 004623 aa 000 004 066 506 cmpb (pr,ql),(ic),fill(0) 004624 aa 7 00000 01 0001 descb pr7|0(1),1 mword.a 004625 aa 005341 00 0001 descb 2785,1 012164 = 400000000000 004626 aa 000011 6010 04 tnz 9,ic 004637 004627 aa 000005 4020 07 mpy 5,dl 004630 aa 000000 6270 06 eax7 0,ql 004631 ta 000453 2360 06 ldq 299,ql 004632 ta 000454 3714 17 epp5 300,7 004633 aa 6 00115 7561 00 stq pr6|77 STR 004634 aa 040 140 100 540 mlr (pr,rl),(pr,rl),fill(040) 004635 aa 5 00000 00 0006 desc9a pr5|0,ql mth_spec_type 004636 aa 6 00116 00 0006 desc9a pr6|78,ql STR STATEMENT 1 ON LINE 260 end; 004637 aa 6 00125 0541 00 aos pr6|85 i 004640 aa 777752 7100 04 tra -22,ic 004612 STATEMENT 1 ON LINE 262 call ioa_$ioa_switch (sw, "^4.4b^-SPECIAL^-TYPE=^8b^-DEVICE=^2.3b^/^a", word, mword.a, mword.b, STR); 004641 aa 000 100 100 404 mlr (ic),(pr),fill(000) 004642 aa 774332 00 0054 desc9a -1830,44 001173 = 136064056064 004643 aa 6 00204 00 0054 desc9a pr6|132,44 004644 aa 6 00032 3735 20 epp7 pr6|26,* 004645 aa 7 00004 3521 20 epp2 pr7|4,* sw 004646 aa 6 00226 2521 00 spri2 pr6|150 004647 aa 6 00204 3521 00 epp2 pr6|132 004650 aa 6 00230 2521 00 spri2 pr6|152 004651 aa 6 00104 3521 00 epp2 pr6|68 word 004652 aa 6 00232 2521 00 spri2 pr6|154 004653 aa 000001 7270 07 lxl7 1,dl 004654 aa 6 00100 3521 20 epp2 pr6|64,* mword.a 004655 aa 2 00000 5035 17 abd pr2|0,7 004656 aa 6 00234 2521 00 spri2 pr6|156 004657 aa 000012 7260 07 lxl6 10,dl 004660 aa 6 00100 3521 20 epp2 pr6|64,* mword.b 004661 aa 2 00000 5035 16 abd pr2|0,6 004662 aa 6 00236 2521 00 spri2 pr6|158 004663 aa 6 00116 3521 00 epp2 pr6|78 STR 004664 aa 6 00240 2521 00 spri2 pr6|160 004665 aa 773756 3520 04 epp2 -2066,ic 000643 = 464000000000 004666 aa 6 00242 2521 00 spri2 pr6|162 004667 aa 773711 3520 04 epp2 -2103,ic 000600 = 524000000052 004670 aa 6 00244 2521 00 spri2 pr6|164 004671 aa 773737 3520 04 epp2 -2081,ic 000630 = 514000000020 004672 aa 6 00246 2521 00 spri2 pr6|166 004673 aa 773704 3520 04 epp2 -2108,ic 000577 = 516000000007 004674 aa 6 00250 2521 00 spri2 pr6|168 004675 aa 773726 3520 04 epp2 -2090,ic 000623 = 516000000006 004676 aa 6 00252 2521 00 spri2 pr6|170 004677 aa 773710 3520 04 epp2 -2104,ic 000607 = 530000000031 004700 aa 6 00254 2521 00 spri2 pr6|172 004701 aa 6 00224 6211 00 eax1 pr6|148 004702 aa 030000 4310 07 fld 12288,dl 004703 aa 6 00044 3701 20 epp4 pr6|36,* 004704 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 004705 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 264 end; 004706 aa 000202 7100 04 tra 130,ic 005110 STATEMENT 1 ON LINE 266 else do; STATEMENT 1 ON LINE 267 if substr (word, 9, 3) = "111"b then /* RPS TYPE */ call ioa_$ioa_switch (sw, "^4.4b^-RPS FLAG^3-DEVICE=^2.3b", word, "0"b || substr (word, 12)) ; 004707 aa 6 00104 2351 00 lda pr6|68 word 004710 aa 000010 7350 00 als 8 004711 aa 0 00006 3771 00 anaq pr0|6 = 700000000000 000000000000 004712 aa 700000 1150 03 cmpa 229376,du 004713 aa 000037 6010 04 tnz 31,ic 004752 004714 aa 000 100 100 404 mlr (ic),(pr),fill(000) 004715 aa 774060 00 0040 desc9a -2000,32 000774 = 136064056064 004716 aa 6 00172 00 0040 desc9a pr6|122,32 004717 aa 6 00104 2351 00 lda pr6|68 word 004720 aa 000013 7350 00 als 11 004721 aa 0 00012 3771 00 anaq pr0|10 = 760000000000 000000000000 004722 aa 000001 7710 00 arl 1 004723 aa 6 00223 7551 00 sta pr6|147 004724 aa 7 00004 3521 20 epp2 pr7|4,* sw 004725 aa 6 00260 2521 00 spri2 pr6|176 004726 aa 6 00172 3521 00 epp2 pr6|122 004727 aa 6 00262 2521 00 spri2 pr6|178 004730 aa 6 00104 3521 00 epp2 pr6|68 word 004731 aa 6 00264 2521 00 spri2 pr6|180 004732 aa 6 00223 3521 00 epp2 pr6|147 004733 aa 6 00266 2521 00 spri2 pr6|182 004734 aa 773707 3520 04 epp2 -2105,ic 000643 = 464000000000 004735 aa 6 00270 2521 00 spri2 pr6|184 004736 aa 773640 3520 04 epp2 -2144,ic 000576 = 524000000036 004737 aa 6 00272 2521 00 spri2 pr6|186 004740 aa 773670 3520 04 epp2 -2120,ic 000630 = 514000000020 004741 aa 6 00274 2521 00 spri2 pr6|188 004742 aa 773642 3520 04 epp2 -2142,ic 000604 = 514000000006 004743 aa 6 00276 2521 00 spri2 pr6|190 004744 aa 6 00256 6211 00 eax1 pr6|174 004745 aa 020000 4310 07 fld 8192,dl 004746 aa 6 00044 3701 20 epp4 pr6|36,* 004747 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 004750 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc 004751 aa 000137 7100 04 tra 95,ic 005110 STATEMENT 1 ON LINE 272 else call ioa_$ioa_switch (sw, "^4.4b^-SPECIAL^-TYPE=^2b^2-DEVICE=^2.3b^-LA=^1b,PSI=^1b,LOG-CHAN=^.3b", word, substr (mword.a, 6, 2), mword.b, substr (mword.a, 1, 1), substr (mword.a, 2, 1), substr (mword.a, 3, 3)); 004752 aa 000 100 100 404 mlr (ic),(pr),fill(000) 004753 aa 775255 00 0110 desc9a -1363,72 002227 = 136064056064 004754 aa 6 00256 00 0110 desc9a pr6|174,72 004755 aa 6 00100 2351 20 lda pr6|64,* mword.a 004756 aa 000006 7350 00 als 6 004757 aa 0 00004 3771 00 anaq pr0|4 = 600000000000 000000000000 004760 aa 6 00223 7551 00 sta pr6|147 004761 aa 6 00100 2351 20 lda pr6|64,* mword.a 004762 aa 000001 7350 00 als 1 004763 aa 0 00002 3771 00 anaq pr0|2 = 400000000000 000000000000 004764 aa 6 00344 7551 00 sta pr6|228 004765 aa 6 00100 2351 20 lda pr6|64,* mword.a 004766 aa 000002 7350 00 als 2 004767 aa 0 00002 3771 00 anaq pr0|2 = 400000000000 000000000000 004770 aa 6 00345 7551 00 sta pr6|229 004771 aa 6 00100 2351 20 lda pr6|64,* mword.a 004772 aa 000003 7350 00 als 3 004773 aa 0 00006 3771 00 anaq pr0|6 = 700000000000 000000000000 004774 aa 6 00305 7551 00 sta pr6|197 004775 aa 7 00004 3521 20 epp2 pr7|4,* sw 004776 aa 6 00350 2521 00 spri2 pr6|232 004777 aa 6 00256 3521 00 epp2 pr6|174 005000 aa 6 00352 2521 00 spri2 pr6|234 005001 aa 6 00104 3521 00 epp2 pr6|68 word 005002 aa 6 00354 2521 00 spri2 pr6|236 005003 aa 6 00223 3521 00 epp2 pr6|147 005004 aa 6 00356 2521 00 spri2 pr6|238 005005 aa 000012 7270 07 lxl7 10,dl 005006 aa 6 00100 3521 20 epp2 pr6|64,* mword.b 005007 aa 2 00000 5035 17 abd pr2|0,7 005010 aa 6 00360 2521 00 spri2 pr6|240 005011 aa 6 00344 3521 00 epp2 pr6|228 005012 aa 6 00362 2521 00 spri2 pr6|242 005013 aa 6 00345 3521 00 epp2 pr6|229 005014 aa 6 00364 2521 00 spri2 pr6|244 005015 aa 6 00305 3521 00 epp2 pr6|197 005016 aa 6 00366 2521 00 spri2 pr6|246 005017 aa 773624 3520 04 epp2 -2156,ic 000643 = 464000000000 005020 aa 6 00370 2521 00 spri2 pr6|248 005021 aa 773554 3520 04 epp2 -2196,ic 000575 = 524000000105 005022 aa 6 00372 2521 00 spri2 pr6|250 005023 aa 773605 3520 04 epp2 -2171,ic 000630 = 514000000020 005024 aa 6 00374 2521 00 spri2 pr6|252 005025 aa 773547 3520 04 epp2 -2201,ic 000574 = 514000000002 005026 aa 6 00376 2521 00 spri2 pr6|254 005027 aa 773574 3520 04 epp2 -2180,ic 000623 = 516000000006 005030 aa 6 00400 2521 00 spri2 pr6|256 005031 aa 773604 3520 04 epp2 -2172,ic 000635 = 514000000001 005032 aa 6 00402 2521 00 spri2 pr6|258 005033 aa 6 00404 2521 00 spri2 pr6|260 005034 aa 773564 3520 04 epp2 -2188,ic 000620 = 514000000003 005035 aa 6 00406 2521 00 spri2 pr6|262 005036 aa 6 00346 6211 00 eax1 pr6|230 005037 aa 040000 4310 07 fld 16384,dl 005040 aa 6 00044 3701 20 epp4 pr6|36,* 005041 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 005042 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 276 end; STATEMENT 1 ON LINE 277 end; 005043 aa 000045 7100 04 tra 37,ic 005110 STATEMENT 1 ON LINE 279 else if mword.type = "01"b then /* Type 01 = POLLING */ if substr (mpc_data.type, 1, 3) = "msp" then call ioa_$ioa_switch (sw, "^4.4b^-POLLING^2-CA=^2b", word, substr (mword.b, 5)); 005044 aa 200000 1150 03 cmpa 65536,du 005045 aa 000043 6010 04 tnz 35,ic 005110 005046 aa 6 00222 2351 00 lda pr6|146 mpc_data.type 005047 aa 773524 1150 04 cmpa -2220,ic 000573 = 155163160000 005050 aa 000040 6010 04 tnz 32,ic 005110 005051 aa 773641 2370 04 ldaq -2143,ic 000712 = 136064056064 142136055120 005052 aa 6 00172 7571 00 staq pr6|122 005053 aa 773641 2370 04 ldaq -2143,ic 000714 = 117114114111 116107136062 005054 aa 6 00174 7571 00 staq pr6|124 005055 aa 773641 2370 04 ldaq -2143,ic 000716 = 055103101075 136062142000 005056 aa 6 00176 7571 00 staq pr6|126 005057 aa 6 00100 2351 20 lda pr6|64,* mword.b 005060 aa 000016 7350 00 als 14 005061 aa 0 00004 3771 00 anaq pr0|4 = 600000000000 000000000000 005062 aa 6 00222 7551 00 sta pr6|146 005063 aa 7 00004 3521 20 epp2 pr7|4,* sw 005064 aa 6 00260 2521 00 spri2 pr6|176 005065 aa 6 00172 3521 00 epp2 pr6|122 005066 aa 6 00262 2521 00 spri2 pr6|178 005067 aa 6 00104 3521 00 epp2 pr6|68 word 005070 aa 6 00264 2521 00 spri2 pr6|180 005071 aa 6 00222 3521 00 epp2 pr6|146 005072 aa 6 00266 2521 00 spri2 pr6|182 005073 aa 773550 3520 04 epp2 -2200,ic 000643 = 464000000000 005074 aa 6 00270 2521 00 spri2 pr6|184 005075 aa 773475 3520 04 epp2 -2243,ic 000572 = 524000000027 005076 aa 6 00272 2521 00 spri2 pr6|186 005077 aa 773531 3520 04 epp2 -2215,ic 000630 = 514000000020 005100 aa 6 00274 2521 00 spri2 pr6|188 005101 aa 773473 3520 04 epp2 -2245,ic 000574 = 514000000002 005102 aa 6 00276 2521 00 spri2 pr6|190 005103 aa 6 00256 6211 00 eax1 pr6|174 005104 aa 020000 4310 07 fld 8192,dl 005105 aa 6 00044 3701 20 epp4 pr6|36,* 005106 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 005107 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 285 skip_zeroes: end; 005110 aa 6 00105 0541 00 aos pr6|69 loc 005111 aa 775675 7100 04 tra -1091,ic 003006 STATEMENT 1 ON LINE 287 return; 005112 aa 0 00631 7101 00 tra pr0|409 return ENTRY TO trace_mpc_$eurc STATEMENT 1 ON LINE 289 trace_mpc_$eurc: entry (image_ptr, sw, mpc_datap); 005113 ta 002665000000 005114 da 000052300000 005115 aa 000560 6270 00 eax7 368 005116 aa 7 00034 3521 20 epp2 pr7|28,* 005117 aa 2 01045 2721 00 tsp2 pr2|549 ext_entry 005120 aa 000006000000 005121 aa 000000000000 005122 aa 775536 7000 04 tsx0 -1186,ic 002660 STATEMENT 1 ON LINE 292 call date_time_ (clock (), dt); 005123 aa 0 01435 7001 00 tsx0 pr0|797 clock 005124 aa 6 00170 7571 00 staq pr6|120 005125 aa 6 00170 3521 00 epp2 pr6|120 005126 aa 6 00174 2521 00 spri2 pr6|124 005127 aa 6 00106 3521 00 epp2 pr6|70 dt 005130 aa 6 00176 2521 00 spri2 pr6|126 005131 aa 773511 3520 04 epp2 -2231,ic 000642 = 410000000064 005132 aa 6 00200 2521 00 spri2 pr6|128 005133 aa 773506 3520 04 epp2 -2234,ic 000641 = 526000000030 005134 aa 6 00202 2521 00 spri2 pr6|130 005135 aa 6 00172 6211 00 eax1 pr6|122 005136 aa 010000 4310 07 fld 4096,dl 005137 aa 6 00044 3701 20 epp4 pr6|36,* 005140 la 4 00012 3521 20 epp2 pr4|10,* date_time_ 005141 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 293 call ioa_$ioa_switch (sw, "^|^5xTrace of ^a controller.^3x^a^/", mpc_data.name, dt); 005142 aa 000 100 100 404 mlr (ic),(pr),fill(000) 005143 aa 773664 00 0044 desc9a -2124,36 001026 = 136174136065 005144 aa 6 00172 00 0044 desc9a pr6|122,36 005145 aa 6 00032 3735 20 epp7 pr6|26,* 005146 aa 7 00004 3521 20 epp2 pr7|4,* sw 005147 aa 6 00260 2521 00 spri2 pr6|176 005150 aa 6 00172 3521 00 epp2 pr6|122 005151 aa 6 00262 2521 00 spri2 pr6|178 005152 aa 7 00006 3715 20 epp5 pr7|6,* mpc_datap 005153 aa 5 00000 3715 20 epp5 pr5|0,* mpc_datap 005154 aa 5 00001 3521 00 epp2 pr5|1 mpc_data.name 005155 aa 6 00264 2521 00 spri2 pr6|180 005156 aa 6 00106 3521 00 epp2 pr6|70 dt 005157 aa 6 00266 2521 00 spri2 pr6|182 005160 aa 773463 3520 04 epp2 -2253,ic 000643 = 464000000000 005161 aa 6 00270 2521 00 spri2 pr6|184 005162 aa 773407 3520 04 epp2 -2297,ic 000571 = 524000000043 005163 aa 6 00272 2521 00 spri2 pr6|186 005164 aa 773452 3520 04 epp2 -2262,ic 000636 = 524000000040 005165 aa 6 00274 2521 00 spri2 pr6|188 005166 aa 773453 3520 04 epp2 -2261,ic 000641 = 526000000030 005167 aa 6 00276 2521 00 spri2 pr6|190 005170 aa 6 00256 6211 00 eax1 pr6|174 005171 aa 020000 4310 07 fld 8192,dl 005172 aa 6 00044 3701 20 epp4 pr6|36,* 005173 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 005174 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 295 eurc_trace_ptr = image_ptr; 005175 aa 6 00032 3735 20 epp7 pr6|26,* 005176 aa 7 00002 3715 20 epp5 pr7|2,* image_ptr 005177 aa 5 00000 3715 20 epp5 pr5|0,* image_ptr 005200 aa 6 00102 6515 00 spri5 pr6|66 eurc_trace_ptr STATEMENT 1 ON LINE 297 do loc = 0 to 15; 005201 aa 6 00105 4501 00 stz pr6|69 loc 005202 aa 6 00105 2361 00 ldq pr6|69 loc 005203 aa 000017 1160 07 cmpq 15,dl 005204 aa 001163 6054 04 tpnz 627,ic 006367 STATEMENT 1 ON LINE 298 call ioa_$ioa_switch (sw, "^2.4b^-MODULE=^a^-LOG-CHAN=^.2b", eurc_trace (loc).module || eurc_trace (loc).pad1 || eurc_trace (loc).LCN, eurc_module (bin (eurc_trace (loc).module, 4)), eurc_trace (loc).LCN); 005205 aa 000 100 100 404 mlr (ic),(pr),fill(000) 005206 aa 773557 00 0040 desc9a -2193,32 000764 = 136062056064 005207 aa 6 00172 00 0040 desc9a pr6|122,32 005210 aa 000007 7360 00 qls 7 005211 aa 6 00102 3735 20 epp7 pr6|66,* eurc_trace_ptr 005212 aa 003 100 060 506 csl (pr,ql),(pr),fill(0),bool(move) 005213 aa 7 00000 00 0004 descb pr7|0,4 eurc_trace.module 005214 aa 6 00222 00 0044 descb pr6|146,36 eurc_trace.module 005215 aa 003 100 060 506 csl (pr,ql),(pr),fill(0),bool(move) 005216 aa 7 00000 04 0002 descb pr7|0(4),2 eurc_trace.pad1 005217 aa 6 00056 00 0044 descb pr6|46,36 005220 aa 6 00056 2351 00 lda pr6|46 005221 aa 000004 7710 00 arl 4 005222 aa 6 00222 2751 00 ora pr6|146 eurc_trace.module 005223 aa 6 00304 7551 00 sta pr6|196 005224 aa 003 100 060 506 csl (pr,ql),(pr),fill(0),bool(move) 005225 aa 7 00000 06 0002 descb pr7|0(6),2 eurc_trace.LCN 005226 aa 6 00056 00 0044 descb pr6|46,36 005227 aa 6 00056 2351 00 lda pr6|46 005230 aa 000006 7710 00 arl 6 005231 aa 6 00304 2751 00 ora pr6|196 005232 aa 6 00304 7551 00 sta pr6|196 005233 aa 6 00222 2351 00 lda pr6|146 eurc_trace.module 005234 aa 6 00222 7561 00 stq pr6|146 005235 aa 000104 7730 00 lrl 68 005236 aa 000005 4020 07 mpy 5,dl 005237 aa 6 00032 3715 20 epp5 pr6|26,* 005240 aa 5 00004 3521 20 epp2 pr5|4,* sw 005241 aa 6 00260 2521 00 spri2 pr6|176 005242 aa 6 00172 3521 00 epp2 pr6|122 005243 aa 6 00262 2521 00 spri2 pr6|178 005244 aa 6 00304 3521 00 epp2 pr6|196 005245 aa 6 00264 2521 00 spri2 pr6|180 005246 ta 000021 3520 06 epp2 17,ql 005247 aa 6 00266 2521 00 spri2 pr6|182 005250 aa 6 00222 7271 00 lxl7 pr6|146 005251 aa 000006 6270 17 eax7 6,7 005252 aa 7 00000 3521 00 epp2 pr7|0 eurc_trace.LCN 005253 aa 2 00000 5035 17 abd pr2|0,7 005254 aa 6 00270 2521 00 spri2 pr6|184 005255 aa 773366 3520 04 epp2 -2314,ic 000643 = 464000000000 005256 aa 6 00272 2521 00 spri2 pr6|186 005257 aa 773311 3520 04 epp2 -2359,ic 000570 = 524000000037 005260 aa 6 00274 2521 00 spri2 pr6|188 005261 aa 773331 3520 04 epp2 -2343,ic 000612 = 514000000010 005262 aa 6 00276 2521 00 spri2 pr6|190 005263 aa 773304 3520 04 epp2 -2364,ic 000567 = 530000000017 005264 aa 6 00300 2521 00 spri2 pr6|192 005265 aa 773301 3520 04 epp2 -2367,ic 000566 = 516000000002 005266 aa 6 00302 2521 00 spri2 pr6|194 005267 aa 6 00256 6211 00 eax1 pr6|174 005270 aa 024000 4310 07 fld 10240,dl 005271 aa 6 00044 3701 20 epp4 pr6|36,* 005272 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 005273 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 301 call ioa_$ioa_switch (sw, "^2.4b^-REASON=^2.4b", eurc_trace (loc).reason, eurc_trace (loc).reason); 005274 aa 773370 2370 04 ldaq -2312,ic 000664 = 136062056064 142136055122 005275 aa 6 00172 7571 00 staq pr6|122 005276 aa 773370 2370 04 ldaq -2312,ic 000666 = 105101123117 116075136062 005277 aa 6 00174 7571 00 staq pr6|124 005300 aa 773370 2350 04 lda -2312,ic 000670 = 056064142000 005301 aa 6 00176 7551 00 sta pr6|126 005302 aa 6 00032 3735 20 epp7 pr6|26,* 005303 aa 7 00004 3521 20 epp2 pr7|4,* sw 005304 aa 6 00260 2521 00 spri2 pr6|176 005305 aa 6 00172 3521 00 epp2 pr6|122 005306 aa 6 00262 2521 00 spri2 pr6|178 005307 aa 6 00222 7271 00 lxl7 pr6|146 005310 aa 000010 6270 17 eax7 8,7 005311 aa 6 00102 3521 20 epp2 pr6|66,* eurc_trace.reason 005312 aa 2 00000 5035 17 abd pr2|0,7 005313 aa 6 00264 2521 00 spri2 pr6|180 005314 aa 6 00102 3521 20 epp2 pr6|66,* eurc_trace.reason 005315 aa 2 00000 5035 17 abd pr2|0,7 005316 aa 6 00266 2521 00 spri2 pr6|182 005317 aa 773324 3520 04 epp2 -2348,ic 000643 = 464000000000 005320 aa 6 00270 2521 00 spri2 pr6|184 005321 aa 773244 3520 04 epp2 -2396,ic 000565 = 524000000023 005322 aa 6 00272 2521 00 spri2 pr6|186 005323 aa 773241 3520 04 epp2 -2399,ic 000564 = 516000000010 005324 aa 6 00274 2521 00 spri2 pr6|188 005325 aa 6 00276 2521 00 spri2 pr6|190 005326 aa 6 00256 6211 00 eax1 pr6|174 005327 aa 020000 4310 07 fld 8192,dl 005330 aa 6 00044 3701 20 epp4 pr6|36,* 005331 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 005332 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 302 call ioa_$ioa_switch (sw, "^2.4b^-COMMAND=^.3b^2-^2xMAJOR STATUS=^2.3b", eurc_trace (loc).pad2 || eurc_trace (loc).command || eurc_trace (loc).major_status, eurc_trace (loc).command, "00"b || eurc_trace (loc).major_status); 005333 aa 000 100 100 404 mlr (ic),(pr),fill(000) 005334 aa 773625 00 0054 desc9a -2155,44 001160 = 136062056064 005335 aa 6 00204 00 0054 desc9a pr6|132,44 005336 aa 6 00222 7271 00 lxl7 pr6|146 005337 aa 6 00102 3735 20 epp7 pr6|66,* eurc_trace_ptr 005340 aa 003 100 060 517 csl (pr,x7),(pr),fill(0),bool(move) 005341 aa 7 00000 27 0001 descb pr7|0(16),1 eurc_trace.pad2 005342 aa 6 00304 00 0044 descb pr6|196,36 eurc_trace.pad2 005343 aa 003 100 060 517 csl (pr,x7),(pr),fill(0),bool(move) 005344 aa 7 00000 30 0003 descb pr7|0(17),3 eurc_trace.command 005345 aa 6 00056 00 0044 descb pr6|46,36 005346 aa 6 00056 2351 00 lda pr6|46 005347 aa 000001 7710 00 arl 1 005350 aa 6 00304 2751 00 ora pr6|196 eurc_trace.pad2 005351 aa 6 00304 7551 00 sta pr6|196 005352 aa 003 100 060 517 csl (pr,x7),(pr),fill(0),bool(move) 005353 aa 7 00000 42 0004 descb pr7|0(20),4 eurc_trace.major_status 005354 aa 6 00305 00 0044 descb pr6|197,36 eurc_trace.major_status 005355 aa 6 00305 2351 00 lda pr6|197 eurc_trace.major_status 005356 aa 000004 7710 00 arl 4 005357 aa 6 00304 2751 00 ora pr6|196 005360 aa 6 00304 7551 00 sta pr6|196 005361 aa 6 00305 2351 00 lda pr6|197 eurc_trace.major_status 005362 aa 000002 7710 00 arl 2 005363 aa 6 00305 7551 00 sta pr6|197 005364 aa 6 00032 3715 20 epp5 pr6|26,* 005365 aa 5 00004 3521 20 epp2 pr5|4,* sw 005366 aa 6 00260 2521 00 spri2 pr6|176 005367 aa 6 00204 3521 00 epp2 pr6|132 005370 aa 6 00262 2521 00 spri2 pr6|178 005371 aa 6 00304 3521 00 epp2 pr6|196 005372 aa 6 00264 2521 00 spri2 pr6|180 005373 aa 000021 6260 17 eax6 17,7 005374 aa 7 00000 3521 00 epp2 pr7|0 eurc_trace.command 005375 aa 2 00000 5035 16 abd pr2|0,6 005376 aa 6 00266 2521 00 spri2 pr6|182 005377 aa 6 00305 3521 00 epp2 pr6|197 005400 aa 6 00270 2521 00 spri2 pr6|184 005401 aa 773242 3520 04 epp2 -2398,ic 000643 = 464000000000 005402 aa 6 00272 2521 00 spri2 pr6|186 005403 aa 773205 3520 04 epp2 -2427,ic 000610 = 524000000053 005404 aa 6 00274 2521 00 spri2 pr6|188 005405 aa 773205 3520 04 epp2 -2427,ic 000612 = 514000000010 005406 aa 6 00276 2521 00 spri2 pr6|190 005407 aa 773154 3520 04 epp2 -2452,ic 000563 = 516000000003 005410 aa 6 00300 2521 00 spri2 pr6|192 005411 aa 773173 3520 04 epp2 -2437,ic 000604 = 514000000006 005412 aa 6 00302 2521 00 spri2 pr6|194 005413 aa 6 00256 6211 00 eax1 pr6|174 005414 aa 024000 4310 07 fld 10240,dl 005415 aa 6 00044 3701 20 epp4 pr6|36,* 005416 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 005417 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 305 call ioa_$ioa_switch (sw, "^2.4b^3-^4xSUB STATUS=^2.3b", eurc_trace (loc).pad3 || eurc_trace (loc).minor_status, eurc_trace (loc).minor_status); 005420 aa 000 100 100 404 mlr (ic),(pr),fill(000) 005421 aa 773316 00 0034 desc9a -2354,28 000736 = 136062056064 005422 aa 6 00172 00 0034 desc9a pr6|122,28 005423 aa 6 00222 7271 00 lxl7 pr6|146 005424 aa 6 00102 3735 20 epp7 pr6|66,* eurc_trace_ptr 005425 aa 003 100 060 517 csl (pr,x7),(pr),fill(0),bool(move) 005426 aa 7 00000 46 0002 descb pr7|0(24),2 eurc_trace.pad3 005427 aa 6 00305 00 0044 descb pr6|197,36 eurc_trace.pad3 005430 aa 003 100 060 517 csl (pr,x7),(pr),fill(0),bool(move) 005431 aa 7 00000 50 0006 descb pr7|0(26),6 eurc_trace.minor_status 005432 aa 6 00056 00 0044 descb pr6|46,36 005433 aa 6 00056 2351 00 lda pr6|46 005434 aa 000002 7710 00 arl 2 005435 aa 6 00305 2751 00 ora pr6|197 eurc_trace.pad3 005436 aa 6 00305 7551 00 sta pr6|197 005437 aa 6 00032 3715 20 epp5 pr6|26,* 005440 aa 5 00004 3521 20 epp2 pr5|4,* sw 005441 aa 6 00260 2521 00 spri2 pr6|176 005442 aa 6 00172 3521 00 epp2 pr6|122 005443 aa 6 00262 2521 00 spri2 pr6|178 005444 aa 6 00305 3521 00 epp2 pr6|197 005445 aa 6 00264 2521 00 spri2 pr6|180 005446 aa 000032 6260 17 eax6 26,7 005447 aa 7 00000 3521 00 epp2 pr7|0 eurc_trace.minor_status 005450 aa 2 00000 5035 16 abd pr2|0,6 005451 aa 6 00266 2521 00 spri2 pr6|182 005452 aa 773171 3520 04 epp2 -2439,ic 000643 = 464000000000 005453 aa 6 00270 2521 00 spri2 pr6|184 005454 aa 773106 3520 04 epp2 -2490,ic 000562 = 524000000033 005455 aa 6 00272 2521 00 spri2 pr6|186 005456 aa 773134 3520 04 epp2 -2468,ic 000612 = 514000000010 005457 aa 6 00274 2521 00 spri2 pr6|188 005460 aa 773143 3520 04 epp2 -2461,ic 000623 = 516000000006 005461 aa 6 00276 2521 00 spri2 pr6|190 005462 aa 6 00256 6211 00 eax1 pr6|174 005463 aa 020000 4310 07 fld 8192,dl 005464 aa 6 00044 3701 20 epp4 pr6|36,* 005465 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 005466 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 307 call ioa_$ioa_switch (sw, "^2.4b^3-CHANNEL STATUS=^2.3b", eurc_trace (loc).pad4 || eurc_trace (loc).chan_status, eurc_trace (loc).chan_status); 005467 aa 000 100 100 404 mlr (ic),(pr),fill(000) 005470 aa 773240 00 0034 desc9a -2400,28 000727 = 136062056064 005471 aa 6 00172 00 0034 desc9a pr6|122,28 005472 aa 6 00222 7271 00 lxl7 pr6|146 005473 aa 6 00102 3735 20 epp7 pr6|66,* eurc_trace_ptr 005474 aa 003 100 060 517 csl (pr,x7),(pr),fill(0),bool(move) 005475 aa 7 00000 65 0002 descb pr7|0(32),2 eurc_trace.pad4 005476 aa 6 00305 00 0044 descb pr6|197,36 eurc_trace.pad4 005477 aa 003 100 060 517 csl (pr,x7),(pr),fill(0),bool(move) 005500 aa 7 00000 67 0006 descb pr7|0(34),6 eurc_trace.chan_status 005501 aa 6 00056 00 0044 descb pr6|46,36 005502 aa 6 00056 2351 00 lda pr6|46 005503 aa 000002 7710 00 arl 2 005504 aa 6 00305 2751 00 ora pr6|197 eurc_trace.pad4 005505 aa 6 00305 7551 00 sta pr6|197 005506 aa 6 00032 3715 20 epp5 pr6|26,* 005507 aa 5 00004 3521 20 epp2 pr5|4,* sw 005510 aa 6 00260 2521 00 spri2 pr6|176 005511 aa 6 00172 3521 00 epp2 pr6|122 005512 aa 6 00262 2521 00 spri2 pr6|178 005513 aa 6 00305 3521 00 epp2 pr6|197 005514 aa 6 00264 2521 00 spri2 pr6|180 005515 aa 000042 6260 17 eax6 34,7 005516 aa 7 00000 3521 00 epp2 pr7|0 eurc_trace.chan_status 005517 aa 2 00000 5035 16 abd pr2|0,6 005520 aa 6 00266 2521 00 spri2 pr6|182 005521 aa 773122 3520 04 epp2 -2478,ic 000643 = 464000000000 005522 aa 6 00270 2521 00 spri2 pr6|184 005523 aa 773036 3520 04 epp2 -2530,ic 000561 = 524000000034 005524 aa 6 00272 2521 00 spri2 pr6|186 005525 aa 773065 3520 04 epp2 -2507,ic 000612 = 514000000010 005526 aa 6 00274 2521 00 spri2 pr6|188 005527 aa 773074 3520 04 epp2 -2500,ic 000623 = 516000000006 005530 aa 6 00276 2521 00 spri2 pr6|190 005531 aa 6 00256 6211 00 eax1 pr6|174 005532 aa 020000 4310 07 fld 8192,dl 005533 aa 6 00044 3701 20 epp4 pr6|36,* 005534 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 005535 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 309 call ioa_$ioa_switch (sw, "^2.4b^-CARD STATE=^.4b^-SUBSTATE=^.4b", eurc_trace (loc).card_state || eurc_trace (loc).card_substate, eurc_trace (loc).card_state, eurc_trace (loc).card_substate); 005536 aa 000 100 100 404 mlr (ic),(pr),fill(000) 005537 aa 773350 00 0050 desc9a -2328,40 001106 = 136062056064 005540 aa 6 00172 00 0050 desc9a pr6|122,40 005541 aa 6 00222 7271 00 lxl7 pr6|146 005542 aa 6 00102 3735 20 epp7 pr6|66,* eurc_trace_ptr 005543 aa 003 100 060 517 csl (pr,x7),(pr),fill(0),bool(move) 005544 aa 7 00001 04 0004 descb pr7|1(4),4 eurc_trace.card_state 005545 aa 6 00305 00 0044 descb pr6|197,36 eurc_trace.card_state 005546 aa 003 100 060 517 csl (pr,x7),(pr),fill(0),bool(move) 005547 aa 7 00001 10 0004 descb pr7|1(8),4 eurc_trace.card_substate 005550 aa 6 00056 00 0044 descb pr6|46,36 005551 aa 6 00056 2351 00 lda pr6|46 005552 aa 000004 7710 00 arl 4 005553 aa 6 00305 2751 00 ora pr6|197 eurc_trace.card_state 005554 aa 6 00305 7551 00 sta pr6|197 005555 aa 6 00032 3715 20 epp5 pr6|26,* 005556 aa 5 00004 3521 20 epp2 pr5|4,* sw 005557 aa 6 00260 2521 00 spri2 pr6|176 005560 aa 6 00172 3521 00 epp2 pr6|122 005561 aa 6 00262 2521 00 spri2 pr6|178 005562 aa 6 00305 3521 00 epp2 pr6|197 005563 aa 6 00264 2521 00 spri2 pr6|180 005564 aa 000004 6260 17 eax6 4,7 005565 aa 7 00001 3521 00 epp2 pr7|1 eurc_trace.card_state 005566 aa 2 00000 5035 16 abd pr2|0,6 005567 aa 6 00266 2521 00 spri2 pr6|182 005570 aa 000010 6250 17 eax5 8,7 005571 aa 7 00001 3521 00 epp2 pr7|1 eurc_trace.card_substate 005572 aa 2 00000 5035 15 abd pr2|0,5 005573 aa 6 00270 2521 00 spri2 pr6|184 005574 aa 773047 3520 04 epp2 -2521,ic 000643 = 464000000000 005575 aa 6 00272 2521 00 spri2 pr6|186 005576 aa 772762 3520 04 epp2 -2574,ic 000560 = 524000000045 005577 aa 6 00274 2521 00 spri2 pr6|188 005600 aa 773012 3520 04 epp2 -2550,ic 000612 = 514000000010 005601 aa 6 00276 2521 00 spri2 pr6|190 005602 aa 773025 3520 04 epp2 -2539,ic 000627 = 516000000004 005603 aa 6 00300 2521 00 spri2 pr6|192 005604 aa 6 00302 2521 00 spri2 pr6|194 005605 aa 6 00256 6211 00 eax1 pr6|174 005606 aa 024000 4310 07 fld 10240,dl 005607 aa 6 00044 3701 20 epp4 pr6|36,* 005610 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 005611 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 312 call ioa_$ioa_switch (sw, "^2.4b^-PRINT STATE=^.4b^-SUBSTATE=^.4b", eurc_trace (loc).print_state || eurc_trace (loc).print_substate, eurc_trace (loc).print_state, eurc_trace (loc).print_substate); 005612 aa 000 100 100 404 mlr (ic),(pr),fill(000) 005613 aa 773262 00 0050 desc9a -2382,40 001074 = 136062056064 005614 aa 6 00172 00 0050 desc9a pr6|122,40 005615 aa 6 00222 7271 00 lxl7 pr6|146 005616 aa 6 00102 3735 20 epp7 pr6|66,* eurc_trace_ptr 005617 aa 003 100 060 517 csl (pr,x7),(pr),fill(0),bool(move) 005620 aa 7 00001 23 0004 descb pr7|1(12),4 eurc_trace.print_state 005621 aa 6 00305 00 0044 descb pr6|197,36 eurc_trace.print_state 005622 aa 003 100 060 517 csl (pr,x7),(pr),fill(0),bool(move) 005623 aa 7 00001 27 0004 descb pr7|1(16),4 eurc_trace.print_substate 005624 aa 6 00056 00 0044 descb pr6|46,36 005625 aa 6 00056 2351 00 lda pr6|46 005626 aa 000004 7710 00 arl 4 005627 aa 6 00305 2751 00 ora pr6|197 eurc_trace.print_state 005630 aa 6 00305 7551 00 sta pr6|197 005631 aa 6 00032 3715 20 epp5 pr6|26,* 005632 aa 5 00004 3521 20 epp2 pr5|4,* sw 005633 aa 6 00260 2521 00 spri2 pr6|176 005634 aa 6 00172 3521 00 epp2 pr6|122 005635 aa 6 00262 2521 00 spri2 pr6|178 005636 aa 6 00305 3521 00 epp2 pr6|197 005637 aa 6 00264 2521 00 spri2 pr6|180 005640 aa 000014 6260 17 eax6 12,7 005641 aa 7 00001 3521 00 epp2 pr7|1 eurc_trace.print_state 005642 aa 2 00000 5035 16 abd pr2|0,6 005643 aa 6 00266 2521 00 spri2 pr6|182 005644 aa 000020 6250 17 eax5 16,7 005645 aa 7 00001 3521 00 epp2 pr7|1 eurc_trace.print_substate 005646 aa 2 00000 5035 15 abd pr2|0,5 005647 aa 6 00270 2521 00 spri2 pr6|184 005650 aa 772773 3520 04 epp2 -2565,ic 000643 = 464000000000 005651 aa 6 00272 2521 00 spri2 pr6|186 005652 aa 772705 3520 04 epp2 -2619,ic 000557 = 524000000046 005653 aa 6 00274 2521 00 spri2 pr6|188 005654 aa 772736 3520 04 epp2 -2594,ic 000612 = 514000000010 005655 aa 6 00276 2521 00 spri2 pr6|190 005656 aa 772751 3520 04 epp2 -2583,ic 000627 = 516000000004 005657 aa 6 00300 2521 00 spri2 pr6|192 005660 aa 6 00302 2521 00 spri2 pr6|194 005661 aa 6 00256 6211 00 eax1 pr6|174 005662 aa 024000 4310 07 fld 10240,dl 005663 aa 6 00044 3701 20 epp4 pr6|36,* 005664 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 005665 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 315 call ioa_$ioa_switch (sw, "^2.4b^-IOM STATE=^.4b^-SUBSTATE=^.4b", eurc_trace (loc).iom_state || eurc_trace (loc).iom_substate, eurc_trace (loc).iom_state, eurc_trace (loc).iom_substate); 005666 aa 000 100 100 404 mlr (ic),(pr),fill(000) 005667 aa 773127 00 0044 desc9a -2473,36 001015 = 136062056064 005670 aa 6 00172 00 0044 desc9a pr6|122,36 005671 aa 6 00222 7271 00 lxl7 pr6|146 005672 aa 6 00102 3735 20 epp7 pr6|66,* eurc_trace_ptr 005673 aa 003 100 060 517 csl (pr,x7),(pr),fill(0),bool(move) 005674 aa 7 00001 42 0004 descb pr7|1(20),4 eurc_trace.iom_state 005675 aa 6 00305 00 0044 descb pr6|197,36 eurc_trace.iom_state 005676 aa 003 100 060 517 csl (pr,x7),(pr),fill(0),bool(move) 005677 aa 7 00001 46 0004 descb pr7|1(24),4 eurc_trace.iom_substate 005700 aa 6 00056 00 0044 descb pr6|46,36 005701 aa 6 00056 2351 00 lda pr6|46 005702 aa 000004 7710 00 arl 4 005703 aa 6 00305 2751 00 ora pr6|197 eurc_trace.iom_state 005704 aa 6 00305 7551 00 sta pr6|197 005705 aa 6 00032 3715 20 epp5 pr6|26,* 005706 aa 5 00004 3521 20 epp2 pr5|4,* sw 005707 aa 6 00260 2521 00 spri2 pr6|176 005710 aa 6 00172 3521 00 epp2 pr6|122 005711 aa 6 00262 2521 00 spri2 pr6|178 005712 aa 6 00305 3521 00 epp2 pr6|197 005713 aa 6 00264 2521 00 spri2 pr6|180 005714 aa 000024 6260 17 eax6 20,7 005715 aa 7 00001 3521 00 epp2 pr7|1 eurc_trace.iom_state 005716 aa 2 00000 5035 16 abd pr2|0,6 005717 aa 6 00266 2521 00 spri2 pr6|182 005720 aa 000030 6250 17 eax5 24,7 005721 aa 7 00001 3521 00 epp2 pr7|1 eurc_trace.iom_substate 005722 aa 2 00000 5035 15 abd pr2|0,5 005723 aa 6 00270 2521 00 spri2 pr6|184 005724 aa 772717 3520 04 epp2 -2609,ic 000643 = 464000000000 005725 aa 6 00272 2521 00 spri2 pr6|186 005726 aa 772630 3520 04 epp2 -2664,ic 000556 = 524000000044 005727 aa 6 00274 2521 00 spri2 pr6|188 005730 aa 772662 3520 04 epp2 -2638,ic 000612 = 514000000010 005731 aa 6 00276 2521 00 spri2 pr6|190 005732 aa 772675 3520 04 epp2 -2627,ic 000627 = 516000000004 005733 aa 6 00300 2521 00 spri2 pr6|192 005734 aa 6 00302 2521 00 spri2 pr6|194 005735 aa 6 00256 6211 00 eax1 pr6|174 005736 aa 024000 4310 07 fld 10240,dl 005737 aa 6 00044 3701 20 epp4 pr6|36,* 005740 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 005741 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 318 call ioa_$ioa_switch (sw, "^2.4b^-TND STATE=^.4b^-SUBSTATE=^.4b", eurc_trace (loc).tnd_state || eurc_trace (loc).tnd_substate, eurc_trace (loc).tnd_state, eurc_trace (loc).tnd_substate); 005742 aa 000 100 100 404 mlr (ic),(pr),fill(000) 005743 aa 773042 00 0044 desc9a -2526,36 001004 = 136062056064 005744 aa 6 00172 00 0044 desc9a pr6|122,36 005745 aa 6 00222 7271 00 lxl7 pr6|146 005746 aa 6 00102 3735 20 epp7 pr6|66,* eurc_trace_ptr 005747 aa 003 100 060 517 csl (pr,x7),(pr),fill(0),bool(move) 005750 aa 7 00001 61 0004 descb pr7|1(28),4 eurc_trace.tnd_state 005751 aa 6 00305 00 0044 descb pr6|197,36 eurc_trace.tnd_state 005752 aa 003 100 060 517 csl (pr,x7),(pr),fill(0),bool(move) 005753 aa 7 00001 65 0004 descb pr7|1(32),4 eurc_trace.tnd_substate 005754 aa 6 00056 00 0044 descb pr6|46,36 005755 aa 6 00056 2351 00 lda pr6|46 005756 aa 000004 7710 00 arl 4 005757 aa 6 00305 2751 00 ora pr6|197 eurc_trace.tnd_state 005760 aa 6 00305 7551 00 sta pr6|197 005761 aa 6 00032 3715 20 epp5 pr6|26,* 005762 aa 5 00004 3521 20 epp2 pr5|4,* sw 005763 aa 6 00260 2521 00 spri2 pr6|176 005764 aa 6 00172 3521 00 epp2 pr6|122 005765 aa 6 00262 2521 00 spri2 pr6|178 005766 aa 6 00305 3521 00 epp2 pr6|197 005767 aa 6 00264 2521 00 spri2 pr6|180 005770 aa 000034 6260 17 eax6 28,7 005771 aa 7 00001 3521 00 epp2 pr7|1 eurc_trace.tnd_state 005772 aa 2 00000 5035 16 abd pr2|0,6 005773 aa 6 00266 2521 00 spri2 pr6|182 005774 aa 000040 6250 17 eax5 32,7 005775 aa 7 00001 3521 00 epp2 pr7|1 eurc_trace.tnd_substate 005776 aa 2 00000 5035 15 abd pr2|0,5 005777 aa 6 00270 2521 00 spri2 pr6|184 006000 aa 772643 3520 04 epp2 -2653,ic 000643 = 464000000000 006001 aa 6 00272 2521 00 spri2 pr6|186 006002 aa 772554 3520 04 epp2 -2708,ic 000556 = 524000000044 006003 aa 6 00274 2521 00 spri2 pr6|188 006004 aa 772606 3520 04 epp2 -2682,ic 000612 = 514000000010 006005 aa 6 00276 2521 00 spri2 pr6|190 006006 aa 772621 3520 04 epp2 -2671,ic 000627 = 516000000004 006007 aa 6 00300 2521 00 spri2 pr6|192 006010 aa 6 00302 2521 00 spri2 pr6|194 006011 aa 6 00256 6211 00 eax1 pr6|174 006012 aa 024000 4310 07 fld 10240,dl 006013 aa 6 00044 3701 20 epp4 pr6|36,* 006014 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 006015 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 321 call ioa_$ioa_switch (sw, "^2.4b^-QUEUE ID=^.4b^-LINK STATUS=^.4b", eurc_trace (loc).queue_id || eurc_trace (loc).link_status, eurc_trace (loc).queue_id, eurc_trace (loc).link_status); 006016 aa 000 100 100 404 mlr (ic),(pr),fill(000) 006017 aa 773044 00 0050 desc9a -2524,40 001062 = 136062056064 006020 aa 6 00172 00 0050 desc9a pr6|122,40 006021 aa 6 00222 7271 00 lxl7 pr6|146 006022 aa 6 00102 3735 20 epp7 pr6|66,* eurc_trace_ptr 006023 aa 003 100 060 517 csl (pr,x7),(pr),fill(0),bool(move) 006024 aa 7 00002 00 0004 descb pr7|2,4 eurc_trace.queue_id 006025 aa 6 00305 00 0044 descb pr6|197,36 eurc_trace.queue_id 006026 aa 003 100 060 517 csl (pr,x7),(pr),fill(0),bool(move) 006027 aa 7 00002 04 0004 descb pr7|2(4),4 eurc_trace.link_status 006030 aa 6 00056 00 0044 descb pr6|46,36 006031 aa 6 00056 2351 00 lda pr6|46 006032 aa 000004 7710 00 arl 4 006033 aa 6 00305 2751 00 ora pr6|197 eurc_trace.queue_id 006034 aa 6 00305 7551 00 sta pr6|197 006035 aa 6 00032 3715 20 epp5 pr6|26,* 006036 aa 5 00004 3521 20 epp2 pr5|4,* sw 006037 aa 6 00260 2521 00 spri2 pr6|176 006040 aa 6 00172 3521 00 epp2 pr6|122 006041 aa 6 00262 2521 00 spri2 pr6|178 006042 aa 6 00305 3521 00 epp2 pr6|197 006043 aa 6 00264 2521 00 spri2 pr6|180 006044 aa 7 00002 3521 00 epp2 pr7|2 eurc_trace.queue_id 006045 aa 2 00000 5035 17 abd pr2|0,7 006046 aa 6 00266 2521 00 spri2 pr6|182 006047 aa 000004 6260 17 eax6 4,7 006050 aa 7 00002 3521 00 epp2 pr7|2 eurc_trace.link_status 006051 aa 2 00000 5035 16 abd pr2|0,6 006052 aa 6 00270 2521 00 spri2 pr6|184 006053 aa 772570 3520 04 epp2 -2696,ic 000643 = 464000000000 006054 aa 6 00272 2521 00 spri2 pr6|186 006055 aa 772502 3520 04 epp2 -2750,ic 000557 = 524000000046 006056 aa 6 00274 2521 00 spri2 pr6|188 006057 aa 772533 3520 04 epp2 -2725,ic 000612 = 514000000010 006060 aa 6 00276 2521 00 spri2 pr6|190 006061 aa 772546 3520 04 epp2 -2714,ic 000627 = 516000000004 006062 aa 6 00300 2521 00 spri2 pr6|192 006063 aa 6 00302 2521 00 spri2 pr6|194 006064 aa 6 00256 6211 00 eax1 pr6|174 006065 aa 024000 4310 07 fld 10240,dl 006066 aa 6 00044 3701 20 epp4 pr6|36,* 006067 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 006070 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 324 call ioa_$ioa_switch (sw, "^2.4b^-IDCW OP CODE^-^2.3b^/^2.4b^-IDCW DEVICE ADDRESS^-^2.3b", eurc_trace (loc).pad5 || eurc_trace (loc).idcw_op, eurc_trace (loc).idcw_op, eurc_trace (loc).pad6 || eurc_trace (loc).idcw_dev, eurc_trace (loc).idcw_dev); 006071 aa 000 100 100 404 mlr (ic),(pr),fill(000) 006072 aa 773662 00 0100 desc9a -2126,64 001753 = 136062056064 006073 aa 6 00256 00 0100 desc9a pr6|174,64 006074 aa 6 00222 7271 00 lxl7 pr6|146 006075 aa 6 00102 3735 20 epp7 pr6|66,* eurc_trace_ptr 006076 aa 003 100 060 517 csl (pr,x7),(pr),fill(0),bool(move) 006077 aa 7 00002 10 0002 descb pr7|2(8),2 eurc_trace.pad5 006100 aa 6 00305 00 0044 descb pr6|197,36 eurc_trace.pad5 006101 aa 003 100 060 517 csl (pr,x7),(pr),fill(0),bool(move) 006102 aa 7 00002 21 0006 descb pr7|2(10),6 eurc_trace.idcw_op 006103 aa 6 00056 00 0044 descb pr6|46,36 006104 aa 6 00056 2351 00 lda pr6|46 006105 aa 000002 7710 00 arl 2 006106 aa 6 00305 2751 00 ora pr6|197 eurc_trace.pad5 006107 aa 6 00305 7551 00 sta pr6|197 006110 aa 003 100 060 517 csl (pr,x7),(pr),fill(0),bool(move) 006111 aa 7 00002 27 0002 descb pr7|2(16),2 eurc_trace.pad6 006112 aa 6 00304 00 0044 descb pr6|196,36 eurc_trace.pad6 006113 aa 003 100 060 517 csl (pr,x7),(pr),fill(0),bool(move) 006114 aa 7 00002 40 0006 descb pr7|2(18),6 eurc_trace.idcw_dev 006115 aa 6 00056 00 0044 descb pr6|46,36 006116 aa 6 00056 2351 00 lda pr6|46 006117 aa 000002 7710 00 arl 2 006120 aa 6 00304 2751 00 ora pr6|196 eurc_trace.pad6 006121 aa 6 00304 7551 00 sta pr6|196 006122 aa 6 00032 3715 20 epp5 pr6|26,* 006123 aa 5 00004 3521 20 epp2 pr5|4,* sw 006124 aa 6 00226 2521 00 spri2 pr6|150 006125 aa 6 00256 3521 00 epp2 pr6|174 006126 aa 6 00230 2521 00 spri2 pr6|152 006127 aa 6 00305 3521 00 epp2 pr6|197 006130 aa 6 00232 2521 00 spri2 pr6|154 006131 aa 000012 6260 17 eax6 10,7 006132 aa 7 00002 3521 00 epp2 pr7|2 eurc_trace.idcw_op 006133 aa 2 00000 5035 16 abd pr2|0,6 006134 aa 6 00234 2521 00 spri2 pr6|156 006135 aa 6 00304 3521 00 epp2 pr6|196 006136 aa 6 00236 2521 00 spri2 pr6|158 006137 aa 000022 6250 17 eax5 18,7 006140 aa 7 00002 3521 00 epp2 pr7|2 eurc_trace.idcw_dev 006141 aa 2 00000 5035 15 abd pr2|0,5 006142 aa 6 00240 2521 00 spri2 pr6|160 006143 aa 772500 3520 04 epp2 -2752,ic 000643 = 464000000000 006144 aa 6 00242 2521 00 spri2 pr6|162 006145 aa 772410 3520 04 epp2 -2808,ic 000555 = 524000000075 006146 aa 6 00244 2521 00 spri2 pr6|164 006147 aa 772443 3520 04 epp2 -2781,ic 000612 = 514000000010 006150 aa 6 00246 2521 00 spri2 pr6|166 006151 aa 6 00252 2521 00 spri2 pr6|170 006152 aa 772451 3520 04 epp2 -2775,ic 000623 = 516000000006 006153 aa 6 00250 2521 00 spri2 pr6|168 006154 aa 6 00254 2521 00 spri2 pr6|172 006155 aa 6 00224 6211 00 eax1 pr6|148 006156 aa 030000 4310 07 fld 12288,dl 006157 aa 6 00044 3701 20 epp4 pr6|36,* 006160 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 006161 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 327 call ioa_$ioa_switch (sw, "^2.4b^-IDCW ADDR EXTENSION^-^o^/^2.4b^-IDCW FLAGS^-^6b", eurc_trace (loc).pad7 || eurc_trace (loc).idcw_add_ext, eurc_trace (loc).idcw_add_ext, eurc_trace (loc).pad8 || eurc_trace (loc).idcw_flags, eurc_trace (loc).idcw_flags); 006162 aa 000 100 100 404 mlr (ic),(pr),fill(000) 006163 aa 773211 00 0070 desc9a -2423,56 001373 = 136062056064 006164 aa 6 00204 00 0070 desc9a pr6|132,56 006165 aa 6 00222 7271 00 lxl7 pr6|146 006166 aa 6 00102 3735 20 epp7 pr6|66,* eurc_trace_ptr 006167 aa 003 100 060 517 csl (pr,x7),(pr),fill(0),bool(move) 006170 aa 7 00002 46 0002 descb pr7|2(24),2 eurc_trace.pad7 006171 aa 6 00304 00 0044 descb pr6|196,36 eurc_trace.pad7 006172 aa 003 100 060 517 csl (pr,x7),(pr),fill(0),bool(move) 006173 aa 7 00002 50 0006 descb pr7|2(26),6 eurc_trace.idcw_add_ext 006174 aa 6 00056 00 0044 descb pr6|46,36 006175 aa 6 00056 2351 00 lda pr6|46 006176 aa 000002 7710 00 arl 2 006177 aa 6 00304 2751 00 ora pr6|196 eurc_trace.pad7 006200 aa 6 00304 7551 00 sta pr6|196 006201 aa 003 100 060 517 csl (pr,x7),(pr),fill(0),bool(move) 006202 aa 7 00002 65 0002 descb pr7|2(32),2 eurc_trace.pad8 006203 aa 6 00305 00 0044 descb pr6|197,36 eurc_trace.pad8 006204 aa 003 100 060 517 csl (pr,x7),(pr),fill(0),bool(move) 006205 aa 7 00002 67 0006 descb pr7|2(34),6 eurc_trace.idcw_flags 006206 aa 6 00056 00 0044 descb pr6|46,36 006207 aa 6 00056 2351 00 lda pr6|46 006210 aa 000002 7710 00 arl 2 006211 aa 6 00305 2751 00 ora pr6|197 eurc_trace.pad8 006212 aa 6 00305 7551 00 sta pr6|197 006213 aa 6 00032 3715 20 epp5 pr6|26,* 006214 aa 5 00004 3521 20 epp2 pr5|4,* sw 006215 aa 6 00226 2521 00 spri2 pr6|150 006216 aa 6 00204 3521 00 epp2 pr6|132 006217 aa 6 00230 2521 00 spri2 pr6|152 006220 aa 6 00304 3521 00 epp2 pr6|196 006221 aa 6 00232 2521 00 spri2 pr6|154 006222 aa 000032 6260 17 eax6 26,7 006223 aa 7 00002 3521 00 epp2 pr7|2 eurc_trace.idcw_add_ext 006224 aa 2 00000 5035 16 abd pr2|0,6 006225 aa 6 00234 2521 00 spri2 pr6|156 006226 aa 6 00305 3521 00 epp2 pr6|197 006227 aa 6 00236 2521 00 spri2 pr6|158 006230 aa 000042 6250 17 eax5 34,7 006231 aa 7 00002 3521 00 epp2 pr7|2 eurc_trace.idcw_flags 006232 aa 2 00000 5035 15 abd pr2|0,5 006233 aa 6 00240 2521 00 spri2 pr6|160 006234 aa 772407 3520 04 epp2 -2809,ic 000643 = 464000000000 006235 aa 6 00242 2521 00 spri2 pr6|162 006236 aa 772401 3520 04 epp2 -2815,ic 000637 = 524000000066 006237 aa 6 00244 2521 00 spri2 pr6|164 006240 aa 772352 3520 04 epp2 -2838,ic 000612 = 514000000010 006241 aa 6 00246 2521 00 spri2 pr6|166 006242 aa 6 00252 2521 00 spri2 pr6|170 006243 aa 772360 3520 04 epp2 -2832,ic 000623 = 516000000006 006244 aa 6 00250 2521 00 spri2 pr6|168 006245 aa 6 00254 2521 00 spri2 pr6|172 006246 aa 6 00224 6211 00 eax1 pr6|148 006247 aa 030000 4310 07 fld 12288,dl 006250 aa 6 00044 3701 20 epp4 pr6|36,* 006251 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 006252 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 330 call ioa_$ioa_switch (sw, "^2.4b^-IDCW CHAN INSTR^-^2.3b^/^2.4b^-IDCW RECORD TALLY^-^2.3b", eurc_trace (loc).pad9 || eurc_trace (loc).idcw_chan_inst, eurc_trace (loc).idcw_chan_inst, eurc_trace (loc).pad10 || eurc_trace (loc).idcw_rec_tly, eurc_trace (loc).idcw_rec_tly); 006253 aa 000 100 100 404 mlr (ic),(pr),fill(000) 006254 aa 773460 00 0100 desc9a -2256,64 001733 = 136062056064 006255 aa 6 00256 00 0100 desc9a pr6|174,64 006256 aa 6 00222 7271 00 lxl7 pr6|146 006257 aa 6 00102 3735 20 epp7 pr6|66,* eurc_trace_ptr 006260 aa 003 100 060 517 csl (pr,x7),(pr),fill(0),bool(move) 006261 aa 7 00003 04 0002 descb pr7|3(4),2 eurc_trace.pad9 006262 aa 6 00305 00 0044 descb pr6|197,36 eurc_trace.pad9 006263 aa 003 100 060 517 csl (pr,x7),(pr),fill(0),bool(move) 006264 aa 7 00003 06 0006 descb pr7|3(6),6 eurc_trace.idcw_chan_inst 006265 aa 6 00056 00 0044 descb pr6|46,36 006266 aa 6 00056 2351 00 lda pr6|46 006267 aa 000002 7710 00 arl 2 006270 aa 6 00305 2751 00 ora pr6|197 eurc_trace.pad9 006271 aa 6 00305 7551 00 sta pr6|197 006272 aa 003 100 060 517 csl (pr,x7),(pr),fill(0),bool(move) 006273 aa 7 00003 23 0002 descb pr7|3(12),2 eurc_trace.pad10 006274 aa 6 00304 00 0044 descb pr6|196,36 eurc_trace.pad10 006275 aa 003 100 060 517 csl (pr,x7),(pr),fill(0),bool(move) 006276 aa 7 00003 25 0006 descb pr7|3(14),6 eurc_trace.idcw_rec_tly 006277 aa 6 00056 00 0044 descb pr6|46,36 006300 aa 6 00056 2351 00 lda pr6|46 006301 aa 000002 7710 00 arl 2 006302 aa 6 00304 2751 00 ora pr6|196 eurc_trace.pad10 006303 aa 6 00304 7551 00 sta pr6|196 006304 aa 6 00032 3715 20 epp5 pr6|26,* 006305 aa 5 00004 3521 20 epp2 pr5|4,* sw 006306 aa 6 00226 2521 00 spri2 pr6|150 006307 aa 6 00256 3521 00 epp2 pr6|174 006310 aa 6 00230 2521 00 spri2 pr6|152 006311 aa 6 00305 3521 00 epp2 pr6|197 006312 aa 6 00232 2521 00 spri2 pr6|154 006313 aa 000006 6260 17 eax6 6,7 006314 aa 7 00003 3521 00 epp2 pr7|3 eurc_trace.idcw_chan_inst 006315 aa 2 00000 5035 16 abd pr2|0,6 006316 aa 6 00234 2521 00 spri2 pr6|156 006317 aa 6 00304 3521 00 epp2 pr6|196 006320 aa 6 00236 2521 00 spri2 pr6|158 006321 aa 000016 6250 17 eax5 14,7 006322 aa 7 00003 3521 00 epp2 pr7|3 eurc_trace.idcw_rec_tly 006323 aa 2 00000 5035 15 abd pr2|0,5 006324 aa 6 00240 2521 00 spri2 pr6|160 006325 aa 772316 3520 04 epp2 -2866,ic 000643 = 464000000000 006326 aa 6 00242 2521 00 spri2 pr6|162 006327 aa 772225 3520 04 epp2 -2923,ic 000554 = 524000000076 006330 aa 6 00244 2521 00 spri2 pr6|164 006331 aa 772261 3520 04 epp2 -2895,ic 000612 = 514000000010 006332 aa 6 00246 2521 00 spri2 pr6|166 006333 aa 6 00252 2521 00 spri2 pr6|170 006334 aa 772267 3520 04 epp2 -2889,ic 000623 = 516000000006 006335 aa 6 00250 2521 00 spri2 pr6|168 006336 aa 6 00254 2521 00 spri2 pr6|172 006337 aa 6 00224 6211 00 eax1 pr6|148 006340 aa 030000 4310 07 fld 12288,dl 006341 aa 6 00044 3701 20 epp4 pr6|36,* 006342 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 006343 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 334 call ioa_$ioa_switch (sw, "----------------------------------------------------------------------------"); 006344 aa 055 100 100 400 mlr (),(pr),fill(055) 006345 aa 000000 00 0000 desc9a 0,0 006346 aa 6 00256 00 0114 desc9a pr6|174,76 006347 aa 6 00032 3735 20 epp7 pr6|26,* 006350 aa 7 00004 3521 20 epp2 pr7|4,* sw 006351 aa 6 00174 2521 00 spri2 pr6|124 006352 aa 6 00256 3521 00 epp2 pr6|174 006353 aa 6 00176 2521 00 spri2 pr6|126 006354 aa 772267 3520 04 epp2 -2889,ic 000643 = 464000000000 006355 aa 6 00200 2521 00 spri2 pr6|128 006356 aa 772243 3520 04 epp2 -2909,ic 000621 = 524000000114 006357 aa 6 00202 2521 00 spri2 pr6|130 006360 aa 6 00172 6211 00 eax1 pr6|122 006361 aa 010000 4310 07 fld 4096,dl 006362 aa 6 00044 3701 20 epp4 pr6|36,* 006363 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 006364 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 335 end; 006365 aa 6 00105 0541 00 aos pr6|69 loc 006366 aa 776614 7100 04 tra -628,ic 005202 STATEMENT 1 ON LINE 336 return; 006367 aa 0 00631 7101 00 tra pr0|409 return ENTRY TO trace_mpc_$dau STATEMENT 1 ON LINE 338 trace_mpc_$dau: entry (image_ptr, sw, mpc_datap); 006370 ta 002665000000 006371 da 000065300000 006372 aa 000560 6270 00 eax7 368 006373 aa 7 00034 3521 20 epp2 pr7|28,* 006374 aa 2 01045 2721 00 tsp2 pr2|549 ext_entry 006375 aa 000006000000 006376 aa 000000000000 006377 aa 774261 7000 04 tsx0 -1871,ic 002660 STATEMENT 1 ON LINE 356 call date_time_ (clock (), dt); 006400 aa 0 01435 7001 00 tsx0 pr0|797 clock 006401 aa 6 00170 7571 00 staq pr6|120 006402 aa 6 00170 3521 00 epp2 pr6|120 006403 aa 6 00174 2521 00 spri2 pr6|124 006404 aa 6 00106 3521 00 epp2 pr6|70 dt 006405 aa 6 00176 2521 00 spri2 pr6|126 006406 aa 772234 3520 04 epp2 -2916,ic 000642 = 410000000064 006407 aa 6 00200 2521 00 spri2 pr6|128 006410 aa 772231 3520 04 epp2 -2919,ic 000641 = 526000000030 006411 aa 6 00202 2521 00 spri2 pr6|130 006412 aa 6 00172 6211 00 eax1 pr6|122 006413 aa 010000 4310 07 fld 4096,dl 006414 aa 6 00044 3701 20 epp4 pr6|36,* 006415 la 4 00012 3521 20 epp2 pr4|10,* date_time_ 006416 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 357 call ioa_$ioa_switch (sw, "^|^5xTrace of ^a controller.^3x^a^/", mpc_data.name, dt); 006417 aa 000 100 100 404 mlr (ic),(pr),fill(000) 006420 aa 772407 00 0044 desc9a -2809,36 001026 = 136174136065 006421 aa 6 00172 00 0044 desc9a pr6|122,36 006422 aa 6 00032 3735 20 epp7 pr6|26,* 006423 aa 7 00004 3521 20 epp2 pr7|4,* sw 006424 aa 6 00260 2521 00 spri2 pr6|176 006425 aa 6 00172 3521 00 epp2 pr6|122 006426 aa 6 00262 2521 00 spri2 pr6|178 006427 aa 7 00006 3715 20 epp5 pr7|6,* mpc_datap 006430 aa 5 00000 3715 20 epp5 pr5|0,* mpc_datap 006431 aa 5 00001 3521 00 epp2 pr5|1 mpc_data.name 006432 aa 6 00264 2521 00 spri2 pr6|180 006433 aa 6 00106 3521 00 epp2 pr6|70 dt 006434 aa 6 00266 2521 00 spri2 pr6|182 006435 aa 772206 3520 04 epp2 -2938,ic 000643 = 464000000000 006436 aa 6 00270 2521 00 spri2 pr6|184 006437 aa 772132 3520 04 epp2 -2982,ic 000571 = 524000000043 006440 aa 6 00272 2521 00 spri2 pr6|186 006441 aa 772175 3520 04 epp2 -2947,ic 000636 = 524000000040 006442 aa 6 00274 2521 00 spri2 pr6|188 006443 aa 772176 3520 04 epp2 -2946,ic 000641 = 526000000030 006444 aa 6 00276 2521 00 spri2 pr6|190 006445 aa 6 00256 6211 00 eax1 pr6|174 006446 aa 020000 4310 07 fld 8192,dl 006447 aa 6 00044 3701 20 epp4 pr6|36,* 006450 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 006451 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 358 hold_idx = 0; 006452 aa 6 00131 4501 00 stz pr6|89 hold_idx STATEMENT 1 ON LINE 359 do loc = 0 to 127; 006453 aa 6 00105 4501 00 stz pr6|69 loc 006454 aa 6 00105 2361 00 ldq pr6|69 loc 006455 aa 000177 1160 07 cmpq 127,dl 006456 aa 000053 6054 04 tpnz 43,ic 006531 STATEMENT 1 ON LINE 360 if substr (dau_image (loc), 1, 4) = "f"b4 then do; 006457 aa 000004 7360 00 qls 4 006460 aa 6 00032 3735 20 epp7 pr6|26,* 006461 aa 7 00002 3715 20 epp5 pr7|2,* image_ptr 006462 aa 5 00000 3715 20 epp5 pr5|0,* image_ptr 006463 aa 000 004 066 506 cmpb (pr,ql),(ic),fill(0) 006464 aa 5 00000 00 0004 descb pr5|0,4 dau_image 006465 aa 003500 00 0004 descb 1856,4 012163 = 740000000000 006466 aa 6 00304 7561 00 stq pr6|196 006467 aa 000012 6010 04 tnz 10,ic 006501 STATEMENT 1 ON LINE 361 key_ptr = addr (dau_image (loc)); 006470 aa 5 00000 3521 00 epp2 pr5|0 dau_image 006471 aa 2 00000 5035 06 abd pr2|0,ql 006472 aa 6 00164 2521 00 spri2 pr6|116 key_ptr STATEMENT 1 ON LINE 362 goto Ftype (key.Index); 006473 aa 003 100 060 500 csl (pr),(pr),fill(0),bool(move) 006474 aa 2 00000 04 0004 descb pr2|0(4),4 key.Index 006475 aa 6 00056 00 0044 descb pr6|46,36 006476 aa 6 00056 2351 00 lda pr6|46 006477 aa 000104 7730 00 lrl 68 006500 ta 000000 7100 06 tra 0,ql STATEMENT 1 ON LINE 363 end; STATEMENT 1 ON LINE 364 stow_away: if hold_idx > 0 then do i = hold_idx to 1 by -1; 006501 aa 6 00131 2361 00 ldq pr6|89 hold_idx 006502 aa 000014 6044 04 tmoz 12,ic 006516 006503 aa 6 00125 7561 00 stq pr6|85 i 006504 aa 6 00125 2361 00 ldq pr6|85 i 006505 aa 000001 1160 07 cmpq 1,dl 006506 aa 000010 6040 04 tmi 8,ic 006516 STATEMENT 1 ON LINE 367 DH (i + 1) = DH (i); 006507 aa 000004 7360 00 qls 4 006510 aa 003 106 060 506 csl (pr,ql),(pr,ql),fill(0),bool(move) 006511 aa 6 00125 42 0020 descb pr6|85(20),16 DH 006512 aa 6 00126 00 0020 descb pr6|86,16 DH STATEMENT 1 ON LINE 368 end; 006513 aa 000001 3360 07 lcq 1,dl 006514 aa 6 00125 0561 00 asq pr6|85 i 006515 aa 777767 7100 04 tra -9,ic 006504 STATEMENT 1 ON LINE 369 DH (1) = dau_image (loc); 006516 aa 6 00105 2361 00 ldq pr6|69 loc 006517 aa 000004 7360 00 qls 4 006520 aa 6 00032 3735 20 epp7 pr6|26,* 006521 aa 7 00002 3715 20 epp5 pr7|2,* image_ptr 006522 aa 5 00000 3715 20 epp5 pr5|0,* image_ptr 006523 aa 003 100 060 506 csl (pr,ql),(pr),fill(0),bool(move) 006524 aa 5 00000 00 0020 descb pr5|0,16 dau_image 006525 aa 6 00126 00 0020 descb pr6|86,16 DH STATEMENT 1 ON LINE 370 hold_idx = hold_idx + 1; 006526 aa 6 00131 0541 00 aos pr6|89 hold_idx STATEMENT 1 ON LINE 371 next_loc: end; 006527 aa 6 00105 0541 00 aos pr6|69 loc 006530 aa 777724 7100 04 tra -44,ic 006454 STATEMENT 1 ON LINE 374 call ioa_$ioa_switch (sw, "^/^60(=^)^2/^5xRaw Trace Table Data^/"); 006531 aa 000 100 100 404 mlr (ic),(pr),fill(000) 006532 aa 772317 00 0050 desc9a -2865,40 001050 = 136057136066 006533 aa 6 00172 00 0050 desc9a pr6|122,40 006534 aa 6 00032 3735 20 epp7 pr6|26,* 006535 aa 7 00004 3521 20 epp2 pr7|4,* sw 006536 aa 6 00206 2521 00 spri2 pr6|134 006537 aa 6 00172 3521 00 epp2 pr6|122 006540 aa 6 00210 2521 00 spri2 pr6|136 006541 aa 772102 3520 04 epp2 -3006,ic 000643 = 464000000000 006542 aa 6 00212 2521 00 spri2 pr6|138 006543 aa 772015 3520 04 epp2 -3059,ic 000560 = 524000000045 006544 aa 6 00214 2521 00 spri2 pr6|140 006545 aa 6 00204 6211 00 eax1 pr6|132 006546 aa 010000 4310 07 fld 4096,dl 006547 aa 6 00044 3701 20 epp4 pr6|36,* 006550 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 006551 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 376 dau_addr = 0; 006552 aa 6 00160 4501 00 stz pr6|112 dau_addr STATEMENT 1 ON LINE 377 do loc = 0 to 127 by 8; 006553 aa 6 00105 4501 00 stz pr6|69 loc 006554 aa 6 00105 2361 00 ldq pr6|69 loc 006555 aa 000177 1160 07 cmpq 127,dl 006556 aa 000055 6054 04 tpnz 45,ic 006633 STATEMENT 1 ON LINE 378 eight_ptr = addr (dau_image (loc)); 006557 aa 000004 7360 00 qls 4 006560 aa 6 00032 3735 20 epp7 pr6|26,* 006561 aa 7 00002 3715 20 epp5 pr7|2,* image_ptr 006562 aa 5 00000 3521 20 epp2 pr5|0,* dau_image 006563 aa 2 00000 5035 06 abd pr2|0,ql 006564 aa 6 00162 2521 00 spri2 pr6|114 eight_ptr STATEMENT 1 ON LINE 379 call ioa_$ioa_switch (sw, "^10x^2.4b ^8( ^4.4b^)", bit (dau_addr, 8), dau_image_for_eight); 006565 aa 772117 2370 04 ldaq -2993,ic 000704 = 136061060170 136062056064 006566 aa 6 00172 7571 00 staq pr6|122 006567 aa 772117 2370 04 ldaq -2993,ic 000706 = 142040136070 050040040136 006570 aa 6 00174 7571 00 staq pr6|124 006571 aa 772117 2370 04 ldaq -2993,ic 000710 = 064056064142 136051000000 006572 aa 6 00176 7571 00 staq pr6|126 006573 aa 6 00160 2351 00 lda pr6|112 dau_addr 006574 aa 000034 7350 00 als 28 006575 aa 6 00305 7551 00 sta pr6|197 006576 aa 7 00004 3521 20 epp2 pr7|4,* sw 006577 aa 6 00260 2521 00 spri2 pr6|176 006600 aa 6 00172 3521 00 epp2 pr6|122 006601 aa 6 00262 2521 00 spri2 pr6|178 006602 aa 6 00305 3521 00 epp2 pr6|197 006603 aa 6 00264 2521 00 spri2 pr6|180 006604 aa 6 00162 3521 20 epp2 pr6|114,* dau_image_for_eight 006605 aa 6 00266 2521 00 spri2 pr6|182 006606 aa 772035 3520 04 epp2 -3043,ic 000643 = 464000000000 006607 aa 6 00270 2521 00 spri2 pr6|184 006610 aa 771743 3520 04 epp2 -3101,ic 000553 = 524000000026 006611 aa 6 00272 2521 00 spri2 pr6|186 006612 aa 772000 3520 04 epp2 -3072,ic 000612 = 514000000010 006613 aa 6 00274 2521 00 spri2 pr6|188 006614 aa 772032 3520 04 epp2 -3046,ic 000646 = 516100000020 006615 aa 6 00276 2521 00 spri2 pr6|190 006616 aa 6 00256 6211 00 eax1 pr6|174 006617 aa 020000 4310 07 fld 8192,dl 006620 aa 6 00044 3701 20 epp4 pr6|36,* 006621 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 006622 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 380 if loc ^= 120 then dau_addr = dau_addr + 16; 006623 aa 6 00105 2361 00 ldq pr6|69 loc 006624 aa 000170 1160 07 cmpq 120,dl 006625 aa 000003 6000 04 tze 3,ic 006630 006626 aa 000020 2360 07 ldq 16,dl 006627 aa 6 00160 0561 00 asq pr6|112 dau_addr STATEMENT 1 ON LINE 381 end; 006630 aa 000010 2360 07 ldq 8,dl 006631 aa 6 00105 0561 00 asq pr6|69 loc 006632 aa 777722 7100 04 tra -46,ic 006554 STATEMENT 1 ON LINE 383 return; 006633 aa 0 00631 7101 00 tra pr0|409 return STATEMENT 1 ON LINE 385 Ftype (0): if key.mbz ^= "0"b | /* Check KEY */ key.mbz1 ^= "0"b then goto stow_away; 006634 aa 000 000 066 500 cmpb (pr),(),fill(0) 006635 aa 2 00000 10 0002 descb pr2|0(8),2 key.mbz 006636 aa 000000 00 0000 descb 0,0 006637 aa 777642 6010 04 tnz -94,ic 006501 006640 aa 000 000 066 500 cmpb (pr),(),fill(0) 006641 aa 2 00000 23 0001 descb pr2|0(12),1 key.mbz1 006642 aa 000000 00 0000 descb 0,0 006643 aa 777636 6010 04 tnz -98,ic 006501 STATEMENT 1 ON LINE 389 if hold_idx < 2 then do; 006644 aa 6 00131 2361 00 ldq pr6|89 hold_idx 006645 aa 000002 1160 07 cmpq 2,dl 006646 aa 000125 6050 04 tpl 85,ic 006773 STATEMENT 1 ON LINE 390 if hold_idx = 0 then call ioa_$ioa_switch (sw, "(PSI-^d, LC-^d) Initial IDCW Recieved. [BOTH DATA WORDS MISSING!]", key.PSI, key.LC); 006647 aa 6 00131 2361 00 ldq pr6|89 hold_idx 006650 aa 000036 6010 04 tnz 30,ic 006706 006651 aa 000 100 100 404 mlr (ic),(pr),fill(000) 006652 aa 773205 00 0104 desc9a -2427,68 002056 = 050120123111 006653 aa 6 00256 00 0104 desc9a pr6|174,68 006654 aa 7 00004 3521 20 epp2 pr7|4,* sw 006655 aa 6 00226 2521 00 spri2 pr6|150 006656 aa 6 00256 3521 00 epp2 pr6|174 006657 aa 6 00230 2521 00 spri2 pr6|152 006660 aa 000012 7270 07 lxl7 10,dl 006661 aa 6 00164 3521 20 epp2 pr6|116,* key.PSI 006662 aa 2 00000 5035 17 abd pr2|0,7 006663 aa 6 00232 2521 00 spri2 pr6|154 006664 aa 000015 7260 07 lxl6 13,dl 006665 aa 6 00164 3521 20 epp2 pr6|116,* key.LC 006666 aa 2 00000 5035 16 abd pr2|0,6 006667 aa 6 00234 2521 00 spri2 pr6|156 006670 aa 771753 3520 04 epp2 -3093,ic 000643 = 464000000000 006671 aa 6 00236 2521 00 spri2 pr6|158 006672 aa 771714 3520 04 epp2 -3124,ic 000606 = 524000000101 006673 aa 6 00240 2521 00 spri2 pr6|160 006674 aa 771656 3520 04 epp2 -3154,ic 000552 = 606000000002 006675 aa 6 00242 2521 00 spri2 pr6|162 006676 aa 771653 3520 04 epp2 -3157,ic 000551 = 606000000003 006677 aa 6 00244 2521 00 spri2 pr6|164 006700 aa 6 00224 6211 00 eax1 pr6|148 006701 aa 020000 4310 07 fld 8192,dl 006702 aa 6 00044 3701 20 epp4 pr6|36,* 006703 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 006704 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc 006705 aa 000064 7100 04 tra 52,ic 006771 STATEMENT 1 ON LINE 393 else call ioa_$ioa_switch (sw, "(PSI-^d, LC-^d) Initial IDCW Recieved. OP Code= ^1.3b^1.3b, Device= ^2.3b [LAST DATA WORD MISSING!]" , key.PSI, key.LC, substr (DH (1), 2, 3), substr (DH (1), 6, 3), substr (DH (1), 11, 6)); 006706 aa 000 100 100 404 mlr (ic),(pr),fill(000) 006707 aa 773511 00 0144 desc9a -2231,100 002417 = 050120123111 006710 aa 6 00224 00 0144 desc9a pr6|148,100 006711 aa 6 00126 2351 00 lda pr6|86 DH 006712 aa 000001 7350 00 als 1 006713 aa 0 00006 3771 00 anaq pr0|6 = 700000000000 000000000000 006714 aa 6 00305 7551 00 sta pr6|197 006715 aa 6 00126 2351 00 lda pr6|86 DH 006716 aa 000005 7350 00 als 5 006717 aa 0 00006 3771 00 anaq pr0|6 = 700000000000 000000000000 006720 aa 6 00222 7551 00 sta pr6|146 006721 aa 6 00126 2351 00 lda pr6|86 DH 006722 aa 000012 7350 00 als 10 006723 aa 0 00014 3771 00 anaq pr0|12 = 770000000000 000000000000 006724 aa 6 00345 7551 00 sta pr6|229 006725 aa 7 00004 3521 20 epp2 pr7|4,* sw 006726 aa 6 00310 2521 00 spri2 pr6|200 006727 aa 6 00224 3521 00 epp2 pr6|148 006730 aa 6 00312 2521 00 spri2 pr6|202 006731 aa 000012 7270 07 lxl7 10,dl 006732 aa 6 00164 3521 20 epp2 pr6|116,* key.PSI 006733 aa 2 00000 5035 17 abd pr2|0,7 006734 aa 6 00314 2521 00 spri2 pr6|204 006735 aa 000015 7260 07 lxl6 13,dl 006736 aa 6 00164 3521 20 epp2 pr6|116,* key.LC 006737 aa 2 00000 5035 16 abd pr2|0,6 006740 aa 6 00316 2521 00 spri2 pr6|206 006741 aa 6 00305 3521 00 epp2 pr6|197 006742 aa 6 00320 2521 00 spri2 pr6|208 006743 aa 6 00222 3521 00 epp2 pr6|146 006744 aa 6 00322 2521 00 spri2 pr6|210 006745 aa 6 00345 3521 00 epp2 pr6|229 006746 aa 6 00324 2521 00 spri2 pr6|212 006747 aa 771674 3520 04 epp2 -3140,ic 000643 = 464000000000 006750 aa 6 00326 2521 00 spri2 pr6|214 006751 aa 771577 3520 04 epp2 -3201,ic 000550 = 524000000143 006752 aa 6 00330 2521 00 spri2 pr6|216 006753 aa 771577 3520 04 epp2 -3201,ic 000552 = 606000000002 006754 aa 6 00332 2521 00 spri2 pr6|218 006755 aa 771574 3520 04 epp2 -3204,ic 000551 = 606000000003 006756 aa 6 00334 2521 00 spri2 pr6|220 006757 aa 771641 3520 04 epp2 -3167,ic 000620 = 514000000003 006760 aa 6 00336 2521 00 spri2 pr6|222 006761 aa 6 00340 2521 00 spri2 pr6|224 006762 aa 771622 3520 04 epp2 -3182,ic 000604 = 514000000006 006763 aa 6 00342 2521 00 spri2 pr6|226 006764 aa 6 00306 6211 00 eax1 pr6|198 006765 aa 034000 4310 07 fld 14336,dl 006766 aa 6 00044 3701 20 epp4 pr6|36,* 006767 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 006770 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 396 hold_idx = 0; 006771 aa 6 00131 4501 00 stz pr6|89 hold_idx STATEMENT 1 ON LINE 397 goto next_loc; 006772 aa 777535 7100 04 tra -163,ic 006527 STATEMENT 1 ON LINE 398 end; STATEMENT 1 ON LINE 399 call ioa_$ioa_switch (sw, "(PSI-^d, LC-^d) Initial IDCW Recieved. OP Code= ^1.3b^1.3b, Device= ^2.3b^[^[^/^36x^]^[ (Marker)^; (Continue)^; (Continue-Marker)^]^[ (Channel inst.=^2.3b)^]^]" , key.PSI, key.LC, substr (DH (1), 2, 3), substr (DH (1), 6, 3), substr (DH (1), 11, 6), (substr (DH (2), 9, 8) ^= "0"b), (substr (DH (2), 11, 6) ^= "0"b & substr (DH (2), 9, 2) ^= "0"b), fixed (substr (DH (2), 9, 2)), (substr (DH (2), 11, 6) ^= "0"b), substr (DH (2), 11, 6)); 006773 aa 000 100 100 404 mlr (ic),(pr),fill(000) 006774 aa 773615 00 0240 desc9a -2163,160 002610 = 050120123111 006775 aa 6 00410 00 0240 desc9a pr6|264,160 006776 aa 6 00126 2351 00 lda pr6|86 DH 006777 aa 000001 7350 00 als 1 007000 aa 0 00006 3771 00 anaq pr0|6 = 700000000000 000000000000 007001 aa 6 00345 7551 00 sta pr6|229 007002 aa 6 00126 2351 00 lda pr6|86 DH 007003 aa 000005 7350 00 als 5 007004 aa 0 00006 3771 00 anaq pr0|6 = 700000000000 000000000000 007005 aa 6 00222 7551 00 sta pr6|146 007006 aa 6 00126 2351 00 lda pr6|86 DH 007007 aa 000012 7350 00 als 10 007010 aa 0 00014 3771 00 anaq pr0|12 = 770000000000 000000000000 007011 aa 6 00305 7551 00 sta pr6|197 007012 aa 6 00126 2351 00 lda pr6|86 DH 007013 aa 007760 3150 07 cana 4080,dl 007014 aa 0 00515 7001 00 tsx0 pr0|333 r_ne_as 007015 aa 6 00344 7551 00 sta pr6|228 007016 aa 6 00126 2351 00 lda pr6|86 DH 007017 aa 000030 7350 00 als 24 007020 aa 0 00004 3771 00 anaq pr0|4 = 600000000000 000000000000 007021 aa 6 00223 7551 00 sta pr6|147 DH 007022 aa 0 00515 7001 00 tsx0 pr0|333 r_ne_as 007023 aa 6 00460 7551 00 sta pr6|304 007024 aa 6 00126 2351 00 lda pr6|86 DH 007025 aa 000032 7350 00 als 26 007026 aa 0 00014 3771 00 anaq pr0|12 = 770000000000 000000000000 007027 aa 6 00461 7551 00 sta pr6|305 DH 007030 aa 0 00515 7001 00 tsx0 pr0|333 r_ne_as 007031 aa 6 00460 3751 00 ana pr6|304 007032 aa 6 00460 7551 00 sta pr6|304 007033 aa 6 00223 2351 00 lda pr6|147 DH 007034 aa 000106 7730 00 lrl 70 007035 aa 6 00170 7571 00 staq pr6|120 007036 aa 6 00461 2351 00 lda pr6|305 DH 007037 aa 0 00515 7001 00 tsx0 pr0|333 r_ne_as 007040 aa 6 00223 7551 00 sta pr6|147 007041 aa 6 00461 2351 00 lda pr6|305 DH 007042 aa 6 00462 7551 00 sta pr6|306 007043 aa 7 00004 3521 20 epp2 pr7|4,* sw 007044 aa 6 00466 2521 00 spri2 pr6|310 007045 aa 6 00410 3521 00 epp2 pr6|264 007046 aa 6 00470 2521 00 spri2 pr6|312 007047 aa 000012 7270 07 lxl7 10,dl 007050 aa 6 00164 3521 20 epp2 pr6|116,* key.PSI 007051 aa 2 00000 5035 17 abd pr2|0,7 007052 aa 6 00472 2521 00 spri2 pr6|314 007053 aa 000015 7260 07 lxl6 13,dl 007054 aa 6 00164 3521 20 epp2 pr6|116,* key.LC 007055 aa 2 00000 5035 16 abd pr2|0,6 007056 aa 6 00474 2521 00 spri2 pr6|316 007057 aa 6 00345 3521 00 epp2 pr6|229 007060 aa 6 00476 2521 00 spri2 pr6|318 007061 aa 6 00222 3521 00 epp2 pr6|146 007062 aa 6 00500 2521 00 spri2 pr6|320 007063 aa 6 00305 3521 00 epp2 pr6|197 007064 aa 6 00502 2521 00 spri2 pr6|322 007065 aa 6 00344 3521 00 epp2 pr6|228 007066 aa 6 00504 2521 00 spri2 pr6|324 007067 aa 6 00460 3521 00 epp2 pr6|304 007070 aa 6 00506 2521 00 spri2 pr6|326 007071 aa 6 00170 3521 00 epp2 pr6|120 007072 aa 6 00510 2521 00 spri2 pr6|328 007073 aa 6 00223 3521 00 epp2 pr6|147 007074 aa 6 00512 2521 00 spri2 pr6|330 007075 aa 6 00462 3521 00 epp2 pr6|306 007076 aa 6 00514 2521 00 spri2 pr6|332 007077 aa 771544 3520 04 epp2 -3228,ic 000643 = 464000000000 007100 aa 6 00516 2521 00 spri2 pr6|334 007101 aa 771446 3520 04 epp2 -3290,ic 000547 = 524000000237 007102 aa 6 00520 2521 00 spri2 pr6|336 007103 aa 771447 3520 04 epp2 -3289,ic 000552 = 606000000002 007104 aa 6 00522 2521 00 spri2 pr6|338 007105 aa 771444 3520 04 epp2 -3292,ic 000551 = 606000000003 007106 aa 6 00524 2521 00 spri2 pr6|340 007107 aa 771511 3520 04 epp2 -3255,ic 000620 = 514000000003 007110 aa 6 00526 2521 00 spri2 pr6|342 007111 aa 6 00530 2521 00 spri2 pr6|344 007112 aa 771472 3520 04 epp2 -3270,ic 000604 = 514000000006 007113 aa 6 00532 2521 00 spri2 pr6|346 007114 aa 6 00544 2521 00 spri2 pr6|356 007115 aa 771520 3520 04 epp2 -3248,ic 000635 = 514000000001 007116 aa 6 00534 2521 00 spri2 pr6|348 007117 aa 6 00536 2521 00 spri2 pr6|350 007120 aa 6 00542 2521 00 spri2 pr6|354 007121 aa 771425 3520 04 epp2 -3307,ic 000546 = 410000000107 007122 aa 6 00540 2521 00 spri2 pr6|352 007123 aa 6 00464 6211 00 eax1 pr6|308 007124 aa 060000 4310 07 fld 24576,dl 007125 aa 6 00044 3701 20 epp4 pr6|36,* 007126 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 007127 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 404 hold_idx = 0; 007130 aa 6 00131 4501 00 stz pr6|89 hold_idx STATEMENT 1 ON LINE 405 goto next_loc; 007131 aa 777376 7100 04 tra -258,ic 006527 STATEMENT 1 ON LINE 407 Ftype (1): if key.mbz ^= "0"b | /* Check KEY */ key.mbz1 ^= "0"b then goto stow_away; 007132 aa 000 000 066 500 cmpb (pr),(),fill(0) 007133 aa 2 00000 10 0002 descb pr2|0(8),2 key.mbz 007134 aa 000000 00 0000 descb 0,0 007135 aa 777344 6010 04 tnz -284,ic 006501 007136 aa 000 000 066 500 cmpb (pr),(),fill(0) 007137 aa 2 00000 23 0001 descb pr2|0(12),1 key.mbz1 007140 aa 000000 00 0000 descb 0,0 007141 aa 777340 6010 04 tnz -288,ic 006501 STATEMENT 1 ON LINE 411 if hold_idx ^= 0 then goto stow_away; 007142 aa 6 00131 2361 00 ldq pr6|89 hold_idx 007143 aa 777336 6010 04 tnz -290,ic 006501 STATEMENT 1 ON LINE 412 call ioa_$ioa_switch (sw, "(PSI-^d, LC-^d) Initial IDCW Initiated (from CPW Queue).", key.PSI, key.LC); 007144 aa 000 100 100 404 mlr (ic),(pr),fill(000) 007145 aa 772211 00 0070 desc9a -2935,56 001355 = 050120123111 007146 aa 6 00204 00 0070 desc9a pr6|132,56 007147 aa 7 00004 3521 20 epp2 pr7|4,* sw 007150 aa 6 00260 2521 00 spri2 pr6|176 007151 aa 6 00204 3521 00 epp2 pr6|132 007152 aa 6 00262 2521 00 spri2 pr6|178 007153 aa 000012 7270 07 lxl7 10,dl 007154 aa 6 00164 3521 20 epp2 pr6|116,* key.PSI 007155 aa 2 00000 5035 17 abd pr2|0,7 007156 aa 6 00264 2521 00 spri2 pr6|180 007157 aa 000015 7260 07 lxl6 13,dl 007160 aa 6 00164 3521 20 epp2 pr6|116,* key.LC 007161 aa 2 00000 5035 16 abd pr2|0,6 007162 aa 6 00266 2521 00 spri2 pr6|182 007163 aa 771460 3520 04 epp2 -3280,ic 000643 = 464000000000 007164 aa 6 00270 2521 00 spri2 pr6|184 007165 aa 771414 3520 04 epp2 -3316,ic 000601 = 524000000070 007166 aa 6 00272 2521 00 spri2 pr6|186 007167 aa 771363 3520 04 epp2 -3341,ic 000552 = 606000000002 007170 aa 6 00274 2521 00 spri2 pr6|188 007171 aa 771360 3520 04 epp2 -3344,ic 000551 = 606000000003 007172 aa 6 00276 2521 00 spri2 pr6|190 007173 aa 6 00256 6211 00 eax1 pr6|174 007174 aa 020000 4310 07 fld 8192,dl 007175 aa 6 00044 3701 20 epp4 pr6|36,* 007176 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 007177 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 413 goto next_loc; 007200 aa 777327 7100 04 tra -297,ic 006527 STATEMENT 1 ON LINE 415 Ftype (2): if key.mbz ^= "0"b | /* Check KEY */ key.mbz1 ^= "0"b then goto stow_away; 007201 aa 000 000 066 500 cmpb (pr),(),fill(0) 007202 aa 2 00000 10 0002 descb pr2|0(8),2 key.mbz 007203 aa 000000 00 0000 descb 0,0 007204 aa 777275 6010 04 tnz -323,ic 006501 007205 aa 000 000 066 500 cmpb (pr),(),fill(0) 007206 aa 2 00000 23 0001 descb pr2|0(12),1 key.mbz1 007207 aa 000000 00 0000 descb 0,0 007210 aa 777271 6010 04 tnz -327,ic 006501 STATEMENT 1 ON LINE 419 if hold_idx < 1 then do; 007211 aa 6 00131 2361 00 ldq pr6|89 hold_idx 007212 aa 000001 1160 07 cmpq 1,dl 007213 aa 000037 6050 04 tpl 31,ic 007252 STATEMENT 1 ON LINE 420 call ioa_$ioa_switch (sw, "(PSI-^d, LC-^d) Seek Command Initiated. [DATA WORD MISSING!]", key.PSI, key.LC); 007214 aa 000 100 100 404 mlr (ic),(pr),fill(000) 007215 aa 772362 00 0074 desc9a -2830,60 001576 = 050120123111 007216 aa 6 00256 00 0074 desc9a pr6|174,60 007217 aa 7 00004 3521 20 epp2 pr7|4,* sw 007220 aa 6 00226 2521 00 spri2 pr6|150 007221 aa 6 00256 3521 00 epp2 pr6|174 007222 aa 6 00230 2521 00 spri2 pr6|152 007223 aa 000012 7270 07 lxl7 10,dl 007224 aa 6 00164 3521 20 epp2 pr6|116,* key.PSI 007225 aa 2 00000 5035 17 abd pr2|0,7 007226 aa 6 00232 2521 00 spri2 pr6|154 007227 aa 000015 7260 07 lxl6 13,dl 007230 aa 6 00164 3521 20 epp2 pr6|116,* key.LC 007231 aa 2 00000 5035 16 abd pr2|0,6 007232 aa 6 00234 2521 00 spri2 pr6|156 007233 aa 771410 3520 04 epp2 -3320,ic 000643 = 464000000000 007234 aa 6 00236 2521 00 spri2 pr6|158 007235 aa 771310 3520 04 epp2 -3384,ic 000545 = 524000000074 007236 aa 6 00240 2521 00 spri2 pr6|160 007237 aa 771313 3520 04 epp2 -3381,ic 000552 = 606000000002 007240 aa 6 00242 2521 00 spri2 pr6|162 007241 aa 771310 3520 04 epp2 -3384,ic 000551 = 606000000003 007242 aa 6 00244 2521 00 spri2 pr6|164 007243 aa 6 00224 6211 00 eax1 pr6|148 007244 aa 020000 4310 07 fld 8192,dl 007245 aa 6 00044 3701 20 epp4 pr6|36,* 007246 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 007247 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 421 hold_idx = 0; 007250 aa 6 00131 4501 00 stz pr6|89 hold_idx STATEMENT 1 ON LINE 422 goto next_loc; 007251 aa 777256 7100 04 tra -338,ic 006527 STATEMENT 1 ON LINE 423 end; STATEMENT 1 ON LINE 424 call ioa_$ioa_switch (sw, "(PSI-^d, LC-^d) Seek Command Initiated. Cylinder/Head= ^d/^d", key.PSI, key.LC, fixed (substr (DH (1), 9, 2) || substr (DH (1), 1, 8)), fixed (substr (DH (1), 11, 6))); 007252 aa 000 100 100 404 mlr (ic),(pr),fill(000) 007253 aa 772305 00 0074 desc9a -2875,60 001557 = 050120123111 007254 aa 6 00256 00 0074 desc9a pr6|174,60 007255 aa 6 00126 2351 00 lda pr6|86 DH 007256 aa 000010 7350 00 als 8 007257 aa 0 00004 3771 00 anaq pr0|4 = 600000000000 000000000000 007260 aa 6 00462 7551 00 sta pr6|306 DH 007261 aa 6 00126 2351 00 lda pr6|86 DH 007262 aa 0 00020 3771 00 anaq pr0|16 = 776000000000 000000000000 007263 aa 000002 7710 00 arl 2 007264 aa 6 00462 2751 00 ora pr6|306 DH 007265 aa 000076 7730 00 lrl 62 007266 aa 6 00170 7571 00 staq pr6|120 007267 aa 6 00126 2351 00 lda pr6|86 DH 007270 aa 000012 7350 00 als 10 007271 aa 000102 7730 00 lrl 66 007272 aa 6 00546 7571 00 staq pr6|358 007273 aa 7 00004 3521 20 epp2 pr7|4,* sw 007274 aa 6 00226 2521 00 spri2 pr6|150 007275 aa 6 00256 3521 00 epp2 pr6|174 007276 aa 6 00230 2521 00 spri2 pr6|152 007277 aa 000012 7270 07 lxl7 10,dl 007300 aa 6 00164 3521 20 epp2 pr6|116,* key.PSI 007301 aa 2 00000 5035 17 abd pr2|0,7 007302 aa 6 00232 2521 00 spri2 pr6|154 007303 aa 000015 7260 07 lxl6 13,dl 007304 aa 6 00164 3521 20 epp2 pr6|116,* key.LC 007305 aa 2 00000 5035 16 abd pr2|0,6 007306 aa 6 00234 2521 00 spri2 pr6|156 007307 aa 6 00170 3521 00 epp2 pr6|120 007310 aa 6 00236 2521 00 spri2 pr6|158 007311 aa 6 00546 3521 00 epp2 pr6|358 007312 aa 6 00240 2521 00 spri2 pr6|160 007313 aa 771330 3520 04 epp2 -3368,ic 000643 = 464000000000 007314 aa 6 00242 2521 00 spri2 pr6|162 007315 aa 771230 3520 04 epp2 -3432,ic 000545 = 524000000074 007316 aa 6 00244 2521 00 spri2 pr6|164 007317 aa 771233 3520 04 epp2 -3429,ic 000552 = 606000000002 007320 aa 6 00246 2521 00 spri2 pr6|166 007321 aa 771230 3520 04 epp2 -3432,ic 000551 = 606000000003 007322 aa 6 00250 2521 00 spri2 pr6|168 007323 aa 771223 3520 04 epp2 -3437,ic 000546 = 410000000107 007324 aa 6 00252 2521 00 spri2 pr6|170 007325 aa 6 00254 2521 00 spri2 pr6|172 007326 aa 6 00224 6211 00 eax1 pr6|148 007327 aa 030000 4310 07 fld 12288,dl 007330 aa 6 00044 3701 20 epp4 pr6|36,* 007331 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 007332 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 426 hold_idx = 0; 007333 aa 6 00131 4501 00 stz pr6|89 hold_idx STATEMENT 1 ON LINE 427 goto next_loc; 007334 aa 777173 7100 04 tra -389,ic 006527 STATEMENT 1 ON LINE 429 Ftype (3): if key.mbz ^= "0"b | /* Check KEY */ key.mbz1 ^= "0"b then goto stow_away; 007335 aa 000 000 066 500 cmpb (pr),(),fill(0) 007336 aa 2 00000 10 0002 descb pr2|0(8),2 key.mbz 007337 aa 000000 00 0000 descb 0,0 007340 aa 777141 6010 04 tnz -415,ic 006501 007341 aa 000 000 066 500 cmpb (pr),(),fill(0) 007342 aa 2 00000 23 0001 descb pr2|0(12),1 key.mbz1 007343 aa 000000 00 0000 descb 0,0 007344 aa 777135 6010 04 tnz -419,ic 006501 STATEMENT 1 ON LINE 433 if hold_idx < 1 then do; 007345 aa 6 00131 2361 00 ldq pr6|89 hold_idx 007346 aa 000001 1160 07 cmpq 1,dl 007347 aa 000037 6050 04 tpl 31,ic 007406 STATEMENT 1 ON LINE 434 call ioa_$ioa_switch (sw, "(PSI-^d, LC-^d) Continue IDCW Initiated. [DATA WORD MISSING!]", key.PSI, key.LC) ; 007350 aa 000 100 100 404 mlr (ic),(pr),fill(000) 007351 aa 772343 00 0100 desc9a -2845,64 001713 = 050120123111 007352 aa 6 00256 00 0100 desc9a pr6|174,64 007353 aa 7 00004 3521 20 epp2 pr7|4,* sw 007354 aa 6 00226 2521 00 spri2 pr6|150 007355 aa 6 00256 3521 00 epp2 pr6|174 007356 aa 6 00230 2521 00 spri2 pr6|152 007357 aa 000012 7270 07 lxl7 10,dl 007360 aa 6 00164 3521 20 epp2 pr6|116,* key.PSI 007361 aa 2 00000 5035 17 abd pr2|0,7 007362 aa 6 00232 2521 00 spri2 pr6|154 007363 aa 000015 7260 07 lxl6 13,dl 007364 aa 6 00164 3521 20 epp2 pr6|116,* key.LC 007365 aa 2 00000 5035 16 abd pr2|0,6 007366 aa 6 00234 2521 00 spri2 pr6|156 007367 aa 771254 3520 04 epp2 -3412,ic 000643 = 464000000000 007370 aa 6 00236 2521 00 spri2 pr6|158 007371 aa 771164 3520 04 epp2 -3468,ic 000555 = 524000000075 007372 aa 6 00240 2521 00 spri2 pr6|160 007373 aa 771157 3520 04 epp2 -3473,ic 000552 = 606000000002 007374 aa 6 00242 2521 00 spri2 pr6|162 007375 aa 771154 3520 04 epp2 -3476,ic 000551 = 606000000003 007376 aa 6 00244 2521 00 spri2 pr6|164 007377 aa 6 00224 6211 00 eax1 pr6|148 007400 aa 020000 4310 07 fld 8192,dl 007401 aa 6 00044 3701 20 epp4 pr6|36,* 007402 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 007403 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 436 hold_idx = 0; 007404 aa 6 00131 4501 00 stz pr6|89 hold_idx STATEMENT 1 ON LINE 437 goto next_loc; 007405 aa 777122 7100 04 tra -430,ic 006527 STATEMENT 1 ON LINE 438 end; STATEMENT 1 ON LINE 439 call ioa_$ioa_switch (sw, "(PSI-^d, LC-^d) Continue IDCW Initiated. OP Code= ^1.3b^1.3b^[^[^/^38x^]^[ (Marker)^; (Continue)^; (Continue-Marker)^]^[ (Channel inst.=^2.3b)^]^]" , key.PSI, key.LC, substr (DH (1), 2, 3), substr (DH (1), 6, 3), (substr (DH (1), 9, 8) ^= "0"b), (substr (DH (1), 11, 6) ^= "0"b & substr (DH (1), 9, 2) ^= "0"b), fixed (substr (DH (1), 9, 2)), (substr (DH (1), 11, 6) ^= "0"b), substr (DH (1), 11, 6)); 007406 aa 000 100 100 404 mlr (ic),(pr),fill(000) 007407 aa 773135 00 0224 desc9a -2467,148 002543 = 050120123111 007410 aa 6 00410 00 0224 desc9a pr6|264,148 007411 aa 6 00126 2351 00 lda pr6|86 DH 007412 aa 000001 7350 00 als 1 007413 aa 0 00006 3771 00 anaq pr0|6 = 700000000000 000000000000 007414 aa 6 00462 7551 00 sta pr6|306 007415 aa 6 00126 2351 00 lda pr6|86 DH 007416 aa 000005 7350 00 als 5 007417 aa 0 00006 3771 00 anaq pr0|6 = 700000000000 000000000000 007420 aa 6 00223 7551 00 sta pr6|147 007421 aa 6 00126 2351 00 lda pr6|86 DH 007422 aa 001774 3150 03 cana 1020,du 007423 aa 0 00515 7001 00 tsx0 pr0|333 r_ne_as 007424 aa 6 00460 7551 00 sta pr6|304 007425 aa 6 00126 2351 00 lda pr6|86 DH 007426 aa 000010 7350 00 als 8 007427 aa 0 00004 3771 00 anaq pr0|4 = 600000000000 000000000000 007430 aa 6 00344 7551 00 sta pr6|228 DH 007431 aa 0 00515 7001 00 tsx0 pr0|333 r_ne_as 007432 aa 6 00305 7551 00 sta pr6|197 007433 aa 6 00126 2351 00 lda pr6|86 DH 007434 aa 000012 7350 00 als 10 007435 aa 0 00014 3771 00 anaq pr0|12 = 770000000000 000000000000 007436 aa 6 00222 7551 00 sta pr6|146 DH 007437 aa 0 00515 7001 00 tsx0 pr0|333 r_ne_as 007440 aa 6 00305 3751 00 ana pr6|197 007441 aa 6 00305 7551 00 sta pr6|197 007442 aa 6 00344 2351 00 lda pr6|228 DH 007443 aa 000106 7730 00 lrl 70 007444 aa 6 00546 7571 00 staq pr6|358 007445 aa 6 00222 2351 00 lda pr6|146 DH 007446 aa 0 00515 7001 00 tsx0 pr0|333 r_ne_as 007447 aa 6 00344 7551 00 sta pr6|228 007450 aa 6 00222 2351 00 lda pr6|146 DH 007451 aa 6 00345 7551 00 sta pr6|229 007452 aa 7 00004 3521 20 epp2 pr7|4,* sw 007453 aa 6 00466 2521 00 spri2 pr6|310 007454 aa 6 00410 3521 00 epp2 pr6|264 007455 aa 6 00470 2521 00 spri2 pr6|312 007456 aa 000012 7270 07 lxl7 10,dl 007457 aa 6 00164 3521 20 epp2 pr6|116,* key.PSI 007460 aa 2 00000 5035 17 abd pr2|0,7 007461 aa 6 00472 2521 00 spri2 pr6|314 007462 aa 000015 7260 07 lxl6 13,dl 007463 aa 6 00164 3521 20 epp2 pr6|116,* key.LC 007464 aa 2 00000 5035 16 abd pr2|0,6 007465 aa 6 00474 2521 00 spri2 pr6|316 007466 aa 6 00462 3521 00 epp2 pr6|306 007467 aa 6 00476 2521 00 spri2 pr6|318 007470 aa 6 00223 3521 00 epp2 pr6|147 007471 aa 6 00500 2521 00 spri2 pr6|320 007472 aa 6 00460 3521 00 epp2 pr6|304 007473 aa 6 00502 2521 00 spri2 pr6|322 007474 aa 6 00305 3521 00 epp2 pr6|197 007475 aa 6 00504 2521 00 spri2 pr6|324 007476 aa 6 00546 3521 00 epp2 pr6|358 007477 aa 6 00506 2521 00 spri2 pr6|326 007500 aa 6 00344 3521 00 epp2 pr6|228 007501 aa 6 00510 2521 00 spri2 pr6|328 007502 aa 6 00345 3521 00 epp2 pr6|229 007503 aa 6 00512 2521 00 spri2 pr6|330 007504 aa 771137 3520 04 epp2 -3489,ic 000643 = 464000000000 007505 aa 6 00514 2521 00 spri2 pr6|332 007506 aa 771036 3520 04 epp2 -3554,ic 000544 = 524000000222 007507 aa 6 00516 2521 00 spri2 pr6|334 007510 aa 771042 3520 04 epp2 -3550,ic 000552 = 606000000002 007511 aa 6 00520 2521 00 spri2 pr6|336 007512 aa 771037 3520 04 epp2 -3553,ic 000551 = 606000000003 007513 aa 6 00522 2521 00 spri2 pr6|338 007514 aa 771104 3520 04 epp2 -3516,ic 000620 = 514000000003 007515 aa 6 00524 2521 00 spri2 pr6|340 007516 aa 6 00526 2521 00 spri2 pr6|342 007517 aa 771116 3520 04 epp2 -3506,ic 000635 = 514000000001 007520 aa 6 00530 2521 00 spri2 pr6|344 007521 aa 6 00532 2521 00 spri2 pr6|346 007522 aa 6 00536 2521 00 spri2 pr6|350 007523 aa 771023 3520 04 epp2 -3565,ic 000546 = 410000000107 007524 aa 6 00534 2521 00 spri2 pr6|348 007525 aa 771057 3520 04 epp2 -3537,ic 000604 = 514000000006 007526 aa 6 00540 2521 00 spri2 pr6|352 007527 aa 6 00464 6211 00 eax1 pr6|308 007530 aa 054000 4310 07 fld 22528,dl 007531 aa 6 00044 3701 20 epp4 pr6|36,* 007532 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 007533 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 444 hold_idx = 0; 007534 aa 6 00131 4501 00 stz pr6|89 hold_idx STATEMENT 1 ON LINE 445 goto next_loc; 007535 aa 776772 7100 04 tra -518,ic 006527 STATEMENT 1 ON LINE 447 Ftype (4): if key.mbz ^= "0"b | /* Check KEY */ key.mbz1 ^= "0"b then goto stow_away; 007536 aa 000 000 066 500 cmpb (pr),(),fill(0) 007537 aa 2 00000 10 0002 descb pr2|0(8),2 key.mbz 007540 aa 000000 00 0000 descb 0,0 007541 aa 776740 6010 04 tnz -544,ic 006501 007542 aa 000 000 066 500 cmpb (pr),(),fill(0) 007543 aa 2 00000 23 0001 descb pr2|0(12),1 key.mbz1 007544 aa 000000 00 0000 descb 0,0 007545 aa 776734 6010 04 tnz -548,ic 006501 STATEMENT 1 ON LINE 451 if hold_idx < 1 then do; 007546 aa 6 00131 2361 00 ldq pr6|89 hold_idx 007547 aa 000001 1160 07 cmpq 1,dl 007550 aa 000037 6050 04 tpl 31,ic 007607 STATEMENT 1 ON LINE 452 call ioa_$ioa_switch (sw, "(PSI-^d, LC-^d) Read Operation Started. [DATA WORD MISSING!]", key.PSI, key.LC); 007551 aa 000 100 100 404 mlr (ic),(pr),fill(000) 007552 aa 771767 00 0074 desc9a -3081,60 001540 = 050120123111 007553 aa 6 00256 00 0074 desc9a pr6|174,60 007554 aa 7 00004 3521 20 epp2 pr7|4,* sw 007555 aa 6 00226 2521 00 spri2 pr6|150 007556 aa 6 00256 3521 00 epp2 pr6|174 007557 aa 6 00230 2521 00 spri2 pr6|152 007560 aa 000012 7270 07 lxl7 10,dl 007561 aa 6 00164 3521 20 epp2 pr6|116,* key.PSI 007562 aa 2 00000 5035 17 abd pr2|0,7 007563 aa 6 00232 2521 00 spri2 pr6|154 007564 aa 000015 7260 07 lxl6 13,dl 007565 aa 6 00164 3521 20 epp2 pr6|116,* key.LC 007566 aa 2 00000 5035 16 abd pr2|0,6 007567 aa 6 00234 2521 00 spri2 pr6|156 007570 aa 771053 3520 04 epp2 -3541,ic 000643 = 464000000000 007571 aa 6 00236 2521 00 spri2 pr6|158 007572 aa 770753 3520 04 epp2 -3605,ic 000545 = 524000000074 007573 aa 6 00240 2521 00 spri2 pr6|160 007574 aa 770756 3520 04 epp2 -3602,ic 000552 = 606000000002 007575 aa 6 00242 2521 00 spri2 pr6|162 007576 aa 770753 3520 04 epp2 -3605,ic 000551 = 606000000003 007577 aa 6 00244 2521 00 spri2 pr6|164 007600 aa 6 00224 6211 00 eax1 pr6|148 007601 aa 020000 4310 07 fld 8192,dl 007602 aa 6 00044 3701 20 epp4 pr6|36,* 007603 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 007604 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 453 hold_idx = 0; 007605 aa 6 00131 4501 00 stz pr6|89 hold_idx STATEMENT 1 ON LINE 454 goto next_loc; 007606 aa 776721 7100 04 tra -559,ic 006527 STATEMENT 1 ON LINE 455 end; STATEMENT 1 ON LINE 456 call ioa_$ioa_switch (sw, "(PSI-^d, LC-^d) Read Operation Started. ^d Record^[^;s^] Transfered.", key.PSI, key.LC, fixed (DH (1)), (fixed (DH (1)) = 1)); 007607 aa 000 100 100 404 mlr (ic),(pr),fill(000) 007610 aa 772226 00 0104 desc9a -2922,68 002035 = 050120123111 007611 aa 6 00256 00 0104 desc9a pr6|174,68 007612 aa 6 00126 2351 00 lda pr6|86 DH 007613 aa 0 00040 3771 00 anaq pr0|32 = 777774000000 000000000000 007614 aa 6 00345 7551 00 sta pr6|229 DH 007615 aa 000070 7730 00 lrl 56 007616 aa 6 00546 7571 00 staq pr6|358 007617 aa 6 00345 2351 00 lda pr6|229 DH 007620 aa 000070 7730 00 lrl 56 007621 aa 6 00170 7571 00 staq pr6|120 007622 aa 000001 2350 07 lda 1,dl 007623 aa 000044 7330 00 lrs 36 007624 aa 6 00170 1171 00 cmpaq pr6|120 007625 aa 0 00512 7001 00 tsx0 pr0|330 r_e_as 007626 aa 6 00345 7551 00 sta pr6|229 007627 aa 7 00004 3521 20 epp2 pr7|4,* sw 007630 aa 6 00226 2521 00 spri2 pr6|150 007631 aa 6 00256 3521 00 epp2 pr6|174 007632 aa 6 00230 2521 00 spri2 pr6|152 007633 aa 000012 7270 07 lxl7 10,dl 007634 aa 6 00164 3521 20 epp2 pr6|116,* key.PSI 007635 aa 2 00000 5035 17 abd pr2|0,7 007636 aa 6 00232 2521 00 spri2 pr6|154 007637 aa 000015 7260 07 lxl6 13,dl 007640 aa 6 00164 3521 20 epp2 pr6|116,* key.LC 007641 aa 2 00000 5035 16 abd pr2|0,6 007642 aa 6 00234 2521 00 spri2 pr6|156 007643 aa 6 00546 3521 00 epp2 pr6|358 007644 aa 6 00236 2521 00 spri2 pr6|158 007645 aa 6 00345 3521 00 epp2 pr6|229 007646 aa 6 00240 2521 00 spri2 pr6|160 007647 aa 770774 3520 04 epp2 -3588,ic 000643 = 464000000000 007650 aa 6 00242 2521 00 spri2 pr6|162 007651 aa 770672 3520 04 epp2 -3654,ic 000543 = 524000000104 007652 aa 6 00244 2521 00 spri2 pr6|164 007653 aa 770677 3520 04 epp2 -3649,ic 000552 = 606000000002 007654 aa 6 00246 2521 00 spri2 pr6|166 007655 aa 770674 3520 04 epp2 -3652,ic 000551 = 606000000003 007656 aa 6 00250 2521 00 spri2 pr6|168 007657 aa 770667 3520 04 epp2 -3657,ic 000546 = 410000000107 007660 aa 6 00252 2521 00 spri2 pr6|170 007661 aa 770754 3520 04 epp2 -3604,ic 000635 = 514000000001 007662 aa 6 00254 2521 00 spri2 pr6|172 007663 aa 6 00224 6211 00 eax1 pr6|148 007664 aa 030000 4310 07 fld 12288,dl 007665 aa 6 00044 3701 20 epp4 pr6|36,* 007666 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 007667 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 458 hold_idx = 0; 007670 aa 6 00131 4501 00 stz pr6|89 hold_idx STATEMENT 1 ON LINE 459 goto next_loc; 007671 aa 776636 7100 04 tra -610,ic 006527 STATEMENT 1 ON LINE 461 Ftype (5): if key.mbz ^= "0"b | /* Check KEY */ key.mbz1 ^= "0"b then goto stow_away; 007672 aa 000 000 066 500 cmpb (pr),(),fill(0) 007673 aa 2 00000 10 0002 descb pr2|0(8),2 key.mbz 007674 aa 000000 00 0000 descb 0,0 007675 aa 776604 6010 04 tnz -636,ic 006501 007676 aa 000 000 066 500 cmpb (pr),(),fill(0) 007677 aa 2 00000 23 0001 descb pr2|0(12),1 key.mbz1 007700 aa 000000 00 0000 descb 0,0 007701 aa 776600 6010 04 tnz -640,ic 006501 STATEMENT 1 ON LINE 465 if hold_idx < 1 then do; 007702 aa 6 00131 2361 00 ldq pr6|89 hold_idx 007703 aa 000001 1160 07 cmpq 1,dl 007704 aa 000037 6050 04 tpl 31,ic 007743 STATEMENT 1 ON LINE 466 call ioa_$ioa_switch (sw, "(PSI-^d, LC-^d) Write Operation Started. [DATA WORD MISSING!]", key.PSI, key.LC) ; 007705 aa 000 100 100 404 mlr (ic),(pr),fill(000) 007706 aa 771766 00 0100 desc9a -3082,64 001673 = 050120123111 007707 aa 6 00256 00 0100 desc9a pr6|174,64 007710 aa 7 00004 3521 20 epp2 pr7|4,* sw 007711 aa 6 00226 2521 00 spri2 pr6|150 007712 aa 6 00256 3521 00 epp2 pr6|174 007713 aa 6 00230 2521 00 spri2 pr6|152 007714 aa 000012 7270 07 lxl7 10,dl 007715 aa 6 00164 3521 20 epp2 pr6|116,* key.PSI 007716 aa 2 00000 5035 17 abd pr2|0,7 007717 aa 6 00232 2521 00 spri2 pr6|154 007720 aa 000015 7260 07 lxl6 13,dl 007721 aa 6 00164 3521 20 epp2 pr6|116,* key.LC 007722 aa 2 00000 5035 16 abd pr2|0,6 007723 aa 6 00234 2521 00 spri2 pr6|156 007724 aa 770717 3520 04 epp2 -3633,ic 000643 = 464000000000 007725 aa 6 00236 2521 00 spri2 pr6|158 007726 aa 770627 3520 04 epp2 -3689,ic 000555 = 524000000075 007727 aa 6 00240 2521 00 spri2 pr6|160 007730 aa 770622 3520 04 epp2 -3694,ic 000552 = 606000000002 007731 aa 6 00242 2521 00 spri2 pr6|162 007732 aa 770617 3520 04 epp2 -3697,ic 000551 = 606000000003 007733 aa 6 00244 2521 00 spri2 pr6|164 007734 aa 6 00224 6211 00 eax1 pr6|148 007735 aa 020000 4310 07 fld 8192,dl 007736 aa 6 00044 3701 20 epp4 pr6|36,* 007737 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 007740 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 468 hold_idx = 0; 007741 aa 6 00131 4501 00 stz pr6|89 hold_idx STATEMENT 1 ON LINE 469 goto next_loc; 007742 aa 776565 7100 04 tra -651,ic 006527 STATEMENT 1 ON LINE 470 end; STATEMENT 1 ON LINE 471 call ioa_$ioa_switch (sw, "(PSI-^d, LC-^d) Write Operation Started. ^d Record^[^;s^] Transfered.", key.PSI, key.LC, fixed (DH (1)), (fixed (DH (1)) = 1)); 007743 aa 000 100 100 404 mlr (ic),(pr),fill(000) 007744 aa 772242 00 0110 desc9a -2910,72 002205 = 050120123111 007745 aa 6 00256 00 0110 desc9a pr6|174,72 007746 aa 6 00126 2351 00 lda pr6|86 DH 007747 aa 0 00040 3771 00 anaq pr0|32 = 777774000000 000000000000 007750 aa 6 00345 7551 00 sta pr6|229 DH 007751 aa 000070 7730 00 lrl 56 007752 aa 6 00546 7571 00 staq pr6|358 007753 aa 6 00345 2351 00 lda pr6|229 DH 007754 aa 000070 7730 00 lrl 56 007755 aa 6 00170 7571 00 staq pr6|120 007756 aa 000001 2350 07 lda 1,dl 007757 aa 000044 7330 00 lrs 36 007760 aa 6 00170 1171 00 cmpaq pr6|120 007761 aa 0 00512 7001 00 tsx0 pr0|330 r_e_as 007762 aa 6 00345 7551 00 sta pr6|229 007763 aa 7 00004 3521 20 epp2 pr7|4,* sw 007764 aa 6 00226 2521 00 spri2 pr6|150 007765 aa 6 00256 3521 00 epp2 pr6|174 007766 aa 6 00230 2521 00 spri2 pr6|152 007767 aa 000012 7270 07 lxl7 10,dl 007770 aa 6 00164 3521 20 epp2 pr6|116,* key.PSI 007771 aa 2 00000 5035 17 abd pr2|0,7 007772 aa 6 00232 2521 00 spri2 pr6|154 007773 aa 000015 7260 07 lxl6 13,dl 007774 aa 6 00164 3521 20 epp2 pr6|116,* key.LC 007775 aa 2 00000 5035 16 abd pr2|0,6 007776 aa 6 00234 2521 00 spri2 pr6|156 007777 aa 6 00546 3521 00 epp2 pr6|358 010000 aa 6 00236 2521 00 spri2 pr6|158 010001 aa 6 00345 3521 00 epp2 pr6|229 010002 aa 6 00240 2521 00 spri2 pr6|160 010003 aa 770640 3520 04 epp2 -3680,ic 000643 = 464000000000 010004 aa 6 00242 2521 00 spri2 pr6|162 010005 aa 770570 3520 04 epp2 -3720,ic 000575 = 524000000105 010006 aa 6 00244 2521 00 spri2 pr6|164 010007 aa 770543 3520 04 epp2 -3741,ic 000552 = 606000000002 010010 aa 6 00246 2521 00 spri2 pr6|166 010011 aa 770540 3520 04 epp2 -3744,ic 000551 = 606000000003 010012 aa 6 00250 2521 00 spri2 pr6|168 010013 aa 770533 3520 04 epp2 -3749,ic 000546 = 410000000107 010014 aa 6 00252 2521 00 spri2 pr6|170 010015 aa 770620 3520 04 epp2 -3696,ic 000635 = 514000000001 010016 aa 6 00254 2521 00 spri2 pr6|172 010017 aa 6 00224 6211 00 eax1 pr6|148 010020 aa 030000 4310 07 fld 12288,dl 010021 aa 6 00044 3701 20 epp4 pr6|36,* 010022 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 010023 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 473 hold_idx = 0; 010024 aa 6 00131 4501 00 stz pr6|89 hold_idx STATEMENT 1 ON LINE 474 goto next_loc; 010025 aa 776502 7100 04 tra -702,ic 006527 STATEMENT 1 ON LINE 476 Ftype (6): if key.mbz ^= "0"b | /* Check KEY */ key.mbz1 ^= "0"b then goto stow_away; 010026 aa 000 000 066 500 cmpb (pr),(),fill(0) 010027 aa 2 00000 10 0002 descb pr2|0(8),2 key.mbz 010030 aa 000000 00 0000 descb 0,0 010031 aa 776450 6010 04 tnz -728,ic 006501 010032 aa 000 000 066 500 cmpb (pr),(),fill(0) 010033 aa 2 00000 23 0001 descb pr2|0(12),1 key.mbz1 010034 aa 000000 00 0000 descb 0,0 010035 aa 776444 6010 04 tnz -732,ic 006501 STATEMENT 1 ON LINE 480 if hold_idx < 1 then do; 010036 aa 6 00131 2361 00 ldq pr6|89 hold_idx 010037 aa 000001 1160 07 cmpq 1,dl 010040 aa 000037 6050 04 tpl 31,ic 010077 STATEMENT 1 ON LINE 481 call ioa_$ioa_switch (sw, "(PSI-^d, LC-^d) Termination Status. [DATA WORD MISSING!]", key.PSI, key.LC); 010041 aa 000 100 100 404 mlr (ic),(pr),fill(000) 010042 aa 771276 00 0070 desc9a -3394,56 001337 = 050120123111 010043 aa 6 00204 00 0070 desc9a pr6|132,56 010044 aa 7 00004 3521 20 epp2 pr7|4,* sw 010045 aa 6 00260 2521 00 spri2 pr6|176 010046 aa 6 00204 3521 00 epp2 pr6|132 010047 aa 6 00262 2521 00 spri2 pr6|178 010050 aa 000012 7270 07 lxl7 10,dl 010051 aa 6 00164 3521 20 epp2 pr6|116,* key.PSI 010052 aa 2 00000 5035 17 abd pr2|0,7 010053 aa 6 00264 2521 00 spri2 pr6|180 010054 aa 000015 7260 07 lxl6 13,dl 010055 aa 6 00164 3521 20 epp2 pr6|116,* key.LC 010056 aa 2 00000 5035 16 abd pr2|0,6 010057 aa 6 00266 2521 00 spri2 pr6|182 010060 aa 770563 3520 04 epp2 -3725,ic 000643 = 464000000000 010061 aa 6 00270 2521 00 spri2 pr6|184 010062 aa 770517 3520 04 epp2 -3761,ic 000601 = 524000000070 010063 aa 6 00272 2521 00 spri2 pr6|186 010064 aa 770466 3520 04 epp2 -3786,ic 000552 = 606000000002 010065 aa 6 00274 2521 00 spri2 pr6|188 010066 aa 770463 3520 04 epp2 -3789,ic 000551 = 606000000003 010067 aa 6 00276 2521 00 spri2 pr6|190 010070 aa 6 00256 6211 00 eax1 pr6|174 010071 aa 020000 4310 07 fld 8192,dl 010072 aa 6 00044 3701 20 epp4 pr6|36,* 010073 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 010074 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 482 hold_idx = 0; 010075 aa 6 00131 4501 00 stz pr6|89 hold_idx STATEMENT 1 ON LINE 483 goto next_loc; 010076 aa 776431 7100 04 tra -743,ic 006527 STATEMENT 1 ON LINE 484 end; STATEMENT 1 ON LINE 485 call ioa_$ioa_switch (sw, "(PSI-^d, LC-^d) Termination Status (^1.3b^1.3b/^1.3b^1.3b).", key.PSI, key.LC, substr (DH (1), 2, 3), substr (DH (1), 6, 3), substr (DH (1), 10, 3), substr (DH (1), 14, 3)); 010077 aa 000 100 100 404 mlr (ic),(pr),fill(000) 010100 aa 771422 00 0074 desc9a -3310,60 001521 = 050120123111 010101 aa 6 00256 00 0074 desc9a pr6|174,60 010102 aa 6 00126 2351 00 lda pr6|86 DH 010103 aa 000001 7350 00 als 1 010104 aa 0 00006 3771 00 anaq pr0|6 = 700000000000 000000000000 010105 aa 6 00345 7551 00 sta pr6|229 010106 aa 6 00126 2351 00 lda pr6|86 DH 010107 aa 000005 7350 00 als 5 010110 aa 0 00006 3771 00 anaq pr0|6 = 700000000000 000000000000 010111 aa 6 00344 7551 00 sta pr6|228 010112 aa 6 00126 2351 00 lda pr6|86 DH 010113 aa 000011 7350 00 als 9 010114 aa 0 00006 3771 00 anaq pr0|6 = 700000000000 000000000000 010115 aa 6 00305 7551 00 sta pr6|197 010116 aa 6 00126 2351 00 lda pr6|86 DH 010117 aa 000015 7350 00 als 13 010120 aa 0 00006 3771 00 anaq pr0|6 = 700000000000 000000000000 010121 aa 6 00460 7551 00 sta pr6|304 010122 aa 7 00004 3521 20 epp2 pr7|4,* sw 010123 aa 6 00350 2521 00 spri2 pr6|232 010124 aa 6 00256 3521 00 epp2 pr6|174 010125 aa 6 00352 2521 00 spri2 pr6|234 010126 aa 000012 7270 07 lxl7 10,dl 010127 aa 6 00164 3521 20 epp2 pr6|116,* key.PSI 010130 aa 2 00000 5035 17 abd pr2|0,7 010131 aa 6 00354 2521 00 spri2 pr6|236 010132 aa 000015 7260 07 lxl6 13,dl 010133 aa 6 00164 3521 20 epp2 pr6|116,* key.LC 010134 aa 2 00000 5035 16 abd pr2|0,6 010135 aa 6 00356 2521 00 spri2 pr6|238 010136 aa 6 00345 3521 00 epp2 pr6|229 010137 aa 6 00360 2521 00 spri2 pr6|240 010140 aa 6 00344 3521 00 epp2 pr6|228 010141 aa 6 00362 2521 00 spri2 pr6|242 010142 aa 6 00305 3521 00 epp2 pr6|197 010143 aa 6 00364 2521 00 spri2 pr6|244 010144 aa 6 00460 3521 00 epp2 pr6|304 010145 aa 6 00366 2521 00 spri2 pr6|246 010146 aa 770475 3520 04 epp2 -3779,ic 000643 = 464000000000 010147 aa 6 00370 2521 00 spri2 pr6|248 010150 aa 770461 3520 04 epp2 -3791,ic 000631 = 524000000073 010151 aa 6 00372 2521 00 spri2 pr6|250 010152 aa 770400 3520 04 epp2 -3840,ic 000552 = 606000000002 010153 aa 6 00374 2521 00 spri2 pr6|252 010154 aa 770375 3520 04 epp2 -3843,ic 000551 = 606000000003 010155 aa 6 00376 2521 00 spri2 pr6|254 010156 aa 770442 3520 04 epp2 -3806,ic 000620 = 514000000003 010157 aa 6 00400 2521 00 spri2 pr6|256 010160 aa 6 00402 2521 00 spri2 pr6|258 010161 aa 6 00404 2521 00 spri2 pr6|260 010162 aa 6 00406 2521 00 spri2 pr6|262 010163 aa 6 00346 6211 00 eax1 pr6|230 010164 aa 040000 4310 07 fld 16384,dl 010165 aa 6 00044 3701 20 epp4 pr6|36,* 010166 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 010167 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 487 hold_idx = 0; 010170 aa 6 00131 4501 00 stz pr6|89 hold_idx STATEMENT 1 ON LINE 488 goto next_loc; 010171 aa 776336 7100 04 tra -802,ic 006527 STATEMENT 1 ON LINE 490 Ftype (7): if key.mbz ^= "0"b | /* Check KEY */ key.mbz1 ^= "0"b then goto stow_away; 010172 aa 000 000 066 500 cmpb (pr),(),fill(0) 010173 aa 2 00000 10 0002 descb pr2|0(8),2 key.mbz 010174 aa 000000 00 0000 descb 0,0 010175 aa 776304 6010 04 tnz -828,ic 006501 010176 aa 000 000 066 500 cmpb (pr),(),fill(0) 010177 aa 2 00000 23 0001 descb pr2|0(12),1 key.mbz1 010200 aa 000000 00 0000 descb 0,0 010201 aa 776300 6010 04 tnz -832,ic 006501 STATEMENT 1 ON LINE 494 if hold_idx ^= 0 then goto stow_away; 010202 aa 6 00131 2361 00 ldq pr6|89 hold_idx 010203 aa 776276 6010 04 tnz -834,ic 006501 STATEMENT 1 ON LINE 495 call ioa_$ioa_switch (sw, "(PSI-^d, LC-^d) Device Released.", key.PSI, key.LC); 010204 aa 000 100 100 404 mlr (ic),(pr),fill(000) 010205 aa 770550 00 0040 desc9a -3736,32 000754 = 050120123111 010206 aa 6 00172 00 0040 desc9a pr6|122,32 010207 aa 7 00004 3521 20 epp2 pr7|4,* sw 010210 aa 6 00260 2521 00 spri2 pr6|176 010211 aa 6 00172 3521 00 epp2 pr6|122 010212 aa 6 00262 2521 00 spri2 pr6|178 010213 aa 000012 7270 07 lxl7 10,dl 010214 aa 6 00164 3521 20 epp2 pr6|116,* key.PSI 010215 aa 2 00000 5035 17 abd pr2|0,7 010216 aa 6 00264 2521 00 spri2 pr6|180 010217 aa 000015 7260 07 lxl6 13,dl 010220 aa 6 00164 3521 20 epp2 pr6|116,* key.LC 010221 aa 2 00000 5035 16 abd pr2|0,6 010222 aa 6 00266 2521 00 spri2 pr6|182 010223 aa 770420 3520 04 epp2 -3824,ic 000643 = 464000000000 010224 aa 6 00270 2521 00 spri2 pr6|184 010225 aa 770411 3520 04 epp2 -3831,ic 000636 = 524000000040 010226 aa 6 00272 2521 00 spri2 pr6|186 010227 aa 770323 3520 04 epp2 -3885,ic 000552 = 606000000002 010230 aa 6 00274 2521 00 spri2 pr6|188 010231 aa 770320 3520 04 epp2 -3888,ic 000551 = 606000000003 010232 aa 6 00276 2521 00 spri2 pr6|190 010233 aa 6 00256 6211 00 eax1 pr6|174 010234 aa 020000 4310 07 fld 8192,dl 010235 aa 6 00044 3701 20 epp4 pr6|36,* 010236 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 010237 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 496 goto next_loc; 010240 aa 776267 7100 04 tra -841,ic 006527 STATEMENT 1 ON LINE 498 Ftype (8): Ftype (9): goto stow_away; 010241 aa 776240 7100 04 tra -864,ic 006501 STATEMENT 1 ON LINE 502 Ftype (10): if key.mbz ^= "0"b | key.mbz1 ^= "0"b | /* Check KEY */ key.LC ^= 0 then goto stow_away; 010242 aa 000 000 066 500 cmpb (pr),(),fill(0) 010243 aa 2 00000 10 0002 descb pr2|0(8),2 key.mbz 010244 aa 000000 00 0000 descb 0,0 010245 aa 776234 6010 04 tnz -868,ic 006501 010246 aa 000 000 066 500 cmpb (pr),(),fill(0) 010247 aa 2 00000 23 0001 descb pr2|0(12),1 key.mbz1 010250 aa 000000 00 0000 descb 0,0 010251 aa 776230 6010 04 tnz -872,ic 006501 010252 aa 003 100 060 500 csl (pr),(pr),fill(0),bool(move) 010253 aa 2 00000 24 0003 descb pr2|0(13),3 key.LC 010254 aa 6 00056 00 0044 descb pr6|46,36 010255 aa 6 00056 2351 00 lda pr6|46 010256 aa 000105 7730 00 lrl 69 010257 aa 776222 6010 04 tnz -878,ic 006501 STATEMENT 1 ON LINE 506 if hold_idx < 1 then do; 010260 aa 6 00131 2361 00 ldq pr6|89 hold_idx 010261 aa 000001 1160 07 cmpq 1,dl 010262 aa 000031 6050 04 tpl 25,ic 010313 STATEMENT 1 ON LINE 507 call ioa_$ioa_switch (sw, "^4x(PSI-^d)^3xAbort Status. [DATA WORD MISSING!]", key.PSI); 010263 aa 000 100 100 404 mlr (ic),(pr),fill(000) 010264 aa 770736 00 0060 desc9a -3618,48 001221 = 136064170050 010265 aa 6 00204 00 0060 desc9a pr6|132,48 010266 aa 7 00004 3521 20 epp2 pr7|4,* sw 010267 aa 6 00260 2521 00 spri2 pr6|176 010270 aa 6 00204 3521 00 epp2 pr6|132 010271 aa 6 00262 2521 00 spri2 pr6|178 010272 aa 000012 7270 07 lxl7 10,dl 010273 aa 6 00164 3521 20 epp2 pr6|116,* key.PSI 010274 aa 2 00000 5035 17 abd pr2|0,7 010275 aa 6 00264 2521 00 spri2 pr6|180 010276 aa 770345 3520 04 epp2 -3867,ic 000643 = 464000000000 010277 aa 6 00266 2521 00 spri2 pr6|182 010300 aa 770242 3520 04 epp2 -3934,ic 000542 = 524000000060 010301 aa 6 00270 2521 00 spri2 pr6|184 010302 aa 770250 3520 04 epp2 -3928,ic 000552 = 606000000002 010303 aa 6 00272 2521 00 spri2 pr6|186 010304 aa 6 00256 6211 00 eax1 pr6|174 010305 aa 014000 4310 07 fld 6144,dl 010306 aa 6 00044 3701 20 epp4 pr6|36,* 010307 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 010310 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 508 hold_idx = 0; 010311 aa 6 00131 4501 00 stz pr6|89 hold_idx STATEMENT 1 ON LINE 509 goto next_loc; 010312 aa 776215 7100 04 tra -883,ic 006527 STATEMENT 1 ON LINE 510 end; STATEMENT 1 ON LINE 511 call ioa_$ioa_switch (sw, "^4x(PSI-^d)^3xAbort Status (^[Channel/IOM status= ^1.3b/^1.3b^4s^;^2sMaj/Sub status= ^1.3b^1.3b/^1.3b^1.3b^])." , key.PSI, (substr (DH (1), 1, 8) = "0"b), substr (DH (1), 10, 3), substr (DH (1), 14, 3), substr (DH (1), 2, 3), substr (DH (1), 6, 3), substr (DH (1), 10, 3), substr (DH (1), 14, 3)); 010313 aa 000 100 100 404 mlr (ic),(pr),fill(000) 010314 aa 772135 00 0160 desc9a -2979,112 002450 = 136064170050 010315 aa 6 00306 00 0160 desc9a pr6|198,112 010316 aa 6 00126 2351 00 lda pr6|86 DH 010317 aa 776000 3150 03 cana 261120,du 010320 aa 0 00512 7001 00 tsx0 pr0|330 r_e_as 010321 aa 6 00460 7551 00 sta pr6|304 010322 aa 6 00126 2351 00 lda pr6|86 DH 010323 aa 000011 7350 00 als 9 010324 aa 0 00006 3771 00 anaq pr0|6 = 700000000000 000000000000 010325 aa 6 00305 7551 00 sta pr6|197 010326 aa 6 00345 7551 00 sta pr6|229 DH 010327 aa 6 00126 2351 00 lda pr6|86 DH 010330 aa 000015 7350 00 als 13 010331 aa 0 00006 3771 00 anaq pr0|6 = 700000000000 000000000000 010332 aa 6 00344 7551 00 sta pr6|228 010333 aa 6 00462 7551 00 sta pr6|306 DH 010334 aa 6 00126 2351 00 lda pr6|86 DH 010335 aa 000001 7350 00 als 1 010336 aa 0 00006 3771 00 anaq pr0|6 = 700000000000 000000000000 010337 aa 6 00223 7551 00 sta pr6|147 010340 aa 6 00126 2351 00 lda pr6|86 DH 010341 aa 000005 7350 00 als 5 010342 aa 0 00006 3771 00 anaq pr0|6 = 700000000000 000000000000 010343 aa 6 00222 7551 00 sta pr6|146 010344 aa 6 00345 2351 00 lda pr6|229 DH 010345 aa 6 00463 7551 00 sta pr6|307 010346 aa 6 00462 2351 00 lda pr6|306 DH 010347 aa 6 00345 7551 00 sta pr6|229 010350 aa 7 00004 3521 20 epp2 pr7|4,* sw 010351 aa 6 00466 2521 00 spri2 pr6|310 010352 aa 6 00306 3521 00 epp2 pr6|198 010353 aa 6 00470 2521 00 spri2 pr6|312 010354 aa 000012 7270 07 lxl7 10,dl 010355 aa 6 00164 3521 20 epp2 pr6|116,* key.PSI 010356 aa 2 00000 5035 17 abd pr2|0,7 010357 aa 6 00472 2521 00 spri2 pr6|314 010360 aa 6 00460 3521 00 epp2 pr6|304 010361 aa 6 00474 2521 00 spri2 pr6|316 010362 aa 6 00305 3521 00 epp2 pr6|197 010363 aa 6 00476 2521 00 spri2 pr6|318 010364 aa 6 00344 3521 00 epp2 pr6|228 010365 aa 6 00500 2521 00 spri2 pr6|320 010366 aa 6 00223 3521 00 epp2 pr6|147 010367 aa 6 00502 2521 00 spri2 pr6|322 010370 aa 6 00222 3521 00 epp2 pr6|146 010371 aa 6 00504 2521 00 spri2 pr6|324 010372 aa 6 00463 3521 00 epp2 pr6|307 010373 aa 6 00506 2521 00 spri2 pr6|326 010374 aa 6 00345 3521 00 epp2 pr6|229 010375 aa 6 00510 2521 00 spri2 pr6|328 010376 aa 770245 3520 04 epp2 -3931,ic 000643 = 464000000000 010377 aa 6 00512 2521 00 spri2 pr6|330 010400 aa 770141 3520 04 epp2 -3999,ic 000541 = 524000000156 010401 aa 6 00514 2521 00 spri2 pr6|332 010402 aa 770150 3520 04 epp2 -3992,ic 000552 = 606000000002 010403 aa 6 00516 2521 00 spri2 pr6|334 010404 aa 770231 3520 04 epp2 -3943,ic 000635 = 514000000001 010405 aa 6 00520 2521 00 spri2 pr6|336 010406 aa 770212 3520 04 epp2 -3958,ic 000620 = 514000000003 010407 aa 6 00522 2521 00 spri2 pr6|338 010410 aa 6 00524 2521 00 spri2 pr6|340 010411 aa 6 00526 2521 00 spri2 pr6|342 010412 aa 6 00530 2521 00 spri2 pr6|344 010413 aa 6 00532 2521 00 spri2 pr6|346 010414 aa 6 00534 2521 00 spri2 pr6|348 010415 aa 6 00464 6211 00 eax1 pr6|308 010416 aa 050000 4310 07 fld 20480,dl 010417 aa 6 00044 3701 20 epp4 pr6|36,* 010420 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 010421 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 515 hold_idx = 0; 010422 aa 6 00131 4501 00 stz pr6|89 hold_idx STATEMENT 1 ON LINE 516 goto next_loc; 010423 aa 776104 7100 04 tra -956,ic 006527 STATEMENT 1 ON LINE 518 Ftype (11): if key.mbz ^= "0"b | key.mbz1 ^= "0"b | /* Check KEY */ key.LC ^= 0 then goto stow_away; 010424 aa 000 000 066 500 cmpb (pr),(),fill(0) 010425 aa 2 00000 10 0002 descb pr2|0(8),2 key.mbz 010426 aa 000000 00 0000 descb 0,0 010427 aa 776052 6010 04 tnz -982,ic 006501 010430 aa 000 000 066 500 cmpb (pr),(),fill(0) 010431 aa 2 00000 23 0001 descb pr2|0(12),1 key.mbz1 010432 aa 000000 00 0000 descb 0,0 010433 aa 776046 6010 04 tnz -986,ic 006501 010434 aa 003 100 060 500 csl (pr),(pr),fill(0),bool(move) 010435 aa 2 00000 24 0003 descb pr2|0(13),3 key.LC 010436 aa 6 00056 00 0044 descb pr6|46,36 010437 aa 6 00056 2351 00 lda pr6|46 010440 aa 000105 7730 00 lrl 69 010441 aa 776040 6010 04 tnz -992,ic 006501 STATEMENT 1 ON LINE 522 if hold_idx < 1 then do; 010442 aa 6 00131 2361 00 ldq pr6|89 hold_idx 010443 aa 000001 1160 07 cmpq 1,dl 010444 aa 000031 6050 04 tpl 25,ic 010475 STATEMENT 1 ON LINE 523 call ioa_$ioa_switch (sw, "^4x(PSI-^d)^3xIIW Processing Initiated. [DATA WORD MISSING!]", key.PSI); 010445 aa 000 100 100 404 mlr (ic),(pr),fill(000) 010446 aa 771035 00 0074 desc9a -3555,60 001502 = 136064170050 010447 aa 6 00256 00 0074 desc9a pr6|174,60 010450 aa 7 00004 3521 20 epp2 pr7|4,* sw 010451 aa 6 00206 2521 00 spri2 pr6|134 010452 aa 6 00256 3521 00 epp2 pr6|174 010453 aa 6 00210 2521 00 spri2 pr6|136 010454 aa 000012 7270 07 lxl7 10,dl 010455 aa 6 00164 3521 20 epp2 pr6|116,* key.PSI 010456 aa 2 00000 5035 17 abd pr2|0,7 010457 aa 6 00212 2521 00 spri2 pr6|138 010460 aa 770163 3520 04 epp2 -3981,ic 000643 = 464000000000 010461 aa 6 00214 2521 00 spri2 pr6|140 010462 aa 770063 3520 04 epp2 -4045,ic 000545 = 524000000074 010463 aa 6 00216 2521 00 spri2 pr6|142 010464 aa 770066 3520 04 epp2 -4042,ic 000552 = 606000000002 010465 aa 6 00220 2521 00 spri2 pr6|144 010466 aa 6 00204 6211 00 eax1 pr6|132 010467 aa 014000 4310 07 fld 6144,dl 010470 aa 6 00044 3701 20 epp4 pr6|36,* 010471 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 010472 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 524 hold_idx = 0; 010473 aa 6 00131 4501 00 stz pr6|89 hold_idx STATEMENT 1 ON LINE 525 goto next_loc; 010474 aa 776033 7100 04 tra -997,ic 006527 STATEMENT 1 ON LINE 526 end; STATEMENT 1 ON LINE 527 call ioa_$ioa_switch (sw, "^4x(PSI-^d)^3xIIW Processing Initiated. Fault Byte= ^2.4b, Device= ^2.3b", key.PSI, substr (DH (1), 1, 8), substr (DH (1), 11, 6)); 010475 aa 000 100 100 404 mlr (ic),(pr),fill(000) 010476 aa 771466 00 0110 desc9a -3274,72 002163 = 136064170050 010477 aa 6 00256 00 0110 desc9a pr6|174,72 010500 aa 6 00126 2351 00 lda pr6|86 DH 010501 aa 0 00020 3771 00 anaq pr0|16 = 776000000000 000000000000 010502 aa 6 00345 7551 00 sta pr6|229 010503 aa 6 00126 2351 00 lda pr6|86 DH 010504 aa 000012 7350 00 als 10 010505 aa 0 00014 3771 00 anaq pr0|12 = 770000000000 000000000000 010506 aa 6 00463 7551 00 sta pr6|307 010507 aa 7 00004 3521 20 epp2 pr7|4,* sw 010510 aa 6 00226 2521 00 spri2 pr6|150 010511 aa 6 00256 3521 00 epp2 pr6|174 010512 aa 6 00230 2521 00 spri2 pr6|152 010513 aa 000012 7270 07 lxl7 10,dl 010514 aa 6 00164 3521 20 epp2 pr6|116,* key.PSI 010515 aa 2 00000 5035 17 abd pr2|0,7 010516 aa 6 00232 2521 00 spri2 pr6|154 010517 aa 6 00345 3521 00 epp2 pr6|229 010520 aa 6 00234 2521 00 spri2 pr6|156 010521 aa 6 00463 3521 00 epp2 pr6|307 010522 aa 6 00236 2521 00 spri2 pr6|158 010523 aa 770120 3520 04 epp2 -4016,ic 000643 = 464000000000 010524 aa 6 00240 2521 00 spri2 pr6|160 010525 aa 770013 3520 04 epp2 -4085,ic 000540 = 524000000110 010526 aa 6 00242 2521 00 spri2 pr6|162 010527 aa 770023 3520 04 epp2 -4077,ic 000552 = 606000000002 010530 aa 6 00244 2521 00 spri2 pr6|164 010531 aa 770061 3520 04 epp2 -4047,ic 000612 = 514000000010 010532 aa 6 00246 2521 00 spri2 pr6|166 010533 aa 770051 3520 04 epp2 -4055,ic 000604 = 514000000006 010534 aa 6 00250 2521 00 spri2 pr6|168 010535 aa 6 00224 6211 00 eax1 pr6|148 010536 aa 024000 4310 07 fld 10240,dl 010537 aa 6 00044 3701 20 epp4 pr6|36,* 010540 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 010541 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 529 hold_idx = 0; 010542 aa 6 00131 4501 00 stz pr6|89 hold_idx STATEMENT 1 ON LINE 530 goto next_loc; 010543 aa 775764 7100 04 tra -1036,ic 006527 STATEMENT 1 ON LINE 532 Ftype (12): if key.mbz ^= "0"b | key.mbz1 ^= "0"b | /* Check KEY */ key.LC ^= 0 then goto stow_away; 010544 aa 000 000 066 500 cmpb (pr),(),fill(0) 010545 aa 2 00000 10 0002 descb pr2|0(8),2 key.mbz 010546 aa 000000 00 0000 descb 0,0 010547 aa 775732 6010 04 tnz -1062,ic 006501 010550 aa 000 000 066 500 cmpb (pr),(),fill(0) 010551 aa 2 00000 23 0001 descb pr2|0(12),1 key.mbz1 010552 aa 000000 00 0000 descb 0,0 010553 aa 775726 6010 04 tnz -1066,ic 006501 010554 aa 003 100 060 500 csl (pr),(pr),fill(0),bool(move) 010555 aa 2 00000 24 0003 descb pr2|0(13),3 key.LC 010556 aa 6 00056 00 0044 descb pr6|46,36 010557 aa 6 00056 2351 00 lda pr6|46 010560 aa 000105 7730 00 lrl 69 010561 aa 775720 6010 04 tnz -1072,ic 006501 STATEMENT 1 ON LINE 536 if hold_idx ^= 0 then goto stow_away; 010562 aa 6 00131 2361 00 ldq pr6|89 hold_idx 010563 aa 775716 6010 04 tnz -1074,ic 006501 STATEMENT 1 ON LINE 537 call ioa_$ioa_switch (sw, "^4x(PSI-^d)^3xDrop of OPerational In (OPI).", key.PSI); 010564 aa 000 100 100 404 mlr (ic),(pr),fill(000) 010565 aa 770361 00 0054 desc9a -3855,44 001145 = 136064170050 010566 aa 6 00204 00 0054 desc9a pr6|132,44 010567 aa 7 00004 3521 20 epp2 pr7|4,* sw 010570 aa 6 00260 2521 00 spri2 pr6|176 010571 aa 6 00204 3521 00 epp2 pr6|132 010572 aa 6 00262 2521 00 spri2 pr6|178 010573 aa 000012 7270 07 lxl7 10,dl 010574 aa 6 00164 3521 20 epp2 pr6|116,* key.PSI 010575 aa 2 00000 5035 17 abd pr2|0,7 010576 aa 6 00264 2521 00 spri2 pr6|180 010577 aa 770044 3520 04 epp2 -4060,ic 000643 = 464000000000 010600 aa 6 00266 2521 00 spri2 pr6|182 010601 aa 770007 3520 04 epp2 -4089,ic 000610 = 524000000053 010602 aa 6 00270 2521 00 spri2 pr6|184 010603 aa 767747 3520 04 epp2 -4121,ic 000552 = 606000000002 010604 aa 6 00272 2521 00 spri2 pr6|186 010605 aa 6 00256 6211 00 eax1 pr6|174 010606 aa 014000 4310 07 fld 6144,dl 010607 aa 6 00044 3701 20 epp4 pr6|36,* 010610 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 010611 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 538 goto next_loc; 010612 aa 775715 7100 04 tra -1075,ic 006527 STATEMENT 1 ON LINE 540 Ftype (13): if key.mbz ^= "0"b | key.mbz1 ^= "0"b | /* Check KEY */ key.LC ^= 0 then goto stow_away; 010613 aa 000 000 066 500 cmpb (pr),(),fill(0) 010614 aa 2 00000 10 0002 descb pr2|0(8),2 key.mbz 010615 aa 000000 00 0000 descb 0,0 010616 aa 775663 6010 04 tnz -1101,ic 006501 010617 aa 000 000 066 500 cmpb (pr),(),fill(0) 010620 aa 2 00000 23 0001 descb pr2|0(12),1 key.mbz1 010621 aa 000000 00 0000 descb 0,0 010622 aa 775657 6010 04 tnz -1105,ic 006501 010623 aa 003 100 060 500 csl (pr),(pr),fill(0),bool(move) 010624 aa 2 00000 24 0003 descb pr2|0(13),3 key.LC 010625 aa 6 00056 00 0044 descb pr6|46,36 010626 aa 6 00056 2351 00 lda pr6|46 010627 aa 000105 7730 00 lrl 69 010630 aa 775651 6010 04 tnz -1111,ic 006501 STATEMENT 1 ON LINE 544 if hold_idx < 1 then do; 010631 aa 6 00131 2361 00 ldq pr6|89 hold_idx 010632 aa 000001 1160 07 cmpq 1,dl 010633 aa 000031 6050 04 tpl 25,ic 010664 STATEMENT 1 ON LINE 545 call ioa_$ioa_switch (sw, "^4x(PSI-^d)^3xSpecial Interrupt. [DATA WORD MISSING!]", key.PSI); 010634 aa 000 100 100 404 mlr (ic),(pr),fill(000) 010635 aa 770465 00 0070 desc9a -3787,56 001321 = 136064170050 010636 aa 6 00204 00 0070 desc9a pr6|132,56 010637 aa 7 00004 3521 20 epp2 pr7|4,* sw 010640 aa 6 00260 2521 00 spri2 pr6|176 010641 aa 6 00204 3521 00 epp2 pr6|132 010642 aa 6 00262 2521 00 spri2 pr6|178 010643 aa 000012 7270 07 lxl7 10,dl 010644 aa 6 00164 3521 20 epp2 pr6|116,* key.PSI 010645 aa 2 00000 5035 17 abd pr2|0,7 010646 aa 6 00264 2521 00 spri2 pr6|180 010647 aa 767774 3520 04 epp2 -4100,ic 000643 = 464000000000 010650 aa 6 00266 2521 00 spri2 pr6|182 010651 aa 767666 3520 04 epp2 -4170,ic 000537 = 524000000065 010652 aa 6 00270 2521 00 spri2 pr6|184 010653 aa 767677 3520 04 epp2 -4161,ic 000552 = 606000000002 010654 aa 6 00272 2521 00 spri2 pr6|186 010655 aa 6 00256 6211 00 eax1 pr6|174 010656 aa 014000 4310 07 fld 6144,dl 010657 aa 6 00044 3701 20 epp4 pr6|36,* 010660 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 010661 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 546 hold_idx = 0; 010662 aa 6 00131 4501 00 stz pr6|89 hold_idx STATEMENT 1 ON LINE 547 goto next_loc; 010663 aa 775644 7100 04 tra -1116,ic 006527 STATEMENT 1 ON LINE 548 end; STATEMENT 1 ON LINE 549 call ioa_$ioa_switch (sw, "^4x(PSI-^d)^3xSpecial Interrupt. Special Type= ^2.4b, Device= ^2.3b", key.PSI, substr (DH (1), 1, 8), substr (DH (1), 11, 6)); 010664 aa 000 100 100 404 mlr (ic),(pr),fill(000) 010665 aa 771130 00 0104 desc9a -3496,68 002014 = 136064170050 010666 aa 6 00256 00 0104 desc9a pr6|174,68 010667 aa 6 00126 2351 00 lda pr6|86 DH 010670 aa 0 00020 3771 00 anaq pr0|16 = 776000000000 000000000000 010671 aa 6 00463 7551 00 sta pr6|307 010672 aa 6 00126 2351 00 lda pr6|86 DH 010673 aa 000012 7350 00 als 10 010674 aa 0 00014 3771 00 anaq pr0|12 = 770000000000 000000000000 010675 aa 6 00345 7551 00 sta pr6|229 010676 aa 7 00004 3521 20 epp2 pr7|4,* sw 010677 aa 6 00226 2521 00 spri2 pr6|150 010700 aa 6 00256 3521 00 epp2 pr6|174 010701 aa 6 00230 2521 00 spri2 pr6|152 010702 aa 000012 7270 07 lxl7 10,dl 010703 aa 6 00164 3521 20 epp2 pr6|116,* key.PSI 010704 aa 2 00000 5035 17 abd pr2|0,7 010705 aa 6 00232 2521 00 spri2 pr6|154 010706 aa 6 00463 3521 00 epp2 pr6|307 010707 aa 6 00234 2521 00 spri2 pr6|156 010710 aa 6 00345 3521 00 epp2 pr6|229 010711 aa 6 00236 2521 00 spri2 pr6|158 010712 aa 767731 3520 04 epp2 -4135,ic 000643 = 464000000000 010713 aa 6 00240 2521 00 spri2 pr6|160 010714 aa 767677 3520 04 epp2 -4161,ic 000613 = 524000000103 010715 aa 6 00242 2521 00 spri2 pr6|162 010716 aa 767634 3520 04 epp2 -4196,ic 000552 = 606000000002 010717 aa 6 00244 2521 00 spri2 pr6|164 010720 aa 767672 3520 04 epp2 -4166,ic 000612 = 514000000010 010721 aa 6 00246 2521 00 spri2 pr6|166 010722 aa 767662 3520 04 epp2 -4174,ic 000604 = 514000000006 010723 aa 6 00250 2521 00 spri2 pr6|168 010724 aa 6 00224 6211 00 eax1 pr6|148 010725 aa 024000 4310 07 fld 10240,dl 010726 aa 6 00044 3701 20 epp4 pr6|36,* 010727 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 010730 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 551 spec_mess = ""; 010731 aa 6 00133 4501 00 stz pr6|91 spec_mess STATEMENT 1 ON LINE 552 if substr (DH (1), 1, 1) then spec_mess = spec_mess || "Alt Channel in Control, "; 010732 aa 6 00126 2351 00 lda pr6|86 DH 010733 aa 400000 3150 03 cana 131072,du 010734 aa 000013 6000 04 tze 11,ic 010747 010735 aa 000120 2360 07 ldq 80,dl 010736 aa 6 00133 1761 00 sbq pr6|91 spec_mess 010737 aa 000030 1160 07 cmpq 24,dl 010740 aa 000002 6040 04 tmi 2,ic 010742 010741 aa 000030 2360 07 ldq 24,dl 010742 aa 6 00133 7271 00 lxl7 pr6|91 spec_mess 010743 aa 6 00133 0561 00 asq pr6|91 spec_mess 010744 aa 040 157 100 444 mlr (rl,ic),(pr,rl,x7),fill(040) 010745 aa 767732 00 0006 desc9a -4134,ql 000676 = 101154164040 010746 aa 6 00134 00 0006 desc9a pr6|92,ql spec_mess STATEMENT 1 ON LINE 553 if substr (DH (1), 8, 1) then spec_mess = spec_mess || "Disc Powered ON/Suspend, "; 010747 aa 6 00126 2351 00 lda pr6|86 DH 010750 aa 002000 3150 03 cana 1024,du 010751 aa 000013 6000 04 tze 11,ic 010764 010752 aa 000120 2360 07 ldq 80,dl 010753 aa 6 00133 1761 00 sbq pr6|91 spec_mess 010754 aa 000031 1160 07 cmpq 25,dl 010755 aa 000002 6040 04 tmi 2,ic 010757 010756 aa 000031 2360 07 ldq 25,dl 010757 aa 6 00133 7271 00 lxl7 pr6|91 spec_mess 010760 aa 6 00133 0561 00 asq pr6|91 spec_mess 010761 aa 040 157 100 444 mlr (rl,ic),(pr,rl,x7),fill(040) 010762 aa 767737 00 0006 desc9a -4129,ql 000720 = 104151163143 010763 aa 6 00134 00 0006 desc9a pr6|92,ql spec_mess STATEMENT 1 ON LINE 554 if substr (DH (1), 7, 1) then spec_mess = spec_mess || "Device Released, "; 010764 aa 6 00126 2351 00 lda pr6|86 DH 010765 aa 004000 3150 03 cana 2048,du 010766 aa 000013 6000 04 tze 11,ic 011001 010767 aa 000120 2360 07 ldq 80,dl 010770 aa 6 00133 1761 00 sbq pr6|91 spec_mess 010771 aa 000021 1160 07 cmpq 17,dl 010772 aa 000002 6040 04 tmi 2,ic 010774 010773 aa 000021 2360 07 ldq 17,dl 010774 aa 6 00133 7271 00 lxl7 pr6|91 spec_mess 010775 aa 6 00133 0561 00 asq pr6|91 spec_mess 010776 aa 040 157 100 444 mlr (rl,ic),(pr,rl,x7),fill(040) 010777 aa 767661 00 0006 desc9a -4175,ql 000657 = 104145166151 011000 aa 6 00134 00 0006 desc9a pr6|92,ql spec_mess STATEMENT 1 ON LINE 555 if substr (DH (1), 6, 1) then spec_mess = spec_mess || "Disc Powered OFF, "; 011001 aa 6 00126 2351 00 lda pr6|86 DH 011002 aa 010000 3150 03 cana 4096,du 011003 aa 000013 6000 04 tze 11,ic 011016 011004 aa 000120 2360 07 ldq 80,dl 011005 aa 6 00133 1761 00 sbq pr6|91 spec_mess 011006 aa 000022 1160 07 cmpq 18,dl 011007 aa 000002 6040 04 tmi 2,ic 011011 011010 aa 000022 2360 07 ldq 18,dl 011011 aa 6 00133 7271 00 lxl7 pr6|91 spec_mess 011012 aa 6 00133 0561 00 asq pr6|91 spec_mess 011013 aa 040 157 100 444 mlr (rl,ic),(pr,rl,x7),fill(040) 011014 aa 767637 00 0006 desc9a -4193,ql 000652 = 104151163143 011015 aa 6 00134 00 0006 desc9a pr6|92,ql spec_mess STATEMENT 1 ON LINE 556 if spec_mess ^= "" then call ioa_$ioa_switch (sw, "^33x(^a)", substr (spec_mess, 1, length (spec_mess) - 2)); 011016 aa 6 00133 7271 00 lxl7 pr6|91 spec_mess 011017 aa 040 004 106 540 cmpc (pr,rl),(ic),fill(040) 011020 aa 6 00134 00 0017 desc9a pr6|92,x7 spec_mess 011021 aa 001143 00 0000 desc9a 611,0 012162 = 777770000000 011022 aa 000036 6000 04 tze 30,ic 011060 011023 aa 6 00133 2361 00 ldq pr6|91 spec_mess 011024 aa 000002 1760 07 sbq 2,dl 011025 aa 6 00463 7561 00 stq pr6|307 011026 aa 524000 2760 03 orq 174080,du 011027 aa 6 00345 7561 00 stq pr6|229 011030 aa 767614 2370 04 ldaq -4212,ic 000644 = 136063063170 050136141051 011031 aa 6 00546 7571 00 staq pr6|358 011032 aa 6 00463 2361 00 ldq pr6|307 011033 aa 0 00551 7001 00 tsx0 pr0|361 alloc_cs 011034 aa 6 00212 2521 00 spri2 pr6|138 011035 aa 040 140 100 540 mlr (pr,rl),(pr,rl),fill(040) 011036 aa 6 00134 00 0006 desc9a pr6|92,ql spec_mess 011037 aa 2 00000 00 0006 desc9a pr2|0,ql 011040 aa 6 00032 3735 20 epp7 pr6|26,* 011041 aa 7 00004 3521 20 epp2 pr7|4,* sw 011042 aa 6 00206 2521 00 spri2 pr6|134 011043 aa 6 00546 3521 00 epp2 pr6|358 011044 aa 6 00210 2521 00 spri2 pr6|136 011045 aa 767576 3520 04 epp2 -4226,ic 000643 = 464000000000 011046 aa 6 00214 2521 00 spri2 pr6|140 011047 aa 767467 3520 04 epp2 -4297,ic 000536 = 524000000010 011050 aa 6 00216 2521 00 spri2 pr6|142 011051 aa 6 00345 3521 00 epp2 pr6|229 011052 aa 6 00220 2521 00 spri2 pr6|144 011053 aa 6 00204 6211 00 eax1 pr6|132 011054 aa 014000 4310 07 fld 6144,dl 011055 aa 6 00044 3701 20 epp4 pr6|36,* 011056 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 011057 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 557 hold_idx = 0; 011060 aa 0 01014 7001 00 tsx0 pr0|524 shorten_stack 011061 aa 6 00131 4501 00 stz pr6|89 hold_idx STATEMENT 1 ON LINE 558 goto next_loc; 011062 aa 775445 7100 04 tra -1243,ic 006527 STATEMENT 1 ON LINE 560 Ftype (14): if key.mbz ^= "0"b | key.mbz1 ^= "0"b | /* Check KEY */ key.LC ^= 0 then goto stow_away; 011063 aa 000 000 066 500 cmpb (pr),(),fill(0) 011064 aa 2 00000 10 0002 descb pr2|0(8),2 key.mbz 011065 aa 000000 00 0000 descb 0,0 011066 aa 775413 6010 04 tnz -1269,ic 006501 011067 aa 000 000 066 500 cmpb (pr),(),fill(0) 011070 aa 2 00000 23 0001 descb pr2|0(12),1 key.mbz1 011071 aa 000000 00 0000 descb 0,0 011072 aa 775407 6010 04 tnz -1273,ic 006501 011073 aa 003 100 060 500 csl (pr),(pr),fill(0),bool(move) 011074 aa 2 00000 24 0003 descb pr2|0(13),3 key.LC 011075 aa 6 00056 00 0044 descb pr6|46,36 011076 aa 6 00056 2351 00 lda pr6|46 011077 aa 000105 7730 00 lrl 69 011100 aa 775401 6010 04 tnz -1279,ic 006501 STATEMENT 1 ON LINE 564 if hold_idx < 5 then do; 011101 aa 6 00131 2361 00 ldq pr6|89 hold_idx 011102 aa 000005 1160 07 cmpq 5,dl 011103 aa 000462 6050 04 tpl 306,ic 011565 STATEMENT 1 ON LINE 565 if hold_idx = 0 then call ioa_$ioa_switch (sw, "^4x(PSI-^d)^3xHardware Interrupt. [ALL FIVE DATA WORDS MISSING!]", key.PSI) ; 011104 aa 6 00131 2361 00 ldq pr6|89 hold_idx 011105 aa 000030 6010 04 tnz 24,ic 011135 011106 aa 000 100 100 404 mlr (ic),(pr),fill(000) 011107 aa 770545 00 0100 desc9a -3739,64 001653 = 136064170050 011110 aa 6 00256 00 0100 desc9a pr6|174,64 011111 aa 7 00004 3521 20 epp2 pr7|4,* sw 011112 aa 6 00206 2521 00 spri2 pr6|134 011113 aa 6 00256 3521 00 epp2 pr6|174 011114 aa 6 00210 2521 00 spri2 pr6|136 011115 aa 000012 7270 07 lxl7 10,dl 011116 aa 6 00164 3521 20 epp2 pr6|116,* key.PSI 011117 aa 2 00000 5035 17 abd pr2|0,7 011120 aa 6 00212 2521 00 spri2 pr6|138 011121 aa 767522 3520 04 epp2 -4270,ic 000643 = 464000000000 011122 aa 6 00214 2521 00 spri2 pr6|140 011123 aa 767411 3520 04 epp2 -4343,ic 000534 = 524000000100 011124 aa 6 00216 2521 00 spri2 pr6|142 011125 aa 767425 3520 04 epp2 -4331,ic 000552 = 606000000002 011126 aa 6 00220 2521 00 spri2 pr6|144 011127 aa 6 00204 6211 00 eax1 pr6|132 011130 aa 014000 4310 07 fld 6144,dl 011131 aa 6 00044 3701 20 epp4 pr6|36,* 011132 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 011133 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc 011134 aa 000427 7100 04 tra 279,ic 011563 STATEMENT 1 ON LINE 568 else if hold_idx = 1 then call ioa_$ioa_switch (sw, "^4x(PSI-^d)^3xHardware Interrupt. Instruction PTR= ^4.4b. [FOUR DATA WORDS MISSING!]", key.PSI, DH (1)); 011135 aa 000001 1160 07 cmpq 1,dl 011136 aa 000034 6010 04 tnz 28,ic 011172 011137 aa 000 100 100 404 mlr (ic),(pr),fill(000) 011140 aa 771205 00 0124 desc9a -3451,84 002344 = 136064170050 011141 aa 6 00256 00 0124 desc9a pr6|174,84 011142 aa 7 00004 3521 20 epp2 pr7|4,* sw 011143 aa 6 00226 2521 00 spri2 pr6|150 011144 aa 6 00256 3521 00 epp2 pr6|174 011145 aa 6 00230 2521 00 spri2 pr6|152 011146 aa 000012 7270 07 lxl7 10,dl 011147 aa 6 00164 3521 20 epp2 pr6|116,* key.PSI 011150 aa 2 00000 5035 17 abd pr2|0,7 011151 aa 6 00232 2521 00 spri2 pr6|154 011152 aa 6 00126 3521 00 epp2 pr6|86 DH 011153 aa 6 00234 2521 00 spri2 pr6|156 011154 aa 767467 3520 04 epp2 -4297,ic 000643 = 464000000000 011155 aa 6 00236 2521 00 spri2 pr6|158 011156 aa 767355 3520 04 epp2 -4371,ic 000533 = 524000000124 011157 aa 6 00240 2521 00 spri2 pr6|160 011160 aa 767372 3520 04 epp2 -4358,ic 000552 = 606000000002 011161 aa 6 00242 2521 00 spri2 pr6|162 011162 aa 767350 3520 04 epp2 -4376,ic 000532 = 516000000020 011163 aa 6 00244 2521 00 spri2 pr6|164 011164 aa 6 00224 6211 00 eax1 pr6|148 011165 aa 020000 4310 07 fld 8192,dl 011166 aa 6 00044 3701 20 epp4 pr6|36,* 011167 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 011170 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc 011171 aa 000372 7100 04 tra 250,ic 011563 STATEMENT 1 ON LINE 572 else if hold_idx = 2 then call ioa_$ioa_switch (sw, "^4x(PSI-^d)^3xHardware Interrupt. Instruction PTR= ^4.4b, OP Code= ^1.3b^1.3b, Device= ^2.3b. [THREE DATA WORDS MISSING!]" , key.PSI, DH (1), substr (DH (2), 2, 3), substr (DH (2), 6, 3), substr (DH (2), 11, 6)); 011172 aa 000002 1160 07 cmpq 2,dl 011173 aa 000063 6010 04 tnz 51,ic 011256 011174 aa 000 100 100 404 mlr (ic),(pr),fill(000) 011175 aa 771310 00 0174 desc9a -3384,124 002504 = 136064170050 011176 aa 6 00346 00 0174 desc9a pr6|230,124 011177 aa 6 00126 2351 00 lda pr6|86 DH 011200 aa 000021 7350 00 als 17 011201 aa 0 00006 3771 00 anaq pr0|6 = 700000000000 000000000000 011202 aa 6 00345 7551 00 sta pr6|229 011203 aa 6 00126 2351 00 lda pr6|86 DH 011204 aa 000025 7350 00 als 21 011205 aa 0 00006 3771 00 anaq pr0|6 = 700000000000 000000000000 011206 aa 6 00463 7551 00 sta pr6|307 011207 aa 6 00126 2351 00 lda pr6|86 DH 011210 aa 000032 7350 00 als 26 011211 aa 0 00014 3771 00 anaq pr0|12 = 770000000000 000000000000 011212 aa 6 00222 7551 00 sta pr6|146 011213 aa 7 00004 3521 20 epp2 pr7|4,* sw 011214 aa 6 00310 2521 00 spri2 pr6|200 011215 aa 6 00346 3521 00 epp2 pr6|230 011216 aa 6 00312 2521 00 spri2 pr6|202 011217 aa 000012 7270 07 lxl7 10,dl 011220 aa 6 00164 3521 20 epp2 pr6|116,* key.PSI 011221 aa 2 00000 5035 17 abd pr2|0,7 011222 aa 6 00314 2521 00 spri2 pr6|204 011223 aa 6 00126 3521 00 epp2 pr6|86 DH 011224 aa 6 00316 2521 00 spri2 pr6|206 011225 aa 6 00345 3521 00 epp2 pr6|229 011226 aa 6 00320 2521 00 spri2 pr6|208 011227 aa 6 00463 3521 00 epp2 pr6|307 011230 aa 6 00322 2521 00 spri2 pr6|210 011231 aa 6 00222 3521 00 epp2 pr6|146 011232 aa 6 00324 2521 00 spri2 pr6|212 011233 aa 767410 3520 04 epp2 -4344,ic 000643 = 464000000000 011234 aa 6 00326 2521 00 spri2 pr6|214 011235 aa 767274 3520 04 epp2 -4420,ic 000531 = 524000000171 011236 aa 6 00330 2521 00 spri2 pr6|216 011237 aa 767313 3520 04 epp2 -4405,ic 000552 = 606000000002 011240 aa 6 00332 2521 00 spri2 pr6|218 011241 aa 767271 3520 04 epp2 -4423,ic 000532 = 516000000020 011242 aa 6 00334 2521 00 spri2 pr6|220 011243 aa 767355 3520 04 epp2 -4371,ic 000620 = 514000000003 011244 aa 6 00336 2521 00 spri2 pr6|222 011245 aa 6 00340 2521 00 spri2 pr6|224 011246 aa 767336 3520 04 epp2 -4386,ic 000604 = 514000000006 011247 aa 6 00342 2521 00 spri2 pr6|226 011250 aa 6 00306 6211 00 eax1 pr6|198 011251 aa 034000 4310 07 fld 14336,dl 011252 aa 6 00044 3701 20 epp4 pr6|36,* 011253 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 011254 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc 011255 aa 000306 7100 04 tra 198,ic 011563 STATEMENT 1 ON LINE 576 else if hold_idx = 3 then do; 011256 aa 000003 1160 07 cmpq 3,dl 011257 aa 000123 6010 04 tnz 83,ic 011402 STATEMENT 1 ON LINE 577 call ioa_$ioa_switch (sw, "^4x(PSI-^d)^3xHardware Interrupt. Instruction PTR= ^4.4b, OP Code= ^1.3b^1.3b, Device= ^2.3b", key.PSI, DH (1), substr (DH (2), 2, 3), substr (DH (2), 6, 3), substr (DH (2), 11, 6)); 011260 aa 000 100 100 404 mlr (ic),(pr),fill(000) 011261 aa 771224 00 0134 desc9a -3436,92 002504 = 136064170050 011262 aa 6 00224 00 0134 desc9a pr6|148,92 011263 aa 6 00126 2351 00 lda pr6|86 DH 011264 aa 000021 7350 00 als 17 011265 aa 0 00006 3771 00 anaq pr0|6 = 700000000000 000000000000 011266 aa 6 00222 7551 00 sta pr6|146 011267 aa 6 00126 2351 00 lda pr6|86 DH 011270 aa 000025 7350 00 als 21 011271 aa 0 00006 3771 00 anaq pr0|6 = 700000000000 000000000000 011272 aa 6 00463 7551 00 sta pr6|307 011273 aa 6 00126 2351 00 lda pr6|86 DH 011274 aa 000032 7350 00 als 26 011275 aa 0 00014 3771 00 anaq pr0|12 = 770000000000 000000000000 011276 aa 6 00345 7551 00 sta pr6|229 011277 aa 7 00004 3521 20 epp2 pr7|4,* sw 011300 aa 6 00310 2521 00 spri2 pr6|200 011301 aa 6 00224 3521 00 epp2 pr6|148 011302 aa 6 00312 2521 00 spri2 pr6|202 011303 aa 000012 7270 07 lxl7 10,dl 011304 aa 6 00164 3521 20 epp2 pr6|116,* key.PSI 011305 aa 2 00000 5035 17 abd pr2|0,7 011306 aa 6 00314 2521 00 spri2 pr6|204 011307 aa 6 00126 3521 00 epp2 pr6|86 DH 011310 aa 6 00316 2521 00 spri2 pr6|206 011311 aa 6 00222 3521 00 epp2 pr6|146 011312 aa 6 00320 2521 00 spri2 pr6|208 011313 aa 6 00463 3521 00 epp2 pr6|307 011314 aa 6 00322 2521 00 spri2 pr6|210 011315 aa 6 00345 3521 00 epp2 pr6|229 011316 aa 6 00324 2521 00 spri2 pr6|212 011317 aa 767324 3520 04 epp2 -4396,ic 000643 = 464000000000 011320 aa 6 00326 2521 00 spri2 pr6|214 011321 aa 767207 3520 04 epp2 -4473,ic 000530 = 524000000134 011322 aa 6 00330 2521 00 spri2 pr6|216 011323 aa 767227 3520 04 epp2 -4457,ic 000552 = 606000000002 011324 aa 6 00332 2521 00 spri2 pr6|218 011325 aa 767205 3520 04 epp2 -4475,ic 000532 = 516000000020 011326 aa 6 00334 2521 00 spri2 pr6|220 011327 aa 767271 3520 04 epp2 -4423,ic 000620 = 514000000003 011330 aa 6 00336 2521 00 spri2 pr6|222 011331 aa 6 00340 2521 00 spri2 pr6|224 011332 aa 767252 3520 04 epp2 -4438,ic 000604 = 514000000006 011333 aa 6 00342 2521 00 spri2 pr6|226 011334 aa 6 00306 6211 00 eax1 pr6|198 011335 aa 034000 4310 07 fld 14336,dl 011336 aa 6 00044 3701 20 epp4 pr6|36,* 011337 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 011340 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 580 call ioa_$ioa_switch (sw, "^35xci_status= ^2.4b, psi_status= ^2.4b. [TWO DATA WORDS MISSING!]", substr (DH (3), 1, 8), substr (DH (3), 9, 8)); 011341 aa 000 100 100 404 mlr (ic),(pr),fill(000) 011342 aa 770432 00 0104 desc9a -3814,68 001773 = 136063065170 011343 aa 6 00256 00 0104 desc9a pr6|174,68 011344 aa 6 00126 2371 00 ldaq pr6|86 DH 011345 aa 000040 7370 00 lls 32 011346 aa 0 00020 3771 00 anaq pr0|16 = 776000000000 000000000000 011347 aa 6 00345 7551 00 sta pr6|229 011350 aa 6 00127 2351 00 lda pr6|87 DH 011351 aa 000004 7350 00 als 4 011352 aa 0 00020 3771 00 anaq pr0|16 = 776000000000 000000000000 011353 aa 6 00463 7551 00 sta pr6|307 011354 aa 6 00032 3735 20 epp7 pr6|26,* 011355 aa 7 00004 3521 20 epp2 pr7|4,* sw 011356 aa 6 00226 2521 00 spri2 pr6|150 011357 aa 6 00256 3521 00 epp2 pr6|174 011360 aa 6 00230 2521 00 spri2 pr6|152 011361 aa 6 00345 3521 00 epp2 pr6|229 011362 aa 6 00232 2521 00 spri2 pr6|154 011363 aa 6 00463 3521 00 epp2 pr6|307 011364 aa 6 00234 2521 00 spri2 pr6|156 011365 aa 767256 3520 04 epp2 -4434,ic 000643 = 464000000000 011366 aa 6 00236 2521 00 spri2 pr6|158 011367 aa 767140 3520 04 epp2 -4512,ic 000527 = 524000000102 011370 aa 6 00240 2521 00 spri2 pr6|160 011371 aa 767221 3520 04 epp2 -4463,ic 000612 = 514000000010 011372 aa 6 00242 2521 00 spri2 pr6|162 011373 aa 6 00244 2521 00 spri2 pr6|164 011374 aa 6 00224 6211 00 eax1 pr6|148 011375 aa 020000 4310 07 fld 8192,dl 011376 aa 6 00044 3701 20 epp4 pr6|36,* 011377 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 011400 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 582 end; 011401 aa 000162 7100 04 tra 114,ic 011563 STATEMENT 1 ON LINE 583 else do; STATEMENT 1 ON LINE 584 call ioa_$ioa_switch (sw, "^4x(PSI-^d)^3xHardware Interrupt. Instruction PTR= ^4.4b, OP Code= ^1.3b^1.3b, Device= ^2.3b", key.PSI, DH (1), substr (DH (2), 2, 3), substr (DH (2), 6, 3), substr (DH (2), 11, 6)); 011402 aa 000 100 100 404 mlr (ic),(pr),fill(000) 011403 aa 771102 00 0134 desc9a -3518,92 002504 = 136064170050 011404 aa 6 00224 00 0134 desc9a pr6|148,92 011405 aa 6 00126 2351 00 lda pr6|86 DH 011406 aa 000021 7350 00 als 17 011407 aa 0 00006 3771 00 anaq pr0|6 = 700000000000 000000000000 011410 aa 6 00463 7551 00 sta pr6|307 011411 aa 6 00126 2351 00 lda pr6|86 DH 011412 aa 000025 7350 00 als 21 011413 aa 0 00006 3771 00 anaq pr0|6 = 700000000000 000000000000 011414 aa 6 00345 7551 00 sta pr6|229 011415 aa 6 00126 2351 00 lda pr6|86 DH 011416 aa 000032 7350 00 als 26 011417 aa 0 00014 3771 00 anaq pr0|12 = 770000000000 000000000000 011420 aa 6 00222 7551 00 sta pr6|146 011421 aa 7 00004 3521 20 epp2 pr7|4,* sw 011422 aa 6 00310 2521 00 spri2 pr6|200 011423 aa 6 00224 3521 00 epp2 pr6|148 011424 aa 6 00312 2521 00 spri2 pr6|202 011425 aa 000012 7270 07 lxl7 10,dl 011426 aa 6 00164 3521 20 epp2 pr6|116,* key.PSI 011427 aa 2 00000 5035 17 abd pr2|0,7 011430 aa 6 00314 2521 00 spri2 pr6|204 011431 aa 6 00126 3521 00 epp2 pr6|86 DH 011432 aa 6 00316 2521 00 spri2 pr6|206 011433 aa 6 00463 3521 00 epp2 pr6|307 011434 aa 6 00320 2521 00 spri2 pr6|208 011435 aa 6 00345 3521 00 epp2 pr6|229 011436 aa 6 00322 2521 00 spri2 pr6|210 011437 aa 6 00222 3521 00 epp2 pr6|146 011440 aa 6 00324 2521 00 spri2 pr6|212 011441 aa 767202 3520 04 epp2 -4478,ic 000643 = 464000000000 011442 aa 6 00326 2521 00 spri2 pr6|214 011443 aa 767065 3520 04 epp2 -4555,ic 000530 = 524000000134 011444 aa 6 00330 2521 00 spri2 pr6|216 011445 aa 767105 3520 04 epp2 -4539,ic 000552 = 606000000002 011446 aa 6 00332 2521 00 spri2 pr6|218 011447 aa 767063 3520 04 epp2 -4557,ic 000532 = 516000000020 011450 aa 6 00334 2521 00 spri2 pr6|220 011451 aa 767147 3520 04 epp2 -4505,ic 000620 = 514000000003 011452 aa 6 00336 2521 00 spri2 pr6|222 011453 aa 6 00340 2521 00 spri2 pr6|224 011454 aa 767130 3520 04 epp2 -4520,ic 000604 = 514000000006 011455 aa 6 00342 2521 00 spri2 pr6|226 011456 aa 6 00306 6211 00 eax1 pr6|198 011457 aa 034000 4310 07 fld 14336,dl 011460 aa 6 00044 3701 20 epp4 pr6|36,* 011461 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 011462 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 587 call ioa_$ioa_switch (sw, "^35xci_status= ^2.4b, psi_status= ^2.4b, seq_status= ^2.4b", substr (DH (3), 1, 8), substr (DH (3), 9, 8), substr (DH (4), 1, 8)); 011463 aa 000 100 100 404 mlr (ic),(pr),fill(000) 011464 aa 770000 00 0074 desc9a -4096,60 001463 = 136063065170 011465 aa 6 00256 00 0074 desc9a pr6|174,60 011466 aa 6 00126 2371 00 ldaq pr6|86 DH 011467 aa 000040 7370 00 lls 32 011470 aa 0 00020 3771 00 anaq pr0|16 = 776000000000 000000000000 011471 aa 6 00222 7551 00 sta pr6|146 011472 aa 6 00127 2351 00 lda pr6|87 DH 011473 aa 000004 7350 00 als 4 011474 aa 0 00020 3771 00 anaq pr0|16 = 776000000000 000000000000 011475 aa 6 00345 7551 00 sta pr6|229 011476 aa 6 00127 2351 00 lda pr6|87 DH 011477 aa 000014 7350 00 als 12 011500 aa 0 00020 3771 00 anaq pr0|16 = 776000000000 000000000000 011501 aa 6 00463 7551 00 sta pr6|307 011502 aa 6 00032 3735 20 epp7 pr6|26,* 011503 aa 7 00004 3521 20 epp2 pr7|4,* sw 011504 aa 6 00226 2521 00 spri2 pr6|150 011505 aa 6 00256 3521 00 epp2 pr6|174 011506 aa 6 00230 2521 00 spri2 pr6|152 011507 aa 6 00222 3521 00 epp2 pr6|146 011510 aa 6 00232 2521 00 spri2 pr6|154 011511 aa 6 00345 3521 00 epp2 pr6|229 011512 aa 6 00234 2521 00 spri2 pr6|156 011513 aa 6 00463 3521 00 epp2 pr6|307 011514 aa 6 00236 2521 00 spri2 pr6|158 011515 aa 767126 3520 04 epp2 -4522,ic 000643 = 464000000000 011516 aa 6 00240 2521 00 spri2 pr6|160 011517 aa 767007 3520 04 epp2 -4601,ic 000526 = 524000000072 011520 aa 6 00242 2521 00 spri2 pr6|162 011521 aa 767071 3520 04 epp2 -4551,ic 000612 = 514000000010 011522 aa 6 00244 2521 00 spri2 pr6|164 011523 aa 6 00246 2521 00 spri2 pr6|166 011524 aa 6 00250 2521 00 spri2 pr6|168 011525 aa 6 00224 6211 00 eax1 pr6|148 011526 aa 024000 4310 07 fld 10240,dl 011527 aa 6 00044 3701 20 epp4 pr6|36,* 011530 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 011531 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 589 call ioa_$ioa_switch (sw, "^35xseq_s1= ^2.4b. [LAST DATA WORD MISSING!]", substr (DH (4), 9, 8)); 011532 aa 000 100 100 404 mlr (ic),(pr),fill(000) 011533 aa 767400 00 0054 desc9a -4352,44 001132 = 136063065170 011534 aa 6 00204 00 0054 desc9a pr6|132,44 011535 aa 6 00127 2351 00 lda pr6|87 DH 011536 aa 000024 7350 00 als 20 011537 aa 0 00020 3771 00 anaq pr0|16 = 776000000000 000000000000 011540 aa 6 00463 7551 00 sta pr6|307 011541 aa 6 00032 3735 20 epp7 pr6|26,* 011542 aa 7 00004 3521 20 epp2 pr7|4,* sw 011543 aa 6 00260 2521 00 spri2 pr6|176 011544 aa 6 00204 3521 00 epp2 pr6|132 011545 aa 6 00262 2521 00 spri2 pr6|178 011546 aa 6 00463 3521 00 epp2 pr6|307 011547 aa 6 00264 2521 00 spri2 pr6|180 011550 aa 767073 3520 04 epp2 -4549,ic 000643 = 464000000000 011551 aa 6 00266 2521 00 spri2 pr6|182 011552 aa 766753 3520 04 epp2 -4629,ic 000525 = 524000000054 011553 aa 6 00270 2521 00 spri2 pr6|184 011554 aa 767036 3520 04 epp2 -4578,ic 000612 = 514000000010 011555 aa 6 00272 2521 00 spri2 pr6|186 011556 aa 6 00256 6211 00 eax1 pr6|174 011557 aa 014000 4310 07 fld 6144,dl 011560 aa 6 00044 3701 20 epp4 pr6|36,* 011561 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 011562 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 590 end; STATEMENT 1 ON LINE 591 hold_idx = 0; 011563 aa 6 00131 4501 00 stz pr6|89 hold_idx STATEMENT 1 ON LINE 592 goto next_loc; 011564 aa 774743 7100 04 tra -1565,ic 006527 STATEMENT 1 ON LINE 593 end; STATEMENT 1 ON LINE 594 call ioa_$ioa_switch (sw, "^4x(PSI-^d)^3xHardware Interrupt. Instruction PTR= ^4.4b, OP Code= ^1.3b^1.3b, Device= ^2.3b", key.PSI, DH (1), substr (DH (2), 2, 3), substr (DH (2), 6, 3), substr (DH (2), 11, 6)); 011565 aa 000 100 100 404 mlr (ic),(pr),fill(000) 011566 aa 770717 00 0134 desc9a -3633,92 002504 = 136064170050 011567 aa 6 00224 00 0134 desc9a pr6|148,92 011570 aa 6 00126 2351 00 lda pr6|86 DH 011571 aa 000021 7350 00 als 17 011572 aa 0 00006 3771 00 anaq pr0|6 = 700000000000 000000000000 011573 aa 6 00463 7551 00 sta pr6|307 011574 aa 6 00126 2351 00 lda pr6|86 DH 011575 aa 000025 7350 00 als 21 011576 aa 0 00006 3771 00 anaq pr0|6 = 700000000000 000000000000 011577 aa 6 00345 7551 00 sta pr6|229 011600 aa 6 00126 2351 00 lda pr6|86 DH 011601 aa 000032 7350 00 als 26 011602 aa 0 00014 3771 00 anaq pr0|12 = 770000000000 000000000000 011603 aa 6 00222 7551 00 sta pr6|146 011604 aa 7 00004 3521 20 epp2 pr7|4,* sw 011605 aa 6 00310 2521 00 spri2 pr6|200 011606 aa 6 00224 3521 00 epp2 pr6|148 011607 aa 6 00312 2521 00 spri2 pr6|202 011610 aa 000012 7270 07 lxl7 10,dl 011611 aa 6 00164 3521 20 epp2 pr6|116,* key.PSI 011612 aa 2 00000 5035 17 abd pr2|0,7 011613 aa 6 00314 2521 00 spri2 pr6|204 011614 aa 6 00126 3521 00 epp2 pr6|86 DH 011615 aa 6 00316 2521 00 spri2 pr6|206 011616 aa 6 00463 3521 00 epp2 pr6|307 011617 aa 6 00320 2521 00 spri2 pr6|208 011620 aa 6 00345 3521 00 epp2 pr6|229 011621 aa 6 00322 2521 00 spri2 pr6|210 011622 aa 6 00222 3521 00 epp2 pr6|146 011623 aa 6 00324 2521 00 spri2 pr6|212 011624 aa 767017 3520 04 epp2 -4593,ic 000643 = 464000000000 011625 aa 6 00326 2521 00 spri2 pr6|214 011626 aa 766702 3520 04 epp2 -4670,ic 000530 = 524000000134 011627 aa 6 00330 2521 00 spri2 pr6|216 011630 aa 766722 3520 04 epp2 -4654,ic 000552 = 606000000002 011631 aa 6 00332 2521 00 spri2 pr6|218 011632 aa 766700 3520 04 epp2 -4672,ic 000532 = 516000000020 011633 aa 6 00334 2521 00 spri2 pr6|220 011634 aa 766764 3520 04 epp2 -4620,ic 000620 = 514000000003 011635 aa 6 00336 2521 00 spri2 pr6|222 011636 aa 6 00340 2521 00 spri2 pr6|224 011637 aa 766745 3520 04 epp2 -4635,ic 000604 = 514000000006 011640 aa 6 00342 2521 00 spri2 pr6|226 011641 aa 6 00306 6211 00 eax1 pr6|198 011642 aa 034000 4310 07 fld 14336,dl 011643 aa 6 00044 3701 20 epp4 pr6|36,* 011644 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 011645 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 597 call ioa_$ioa_switch (sw, "^35xci_status= ^2.4b, psi_status= ^2.4b, seq_status= ^2.4b", substr (DH (3), 1, 8), substr (DH (3), 9, 8), substr (DH (4), 1, 8)); 011646 aa 000 100 100 404 mlr (ic),(pr),fill(000) 011647 aa 767615 00 0074 desc9a -4211,60 001463 = 136063065170 011650 aa 6 00256 00 0074 desc9a pr6|174,60 011651 aa 6 00126 2371 00 ldaq pr6|86 DH 011652 aa 000040 7370 00 lls 32 011653 aa 0 00020 3771 00 anaq pr0|16 = 776000000000 000000000000 011654 aa 6 00222 7551 00 sta pr6|146 011655 aa 6 00127 2351 00 lda pr6|87 DH 011656 aa 000004 7350 00 als 4 011657 aa 0 00020 3771 00 anaq pr0|16 = 776000000000 000000000000 011660 aa 6 00345 7551 00 sta pr6|229 011661 aa 6 00127 2351 00 lda pr6|87 DH 011662 aa 000014 7350 00 als 12 011663 aa 0 00020 3771 00 anaq pr0|16 = 776000000000 000000000000 011664 aa 6 00463 7551 00 sta pr6|307 011665 aa 6 00032 3735 20 epp7 pr6|26,* 011666 aa 7 00004 3521 20 epp2 pr7|4,* sw 011667 aa 6 00226 2521 00 spri2 pr6|150 011670 aa 6 00256 3521 00 epp2 pr6|174 011671 aa 6 00230 2521 00 spri2 pr6|152 011672 aa 6 00222 3521 00 epp2 pr6|146 011673 aa 6 00232 2521 00 spri2 pr6|154 011674 aa 6 00345 3521 00 epp2 pr6|229 011675 aa 6 00234 2521 00 spri2 pr6|156 011676 aa 6 00463 3521 00 epp2 pr6|307 011677 aa 6 00236 2521 00 spri2 pr6|158 011700 aa 766743 3520 04 epp2 -4637,ic 000643 = 464000000000 011701 aa 6 00240 2521 00 spri2 pr6|160 011702 aa 766624 3520 04 epp2 -4716,ic 000526 = 524000000072 011703 aa 6 00242 2521 00 spri2 pr6|162 011704 aa 766706 3520 04 epp2 -4666,ic 000612 = 514000000010 011705 aa 6 00244 2521 00 spri2 pr6|164 011706 aa 6 00246 2521 00 spri2 pr6|166 011707 aa 6 00250 2521 00 spri2 pr6|168 011710 aa 6 00224 6211 00 eax1 pr6|148 011711 aa 024000 4310 07 fld 10240,dl 011712 aa 6 00044 3701 20 epp4 pr6|36,* 011713 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 011714 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 599 call ioa_$ioa_switch (sw, "^35xseq_s1= ^2.4b, buf_status= ^2.4b, mp_status= ^2.4b", substr (DH (4), 9, 8), substr (DH (5), 1, 8), substr (DH (5), 9, 8)); 011715 aa 000 100 100 404 mlr (ic),(pr),fill(000) 011716 aa 767366 00 0070 desc9a -4362,56 001303 = 136063065170 011717 aa 6 00204 00 0070 desc9a pr6|132,56 011720 aa 6 00127 2351 00 lda pr6|87 DH 011721 aa 000024 7350 00 als 20 011722 aa 0 00020 3771 00 anaq pr0|16 = 776000000000 000000000000 011723 aa 6 00463 7551 00 sta pr6|307 011724 aa 6 00127 2351 00 lda pr6|87 DH 011725 aa 000034 7350 00 als 28 011726 aa 6 00345 7551 00 sta pr6|229 011727 aa 6 00130 2351 00 lda pr6|88 DH 011730 aa 0 00020 3771 00 anaq pr0|16 = 776000000000 000000000000 011731 aa 6 00222 7551 00 sta pr6|146 011732 aa 6 00032 3735 20 epp7 pr6|26,* 011733 aa 7 00004 3521 20 epp2 pr7|4,* sw 011734 aa 6 00260 2521 00 spri2 pr6|176 011735 aa 6 00204 3521 00 epp2 pr6|132 011736 aa 6 00262 2521 00 spri2 pr6|178 011737 aa 6 00463 3521 00 epp2 pr6|307 011740 aa 6 00264 2521 00 spri2 pr6|180 011741 aa 6 00345 3521 00 epp2 pr6|229 011742 aa 6 00266 2521 00 spri2 pr6|182 011743 aa 6 00222 3521 00 epp2 pr6|146 011744 aa 6 00270 2521 00 spri2 pr6|184 011745 aa 766676 3520 04 epp2 -4674,ic 000643 = 464000000000 011746 aa 6 00272 2521 00 spri2 pr6|186 011747 aa 766670 3520 04 epp2 -4680,ic 000637 = 524000000066 011750 aa 6 00274 2521 00 spri2 pr6|188 011751 aa 766641 3520 04 epp2 -4703,ic 000612 = 514000000010 011752 aa 6 00276 2521 00 spri2 pr6|190 011753 aa 6 00300 2521 00 spri2 pr6|192 011754 aa 6 00302 2521 00 spri2 pr6|194 011755 aa 6 00256 6211 00 eax1 pr6|174 011756 aa 024000 4310 07 fld 10240,dl 011757 aa 6 00044 3701 20 epp4 pr6|36,* 011760 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 011761 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 601 hold_idx = 0; 011762 aa 6 00131 4501 00 stz pr6|89 hold_idx STATEMENT 1 ON LINE 602 goto next_loc; 011763 aa 774544 7100 04 tra -1692,ic 006527 STATEMENT 1 ON LINE 604 Ftype (15): if hold_idx ^= 0 then do; 011764 aa 6 00131 2361 00 ldq pr6|89 hold_idx 011765 aa 000007 6000 04 tze 7,ic 011774 STATEMENT 1 ON LINE 606 if hold_idx = 1 & DH (1) = ""b then hold_idx = 0; 011766 aa 000001 1160 07 cmpq 1,dl 011767 aa 774512 6010 04 tnz -1718,ic 006501 011770 aa 6 00126 2351 00 lda pr6|86 DH 011771 aa 777774 3150 03 cana 262140,du 011772 aa 774507 6010 04 tnz -1721,ic 006501 011773 aa 6 00131 4501 00 stz pr6|89 hold_idx STATEMENT 1 ON LINE 609 end; STATEMENT 1 ON LINE 610 if substr (dau_image (loc), 9, 8) = "ff"b4 then do; 011774 aa 6 00304 2361 00 ldq pr6|196 011775 aa 000010 0760 07 adq 8,dl 011776 aa 000 004 066 506 cmpb (pr,ql),(ic),fill(0) 011777 aa 5 00000 00 0010 descb pr5|0,8 dau_image 012000 aa 000167 00 0010 descb 119,8 012165 = 776000000000 012001 aa 000067 6010 04 tnz 55,ic 012070 STATEMENT 1 ON LINE 611 poll_rpt_cnt = 0; 012002 aa 6 00132 4501 00 stz pr6|90 poll_rpt_cnt STATEMENT 1 ON LINE 612 do loc = loc to 126 while (dau_image (loc + 1) = "ffff"b4); 012003 aa 6 00105 2361 00 ldq pr6|69 loc 012004 aa 6 00105 7561 00 stq pr6|69 loc 012005 aa 000000 0110 03 nop 0,du 012006 aa 6 00105 2361 00 ldq pr6|69 loc 012007 aa 000176 1160 07 cmpq 126,dl 012010 aa 000015 6054 04 tpnz 13,ic 012025 012011 aa 000004 7360 00 qls 4 012012 aa 000020 0760 07 adq 16,dl 012013 aa 6 00032 3735 20 epp7 pr6|26,* 012014 aa 7 00002 3715 20 epp5 pr7|2,* image_ptr 012015 aa 5 00000 3715 20 epp5 pr5|0,* image_ptr 012016 aa 000 004 066 506 cmpb (pr,ql),(ic),fill(0) 012017 aa 5 00000 00 0020 descb pr5|0,16 dau_image 012020 aa 000150 00 0020 descb 104,16 012166 = 777774000000 012021 aa 000004 6010 04 tnz 4,ic 012025 STATEMENT 1 ON LINE 614 poll_rpt_cnt = poll_rpt_cnt + 1; 012022 aa 6 00132 0541 00 aos pr6|90 poll_rpt_cnt STATEMENT 1 ON LINE 615 end; 012023 aa 6 00105 0541 00 aos pr6|69 loc 012024 aa 777762 7100 04 tra -14,ic 012006 STATEMENT 1 ON LINE 616 call ioa_$ioa_switch (sw, "^4x-------^3x***** DAU Initialization *****^[ (Repeats ^d time^[s^])^]", (poll_rpt_cnt ^= 0), poll_rpt_cnt, (poll_rpt_cnt > 1)); 012025 aa 000 100 100 404 mlr (ic),(pr),fill(000) 012026 aa 770114 00 0110 desc9a -4020,72 002141 = 136064170055 012027 aa 6 00256 00 0110 desc9a pr6|174,72 012030 aa 6 00132 2361 00 ldq pr6|90 poll_rpt_cnt 012031 aa 0 00515 7001 00 tsx0 pr0|333 r_ne_as 012032 aa 6 00222 7551 00 sta pr6|146 012033 aa 000001 1160 07 cmpq 1,dl 012034 aa 0 00503 7001 00 tsx0 pr0|323 r_g_a 012035 aa 6 00345 7551 00 sta pr6|229 012036 aa 6 00032 3735 20 epp7 pr6|26,* 012037 aa 7 00004 3521 20 epp2 pr7|4,* sw 012040 aa 6 00226 2521 00 spri2 pr6|150 012041 aa 6 00256 3521 00 epp2 pr6|174 012042 aa 6 00230 2521 00 spri2 pr6|152 012043 aa 6 00222 3521 00 epp2 pr6|146 012044 aa 6 00232 2521 00 spri2 pr6|154 012045 aa 6 00132 3521 00 epp2 pr6|90 poll_rpt_cnt 012046 aa 6 00234 2521 00 spri2 pr6|156 012047 aa 6 00345 3521 00 epp2 pr6|229 012050 aa 6 00236 2521 00 spri2 pr6|158 012051 aa 766572 3520 04 epp2 -4742,ic 000643 = 464000000000 012052 aa 6 00240 2521 00 spri2 pr6|160 012053 aa 766451 3520 04 epp2 -4823,ic 000524 = 524000000106 012054 aa 6 00242 2521 00 spri2 pr6|162 012055 aa 766560 3520 04 epp2 -4752,ic 000635 = 514000000001 012056 aa 6 00244 2521 00 spri2 pr6|164 012057 aa 6 00250 2521 00 spri2 pr6|168 012060 aa 766443 3520 04 epp2 -4829,ic 000523 = 404000000021 012061 aa 6 00246 2521 00 spri2 pr6|166 012062 aa 6 00224 6211 00 eax1 pr6|148 012063 aa 024000 4310 07 fld 10240,dl 012064 aa 6 00044 3701 20 epp4 pr6|36,* 012065 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 012066 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 618 goto next_loc; 012067 aa 774440 7100 04 tra -1760,ic 006527 STATEMENT 1 ON LINE 619 end; STATEMENT 1 ON LINE 620 if dau_image (loc) ^= "fffe"b4 then goto stow_away; 012070 aa 6 00304 7271 00 lxl7 pr6|196 012071 aa 000 004 066 517 cmpb (pr,x7),(ic),fill(0) 012072 aa 5 00000 00 0020 descb pr5|0,16 dau_image 012073 aa 000071 00 0020 descb 57,16 012162 = 777770000000 012074 aa 774405 6010 04 tnz -1787,ic 006501 STATEMENT 1 ON LINE 622 poll_rpt_cnt = 0; 012075 aa 6 00132 4501 00 stz pr6|90 poll_rpt_cnt STATEMENT 1 ON LINE 623 do loc = loc to 126 while (dau_image (loc + 1) = "fffe"b4); 012076 aa 6 00105 2361 00 ldq pr6|69 loc 012077 aa 6 00105 7561 00 stq pr6|69 loc 012100 aa 6 00105 2361 00 ldq pr6|69 loc 012101 aa 000176 1160 07 cmpq 126,dl 012102 aa 000015 6054 04 tpnz 13,ic 012117 012103 aa 000004 7360 00 qls 4 012104 aa 000020 0760 07 adq 16,dl 012105 aa 6 00032 3735 20 epp7 pr6|26,* 012106 aa 7 00002 3715 20 epp5 pr7|2,* image_ptr 012107 aa 5 00000 3715 20 epp5 pr5|0,* image_ptr 012110 aa 000 004 066 506 cmpb (pr,ql),(ic),fill(0) 012111 aa 5 00000 00 0020 descb pr5|0,16 dau_image 012112 aa 000052 00 0020 descb 42,16 012162 = 777770000000 012113 aa 000004 6010 04 tnz 4,ic 012117 STATEMENT 1 ON LINE 625 poll_rpt_cnt = poll_rpt_cnt + 1; 012114 aa 6 00132 0541 00 aos pr6|90 poll_rpt_cnt STATEMENT 1 ON LINE 626 end; 012115 aa 6 00105 0541 00 aos pr6|69 loc 012116 aa 777762 7100 04 tra -14,ic 012100 STATEMENT 1 ON LINE 627 call ioa_$ioa_switch (sw, "^4x-------^3xDevice Polling^[ (Repeats ^d time^[s^])^]", (poll_rpt_cnt ^= 0), poll_rpt_cnt, (poll_rpt_cnt > 1)); 012117 aa 000 100 100 404 mlr (ic),(pr),fill(000) 012120 aa 767146 00 0070 desc9a -4506,56 001265 = 136064170055 012121 aa 6 00204 00 0070 desc9a pr6|132,56 012122 aa 6 00132 2361 00 ldq pr6|90 poll_rpt_cnt 012123 aa 0 00515 7001 00 tsx0 pr0|333 r_ne_as 012124 aa 6 00304 7551 00 sta pr6|196 012125 aa 000001 1160 07 cmpq 1,dl 012126 aa 0 00503 7001 00 tsx0 pr0|323 r_g_a 012127 aa 6 00345 7551 00 sta pr6|229 012130 aa 6 00032 3735 20 epp7 pr6|26,* 012131 aa 7 00004 3521 20 epp2 pr7|4,* sw 012132 aa 6 00260 2521 00 spri2 pr6|176 012133 aa 6 00204 3521 00 epp2 pr6|132 012134 aa 6 00262 2521 00 spri2 pr6|178 012135 aa 6 00304 3521 00 epp2 pr6|196 012136 aa 6 00264 2521 00 spri2 pr6|180 012137 aa 6 00132 3521 00 epp2 pr6|90 poll_rpt_cnt 012140 aa 6 00266 2521 00 spri2 pr6|182 012141 aa 6 00345 3521 00 epp2 pr6|229 012142 aa 6 00270 2521 00 spri2 pr6|184 012143 aa 766500 3520 04 epp2 -4800,ic 000643 = 464000000000 012144 aa 6 00272 2521 00 spri2 pr6|186 012145 aa 766472 3520 04 epp2 -4806,ic 000637 = 524000000066 012146 aa 6 00274 2521 00 spri2 pr6|188 012147 aa 766466 3520 04 epp2 -4810,ic 000635 = 514000000001 012150 aa 6 00276 2521 00 spri2 pr6|190 012151 aa 6 00302 2521 00 spri2 pr6|194 012152 aa 766351 3520 04 epp2 -4887,ic 000523 = 404000000021 012153 aa 6 00300 2521 00 spri2 pr6|192 012154 aa 6 00256 6211 00 eax1 pr6|174 012155 aa 024000 4310 07 fld 10240,dl 012156 aa 6 00044 3701 20 epp4 pr6|36,* 012157 la 4 00010 3521 20 epp2 pr4|8,* ioa_$ioa_switch 012160 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 629 goto next_loc; 012161 aa 774346 7100 04 tra -1818,ic 006527 STATEMENT 1 ON LINE 634 end trace_mpc_; END PROCEDURE trace_mpc_ ----------------------------------------------------------- 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