*20
/THIS SECTION IS THE INPUT ROUTINE
/FOR THE MAIN PROGRAM
	SEGMNT 6
	*20
	CLR
	IOB
	TLS
	SET I 17
	CH-1!4000
	SET I 1
	100
B,	LDH I 17
	SAE I
	52		/*
	SKP
	JMP 23
	ROL 1
	ADA I
	PATRN-1
	STC 16
	DSC I 16
	DSC I 16
	LDA I
	10
	ADM
	1
	KST
	JMP B
	IOB
	KRB
	SAE I
	316		/N
	SKP
	JMP MAIN
	SAE I
	331		/Y
	JMP B
/INPUT PROGRAM TO CHANGE CONSTANTS
/WHICH RESIDE IN 1761-1777
/OF FIELD 6
INP,	CLR
	SET I 10
	1760
	LDA I
	100
	ESF		/SMALL TYPE
	SAM 0
	SET I 17	/FAST SAMPLE
	-4
	SET I 16
	TX1-1+35!4000
	SAM 1		/BIN TIME
	ADA I
	1000
	STA
	AD
	STA I 10	/B10 STORES
	JMP AD-4	/VARIABLES TO
	SET I 17
	TX1-1!4000
	JMP DS
	SET I 17
	-4
	SET I 16
	TX1-1+66!4000
	SAM 2		/SAMPLE PAST
	ADA I		/EVENT
	777
	AZE I
	CLR
	STA
	AD
	COM
	STA I 10
	JMP AD-4
	SET I 17
	TX1-1!4000
	JMP DS
	SET I 17
	-3
	SET I 16
	TX1-1+105!4000
	SAM 3		/BEGINNING
	ADA I		/BLOCK ON TAPE
	777
	AZE I
	CLR
	SCR 1
	COM
	STA I 10
	COM
	ROL 3
	STC AD
	JMP AD-4
	SET I 17
	TX1-1!4000
	JMP DS
	SET I 17
	-3
	SET I 16
	TX1-1+150!4000
	SAM 4		/SCALE DATA N
	ADA I
	777
	AZE I
	CLR
	SCR 1
	STA I 10
	ROL 3
	STC AD
	JMP AD-4
	SET I 17
	TX1-1!4000
	JMP DS
	SET I 17
	-2
	SET I 16
	TX1-1+172!4000
	SAM 0
	ADA I
	777
	AZE I
	CLR
	SCR 6
	STA I 10
	ROL 6
	STC AD
	LDA I
	NOP
	STC
	LDA
	0
	STC AX
	LDA I
AD,	0
	ROL 3
	STA
	.-3
	BCL I
	7770
	ADA I
	60
	STH I 16
	XSK I 17
	JMP AD-1
AX,	0
	SET I 17
	TX1-1!4000
	JMP DS
	KST
	JMP INP
	IOB
	KRB
	SAE I
	212		/LINE FEED
	JMP INP
	LDA 
	10
	STC .+4
INP2,	SET I 15
	-6
	SET I 10
	0
	SAM 0
	LDA I
	SAM 1
	STC CHNL
	SET I 16
	TX2-1+134!4000
CHNL,	SAM 0
	BCL I
	7000
	SCR 7
	AZE
	JMP .+2
	BSE I
	1
	STA I 10
	ADA I
	60
	STH I 16
	LDA I
	1
	ADM
	CHNL
	LDA I
	2
	ADM
	16
	SET I 17
	TX2-1!4000
	JMP DS
	XSK I 15
	JMP CHNL
	SET I 17
	TX2-1!4000
	JMP DS
	KST
	JMP INP2
	IOB
	KRB
	SAE I
	212		/LINE FEED
	JMP INP2
	SET I 17
	TX3-1!4000
	JMP DS
	KST
	JMP .-4
	IOB
	KRB
	SAE I
	212		/LINE FEED
	JMP .-5
	JMP VERT+10
DS,	LDA
	0
	STC DX
	LDA I
	340
	STC VERT
	SET I 1
	20
	LDA I
	-20
	ADM
	VERT
D,	LDH I 17
	SAE I
	43		/CR
	SKP
	JMP .-12
	SAE I
	76		/LINE FEED=>
	SKP
	JMP .-14
	SAE I
	52		/*
	SKP
DX,	0
	ROL 1
	ADA I
	PATRN-1
	STC 14
	LDA I
VERT,	0
	DSC I 14
	DSC I 14
	LDA I
	4
	ADM
	1
	JMP D
MAIN,	JMP .+3		/CAN TAKE OUT
	WCG 0		/TO UPDATE
	A		/TAPE EACH TIME
LOAD,	LDF 6		/CHANGES ARE 
	LIF 7		/MADE
	JMP 20
/TEXT FOR INPUT PROGRAM
CH,	TEXT "ANY CHANGES?*"
TX1,	TEXT "KNOB TWIDDLERS DELIGHT!!!
>>>TWIST:>>>
A/D 0 FOR BIN TIME      X.1 MS PER BIN>>
A/D 1 TO SAMPLE PAST EVENT       BINS>>
A/D 2 TO AVERAGE       TRIALS>>
A/D 3 FOR FIRST TAPE BLOCK NUMBER>
      ON UNIT ONE =      TH BLOCK>>
A/D 4 TO SCALE DATA     PLACES BEFORE>
      STORING.>>>
NOW HIT LINE FEED!!!*"
TX2,	TEXT "DATA IS COLLECTED IN THE FORM OF>
THREE 400 BIN EPOCHS.>>
SELECT WHICH EPOCH ON EACH CHANNEL>
IS TO BE AVERAGED AND STORED ON TAPE>>>
CHANNEL   10   11   12   13   14   15>
EPOCH                                >>>
NOW HIT LINE FEED*"
TX3,	TEXT "INPUT DATA ON A/D CHANNELS 10-15>>
SELECT CHANNELS TO BE VIEWED DURING>
COLLECTION ON RIGHT SWITCHES BITS 0-5.>>
TRACES ARE MOVED VERTICALLY BY A/D 0-5>
AND MOVED TO RIGHT BY SENSE SWITCHES 0-5>>
RIGHT SWITCHES BITS 9-11>
SELECT VIEWING TIME>>
DISABLE SAMPLING BY GROUNDING>
SENSE LINE 0>>
PLACE THE EVENT SELECTED>
ON CLOCK CHANNEL TWO>
NOW HIT LINE FEED TO BEGIN!!!*"
TX4,	TEXT "DISABLE ON--LEVEL 0*"
TX5,	TEXT "EVENT*"
TX6,	TEXT "OVERFLOW*"
/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
/
/
/
/
/MAIN PROGRAM TO DO THE STUFF
/DESCRIBED IN INPUT ROUTINE
	FIELD 1
	SEGMNT 7
	*20
	CLR
	AXO
	LDF 6
	IOB
	TLS
	IOB
	CLLR
	IOB
	CLSA
	LDA		/TIME PER BIN
	3761		/IN FIELD 6
	STC TIME&1777	/PMODE DEFINED
	LDA
	3762		/BINS AFTER
	AZE		/EVENT
	JMP .+5
	LDA I		/ALL THIS SO
	JMP NSPL	/ZERO BINS
	STC BINS	/WONT BE
	JMP .+4		/FOREVER
	LDA I
	XSK I 4
	STC BINS
	LDA		/IN INST FIELD
	3765		/SCALE DATA N
	BSE I
	SCR
	STC MSCL
	SET 13
	3763		/AV-N TRIALS
	LDA
	3764		/FIRST TAPE
	BSE I		/BLOCK
	7000
	STA
	BLK
	STC .+2
	CHK 10		/READY UNIT
	0000
	STA I
TSTM,	0
	STA I
STM,	0
	STA I
TRL,	0
/CLEAR FIELDS 0-5
CLRFLD,	LDA I
	LDF 0
	STC .+6
	SET I 16
	-6
	SET I 17
	-0
	CLR
	0
	STA I 17
	XSK 17
	JMP .-2
	LDA I
	1
	ADM
	.-7
	XSK I 16
	JMP .-12
	CLR
	STC TSTM
	LDA I
	1
	ADM
	TRL
	LDA I
	CLR
	STC .+1		/FIGURE THIS ONE
NDSP,	0		/OUT, DICK...
	LDA I
	1
	ADM
	TSTM
	LDA I
	1
	ADM
	STM
	LDA I
	300		/LARGE PRINT
	ESF		/FAST SAM
	SET I 5
	-2
	CLR
	STC HOR
	STC VRTL
NEN,	SET I 17
	TX4+1777!4000
	SXL I 00	/FREE CH 00
	JMP EN
	LDA I
	207
	IOB
	TLS
	JMP DSP
	XSK I 5
	JMP NEN
	LDA I
	IOF
	STC .-6
	JMP NEN
EN,	LDA I
	TLS
	STC .-12
	LDF 6
	SET I 10	/BIN INDEX
	3777
	JMP EV		/HAS EVENT ?
	SET 4
	3762		/BINS AFTER
/SET UP CLOCK		/EVENT
	PDP
	PMODE
	CLA
	CLEN
	CLAB
	CLLR
	CLSA
	CLA
	TAD K100	/CLR CLCK CNTR
	CLLR		/CLEARS CLOCK
	CLA
	TAD TIME
	CIA
	CLAB		/SMPL RATE
	CLA
	TAD K304	/OF INTERRUPT
	CLEN		/CH 2 ENABLE
	CLA
	TAD K3100
	CLLR
	JMP .+5
K100,	100
TIME,	0
K304,	304
K3100,	3100
	LINC
	LMODE
/SET UP TO SAMPLE SENSE LINES
WAIT,	IOB
	CLSK
	JMP .-2
	SAM 10
	CLR
	IOB
	CLSA
	ROL 10
	APO
	JMP WAIT2
	LDA I
	3400
	SAE
	10
	JMP .+3
	SET I 10
	3777
	XSK I 10
	SAM 11
	LDF 0
	STA 10
	IOB
	CLSK
	SKP
	JMP WAIT+3
	SAM 12
	LDF 1
	STA 10
	IOB
	CLSK
	SKP
	JMP WAIT+3
	SAM 13
	LDF 2
	STA 10
	IOB
	CLSK
	SKP
	JMP WAIT+3
	SAM 14
	LDF 3
	STA 10
	IOB
	CLSK
	SKP
	JMP WAIT+3
	SAM 15
	LDF 4
	STA 10
	IOB
	CLSK
	SKP
	JMP WAIT+3
	SAM 10
	LDF 5
	STA 10
	IOB
	CLSK
	JMP WAIT
	JMP WAIT+3
/RESPONSE OCCURED
WAIT2,	IOB
	CLSK
	JMP .-2
W2,	SAM 10
	CLR
	IOB
	CLSA
	ROL 10
	APO
	STC RSP
BINS,	XSK I 4
	SKP
	JMP NSPL
	LDA I
	3400
	SAE 
	10
	JMP .+3
	SET I 10
	3777
	XSK I 10
	SAM 11
	LDF 0
	STA 10
	IOB
	CLSK
	SKP
	JMP W2
	SAM 12
	LDF 1
	STA 10
	IOB
	CLSK
	SKP
	JMP W2
	SAM 13
	LDF 2
	STA 10
	IOB
	CLSK
	SKP
	JMP W2
	SAM 14
	LDF 3
	STA 10
	IOB
	CLSK
	SKP
	JMP W2
	SAM 15
	LDF 4
	STA 10
	IOB
	CLSK
	SKP
	JMP W2
	SAM 10
	LDF 5
	STA 10
	IOB
	CLSK
	JMP WAIT2
	JMP W2
/THIS ROUTINE SORTS OUT INDICATED EPOCH
/AND INSERTS CORRECT SEGMNT SECTION
NSPL,	CLR
	JMP EV
	LDF 6
	SET I 7
	3765		/EPOCH FETCH
	SET I 6
	-6		/CHANNELS
	LDA I
	LDF 0
	STC DF
OMT,	LDF 6
	LDA I 7
	SAE I
	1
	JMP .+3
	LDA I
	-0
	SAE I
	2
	JMP .+3
	LDA I
	-1000
	SAE I
	3
	JMP .+3
	LDA I