Google
 
Trailing-Edge - PDP-10 Archives - ap-c800d-sb - comuni.unv
There are 15 other files named comuni.unv in the archive. Click here to see a list.
x
,@P E'P E2\I@ v 5`
	IFNB	<vPA>,<A::>
	BLOCK	B
:>
	BLOCK!6.1E2\I[ w0Fp
	IFNB	<w`A>,<A::>
	IFN	xB,<IFB	<C>,<BLOCx K	B>
		    IFNBx@	<C>,<REPEAT	B,x`<
					C>>
		>
				C>>
		>!771G>l: `!
	IFG	A-COMSIZ,<
	XXX.== A-COMSIZ
  DEFI@NE PEXCS(OVRFLO),`<
	PRINTX	?COMSIZ EXCEEDED BY 'OV RFLO (OCTAL) WORD@S - REGENERATE TH`E COMPILER
>
	PEXCS(\XXX.)
> ;END IFG A-COMSIZ
IFG A-COMSIG>n:=P pI
n0P I'   B
	ADR==HI@.PUR	
	DEFINE	DI`SEL%	(N%)	<
	N%=:ADR		
	ADR==ADR +1
	>
	DEFINE	D@STBL%	(NAM,IR)	<D`ISEL%	(NAM)>

	DISTB%				

	PU RGE	DISEL%,DSTBL%,ADR
L%,DSTBL%I'HB A$

	DISELA %	C.RSET
	DISEL%A@	STOPR.
	DISEL%	A`C.STOP
	DISEL%	KBILL.
	DISEL%	GOTB O.
	DISEL%	TODAYB@.
	DISEL%	KDECL.B`
	DISEL%	KPROG.
	DISEL%	DSP.FP
C 	DISEL%	LINE.C
	C@DISEL%	LINE.D
	DC`ISEL%	LINE.H
	DIDSEL%	LIN.RH
	DISD EL%	CANCL.
IFN AD@NS74,<
	DISEL%	SD`.CALL
>
	DISEL%E	M.INIT
	DISEL%	E M.RMW
	DISEL%	M.E@RSW
	DISEL%	M.RME`NW
	DISEL%	M.RSNFW
	DISEL%	M.SENDF 
	DISEL%	M.AC
	F@DISEL%	M.IFM
	DIF`SEL%	M.DI
	DISELG%	M.DIT
	DISEL%	G M.DO
	DISEL%	M.EG@I
	DISEL%	M.EIT
	DISEL%	M.EO
	DHISEL%	STR.
	DISEH L%	STR.O
	DISEL%H@	UNS.
	DISEL%	UNH`S.O
	DISEL%	FUNCIT.
	DISEL%	FIX.
	DISEL%	PERF.
	I@DISEL%	FLOT.1
	DI`ISEL%	FLOT.2
	DIJSEL%	PD6.
	DISELJ %	PD7.
	DISEL%	GJ@D6.
	DISEL%	GD7.J`
	DISEL%	NEG.
	KDISEL%	MAG.
	DISK EL%	ADD.12
	DISEK@L%	ADD.21
	DISELK`%	ADD.22
	DISEL%L	SUB.12
	DISEL%	L SUB.21
	DISEL%	SL@UB.22
	DISEL%	MUL`L.12
	DISEL%	MULM.21
	DISEL%	MUL.M 22
	DISEL%	DIV.1M@1
	DISEL%	DIV.12M`
	DISEL%	DIV.21
	DISEL%	DIV.22
N 	DISEL%	C.OPEN
	N@DISEL%	C.CLOS
	DN`ISEL%	DSPLY.
	DIOSEL%	ACEPT.
	DISO EL%	READ.
	DISELO@%	WRITE.
	DISEL%O`	WADV.
IFN ANS68P,<DISEL%	SEEK.>
P IFN ANS74,<DISEL%P@	RDNXT.>
	DISEL%P`	DELET.
	DISEL%	QRERIT.
	DISEL%	PQ URGE.
	DISEL%	INQ@IT.
	DISEL%	TERMQ`.
	DISEL%	COMP.
	DISEL%	CMP.76
R 	DISEL%	SPAC.6
	R@DISEL%	NUM.6
	DIR`SEL%	ALF.6
	DISESL%	ZERO.6
	DISELS %	POS.6
	DISEL%	S@NEG.6
	DISEL%	SPS`AC.7
	DISEL%	NUMT.7
	DISEL%	ALF.7T 
	DISEL%	ZERO.7
	DISEL%	POS.7
	T`DISEL%	NEG.7
	DIUSEL%	COMP.D
	DISU EL%	DBMS.
	DISELU@%	MOVE.
	DISEL%	U`LFENQ.
	DISEL%	LVRENQ.
	DISEL%	LRV DEQ.
	DISEL%	C.DV@6D7
	DISEL%	C.D7V`D6
	DISEL%	CMP.EW
	DISEL%	CMP.G
W 	DISEL%	CMP.GE
	W@DISEL%	CMP.L
	DIW`SEL%	CMP.LE
	DISXEL%	CMP.N
	DISELX %	EDIT.S
	DISEL%X@	EDIT.U
IFN ANS6X`8,<
	DISEL%	EXAMY.
>
IFN ANS74,<Y 
	DISEL%	INSP.
Y@>
	DISEL%	SUBSC.Y`
	DISEL%	SIZE.1
	DISEL%	SIZE.2
Z 	DISEL%	SIZE.3
	Z@DISEL%	E.C3C1
	DZ`ISEL%	E.C3C3
	DI[SEL%	OVLAY.
	DIS[ EL%	C.EXIT
	DISE[@L%	ARGS.
	DISEL%[`	PUTF.
	DISEL%	R\ESF.
	DISEL%	GET\ NM.
	DISEL%	ILLC\@.
	DISEL%	C.D6D9\`
	DISEL%	C.D7D9
	DISEL%	C.D9D6
] 	DISEL%	C.D9D7
	]@DISEL%	PC3.
	DIS]`EL%	PD9.
	DISEL%^	GC3.
	DISEL%	GD^ 9.
	DISEL%	POS.9^@
	DISEL%	NEG.9
^`	DISEL%	ZERO.9
	_DISEL%	ALF.9
	DI_ SEL%	NUM.9
	DISE_@L%	ALF.9
	DISEL%_`	SPAC.9
	DISEL%	`CMP.96
	DISEL%	C` MP.97
	DISEL%	ED`@IT.B
	DISEL%	RST``AB.
	DISEL%	ZERCa.6
	DISEL%	ZERC.a 7
	DISEL%	ZERC.9a@
IFN ANS74,<
	Da`ISEL%	C.STRT
	DIbSEL%	DATE.
	DISEb L%	DAY.
	DISEL%	b@TIME.
>

	DSTBb`L%	USRTB.,15

c

	DISEL%	DSPL.6c 
	DISEL%	DSPL.7

	DISEL%	SUBE1.c`
	DISEL%	SUBE2.
	DISEL%	SUBE3.
d 	DISEL%	EXIT.E
Id@FN BIS,<
	DISEL%d`	XTND.E
	DISEL%	eALP.66
	DISEL%	Ae LP.67
	DISEL%	ALe@P.69
	DISEL%	ALPe`.76
	DISEL%	ALP.f77
	DISEL%	ALP.7f 9
	DISEL%	ALP.96f@
	DISEL%	ALP.97
	DISEL%	ALP.99
g	DISEL%	ALPS.6
	g DISEL%	ALPS.7
	Dg@ISEL%	ALPS.9
	DIg`SEL%	NUM.66
	DIShEL%	NUM.67
	DISEh L%	NUM.69
	DISELh@%	NUM.76
	DISEL%h`	NUM.77
	DISEL%	iNUM.79
	DISEL%	Ni UM.96
	DISEL%	NUi@M.97
	DISEL%	NUMi`.99
	DISEL%	CVTDjB.
	DISEL%	CBDOVj .
	DISEL%	CVBD.6j@
	DISEL%	CVBD.7
	DISEL%	CVBD.9
k	DISEL%	MUL.41
	k DISEL%	MUL.42
	Dk@ISEL%	DIV.41
	DIk`SEL%	DIV.42
	DISlEL%	DVI41.
	DISEl L%	DVI42.
>;END l@IFN BIS
	DISEL%	l`KEY.
IFN TOPS20,m<
	DISEL%	PSORT.m 
	DISEL%	PMERG.
	DISEL%	RELES.
m`	DISEL%	MERGE.
	nDISEL%	MCLOS.
	Dn ISEL%	RETRN.
	DIn@SEL%	ENDS.
>

n`
IFN BIS,<
	DISoEL%	ADD.4R
>;ENDo  IFN BIS
IFN TCSo@,<
	DISEL%	MBINDo`
	DISEL%	MNAME
p>
	DISEL%	MVD.ALp 
	DISEL%	NUM.3
p@	DISEL%	WADVV.
	p`DISEL%	WRITV.

q
	DISEL%	METER.
IFN BIS,<			;[55q@4] QUAD-WORD SIZEq` ERROR ROUTINES
r	DISEL%	SIZE.4
	r DISEL%	SIZE.5
>;r@END IFN BIS			;[5r`54]
	DISEL%	FLT.s12
	DISEL%	FLT.2s 2
	DISEL%	FIX.2
	DISEL%	E.F2D1
s`	DISEL%	E.F2D2
	tDISEL%	E.F2FP
	Dt ISEL%	E.F2F2
	DIt@SEL%	PPOT4.
	DISEL%	ISBPS.

SM'Em6Pb	Q$u|SP$Q$v
	
	DEFI NE	SYMH%%	(N%,V)	@<N%==:0>	
	DEFIN`E	SYML%%	(N%,V)	<SYM%%	N%,V>	
	DE FINE	ELMT%%	(N%,L@<1>,V)	<BLKDFV	N%`,L,<V>>	

	RELOC	0
	CHK==.

	 %LOSEG

	COMCHK@	.-CHK		

	PURG`E	SYML%%,SYMH%%,ELMT%%
SYMH%%,ES:4*b Kp
	ELMT%%	LFILES.
	ELMT%%	UL0SES.
	ELMT%%	SEGLPWD.
	ELMT%%	ALTELpR.
	ELMT%%	OVRFNM.
	ELMT%%	POINT.M0
	ELMT%%	COMMA.
	ELMT%%	MONEY.
Mp	ELMT%%	MEMRY.
	NELMT%%	%NM.
	ELMN0T%%	%DT.
	ELMT%%NP	%PR.
	ELMT%%	CONpBVR.
	ELMT%%	COBOSW.
	ELMT%%	PUSHO0L.
	ELMT%%	SURRTOP.
	ELMT%%	SUEQT.Op
	ELMT%%	SUFBT.
ELMT%%	SUFBT.
	INC==0		
	DEFINE	ELMT%% 	(N%,L<1>,V)	<
	@IFNB	<N%>,<%'N%==`:INC>
	INC==INC+1
	>
	INFBK%
 
	PURGE	ELMT%%,INC

	ELMT%%,INY&$ y`
	ELMT%%	zUEBLK.,4
	ELMT%%z 	ULBLK.,4
	ELMT%z@%	TTOBP.,1
	ELMTz`%%	TTOBC.,1
	ELM{T%%	TTOBF.,^D27
{ 	ELMT%%	STDLB.,16{@

	ELMT%%	RRFLG{`.,1
	ELMT%%	REDM|P.,1
	ELMT%%	SHR| DX.,1
	ELMT%%	TE|@MP.,1
	ELMT%%	TE|`MP.1,1
	ELMT%%	J}SARR.,1
	ELMT%%	} TEMP.2,1
	ELMT%%}@	AINFO.,1
	ELMT%}`%	OVRBF.,3
	ELMT~%%	FLDCT.,1
	ELM~ T%%	OVRIX.,1
	EL~@MT%%	NOCR.,1
	EL~`MT%%	PRGFLG,1
	ELMT%%	TTYOPN,1
 
	ELMT%%	ACSAV0,1@7
	ELMT%%	MXIE,1`
	ELMT%%	IESAVE,1
	ELMT%%	MXBUF, 1
	ELMT%%	AUXBUF@,1
	ELMT%%	AUXIO`W,1
	ELMT%%	AUXBNO,1
	ELMT%%	CMD LST,2
	ELMT%%	NE@WBK1,1
	ELMT%%	N`EWBK2,1
	ELMT%%	OLDBK,1
	ELMT%%	 MXBF,1
	ELMT%%	D@RTAB,1
	ELMT%%	L`RWA,1
	ELMT%%	CORPT.,1
	ELMT%%	H LOTC.,1
	ELMT%%	@OTCPT.,1
	ELMT%%`	RUN.TM,1

	ELMT%%	CB.DDT,1
	EL MT%%	SBPSA.,1
	E@LMT%%	%F.PTR,1
`
	ELMT%%	INTBLK,4


	ELMT%%	FS. ZRO,1
	ELMT%%	FS@.FS,1
	ELMT%%	FS`.EN,1
	ELMT%%	FS.BN,1
	ELMT%%	FS .RN,1
	ELMT%%	FS@.UPD,1
	ELMT%%	F`S.IGE,1
	ELMT%%	FS.IF,1
	ELMT%%	 FS.IEC,1


	EL@MT%%	FOP.BK,1
	E`LMT%%	FOP.IS,1
	ELMT%%	FOP.DN,1
@	ELMT%%	FOP.BH,1
	ELMT%%	FOP.BN,1`
	ELMT%%	FOP.LB,	1
	ELMT%%	FOP.PP	 ,1


	ELMT%%	C	@P.BLK,1
	ELMT%%		`CP.BK1,1
	ELMT%%
	CP.BK2,1
	ELMT%
 %	CP.BK3,1
	ELMT
@%%	CP.BK4,1
	ELM
`T%%	CP.BK5,1
	ELMT%%	CP.BK6,1
	E LMT%%	CP.BK7,1
	@
	ELMT%%	TMP.BK,`15
	ELMT%%	FID.B

K,15

	ELMT%%	N

 RSAV.,5

	ELMT%

@%	AUTOLB,1
	ELMT

`%%	DELSIZ,1
	ELMLNKNO.,1
	EL%	RELEN.,1




	ELMT%%	SRC
	ELMT%%	SRC.CT,1
	ELMT%%	S RC.MD,1

	ELMT%@%	DLM.PT,1
	ELMT`%%	DLM.CT,1
	ELMT%%	DLM.MD,1

	 ELMT%%	DST.MD,1
@
	ELMT%%	PM.SPT.`1
	ELMT%%	PM.SCT,1

	ELMT%%	TMP .SR,5
	ELMT%%	TM@P.DL,5
	ELMT%%	T`MP.DP,1

	ELMT%%	OU.TMP,5
	ELMT %%	OU.ARP,1
	ELM@T%%	OU.MDE,1

	`ELMT%%	TL.ARG,1
	ELMT%%	TL.VLU,1

	ELMT%%	PT.ARG@,1
	ELMT%%	PT.VL`U,1

	ELMT%%	CT.VLU,1

	ELMT%% 	AP.TMP,1
	ELMT%@%	DW.TMP,1

	EL`MT%%	SE.DLM,1

	ELMT%%	PF.MDE,1

	ELMT%%	BS.AGL@,1
	ELMT%%	PT.AG`L,1
	ELMT%%	TP.AGL,1

	ELMT%%	S U.AGL,1

	ELMT%@%	BS.DLM,1
	ELMT`%%	TP.DLM,1


	ELMT%%	SU.RR
	 ELMT%%	SU.DBR
	E@LMT%%	SU.EQ
				`
	ELMT%%	SU.DQ
	ELMT%%	SU.MQ
	E LMT%%	SU.RRT
	EL@MT%%	SU.T1
	ELMT`%%	SU.T2
	ELMT%%	SU.T3
	ELMT%%	S U.T4
	ELMT%%	SU.@T5
	ELMT%%	SU.T6`
	ELMT%%	SU.T7
	ELMT%%	SU.T8
	E LMT%%	SU.T9
	ELM@T%%	SU.CRH
				
	ELMT%%	SU.EQT
	ELMT%%	SU.DQT
	 ELMT%%	SU.MQT
	E@LMT%%	SU.Y
	ELMT`%%	SU.RBP
				
	ELMT%%	SU.MRR
	 ELMT%%	SU.SBD
	E@LMT%%	SU.RLV
	EL`MT%%	SU.RND
	ELMT%%	SU.SFQ
	ELMT %%	SU.SFS
	ELMT%@%	SU.SBS
	ELMT%%`	SU.NR
	ELMT%%	SU.FR
	ELMT%%	SU. AK
	ELMT%%	SU.FB@T
	ELMT%%	SU.CFB`
	ELMT%%	SU.VRB
				
	ELMT%%	SU .HV
	ELMT%%	SU.C@K
	ELMT%%	SU.SVK`
	ELMT%%	SU.CL1
	ELMT%%	SU.CL2
 	ELMT%%	SU.CLR
	@ELMT%%	SU.CLS
	E`LMT%%	SU.SAV,5
 
	ELMT%%	FET1,1
  	ELMT%%	FET2,1
	 @ELMT%%	FET3,1
	E `LMT%%	FET4,1

	!ELMT%%	SU.FRF

! 
	ELMT%%	USRLO.
IFN BIS,<
	ELMT!`%%	MRKPTR,2
>
"

	ELMT%%	FUN.A0" ,1
	ELMT%%	FUN.S"@T,1
	ELMT%%	FUN."`A1,1
	ELMT%%	FUN#.A2,1
	ELMT%%	FU# N.A3,1


IFN M#@CS,<
	ELMT%%	SND#`MSG,10
	ELMT%%	M$CSTN,1
	ELMT%%	M$ .TMP1,1
	ELMT%%	$@M.TMP2,1
	ELMT%%$`	M.ATCT,1
	ELMT%%%	MCSPT,1
	ELMT%% %	PIDMCP,1
	ELMT%@%%	PIDLCM,1
	ELM%`T%%	IPCFLG,1
	EL&MT%%	PAKSND,4
	E& LMT%%	MSGSND,10
&@	ELMT%%	PAKREC,4
	ELMT%%	MSGREC,1'0





	ELM' T%%	PAGOFF,1
	EL'@MT%%	PAGBIT,1
>'`
IFE TOPS20,<
	E(LMT%%	PAGTBL,20
( 	ELMT%%	T1SAV,1
(@>
	ELMT%%	DBMLOC(`,1


IFN TCS,<)
	ELMT%% TP.RG1,) 1
	ELMT%% TP.RG2)@,1
	ELMT%% TP.RG)`3,1
	ELMT%% TP.R*G4,1
	ELMT%% TP.* RG5,1
	ELMT%% TP*@.ID,1
	ELMT%% TP*`.CRP,1
	ELMT%% T+P.IPC,1
	ELMT%% + TP.CPP,1
	ELMT%%+@ TP.JFN,1
	ELMT%+`% TP.WNS,1
	ELMT,%% TP.TMP,3
	SYM, L%% TP.PDS,^D10
,@	ELMT%% TP.PDB,TP,`.PDS
	SYML%% TP.-PKS,^D30
	ELMT%%-  TP.PKT,TP.PKS
	-@SYML%% TP.NAM,TP.-`PKT+2
	ELMT%% TP..TPD,1
	ELMT%% T. P.LPD,1
	ELMT%% .@TP.HDS,1
	ELMT%%.` TP.HDP,1
	ELMT%/% TP.DVP,1
	ELMT/ %% TP.BTP,1
	ELM/@T%% TP.PAT,^D10
/`>

IFN DBMS,<
0	ELMT%% DBMLOK,1
>
	ELMT%% OSHOO0@T,1

IFE TOPS200`,<
	ELMT%% M7.001,1
>

IFN LSTA1 TS,<
	ELMT%%	MRT1@MB.,1
	ELMT%%	MR1`OPT.,1
	ELMT%%	M2ROPTT,^D16
					2 
	ELMT%%	MRHDBP,2@1
	ELMT%%	MRHDFL2`,1
					; BLOCK
	ELMT%%	MRTDBP,13 
	ELMT%%	MRLDBL,3@1
					; OR BUFF3`ER FOR COPY FROM 4.TMP TO .MTO
IFN4  DBMS6,<
	ELMT%%4@	MRDDBP,1
>
	EL4`MT%%	MRNM6,1
	EL5MT%%	MRNMA,3
	EL5 MT%%	MRAFFT,1
	E5@LMT%%	MRFKFT,1
I5`FE TOPS20,<
	ELM6T%%	MBTIM.,1
	EL6 MT%%	MRCHNN,1
	E6@LMT%%	MRCHCF,1
	6`ELMT%%	MRBLKO,1
7	ELMT%%	MRBKO.,1
	>
IFN TOPS20,<7@
	ELMT%%	MBTIM.,7`2
	ELMT%%	MRJFN,81
	ELMT%%	MRLCJF8 ,1
	ELMT%%	MRBLK8@O,2
	ELMT%%	MRBK8`O.,2
IFN FTLSDR,9<
	ELMT%%	MRLDNA9 ,^D10
	ELMT%%	MR9@LDJF,1
	  >;END 9`IFN FTLSDR
	>;EN:D IFN TOPS20
IFN:  FTLSDR,<
	ELMT%:@%	MRLBPC,1
	ELMT:`%%	MRLSZL,1
	ELM;T%%	MRLFPR,1
  I; FE TOPS20,<
	ELM;@T%%	MRCHLS,1
	EL;`MT%%	MRLLDR,1
	E<LMT%%	MRLLDV,1
	< ELMT%%	MRCFNM,1
<@	ELMT%%	MRCFEX,1
   >;END IFE TOP=S20
>;END IFN FT= LSDR
	ELMT%%	MRA=@PN.,1
					;0 IF=` FILE IS NEW
	EL>MT%%	MRFPGT,1,
	> ELMT%%	MRKILL,1
>@	ELMT%%	MRBNUM,1
	ELMT%%	MRRERN,1?
					; (THUS CA? N'T WRITE IN .MTO?@ FILE)
IFN TOPS2?`0, ELMT%% MRPSTM,@2
IFE TOPS20, EL@ MT%% MRPSTM,1

@@>

	ELMT%%	DBSTP.,1

%%	DBSTY<v ` z
	DEFINE		SYMH%%	(N%,V)	< >	 
	DEFINE	SYML%%		@(N%,V)	<SYM%%	N%,	`V>	
	DEFINE	ELMT
%%	(N%,L<1>,V)	<B
 LKDFV	N%,L,<V>>

@	LOC	LO.PUR			

`
	VISBL%

	DEFINE	ELMT%%	(N%,L<1 >,V) <BLOCK L>
@
	INFBK%


	DE`FINE	ELMT%%	(N%,L

<1>,V) <
	IFIDN 

 <N%><E0.6>,<N%::	

@E0.6.1=:E0.6+1>


`	IFIDN	<N%><E0.7>
	IFIDN9<N%%::	E0.
	BLOCK	L>

	DEFINE 	SYML%%	(N%,V)	< @>

	PREST%

	`COMCHK	.-LO.PUR	

	PURGE	ELMT%%, SYMH%%,SYML%%,ADR
%%,SYML%%,ADR[P aJ.= PPJ
	SYML%%	QIFRST.,.
	SYMH%%Q 	PFRST.,.

	ELMQ@T%%	OVFLG.,1,<Z		Q`>

IFN BIS,<
	RELMT%%	E0.6,1,<EDR IT	0>
	ELMT%%	E0R@.6.1,1,<0>
	ELMTR`%%	,1,<0>
	ELMT%S%	,1,<"$"-40>
	ES LMT%%	,1,<","-40>S@
	ELMT%%	,1,<"."S`-40>
	ELMT%%	,1,T<" "-40>
	ELMT%%T 	,1,<"0"-40>
	ELT@MT%%	,1,<"+"-40>
	ELMT%%	,1,<"-"-U40>
	ELMT%%	,1,<U "C"-40>
	ELMT%%	U@,1,<"R"-40>
	ELMU`T%%	,1,<"D"-40>
V	ELMT%%	,1,<"B"-4V 0>
IFN ANS74,<
V@	ELMT%%	,1,<"/"-4V`0>
>

	ELMT%%	WE0.7,1,<EDIT	0>
W 	ELMT%%	E0.7.1,1,W@<0>
	ELMT%%	,1,<W`0>
	ELMT%%	,1,<"X$">
	ELMT%%	,1,<X ",">
	ELMT%%	,1,X@<".">
	ELMT%%	,1X`,<" ">
	ELMT%%	,Y1,<"0">
	ELMT%%	Y ,1,<"+">
	ELMT%%Y@	,1,<"-">
	ELMT%Y`%	,1,<"C">
	ELMTZ%%	,1,<"R">
	ELMZ T%%	,1,<"D">
	ELZ@MT%%	,1,<"B">
IFZ`N ANS74,<
	ELMT%[%	,1,<"/">
>

[ 	ELMT%%	E0.9,1,<E[@DIT	0>
	ELMT%%	E[`0.9.1,1,<0>
	ELM\T%%	,1,<0>
	ELMT\ %%	,1,<133>
	ELM\@T%%	,1,<153>
	EL\`MT%%	,1,<113>
	E]LMT%%	,1,<100>
	] ELMT%%	,1,<360>
]@	ELMT%%	,1,<116>
	ELMT%%	,1,<140>^
	ELMT%%	,1,<303^ >
	ELMT%%	,1,<33^@1>
	ELMT%%	,1,<3^`04>
	ELMT%%	,1,<_302>
IFN ANS74,<_ 
	ELMT%%	,1,<141_@>
>

>	

	SY_`ML%%	FRSTIC,.
	E`LMT%%	IIN,1,<IN 0` ,CMDLST	>
	ELMT%`@%	IOUT,1,<OUT 0,C``MDLST	>
	ELMT%%	aISETI,1,<USETI 0,a (AC1)	>
	ELMT%%	a@ISETO,1,<USETO 0,a`(AC1)	>
	ELMT%%	bICLOS,1,<CLOSE 0,b 0	>
	ELMT%%	IRELb@E,1,<RELEAS 0,0	>b`
	ELMT%%	IGETS,1c,<GETSTS 0,AC2	>
	ELMT%%	ISETS,1,c@<SETSTS 0(AC2)>
c`	ELMT%%	IWAIT,1,<dCALLI 0,10	>
	ELd MT%%	IRNAM,1,<RENd@AME 0,UEBLK.	>
	d`SYML%%	LASTIC,<.-e1>

	SYML%%	UFRe ST.,.
	ELMT%%	MWe@AIT.,1,<MTAPE 0,0e`	>
	ELMT%%	MREW.f,1,<MTAPE 0,1	>
f 	ELMT%%	MREWU.,1,f@<MTAPE 0,11	>
	Ef`LMT%%	MBSPR.,1,<MgTAPE 0,7	>
	ELMTg %%	MBSPF.,1,<MTAPg@E 0,17	>
	ELMT%%g`	MADVR.,1,<MTAPE h0,6	>
	ELMT%%	MAh DVF.,1,<MTAPE 0,1h@6	>
	ELMT%%	MWEOh`F.,1,<MTAPE 0,3	>i
	ELMT%%	MTIND.,i 1,<MTAPE 0,101	>
	ELMT%%	MERAS.,1i`,<MTAPE 0,13	>
j

	ELMT%%	SOBOT.j ,1,<STATO 0,4000	j@>
	ELMT%%	SZBOT.j`,1,<STATZ 0,4000	k>
	ELMT%%	SZEOF.k ,1,<STATZ 0,20000k@	>
	ELMT%%	SZEOTk`.,1,<STATZ 0,2000l	>
	ELMT%%	UOPENl .,1,<OPEN 0,UOBLKl@.	>
	ELMT%%	UENTl`R.,1,<ENTER 0,UEBmLK.>
	ELMT%%	ULKm UP.,1,<LOOKUP 0,Um@LBLK.>
	ELMT%%	Um`OBUF.,1,<OUTBUF 0n,2(AC6)>
	ELMT%%n 	UIBUF.,1,<INBUF n@0,2(AC6)	>
	ELMTn`%%	UCLOS.,1,<CLOSoE 0,0	>
	ELMT%%	o URELE.,1,<RELEAS o@0,0	>
	ELMT%%	USo`ETI.,1,<USETI 0,(pAC1)	>
	ELMT%%	Up SETO.,1,<USETO 0,p@(AC1)	>
	ELMT%%	p`UOUT.,1,<OUT 0,0	q	>
	ELMT%%	UIN.,q 1,<IN 0,0		>
	ELq@MT%%	USETS.,1,<SEq`TSTS 0,(AC2)	>
	rELMT%%	UGETS.,1,<r GETSTS 0,AC2	>
	r@ELMT%%	UWAIT.,1,<r`CALLI	0,10	>
IFNs ANS68,<
	ELMT%%s 	USEEK.,1,<CALLI	s@0,56	>
>
IFN ANs`S74,<
	SYML%% 	UtSEEK.,-1
>
	ELMt T%%	URNAM.,1,<RENt@AME 0,UEBLK.>
	St`YML%%	ULAST.,<.-1u>
	SYML%%	ULEN.,u <UFRST.-ULAST.>
u@
	ELMT%%	UOCAL.,u`1,<EXP C.RSET##+1v>
	ELMT%%	UOBLK.v ,3,<EXP 0		>
	ELv@MT%%	TMP.PT,1,<POv`INT 7,TMP.BK>
	EwLMT%%  FID.PT,1,<w POINT 7,FID.BK>
w@	ELMT%%	FUSIA.,2,w`<EXP 11	>
	ELMT%x%	FUSOA.,2,<EXP 1x 2	>
	ELMT%%	FUSCx@P.,1,<EXP 10	>
	x`ELMT%%	ARGBK.,6,<yEXP 5		>
	SYML%%y 	ILAST.,<.-6>

	AST.,<.-6>

aW
" y@|

	
IFEy` TOPS20,<
	DEFINzE	DISEL%	(NAM)	<Jz RST	1,NAM##>	
	Dz@EFINE	DSTBL%	(NAMz`,IR)	<JRST	1,@NAM{##(IR)>
>
IFN T{ OPS20,<
	DEFINE	{@DISEL%	(NAM)	<JRS{`T	NAM##>	
	DEFIN|E	DSTBL%	(NAM,IR)| 	<JRST	@NAM##(IR)|@>
>
	RELOC	HI.O|`RG			
	DISTB%			}	

	
	DEFINE	S} YMH%%	(N%,V)	<SYM}@%%	N%,V>	
	DEFIN}`E	SYML%%	(N%,V)	<~ >	;NO LOW SEG SY~ MBOLS
	DEFINE	EL~@MT%%	(N%,L<1>,V)	~`<BLKDFV	,L,<V>>	
	PREST%				

	 PURGE	ELMT%%,SYMH@%%,SYML%%,DISEL%,DSTBL%
DISEL%,aWKb  

	DEFIN E	ELMT%%	(N%,L<1>@,V)	<BLKDF	N%,L>	`
	LOC	LO.PUR			
	DEFINE	SYML%%	( N%,V)	<SYM%%	N%,V@>	
	DEFINE	SYMH%`%	(N%,V)	< >	

	%LOSEG			

	CO MCHK	.-LO.PUR	
@
	PURGE	ELMT%%,SYMH%%,SYML%%
SYgfhQ  HA==:BiP i?4HP m'+ @[

	ELMT%@0%	MEMRY%,1
	ELMT@P%%	TALLY.,1,<Z>
@p	ELMT%%	SZERA.,1,A<Z>
	ELMT%%	OVFLA0O.,1,<Z>

	ELMTAP%%	TRAC1.,1,<JRSTAp	BTRAC.##>
	ELMTB%%	TRAC2.,1,<JRSTB0	TRPOP.##>
	ELMTBP%%	TRAC3.,1,<JRSTBp	TRPD.##>

	ELMCT%%	OPNCH.,1,<XWDC0	777774,0>
	ELMTCP%%	RN.DEV,1
	ELMCpT%%	RN.PPN,1
	ELDMT%%	RN.NAM,1
	ED0LMT%%	FSLOC.,1,<ZDP>
	ELMT%%	HLOVL.Dp,1,<Z>

	ELMT%%E	%REMOV,1,<EXP	REE0MOV.##>
IFN ANS7EP4,<
	ELMT%%	%ENTEpOV,1,<EXP	ENTOV.#F#>
>

	ELMT%%	F0KEYCV.,1,<Z>
	ELFPMT%%	SAVEF.,1,<Z>Fp






	ELGMT%%	HPRT.,1,<EXPG0	HSRPT.##>
					GP	; PRINTING ROUTIGpNE.
	ELMT%%	SEGNHO.,1,<Z>
	ELMT%%H0	SNRBP.,1,<EXP	SBHPPSG.##>


	ELMHpT%%	TRAC4.,1,<EXPI	CNTRC.##>
	ELMTI0%%	CIOTF.,1,<EXP	IPSFOV.##>



Ip


	ELMT%%	DBSTJP%,1,<EXP	DBSTP$#J0#>
	SYML%%	LEVELJP.,<.-1>
	IFNDEF JpLEVEL.,<PRINTX ?LKEVEL. NOT DEFINEDK0!>

	ELMT%%	METR.,1,<Z>
%	MET
{:P 
&C@P 
d+P 
uS@P 
#@P fI9P |,{P |-YP }[0P MI9P 2~93 u,
	VISBL%	u 	
	INFBK%		
	PRu@EST%	
	LIDAT%		
%	
	LIDAT%		6}i<P ?6)WP B}ZP C.:P N,}rP O,\:P O,hZP O.,ZP W\gP S@P >}{woP