*20
/
/COMPAR
/BY S. DAVISSON
/FROM LINC8 LIBRARY
/FOR PDP12
	*20
COM1,	JMP COM2	/SET TRAP
COM3,	JMP 1000	/TO Q+A
	2642
	4043
	2445
	3012
	2537
	4226
	3614
Y1,	 7613
	1313
	7614
	4241
	1450
	4134
	4714
	7613
	7612
	4742
	1425
	3742
	2636
	1476
Y2,	 1313
	1376
	1442
	4114
	5041
	3447
	1476
	1376
	1231
	4245
	1476
	1313
Y7,	 1376
	1425
	3742
	2636
	4677
	LDH 
	Y1+7+4000
	ROL  3
	ADA I 
	RDC 
	STC  Y3
	SET I  17
	Y1
	SET I  16
	-3
	JMP  P1
	ADA I 
	1000
	STC  Y3+1
	LDH 
	Y2+7
	ROL  3
	ADA I 
	RDC 
	STC  Y3+2
	SET I  17
	Y2-1+4000
	SET I  16
	-3
	JMP  P1
	ADA I 
	3000
	STC  Y3+3
	SET I  17
	4000+Y7-2
	SET I  16
	-3
	JMP  P1
	AZE I 
	JMP COM5
	COM 
	STC  3
Y3,	 RDC 
	1\0
	RDC 
	3\0
	SET I  1
	377
	SET I  2
	1377
Y4,	 LDA I  1
	SAE I  2
	JMP  Y5
	XSK  2
	JMP  Y4
	XSK I  3
	JMP  Y6
	JMP  1000
	2437
	3714
	1442
	3677
COM5,	SNS I 0
	JMP  20
SET I 16	/RESTART DIAL
701
JMP COM4
Y6,	 LDA I 
	1
	ADD  Y3+1
	STC  Y3+1
	ADD  .-3
	ADD  Y3+3
	STC  Y3+3
	JMP  Y3
Y5,	 LDA I 
	-1400
	ADD  2
	AZE I 
	CLR 
	SET I  17
	Z1-1+4000
	SET I  16
	-4
	JMP  P2
	LDA 
	Y3+1
	BCL I 
	7000
	ROL  3
	SET I  17
	Z1+2+4000
	SET I  16
	-3
	JMP  P2
	LDH 
	4000+7+Y1
	JMP  P4
	LDA  1
	SET I  17
	Z1+5
	SET I  16
	-4
	JMP  P2
	LDA 
	Y3+3
	BCL I 
	7000
	ROL  3
	SET I  17
	Z2-1+4000
	SET I  16
	-3
	JMP  P2
	LDH 
	Y2+7
	JMP  P4
	LDA  2
	SET I  17
	Z2+2
	SET I  16
	-4
	JMP  P2
	JMP  1000
	2524
	2714
	2642
	4043
	2445
	3071
	1212
	3742
	2614
	1414
	2537
	3614
	1426
	4241
	4730
	4147
	4612
Z1,	 5353
	5353
	1414
	5353
	5314
	1453
	5353
	5312
	1414
	1414
	1414
Z2,	 5353
	5314
	1453
	5353
	5377
	SNS I  1
	JMP  Y4+5
	XSK  2
	JMP  Y4
	JMP  Y4+5
P1,	 SET  15
	0
	CLR 
	ROL  3
	STC  P3
	LDH I  17
	SHD I 
	1400
	JMP  .+6
	ADA I 
P3,	 0
	XSK I  16
	JMP  P1+3
	JMP  15
	LDA 
	P3
	ROR  3
	JMP  15
P2,	 SET  15
	0
	ROL  3
	STA I 
	0
	BCL I 
	7770
	STH I  17
	XSK I  16
	JMP  .+2
	JMP  15
	LDA 
	P2+4
	JMP  P2+2
P4,	 SET  14
	0
	AZE I 
	JMP  .+4
	LDA I 
	0057
	JMP  .+3
	LDA I 
	14
	STH I  17
	JMP  14
/END OF COMPAR
/
/LAP4Q+A
	*1000
LQAO2, LDA I
	5776
	ADD  0
	STC LQAO2+11
	ADD  1
	STC LQAR7+1
	SET I  1
	401
	SET I  16
	0
	JMP LQAQ5
	JMP LQAR1-2
	JMP LQAR1
	SHD I 
	1200
	XSK I  1
	JMP  .-6
	JMP LQAQ1
	JMP  .-10
LQAR1, LDA
	1
	ROL  4
	STC LQAR3+2
	XSK I  16
	ADD  16
	BSE I 
	JMP 
	STC LQAR7+2
LQAR2, SET 16
	LQAO2+11
	JMP LQAQ5
	LDH I  16
	JMP  .+2
	JMP  .-3
	LDA I 
	-4000
	ADM 
	16
LQAR3, STC LQAQ2+1
	LDA I 
	0
	STC LQAQ4-1
	SET  17
	LQAO2+11
	SET I  1
	100
	LDA I 
	-40
	ADM I 
	0
LQAQ4, LDH I 17
	JMP LQAQ5+1
	JMP  .-2
	JMP LQAR4
	SHD I 
	1200
	JMP LQAR3+6
	ROL  1
	ADA I 
	LQAQ6
	STC  15
	ADD LQAR7+3
	ADD  1
	STC  1
	ADD LQAQ4-1
	DSC  15
	DSC I  15
	JMP LQAQ4
LQAR4, KST
	JMP LQAR3+1
	515	/KBD INST
	SHD I 
	1300
	JMP LQAQ2
	SHD I 
	1200
	JMP LQAQ3
	SAE I 
	23
	JMP  .+3
	535	/KBD I  INST
	ADD LQAK7
	JMP LQAQ5+1
	NOP 
	JMP LQAR3+1
	STC  .+5
	JMP LQAQ5
	JMP LQAR3-4
	JMP LQAR3-4
	LDA I 
	0
	STH  16
	JMP LQAR3+1
LQAQ1, SET I 17
	23
	SET  15
	0
	JMP LQAQ5
	JMP  15
	JMP LQAR7
	LDA 
	17
	STH  16
	JMP  .-6
LQAQ2, LDA I
	0
	SAE 
	16
	JMP  .+2
	JMP LQAO2+6
	STC  16
	JMP LQAQ1
	SET  16
	LQAQ2+1
	JMP LQAR3+1
LQAQ3, SET I 17
	14
	JMP LQAQ1+2
	JMP LQAQ7
LQAQ5, LDH I 16
	SHD I 
	7600
	JMP  0
	SAE I 
	77
	XSK I  0
	XSK I  0
	JMP  0
	*1200
	4136
	3641
	2101
	0177
	4523
	2151
	4122
	2651
	2414
	0477
	5172
	0651
	1506
	4225
	4443
	6050
	5126
	2651
	5120
	3651
LQAR7, SET I 1
	0
	JMP  0
	4
	0000
	0000
	0101
	0126
	3700
	3424
	0404
	0404
	0404
	0437
	0000
	0077
	3614
	1436
	4020
	2055
	4477
	7744
	5177
	2651
	4136
	2241
	4177
	3641
	4577
	4145
	4477
	4044
	4136
	2645
	1077
	7710
	7741
LQAK7, 0041
	4142
	4076
	1077
	4324
	0177
	0301
	3077
	7730
	3077
	7706
	4177
	7741
	4477
	3044
	4276
	0376
	4477
	3146
	5121
	4651
	4040
	4077
	0177
	7701
	0176
	7402
	0677
	7701
	1463
	6314
	0770
	7007
	4543
	6151
	1212
	1212
	0107
	0107
	0500
	0006
	0001
	0000
	4577
	7745
	4177
	0000
	0000
	0000
	5000
	0060
	0000
	7741
	0000
	0000
	0000
	0000
	0000
	0075
/RESTART DIAL
COM4,	SET I 17
	7300
	JMP 16
COM2,	LDA I
	1200
	ESF	/SET TRAP
	JMP COM3
	0000
LQAQ7, JMP LQAQ5
	JMP LQAR2+3
	JMP LQAR7
	JMP  .-3
LQAQ6=1200
/END LAP4Q+A
/
/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 COMPAR + LAP4Q+A + L8SIM0
/D.OVERTON  12/1/69
$AS
T
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
2