*20
//PBLOCKI
/
/PARAMETER BLOCK ASSIGNMENTS.
/SAME ASSIGNMENTS AS PBLOCK EXCEPT THAT
/"P" PARAMETER LOCATIONS ARE GIVEN AS
/INSTRUCTION FIELD ADRESSES INSTEAD OF
/DATA FIELD.
/
	P0=1400		/DATA TYPE
	P1=1401		/CURRENT CHAN.
	P2=1402		/CURRENT CHAN.
	P3=1403		/DATA CHAN.
	P4=1404		/DATA CHAN.
	P5=1405		/CONTINGENCY CH
	P6=1406		/CONTINGENCY CH
	P7=1407		/TRUE CONTING.
	P10=1410	/FALSE CONTING.
	P11=1411	/CONTING. WIDTH
	P12=1412	/TRUE CONTING.
	P13=1413	/FALSE CONTING.
	P14=1414	/CONTING. WIDTH
	P15=1415	/CHAN INVERSION
	P16=1416	/CHAN INVERSION
	P17=1417	/NO.SAMP IN SEG
	P20=1420	/NO.SEG IN ENSM
	P21=1421	/NO. ENSEMBLES
	P22=1422	/
	P23=1423	/BASELINE PNTS
	P24=1424	/TAPE DELAY
	P25=1425	/ENSEMBL DELAY
	P26=1426	/CLOCK RATE
	P27=1427	/CLOCK TICS
	P30=1430
	P31=1431
	P32=1432
	P33=1433
	P34=1434
	P35=1435
	P36=1436
	P37=1437	/TAPE SPEED UP
	P40=1440	/TAPE SPEED UP
	P41=1441	/TAPE SPEED UP
/
/FLOATING POINT VARIABLES
/
/
	P42=1442	/MULT FACTOR
	P43=1445	/UV PER VOLT
	P44=1450	/SEG. LENGTH
	P45=1453	/TEMP
	P46=1456	/BASELINE DELAY
	P47=1461	/CONTING WIDTH
	P50=1464	/BNDA1 MIN
	P51=1467	/BNDA1 MAX
	P52=1472	/BNDA2 MIN
	P53=1475	/BNDA2 MAX
	P54=1500	/BNDA3 MIN
	P55=1503	/BNDA3 MAX
	P56=1506	/BNDA4 MIN
	P57=1511	/BNDA4 MAX
	P60=1514	/BNDA5 MIN
	P61=1517	/BNDA5 MAX
	P62=1522	/BNDB1 MIN
	P63=1525	/BNDB1 MAX
	P64=1530	/BNDB2 MIN
	P65=1533	/BNDB2 MAX
	P66=1536	/BNDB3 MIN
	P67=1541	/BNDB3 MAX
	P70=1544	/BNDB4 MIN
	P71=1547	/BNDB4 MAX
	P72=1552	/BNDB5 MIN
	P73=1555	/BNDB5 MAX
	P74=1560	/PF MIN
	P75=1563	/PF MAX
	P76=1566	/TEMP
	P77=1571	/TRUE VOLTS
	P100=1574	/FALSE VOLTS
	P101=1577	/TEMP
	P102=1602	/V RMS
	P103=1605	/VRMS VAR
/
/FROM NOW ON DESCRIPTION IS FOUND OVER
/THE DEFINED VARIABLE.
/
/AX,A1,A1CNT
	P104=1610
/AXVAR,A1VAR,A1CNTVAR
	P105=1613
/AY,A2,A1INT
	P106=1616
/AYVAR,A2VAR,A1INTVAR
	P107=1621
/BX,A3,A1MN
	P110=1624
/BXVAR,A3VAR,A1MNVAR
	P111=1627
/BY,A4,A2CNT
	P112=1632
/BYVAR,A4VAR,A2CNTVAR
	P113=1635
/CX,A5,A2INT
	P114=1640
/CXVAR,A5VAR,A2INTVAR
	P115=1643
/CY,B1,A2MN
	P116=1646
/CYVAR,B1VAR,A2MNVAR
	P117=1651
/DX,B2,A3CNT
	P120=1654
/DXVAR,B2VAR,A3CNTVAR
	P121=1657
/DY,B3,A3INT
	P122=1662
/DYVAR,B3VAR,A3INTVAR
	P123=1665
/EX,B4,A3MN
	P124=1670
/EXVAR,B4VAR,A3MNVAR
	P125=1673
/EY,B5,A4CNT
	P126=1676
/EYVAR,B5VAR,A4CNTVAR
	P127=1701
/FX,PF,A4INT
	P130=1704
/FXVAR,PFVAR,A4INTVAR
	P131=1707
/FY,DC,A4MN
	P132=1712
/FYVAR,DCVAR,A4MNVAR
	P133=1715
/GX,GX,A5CNT
	P134=1720
/GXVAR,GXVAR,A5CNTVAR
	P135=1723
/GY,GY,A5INT
	P136=1726
/GYVAR,GYVAR,A5INTVAR
	P137=1731
/HX,HX,A5MN
	P140=1734
/HXVAR,HXVAR,A5MNVAR
	P141=1737
/HY,HY,B1CNT
	P142=1742
/HYVAR,HYVAR,B1CNTVAR
	P143=1745
/IX,IX,B1INT
	P144=1750
/IXVAR,IXVAR,B1INTVAR
	P145=1753
/IY,IY,B1MN
	P146=1756
/IYVAR,IYVAR,B1MNVAR
	P147=1761
/JX,JX,PF
	P150=1764
/JXVAR,JXVAR,PFVAR
	P151=1767
/JY,JY,DC
	P152=1772
/JYVAR,JYVAR,DCVAR
	P153=1775
/
/
/COMMAND DECODER ASSIGNMENTS
/
/
	STOP=JMP 20
	SCAN=JMP 21
	STRSCN=JMP 21
	INUNIT=JMP 22
	STORIT=JMP 23
	GETFIL=JMP 24
	GETFST=JMP 24
	GETNAM=JMP 25
	GETNXT=JMP 25
	DIRINI=JMP 26
	DIRLST=JMP 27
	ASSIGN=JMP 30
	DEASS=JMP 31
	OUTUNIT=JMP 32
	LODBLK=JMP 33
	RUNBLK=JMP 34
	FIND=JMP 35
	CALL=JMP 37
	UNCALL=JMP 40
	RUNPRG=JMP 41
	INTRACT=JMP 42
	MESOUT=JMP 43
	DISK=JMP 44
	TABSET=JMP 45
	TABTYP=JMP 46
	MISSNG=JMP 47
	TABGET=JMP 50
	TABPUT=JMP 51
	TABZER=JMP 52
	MAKDIL=JMP 53
	TABINI=JMP 54
	MGETNAM=JMP 55
	MGETFIL=JMP 56
	MSTORIT=JMP 57
/COMMAND LOCATIONS.
	FILNAM=2320
	WORD1=2323
	WORD2=2324
	INBUF=2325
/COMMAND NUMBERS.
	YES=17
	NO=20
	SAMPL=21
	TABLE=22
	GO=23
	NEXT=24
	CU=25
	CONT=26
	ALL=27
	AVG=30
	A=31
	B=32
	C=33
	D=34
	E=35
	F=36
	G=37
	H=40
	II=41
	J=42
	PLOT=43
	PRINT=44
	T=45
/
/EXEC3 ASSIGNMENTS
/
	OPR=500
	IOF=6002
	ION=6001
	EXC=1710
	REXC=540
	RLSW=514
	RRSW=515
	IOCALL=511
	AWAKE=501
	QUIT=505
	PAUSE=507
	IOCLR=502
	SETCON=510
	SETCLK=503
	PLINE=524
	READ=512
	WRITE=532
	SETDSK=513
	 
/DEVICE ASSIGNMENTS
/
	KBD=13
	TLP=4
	LPT=24
	BPLT=30
	PLT=25
	CLK=2
	SCOPE=26
/FLOATING POINT DEFINITIONS.
/
	FAC=0
	STARTE=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
	STARTF=760
	FCOMP=761
	FZER=762
	FAPO=763
	FAZE=764
	RECIP=765
	NEXTIN=766
	SETIN=767
	SETOUT=770
	OUTBUF=771
	PACFAC=772
	SACFAC=773
	FACAC=774
	UNFIX=775
/
	SAVSYM 2
/
/PBLOCKI
/JUNE 73