Directory of image this file is from
This file as a plain text file
[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