*20
/
/
/L8SIM0
/LINC8 SIMULATOR
/FOR SEGMENT 0
/SEE SECT 6.4 OF DOCUMENT
/D.LANGBEIN
/DEC
/REVISED 8 AUGUST 1969
KRSA=6034
KRBA=6036
TSFA=6041
TLSA=6046
RMFA=6244
OPR=500
KBD=515
/
SEGMNT 0
*20
JMP INIT
LDF 3
LIF 2
DJR
JMP 20
RST400, JMP INIT
LDF 3
LIF 2
DJR
HLT
JMP 400
GUIDE,	JMP	INIT
LDF 2
RDC
7400
LDF 3
LIF 2
JMP 1400
*130
ERR,HLT
JMP RET
*134
PC,0
M70,	70
ONE,	1
*141
STC AC
ROL I 1
STC LC
QAC
ROL 1
QLZ
ADD ONE
STC Q
FLO
STC OVL
SET 17
0
PDP
PMODE
FETCH,RIB
AND M70
TAD CDFX
DCA .+1
7402
STA
TAD 140
DCA PC
TAD I PC
CDFX, CDF
LINC
LMODE
SAE I
KBD
SKP
JMP DOKBD
SAE I
KBD I
SKP
JMP DOKBD
SAE I
OPR I 14
SKP
JMP OP14
SAE I
OPR 14
OTHERS, JMP ERR
OP14, LDA
AC
IOB
TLSA
IOB
TSFA
JMP .-2
RET, LDA I
OVL,	0
AZE
ADD OVN
LDA I
LC,	0
ROR I 1
SET 0
	17
LDA I
Q,	0
ROR 14
LDA
140
BSE I
JMP
STC RTJ
ADA I
AC,	0
DJR
IOB
RMFA
RTJ, HLT
OVN,	7777
DOKBD, ROR I 5
LDA I
UPC, 0
AZE
JMP LOO
LP, KST I
JMP GRC
LZE
JMP LP
JMP LOO
GRC,	CLR
IOB
KRSA
ADA I
-175
ROR 1
BCL I
3700
ADA I
TAB
STC .+2
LDH
0
SHD I
7600
JMP RETX
ADA I
-55
APO
JMP LOW
ADA I
11
APO
CLR
STC UPC
LDA I
23
STC AC
JMP RET
LOW, ADA I
55
APO
CLR
LOO, STC AC
STC UPC
IOB
KRBA
LOO1, JMP PRINT
SAE I
215
JMP RET
LDA I
212
JMP PRINT
JMP RET
RETX, LDA I
336
JMP PRINT
IOB
KRBA
JMP PRINT
COM
ROL I 1
JMP LP
PRINT,	PDP
PMODE
TLS
TSF
JMP .-1
LINC
LMODE
JMP 0
INIT,	CLR
STC UPC
AXO
SFA
BSE I
1000
ESF
ENDX, JMP 0
*400
JMP RST400
TAB, 2323
1376
7676
7676
7676
7676
7656
7676
1276
7676
7676
7676
7676
7676
7676
7676
2376
7614
7676
2265
6215
1676
7676
2063
1764
2100
0102
0304
0506
0710
1176
7676
6176
7676
2425
2627
3031
3233
3435
3637
4041
4243
4445
4647
5051
5253
5455
6621
7676
TABE, 7676
/END OF L8SIM0
/
/
$T
SAE I
215
JMP RET
LDA I
212
JMP PRINT
JMP RET
RETX, LDA I
336
JMP PRINT
IOB
KRBA
JMP PRINT
COM
ROL I 1
JMP LP
PRINT,	PDP
PMODE
TLS
TSF
JMP .-1
LINC
LMODE
JMP 0
INIT,	CLR
STC UPC
AXO
SFA
BSE I
1000
ESF
ENDX, JMP 0
*400
JMP RST400
TAB, 2323
1376
7676
7676
7676
7676
7656
7676
1276
7676
7676
7676
7676
7676
7676
7676
2376
7614
7676
2265
6215
1676
7676
2063
1764
2100
0102
0304
0506
0710
1176
767