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

[TRANSITION PROGRAM
[PAGE 0
$0
0
  [1
  [2
  [3
  [4
  [5
0 [6  ERROR FILE WORK REG
53  [7  PART 1 CONSTANT
2  [10  PART 1 CONSTANT
0  [11  WORK
7776  [12  T11-T12 SWITCH
0  [13  CURRENT SYMBOL
0  [14  LINKAGE
0  [15  WORK REG
0  [16  WORK REG
0  [17  WORK REG
[
$20
[
[FIND UNDEFINED LABELS AND VARS
UMB 9Y  [P2
SET i 16
2600-1  [BIT TABLE ORIGIN
[
SET i 17
2600+32+32-1  [REFERENCED TABLE ORIGIN
[
SET i 13
0024  [0A=LABEL 1
#2B SET i 15
-32  [LENGTH 1 BIT-TABLE
[
LDA i 17  [REFERENCED
BCL i 16  [DEFINED
AZE
JMP 2C  [ERRORS
XSK i 13  [NEXT SYMBOL GROUP
XSK i 15  [COUNT TABLE LEN
JMP p-6  [GET NEXT WORD
XSK i 12  [T12 SWITCH
JMP p+6  [FINISHED T12
LDA i
1
ADM
2E
JMP 2B-2  [PROC VARIABLES
[
SRO i
0002
JMP 2F  [DONE
LDA i 
22  [ERROR OP CODE
STC 2E
LDA i
LDA i 16
STC 2B+2
LDA i
BCL i 17
STC 2B+3
JMP 2B-7
[
#2C SET i 11
-14  [# BITS TO EXAMINE
JMP p+2
[
ROL 1  [NEXT SYMBOL
STA i
0  [SAVE ERROR RECORD
APO
JMP 2D  [ERROR
XSK i 11
JMP 2C+3  [NEXT
JMP 2B+6  [CONTINUE TABLE SCAN
[NOTE: B11 IS FIRST SYMBOL IN A WORD
[
#2D LDA i
14
ADD 11  [CALC DIGIT PART
APO
CLR  [7777=0
ROL 6
ADD 13  [LETTER PART
XSK 12  [TEST FOR LABEL
JMP p+10  [JMP=>LABEL
ROR 6
SHD i
1200  [CDOED BLANK
ADD 10  [=2
SHD i
1300  [CODED [
ADD 7  [=53
[
STC p+5
LDA i
#2E 20  [ERROR CODE
JMP 3A  [OUTPUT WD TO ERR FILE
LDA i
0
JMP 3A  [OUTPUT SYMBOL
LDA
2C+5
JMP 2C+10  [RESUME
#2F LDA i
NOP
SAE
3A+4
JMP p+12  [NO BLOCK IN CORE
LDA i
7777
JMP 3A  [OUTPUT FILE TERMINATOR
SET i 14
JMP p+5
LDA i
JMP 14  [ALTER OUTPUT ROUTINE FOR FINAL BLOCK
STC 3A+43
JMP 3A+23  [OUTPUT FINAL BLOCK
[BOOTSTRAP
LDA i
1|6V+1  [RBN TRAN PROG+1+QN|0
[SYSTEM FILE STRUCTURE
6R=1750
6S=0  [RBN COMPILER
6T=14  [RBN ERROR PROC
6U=24  [RBN ERROR FILE
6V=34  [TRANSITION PROGRAM
6W=50  [RBN RUN PROCESSOR
6X=62  [RBN ERROR PROC
6Y=72  [RBN SYSTEM FUNCTIONS
[
ADD 6R+3  [FB1[SYSTEM FILE]
STC p+12  [CFP FOR INPUT
ADD 6R+5  [U|FB2[SYSTEM FILE]
BCL i
2777  [ISOLATE UNIT
ROR 6  [MOVE TO u POSITION
ADD p+4  [=RDC i
STC p+3
UMB 9X  [P1
[PAGE DEFINITIONS
9W=0  [PAGE 0
9X=1  [PAGE 1
9Y=2  [PAGE 2
9Z=3  [PAGE 3
[
JMP 2A  [INDEX FOR QN=0
RDC i
0
LDA i
1001
ADM
p-4
#2A SRO i
2735
JMP 2A-6
SRO i
7776
JMP p+6
LDA i
2000
ADM
2A-5
JMP 2A-6
[
SRO i
0006
JMP p+7
UMB 9Y  [P2
LDA i
-4000
ADM
2A-5
JMP 2A-6
[
SRO i
0002
JMP p+7
LDA i
-4000
ADM
2A-5
UMB 9Z  [P3
JMP 2A-6
[
LDA
2A-6  [=RDC i
BCO i
i+3  [CONSTRUCT MTB
STC p+1
MTB
0  [STOP TAPE
[TRANSITION PROGRAM LOADED
LMB 9X  [P1
JMP 20  [ERROR FILE PRINT OR DISPLAY
[
JMP 3C-4
[
[
[ERROR FILE OUTPUT
[ACC=OUTPUT WORD
#3A SET 14
0  [LINK
STA i 
0
JMP 3B  [NO BLOCK IN CORE
LDA i 
3400
ADD 6R+21  [CFP[WORD]
STC 6
ADD 3A+3  [OUTPUT WD
UMB 9Y  [P2
STA 6
LDA i
1
ADM
6R+21  [WORD COUNTER
SCR 10  [=8
AZE i
JMP 14  [RETURN
LDA i
7|0  [QN|0
ADD 6R+20  [CFP[BLOCK]
STC p+14
ADD 6R+5  [U|FB2[FB2]
BCL i
6777
ROR 6
ADD p+6  [=WRC
STC p+5
[
LDA i
JMP p+2
STC p-10
[
UMB 9Y  [P2
WRC
0  [QN|BN
[
LDA i
1
ADM 6R+20
COM
ADA i
6V  [TRAN PROG
ADD 6R+3  [FB1[FD2]
AZE
APO
JMP 2F+3  [EOF
[
[
[
CLR
STC 6R+21  [WORD
JMP 14  [EXIT
#3B LDA i
NOP
STC 3A+4
ADD 6R+21  [WORD[CFP]
AZE i
JMP 0  [RETURN-NO BLOCK NEEDED
LDA 
6R+20  [BLOCK
ADD p+13  [=7|0
STC p+12  [SET 7|BN
LDA
6R+5  [U|FB2[FD2]
BCL i
6777
ROR 6
ADD p+3  [=RDC
STC p+2
UMB 9Y  [P2
RDC
7|0
[
JMP 0  [RETURN VIA 0
[
[
[
LDA
6R+24  [NOGO SWITCH
AZE i  [NOGO=>NOT ZERO ACC
JMP 3C+7
#3C LDA i
RCG
STC 15
LDA i
7300
STC 16
JMP 15  [READ IN LAP6
[
LSW
[
ROL 1
APO
JMP 3C  [B10=1=>COMPILE ONLY
ROL 1
APO i  [B9=1=>COMPILE ONLY IF ANY SYNTAX WARNINGS
JMP 3D+1
LDA
6R+21  [CFP WORD[ERROR FILE]
AZE
JMP 3C  [NOGO
LDA i
6U
ADD 6R+3  [FB1[SYSTEM FILE]
COM
ADD 6R+20  [CFP-BLOCK[ERROR FILE]
AZE
#3D JMP 3C  [NOGO
[
LMB 9Z  [P3
JMP 6A+1
[
[
[
6A=20  [PAGE 3
[
[
[
[
[END PAGE 0
[
[
[11-24-69