
/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
$
