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

[ERROR PROCESSOR
[LOADED INTO Q0 OF P1
[SEPP1
$1
#6A SET 1
0
XSK i 0
LDA
0
STC 6I
UMB 3W  [P0
LDA
6M+2000  [UNIT [SYSTEM FILE]
ADD p+16  [=RDC i
STA
p+14
ADD p+15  [CONSTRUCT MTB i,=3
STC p+14
SET i 15
2000+6R+20  [CFP-BLOCK
LDA 15  [CFP-BLOCK
ADA i
1|0  [QN|0  ERR BUF
STC p+5
LDA i 15  [CFP-WORD
AZE i
JMP 6B+6
RDC i
1|0  [1|BN
0003  [MTB i
0
JMP 6B+6
[
#6B 0  [RECORD TYPE
0  [LINE NUMBER
0  [INPUT PTR[0 ORIGIN]
0  [BLOCK-START OF LAST LINE
0  [WORD-START OF LAST LINE
0  [DIAGRAM PTR[0-ORIGIN]
[CONSTRUCT ERROR RECORD
LDA
2000+6R+23  [ERROR CODE
ADA i
-7731
AZE i
CLR
STC 6B  [RECORD TYPE DEFINED
SET i 16
2000+2L
LDA 16
STC 6B+1  [LINE # DEFINED
LDA
2013  [INPUT PTR
BCL i
3400
STC 6B+2  [INPUT PTR DEFINED
LDA i 16
STC 6B+3  [BLOCK-SLL-DEFINED
LDA i 16
BCL i
3400
STC 6B+4  [WORD-SLL-DEFINED
LDA
2012
ADA i
-1Q  [START OF DIAGRAMS
STC 6B+5  [DIAGRAM PTR DEFINED
[
ADD 6B  [TYPE
ROL 1
ADD p+2
STC p+1
JMP p+1  [DISPATCH JUMP
[E-0  DIAGRAM DEFINED ERROR
JMP 6E-20  [RESTORE STACKS
JMP 6F  [FORCE EOS
[E-1  UA
JMP 6E
JMP 6F
[E-2  UA
JMP 6E
JMP 6F
[E-3  UA
JMP 6E
JMP 6F
[E-4  UA
JMP 6E
JMP 6F
[E-5  DIAGRAM ERROR
JMP 6E
JMP 6F
[E-6  MORE THAN 3777 BASIC-L STATEMENTS
JMP 6G-4  [0->CSL #
JMP 6K  [RETURN TO 1B
[E-7  INTERNAL SIZE CONSTRAINT VIOLATION
JMP 6E  [RESET STACKS
JMP 6F  [EOS
[E-10  MULTIPLE LABEL DEF
NOP
JMP 6G+5  [RETURN TO 7F+12
[E-11  NO DIGIT AFTER E
JMP 6E-22
JMP 6F
[E-12  COMPILER LOGIC FAILURE
JMP 6E
JMP 6K+3  [TERMINATE COMPILE
[E-13  NOT FOUND LETTER
JMP 6E
JMP 6F
[E-14  EOF SOURCE CODE FILE
NOP
JMP 6K+3  [TERMINATE COMPILE
[E-15  EOF TARGET CODE FILE
JMP 6G  [DISABLE OUTPUT
JMP 6F-3
[E-16  MANUAL TERMINATION OF COMPILE
NOP
JMP 6K+3  [TERMINATE COMPILE
[E-17  UA
JMP 6E
JMP 6F
[
[
[$6E-22
SRO
6C+11
[$6E-20
LDA i
-5C+2+1Q  [DIAGRAM ADDRESS
ADD 6B+5  [DIAGRAM PTR
SET 17
0
AZE i
JMP p+4
SAE i
-3
JMP 6E-2
LDA i
1345
STA
8K+3+2000  [RESET FOR
[$6E-2
SET 0
17
[RESTORE STACKS
#6E LDA i 16
STA
2004  [ST4 RESET
LDA i
-4000
ADM
2013  [DECREMENT INPUT POINTER TO ACCOUNT FOR CASE WHERE CUR CHAR IS EOL
LDA i 16
STA
2010  [ST10  RESET
JMP 0
[
CLR
STA
2L+2000  [0->CSL
JMP 0
[DISABLE OUTPUT
#6G LDA i
JMP 0
STA
1P+1+2000
JMP 0
[DUPLICATE LABEL RESUME
LDA
2000+2I  [DUPLICATED LABEL
STC 6B+2
ADD 6C+11
ROR 3
STC 6C+11
LDA i
JMP 7F+12
JMP 6F+4  [DO NOT SET NOGO
[JMP 1 RETURN FROM 1P
LDA i
JMP 1
JMP 6F+2
[ARRANGE EOS
#6F LDA i
JMP 7B
STA
6R+24+2000  [SET NOGO,NON ZERO
[
STA 1
[OUTPUT ERROR RECORD
SET i 2
6B-1
LDA i
377  [BUF START -1
ADA
6R+21+2000  [CFP[WORD]
STC 3
LDA
6M+2000  [UNIT [SYSTEM FILE]
ADD 6H+4  [=WRC i
STC 6H+4
ADD 6B-4  [QN|BN ERR BUF
STC 6H+5
[
#6C LDA i 2
STA i 3  [OUTPUT ERROR WORD
LDA i
0777
SAE  [TEST FOR EOB
3
APO  [SKIP
JMP 6H  [OUTPUT ERR FILE BLOCK
SRO i
0037
JMP 6C
LDA i
7777
STA i 3  [OUTPUT FILE TERMINATOR
CLR
STC 6H+7
ADD 3
BCL i
7400
STA 15  [NEW CFP-WORD
JMP 6H
[
LDA
6H+5
BCL i
7000
STA
6R+20+2000  [NEW CFP-BLOCK
LDA
2000+6R+3  [FB1[SYSTEM FILE]
ADA i
1|6S+4+1
STC p+4
ADD 6B-5
STC p+1
RDC i
1|BN
UMB 3X  [P1
LMB 3W  [P0
#6I RETURN
[
[OUTPUT ERR FILE BLOCK
#6H LDA
0
STA i 
0
WRC i
QN|BN
LDA i
1
ADM
p-3
BCO i
6777
ADA
2000+6R+3  [FB1[SYSTEM FILE]
ADA i
6U+10+1  [EOF RBN
SET i 3
0377
AZE
JMP 6H+3
LDA 15  [CFP-WORD
BSE i
400
STC 5
LDA i
7776
STA 5
ADM
6H+5
STC p+4
ADD 6H+4
STC p+1
WRC i
QN|BN
LDA i
JMP 2B
STA 1
JMP 6C+26
[
#6K LDA i
JMP 1B  [NEW SOURCE LINE
JMP 6F+2
[
LDA i
JMP 2B  [TERMINATE
JMP 6F+2
[
LDA i
1345
STA
8K+3+2000  [RE-INIT FOR VAR
JMP 0
[END OF ERROR PROCESSOR MANUSCRIPT
[SYNTAX ERROR PROCESSOR
[SEPP1