MMLF=6754 MMMF=6756 MMMM=6757 MMSF=6761 MMML=6766 MMSC=6771 MMCF=6772 MMRS=6774 /DECTAPE ROUTINE TO TRANSFER ALL OF ONE /REEL (TRANSPORT 1) TO ANOTHER (TRANSPORT 2) /ON PARITY ERROR PROGRAM WILL HALT WITH 0040 IN THE AC /ONLY THE TOP PAGE OF MEMORY IS PRESERVED *7400 CLA TAD M31 DCA CNTR TAD ONE DCA UNIT JMS SETUP TAD M31 DCA CNTR TAD TWO DCA UNIT JMS SETUP JMP A SETUP, 0 TAD UNIT TAD SRCH MMMM TAD ADR1 MMML CYCL, MMCF MMSF JMP .-1 ISZ CNTR JMP CYCL TAD RWND1 MMMF MMCF MMSC JMP .-1 MMCF MMSF JMP .-1 JMP I SETUP *7440 A,TAD M48 DCA YTR CMA DCA TEST ST, TAD ONE DCA UNIT TAD REDE DCA HERE JMS MOCO TAD TWO DCA UNIT JMS MOCO TAD ADVNCE TAD TEST DCA TEST ISZ YTR JMP ST TAD RWND2 MMMM MMCF MMSF JMP .-1 TAD RWND1 MMMM MMCF MMSC JMP .-1 HLT M48, 0-60 REDE, TAD READ RWND1, 0130 RWND2, 0230 YTR, 0 TALY, 0 FORTY, 40 MOCO, 0 MMCF TAD M31 DCA TALY DCA MAC TAD ADR1 MMML TAD UNIT TAD SRCH MMMM HUNT, TAD MAC TAD TEST SZA CLA JMP HUNT HERE, NOP MMLF TAD PDP5 MMML DO,MMSF JMP .-1 MMSC JMP TAG MMRS AND FORTY SZA HLT TAG, MMCF ISZ TALY JMP DO TAD RWND1 MMMF MMSF JMP .-1 ISZ HERE CLA TAD WAIT DCA CNTR ISZ TALY JMP .-1 ISZ CNTR JMP .-3 TAD STOP MMMF MMSF JMP .-1 JMP I MOCO SRCH, 0021 ADR1, MAC M31, 0-37 READ, 0122 WRITE, 0224 PDP5, 0001 MAC, 0 ADVNCE, 0-36 UNIT, 0 ONE, 0100 TWO, 0200 TEST, 0 STOP, 0010 CNTR, 0 WAIT, 0-3 $