*20
	FIELD 1
	SEGMNT 4
	PMODE
	*20
K7100,	7100
K260,	260
K100,	100
NTIME,	0
K6100,	6100
K320,	320
K300,	300
K60,	60
	*41
	LMODE
	PDP
	PMODE
CLK,	CLA CLL
	RMF
	CLSK
	JMP NOTCLK
	CLSA
	LINC
	LMODE
	APO I
	JMP CH1
	XSK I 2
	JMP SING
	JMP OFF
	PMODE
NOTCLK,	LINC
	LMODE
	LDA
	40
	ADA I
	6000
	STC .+1
	0
	*200
START,	CLR
	ESF
	STC 4
	SET I 13
	CHART-1
	SET I 3
	CHART
	SNS I 1
	JMP OFF
	LSW
	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
	-12
	CLR
	STA I 17
	XSK 17
	JMP .-2
	PDP
	PMODE
	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
	LMODE
	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
	LDAN
	DCA I 10
	ISZ M4B
	JMP INPUT
	JMP I IDISP
OUTPUT,	CLA CLL
	TAD F
	DCA 10
	JMS CRLF
	JMS CRLF
MO,	CLA CLL
	TAD I 10
	TAD NRN
	SZA
	JMP .+7
	TAD N20A
	DCA N20B
	TYPE
	ISZ N20B
	JMP .-2
	JMP MO
	TAD RN
	TAD NBSL
	SNA
	JMP BEGIN
	TAD BSL
	TYPE
	JMP MO
CRLF,	0
	CLA CLL
	TAD CR
	TYPE
	CLA CLL
	TAD LF
	TYPE
	CLA CLL
	JMP I CRLF
	TYPE=JMS TYPO
TYPO,	0
	TSF
	JMP .-1
	TLS
	JMP I TYPO
N20A,	-20
N20B,	-20
H,	110
NCR,	-215
CR,	215
LF,	212
NPER,	-256
PER,	256
INC,	0
N200,	200
TEMP,	0
N3A,	-4
N3B,	-4
M4A,	-4
M4B,	-4
END,	0
RN,	43
NRN,	-43
NRO,	-377
F,	2000
N1,	-1
BSL,	337
NBSL,	-337
MRTSW,	0
IDISP,	DISP
	*4040
DISP,	LINC
	LMODE
	SFA
	BCL I
	200
	ESF
START,	SET I 16
	2000
	SAM 0
	STC VERT
	SAM 4
	ADA I
	1000
	SCR 1
	ADA I
	2000
	STC CURVAL
	SET I 1
	20
CONT,	LDF 1
	SNS I 0
	JMP CUR
	SNS 1
	JMP CURR
	PDP
	PMODE
	JMP I IOUT
IOUT,	OUTPUT
	LMODE
CURR,	LDA I 16
	BCL I
	7700
	SAE I
	37
	SKP
	JMP START
	SAE I
	43
	SKP
	JMP RET
	ROL 1
	ADA I
	2000
	STC 17
	LDA I
VERT,	0
	LDF 3
	DSC 17
	DSC I 17
	LDA I
	4
	ADM
	1
	BCL I
	7000
	STA
	1
	ADA I
	-750
	COM
	APO I
	JMP CONT
RET,	LDA I
	-40
	ADM
	VERT
	LDA I
	20
	STC 1
	JMP CONT
CUR,	LDA
	16
	SAE I
CURVAL,	0
	JMP CURR
	LDA I
	-4
	ADM
	1
	LDA I
	2066
	STC 17
	LDF 3
	LDA
	VERT
	DSC 17
	DSC I 17
	LDA I
	2072
	STC 17
	LDA
	VERT
	DSC 17
	DSC I 17
	XSK I 15
	SKP
	JMP .+6 
	LDA I
	-14
	ADM
	1
	JMP CURVAL+2
	SET I 15
	-3
	LDA I
	-14
	ADM
	1
	LDF 1
	PDP
	PMODE
	KSF
	JMP .+3
	JMP I ICHAN
ICHAN,	CHAN
	LINC
	LMODE
	JMP CURR
	PMODE
CHAN,	KRB
	DCA TEM
	TAD TEM
	RAL
	SNL
	ISZ INC2
	CLL
	SZA
	JMP .-5
	TAD INC2
	RAR
	SNL
	JMP .+5
	CLA
	TAD P200
	TAD TEM
	DCA TEM
	CLA
	DCA INC2
	TAD TEM
	LINC
	LMODE
	STA I 16
	JMP CURR
	PMODE
TEM,	0
INC2,	0
P200,	200
	*6000
/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
	4225
	4443		/7
	6050
	5126		/8
	2651
	5120		/9
	3651
	4200		/:
	0
	2601		/;
	0
	2410		/<
	0042
	1212		/=
	1212
	4200		/>
	1024
	4020		/?
ZZEND,	2055
/END OF PATRNS TABLE