[2=CTR FOR # 0F EXPS
[3=PTR FOR TYP AND INDEX
[4,5=CTR FOR TYPING, DELAY AFTER SNS SW
[7=WRTCTR, I.E. CTR FOR READING BLKS FROM TAPE
#1S CLR
STC 7
STC 1X [LAST BLK TO BE READ IN
RDC u  [READ DIRECTORY  INTO MEMORY
2000
SET i 3 [PTR FOR TYPOUT
4777
SET i 5
-3
JMP 6C [CRLF
SET i 4
-2
#1D LDH i 3
ADA i 
260
OPR 14 [TYP
XSK i 4 [IS IT LAST INTEGER
JMP 1D [NO
XSK i 5 [YES....ARE WE DONE TYPING
JMP p+2 [NO
JMP 1E [YES
LDA i 
257
OPR 14 [TYP SLASH
JMP 1D-2
#1E JMP 6C
LDA i 3
COM
STC 2 [2=CTR FOR EXP XFERS
#2Z LDA i 3
ADA i
-400
XSK i 7
APO i [HAS # 0F BLKS BEEN CALC
JMP p-4 [NO
LDA [YES
7
STA i
#2B 0   [# OF BLKS NEEDED
COM
STC 7 [CTR FOR READING IN BLKS 
LDA 3
STC 2W [WRDCNT
SET i 4 [CTR, MEM BANK CHNGE
-5
LDA i
#1X 0  [TOTBLK
ADA i
#2K 2000
STC 2A
#2S LDA 
2A
ADA i
1001
STC 2A
RDC u
#2A 0
XSK i 7 [DONE READING IN EXP DATA
JMP 2R [NO
ADD 2B [YES, RESET TOTBLK
ADD 1X
STC 1X
SNS 0 [SNS SW 0 HAS TO BE UP TO START XFER
JMP p-1
SET i 4
-100
XSK i 5
JMP p-1
XSK i 4
JMP p-3
LDA i
2000+4S-1
OPR 13 [XFER TO G
JMP 4A
#2R XSK i 4 [DO WE CHNGE MEM BANKS
JMP 2S [NO
UMB 3
LDA 
2A
BCL i
4000
STC 2A
JMP 2S
8A=0000
8T=1000
8I=2000
8D=3000
8S=4000
8P=5000
0000
#4S 7300 [CLA CLL
8T+200+4Q [TAD DATA PTR
6414  [AC INTO LOC CTR
7200  [CLA
8T+200+2W  [TAD WRDCNT
6424  [AC INTO WRDCNT
6404  [INTERRUPT 160-G
6422  [SKIP ON OVRFLO
#4X 8P+200+4X-1   [JMP .-1
6421  [CLR OVRFLO FLAG
8P+200+400+4S-1 [YES, JMP I 4S-1
#4Q 3400
#2W 0   [WRDCNT
#4A XSK i 2 [LAST EXP
JMP 5A [NO
SNS i 0 [YES, SNS 0 DOWN TO XFER NEXT TAPE
JMP p-1
JMP 1S
#5A UMB 2
JMP 2Z
#6C LDA i [CRLF
215
OPR 14
LDA i
212
OPR 14
JMP 0