Directory of image this file is from
This file as a plain text file

[LAP6A
[ADD MANUSCRIPT AND LOAD BINARY
[BLOCK 324
[QUARTER 3
[CV WITH MS6A
$1400
JMP 8R [LOAD BINARY
STC 8K 
JMP 8D [NO FOR CF
[ADD MANUSCRIPT
JMP 3N+4
JMP 1K
JMP 8L
JMP 8E [MS BY BN
[NAME MATCH
#8C LDA i 10
BSE i
2000
STC 8A+1
LDA i 10
APO
JMP 8D [NO MS
JMP 8E+5
[BLOCK NUMBER REQUEST
#8E LDA
6E
BSE i
2000
STC 8A+1
#8U LDA
8A
SAE i
RDC 7E
JMP 8F-5
ADD 8N-3 [SAME UNIT, FIX i BIT
STC 8A
ADD 3S-2 [NOP
STC 8A+3
ADD 8S-1 [JMP 8K+3
STC 8F-1
JMP 8A-2 
LDA i 10
ADA i 10
AZE
JMP 8D
#8F LDH i 10
SHD i
7700
JMP 8J
STH i 2
SAE i
12
JMP 8H
[EOL
#8G JMP 3K
COM
ADD 3A+3
STC 3A+3
[CHECK Q2 EMPTY
#8H JMP 8A-7
JMP 3G
JMP 3H
JMP 1L
JMP 3P
LDA
3
SAE
2
JMP 8F
LDA
3A+3
AZE i
JMP p+6 [TOO MANY LINES
LDA
1G [MAX BLOCK USED
SAE i
6|7G-1 [LAST BLOCK?
JMP 8F [ALL OK
LDA i
-1
JMP 3K+2
ADD 3A+3
STC 3A+3
JMP 1K
[FINISHED ADD MS
#8J JMP 1T [TAPE NOT OK
JMP 3A
JMP 3L
JMP 8K
[COMMON SUBROUTINES
[READ INDEX
LDA
10
SAE i
5377
JMP 0
SET 1
0
#8A RDC
2|7G  [INDEX
IBZ
JMP p-1
SET i 10
4777
ADD 1P
ADD 8A+1
STC 8A+1
JMP 1
[NAME MATCH
#8B SET 1
0
SET i 12
-4
SET i 13
6E+1
LDA
10
BSE i
7
SAE i
5377
JMP p+3
XSK i 1
JMP 1
STC 10
LDA i 10
SAE i 13
JMP 8B+2
XSK i 12
JMP p-4
JMP 1 [NAME MATCH
[SUBROUTINE CONTROL
#8L SET 17
0
LDA
6E+6 [u
ADD 8A [RDC
STC 8A
LDH
6E+2
SHD i
7700
JMP 0 [NAME NOT REQUESTED
XSK i 17
LDA
6E+6
ROL 6 [UNIT TO Z
STC 8T
ADD 8A [RDC u
ADD 8N-3  [20
STC 8N [RDC i u
JMP 8A-2 [READ INDEX
LDA i 10
SAE i
5757
JMP 8D
JMP 8B
JMP 17 [NAME FOUND
JMP 8A-2
JMP 8B
JMP 17
[NO MS OR BINARY
[NO NAME MATCH
#8D CLR
SET i 1
340
SET i 12
6A+102  [N
DSC 12
DSC i 12
SET i 1
364
DSC i 12
DSC i 12
KST
JMP 8D+1
KBD
#8K RDC i 7E [RETURN
2|7D+2
JMP 2M+11
MTB 7E
0    [STOP TAPE
JMP 8D
[LOAD BINARY
#8R JMP 8L
JMP 8M [BIN IN WORKING AREA
LDA i 10 [NAME MATCH
LDA i 10
LDA i 10 [QN|BN
STC 8N+1
LDA i 10 [N BLKS
APO
JMP 8D
COM
JMP 8S
[BIN IN WORKING AREA
#8M RDC i 7E
2|7D+30
ADD 1010 [1ST BN
ADD 1012 [QN
ADA i
7D+40
STC 8N+1
ADD 1011 [-N BLKS
AZE i
JMP 8K+3 [NO BINARY
#8S STC 10
ADD 8N
ADD 1777
STC 1777 [MTB
ADD 8N+1 [QN|BN
ADD 8N+3 [1001
XSK i 10
JMP p-2
STC 8N+11 [LAST QN|BN
ADD 8N+1
BCL i
7000
ADD 8T
ROL 3
STC 8T [BN TO Z
[CLEAR MEMORY
#8P SET i 1
3777
CLR
STA i 1
XSK 1
JMP p-2
SET i 1
1
STA i 1 [LAST REGISTER CLEARED
SAE
p-2
JMP p-3
STC 1 [CLEAR 1
[READ BINARY
ADD 8N+1
[CHECK BIN QN
#8Q BCL i
777
SAE i
3000
JMP 8N
LDA
8N+1
STC 8Z+1
ADD 8N
BCL i
20  [CONSTANT
STC 1777 [RDC u
JMP 8N+2
#8N RDC i 7E
FIRST QN|BN
LDA i
1001
LAM 
p-4
LZE
JMP p+4 [Q7 READ
SAE i
LAST QN|BN+1
JMP 8Q
JMP 8V
$1757
[CLEAR Q3
#8V LDA i
#8T 7E|| [BN ROL 6
SCR 14  [TO Z
STC 0
ADD 1  [SAVE 1
STC 8Z+3
SET i 1
8Q-6
STA i 1 [LAST REGISTER CLEARED
SAE
p-2
JMP p-3
[FINISHED LOAD BIN
#8Z SET i
0     [BN
SET i 1
0     [RESET 1
-15  [MTB OR RDC
[MLP,1-22-69,
[ADDLO6A