*20
/DAN GRAY
/TITLE:  DAN15
/NOVEMBER 23,1970
/USES CLOCK TO SAMPLE ANALOGUE
/CHANNEL 10.  CHANNEL 3 IS TRIAL
/INPUT.  RSW SETTING DETERMINES SCALING
/OF INPUT.  SAMPLES ONE SECOND
/OF DATA ON CHANNEL 10 AFTER A
/PULSE ON CLOCK CHANNEL THREE.
/SAMPLES ARE AT TWO MS INTERVALS.
/ADDS 15 TRIALS AND STOPS WITH DISPLAY.
/SNS 1 TURNS ON A CURSOR AND DISPLAYS
/POSITION VALUE ON LOWER RIGHT OF SCOPE
/WITHOUT SCALING, 777=ONE VOLT.
/CURSOR POSITION IS CONTROLLED WITH
/POT 5
/CONSTANT VOLTAGES CAN BE COMPENSATED
/BY SETTINGS OF LEFT SWITCHES.
/POT 5 CONTROLLS UP AND DOWN MOVMENT
/OF DISPLAY.
/UPPER THREE BITS (0-3) OF RIGHT SWITCH
/SCALE DISPLAY ON SCOPE.
/SENSE SWITCH 5 RETURNS TO DIAL.
BEGIN,	CLR
	LDA I
	SAM 10
	STA
	SAMP1
	STA
	SAMP3
	STC SAMP2
	SET I 16
	-17
	SET I 17
	777
	STA I 17
	XSK 17
	JMP .-2
	LDA I
	NOP
	STC EXIT
	LDA I
	100
	ESF
START,	RSW
	BCL I
	7760
	BSE I
	SCR
	STC SCALE
	PDP
	PMODE
	CLA
	CLEN
	CLAB
	CLLR
	TAD K100
	CLLR
	CLSA
	CLA
	TAD N2
	CLAB
	CLA
	TAD K200
	CLEN
	CLA
	TAD K203
	CLEN
WAIT1,	CLA
	CLSK
	JMP DISP
	CLSA
	LINC
	LMODE
	SET I 17
	777
SAMP1,	SAM 0
	PDP
	PMODE
	CLA
	TAD K300
	CLEN
	CLA
	TAD K4500
	CLLR
WAIT2,	CLA
	CLSK
	JMP .-1
	CLSA
	LINC
	LMODE
SAMP2,	SAM 0
	STC REAL
	LSW
	ADA I
REAL,	0000
SCALE,	SCR 1
	ADM I 17
	FLO
	JMP OUT
	APO I
	JMP .+4
	LDA I
	3777
	JMP .+3
	LDA I
	-3777
	STA 17
OUT,	XSK 17
	JMP .+2
	JMP .+3
	PDP
	PMODE
	JMP WAIT2
	LMODE
	XSK I 16
	JMP START
	LDA I
	JMP DONE
	STC EXIT
	JMP DONE
	PMODE
K100,	100
N2,	-2
K200,	200
K203,	203
K300,	300
K4500,	4500
DISP,	LINC
	LMODE
DONE,	SET I 17
	777
	SET I 15
	0000
	CLR
	ESF
	SNS I 5
	JMP LOADER
	RSW
	ROL 3
	BCL I
	7770
	ADA I
	SCR
	STA
	SIZE1
	STC SIZE2
	SAM 4
	APO
	JMP .+4
	BSE I
	1000
	JMP .+3
	BCL I
	7000
	SCR 1
	STC CURVAL
MORE,	LDA
	15
	SAE I
CURVAL,	0000
	JMP .+2
	JMP CURSOR
	CLR
	SAM 5
	STC Y
	LDA I 17
SIZE1,	SCR 1
	ADA
	Y
	DIS 15
	XSK I 15
	XSK 17
	JMP MORE
	SNS I 0
	JMP BEGIN
EXIT,	0000
	LDA I
	100
	ESF
SAMP3,	SAM 0
	PDP
	PMODE
	JMP I WAIT3
WAIT3,	WAIT1
	LMODE
CURSOR,	SNS 1
	JMP 0
	SET I 11
	-12
	LDA I 17
	STA
	VALU
SIZE2,	SCR 1
	ADA I
Y,	0000
	DIS 15
	ADA I
	2
	XSK I 11
	JMP .-4
	SET I 2
	TAB1+6
	SET I 3
	-4
	LDA
	VALU
	APO
	JMP NEG
	LDA I
	53
	STA I 2
	JMP POS
NEG,	LDA I
	55
	STA I 2
	LDA
	VALU
	COM
	STC VALU
POS,	LDA I
VALU,	0000
	ROL 3
	STA
	VALU
	BCL I
	7770
	ADA I
	60
	STA I 2
	XSK I 3
	JMP VALU-1
	SET I 2
	TAB1-1
	SET I 3
	-14
	SET I 1
	600
IND,	LDA I 2
	ROL 1
	ADA I
	ZSTART-1
	STC 4
	LDA I
	-320
	DSC I 4
	DSC I 4
	LDA I
	2
	ADM
	1
	XSK I 3
	JMP IND
	JMP EXIT-5
TAB1,	26
	1
	14
	25
	5
	75
	40
	40
	000
	000
	000
	000
	000
LOADER,	CLR
	LDA I
	701
	STC 16
	LDA I
	7300
	STC 17
	JMP 16
	0000
	PMODE
	*6002
/ADD PATRNS HERE
/PATTERN WORDS FOR CHAR DISPL.
ZSTART,	4522            /AT SIGN
       	1645
   	4477		/A
	7744
	5177		/B
	2651
	4136		/C
	2241
	4177		/D
	3641
	4577		/E
	4145
	4477		/F
	4044
	4136		/G
	2645
	1077		/H
	7710
	7741		/I
	0041
	4142		/J
	4076
	1077		/K
	4324
	177		/L
	301
	3077		/M
	7730
	3077		/N
	7706
	4177		/O
	7741
	4477		/P
	3044
	4276		/Q
	376
	4477		/R
	3146
	5121		/S
	4651
	4040		/T
	4077
	177		/U
	7701
	176		/V
	7402
	677		/W
	7701
	1463		/X
	6314
	770		/Y
	7007
	4543		/Z
	6151
	4177		/[
	0000
	2040		/\
	0410
	0		/]
	7741
	2000		/^
	2077
	3410		/BACK ARROW
	1010
	0		/SPACE
	0
	7500		/!
	0
	6006		/"
	60
	3614		/NUMBER SIGN
	1436
	7721		/DOLLAR SIGN
	4677
	1446		/%
	6130
	5166		/&
	0523
	5000		/APOSTROPHY
	60
	4136		/(
	0
	0		/)
	3641
	2050		/*
	50
	404		/+
	437
	605		/,
	0
	404		/-
	404
	1		/.
	0
	601		//
	4030
	4136		/0
	3641
	2101		/1
	177
	4523		/2
	2151
	4122		/3
	2651
	2414		/4
	477
	5172		/5
	651
	1506		/6