*20
/USER MODIFICATION STARTS HERE
	DECIMAL
	NCHAN=4		/=NUM OF ANALOG
			/INPUTS
	POINTS=250	/=NUM OF POINTS
			/PER CHAN
	LNBUF=1000	/=POINTS*NCHAN
	BLKLEN=POINTS+POINTS+1
	JLIST=14+7+7+1	/=7 WORDS PER
			/JOB+EOL WORD
	CHLEN=NCHAN+NCHAN+1
			/2 WDS FOR EACH
			/CHAN+EOL
	CHLIST=LOCORE+JLIST-1
	ADBUF=CHLEN+CHLIST
			/BUFFER STARTS
			/AFT CH LIST
	*MEMTOT		/NUM OF ADD
	0		/4K STACKS
	HICORE-LOCORE-4
	/JOB LIST
        OCTAL
	*LOCORE
        0040		/0(1) CHAN(5)
			/1(1) CHORD(5)
        AVG		/TYPE(8)
        -POINTS		/-NUM OF DATA
			/POINTS IN BLK
	6201		/62N1=CDF N
			/=CDF 0 (N=0)
        ADCAL0=ADBUF+LNBUF
			/LOC-1 OF 1ST
			/POINT
        ADCAL0		/IS RIGHT AFTER
			/ADC BUFFER
	1002		/DELTAX(8)
			/YS(4)
	30		/X0(6),Y0(6)
	141
	AVG
	-POINTS
	6201		/62N1=CDF N
			/=CDF 0 (N=0)
	ADCAL1=ADCAL0+BLKLEN+1
	ADCAL1
	1002
	10
	242
	AVG
	-POINTS
	6201		/62N1=CDF N
			/=CDF 0 (N=0)
	ADCAL2=ADCAL1+BLKLEN+1
	ADCAL2
	1002
	70
	0343
	AVG
	-POINTS
	6201		/62N1=CDF N
			/=CDF 0 (N=0)
	ADCAL3=ADCAL2+BLKLEN+1
	ADCAL3
	1002
	50
	0		/END OF LIST
			/CHANNEL
			/DISPLAY LIST
	1002		/DELTAX(8)
			/YS(4)
	30		/X0(6),Y0(6)
	1002
	10
	1002
	70
	1002
	50
	0
	*ADCAL0+BLKLEN+1
	0
	*ADCAL1+BLKLEN+1
	0
	*ADCAL2+BLKLEN+1
	0
	*ADCAL3+BLKLEN+1
	0		/END OF BLOCK
/USER MODIFICATION ENDS HERE
	MEMTOT=20
	*ADJLIS
        LOCORE-1
	*ADCHNL
        CHLIST
	*SMASK		/SYNC ON
        0040		/CLOCK INPUT 1
	*ASI
        -1
	*KMODE
        1500		/KW12 CNTRL REG
			/400KHZ
			/MODE 101
        0260		/KW12 ENAB REG
			/SYNC ON
			/INPUT 1
	DECIMAL
	*SAMA
        -POINTS
	*NCHA
        NCHAN
	*ADBUFA
        ADBUF
	*0042
        -NCHAN		/-NO. OF CHANS
        -NCHAN		/-NO. OF CHANS
	*KBLA
        -LNBUF		/-POINTS*NCHAN
/PDP 12 SIGNAL AVERAGER
/25 MAR 70