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

[LINCDMP1
[SCAN THE TAPE ON
[UNIT 1U AND COUNT
[THE BAD BLOCKS.
[PUT THE BAD BLOCK
[NUMBERS AT 1400
[
[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
1400-1
SET i 14
-1000
SET i 15
RCG
SET i 16
7300
LDA i
4|0
STC 1B
[
#1A SNS i 0
JMP 1C [ SKIP CHECK
RDE i 1U
#1B 4|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
#1I HLT [ # BAD BLKS
[
[ AFTER A GOOD OR BAD
[ FIRST PASS, RESET
[THE ERROR PTRS
[AND SEND ALL BLOCKS
[ TO THE TTY
LDA
12
AZE i
JMP 1L
COM
STC 12
SET i 13
1400-1
STA  i 13
XSK i 12
JMP p-2
#1L SET i 12
0
SET i 13
1400-1
[NOW DUMP TAPE IN
[ GROUPS OF 4 BLOCKS
SET i 14
-200
[128 GROUPS OF 4
#1D RDE i 1U
#1F 4|0
AZE
JMP 3A
LDA
1F
ADA i
1001
STC 1H
RDE i 1U
#1H
AZE
JMP 3B
LDA
1H
ADA i
1001
STC 1J
RDE i 1U
#1J
AZE
JMP 3C
LDA
1J
ADA i
1001
STC 1K
RDE 1U
#1K
AZE
JMP 3D
[ UPPER MEMORY IS FULL
SET i 13
4|3777
#1G LDH i 13
ROL 1
BSE i
1200
JMP 2S
LDA
13
AZE
JMP 1G
LDA i
4
ADM
1F
XSK i 14
JMP 1D
CHK 1U
0
[ CHECK FOR FUZZY
[ BLOCKS DURING
[ TAPE DUMP
LDA
12
AZE i
JMP 15 [RTN TO LAP
#3I HLT [EXAMINE A REG
[ AND 1400 TO REVIEW
[ BADLY DUMPED BLKS
JMP 15 [ RTN
JMP 15 [RTN TO LAP
[
[
[
[SEND ONE CHARACTER
#2S SET 17
0
STC 2T
SET i 11
-12 [10 BIT CODE
#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
[
[HANDLE ERROR BLKS
[RETRY 10 TIMES
#3A SET 17
0
LDA
1F
JMP 3E
#3B SET 17
0
LDA
1H
JMP 3E
#3C SET 17
0
LDA
1J
JMP 3E
#3D SET 17
0
LDA
1K
[
[
#3E SET i 11
-10
STA
3G
STC 3H
#3F RDE i 1U
#3G QN,BN BAD BLK
AZE i
JMP 17 [GOOD XIT
XSK i 11
JMP 3F [RETRY
[FAILED
[READ IT ANYWAY
RDE i 1U
#3H QN,BN
AZE i
JMP 17 [GOOD XIT
XSK i 12
NOP
LDA
3G
BCL i
7000
STA i 13
JMP 17 [BACK TO DUMP
[
[
$1400 [ERROR BLKS
#4X 0
0
0
0
0
0
0
0