
/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 MOCO
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 TEST
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
ADVNCE, 0-36
UNIT, 0
ONE, 0100
TWO, 0200
TEST, 0
STOP, 0010
CNTR, 0
WAIT, 0-3
$
