+$/
[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 .+5 [SET UP
ADA I
I-1
JMP 8O-35 [LOOP
JMP 8Z-13 [EXIT
[
[UMB, U SET-UP
[
BCL I
JMP-ADD
STC .+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 .-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 .-5
STC 8O-13 [UMB B
ADD 8Z
BCL I
-U
JMP 0
[
[LOOP
[
ADD 8Z+1 [FORM TAPE COMMAND
STC .+13 [TP COM
ADD 0
STC .+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 .+5
<UMB B>
LDA I
-3\1
JMP .+3
LDA I
1\1
ADM
.-14
XSK I 10
JMP .-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 .+11
STC 8Z
ADD 8O-21
BCL I
-U
ADD 8Z+1
STC .+2
STC 8O-21
<MTB U>
<QN\BN>
<JMP RETURN>
#8Z <ENABLE>
MTB
[
[
[TROUBLE
LDA
80-21 [CHK I U
ADD 8K-3
STC .+3
ADD 8O-20
STC .+2
<WRC I U>
<QN\BN>
CLR
STC .-2
JMP 0
[END OF IOTAPE