*20
	/// VIEWPRNT
/PRINT COMMAND OUTPUT
/FROM VIEW
/
/BLOCKS 45,46
/
	SEGMNT 5
	*400
/
	LDA
	0
	STC TBXX
	IOB 12
	2046
/
	JMP TNAM
	LDF 7
	SFLOAT
	2\P20
	SQRT
	FAC
	STORE
	TEM1
	LDA
	2\P0
	BCL I
	7757
	AZE
	JMP TTPRT
	LDA
	2\P0
	ROR 1
	APO
	JMP TFR
/
/GOT AN EEG TO TYPE
/
	SET I 7
	-26
	SET I 2
	2\P102-6
/
TYPEEG,	IOB 11
	4124
	212
	5
	EHEAD1
	JMP .-5
/
	IOB 1
	24
	.+3
	JMP .-3
	IOB 5
/
TYPEC,	XSK I 7
	SKP
	JMP TABLEX
/
	LDF 7
	LDA
TWO,	2
	ADD SIX
	STC 2
	ADD TWO
	ADM I
KNUM,	-1
	LDA 2
	SAE I
	3777
	SKP
	JMP TYPEC
/
	SETWRD
	400
	SFLOAT
	KNUM
	OUTPUT
	EHEAD1
	SETWRD
	1444
	LDA
	2
	STC .+2
	LOAD
	0
	OUTPUT
	EHEAD1+2
	LDA
	2
	ADD THRE
	STC 6
	LDA 6
	SAE I
	3777
	SKP
	JMP SPACE
	LDA
	6
	STC .+2
	LOAD
	0
	OUTPUT
	EHEAD1+10
	SQRT
	FAC
	OUTPUT
	EHEAD1+16
	FDIV
	TEM1
	OUTPUT
	EHEAD1+24
	JMP TYPEEG
/
SPACE,	LDA I
	4543
	STC EHEAD1+10
	JMP TYPEEG
/
/EXIT HERE
/
TABLEX,	IOB 11
	7724
	-1
	5
	214
	JMP .-5
	IOB 12
	2042
TBXX,	JMP
	EJECT
/
/FOURIER OR PERIOD
/PRINTOUT
/
TFR,	LDF 7
	LDA
	2\P0
	BCL I
	7477
	AZE
	JMP .+7
/FOURIER
	LDA I
	2\P130
	STC PDIV
	SET I 1
	7777
	JMP .+6
	LDA I
	2\P150
	STC PDIV
	SET I 1
	0
/
	SET I 7
	-26
	SET I 2
	2\P102-6
/
TYPFOR,	IOB 11
	4124
	212
	5
	EHEAD2
	JMP .-5
/
	IOB 1
	24
	.+3
	JMP .-3
	IOB 5
/
TYPFC,	XSK I 7
	SKP
	JMP TABLEX
/
	LDF 7
	LDA
	2
	ADD SIX
	STC 2
	ADD TWO
	ADM
	KNUM
	LDA 2
	SAE I
	3777
	SKP
	JMP TYPFC
	SETWRD
	400
	SFLOAT
	KNUM
	OUTPUT
	EHEAD2
	SETWRD
	1444
	LDA
	2
	STA
	.+7
	STC .+2
	LOAD
	0
	OUTPUT
	EHEAD2+2
	LOAD
	0
	FDIV
PDIV,	0
	FMUL
	FHUN
/
/TEST FOR PERCENT PRINTING
/
	XSK 1
	JMP PTST1
/PRINTING FOURIER
	LDA
	KNUM
	ADA I
	-30
	APO 
	JMP PPERCT
	SAE I 
	3
	SKP
	JMP PPERCT
	SAE I
	7
	SKP
	JMP PPERCT
	SAE I
	13
	SKP
	JMP PPERCT
	SAE I
	17
	JMP PSPC
	JMP PPERCT
/PRINTING PERIOD
PTST1,	LDA
	KNUM
	SAE I
	3
	SKP
	JMP PPERCT
	SAE I
	11
	SKP
	JMP PPERCT
	SAE I
	17
	SKP
	JMP PPERCT
	SAE I
	25
	SKP
	JMP PPERCT
	SAE I
	33
	SKP
	JMP PPERCT
	SAE I
	41
	SKP
	JMP PPERCT
	SAE I
	47
	SKP
	JMP PPERCT
/PRINT SPACES
PSPC,	LDA I
	4040
	STA
	EHEAD2+10
	STA
	EHEAD2+11
	STA
	EHEAD2+12
	STA
	EHEAD2+13
	STA
	EHEAD2+14
	STA
	EHEAD2+15
	JMP .+3
PPERCT,	OUTPUT
	EHEAD2+10
/
	LDA
	2
	ADD THRE
	STC 6
	LDA 6
	SAE I
	3777
	SKP
	JMP SPACF
	LDA
	6
	STC .+2
	LOAD
	0
	OUTPUT
	EHEAD2+16
	SQRT
	FAC
	OUTPUT
	EHEAD2+24
	FDIV
	TEM1
	OUTPUT
	EHEAD2+32
	JMP TYPFOR
/
SPACF,	LDA I
	4543
	STC EHEAD2+16
	JMP TYPFOR
SIX,	6
THRE,	3
ONE,	1
FHUN,	7
	3100
	0
/
/
/NAME,TYPE,N
/
/
TNAM,	LDA
	0
	STC TNAMX
/
	LDF 4
	LDA
	FILNAM
	STC NAMT
	LDA
	FILNAM+1
	STC TEM
	STC TEM+1
	DFLOAT
	TEM
	SETWRD
	400
	OUTPUT
	NAMT+1
/
	LDF 7
	SFLOAT
	2\P0
	OUTPUT
	TYPE+3
	SFLOAT
	2\P20
	OUTPUT
	NBUF+1
/
/
	IOB 11
	4124
	212
	5
	NAMT
	JMP .-5
/
	IOB 1
	24
	TNAMX
	JMP .-3
	IOB 5
/
TNAMX,	JMP
	EJECT
/PRINT TTEST
/
TTPRT,	SET I 7
	-26
	SET I 2
	2\P102
/
TYPTT,	IOB 11
	4124
	212
	5
	EHEAD3
	JMP .-5
	IOB 1
	24
	.+3
	JMP .-3
	IOB 5
/
TYPTC,	XSK I 7
	SKP
	JMP TABLEX
/
	LDF 7
	LDA I
	2
	ADM
	KNUM
	LDA 2
	SAE I
	3777
	SKP
	JMP TYPTC
	SETWRD
	400
	SFLOAT
	KNUM
	OUTPUT
	EHEAD3
	SETWRD
	1444
	LOAD
	4\2
	OUTPUT
	EHEAD3+2
	LDA 2
	SAE I
	3777
	SKP
	JMP ENDT
	LOAD
	4\2
	OUTPUT
	EHEAD3+10
	JMP TYPTT
/
ENDT,	LOAD
	4\2
	LDA I
	4543
	STC EHEAD3+10
	JMP TYPTT
	EJECT
/BUFFERS
/
EHEAD1,	4013
	0531
/VALUE
	4040
	4040
	4040
	2601
	1425
	0540
/VARIANCE
	4040
	4026
	0122
	1101
	1603
	0540
/STD. DEV.
	4040
	4023
	2404
	5640
	0405
	2656
/STD. ERR.
	4040
	4023
	2404
	5605
	2222
	5640
/
	4543
/
EHEAD2,	4013
	0531
/VALUE
	4040
	4040
	4040
	2601
	1425
	0540
/PERCENT
	4040
	4040
	2005
	2203
	0516
	2440
/VARIANCE
	4040
	4026
	0122
	1101
	1603
	0540
/STD. DEV.
	4040
	4023
	2404
	5640
	0405
	2656
/STD. ERR.
	4040
	4023
	2404
	5605
	2222
	5640
/
	4543
/
EHEAD3,	4013
	0531
/TVALUE
	4040
	4040
	4040
	2426
	0114
	2505
/FVALUE
	4040
	4040
	4040
	0626
	0114
	2505
/
	4543
/
NAMT,	0
	0
	0
	4040
TYPE,	2431
	2005
	4040
	0
	0
	4040
NBUF,	1675
	4040
	4040
	4543
/
/
TEM,	*.+2
TEM1,	*.+3
	/// PBLOCK
/
/PBLOCK
/
/DEFINITIONS FOR PARAMETER
/BLOCK AND LINKS TO
/THE COMMAND DECODER
/IN BANK 4
/
/IN BLOCKS 70,77
/COMMAND LOCATIONS
/
	STOPIT=JMP 20
	STRSCN=JMP 21
	SCANX=JMP 22
	STORIT=JMP 23
	GETFST=JMP 24
	GETNXT=JMP 25
	GETINI=JMP 26
	DOLIST=JMP 27
	DOASSG=JMP 30
	DODEAS=JMP 31
	DOTEXT=JMP 32
	DOLOAD=JMP 33
	DOCHAN=JMP 34
	DOFIND=JMP 35
	ENDCOM=JMP 36
	CALL=JMP 37
	UNCALL=JMP 40
	OLAY=JMP 41
	INTRACT=JMP 42
	MESOUT=JMP 43
	DODISK=JMP 44
/
	FILNAM=2320
	WORD1=2323
	WORD2=2324
	INBUF=2325
	CURPTR=2002
	OLDPTR=2001
	TBUF=3400
/
/COMMAND NUMBERS
/
	RUN=0
	CREATE=2
	STORE=3
	GET=4
	DELETE=5
	STOP=6
	DEASS=10
	ASSIGN=11
	PARAM=12
	VIEW=13
	COMFIL=14
	FOCAL=15
	MOVE=16
	YES=17
	NO=20
	SAMPL=21
	TABLE=22
	GO=23
	NEXT=24
	CURSOR=25
	CONT=26
	ALL=27
	AVG=30
	A=31
	B=32
	C=33
	D=34
	E=35
	F=36
	G=37
	H=40
	I=41
	J=42
	PLOT=43
	PRINT=44
/
	EJECT
/
	SEGMNT 7
	*1400
/
/PARAMETERS
/
P0,	0 	/DATA TYPE
P1,	0 	/CURRENT CHANNELS
P2,	0 	/CURRENT CHANNELS
P3,	0 	/DATA CHANNELS
P4,	0 	/DATA CHANNELS
P5,	0 	/CONTINGENCY CHANNELS
P6,	0 	/CONTINGENCY CHANNELS
P7,	0 	/TRUE CONTINGENCY
P10,	0 	/FALSE CONTINGENCY
P11,	0 	/CONTINGENCY WIDTH
P12,	0 	/TRUE CONTINGENCY
P13,	0 	/FALSE CONTINGENCY
P14,	0 	/CONTINGENCY WIDTH
P15,	0 	/CHANNEL INVERSION
P16,	0 	/CHANNEL INVERSION
P17,	0 	/ SAMPLES IN SEGMENT
P20,	0 	/  SEGMENTS IN ENSEMBLE
P21,	0 	/ ENSEMBLES
P22,	0
P23,	0 	/BASELINE POINTS
P24,	0 	/TAPE DELAY
P25,	0 	/ENSEMBLE DELAY
P26,	0 	/CLOCK RATE
P27,	0 	/CLOCK TICKS
P30,	0
P31,	0
P32,	0
P33,	0
P34,	0
P35,	0
P36,	0
P37,	0 	/TAPE SPEEDUP
P40,	0 	/TAPE SPEEDUP
P41,	0 	/TAPE SPEEDUP
/
/
/FLOATING POINT VARIABLES
/
/
P42,	*.+3 	/MULTIPLICATION FACTOR
P43,	*.+3 	/MICROVOLTS PER VOLT
P44,	*.+3 	/SEGMENT LENGTH
P45,	*.+3 	/TEMP
P46,	*.+3 	/BASELINE DELAY
P47,	*.+3 	/CONTINGENCY WIDTH
P50,	*.+3 	/BNDA1 MIN
P51,	*.+3 	/BNDA1 MAX
P52,	*.+3 	/BNDA2 MIN
P53,	*.+3 	/BNDA2 MAX
P54,	*.+3 	/BNDA3 MIN
P55,	*.+3 	/BNDA3 MAX
P56,	*.+3 	/BNDA4 MIN
P57,	*.+3 	/BNDA4 MAX
P60,	*.+3 	/BNDA5 MIN
P61,	*.+3 	/BNDA5 MAX
P62,	*.+3 	/BNDB1 MIN
P63,	*.+3 	/BNDB1 MAX
P64,	*.+3 	/BNDB2 MIN
P65,	*.+3 	/BNDB2 MAX
P66,	*.+3 	/BNDB3 MIN
P67,	*.+3 	/BNDB3 MAX
P70,	*.+3 	/BNDB4 MIN
P71,	*.+3 	/BNDB4 MAX
P72,	*.+3 	/BNDB5 MIN
P73,	*.+3 	/BNDB5 MAX
P74,	*.+3 	/PF MIN
P75,	*.+3 	/PF MAX
P76,	*.+3 	/TEMP
P77,	*.+3 	/TRUE VOLTS
P100,	*.+3 	/FALSE VOLTS
P101,	*.+3 	/TEMP
P102,	*.+3 	/VRMS
P103,	*.+3 	/VRMS VAR
P104,	*.+3 	/AX,A1,A1CNT
P105,	*.+3 	/AXVAR,A1VAR,A1CNTVAR
P106,	*.+3 	/AY,A2,A1INT
P107,	*.+3 	/AYVAR,A2VAR,A1INTVAR
P110,	*.+3 	/BX,A3,A1MN
P111,	*.+3 	/BXVAR,A3VAR,A1MNVAR
P112,	*.+3 	/BY,A4,A2CNT
P113,	*.+3 	/BYVAR,A4VAR,A2CNTVAR
P114,	*.+3 	/CX,A5,A2INT
P115,	*.+3 	/CXVAR,A5VAR,A2INTVAR
P116,	*.+3 	/CY,B1,A2MN
P117,	*.+3 	/CYVAR,B1VAR,A2MNVAR
P120,	*.+3 	/DX,B2,A3CNT
P121,	*.+3 	/DXVAR,B2VAR,A3CNTVAR
P122,	*.+3 	/DY,B3,A3INT
P123,	*.+3 	/DYVAR,B3VAR,A3INTVAR
P124,	*.+3 	/EX,B4,A3MN
P125,	*.+3 	/EXVAR,B4VAR,A3MNVAR
P126,	*.+3 	/EY,B5,A4CNT
P127,	*.+3 	/EYVAR,B5VAR,A4CNTVAR
P130,	*.+3 	/FX,PF,A4INT
P131,	*.+3 	/FXVAR,PFVAR,A4INTVAR
P132,	*.+3 	/FY,DC,A4MN
P133,	*.+3 	/FYVAR,DCVAR,A4MNVAR
P134,	*.+3 	/GX,GX,A5CNT
P135,	*.+3 	/GXVAR,GXVAR,A5CNTVAR
P136,	*.+3 	/GY,GY,A5INT
P137,	*.+3 	/GYVAR,GYVAR,A5INTVAR
P140,	*.+3 	/HX,HX,A5MN
P141,	*.+3 	/HXVAR,HXVAR,A5MNVAR
P142,	*.+3 	/HY,HY,B1CNT
P143,	*.+3 	/HYVAR,HYVAR,B1CNTVAR
P144,	*.+3 	/IX,IX,B1INT
P145,	*.+3 	/IXVAR,IXVAR,B1INTVAR
P146,	*.+3 	/IY,IY,B1MN
P147,	*.+3 	/IYVAR,IYVAR,B1MNVAR
P150,	*.+3 	/JX,JX,PF
P151,	*.+3 	/JXVAR,JXVAR,PFVAR
P152,	*.+3 	/JY,JY,DC
P153,	*.+3 	/JYVAR,JYVAR,DCVAR
	EJECT
/FP TAGS
/
	FAC=0
	FCOMP=740
	FSUB=741
	FMUL=742
	FDIV=743
	LOAD=744
	STORE=745
	SETWRD=746
	INPUT=747
	OUTPUT=750
	ISTOR1=751
	SQRT=752
	DFLOAT=753
	SFLOAT=754
	FIX=755
	FADD=756
	ISTOR2=757
	FCOMP=761
	FZER=762
	FAPO=763
	FAZE=764
	RECIP=765
/
/VIEWPRNT