1 /EAE PART 3A OF INSTRUCTION TEST 2 3 CAM=7621 4 SCA=7441 5 NMI=7411 6 ASR=7415 7 MQL=7421 8 MQA=7501 9 LSR=7417 10 SHL=7413 11 SCL=7403 12 13 *0000 14 000000 0000 0 15 000001 5001 JMP . /HANG IF WE GET HERE 16 000002 0002 . 17 000003 0003 . 18 19 *0020 20 000020 0000 GEN, 0 21 000021 2125 ISZ Z GENX 22 000022 5420 JMP I GEN 23 000023 7604 CLA OSR /TEST SW 3 24 000024 7106 RTL CLL 25 000025 7006 RTL 26 000026 7430 SZL 27 000027 5431 JMP I BACK 28 000030 5432 JMP I NEXT 29 000031 0000 BACK, 0000 30 000032 0000 NEXT, 0000 31 000033 0427 XMQLT1, MQLT1 32 000034 0600 XMQAT, MQAT 33 000035 1000 XMQAT1, MQAT1 34 35 000036 0000 CRLF, 0 36 000037 7240 CLA CMA 37 000040 0130 AND CR /CR 38 000041 4046 JMS PRXLOP 39 000042 7240 CLA CMA 40 000043 0131 AND LF /LF 41 000044 4046 JMS PRXLOP 42 000045 5436 JMP I CRLF 43 44 000046 0000 PRXLOP, 0 45 000047 6046 TLS /PRINT LOOP 46 000050 6041 TSF 47 000051 5050 JMP .-1 48 000052 7200 CLA 49 000053 5446 JMP I PRXLOP 50 51 000054 0000 PLINK, 0 52 000055 7240 CLA CMA 53 000056 0143 AND LINK /LINK 54 000057 4061 JMS ONZER 55 000060 5454 JMP I PLINK 56 57 000061 0000 ONZER, 0 58 000062 7440 SZA 59 000063 5066 JMP ONEP /PRINT ONE 60 000064 4072 JMS ZEROR /PRINT ZERO 61 000065 5461 JMP I ONZER 62 000066 7240 ONEP, CLA CMA /ONE 63 000067 0141 AND ONE 64 000070 4046 JMS PRXLOP 65 000071 5461 JMP I ONZER 66 000072 0000 ZEROR, 0 67 000073 7240 CLA CMA 68 000074 0142 AND ZERO /ZERO 69 000075 4046 JMS PRXLOP 70 000076 5472 JMP I ZEROR 71 72 000077 0000 MESSG, 0 73 000100 7240 CLA CMA 74 000101 0145 AND COUNTX 75 000102 3146 DCA STRCNT 76 000103 2146 ISZ STRCNT 77 000104 7410 SKP 78 000105 5477 JMP I MESSG 79 000106 7240 CLA CMA 80 000107 0147 AND BITSTR 81 000110 7100 CLL 82 000111 7004 RAL 83 000112 3147 DCA BITSTR 84 000113 7430 SZL 85 000114 5117 JMP PRONE 86 000115 4072 JMS ZEROR 87 000116 5103 JMP .-13 88 000117 7240 PRONE, CLA CMA 89 000120 0141 AND ONE /ONE 90 000121 4046 JMS PRXLOP 91 000122 5103 JMP MESSG+4 92 000123 0000 ACP, 0 /GOOD AC 93 000124 0000 LXP, 0 /GOOD LINK 94 000125 0000 GENX, 0 95 000126 0000 BLXP, 0 /BAD LINK 96 000127 0000 BACP, 0 /BAD AC 97 000130 0215 CR, 0215 /CARRIAGE RETURN 98 000131 0212 LF, 0212 /LINE FEED 99 000132 0315 M, 0315 /M 100 000133 0321 Q, 0321 /Q 101 000134 0314 LL, 0314 /L 102 000135 0324 TT, 0324 /T 103 000136 0240 SP, 0240 /SPACE 104 000137 0301 A, 0301 /A 105 000140 0303 C, 0303 /C 106 000141 0261 ONE, 0261 /1 107 000142 0260 ZERO, 0260 /0 108 000143 0000 LINK, 0 109 000144 0255 TO, 0255 /DASH 110 000145 7763 COUNTX, 7763 111 000146 0000 STRCNT, 0 112 000147 0000 BITSTR, 0 113 000150 1200 XMQAT2, MQAT2 114 000151 1400 XMQAT3, MQAT3 115 000152 0326 INCOR, 0326 /V 116 000153 1600 XSCAT, STEST 117 000154 0263 THREE, 0263 /3 118 000155 0262 TWO, 0262 119 000156 0000 SETL, 0 120 000157 7240 CLA CMA 121 000160 5556 JMP I SETL 122 123 000161 0000 PRNUM, 0 124 000162 0000 LFTAC, 0 125 000163 0000 RITAC, 0 126 000164 0000 RITMQ, 0 127 000165 0000 LFTMQ, 0 128 000166 7764 K7764, 7764 129 000167 4000 XK400, 4000 130 000170 5400 SCLTST, TSTSCL 131 132 *0010 133 000010 0000 ACIND, 0 134 000011 0000 MQIND, 0 135 000012 0000 XACNMI, 0 136 000013 0000 XMQNMI, 0 137 *200 138 000200 4570 JMS I SCLTST /TEST SCL AND SCA 139 000201 5247 MQLT, JMP HSE /HOUSE KEEPING 140 000202 4020 JMS Z GEN 141 000203 7360 STL CLA CMA /SET LINK 142 000204 0125 AND Z GENX 143 000205 3123 DCA Z ACP /STORE AC PATTERN 144 000206 7240 CLA CMA 145 000207 3124 DCA Z LXP /STORE LINK TO A ONE 146 000210 7040 CMA 147 000211 0123 AND Z ACP /LOAD AC 148 000212 7421 MQL 149 000213 3127 DCA Z BACP /STORE AC RESULT 150 000214 7620 CLA SNL 151 000215 5367 JMP XPACP+5 /STORE LINK RESULT 0000 152 000216 4156 JMS Z SETL 153 000217 3126 DCA Z BLXP /STORE LINK RESULT 7777 154 000220 7040 CMA 155 000221 0127 AND Z BACP 156 000222 7440 SZA 157 000223 5231 JMP .+6 /AC NOT EQUAL TO 0000 158 000224 7240 CLA CMA 159 000225 0126 AND BLXP 160 000226 7450 SNA 161 000227 5231 JMP .+2 /LINK NOT EQUAL TO A ONE 162 000230 5242 JMP .+12 /CONTINUE TEST MQLT 163 164 000231 7604 CLA OSR /TEST SW2 165 000232 7106 RTL CLL 166 000233 7004 RAL 167 000234 7430 SZL 168 000235 4260 JMS PMQLT /PRINT ERROR 169 000236 7704 CLL CLA OSR /TEST SW 0 170 000237 7004 RAL 171 000240 7430 SZL 172 000241 7402 HLT /HALT MQLT ERROR 173 000242 7604 CLA OSR 174 000243 7106 RTL CLL /TEST SW1 175 000244 7430 SZL 176 000245 5203 JMP MQLT+2 /PROGRAM LOOP 177 000246 5202 JMP MQLT+1 /CONTINUE PROGRAM 178 000247 7300 HSE, CLA CLL 179 000250 3125 DCA Z GENX 180 000251 1366 TAD XPACP+4 181 000252 3031 DCA Z BACK 182 000253 1033 TAD Z XMQLT1 183 000254 3032 DCA Z NEXT 184 000255 7000 NOP 185 000256 7000 NOP 186 000257 5202 JMP MQLT+1 187 000260 0000 PMQLT, 0 /PRINT ROUTINE 188 000261 4036 JMS Z CRLF 189 000262 4305 JMS MQ 190 000263 4315 JMS L 191 000264 4322 JMS T 192 000265 4036 CP, JMS Z CRLF 193 000266 4327 JMS SP2 194 000267 4337 JMS AC 195 000270 4327 JMS SP2 196 000271 4354 JMS PLXP 197 000272 4347 JMS SP1 198 000273 4762 JMS I XPACP 199 000274 4036 JMS Z CRLF 200 000275 4072 JMS Z ZEROR 201 000276 4763 JMS I XPACP+1 /RIGHT ARROW 202 000277 4337 JMS AC 203 000300 4327 JMS SP2 204 000301 4764 JMS I XPACP+2 205 000302 4347 JMS SP1 206 000303 4765 JMS I XPACP+3 207 000304 5660 JMP I PMQLT /RETURN TO SWITCH ROUTINE 208 209 000305 0000 MQ, 0 210 000306 7240 CLA CMA 211 000307 0132 AND Z M /M 212 000310 4046 JMS Z PRXLOP 213 000311 7240 CLA CMA 214 000312 0133 AND Z Q /Q 215 000313 4046 JMS Z PRXLOP 216 000314 5705 JMP I MQ 217 218 000315 0000 L, 0 219 000316 7240 CLA CMA 220 000317 0134 AND Z LL /L 221 000320 4046 JMS Z PRXLOP 222 000321 5715 JMP I L 223 224 000322 0000 T, 0 225 000323 7240 CLA CMA /T 226 000324 0135 AND Z TT 227 000325 4046 JMS Z PRXLOP 228 000326 5722 JMP I T 229 230 000327 0000 SP2, 0 231 000330 7240 CLA CMA 232 000331 0136 AND Z SP /SP 233 000332 4046 JMS Z PRXLOP 234 000333 7240 CLA CMA 235 000334 0136 AND Z SP /SP 236 000335 4046 JMS Z PRXLOP 237 000336 5727 JMP I SP2 238 000337 0000 AC, 0 239 000340 7240 CLA CMA 240 000341 0137 AND Z A /A 241 000342 4046 JMS Z PRXLOP 242 000343 7240 CLA CMA 243 000344 0140 AND Z C /C 244 000345 4046 JMS Z PRXLOP 245 000346 5737 JMP I AC 246 247 000347 0000 SP1, 0 248 000350 7240 CLA CMA 249 000351 0136 AND Z SP /SP 250 000352 4046 JMS Z PRXLOP 251 000353 5747 JMP I SP1 252 253 000354 0000 PLXP, 0 254 000355 7240 CLA CMA 255 000356 0124 AND Z LXP /GOOD LINK 256 000357 3143 DCA Z LINK 257 000360 4054 JMS Z PLINK 258 000361 5754 JMP I PLXP 259 000362 0413 XPACP, PACP 260 000363 0406 PTO 261 000364 0400 PBLXP 262 000365 0421 PBACP 263 000366 0201 MQLT 264 000367 3126 DCA Z BLXP 265 000370 5220 JMP MQLT+17 266 *400 267 000400 0000 PBLXP, 0 268 000401 7240 CLA CMA 269 000402 0126 AND Z BLXP /BAD LINK 270 000403 3143 DCA Z LINK 271 000404 4054 JMS Z PLINK 272 000405 5600 JMP I PBLXP 273 274 000406 0000 PTO, 0 275 000407 7240 CLA CMA 276 000410 0144 AND TO /RIGHT ARROW 277 000411 4046 JMS Z PRXLOP 278 000412 5606 JMP I PTO 279 280 000413 0000 PACP, 0 281 000414 7240 CLA CMA 282 000415 0123 AND Z ACP /ACP 283 000416 3147 DCA Z BITSTR 284 000417 4077 JMS Z MESSG 285 000420 5613 JMP I PACP 286 287 000421 0000 PBACP, 0 288 000422 7240 CLA CMA 289 000423 0127 AND Z BACP /BACP 290 000424 3147 DCA Z BITSTR 291 000425 4077 JMS Z MESSG 292 000426 5621 JMP I PBACP 293 294 000427 5256 MQLT1, JMP HSE1 295 000430 4020 JMS GEN 296 000431 7340 CLL CLA CMA /CLEAR LINK 297 000432 0125 AND Z GENX 298 000433 3123 DCA Z ACP /STORE AC PATTERN 299 000434 3124 DCA Z LXP /STORE LINK TO A ZERO 300 000435 7040 CMA 301 000436 0123 AND Z ACP /LOAD AC 302 000437 7421 MQL 303 000440 3127 DCA Z BACP /STORE AC RESULT 304 000441 7620 CLA SNL 305 000442 5332 JMP XONE+6 /STORE LINK RESULT 0000 306 000443 4156 JMS Z SETL 307 000444 3126 DCA Z BLXP /STORE LINK RESULT 7777 308 000445 7040 CMA 309 000446 0127 AND Z BACP 310 000447 7440 SZA 311 000450 5270 JMP .+20 /AC NOT EQUAL TO 0000 312 000451 7240 CLA CMA 313 000452 0126 AND Z BLXP 314 000453 7440 SZA 315 000454 5270 JMP .+14 /LINK NOT EQUAL TO A ZERO 316 000455 5301 JMP MQ1+4 /CONTINUE TEST MQLT1 317 318 000456 7300 HSE1, CLA CLL 319 000457 3125 DCA Z GENX 320 000460 1033 TAD Z XMQLT1 321 000461 3031 DCA Z BACK 322 000462 1034 TAD Z XMQAT 323 000463 3032 DCA Z NEXT 324 000464 7000 NOP 325 000465 7000 NOP 326 000466 7000 NOP 327 000467 5230 JMP MQLT1+1 328 329 000470 7604 CLA OSR /TEST SW2 330 000471 7106 RTL CLL 331 000472 7004 RAL 332 000473 7430 SZL 333 000474 5307 JMP XMQ1+1 /PRINT ERROR 334 000475 7604 MQ1, CLA OSR /TEST SW0 335 000476 7104 RAL CLL 336 000477 7430 SZL 337 000500 7402 HLT 338 000501 7604 CLA OSR 339 000502 7106 RTL CLL 340 000503 7430 SZL 341 000504 5231 JMP MQLT1+2 /PROGRAM LOOP 342 000505 5230 JMP MQLT1+1 /CONTINUE PROGRAM 343 000506 0475 XMQ1, MQ1 344 000507 7240 CLA CMA 345 000510 0306 AND XMQ1 346 000511 3731 DCA I XONE+5 347 000512 4036 JMS Z CRLF 348 000513 4721 JMS I XCP+1 349 000514 4722 JMS I XCP+2 350 000515 4723 JMS I XCP+3 351 000516 4324 JMS XONE 352 000517 5720 JMP I XCP 353 000520 0265 XCP, CP 354 000521 0305 MQ 355 000522 0315 L 356 000523 0322 T 357 358 000524 0000 XONE, 0 359 000525 7240 CLA CMA /ONE 360 000526 0141 AND Z ONE 361 000527 4046 JMS Z PRXLOP 362 000530 5724 JMP I XONE 363 000531 0260 PMQLT 364 000532 3126 DCA Z BLXP 365 000533 5245 JMP MQLT1+16 366 *600 367 000600 5235 MQAT, JMP HSE2 368 000601 4020 JMS GEN 369 000602 7360 STL CLA CMA /SET LINK 370 000603 0125 AND Z GENX 371 000604 3123 DCA Z ACP /STORE AC PATTERN 372 000605 7240 CLA CMA 373 000606 3124 DCA Z LXP /STORE LINK TO A ONE 374 /VRS DCA I LXP /STORE LINK TO A ONE 375 000607 7040 CMA 376 000610 0123 AND Z ACP /LOAD AC 377 000611 7421 MQL /LOAD MQ FROM AC 378 000612 7501 MQA /LOAD AC FROM MP 379 000613 3127 DCA Z BACP /STORE RESULT OF MQL MQA 380 000614 7620 CLA SNL 381 000615 5347 JMP YA+5 /STORE LINK RESULT 0000 382 000616 4156 JMS Z SETL 383 000617 3126 DCA BLXP 384 000620 7040 RL2, CMA 385 000621 0123 AND Z ACP /COMPARE ACP WITH BACP 386 000622 7140 CLL CMA 387 000623 1127 TAD Z BACP 388 000624 7040 CMA 389 000625 7450 SNA 390 000626 7430 SZL 391 000627 5247 JMP HSE2+12 /MQ DID NOT EQUAL AC 392 000630 7240 CLA CMA 393 000631 0126 AND Z BLXP 394 000632 7450 SNA 395 000633 5247 JMP HSE2+12 /LINK DID NOT EQUAL A ONE 396 000634 5262 JMP PMQAT-5 397 398 000635 7300 HSE2, CLA CLL 399 000636 3125 DCA Z GENX 400 000637 1034 TAD Z XMQAT 401 000640 3031 DCA Z BACK 402 000641 1035 TAD Z XMQAT1 403 000642 3032 DCA Z NEXT 404 000643 7000 NOP 405 000644 7000 NOP 406 000645 7000 NOP 407 000646 5201 JMP MQAT+1 408 000647 7604 CLA OSR /TEST SW2 409 000650 7106 RTL CLL 410 000651 7004 RAL 411 000652 7420 SNL 412 000653 5256 JMP .+3 413 000654 4267 JMS PMQAT /PRINT ERROR 414 000655 4274 JMS MQA1 415 000656 7604 CLA OSR /TEST SW0 416 000657 7104 RAL CLL 417 000660 7430 SZL 418 000661 7402 HLT 419 000662 7604 CLA OSR /TEST SW1 420 000663 7106 RTL CLL 421 000664 7430 SZL 422 000665 5202 JMP MQAT+2 /PROGRAM LOOP 423 000666 5201 JMP MQAT+1 /CONTINUE PROGRAM 424 000667 0000 PMQAT, 0 425 000670 4036 JMS Z CRLF 426 000671 4726 JMS I YSP2+5 427 000672 4332 JMS AT 428 000673 5667 JMP I PMQAT 429 430 000674 0000 MQA1, 0 431 000675 4036 JMS Z CRLF 432 000676 4724 JMS I YSP2+3 433 000677 4721 JMS I YSP2 434 000700 4721 JMS I YSP2 435 000701 4722 JMS I YSP2+1 436 000702 4721 JMS I YSP2 437 000703 4723 JMS I YSP2+2 438 000704 4724 JMS I YSP2+3 439 000705 4725 JMS I YSP2+4 440 000706 4036 JMS Z CRLF 441 000707 4726 JMS I YSP2+5 442 000710 4727 JMS I YSP2+6 443 000711 4724 JMS I YSP2+3 444 000712 4726 JMS I YSP2+5 445 000713 4342 JMS YA 446 000714 4721 JMS I YSP2 447 000715 4730 JMS I YSP2+7 448 000716 4724 JMS I YSP2+3 449 000717 4731 JMS I YSP2+10 450 000720 5674 JMP I MQA1 451 000721 0327 YSP2, SP2 452 000722 0337 AC 453 000723 0354 PLXP 454 000724 0347 SP1 455 000725 0413 PACP 456 000726 0305 MQ 457 000727 0315 L 458 000730 0400 PBLXP 459 000731 0421 PBACP 460 461 000732 0000 AT, 0 462 000733 7240 CLA CMA 463 000734 0137 AND Z A /A 464 000735 4046 JMS Z PRXLOP 465 000736 7240 CLA CMA 466 000737 0135 AND Z TT /T 467 000740 4046 JMS Z PRXLOP 468 000741 5732 JMP I AT 469 470 000742 0000 YA, 0 471 000743 7240 CLA CMA 472 000744 0137 AND Z A /A 473 000745 4046 JMS Z PRXLOP 474 000746 5742 JMP I YA 475 000747 3126 DCA Z BLXP 476 000750 5220 JMP RL2 477 *1000 478 001000 5234 MQAT1, JMP HSE3 479 /VRS MQAT1, JMS HSE3 480 001001 4020 JMS GEN 481 001002 7340 CLL CLA CMA /CLEAR LINK 482 001003 0125 AND Z GENX 483 001004 3123 DCA Z ACP /STORE AC PATTERN 484 001005 3124 DCA Z LXP /STORE LINK TO A ZERO 485 001006 7040 CMA 486 001007 0123 AND Z ACP /LOAD AC 487 001010 7421 MQL /LOAD MQ FROM AC 488 001011 7501 MQA /LOAD AC FROM MQ 489 001012 3127 DCA Z BACP /STORE RESULT OF MQL, MQA 490 001013 7620 CLA SNL 491 001014 5272 JMP NOPR+14 492 001015 4156 JMS Z SETL 493 001016 3126 DCA Z BLXP /STORE LINK RESULT 7777 494 001017 7040 CMA 495 001020 0123 AND Z ACP /COMPARE ACP WITH BACP 496 001021 7140 CLL CMA 497 001022 1127 TAD Z BACP 498 001023 7040 CMA 499 001024 7450 SNA 500 001025 7430 SZL 501 001026 5246 JMP MQAER1 /MQ DID NOT EQUAL AC 502 001027 7240 CLA CMA 503 001030 0126 AND Z BLXP 504 001031 7440 SZA 505 001032 5246 JMP MQAER1 /LINK DID NOT EQUAL A ZERO 506 001033 5262 JMP NOPR+4 507 001034 7300 HSE3, CLA CLL 508 001035 3125 DCA Z GENX 509 001036 1035 TAD Z XMQAT1 510 001037 3031 DCA Z BACK 511 001040 1150 TAD Z XMQAT2 512 001041 3032 DCA Z NEXT 513 001042 7000 NOP 514 001043 7000 NOP 515 001044 7000 NOP 516 001045 5201 JMP MQAT1+1 517 001046 7604 MQAER1, CLA OSR /TEST SW2 518 001047 7106 RTL CLL 519 001050 7004 RAL 520 001051 7420 SNL 521 001052 5256 JMP NOPR 522 001053 4667 JMS I NOPR+11 /PRINT ERROR 523 001054 4670 JMS I NOPR+12 524 001055 4671 JMS I NOPR+13 525 001056 7604 NOPR, CLA OSR /TEST SW0 526 001057 7104 RAL CLL 527 001060 7430 SZL 528 001061 7402 HLT 529 001062 7604 CLA OSR /TEST SW1 530 001063 7106 RTL CLL 531 001064 7430 SZL 532 001065 5202 JMP MQAT1+2 /PROGRAM LOOP 533 001066 5201 JMP MQAT1+1 /CONTINUE PROGRAM 534 001067 0667 PMQAT 535 001070 0524 XONE 536 001071 0674 MQA1 537 001072 3126 DCA Z BLXP 538 001073 5217 JMP MQAT1+17 539 *1200 540 001200 5235 MQAT2, JMP HSE4 541 001201 4020 JMS GEN 542 001202 7360 STL CLA CMA /SET LINK 543 001203 0125 AND Z GENX 544 001204 7040 CMA /COMPLEMENT GENX PATTERN 545 001205 3123 DCA Z ACP /STORE AC PATTERN 546 001206 7040 CMA 547 001207 3124 DCA Z LXP /STORE LINK TO A ONE 548 001210 7040 CMA 549 001211 0125 AND Z GENX 550 001212 7421 MQL /LOAD MQ 551 001213 7240 CLA CMA 552 001214 0123 AND Z ACP /LOAD AC WITH COMPLEMENTED GENX 553 001215 7501 MQA 554 001216 3127 DCA Z BACP /STORE RESULT OF MQA 555 001217 7620 CLA SNL 556 001220 5347 JMP CLRL4 /STORE LINK RESULT 0000 557 001221 4156 JMS Z SETL 558 001222 3126 DCA Z BLXP /STORE LINK RESULT 7777 559 560 001223 7240 RL4, CLA CMA 561 001224 0127 AND Z BACP /AC SHOULD EQUAL 7777 562 001225 7040 CMA 563 001226 7440 SZA 564 001227 5247 JMP MQAER2 /MQ DID NOT INCLUSIVE OR WITH AC 565 001230 7040 CMA 566 001231 0126 AND Z BLXP 567 001232 7450 SNA 568 001233 5247 JMP MQAER2 /LINK DID NOT EQUAL A ONE 569 001234 5262 JMP LNPR2+4 570 571 001235 7300 HSE4, CLA CLL 572 001236 3125 DCA Z GENX 573 001237 1150 TAD Z XMQAT2 574 001240 3031 DCA Z BACK 575 001241 1151 TAD Z XMQAT3 576 001242 3032 DCA Z NEXT 577 001243 7000 NOP 578 001244 7000 NOP 579 001245 7000 NOP 580 001246 5201 JMP MQAT2+1 581 582 001247 7604 MQAER2, CLA OSR /TEST SW2 583 001250 7106 RTL CLL 584 001251 7004 RAL 585 001252 7420 SNL 586 001253 5256 JMP LNPR2 /PRINT ERROR 587 001254 4667 JMS I XPMQAT 588 001255 4270 JMS EMQAT2 589 001256 7604 LNPR2, CLA OSR /TEST SW0 590 001257 7104 RAL CLL 591 001260 7430 SZL 592 001261 7402 HLT 593 001262 7604 CLA OSR /TEST SW1 594 001263 7106 RTL CLL 595 001264 7430 SZL 596 001265 5202 JMP MQAT2+2 /PROGRAM LOOP 597 001266 5201 JMP MQAT2+1 /CONTINUE PROGRAM 598 001267 0667 XPMQAT, PMQAT 599 600 001270 0000 EMQAT2, 0 601 001271 4342 JMS PTWO 602 001272 4036 AT3, JMS Z CRLF 603 001273 4726 JMS I XSP1+1 604 001274 4725 JMS I XSP1 605 001275 4727 JMS I XSP1+2 606 001276 4726 JMS I XSP1+1 607 001277 4730 JMS I XSP1+3 608 001300 4725 JMS I XSP1 609 001301 4731 JMS I XSP1+4 610 001302 4036 JMS Z CRLF 611 001303 4726 JMS I XSP1+1 612 001304 4725 JMS I XSP1 613 001305 4732 JMS I XSP1+5 614 001306 4726 JMS I XSP1+1 615 001307 4726 JMS I XSP1+1 616 001310 7240 CLA CMA 617 001311 0125 AND Z GENX 618 001312 3123 DCA Z ACP 619 001313 4731 JMS I XSP1+4 620 001314 4036 JMS Z CRLF 621 001315 4732 JMS I XSP1+5 622 001316 4335 JMS VOR 623 001317 4727 JMS I XSP1+2 624 001320 4726 JMS I XSP1+1 625 001321 4733 JMS I XSP1+6 626 001322 4725 JMS I XSP1 627 001323 4734 JMS I XSP1+7 628 001324 5670 JMP I EMQAT2 629 630 001325 0347 XSP1, SP1 631 001326 0327 SP2 632 001327 0337 AC 633 001330 0354 PLXP 634 001331 0413 PACP 635 001332 0305 MQ 636 001333 0400 PBLXP 637 001334 0421 PBACP 638 001335 0000 VOR, 0 /PRINT INCLUSIVE OR 639 001336 7240 CLA CMA 640 001337 0152 AND Z INCOR 641 001340 4046 JMS Z PRXLOP 642 001341 5735 JMP I VOR 643 644 001342 0000 PTWO, 0 /PRINT 2 645 001343 7240 CLA CMA 646 001344 0155 AND Z TWO 647 001345 4046 JMS Z PRXLOP 648 001346 5742 JMP I PTWO 649 001347 3126 CLRL4, DCA Z BLXP 650 001350 5223 JMP RL4 651 *1400 652 001400 5234 MQAT3, JMP HSE5 653 001401 4020 JMS GEN 654 001402 7340 CLL CLA CMA /CLEAR LINK 655 001403 0125 AND Z GENX 656 001404 7040 CMA /COMPLEMENT GENX PATTERN 657 001405 3123 DCA Z ACP /STORE AC PATTERN 658 001406 3124 DCA Z LXP /STORE LINK TO A ZERO 659 001407 7040 CMA 660 001410 0125 AND Z GENX 661 001411 7421 MQL /LOAD MQ 662 001412 7240 CLA CMA 663 001413 0123 AND Z ACP /LOAD AC WITH COMPLEMENTED GENX 664 001414 7501 MQA 665 001415 3127 DCA Z BACP /STORE RESULT OF MQA 666 001416 7620 CLA SNL 667 001417 7410 SKP 668 001420 4156 JMS Z SETL 669 001421 3126 DCA Z BLXP /STORE LINK RESULT 7777 670 001422 7240 CLA CMA 671 001423 0127 AND Z BACP /AC SHOULD EQUAL 7777 672 001424 7040 CMA 673 001425 7440 SZA 674 001426 5246 JMP MQAER3 /MQ DID NOT INCLUSIVE OR WITH AC 675 001427 7040 CMA 676 001430 0126 AND Z BLXP 677 001431 7440 SZA 678 001432 5246 JMP MQAER3 /LINK DID NOT EQUAL A ZERO 679 001433 5261 JMP NOPR3+4 680 681 001434 7300 HSE5, CLA CLL 682 001435 3125 DCA Z GENX 683 001436 1151 TAD Z XMQAT3 684 001437 3031 DCA Z BACK 685 001440 1153 TAD Z XSCAT 686 001441 3032 DCA Z NEXT 687 001442 7000 NOP 688 001443 7000 NOP 689 001444 7000 NOP 690 001445 5201 JMP MQAT3+1 691 001446 7604 MQAER3, CLA OSR /TEST SW2 692 001447 7106 RTL CLL 693 001450 7004 RAL 694 001451 7420 SNL 695 001452 5255 JMP NOPR3 /PRINT ERROR 696 001453 4666 JMS I APMQAT 697 001454 5271 JMP AMQAT3 698 001455 7604 NOPR3, CLA OSR /TEST SW0 699 001456 7104 RAL CLL 700 001457 7430 SZL 701 001460 7402 HLT 702 001461 7604 CLA OSR /TEST SW1 703 001462 7106 RTL CLL 704 001463 7430 SZL 705 001464 5202 JMP MQAT3+2 /PROGRAM LOOP 706 001465 5201 JMP MQAT3+1 /CONTINUE PROGRAM 707 001466 0667 APMQAT, PMQAT 708 001467 1455 NOPR3 709 001470 1270 EMQAT2 710 001471 4277 AMQAT3, JMS PTHREE 711 001472 7240 CLA CMA 712 001473 0267 AND APMQAT+1 713 001474 3670 DCA I APMQAT+2 714 001475 5676 JMP I XAT3 715 001476 1272 XAT3, AT3 716 001477 0000 PTHREE, 0 717 001500 7240 CLA CMA 718 001501 0154 AND Z THREE 719 001502 4046 JMS Z PRXLOP 720 001503 5677 JMP I PTHREE 721 *1600 722 001600 4300 STEST, JMS KP1 /HOUSE KEEPING 723 001601 4020 SHLLSR, JMS Z GEN /NUMBER GENERATOR 724 001602 7360 STL CLA CMA /SET LINK (NO SHIFT GUARD) 725 001603 0125 AND Z GENX 726 001604 7421 MQL /LOAD MQ 727 001605 7413 SHL /SHIFT LEFT 728 001606 0000 LEFTS, 0 /NUMBER OF SHIFTS 729 001607 3162 DCA Z LFTAC /STORE AC SHIFTED LEFT 730 001610 7420 SNL 731 001611 5333 JMP CLLINK /CLEAR AND STORE LINK LFTAC 732 001612 5335 JMP STLINK /SET AND STORE LINK LFTAC 733 734 001613 7701 MQA CLA 735 001614 3165 DCA Z LFTMQ /STORE MQ SHIFTED LEFT 736 001615 7040 CMA 737 001616 0162 AND Z LFTAC /RESTORE AC 738 001617 7417 LSR /SHIFT RIGHT 739 001620 0000 RIGHTS, 0 740 001621 3163 DCA Z RITAC /STORE AC SHIFTED RIGHT 741 001622 7420 SNL 742 001623 5340 JMP CLRINK /CLEAR AND STORE LINK RITAC 743 001624 5342 JMP STRINK /SET AND STORE LINK RITAC 744 001625 7701 MQA CLA 745 001626 3164 DCA Z RITMQ /STORE MQ SHIFTED RIGHT 746 001627 7040 CMA 747 001630 0347 AND LFTINK 748 001631 7440 SZA 749 001632 5255 JMP SHERR /LINK EQUALS A ONE IN ERROR 750 001633 7040 CMA 751 001634 0350 AND RITINK 752 001635 7440 SZA 753 001636 5255 JMP SHERR /LINK EQUALS A ONE IN ERROR 754 001637 7040 CMA 755 001640 0163 AND Z RITAC 756 001641 7440 SZA 757 001642 5255 JMP SHERR /RITAC SHOULD EQUAL 0000 758 001643 7040 CMA 759 001644 0125 AND Z GENX 760 001645 7140 CLL CMA 761 001646 1164 TAD Z RITMQ 762 001647 7040 CMA 763 001650 7440 SZA 764 001651 5255 JMP SHERR /RITMQ DID NOT EQUAL GENX 765 001652 7430 SZL 766 001653 5255 JMP SHERR /RITMQ DID NOT EQUAL GENX 767 001654 5272 JMP SHERR+15 768 001655 7604 SHERR, CLA OSR /TEST SW2 769 001656 7106 RTL CLL 770 001657 7004 RAL 771 001660 7420 SNL 772 001661 5266 JMP SHERR+11 773 001662 4677 JMS I PRINT 774 001663 7000 NOP 775 001664 7000 NOP 776 001665 7000 NOP 777 001666 7604 CLA OSR /TEST SW0 778 001667 7104 RAL CLL 779 001670 7430 SZL 780 001671 7402 HLT 781 001672 7604 CLA OSR /TEST SW1 782 001673 7106 RTL CLL 783 001674 7430 SZL 784 001675 5202 JMP STEST+2 /PROGRAM LOOP 785 001676 5201 JMP SHLLSR /CONTINUE TEST 786 001677 2000 PRINT, PRINTS 787 788 001700 0000 KP1, 0 789 001701 7240 CLA CMA 790 001702 0166 AND Z K7764 /MINUS 12 791 001703 3351 DCA TWELVE /STORE 12 COUNT FOR EXIT 792 001704 3125 DCA Z GENX /DEAR GENX 793 001705 3206 DCA LEFTS /CLEAR SHIFT COUNT STORE LEFT 794 001706 7040 CMA 795 001707 0352 AND SNUM 796 001710 3161 DCA Z PRNUM /STORE SHIFT # 797 001711 7040 CMA 798 001712 0345 AND RSUB 799 001713 3031 DCA Z BACK /SW3 REPEAT SUB TEST 800 001714 7040 CMA 801 001715 0346 AND NSUB 802 001716 3032 DCA Z NEXT /SW3 NEXT TEST 803 001717 3220 DCA RIGHTS 804 001720 7040 CMA 805 001721 0353 AND PRTAA 806 001722 3754 DCA I PRTAA+1 807 001723 5700 JMP I KP1 808 001724 2206 INCSUB, ISZ LEFTS /INCREMENT SHIFT COUNT LEFT 809 001725 2220 ISZ RIGHTS /INCREMENT SHIFT COUNT RIGHT 810 001726 2161 ISZ Z PRNUM /INCREMENT SHIFT # TO PRINT 811 001727 2351 ISZ TWELVE /TWELVE SHIFT TESTS 812 001730 5201 JMP SHLLSR /CONTINUE PROGRAM 813 001731 5732 JMP I INCSUB+6 /JUMP TO NEXT SHIFT TEST 814 001732 2400 STEST1 815 816 001733 3347 CLLINK, DCA LFTINK /CLEAR LFTAC LINK 817 001734 5213 JMP LEFTS+5 818 001735 7040 STLINK, CMA 819 001736 3347 DCA LFTINK /SET LFTAC LINK 820 001737 5213 JMP LEFTS+5 821 001740 3350 CLRINK, DCA RITINK /CLEAR RITAC LINK 822 001741 5225 JMP RIGHTS+5 823 824 001742 7040 STRINK, CMA /SET RITAC LINK 825 001743 3350 DCA RITINK 826 001744 5225 JMP RIGHTS+5 827 828 001745 1601 RSUB, SHLLSR 829 001746 1724 NSUB, INCSUB 830 831 001747 0000 LFTINK, 0 832 001750 0000 RITINK, 0 833 001751 0000 TWELVE, 0 834 001752 2044 SNUM, TNUM 835 001753 2005 PRTAA, PRTW 836 001754 2154 PRT 837 *2000 838 002000 0000 PRINTS, 0 839 002001 4036 JMS Z CRLF 840 002002 4741 JMS I Z12+15 841 002003 4643 JMS I SHLX+5 842 002004 5561 JMP I Z PRNUM 843 002005 4036 PRTW, JMS Z CRLF 844 002006 4736 JMS I Z12+12 845 002007 4737 JMS I Z12+13 846 002010 4740 JMS I Z12+14 847 002011 4637 JMS I SHLX+1 848 002012 4643 JMS I SHLX+5 849 002013 7040 CMA 850 002014 0125 AND Z GENX 851 002015 3147 DCA Z BITSTR 852 002016 4077 JMS Z MESSG 853 002017 4036 JMS Z CRLF 854 002020 4342 JMS TENSP 855 002021 4736 JMS I Z12+12 856 002022 4737 JMS I Z12+13 857 002023 4640 JMS I SHLX+2 858 002024 4637 JMS I SHLX+1 859 002025 4342 JMS TENSP 860 002026 4736 JMS I Z12+12 861 002027 4737 JMS I Z12+13 862 002030 4740 JMS I Z12+14 863 002031 4637 JMS I SHLX+1 864 002032 4036 JMS Z CRLF 865 002033 4636 JMS I SHLX 866 002034 4036 JMS Z CRLF 867 002035 5600 JMP I PRINTS 868 002036 2221 SHLX, SHLP 869 870 002037 2212 RPAR 871 002040 0337 AC 872 002041 1477 PTHREE 873 002042 1342 PTWO 874 002043 0347 SP1 875 002044 5262 TNUM, JMP Z1 876 002045 5265 JMP Z2 877 002046 5267 JMP Z3 878 002047 5271 JMP Z4 879 002050 5274 JMP Z5 880 002051 5277 JMP Z6 881 002052 5302 JMP Z7 882 002053 5305 JMP Z8 883 002054 5310 JMP Z9 884 002055 5313 JMP Z10 885 002056 5317 JMP Z11 886 002057 5324 JMP Z12 887 002060 4046 PRET, JMS Z PRXLOP 888 002061 5754 JMP I PRT 889 002062 7040 Z1, CMA 890 002063 4061 JMS Z ONZER /1 891 002064 5754 JMP I PRT 892 002065 4642 Z2, JMS I SHLX+4 /2 893 002066 5754 JMP I PRT 894 002067 4641 Z3, JMS I SHLX+3 /3 895 002070 5754 JMP I PRT 896 002071 7240 Z4, CLA CMA 897 002072 0330 AND FOUR /4 898 002073 5260 JMP PRET 899 900 002074 7240 Z5, CLA CMA 901 002075 0331 AND FIVE /5 902 002076 5260 JMP PRET 903 904 002077 7240 Z6, CLA CMA 905 002100 0332 AND SIX /6 906 002101 5260 JMP PRET 907 002102 7240 Z7, CLA CMA 908 002103 0333 AND SEVEN /7 909 002104 5260 JMP PRET 910 911 002105 7240 Z8, CLA CMA 912 002106 0334 AND EIGHT /8 913 002107 5260 JMP PRET 914 002110 7240 Z9, CLA CMA /9 915 002111 0335 AND NINE 916 002112 5260 JMP PRET 917 002113 7040 Z10, CMA 918 002114 4061 JMS Z ONZER /10 919 002115 4061 JMS Z ONZER 920 002116 5754 JMP I PRT 921 002117 7040 Z11, CMA 922 002120 4061 JMS Z ONZER /11 923 002121 7040 CMA 924 002122 4061 JMS Z ONZER 925 002123 5754 JMP I PRT 926 002124 7040 Z12, CMA 927 002125 4061 JMS Z ONZER /12 928 002126 4642 JMS I SHLX+4 929 002127 5754 JMP I PRT 930 002130 0264 FOUR, 0264 931 002131 0265 FIVE, 0265 932 002132 0266 SIX, 0266 933 002133 0267 SEVEN, 0267 934 002134 0270 EIGHT, 0270 935 002135 0271 NINE, 0271 936 002136 2200 PC 937 002137 2205 LPAR 938 002140 0305 MQ 939 002141 3062 SHIFT 940 002142 0000 TENSP, 0 941 002143 7240 CLA CMA 942 002144 0352 AND TCOUNT 943 002145 3353 DCA SPACST /STORE MINUS TEN 944 002146 4643 JMS I SHLX+5 /PRINT 10 SPACES 945 002147 2353 ISZ SPACST 946 002150 5346 JMP TENSP+4 947 002151 5742 JMP I TENSP 948 002152 7765 TCOUNT,7765 949 002153 0000 SPACST, 0 950 002154 0000 PRT, 0 951 *2200 952 002200 0000 PC, 0 953 002201 7240 CLA CMA 954 002202 0140 AND Z C 955 002203 4046 JMS Z PRXLOP 956 002204 5600 JMP I PC 957 958 002205 0000 LPAR, 0 959 002206 7240 CLA CMA 960 002207 0217 AND LPAREN 961 002210 4046 JMS Z PRXLOP 962 002211 5605 JMP I LPAR 963 964 002212 0000 RPAR, 0 965 002213 7240 CLA CMA 966 002214 0220 AND RPAREN 967 002215 4046 JMS Z PRXLOP 968 002216 5612 JMP I RPAR 969 970 002217 0250 LPAREN, 0250 971 002220 0251 RPAREN, 0251 972 973 002221 0000 SHLP, 0 974 002222 7240 CLA CMA 975 002223 0305 AND SX 976 002224 4046 JMS Z PRXLOP 977 002225 7040 CMA 978 002226 0304 AND HX 979 002227 4046 JMS Z PRXLOP 980 002230 4703 JMS I LX 981 002231 4706 JMS I LX+3 982 002232 7240 CLA CMA 983 002233 0707 AND I LX+4 984 002234 4061 JMS Z ONZER 985 002235 4706 JMS I LX+3 986 002236 7240 CLA CMA 987 002237 0162 AND Z LFTAC 988 002240 3147 DCA Z BITSTR 989 002241 4077 JMS Z MESSG 990 002242 4706 JMS I LX+3 991 002243 4706 JMS I LX+3 992 002244 4706 JMS I LX+3 993 002245 7240 CLA CMA 994 002246 0165 AND Z LFTMQ 995 002247 3147 DCA Z BITSTR 996 002250 4077 JMS Z MESSG 997 002251 4036 JMS Z CRLF 998 002252 4703 JMS I LX 999 002253 7240 CLA CMA 1000 002254 0305 AND SX 1001 002255 4046 JMS Z PRXLOP 1002 002256 7240 CLA CMA 1003 002257 0310 AND RX 1004 002260 4046 JMS Z PRXLOP 1005 002261 4706 JMS I LX+3 1006 002262 7240 CLA CMA 1007 002263 0711 AND I LX+6 1008 002264 4061 JMS Z ONZER 1009 002265 4706 JMS I LX+3 1010 002266 7240 CLA CMA 1011 002267 0163 AND Z RITAC 1012 002270 3147 DCA Z BITSTR 1013 002271 4077 JMS Z MESSG 1014 002272 4706 JMS I LX+3 1015 002273 4706 JMS I LX+3 1016 002274 4706 JMS I LX+3 1017 002275 7240 CLA CMA 1018 002276 0164 AND Z RITMQ 1019 002277 3147 DCA Z BITSTR 1020 002300 4077 JMS Z MESSG 1021 002301 4036 JMS Z CRLF 1022 002302 5621 JMP I SHLP 1023 002303 0315 LX, L 1024 002304 0310 HX, 0310 1025 002305 0323 SX, 0323 1026 002306 0347 SP1 1027 002307 1747 LFTINK 1028 002310 0322 RX, 0322 1029 002311 1750 RITINK 1030 *2400 1031 002400 4327 STEST1, JMS KP1XX /HOUSE KEEPING 1032 002401 7240 T13, CLA CMA 1033 002402 0352 AND T14X 1034 002403 3351 DCA NTST /STORE NEXT TEST ADDRESS 1035 002404 4303 JMS GENN /GENERATOR JUMP 1036 002405 4772 SCP13, JMS I TXXX 1037 002406 5205 JMP SCP13 1038 002407 4767 T14, JMS I KKKNU 1039 002410 0353 AND T14X+1 1040 002411 3351 DCA NTST 1041 002412 4303 JMS GENN 1042 002413 4772 SCP14, JMS I TXXX 1043 002414 5213 JMP SCP14 1044 /VRS JMP I SCP14 1045 002415 4767 T15, JMS I KKKNU 1046 002416 0354 AND T14X+2 1047 002417 3351 DCA NTST 1048 002420 4303 JMS GENN 1049 002421 4772 SCP15, JMS I TXXX 1050 002422 5221 JMP SCP15 1051 002423 4767 T16, JMS I KKKNU 1052 002424 0355 AND T14X+3 1053 002425 3351 DCA NTST 1054 002426 4303 JMS GENN 1055 002427 4772 SCP16, JMS I TXXX 1056 002430 5227 JMP SCP16 1057 002431 4767 T17, JMS I KKKNU 1058 002432 0356 AND T14X+4 1059 002433 3351 DCA NTST 1060 002434 4303 JMS GENN 1061 002435 4772 SCP17, JMS I TXXX 1062 002436 5235 JMP SCP17 1063 002437 4767 T18, JMS I KKKNU 1064 002440 0357 AND T14X+5 1065 002441 3351 DCA NTST 1066 002442 4303 JMS GENN 1067 002443 4772 SCP18, JMS I TXXX 1068 002444 5243 JMP SCP18 1069 002445 4767 T19, JMS I KKKNU 1070 002446 0360 AND T14X+6 1071 002447 3351 DCA NTST 1072 002450 4303 JMS GENN 1073 002451 4772 SCP19, JMS I TXXX 1074 002452 5251 JMP SCP19 1075 002453 4767 T20, JMS I KKKNU 1076 002454 0361 AND T14X+7 1077 002455 3351 DCA NTST 1078 002456 4303 JMS GENN 1079 002457 4772 SCP20, JMS I TXXX 1080 002460 5257 JMP SCP20 1081 002461 4767 T21, JMS I KKKNU 1082 002462 0362 AND T14X+10 1083 002463 3351 DCA NTST 1084 002464 4303 JMS GENN 1085 002465 4772 SCP21, JMS I TXXX 1086 002466 5265 JMP SCP21 1087 002467 4767 T22, JMS I KKKNU 1088 002470 0363 AND T14X+11 1089 002471 3351 DCA NTST 1090 002472 4303 JMS GENN 1091 002473 4772 SCP22, JMS I TXXX 1092 002474 5273 JMP SCP22 1093 002475 4767 T23, JMS I KKKNU 1094 002476 0364 AND T14X+12 1095 002477 3351 DCA NTST 1096 002500 4303 JMS GENN 1097 002501 4772 SCP23, JMS I TXXX 1098 002502 5301 JMP SCP23 1099 002503 0000 GENN, 0 1100 002504 2347 CONTIN, ISZ NGEN /CONTINUE CURRENT TEST 1101 002505 7240 CLA CMA 1102 002506 0346 NCOMP, AND KKK 1103 002507 7040 CMA 1104 002510 1347 TAD NGEN 1105 002511 7040 CMA 1106 002512 7450 SNA 1107 002513 7410 SKP 1108 002514 5703 JMP I GENN 1109 002515 3347 DCA NGEN 1110 002516 7604 CLA OSR /TST SW3 1111 002517 7106 RTL CLL 1112 002520 7006 RTL 1113 002521 7430 SZL 1114 002522 5703 JMP I GENN 1115 002523 2771 ISZ I KX12+3 /INCREMENT SHIFT COUNTER LEFT 1116 002524 2770 ISZ I KX12+2 /INCREMENT SHIFT COUNTER RIGHT 1117 002525 2161 ISZ Z PRNUM /INCREMENT SHIFT NUMBER TO PRINT 1118 002526 5751 JMP I NTST 1119 002527 0000 KP1XX, 0 1120 002530 7240 CLA CMA 1121 002531 0365 AND K4000 1122 002532 3346 DCA KKK 1123 002533 3347 DCA NGEN 1124 1125 002534 1366 TAD KX12 1126 002535 3771 DCA I KX12+3 1127 002536 1366 TAD KX12 1128 002537 3770 DCA I KX12+2 1129 002540 1345 TAD PPPNUM 1130 002541 3161 DCA Z PRNUM /PRINT NUMBERS 13 TO 23 1131 002542 1373 TAD PRTTA 1132 002543 3774 DCA I PRZTA 1133 002544 5727 JMP I KP1XX 1134 002545 3000 PPPNUM, PPNUM 1135 1136 002546 0000 KKK, 0 1137 002547 0000 NGEN, 0 1138 002550 0000 ELEVEN, 0 1139 002551 0000 NTST, 0 1140 002552 2407 T14X, T14 1141 002553 2415 T15 1142 002554 2423 T16 1143 002555 2431 T17 1144 002556 2437 T18 1145 002557 2445 T19 1146 002560 2453 T20 1147 002561 2461 T21 1148 002562 2467 T22 1149 002563 2475 T23 1150 002564 3200 STEST2 1151 002565 4000 K4000, 4000 1152 002566 0014 KX12, 0014 1153 002567 2600 KKKNU, KKKN 1154 002570 2631 RITXXX 1155 002571 2617 LFTXXX 1156 002572 2610 TXXX, TXXXX 1157 002573 2005 PRTTA, PRTW 1158 002574 3060 PRZTA, PRTT 1159 *2600 1160 002600 0000 KKKN, 0 1161 002601 7340 CLL CLA CMA /COMPARE CONSTANTS FOR TESTS 1162 002602 0607 AND I KKKN+7 1163 002603 7010 RAR 1164 002604 3607 DCA I KKKN+7 1165 002605 7040 CMA 1166 002606 5600 JMP I KKKN 1167 002607 2546 KKK 1168 1169 002610 0000 TXXXX, 0 /SCOPE MODE RETURN INDIRECT 1170 002611 7240 CLA CMA 1171 002612 0700 AND I NGENX 1172 002613 7421 MQL /LOAD MQ 1173 002614 7040 CMA 1174 002615 0301 AND K2525 /LOAD AC 2525 (OCTAL) 1175 002616 7413 SHL /SHIFT LEFT 1176 002617 0000 LFTXXX, 0 1177 002620 3162 DCA Z LFTAC /STORE AC SHIFTED LEFT 1178 002621 7420 SNL 1179 002622 5266 JMP CLLI /CLEAR AND STORE LEFT LINK 1180 002623 5270 JMP CLLI+2 /SET AND STORE LEFT LINK 1181 002624 7701 MQA CLA 1182 002625 3165 DCA Z LFTMQ /STORE MQ SHIFTED LEFT 1183 002626 7040 CMA 1184 002627 0162 AND Z LFTAC /RESTORE AC 1185 002630 7417 LSR /SHIFT RIGHT 1186 002631 0000 RITXXX, 0 1187 002632 3163 DCA Z RITAC /STORE AC SHIFTED RIGHT 1188 002633 7420 SNL 1189 002634 5273 JMP CRLI /CLEAR AND STORE RIGHT LINK 1190 002635 5275 JMP CRLI+2 1191 002636 7701 MQA CLA 1192 002637 3164 DCA Z RITMQ /STORE MQ SHIFTED RIGHT 1193 002640 7040 CMA 1194 002641 0702 AND I LLIN 1195 002642 7440 SZA 1196 002643 5307 JMP SHERRX /LINK EQUALS A ONE IN ERROR 1197 002644 7040 CMA 1198 002645 0703 AND I RLIN 1199 002646 7440 SZA 1200 002647 5307 JMP SHERRX /LINK EQUALS A ONE IN ERROR 1201 002650 7040 CMA 1202 002651 0163 AND Z RITAC 1203 002652 7440 SZA 1204 002653 5307 JMP SHERRX /RITAC SHOULD EQUAL 0000 1205 002654 7040 CMA 1206 002655 0700 AND I NGENX 1207 002656 7140 CLL CMA 1208 002657 1164 TAD Z RITMQ 1209 002660 7040 CMA 1210 002661 7440 SZA 1211 002662 5307 JMP SHERRX /RITMQ DID NOT EQUAL NGEN 1212 002663 7430 SZL 1213 002664 5307 JMP SHERRX /RITMQ DID NOT QUEAL NGEN 1214 002665 5324 JMP SHERRX+15 1215 002666 3702 CLLI, DCA I LLIN /CLEAR LEFT LINK STORE 1216 002667 5224 JMP LFTXXX+5 1217 002670 7040 CMA 1218 002671 3702 DCA I LLIN /SET LEFT LINK STORE 1219 002672 5224 JMP LFTXXX+5 1220 002673 3703 CRLI, DCA I RLIN /CLEAR RIGHT LINK STORE 1221 002674 5236 JMP RITXXX+5 1222 002675 7040 CMA /SET RIGHT LINK STORE 1223 002676 3703 DCA I RLIN 1224 002677 5236 JMP RITXXX+5 1225 002700 2547 NGENX, NGEN 1226 002701 2525 K2525, 2525 1227 002702 1747 LLIN, LFTINK 1228 002703 1750 RLIN, RITINK 1229 002704 2503 NNEG, GENN 1230 002705 2000 PRINTS 1231 002706 2504 TINUE, CONTIN 1232 1233 002707 7604 SHERRX, CLA OSR /TEST SE2 1234 002710 7106 RTL CLL 1235 002711 7004 RAL 1236 002712 7420 SNL 1237 002713 5320 JMP SHERRX+11 1238 002714 7240 CLA CMA 1239 002715 0700 AND I NGENX 1240 002716 3125 DCA Z GENX 1241 002717 4705 JMS I TINUE-1 1242 002720 7604 CLA OSR /TEST SW0 1243 002721 7104 RAL CLL 1244 002722 7430 SZL 1245 002723 7402 HLT 1246 002724 7604 CLA OSR /TEST SW1 1247 002725 7106 RTL CLL 1248 002726 7430 SZL 1249 002727 5610 JMP I TXXXX /SCOPE MODE 1250 002730 5706 JMP I TINUE /CONTINUE MODE 1251 1252 /DPI PAUSE 1253 1254 /EAE PART 3A OF INSTRUCTION TEST - TAPE 2 1255 *3000 1256 003000 5213 PPNUM, JMP Z13 1257 003001 5215 JMP Z14 1258 003002 5217 JMP Z15 1259 003003 5221 JMP Z16 1260 003004 5223 JMP Z17 1261 003005 5225 JMP Z18 1262 003006 5227 JMP Z19 1263 003007 5231 JMP Z20 1264 003010 5235 JMP Z21 1265 003011 5240 JMP Z22 1266 003012 5243 JMP Z23 1267 1268 003013 4245 Z13, JMS ONEONE /1 1269 003014 5651 JMP I PRT3 /3 1270 003015 4245 Z14, JMS ONEONE /1 1271 003016 5652 JMP I PRT3+1 /4 1272 003017 4245 Z15, JMS ONEONE /1 1273 003020 5653 JMP I PRT3+2 /5 1274 003021 4245 Z16, JMS ONEONE /1 1275 003022 5654 JMP I PRT3+3 /6 1276 003023 4245 Z17, JMS ONEONE /1 1277 003024 5655 JMP I PRT3+4 /7 1278 003025 4245 Z18, JMS ONEONE /1 1279 003026 5656 JMP I PRT3+5 /8 1280 003027 4245 Z19, JMS ONEONE /1 1281 003030 5657 JMP I PRT3+6 /9 1282 003031 4661 Z20, JMS I TWOTWO /2 1283 003032 7040 CMA 1284 003033 4245 JMS ONEONE /0 1285 003034 5660 JMP I PRTT 1286 003035 4661 Z21, JMS I TWOTWO /2 1287 003036 4245 JMS ONEONE /1 1288 003037 5660 JMP I PRTT 1289 003040 4661 Z22, JMS I TWOTWO /2 1290 003041 4661 JMS I TWOTWO /2 1291 003042 5660 JMP I PRTT 1292 003043 4661 Z23, JMS I TWOTWO /2 1293 003044 5651 JMP I PRT3 /3 1294 1295 003045 0000 ONEONE, 0 /PRINT ONE 1296 003046 7040 CMA 1297 003047 4061 JMS Z ONZER 1298 003050 5645 JMP I ONEONE 1299 003051 2067 PRT3, Z3 1300 003052 2071 Z4 1301 003053 2074 Z5 1302 003054 2077 Z6 1303 003055 2102 Z7 1304 003056 2105 Z8 1305 003057 2110 Z9 1306 003060 0000 PRTT, 0 1307 003061 1342 TWOTWO, PTWO 1308 1309 003062 0000 SHIFT, 0 1310 003063 7040 CMA 1311 003064 0303 AND SS /S 1312 003065 4046 JMS Z PRXLOP 1313 003066 7040 CMA 1314 003067 0304 AND SS+1 /H 1315 003070 4046 JMS Z PRXLOP 1316 003071 7040 CMA 1317 003072 0305 AND SS+2 /I 1318 003073 4046 JMS Z PRXLOP 1319 003074 7040 CMA 1320 003075 0306 AND SS+3 /F 1321 003076 4046 JMS Z PRXLOP 1322 003077 7040 CMA 1323 003100 0135 AND Z TT /T 1324 003101 4046 JMS Z PRXLOP 1325 003102 5662 JMP I SHIFT 1326 1327 003103 0323 SS, 0323 1328 003104 0310 0310 1329 003105 0311 0311 1330 003106 0306 0306 1331 *3200 1332 003200 4312 STEST2, JMS HSKK 1333 003201 4245 JMS GENRR 1334 003202 7300 CLA CLL /CLEAR LINK 1335 003203 7421 MQL /CLEAR AC AND MQ 1336 003204 7040 CMA 1337 003205 0167 AND Z XK400 /SET BIT 0 1338 003206 7415 ASR 1339 003207 0000 ASRSHF, 0 /SHIFT # OF PLACES 1340 003210 3162 DCA Z LFTAC /STORE AC 1341 003211 7501 MQA 1342 003212 3165 DCA Z LFTMQ /STORE MQ 1343 003213 7420 SNL 1344 003214 5271 JMP SSINK+1 /CLEAR AND STORE LINK 1345 003215 5270 JMP SSINK /SET AND STORE LINK 1346 003216 7240 CLA CMA 1347 003217 0162 AND Z LFTAC /AC CONTENTS 1348 003220 7140 CLL CMA 1349 003221 1273 TAD ACCOMP /AC COMPARE CONSTANTS 1350 003222 7040 CMA 1351 003223 7440 SZA 1352 003224 5342 JMP ASRERR /ASR ERROR (AC IN ERROR) 1353 003225 7430 SZL 1354 003226 5342 JMP ASRERR /ASR ERROR (AC IN ERROR) 1355 003227 7040 CMA 1356 003230 0165 AND Z LFTMQ /MQ CONTENTS 1357 003231 7140 CMA CLL 1358 003232 1274 TAD MQCOMP /MQ COMPARE CONSTANTS 1359 003233 7040 CMA 1360 003234 7440 SZA 1361 003235 5342 JMP ASRERR /ASR ERROR (MQ IN ERROR) 1362 003236 7430 SZL 1363 003237 5342 JMP ASRERR /ASR ERROR (MQ IN ERROR) 1364 003240 7240 CLA CMA 1365 003241 0677 AND I LLLLNK /AC LINK 1366 003242 7450 SNA 1367 003243 5342 JMP ASRERR /LINK ERROR (DID NOT EQUAL A ONE) 1368 003244 5356 JMP TSSW0+4 1369 1370 003245 0000 GENRR, 0 1371 003246 7240 CLA CMA 1372 003247 0410 AND I Z ACIND /AC AUTO INDEX PATTERN COMPARE 1373 003250 3273 DCA ACCOMP 1374 003251 7040 CMA 1375 003252 0411 AND I Z MQIND /MQ AUTO INDEX PATTERN COMPARE 1376 003253 3274 DCA MQCOMP 1377 003254 2207 ISZ ASRSHF /INCREMENT SHIFT # 1378 003255 2161 ISZ Z PRNUM /INCREMENT ASR PRINT # 1379 003256 2275 ISZ ASREX /INCREMENT TEST COUNT 1380 003257 5645 JMP I GENRR 1381 003260 2363 ISZ REEE 1382 003261 5200 JMP STEST2 1383 003262 7604 CLA OSR /TEST SW3 1384 003263 7106 RTL CLL 1385 003264 7006 RTL 1386 003265 7430 SZL 1387 003266 5200 JMP STEST2 /REPEAT TEST 1388 003267 5700 JMP I SSTEST /EXIT TO NEXT PROGRAM 1389 003270 7040 SSINK, CMA 1390 003271 3677 DCA I LLLLNK /STORE LINK 1391 003272 5216 JMP ASRSHF+7 1392 1393 003273 0000 ACCOMP, 0 1394 003274 0000 MQCOMP, 0 1395 003275 0000 ASREX, 0 1396 003276 7750 ASREXX, 7750 1397 003277 1747 LLLLNK, LFTINK 1398 003300 4000 SSTEST, STEST3 1399 003301 3502 MQAUT, MQAUTX 1400 003302 3516 ACAUT, ACAUTX 1401 003303 3601 STPR, ASRPNU+1 1402 003304 3400 TYPE 1403 003305 2154 PRT 1404 003306 3060 PRTT 1405 003307 3405 TYPRE 1406 003310 3546 TYPE2 1407 003311 3414 TYPEA 1408 1409 003312 0000 HSKK, 0 1410 003313 7240 CLA CMA 1411 003314 0307 AND ASREXX+11 1412 003315 3705 DCA I ASREXX+7 1413 003316 7040 CMA 1414 003317 0307 AND ASREXX+11 1415 003320 3706 DCA I ASREXX+10 1416 003321 7040 CMA 1417 003322 0302 AND ACAUT 1418 003323 3010 DCA Z ACIND 1419 003324 7040 CMA 1420 003325 0301 AND MQAUT 1421 003326 3011 DCA Z MQIND 1422 003327 7040 CMA 1423 003330 3207 DCA ASRSHF 1424 003331 7040 CMA 1425 003332 0303 AND STPR 1426 003333 3161 DCA Z PRNUM 1427 003334 7040 CMA 1428 003335 0276 AND ASREXX 1429 003336 3275 DCA ASREX 1430 003337 7000 NOP 1431 003340 7000 NOP 1432 003341 5712 JMP I HSKK 1433 003342 7604 ASRERR, CLA OSR 1434 003343 7106 RTL CLL /TEST SW2 1435 003344 7004 RAL 1436 003345 7420 SNL 1437 003346 5352 JMP TSSW0 1438 003347 4704 JMS I ASREXX+6 /PRINT ERROR 1439 003350 4710 JMS I ASREXX+12 1440 003351 4711 JMS I ASREXX+13 1441 003352 7604 TSSW0, CLA OSR 1442 003353 7104 RAL CLL /TEST SW0 1443 003354 7430 SZL 1444 003355 7402 HLT 1445 003356 7604 CLA OSR /TEST SW1 1446 003357 7106 RTL CLL 1447 003360 7430 SZL 1448 003361 5202 JMP STEST2+2 /SCOPE MODE 1449 003362 5201 JMP STEST2+1 /CONTINUE MODE 1450 003363 0000 REEE, 0 1451 *3400 1452 003400 0000 TYPE, 0 1453 003401 4036 JMS Z CRLF 1454 003402 4666 JMS I ASHIFT 1455 003403 4667 JMS I ASHIFT+1 1456 003404 5561 JMP I Z PRNUM 1457 003405 4036 TYPRE, JMS Z CRLF 1458 003406 4670 JMS I ASHIFT+2 1459 003407 4671 JMS I TYLPAR 1460 003410 4672 JMS I ASHIFT+4 1461 003411 4673 JMS I TYRPAR 1462 003412 4667 JMS I ASHIFT+1 1463 003413 5600 JMP I TYPE 1464 1465 003414 0000 TYPEA, 0 1466 003415 4036 JMS Z CRLF 1467 003416 4674 JMS I ASHIFT+6 1468 003417 4670 JMS I ASHIFT+2 1469 003420 4671 JMS I TYLPAR 1470 003421 4672 JMS I ASHIFT+4 1471 003422 4673 JMS I TYRPAR 1472 003423 4674 JMS I ASHIFT+6 1473 003424 4670 JMS I ASHIFT+2 1474 003425 4671 JMS I TYLPAR 1475 003426 4675 JMS I ASHIFT+7 1476 003427 4673 JMS I TYRPAR 1477 003430 4036 JMS Z CRLF 1478 003431 7240 CLA CMA 1479 003432 0137 AND Z A 1480 003433 4046 JMS Z PRXLOP 1481 003434 7240 CLA CMA 1482 003435 0276 AND TYS 1483 003436 4046 JMS Z PRXLOP 1484 003437 7240 CLA CMA 1485 003440 0277 AND TYR 1486 003441 4046 JMS Z PRXLOP 1487 003442 4667 JMS I ASHIFT+1 1488 003443 4667 JMS I ASHIFT+1 1489 003444 4667 JMS I ASHIFT+1 1490 003445 7240 CLA CMA 1491 003446 0700 AND I TYLI 1492 003447 4061 JMS Z ONZER 1493 003450 4667 JMS I ASHIFT+1 1494 003451 7240 CLA CMA 1495 003452 0162 AND Z LFTAC 1496 003453 3147 DCA Z BITSTR 1497 003454 4077 JMS Z MESSG 1498 003455 4667 JMS I ASHIFT+1 1499 003456 4667 JMS I ASHIFT+1 1500 003457 4667 JMS I ASHIFT+1 1501 003460 7240 CLA CMA 1502 003461 0165 AND Z LFTMQ 1503 003462 3147 DCA Z BITSTR 1504 003463 4077 JMS Z MESSG 1505 003464 4036 JMS Z CRLF 1506 003465 5614 JMP I TYPEA 1507 003466 3062 ASHIFT, SHIFT 1508 003467 0347 SP1 1509 003470 2200 PC 1510 003471 2205 TYLPAR, LPAR 1511 003472 0337 AC 1512 003473 2212 TYRPAR, RPAR 1513 003474 2142 TENSP 1514 003475 0305 MQ 1515 003476 0323 TYS, 0323 1516 003477 0322 TYR, 0322 1517 003500 1747 TYLI, LFTINK 1518 003501 3777 KA3777, 3777 1519 1520 003502 0000 MQAUTX, 0 1521 003503 0000 0 1522 003504 0000 0 1523 003505 0000 0 1524 003506 0000 0 1525 003507 0000 0 1526 003510 0000 0 1527 003511 0000 0 1528 003512 0000 0 1529 003513 0000 0 1530 003514 0000 0 1531 003515 0000 0 1532 003516 4000 ACAUTX, 4000 1533 003517 6000 6000 1534 003520 7000 7000 1535 003521 7400 7400 1536 003522 7600 7600 1537 003523 7700 7700 1538 003524 7740 7740 1539 003525 7760 7760 1540 003526 7770 7770 1541 003527 7774 7774 1542 003530 7776 7776 1543 003531 7777 7777 1544 003532 7777 7777 1545 003533 7777 7777 1546 003534 7777 7777 1547 003535 7777 7777 1548 003536 7777 7777 1549 003537 7777 7777 1550 003540 7777 7777 1551 003541 7777 7777 1552 003542 7777 7777 1553 003543 7777 7777 1554 003544 7777 7777 1555 003545 7777 7777 1556 1557 003546 0000 TYPE2, 0 1558 003547 7200 CLA 1559 003550 4061 JMS Z ONZER 1560 003551 4667 JMS I ASHIFT+1 1561 003552 7240 CLA CMA 1562 003553 0316 AND ACAUTX 1563 003554 3147 DCA Z BITSTR 1564 003555 4077 JMS Z MESSG 1565 003556 5746 JMP I TYPE2 1566 1567 003557 0000 TYPE3, 0 1568 003560 7240 CLA CMA 1569 003561 4061 JMS Z ONZER 1570 003562 4667 JMS I ASHIFT+1 1571 003563 7240 CLA CMA 1572 003564 0301 AND KA3777 1573 003565 3147 DCA Z BITSTR 1574 003566 4077 JMS Z MESSG 1575 003567 5757 JMP I TYPE3 1576 *3600 1577 003600 0000 ASRPNU, 0 1578 003601 5630 JMP I TY1 1579 003602 5631 JMP I TY1+1 1580 003603 5632 JMP I TY1+2 1581 003604 5633 JMP I TY1+3 1582 003605 5634 JMP I TY1+4 1583 003606 5635 JMP I TY1+5 1584 003607 5636 JMP I TY1+6 1585 003610 5637 JMP I TY1+7 1586 003611 5640 JMP I TY1+10 1587 003612 5641 JMP I TY1+11 1588 003613 5642 JMP I TY1+12 1589 003614 5643 JMP I TY1+13 1590 003615 5644 JMP I TY1+14 1591 003616 5645 JMP I TY1+15 1592 003617 5646 JMP I TY1+16 1593 003620 5647 JMP I TY1+17 1594 003621 5650 JMP I TY1+20 1595 003622 5651 JMP I TY1+21 1596 003623 5652 JMP I TY1+22 1597 003624 5653 JMP I TY1+23 1598 003625 5654 JMP I TY1+24 1599 003626 5655 JMP I TY1+25 1600 003627 5656 JMP I TY1+26 1601 003630 2062 TY1, Z1 1602 003631 2065 Z2 1603 003632 2067 Z3 1604 003633 2071 Z4 1605 003634 2074 Z5 1606 003635 2077 Z6 1607 003636 2102 Z7 1608 003637 2105 Z8 1609 003640 2110 Z9 1610 003641 2113 Z10 1611 003642 2117 Z11 1612 003643 2124 Z12 1613 003644 3013 Z13 1614 003645 3015 Z14 1615 003646 3017 Z15 1616 003647 3021 Z16 1617 003650 3023 Z17 1618 003651 3025 Z18 1619 003652 3027 Z19 1620 003653 3031 Z20 1621 003654 3035 Z21 1622 003655 3040 Z22 1623 003656 3043 Z23 1624 003657 0000 MQCLC, 0 1625 003660 7777 7777 1626 003661 7777 7777 1627 003662 7777 7777 1628 003663 7777 7777 1629 003664 7777 7777 1630 003665 7777 7777 1631 003666 7777 7777 1632 003667 7777 7777 1633 003670 7777 7777 1634 003671 7777 7777 1635 003672 7777 7777 1636 003673 3777 ACCLC, 3777 1637 003674 1777 1777 1638 003675 0777 0777 1639 003676 0377 0377 1640 003677 0177 0177 1641 003700 0077 0077 1642 003701 0037 0037 1643 003702 0017 0017 1644 003703 0007 0007 1645 003704 0003 0003 1646 003705 0001 0001 1647 003706 0000 0000 1648 003707 0000 0000 1649 003710 0000 0000 1650 003711 0000 0000 1651 003712 0000 0000 1652 003713 0000 0000 1653 003714 0000 0000 1654 003715 0000 0000 1655 003716 0000 0000 1656 003717 0000 0000 1657 003720 0000 0000 1658 003721 0000 0000 1659 003722 0000 0000 1660 1661 *4000 1662 004000 4336 STEST3, JMS HKEEP 1663 004001 4313 JMS GNNN 1664 004002 7360 CLA CMA STL /SET LINK 1665 004003 7421 MQL 1666 004004 7040 CMA 1667 004005 0303 AND TEST4+5 /AC TEST PATTERM 1668 004006 7415 ASR 1669 004007 0000 ASR3, 0 1670 004010 3162 DCA Z LFTAC /STORE AC 1671 004011 7501 MQA 1672 004012 3165 DCA Z LFTMQ /STORE MQ 1673 004013 7420 SNL 1674 004014 5246 JMP SXLINK+1 /CLEAR AND STORE LINK 1675 004015 5245 JMP SXLINK /SET AND STORE LINK 1676 004016 7240 CXSX, CLA CMA 1677 004017 0162 AND Z LFTAC /AC CONTENTS 1678 004020 7140 CLL CMA 1679 004021 1273 TAD ACCHK /AC COMPARE CONSTANTS 1680 004022 7040 CMA 1681 004023 7440 SZA 1682 004024 5250 JMP AASREX /ASR ERROR (AC IN ERROR) 1683 004025 7430 SZL 1684 004026 5250 JMP AASREX /ASR ERROR (AC IN ERROR) 1685 004027 7040 CMA 1686 004030 0165 AND Z LFTMQ /MQ CONTENTS 1687 004031 7140 CLL CMA 1688 004032 1274 TAD MQCHK /MQ COMPARE CONSTANTS 1689 004033 7040 CMA 1690 004034 7440 SZA 1691 004035 5250 JMP AASREX /ASR ERROR (MQ IN ERROR) 1692 004036 7430 SZL 1693 004037 5250 JMP AASREX /ASR ERROR (MQ IN ERROR) 1694 004040 7240 CLA CMA 1695 004041 0702 AND I LIINK /AC LINK 1696 004042 7440 SZA 1697 004043 5250 JMP AASREX /LINK ERROR (DID NOT EQUAL ZERO) 1698 004044 5261 JMP AS3PR-5 1699 1700 004045 7040 SXLINK, CMA 1701 004046 3702 DCA I LIINK 1702 004047 5216 JMP CXSX 1703 004050 7604 AASREX, CLA OSR /TEST SW2 1704 004051 7106 RTL CLL 1705 004052 7004 RAL 1706 004053 7430 SZL 1707 004054 4266 JMS AS3PR /PRINT ERROR 1708 004055 7604 CLA OSR /TEST SW0 1709 004056 7104 RAL CLL 1710 004057 7430 SZL 1711 004060 7402 HLT /ERROR HALT STEST3 1712 004061 7604 CLA OSR /TEST SW1 1713 004062 7106 RTL CLL 1714 004063 7430 SZL 1715 004064 5202 JMP STEST3+2 /SCOPE MODE 1716 004065 5201 JMP STEST3+1 /CONTINUE MODE 1717 1718 004066 0000 AS3PR, 0 1719 004067 4701 JMS I .+12 1720 004070 4700 JMS I .+10 1721 004071 4677 JMS I .+6 1722 004072 5666 JMP I .-4 1723 1724 004073 0000 ACCHK, 0 1725 004074 0000 MQCHK, 0 1726 004075 0000 ASREXT, 0 1727 004076 4200 TEST4, NORMT /NORMALIZE TEST 1728 004077 3414 TYPEA 1729 004100 3557 TYPE3 1730 004101 3400 TYPE 1731 004102 1747 LIINK, LFTINK 1732 004103 3777 3777 1733 004104 3405 TYPRE 1734 004105 2154 PRT 1735 004106 3060 PRTT 1736 004107 3673 ACCLC 1737 1738 004110 7750 7750 1739 004111 3601 ASRPNU+1 1740 004112 3657 MQCLC 1741 004113 0000 GNNN, 0 1742 004114 7240 CLA CMA 1743 004115 0410 AND I Z ACIND /AC AUTO INDEX PATTERN COMPARE 1744 004116 3273 DCA ACCHK 1745 004117 7040 CMA 1746 004120 0411 AND I Z MQIND /MQ AUTO INDEX PATTERN COMPARE 1747 004121 3274 DCA MQCHK 1748 004122 2207 ISZ ASR3 /INCREMENT SHIFT # 1749 004123 2161 ISZ Z PRNUM /INCREMENT ASR PRINT # 1750 004124 2275 ISZ ASREXT /INCREMENT TEST COUNT 1751 004125 5713 JMP I GNNN 1752 004126 2364 ISZ REEEE 1753 004127 5200 JMP STEST3 1754 004130 7604 CLA OSR /TEST SW3 1755 004131 7106 RTL CLL 1756 004132 7006 RTL 1757 004133 7430 SZL 1758 004134 5200 JMP STEST3 /REPEAT TEST 1759 004135 5676 JMP I TEST4 1760 004136 0000 HKEEP, 0 1761 004137 7240 CLA CMA 1762 004140 0304 AND TEST4+6 1763 004141 3705 DCA I TEST4+7 1764 004142 7040 CMA 1765 004143 0304 AND TEST4+6 1766 004144 3706 DCA I TEST4+10 1767 004145 7040 CMA 1768 004146 0307 AND TEST4+11 1769 004147 3010 DCA Z ACIND 1770 004150 7040 CMA 1771 004151 0312 AND TEST4+14 1772 004152 3011 DCA Z MQIND 1773 004153 7040 CMA 1774 004154 3207 DCA ASR3 1775 004155 7040 CMA 1776 004156 0311 AND TEST4+13 1777 004157 3161 DCA Z PRNUM 1778 004160 7040 CMA 1779 004161 0310 AND TEST4+12 1780 004162 3275 DCA ASREXT 1781 004163 5736 JMP I HKEEP 1782 004164 0000 REEEE, 0 1783 *4200 1784 004200 5267 NORMT, JMP HSENMI 1785 004201 4321 JMS GXEN 1786 004202 7240 CLA CMA 1787 004203 0314 AND MQNMIX 1788 1789 004204 7421 MQL /LOAD MQ INDEXED PATTERN 1790 004205 7040 CMA 1791 004206 0313 AND ACNMIX /LOAD AC INDEX PATTERN 1792 004207 7411 NMI 1793 004210 3316 DCA ACNMIN /STORE AC 1794 004211 7501 MQA 1795 004212 3315 DCA MQNMIN /STORE MQ 1796 004213 7441 SCA 1797 004214 3307 DCA SCAST /STORE SCA COUNT 1798 004215 7040 CMA 1799 004216 0316 AND ACNMIN 1800 004217 7140 CLL CMA 1801 004220 1310 TAD NMIODD /6000 1802 004221 7040 CMA 1803 004222 7440 SZA 1804 004223 5250 JMP NMIERR /AC DID NOT EQUAL 6000 1805 004224 7430 SZL 1806 004225 5250 JMP NMIERR /AC DID NOT EQUAL 6000 1807 004226 7240 CLA CMA 1808 004227 0315 AND MQNMIN 1809 004230 7440 SZA 1810 004231 5250 JMP NMIERR /MQ DID NOT EQUAL 0000 1811 004232 7040 CMA 1812 004233 0307 AND SCAST 1813 004234 7140 CLL CMA 1814 004235 1312 TAD SCASTX /INDEXED STEP COUNT # 1815 004236 7040 CMA 1816 004237 7440 SZA 1817 004240 5250 JMP NMIERR /SC IN ERROR 1818 004241 7430 SZL 1819 004242 5250 JMP NMIERR /SC IN ERROR 1820 004243 7240 CLA CMA 1821 004244 0312 AND SCASTX /TEST SCA COUNT FOR 0 1822 004245 7440 SZA /TO EXIT 1823 004246 5262 JMP NMIERR+12 /CONTINUE TEST 1824 004247 5301 JMP EXINMI 1825 004250 7604 NMIERR, CLA OSR /TEST SW2 1826 004251 7106 RTL CLL 1827 004252 7004 RAL 1828 004253 7420 SNL 1829 004254 7410 SKP 1830 004255 4720 JMS I SCAST+11 /JUMP TO PRINT ROUTINE 1831 004256 7604 CLA OSR 1832 004257 7104 RAL CLL 1833 004260 7430 SZL /TEST SW0 1834 004261 7402 HLT 1835 004262 7604 CLA OSR 1836 004263 7106 RTL CLL 1837 004264 7430 SZL /TEST SW1 1838 004265 5202 JMP NORMT+2 1839 004266 5201 JMP NORMT+1 1840 004267 7240 HSENMI, CLA CMA 1841 004270 0336 AND ACNMIQ 1842 004271 3012 DCA XACNMI /AC AUTO START ADDRESS 1843 004272 7040 CMA 1844 004273 0337 AND MQNMIQ 1845 004274 3013 DCA XMQNMI /MQ AUTO START ADDRESS 1846 004275 7040 CMA 1847 004276 0311 AND SCC23 /SC 23 1848 004277 3312 DCA SCASTX /STORE DECIMAL 23 1849 004300 5201 JMP NORMT+1 1850 004301 7604 EXINMI, CLA OSR /TEST SW3 1851 004302 7106 RTL CLL 1852 004303 7006 RTL 1853 004304 7430 SZL 1854 004305 5200 JMP NORMT /REPEAT ENTIRE TEST 1855 004306 5717 JMP I SCAST+10 /JMP TO NEXT NMI TEST 1856 004307 0000 SCAST, 0 1857 004310 6000 NMIODD, 6000 1858 004311 0027 SCC23, 0027 /23 DECIMAL 1859 004312 0000 SCASTX, 0 1860 004313 0000 ACNMIX, 0 1861 004314 0000 MQNMIX, 0 1862 004315 0000 MQNMIN, 0 1863 004316 0000 ACNMIN, 0 1864 004317 5000 NORMT1 1865 004320 4400 PRNMI 1866 004321 0000 GXEN, 0 1867 004322 7240 CLA CMA 1868 004323 0412 AND I Z XACNMI 1869 004324 3313 DCA ACNMIX /STORE AC PATTERN 1870 004325 7040 CMA 1871 004326 0413 AND I Z XMQNMI 1872 004327 3314 DCA MQNMIX /STORE MQ PATTERN 1873 004330 7040 CMA 1874 004331 0312 AND SCASTX /SUBTRACT ONE FROM SCA COUNT 1875 004332 7041 CIA 1876 004333 7040 CMA 1877 004334 3312 DCA SCASTX /STORE DECREMENTED SCA COUNT 1878 004335 5340 JMP EXEN 1879 004336 4517 ACNMIQ, ACNMI 1880 004337 4533 MQNMIQ, MQNMI 1881 004340 7240 EXEN, CLA CMA 1882 004341 0312 AND SCASTX 1883 004342 7440 SZA 1884 004343 5721 JMP I GXEN 1885 004344 5301 JMP EXINMI 1886 *4400 1887 004400 0000 PRNMI, 0 /PRINT ROUTINE 1888 004401 4036 JMS Z CRLF 1889 004402 4712 JMS I SPR2+16 1890 004403 4674 JMS I SPR2 1891 004404 4674 JMS I SPR2 1892 004405 4674 JMS I SPR2 1893 004406 4675 JMS I SPR2+1 1894 004407 4676 JMS I SPR2+2 1895 004410 4677 JMS I SPR2+3 1896 004411 4700 JMS I SPR2+4 1897 004412 4701 JMS I SPR2+5 1898 004413 4675 JMS I SPR2+1 1899 004414 4676 JMS I SPR2+2 1900 004415 4702 JMS I SPR2+6 1901 004416 4700 JMS I SPR2+4 1902 004417 4036 JMS Z CRLF 1903 004420 4674 JMS I SPR2 1904 004421 4674 JMS I SPR2 1905 004422 4674 JMS I SPR2 1906 004423 7240 CLA CMA 1907 004424 0703 AND I SPR2+7 1908 004425 3147 DCA Z BITSTR 1909 004426 4077 JMS Z MESSG 1910 004427 4674 JMS I SPR2 1911 004430 4704 JMS I SPR2+10 1912 004431 7240 CLA CMA 1913 004432 0705 AND I SPR2+11 1914 004433 3147 DCA Z BITSTR 1915 004434 4077 JMS Z MESSG 1916 004435 4036 JMS Z CRLF 1917 004436 4713 JMS I SPR2+17 1918 004437 4674 JMS I SPR2 1919 004440 4704 JMS I SPR2+10 1920 004441 7240 CLA CMA 1921 004442 0706 AND I SPR2+12 1922 004443 3147 DCA Z BITSTR 1923 004444 4077 JMS Z MESSG 1924 004445 4674 JMS I SPR2 1925 004446 4704 JMS I SPR2+10 1926 004447 7240 CLA CMA 1927 004450 0707 AND I SPR2+13 1928 004451 3147 DCA Z BITSTR 1929 004452 4077 JMS Z MESSG 1930 004453 4036 JMS Z CRLF 1931 004454 4714 JMS I SPR2+20 1932 004455 4674 JMS I SPR2 1933 004456 7240 CLA CMA 1934 004457 0710 AND I SPR2+14 1935 004460 3147 DCA Z BITSTR 1936 004461 4077 JMS Z MESSG 1937 004462 4036 JMS Z CRLF 1938 004463 4715 JMS I SPR2+21 1939 004464 4674 JMS I SPR2 1940 004465 4704 JMS I SPR2+10 1941 004466 7240 CLA CMA 1942 004467 0711 AND I SPR2+15 1943 004470 3147 DCA Z BITSTR 1944 004471 4077 JMS Z MESSG 1945 004472 4036 JMS Z CRLF 1946 004473 5600 JMP I PRNMI 1947 004474 0327 SPR2, SP2 1948 004475 2200 PC 1949 004476 2205 LPAR 1950 004477 0337 AC 1951 004500 2212 RPAR 1952 004501 2142 TENSP 1953 004502 0305 MQ 1954 004503 4313 ACNMIX 1955 004504 0347 SP1 1956 004505 4314 MQNMIX 1957 004506 4316 ACNMIN 1958 004507 4315 MQNMIN 1959 004510 4312 SCASTX 1960 004511 4307 SCAST 1961 004512 4600 NMITPR 1962 004513 4624 NMIXX 1963 004514 4627 SCATXX 1964 004515 4633 SCAXX 1965 004516 0000 0 1966 1967 004517 0000 ACNMI, 0 1968 004520 7777 7777 /SC22 1969 004521 7777 7777 /SC21 1970 004522 7777 7777 /SC 20 1971 004523 7777 7777 /SC 19 1972 004524 7777 7777 /SC 18 1973 004525 7777 7777 /SC 17 1974 004526 7777 7777 /SC 16 1975 004527 7777 7777 /SC 15 1976 004530 7777 7777 /SC 14 1977 004531 7777 7777 /SC 13 1978 004532 7777 7777 /SC 12 1979 004533 7777 MQNMI, 7777 /SC 11 1980 004534 7777 7777 /SC 10 1981 004535 7776 7776 /SC 9 1982 004536 7774 7774 /SC 8 1983 004537 7770 7770 /SC 7 1984 004540 7760 7760 /SC 6 1985 004541 7740 7740 /SC 5 1986 004542 7700 7700 /SC 4 1987 004543 7600 7600 /SC 3 1988 004544 7400 7400 /SC 2 1989 004545 7000 7000 /SC 1 1990 004546 6000 6000 /SC 0 1991 004547 4000 4000 1992 004550 0000 0000 1993 004551 0000 0000 1994 004552 0000 0000 1995 004553 0000 0 1996 004554 0000 0 1997 004555 0000 0 1998 004556 0000 0 1999 004557 0000 0 2000 004560 0000 0 2001 004561 0000 0 2002 004562 0000 0 2003 004563 0000 0 2004 004564 0000 0 2005 *4600 2006 004600 0000 NMITPR, 0 2007 004601 4204 JMS PNORM 2008 004602 4217 JMS XNORMT 2009 004603 5600 JMP I NMITPR 2010 004604 0000 PNORM, 0 2011 004605 7240 CLA CMA 2012 004606 0256 AND N 2013 004607 4046 JMS Z PRXLOP 2014 004610 7240 CLA CMA 2015 004611 0257 AND N+1 2016 004612 4046 JMS Z PRXLOP 2017 004613 7240 CLA CMA 2018 004614 0260 AND N+2 2019 004615 4046 JMS Z PRXLOP 2020 004616 5604 JMP I PNORM 2021 004617 0000 XNORMT, 0 2022 2023 004620 7240 CLA CMA 2024 004621 0261 AND N+3 2025 004622 4046 JMS Z PRXLOP 2026 004623 5617 JMP I XNORMT 2027 004624 0000 NMIXX, 0 2028 004625 4204 JMS PNORM 2029 004626 5624 JMP I NMIXX 2030 004627 0000 SCATXX, 0 2031 004630 4236 JMS PSTEP 2032 004631 4251 JMS PSTEPT 2033 004632 5627 JMP I SCATXX 2034 004633 0000 SCAXX, 0 2035 004634 4236 JMS PSTEP 2036 004635 5633 JMP I SCAXX 2037 004636 0000 PSTEP, 0 2038 004637 7240 CLA CMA 2039 004640 0262 AND N+4 2040 004641 4046 JMS Z PRXLOP 2041 004642 7240 CLA CMA 2042 004643 0263 AND N+5 2043 004644 4046 JMS Z PRXLOP 2044 004645 7240 CLA CMA 2045 004646 0264 AND N+6 2046 004647 4046 JMS Z PRXLOP 2047 004650 5636 JMP I PSTEP 2048 004651 0000 PSTEPT, 0 2049 004652 7240 CLA CMA 2050 004653 0261 AND N+3 2051 004654 4046 JMS Z PRXLOP 2052 004655 5651 JMP I PSTEPT 2053 004656 0316 N, 0316 /N 2054 004657 0315 0315 /M 2055 004660 0311 0311 /I 2056 004661 0324 0324 /T 2057 004662 0323 0323 /S 2058 004663 0303 0303 /C 2059 004664 0301 0301 /A 2060 *5000 2061 005000 5261 NORMT1, JMP HSENM 2062 005001 4272 JMS GENNMI 2063 005002 7240 CLA CMA 2064 005003 0715 AND I TST25+1 /LOAD MQ PATTERN 2065 005004 7421 MQL 2066 005005 7240 CLA CMA 2067 005006 0716 AND I TST25+2 /LOAD AC PATTERN 2068 005007 7411 NMI 2069 005010 3724 DCA I TST25+10 /STORE NORMALIZED AC 2070 005011 7501 MQA 2071 005012 3725 DCA I TST25+11 /STORE NORMALIZED MQ 2072 005013 7441 SCA 2073 005014 3726 DCA I TST25+12 /STORE THE SCA COUNT 2074 005015 7240 CLA CMA 2075 005016 0724 AND I TST25+10 2076 005017 7140 CLL CMA 2077 005020 1715 TAD I TST25+1 2078 005021 7040 CMA 2079 005022 7440 SZA 2080 005023 5332 JMP NMERR /AC DID NOT EQUAL 2525 2081 005024 7430 SZL 2082 005025 5332 JMP NMERR /AC DID NOT EQUAL 2525 2083 005026 7240 CLA CMA 2084 005027 0725 AND I TST25+11 2085 005030 7440 SZA 2086 005031 5332 JMP NMERR /MQ DID NOT EQUAL 0000 2087 005032 7240 CLA CMA 2088 005033 0726 AND I TST25+12 2089 005034 7140 CLL CMA 2090 005035 1330 TAD DEC12 /DECIMAL 12 2091 005036 7040 CMA 2092 005037 7440 SZA 2093 005040 5332 JMP NMERR /SC DID NOT EQUAL 12 2094 005041 7430 SZL 2095 005042 5332 JMP NMERR /SC DID NOT EQUAL 12 2096 005043 2314 ISZ TST25 /REPEAT CURRENT TEST PATTERN 2097 005044 5202 JMP NORMT1+2 2098 005045 7604 CLA OSR /TEST SW1 2099 005046 7106 RTL CLL 2100 005047 7430 SZL 2101 005050 5202 JMP NORMT1+2 2102 005051 2321 ISZ NMFLG 2103 2104 005052 5201 JMP NORMT1+1 2105 005053 7604 CLA OSR /TEST SW3 2106 005054 7106 RTL CLL 2107 005055 7006 RTL 2108 005056 7430 SZL 2109 005057 5200 JMP NORMT1 2110 005060 5723 JMP I NEXNMI 2111 005061 7200 HSENM, CLA 2112 005062 3314 DCA TST25 /CLEAR TEST COUNTER 2113 005063 7000 NOP 2114 005064 7040 CMA 2115 005065 0322 AND NM7776 2116 005066 3321 DCA NMFLG 2117 005067 1330 TAD DEC12 2118 005070 3727 DCA I TST25+13 2119 005071 5201 JMP NORMT1+1 2120 005072 0000 GENNMI, 0 2121 005073 7240 CLA CMA 2122 005074 0321 AND NMFLG 2123 005075 7040 CMA 2124 005076 7440 SZA 2125 005077 5301 JMP PA2525 /GENERATE 2525 2126 005100 5306 JMP PA2525+5 /GENERATE 5252 2127 005101 7240 PA2525, CLA CMA 2128 005102 0317 AND NM2525 /MQ PATTERN 2525 2129 005103 3715 DCA I TST25+1 2130 005104 3716 DCA I TST25+2 /AC PATTERN 0000 2131 005105 5672 JMP I GENNMI 2132 005106 7240 CLA CMA 2133 005107 0320 AND NM5252 /MQ PATTERN 5252 2134 005110 3715 DCA I TST25+1 2135 005111 7040 CMA 2136 005112 3716 DCA I TST25+2 /AC PATTERN 7777 2137 005113 5672 JMP I GENNMI 2138 005114 0000 TST25, 0 2139 005115 4314 MQNMIX 2140 005116 4313 ACNMIX 2141 005117 2525 NM2525, 2525 2142 005120 5252 NM5252, 5252 2143 005121 0000 NMFLG, 0 2144 005122 7776 NM7776, 7776 2145 005123 5200 NEXNMI, NORMT2 2146 005124 4316 ACNMIN 2147 005125 4315 MQNMIN 2148 005126 4307 SCAST 2149 005127 4312 SCASTX 2150 005130 0014 DEC12, 0014 2151 005131 4400 PRNMI 2152 005132 7604 NMERR, CLA OSR /TEST SW2 2153 005133 7106 RTL CLL 2154 005134 7004 RAL 2155 005135 7420 SNL 2156 005136 7410 SKP 2157 005137 4731 JMS I DEC12+1 2158 005140 7604 CLA OSR 2159 005141 7104 RAL CLL 2160 005142 7430 SZL /TEST SW0 2161 005143 7402 HLT 2162 005144 7604 CLA OSR /TEST SW1 2163 005145 7106 RTL CLL 2164 005146 7420 SNL 2165 005147 5202 JMP NORMT1+2 /CONTINUE 2166 005150 7200 CLA 2167 005151 3314 DCA TST25 /CLEAR CURRENT TEST COUNTER 2168 005152 5202 JMP NORMT1+2 /SCOPE 2169 *5200 2170 2171 005200 5307 NORMT2, JMP HKE /HOUSE KEEPING 2172 005201 4255 JMS GEX /PATTERN GENERATOR 2173 005202 7621 CAM 2174 005203 7040 CMA 2175 005204 0734 AND I PAT01 2176 005205 7421 MQL /MQ PATTERN 2177 005206 7140 CLL CMA 2178 005207 0735 AND I PAT00 /AC PATTERN 2179 005210 7411 NMI 2180 005211 3736 DCA I SPAT00 /STORE AC NORMALIZED PATTERN 2181 005212 7501 MQA 2182 005213 3737 DCA I SPAT01 /STORE MQ NORMALIZED PATTERN 2183 005214 7441 SCA 2184 005215 3743 DCA I SCANM /STORE SCA COUNT 2185 005216 7040 CMA 2186 005217 0736 AND I SPAT00 /AC PATTERN 2187 005220 7040 CMA 2188 005221 1340 TAD CHKAC /CHECK PATTERN AC 2189 005222 7040 CMA 2190 005223 7440 SZA /TEST AC BITS 2191 005224 5314 JMP MT2ER /SPAT00 NOT EQUAL TO CHKAC 2192 005225 7430 SZL 2193 005226 5314 JMP MT2ER /SPAT00 NOT EQUAL TO CHKAC 2194 005227 7040 CMA 2195 005230 0737 AND I SPAT01 /MQ PATTERN 2196 005231 7040 CMA 2197 005232 1341 TAD CHKMQ /CHECK PATTERN MQ 2198 005233 7040 CMA 2199 005234 7440 SZA /TEST MQ BITS 2200 005235 5314 JMP MT2ER /SPAT01 NOT EQUAL TO CHKMQ 2201 005236 7430 SZL 2202 005237 5314 JMP MT2ER /SPAT01 NOT EQUAL TO CHKMQ 2203 005240 7040 CMA 2204 005241 0743 AND I SCANM /SCA COUNT PATTERN 2205 005242 7041 CIA 2206 005243 1742 TAD I CHKSCA /CHECK PATTERN SCA 2207 005244 7420 SNL 2208 005245 5314 JMP MT2ER /SCANM NOT EQUAL TO CHKSCA 2209 005246 2345 ISZ AGAIN /4096 REPEATS CURRENT TEST 2210 005247 5202 JMP NORMT2+2 2211 005250 7604 NMTS1, CLA OSR /TEST SW1 2212 005251 7106 RTL CLL 2213 005252 7430 SZL 2214 005253 5202 JMP NORMT2+2 2215 005254 5354 JMP PATCH /JUMP TO SW3 2216 005255 0000 GEX, 0 2217 005256 7240 CLA CMA 2218 005257 0346 AND TPFLAG 2219 005260 7040 CMA 2220 005261 7440 SZA 2221 005262 5264 JMP .+2 /GENERATE 0000 MQ PATTERN 2222 005263 5273 JMP .+10 /GENERATE 0001 MQ PATTERN 2223 005264 7200 CLA 2224 005265 3735 DCA I PAT00 /STORE AC PATTERN 2225 005266 3734 DCA I PAT01 /STORE MQ PATTERN 2226 005267 3340 DCA CHKAC /STORE AC CHECK 2227 005270 3341 DCA CHKMQ /STORE MQ CHECK 2228 005271 3742 DCA I CHKSCA /STORE SCA CHECK 2229 005272 5655 JMP I GEX 2230 005273 7240 CLA CMA 2231 005274 0344 AND SCANM+1 /MQ PATTERN (0001) 2232 005275 3734 DCA I PAT01 /STORE MQ PATTERN 2233 005276 7040 CMA 2234 005277 0347 AND TPFLAG+1 /22 DECIMAL PLACES (0030) 2235 005300 3742 DCA I CHKSCA 2236 005301 3735 DCA I PAT00 /STORE AC PATTERN 2237 005302 3341 DCA CHKMQ /STORE MQ CHECK 2238 005303 7040 CMA 2239 005304 0350 AND TPFLAG+2 /20000 2240 005305 3340 DCA CHKAC /STORE AC CHECK 2241 005306 5655 JMP I GEX 2242 2243 005307 7240 HKE, CLA CMA /HOUSE KEEPING 2244 005310 0351 AND TPFLAG+3 /7776 2245 005311 3346 DCA TPFLAG /LOAD FLAG 2246 005312 3345 DCA AGAIN /CHECK TEST COUNTER 2247 005313 5201 JMP NORMT2+1 2248 005314 7604 MT2ER, CLA OSR /TEST SW2 2249 005315 7106 RTL CLL 2250 005316 7004 RAL 2251 005317 7430 SZL 2252 005320 4752 JMS I TPFLAG+4 /PRINT ROUTINE 2253 005321 7604 CLA OSR /TEST SE0 2254 005322 7104 RAL CLL 2255 005323 7430 SZL 2256 005324 7402 HLT 2257 005325 5250 JMP NMTS1 2258 005326 7604 NMTS3, CLA OSR /TEST SE3 2259 005327 7106 RTL CLL 2260 005330 7006 RTL 2261 005331 7430 SZL 2262 005332 5200 JMP NORMT2 /CONTINUE 2263 005333 5753 JMP I TPFLAG+5 2264 005334 4314 PAT01, MQNMIX 2265 005335 4313 PAT00, ACNMIX 2266 005336 4316 SPAT00, ACNMIN 2267 005337 4315 SPAT01, MQNMIN 2268 005340 0000 CHKAC, 0 2269 005341 0000 CHKMQ, 0 2270 005342 4312 CHKSCA, SCASTX 2271 005343 4307 SCANM, SCAST 2272 005344 0001 0001 2273 005345 0000 AGAIN, 0 2274 005346 0000 TPFLAG, 0 2275 005347 0026 0026 2276 005350 2000 2000 2277 005351 7776 7776 2278 005352 4400 PRNMI 2279 005353 5510 E3A 2280 005354 2346 PATCH, ISZ TPFLAG 2281 005355 5201 JMP NORMT2+1 2282 005356 5326 JMP NMTS3 2283 2284 *5400 2285 005400 0000 TSTSCL, 0 2286 005401 7200 CLA 2287 005402 7403 SCL /LOAD SC WITH 00 2288 005403 7737 7737 2289 005404 7441 SCA 2290 005405 7640 SZA CLA 2291 005406 7402 HLT 2292 005407 7403 SCL 2293 005410 7776 7776 /SC TO 01 2294 005411 7441 SCA 2295 005412 1210 TAD .-2 2296 005413 7040 CMA 2297 005414 7640 SZA CLA 2298 005415 7402 HLT 2299 005416 7403 SCL 2300 005417 7775 7775 /02 2301 005420 7441 SCA 2302 005421 1217 TAD .-2 2303 005422 7040 CMA 2304 005423 7640 SZA CLA 2305 005424 7402 HLT 2306 005425 7403 SCL 2307 005426 7773 7773 /04 2308 005427 7441 SCA 2309 005430 1226 TAD .-2 2310 005431 7040 CMA 2311 005432 7640 SZA CLA 2312 005433 7402 HLT 2313 005434 7403 SCL 2314 005435 7767 7767 /10 2315 005436 7441 SCA 2316 005437 1235 TAD .-2 2317 005440 7040 CMA 2318 005441 7640 SZA CLA 2319 005442 7402 HLT 2320 005443 7403 SCL 2321 005444 7757 7757 /20 2322 005445 7441 SCA 2323 005446 1244 TAD .-2 2324 005447 7040 CMA 2325 005450 7640 SZA CLA 2326 005451 7402 HLT 2327 005452 7403 SCL 2328 005453 7765 7765 /12 2329 005454 7441 SCA 2330 005455 1253 TAD .-2 2331 005456 7040 CMA 2332 005457 7640 SZA CLA 2333 005460 7402 HLT 2334 005461 7403 SCL 2335 005462 7752 7752 /25 2336 005463 7441 SCA 2337 005464 1262 TAD .-2 2338 005465 7040 CMA 2339 005466 7640 SZA CLA 2340 005467 7402 HLT 2341 005470 7403 SCL 2342 005471 0077 0077 /00 2343 005472 7441 SCA 2344 005473 7640 SZA CLA 2345 005474 7402 HLT 2346 005475 7403 SCL 2347 005476 7700 7700 /37 2348 005477 7441 SCA 2349 005500 1321 TAD C7740 2350 005501 7040 CMA 2351 005502 7640 SZA CLA 2352 005503 7402 HLT 2353 005504 2307 ISZ SCLCNT /4096 PASSES 2354 005505 5201 JMP TSTSCL+1 /ANOTHER PASS 2355 005506 5600 JMP I TSTSCL /GOOD TO GO 2356 005507 0000 SCLCNT, 0000 2357 2358 005510 4036 E3A, JMS Z CRLF 2359 005511 7240 CLA CMA 2360 005512 0154 AND Z THREE /3 2361 005513 4046 JMS Z PRXLOP 2362 005514 7040 CMA 2363 005515 0137 AND Z A /A 2364 005516 4046 JMS Z PRXLOP 2365 005517 5720 JMP I .+1 2366 2367 005520 0201 BIGL, MQLT 2368 005521 7740 C7740, 7740 2369 $