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

[TRANSITION PROGRAM
[PAGE 3
$0
  0  [0
  0  [1
  0  [2
  0  [3
  0  [4
6000  [5  SYMTAB PTR
  0  [6
  0  [7
  0  [10
  0  [11
  0  [12
0  [13  WORK
0  [14  LINKAGE
0  [15  WORK
0  [16  WORK
0  [17  WORK
[
[
$20
#6A JMP 6B  [READ IN P3 TRAN PROG
[
[
[BUILD SOURCE CODE JMP TABLE
CLR
COM
SET i 17
-1000  [LEN JMP TABLE
SET i 16
3777  [2000-1 IN LINC ADDR
UMB 9Y  [P2
[
#6E STA i 16  [INIT TABLE TO 77777...
XSK i 17
JMP 6E
[
JMP 7A  [INPUT SYMTAB RECORD
SET 13
5  [SET UP WORK PTR
LDA 13  [SYMBOL
SHD i
7700  [EOF MARKER
JMP 6F  [EOF EXIT
JMP 6D  [DETERMINE REC TYPE
JMP 6E+3  [NOT LABEL
[LABEL RETURN
LDA i 13  [INDEX
ROR 1  [REL TABLE ADDR
ADA i
2000  [TABLE BASE ADDR
STC 15
LDA i 13  [BLOCK
UMB 9W  [P0
ADA
6R+2000+6  [FB1[TARGET FILE]
ROR 3
UMB 9Y  [P2
STH  15  [1ST 6 BITS
BCL i
0777
ADA i 13  [WORD
ROR 6
STH i 15
ROR 6
STH i 15
JMP 6E+3
[
[END OF TABLE
[LOAD RUN PROCESSOR
#6F LDA i
4|6W  [RBN RUN PROCESSOR
UMB 9W  [P0
ADA
6R+2000+3  [FB1[SYSTEM ]
STC p+13  [4|BN
LDA
6R+2000+5  [U|FB2[SYSTEM FILE ]
BCL i
6777
ROR 6
ADD p+4  [=RDC i
STC p+3
JMP 1A  [SAVE SYSTEM CONSTANTS
[
#6G UMB 9W  [P0
RDC i
0  [QN|BN
[
LDA i
1001
ADM
6G+2
SRO i
0267
JMP 6G+1
SRO i
7776
JMP 6H
JMP 1B  [RESTORE SYSTEM CONSTANTS
UMB 9X  [P1
LDA i 
-4000
ADM
6G+2  [QN=4
JMP 6G+1
[
#6H SRO i
0002
JMP 6I
UMB 9Y  [P2
LDA i
-1000
ADM
6G+2  [QN=6
JMP 6G+1
[INIT PC
#6I UMB 9W  [P0
LDA
6R+2000+6  [FB1[TARGET FILE]
STA
6R+2000+20  [BLOCK [PC1]
CLR
STA
6R+2000+21  [WORD [PC2]
LMB 9W  [P0
JMP 1  [RETURN
[BEGIN RUN PROCESSOR
[
[
[INPUT ROUTINE FOR SYMBOL TABLE
[XR5:  INIT TO 6000
#7A LDA i
4  [LEN 1 ENTRY
ADM 
5
ROL 1
APO i
JMP 0  [RETURN
SET 14
0  [LINK
SAE i
4011
JMP p+21  [NOT FIRST RECORD
LDA i
-12
UMB 9W  [P0
ADA
6R+2000+10  [U|FB2[FD3]
BCL i
7000
STC p+14
[
LDA
6R+2000+10  [U|FB2[FD3]
BCL i
6777
ROR 6
ADA i
RDC i
STC p+10
[
LDA i
1
ADM i
0  [CFP
ADA i
3|0
STC p+2
RDC i
0  [QN|BN
SET i 5
1400
JMP 14  [RETURN
[
[ACC=SYMBOL
[[0]=>NOT LABEL
[[0]+1=>LABEL
#6D STA
p+7
ROR 6
ADA i
-2300
APO i
XSK i 0  [LABEL
LDA i
0  [SYMBOL
JMP 0  [RETURN VIA 0
[
[
#6B SET 14
0  [LINK
LDA i
1|6V+13
UMB 9W  [P0
ADA
6R+2000+3  [FB1[SYSTEM FILE]
STC p+11  [CFP FOR INPUT
LDA
6R+2000+5  [U|FB2[SYSTEM FILE]
BCL i
6777
ROR 6
ADD p+2  [=RDC
STC p+1
#6C RDC
0  [QN|BN
JMP 14  [RETURN
[
[
[SAVE SYSTEM CONSTANTS
#1A SET i 16
6R+2000-1  [SYSTEM CONSTANTS
[
SET i 17
1C-1  [SAVE AREA
[
SET 14
0  [LINK
[
SET i 15
-30  [LENGTH OF AREA
UMB 9W  [P0
LDA i 16
STA i 17
XSK i 15
JMP p-3
JMP 14
[
[RESTORE SYSTEM CONSTANTS
#1B SET 14
0  [LINK
SET i 16
1C-1  [SAVE AREA
SET i 17
6R+2000-1
JMP 1A+6
[SYSTEM CONSTANTS SAVE AREA
#1C 0
0
0
0
0
0
0
0
[1C+10
0
0
0
0
0
0
0
0
[1C+20
0
0
0
0
0
0
0
0
[
[
[SYSTEM FILE STRUCTURE
6R=1750  [SYSTEM CONSTANT AREA
6S=0  [RBN COMPILER
6T=14  [RBN ERROR PROC
6U=24  [RBN ERROR FILE
6V=34  [RBN TRANSITION PROG
6W=50  [RBN RUN PROCESSOR
6X=62  [RBN ERROR PROC
6Y=72  [RBN SYSTEM FUNCTIONS
[
[PAGE DEFINITIONS
9W=0  [PAGE 0
9X=1  [PAGE 1
9Y=2  [PAGE 2
9Z=3  [PAGE 3
[
[
[  END OF PAGE 3
[11-24-69