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

[LINCDUMP
[SCAN THE TAPE ON
[UNIT 1U AND COUNT
[THE BAD BLOCKS.
[PUT THE BAD BLOCK
[NUMBERS AT 2000
[
[SENSE SWITCH 0 WILL
[TERMINATE THE SCAN
[
[
1U=u
$1
JMP 20
$20
LDA i
4|0
STC 1F
SET i 12
0  [BAD COUNTER
SET i 13
2000
SET i 14
-1000
SET i 15
RCG
SET i 16
7300
LDA i
3|0
STC 1B
[
#1A SNS i 0
JMP 1C [ SKIP CHECK
RDE i 1U
#1B 3|0
AZE
JMP 1E
LDA i 
1
ADM
1B
XSK i 14
JMP 1A
CHK 1U
0 [REWIND
JMP 1C [DUMP 
#1E LDA
1B
BCL i
7000
STA i 13
XSK i 12
JMP 0 [RTN
HLT [CANT HAPPEN
#1C LDA [BAD CNT
12
AZE
HLT [BAD BLKS
SET i 14
-200
[128 GROUPS OF 4
#1D RDE i 1U
#1F 4|0
AZE
HLT [ERROR
LDA
1F
ADA i
1001
STC 1H
RDE i 1U
#1H
AZE
HLT
LDA
1H
ADA i
1001
STC 1J
RDE i 1U
#1J
AZE
HLT
LDA
1J
ADA i
1001
STC 1K
RDE 1U
#1K
AZE
HLT
[ UPPER MEMORY IS FULL
SET i 13
4|3777
#1G LDH i 13
ROL 1
BSE i
1600
JMP 2S
LDA
13
AZE
JMP 1G
LDA i
4
ADM
1F
XSK i 14
JMP 1D
JMP 15 [RTN TO LAP
[
[
[
[SEND ONE CHARACTER
#2S SET 17
0
STC 2T
SET i 11
-10
#2A RTA [PRESERVE R
#2B BCL i
#2C 1
SRO i
#2T TT CODE
ADD 2C [ 1
ATR [SEND
NOP
NOP
XSK i 11
JMP 2B
JMP 17