*20
/EQUIVELANCE TABLE FOR PMODE INSTS
	TLS=6046
	KCC=6032
	RMF=6244
	ION=6001
	IOF=6002
	RIB=6234
	TAD=1000
	CLL=7100
	CLA=7200
	LINC=6141
	CLSK=6131
	CLLR=6132
	CLAB=6133
	CLEN=6134
	CLSA=6135
	CLBA=6136
	CLCA=6137
/LOADER FOR A START 20
	LIF 0
	JMP START
/LOADER FOR A RESTART DIAL
	*400
	CLR
	AXO
	ESF
	IOB
	IOF
	LDA I
	701
	STC 16
	LDA I
	7300
	STC 17
	JMP 16
	SEGMNT 0
	*20
K7100,	7100
K260,	260
K100,	100
NTIME,	0
K6100,	6100
K320,	320
K300,	300
K60,	60
	*41
	CLR
CLK,	IOB
	RMF
	IOB
	CLSK
	JMP NOTCLK
	CLR
	IOB
	CLSA
	ROL 6
	APO
	JMP CH1
	ROR 6
	APO I
	JMP NOTCLK
	XSK I 2		/DONE LS TRLS?
	JMP PAWZ
	JMP OFF
NOTCLK,	CLR
	SFA
	BSE I
	40
	ESF
	IOB
	ION
	LDA
	40
	ADA I
	6000
	STC .+1
	0
PAWZ,	LDA I
	JMP SING
	STC NOTCLK-2
	ATR		/NO RELAYS
	LSW
	BCL I
	0077
	ROL 6
	AZE I
	JMP SING	/NO DELAY
	COM 
	STC NTIME
	PDP
	CLA
	CLEN
	CLAB
	CLLR
	TAD K100
	CLLR
	CLSA
	CLA
	TAD NTIME
	CLAB
	CLA
	TAD K320
	CLEN
	CLA
	TAD K6100
	CLLR
	LINC
	JMP NOTCLK
START,	CLR
	IOB
	TLS
	IOB
	KCC
	ESF
	STC 4
	SET I 13
	CHART-1
	SET I 3
	CHART
	SNS I 1
	JMP OFF
	LSW
	BCL I
	7700
	AZE I
	JMP OFF
	COM
	STC 2		/NO. OF TRIALS
	LDA I
	6000
	STC .+2
	RDC 
FBLK,	0
	LDA
	3377
	SAE I
	7777
	SKP
	JMP .+6
	LDA I
	1
	ADM
	FBLK
	JMP FBLK-1
SING,	CLR
	STC AORB
	STC 5		/STIM NO.
	LDA I
	2525
	STC RYR1
	LDA I
	LDF 3
	STC FLD1
	LDF 3
	LDA I
	7253
	STC RYR2
	ATR
	SET I 17
	3777
	SET I 15
	-10
	CLR
	STA I 17
	XSK 17
	JMP .-2
	PDP
	CLA
	CLEN
	CLAB
	CLLR
	TAD K100
	CLLR
	CLSA
	CLA
	TAD K60		/INPUT 1 ENABLE
	CLEN		/FLAG 1 ENABLE
	CLA
	TAD K300	/CLOCK STOPPED
	CLLR		/MODE THREE
	LINC
	LDA I
	3777
	STC S12
	LDA I
	20		/RELAY 1
	ATR
	JMP DISA
CH1,	CLR
	XSK I 5		/STIM NO.
	LDA I
	3777
	SRO I
RYR1,	2525
	JMP .+3
	LDA I
	2777
	STC S12
	SRO I
RYR2,	7253
	JMP .+5
	LDA I
	1
	ADM
	FLD1
FLD1,	LDF 3
	SET I 16
	-1000
	SET I 14
	-20
	SAM 10
	XSK I 14
	JMP .-1
A,	SCR 1
	STA I 17
	XSK I 16
	JMP .-10
	XSK I 15
	JMP DISA
	RSW
	AZE I
	JMP SING
	COM
	ADA I
	1
	STC NTIME
	PDP
	CLA
	CLEN
	CLAB
	CLLR
	TAD K100
	CLLR
	CLSA
	CLA
	TAD NTIME
	CLAB
	CLA
	TAD K320	/1 ENABLE
	CLEN		/OF INTRPT
	CLA
	TAD K6100
	CLLR
	LINC
	LDA I
	60
	ATR		/RELAY 0
	LDA I
	JMP PAWZ
	STC NOTCLK-2
	SET I 15
	-10
	SET I 17
	3777
	LDA I
	7253
	STC RYR3
	CLR
	LDF 1
	STA I 17
	XSK 17
	JMP .-2
	LDA I
	LDF 3
	STC FLD2
B,	SET I 16
	-1000
	SET I 14
	3777
	SRO I
RYR3,	7253
	JMP .+5
	LDA I
	1
	ADM
	.+1
FLD2,	LDF 3
	LDA I 17
	LDF 1
	ADM I 14
	XSK I 16
	JMP FLD2
	XSK I 15
	JMP B
	SET I 14
	3777
	SET I 16
	-1000
	LDA I 14
	SCR 3
	STA 14
	XSK I 16
	JMP .-4
INTR,	CLR
	LDF 1
	SAM 0
	ADA I
	1000
	SCR 1
	ADA I
	2000
	STC 17
	SAM 1
	ADA I
	1000
	SCR 1
	ADA I
	2000
	STC 16
	CLR
	STC IN1
	STC IN2
	LDA 17
	COM
	STC .+4
	CLR
	LDA I 17
	ADA I
	0
	APO
	COM
AA,	SCR 3
	STA I
	0
	QAC
	LAM I
IN1,	0
	LDA
	.-5
	LAM I
IN2,	0
	LDA
	17
	SAE
	16
	JMP AA-6
	LDA
	IN2
	STA I 13	/INT TABLE
	XSK I 3		/TRIAL NUMBER
	SET I 17
	3777
	SET I 16
	-400
	SET I 15
	2777
COL,	LDA I 17
	SCR 1
	STC .+4
	LDA I 17
	SCR 1
	ADA I
	0
	STA I 15
	XSK I 16
	JMP COL
	LDA
	4
	XSK I 4
	STA
	3377
	STA
	2777
	SNS 5
	JMP DISB
	LDA
	FBLK
	STC .+2
	WRC 
	6000
	LDA I
	1
	ADM
	FBLK
	SAE I
	6777
	SKP
	HLT
DISB,	CLR
	RSW
	AZE I
	JMP OFF
	LDA I
	3777
	STC S12
	LDF 1
	LDA I
	1
	STC AORB
	SNS I 1
	JMP DTAPE
	SNS I 2
	JMP IBLK
	SNS I 4
	JMP CBLK
	SNS I 0
	JMP DCHART
	SET I 11
	TRL-1
	SET I 6
	-6
	SET I 1
	40
DTRL,	LDA I 11
	ROL 1
	ADA I
	PATRN
	STC 7
	LDA I
	320
	DSC 7
	DSC I 7
	LDA I
	2
	ADM
	1
	XSK I 6
	JMP DTRL
	SET I 6
	-2
	LDA
	3377
	ROL 6
	STC .+2
ULPK,	LDA I
	0
	ROL 3
	STA
	.-3
	BCL I
	7770
	BSE I
	60
	ROL 1
	ADA I
	PATRN
	STC 7
	LDA I
	320
	DSC 7
	DSC I 7
	LDA I
	2
	ADM
	1
	XSK I 6
	JMP ULPK
DISA,	CLR
	IOB
	PMODE
	ION
	LMODE
	SNS 3
	JMP .+5
	LDA
	FBLK
	SNS I 3
	JMP .-1
	CLR
	SAM 0
	ADA I
	1000
	SCR 1
	STC CUR1
	SAM 1
	ADA I
	1000
	SCR 1
	STC CUR2
	SAM 4
	SCR 1
	STC CUR1Y
	SAM 5
	SCR 1
	STC CUR2Y
	SAM 2
	SCR 1
	STC Y
	SET I 11
	CTIME+5
	SET I 7
	-3
	LDA
	CUR1
	COM
	ADA
	CUR2
	APO
	JMP NOD
	ROL 3
	STC .+2
UNPC,	LDA I
	0
	ROL 3
	STA
	.-3
	BCL I
	7770
	BSE I
	60
	STA I 11
	XSK I 7
	JMP UNPC
	LDA
	CTIME+10
	STA
	CTIME+11
	LDA I
	56
	STA
	CTIME+10
	SET I 11
	CTIME-1
	SET I 1
	500
	SET I 6
	-20
DTIME,	LDA I 11
	ROL 1
	ADA I
	PATRN
	STC 7
	LDA I
	-320
	DSC 7
	DSC I 7
	LDA I
	2
	ADM
	1
	XSK I 6
	JMP DTIME
NOD,	SET I 12
S12,	0
	SET I 16
	-1000
	SET I 10
	1777
E,	LDA I 12
	ADA I
Y,	0
	DIS I 10
	LDA I
CUR1Y,	0
	STC CURY
	LDA I
CUR1,	0
	SAE
	10
	SKP
	JMP CURA
	LDA I
CUR2,	0
	SAE
	10
	JMP NOCUR
	LDA I
CUR2Y,	0
	STC CURY
CURA,	SET I 11
	-6
	LDA 12
	ADA
	Y
	DIS 10
	DIS 10
	LDA I
CURY,	0
	ADA I
	2
	DIS 10
	XSK I 11
	JMP .-4
NOCUR,	CLR
	XSK I 16
	JMP E
	CLR
	STC INT1
	STC INT2
	LDA
	CUR1
	ADA I
	2000
	STC 10
	LDA 10
	COM
	STC .+4
IGL,	CLR
	LDA I 10
	ADA I
	0
	APO
	COM
AAAA,	SCR 3
	STA I
	0
	QAC
	LAM I
INT1,	0
	LDA
	.-5
	LAM I
INT2,	0
	LDA
	CUR2
	ADA I
	2000
	SAE
	10
	JMP IGL
	SAM 3
	STC 1
	SAM 7
	STC IGVRT
	LDA
	INT2
	STC .+4
IGDS,	SET I 10
	-4
	LDA I
	0
	ROL 3
	STA
	.-3
	BCL I
	7770
	ROL 1
	ADA I
	140+PATRN-1
	STC 11
	LDA I
IGVRT,	0
	DSC I 11
	DSC I 11
	LDA I
	4
	ADM
	1
	XSK I 10
	JMP IGDS+2
	SET I 11
	PATRN-1+100
	DSC I 11
	DSC I 11
	LDA
	INT1
	SRO I
	2525
	JMP IGDS-1
	LDA I
AORB,	0
	AZE
	JMP DISB
	SET I 11
	RES-1
	SET I 6
	-11
	SET I 1
	40
RDIS,	LDA I 11
	ROL 1
	ADA I
	PATRN
	STC 7
	LDA I
	320
	DSC 7
	DSC I 7
	LDA I
	2
	ADM
	1
	XSK I 6
	JMP RDIS
	SET I 6
	-2
	LDA
	5
	ROL 6
	STC .+2
UMPC,	LDA I
	0
	ROL 3
	STA
	.-3
	BCL I
	7770
	BSE I
	60
	ROL 1
	ADA I
	PATRN
	STC 7
	LDA I
	320
	DSC 7
	DSC I 7
	LDA I
	2
	ADM
	1
	XSK I 6
	JMP UMPC
	JMP DISA
DCHART,	CLR
	IOB
	ION
	SET I 1
	40
	LDA I
	350
	DIS 1
	ADA I
	-1
	SAE I
	-251
	JMP .-5
	LDA I
	-250
	DIS I 1
	LDA
	1
	SAE I
	740
	JMP .-7
	LDA
	3
	SAE I
	CHART
	SKP
	JMP DISB
	SAM 6
	ADA I
	1000
	COM
	STC P6
	LDA I
	CHART
	STC CH
	LDA I
	50
	STC 1
	LDA I
	106
	ADA I
	PATRN
	STC 7
	LDA
CH,	CHART
	ADA I
P6,	0
	DSC 7
	DSC I 7
	LDA I
	20
	ADM
	1
	LDA I
	1
	ADM
	CH
	SAE
	3
	SKP
	JMP DISB
	LDA I
	124
	ADA I
	PATRN
	STC 7
	JMP CH-1
DTAPE,	CLR
	LDF 1
	LSW
	SAE I
	7777
	SKP
	JMP 0
	STC .-3
	LSW
	BCL I
	7000
	BSE I
	6000
	STA
	BLK
	STC .+2
	RDC 
	6000
	SET I 17
	3777
	SET I 16
	-400
	SET I 15
	3000
EXP,	LDA 15
	STA I 17
	LDA 15
	SCR 1
	STC .+4
	LDA I 15
	SCR 1
	ADA I
	0
	STA I 17
	XSK I 16
	JMP EXP
	LDA
	3377
	STA
	2777
	STC 4
	JMP OFF
CBLK,	CLR
	LSW
	SAE I
	7777
	SKP
	JMP 0
	STC .-3
	LDA I
	7777
	STA
	3377
	SNS 1
	JMP 0
	WRC 
BLK,	6000
	JMP DISB
IBLK,	CLR
	LSW
	SAE I
	7777
	SKP
	JMP 0
	STC .-3
	JMP INTR
OFF,	CLR
	ATR
	PDP
	CLA
	CLEN
	CLAB
	CLLR
	TAD K100
	CLLR
	CLSA
	CLA
	LINC
	JMP DISB
CTIME,	24
	11
	15
	5
	75
	40
	0
	56
	0
	0
	40
	15
	23
	5
	3
	40
	40
	40
RES,	22
	5
	23
	20
	17
	16
	23
	5
	40
	40
	40
	40
TRL,	24
	22
	11
	1
	14
	40
	40
	40
	40
CHART,	0
	*1600
/ADD PATRN TABLE HERE
/PATTERN WORDS FOR CHAR DISPL.
PATRN,	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
	7700		/[
	0041
	1020		/\
	0204
	4100		/]
	0077
	2000		/^
	2077
	3410		/BACK ARROW
	1010
	0		/SPACE
	0
	7500		/!
	0
	6060		/"
	0
	3614		/NUMBER SIGN
	1436
	7721		/DOLLAR SIGN
	4677
	1446		/%
	6130
	5166		/&
	0526
	5000		/APOSTROPHY
	60
	0000		/(
	4136
	3641		/)
	0000
	2050		/*
	50
	404		/+
	437
	0500		/,
	0006
	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
	4225
	4443		/7
	6050
	5126		/8
	2651
	5120		/9
	3651
	4200		/:
	0
	4201		/;
	0
	2410		/<
	0042
	1212		/=
	1212
	4200		/>
	1024
	4020		/?
PATEND,	2055
/END OF PATRNS TABLE
/
/
/INSTRUCTIONS FOR OPERATING CSGDATA
/AS FOLLOWS:
/
/LEFT SWITCHES BITS 6-11 SELECT NUMBER
/    OF TRIALS
/LEFT SWITCHES BITS 0-5 SELECT TIME
/    BETWEEN TENANIZATION AND FIRST TEST
/RIGHT SWITCHES SELECT DURATION OF 
/		TETANIZATION
/POT 0 HORIZ FOR CURSOR ONE
/POT 4 VERT  "     "     "
/POT 1 HORIZ "     "    TWO
/POT 5 VERT  "     "     "
/POT 2 VERT FOR RESPONSE DISPLAY
/POT 6 VERT FOR RESPONSE INTEGRALS
/
/POINT "A" IN PROGRAM IS AT CORE
/	LOCATION 343.  THIS IS THE
/	SCALING FACTOR BEFORE STORING
/	EACH SAMPLE FROM AD 10
/POINT "AA" IN PROGRAM IS AT CORE
/	LOCATION 517.  THIS IS THE
/	SCALING FACTOR FOR EACH POINT
/	DURING INTEGRATION.
/USE START LS400 TO KEEP TEMPORARY
/       CHANGES.
/
/
/
/SENSE SW 0 LOOK AT INTEGRAL T
/
/
/SENSE SW 0 LOOK AT INTEGRAL TABLE
/         1 LOOK AT BLOCK IN LFT SWTCHS
/         2 INTEGRATE THAT BLOCK
/	  3 LOOK AT CURRENT BLOCK NUMBER
/	  4 CLEAR THAT BLOCK
/	  5 ENABLE WRITE ON TAPE
/
/CLOCK CHANNEL ONE IS ONE HZ SIGNAL
/	FROM DIGITIMER
/ANALOGUE INPUT 10 IS RESPONSE CHANNEL
/RELAY 0 ON DURING TETANIZATION
/RELAY 1 ON ENABLES STIMULUS 
/
/
/START BY LEFT  SW 0701
/	  RIGHT SW 0000
/	  I/O PRESET
/	  START 20
/