Google
 

Trailing-Edge - PDP-10 Archives - BB-H580C-SB_1981 - comuni.unv
There are 15 other files named comuni.unv in the archive. Click here to see a list.
x
,5%@P C;uP E'P E2\I@ EPD0m(
	IFNB	<FA>,<A::>
	BLOCK	B
:>
	BLOCKFkD)1E2\I[ F`DAm8
	IFNB	<GA>,<A::>
	IFN	G0B,<IFB	<C>,<BLOCGPK	B>
		    IFNBGp	<C>,<REPEAT	B,H<
					C>>
		>
				C>>
		>FlD21G3YQ @G3[Q G>l: cPF1
	IFG	A-cpCOMSIZ,<
	XXX.==dA-COMSIZ
  DEFId0NE PEXCS(OVRFLO),dP<
	PRINTX	?COMSIdpZ EXCEEDED BY 'OVeRFLO (OCTAL) WORDe0S - REGENERATE THePE COMPILER
ep>
	PEXCS(\XXX.)
>f;END IFG A-COMSIZ
IFG A-COMSIG>n:=P pI
n0P I4.: 0A

IFNDEFP .BITST,<	.BITST=p=0>	;START AT 0
	
IF1,<			;ALL TH	0IS STUFF HAPPENS 	PONLY IN PASS 1
	p
;ERROR CHECKS
I
FDEF YA,<	PRINTX
0 ?A ALREADY DEFI
PNED WITH DEFBYT

p	>

IFG <.BITST+B-^D36>,< PRINT0X ?DEFBYT: A DOEPS NOT FIT IN WORDp>
; END OF ERROR
 CHECKS

;DEFIN
0E YA TO BE THE W
PORD C
	YA==C
p

	DFENDP==B+.BSIT

;COMPUTE F
	DFBF==DFB. BYTE INSTRUCTION NEEDE0D
IFE B-^D36,<
	DFBF==DFB.FW> ;pFULL WORD
IFE B-^D18,<
	IFE DFE0NDP-^D17,<
	DFBFP==DFB.LH>		;LEFT pHALF-WORD INSTRUCTION NEEDED
	IFE0 DFENDP-^D35,<
	PDFBF==DFB.RH>		;RpIGHT HALF-WORD INSTRUCTION NEEDED
	>

	XA==<DFBPF>B21+B,,DFENDP

	.BITST==B+.BITST

IFE <.BIT0ST-^D36>,<.BITST=P=0>	;.BITST IS NEpW STARTING POSITION
>;END IF1
IhZP Ii[P IkP IlTP I' U0E;
	ADR==HIUP.PUR	
	DEFINE	DIUpSEL%	(N%)	<
	N%=V:ADR		
	ADR==ADRV0+1
	>
	DEFINE	DVPSTBL%	(NAM,IR)	<DVpISEL%	(NAM)>

	WDISTB%				

	PUW0RGE	DISEL%,DSTBL%,ADR
L%,DSTBL%I'HB J0@?

	DISELJP%	C.RSET
	DISEL%Jp	STOPR.
	DISEL%	KC.STOP
	DISEL%	KK0ILL.
	DISEL%	GOTKPO.
	DISEL%	TODAYKp.
	DISEL%	KDECL.L
	DISEL%	KPROG.
	DISEL%	DSP.FP
LP	DISEL%	LINE.C
	LpDISEL%	LINE.D
	DMISEL%	LINE.H
	DIM0SEL%	LIN.RH
	DISMPEL%	CANCL.
IFN AMpNS74,<
	DISEL%	SN.CALL
>
	DISEL%N0	M.INIT
	DISEL%	NPM.RMW
	DISEL%	M.NpRSW
	DISEL%	M.RMONW
	DISEL%	M.RSNO0W
	DISEL%	M.SENDOP
	DISEL%	M.AC
	OpDISEL%	M.IFM
	DIPSEL%	M.DI
	DISELP0%	M.DIT
	DISEL%	PPM.DO
	DISEL%	M.EPpI
	DISEL%	M.EIT
	DISEL%	M.EO
	DQ0ISEL%	STR.
	DISEQPL%	STR.O
	DISEL%Qp	UNS.
	DISEL%	UNRS.O
	DISEL%	FUNCR0T.
	DISEL%	FIX.
	DISEL%	PERF.
	RpDISEL%	FLOT.1
	DSISEL%	FLOT.2
	DIS0SEL%	PD6.
	DISELSP%	PD7.
	DISEL%	GSpD6.
	DISEL%	GD7.T
	DISEL%	NEG.
	T0DISEL%	MAG.
	DISTPEL%	ADD.12
	DISETpL%	ADD.21
	DISELU%	ADD.22
	DISEL%U0	SUB.12
	DISEL%	UPSUB.21
	DISEL%	SUpUB.22
	DISEL%	MUVL.12
	DISEL%	MULV0.21
	DISEL%	MUL.VP22
	DISEL%	DIV.1Vp1
	DISEL%	DIV.12W
	DISEL%	DIV.21
	DISEL%	DIV.22
WP	DISEL%	C.OPEN
	WpDISEL%	C.CLOS
	DXISEL%	DSPLY.
	DIX0SEL%	ACEPT.
	DISXPEL%	READ.
	DISELXp%	WRITE.
	DISEL%Y	WADV.
IFN ANS68Y0,<DISEL%	SEEK.>
YPIFN ANS74,<DISEL%Yp	RDNXT.>
	DISEL%Z	DELET.
	DISEL%	Z0RERIT.
	DISEL%	PZPURGE.
	DISEL%	INZpIT.
	DISEL%	TERM[.
	DISEL%	COMP.
	DISEL%	CMP.76
[P	DISEL%	SPAC.6
	[pDISEL%	NUM.6
	DI\SEL%	ALF.6
	DISE\0L%	ZERO.6
	DISEL\P%	POS.6
	DISEL%	\pNEG.6
	DISEL%	SP]AC.7
	DISEL%	NUM]0.7
	DISEL%	ALF.7]P
	DISEL%	ZERO.7
	DISEL%	POS.7
	^DISEL%	NEG.7
	DI^0SEL%	COMP.D
	DIS^PEL%	DBMS.
	DISEL^p%	MOVE.
	DISEL%	_LFENQ.
	DISEL%	L_0RENQ.
	DISEL%	LR_PDEQ.
	DISEL%	C.D_p6D7
	DISEL%	C.D7`D6
	DISEL%	CMP.E`0
	DISEL%	CMP.G
`P	DISEL%	CMP.GE
	`pDISEL%	CMP.L
	DIaSEL%	CMP.LE
	DISa0EL%	CMP.N
	DISELaP%	EDIT.S
	DISEL%ap	EDIT.U
IFN ANS6b8,<
	DISEL%	EXAMb0.
>
IFN ANS74,<bP
	DISEL%	INSP.
bp>
	DISEL%	SUBSC.c
	DISEL%	SIZE.1
	DISEL%	SIZE.2
cP	DISEL%	SIZE.3
	cpDISEL%	E.C3C1
	DdISEL%	E.C3C3
	DId0SEL%	OVLAY.
	DISdPEL%	C.EXIT
	DISEdpL%	ARGS.
	DISEL%e	PUTF.
	DISEL%	Re0ESF.
	DISEL%	GETePNM.
	DISEL%	ILLCep.
	DISEL%	C.D6D9f
	DISEL%	C.D7D9
	DISEL%	C.D9D6
fP	DISEL%	C.D9D7
	fpDISEL%	PC3.
	DISgEL%	PD9.
	DISEL%g0	GC3.
	DISEL%	GDgP9.
	DISEL%	POS.9gp
	DISEL%	NEG.9
h	DISEL%	ZERO.9
	h0DISEL%	ALF.9
	DIhPSEL%	NUM.9
	DISEhpL%	ALF.9
	DISEL%i	SPAC.9
	DISEL%	i0CMP.96
	DISEL%	CiPMP.97
	DISEL%	EDipIT.B
	DISEL%	RSTjAB.
	DISEL%	ZERCj0.6
	DISEL%	ZERC.jP7
	DISEL%	ZERC.9jp
IFN ANS74,<
	DkISEL%	C.STRT
	DIk0SEL%	DATE.
	DISEkPL%	DAY.
	DISEL%	kpTIME.
>

	DSTBlL%	USRTB.,15

l0

	DISEL%	DSPL.6lP
	DISEL%	DSPL.7

	DISEL%	SUBE1.m
	DISEL%	SUBE2.
	DISEL%	SUBE3.
mP	DISEL%	EXIT.E
ImpFN BIS,<
	DISEL%n	XTND.E
	DISEL%	n0ALP.66
	DISEL%	AnPLP.67
	DISEL%	ALnpP.69
	DISEL%	ALPo.76
	DISEL%	ALP.o077
	DISEL%	ALP.7oP9
	DISEL%	ALP.96op
	DISEL%	ALP.97
	DISEL%	ALP.99
p0	DISEL%	ALPS.6
	pPDISEL%	ALPS.7
	DppISEL%	ALPS.9
	DIqSEL%	NUM.66
	DISq0EL%	NUM.67
	DISEqPL%	NUM.69
	DISELqp%	NUM.76
	DISEL%r	NUM.77
	DISEL%	r0NUM.79
	DISEL%	NrPUM.96
	DISEL%	NUrpM.97
	DISEL%	NUMs.99
	DISEL%	CVTDs0B.
	DISEL%	CBDOVsP.
	DISEL%	CVBD.6sp
	DISEL%	CVBD.7
	DISEL%	CVBD.9
t0	DISEL%	MUL.41
	tPDISEL%	MUL.42
	DtpISEL%	DIV.41
	DIuSEL%	DIV.42
	DISu0EL%	DVI41.
	DISEuPL%	DVI42.
>;END upIFN BIS
	DISEL%	vKEY.
IFN TOPS20,v0<
	DISEL%	PSORT.vP
	DISEL%	PMERG.
	DISEL%	RELES.
w	DISEL%	MERGE.
	w0DISEL%	MCLOS.
	DwPISEL%	RETRN.
	DIwpSEL%	ENDS.
>

x
IFN BIS,<
	DISx0EL%	ADD.4R
>;ENDxP IFN BIS
IFN TCSxp,<
	DISEL%	MBINDy
	DISEL%	MNAME
y0>
	DISEL%	MVD.ALyP
	DISEL%	NUM.3
yp	DISEL%	WADVV.
	zDISEL%	WRITV.

z0
	DISEL%	METER.
IFN BIS,<			;[55zp4] QUAD-WORD SIZE{ ERROR ROUTINES
{0	DISEL%	SIZE.4
	{PDISEL%	SIZE.5
>;{pEND IFN BIS			;[5|54]
	DISEL%	FLT.|012
	DISEL%	FLT.2|P2
	DISEL%	FIX.2
	DISEL%	E.F2D1
}	DISEL%	E.F2D2
	}0DISEL%	E.F2FP
	D}PISEL%	E.F2F2
	DI}pSEL%	PPOT4.
	DIS~EL%	ISBPS.
	DISE~0L%	MROUT.
				;[~P621] (MUST BE PRE~pSENT IN ALL FLAVORS OF LIBOL)
;V102B RMS ENTRY POINPTS
IFN ANS74,<
p	DISEL%	OP.MIX
	DISEL%	CL.MIX
	D0ISEL%	WT.MIR
	DIPSEL%	WT.MIS
	DISpEL%	RD.MIR
	DISEL%	RD.MIS
	DISEL0%	DL.MIR
	DISEL%P	DL.MIS
	DISEL%	pRW.MIR
	DISEL%	RW.MIS
	DISEL%	ST0.MEQ
	DISEL%	ST.PMGT
	DISEL%	ST.MpNL
>;END IFN ANS74

	DISEL%	%ST0R.
	DISEL%	%STR.PO
	DISEL%	%UNS.
	DISEL%	%UNS.O
IFN ANS74,<
	DIS0EL%	SWT.ON
	DISEPL%	SWT.OF
	DISELp%	CMP.67
	DISEL%	CMP.69
	DISEL%	0CMP.79
	DISEL%	CPOMP.6
	DISEL%	COpMP.7
	DISEL%	COMP.9
	DISEL%	SU.S069
	DISEL%	SU.S7P9
	DISEL%	SU.S97p
>
IFN ANS74,<
IFN BIS,<
	DISE0L%	CVDBT.
	DISELP%	CVDBL.
>;END IpFN BIS
>;END IFN ANS74

D IFNK:$IH 0AY
PRINTX %P ENDDFB: THERE ARpE A BITS STILL UNASSIGNED BY "DEFBYT"
D BY "DEFK:$IQ AO
IF1,<
I0FN .BITST,<
	.BIPTLFT==^D36-.BITSTp	;COMPUTE # OF FREE BITS
	RADIX 100		;MAKE IT COME POUT IN DECIMAL.
p	ENDDF1 (\.BITLFT)	;CALL MACRO TO 0PRINT NUMBER
	RAPDIX 8			;BACK TO pOCTAL
>
>;END IF1

>
>;END IM&t.: pA5
IF1,<
	.BITST==0	; Reset0 bit position to P0
>; END if1	

>; END if1	
M'Ek0P	M'Em6P	Q$u|SP$Q$v
	
	DEFIR0NE	SYMH%%	(N%,V)	RP<N%==:0>	
	DEFINRpE	SYML%%	(N%,V)	<SSYM%%	N%,V>	
	DES0FINE	ELMT%%	(N%,LSP<1>,V)	<BLKDFV	N%Sp,L,<V>>	

	RELOTC	0
	CHK==.

	T0%LOSEG

	COMCHKTP	.-CHK		

	PURGTpE	SYML%%,SYMH%%,ELMT%%
SYMH%%,ES:4*b /`3"
	ELMT%%	0FILES.
	ELMT%%	U0 SES.
	ELMT%%	SEG0@WD.
	ELMT%%	ALTE0`R.
	ELMT%%	OVRFN1.
	ELMT%%	POINT.1 
	ELMT%%	COMMA.
	ELMT%%	MONEY.
1`	ELMT%%	MEMRY.
	2ELMT%%	%NM.
	ELM2 T%%	%DT.
	ELMT%%2@	%PR.
	ELMT%%	CO2`BVR.
	ELMT%%	COB3SW.
	ELMT%%	PUSH3 L.
	ELMT%%	SURRT3@.
	ELMT%%	SUEQT.3`
	ELMT%%	SUFBT.
 IFN ANS74,<
	E4 LMT%%	%DB.
 >
MT%%	%DB.
 >
S:5 fPFI
	INC==0	fp	
	DEFINE	ELMT%%g	(N%,L<1>,V)	<
	g0IFNB	<N%>,<%'N%==gP:INC>
	INC==INC+gp1
	>
	DEFINE	SYhML%%	(N%,L<1>,V)	h0<
	IFNB	<N%>,<%'hPN%==:INC>
	>
	IhpNFBK%

	PURGE	EiLMT%%,SYML%%,INC

,SYML%%,INC<O
	ELMT%%	e0UEBLK.,4
	ELMT%%eP	ULBLK.,4
	ELMT%ep%	TTOBP.,1
	ELMTf%%	TTOBC.,1
	ELMf0T%%	TTOBF.,^D27
fP	ELMT%%	STDLB.,16fp

	ELMT%%	RRFLGg.,1
	ELMT%%	REDMg0P.,1
	ELMT%%	SHRgPDX.,1
	ELMT%%	TEgpMP.,1
	ELMT%%	TEhMP.1,1
	ELMT%%	Jh0SARR.,1
	ELMT%%	hPTEMP.2,1
	ELMT%%hp	AINFO.,1
	ELMT%i%	OVRBF.,3
	ELMTi0%%	FLDCT.,1
	ELMiPT%%	OVRIX.,1
	ELipMT%%	NOCR.,1
	ELjMT%%	PRGFLG,1
	Ej0LMT%%	TTYOPN,1
jP
	ELMT%%	ACSAV0,1jp7
	ELMT%%	MXIE,1k
	ELMT%%	IESAVE,k01
	ELMT%%	MXBUF,kP1
	ELMT%%	AUXBUFkp,1
	ELMT%%	AUXIOlW,1
	ELMT%%	AUXBl0NO,1
	ELMT%%	CMDlPLST,2
	ELMT%%	NElpWBK1,1
	ELMT%%	NmEWBK2,1
	ELMT%%	m0OLDBK,1
	ELMT%%	mPMXBF,1
	ELMT%%	DmpRTAB,1
	ELMT%%	LnRWA,1
	ELMT%%	COn0RPT.,1
	ELMT%%	HnPLOTC.,1
	ELMT%%	npOTCPT.,1
	ELMT%%o	RUN.TM,1

	ELMo0T%%	CB.DDT,1
	ELoPMT%%	SBPSA.,1
	EopLMT%%	%F.PTR,1
p
	ELMT%%	INTBLK,4p0


	ELMT%%	FS.pPZRO,1
	ELMT%%	FSpp.FS,1
	ELMT%%	FSq.EN,1
	ELMT%%	FSq0.BN,1
	ELMT%%	FSqP.RN,1
	ELMT%%	FSqp.UPD,1
	ELMT%%	FrS.IGE,1
	ELMT%%	r0FS.IF,1
	ELMT%%	rPFS.IEC,1



IrpFE TOPS20,<
	ELMsT%%	PTH.BK,.PTMAXs0
>


	ELMT%%	sPFOP.BK,1
	ELMT%%sp	FOP.IS,1
	ELMT%t%	FOP.DN,1
	ELMTt0%%	FOP.BH,1
	ELMtPT%%	FOP.BN,1
	ELtpMT%%	FOP.LB,1
	EuLMT%%	FOP.PP,1
u0

	ELMT%%	CP.BLKuP,1
	ELMT%%	CP.BKup1,1
	ELMT%%	CP.BvK2,1
	ELMT%%	CP.v0BK3,1
	ELMT%%	CPvP.BK4,1
	ELMT%%	CvpP.BK5,1
	ELMT%%	wCP.BK6,1
	ELMT%%w0	CP.BK7,1
	
	; wPMAKE TMP.BK AT LEwpAST AS BIG AS .TPxLEN ON TOPS10

x0IFN TOPS20,<	ELMTxP%%	TMP.BK,15>
IFxpE TOPS20,<	
 IFNyDEF .TPLEN,<ELMT%y0%	TMP.BK,15>
 IFyPDEF .TPLEN,<
  IypFL <15-.TPLEN>,< zELMT%%	TMP.BK,.TPz0LEN>
  IFGE <15-zP.TPLEN>,< ELMT%%	zpTMP.BK,15>
 >
>{

	ELMT%%	FID.B{0K,15

	ELMT%%	N{PRSAV.,5

	ELMT%{p%	AUTOLB,1
	ELMT|%%	DELSIZ,1
	ELM|0T%%	LNKNO.,1
	EL|PMT%%	RELEN.,1

|p

	ELMT%%	SRC.M}D,1
	ELMT%%	DLM.}0MD,1
	ELMT%%	DST}P.MD,1
	ELMT%%	NX}p.SSA,1	;ADDRESS O~F NEXT SOURCE SER~0IES ITEM
	ELMT%%~P	CV.DLM,1	;INSTRU~pCTION TO CONVERT DELIMITER
	ELMT%0%	SSACB.,16	; SAVPED AC'S WHEN CALLpING A TAG
	ELMT%%	TAG.PT,1	;ADDR 0OF ROUTINE TO STOPRE POINTER VALUE
	ELMT%%	TAG.DL,1	;ADDR OF ROUTINE0 TO GET NUMERIC DPELIMITER
	ELMT%%p	TAG.SR,1	;ADDR OF ROUTINE TO GET 0NUMERIC SOURCE
	PELMT%%	SS.CNT,1	;pSOURCE-SERIES ITEM COUNTER
	ELMT%0%	DLM.TP,1	;ADDR POF %TEMP OR %LIT pFOR DELIMITER
	ELMT%%	SRC.TP,1	;A0DDR OF %TEMP OR %PLIT FOR SOURCE
	pELMT%%	NX.SRC,1	;ADDR OF NEXT SOUR0CE ITEM
	ELMT%%	PNUM.SR,1	;NUMBER pOF SOURCES IN THIS SS
	ELMT%%	NUM0.RC,1	;NUMBER OF PRECEIVING ITEMS FpOR UNSTRING
	ELMT%%	CT.DLM,1	;COU0NT OF DELIMITERS
	ELMT%%	SRD.BP,1p	;HOLDS BP FOR SOURCE - START OF 10ST MATCH
	ELMT%%P	SRD.CC,1	;HOLDS pCC FOR SOURCE - S	TART OF 1ST MATCH	0
	ELMT%%	SRA.BP,	P1	;HOLDS BP FOR S	pOURCE AFTER LAST 
MATCH
	ELMT%%	SR
0A.CC,1	;HOLDS CC 
PFOR SOURCE AFTER 
pLAST MATCH
	ELMT%%	CV.SDS,1	;CONV0ERSION FROM SOURCPE TO DEST
	ELMT%p%	TAG.ST,1	;GET %
TEMP SET UP FOR D
0EST.
	ELMT%%	NX.
PDLM,1	;NEXT DELIM
pITER
	ELMT%%	NUMER OF 
	ELMTG.CT,1	;TAGTEM
	ELMT%%	TAG.D0A,1	;TAG TO STOREP AWAY DEST FROM OpU.TMP
	ELMT%%	DST.TP,1	;%LIT OR %0TEMP FOR DEST.
	PELMT%%	TAG.TL,1	;pTAG TO STORE TALLY ITEM

	ELMT%%0	BS.AGL,1



P
	ELMT%%	SRC.PT,p1
	ELMT%%	SRC.CT,1

	ELMT%%	TMP0.DP,1

	ELMT%%	POU.ARP,1
	ELMT%%p	OU.MDE,1

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

P	ELMT%%	PT.ARG,1
	ELMT%%	PT.VLU,1

	ELMT%%	AP.TM0P,1
	ELMT%%	DW.TPMP,1

	ELMT%%	SpE.DLM,1

	ELMT%%	PF.MDE,1

	EL0MT%%	PT.AGL,1
	EPLMT%%	TP.AGL,1
p
	ELMT%%	SU.AGL,1

	ELMT%%	BS.DL0M,1
	ELMT%%	TP.DPLM,1

	ELMT%p%	SU.RR
	ELMT%%	SU.DBR
	ELMT%%	S0U.EQ
				
	ELMTP%%	SU.DQ
	ELMT%%p	SU.MQ
	ELMT%%	SU.RRT
	ELMT%%	SU0.T1
	ELMT%%	SU.TP2
	ELMT%%	SU.T3
	ELMT%%	SU.T4
	ELMT%%	SU.T5
	EL0MT%%	SU.T6
	ELMTP%%	SU.T7
	ELMT%%p	SU.T8
	ELMT%%	SU.T9
	ELMT%%	SU.0CRH
				
	ELMT%P%	SU.EQT
	ELMT%%p	SU.DQT
	ELMT%%	SU.MQT
	ELMT%%	S0U.Y
	ELMT%%	SU.RPBP
				
	ELMT%%p	SU.MRR
	ELMT%%	SU.SBD
	ELMT%%	S0U.RLV
	ELMT%%	SUP.RND
	ELMT%%	SU.pSFQ
	ELMT%%	SU.SFS
	ELMT%%	SU.SB0S
	ELMT%%	SU.NR
	ELMT%%	SU.FR
	pELMT%%	SU.AK
	ELMT%%	SU.FBT
	ELM0T%%	SU.CFB
	ELMTP%%	SU.VRB
				
p	ELMT%%	SU.HV
	ELMT%%	SU.CK
	ELM0T%%	SU.SVK
	ELMTP%%	SU.CL1
	ELMT%p%	SU.CL2
	ELMT%%	SU.CLR
	ELMT%%	0SU.CLS
	ELMT%%	SPU.SAV,5

	ELMT%p%	FET1,1
	ELMT%% 	FET2,1
	ELMT%%	 0FET3,1
	ELMT%%	F PET4,1

	ELMT%%	 pSU.FRF


	ELMT!%%	USRLO.
IFN BI!0S,<
	ELMT%%	MRKP!PTR,2
>


	ELM!pT%%	FUN.A0,1
	EL"MT%%	FUN.ST,1
	E"0LMT%%	FUN.A1,1
	"PELMT%%	FUN.A2,1
"p	ELMT%%	FUN.A3,1


IFN MCS!TCS,#0<
IFE TOPS20,<
	ELMT%%	SNDMSG,1#p0
	ELMT%%	MCSTN,$1
	ELMT%%	M.TMP1$0,1
	ELMT%%	M.TMP$P2,1
	ELMT%%	M.AT$pCT,1
	ELMT%%	MCS%PT,1
	ELMT%%	PID%0MCP,1
	ELMT%%	PI%PDLCM,1
	ELMT%%	I%pPCFLG,1
	ELMT%%	&PAKSND,4
	ELMT%%&0	MSGSND,10
	ELMT&P%%	PAKREC,4
	ELM&pT%%	MSGREC,10

'



	ELMT%%	P'0AGOFF,1
	ELMT%%	'PPAGBIT,1
	ELMT%%'p	PAGLST,1
	ELMT%(%	PAGCNT,1
>>
 (0IFE TOPS20,<
	EL(PMT%%	PAGTBL,20
	(pELMT%%	T1SAV,1
>)
	ELMT%%	DBMLOC,)01


IFN MCS!TC)PS,<
 IFN TOPS20,)p<
	ELMT%% TP.RG1*,1
	ELMT%% TP.RG*02,1
	ELMT%% TP.R*PG3,1
	ELMT%% TP.*pRG4,1
	ELMT%% TP+.RG5,1
	ELMT%% T+0P.ID,1
	ELMT%% T+PP.CRP,1
	ELMT%% +pTP.IPC,1
	ELMT%%, TP.CPP,1
	ELMT%,0% TP.JFN,1
	ELMT,P%% TP.WNS,1
	ELM,pT%% TP.TMP,3
	SY-ML%% TP.PDS,^D10
	ELMT%% TP.PDB,T-PP.PDS
	SYML%% TP-p.PKS,^D30
	ELMT%.% TP.PKT,TP.PKS
.0	SYML%% TP.NAM,TP.P.PKT+2
	ELMT%% T.pP.TPD,1
	ELMT%% /TP.LPD,1
	ELMT%%/0 TP.HDS,1
	ELMT%/P% TP.HDP,1
	ELMT/p%% TP.DVP,1
	ELM0T%% TP.BTP,1
	EL00MT%% TP.PAT,^D10
>>

IFN DBMS,<0p
	ELMT%% DBMLOK,11
>
	ELMT%% OSH10OOT,1

IFE TOPS1P20,<
	ELMT%% M7.1p00,1
>

IFN LS2TATS,<
	ELMT%%	M20RTMB.,1
	ELMT%%	2PMROPT.,1
	ELMT%%2p	MROPTT,^D16
			3		; POINTS TO STA30RT OF BUCKET BLOC3PK
	ELMT%%	MRHDBP3p,1
	ELMT%%	MRHDF4L,1
					; BLOCK40
	ELMT%%	MRTDBP,4P1
	ELMT%%	MRLDBL4p,1
					; OR BUF5FER FOR COPY FROM50 .TMP TO .MTO
IF5PN DBMS6,<
	ELMT%5p%	MRDDBP,1
>
	E6LMT%%	MRNM6,1
	E60LMT%%	MRNMA,3
	E6PLMT%%	MRAFFT,1
	6pELMT%%	MRFKFT,1
7IFE TOPS20,<
	EL70MT%%	MBTIM.,1
	E7PLMT%%	MRCHNN,1
	7pELMT%%	MRCHCF,1
8	ELMT%%	MRBLKO,1
	ELMT%%	MRBKO.,18P
	>
IFN TOPS20,8p<
	ELMT%%	MBTIM.9,2
	ELMT%%	MRJFN90,1
	ELMT%%	MRLCJ9PF,1
	ELMT%%	MRBL9pKO,2
	ELMT%%	MRB:KO.,2
IFN FTLSDR:0,<
	ELMT%%	MRLDN:PA,^D10
	ELMT%%	M:pRLDJF,1
	  >;END; IFN FTLSDR
	>;E;0ND IFN TOPS20
IF;PN FTLSDR,<
	ELMT;p%%	MRLBPC,1
	ELM<T%%	MRLSZL,1
	EL<0MT%%	MRLFPR,1
  <PIFE TOPS20,<
	EL<pMT%%	MRCHLS,1
	E=LMT%%	MRLLDR,1
	=0ELMT%%	MRLLDV,1
=P	ELMT%%	MRCFNM,1
	ELMT%%	MRCFEX,1>
   >;END IFE TO>0PS20
>;END IFN F>PTLSDR
	ELMT%%	MR>pAPN.,1
					;0 I?F FILE IS NEW
	E?0LMT%%	MRFPGT,1,
?P	ELMT%%	MRKILL,1
	ELMT%%	MRBNUM,1@
	ELMT%%	MRRERN,@01
					; (THUS C@PAN'T WRITE IN .MT@pO FILE)
IFN TOPSA20, ELMT%% MRPSTMA0,2
IFE TOPS20, EAPLMT%% MRPSTM,1
Ap
>

	ELMT%%	DBSBTP.,1

;THE FOLB0LOWING ARE USED FBPOR $ERROR PROCESSBpING
	ELMT%%	ER.PCC,1
	ELMT%%	ER.FC0LG,1
	ELMT%%	ER.CPMCL,1
	ELMT%%	ERCp.HIJ,1
					; SODMETIMES SET UP BED0FORE THE $ERROR
DP					; CALL.
IFNDp TOPS20,<
	ELMT%E%	ER.JSE,1
>
IFE0E TOPS20,<
	ELMTEP%%	ER.E10,1
>
	EpELMT%%	ER.RBG,1
F
;** THE FOLLOWIF0NG LOCATIONS SHOUFPLD BECOME "VISIBLFpE" IN VERSION 13.G
;   THEY ARE HEG0RE TEMPORARILY FOGPR 12B SO 12A IS CGpOMPATIBLE.
	ELMTH%%	SLRSW.,1
	ELMH0T%%	RMFLG.,1

HP
IFN ANS74,<
;USHpED BY RMSIO
	ELMIT%%	CVPRM.,2
	ELI0MT%%	CVARGS,2
	EIPLMT%%	RMSVR.,1
>Ip
	ELMT%%	INTRAP,1
MT%%	INTRAP,Y<v
@ PB+

;ERRORp CHECKS
IF1,<
	IFNDEF XB,<PRINT0X ? B NOT DEFINEPD WITH "DEFBYT">
>;END PASS 1 ERROR CHECKS

DFBF0==XB_-^D32		;GETP FLAG WORDS
IFE pDFBF-DFB.FW,<		;GEN FULL WORD INST0RUCTION
	MOVE	AP,YB+C
	>
IFE pDFBF-DFB.RH,<		;GEN RIGHT HALF WOR0D INSTRUCTION
	HPRRZ	A,YB+C
	>p
IFE DFBF-DFB.LH ,<		;GEN LEFT HAL 0F WORD INSTRUCTIO PN
	HLRZ	A,YB+ pC
	>
IFE DFBF-D!FB.BT,<
..X==XB!0_^D18
..X==..X_-!P^D18			;GET RID O!pF LH, = ENDING BI"T POSITION 
..Y="0=<XB_-^D18>&^O77"P		;GET LH, JUST #"p OF BITS
	..LIT=#=<YB+C>	;FIRST #0PART OF LITERAL B#PEING BUILT
	..LI#pT==..LIT+<..Y_^D2$4> ;# OF BITS IN $0BYTE PTR
	..LIT=$P=..LIT+<<^D36-..X$p-1>_^D30> ;FINAL %BIT POSITION IN B%0YTE PTR
	LDB	A,[..LIT]
	>
A,Y?< WpF
	DEFINE	XSYMH%%	(N%,V)	< >X0
	DEFINE	SYML%%	XP(N%,V)	<SYM%%	N%,XpV>	
	DEFINE	ELMTY%%	(N%,L<1>,V)	<BY0LKDFV	N%,L,<V>>
YP	LOC	LO.PUR			
Yp
	VISBL%

	DEFIZNE	ELMT%%	(N%,L<1Z0>,V) <BLOCK L>
ZP
	INFBK%


	DEZpFINE	ELMT%%	(N%,L[<1>,V) <
	IFIDN [0<N%><E0.6>,<N%::	[PE0.6.1=:E0.6+1>
[p	IFIDN <N%><E0.7>\,<N%::	E0.7.1=:E0\0.7+1>
	IFIDN <N%\P><E0.9>,<N%::	E0.\p9.1=:E0.9+1>
	IF]IDN <N%><OU.TMP>,]0<N%::>
	IFIDN <N]P%><DST.BP>,<N%::>]p
	IFIDN <N%><DST^.CC>,<N%::>
	IFI^0DN <N%><PT.VAL>,<^PN%::>
	IFIDN <N%^p><SRC.BP>,<N%::>
	IFIDN <N%><SRC._0CC>,<N%::>
	IFID_PN <N%><SR.TMP>,<N_p%::>
	IFIDN <N%>`<DLM.BP>,<N%::>
`0	IFIDN <N%><DLM.C`PC>,<N%::>
	IFIDN`p <N%><TMP.DL>,<N%a::>
	IFIDN <N%><a0TL.VAL>,<N%::>
	aPIFIDN <N%><CT.VALap>,<N%::>
	BLOCK	bL>

	DEFINE	SYMb0L%%	(N%,V)	< >
bP
	PREST%

	COMCbpHK	.-LO.PUR	

	cPURGE	ELMT%%,SYMH%%,SYML%%,ADR
[P _BpZ7Q _Bp[zQ aJ.= 56%
	SYML%%	50IFRST.,.
	SYMH%%5P	PFRST.,.

IFN 5pANS68,<
	ELMT%%	6OVFLG.,1,<Z		>
>60

IFN BIS,<
	E6PLMT%%	E0.6,1,<EDI6pT	0>
	ELMT%%	E0.76.1,1,<0>
	ELMT%70%	,1,<0>
	ELMT%%7P	,1,<"$"-40>
	EL7pMT%%	,1,<","-40>
	ELMT%%	,1,<"."-8040>
	ELMT%%	,1,<8P" "-40>
	ELMT%%	8p,1,<"0"-40>
	ELM9T%%	,1,<"+"-40>
90	ELMT%%	,1,<"-"-49P0>
	ELMT%%	,1,<"9pC"-40>
	ELMT%%	,:1,<"R"-40>
	ELMT:0%%	,1,<"D"-40>
	:PELMT%%	,1,<"B"-40:p>
IFN ANS74,<
	;ELMT%%	,1,<"/"-40;0>
>

	ELMT%%	E;P0.7,1,<EDIT	0>
	;pELMT%%	E0.7.1,1,<<0>
	ELMT%%	,1,<0<0>
	ELMT%%	,1,<"$<P">
	ELMT%%	,1,<"<p,">
	ELMT%%	,1,<=".">
	ELMT%%	,1,=0<" ">
	ELMT%%	,1=P,<"0">
	ELMT%%	,=p1,<"+">
	ELMT%%	>,1,<"-">
	ELMT%%>0	,1,<"C">
	ELMT%>P%	,1,<"R">
	ELMT>p%%	,1,<"D">
	ELM?T%%	,1,<"B">
IFN?0 ANS74,<
	ELMT%%?P	,1,<"/">
>

	?pELMT%%	E0.9,1,<ED@IT	0>
	ELMT%%	E0@0.9.1,1,<0>
	ELMT@P%%	,1,<0>
	ELMT%@p%	,1,<133>
	ELMTA%%	,1,<153>
	ELMA0T%%	,1,<113>
	ELAPMT%%	,1,<100>
	EApLMT%%	,1,<360>
	BELMT%%	,1,<116>
B0	ELMT%%	,1,<140>
	ELMT%%	,1,<303>Bp
	ELMT%%	,1,<331C>
	ELMT%%	,1,<30C04>
	ELMT%%	,1,<3CP02>
IFN ANS74,<
	ELMT%%	,1,<141>D
>
>



	ELD0MT%%	OU.TMP,5		;FDPOR STRING
	ELMT%Dp%	DST.BP,1		;DESTEINATION BYTE POINE0TER
	ELMT%%	DST.EPCC,1		;DESTINATIOEpN CHAR COUNT
	ELFMT%%	PT.VAL,1		;'F0POINTER' VALUE
	FPELMT%%	SRC.BP,1		Fp;SOURCE BYTE PTR
	ELMT%%	SRC.CC,1G0		;CC OF SOURCE
GP	ELMT%%	SR.TMP,5	Gp	;TEMP HOLD FOR NHUMERIC SOURCE
	EH0LMT%%	DLM.BP,1		;HPBYTE PTR TO DELIMHpITER
	ELMT%%	DLMI.CC,1		;CC OF DELI0IMITER
	ELMT%%	TIPMP.DL,5		;TEMP HOIpLD FOR NUMERIC DEJLIMITER
	ELMT%%	J0TL.VAL,1		;TALLY JPVALUE
	ELMT%%	CTJp.VAL,1		;COUNT VAKLUE

	SYML%%	FRK0STIC,.
	ELMT%%	IKPIN,1,<IN 0,CMDLSTKp	>
	ELMT%%	IOUT,L1,<OUT 0,CMDLST	>L0
	ELMT%%	ISETI,1LP,<USETI 0,(AC1)	>Lp
	ELMT%%	ISETO,1M,<USETO 0,(AC1)	>M0
	ELMT%%	ICLOS,1MP,<CLOSE 0,0	>
	EMpLMT%%	IRELE,1,<RENLEAS 0,0	>
	ELMTN0%%	IGETS,1,<GETSTNPS 0,AC2	>
	ELMT%Np%	ISETS,1,<SETSTSO 0(AC2)>
	ELMT%%O0	IWAIT,1,<CALLI 0OP,10	>
	ELMT%%	IROpNAM,1,<RENAME 0,UPEBLK.	>
	SYML%%	P0LASTIC,<.-1>

	PPSYML%%	UFRST.,.
Pp	ELMT%%	MWAIT.,1,Q<MTAPE 0,0	>
	ELQ0MT%%	MREW.,1,<MTAQPPE 0,1	>
	ELMT%%Qp	MREWU.,1,<MTAPE R0,11	>
	ELMT%%	MR0BSPR.,1,<MTAPE 0,RP7	>
	ELMT%%	MBSPRpF.,1,<MTAPE 0,17	S>
	ELMT%%	MADVR.S0,1,<MTAPE 0,6	>
SP	ELMT%%	MADVF.,1,Sp<MTAPE 0,16	>
	ETLMT%%	MWEOF.,1,<MT0TAPE 0,3	>
	ELMTTP%%	MTIND.,1,<MTAPTpE 0,101	>
	ELMT%U%	MERAS.,1,<MTAPEU0 0,13	>


	ELMUPT%%	SOBOT.,1,<STAUpTO 0,4000	>
	ELMVT%%	SZBOT.,1,<STAV0TZ 0,4000	>
	ELMVPT%%	SZEOF.,1,<STAVpTZ 0,20000	>
	ELWMT%%	SZEOT.,1,<STW0ATZ 0,2000	>
	ELWPMT%%	UOPEN.,1,<OPWpEN 0,UOBLK.	>
	EXLMT%%	UENTR.,1,<EX0NTER 0,UEBLK.>
	XPELMT%%	ULKUP.,1,<XpLOOKUP 0,ULBLK.>
	ELMT%%	UOBUF.,1Y0,<OUTBUF 0,2(AC6)YP>
	ELMT%%	UIBUF.Yp,1,<INBUF 0,2(AC6Z)	>
	ELMT%%	UCLOZ0S.,1,<CLOSE 0,0	>ZP
	ELMT%%	URELE.,Zp1,<RELEAS 0,0	>
[	ELMT%%	USETI.,1,[0<USETI 0,(AC1)	>
	ELMT%%	USETO.,1[p,<USETO 0,(AC1)	>\
	ELMT%%	UOUT.,1\0,<OUT 0,0		>
	EL\PMT%%	UIN.,1,<IN 0\p,0		>
	ELMT%%	US]ETS.,1,<SETSTS 0,]0(AC2)	>
	ELMT%%	]PUGETS.,1,<GETSTS ]p0,AC2	>
	ELMT%%	^UWAIT.,1,<CALLI	0^0,10	>
IFN ANS68,^P<
	ELMT%%	USEEK.^p,1,<CALLI	0,56	>
>
IFN ANS74,<
_0	SYML%% 	USEEK.,-_P1
>
	ELMT%%	URN_pAM.,1,<RENAME 0,U`EBLK.>
	SYML%%	U`0LAST.,<.-1>
	SYM`PL%%	ULEN.,<UFRST.`p-ULAST.>

	ELMTa%%	UOCAL.,1,<EXP a0C.RSET##+1>
	ELMaPT%%	UOBLK.,3,<EXPap 0		>
	ELMT%%	TMbP.PT,1,<POINT 7,Tb0MP.BK>
	ELMT%%  bPFID.PT,1,<POINT 7bp,FID.BK>
	ELMT%%c	FUSIA.,2,<EXP 11c0	>
	ELMT%%	FUSOAcP.,2,<EXP 12	>
	EcpLMT%%	FUSCP.,1,<EdXP 10	>
	ELMT%%	d0ARGBK.,6,<EXP 5		dP>
	SYML%%	ILAST.,<.-6>

	AST.aW
" HpDu

	
IFEI TOPS20,<
	DEFINI0E	DISEL%	(NAM)	<JIPRST	1,NAM##>	
	DIpEFINE	DSTBL%	(NAMJ,IR)	<JRST	1,@NAMJ0##(IR)>
>
IFN TJPOPS20,<
	DEFINE	JpDISEL%	(NAM)	<JRSKT	NAM##>	
	DEFINK0E	DSTBL%	(NAM,IR)KP	<JRST	@NAM##(IR)Kp>
>
	RELOC	HI.OLRG			
	DISTB%			L0	

	
	DEFINE	SLPYMH%%	(N%,V)	<SYMLp%%	N%,V>	
	DEFINME	SYML%%	(N%,V)	<M0 >		
	DEFINE	ELMMPT%%	(N%,L<1>,V)	<MpBLKDFV	,L,<V>>	
N	PREST%				

	PN0URGE	ELMT%%,SYMH%NP%,SYML%%,DISEL%,DSTBL%
DISEL%,DaWKb OE

	DEFINO0E	ELMT%%	(N%,L<1>OP,V)	<BLKDF	N%,L>	Op
	LOC	LO.PUR			
	DEFINE	SYML%%	(P0N%,V)	<SYM%%	N%,VPP>	
	DEFINE	SYMH%Pp%	(N%,V)	< >	

Q	%LOSEG			

	COQ0MCHK	.-LO.PUR	
QP
	PURGE	ELMT%%,SYMH%%,SYML%%
SYe-nQ e7iXP +e7kP <gl.: 0A+

IF1,<	P			;ONLY HAPPENS pON PASS 1
;ERROR CHECKS
IFNDEF X0B,<	PRINTX ? SAMPBYT: B NOT PREVIpOUSLY DEFINED WITH DEFBYT>

XA=0=XB
YA==YB
>;END IF1
B
>gRX5Q @gRY8Q gRYzQ gR[VQ gR~)  /pCM

;ERROR0 CHECKS
IF1,<
	00IFNDEF XB,<PRINT0PX ? B NOT DEFINE0pD WITH "DEFBYT">
>;END PASS 1 ERR10OR CHECKS

DFBF1P==XB_-^D32		;GET1p FLAG WORDS
IFE 2DFBF-DFB.FW,<		;G20EN FULL WORD INST2PRUCTION
	MOVEM	2pA,YB+C
	>
IFE3 DFBF-DFB.RH,<		;30GEN RIGHT HALF WO3PRD INSTRUCTION
	3pHRRM	A,YB+C
	4>
IFE DFBF-DFB.L40H,<		;GEN LEFT HA4PLF WORD INSTRUCTI4pON
	HRLM	A,YB+5C
	>
IFE DFBF-50DFB.BT,<
..X==X5PB_^D18
..X==..X_5p-^D18			;GET RID 6OF LH, = ENDING B60IT POSITION 
..Y6P==<XB_-^D18>&^O76p7		;GET LH, JUST 7# OF BITS
	..LIT70==<YB+C>	;FIRST7P PART OF LITERAL 7pBEING BUILT
	..L8IT==..LIT+<..Y_^D8024> ;# OF BITS IN8P BYTE PTR
	..LIT8p==..LIT+<<^D36-..9X-1>_^D30> ;FINAL90 BIT POSITION IN 9PBYTE PTR
	DPB	A,[..LIT]
	>
AgfhQ  DCA==:BiP i?4HP m'+ "@2z

	ELMT%"`%	MEMRY%,1
	ELMT#%%	TALLY.,1,<Z>
# 	ELMT%%	SZERA.,1,#@<Z>
	ELMT%%	OVFL#`O.,1,<Z>

	ELMT$%%	TRAC1.,1,<JRST$ 	BTRAC.##>
	ELMT$@%%	TRAC2.,1,<JRST$`	TRPOP.##>
	ELMT%%%	TRAC3.,1,<JRST% 	TRPD.##>

	ELM%@T%%	OPNCH.,1,<XWD%`	777774,0>
	ELMT&%%	RN.DEV,1
	ELM& T%%	RN.PPN,1
	EL&@MT%%	RN.NAM,1
	E&`LMT%%	FSLOC.,1,<Z'>
	ELMT%%	HLOVL.' ,1,<Z>

	ELMT%%'@	%REMOV,1,<EXP	RE'`MOV.##>
IFN ANS7(4,<
	ELMT%%	%ENT( OV,1,<EXP	ENTOV.#(@#>
>

	ELMT%%	(`KEYCV.,1,<Z>
	EL)MT%%	SAVEF.,1,<Z>) 






	EL)@MT%%	HPRT.,1,<EXP)`	HSRPT.##>
					*	; PRINTING ROUTI* NE.
	ELMT%%	SEGN*@O.,1,<Z>
	ELMT%%*`	SNRBP.,1,<EXP	SB+PSG.##>


	ELM+ T%%	TRAC4.,1,<EXP+@	CNTRC.##>
	ELMT+`%%	CIOTF.,1,<EXP	,SFOV.##>



, 


IFN DBMS,<		,@		;[623]
	ELMT%%,`	DBSTP%,1,<EXP	DB-STP$##>
	SYML%%	- LEVEL.,<.-1>
	IF-@NDEF LEVEL.,<PRIN-`TX ?LEVEL. NOT DE.FINED!>
>					;[. 623]
IFE DBMS,<	.@			;[623]
	ELMT%.`%	LEVEL.,1,<Z>
>/					;[623]

	E/ LMT%%	METR.,1,<Z>



.,1,<Z>u2| %pB{

;ERROR& CHECKS
IF1,<
	&0IFNDEF XB,<PRINT&PX ? B NOT DEFINE&pD WITH "DEFBYT">
>;END PASS 1 ERR'0OR CHECKS

DFBF'P==XB_-^D32		;GET'p FLAG WORDS
IFE (DFBF-DFB.FW,<		;G(0EN FULL WORD INST(PRUCTION
	MOVE	A(p,C
	>
IFE DFBF)-DFB.RH,<		;GEN R)0IGHT HALF WORD IN)PSTRUCTION
	HRRZ	)pA,C
	>
IFE DF*BF-DFB.LH,<		;GEN*0 LEFT HALF WORD I*PNSTRUCTION
	HLRZ*p	A,C
	>
IFE D+FBF-DFB.BT,<
..X+0==XB_^D18
..X==+P..X-^D18			;GET +pRID OF LH, = ENDI,NG BIT POSITION 
..Y==<XB_-^D18>,P&^O77		;GET LH, J,pUST # OF BITS
	.-.LIT==<C>		;FIRS-0T PART OF LITERAL-P BEING BUILT
	..-pLIT==..LIT+<..Y_^.D24> ;# OF BITS I.0N BYTE PTR
	..LI.PT==..LIT+<<^D36-..p.X-1>_^D30> ;FINA/L BIT POSITION IN/0 BYTE PTR
	LDB	A,[..LIT]
	>
uO%|R :D

;ERROR:0 CHECKS
IF1,<
	:PIFNDEF XB,<PRINT:pX ? B NOT DEFINE;D WITH "DEFBYT">
>;END PASS 1 ERR;POR CHECKS

DFBF;p==XB_-^D32		;GET< FLAG WORDS
IFE <0DFBF-DFB.FW,<		;G<PEN FULL WORD INST<pRUCTION
	MOVEM	=A,C
	>
IFE DFB=0F-DFB.RH,<		;GEN =PRIGHT HALF WORD I=pNSTRUCTION
	HRRM>	A,C
	>
IFE D>0FBF-DFB.LH,<		;GE>PN LEFT HALF WORD >pINSTRUCTION
	HRL?M	A,C
	>
IFE ?0DFBF-DFB.BT,<
..?PX==XB_^D18
..X=?p=..X_-^D18			;GET@ RID OF LH, = END@0ING BIT POSITION @P
..Y==<XB_-^D18@p>&^O77		;GET LH, AJUST # OF BITS
	A0..LIT==<C>		;FIRAPST PART OF LITERAApL BEING BUILT
	.B.LIT==..LIT+<..Y_B0^D24> ;# OF BITS BPIN BYTE PTR
	..LBpIT==..LIT+<<^D36-C..X-1>_^D30> ;FINC0AL BIT POSITION ICPN BYTE PTR
	DPB	CpA,[..LIT]
	>
A,[..LIT]
	>

{:P 
$#@P 	
&C@P 
uS@P 
#@P fI9P |,{P |-YP }[0P MI9P 2~93 D0D'
	VISBL%	DP	
	INFBK%		
	PRDpEST%	
	LIDAT%		
%	
	LIDAT%		6}i<P ?6)WP B}ZP C.:P N,}rP O,\:P O,hZP O.,ZP W\gP S@P >}{woP