[IOTAPE
[
[SUBROUTINES TO READ, WRITE TAPE
[FEATURES ENABLE, SUPER-GROUP OPERATION
[
[#8I IS INPUT FROM TAPE <READ>
[#8O IS OUTPUT TO TAPE <WRITE>
[
[
[
[TAPE IN
[ENTER AT 8I
[CALL: JMP 8I
[      QN|BN
[8Z: WRITE-READ ENABLE
[REQUIRES NUMBER IN FORMAT A|B u
[A: FIRST UMB
[B: SECOND UMB
[ENTER WITH # BLOCKS IN ACC
[
#8I COM
STC 8O-25 [-#BKS
LDA i
JMP 8O-21 [REREAD
STC 8O-16 [TROUBLE
ADD 0
JMP p+5 [SET UP
ADA i
i-1
JMP 8O-35 [LOOP
JMP 8Z-13 [EXIT
[
[UMB, u SET-UP
[
BCL i
JMP-ADD
STC p+1
<ADD QN|BN>
STA
8O-20 [QN|BN
STA
8O+13
BCL i
777
ROL 3
ADD 8K-5 [-10
STC 8O-23
ADD p-12
ADA i
JMP+1-ADD
STC 8Z-1 [RETURN
ADD 8Z
BCL i
777
ROL 3
ADA i
UMB
STC 8O-22 [UMB A
ADD 8Z
BCL i
7770
ADD p-5
STC 8O-13 [UMB B
ADD 8Z
BCL i
-u
JMP 0
[
[LOOP
[
ADD 8Z+1 [FORM TAPE COMMAND
STC p+13 [TP COM
ADD 0
STC p+31 [EXIT
ADD 8Z [ENABLE
AZE i
HLT [ILLEGAL ENTRY
SET i 10
<-NO. BLOCKS>
SET i 11
<-NO. BLOCKS TILL UMB>
<UMB A>
<RDE, WRI, CHK i u>
<QN|BN>
AZE
<TROUBLE>
XSK i 11
JMP p+5
<UMB B>
LDA i
-3|1
JMP p+3
LDA i
1|1
ADM
p-14
XSK i 10
JMP p-17
JMP <RETURN>
[
[
[TAPE OUTPUT
[ENTER AT 8O
[CALL: JMP 8O
[      QN|BN
[ENTRY PARAMETERS:
[SAME AS FOR 8I
[
#8O COM
STC 8O-25 [-#BKS
LDA i
NOP
STC 8O-16 [TROUBLE
ADD 0
JMP 8I+13 [SETUP
ADA i
i+3
JMP 8O-35 [LOOP
LDA i
<QN|BN>
STC 8O-20 [QN|BN
LDA i
JMP 8Z+2 [TROUBLE
STC 8O-16 [TROUBLE
ADD 8O-21 [TP COM
ADD 8K+1
JMP 8O-34 [LOOP+1
[
[EXIT
[
STC p+11
STC 8Z
ADD 8O-21
BCL i
-u
ADD 8Z+1
STC p+2
STC 8O-21
<MTB u>
<QN|BN>
<JMP RETURN>
#8Z <ENABLE>
MTB
[
[
[TROUBLE
LDA
80-21 [CHK i u
ADD 8K-3
STC p+3
ADD 8O-20
STC p+2
<WRC i u>
<QN|BN>
CLR
STC p-2
JMP 0
[END OF IOTAPE