1 MMLF=6754 2 MMMF=6756 3 MMMM=6757 4 MMSF=6761 5 MMML=6766 6 MMSC=6771 7 MMCF=6772 8 MMRS=6774 9 10 /DECTAPE ROUTINE TO TRANSFER ALL OF ONE 11 /REEL (TRANSPORT 1) TO ANOTHER (TRANSPORT 2) 12 /ON PARITY ERROR PROGRAM WILL HALT WITH 0040 IN THE AC 13 /ONLY THE TOP PAGE OF MEMORY IS PRESERVED 14 15 *7400 16 007400 7200 CLA 17 007401 1363 TAD M31 18 007402 3376 DCA CNTR 19 007403 1372 TAD ONE 20 007404 3371 DCA UNIT 21 007405 4214 JMS SETUP 22 007406 1363 TAD M31 23 007407 3376 DCA CNTR 24 007410 1373 TAD TWO 25 007411 3371 DCA UNIT 26 007412 4214 JMS SETUP 27 007413 5240 JMP A 28 007414 0000 SETUP, 0 29 007415 1371 TAD UNIT 30 007416 1361 TAD SRCH 31 007417 6757 MMMM 32 007420 1362 TAD ADR1 33 007421 6766 MMML 34 007422 6772 CYCL, MMCF 35 007423 6761 MMSF 36 007424 5223 JMP .-1 37 007425 2376 ISZ CNTR 38 007426 5222 JMP CYCL 39 007427 1276 TAD RWND1 40 007430 6756 MMMF 41 007431 6772 MMCF 42 007432 6771 MMSC 43 007433 5232 JMP .-1 44 007434 6772 MMCF 45 007435 6761 MMSF 46 007436 5235 JMP .-1 47 007437 5614 JMP I SETUP 48 49 *7440 50 007440 1274 A,TAD M48 51 007441 3300 DCA YTR 52 007442 7040 CMA 53 007443 3374 DCA TEST 54 007444 1372 ST, TAD ONE 55 007445 3371 DCA UNIT 56 007446 1275 TAD REDE 57 007447 3321 DCA HERE 58 007450 4303 JMS MOCO 59 007451 1373 TAD TWO 60 007452 3371 DCA UNIT 61 007453 4303 JMS MOCO 62 007454 1370 TAD ADVNCE 63 007455 1374 TAD TEST 64 007456 3374 DCA TEST 65 007457 2300 ISZ YTR 66 007460 5244 JMP ST 67 007461 1277 TAD RWND2 68 007462 6757 MMMM 69 007463 6772 MMCF 70 007464 6761 MMSF 71 007465 5264 JMP .-1 72 007466 1276 TAD RWND1 73 007467 6757 MMMM 74 007470 6772 MMCF 75 007471 6771 MMSC 76 007472 5271 JMP .-1 77 007473 7402 HLT 78 007474 7720 M48, 0-60 79 007475 1364 REDE, TAD READ 80 007476 0130 RWND1, 0130 81 007477 0230 RWND2, 0230 82 007500 0000 YTR, 0 83 007501 0000 TALY, 0 84 007502 0040 FORTY, 40 85 007503 0000 MOCO, 0 86 007504 6772 MMCF 87 007505 1363 TAD M31 88 007506 3301 DCA TALY 89 007507 3367 DCA MAC 90 007510 1362 TAD ADR1 91 007511 6766 MMML 92 007512 1371 TAD UNIT 93 007513 1361 TAD SRCH 94 007514 6757 MMMM 95 007515 1367 HUNT, TAD MAC 96 007516 1374 TAD TEST 97 007517 7640 SZA CLA 98 007520 5315 JMP HUNT 99 007521 7000 HERE, NOP 100 007522 6754 MMLF 101 007523 1366 TAD PDP5 102 007524 6766 MMML 103 007525 6761 DO,MMSF 104 007526 5325 JMP .-1 105 007527 6771 MMSC 106 007530 5335 JMP TAG 107 007531 6774 MMRS 108 007532 0302 AND FORTY 109 007533 7440 SZA 110 007534 7402 HLT 111 007535 6772 TAG, MMCF 112 007536 2301 ISZ TALY 113 007537 5325 JMP DO 114 007540 1276 TAD RWND1 115 007541 6756 MMMF 116 007542 6761 MMSF 117 007543 5342 JMP .-1 118 007544 2321 ISZ HERE 119 007545 7200 CLA 120 007546 1377 TAD WAIT 121 007547 3376 DCA CNTR 122 007550 2301 ISZ TALY 123 007551 5350 JMP .-1 124 007552 2376 ISZ CNTR 125 007553 5350 JMP .-3 126 007554 1375 TAD STOP 127 007555 6756 MMMF 128 007556 6761 MMSF 129 007557 5356 JMP .-1 130 007560 5703 JMP I MOCO 131 007561 0021 SRCH, 0021 132 007562 7567 ADR1, MAC 133 007563 7741 M31, 0-37 134 007564 0122 READ, 0122 135 007565 0224 WRITE, 0224 136 007566 0001 PDP5, 0001 137 007567 0000 MAC, 0 138 007570 7742 ADVNCE, 0-36 139 007571 0000 UNIT, 0 140 007572 0100 ONE, 0100 141 007573 0200 TWO, 0200 142 007574 0000 TEST, 0 143 007575 0010 STOP, 0010 144 007576 0000 CNTR, 0 145 007577 7775 WAIT, 0-3 146 $