/EAE PART 3A OF INSTRUCTION TEST Page 1 1 /EAE PART 3A OF INSTRUCTION TEST 2 3 7621 CAM=7621 4 7441 SCA=7441 5 7411 NMI=7411 6 7415 ASR=7415 7 7421 MQL=7421 8 7501 MQA=7501 9 7417 LSR=7417 10 7413 SHL=7413 11 12 0020 *0020 13 00020 0000 GEN, 0 14 00021 2125 ISZ Z GENX 15 00022 5420 JMP I GEN 16 00023 7604 CLA OSR /TEST SW 3 17 00024 7106 RTL CLL 18 00025 7006 RTL 19 00026 7430 SZL 20 00027 5431 JMP I BACK 21 00030 5432 JMP I NEXT 22 00031 0000 BACK, 0000 23 00032 0000 NEXT, 0000 24 00033 0427 XMQLT1, MQLT1 25 00034 0600 XMQAT, MQAT 26 00035 1000 XMQAT1, MQAT1 27 28 00036 0000 CRLF, 0 29 00037 7240 CLA CMA 30 00040 0130 AND CR /CR 31 00041 4046 JMS PRXLOP 32 00042 7240 CLA CMA 33 00043 0131 AND LF /LF 34 00044 4046 JMS PRXLOP 35 00045 5436 JMP I CRLF 36 37 00046 0000 PRXLOP, 0 38 00047 6046 TLS /PRINT LOOP 39 00050 6041 TSF 40 00051 5050 JMP .-1 41 00052 7200 CLA 42 00053 5446 JMP I PRXLOP 43 44 00054 0000 PLINK, 0 45 00055 7240 CLA CMA 46 00056 0143 AND LINK /LINK 47 00057 4061 JMS ONZER 48 00060 5454 JMP I PLINK 49 50 00061 0000 ONZER, 0 /EAE PART 3A OF INSTRUCTION TEST Page 2 51 00062 7440 SZA 52 00063 5066 JMP ONEP /PRINT ONE 53 00064 4072 JMS ZEROR /PRINT ZERO 54 00065 5461 JMP I ONZER 55 00066 7240 ONEP, CLA CMA /ONE 56 00067 0141 AND ONE 57 00070 4046 JMS PRXLOP 58 00071 5461 JMP I ONZER 59 00072 0000 ZEROR, 0 60 00073 7240 CLA CMA 61 00074 0142 AND ZERO /ZERO 62 00075 4046 JMS PRXLOP 63 00076 5472 JMP I ZEROR 64 65 00077 0000 MESSG, 0 66 00100 7240 CLA CMA 67 00101 0145 AND COUNTX 68 00102 3146 DCA STRCNT 69 00103 2146 ISZ STRCNT 70 00104 7410 SKP 71 00105 5477 JMP I MESSG 72 00106 7240 CLA CMA 73 00107 0147 AND BITSTR 74 00110 7100 CLL 75 00111 7004 RAL 76 00112 3147 DCA BITSTR 77 00113 7430 SZL 78 00114 5117 JMP PRONE 79 00115 4072 JMS ZEROR 80 00116 5103 JMP .-13 81 00117 7240 PRONE, CLA CMA 82 00120 0141 AND ONE /ONE 83 00121 4046 JMS PRXLOP 84 00122 5103 JMP MESSG+4 85 00123 0000 ACP, 0 /GOOD AC 86 00124 0000 LXP, 0 /GOOD LINK 87 00125 0000 GENX, 0 88 00126 0000 BLXP, 0 /BAD LINK 89 00127 0000 BACP, 0 /BAD AC 90 00130 0215 CR, 0215 /CARRIAGE RETURN 91 00131 0212 LF, 0212 /LINE FEED 92 00132 0315 M, 0315 /M 93 00133 0321 Q, 0321 /Q 94 00134 0314 LL, 0314 /L 95 00135 0324 TT, 0324 /T 96 00136 0240 SP, 0240 /SPACE 97 00137 0301 A, 0301 /A 98 00140 0303 C, 0303 /C 99 00141 0261 ONE, 0261 /1 100 00142 0260 ZERO, 0260 /0 /EAE PART 3A OF INSTRUCTION TEST Page 3 101 00143 0000 LINK, 0 102 00144 0255 TO, 0255 /DASH 103 00145 7763 COUNTX, 7763 104 00146 0000 STRCNT, 0 105 00147 0000 BITSTR, 0 106 00150 1200 XMQAT2, MQAT2 107 00151 1400 XMQAT3, MQAT3 108 00152 0326 INCOR, 0326 /V 109 00153 1600 XSCAT, STEST 110 00154 0263 THREE, 0263 /3 111 00155 0262 TWO, 0262 112 00156 0000 SETL, 0 113 00157 7240 CLA CMA 114 00160 5556 JMP I SETL 115 116 00161 0000 PRNUM, 0 117 00162 0000 LFTAC, 0 118 00163 0000 RITAC, 0 119 00164 0000 RITMQ, 0 120 00165 0000 LFTMQ, 0 121 00166 7764 K7764, 7764 122 00167 4000 XK400, 4000 123 124 0010 *0010 125 00010 0000 ACIND, 0 126 00011 0000 MQIND, 0 127 00012 0000 XACNMI, 0 128 00013 0000 XMQNMI, 0 129 0200 *200 130 00200 5246 MQLT, JMP HSE /HOUSE KEEPING 131 00201 4020 JMS Z GEN 132 00202 7360 STL CLA CMA /SET LINK 133 00203 0125 AND Z GENX 134 00204 3123 DCA Z ACP /STORE AC PATTERN 135 00205 7240 CLA CMA 136 00206 3124 DCA Z LXP /STORE LINK TO A ONE 137 00207 7040 CMA 138 00210 0123 AND Z ACP /LOAD AC 139 00211 7421 MQL 140 00212 3127 DCA Z BACP /STORE AC RESULT 141 00213 7620 CLA SNL 142 00214 5366 JMP XPACP+5 /STORE LINK RESULT 0000 143 00215 4156 JMS Z SETL 144 00216 3126 DCA Z BLXP /STORE LINK RESULT 7777 145 00217 7040 CMA 146 00220 0127 AND Z BACP 147 00221 7440 SZA 148 00222 5230 JMP .+6 /AC NOT EQUAL TO 0000 149 00223 7240 CLA CMA 150 00224 0126 AND BLXP /EAE PART 3A OF INSTRUCTION TEST Page 4 151 00225 7450 SNA 152 00226 5230 JMP .+2 /LINK NOT EQUAL TO A ONE 153 00227 5241 JMP .+12 /CONTINUE TEST MQLT 154 155 00230 7604 CLA OSR /TEST SW2 156 00231 7106 RTL CLL 157 00232 7004 RAL 158 00233 7430 SZL 159 00234 4257 JMS PMQLT /PRINT ERROR 160 00235 7704 CLL CLA OSR /TEST SW 0 161 00236 7004 RAL 162 00237 7430 SZL 163 00240 7402 HLT /HALT MQLT ERROR 164 00241 7604 CLA OSR 165 00242 7106 RTL CLL /TEST SW1 166 00243 7430 SZL 167 00244 5202 JMP MQLT+2 /PROGRAM LOOP 168 00245 5201 JMP MQLT+1 /CONTINUE PROGRAM 169 00246 7300 HSE, CLA CLL 170 00247 3125 DCA Z GENX 171 00250 1365 TAD XPACP+4 172 00251 3031 DCA Z BACK 173 00252 1033 TAD Z XMQLT1 174 00253 3032 DCA Z NEXT 175 00254 7000 NOP 176 00255 7000 NOP 177 00256 5201 JMP MQLT+1 178 00257 0000 PMQLT, 0 /PRINT ROUTINE 179 00260 4036 JMS Z CRLF 180 00261 4304 JMS MQ 181 00262 4314 JMS L 182 00263 4321 JMS T 183 00264 4036 CP, JMS Z CRLF 184 00265 4326 JMS SP2 185 00266 4336 JMS AC 186 00267 4326 JMS SP2 187 00270 4353 JMS PLXP 188 00271 4346 JMS SP1 189 00272 4761 JMS I XPACP 190 00273 4036 JMS Z CRLF 191 00274 4072 JMS Z ZEROR 192 00275 4762 JMS I XPACP+1 /RIGHT ARROW 193 00276 4336 JMS AC 194 00277 4326 JMS SP2 195 00300 4763 JMS I XPACP+2 196 00301 4346 JMS SP1 197 00302 4764 JMS I XPACP+3 198 00303 5657 JMP I PMQLT /RETURN TO SWITCH ROUTINE 199 200 00304 0000 MQ, 0 /EAE PART 3A OF INSTRUCTION TEST Page 5 201 00305 7240 CLA CMA 202 00306 0132 AND Z M /M 203 00307 4046 JMS Z PRXLOP 204 00310 7240 CLA CMA 205 00311 0133 AND Z Q /Q 206 00312 4046 JMS Z PRXLOP 207 00313 5704 JMP I MQ 208 209 00314 0000 L, 0 210 00315 7240 CLA CMA 211 00316 0134 AND Z LL /L 212 00317 4046 JMS Z PRXLOP 213 00320 5714 JMP I L 214 215 00321 0000 T, 0 216 00322 7240 CLA CMA /T 217 00323 0135 AND Z TT 218 00324 4046 JMS Z PRXLOP 219 00325 5721 JMP I T 220 221 00326 0000 SP2, 0 222 00327 7240 CLA CMA 223 00330 0136 AND Z SP /SP 224 00331 4046 JMS Z PRXLOP 225 00332 7240 CLA CMA 226 00333 0136 AND Z SP /SP 227 00334 4046 JMS Z PRXLOP 228 00335 5726 JMP I SP2 229 00336 0000 AC, 0 230 00337 7240 CLA CMA 231 00340 0137 AND Z A /A 232 00341 4046 JMS Z PRXLOP 233 00342 7240 CLA CMA 234 00343 0140 AND Z C /C 235 00344 4046 JMS Z PRXLOP 236 00345 5736 JMP I AC 237 238 00346 0000 SP1, 0 239 00347 7240 CLA CMA 240 00350 0136 AND Z SP /SP 241 00351 4046 JMS Z PRXLOP 242 00352 5746 JMP I SP1 243 244 00353 0000 PLXP, 0 245 00354 7240 CLA CMA 246 00355 0124 AND Z LXP /GOOD LINK 247 00356 3143 DCA Z LINK 248 00357 4054 JMS Z PLINK 249 00360 5753 JMP I PLXP 250 00361 0413 XPACP, PACP /EAE PART 3A OF INSTRUCTION TEST Page 6 251 00362 0406 PTO 252 00363 0400 PBLXP 253 00364 0421 PBACP 254 00365 0200 MQLT 255 00366 3126 DCA Z BLXP 256 00367 5217 JMP MQLT+17 257 0400 *400 258 00400 0000 PBLXP, 0 259 00401 7240 CLA CMA 260 00402 0126 AND Z BLXP /BAD LINK 261 00403 3143 DCA Z LINK 262 00404 4054 JMS Z PLINK 263 00405 5600 JMP I PBLXP 264 265 00406 0000 PTO, 0 266 00407 7240 CLA CMA 267 00410 0144 AND TO /RIGHT ARROW 268 00411 4046 JMS Z PRXLOP 269 00412 5606 JMP I PTO 270 271 00413 0000 PACP, 0 272 00414 7240 CLA CMA 273 00415 0123 AND Z ACP /ACP 274 00416 3147 DCA Z BITSTR 275 00417 4077 JMS Z MESSG 276 00420 5613 JMP I PACP 277 278 00421 0000 PBACP, 0 279 00422 7240 CLA CMA 280 00423 0127 AND Z BACP /BACP 281 00424 3147 DCA Z BITSTR 282 00425 4077 JMS Z MESSG 283 00426 5621 JMP I PBACP 284 285 00427 5256 MQLT1, JMP HSE1 286 00430 4020 JMS GEN 287 00431 7340 CLL CLA CMA /CLEAR LINK 288 00432 0125 AND Z GENX 289 00433 3123 DCA Z ACP /STORE AC PATTERN 290 00434 3124 DCA Z LXP /STORE LINK TO A ZERO 291 00435 7040 CMA 292 00436 0123 AND Z ACP /LOAD AC 293 00437 7421 MQL 294 00440 3127 DCA Z BACP /STORE AC RESULT 295 00441 7620 CLA SNL 296 00442 5332 JMP XONE+6 /STORE LINK RESULT 0000 297 00443 4156 JMS Z SETL 298 00444 3126 DCA Z BLXP /STORE LINK RESULT 7777 299 00445 7040 CMA 300 00446 0127 AND Z BACP /EAE PART 3A OF INSTRUCTION TEST Page 7 301 00447 7440 SZA 302 00450 5270 JMP .+20 /AC NOT EQUAL TO 0000 303 00451 7240 CLA CMA 304 00452 0126 AND Z BLXP 305 00453 7440 SZA 306 00454 5270 JMP .+14 /LINK NOT EQUAL TO A ZERO 307 00455 5301 JMP MQ1+4 /CONTINUE TEST MQLT1 308 309 00456 7300 HSE1, CLA CLL 310 00457 3125 DCA Z GENX 311 00460 1033 TAD Z XMQLT1 312 00461 3031 DCA Z BACK 313 00462 1034 TAD Z XMQAT 314 00463 3032 DCA Z NEXT 315 00464 7000 NOP 316 00465 7000 NOP 317 00466 7000 NOP 318 00467 5230 JMP MQLT1+1 319 320 00470 7604 CLA OSR /TEST SW2 321 00471 7106 RTL CLL 322 00472 7004 RAL 323 00473 7430 SZL 324 00474 5307 JMP XMQ1+1 /PRINT ERROR 325 00475 7604 MQ1, CLA OSR /TEST SW0 326 00476 7104 RAL CLL 327 00477 7430 SZL 328 00500 7402 HLT 329 00501 7604 CLA OSR 330 00502 7106 RTL CLL 331 00503 7430 SZL 332 00504 5231 JMP MQLT1+2 /PROGRAM LOOP 333 00505 5230 JMP MQLT1+1 /CONTINUE PROGRAM 334 00506 0475 XMQ1, MQ1 335 00507 7240 CLA CMA 336 00510 0306 AND XMQ1 337 00511 3731 DCA I XONE+5 338 00512 4036 JMS Z CRLF 339 00513 4721 JMS I XCP+1 340 00514 4722 JMS I XCP+2 341 00515 4723 JMS I XCP+3 342 00516 4324 JMS XONE 343 00517 5720 JMP I XCP 344 00520 0264 XCP, CP 345 00521 0304 MQ 346 00522 0314 L 347 00523 0321 T 348 349 00524 0000 XONE, 0 350 00525 7240 CLA CMA /ONE /EAE PART 3A OF INSTRUCTION TEST Page 8 351 00526 0141 AND Z ONE 352 00527 4046 JMS Z PRXLOP 353 00530 5724 JMP I XONE 354 00531 0257 PMQLT 355 00532 3126 DCA Z BLXP 356 00533 5245 JMP MQLT1+16 357 0600 *600 358 00600 5235 MQAT, JMP HSE2 359 00601 4020 JMS GEN 360 00602 7360 STL CLA CMA /SET LINK 361 00603 0125 AND Z GENX 362 00604 3123 DCA Z ACP /STORE AC PATTERN 363 00605 7240 CLA CMA 364 00606 3124 DCA Z LXP /STORE LINK TO A ONE 365 00607 7040 CMA 366 00610 0123 AND Z ACP /LOAD AC 367 00611 7421 MQL /LOAD MQ FROM AC 368 00612 7501 MQA /LOAD AC FROM MP 369 00613 3127 DCA Z BACP /STORE RESULT OF MQL MQA 370 00614 7620 CLA SNL 371 00615 5347 JMP YA+5 /STORE LINK RESULT 0000 372 00616 4156 JMS Z SETL 373 00617 3126 DCA BLXP 374 00620 7040 RL2, CMA 375 00621 0123 AND Z ACP /COMPARE ACP WITH BACP 376 00622 7140 CLL CMA 377 00623 1127 TAD Z BACP 378 00624 7040 CMA 379 00625 7450 SNA 380 00626 7430 SZL 381 00627 5247 JMP HSE2+12 /MQ DID NOT EQUAL AC 382 00630 7240 CLA CMA 383 00631 0126 AND Z BLXP 384 00632 7450 SNA 385 00633 5247 JMP HSE2+12 /LINK DID NOT EQUAL A ONE 386 00634 5262 JMP PMQAT-5 387 388 00635 7300 HSE2, CLA CLL 389 00636 3125 DCA Z GENX 390 00637 1034 TAD Z XMQAT 391 00640 3031 DCA Z BACK 392 00641 1035 TAD Z XMQAT1 393 00642 3032 DCA Z NEXT 394 00643 7000 NOP 395 00644 7000 NOP 396 00645 7000 NOP 397 00646 5201 JMP MQAT+1 398 00647 7604 CLA OSR /TEST SW2 399 00650 7106 RTL CLL 400 00651 7004 RAL /EAE PART 3A OF INSTRUCTION TEST Page 9 401 00652 7420 SNL 402 00653 5256 JMP .+3 403 00654 4267 JMS PMQAT /PRINT ERROR 404 00655 4274 JMS MQA1 405 00656 7604 CLA OSR /TEST SW0 406 00657 7104 RAL CLL 407 00660 7430 SZL 408 00661 7402 HLT 409 00662 7604 CLA OSR /TEST SW1 410 00663 7106 RTL CLL 411 00664 7430 SZL 412 00665 5202 JMP MQAT+2 /PROGRAM LOOP 413 00666 5201 JMP MQAT+1 /CONTINUE PROGRAM 414 00667 0000 PMQAT, 0 415 00670 4036 JMS Z CRLF 416 00671 4726 JMS I YSP2+5 417 00672 4332 JMS AT 418 00673 5667 JMP I PMQAT 419 420 00674 0000 MQA1, 0 421 00675 4036 JMS Z CRLF 422 00676 4724 JMS I YSP2+3 423 00677 4721 JMS I YSP2 424 00700 4721 JMS I YSP2 425 00701 4722 JMS I YSP2+1 426 00702 4721 JMS I YSP2 427 00703 4723 JMS I YSP2+2 428 00704 4724 JMS I YSP2+3 429 00705 4725 JMS I YSP2+4 430 00706 4036 JMS Z CRLF 431 00707 4726 JMS I YSP2+5 432 00710 4727 JMS I YSP2+6 433 00711 4724 JMS I YSP2+3 434 00712 4726 JMS I YSP2+5 435 00713 4342 JMS YA 436 00714 4721 JMS I YSP2 437 00715 4730 JMS I YSP2+7 438 00716 4724 JMS I YSP2+3 439 00717 4731 JMS I YSP2+10 440 00720 5674 JMP I MQA1 441 00721 0326 YSP2, SP2 442 00722 0336 AC 443 00723 0353 PLXP 444 00724 0346 SP1 445 00725 0413 PACP 446 00726 0304 MQ 447 00727 0314 L 448 00730 0400 PBLXP 449 00731 0421 PBACP 450 /EAE PART 3A OF INSTRUCTION TEST Page 10 451 00732 0000 AT, 0 452 00733 7240 CLA CMA 453 00734 0137 AND Z A /A 454 00735 4046 JMS Z PRXLOP 455 00736 7240 CLA CMA 456 00737 0135 AND Z TT /T 457 00740 4046 JMS Z PRXLOP 458 00741 5732 JMP I AT 459 460 00742 0000 YA, 0 461 00743 7240 CLA CMA 462 00744 0137 AND Z A /A 463 00745 4046 JMS Z PRXLOP 464 00746 5742 JMP I YA 465 00747 3126 DCA Z BLXP 466 00750 5220 JMP RL2 467 1000 *1000 468 01000 5234 MQAT1, JMP HSE3 469 01001 4020 JMS GEN 470 01002 7340 CLL CLA CMA /CLEAR LINK 471 01003 0125 AND Z GENX 472 01004 3123 DCA Z ACP /STORE AC PATTERN 473 01005 3124 DCA Z LXP /STORE LINK TO A ZERO 474 01006 7040 CMA 475 01007 0123 AND Z ACP /LOAD AC 476 01010 7421 MQL /LOAD MQ FROM AC 477 01011 7501 MQA /LOAD AC FROM MQ 478 01012 3127 DCA Z BACP /STORE RESULT OF MQL, MQA 479 01013 7620 CLA SNL 480 01014 5272 JMP NOPR+14 481 01015 4156 JMS Z SETL 482 01016 3126 DCA Z BLXP /STORE LINK RESULT 7777 483 01017 7040 CMA 484 01020 0123 AND Z ACP /COMPARE ACP WITH BACP 485 01021 7140 CLL CMA 486 01022 1127 TAD Z BACP 487 01023 7040 CMA 488 01024 7450 SNA 489 01025 7430 SZL 490 01026 5246 JMP MQAER1 /MQ DID NOT EQUAL AC 491 01027 7240 CLA CMA 492 01030 0126 AND Z BLXP 493 01031 7440 SZA 494 01032 5246 JMP MQAER1 /LINK DID NOT EQUAL A ZERO 495 01033 5262 JMP NOPR+4 496 01034 7300 HSE3, CLA CLL 497 01035 3125 DCA Z GENX 498 01036 1035 TAD Z XMQAT1 499 01037 3031 DCA Z BACK 500 01040 1150 TAD Z XMQAT2 /EAE PART 3A OF INSTRUCTION TEST Page 11 501 01041 3032 DCA Z NEXT 502 01042 7000 NOP 503 01043 7000 NOP 504 01044 7000 NOP 505 01045 5201 JMP MQAT1+1 506 01046 7604 MQAER1, CLA OSR /TEST SW2 507 01047 7106 RTL CLL 508 01050 7004 RAL 509 01051 7420 SNL 510 01052 5256 JMP NOPR 511 01053 4667 JMS I NOPR+11 /PRINT ERROR 512 01054 4670 JMS I NOPR+12 513 01055 4671 JMS I NOPR+13 514 01056 7604 NOPR, CLA OSR /TEST SW0 515 01057 7104 RAL CLL 516 01060 7430 SZL 517 01061 7402 HLT 518 01062 7604 CLA OSR /TEST SW1 519 01063 7106 RTL CLL 520 01064 7430 SZL 521 01065 5202 JMP MQAT1+2 /PROGRAM LOOP 522 01066 5201 JMP MQAT1+1 /CONTINUE PROGRAM 523 01067 0667 PMQAT 524 01070 0524 XONE 525 01071 0674 MQA1 526 01072 3126 DCA Z BLXP 527 01073 5217 JMP MQAT1+17 528 1200 *1200 529 01200 5235 MQAT2, JMP HSE4 530 01201 4020 JMS GEN 531 01202 7360 STL CLA CMA /SET LINK 532 01203 0125 AND Z GENX 533 01204 7040 CMA /COMPLEMENT GENX PATTERN 534 01205 3123 DCA Z ACP /STORE AC PATTERN 535 01206 7040 CMA 536 01207 3124 DCA Z LXP /STORE LINK TO A ONE 537 01210 7040 CMA 538 01211 0125 AND Z GENX 539 01212 7421 MQL /LOAD MQ 540 01213 7240 CLA CMA 541 01214 0123 AND Z ACP /LOAD AC WITH COMPLEMENTED GENX 542 01215 7501 MQA 543 01216 3127 DCA Z BACP /STORE RESULT OF MQA 544 01217 7620 CLA SNL 545 01220 5347 JMP CLRL4 /STORE LINK RESULT 0000 546 01221 4156 JMS Z SETL 547 01222 3126 DCA Z BLXP /STORE LINK RESULT 7777 548 549 01223 7240 RL4, CLA CMA 550 01224 0127 AND Z BACP /AC SHOULD EQUAL 7777 /EAE PART 3A OF INSTRUCTION TEST Page 12 551 01225 7040 CMA 552 01226 7440 SZA 553 01227 5247 JMP MQAER2 /MQ DID NOT INCLUSIVE OR WITH AC 554 01230 7040 CMA 555 01231 0126 AND Z BLXP 556 01232 7450 SNA 557 01233 5247 JMP MQAER2 /LINK DID NOT EQUAL A ONE 558 01234 5262 JMP LNPR2+4 559 560 01235 7300 HSE4, CLA CLL 561 01236 3125 DCA Z GENX 562 01237 1150 TAD Z XMQAT2 563 01240 3031 DCA Z BACK 564 01241 1151 TAD Z XMQAT3 565 01242 3032 DCA Z NEXT 566 01243 7000 NOP 567 01244 7000 NOP 568 01245 7000 NOP 569 01246 5201 JMP MQAT2+1 570 571 01247 7604 MQAER2, CLA OSR /TEST SW2 572 01250 7106 RTL CLL 573 01251 7004 RAL 574 01252 7420 SNL 575 01253 5256 JMP LNPR2 /PRINT ERROR 576 01254 4667 JMS I XPMQAT 577 01255 4270 JMS EMQAT2 578 01256 7604 LNPR2, CLA OSR /TEST SW0 579 01257 7104 RAL CLL 580 01260 7430 SZL 581 01261 7402 HLT 582 01262 7604 CLA OSR /TEST SW1 583 01263 7106 RTL CLL 584 01264 7430 SZL 585 01265 5202 JMP MQAT2+2 /PROGRAM LOOP 586 01266 5201 JMP MQAT2+1 /CONTINUE PROGRAM 587 01267 0667 XPMQAT, PMQAT 588 589 01270 0000 EMQAT2, 0 590 01271 4342 JMS PTWO 591 01272 4036 AT3, JMS Z CRLF 592 01273 4726 JMS I XSP1+1 593 01274 4725 JMS I XSP1 594 01275 4727 JMS I XSP1+2 595 01276 4726 JMS I XSP1+1 596 01277 4730 JMS I XSP1+3 597 01300 4725 JMS I XSP1 598 01301 4731 JMS I XSP1+4 599 01302 4036 JMS Z CRLF 600 01303 4726 JMS I XSP1+1 /EAE PART 3A OF INSTRUCTION TEST Page 13 601 01304 4725 JMS I XSP1 602 01305 4732 JMS I XSP1+5 603 01306 4726 JMS I XSP1+1 604 01307 4726 JMS I XSP1+1 605 01310 7240 CLA CMA 606 01311 0125 AND Z GENX 607 01312 3123 DCA Z ACP 608 01313 4731 JMS I XSP1+4 609 01314 4036 JMS Z CRLF 610 01315 4732 JMS I XSP1+5 611 01316 4335 JMS VOR 612 01317 4727 JMS I XSP1+2 613 01320 4726 JMS I XSP1+1 614 01321 4733 JMS I XSP1+6 615 01322 4725 JMS I XSP1 616 01323 4734 JMS I XSP1+7 617 01324 5670 JMP I EMQAT2 618 619 01325 0346 XSP1, SP1 620 01326 0326 SP2 621 01327 0336 AC 622 01330 0353 PLXP 623 01331 0413 PACP 624 01332 0304 MQ 625 01333 0400 PBLXP 626 01334 0421 PBACP 627 01335 0000 VOR, 0 /PRINT INCLUSIVE OR 628 01336 7240 CLA CMA 629 01337 0152 AND Z INCOR 630 01340 4046 JMS Z PRXLOP 631 01341 5735 JMP I VOR 632 633 01342 0000 PTWO, 0 /PRINT 2 634 01343 7240 CLA CMA 635 01344 0155 AND Z TWO 636 01345 4046 JMS Z PRXLOP 637 01346 5742 JMP I PTWO 638 01347 3126 CLRL4, DCA Z BLXP 639 01350 5223 JMP RL4 640 1400 *1400 641 01400 5234 MQAT3, JMP HSE5 642 01401 4020 JMS GEN 643 01402 7340 CLL CLA CMA /CLEAR LINK 644 01403 0125 AND Z GENX 645 01404 7040 CMA /COMPLEMENT GENX PATTERN 646 01405 3123 DCA Z ACP /STORE AC PATTERN 647 01406 3124 DCA Z LXP /STORE LINK TO A ZERO 648 01407 7040 CMA 649 01410 0125 AND Z GENX 650 01411 7421 MQL /LOAD MQ /EAE PART 3A OF INSTRUCTION TEST Page 14 651 01412 7240 CLA CMA 652 01413 0123 AND Z ACP /LOAD AC WITH COMPLEMENTED GENX 653 01414 7501 MQA 654 01415 3127 DCA Z BACP /STORE RESULT OF MQA 655 01416 7620 CLA SNL 656 01417 7410 SKP 657 01420 4156 JMS Z SETL 658 01421 3126 DCA Z BLXP /STORE LINK RESULT 7777 659 01422 7240 CLA CMA 660 01423 0127 AND Z BACP /AC SHOULD EQUAL 7777 661 01424 7040 CMA 662 01425 7440 SZA 663 01426 5246 JMP MQAER3 /MQ DID NOT INCLUSIVE OR WITH AC 664 01427 7040 CMA 665 01430 0126 AND Z BLXP 666 01431 7440 SZA 667 01432 5246 JMP MQAER3 /LINK DID NOT EQUAL A ZERO 668 01433 5261 JMP NOPR3+4 669 670 01434 7300 HSE5, CLA CLL 671 01435 3125 DCA Z GENX 672 01436 1151 TAD Z XMQAT3 673 01437 3031 DCA Z BACK 674 01440 1153 TAD Z XSCAT 675 01441 3032 DCA Z NEXT 676 01442 7000 NOP 677 01443 7000 NOP 678 01444 7000 NOP 679 01445 5201 JMP MQAT3+1 680 01446 7604 MQAER3, CLA OSR /TEST SW2 681 01447 7106 RTL CLL 682 01450 7004 RAL 683 01451 7420 SNL 684 01452 5255 JMP NOPR3 /PRINT ERROR 685 01453 4666 JMS I APMQAT 686 01454 5271 JMP AMQAT3 687 01455 7604 NOPR3, CLA OSR /TEST SW0 688 01456 7104 RAL CLL 689 01457 7430 SZL 690 01460 7402 HLT 691 01461 7604 CLA OSR /TEST SW1 692 01462 7106 RTL CLL 693 01463 7430 SZL 694 01464 5202 JMP MQAT3+2 /PROGRAM LOOP 695 01465 5201 JMP MQAT3+1 /CONTINUE PROGRAM 696 01466 0667 APMQAT, PMQAT 697 01467 1455 NOPR3 698 01470 1270 EMQAT2 699 01471 4277 AMQAT3, JMS PTHREE 700 01472 7240 CLA CMA /EAE PART 3A OF INSTRUCTION TEST Page 15 701 01473 0267 AND APMQAT+1 702 01474 3670 DCA I APMQAT+2 703 01475 5676 JMP I XAT3 704 01476 1272 XAT3, AT3 705 01477 0000 PTHREE, 0 706 01500 7240 CLA CMA 707 01501 0154 AND Z THREE 708 01502 4046 JMS Z PRXLOP 709 01503 5677 JMP I PTHREE 710 1600 *1600 711 01600 4300 STEST, JMS KP1 /HOUSE KEEPING 712 01601 4020 SHLLSR, JMS Z GEN /NUMBER GENERATOR 713 01602 7360 STL CLA CMA /SET LINK (NO SHIFT GUARD) 714 01603 0125 AND Z GENX 715 01604 7421 MQL /LOAD MQ 716 01605 7413 SHL /SHIFT LEFT 717 01606 0000 LEFTS, 0 /NUMBER OF SHIFTS 718 01607 3162 DCA Z LFTAC /STORE AC SHIFTED LEFT 719 01610 7420 SNL 720 01611 5333 JMP CLLINK /CLEAR AND STORE LINK LFTAC 721 01612 5335 JMP STLINK /SET AND STORE LINK LFTAC 722 723 01613 7701 MQA CLA 724 01614 3165 DCA Z LFTMQ /STORE MQ SHIFTED LEFT 725 01615 7040 CMA 726 01616 0162 AND Z LFTAC /RESTORE AC 727 01617 7417 LSR /SHIFT RIGHT 728 01620 0000 RIGHTS, 0 729 01621 3163 DCA Z RITAC /STORE AC SHIFTED RIGHT 730 01622 7420 SNL 731 01623 5340 JMP CLRINK /CLEAR AND STORE LINK RITAC 732 01624 5342 JMP STRINK /SET AND STORE LINK RITAC 733 01625 7701 MQA CLA 734 01626 3164 DCA Z RITMQ /STORE MQ SHIFTED RIGHT 735 01627 7040 CMA 736 01630 0347 AND LFTINK 737 01631 7440 SZA 738 01632 5255 JMP SHERR /LINK EQUALS A ONE IN ERROR 739 01633 7040 CMA 740 01634 0350 AND RITINK 741 01635 7440 SZA 742 01636 5255 JMP SHERR /LINK EQUALS A ONE IN ERROR 743 01637 7040 CMA 744 01640 0163 AND Z RITAC 745 01641 7440 SZA 746 01642 5255 JMP SHERR /RITAC SHOULD EQUAL 0000 747 01643 7040 CMA 748 01644 0125 AND Z GENX 749 01645 7140 CLL CMA 750 01646 1164 TAD Z RITMQ /EAE PART 3A OF INSTRUCTION TEST Page 16 751 01647 7040 CMA 752 01650 7440 SZA 753 01651 5255 JMP SHERR /RITMQ DID NOT EQUAL GENX 754 01652 7430 SZL 755 01653 5255 JMP SHERR /RITMQ DID NOT EQUAL GENX 756 01654 5272 JMP SHERR+15 757 01655 7604 SHERR, CLA OSR /TEST SW2 758 01656 7106 RTL CLL 759 01657 7004 RAL 760 01660 7420 SNL 761 01661 5266 JMP SHERR+11 762 01662 4677 JMS I PRINT 763 01663 7000 NOP 764 01664 7000 NOP 765 01665 7000 NOP 766 01666 7604 CLA OSR /TEST SW0 767 01667 7104 RAL CLL 768 01670 7430 SZL 769 01671 7402 HLT 770 01672 7604 CLA OSR /TEST SW1 771 01673 7106 RTL CLL 772 01674 7430 SZL 773 01675 5202 JMP STEST+2 /PROGRAM LOOP 774 01676 5201 JMP SHLLSR /CONTINUE TEST 775 01677 2000 PRINT, PRINTS 776 777 01700 0000 KP1, 0 778 01701 7240 CLA CMA 779 01702 0166 AND Z K7764 /MINUS 12 780 01703 3351 DCA TWELVE /STORE 12 COUNT FOR EXIT 781 01704 3125 DCA Z GENX /DEAR GENX 782 01705 3206 DCA LEFTS /CLEAR SHIFT COUNT STORE LEFT 783 01706 7040 CMA 784 01707 0352 AND SNUM 785 01710 3161 DCA Z PRNUM /STORE SHIFT # 786 01711 7040 CMA 787 01712 0345 AND RSUB 788 01713 3031 DCA Z BACK /SW3 REPEAT SUB TEST 789 01714 7040 CMA 790 01715 0346 AND NSUB 791 01716 3032 DCA Z NEXT /SW3 NEXT TEST 792 01717 3220 DCA RIGHTS 793 01720 7040 CMA 794 01721 0353 AND PRTAA 795 01722 3754 DCA I PRTAA+1 796 01723 5700 JMP I KP1 797 01724 2206 INCSUB, ISZ LEFTS /INCREMENT SHIFT COUNT LEFT 798 01725 2220 ISZ RIGHTS /INCREMENT SHIFT COUNT RIGHT 799 01726 2161 ISZ Z PRNUM /INCREMENT SHIFT # TO PRINT 800 01727 2351 ISZ TWELVE /TWELVE SHIFT TESTS /EAE PART 3A OF INSTRUCTION TEST Page 17 801 01730 5201 JMP SHLLSR /CONTINUE PROGRAM 802 01731 5732 JMP I INCSUB+6 /JUMP TO NEXT SHIFT TEST 803 01732 2400 STEST1 804 805 01733 3347 CLLINK, DCA LFTINK /CLEAR LFTAC LINK 806 01734 5213 JMP LEFTS+5 807 01735 7040 STLINK, CMA 808 01736 3347 DCA LFTINK /SET LFTAC LINK 809 01737 5213 JMP LEFTS+5 810 01740 3350 CLRINK, DCA RITINK /CLEAR RITAC LINK 811 01741 5225 JMP RIGHTS+5 812 813 01742 7040 STRINK, CMA /SET RITAC LINK 814 01743 3350 DCA RITINK 815 01744 5225 JMP RIGHTS+5 816 817 01745 1601 RSUB, SHLLSR 818 01746 1724 NSUB, INCSUB 819 820 01747 0000 LFTINK, 0 821 01750 0000 RITINK, 0 822 01751 0000 TWELVE, 0 823 01752 2044 SNUM, TNUM 824 01753 2005 PRTAA, PRTW 825 01754 2154 PRT 826 2000 *2000 827 02000 0000 PRINTS, 0 828 02001 4036 JMS Z CRLF 829 02002 4741 JMS I Z12+15 830 02003 4643 JMS I SHLX+5 831 02004 5561 JMP I Z PRNUM 832 02005 4036 PRTW, JMS Z CRLF 833 02006 4736 JMS I Z12+12 834 02007 4737 JMS I Z12+13 835 02010 4740 JMS I Z12+14 836 02011 4637 JMS I SHLX+1 837 02012 4643 JMS I SHLX+5 838 02013 7040 CMA 839 02014 0125 AND Z GENX 840 02015 3147 DCA Z BITSTR 841 02016 4077 JMS Z MESSG 842 02017 4036 JMS Z CRLF 843 02020 4342 JMS TENSP 844 02021 4736 JMS I Z12+12 845 02022 4737 JMS I Z12+13 846 02023 4640 JMS I SHLX+2 847 02024 4637 JMS I SHLX+1 848 02025 4342 JMS TENSP 849 02026 4736 JMS I Z12+12 850 02027 4737 JMS I Z12+13 /EAE PART 3A OF INSTRUCTION TEST Page 18 851 02030 4740 JMS I Z12+14 852 02031 4637 JMS I SHLX+1 853 02032 4036 JMS Z CRLF 854 02033 4636 JMS I SHLX 855 02034 4036 JMS Z CRLF 856 02035 5600 JMP I PRINTS 857 02036 2221 SHLX, SHLP 858 859 02037 2212 RPAR 860 02040 0336 AC 861 02041 1477 PTHREE 862 02042 1342 PTWO 863 02043 0346 SP1 864 02044 5262 TNUM, JMP Z1 865 02045 5265 JMP Z2 866 02046 5267 JMP Z3 867 02047 5271 JMP Z4 868 02050 5274 JMP Z5 869 02051 5277 JMP Z6 870 02052 5302 JMP Z7 871 02053 5305 JMP Z8 872 02054 5310 JMP Z9 873 02055 5313 JMP Z10 874 02056 5317 JMP Z11 875 02057 5324 JMP Z12 876 02060 4046 PRET, JMS Z PRXLOP 877 02061 5754 JMP I PRT 878 02062 7040 Z1, CMA 879 02063 4061 JMS Z ONZER /1 880 02064 5754 JMP I PRT 881 02065 4642 Z2, JMS I SHLX+4 /2 882 02066 5754 JMP I PRT 883 02067 4641 Z3, JMS I SHLX+3 /3 884 02070 5754 JMP I PRT 885 02071 7240 Z4, CLA CMA 886 02072 0330 AND FOUR /4 887 02073 5260 JMP PRET 888 889 02074 7240 Z5, CLA CMA 890 02075 0331 AND FIVE /5 891 02076 5260 JMP PRET 892 893 02077 7240 Z6, CLA CMA 894 02100 0332 AND SIX /6 895 02101 5260 JMP PRET 896 02102 7240 Z7, CLA CMA 897 02103 0333 AND SEVEN /7 898 02104 5260 JMP PRET 899 900 02105 7240 Z8, CLA CMA /EAE PART 3A OF INSTRUCTION TEST Page 19 901 02106 0334 AND EIGHT /8 902 02107 5260 JMP PRET 903 02110 7240 Z9, CLA CMA /9 904 02111 0335 AND NINE 905 02112 5260 JMP PRET 906 02113 7040 Z10, CMA 907 02114 4061 JMS Z ONZER /10 908 02115 4061 JMS Z ONZER 909 02116 5754 JMP I PRT 910 02117 7040 Z11, CMA 911 02120 4061 JMS Z ONZER /11 912 02121 7040 CMA 913 02122 4061 JMS Z ONZER 914 02123 5754 JMP I PRT 915 02124 7040 Z12, CMA 916 02125 4061 JMS Z ONZER /12 917 02126 4642 JMS I SHLX+4 918 02127 5754 JMP I PRT 919 02130 0264 FOUR, 0264 920 02131 0265 FIVE, 0265 921 02132 0266 SIX, 0266 922 02133 0267 SEVEN, 0267 923 02134 0270 EIGHT, 0270 924 02135 0271 NINE, 0271 925 02136 2200 PC 926 02137 2205 LPAR 927 02140 0304 MQ 928 02141 3062 SHIFT 929 02142 0000 TENSP, 0 930 02143 7240 CLA CMA 931 02144 0352 AND TCOUNT 932 02145 3353 DCA SPACST /STORE MINUS TEN 933 02146 4643 JMS I SHLX+5 /PRINT 10 SPACES 934 02147 2353 ISZ SPACST 935 02150 5346 JMP TENSP+4 936 02151 5742 JMP I TENSP 937 02152 7765 TCOUNT,7765 938 02153 0000 SPACST, 0 939 02154 0000 PRT, 0 940 2200 *2200 941 02200 0000 PC, 0 942 02201 7240 CLA CMA 943 02202 0140 AND Z C 944 02203 4046 JMS Z PRXLOP 945 02204 5600 JMP I PC 946 947 02205 0000 LPAR, 0 948 02206 7240 CLA CMA 949 02207 0217 AND LPAREN 950 02210 4046 JMS Z PRXLOP /EAE PART 3A OF INSTRUCTION TEST Page 20 951 02211 5605 JMP I LPAR 952 953 02212 0000 RPAR, 0 954 02213 7240 CLA CMA 955 02214 0220 AND RPAREN 956 02215 4046 JMS Z PRXLOP 957 02216 5612 JMP I RPAR 958 959 02217 0250 LPAREN, 0250 960 02220 0251 RPAREN, 0251 961 962 02221 0000 SHLP, 0 963 02222 7240 CLA CMA 964 02223 0305 AND SX 965 02224 4046 JMS Z PRXLOP 966 02225 7040 CMA 967 02226 0304 AND HX 968 02227 4046 JMS Z PRXLOP 969 02230 4703 JMS I LX 970 02231 4706 JMS I LX+3 971 02232 7240 CLA CMA 972 02233 0707 AND I LX+4 973 02234 4061 JMS Z ONZER 974 02235 4706 JMS I LX+3 975 02236 7240 CLA CMA 976 02237 0162 AND Z LFTAC 977 02240 3147 DCA Z BITSTR 978 02241 4077 JMS Z MESSG 979 02242 4706 JMS I LX+3 980 02243 4706 JMS I LX+3 981 02244 4706 JMS I LX+3 982 02245 7240 CLA CMA 983 02246 0165 AND Z LFTMQ 984 02247 3147 DCA Z BITSTR 985 02250 4077 JMS Z MESSG 986 02251 4036 JMS Z CRLF 987 02252 4703 JMS I LX 988 02253 7240 CLA CMA 989 02254 0305 AND SX 990 02255 4046 JMS Z PRXLOP 991 02256 7240 CLA CMA 992 02257 0310 AND RX 993 02260 4046 JMS Z PRXLOP 994 02261 4706 JMS I LX+3 995 02262 7240 CLA CMA 996 02263 0711 AND I LX+6 997 02264 4061 JMS Z ONZER 998 02265 4706 JMS I LX+3 999 02266 7240 CLA CMA 1000 02267 0163 AND Z RITAC /EAE PART 3A OF INSTRUCTION TEST Page 21 1001 02270 3147 DCA Z BITSTR 1002 02271 4077 JMS Z MESSG 1003 02272 4706 JMS I LX+3 1004 02273 4706 JMS I LX+3 1005 02274 4706 JMS I LX+3 1006 02275 7240 CLA CMA 1007 02276 0164 AND Z RITMQ 1008 02277 3147 DCA Z BITSTR 1009 02300 4077 JMS Z MESSG 1010 02301 4036 JMS Z CRLF 1011 02302 5621 JMP I SHLP 1012 02303 0314 LX, L 1013 02304 0310 HX, 0310 1014 02305 0323 SX, 0323 1015 02306 0346 SP1 1016 02307 1747 LFTINK 1017 02310 0322 RX, 0322 1018 02311 1750 RITINK 1019 2400 *2400 1020 02400 4327 STEST1, JMS KP1XX /HOUSE KEEPING 1021 02401 7240 T13, CLA CMA 1022 02402 0352 AND T14X 1023 02403 3351 DCA NTST /STORE NEXT TEST ADDRESS 1024 02404 4303 JMS GENN /GENERATOR JUMP 1025 02405 4772 SCP13, JMS I TXXX 1026 02406 5205 JMP SCP13 1027 02407 4767 T14, JMS I KKKNU 1028 02410 0353 AND T14X+1 1029 02411 3351 DCA NTST 1030 02412 4303 JMS GENN 1031 02413 4772 SCP14, JMS I TXXX 1032 02414 5213 JMP SCP14 1033 02415 4767 T15, JMS I KKKNU 1034 02416 0354 AND T14X+2 1035 02417 3351 DCA NTST 1036 02420 4303 JMS GENN 1037 02421 4772 SCP15, JMS I TXXX 1038 02422 5221 JMP SCP15 1039 02423 4767 T16, JMS I KKKNU 1040 02424 0355 AND T14X+3 1041 02425 3351 DCA NTST 1042 02426 4303 JMS GENN 1043 02427 4772 SCP16, JMS I TXXX 1044 02430 5227 JMP SCP16 1045 02431 4767 T17, JMS I KKKNU 1046 02432 0356 AND T14X+4 1047 02433 3351 DCA NTST 1048 02434 4303 JMS GENN 1049 02435 4772 SCP17, JMS I TXXX 1050 02436 5235 JMP SCP17 /EAE PART 3A OF INSTRUCTION TEST Page 22 1051 02437 4767 T18, JMS I KKKNU 1052 02440 0357 AND T14X+5 1053 02441 3351 DCA NTST 1054 02442 4303 JMS GENN 1055 02443 4772 SCP18, JMS I TXXX 1056 02444 5243 JMP SCP18 1057 02445 4767 T19, JMS I KKKNU 1058 02446 0360 AND T14X+6 1059 02447 3351 DCA NTST 1060 02450 4303 JMS GENN 1061 02451 4772 SCP19, JMS I TXXX 1062 02452 5251 JMP SCP19 1063 02453 4767 T20, JMS I KKKNU 1064 02454 0361 AND T14X+7 1065 02455 3351 DCA NTST 1066 02456 4303 JMS GENN 1067 02457 4772 SCP20, JMS I TXXX 1068 02460 5257 JMP SCP20 1069 02461 4767 T21, JMS I KKKNU 1070 02462 0362 AND T14X+10 1071 02463 3351 DCA NTST 1072 02464 4303 JMS GENN 1073 02465 4772 SCP21, JMS I TXXX 1074 02466 5265 JMP SCP21 1075 02467 4767 T22, JMS I KKKNU 1076 02470 0363 AND T14X+11 1077 02471 3351 DCA NTST 1078 02472 4303 JMS GENN 1079 02473 4772 SCP22, JMS I TXXX 1080 02474 5273 JMP SCP22 1081 02475 4767 T23, JMS I KKKNU 1082 02476 0364 AND T14X+12 1083 02477 3351 DCA NTST 1084 02500 4303 JMS GENN 1085 02501 4772 SCP23, JMS I TXXX 1086 02502 5301 JMP SCP23 1087 02503 0000 GENN, 0 1088 02504 2347 CONTIN, ISZ NGEN /CONTINUE CURRENT TEST 1089 02505 7240 CLA CMA 1090 02506 0346 NCOMP, AND KKK 1091 02507 7040 CMA 1092 02510 1347 TAD NGEN 1093 02511 7040 CMA 1094 02512 7450 SNA 1095 02513 7410 SKP 1096 02514 5703 JMP I GENN 1097 02515 3347 DCA NGEN 1098 02516 7604 CLA OSR /TST SW3 1099 02517 7106 RTL CLL 1100 02520 7006 RTL /EAE PART 3A OF INSTRUCTION TEST Page 23 1101 02521 7430 SZL 1102 02522 5703 JMP I GENN 1103 02523 2771 ISZ I KX12+3 /INCREMENT SHIFT COUNTER LEFT 1104 02524 2770 ISZ I KX12+2 /INCREMENT SHIFT COUNTER RIGHT 1105 02525 2161 ISZ Z PRNUM /INCREMENT SHIFT NUMBER TO PRINT 1106 02526 5751 JMP I NTST 1107 02527 0000 KP1XX, 0 1108 02530 7240 CLA CMA 1109 02531 0365 AND K4000 1110 02532 3346 DCA KKK 1111 02533 3347 DCA NGEN 1112 1113 02534 1366 TAD KX12 1114 02535 3771 DCA I KX12+3 1115 02536 1366 TAD KX12 1116 02537 3770 DCA I KX12+2 1117 02540 1345 TAD PPPNUM 1118 02541 3161 DCA Z PRNUM /PRINT NUMBERS 13 TO 23 1119 02542 1373 TAD PRTTA 1120 02543 3774 DCA I PRZTA 1121 02544 5727 JMP I KP1XX 1122 02545 3000 PPPNUM, PPNUM 1123 1124 02546 0000 KKK, 0 1125 02547 0000 NGEN, 0 1126 02550 0000 ELEVEN, 0 1127 02551 0000 NTST, 0 1128 02552 2407 T14X, T14 1129 02553 2415 T15 1130 02554 2423 T16 1131 02555 2431 T17 1132 02556 2437 T18 1133 02557 2445 T19 1134 02560 2453 T20 1135 02561 2461 T21 1136 02562 2467 T22 1137 02563 2475 T23 1138 02564 3200 STEST2 1139 02565 4000 K4000, 4000 1140 02566 0014 KX12, 0014 1141 02567 2600 KKKNU, KKKN 1142 02570 2631 RITXXX 1143 02571 2617 LFTXXX 1144 02572 2610 TXXX, TXXXX 1145 02573 2005 PRTTA, PRTW 1146 02574 3060 PRZTA, PRTT 1147 2600 *2600 1148 02600 0000 KKKN, 0 1149 02601 7340 CLL CLA CMA /COMPARE CONSTANTS FOR TESTS 1150 02602 0607 AND I KKKN+7 /EAE PART 3A OF INSTRUCTION TEST Page 24 1151 02603 7010 RAR 1152 02604 3607 DCA I KKKN+7 1153 02605 7040 CMA 1154 02606 5600 JMP I KKKN 1155 02607 2546 KKK 1156 1157 02610 0000 TXXXX, 0 /SCOPE MODE RETURN INDIRECT 1158 02611 7240 CLA CMA 1159 02612 0700 AND I NGENX 1160 02613 7421 MQL /LOAD MQ 1161 02614 7040 CMA 1162 02615 0301 AND K2525 /LOAD AC 2525 (OCTAL) 1163 02616 7413 SHL /SHIFT LEFT 1164 02617 0000 LFTXXX, 0 1165 02620 3162 DCA Z LFTAC /STORE AC SHIFTED LEFT 1166 02621 7420 SNL 1167 02622 5266 JMP CLLI /CLEAR AND STORE LEFT LINK 1168 02623 5270 JMP CLLI+2 /SET AND STORE LEFT LINK 1169 02624 7701 MQA CLA 1170 02625 3165 DCA Z LFTMQ /STORE MQ SHIFTED LEFT 1171 02626 7040 CMA 1172 02627 0162 AND Z LFTAC /RESTORE AC 1173 02630 7417 LSR /SHIFT RIGHT 1174 02631 0000 RITXXX, 0 1175 02632 3163 DCA Z RITAC /STORE AC SHIFTED RIGHT 1176 02633 7420 SNL 1177 02634 5273 JMP CRLI /CLEAR AND STORE RIGHT LINK 1178 02635 5275 JMP CRLI+2 1179 02636 7701 MQA CLA 1180 02637 3164 DCA Z RITMQ /STORE MQ SHIFTED RIGHT 1181 02640 7040 CMA 1182 02641 0702 AND I LLIN 1183 02642 7440 SZA 1184 02643 5307 JMP SHERRX /LINK EQUALS A ONE IN ERROR 1185 02644 7040 CMA 1186 02645 0703 AND I RLIN 1187 02646 7440 SZA 1188 02647 5307 JMP SHERRX /LINK EQUALS A ONE IN ERROR 1189 02650 7040 CMA 1190 02651 0163 AND Z RITAC 1191 02652 7440 SZA 1192 02653 5307 JMP SHERRX /RITAC SHOULD EQUAL 0000 1193 02654 7040 CMA 1194 02655 0700 AND I NGENX 1195 02656 7140 CLL CMA 1196 02657 1164 TAD Z RITMQ 1197 02660 7040 CMA 1198 02661 7440 SZA 1199 02662 5307 JMP SHERRX /RITMQ DID NOT EQUAL NGEN 1200 02663 7430 SZL /EAE PART 3A OF INSTRUCTION TEST Page 25 1201 02664 5307 JMP SHERRX /RITMQ DID NOT QUEAL NGEN 1202 02665 5324 JMP SHERRX+15 1203 02666 3702 CLLI, DCA I LLIN /CLEAR LEFT LINK STORE 1204 02667 5224 JMP LFTXXX+5 1205 02670 7040 CMA 1206 02671 3702 DCA I LLIN /SET LEFT LINK STORE 1207 02672 5224 JMP LFTXXX+5 1208 02673 3703 CRLI, DCA I RLIN /CLEAR RIGHT LINK STORE 1209 02674 5236 JMP RITXXX+5 1210 02675 7040 CMA /SET RIGHT LINK STORE 1211 02676 3703 DCA I RLIN 1212 02677 5236 JMP RITXXX+5 1213 02700 2547 NGENX, NGEN 1214 02701 2525 K2525, 2525 1215 02702 1747 LLIN, LFTINK 1216 02703 1750 RLIN, RITINK 1217 02704 2503 NNEG, GENN 1218 02705 2000 PRINTS 1219 02706 2504 TINUE, CONTIN 1220 1221 02707 7604 SHERRX, CLA OSR /TEST SE2 1222 02710 7106 RTL CLL 1223 02711 7004 RAL 1224 02712 7420 SNL 1225 02713 5320 JMP SHERRX+11 1226 02714 7240 CLA CMA 1227 02715 0700 AND I NGENX 1228 02716 3125 DCA Z GENX 1229 02717 4705 JMS I TINUE-1 1230 02720 7604 CLA OSR /TEST SW0 1231 02721 7104 RAL CLL 1232 02722 7430 SZL 1233 02723 7402 HLT 1234 02724 7604 CLA OSR /TEST SW1 1235 02725 7106 RTL CLL 1236 02726 7430 SZL 1237 02727 5610 JMP I TXXXX /SCOPE MODE 1238 02730 5706 JMP I TINUE /CONTINUE MODE 1239 1240 /DPI PAUSE 1241 1242 /EAE PART 3A OF INSTRUCTION TEST - TAPE 2 1243 3000 *3000 1244 03000 5213 PPNUM, JMP Z13 1245 03001 5215 JMP Z14 1246 03002 5217 JMP Z15 1247 03003 5221 JMP Z16 1248 03004 5223 JMP Z17 1249 03005 5225 JMP Z18 1250 03006 5227 JMP Z19 /EAE PART 3A OF INSTRUCTION TEST Page 26 1251 03007 5231 JMP Z20 1252 03010 5235 JMP Z21 1253 03011 5240 JMP Z22 1254 03012 5243 JMP Z23 1255 1256 03013 4245 Z13, JMS ONEONE /1 1257 03014 5651 JMP I PRT3 /3 1258 03015 4245 Z14, JMS ONEONE /1 1259 03016 5652 JMP I PRT3+1 /4 1260 03017 4245 Z15, JMS ONEONE /1 1261 03020 5653 JMP I PRT3+2 /5 1262 03021 4245 Z16, JMS ONEONE /1 1263 03022 5654 JMP I PRT3+3 /6 1264 03023 4245 Z17, JMS ONEONE /1 1265 03024 5655 JMP I PRT3+4 /7 1266 03025 4245 Z18, JMS ONEONE /1 1267 03026 5656 JMP I PRT3+5 /8 1268 03027 4245 Z19, JMS ONEONE /1 1269 03030 5657 JMP I PRT3+6 /9 1270 03031 4661 Z20, JMS I TWOTWO /2 1271 03032 7040 CMA 1272 03033 4245 JMS ONEONE /0 1273 03034 5660 JMP I PRTT 1274 03035 4661 Z21, JMS I TWOTWO /2 1275 03036 4245 JMS ONEONE /1 1276 03037 5660 JMP I PRTT 1277 03040 4661 Z22, JMS I TWOTWO /2 1278 03041 4661 JMS I TWOTWO /2 1279 03042 5660 JMP I PRTT 1280 03043 4661 Z23, JMS I TWOTWO /2 1281 03044 5651 JMP I PRT3 /3 1282 1283 03045 0000 ONEONE, 0 /PRINT ONE 1284 03046 7040 CMA 1285 03047 4061 JMS Z ONZER 1286 03050 5645 JMP I ONEONE 1287 03051 2067 PRT3, Z3 1288 03052 2071 Z4 1289 03053 2074 Z5 1290 03054 2077 Z6 1291 03055 2102 Z7 1292 03056 2105 Z8 1293 03057 2110 Z9 1294 03060 0000 PRTT, 0 1295 03061 1342 TWOTWO, PTWO 1296 1297 03062 0000 SHIFT, 0 1298 03063 7040 CMA 1299 03064 0303 AND SS /S 1300 03065 4046 JMS Z PRXLOP /EAE PART 3A OF INSTRUCTION TEST Page 27 1301 03066 7040 CMA 1302 03067 0304 AND SS+1 /H 1303 03070 4046 JMS Z PRXLOP 1304 03071 7040 CMA 1305 03072 0305 AND SS+2 /I 1306 03073 4046 JMS Z PRXLOP 1307 03074 7040 CMA 1308 03075 0306 AND SS+3 /F 1309 03076 4046 JMS Z PRXLOP 1310 03077 7040 CMA 1311 03100 0135 AND Z TT /T 1312 03101 4046 JMS Z PRXLOP 1313 03102 5662 JMP I SHIFT 1314 1315 03103 0323 SS, 0323 1316 03104 0310 0310 1317 03105 0311 0311 1318 03106 0306 0306 1319 3200 *3200 1320 03200 4312 STEST2, JMS HSKK 1321 03201 4245 JMS GENRR 1322 03202 7300 CLA CLL /CLEAR LINK 1323 03203 7421 MQL /CLEAR AC AND MQ 1324 03204 7040 CMA 1325 03205 0167 AND Z XK400 /SET BIT 0 1326 03206 7415 ASR 1327 03207 0000 ASRSHF, 0 /SHIFT # OF PLACES 1328 03210 3162 DCA Z LFTAC /STORE AC 1329 03211 7501 MQA 1330 03212 3165 DCA Z LFTMQ /STORE MQ 1331 03213 7420 SNL 1332 03214 5271 JMP SSINK+1 /CLEAR AND STORE LINK 1333 03215 5270 JMP SSINK /SET AND STORE LINK 1334 03216 7240 CLA CMA 1335 03217 0162 AND Z LFTAC /AC CONTENTS 1336 03220 7140 CLL CMA 1337 03221 1273 TAD ACCOMP /AC COMPARE CONSTANTS 1338 03222 7040 CMA 1339 03223 7440 SZA 1340 03224 5342 JMP ASRERR /ASR ERROR (AC IN ERROR) 1341 03225 7430 SZL 1342 03226 5342 JMP ASRERR /ASR ERROR (AC IN ERROR) 1343 03227 7040 CMA 1344 03230 0165 AND Z LFTMQ /MQ CONTENTS 1345 03231 7140 CMA CLL 1346 03232 1274 TAD MQCOMP /MQ COMPARE CONSTANTS 1347 03233 7040 CMA 1348 03234 7440 SZA 1349 03235 5342 JMP ASRERR /ASR ERROR (MQ IN ERROR) 1350 03236 7430 SZL /EAE PART 3A OF INSTRUCTION TEST Page 28 1351 03237 5342 JMP ASRERR /ASR ERROR (MQ IN ERROR) 1352 03240 7240 CLA CMA 1353 03241 0677 AND I LLLLNK /AC LINK 1354 03242 7450 SNA 1355 03243 5342 JMP ASRERR /LINK ERROR (DID NOT EQUAL A ONE) 1356 03244 5356 JMP TSSW0+4 1357 1358 03245 0000 GENRR, 0 1359 03246 7240 CLA CMA 1360 03247 0410 AND I Z ACIND /AC AUTO INDEX PATTERN COMPARE 1361 03250 3273 DCA ACCOMP 1362 03251 7040 CMA 1363 03252 0411 AND I Z MQIND /MQ AUTO INDEX PATTERN COMPARE 1364 03253 3274 DCA MQCOMP 1365 03254 2207 ISZ ASRSHF /INCREMENT SHIFT # 1366 03255 2161 ISZ Z PRNUM /INCREMENT ASR PRINT # 1367 03256 2275 ISZ ASREX /INCREMENT TEST COUNT 1368 03257 5645 JMP I GENRR 1369 03260 2363 ISZ REEE 1370 03261 5200 JMP STEST2 1371 03262 7604 CLA OSR /TEST SW3 1372 03263 7106 RTL CLL 1373 03264 7006 RTL 1374 03265 7430 SZL 1375 03266 5200 JMP STEST2 /REPEAT TEST 1376 03267 5700 JMP I SSTEST /EXIT TO NEXT PROGRAM 1377 /DPI THE LISTING IS MESSED UP HERE AND THIS SHOWS AS (SPACE)SINK, CMA 1378 03270 7040 SSINK, CMA 1379 03271 3677 DCA I LLLLNK /STORE LINK 1380 03272 5216 JMP ASRSHF+7 1381 1382 03273 0000 ACCOMP, 0 1383 03274 0000 MQCOMP, 0 1384 03275 0000 ASREX, 0 1385 03276 7750 ASREXX, 7750 1386 03277 1747 LLLLNK, LFTINK 1387 03300 4000 SSTEST, STEST3 1388 03301 3502 MQAUT, MQAUTX 1389 03302 3516 ACAUT, ACAUTX 1390 03303 3601 STPR, ASRPNU+1 1391 03304 3400 TYPE 1392 03305 2154 PRT 1393 03306 3060 PRTT 1394 03307 3405 TYPRE 1395 03310 3546 TYPE2 1396 03311 3414 TYPEA 1397 1398 03312 0000 HSKK, 0 1399 03313 7240 CLA CMA 1400 03314 0307 AND ASREXX+11 /EAE PART 3A OF INSTRUCTION TEST Page 29 1401 03315 3705 DCA I ASREXX+7 1402 03316 7040 CMA 1403 03317 0307 AND ASREXX+11 1404 03320 3706 DCA I ASREXX+10 1405 03321 7040 CMA 1406 03322 0302 AND ACAUT 1407 03323 3010 DCA Z ACIND 1408 03324 7040 CMA 1409 03325 0301 AND MQAUT 1410 03326 3011 DCA Z MQIND 1411 03327 7040 CMA 1412 03330 3207 DCA ASRSHF 1413 03331 7040 CMA 1414 03332 0303 AND STPR 1415 03333 3161 DCA Z PRNUM 1416 03334 7040 CMA 1417 03335 0276 AND ASREXX 1418 03336 3275 DCA ASREX 1419 03337 7000 NOP 1420 03340 7000 NOP 1421 03341 5712 JMP I HSKK 1422 03342 7604 ASRERR, CLA OSR 1423 03343 7106 RTL CLL /TEST SW2 1424 03344 7004 RAL 1425 03345 7420 SNL 1426 03346 5352 JMP TSSW0 1427 03347 4704 JMS I ASREXX+6 /PRINT ERROR 1428 03350 4710 JMS I ASREXX+12 1429 03351 4711 JMS I ASREXX+13 1430 03352 7604 TSSW0, CLA OSR 1431 03353 7104 RAL CLL /TEST SW0 1432 03354 7430 SZL 1433 03355 7402 HLT 1434 03356 7604 CLA OSR /TEST SW1 1435 03357 7106 RTL CLL 1436 03360 7430 SZL 1437 03361 5202 JMP STEST2+2 /SCOPE MODE 1438 03362 5201 JMP STEST2+1 /CONTINUE MODE 1439 03363 0000 REEE, 0 1440 3400 *3400 1441 03400 0000 TYPE, 0 1442 03401 4036 JMS Z CRLF 1443 03402 4666 JMS I ASHIFT 1444 03403 4667 JMS I ASHIFT+1 1445 03404 5561 JMP I Z PRNUM 1446 03405 4036 TYPRE, JMS Z CRLF 1447 03406 4670 JMS I ASHIFT+2 1448 03407 4671 JMS I TYLPAR 1449 03410 4672 JMS I ASHIFT+4 1450 03411 4673 JMS I TYRPAR /EAE PART 3A OF INSTRUCTION TEST Page 30 1451 03412 4667 JMS I ASHIFT+1 1452 03413 5600 JMP I TYPE 1453 1454 03414 0000 TYPEA, 0 1455 03415 4036 JMS Z CRLF 1456 03416 4674 JMS I ASHIFT+6 1457 03417 4670 JMS I ASHIFT+2 1458 03420 4671 JMS I TYLPAR 1459 03421 4672 JMS I ASHIFT+4 1460 03422 4673 JMS I TYRPAR 1461 03423 4674 JMS I ASHIFT+6 1462 03424 4670 JMS I ASHIFT+2 1463 03425 4671 JMS I TYLPAR 1464 03426 4675 JMS I ASHIFT+7 1465 03427 4673 JMS I TYRPAR 1466 03430 4036 JMS Z CRLF 1467 03431 7240 CLA CMA 1468 03432 0137 AND Z A 1469 03433 4046 JMS Z PRXLOP 1470 03434 7240 CLA CMA 1471 03435 0276 AND TYS 1472 03436 4046 JMS Z PRXLOP 1473 03437 7240 CLA CMA 1474 03440 0277 AND TYR 1475 03441 4046 JMS Z PRXLOP 1476 03442 4667 JMS I ASHIFT+1 1477 03443 4667 JMS I ASHIFT+1 1478 03444 4667 JMS I ASHIFT+1 1479 03445 7240 CLA CMA 1480 03446 0700 AND I TYLI 1481 03447 4061 JMS Z ONZER 1482 03450 4667 JMS I ASHIFT+1 1483 03451 7240 CLA CMA 1484 03452 0162 AND Z LFTAC 1485 03453 3147 DCA Z BITSTR 1486 03454 4077 JMS Z MESSG 1487 03455 4667 JMS I ASHIFT+1 1488 03456 4667 JMS I ASHIFT+1 1489 03457 4667 JMS I ASHIFT+1 1490 03460 7240 CLA CMA 1491 03461 0165 AND Z LFTMQ 1492 03462 3147 DCA Z BITSTR 1493 03463 4077 JMS Z MESSG 1494 03464 4036 JMS Z CRLF 1495 03465 5614 JMP I TYPEA 1496 03466 3062 ASHIFT, SHIFT 1497 03467 0346 SP1 1498 03470 2200 PC 1499 03471 2205 TYLPAR, LPAR 1500 03472 0336 AC /EAE PART 3A OF INSTRUCTION TEST Page 31 1501 03473 2212 TYRPAR, RPAR 1502 03474 2142 TENSP 1503 03475 0304 MQ 1504 03476 0323 TYS, 0323 1505 03477 0322 TYR, 0322 1506 03500 1747 TYLI, LFTINK 1507 03501 3777 KA3777, 3777 1508 1509 03502 0000 MQAUTX, 0 1510 03503 0000 0 1511 03504 0000 0 1512 03505 0000 0 1513 03506 0000 0 1514 03507 0000 0 1515 03510 0000 0 1516 03511 0000 0 1517 03512 0000 0 1518 03513 0000 0 1519 03514 0000 0 1520 03515 0000 0 1521 03516 4000 ACAUTX, 4000 1522 03517 6000 6000 1523 03520 7000 7000 1524 03521 7400 7400 1525 03522 7600 7600 1526 03523 7700 7700 1527 03524 7740 7740 1528 03525 7760 7760 1529 03526 7770 7770 1530 03527 7774 7774 1531 03530 7776 7776 1532 03531 7777 7777 1533 03532 7777 7777 1534 03533 7777 7777 1535 03534 7777 7777 1536 03535 7777 7777 1537 03536 7777 7777 1538 03537 7777 7777 1539 03540 7777 7777 1540 03541 7777 7777 1541 03542 7777 7777 1542 03543 7777 7777 1543 03544 7777 7777 1544 03545 7777 7777 1545 /DPI THIS WAS RELOCATED HERE SO AS TO GENERATE A CORRECT BINARY. 1546 /DPI THE LISTING WAS PRINTED OUT OF ORDER. IT SHOWED AS STARTING 1547 /DPI RIGHT AFTER ADDRESS 3645 BUT WITH ADDRESS 3545 1548 03546 0000 TYPE2, 0 1549 03547 7200 CLA 1550 03550 4061 JMS Z ONZER /EAE PART 3A OF INSTRUCTION TEST Page 32 1551 03551 4667 JMS I ASHIFT+1 1552 03552 7240 CLA CMA 1553 03553 0316 AND ACAUTX 1554 03554 3147 DCA Z BITSTR 1555 03555 4077 JMS Z MESSG 1556 03556 5746 JMP I TYPE2 1557 1558 03557 0000 TYPE3, 0 1559 03560 7240 CLA CMA 1560 03561 4061 JMS Z ONZER 1561 03562 4667 JMS I ASHIFT+1 1562 03563 7240 CLA CMA 1563 03564 0301 AND KA3777 1564 03565 3147 DCA Z BITSTR 1565 03566 4077 JMS Z MESSG 1566 03567 5757 JMP I TYPE3 1567 3600 *3600 1568 03600 0000 ASRPNU, 0 1569 03601 5630 JMP I TY1 1570 03602 5631 JMP I TY1+1 1571 03603 5632 JMP I TY1+2 1572 03604 5633 JMP I TY1+3 1573 03605 5634 JMP I TY1+4 1574 03606 5635 JMP I TY1+5 1575 03607 5636 JMP I TY1+6 1576 03610 5637 JMP I TY1+7 1577 03611 5640 JMP I TY1+10 1578 03612 5641 JMP I TY1+11 1579 03613 5642 JMP I TY1+12 1580 03614 5643 JMP I TY1+13 1581 03615 5644 JMP I TY1+14 1582 03616 5645 JMP I TY1+15 1583 03617 5646 JMP I TY1+16 1584 03620 5647 JMP I TY1+17 1585 03621 5650 JMP I TY1+20 1586 03622 5651 JMP I TY1+21 1587 03623 5652 JMP I TY1+22 1588 03624 5653 JMP I TY1+23 1589 03625 5654 JMP I TY1+24 1590 03626 5655 JMP I TY1+25 1591 03627 5656 JMP I TY1+26 1592 03630 2062 TY1, Z1 1593 03631 2065 Z2 1594 03632 2067 Z3 1595 03633 2071 Z4 1596 03634 2074 Z5 1597 03635 2077 Z6 1598 03636 2102 Z7 1599 03637 2105 Z8 1600 03640 2110 Z9 /EAE PART 3A OF INSTRUCTION TEST Page 33 1601 03641 2113 Z10 1602 03642 2117 Z11 1603 03643 2124 Z12 1604 03644 3013 Z13 1605 03645 3015 Z14 1606 /DPI THIS IS WHERE THE LISTING WAS OUT OF SEQUENCE 1607 03646 3017 Z15 1608 03647 3021 Z16 1609 03650 3023 Z17 1610 03651 3025 Z18 1611 03652 3027 Z19 1612 03653 3031 Z20 1613 03654 3035 Z21 1614 03655 3040 Z22 1615 03656 3043 Z23 1616 03657 0000 MQCLC, 0 1617 03660 7777 7777 1618 03661 7777 7777 1619 03662 7777 7777 1620 03663 7777 7777 1621 03664 7777 7777 1622 03665 7777 7777 1623 03666 7777 7777 1624 03667 7777 7777 1625 03670 7777 7777 1626 03671 7777 7777 1627 03672 7777 7777 1628 03673 3777 ACCLC, 3777 1629 03674 1777 1777 1630 03675 0777 0777 1631 03676 0377 0377 1632 03677 0177 0177 1633 03700 0077 0077 1634 03701 0037 0037 1635 03702 0017 0017 1636 03703 0007 0007 1637 03704 0003 0003 1638 03705 0001 0001 1639 03706 0000 0000 1640 03707 0000 0000 1641 03710 0000 0000 1642 03711 0000 0000 1643 03712 0000 0000 1644 03713 0000 0000 1645 03714 0000 0000 1646 03715 0000 0000 1647 03716 0000 0000 1648 03717 0000 0000 1649 03720 0000 0000 1650 03721 0000 0000 /EAE PART 3A OF INSTRUCTION TEST Page 34 1651 03722 0000 0000 1652 1653 4000 *4000 1654 04000 4336 STEST3, JMS HKEEP 1655 04001 4313 JMS GNNN 1656 04002 7360 CLA CMA STL /SET LINK 1657 04003 7421 MQL 1658 04004 7040 CMA 1659 04005 0303 AND TEST4+5 /AC TEST PATTERM 1660 04006 7415 ASR 1661 04007 0000 ASR3, 0 1662 04010 3162 DCA Z LFTAC /STORE AC 1663 04011 7501 MQA 1664 04012 3165 DCA Z LFTMQ /STORE MQ 1665 04013 7420 SNL 1666 04014 5246 JMP SXLINK+1 /CLEAR AND STORE LINK 1667 04015 5245 JMP SXLINK /SET AND STORE LINK 1668 04016 7240 CXSX, CLA CMA 1669 04017 0162 AND Z LFTAC /AC CONTENTS 1670 04020 7140 CLL CMA 1671 04021 1273 TAD ACCHK /AC COMPARE CONSTANTS 1672 04022 7040 CMA 1673 04023 7440 SZA 1674 04024 5250 JMP AASREX /ASR ERROR (AC IN ERROR) 1675 04025 7430 SZL 1676 04026 5250 JMP AASREX /ASR ERROR (AC IN ERROR) 1677 04027 7040 CMA 1678 04030 0165 AND Z LFTMQ /MQ CONTENTS 1679 04031 7140 CLL CMA 1680 04032 1274 TAD MQCHK /MQ COMPARE CONSTANTS 1681 04033 7040 CMA 1682 04034 7440 SZA 1683 04035 5250 JMP AASREX /ASR ERROR (MQ IN ERROR) 1684 04036 7430 SZL 1685 04037 5250 JMP AASREX /ASR ERROR (MQ IN ERROR) 1686 04040 7240 CLA CMA 1687 04041 0702 AND I LIINK /AC LINK 1688 04042 7440 SZA 1689 04043 5250 JMP AASREX /LINK ERROR (DID NOT EQUAL ZERO) 1690 04044 5261 JMP AS3PR-5 1691 1692 04045 7040 SXLINK, CMA 1693 04046 3702 DCA I LIINK 1694 04047 5216 JMP CXSX 1695 04050 7604 AASREX, CLA OSR /TEST SW2 1696 04051 7106 RTL CLL 1697 04052 7004 RAL 1698 04053 7430 SZL 1699 04054 4266 JMS AS3PR /PRINT ERROR 1700 04055 7604 CLA OSR /TEST SW0 /EAE PART 3A OF INSTRUCTION TEST Page 35 1701 04056 7104 RAL CLL 1702 04057 7430 SZL 1703 04060 7402 HLT /ERROR HALT STEST3 1704 04061 7604 CLA OSR /TEST SW1 1705 04062 7106 RTL CLL 1706 04063 7430 SZL 1707 04064 5202 JMP STEST3+2 /SCOPE MODE 1708 04065 5201 JMP STEST3+1 /CONTINUE MODE 1709 1710 04066 0000 AS3PR, 0 1711 04067 4701 JMS I .+12 1712 04070 4700 JMS I .+10 1713 04071 4677 JMS I .+6 1714 04072 5666 JMP I .-4 1715 1716 04073 0000 ACCHK, 0 1717 04074 0000 MQCHK, 0 1718 04075 0000 ASREXT, 0 1719 04076 4200 TEST4, NORMT /NORMALIZE TEST 1720 04077 3414 TYPEA 1721 04100 3557 TYPE3 1722 04101 3400 TYPE 1723 04102 1747 LIINK, LFTINK 1724 04103 3777 3777 1725 04104 3405 TYPRE 1726 04105 2154 PRT 1727 04106 3060 PRTT 1728 04107 3673 ACCLC 1729 1730 04110 7750 7750 1731 04111 3601 ASRPNU+1 1732 04112 3657 MQCLC 1733 04113 0000 GNNN, 0 1734 04114 7240 CLA CMA 1735 04115 0410 AND I Z ACIND /AC AUTO INDEX PATTERN COMPARE 1736 04116 3273 DCA ACCHK 1737 04117 7040 CMA 1738 04120 0411 AND I Z MQIND /MQ AUTO INDEX PATTERN COMPARE 1739 04121 3274 DCA MQCHK 1740 04122 2207 ISZ ASR3 /INCREMENT SHIFT # 1741 04123 2161 ISZ Z PRNUM /INCREMENT ASR PRINT # 1742 04124 2275 ISZ ASREXT /INCREMENT TEST COUNT 1743 04125 5713 JMP I GNNN 1744 04126 2364 ISZ REEEE 1745 04127 5200 JMP STEST3 1746 04130 7604 CLA OSR /TEST SW3 1747 04131 7106 RTL CLL 1748 04132 7006 RTL 1749 04133 7430 SZL 1750 04134 5200 JMP STEST3 /REPEAT TEST /EAE PART 3A OF INSTRUCTION TEST Page 36 1751 04135 5676 JMP I TEST4 1752 04136 0000 HKEEP, 0 1753 04137 7240 CLA CMA 1754 04140 0304 AND TEST4+6 1755 04141 3705 DCA I TEST4+7 1756 04142 7040 CMA 1757 04143 0304 AND TEST4+6 1758 04144 3706 DCA I TEST4+10 1759 04145 7040 CMA 1760 04146 0307 AND TEST4+11 1761 04147 3010 DCA Z ACIND 1762 04150 7040 CMA 1763 04151 0312 AND TEST4+14 1764 04152 3011 DCA Z MQIND 1765 04153 7040 CMA 1766 04154 3207 DCA ASR3 1767 04155 7040 CMA 1768 04156 0311 AND TEST4+13 1769 04157 3161 DCA Z PRNUM 1770 04160 7040 CMA 1771 04161 0310 AND TEST4+12 1772 04162 3275 DCA ASREXT 1773 04163 5736 JMP I HKEEP 1774 04164 0000 REEEE, 0 1775 4200 *4200 1776 04200 5267 NORMT, JMP HSENMI 1777 04201 4321 JMS GXEN 1778 04202 7240 CLA CMA 1779 04203 0314 AND MQNMIX 1780 1781 04204 7421 MQL /LOAD MQ INDEXED PATTERN 1782 04205 7040 CMA 1783 04206 0313 AND ACNMIX /LOAD AC INDEX PATTERN 1784 04207 7411 NMI 1785 04210 3316 DCA ACNMIN /STORE AC 1786 04211 7501 MQA 1787 04212 3315 DCA MQNMIN /STORE MQ 1788 04213 7441 SCA 1789 04214 3307 DCA SCAST /STORE SCA COUNT 1790 04215 7040 CMA 1791 04216 0316 AND ACNMIN 1792 04217 7140 CLL CMA 1793 04220 1310 TAD NMIODD /6000 1794 04221 7040 CMA 1795 04222 7440 SZA 1796 04223 5250 JMP NMIERR /AC DID NOT EQUAL 6000 1797 04224 7430 SZL 1798 04225 5250 JMP NMIERR /AC DID NOT EQUAL 6000 1799 04226 7240 CLA CMA 1800 04227 0315 AND MQNMIN /EAE PART 3A OF INSTRUCTION TEST Page 37 1801 04230 7440 SZA 1802 04231 5250 JMP NMIERR /MQ DID NOT EQUAL 0000 1803 04232 7040 CMA 1804 04233 0307 AND SCAST 1805 04234 7140 CLL CMA 1806 04235 1312 TAD SCASTX /INDEXED STEP COUNT # 1807 04236 7040 CMA 1808 04237 7440 SZA 1809 04240 5250 JMP NMIERR /SC IN ERROR 1810 04241 7430 SZL 1811 04242 5250 JMP NMIERR /SC IN ERROR 1812 04243 7240 CLA CMA 1813 04244 0312 AND SCASTX /TEST SCA COUNT FOR 0 1814 04245 7440 SZA /TO EXIT 1815 04246 5262 JMP NMIERR+12 /CONTINUE TEST 1816 04247 5301 JMP EXINMI 1817 04250 7604 NMIERR, CLA OSR /TEST SW2 1818 04251 7106 RTL CLL 1819 04252 7004 RAL 1820 04253 7420 SNL 1821 04254 7410 SKP 1822 04255 4720 JMS I SCAST+11 /JUMP TO PRINT ROUTINE 1823 04256 7604 CLA OSR 1824 04257 7104 RAL CLL 1825 04260 7430 SZL /TEST SW0 1826 04261 7402 HLT 1827 04262 7604 CLA OSR 1828 04263 7106 RTL CLL 1829 04264 7430 SZL /TEST SW1 1830 04265 5202 JMP NORMT+2 1831 04266 5201 JMP NORMT+1 1832 04267 7240 HSENMI, CLA CMA 1833 04270 0336 AND ACNMIQ 1834 04271 3012 DCA XACNMI /AC AUTO START ADDRESS 1835 04272 7040 CMA 1836 04273 0337 AND MQNMIQ 1837 04274 3013 DCA XMQNMI /MQ AUTO START ADDRESS 1838 04275 7040 CMA 1839 04276 0311 AND SCC23 /SC 23 1840 04277 3312 DCA SCASTX /STORE DECIMAL 23 1841 04300 5201 JMP NORMT+1 1842 04301 7604 EXINMI, CLA OSR /TEST SW3 1843 04302 7106 RTL CLL 1844 04303 7006 RTL 1845 04304 7430 SZL 1846 04305 5200 JMP NORMT /REPEAT ENTIRE TEST 1847 04306 5717 JMP I SCAST+10 /JMP TO NEXT NMI TEST 1848 04307 0000 SCAST, 0 1849 04310 6000 NMIODD, 6000 1850 04311 0027 SCC23, 0027 /23 DECIMAL /EAE PART 3A OF INSTRUCTION TEST Page 38 1851 04312 0000 SCASTX, 0 1852 04313 0000 ACNMIX, 0 1853 04314 0000 MQNMIX, 0 1854 04315 0000 MQNMIN, 0 1855 04316 0000 ACNMIN, 0 1856 04317 5000 NORMT1 1857 04320 4400 PRNMI 1858 04321 0000 GXEN, 0 1859 04322 7240 CLA CMA 1860 04323 0412 AND I Z XACNMI 1861 04324 3313 DCA ACNMIX /STORE AC PATTERN 1862 04325 7040 CMA 1863 04326 0413 AND I Z XMQNMI 1864 04327 3314 DCA MQNMIX /STORE MQ PATTERN 1865 04330 7040 CMA 1866 04331 0312 AND SCASTX /SUBTRACT ONE FROM SCA COUNT 1867 04332 7041 CIA 1868 04333 7040 CMA 1869 04334 3312 DCA SCASTX /STORE DECREMENTED SCA COUNT 1870 04335 5340 JMP EXEN 1871 04336 4517 ACNMIQ, ACNMI 1872 04337 4533 MQNMIQ, MQNMI 1873 04340 7240 EXEN, CLA CMA 1874 04341 0312 AND SCASTX 1875 04342 7440 SZA 1876 04343 5721 JMP I GXEN 1877 04344 5301 JMP EXINMI 1878 4400 *4400 1879 04400 0000 PRNMI, 0 /PRINT ROUTINE 1880 04401 4036 JMS Z CRLF 1881 04402 4712 JMS I SPR2+16 1882 04403 4674 JMS I SPR2 1883 04404 4674 JMS I SPR2 1884 04405 4674 JMS I SPR2 1885 04406 4675 JMS I SPR2+1 1886 04407 4676 JMS I SPR2+2 1887 04410 4677 JMS I SPR2+3 1888 04411 4700 JMS I SPR2+4 1889 04412 4701 JMS I SPR2+5 1890 04413 4675 JMS I SPR2+1 1891 04414 4676 JMS I SPR2+2 1892 04415 4702 JMS I SPR2+6 1893 04416 4700 JMS I SPR2+4 1894 04417 4036 JMS Z CRLF 1895 04420 4674 JMS I SPR2 1896 04421 4674 JMS I SPR2 1897 04422 4674 JMS I SPR2 1898 04423 7240 CLA CMA 1899 04424 0703 AND I SPR2+7 1900 04425 3147 DCA Z BITSTR /EAE PART 3A OF INSTRUCTION TEST Page 39 1901 04426 4077 JMS Z MESSG 1902 04427 4674 JMS I SPR2 1903 04430 4704 JMS I SPR2+10 1904 04431 7240 CLA CMA 1905 04432 0705 AND I SPR2+11 1906 04433 3147 DCA Z BITSTR 1907 04434 4077 JMS Z MESSG 1908 04435 4036 JMS Z CRLF 1909 04436 4713 JMS I SPR2+17 1910 04437 4674 JMS I SPR2 1911 04440 4704 JMS I SPR2+10 1912 04441 7240 CLA CMA 1913 04442 0706 AND I SPR2+12 1914 04443 3147 DCA Z BITSTR 1915 04444 4077 JMS Z MESSG 1916 04445 4674 JMS I SPR2 1917 04446 4704 JMS I SPR2+10 1918 04447 7240 CLA CMA 1919 04450 0707 AND I SPR2+13 1920 04451 3147 DCA Z BITSTR 1921 04452 4077 JMS Z MESSG 1922 04453 4036 JMS Z CRLF 1923 04454 4714 JMS I SPR2+20 1924 04455 4674 JMS I SPR2 1925 04456 7240 CLA CMA 1926 04457 0710 AND I SPR2+14 1927 04460 3147 DCA Z BITSTR 1928 04461 4077 JMS Z MESSG 1929 04462 4036 JMS Z CRLF 1930 04463 4715 JMS I SPR2+21 1931 04464 4674 JMS I SPR2 1932 04465 4704 JMS I SPR2+10 1933 04466 7240 CLA CMA 1934 04467 0711 AND I SPR2+15 1935 04470 3147 DCA Z BITSTR 1936 04471 4077 JMS Z MESSG 1937 04472 4036 JMS Z CRLF 1938 04473 5600 JMP I PRNMI 1939 04474 0326 SPR2, SP2 1940 04475 2200 PC 1941 04476 2205 LPAR 1942 04477 0336 AC 1943 04500 2212 RPAR 1944 04501 2142 TENSP 1945 04502 0304 MQ 1946 04503 4313 ACNMIX 1947 04504 0346 SP1 1948 04505 4314 MQNMIX 1949 04506 4316 ACNMIN 1950 04507 4315 MQNMIN /EAE PART 3A OF INSTRUCTION TEST Page 40 1951 04510 4312 SCASTX 1952 04511 4307 SCAST 1953 04512 4600 NMITPR 1954 04513 4624 NMIXX 1955 04514 4627 SCATXX 1956 04515 4633 SCAXX 1957 04516 0000 0 1958 1959 04517 0000 ACNMI, 0 1960 04520 7777 7777 /SC22 1961 04521 7777 7777 /SC21 1962 04522 7777 7777 /SC 20 1963 04523 7777 7777 /SC 19 1964 04524 7777 7777 /SC 18 1965 04525 7777 7777 /SC 17 1966 04526 7777 7777 /SC 16 1967 04527 7777 7777 /SC 15 1968 04530 7777 7777 /SC 14 1969 04531 7777 7777 /SC 13 1970 04532 7777 7777 /SC 12 1971 04533 7777 MQNMI, 7777 /SC 11 1972 04534 7777 7777 /SC 10 1973 /DPI 77'& /SC 9 1974 04535 7776 7776 /SC 9 CORRECTED FROM ABOVE LINE 1975 04536 7774 7774 /SC 8 1976 04537 7770 7770 /SC 7 1977 04540 7760 7760 /SC 6 1978 04541 7740 7740 /SC 5 1979 04542 7700 7700 /SC 4 1980 04543 7600 7600 /SC 3 1981 04544 7400 7400 /SC 2 1982 04545 7000 7000 /SC 1 1983 04546 6000 6000 /SC 0 1984 04547 4000 4000 1985 04550 0000 0000 1986 04551 0000 0000 1987 04552 0000 0000 1988 04553 0000 0 1989 04554 0000 0 1990 04555 0000 0 1991 04556 0000 0 1992 04557 0000 0 1993 04560 0000 0 1994 04561 0000 0 1995 04562 0000 0 1996 04563 0000 0 1997 04564 0000 0 1998 4600 *4600 1999 04600 0000 NMITPR, 0 2000 04601 4204 JMS PNORM /EAE PART 3A OF INSTRUCTION TEST Page 41 2001 04602 4217 JMS XNORMT 2002 04603 5600 JMP I NMITPR 2003 04604 0000 PNORM, 0 2004 04605 7240 CLA CMA 2005 04606 0256 AND N 2006 04607 4046 JMS Z PRXLOP 2007 04610 7240 CLA CMA 2008 04611 0257 AND N+1 2009 04612 4046 JMS Z PRXLOP 2010 04613 7240 CLA CMA 2011 04614 0260 AND N+2 2012 04615 4046 JMS Z PRXLOP 2013 04616 5604 JMP I PNORM 2014 04617 0000 XNORMT, 0 2015 2016 04620 7240 CLA CMA 2017 04621 0261 AND N+3 2018 04622 4046 JMS Z PRXLOP 2019 04623 5617 JMP I XNORMT 2020 04624 0000 NMIXX, 0 2021 04625 4204 JMS PNORM 2022 04626 5624 JMP I NMIXX 2023 04627 0000 SCATXX, 0 2024 04630 4236 JMS PSTEP 2025 04631 4251 JMS PSTEPT 2026 04632 5627 JMP I SCATXX 2027 04633 0000 SCAXX, 0 2028 04634 4236 JMS PSTEP 2029 04635 5633 JMP I SCAXX 2030 04636 0000 PSTEP, 0 2031 04637 7240 CLA CMA 2032 04640 0262 AND N+4 2033 04641 4046 JMS Z PRXLOP 2034 04642 7240 CLA CMA 2035 04643 0263 AND N+5 2036 04644 4046 JMS Z PRXLOP 2037 04645 7240 CLA CMA 2038 04646 0264 AND N+6 2039 04647 4046 JMS Z PRXLOP 2040 04650 5636 JMP I PSTEP 2041 04651 0000 PSTEPT, 0 2042 04652 7240 CLA CMA 2043 04653 0261 AND N+3 2044 04654 4046 JMS Z PRXLOP 2045 04655 5651 JMP I PSTEPT 2046 04656 0316 N, 0316 /N 2047 04657 0315 0315 /M 2048 04660 0311 0311 /I 2049 04661 0324 0324 /T 2050 04662 0323 0323 /S /EAE PART 3A OF INSTRUCTION TEST Page 42 2051 04663 0303 0303 /C 2052 04664 0301 0301 /A 2053 5000 *5000 2054 05000 5261 NORMT1, JMP HSENM 2055 05001 4272 JMS GENNMI 2056 05002 7240 CLA CMA 2057 05003 0715 AND I TST25+1 /LOAD MQ PATTERN 2058 05004 7421 MQL 2059 05005 7240 CLA CMA 2060 05006 0716 AND I TST25+2 /LOAD AC PATTERN 2061 05007 7411 NMI 2062 05010 3724 DCA I TST25+10 /STORE NORMALIZED AC 2063 05011 7501 MQA 2064 05012 3725 DCA I TST25+11 /STORE NORMALIZED MQ 2065 05013 7441 SCA 2066 05014 3726 DCA I TST25+12 /STORE THE SCA COUNT 2067 05015 7240 CLA CMA 2068 05016 0724 AND I TST25+10 2069 05017 7140 CLL CMA 2070 05020 1715 TAD I TST25+1 2071 05021 7040 CMA 2072 05022 7440 SZA 2073 05023 5332 JMP NMERR /AC DID NOT EQUAL 2525 2074 05024 7430 SZL 2075 05025 5332 JMP NMERR /AC DID NOT EQUAL 2525 2076 05026 7240 CLA CMA 2077 05027 0725 AND I TST25+11 2078 05030 7440 SZA 2079 05031 5332 JMP NMERR /MQ DID NOT EQUAL 0000 2080 05032 7240 CLA CMA 2081 05033 0726 AND I TST25+12 2082 05034 7140 CLL CMA 2083 05035 1330 TAD DEC12 /DECIMAL 12 2084 05036 7040 CMA 2085 05037 7440 SZA 2086 05040 5332 JMP NMERR /SC DID NOT EQUAL 12 2087 05041 7430 SZL 2088 05042 5332 JMP NMERR /SC DID NOT EQUAL 12 2089 05043 2314 ISZ TST25 /REPEAT CURRENT TEST PATTERN 2090 05044 5202 JMP NORMT1+2 2091 05045 7604 CLA OSR /TEST SW1 2092 05046 7106 RTL CLL 2093 05047 7430 SZL 2094 05050 5202 JMP NORMT1+2 2095 05051 2321 ISZ NMFLG 2096 2097 05052 5201 JMP NORMT1+1 2098 05053 7604 CLA OSR /TEST SW3 2099 05054 7106 RTL CLL 2100 05055 7006 RTL /EAE PART 3A OF INSTRUCTION TEST Page 43 2101 05056 7430 SZL 2102 05057 5200 JMP NORMT1 2103 05060 5723 JMP I NEXNMI 2104 05061 7200 HSENM, CLA 2105 05062 3314 DCA TST25 /CLEAR TEST COUNTER 2106 05063 7000 NOP 2107 05064 7040 CMA 2108 05065 0322 AND NM7776 2109 05066 3321 DCA NMFLG 2110 05067 1330 TAD DEC12 2111 05070 3727 DCA I TST25+13 2112 05071 5201 JMP NORMT1+1 2113 05072 0000 GENNMI, 0 2114 05073 7240 CLA CMA 2115 05074 0321 AND NMFLG 2116 05075 7040 CMA 2117 05076 7440 SZA 2118 05077 5301 JMP PA2525 /GENERATE 2525 2119 05100 5306 JMP PA2525+5 /GENERATE 5252 2120 05101 7240 PA2525, CLA CMA 2121 05102 0317 AND NM2525 /MQ PATTERN 2525 2122 05103 3715 DCA I TST25+1 2123 05104 3716 DCA I TST25+2 /AC PATTERN 0000 2124 05105 5672 JMP I GENNMI 2125 05106 7240 CLA CMA 2126 05107 0320 AND NM5252 /MQ PATTERN 5252 2127 05110 3715 DCA I TST25+1 2128 05111 7040 CMA 2129 05112 3716 DCA I TST25+2 /AC PATTERN 7777 2130 05113 5672 JMP I GENNMI 2131 05114 0000 TST25, 0 2132 05115 4314 MQNMIX 2133 05116 4313 ACNMIX 2134 05117 2525 NM2525, 2525 2135 05120 5252 NM5252, 5252 2136 05121 0000 NMFLG, 0 2137 05122 7776 NM7776, 7776 2138 05123 5200 NEXNMI, NORMT2 2139 05124 4316 ACNMIN 2140 05125 4315 MQNMIN 2141 05126 4307 SCAST 2142 05127 4312 SCASTX 2143 05130 0014 DEC12, 0014 2144 05131 4400 PRNMI 2145 05132 7604 NMERR, CLA OSR /TEST SW2 2146 05133 7106 RTL CLL 2147 05134 7004 RAL 2148 05135 7420 SNL 2149 05136 7410 SKP 2150 05137 4731 JMS I DEC12+1 /EAE PART 3A OF INSTRUCTION TEST Page 44 2151 05140 7604 CLA OSR 2152 05141 7104 RAL CLL 2153 05142 7430 SZL /TEST SW0 2154 05143 7402 HLT 2155 05144 7604 CLA OSR /TEST SW1 2156 05145 7106 RTL CLL 2157 05146 7420 SNL 2158 05147 5202 JMP NORMT1+2 /CONTINUE 2159 05150 7200 CLA 2160 05151 3314 DCA TST25 /CLEAR CURRENT TEST COUNTER 2161 05152 5202 JMP NORMT1+2 /SCOPE 2162 5200 *5200 2163 2164 05200 5307 NORMT2, JMP HKE /HOUSE KEEPING 2165 05201 4255 JMS GEX /PATTERN GENERATOR 2166 05202 7621 CAM 2167 05203 7040 CMA 2168 05204 0734 AND I PAT01 2169 05205 7421 MQL /MQ PATTERN 2170 05206 7140 CLL CMA 2171 05207 0735 AND I PAT00 /AC PATTERN 2172 05210 7411 NMI 2173 05211 3736 DCA I SPAT00 /STORE AC NORMALIZED PATTERN 2174 05212 7501 MQA 2175 05213 3737 DCA I SPAT01 /STORE MQ NORMALIZED PATTERN 2176 05214 7441 SCA 2177 05215 3743 DCA I SCANM /STORE SCA COUNT 2178 05216 7040 CMA 2179 05217 0736 AND I SPAT00 /AC PATTERN 2180 05220 7040 CMA 2181 05221 1340 TAD CHKAC /CHECK PATTERN AC 2182 05222 7040 CMA 2183 05223 7440 SZA /TEST AC BITS 2184 05224 5314 JMP MT2ER /SPAT00 NOT EQUAL TO CHKAC 2185 05225 7430 SZL 2186 05226 5314 JMP MT2ER /SPAT00 NOT EQUAL TO CHKAC 2187 05227 7040 CMA 2188 05230 0737 AND I SPAT01 /MQ PATTERN 2189 05231 7040 CMA 2190 05232 1341 TAD CHKMQ /CHECK PATTERN MQ 2191 05233 7040 CMA 2192 05234 7440 SZA /TEST MQ BITS 2193 05235 5314 JMP MT2ER /SPAT01 NOT EQUAL TO CHKMQ 2194 05236 7430 SZL 2195 05237 5314 JMP MT2ER /SPAT01 NOT EQUAL TO CHKMQ 2196 05240 7040 CMA 2197 05241 0743 AND I SCANM /SCA COUNT PATTERN 2198 05242 7041 CIA 2199 05243 1742 TAD I CHKSCA /CHECK PATTERN SCA 2200 05244 7420 SNL /EAE PART 3A OF INSTRUCTION TEST Page 45 2201 05245 5314 JMP MT2ER /SCANM NOT EQUAL TO CHKSCA 2202 05246 2345 ISZ AGAIN /4096 REPEATS CURRENT TEST 2203 05247 5202 JMP NORMT2+2 2204 05250 7604 NMTS1, CLA OSR /TEST SW1 2205 05251 7106 RTL CLL 2206 05252 7430 SZL 2207 05253 5202 JMP NORMT2+2 2208 05254 5354 JMP PATCH /JUMP TO SW3 2209 05255 0000 GEX, 0 2210 05256 7240 CLA CMA 2211 05257 0346 AND TPFLAG 2212 05260 7040 CMA 2213 05261 7440 SZA 2214 05262 5264 JMP .+2 /GENERATE 0000 MQ PATTERN 2215 05263 5273 JMP .+10 /GENERATE 0001 MQ PATTERN 2216 05264 7200 CLA 2217 05265 3735 DCA I PAT00 /STORE AC PATTERN 2218 05266 3734 DCA I PAT01 /STORE MQ PATTERN 2219 05267 3340 DCA CHKAC /STORE AC CHECK 2220 05270 3341 DCA CHKMQ /STORE MQ CHECK 2221 05271 3742 DCA I CHKSCA /STORE SCA CHECK 2222 05272 5655 JMP I GEX 2223 05273 7240 CLA CMA 2224 05274 0344 AND SCANM+1 /MQ PATTERN (0001) 2225 05275 3734 DCA I PAT01 /STORE MQ PATTERN 2226 05276 7040 CMA 2227 05277 0347 AND TPFLAG+1 /22 DECIMAL PLACES (0030) 2228 05300 3742 DCA I CHKSCA 2229 05301 3735 DCA I PAT00 /STORE AC PATTERN 2230 05302 3341 DCA CHKMQ /STORE MQ CHECK 2231 05303 7040 CMA 2232 05304 0350 AND TPFLAG+2 /20000 2233 05305 3340 DCA CHKAC /STORE AC CHECK 2234 05306 5655 JMP I GEX 2235 2236 05307 7240 HKE, CLA CMA /HOUSE KEEPING 2237 05310 0351 AND TPFLAG+3 /7776 2238 05311 3346 DCA TPFLAG /LOAD FLAG 2239 05312 3345 DCA AGAIN /CHECK TEST COUNTER 2240 05313 5201 JMP NORMT2+1 2241 05314 7604 MT2ER, CLA OSR /TEST SW2 2242 05315 7106 RTL CLL 2243 05316 7004 RAL 2244 05317 7430 SZL 2245 05320 4752 JMS I TPFLAG+4 /PRINT ROUTINE 2246 05321 7604 CLA OSR /TEST SE0 2247 05322 7104 RAL CLL 2248 05323 7430 SZL 2249 05324 7402 HLT 2250 05325 5250 JMP NMTS1 /EAE PART 3A OF INSTRUCTION TEST Page 46 2251 05326 7604 NMTS3, CLA OSR /TEST SE3 2252 05327 7106 RTL CLL 2253 05330 7006 RTL 2254 05331 7430 SZL 2255 05332 5200 JMP NORMT2 /CONTINUE 2256 05333 5753 JMP I TPFLAG+5 2257 05334 4314 PAT01, MQNMIX 2258 05335 4313 PAT00, ACNMIX 2259 05336 4316 SPAT00, ACNMIN 2260 05337 4315 SPAT01, MQNMIN 2261 05340 0000 CHKAC, 0 2262 05341 0000 CHKMQ, 0 2263 05342 4312 CHKSCA, SCASTX 2264 05343 4307 SCANM, SCAST 2265 05344 0001 0001 2266 05345 0000 AGAIN, 0 2267 05346 0000 TPFLAG, 0 2268 05347 0026 0026 2269 05350 2000 2000 2270 05351 7776 7776 2271 05352 4400 PRNMI 2272 05353 5400 E3A 2273 05354 2346 PATCH, ISZ TPFLAG 2274 05355 5201 JMP NORMT2+1 2275 05356 5326 JMP NMTS3 2276 2277 5400 *5400 2278 2279 05400 4036 E3A, JMS Z CRLF 2280 05401 7240 CLA CMA 2281 05402 0154 AND Z THREE /3 2282 05403 4046 JMS Z PRXLOP 2283 05404 7040 CMA 2284 05405 0137 AND Z A /A 2285 05406 4046 JMS Z PRXLOP 2286 05407 5610 JMP I .+1 2287 2288 05410 0200 BIGL, MQLT 2289 $ No detected errors No links generated