*20
/FRQANA
/FRQSYN
/FOR THE PDP-12
/BY A.M.ENGEBRETSON
/
/TO USE: LOAD, I/O PRESET, START 20
/
*12
/CLEAR 600-1777
L12,	SET I 1
	H3-1
	CLR 
	STA I 1
	XSK 1
	JMP .-2
/PGM STARTS HERE
	JMP L600
T2,	 KBD I 
	SHD I 
	4700
	JMP P3
	SHD I 
	3100
	JMP C2
	SHD I 
	4600
	JMP V2
	SHD I 
	4500
	JMP U2
	JMP J2
P3,	 CLR 
	STC  A3
	SET I  6
	-5000
	SET I  10
	777
O3,	 CLR 
	STC  L3
	STC  R3
	LDA I 
	1
	ADM I 
A3,	0	/WT
	SET I 1
	1
	SET I 2
	P2
	SET I  3
	H3-1
	SET I  4
	I3-1
N3,	 LDA 
	1
	MUL 
	A3
	STA I 
J3,	 0
	ADA I 
	-200
	JMP  G3
	CLR 
	LDA I  3
	MUL  5
	APO 
	JMP  W3
	LAM I 
L3,	 0
	STC  K3
X3,	 LAM I 
R3,	 0
	LDA 
	J3
	JMP  G3
	CLR 
	LDA I  4
	MUL  5
	APO 
	JMP  Y3
	LAM 
	L3
	STC  K3
Z3,	 LAM 
	R3
	XSK I  1
	XSK I  2
	JMP  N3
	LDA 
	L3
U3,	STA I 10
	SCR  3
	DIS I  6
	XSK  6
	JMP  O3
	JMP J2
G3,	SET 7
	0
	APO I 
	JMP  .+4
	ADA I 
	1000
	JMP  .-4
	BSE I 
	7000
	STC  5
	JMP 7
K3,	 0
W3,	 LAM 
	L3
	LDA I 
	7777
	JMP  X3
Y3,	 LAM 
	L3
	LDA I 
	7777
	JMP  Z3
/FRQANA
C2,	 SET I 4
	I3-1
	LDA I 
	LDA I 
	STC I2
	STC H2+1
O2,	 CLR 
	STC B2
	STC D2
	SET I 3
	P2
	SET I 2
	1
H2,	 LDA I 
	0
	STC A2
	SET I 6
	-1000
	SET I 1
	7777
L2,	 CLR 
	ADD 2
	ADM I 
A2,	 0
	JMP G3
	LDA 5
	MUL I 1
	APO 
	JMP M2
	LAM I 
B2,	 0
	STC 0
	LAM I 
D2,	 0
	XSK I 6
	JMP L2
	LDA I 2
	LDA 
	D2
	ROL 4
	BCL I 
	17
	STC D2
	ADD B2
	ROL 4
	BCL I 
	7760
	ADD D2
	STA I 4
	CLR 
	STC B2
	STC D2
	XSK I 3
	JMP H2
I2,	 LDA I 
	-200
	STC H2+1
	LDA I 
	JMP J2
	STC I2
	SET I 4
	H3-1
	JMP O2
M2,	 LAM 
	B2
	LDA I 
	7777
	JMP D2-1
J2,	 RSW 
	BCL I 
	7760
	BSE I 
	SCR I 0
	STC Z2
	KST 
	JMP .+2
	JMP T2
	SNS 0
	JMP K2
	SET I 1
	I3-1
	SET I 5
	H3-1
	SET I 2
	4000
	SNS I 2
	JMP A4
	JMP R2
	SET I 1
	H3-1
	SET I 2
	4400
	JMP R2
	JMP J2
R2,	 LDA 
	0
	STC Q2
	SET I 4
	P2
	JMP Z2-1
S2,	 STC 0
	DIS I 2
	DIS I 2
	DIS I 2
	LDA I 1
Z2,	 SCR I 
	ROL I 1
	AZE 
	JMP .+3
	APO 
	COM 
	STA 
	Q2+3
	STC 0
	DIS 2
	SAE 
	Q2+3
	JMP .+4
	XSK I 4
	JMP S2
	JMP Q2
	ADD Q2+1
	LZE 
	ADD Q2+2
	JMP .-12
Q2,	0	/EXIT
	1
	-2
	0
K2,	 SET I 1
	7777
	SET I 2
	-5000
	SET I 3
	777
SAMP,	SAM 1
	SCR 1	/FOR 10 BIT A/D
	COM 
	STC 0
	LDA I 1
	SCR 3
	ADD 0
	DIS I 2
	SAM 1
	SCR 1	/10 BIT A/D
	STC 0
	LDA I 3
	SCR 3
	ADD 0
	DIS 2
	XSK 2
	JMP SAMP
	JMP J2
U2,	 KBD I 
	ROL 6
	STC .+14
	KBD I 
	ROL 3
	ADM 
	.+10
	KBD I 
	ADM 
	.+5
	BSE I 
	4000
	STC .+2
	RDC U 
	4000
	LDA 
	.-2
	SNS 4
	ADD Q2+1
	BSE I 
	5000
	STC .+2
	RDC U 
	5000
	SNS 5
	JMP J2
	SET I 1
	2377
	SET I 2
	-400
	STA I 1
	XSK I 2
	JMP .-2
	JMP J2
/SCALE
V2,	 KBD I 
	ROR I 1
	KBD I 
	BSE I 
	SCR 0
	STC .+6
	SET I 1
	3777
	SET I 2
	-1000
	LDA I 1
	SCR 
	LZE 
	COM 
	F"H