*20
/DATAM
/FOR PDP12
/BY J.HANCE
*12
	LDA I
	1200
	ESF	/SET TRAP
	LDA I
	SET I 2
	STC 20	/FIX LOC 20
/DISPLAY Q3
	JMP 12
	777
	SET  I  3
	1377
C1,	LDA I 3
	DIS  I  2
	XSK  I  2
	JMP C1
	KST 
	JMP  20
C2,	515	/KBD
/JMP TO DESIRED SUBROUTINE
	ADA  I 
	6000!C3
	STC C4
C4,	JMP 20
C3,	JMP 20
	6020
	6020
	6020
	6020
	6020
	6020
	6020
	6020
	6020
	6020
	6020
	6020
	6020
	6020
	6020
	6020
	6020
	6020
	6020
	JMP A1
	JMP B1
	JMP  20
	JMP D1
	JMP  20
	JMP F1
	JMP  20
	JMP H1
	JMP I1
	JMP  20
	JMP K1
	JMP L1
	JMP  20
	JMP  20
	JMP O1
	JMP P1
	JMP  20
	JMP R1
	JMP S1
	JMP  20
	JMP  20
	JMP  20
	 JMP  20
	JMP  20
	JMP  20
	JMP  20
/READ DATA OFF UNIT 1 INTO Q2 & Q3
R1,	535	/KBD I
	ROL  3
	STC  2
	535 	/KBD I
	ADD  2
	ROL  3
	STC  2
	535	/KBD I
	ADD  2
	BSE  I 
	2000
	STA 
	R2
	BSE  I 
	3000
	STC R3
	RDC  U 
R2,	2000!111
	RDC  U 
R3,	3000!111
	JMP  20
/WRITE RESULT ON UNIT 1 FROM Q3
K1,	0535	/KBD I
	ROL  3
	STC  2
	535	/KBD I
	ADD  2
	ROL  3
	STC  2
	535	/KBD I
	ADD  2
	BSE  I 
	3000
	STC K2
	WRC  U 
K2,	3000!0
	JMP  20
/DISPLAY BARGRAPH
B1,	SET I 2
	777
	SET  I  3
	1377
B5, LDA I 3
	APO 
	JMP B2
	DIS  I  2
B4,	AZE I
	JMP B3
	ADA  I 
	7776
	DIS  2
	JMP B4
B3,	XSK I 2
	JMP B5
	KST 
	JMP B1
	JMP C2
B2,	DIS I 2
B6,	AZE I
	JMP B3
	ADA  I 
	1
	DIS  2
	JMP B6
/MAKE LARGER
L1,	SET I 3
	1377
L2,	LDA I 3
	ROL  1
	STA  3
	XSK  3
	JMP L2
	JMP  20
/MAKE SMALLER
S1,	SET I 3
	1377
S2,	LDA I 3
	SCR  1
	STA  3
	XSK  3
	JMP S2
	JMP  20
/ADD RSW TO DATA
A1,	SET I 3
	1377
A2,	RSW
	ADM  I  3
	XSK  3
	JMP A2
	JMP  20
/LOW PASS FILTER
F1,	SET I 2
	1376
	SET  I  3
	1377
	SET  I  4
	1400
	SET  I  5
	1402
F2,	LDA I 3
	ROL  1
	ADA  I  2
	ADA  I  4
	SCR  2
	STA  3
	XSK  4
	JMP F2
	JMP  20
/DIFFERENTIATE
D1,	SET I 3
	1400
	SET  I  4
	1377
D2,	LDA 3
	COM 
	ADA  I  3
	NOP 
	STA  I  4
	XSK  3
	JMP D2
	JMP  20
/INTEGRATE
I1,	SET I 3
	1377
	CLR 
I2,	ADM I 3
	XSK  3
	JMP I2
	JMP  20
/MOVE Q2 INTO Q3
O1,	SET I 2
	777
	SET  I  3
	1377
O2,	LDA I 2
	STA  I  3
	XSK  3
	JMP O2
	JMP  20
/INVERT DISPLAY
P1,	SET I 3
	1377
P2,	LDA I 3
	COM 
	STA  3
	XSK  3
	JMP P2
	JMP  20
/HIGH PASS FILTER
H1,	SET I 1
	1374
	SET  I  2
	1375
	SET  I  3
	1376
	SET  I  4
	1377
	SET  I  5
	1400
	SET  I  6
	1401
	SET  I  7
	1402
	SET  I  10
	1403
	SET  I  11
	377
H2,	LDA I 4
	ROL  1
	ADA  I  1
	ADA  I  2
	ADA  I  3
	ADA  I  5
	ADA  I  6
	ADA  I  7
	SCR  3
	COM 
	ADA  4
	STA  I  11
	XSK  7
	JMP H2
	SET  I  11
	377
	SET  I  3
	1377
H3,	LDA I 11
	STA  I  3
	XSK  3
	JMP H3
	JMP  20
/END DATAM
/
/
/
/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 DATAM + L8SIM0
$AS

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 D