1 /KE8 EAE MULTIPLY/DIVIDE TEST MAINDEC-8I-D0BA 2 /COPYRIGHT 1972, DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 01754 3 / 4 /PROGRAMMER: ED FORTMILLER 5 / 6 *0 7 000000 0000 0 8 000001 5001 JMP 1 9 000002 0002 2 10 000003 0003 3 11 *5 12 000005 5406 JMP I .+1 /GO TO INTERRUPT 13 000006 1020 INTSVC /SERVICE ROUTINE 14 / 15 DVI=7407 16 NMI=7411 17 SHL=7413 18 ASR=7415 19 LSR=7417 20 MQL=7421 21 MUY=7405 22 MQA=7501 23 CAM=7621 24 SCA=7441 25 SCL=7401 26 ION=6001 27 HLT=7402 28 29 OPEN=0000 /PROGRAM MODIFYABLE 30 / 31 *20 32 000020 4400 KSTART, TST0 33 000021 0234 CHAIN, CHAINN 34 000022 0275 SHLT, SHALT 35 000023 0304 SETCTR, STCTR 36 000024 0200 SRST, SRSET 37 000025 0400 XTYPST, TYPSTG 38 000026 0315 RANDNO, RANGEN 39 000027 1200 UMUYT, MUYT 40 000030 1400 UDIVT, DIVT 41 000031 1650 UMOVE, MOVE 42 000032 1262 MULT 43 000033 1461 DIVD 44 000034 1272 MSTR 45 000035 1473 DSTR 46 000036 1676 UCOMP, COMP 47 000037 1600 USR4T, SR4T 48 000040 1610 USR5T, SR5T 49 000041 1620 USR6T, SR6T 50 000042 1630 UST7T, SR7T 51 000043 1640 USATET, SATET 52 53 000044 1305 MEHLT 54 000045 1506 DEHLT 55 000046 1312 MERPT 56 000047 1513 DERPT 57 000050 1325 MFRP 58 000051 1526 DFRP 59 000052 1347 MSMP 60 000053 1550 DSMP 61 62 000054 2463 UMUYSM, MUYSM 63 000055 2600 UDIVSM, DIVSM 64 000056 1726 UPRT0, PRT0 65 000057 1732 UPRT1, PRT1 66 000060 1736 UPSPC, PSPC 67 000061 1753 UCRLF, CRLF 68 000062 2000 UMSG1, MSG1 69 000063 1771 UMSG1A, MSG1A 70 000064 2063 UMSG2, MSG2 71 000065 2200 UPL, PL 72 000066 2143 UPREG, PREG 73 000067 2014 UERPSB, ERPSB 74 000070 2230 UPLRGS, PLRGS 75 000071 2400 UHDSC0, HDSC0 76 000072 2256 UF1TEL, F1TEL 77 000073 2422 UP1213, P1213 78 000074 2215 UPFR, PFR 79 000075 3000 UADAC, ADAC 80 000076 3012 UADNAC, ADNAC 81 000077 3025 UADSB, ADSB 82 000100 2541 UMQROT, MQROT 83 000101 2562 UMQRTA, MQRTA 84 000102 2737 UMVR, MVR 85 000103 2566 UZMQ11, ZMQ11 86 000104 2075 BDCNV 87 000105 5000 UTAB, TAB 88 000106 4154 UFBRM, FBRM 89 000107 4200 UMDEXR, MDEXR 90 000110 1000 UPUNCH, PUNCH 91 000111 1047 UEXERP, EXERP 92 93 000112 0000 TEMP, 0 94 000113 0000 TEMP1, 0 95 000114 0007 K7, 7 96 000115 0000 CURTST, 0 97 000116 0000 RTNNO, 0 98 000117 0000 NXTST, 0 99 000120 0000 0 100 000121 0000 0 101 000122 7444 7444 102 000123 0000 A, 0 103 000124 0000 B, 0 104 000125 0000 L, 0 105 000126 0000 AC, 0 106 000127 0000 MQ, 0 107 000130 0000 MB, 0 108 000131 0000 LSB, 0 109 000132 0000 ACSB, 0 110 000133 0000 MQSB, 0 111 000134 0000 MBSB, 0 112 000135 0000 LR, 0 113 000136 0000 ACR, 0 114 000137 0000 MQR, 0 115 000140 0000 MBR, 0 116 000141 0000 LB, 0 117 000142 0000 ACB, 0 118 000143 0000 MQB, 0 119 000144 0000 MBB, 0 120 000145 0000 LF, 0 121 000146 0000 ACF, 0 122 000147 0000 MQF, 0 123 000150 0000 MBF, 0 124 000151 0000 SCS, 0 125 000152 0000 MQ0S, 0 126 000153 0000 OFLO, 0 127 000154 0000 TABF, 0 128 000155 7776 R11Z, 7776 129 000156 0002 MQ10M, 0002 130 000157 6000 K6000, 6000 131 000160 0000 FCTR, 0 /FAILURES COUNTER 132 000161 0000 FRCTR, 0 133 000162 7634 LCNT, -144 /DESIRED TEST LOOP COUNT 134 000163 0000 LCTR, 0 /TEST LOOP COUNTER 135 000164 0000 TCTR, 0 /NUMBER OF TESTS COUNTER 136 000165 0002 K2, 2 137 000166 0003 K3, 3 138 000167 0004 K4, 4 139 000170 0006 K6, 6 140 000171 0000 TEXR, 0 141 000172 0707 K0707, 0707 142 000173 6060 K6060, 6060 143 000174 7700 K7700, 7700 144 145 146 147 *0200 148 000200 7402 SRSET, HLT /HALT TO SET SR SWITCHES TO 149 /ANY DESIRED OPTION 150 000201 4431 JMS I UMOVE /Move 151 000202 0005 5 /Interrupt trampoline 152 000203 0001 1 /To location 1 153 000204 7776 -2 154 000205 1162 TAD LCNT 155 000206 3163 DCA LCTR 156 000207 6001 ION 157 000210 7200 GETRDY, CLA 158 000211 1020 TAD KSTART /SET ADDRESS OF 1ST ROUTINE 159 000212 3117 DCA NXTST /STORE AT NXTST 160 000213 4260 JMS FORWD 161 000214 7604 LAS 162 000215 7004 RAL 163 000216 7500 SMA /ROUTINE SELECT? 164 000217 5515 JMP I CURTST /NO, START WITH CURRENT RTN 165 000220 7604 FINDIT, LAS /YES 166 000221 0114 AND K7 167 000222 7041 CIA 168 000223 1116 TAD RTNNO 169 000224 7650 SNA CLA /IS IT THIS RTN? 170 000225 5515 JMP I CURTST /NO, START WITH CURRENT RTN 171 000226 1117 TAD NXTST /NO 172 000227 7001 IAC /US THIS LAST RTN? 173 000230 7640 SZA CLA 174 000231 5213 JMP GETRDY+3 /NO 175 000232 7402 INCRTN, HLT /YES, INCORRECT ROUTINE NO. 176 000233 5210 JMP GETRDY 177 000234 4275 CHAINN, JMS SHALT /HALT ? (SR0) 178 000235 7604 LAS 179 000236 7006 RTL 180 000237 7430 SZL 181 000240 5210 JMP GETRDY 182 000241 7510 SPA 183 000242 5515 JMP I CURTST 184 000243 3113 DCA TEMP1 /NO, SAVE AC 185 000244 1117 TAD NXTST /GET NEXT ROUTINE ADDR 186 000245 7001 IAC 187 000246 7640 SZA CLA /LAST ROUTINE? 188 000247 5213 JMP GETRDY+3 /NO 189 000250 2163 ISZ LCTR 190 000251 5210 JMP GETRDY 191 000252 1113 TAD TEMP1 192 000253 7004 RAL 193 000254 7510 SPA /LOOP PROGRAM 194 000255 5210 JMP GETRDY /YES 195 000256 7402 HLT /END OF PROGRAM HALT; SR 3=1. 196 000257 5234 JMP CHAINN 197 198 199 000260 0000 FORWD, 0 200 000261 7300 CLA CLL 201 000262 1517 TAD I NXTST /GET NEXT RTN NO 202 000263 3116 DCA RTNNO /STORE AT RTNNO 203 000264 2117 ISZ NXTST 204 000265 1117 TAD NXTST /GET CURRENT 205 000266 3112 DCA TEMP /ROUTINE NUMBER 206 000267 2117 ISZ NXTST 207 000270 1117 TAD NXTST /SET CURRENT 208 000271 3115 DCA CURTST /ROUTINE ADDRESS 209 000272 1512 TAD I TEMP /GET NEXT ROUTINE 210 000273 3117 DCA NXTST /ADDR, STORE AT NEXTST 211 000274 5660 JMP I FORWD /EXIT 212 000275 0000 SHALT, 0 213 000276 7604 LAS /READ SR 214 000277 7700 SMA CLA /HALT ? (SR0) 215 000300 5675 JMP I SHALT /NO, EXIT 216 000301 1116 TAD RTNNO 217 / 218 000302 7402 HLT /UNCONDITIONAL HALT (SR0 = 1) 219 / 220 000303 5675 JMP I SHALT /EXIT 221 222 000304 0000 STCTR, OPEN 223 000305 7300 CLA CLL 224 000306 1704 TAD I STCTR /SET CTR ADDRESS 225 000307 3112 DCA TEMP /SAVE AT TEMP 226 000310 2304 ISZ STCTR / 227 000311 1704 TAD I STCTR /SET COUNT 228 000312 3512 DCA I TEMP /STORE PER C(TEMP) 229 000313 2304 ISZ STCTR 230 000314 5704 JMP I STCTR 231 232 233 234 /RANDOM NUMBER GENERATOR SUBROUTIN 235 000315 0000 RANGEN, 0 236 000316 7200 CLA 237 000317 1360 TAD RANTND 238 000320 1345 TAD RANDEX 239 000321 7640 SZA CLA 240 000322 5332 JMP RANTAD 241 000323 1347 TAD RANTBL 242 000324 3345 DCA RANDEX 243 000325 1346 TAD RANCON 244 000326 7104 CLL RAL 245 000327 7430 SZL 246 000330 7001 IAC 247 000331 3346 DCA RANCON 248 000332 1346 RANTAD, TAD RANCON 249 000333 1745 TAD I RANDEX 250 000334 3745 DCA I RANDEX 251 000335 1361 TAD RANSAV 252 000336 7010 RAR 253 000337 1745 TAD I RANDEX 254 000340 2345 ISZ RANDEX 255 000341 7000 NOP 256 000342 3361 DCA RANSAV 257 000343 1361 TAD RANSAV 258 000344 5715 JMP I RANGEN 259 000345 0360 RANDEX, RANTND 260 000346 6543 RANCON, 6543 261 000347 0350 RANTBL, .+1 262 000350 6543 6543 263 000351 3210 3210 264 000352 0765 0765 265 000353 5432 5432 266 000354 2107 2107 267 000355 7654 7654 268 000356 4321 4321 269 000357 1076 1076 270 000360 7420 RANTND, -. 271 000361 0000 RANSAV, OPEN 272 273 274 275 276 277 *400 278 000400 0000 TYPSTG, 0 279 000401 7200 CLA 280 000402 1600 TAD I TYPSTG /GET INITIAL ADDRESS 281 000403 3262 DCA TEMQ /STORE INITIAL ADDRESS 282 000404 3264 DCA FLAG /CLEAR FLAG 283 000405 2200 ISZ TYPSTG /PRESETUP EXIT 284 000406 1662 TSC1, TAD I TEMQ /PICK UP DATA 285 000407 7012 RTR /ROTATE 6 BITS RIGHT 286 000410 7012 RTR 287 000411 7012 RTR 288 000412 4217 JMS TSC2 /GO TYPE FIRST CHAR 289 000413 1662 TAD I TEMQ /PICK UP DATA 290 000414 4217 JMS TSC2 /GO TYPE SECOND CHARACTER 291 000415 2262 ISZ TEMQ /EVAN STRING ADDRESS 292 000416 5206 JMP TSC1 /GO BACK FOR MORE 293 000417 0000 TSC2, 0 294 000420 0265 AND K77 /MASK OFF 6 BITS 295 000421 3263 DCA TEMR /SAVE CHARACTER 296 000422 1264 TAD FLAG /TEST "SPECIAL" FLAG 297 000423 7640 SZA CLA 298 000424 5234 JMP TYPSP /SET: TYPE SPECIAL 299 000425 1263 TAD TEMR /NO, REGULAR CHARACTER 300 000426 7450 SNA /ZERO? 301 000427 5232 JMP .+3 /YES, SET FLAG 302 000430 4253 TYPAT, JMS PRINT /NO, PRINT IT 303 000431 5617 JMP I TSC2 /RETURN 304 000432 2264 ISZ FLAG /SET "SPECIAL" FLAG 305 000433 5617 JMP I TSC2 /EXIT 306 000434 3264 TYPSP, DCA FLAG /CLEAR FLAG 307 000435 1263 TAD TEMR /TEST FOR "0" 308 000436 7041 CIA 309 000437 7450 SNA 310 000440 5230 JMP TYPAT /0: TYPE "0" 311 000441 7001 IAC /TEST FOR 01 312 000442 7650 SNA CLA 313 000443 5600 JMP I TYPSTGA /YES: EXIT CODE 314 000444 1271 TAD SKIPMAA /ATER INSTRUCTION 315 000445 3255 DCA SWITCH /TO BE "SMA" 316 000446 1263 TAD TEMR /TYPE CHAR 317 000447 4253 JMS PRINT 318 000450 1272 TAD SKIPPA /ALTER INSTRUCTION 319 000451 3255 DCA SWITCH /TO BE "SPA" 320 000452 5617 JMP I TSC2 /RETURN 321 322 000453 0000 PRINT, 0 323 000454 1266 TAD M40 /COMPARE WITH 40 324 000455 7510 SWITCH, SPA /OR SMA FOR SPECIAL CODES 325 000456 1267 TAD C100 326 000457 1270 TAD C240 327 000460 4510 JMS I UPUNCH 328 000461 5653 JMP I PRINT 329 000462 0000 TEMQ, 0 330 000463 0000 TEMR, 0 331 000464 0000 FLAG, 0 332 000465 0077 K77, 77 333 000466 7740 M40, -40 334 000467 0100 C100, 100 335 000470 0240 C240, 240 336 000471 7500 SKIPMA, SMA 337 000472 7510 SKIPPA, SPA 338 339 340 341 342 000473 0000 L0, 0 343 000474 0000 0 344 000475 0000 0 345 346 000476 0000 L1, 0 347 000477 0000 0 348 000500 0000 0 349 350 000501 0000 L2, 0 351 000502 0000 0 352 000503 0000 0 353 354 000504 0000 L3, 0 355 000505 0000 0 356 000506 0000 0 357 358 000507 0000 L4, 0 359 000510 0000 0 360 000511 0000 0 361 362 000512 0000 L5, 0 363 000513 0000 0 364 000514 0000 0 365 366 000515 0000 L6, 0 367 000516 0000 0 368 000517 0000 0 369 370 000520 0000 L7, 0 371 000521 0000 0 372 000522 0000 0 373 374 000523 0000 LATE, 0 375 000524 0000 0 376 000525 0000 0 377 378 000526 0000 LNINE, 0 379 000527 0000 0 380 000530 0000 0 381 382 000531 0000 L10, 0 383 000532 0000 0 384 000533 0000 0 385 386 000534 0000 L11, 0 387 000535 0000 0 388 000536 0000 0 389 390 000537 0000 L12, 0 391 000540 0000 0 392 000541 0000 0 393 394 000542 0000 L13, 0 395 000543 0000 0 396 000544 0000 0 397 398 000545 6000 ZERO, 6000 /0 399 000546 0100 0100 400 401 000547 6100 ONE, 6100 /1 402 000550 0100 0100 403 404 000551 1525 MUYERR, 1525 /MUYERR 405 000552 3105 3105 406 000553 2222 2222 407 000554 0001 0001 408 409 000555 0411 DIVERR, 0411 /DIVERR 410 000556 2605 2605 411 000557 2222 2222 412 000560 0001 0001 413 414 000561 2303 SC0, 2303 /SC0 415 000562 6000 6000 416 000563 0100 0100 417 418 000564 2303 SC1, 2303 /SC1 419 000565 6100 6100 420 000566 0100 0100 421 422 000567 2303 SC2, 2303 /SC2 423 000570 6200 6200 424 000571 0100 0100 425 426 000572 2303 SC3, 2303 /SC3 427 000573 6300 6300 428 000574 0100 0100 429 430 000575 2303 SC4, 2303 /SC4 431 000576 6400 6400 432 000577 0100 0100 433 434 435 000600 2303 SC5, 2303 /SC5 436 000601 6500 6500 437 000602 0100 0100 438 439 000603 2303 SC6, 2303 /SC6 440 000604 6600 6600 441 000605 0100 0100 442 443 000606 2303 SC7, 2303 /SC7 444 000607 6700 6700 445 000610 0100 0100 446 447 000611 2303 SCATE, 2303 /SC8 448 000612 7000 7000 449 000613 0100 0100 450 451 000614 2303 SCNINE, 2303 /SC9 452 000615 7100 7100 453 000616 0100 0100 454 455 000617 2303 SC10, 2303 /SC10 456 000620 6160 6160 457 000621 0001 0001 458 459 000622 2303 SC11, 2303 /SC11 460 000623 6161 6161 461 000624 0001 0001 462 463 000625 2303 SC12, 2303 /SC12 464 000626 6162 6162 465 000627 0001 0001 466 467 000630 2303 SC13, 2303 /SC13 468 000631 6163 6163 469 000632 0001 0001 470 471 000633 2303 SCCNT, 2303 /SCCNT 472 000634 0316 0316 473 000635 2400 2400 474 000636 0100 0100 475 476 000637 0616 FNRSLT, 0616 /FNRSLT 477 000640 2223 2223 478 000641 1424 1424 479 000642 0001 0001 480 481 000643 2022 PROB, 2022 /PROB 482 000644 1702 1702 483 000645 0001 0001 484 485 000646 0717 GOOD, 0717 /GOOD 486 000647 1704 1704 487 000650 0001 0001 488 489 000651 0201 BAD, 0201 /BAD 490 000652 0400 0400 491 000653 0100 0100 492 493 000654 2303 SCAT, 2303 /SCA 494 000655 0100 0100 495 000656 0100 0100 496 497 000657 1400 LT, 1400 /L 498 000660 0100 0100 499 500 000661 0350 CAC, 0350 /C(AC) 501 000662 0103 0103 502 000663 5100 5100 503 000664 0100 0100 504 505 000665 0350 CMQ, 0350 /C(MQ) 506 000666 1521 1521 507 000667 5100 5100 508 000670 0100 0100 509 510 000671 0350 CMB, 0350 /C(MB) 511 000672 1502 1502 512 000673 5100 5100 513 000674 0100 0100 514 515 000675 0522 ERPER, 0522 /ERRORS PER 516 000676 2217 2217 /HUNDRED: 517 000677 2223 2223 518 000700 4020 4020 519 000701 0522 0522 520 000702 4010 4010 521 000703 2516 2516 522 000704 0422 0422 523 000705 0504 0504 524 000706 7240 7240 525 000707 0001 0001 526 527 000710 0130 PRB1, 0130 /A,X 528 000711 0234 0234 /B,/ 529 000712 0240 0240 /B,SPC 530 000713 7540 7540 /=,SPC 531 000714 0140 0140 /A,SPC 532 000715 0001 0001 /END CODE 533 534 000716 0130 PRB2, 0130 /A,X 535 000717 0234 0234 /B,/ 536 000720 0230 0230 /B,X 537 000721 0234 0234 /B,/ 538 000722 0140 0140 /A,SPC 539 000723 7540 7540 /=,SPC 540 000724 0240 0240 /B,SPC 541 000725 0001 0001 /END CODE 542 543 000726 0130 PRB3, 0130 /A,X 544 000727 0234 0234 /B,/ 545 000730 0230 0230 /B,X 546 000731 0234 0234 /B,/ 547 000732 0130 0130 /A,X 548 000733 0134 0134 /A,/ 549 000734 0140 0140 /A,SPC 550 000735 7540 7540 /=,SPC 551 000736 0240 0240 /B,SPC 552 000737 0001 0001 /END CODE 553 554 000740 0130 PRB4, 0130 /A,X 555 000741 0234 0234 /B,/ 556 000742 0230 0230 /B,X 557 000743 0234 0234 /B,/ 558 000744 0130 0130 /A,X 559 000745 0134 0134 /A,/ 560 000746 0130 0130 /A,X 561 000747 0134 0134 /A,/ 562 000750 0240 0240 /B,SPC 563 000751 7540 7540 /=,SPC 564 000752 0140 0140 /A,SPC 565 000753 0001 0001 /END CODE 566 567 000754 0140 ABVAL, 0140 /A,SPC 568 000755 7540 7540 /=,SPC 569 000756 4040 AVALUE, 4040 /SPC,SPC 570 000757 4040 4040 /SPC,SPC 571 000760 4040 4040 /SPC,SPC 572 000761 0240 0240 /B,SPC 573 000762 7540 7540 /=,SPC 574 000763 4040 BVALUE, 4040 /SPC,SPC 575 000764 4040 4040 /SPC,SPC 576 000765 0015 0015 /CR 577 000766 0012 0012 /LF 578 000767 0001 0001 /END CODE 579 580 PAGE 581 582 001000 0000 PUNCH, 0 583 001001 2215 ISZ PFLAG /SET PUNCH/PRINTER FLAG. 584 001002 6046 TLS /PUNCH/PRINT 585 001003 7200 CLA 586 001004 1215 TAD PFLAG 587 001005 7640 SZA CLA /PFLAG RESET? 588 001006 7410 SKP /NO 589 001007 5212 JMP .+3 /YES 590 001010 6041 TSF /PUNCH/PRINTER FLAG UP? 591 001011 5204 JMP .-5 /NO, REPEAT 592 001012 6042 TCF /YES, CLEAR PUNCH/PRINTER FLAG 593 001013 3215 DCA PFLAG /CLEAR FLAG 594 001014 5600 JMP I PUNCH /EXIT 595 001015 0000 PFLAG, 0 596 001016 0000 INTAC, 0 597 001017 0000 LINK, 0 598 599 001020 3216 INTSVC, DCA INTAC /SAVE AC 600 001021 7010 RAR 601 001022 3217 DCA LINK /SAVE LINK 602 001023 6041 TSF /PUNCH/PRINTER? 603 001024 5230 JMP .+4 /NO. 604 001025 6042 TCF /YES, CLEAR ITS FLAG 605 001026 3215 DCA PFLAG /CLEAR PFLAG 606 001027 5233 JMP OUT 607 001030 6031 KSF /READER/KEYBD? 608 001031 5241 JMP UNXINT /NO, ERROR 609 001032 6032 KCC /YES, CLEAR FLAG, AC, ADVANCE 610 001033 7300 OUT, CLA CLL 611 001034 1217 TAD LINK /RESTORE LINK 612 001035 7004 RAL 613 001036 1216 TAD INTAC /RESTORE AC 614 001037 6001 ION /ENABLE INTERRUPT 615 001040 5400 JMP I OPEN /EXIT 616 001041 7402 UNXINT, HLT /UNEXPECTED INTERRUPT HALT 617 001042 5233 JMP OUT 618 619 001043 0530 EXERR, 0530 /E,X 620 001044 0522 0522 /E,R 621 001045 2200 2200 /R, 622 001046 0100 0100 /END CODE 623 624 001047 0000 EXERP, 0 625 001050 4425 JMS I XTYPST /PRINT EXERR 626 001051 1043 EXERR 627 001052 4460 JMS I UPSPC /SPACE 5 628 001053 7773 -5 629 001054 4462 JMS I UMSG1 630 001055 4461 JMS I UCRLF /CRLF 631 001056 7776 -2 /TWICE 632 001057 4425 JMS I XTYPST /PRINT GOOD 633 001060 0646 GOOD 634 001061 4460 JMS I UPSPC /SPACE 6 635 001062 7772 -6 636 001063 4470 JMS I UPLRGS /PRINT REGS 637 001064 0131 LSB 638 001065 7776 -2 639 001066 4425 JMS I XTYPST /PRINT BAD 640 001067 0651 BAD 641 001070 4460 JMS I UPSPC /SPACE 7 642 001071 7771 -7 643 001072 4470 JMS I UPLRGS /PRINT REGS 644 001073 0135 LR 645 001074 7776 -2 646 001075 5647 JMP I EXERP /EXIT 647 648 649 /MULTIPLY TEST ROUTINE 650 *. 177+1 651 001200 0000 MUYT, 0 652 001201 7200 CLA 653 001202 3125 DCA L 654 001203 4431 JMS I UMOVE 655 001204 0125 L 656 001205 0126 AC 657 001206 7752 -26 658 001207 1600 TAD I MUYT 659 001210 3215 DCA MTADR 660 001211 2200 ISZ MUYT 661 001212 1600 TAD I MUYT 662 001213 3164 DCA TCTR 663 001214 4431 JMS I UMOVE 664 665 001215 0000 MTADR, 0 /TEST PARAMETERS 666 001216 0127 MQ 667 001217 7776 -2 668 001220 1215 TAD MTADR 669 001221 1165 TAD K2 670 001222 3224 DCA .+2 671 001223 4431 JMS I UMOVE /GET AND STORE 672 001224 0000 0000 /EXPECTED RESULTS 673 001225 0132 ACSB 674 001226 7776 -2 675 001227 1130 TAD MB 676 001230 3134 DCA MBSB 677 001231 3131 DCA LSB 678 001232 4262 HDM, JMS MULT /HARDWARE MULTIPLY 679 001233 4272 JMS MSTR /STORE RESULTS 680 001234 4436 JMS I UCOMP /CHECK RESULTS 681 001235 7774 -4 682 001236 5250 JMP MERR /ERROR 683 001237 4437 MLT, JMS I USR4T /LOCK ON TEST? (SR4 ON) 684 001240 5232 JMP HDM /YES 685 001241 2164 ISZ TCTR /ALL TESTS DONE? 686 001242 5244 JMP .+2 /NO 687 001243 5421 JMP I CHAIN /YES, EXIT 688 001244 1215 TAD MTADR /SET U FOR 689 001245 1167 TAD K4 /NEXT MULTIPLY 690 001246 3215 DCA MTADR /TEST 691 001247 5214 JMP MTADR-1 692 693 694 001250 4440 MERR, JMS I USR5T /PRINT/HALT? 695 001251 5256 JMP .+5 /GO PRINT 696 001252 4305 JMS MEHLT /GO HALT 697 001253 4440 JMS I USR5T /PRINT? 698 001254 7410 SKP /60 PRINT 699 001255 5237 JMP MLT 700 001256 4312 JMS MERPT /PRINT MULT ERROR 701 001257 4325 JMS MFRP /PRINT FAILURE RATE IF DESIRED 702 001260 4347 JMS MSMP /PRINT SIMU AND GO INTO SCOPE LOOP 703 /IF DESIRED 704 001261 5237 JMP MLT 705 706 001262 0000 MULT, 0 707 001263 7200 CLA 708 001264 1130 TAD MB /ZMB TO MBM 709 001265 3270 DCA MBM 710 001266 1127 TAD MQ 711 001267 7425 MQL MUY /LOAD MQ AND MULTIPLY 712 001270 0000 MBM, 0 713 001271 5662 JMP I MULT /EXIT 714 / 715 001272 0000 MSTR, 0 716 001273 3136 DCA ACR /STORE AC RESULTS 717 001274 7004 RAL 718 001275 3135 DCA LR /STORE LINK RESULT 719 001276 7501 MQA 720 001277 3137 DCA MQR /STORE MQ RESULT 721 001300 1270 TAD MBM 722 001301 3140 DCA MBR /STORE MB RESULT 723 001302 7441 SCA 724 001303 3151 DCA SCS /STORE CONTENTS OF STEP COUNTER 725 001304 5672 JMP I MSTR /EXIT 726 / 727 001305 0000 MEHLT, 0 728 001306 7200 CLA 729 001307 1116 TAD RTNNO /GET ROUTINE NUMBER 730 001310 7402 HLT /MULTIPLY ERROR HALT 731 001311 5705 JMP I MEHLT /EXIT 732 / 733 001312 0000 MERPT, 0 734 001313 4461 JMS I UCRLF /CRLF 735 001314 7776 -2 /TWICE 736 001315 4425 JMS I XTYPST /PRINT MUYERR 737 001316 0551 MUYERR 738 001317 4460 JMS I UPSPC /SPACE 4 739 001320 7774 -4 740 001321 4467 JMS I UERPSB /PRINT ERROR DATA 741 001322 4441 JMS I USR6T /HALT AFTER PRINT? 742 001323 4305 JMS MEHLT /YES 743 001324 5712 JMP I MERPT /NO, EXIT 744 745 001325 0000 MFRP, 0 746 001326 4442 JMS I UST7T /PRINT FAILURE RATE? 747 001327 5725 JMP I MFRP /NO, EXIT 748 001330 4423 JMS I SETCTR /SET FRCTR 749 001331 0161 FRCTR /TO -100 750 001332 7634 -144 751 001333 3160 DCA FCTR /CLEAR FCTR 752 001334 4262 JMS MULT /MULTIPLY 753 001335 4272 JMS MSTR /STORE RESULTS 754 001336 4436 JMS I UCOMP /CHECK RESULTS 755 001337 7774 -4 756 001340 2160 ISZ FCTR /ERROR, +1 TO FCTR 757 001341 2161 ISZ FRCTR /DONE 100 TIMES? 758 001342 5335 JMP .-5 /NO, REPEAT 759 001343 4464 JMS I UMSG2 /PRINT FAILURE RATE 760 001344 4441 JMS I USR6T /HALT AFTER PRINT? 761 001345 4305 JMS MEHLT /YES 762 001346 5725 JMP I MFRP /NO, EXIT 763 / 764 001347 0000 MSMP, 0 765 001350 4443 JMS I USATET /SIMULATION AND SCOPE LOOP? 766 001351 5747 JMP I MSMP /NO, EXIT 767 001352 4454 JMS I UMUYSM /SIMULATE MULTIPLY 768 001353 4471 JMS I UHDSC0 /PRINT HEADIN AND SC0 769 001354 4472 JMS I UF1TEL /PRINT SC1 THROUGH SC11 770 001355 4474 JMS I UPFR /PRINT FINAL RESULT 771 001356 4262 MSLOOP, JMS MULT 772 001357 5356 JMP .-1 773 774 775 /TAPE 2 - KE8I 776 /DIVIDE TEST ROUTINE 777 *. 177+1 778 001400 0000 DIVT, 0 779 001401 7200 CLA 780 001402 3125 DCA L 781 001403 4431 JMS I UMOVE 782 001404 0125 L 783 001405 0126 AC 784 001406 7752 -26 785 001407 1600 TAD I DIVT /GET AND STORE ADDRESS 786 001410 3215 DCA DVADR /OF TEST DATA 787 001411 2200 ISZ DIVT 788 001412 1600 TAD I DIVT /GET AND STORE 789 001413 3164 DCA TCTR /TEST COUNT 790 001414 4431 JMS I UMOVE /GET AND STORE 791 001415 0000 DVADR, 0 /TEST PARAMETERS 792 001416 0126 AC 793 001417 7775 -3 794 001420 1215 TAD DVADR 795 001421 1166 TAD K3 796 001422 3224 DCA .+2 797 001423 4431 JMS I UMOVE /GET AND STORE 798 001424 0000 0000 /EXPECTED RESULTS, 799 001425 0131 LSB 800 001426 7775 -3 801 001427 1130 TAD MB 802 001430 3134 DCA MBSB 803 001431 4261 HDD, JMS DIVD /HARDWARE DIVIDE 804 001432 4273 JMS DSTR /STORE DIVIDE RESULTS 805 001433 4436 JMS I UCOMP /CHECK RESULTS 806 001434 7774 -4 807 001435 5247 JMP DERR /ERRORS. 808 001436 4437 DLT, JMS I USR4T /LOCK ON TEST? (SR4 ON) 809 001437 5231 JMP HDD /YES. 810 001440 2164 ISZ TCTR /ALL TESTS DONE? 811 001441 5243 JMP .+2 /NO. 812 001442 5421 JMP I CHAIN /YES, EXIT. 813 001443 1215 TAD DVADR /SET UP FOR NEXT 814 001444 1170 TAD K6 /DIVIDE TEST. 815 001445 3215 DCA DVADR 816 001446 5214 JMP DVADR-1 817 818 001447 4440 DERR, JMS I USR5T /PRINT/HALT? 819 001450 5255 JMP .+5 /GO PRINT 820 001451 4306 JMS DEHLT /GO HALT 821 001452 4440 JMS I USR5T /PRINT? 822 001453 7410 SKP /GO PRINT 823 001454 5236 JMP DLT 824 001455 4313 JMS DERPT /PRINT DIV ERROR 825 001456 4326 JMS DFRP /PRINT FAILURE RATE IF DESIRED 826 001457 4350 JMS DSMP /PRINT SIMU AND SCOPE LOOP IF DESIRED. 827 001460 5236 JMP DLT 828 829 001461 0000 DIVD, 0 830 001462 7200 CLA 831 001463 1130 TAD MB 832 001464 3271 DCA MBD /MB TO MBD 833 001465 1127 TAD MQ 834 001466 7421 MQL /LOAD MQ 835 001467 1126 TAD AC /LOAD AC 836 001470 7407 DVI /DIVIDE 837 001471 0000 MBD, 0 838 001472 5661 JMP I DIVD /EXIT. 839 / 840 001473 0000 DSTR, 0 841 001474 3136 DCA ACR /STORE AC RESULT 842 001475 7004 RAL 843 001476 3135 DCA LR /STORE LINK RESULT 844 001477 7501 MQA 845 001500 3137 DCA MQR /STORE MQ RESULT 846 001501 1271 TAD MBD 847 001502 3140 DCA MBR /STORE MB RESULT 848 001503 7441 SCA 849 001504 3151 DCA SCS /STORE CONTENT OF STEP COUNTER 850 001505 5673 JMP I DSTR /EXIT. 851 / 852 001506 0000 DEHLT, 0 853 001507 7200 CLA 854 001510 1116 TAD RTNNO /GET ROUTINE NUMBER 855 001511 7402 HLT /DIVIDE ERROR HALT 856 001512 5706 JMP I DEHLT /EXIT. 857 / 858 001513 0000 DERPT, 0 859 001514 4461 JMS I UCRLF /CRLF 860 001515 7776 -2 /TWICE 861 001516 4425 JMS I XTYPST /PRINT DIVERR 862 001517 0555 DIVERR 863 001520 4460 JMS I UPSPC /SPACE 4 864 001521 7774 -4 865 001522 4467 JMS I UERPSB /PRINT ERROR DATA 866 001523 4441 JMS I USR6T /HALT AFTER PRINT? 867 001524 4306 JMS DEHLT /YES. 868 001525 5713 JMP I DERPT /NO, EXIT 869 / 870 001526 0000 DFRP, 0 871 001527 4442 JMS I UST7T /PRINT FAILURE RATE? 872 001530 5726 JMP I DFRP /NO, EXIT. 873 001531 4423 JMS I SETCTR /SET FRCTR 874 001532 0161 FRCTR /TO -100 875 001533 7634 -144 876 001534 3160 DCA FCTR /LCEAR FCTR 877 001535 4261 JMS DIVD /DIVIDE 878 001536 4273 JMS DSTR /STORE RESULTS 879 001537 4436 JMS I UCOMP /CHECK RESULTS 880 001540 7774 -4 881 001541 2160 ISZ FCTR /ERROR .+1 TO FCTR 882 883 001542 2161 ISZ FRCTR /DONE 100 TIMES? 884 001543 5336 JMP .-5 /NO, REPEAT 885 001544 4464 JMS I UMSG2 /PRINT FAILURE RATE 886 001545 4441 JMS I USR6T /HALT AFTER PRINT? 887 001546 4306 JMS DEHLT /YES. 888 001547 5726 JMP I DFRP /NO, EXIT. 889 / 890 001550 0000 DSMP, 0 891 001551 4443 JMS I USATET /SIMULATION AND SCOPE LOOP? 892 001552 5750 JMP I DSMP /NO, EXIT 893 001553 4455 JMS I UDIVSM /SIMULATE DIVIDE 894 001554 4471 JMS I UHDSC0 /PRINT HEADING AND SC0 895 001555 1153 TAD OFLO 896 001556 7640 SZA CLA /OFLO? 897 001557 5362 JMP .+3 /YES. 898 001560 4472 JMS I UF1TEL /NO, PRINT SC1 TO SC11 899 001561 4473 JMS I UP1213 /PRINT SC12 AND SC13. 900 001562 4474 JMS I UPFR /PRINT FINAL RESULT. 901 001563 4261 DSLOOP, JMS DIVD /DIVIDE. 902 001564 5363 JMP .-1 /REPEAT. 903 904 905 *. 177+1 906 001600 0000 SR4T, 0 907 001601 7604 LAS /READ SR 908 001602 0207 AND SR4MSK 909 001603 7640 SZA CLA /SR4 ON? 910 001604 5600 JMP I SR4T /YES. 911 001605 2200 ISZ SR4T /NO. 912 001606 5600 JMP I SR4T 913 001607 0200 SR4MSK, 0200 914 001610 0000 SR5T, 0 915 001611 7604 LAS /READ SR 916 001612 0217 AND SR5MSK 917 001613 7650 SNA CLA /SR5 ON? 918 001614 5610 JMP I SR5T /NO. 919 001615 2210 ISZ SR5T /YES. 920 001616 5610 JMP I SR5T 921 001617 0100 SR5MSK, 0100 922 001620 0000 SR6T, 0 923 001621 7604 LAS /READ SR 924 001622 0227 AND SR6MSK 925 001623 7640 SZA CLA /SR6 ON? 926 001624 5620 JMP I SR6T /YES. 927 001625 2220 ISZ SR6T /NO. 928 001626 5620 JMP I SR6T 929 001627 0040 SR6MSK, 0040 930 001630 0000 SR7T, 0 931 001631 7604 LAS /READ SR 932 001632 0237 AND SR7MSK 933 001633 7650 SNA CLA /SR7 ON? 934 001634 5630 JMP I SR7T /NO. 935 001635 2230 ISZ SR7T /YES. 936 001636 5630 JMP I SR7T 937 001637 0020 SR7MSK, 0020 938 001640 0000 SATET, 0 939 001641 7604 LAS /READ SR 940 001642 0247 AND SATEMK 941 001643 7650 SNA CLA /SR8 ON? 942 001644 5640 JMP I SATET /NO. 943 001645 2240 ISZ SATET /YES. 944 001646 5640 JMP I SATET 945 001647 0010 SATEMK, 0010 946 947 001650 0000 MOVE, 0 948 001651 7200 CLA 949 001652 1650 TAD I MOVE /GET "FROM ADDR" AND 950 001653 3273 DCA FADDR /STORE AT FADDR 951 001654 2250 ISZ MOVE 952 001655 1650 TAD I MOVE /GET "TO ADDR" AND 953 001656 3274 DCA TADDR /STORE AT TADDR 954 001657 2250 ISZ MOVE 955 001660 1650 TAD I MOVE /GET "MOVE COUNT" AND 956 001661 3275 DCA MCTR /STORE AT MCTR 957 001662 2250 ISZ MOVE /SET UP EXIT ADDRESS 958 959 960 001663 7200 MOVEA, CLA 961 001664 1673 TAD I FADDR /GET "FROM" WORD 962 001665 3674 DCA I TADDR /STORE AT "TO" LOCATION 963 001666 2273 ISZ FADDR /INCREMENT "FROM" ADDRESS 964 001667 2274 ISZ TADDR /INCREMENT "TO" ADDRESS 965 001670 2275 ISZ MCTR /ALL WORDS MOVED? 966 001671 5263 JMP MOVEA /NO. 967 001672 5650 JMP I MOVE /YES. 968 / 969 001673 0000 FADDR, 0 970 001674 0000 TADDR, 0 971 001675 0000 MCTR, 0 972 / 973 974 001676 0000 COMP, 0 975 001677 1676 TAD I COMP /GET AND STORE NUMBER OF 976 001700 3325 DCA CMPCTR /WORDS TO COMPARE 977 001701 2276 ISZ COMP 978 001702 1321 TAD C1 /LSB ADDRESS TO C1A 979 001703 3323 DCA C1A 980 001704 1322 TAD C2 /LR ADDRESS TO C2A 981 001705 3324 DCA C2A 982 001706 1723 COMPA, TAD I C1A /GET SHOULD BE WORD. 983 001707 7041 CIA /2'S COMPLEMENT IT 984 001710 1724 TAD I C2A /ADD RESULT WORD 985 001711 7640 SZA CLA /RESULT 0? 986 001712 5676 JMP I COMP /NO..L 987 001713 2323 ISZ C1A /YES, 16L 988 001714 2324 ISZ C2A /FOR NEXT COMPARE 989 001715 2325 ISZ CMPCTR /DONE COMPARING? 990 001716 5306 JMP COMPA /NO. 991 001717 2276 ISZ COMP /YES, 16L 992 001720 5676 JMP I COMP /EXIT. 993 001721 0131 C1, LSB 994 001722 0135 C2, LR 995 001723 0000 C1A, 0 996 001724 0000 C2A, 0 997 001725 0000 CMPCTR, 0 998 999 / 1000 001726 0000 PRT0, 0 1001 001727 4425 JMS I XTYPST /PRINT A 0. 1002 001730 0545 ZERO 1003 001731 5726 JMP I PRT0 1004 1005 001732 0000 PRT1, 0 1006 001733 4425 JMS I XTYPST /PRINT A 1. 1007 001734 0547 ONE 1008 001735 5732 JMP I PRT1 1009 1010 / 1011 001736 0000 PSPC, 0 1012 001737 7200 CLA 1013 001740 1736 TAD I PSPC /GET NUMBER 1014 001741 3352 DCA SPCTR /OF SPACES 1015 001742 2336 ISZ PSPC 1016 001743 4425 JMS I XTYPST /SPACE ONCE 1017 001744 1750 .+4 1018 001745 2352 ISZ SPCTR /ALL SPACES DONE? 1019 001746 5343 JMP .-3 /NO, REPEAT 1020 001747 5736 JMP I PSPC /YES, EXIT 1021 001750 4000 4000 1022 001751 0100 0100 1023 001752 0000 SPCTR, 0 1024 1025 / 1026 001753 0000 CRLF, 0 1027 001754 7200 CLA 1028 001755 1753 TAD I CRLF /GET NUMBER 1029 001756 3370 DCA CRCTR /OF CRLF 1030 001757 2353 ISZ CRLF 1031 001760 4425 JMS I XTYPST /CRLF ONCE 1032 001761 1765 .+4 1033 001762 2370 ISZ CRCTR /ALL CRLF DONE? 1034 001763 5360 JMP .-3 /NO, REPEAT 1035 001764 5753 JMP I CRLF /YES, EXIT. 1036 001765 0015 0015 1037 001766 0012 0012 1038 001767 0001 0001 1039 001770 0000 CRCTR, 0 1040 / 1041 001771 0000 MSG1A, 0 1042 001772 4460 JMS I UPSPC /SPACE 10. 1043 001773 7766 -12 1044 001774 4425 JMS I XTYPST /PRINT C(MB) 1045 001775 0671 CMB 1046 001776 5771 JMP I MSG1A /EXIT 1047 1048 *. 177+1 1049 002000 0000 MSG1, 0 1050 002001 4425 JMS I XTYPST /PRINT L. 1051 002002 0657 LT 1052 002003 4460 JMS I UPSPC /SPACE 7. 1053 002004 7771 -7 1054 002005 4425 JMS I XTYPST /PRINNT C(AC) 1055 002006 0661 CAC 1056 002007 4460 JMS I UPSPC /SPACE 10. 1057 002010 7766 -12 1058 002011 4425 JMS I XTYPST /PRINT C(MQ) 1059 002012 0665 CMQ 1060 002013 5600 JMP I MSG1 /EXIT 1061 / 1062 002014 0000 ERPSB, 0 1063 002015 4462 JMS I UMSG1 /PRINT HEADINGS 1064 002016 4463 JMS I UMSG1A 1065 002017 4461 JMS I UCRLF /CRLF 1066 002020 7776 -2 /ONCE 1067 002021 4425 JMS I XTYPST /PRINT PROB 1068 002022 0643 PROB 1069 002023 4460 JMS I UPSPC /SPACE 6 1070 002024 7772 -6 1071 002025 4470 JMS I UPLRGS /PRINT 3 REGISTER 1072 002026 0125 L 1073 002027 7775 -3 1074 002030 4461 JMS I UCRLF /CRLF 1075 002031 7777 -1 /ONCE 1076 002032 4425 JMS I XTYPST /PRINT GOOD 1077 002033 0646 GOOD 1078 002034 4460 JMS I UPSPC /SPACE 6 1079 002035 7772 -6 1080 002036 4470 JMS I UPLRGS /PRINT 3 REGISTERS 1081 002037 0131 LSB 1082 002040 7775 -3 1083 002041 4425 JMS I XTYPST /PRINT BAD 1084 002042 0651 BAD 1085 002043 4460 JMS I UPSPC /SPACE 7 1086 002044 7771 -7 1087 002045 4470 JMS I UPLRGS /PRINT 3 REGISTERS 1088 002046 0135 LR 1089 002047 7775 -3 1090 002050 4461 JMS I UCRLF /CRLF 1091 002051 7777 -1 /ONCE. 1092 002052 4425 JMS I XTYPST /PRINT SCA 1093 002053 0654 SCAT 1094 002054 4460 JMS I UPSPC /SPACE 8 1095 002055 7770 -10 1096 002056 4466 JMS I UPREG /PRINT 1 REGISTER 1097 002057 0151 SCS 1098 002060 4461 JMS I UCRLF /CRLF 1099 002061 7777 -1 /ONCE 1100 002062 5614 JMP I ERPSB /EXIT 1101 1102 1103 002063 0000 MSG2, 0 1104 002064 4461 JMS I UCRLF /CRLF 1105 002065 7776 -2 /TWICE 1106 002066 4425 JMS I XTYPST /PRINT ERRORS PER 1107 002067 0675 ERPER /HUNDRED: 1108 002070 4275 JMS BDCNV /PRINT FAILURE 1109 002071 0160 FCTR /COUNT IN DECIMAL 1110 002072 4461 JMS I UCRLF /CRLF 1111 002073 7777 -1 /ONCE 1112 002074 5663 JMP I MSG2 /END 1113 002075 0000 BDCNV, 0 1114 002076 4423 JMS I SETCTR /SET CNVCTR 1115 002077 2141 CNVCTR /TO -4 1116 002100 7774 -4 1117 002101 1332 TAD ADDRZA 1118 002102 3313 DCA ARROW /INITIALIZE ARROW 1119 002103 1675 TAD I BDCNV 1120 002104 2275 ISZ BDCNV 1121 002105 3340 DCA DIGIT 1122 002106 1740 TAD I DIGIT 1123 002107 3337 DCA VALUE 1124 002110 3340 DCA DIGIT /CLEAR DIGIT 1125 002111 7100 CLL 1126 002112 1337 TAD VALUE 1127 002113 1333 ARROW, TAD TENPWR 1128 002114 7420 SNL 1129 002115 5321 JMP .+4 1130 002116 2340 ISZ DIGIT /DEVELOP DIGIT 1131 002117 3337 DCA VALUE 1132 002120 5311 JMP ARROW-2 1133 002121 7200 CLA 1134 002122 1340 TAD DIGIT /GET DIGIT 1135 002123 1342 TAD K260 /ADD 260 1136 002124 4510 JMS I UPUNCH /PRINT 1137 002125 7300 CLA CLL 1138 002126 2313 ISZ ARROW /POINT ARROW 1139 002127 2341 ISZ CNVCTR /DONE? 1140 002130 5310 JMP ARROW-3 /NO, REPEAT 1141 002131 5675 JMP I BDCNV /YES, EXIT 1142 002132 1333 ADDRZA, TAD TENPWR 1143 002133 6030 TENPWR, -1750 1144 002134 7634 -144 1145 002135 7766 -12 1146 002136 7777 -1 1147 002137 0000 VALUE, 0 1148 002140 0000 DIGIT, 0 1149 002141 0000 CNVCTR, 0 1150 002142 0260 K260, 260 1151 1152 1153 002143 0000 PREG, 0 1154 002144 4460 JMS I UPSPC /SPACE 3 1155 002145 7775 -3 1156 002146 4423 JMS I SETCTR /SET PRCTR 1157 002147 2172 PRCTR /TO -12 1158 002150 7764 -14 1159 002151 1743 TAD I PREG /GET ADDRESS 1160 002152 3371 DCA PRB /OF REGISTER 1161 002153 2343 ISZ PREG 1162 002154 1771 TAD I PRB /GET CONTENTS OF REG. 1163 002155 3371 DCA PRB 1164 002156 1371 TAD PRB 1165 002157 7004 RAL 1166 002160 3371 DCA PRB 1167 002161 7430 SZL /BIT A 0? 1168 002162 5365 JMP .+3 /NO 1169 002163 4456 JMS I UPRT0 /YES, PRINT A 0 1170 002164 7410 SKP 1171 002165 4457 JMS I UPRT1 /PRINT A 1. 1172 002166 2372 ISZ PRCTR /DONE? 1173 002167 5356 JMP .-11 /NO 1174 002170 5743 JMP I PREG /YES, EXIT 1175 002171 0000 PRB, 0 1176 002172 0000 PRCTR, 0 1177 1178 1179 PAGE 1180 002200 0000 PL, 0 1181 002201 7200 CLA 1182 002202 1600 TAD I PL /GET ADDRESS OF 1183 002203 3214 DCA PLB /REGISTER 1184 002204 2200 ISZ PL 1185 002205 1614 TAD I PLB /GET CONTENTS OF REG. 1186 002206 7640 SZA CLA /0? 1187 002207 5212 JMP .+3 /NO. 1188 002210 4456 JMS I UPRT0 /YES, PRINT 0 1189 002211 5600 JMP I PL /EXIT 1190 002212 4457 JMS I UPRT1 /PRINT 1 1191 002213 5600 JMP I PL /EXIT 1192 002214 0000 PLB, 0 1193 / 1194 002215 0000 PFR, 0 1195 002216 4461 JMS I UCRLF /CRLF 1196 002217 7777 -1 /ONCE 1197 002220 4425 JMS I XTYPST /PRINT FNRSLT 1198 002221 0637 FNRSLT 1199 002222 4460 JMS I UPSPC /SPACE 4 1200 002223 7774 -4 1201 002224 4470 JMS I UPLRGS /PRINT FINAL RESULTS 1202 002225 0145 LF 1203 002226 7776 -2 1204 002227 5615 JMP I PFR /EXIT 1205 002230 0000 PLRGS, 0 1206 002231 7200 CLA 1207 002232 1630 TAD I PLRGS /GET ADDRESS OF 1208 002233 3244 DCA LADR /LINK REGISTER 1209 002234 1244 TAD LADR /DEVELOP ADDRESS 1210 002235 7001 IAC /OF REGISTERS 1211 002236 3246 DCA RADR 1212 002237 2230 PLRGS 1213 002240 1630 TAD I PLRGS /GET NUMBERS OF 1214 002241 3255 DCA PXCTR /REGISTERS 1215 002242 2230 ISZ PLRGS 1216 002243 4465 JMS I UPL /PRINT CONTENTS OF 1217 002244 0000 LADR, 0 /LINK REGISTER 1218 002245 4466 JMS I UPREG /PRINT CONTENTS 1219 002246 0000 RADR, 0 /OF REGISTERS 1220 002247 2246 ISZ RADR /SET UP FOR NEXT REG 1221 002250 2255 ISZ PXCTR /DONE? 1222 002251 5245 JMP RADR-1 /NO, REPEAT 1223 002252 4461 JMS I UCRLF /YES, CRLF 1224 002253 7777 -1 /ONCE 1225 002254 5630 JMP I PLRGS /EXIT 1226 002255 0000 PXCTR, 0 1227 1228 1229 / 1230 002256 0000 F1TEL, 0 1231 002257 4425 JMS I XTYPST /PRINT SC1 1232 002260 0564 SC1 1233 002261 4460 JMS I UPSPC /SPACE 7 1234 002262 7771 -7 1235 002263 4470 JMS I UPLRGS /PRINT SC1 RESULTS 1236 002264 0476 L1 1237 002265 7776 -2 1238 002266 4425 JMS I XTYPST /PRINT SC2 1239 002267 0567 SC2 1240 002270 4460 JMS I UPSPC /SPACE 7 1241 002271 7771 -7 1242 002272 4470 JMS I UPLRGS /PRINT SC2 RESULTS 1243 002273 0501 L2 1244 002274 7776 -2 1245 002275 4425 JMS I XTYPST /PRINT SC3 1246 002276 0572 SC3 1247 002277 4460 JMS I UPSPC /SPACE 7 1248 002300 7771 -7 1249 002301 4470 JMS I UPLRGS /PRINT SC3 RESULTS 1250 002302 0504 L3 1251 002303 7776 -2 1252 002304 4425 JMS I XTYPST /PRINT SC4 1253 002305 0575 SC4 1254 002306 4460 JMS I UPSPC /SPACE 7 1255 002307 7771 -7 1256 002310 4470 JMS I UPLRGS /PRINT SC4 RESULTS 1257 002311 0507 L4 1258 002312 7776 -2 1259 002313 4425 JMS I XTYPST /PRINT SC5 1260 002314 0600 SC5 1261 002315 4460 JMS I UPSPC /SPACE 7 1262 002316 7771 -7 1263 002317 4470 JMS I UPLRGS /PRINT SC5 RESULTS 1264 002320 0512 L5 1265 002321 7776 -2 1266 002322 4425 JMS I XTYPST /PRINT SC6 1267 002323 0603 SC6 1268 002324 4460 JMS I UPSPC /SPACE 7 1269 002325 7771 -7 1270 002326 4470 JMS I UPLRGS /PRINT SC6 RESULTS 1271 002327 0515 L6 1272 002330 7776 -2 1273 002331 4425 JMS I XTYPST /PRINT SC7 1274 002332 0606 SC7 1275 002333 4460 JMS I UPSPC /SPACE 7 1276 002334 7771 -7 1277 002335 4470 JMS I UPLRGS /PRINT SC7 RESULTS 1278 002336 0520 L7 1279 002337 7776 -2 1280 002340 4425 JMS I XTYPST /PRINT SC8 1281 002341 0611 SCATE 1282 002342 4460 JMS I UPSPC /SPACE 7 1283 002343 7771 -7 1284 002344 4470 JMS I UPLRGS /PRINT SC8 RESULTS 1285 002345 0523 LATE 1286 002346 7776 -2 1287 002347 4425 JMS I XTYPST /PRINT SC9 1288 002350 0614 SCNINE 1289 002351 4460 JMS I UPSPC /SPACE 7 1290 002352 7771 -7 1291 002353 4470 JMS I UPLRGS /PRINT SC9 RESULTS 1292 002354 0526 LNINE 1293 002355 7776 -2 1294 002356 4425 JMS I XTYPST /PRINT SC10 1295 002357 0617 SC10 1296 002360 4460 JMS I UPSPC /SPACE 6 1297 002361 7772 -6 1298 002362 4470 JMS I UPLRGS /PRINT SC10 RESULTS 1299 002363 0531 L10 1300 002364 7776 -2 1301 002365 4425 JMS I XTYPST /PRINT SC11 1302 002366 0622 SC11 1303 002367 4460 JMS I UPSPC /SPACE 6 1304 002370 7772 -6 1305 002371 4470 JMS I UPLRGS /PRINT SC11 RESULTS 1306 002372 0534 L11 1307 002373 7776 -2 1308 002374 5656 JMP I F1TEL /EXIT 1309 1310 /KE8I - TAPE3 1311 *. 177+1 1312 002400 0000 HDSC0, 0 1313 002401 4461 JMS I UCRLF /CRLF 1314 002402 7776 -2 /TWICE 1315 002403 4425 JMS I XTYPST /PRINT SCCNT 1316 002404 0633 SCCNT 1317 002405 4460 JMS I UPSPC /SPACE 5 1318 002406 7773 -5 1319 002407 4462 JMS I UMSG1 /PRINT HEADINGS 1320 002410 4461 JMS I UCRLF /CRLF 1321 002411 7776 -2 /TWICE 1322 002412 4425 JMS I XTYPST /PRINT SC0 1323 002413 0561 SC0 1324 002414 4460 JMS I UPSPC /SPACE 7 1325 002415 7771 -7 1326 002416 4470 JMS I UPLRGS /PRINT SC0 RESULTS 1327 002417 0473 L0 1328 002420 7776 -2 1329 002421 5600 JMP I HDSC0 /EXIT 1330 002422 0000 P1213, 0 1331 002423 4425 JMS I XTYPST /PRINT SC12 1332 002424 0625 SC12 1333 002425 4460 JMS I UPSPC /SPACE 6 1334 002426 7772 -6 1335 002427 4470 JMS I UPLRGS /PRINT SC12 RESULTS 1336 002430 0537 L12 1337 002431 7776 -2 1338 002432 4425 JMS I XTYPST /PRINT SC13 1339 002433 0630 SC13 1340 002434 4460 JMS I UPSPC /SPACE 6 1341 002435 7772 -6 1342 002436 4470 JMS I UPLRGS /PRINT SC13 RESULTS 1343 002437 0542 L13 1344 002440 7776 -2 1345 002441 5622 JMP I P1213 /EXIT 1346 1347 002442 0000 ADSFT, 0 1348 002443 7300 CLA CLL 1349 002444 1143 TAD MQB 1350 002445 7010 RAR 1351 002446 7630 SZL CLA /MQ11(1)? 1352 002447 4475 JMS I UADAC /YES, MEM ADD TO AC 1353 002450 1143 TAD MQB /NO, MBQ TO MQ 1354 002451 7421 MQL 1355 002452 1142 TAD ACB /ACB TO AC 1356 002453 7417 LSR /SHIFT RIGHT ONCE 1357 002454 0000 ABLSR, OPEN /CONTAINS 0 WHEN IN "A" MODE AND 1 WHEN IN "B" MODE 1358 002455 1141 TAD LB /LB TO AC0 1359 002456 3142 DCA ACB /STORE AC 1360 002457 3141 DCA LB /0 TO LB 1361 002460 7701 CLA MQA /MQ TO AC 1362 002461 3143 DCA MQB /STORE AT MQB 1363 002462 5642 JMP I ADSFT /EXIT. 1364 1365 002463 0000 MUYSM, 0 1366 002464 4431 JMS I UMOVE /MOVE INITIAL 1367 002465 0125 L /MUY PARAMETERS 1368 002466 0141 LB 1369 002467 7774 -4 1370 002470 3141 DCA LB /CLEAR LB 1371 002471 3142 DCA ACB /CLEAR ACB 1372 002472 4502 JMS I UMVR /REGS TO L0 1373 002473 0473 L0 1374 002474 4242 JMS ADSFT 1375 002475 4502 JMS I UMVR /REGS TO L1 1376 002476 0476 L1 1377 002477 4242 JMS ADSFT 1378 002500 4502 JMS I UMVR /REGS TO L2 1379 002501 0501 L2 1380 002502 4242 JMS ADSFT 1381 002503 4502 JMS I UMVR /REGS TO L3 1382 002504 0504 L3 1383 002505 4242 JMS ADSFT 1384 002506 4502 JMS I UMVR /REGS TO L4 1385 002507 0507 L4 1386 002510 4242 JMS ADSFT 1387 002511 4502 JMS I UMVR /REGS TO L5 1388 002512 0512 L5 1389 002513 4242 JMS ADSFT 1390 002514 4502 JMS I UMVR /REGS TO L6 1391 002515 0515 L6 1392 002516 4242 JMS ADSFT 1393 002517 4502 JMS I UMVR /REGS TO L7 1394 002520 0520 L7 1395 002521 4242 JMS ADSFT 1396 002522 4502 JMS I UMVR /REGS TO LATE 1397 002523 0523 LATE 1398 002524 4242 JMS ADSFT 1399 002525 4502 JMS I UMVR /REGS TO LNINE 1400 002526 0526 LNINE 1401 002527 4242 JMS ADSFT 1402 002530 4502 JMS I UMVR /REGS TO L10 1403 002531 0531 L10 1404 002532 4242 JMS ADSFT 1405 002533 4502 JMS I UMVR /REGS TO L11 1406 002534 0534 L11 1407 002535 4242 JMS ADSFT 1408 002536 4502 JMS I UMVR /REGS TO LF 1409 002537 0145 LF 1410 002540 5663 JMP I MUYSM /EXIT 1411 1412 1413 / 1414 002541 0000 MQROT, 0 1415 002542 7320 CLA CLL CML /ROTATE MQB LEFT. 1416 002543 1143 TAD MQB /SET 1 IN MQB11 1417 002544 7004 RAL /AND SAVE MBQ0 AT 1418 002545 3143 DCA MQB /MQBS 1419 002546 7010 RAR 1420 002547 3152 DCA MQ0S 1421 002550 5741 JMP I MQROT /EXIT. 1422 / 1423 002551 0000 DM11, 0 /IF MQ10=LB0, 1424 002552 1143 TAD MQB /GO TO ZMQ11 TO 1425 002553 0156 AND MQ10M /MAKE MQ11=0. 1426 002554 7112 CLL RTR 1427 002555 7010 RAR 1428 002556 1141 TAD LB 1429 002557 7640 SZA CLA 1430 002560 4366 JMS ZMQ11 1431 002561 5751 JMP I DM11 /EXIT. 1432 / 1433 002562 0000 MQRTA, 0 1434 002563 4341 JMS MQROT /ROTATE LEFT MQB 1435 002564 4351 JMS DM11 /0 TO MQB11 IF REQUIRED. 1436 002565 5762 JMP I MQRTA /EXIT. 1437 / 1438 002566 0000 ZMQ11, 0 1439 002567 7300 CLA CLL /0 TO MQB11. 1440 002570 1143 TAD MQB 1441 002571 0155 AND R11Z 1442 002572 3143 DCA MQB 1443 002573 5766 JMP I ZMQ11 /EXIT. 1444 1445 *. 177+1 1446 1447 002600 0000 DIVSM, 0 1448 002601 4431 JMS I UMOVE /MOVE INITIAL 1449 002602 0125 L /DIVIDE PARAMETERS 1450 002603 0141 LB 1451 002604 7774 -4 1452 002605 3153 DCA OFLO /CLEAR OFLO 1453 002606 3141 DCA LB /CLEAR LB 1454 002607 4337 JMS MVR /REGS TO L0 1455 002610 0473 L0 1456 002611 4476 JMS I UADNAC /MEM ADD TO NOT AV 1457 002612 1141 TAD LB 1458 002613 7640 SZA CLA /DIV OFLO? 1459 002614 5227 JMP DVOFLO /YES 1460 002615 4500 JMS I UMQROT /NO, ROTATE MQ 1461 002616 4503 JMS I UZMQ11 /0 TO MQ11 1462 002617 1152 TAD MQ0S /ROTATE L AND AC 1463 002620 7004 RAL /NOT MQ0 TO AC11 1464 002621 1142 TAD ACB 1465 002622 7024 CML RAL 1466 002623 3142 DCA ACB /STORE AC 1467 002624 7010 RAR 1468 002625 3141 DCA LB /STORE L 1469 002626 5237 JMP DSC1 1470 002627 4431 DVOFLO, JMS I UMOVE 1471 002630 0141 LB 1472 002631 0145 LF 1473 002632 7775 -3 1474 002633 7324 CLA CLL CML RAL 1475 002634 3631 DCA I .-3 1476 002635 2153 ISZ OFLO /SET OFLO IND. 1477 002636 5600 JMP I DIVSM 1478 002637 4337 DSC1, JMS MVR /REGS TO L1 1479 002640 0476 L1 1480 002641 4476 JMS I UADNAC /MEM ADD TO NOT AC 1481 002642 4501 JMS I UMQRTA /MQ ROTATE 1482 002643 4356 JMS LACRT /L AND AC ROTATE 1483 002644 4337 JMS MVR /REGS TO L2 1484 002645 0501 L2 1485 002646 4351 JMS SCDVS /SC2-11 SEQUENCE 1486 002647 4337 JMS MVR /REGS TO L3 1487 002650 0504 L3 1488 002651 4351 JMS SCDVS /SC2-11 SEQUENCE 1489 002652 4337 JMS MVR /REGS TO L4 1490 002653 0507 L4 1491 002654 4351 JMS SCDVS /SC2-11 SEQUENCE 1492 002655 4337 JMS MVR /REGS TO L5 1493 002656 0512 L5 1494 002657 4351 JMS SCDVS /SC2-11 SEQUENCE 1495 002660 4337 JMS MVR /REGS TO L6 1496 002661 0515 L6 1497 002662 4351 JMS SCDVS /SC2-11 SEQUENCE 1498 002663 4337 JMS MVR /REGS TO L7 1499 002664 0520 L7 1500 002665 4351 JMS SCDVS /SC2-11 SEQUENCE 1501 002666 4337 JMS MVR /REGS TO LATE 1502 002667 0523 LATE 1503 002670 4351 JMS SCDVS /SC2-11 SEQUENCE 1504 002671 4337 JMS MVR /REGS TO LNINE 1505 002672 0526 LNINE 1506 002673 4351 JMS SCDVS /SC2-11 SEQUENCE 1507 002674 4337 JMS MVR /REGS TO L10 1508 002675 0531 L10 1509 002676 4351 JMS SCDVS /SC2-11 SEQUENCE 1510 002677 4337 JMS MVR /REGS TO L11 1511 002700 0534 L11 1512 002701 4351 JMS SCDVS /SC2-11 SEQUENCE 1513 002702 4337 JMS MVR /REGS TO L12 1514 002703 0537 L12 1515 002704 4477 JMS I UADSB /ADD/SUBTRACT? 1516 002705 4501 JMS I UMQRTA /ROTATE MQ 1517 002706 4337 JMS MVR /REGS TO L13 1518 002707 0542 L13 1519 002710 7300 CLA CLL 1520 002711 1143 TAD MQB 1521 002712 7012 RTR 1522 002713 7430 SZL 1523 002714 5321 JMP .+5 1524 002715 7710 SPA CLA /MQ10(0),MQ11(0)=MEM ADD 1525 002716 5334 JMP STF /TO AC 1526 002717 4475 JMS I UADAC 1527 002720 5334 JMP STF /MQ10(0),MA11(1)= AC TO AC 1528 002721 7710 SPA CLA 1529 002722 5325 JMP .+3 /MQ10(1),MQ11(0)=MEM ADD 1530 002723 4476 JMS I UADNAC /TO NOT AC 1531 002724 5334 JMP STF 1532 002725 1141 TAD LB /MQ10(1),MQ11(1)= NOT AC TO AC 1533 002726 7104 CLL RAL 1534 002727 1142 TAD ACB 1535 002730 7060 CMA CML 1536 002731 3142 DCA ACB /STORE AC 1537 002732 7004 RAL 1538 002733 3141 DCA LB /STORE LINK 1539 002734 4337 STF, JMS MVR /REGS TO LF 1540 002735 0145 LF 1541 002736 5600 JMP I DIVSM /EXIT. 1542 1543 002737 0000 MVR, 0 1544 002740 7200 CLA 1545 002741 1737 TAD I MVR /MOVE LB, ACR, AND 1546 002742 3345 DCA .+3 /MQB TO LOC SPECIFIED 1547 002743 4431 JMS I UMOVE /AT CALL(+1) 1548 002744 0141 LB 1549 002745 0000 0 1550 002746 7775 -3 1551 002747 2337 ISZ MVR 1552 002750 5737 JMP I MVR /EXIT 1553 / 1554 002751 0000 SCDVS, 0 1555 002752 4477 JMS I UADSB /SUBROUTINE CALL 1556 002753 4501 JMS I UMQRTA /SEQUENCE FOR 1557 002754 4356 JMS LACRT /DSC2=11 1558 002755 5751 JMP I SCDVS /EXIT 1559 / 1560 002756 0000 LACRT, 0 1561 002757 7200 CLA /ROTATE LEFT LB AND ACB. 1562 002760 1143 TAD MQB /IF MQB10=0, MQ0S GOES 1563 002761 7012 RTR /TO ACB11. IF MQB10=1, 1564 002762 7630 SZL CLA /NOW MQ05 GOES TO ACB11 1565 002763 7040 CMA 1566 002764 1152 TAD MQ0S 1567 002765 7004 RAL 1568 002766 7200 CLA 1569 002767 1142 TAD ACB 1570 002770 7004 RAL 1571 002771 3142 DCA ACB 1572 002772 7010 RAR 1573 002773 3141 DCA LB 1574 002774 5756 JMP I LACRT 1575 1576 *. 177+1 1577 1578 003000 0000 ADAC, 0 1579 003001 7300 CLA CLL /ADD C(MBB) 1580 003002 1141 TAD LB /TO C(ACB) AND C(LB), 1581 003003 7004 RAL /AND STORE RESULT BACK 1582 003004 1142 TAD ACB /IN ACB AND LB. 1583 003005 1144 TAD MBB 1584 003006 3142 DCA ACB 1585 003007 7010 RAR 1586 003010 3141 DCA LB 1587 003011 5600 JMP I ADAC 1588 / 1589 003012 0000 ADNAC, 0 1590 003013 7300 CLA CLL /ADD C(MBB) TO 1591 003014 1141 TAD LB /NOT C(ACB) AND C(LB), 1592 003015 7004 RAL /STORE RESULT IN ACB AND LB 1593 003016 1142 TAD ACB 1594 003017 7060 CMA CML 1595 003020 1144 TAD MBB 1596 003021 3142 DCA ACB 1597 003022 7010 RAR 1598 003023 3141 DCA LB 1599 003024 5612 JMP I ADNAC 1600 / 1601 003025 0000 ADSB, 0 1602 003026 7300 CLA CLL /IF MQB10=MQB11 1603 003027 1143 TAD MQB /GO TO ADAC SUB. 1604 003030 7012 RTR /IF NOT TO ADNAC SUB. 1605 003031 7010 RAR 1606 003032 0157 AND K6000 1607 003033 1157 TAD K6000 1608 003034 7500 SMA 1609 003035 5240 JMP .+3 1610 003036 4200 JMS ADAC 1611 003037 5625 JMP I ADSB 1612 003040 4212 JMS ADNAC 1613 003041 5625 JMP I ADSB 1614 / 1615 1616 1617 003042 0000 FMFCT, 0 /0X0=0000 0000 1618 003043 0000 0 1619 003044 0000 0 1620 003045 0000 0 1621 003046 0001 1 /1X0=0000 0000 1622 003047 0000 0 1623 003050 0000 0 1624 003051 0000 0 1625 003052 0000 0 /0X1=0000 0000 1626 003053 0001 1 1627 003054 0000 0 1628 003055 0000 0 1629 003056 0001 1 /1X1=0000 0001 1630 003057 0001 1 1631 003060 0000 0 1632 003061 0001 1 1633 003062 0001 1 /0X3=0000 0003 1634 003063 0003 3 1635 003064 0000 0 1636 003065 0003 3 1637 003066 0001 1 /1X7=0000 0007 1638 003067 0007 7 1639 003070 0000 0 1640 003071 0007 7 1641 003072 0001 1 /1X17=0000 0017 1642 003073 0017 17 1643 003074 0000 0 1644 003075 0017 17 1645 003076 0001 1 /1X37=0000 0037 1646 003077 0037 37 1647 003100 0000 0 1648 003101 0037 37 1649 003102 0001 1 /1X77=0000 0077 1650 003103 0077 77 1651 003104 0000 0 1652 003105 0077 77 1653 003106 0001 1 /1X177=0000 0177 1654 003107 0177 177 1655 003110 0000 0 1656 003111 0177 177 1657 003112 0001 1 /1X377=0000 0377 1658 003113 0377 377 1659 003114 0000 0 1660 003115 0377 377 1661 003116 0001 1 /1X777=0000 0777 1662 003117 0777 777 1663 003120 0000 0 1664 003121 0777 777 1665 003122 0001 1 /1X1777=0000 1777 1666 003123 1777 1777 1667 003124 0000 0 1668 003125 1777 1777 1669 003126 0001 1 /1X3777=0000 3777 1670 003127 3777 3777 1671 003130 0000 0 1672 003131 3777 3777 1673 003132 0001 1 /1X7777=0000 7777 1674 003133 7777 7777 1675 003134 0000 0 1676 003135 7777 7777 1677 003136 0003 3 /3X1=0000 0003 1678 003137 0001 1 1679 003140 0000 0 1680 003141 0003 3 1681 003142 0007 7 /7X1=0000 0007 1682 003143 0001 1 1683 003144 0000 0 1684 003145 0007 7 1685 003146 0017 17 /17X1=0000 0017 1686 003147 0001 1 1687 003150 0000 0 1688 003151 0017 17 1689 003152 0037 37 /37X1=0000 0037 1690 003153 0001 1 1691 003154 0000 0 1692 003155 0037 37 1693 003156 0077 77 /77X1=0000 0077 1694 003157 0001 1 1695 003160 0000 0 1696 003161 0077 77 1697 003162 0177 177 /177X1=0000 0177 1698 003163 0001 1 1699 003164 0000 0 1700 003165 0177 177 1701 003166 0377 377 /377X1=0000 0377 1702 003167 0001 1 1703 003170 0000 0 1704 003171 0377 377 1705 003172 0777 777 /777X1=0000 0777 1706 003173 0001 1 1707 003174 0000 0 1708 003175 0777 777 1709 003176 1777 1777 /1777X1=0000 1777 1710 003177 0001 1 1711 003200 0000 0 1712 003201 1777 1777 1713 003202 3777 3777 /3777X1=0000 3777 1714 003203 0001 1 1715 003204 0000 0 1716 003205 3777 3777 1717 003206 7777 7777 /7777X1=0000 7777 1718 003207 0001 1 1719 003210 0000 0 1720 003211 7777 7777 /7777X3=0002 7775 1721 003212 0003 3 1722 003213 7777 7777 1723 003214 0002 2 1724 003215 7775 7775 1725 003216 0007 7 /7X7777=0006 7771 1726 003217 7777 7777 1727 003220 0006 6 1728 003221 7771 7771 1729 003222 0017 17 /17X7777=0016 7761 1730 003223 7777 7777 1731 003224 0016 16 1732 003225 7761 7761 1733 003226 0037 37 /37X7777=0036 7741 1734 003227 7777 7777 1735 003230 0036 36 1736 003231 7741 7741 1737 003232 0077 77 /77X7777=0076 7701 1738 003233 7777 7777 1739 003234 0076 76 1740 003235 7701 7701 1741 003236 0177 177 /177X7777=0176 7601 1742 003237 7777 7777 1743 003240 0176 176 1744 003241 7601 7601 1745 003242 0377 377 /377X7777=0376 7401 1746 003243 7777 7777 1747 003244 0376 376 1748 003245 7401 7401 1749 003246 0777 777 /777X7777=0776 7001 1750 003247 7777 7777 1751 003250 0776 776 1752 003251 7001 7001 1753 003252 1777 1777 /1777X7777=1776 6001 1754 003253 7777 7777 1755 003254 1776 1776 1756 003255 6001 6001 1757 003256 3777 3777 /3777X7777=3776 4001 1758 003257 7777 7777 1759 003260 3776 3776 1760 003261 4001 4001 1761 003262 7777 7777 /7777X7777=7776 0001 1762 003263 7777 7777 1763 003264 7776 7776 1764 003265 0001 1 1765 003266 7777 7777 /7777X3=0002 7775 1766 003267 0003 3 1767 003270 0002 2 1768 003271 7775 7775 1769 003272 7777 7777 /7777X7=0006 7771 1770 003273 0007 7 1771 003274 0006 6 1772 003275 7771 7771 1773 003276 7777 7777 /7777X17=0016 7761 1774 003277 0017 17 1775 003300 0016 16 1776 003301 7761 7761 1777 003302 7777 7777 /7777X37=0036 7741 1778 003303 0037 37 1779 003304 0036 36 1780 003305 7741 7741 1781 003306 7777 7777 /7777X77=0076 7701 1782 003307 0077 77 1783 003310 0076 76 1784 003311 7701 7701 1785 003312 7777 7777 /7777X177=0176 7601 1786 003313 0177 177 1787 003314 0176 176 1788 003315 7601 7601 1789 003316 7777 7777 /7777X377=0376 7401 1790 003317 0377 377 1791 003320 0376 376 1792 003321 7401 7401 1793 003322 7777 7777 /7777X777=0776 7001 1794 003323 0777 777 1795 003324 0776 776 1796 003325 7001 IAC 1797 003326 7777 7777 /7777X1777=1775 6001 1798 003327 1777 1777 1799 003330 1776 1776 1800 003331 6001 ION 1801 003332 7777 7777 /7777X3777=3776 4001 1802 003333 3777 3777 1803 003334 3776 3776 1804 003335 4001 4001 1805 003336 0001 1 /1X4000=0000 4000 1806 003337 4000 4000 1807 003340 0000 0 1808 003341 4000 4000 1809 003342 4000 4000 /4000x1=0000 4000 1810 003343 0001 1 1811 003344 0000 0 1812 003345 4000 4000 1813 003346 0001 1 /1X5252=0000 5252 1814 003347 5252 5252 1815 003350 0000 0 1816 003351 5252 5252 1817 003352 0001 1 /1X2525=0000 2525 1818 003353 2525 2525 1819 003354 0000 0 1820 003355 2525 2525 1821 003356 5252 5252 /5252X1=0000 5252 1822 003357 0001 1 1823 003360 0000 0 1824 003361 5252 5252 1825 003362 2525 2525 /252X1=0000 2525 1826 003363 0001 1 1827 003364 0000 0 1828 003365 2525 2525 1829 003366 5252 5252 /5252X2525=1615 6162 1830 003367 2525 2525 1831 003370 1615 1615 1832 003371 6162 6162 1833 003372 2525 2525 /2525X5252=1615 6162 1834 003373 5252 5252 1835 003374 1615 1615 1836 003375 6162 6162 1837 003376 0000 FDOPR, 0 /0000 0000/0000=1 7777 0000 1838 003377 0000 0 1839 003400 0000 0 1840 003401 0001 1 1841 003402 7777 7777 1842 003403 0000 0 1843 003404 7777 7777 /7777 0000/7777=1 7777 0000 1844 003405 0000 0 1845 003406 7777 7777 1846 003407 0001 1 1847 003410 7777 7777 1848 003411 0000 0 1849 003412 0000 0 /0000 0000/0001=0 0000 0000 1850 003413 0000 0 1851 003414 0001 1 1852 003415 0000 0 1853 003416 0000 0 1854 003417 0000 0 1855 003420 0000 0 /0000 0000/0003=0 0000 0000 1856 003421 0000 0 1857 003422 0003 3 1858 003423 0000 0 1859 003424 0000 0 1860 003425 0000 0 1861 003426 0000 0 /0000 0000/0007=0 0000 0000 1862 003427 0000 0 1863 003430 0007 7 1864 003431 0000 0 1865 003432 0000 0 1866 003433 0000 0 1867 003434 0000 0 /0000 0000/0017=0 0000 0000 1868 003435 0000 0 1869 003436 0017 17 1870 003437 0000 0 1871 003440 0000 0 1872 003441 0000 0 1873 003442 0000 0 /0000 0000/0037=0 0000 0000 1874 003443 0000 0 1875 003444 0037 37 1876 003445 0000 0 1877 003446 0000 0 1878 003447 0000 0 1879 003450 0000 0 /0000 0000/0077=0 0000 0000 1880 003451 0000 0 1881 003452 0077 77 1882 003453 0000 0 1883 003454 0000 0 1884 003455 0000 0 1885 003456 0000 0 /0000 0000/0177=0 0000 0000 1886 003457 0000 0 1887 003460 0177 177 1888 003461 0000 0 1889 003462 0000 0 1890 003463 0000 0 1891 003464 0000 0 /0000 0000/0377=0 0000 0000 1892 003465 0000 0 1893 003466 0377 377 1894 003467 0000 0 1895 003470 0000 0 1896 003471 0000 0 1897 003472 0000 0 /0000 0000/0777=0 0000 0000 1898 003473 0000 0 1899 003474 0777 777 1900 003475 0000 0 1901 003476 0000 0 1902 003477 0000 0 1903 003500 0000 0 /0000 0000/1777=0 0000 0000 1904 003501 0000 0 1905 003502 1777 1777 1906 003503 0000 0 1907 003504 0000 0 1908 003505 0000 0 1909 003506 0000 0 /0000 0000/3777=0 0000 0000 1910 003507 0000 0 1911 003510 3777 3777 1912 003511 0000 0 1913 003512 0000 0 1914 003513 0000 0 1915 003514 0000 0 /0000 0000/7777=0 0000 0000 1916 003515 0000 0 1917 003516 7777 7777 1918 003517 0000 0 1919 003520 0000 0 1920 003521 0000 0 1921 003522 0000 0 /0000 0001/7777=0 0001 0000 1922 003523 0001 1 1923 003524 7777 7777 1924 003525 0000 0 1925 003526 0001 1 1926 003527 0000 0 1927 003530 0000 0 /0000 0003/7777=0 0003 0000 1928 003531 0003 3 1929 003532 7777 7777 1930 003533 0000 0 1931 003534 0003 3 1932 003535 0000 0 1933 003536 0000 0 /0000 0007/7777=0 0007 0000 1934 003537 0007 7 1935 003540 7777 7777 1936 003541 0000 0 1937 003542 0007 7 1938 003543 0000 0 1939 003544 0000 0 /0000 0017/7777=0 0017 0000 1940 003545 0017 17 1941 003546 7777 7777 1942 003547 0000 0 1943 003550 0017 17 1944 003551 0000 0 1945 003552 0000 0 /0000 0037/7777=0 0037 0000 1946 003553 0037 37 1947 003554 7777 7777 1948 003555 0000 0 1949 003556 0037 37 1950 003557 0000 0 1951 003560 0000 0 /0000 0077/7777=0 0077 0000 1952 003561 0077 77 1953 003562 7777 7777 1954 003563 0000 0 1955 003564 0077 77 1956 003565 0000 0 1957 003566 0000 0 /0000 0377/7777=0 0377 0000 1958 003567 0377 377 1959 003570 7777 7777 1960 003571 0000 0 1961 003572 0377 377 1962 003573 0000 0 1963 003574 0000 0 /0000 0777/7777=0 0777 0000 1964 003575 0777 777 1965 003576 7777 7777 1966 003577 0000 0 1967 003600 0777 777 1968 003601 0000 0 1969 003602 0000 0 /0000 1777/7777=0 1777 0000 1970 003603 1777 1777 1971 003604 7777 7777 1972 003605 0000 0 1973 003606 1777 1777 1974 003607 0000 0 1975 003610 0000 0 /0000 3777/7777=0 3777 0000 1976 003611 3777 3777 1977 003612 7777 7777 1978 003613 0000 0 1979 003614 3777 3777 1980 003615 0000 0 1981 003616 0001 1 /0001 0000/7777=0 0001 0001 1982 003617 0000 0 1983 003620 7777 7777 1984 003621 0000 0 1985 003622 0001 1 1986 003623 0001 1 1987 003624 0003 3 /0003 0000/7777=0 0003 0003 1988 003625 0000 0 1989 003626 7777 7777 1990 003627 0000 0 1991 003630 0003 3 1992 003631 0003 3 1993 003632 0007 7 /0007 0000/7777=0 0007 0007 1994 003633 0000 0 1995 003634 7777 7777 1996 003635 0000 0 1997 003636 0007 7 1998 003637 0007 7 1999 003640 0017 17 /0017 0000/7777=0 0017 0017 2000 003641 0000 0 2001 003642 7777 7777 2002 003643 0000 0 2003 003644 0017 17 2004 003645 0017 17 2005 003646 0037 37 /0037 0000/7777=0 0037 0037 2006 003647 0000 0 2007 003650 7777 7777 2008 003651 0000 0 2009 003652 0037 37 2010 003653 0037 37 2011 003654 0077 77 /0077 0000/7777=0 0077 0077 2012 003655 0000 0 2013 003656 7777 7777 2014 003657 0000 0 2015 003660 0077 77 2016 003661 0077 77 2017 003662 0177 177 /0177 0000/7777=0 0177 0177 2018 003663 0000 0 2019 003664 7777 7777 2020 003665 0000 0 2021 003666 0177 177 2022 003667 0177 177 2023 003670 0377 377 /0377 0000/7777=0 0777 0000 2024 003671 0000 0 2025 003672 7777 7777 2026 003673 0000 0 2027 003674 0377 377 2028 003675 0377 377 2029 003676 0777 777 /0777 0000/7777=0 0777 0777 2030 003677 0000 0 2031 003700 7777 7777 2032 003701 0000 0 2033 003702 0777 777 2034 003703 0777 777 2035 003704 1777 1777 /1777 0000/7777=0 1777 1777 2036 003705 0000 0 2037 003706 7777 7777 2038 003707 0000 0 2039 003710 1777 1777 2040 003711 1777 1777 2041 003712 3777 3777 /3777 0777/7777=0 3777 3777 2042 003713 0000 0 2043 003714 7777 7777 2044 003715 0000 0 2045 003716 3777 3777 2046 003717 3777 3777 2047 003720 0000 0 /0000 7777/0001=0 0000 7777 2048 003721 7777 7777 2049 003722 0001 1 2050 003723 0000 0 2051 003724 0000 0 2052 003725 7777 7777 2053 003726 0001 1 /0001 2525/0002=0 0001 5252 2054 003727 2525 2525 2055 003730 0002 2 2056 003731 0000 0 2057 003732 0001 1 2058 003733 5252 5252 2059 003734 0000 0 /0000 5252/0002=0 0000 2525 2060 003735 5252 5252 2061 003736 0002 2 2062 003737 0000 0 2063 003740 0000 0 2064 003741 2525 2525 2065 003742 0007 7 /0007 0707/0010=0 0007 7070 2066 003743 0707 0707 2067 003744 0010 10 2068 003745 0000 0 2069 003746 0007 7 2070 003747 7070 7070 2071 003750 0000 0 /0000 7070/0010=0 0000 0707 2072 003751 7070 7070 2073 003752 0010 10 2074 003753 0000 0 2075 003754 0000 0 2076 003755 0707 0707 2077 2078 2079 /KE8I - TAPE 4 2080 / 2081 2082 *. 177+1 2083 004000 0000 EX1ST, 0 /SET UP OPERANDS IN 2084 /EX1 EXERCISER 2085 004001 7200 CLA 2086 004002 1124 TAD B /SET "B" 2087 004003 3213 DCA .+10 2088 004004 1124 TAD B /SET "B" 2089 004005 3215 DCA .+10 2090 004006 5600 JMP I EX1ST 2091 004007 0000 EX1, 0 /EXERCISE: 2092 004010 7200 CLA /AXB/B=A 2093 004011 1123 TAD A 2094 004012 7425 MQL MUY 2095 004013 0000 0 2096 004014 7407 DVI 2097 004015 0000 0 2098 004016 5607 JMP I EX1 2099 2100 004017 0000 EX2ST, 0 /SET UP OPERANDS IN 2101 /EX2 EXERCISER 2102 004020 7200 CLA 2103 004021 1124 TAD B 2104 004022 3236 DCA .+14 /SET "B" 2105 004023 1124 TAD B 2106 004024 3240 DCA .+14 /SET "B" 2107 004025 1124 TAD B 2108 004026 3242 DCA .+14 /SET "B" 2109 004027 1123 TAD A 2110 004030 3244 DCA .+14 /SET "A" 2111 004031 5617 JMP I EX2ST 2112 004032 0000 EX2, 0 /EXERCISE: 2113 004033 7200 CLA /AXB/BXB/A=B 2114 004034 1123 TAD A 2115 004035 7425 MQL MUY 2116 004036 0000 0 2117 004037 7407 DVI 2118 004040 0000 0 2119 004041 7405 MUY 2120 004042 0000 0 2121 004043 7407 DVI 2122 004044 0000 0 2123 004045 5632 JMP I EX2 2124 2125 004046 0000 EX3ST, 0 /SET UP OPERANDS IN 2126 /EX3 EXERCISER 2127 004047 7200 CLA 2128 004050 1124 TAD B /SET "B" 2129 004051 3271 DCA .+20 2130 004052 1124 TAD B /SET "B" 2131 004053 3273 DCA .+20 2132 004054 1124 TAD B /SET "B" 2133 004055 3275 DCA .+20 2134 004056 1123 TAD A /SET "A" 2135 004057 3277 DCA .+20 2136 004060 1123 TAD A /SET "A" 2137 004061 3301 DCA .+20 2138 004062 1123 TAD A /SET "A" 2139 004063 3303 DCA .+20 2140 004064 5646 JMP I EX3ST 2141 004065 0000 EX3, 0 /EXERCISE: 2142 /AXB/BXB/AXA/A=B 2143 004066 7200 CLA 2144 004067 1123 TAD A 2145 004070 7425 MQL MUY 2146 004071 0000 0 2147 004072 7407 DVI 2148 004073 0000 0 2149 004074 7405 MUY 2150 004075 0000 0 2151 004076 7407 DVI 2152 004077 0000 0 2153 004100 7405 MUY 2154 004101 0000 0 2155 004102 7407 DVI 2156 004103 0000 0 2157 004104 5665 JMP I EX3 2158 2159 004105 0000 EX4ST, 0 /SET UP OPERANDS IN 2160 /EX4 EXERCISER 2161 004106 7200 CLA 2162 004107 1124 TAD B /SET "B" 2163 004110 3334 DCA .+24 2164 004111 1124 TAD B /SET "B" 2165 004112 3336 DCA .+24 2166 004113 1124 TAD B /SET "B" 2167 004114 3340 DCA .+24 2168 004115 1123 TAD A /SET "A" 2169 004116 3342 DCA .+24 2170 004117 1123 TAD A /SET "A" 2171 004120 3344 DCA .+24 2172 004121 1123 TAD A /SET "A" 2173 004122 3346 DCA .+24 2174 004123 1123 TAD A /SET "A" 2175 004124 3350 DCA .+24 2176 004125 1124 TAD B /SET "B" 2177 004126 3352 DCA .+24 2178 004127 5705 JMP I EX4ST 2179 004130 0000 EX4, 0 /EXERCISE: 2180 /AXB/BXB/AXA/AXA/B=A 2181 004131 7200 CLA 2182 004132 1123 TAD A 2183 004133 7425 MQL MUY 2184 004134 0000 0 2185 004135 7407 DVI 2186 004136 0000 0 2187 004137 7405 MUY 2188 004140 0000 0 2189 004141 7407 DVI 2190 004142 0000 0 2191 004143 7405 MUY 2192 004144 0000 0 2193 004145 7407 DVI 2194 004146 0000 0 2195 004147 7405 MUY 2196 004150 0000 0 2197 004151 7407 DVI 2198 004152 0000 0 2199 004153 5730 JMP I EX4 2200 / 2201 /FILL 2K BUFFER WITH RANDOM NON-ZERO NUMBERS 2202 004154 0000 FBRM, 0 2203 004155 4423 JMS I SETCTR /SET FBCTR 2204 004156 4173 FBCTR /TO -1400 2205 004157 5210 -2570 2206 004160 1105 TAD UTAB 2207 004161 3374 DCA FBRT /STORE TABLE ADDRESS 2208 004162 4426 JMS I RANDNO /GENERATE RANDOM NUMBER 2209 004163 7450 SNA /IS IT ZERO? 2210 004164 5362 JMP .-2 /YES, SET ANOTHER NUMBER 2211 004165 3774 DCA I FBRT /NO, STORE PER FBRT 2212 004166 2374 ISZ FBRT /+1 to FBRT 2213 004167 2373 ISZ FBCTR /ALL CHARACTERS GENERATED? 2214 004170 5362 JMP .-6 /NO, REPEAT 2215 004171 2154 ISZ TABF /YES, SET TABLE FULL INDICATOR 2216 004172 5754 JMP I FBRM /EXIT 2217 004173 0000 FBCTR, 0 2218 004174 0000 FBRT, 0 2219 2220 2221 *. 177+1 2222 004200 0000 MDEXR, 0 2223 004201 3125 DCA L 2224 004202 4431 JMS I UMOVE /CLEAR REGISTERS 2225 004203 0125 L 2226 004204 0126 AC 2227 004205 7752 -26 2228 004206 1600 TAD I MDEXR 2229 004207 3323 DCA TSTP /STORE SETUP ADDRESS 2230 004210 2200 ISZ MDEXR 2231 004211 1600 TAD I MDEXR 2232 004212 3171 DCA TEXR 2233 004213 2200 ISZ MDEXR 2234 004214 1600 TAD I MDEXR 2235 004215 3133 DCA MQSB 2236 004216 1533 TAD I MQSB 2237 004217 3133 DCA MQSB /STORE EXPECTED RESULT 2238 004220 2200 ISZ MDEXR 2239 004221 1600 TAD I MDEXR 2240 004222 3262 DCA PRBX /STORE PRB PRINTOUT ADDRESS 2241 004223 2200 ISZ MDEXR /SET UP EXIT 2242 004224 4723 JMS I TSTP /SET UP EXERCISE 2243 004225 4227 JMS EX /GO DO EXERCISE 2244 004226 5237 JMP EXCMP 2245 004227 0000 EX, 0 2246 004230 4571 JMS I TEXR /DO EXERCISE 2247 004231 3136 DCA ACR /STORE AC RESULT 2248 004232 7010 RAR 2249 004233 3135 DCA LR /STORE LINK RESULT 2250 004234 7501 MQA 2251 004235 3137 DCA MQR /STORE MQ RESULT 2252 004236 5627 JMP I EX 2253 2254 004237 4436 EXCMP, JMS I UCOMP /COMPARE RESULTS AND 2255 004240 7775 -3 /EXPECTED RESULTS (3 WORDS) 2256 004241 5245 JMP EXER /ERROR 2257 004242 4437 EXLT, JMS I USR4T /LOCK ON TEST? (SR4 ON) 2258 004243 5225 JMP EX-2 /YES. 2259 004244 5600 JMP I MDEXR /NO, EXIT 2260 004245 4440 EXER, JMS I USR5T /PRINT/HALT? 2261 004246 5253 JMP .+5 /YES, GO PRINT 2262 004247 4324 JMS EXEHLT /GO HALT 2263 004250 4440 JMS I USR5T /PRINT? 2264 004251 7410 SKP /GO PRINT 2265 004252 5242 JMP EXLT /NO PRINT 2266 004253 4461 JMS I UCRLF /CRLF TWICE 2267 004254 7776 -2 2268 004255 4425 JMS I XTYPST /PRINT PROB 2269 004256 0643 PROB 2270 004257 4460 JMS I UPSPC /SPACE TWICE 2271 004260 7776 -2 2272 004261 4425 JMS I XTYPST /PRINT PROBLEM DESCRIPTION 2273 004262 0000 PRBX, 0 2274 004263 4461 JMS I UCRLF /CRLF TWICE 2275 004264 7776 -2 2276 004265 4331 JMS ASCCN 2277 004266 0123 A 2278 004267 0756 AVALUE 2279 004270 4331 JMS ASCCN 2280 004271 0124 B 2281 004272 0763 BVALUE 2282 004273 4425 JMS I XTYPST 2283 004274 0754 ABVAL 2284 004275 4511 JMS I UEXERP 2285 004276 4441 JMS I USR6T /HALT AFTER PRINT? 2286 004277 4324 JMS EXEHLT /YES, GO HALT 2287 004300 4442 JMS I UST7T /PRINT FAILURE RATE? 2288 004301 5317 JMP EXLOP-2 /NO 2289 004302 4423 JMS I SETCTR /SET FRCTR 2290 004303 0161 FRCTR /TO -100 2291 004304 7634 -144 2292 004305 3160 DCA FCTR /CLEAR FAILURES COUNTER 2293 004306 4227 JMS EX /DO EXERCISE 2294 004307 4436 JMS I UCOMP /COMPARE RESULTS 2295 004310 7775 -3 2296 004311 2160 ISZ FCTR /ERROR: +1 to FCTR 2297 004312 2161 ISZ FRCTR /DONE 100 TIMES? 2298 004313 5306 JMP .-5 /NO, REPEAT 2299 004314 4464 JMS I UMSG2 /YES, PRINT FAILURE RATE 2300 004315 4441 JMS I USR6T /HALT AFTER PRINT? 2301 004316 4324 JMS EXEHLT /YES GO HALT 2302 004317 4443 JMS I USATET /SCOPE LOOP? 2303 004320 5242 JMP EXLT /NO 2304 004321 4571 EXLOP, JMS I TEXR /DO EXERCISE 2305 004322 5321 JMP .-1 /REPEAT 2306 004323 0000 TSTP, 0 2307 004324 0000 EXEHLT, 0 2308 004325 7200 CLA 2309 004326 1116 TAD RTNNO /GET ROUTINE NUMBER 2310 004327 7402 HLT /MUY/DVI EXR ERR HALT 2311 004330 5724 JMP I EXEHLT /EXIT 2312 2313 004331 0000 ASCCN, 0 /CONVERT TO OCTAL PACKED ASCII 2314 004332 1731 TAD I ASCCN 2315 004333 3367 DCA WASC /STORE ADDRESS OF WORD TO CONVERT 2316 004334 2331 ISZ ASCCN 2317 004335 1731 TAD I ASCCN /STORE ADDRESS OF LOCATION 2318 004336 3370 DCA SASC /TO STORE CONVERTED DATA 2319 004337 2331 ISZ ASCCN /SET UP EXIT 2320 004340 1174 TAD K7700 2321 004341 0767 AND I WASC /GET TWO HIGH ORDER DIGITS 2322 004342 7112 RTR CLL 2323 004343 7012 RTR /SHIFT TO LOW ORDER 2324 004344 7012 RTR /POSITIVES 2325 004345 4354 JMS CNV /GO DO CONVERSION 2326 004346 2370 ISZ SASC /+1 TO STORE ADDRESS 2327 004347 1174 TAD K7700 2328 004350 7040 CMA 2329 004351 0767 AND I WASC /GET TWO LOW ORDER DIGITS 2330 004352 4354 JMS CNV /GO DO CONVERSION 2331 004353 5731 JMP I ASCCN /EXIT 2332 004354 0000 CNV, 0 2333 004355 3371 DCA ASCT /SAVE DIGITS 2334 004356 1371 TAD ASCT /GET DIGITS BACK AC=00XX 2335 004357 7006 RTL 2336 004360 7004 RAL /AC=0XX0 2337 004361 0172 AND K0707 /AC=0X00 2338 004362 1371 TAD ASCT /AC=0XXX 2339 004363 0172 AND K0707 /AC=0X0X 2340 004364 1173 TAD K6060 /AC=6X6X 2341 004365 3770 DCA I SASC /STORE PER STORE ADDRESS 2342 004366 5754 JMP I CNV /EXIT 2343 004367 0000 WASC, 0 2344 004370 0000 SASC, 0 2345 004371 0000 ASCT, 0 2346 2347 2348 *. 177+1 2349 004400 0000 TST0, 0 2350 004401 4405 TST1 2351 004402 4427 JMS I UMUYT 2352 004403 3042 FMFCT 2353 004404 7711 -67 2354 004405 0001 TST1, 1 2355 004406 4461 TST2 2356 004407 4423 JMS I SETCTR /SET RMCTR 2357 004410 4457 RMCTR /TO -1400 2358 004411 5210 -2570 2359 004412 1105 TAD UTAB /GET AND STORE 2360 004413 3260 DCA RMAD 2361 004414 4426 RMSTP, JMS I RANDNO /GENERATE RANDOM NO. 2362 004415 3660 DCA I RMAD /STORE 2363 004416 2260 ISZ RMAD 2364 004417 2257 ISZ RMCTR 2365 004420 5214 JMP .-4 2366 004421 3125 DCA L /YES CLEAR REGISTERS. 2367 004422 4431 JMS I UMOVE 2368 004423 0125 L 2369 004424 0126 AC 2370 004425 7751 -27 2371 004426 4423 JMS I SETCTR /SET RMCTR 2372 004427 4457 RMCTR /TO -350 2373 004430 7242 -536 2374 004431 1105 TAD UTAB /GET AND STORE 2375 004432 3234 DCA .+2 /TABLE ADDRESS 2376 004433 4431 JMS I UMOVE /MOVE TWO FACTORS 2377 004434 0000 RMSTPA, 0 /TO MQ AND MB. 2378 004435 0127 MQ 2379 004436 7776 -2 2380 004437 4454 JMS I UMUYSM /SIMULATE MULTIPLY 2381 004440 1234 TAD RMSTPA 2382 004441 1165 TAD K2 2383 004442 3245 DCA .+3 2384 004443 4431 JMS I UMOVE /STORE RESULTS 2385 004444 0146 ACF 2386 004445 0000 0 2387 004446 7776 -2 2388 004447 1245 TAD .-2 /SET UP FOR NEXT 2389 004450 1165 TAD K2 /TWO FACTORS. 2390 004451 3234 DCA RMSTPA 2391 004452 2257 ISZ RMCTR /DONE SIMULATING? 2392 004453 5233 JMP RMSTPA-1 /NO, REPEAT 2393 004454 4427 JMS I UMUYT /YES GO DO MULTIPLY TEST 2394 004455 5000 TAB 2395 004456 7242 -536 2396 004457 0000 RMCTR, 0 2397 004460 0000 RMAD, 0 2398 2399 004461 0002 TST2, 2 2400 004462 4466 TST3 2401 004463 4430 JMS I UDIVT 2402 004464 3376 FDOPR 2403 004465 7730 -50 2404 004466 0003 TST3, 3 2405 004467 4600 TST4 2406 004470 4423 JMS I SETCTR /SET RDCTR 2407 004471 4540 RDCTR /TO -1400 2408 004472 5210 -2570 2409 004473 1105 TAD UTAB /GET AND STORE 2410 004474 3341 DCA RDAD /TABLE ADDRESS 2411 004475 4426 RDSTP, JMS I RANDNO /GENERATE RANDOM NO. 2412 004476 3741 DCA I RDAD /STORE 2413 004477 2341 ISZ RDAD 2414 004500 2340 ISZ RDCTR 2415 004501 5275 JMP .-4 2416 004502 3125 DCA L /YES, CLEAR REGISTERS 2417 004503 4431 JMS I UMOVE 2418 004504 0125 L 2419 004505 0126 AC 2420 004506 7751 -27 2421 004507 4423 JMS I SETCTR /SET RDCTR 2422 004510 4540 RDCTR /TO -233 2423 004511 7427 -351 2424 004512 1105 TAD UTAB /GET TABLE ADDR 2425 004513 3315 DCA RDSTPA /AND STORE. 2426 004514 4431 JMS I UMOVE 2427 004515 0000 RDSTPA, 0 /MOVE DIVIDE OPERANDS TO 2428 004516 0126 AC /AC, MQ, AND MB. 2429 004517 7775 -3 2430 004520 4455 JMS I UDIVSM /SIMULATE DIVIDE. 2431 004521 1315 TAD RDSTPA 2432 004522 1166 TAD K3 2433 004523 3326 DCA .+3 2434 004524 4431 JMS I UMOVE /STORE RESULTS 2435 004525 0145 LF 2436 004526 0000 0 2437 004527 7775 -3 2438 004530 1326 TAD .-2 /SET UP FOR NEXT 2439 004531 1166 TAD K3 /SImULATION. 2440 004532 3315 DCA RDSTPA 2441 004533 2340 ISZ RDCTR /DONE SIMULATING? 2442 004534 5314 JMP RDSTPA-1 /NO, REPEAT 2443 004535 4430 JMS I UDIVT /YES, GO DO DIVIDE TEST. 2444 004536 5000 TAB 2445 004537 7427 -351 2446 004540 0000 RDCTR, 0 2447 004541 0000 RDAD, 0 2448 2449 2450 *. 177+1 2451 004600 0004 TST4, 4 2452 004601 4626 TST5 2453 004602 4506 JMS I UFBRM /FILL 2K BUFFER WITH RANDOM NUMBERS. 2454 004603 4423 JMS I SETCTR /SET TCTR 2455 004604 0164 TCTR /TO -700 2456 004605 6504 -1274 2457 004606 1105 TAD UTAB 2458 004607 3211 DCA ADR1 /STORE TABLE ADDRESS 2459 004610 4431 JMS I UMOVE /MOVE 2 OPERANDS TO A AND B. 2460 004611 0000 ADR1, 0 2461 004612 0123 A 2462 004613 7776 -2 2463 004614 4507 JMS I UMDEXR /GO DO MUY/DVI EXERCISE TEST. 2464 004615 4000 EX1ST /EXERCISE SET UP ADDRESS. 2465 004616 4007 EX1 /EXERCISE ADDRESS. 2466 004617 0123 A /CONVERT RESULT ADDRESS 2467 004620 0710 PRB1 /PROBLEM PRINT OUT ADDRESS. 2468 004621 2211 ISZ ADR1 /+2 TO ADR1 2469 004622 2211 ISZ ADR1 2470 004623 2164 ISZ TCTR /ALL TESTS DONE? 2471 004624 5210 JMP ADR1-1 /NO, REPEAT 2472 004625 5421 JMP I CHAIN /YES, CHAIN. 2473 2474 / 2475 004626 0005 TST5, 5 2476 004627 4657 TST6 2477 004630 7200 CLA 2478 004631 1154 TAD TABF 2479 004632 7650 SNA CLA 2480 004633 4506 JMS I UFBRM 2481 004634 4423 JMS I SETCTR 2482 004635 0164 AND TCTR 2483 004636 6504 -1274 2484 004637 1105 TAD UTAB 2485 004640 3242 DCA ADR2 2486 004641 4431 JMS I UMOVE 2487 004642 0000 ADR2, 0 2488 004643 0123 A 2489 004644 7776 -2 2490 004645 4507 JMS I UMDEXR 2491 004646 4017 EX2ST 2492 004647 4032 EX2 2493 004650 0124 B 2494 004651 0716 PRB2 2495 004652 2242 ISZ ADR2 2496 004653 2242 ISZ ADR2 2497 004654 2164 ISZ TCTR 2498 004655 5241 JMP ADR2-1 2499 004656 5421 JMP I CHAIN /YES, CHAIN. 2500 2501 004657 0006 TST6, 6 2502 004660 4710 TST7 2503 004661 7200 CLA 2504 004662 1154 TAD TABF 2505 004663 7650 SNA CLA 2506 004664 4506 JMS I UFBRM 2507 004665 4423 JMS I SETCTR 2508 004666 0164 TCTR 2509 004667 6504 -1274 2510 004670 1105 TAD UTAB 2511 004671 3273 DCA ADR3 2512 004672 4431 JMS I UMOVE 2513 004673 0000 ADR3, 0 2514 004674 0123 A 2515 004675 7776 -2 2516 004676 4507 JMS I UMDEXR 2517 004677 4046 EX3ST 2518 004700 4065 EX3 2519 004701 0124 B 2520 004702 0726 PRB3 2521 004703 2273 ISZ ADR3 2522 004704 2273 ISZ ADR3 2523 004705 2164 ISZ TCTR 2524 004706 5272 JMP ADR3-1 2525 004707 5421 JMP I CHAIN /YES, CHAIN 2526 / 2527 004710 0007 TST7, 7 2528 004711 7777 7777 2529 004712 7200 CLA 2530 004713 1154 TAD TABF 2531 004714 7650 SNA CLA 2532 004715 4506 JMS I UFBRM 2533 004716 4423 JMS I SETCTR 2534 004717 0164 TCTR 2535 004720 6504 -1274 2536 004721 1105 TAD UTAB 2537 004722 3324 DCA ADR4 2538 004723 4431 JMS I UMOVE 2539 004724 0000 ADR4, 0 2540 004725 0123 A 2541 004726 7776 -2 2542 004727 4507 JMS I UMDEXR 2543 004730 4105 EX4ST 2544 004731 4130 EX4 2545 004732 0123 A 2546 004733 0740 PRB4 2547 004734 2324 ISZ ADR4 2548 004735 2324 ISZ ADR4 2549 004736 2164 ISZ TCTR 2550 004737 5323 JMP ADR4-1 2551 004740 5421 JMP I CHAIN 2552 2553 2554 2555 2556 *. 177+1 2557 / 2558 005000 0000 TAB, 0 2559 *. +2567 2560 $ A 0123 ABLSR 2454 unreferenced ABVAL 0754 AC 0126 ACB 0142 ACF 0146 ACR 0136 ACSB 0132 ADAC 3000 ADDRZA 2132 ADNAC 3012 ADR1 4611 ADR2 4642 ADR3 4673 ADR4 4724 ADSB 3025 ADSFT 2442 ARROW 2113 ASCCN 4331 ASCT 4371 ASR 7415 unreferenced AVALUE 0756 B 0124 BAD 0651 BDCNV 2075 BVALUE 0763 C1 1721 C100 0467 C1A 1723 C2 1722 C240 0470 C2A 1724 CAC 0661 CAM 7621 unreferenced CHAIN 0021 CHAINN 0234 CMB 0671 CMPCTR 1725 CMQ 0665 CNV 4354 CNVCTR 2141 COMP 1676 COMPA 1706 CRCTR 1770 CRLF 1753 CURTST 0115 DEHLT 1506 DERPT 1513 DERR 1447 DFRP 1526 DIGIT 2140 DIVD 1461 DIVERR 0555 DIVSM 2600 DIVT 1400 DLT 1436 DM11 2551 DSC1 2637 DSLOOP 1563 unreferenced DSMP 1550 DSTR 1473 DVADR 1415 DVI 7407 DVOFLO 2627 ERPER 0675 ERPSB 2014 EX 4227 EX1 4007 EX1ST 4000 EX2 4032 EX2ST 4017 EX3 4065 EX3ST 4046 EX4 4130 EX4ST 4105 EXCMP 4237 EXEHLT 4324 EXER 4245 EXERP 1047 EXERR 1043 EXLOP 4321 EXLT 4242 F1TEL 2256 FADDR 1673 FBCTR 4173 FBRM 4154 FBRT 4174 FCTR 0160 FDOPR 3376 FINDIT 0220 unreferenced FLAG 0464 FMFCT 3042 FNRSLT 0637 FORWD 0260 FRCTR 0161 GETRDY 0210 GOOD 0646 HDD 1431 HDM 1232 HDSC0 2400 HLT 7402 INCRTN 0232 unreferenced INTAC 1016 INTSVC 1020 ION 6001 K0707 0172 K2 0165 K260 2142 K3 0166 K4 0167 K6 0170 K6000 0157 K6060 0173 K7 0114 K77 0465 K7700 0174 KSTART 0020 L 0125 L0 0473 L1 0476 L10 0531 L11 0534 L12 0537 L13 0542 L2 0501 L3 0504 L4 0507 L5 0512 L6 0515 L7 0520 LACRT 2756 LADR 2244 LATE 0523 LB 0141 LCNT 0162 LCTR 0163 LF 0145 LINK 1017 LNINE 0526 LR 0135 LSB 0131 LSR 7417 LT 0657 M40 0466 MB 0130 MBB 0144 MBD 1471 MBF 0150 unreferenced MBM 1270 MBR 0140 MBSB 0134 MCTR 1675 MDEXR 4200 MEHLT 1305 MERPT 1312 MERR 1250 MFRP 1325 MLT 1237 MOVE 1650 MOVEA 1663 MQ 0127 MQ0S 0152 MQ10M 0156 MQA 7501 MQB 0143 MQF 0147 unreferenced MQL 7421 MQR 0137 MQROT 2541 MQRTA 2562 MQSB 0133 MSG1 2000 MSG1A 1771 MSG2 2063 MSLOOP 1356 unreferenced MSMP 1347 MSTR 1272 MTADR 1215 MULT 1262 MUY 7405 MUYERR 0551 MUYSM 2463 MUYT 1200 MVR 2737 NMI 7411 unreferenced NXTST 0117 OFLO 0153 ONE 0547 OPEN 0000 OUT 1033 P1213 2422 PFLAG 1015 PFR 2215 PL 2200 PLB 2214 PLRGS 2230 PRB 2171 PRB1 0710 PRB2 0716 PRB3 0726 PRB4 0740 PRBX 4262 PRCTR 2172 PREG 2143 PRINT 0453 PROB 0643 PRT0 1726 PRT1 1732 PSPC 1736 PUNCH 1000 PXCTR 2255 R11Z 0155 RADR 2246 RANCON 0346 RANDEX 0345 RANDNO 0026 RANGEN 0315 RANSAV 0361 RANTAD 0332 RANTBL 0347 RANTND 0360 RDAD 4541 RDCTR 4540 RDSTP 4475 unreferenced RDSTPA 4515 RMAD 4460 RMCTR 4457 RMSTP 4414 unreferenced RMSTPA 4434 RTNNO 0116 SASC 4370 SATEMK 1647 SATET 1640 SC0 0561 SC1 0564 SC10 0617 SC11 0622 SC12 0625 SC13 0630 SC2 0567 SC3 0572 SC4 0575 SC5 0600 SC6 0603 SC7 0606 SCA 7441 SCAT 0654 SCATE 0611 SCCNT 0633 SCDVS 2751 SCL 7401 unreferenced SCNINE 0614 SCS 0151 SETCTR 0023 SHALT 0275 SHL 7413 unreferenced SHLT 0022 unreferenced SKIPMA 0471 SKIPPA 0472 SPCTR 1752 SR4MSK 1607 SR4T 1600 SR5MSK 1617 SR5T 1610 SR6MSK 1627 SR6T 1620 SR7MSK 1637 SR7T 1630 SRSET 0200 SRST 0024 unreferenced STCTR 0304 STF 2734 SWITCH 0455 TAB 5000 TABF 0154 TADDR 1674 TCTR 0164 TEMP 0112 TEMP1 0113 TEMQ 0462 TEMR 0463 TENPWR 2133 TEXR 0171 TSC1 0406 TSC2 0417 TST0 4400 TST1 4405 TST2 4461 TST3 4466 TST4 4600 TST5 4626 TST6 4657 TST7 4710 TSTP 4323 TYPAT 0430 TYPSP 0434 TYPSTG 0400 UADAC 0075 UADNAC 0076 UADSB 0077 UCOMP 0036 UCRLF 0061 UDIVSM 0055 UDIVT 0030 UERPSB 0067 UEXERP 0111 UF1TEL 0072 UFBRM 0106 UHDSC0 0071 UMDEXR 0107 UMOVE 0031 UMQROT 0100 UMQRTA 0101 UMSG1 0062 UMSG1A 0063 UMSG2 0064 UMUYSM 0054 UMUYT 0027 UMVR 0102 UNXINT 1041 UP1213 0073 UPFR 0074 UPL 0065 UPLRGS 0070 UPREG 0066 UPRT0 0056 UPRT1 0057 UPSPC 0060 UPUNCH 0110 USATET 0043 USR4T 0037 USR5T 0040 USR6T 0041 UST7T 0042 UTAB 0105 UZMQ11 0103 VALUE 2137 WASC 4367 XTYPST 0025 ZERO 0545 ZMQ11 2566