fc TAPE 1316 m1 CROWTHER
OCTAL
si10		|Set Mag Tape instruction No s
ca2		|No of Tape to be read is in Word 2
clh3
ads1		|s1 has si102=read
tds1
tdr1
ca3		|No of Tape to be written on is in Word 3
clh3
ads2		|s2 has si106=write
tds2
tdw1
tde1
s1,si102		|Read Test No.
cac1		|Set Program Parameter.-c1 has
td3r1		|location of free space in
tdw3		|core storage
ad1
tdr2
rd		|Read Test No
s2,si106		|Write Test No
rc		|Write Test No
r1,si102		|Read
rd		|read Number of Words in Record
cpe1		|Transfer to End if (-0)
td		|store Number of Words in Record
dm0
cpw1
r2,bi		|No-block in
w1,si106		|Write
ca0		|Set Count to zero
tst1
cac1		|Reset location of free space in Core-
tdw2		|Storage
w2,ca		|Select Data Word
rc		|Write Data Word
aow2		|Advance Write
aot1		|Advance Count
w3,su		|Is this Record done
cpw2		|No
spr1		|Yes-advance to Next Record
e1,si106
rc		|Write (-0) at end
si0		|STOP
t1,7
c1,c1
START AT 40
m