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@ k@_


	IFNB	<kpA>,<A::>
	BLOCK	B
:>
	BLOCK `X1E2\I[ lPp


	IFNB	<mA>,<A::>
	IFN	m B,<IFB	<C>,<BLOCm@K	B>
		    IFNBm`	<C>,<REPEAT	B,n<
					C>>
		>
				C>>
		> aa1G>l:  <
	IFG	A- COMSIZ,<
	XXX.==@A-COMSIZ
  DEFI`NE PEXCS(OVRFLO),<
	PRINTX	?COMSI Z EXCEEDED BY 'OV@RFLO (OCTAL) WORD`S - REGENERATE THE COMPILER
 >
	PEXCS(\XXX.)
>@;END IFG A-COMSIZ
IFG A-COMSIG>n:=P pI
n0P I' {@l
	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 6 N

	DISEL6@%	C.RSET
	DISEL%6`	STOPR.
	DISEL%	7C.STOP
	DISEL%	K7 ILL.
	DISEL%	GOT7@O.
	DISEL%	TODAY7`.
	DISEL%	KDECL.8
	DISEL%	KPROG.
	DISEL%	DSP.FP
8@	DISEL%	LINE.C
	8`DISEL%	LINE.D
	D9ISEL%	LINE.H
	DI9 SEL%	LIN.RH
	DIS9@EL%	CANCL.
IFN A9`NS74,<
	DISEL%	S:.CALL
>
	DISEL%: 	M.INIT
	DISEL%	:@M.RMW
	DISEL%	M.:`RSW
	DISEL%	M.RM;NW
	DISEL%	M.RSN; W
	DISEL%	M.SEND;@
	DISEL%	M.AC
	;`DISEL%	M.IFM
	DI<SEL%	M.DI
	DISEL< %	M.DIT
	DISEL%	<@M.DO
	DISEL%	M.E<`I
	DISEL%	M.EIT
	DISEL%	M.EO
	D= ISEL%	STR.
	DISE=@L%	STR.O
	DISEL%=`	UNS.
	DISEL%	UN>S.O
	DISEL%	FUNC> T.
	DISEL%	FIX.
	DISEL%	PERF.
	>`DISEL%	FLOT.1
	D?ISEL%	FLOT.2
	DI? SEL%	PD6.
	DISEL?@%	PD7.
	DISEL%	G?`D6.
	DISEL%	GD7.@
	DISEL%	NEG.
	@ DISEL%	MAG.
	DIS@@EL%	ADD.12
	DISE@`L%	ADD.21
	DISELA%	ADD.22
	DISEL%A 	SUB.12
	DISEL%	A@SUB.21
	DISEL%	SA`UB.22
	DISEL%	MUBL.12
	DISEL%	MULB .21
	DISEL%	MUL.B@22
	DISEL%	DIV.1B`1
	DISEL%	DIV.12C
	DISEL%	DIV.21
	DISEL%	DIV.22
C@	DISEL%	C.OPEN
	C`DISEL%	C.CLOS
	DDISEL%	DSPLY.
	DID SEL%	ACEPT.
	DISD@EL%	READ.
	DISELD`%	WRITE.
	DISEL%E	WADV.
IFN ANS68E ,<DISEL%	SEEK.>
E@IFN ANS74,<DISEL%E`	RDNXT.>
	DISEL%F	DELET.
	DISEL%	F RERIT.
	DISEL%	PF@URGE.
	DISEL%	INF`IT.
	DISEL%	TERMG.
	DISEL%	COMP.
	DISEL%	CMP.76
G@	DISEL%	SPAC.6
	G`DISEL%	NUM.6
	DIHSEL%	ALF.6
	DISEH L%	ZERO.6
	DISELH@%	POS.6
	DISEL%	H`NEG.6
	DISEL%	SPIAC.7
	DISEL%	NUMI .7
	DISEL%	ALF.7I@
	DISEL%	ZERO.7
	DISEL%	POS.7
	JDISEL%	NEG.7
	DIJ SEL%	COMP.D
	DISJ@EL%	DBMS.
	DISELJ`%	MOVE.
	DISEL%	KLFENQ.
	DISEL%	LK RENQ.
	DISEL%	LRK@DEQ.
	DISEL%	C.DK`6D7
	DISEL%	C.D7LD6
	DISEL%	CMP.EL 
	DISEL%	CMP.G
L@	DISEL%	CMP.GE
	L`DISEL%	CMP.L
	DIMSEL%	CMP.LE
	DISM EL%	CMP.N
	DISELM@%	EDIT.S
	DISEL%M`	EDIT.U
IFN ANS6N8,<
	DISEL%	EXAMN .
>
IFN ANS74,<N@
	DISEL%	INSP.
N`>
	DISEL%	SUBSC.O
	DISEL%	SIZE.1
	DISEL%	SIZE.2
O@	DISEL%	SIZE.3
	O`DISEL%	E.C3C1
	DPISEL%	E.C3C3
	DIP SEL%	OVLAY.
	DISP@EL%	C.EXIT
	DISEP`L%	ARGS.
	DISEL%Q	PUTF.
	DISEL%	RQ ESF.
	DISEL%	GETQ@NM.
	DISEL%	ILLCQ`.
	DISEL%	C.D6D9R
	DISEL%	C.D7D9
	DISEL%	C.D9D6
R@	DISEL%	C.D9D7
	R`DISEL%	PC3.
	DISSEL%	PD9.
	DISEL%S 	GC3.
	DISEL%	GDS@9.
	DISEL%	POS.9S`
	DISEL%	NEG.9
T	DISEL%	ZERO.9
	T DISEL%	ALF.9
	DIT@SEL%	NUM.9
	DISET`L%	ALF.9
	DISEL%U	SPAC.9
	DISEL%	U CMP.96
	DISEL%	CU@MP.97
	DISEL%	EDU`IT.B
	DISEL%	RSTVAB.
	DISEL%	ZERCV .6
	DISEL%	ZERC.V@7
	DISEL%	ZERC.9V`
IFN ANS74,<
	DWISEL%	C.STRT
	DIW SEL%	DATE.
	DISEW@L%	DAY.
	DISEL%	W`TIME.
>

	DSTBXL%	USRTB.,15

X 

	DISEL%	DSPL.6X@
	DISEL%	DSPL.7

	DISEL%	SUBE1.Y
	DISEL%	SUBE2.
	DISEL%	SUBE3.
Y@	DISEL%	EXIT.E
IY`FN BIS,<
	DISEL%Z	XTND.E
	DISEL%	Z ALP.66
	DISEL%	AZ@LP.67
	DISEL%	ALZ`P.69
	DISEL%	ALP[.76
	DISEL%	ALP.[ 77
	DISEL%	ALP.7[@9
	DISEL%	ALP.96[`
	DISEL%	ALP.97
	DISEL%	ALP.99
\ 	DISEL%	ALPS.6
	\@DISEL%	ALPS.7
	D\`ISEL%	ALPS.9
	DI]SEL%	NUM.66
	DIS] EL%	NUM.67
	DISE]@L%	NUM.69
	DISEL]`%	NUM.76
	DISEL%^	NUM.77
	DISEL%	^ NUM.79
	DISEL%	N^@UM.96
	DISEL%	NU^`M.97
	DISEL%	NUM_.99
	DISEL%	CVTD_ B.
	DISEL%	CBDOV_@.
	DISEL%	CVBD.6_`
	DISEL%	CVBD.7
	DISEL%	CVBD.9
` 	DISEL%	MUL.41
	`@DISEL%	MUL.42
	D``ISEL%	DIV.41
	DIaSEL%	DIV.42
	DISa EL%	DVI41.
	DISEa@L%	DVI42.
>;END a`IFN BIS
	DISEL%	bKEY.
IFN TOPS20,b <
	DISEL%	PSORT.b@
	DISEL%	PMERG.
	DISEL%	RELES.
c	DISEL%	MERGE.
	c DISEL%	MCLOS.
	Dc@ISEL%	RETRN.
	DIc`SEL%	ENDS.
>

d
IFN BIS,<
	DISd EL%	ADD.4R
>;ENDd@ IFN BIS
IFN TCSd`,<
	DISEL%	MBINDe
	DISEL%	MNAME
e >
	DISEL%	MVD.ALe@
	DISEL%	NUM.3
e`	DISEL%	WADVV.
	fDISEL%	WRITV.

f 
	DISEL%	METER.
IFN BIS,<			;[55f`4] QUAD-WORD SIZEg ERROR ROUTINES
g 	DISEL%	SIZE.4
	g@DISEL%	SIZE.5
>;g`END IFN BIS			;[5h54]
	DISEL%	FLT.h 12
	DISEL%	FLT.2h@2
	DISEL%	FIX.2
	DISEL%	E.F2D1
i	DISEL%	E.F2D2
	i DISEL%	E.F2FP
	Di@ISEL%	E.F2F2
	DIi`SEL%	PPOT4.
	DISEL%	ISBPS.

SM'Em6Pb	Q$u|SP$Q$v
	
	DEFIx@NE	SYMH%%	(N%,V)	x`<N%==:0>	
	DEFINyE	SYML%%	(N%,V)	<y SYM%%	N%,V>	
	DEy@FINE	ELMT%%	(N%,Ly`<1>,V)	<BLKDFV	N%z,L,<V>>	

	RELOz C	0
	CHK==.

	z@%LOSEG

	COMCHKz`	.-CHK		

	PURG{E	SYML%%,SYMH%%,ELMT%%
SYMH%%,ES:4*b A)
	ELMT%%	A0FILES.
	ELMT%%	UAPSES.
	ELMT%%	SEGApWD.
	ELMT%%	ALTEBR.
	ELMT%%	OVRFNB0.
	ELMT%%	POINT.BP
	ELMT%%	COMMA.
	ELMT%%	MONEY.
C	ELMT%%	MEMRY.
	C0ELMT%%	%NM.
	ELMCPT%%	%DT.
	ELMT%%Cp	%PR.
	ELMT%%	CODBVR.
	ELMT%%	COBD0SW.
	ELMT%%	PUSHDPL.
	ELMT%%	SURRTDp.
	ELMT%%	SUEQT.E
	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&$ o.
	ELMT%%	o UEBLK.,4
	ELMT%%o@	ULBLK.,4
	ELMT%o`%	TTOBP.,1
	ELMTp%%	TTOBC.,1
	ELMp T%%	TTOBF.,^D27
p@	ELMT%%	STDLB.,16p`

	ELMT%%	RRFLGq.,1
	ELMT%%	REDMq P.,1
	ELMT%%	SHRq@DX.,1
	ELMT%%	TEq`MP.,1
	ELMT%%	TErMP.1,1
	ELMT%%	Jr SARR.,1
	ELMT%%	r@TEMP.2,1
	ELMT%%r`	AINFO.,1
	ELMT%s%	OVRBF.,3
	ELMTs %%	FLDCT.,1
	ELMs@T%%	OVRIX.,1
	ELs`MT%%	NOCR.,1
	ELtMT%%	PRGFLG,1
	Et LMT%%	TTYOPN,1
t@
	ELMT%%	ACSAV0,1t`7
	ELMT%%	MXIE,1u
	ELMT%%	IESAVE,u 1
	ELMT%%	MXBUF,u@1
	ELMT%%	AUXBUFu`,1
	ELMT%%	AUXIOvW,1
	ELMT%%	AUXBv NO,1
	ELMT%%	CMDv@LST,2
	ELMT%%	NEv`WBK1,1
	ELMT%%	NwEWBK2,1
	ELMT%%	w OLDBK,1
	ELMT%%	w@MXBF,1
	ELMT%%	Dw`RTAB,1
	ELMT%%	LxRWA,1
	ELMT%%	COx RPT.,1
	ELMT%%	Hx@LOTC.,1
	ELMT%%	x`OTCPT.,1
	ELMT%%y	RUN.TM,1

	ELMy T%%	CB.DDT,1
	ELy@MT%%	SBPSA.,1
	Ey`LMT%%	%F.PTR,1
z
	ELMT%%	INTBLK,4z 


	ELMT%%	FS.z@ZRO,1
	ELMT%%	FSz`.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
	ELMT%%	CP.BK5,1
	EL MT%%	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
	ELM T%%	LNKNO.,1
	EL@MT%%	RELEN.,1

`


	ELMT%%	SRC.PT,1
	ELMT%%	SR C.CT,1
	ELMT%%	S@RC.MD,1

	ELMT%`%	DLM.PT,1
	ELMT%%	DLM.CT,1
	ELM T%%	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%%	TMP.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.VLU,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.A
 GL,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.T2
	ELMT%%
	ELMT%%	S
	ELMT%%	SU.
	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
	ELMT%%	SU.RND
	ELM T%%	SU.SFQ
	ELMT@%%	SU.SFS
	ELMT%`%	SU.SBS
	ELMT%%	SU.NR
	ELMT%%	S U.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
	ELMT%%	SU.SAV,5
 
	ELMT%%	FET1,1
@	ELMT%%	FET2,1
	`ELMT%%	FET3,1
	ELMT%%	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%%	SNDMSG,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
	ELMT%%	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.RG3,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,<
%@	ELMT%% DBMLOK,1
>
	ELMT%% OSHOO%`T,1

IFE TOPS20&,<
	ELMT%% M7.00& ,1
>

IFN LSTA&@TS,<
	ELMT%%	MRT&`MB.,1
	ELMT%%	MR'OPT.,1
	ELMT%%	M' ROPTT,^D16
					'@
	ELMT%%	MRHDBP,'`1
	ELMT%%	MRHDFL(,1
					; BLOCK
	ELMT%%	MRTDBP,1(@
	ELMT%%	MRLDBL,(`1
					; OR BUFF)ER FOR COPY FROM ) .TMP TO .MTO
IFN)@ DBMS6,<
	ELMT%%)`	MRDDBP,1
>
	EL*MT%%	MRNM6,1
	EL* MT%%	MRNMA,3
	EL*@MT%%	MRAFFT,1
	E*`LMT%%	MRFKFT,1
I+FE TOPS20,<
	ELM+ T%%	MBTIM.,1
	EL+@MT%%	MRCHNN,1
	E+`LMT%%	MRCHCF,1
	,ELMT%%	MRBLKO,1
,@	ELMT%%	MRBKO.,1
	>
IFN TOPS20,<,`
	ELMT%%	MBTIM.,-2
	ELMT%%	MRJFN,- 1
	ELMT%%	MRLCJF-@,1
	ELMT%%	MRBLK-`O,2
	ELMT%%	MRBK.O.,2
IFN FTLSDR,. <
	ELMT%%	MRLDNA.@,^D10
	ELMT%%	MR.`LDJF,1
	  >;END /IFN FTLSDR
	>;EN/ D IFN TOPS20
IFN/@ FTLSDR,<
	ELMT%/`%	MRLBPC,1
	ELMT0%%	MRLSZL,1
	ELM0 T%%	MRLFPR,1
  I0@FE TOPS20,<
	ELM0`T%%	MRCHLS,1
	EL1MT%%	MRLLDR,1
	E1 LMT%%	MRLLDV,1
	1@ELMT%%	MRCFNM,1
1`	ELMT%%	MRCFEX,1
   >;END IFE TOP2 S20
>;END IFN FT2@LSDR
	ELMT%%	MRA2`PN.,1
					;0 IF3 FILE IS NEW
	EL3 MT%%	MRFPGT,1,
	3@ELMT%%	MRKILL,1
3`	ELMT%%	MRBNUM,1
	ELMT%%	MRRERN,14 
					; (THUS CA4@N'T WRITE IN .MTO4` FILE)
IFN TOPS250, ELMT%% MRPSTM,5 2
IFE TOPS20, EL5@MT%% MRPSTM,1

5`>

	ELMT%%	DBSTP.,1

%%	DBSTY<v ~ $
	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%

	DEFI NE	ELMT%%	(N%,L<1@>,V) <BLOCK L>
`
	INFBK%


	DEFINE	ELMT%%	(N%,L <1>,V) <
	IFIDN @<N%><E0.6>,<N%::	`E0.6.1=:E0.6+1>
	IFIDN <N%><E0.7> ,<N%::	E0.7.1=:E0@.7+1>
	IFIDN <N%`><E0.9>,<N%::	E0.9.1=:E0.9+1>
	BL OCK	L>

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

	PREST%

	COMCHK	.-LO.PUR	

	PURGE	ELMT%%,@SYMH%%,SYML%%,ADR
%%,SYML%%,ADR[P aJ.= Ept
	SYML%%	F IFRST.,.
	SYMH%%F@	PFRST.,.

	ELMF`T%%	OVFLG.,1,<Z		G>

IFN BIS,<
	G ELMT%%	E0.6,1,<EDG@IT	0>
	ELMT%%	E0G`.6.1,1,<0>
	ELMTH%%	,1,<0>
	ELMT%H %	,1,<"$"-40>
	EH@LMT%%	,1,<","-40>H`
	ELMT%%	,1,<"."I-40>
	ELMT%%	,1,I <" "-40>
	ELMT%%I@	,1,<"0"-40>
	ELI`MT%%	,1,<"+"-40>
	ELMT%%	,1,<"-"-J 40>
	ELMT%%	,1,<J@"C"-40>
	ELMT%%	J`,1,<"R"-40>
	ELMKT%%	,1,<"D"-40>
K 	ELMT%%	,1,<"B"-4K@0>
IFN ANS74,<
K`	ELMT%%	,1,<"/"-4L0>
>

	ELMT%%	L E0.7,1,<EDIT	0>
L@	ELMT%%	E0.7.1,1,L`<0>
	ELMT%%	,1,<M0>
	ELMT%%	,1,<"M $">
	ELMT%%	,1,<M@",">
	ELMT%%	,1,M`<".">
	ELMT%%	,1N,<" ">
	ELMT%%	,N 1,<"0">
	ELMT%%	N@,1,<"+">
	ELMT%%N`	,1,<"-">
	ELMT%O%	,1,<"C">
	ELMTO %%	,1,<"R">
	ELMO@T%%	,1,<"D">
	ELO`MT%%	,1,<"B">
IFPN ANS74,<
	ELMT%P %	,1,<"/">
>

P@	ELMT%%	E0.9,1,<EP`DIT	0>
	ELMT%%	EQ0.9.1,1,<0>
	ELMQ T%%	,1,<0>
	ELMTQ@%%	,1,<133>
	ELMQ`T%%	,1,<153>
	ELRMT%%	,1,<113>
	ER LMT%%	,1,<100>
	R@ELMT%%	,1,<360>
R`	ELMT%%	,1,<116>
	ELMT%%	,1,<140>S 
	ELMT%%	,1,<303S@>
	ELMT%%	,1,<33S`1>
	ELMT%%	,1,<3T04>
	ELMT%%	,1,<T 302>
IFN ANS74,<T@
	ELMT%%	,1,<141T`>
>

>	

	SYUML%%	FRSTIC,.
	EU LMT%%	IIN,1,<IN 0U@,CMDLST	>
	ELMT%U`%	IOUT,1,<OUT 0,CVMDLST	>
	ELMT%%	V ISETI,1,<USETI 0,V@(AC1)	>
	ELMT%%	V`ISETO,1,<USETO 0,W(AC1)	>
	ELMT%%	W ICLOS,1,<CLOSE 0,W@0	>
	ELMT%%	IRELW`E,1,<RELEAS 0,0	>X
	ELMT%%	IGETS,1X ,<GETSTS 0,AC2	>
	ELMT%%	ISETS,1,X`<SETSTS 0(AC2)>
Y	ELMT%%	IWAIT,1,<Y CALLI 0,10	>
	ELY@MT%%	IRNAM,1,<RENY`AME 0,UEBLK.	>
	ZSYML%%	LASTIC,<.-Z 1>

	SYML%%	UFRZ@ST.,.
	ELMT%%	MWZ`AIT.,1,<MTAPE 0,0[	>
	ELMT%%	MREW.[ ,1,<MTAPE 0,1	>
[@	ELMT%%	MREWU.,1,[`<MTAPE 0,11	>
	E\LMT%%	MBSPR.,1,<M\ TAPE 0,7	>
	ELMT\@%%	MBSPF.,1,<MTAP\`E 0,17	>
	ELMT%%]	MADVR.,1,<MTAPE ] 0,6	>
	ELMT%%	MA]@DVF.,1,<MTAPE 0,1]`6	>
	ELMT%%	MWEO^F.,1,<MTAPE 0,3	>^ 
	ELMT%%	MTIND.,^@1,<MTAPE 0,101	>
	ELMT%%	MERAS.,1_,<MTAPE 0,13	>
 

	ELMT%%	SOBOT._@,1,<STATO 0,4000	_`>
	ELMT%%	SZBOT.`,1,<STATZ 0,4000	` >
	ELMT%%	SZEOF.`@,1,<STATZ 0,20000``	>
	ELMT%%	SZEOTa.,1,<STATZ 0,2000a 	>
	ELMT%%	UOPENa@.,1,<OPEN 0,UOBLKa`.	>
	ELMT%%	UENTbR.,1,<ENTER 0,UEBb LK.>
	ELMT%%	ULKb@UP.,1,<LOOKUP 0,Ub`LBLK.>
	ELMT%%	UcOBUF.,1,<OUTBUF 0c ,2(AC6)>
	ELMT%%c@	UIBUF.,1,<INBUF c`0,2(AC6)	>
	ELMTd%%	UCLOS.,1,<CLOSd E 0,0	>
	ELMT%%	d@URELE.,1,<RELEAS d`0,0	>
	ELMT%%	USeETI.,1,<USETI 0,(e AC1)	>
	ELMT%%	Ue@SETO.,1,<USETO 0,e`(AC1)	>
	ELMT%%	fUOUT.,1,<OUT 0,0	f 	>
	ELMT%%	UIN.,f@1,<IN 0,0		>
	ELf`MT%%	USETS.,1,<SEgTSTS 0,(AC2)	>
	g ELMT%%	UGETS.,1,<g@GETSTS 0,AC2	>
	g`ELMT%%	UWAIT.,1,<hCALLI	0,10	>
IFNh  ANS68,<
	ELMT%%h@	USEEK.,1,<CALLI	h`0,56	>
>
IFN ANiS74,<
	SYML%% 	Ui SEEK.,-1
>
	ELMi@T%%	URNAM.,1,<RENi`AME 0,UEBLK.>
	SjYML%%	ULAST.,<.-1j >
	SYML%%	ULEN.,j@<UFRST.-ULAST.>
j`
	ELMT%%	UOCAL.,k1,<EXP C.RSET##+1k >
	ELMT%%	UOBLK.k@,3,<EXP 0		>
	ELk`MT%%	TMP.PT,1,<POlINT 7,TMP.BK>
	El LMT%%  FID.PT,1,<l@POINT 7,FID.BK>
l`	ELMT%%	FUSIA.,2,m<EXP 11	>
	ELMT%m %	FUSOA.,2,<EXP 1m@2	>
	ELMT%%	FUSCm`P.,1,<EXP 10	>
	nELMT%%	ARGBK.,6,<n EXP 5		>
	SYML%%n@	ILAST.,<.-6>

	AST.,<.-6>

aW
" n`&

	
IFEo TOPS20,<
	DEFINo E	DISEL%	(NAM)	<Jo@RST	1,NAM##>	
	Do`EFINE	DSTBL%	(NAMp,IR)	<JRST	1,@NAMp ##(IR)>
>
IFN Tp@OPS20,<
	DEFINE	p`DISEL%	(NAM)	<JRSqT	NAM##>	
	DEFINq E	DSTBL%	(NAM,IR)q@	<JRST	@NAM##(IR)q`>
>
	RELOC	HI.OrRG			
	DISTB%			r 	

	
	DEFINE	Sr@YMH%%	(N%,V)	<SYMr`%%	N%,V>	
	DEFINsE	SYML%%	(N%,V)	<s  >	;NO LOW SEG SYs@MBOLS
	DEFINE	ELs`MT%%	(N%,L<1>,V)	t<BLKDFV	,L,<V>>	
	PREST%				

	t@PURGE	ELMT%%,SYMHt`%%,SYML%%,DISEL%,DSTBL%
DISEL%,aWKb u >

	DEFINu@E	ELMT%%	(N%,L<1>u`,V)	<BLKDF	N%,L>	v
	LOC	LO.PUR			
	DEFINE	SYML%%	(v@N%,V)	<SYM%%	N%,Vv`>	
	DEFINE	SYMH%w%	(N%,V)	< >	

w 	%LOSEG			

	COw@MCHK	.-LO.PUR	
w`
	PURGE	ELMT%%,SYMH%%,SYML%%
SYgfhQ  rA==:BiP i?4HP m'+ 50

	ELMT%5P%	MEMRY%,1
	ELMT5p%%	TALLY.,1,<Z>
6	ELMT%%	SZERA.,1,60<Z>
	ELMT%%	OVFL6PO.,1,<Z>

	ELMT6p%%	TRAC1.,1,<JRST7	BTRAC.##>
	ELMT70%%	TRAC2.,1,<JRST7P	TRPOP.##>
	ELMT7p%%	TRAC3.,1,<JRST8	TRPD.##>

	ELM80T%%	OPNCH.,1,<XWD8P	777774,0>
	ELMT8p%%	RN.DEV,1
	ELM9T%%	RN.PPN,1
	EL90MT%%	RN.NAM,1
	E9PLMT%%	FSLOC.,1,<Z9p>
	ELMT%%	HLOVL.:,1,<Z>

	ELMT%%:0	%REMOV,1,<EXP	RE:PMOV.##>
IFN ANS7:p4,<
	ELMT%%	%ENT;OV,1,<EXP	ENTOV.#;0#>
>

	ELMT%%	;PKEYCV.,1,<Z>
	EL;pMT%%	SAVEF.,1,<Z><






	EL<0MT%%	HPRT.,1,<EXP<P	HSRPT.##>
					<p	; PRINTING ROUTI=NE.
	ELMT%%	SEGN=0O.,1,<Z>
	ELMT%%=P	SNRBP.,1,<EXP	SB=pPSG.##>


	ELM>T%%	TRAC4.,1,<EXP>0	CNTRC.##>
	ELMT>P%%	CIOTF.,1,<EXP	>pSFOV.##>



?


	ELMT%%	DBST?0P%,1,<EXP	DBSTP$#?P#>
	SYML%%	LEVEL?p.,<.-1>
	IFNDEF @LEVEL.,<PRINTX ?L@0EVEL. NOT DEFINED@P!>

	ELMT%%	METR.,1,<Z>
%	MET
{:P 
&C@P 
d+P 
uS@P 
#@P fI9P |,{P |-YP }[0P MI9P 2~93 j V
	VISBL%	j@	
	INFBK%		
	PRj`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