Google
 

Trailing-Edge - PDP-10 Archives - steco_19840320_1er_E35 - 10,5676/teco/source/local/tecunv.unv
There are 5 other files named tecunv.unv in the archive. Click here to see a list.
x,N@P BD@ BH@ C&)9 ^BHALF(A)C2
q R}
	$ADJSP	QXS,$XSB	
	STORIR0.	$XEA,T1,XSBTYP,(XS) 
,XSBTYPC2L{G 
XY<^D35-<^L<
xRGHBT.(A)>>+<^D37*<<^L<RGHBT.(A)>>/^D36>>>.(A)CR/
	DEFINE	(OPCODE,TEX
	OPCODE	<A,<TEXT>>>DE	<ACW%yYPvE>3Pv@EuLzQE' AQE'%[P E,tP'E,t;vQ `E,t[RQ E,tiP'E,tiQ xE,tkQ `E,tlRQ E,tl[Q xE,tlzQ E,uLzQ E,unQ xE,uy2Q E,vP'E,v
    IFE c(FTXADR,<
	IDIVI	cHA,5		
	HLL	A,BchTAB-1(A+1) 
	ADdDI	A,.BKTLNB	
d(    >
    IFN FTdHXADR,<
	PRINTX ?dhWrite BLDBPT
    >
BLDBPT
|hoE2\ 
		A	(BKADR,BK.ADR
	KADR,0,<D>)E2\;v 
		A	(B,C,.BKCOL,BK.COL(,1,BLKCOL,0,<D>)
	KCOL,0,<D>)E2\[R ppK
		A	(B	,C,.BKEND,BK.END	0,1,BLKEND,400000000000,<D>)
	0E2\i (p:
		A	(BH,C,.BKFDI,BK.FDI(,1,BLKFDI,0,<D>)
	KFDI,0,<D>)E2\i (p.
		A	(BH,C,.BKFDO,BK.FDOh,1,BLKFDO,0,<D>)
	KFDO,0,<D>)E2\k 
		A	(BKFLG,BK.FLG
	KFLG,0,<D>)E2\lR 	ppS
		A	(B
,C,.BKFRE,BK.FRE
0,1,BLKFRE,400000000000,<D>)
	0E2\l[ 
		A	(BKFRW,BK.FRW
	KFRW,0,<D>)E2\lz 
		A	(BST,BK.FST00000,<D>)
	0E2]Lz @pw
		A	(B ,C,.BKLST,BK.LSTp,1,BLKLST,400000000000,<D>)
	0E2]n 
		A	(BKNXT,BK.NXT
	KNXT,0,<D>)E2]y2 
pe
		A	(B
0,C,.BKOED,BK.OED
P,1,BLKOED,400000000000,<D>)
	0E2^ 
		A	(B,C,.BKPLN,BK.PLN(,1,BLKPLN,0,<D>)
	KPLN,0,<D>)E2^
		A	(Bh,C,.BKPT,BK.PT,1(,BLKPT,400000000000,<D>)
	0000E2^
pp[
		A	(B,C,.BKPTR,BK.PTR0,1,BLKPTR,400000000000,<D>)
	0E2^:= 
		A	(BKSIZ,BK.SIZ
	KSIZ,0,<D>)E2^IV 
		A	(BKTFL,BK.TFL
	KTFL,0,<D>)E2^K8 p

		A	(B ,C,.BKTMP,BK.TMP@,1,BLKTMP,0,<D>)
	KTMP,0,<D>)E2^N8 
		A	(BKTYP,BK.TYP
	KTYP,0,<D>)EVMI %^
 
;+.PA% RA -8
;XXXTTL	Ma%@cro to generate a%` TITLE statement &of the form:
;.B& REAK
;-TITLE A &@COMMENT VERSION
&`	DEFINE ITTL,<IF'G G,<
	TITLE	A'  - H  %BDE(F'@)-G
>IFE G,<
'`	TITLE	A - H  %(BDE(F)
>>
 ( 
;+.PARA -8
;XX(@X137	Macro to set(`up location 137 w)ith the specified) 
;-version numbe)@r. Note: the macr)`o does its own "L*OC" and "RELOC".
	DEFINE I137,<I*@FG G,<
	IF2,<LA*`LL>
	LOC	137
	B+YTE (3)IWHO(9)I+ VER(6)IMIN(18)I+@EDT	; A %BDE(+`F)-G
	RELOC
	,SALL
>	IFE G,<
	IF2,<LALL>
	LO,@C	137
	BYTE (3),`IWHO(9)IVER(6)I-MIN(18)IEDT	; A-  %BDE(F)
	RE-@LOC
	SALL
>>
 -`
; Macro to defi.ne version # at c. urrent location
.@;+.PARA -8
;XXXV.`RS	Macro to defin/e the version num/ ber at an
;-arbi/@trary user locati/`on.
	DEFINE IVR0S,<IFG G,<
	IF20 ,<LALL>
	BYTE (30@)IWHO(9)IVER(6)0`IMIN(18)IEDT	; 1A %BDE(F)-G1 
	SALL
>	IFE G1@,<
	IF2,<LALL>
1`	BYTE (3)IWHO(9)2IVER(6)IMIN(18)2 IEDT	; A %BD2@E(F)
	SALL
>>`
 
; Generate a 3PASS2 PRINTX stat3 ement
;+.PARA -83@
;-XXXPTX	Genera3`tes a pass 2 PRIN4TX statement.
	D4 EFINE IPTX,<
	I4@F2,<
	IFG G,<PR4`INTX A %BDE(5F)-G	H
>	IFE 5 G,<PRINTX A %B5@DE(F)	H
>>>
5` 
;+.PARA -8
;X6XXUNV	Macro to ge6 nerate a UNIVERSA6@L statement. The 6`macro in
;effect7 is an exact copy7  of the XXXTTL ma7@cro except that t7`he
;-word "UNIVE8RSAL" replaces th8 e word "TITLE".
8@	DEFINE IUNV,<IF8`G G,<
	UNIVERSA9L A - H  %BD9 E(F)-G
>IFE G9@,<
	UNIVERSAL A9` - H  %BDE(F:)
>>
 
;+.PAR: A -8
;XXXERR	Mac:@ro to type a fata:`l error message o;n the
;user's te; rminal. The call ;@is of the form:
;`;.BREAK
;XXXERR <(ZZZ,Error messag< e,<PDP-10 instruc<@tion>)
;.BREAK
<`;ZZZ is the 3-cha=racter error code= , error message i=@s the ASCIZ
;str=`ing to be typed o>n the terminal an> d PDP-10 instruct>@ion is
;an optio>`nal argument indi?cating what the u? ser wants to do
?@;about the error ?`just typed. If th@e argument is nul@ l an
;-EXIT is e@@xecuted.
	DEFINE@` IERR (COD,MSG,IANSTR),<
I'COD:	A JRST	[
	OUTSTR	[A@ASCIZ \
? I'CODA` MSG\]
	IFNB <INBSTR>,<INSTR>
	IFB B <INSTR>,<EXIT>
]>
 
;+.PARA -B`8
;XXXWRN	Macro Csimilar to the XXC XERR macro exceptC@ that a
;warningC` message is issueDd rather than a fD atal and
;-the dD@efault PDP-10 insD`truction to be exEecuted is "JRST .E +1".
	DEFINE IWE@RN (COD,MSG,INSTRE`),<
I'COD:	JRSTF	[
	OUTSTR	[ASCIF Z \
% I'COD MSGF@\]
	IFNB <INSTR>F`,<INSTR>
	IFB <IGNSTR>,<JRST .+1>
]>
 
;+.PARA -G@8
;XXXNME	Macro G`to call another mHacro with the verH sion number as anH@ argument.
;ThisH` macro is given tIhe name of anotheI r macro to call wI@ith the ASCII verI`sion
;number as Jthe only macro arJ gument.
;-
 
	J@DEFINE	INME(MCRNJ`ME)<
IFG G,<
	KMCRNME'(<%BDE(K F)-G>)
>
IFE K@G,<
	MCRNME'(<%K`BDE(F)>)
>>
 

F)>)
>> 
		..FLG=90=0		
		IFB <C>,
h<IFB <B>,<
			.60..MSK==RGTMSK(<<^
-<<..MSK>>>>)	
	
(		IFE ...MSK,<..O'FF==..OFF+1	
			0	..MSK==0		
				.MSK==-1		
			 
			BYTM(A,<.
							
			..FLG==-1			k
		>> 
		IFNB <k8B>,<.SIZ==^D<B>kX>	
 
		IFNB <Ckx>,<		
			BYTM	(lA,MASK.(.SIZ,C))l8 
			..FLG==-1		lX
		> 
 
		IFE lx..FLG,<IFGE <^D<.mSIZ>-^D36>,<	
		m8	WORD(A,<^D<.SIZmX>/^D36>) 
			IFNmx <<^D<.SIZ>-<^D<.nSIZ>/^D36>*^D36>>n8,<	
				BYT(...,nX<<^D<.SIZ>-<^D<.SnxIZ>/^D36>*^D36>>)o 
				PURGE $XS.o8..,XS$...,XSB...
			> 
 
			..FoxLG==-1	
		>> 
 p
		IFE ..FLG,<IFp8E <^D<.SIZ>-^D18>pX,<	
			HALF(A)	px
			..FLG==-1	
q		>> 
 
		IFE .q8.FLG,<		
			..BIqXTS==MASK.(^D<.SIZqx>,<^D<.SIZ>-1>) 
 
			REPEAT <^Dr836-^D<.SIZ>+1>,<	rX
				IFE ..FLG,<rx	
					IFE <..BIsTS&..MSK>,<	
			s8			..MSK==..MSK!.sX.BITS 
						..FsxLG==-1	
					> ;t End of IFE <..BIt8TS&..MSK>
 
			tX	IFE ..FLG,..BITStx==..BITS_<-1> 
	u			> 
			> 
 
u8			IFE ..FLG,<	
uX				..BITS==MASK.ux(^D<.SIZ>,<^D<.SIvZ>-1>) 
				..OFv8F==..OFF+1	
				vX..MSK==..BITS	
	vx		> 
 
			DEFSMw.(XS$A,..BITS) 
			DEFSM.($XSA,wX..OFF)	
			DEFSTwx.(XSBA,$XSA,XS$xA) 
			SHOW.	$Xx8SA	
			SHOW.	XS$A	
		> 
	VIEg%P xx_[
		IFN By&..MSK,<	
			..My8SK==0	
			..OFF=yX=..OFF+1	
		> 
yx 
		..MSK==..MSKz!B	
 
		DEFSM.z8($XSA,..OFF)	
	zX	DEFSM.(XS$A,B)zx	
		DEFST.(XSBA{,$XSA,XS$A) 
	{8	SHOW.	$XSA	
		SHOW.	XS$A	
	G$I3P @G%P ?G&LWP G'zP @GthP `GtiP Gt;2P'GtkQ Gv
zQ xGvTP'pGvYQ xG$h @q
		A	(B,C,.CDAG1,CD.AG1`,1,CDTAG1,0,<D>)
	TAG1,0,<D>)G$i 
		A	(BP,C,.CDAG2,CD.AG2
	TAG2,0,<D>)G$;2 q!
		A	(B0,C,.CDCMD,CD.CMD,1,CDTCMD,0,<D>)
	TCMD,0,<D>)G$k Pq
		A	(B0,C,.CDFLG,CD.FLG,1,CDTFLG,0,<D>)
	TFLG,0,<D>)G&
z `q	
		A	(B@,C,.CDPST,CD.PST,1,CDTPST,0,<D>)
	TPST,0,<D>)G&T 
		A	(Bp,C,.CDQRI,CD.QRIP,1,CDTQRI,0,<D>)
	TQRI,0,<D>)G&Y pq?
		A	(B,C,.CDUDC,CD.UDCp,1,CDTUDC,0,<D>)
	TUDC,0,<D>)GrzQ GtQ GtQ Gt;Q GtXpQ @Gt[vQ GuH`Q  Gum6Q Gv9Q @GvSQ Gv,zQ Gv>6Q  G @ G"\[` 
A8d
	XCT	EOX
AXCTS+A-1	
	 TRNA
Ax			
	  JRST	B		

	  JRST	B		G$$82Q G$$;P'G$$=Q xG$&LWQ G&t82 /r}
		A	(B/0,C,$CICAD,CI$CAD/P,1,CINCAD,400000000000,<D>)
	0G&t; .Ps	
		A	(B0p,C,$CICLN,CI$CLN1,1,CINCLN,0,<D>)
	NCLN,0,<D>)G&t= #Xs
		A	(B0,C,$CICTY,CI$CTY00,1,CINCTY,0,<D>)
	NCTY,0,<D>)G&vLW -rl
		A	(B-(,C,$CITRN,CI$TRN-H,1,CINTRN,400000000000,<D>)
	)G8$-Q G8$.:Q G8$;RQ G8$[RP'G8$kQ xG8%SQ G8%KxQ 0G8%\UQ @G8&Q G8&=Q  G:$- (rB
		A	(B!H,C,$CNBTS,CN$BTS((,4,CNDBTS,0,<D>)
	DBTS,0,<D>)G:$.: )(rP
		A	(B)H,C,$CNBYT,CN$BYT*,40,CNDBYT,0,<D>)
	DBYT,0,<D>G:$;R #xr#
		A	(B$,C,$CNCND,CN$CND$8,2,CNDCND,0,<D>)
	DCND,0,<D>)G:$[R %8r/
		A	(B%X,C,$CNEND,CN$END%x,1,CNDEND,0,<D>)
	DEND,0,<D>)G:$k "hr'
		A	(B'h,C,$CNFLG,CN$FLG$x,1,CNDFLG,0,<D>)
	DFLG,0,<D>)G:%S )hr\
		A	(B),C,$CNINF,CN$INF+@,0,CNDINF,0,<D>)
	DINF,0,<D>)G>qcG d`&...CON A ...CON A G>tCG e *..COND A ..COND A GH$<ZQ  GH$=Q GH$J1Q  GH$J6Q GH$KQ GH%hyQ GH%lVQ @GH%mxQ GH&+Q GH&-1Q GH&8yQ GH&H1Q GH&MQ @GH&x8Q GK @ GK$[Z 
	...A==
	TABENT	A,<B>	
BENT	A,GK%T 
HEF.XCR
( .DEFINEIST),<
	(IRP <LIST>,<
	H  ...'LIST==0
	hT  .XCREF ...'LIS
	>
    > 
(WF..CRT(<INT,WVT,
hT	PURGE ..CR
	 .CREF		
(BLINTERN AT
H(TABDEF0)


h

DEFINE	CRTEND<


	AFLG==:IF><CR$CTU

NEDEFICRT(NAME,DE
	IFEN..E,<
	hBENTA(NAME,<DEFAU
	> 
(  > 



	LSTOF.		
	...CRT(INT,<
	...CRT<PUSHJ P,.TC
	...CRT(CZ T1,>)		
	...CRT(CDE,<MOV
	...CCRP,<MOVX T1,.
	...CRT<MOVX T1,.IN
	...CRT(CX T1,.INFI
	...CRT(CIC,.INFIN>
	...CRT(CDC,<FIN>)	
	...CRT(CPP,<MO)	
$	...CRT(DEL,<PUSH
	...CRT(XYP,<JFCL>)
IFE....SDN,	.JFCL>)
IFE....SUP,	.JFCL>)
	...CRT(ICH,<
	...CRT<JFCL>)		
	H...CRT(TCH,<PUSHJ
	..CRT(DLF,<JFCL>)	
	...CRT(DVT,<J
	...CRT(FCL>)		
	...CRT(FIN,<JFCL>)
	LSTON.				
(H


(h..DEFINEIST),<
	.XCREF		
	IRPT<L<IF2, PURGE 
	.CREF
    > 
*...RT(<INT,WVT,WF
,H		PURGE ...CRT
 TABEND		
>
$<TABEND		$I8Q @GL%|Q pGL&,Q xGO$<z 70sS
		A	(B5P,C,$CSCST,CS$CST:0,1,CSTCST,0,<D>)
	TCST,0,<D>)GO$I8 6prw
		A	(B7,C,$CSDEP,CS$DEP.p,1,CSTDEP,0,<D>)
	TDEP,0,<D>)GO%| 2rf
		A	(B20,C,$CSOPR,CS$OPR,h,1,CSTOPR,0,<D>)
	TOPR,0,<D>)GO&, #8r
		A	(B#,C,$CSRPT,CS$RPT!h,1,CSTRPT,0,<D>)
	TRPT,0,<D>)GP$Q @GP$Q xGP$Q GP$P'GP$;2Q GP$;RQ GP$=Q GP$kQ `GP%{P'GP%}Q  GP%}Q GP%}Q xGP&=Q GP&LQ GR E0t/
		A	(BEP,C,$CTALN,CT$ALNEp,1,CTBALN,0,<D>)
	BALN,0,<D>)GR GtA
		A	(BGp,C,$CTALW,CT$ALWH,1,CTBALW,400000000000,<D>)
	0GR 9t'
		A	(BDP,C,$CTATY,CT$ATYDp,1,CTBATY,0,<D>)
	BATY,0,<D>)GR;2 @t
		A	(B@8,C,$CTCMD,CT$CMD@X,1,CTBCMD,400000000000,<D>)
	)GR;R A t
		A	(BA@,C,$CTCND,CT$CNDA`,2,CTBCND,0,<D>)
	BCND,0,<D>)GR= >st
		A	(B>(,C,$CTCTB,CT$CTB>H,2,CTBCTB,0,<D>)
	BCTB,0,<D>)GRk 
Ht
		A	(BC0,C,$CTFLG,CT$FLGCP,1,CTBFLG,0,<D>)
	BFLG,0,<D>)GR{ HPtK
		A	(BHp,C,$CTOLN,CT$OLNI8,1,CTBOLN,0,<D>)
	BOLN,0,<D>)GR} JXtM
		A	(BH0,C,$CTOTH,CT$OTHIX,1,CTBOTH,400000000000,<D>)
	0GR} :PsW
		A	(B5p,C,$CTOTY,CT$OTY:p,1,CTBOTY,0,<D>)
	BOTY,0,<D>)GR= ?s}
		A	(B?0,C,$CTSTK,CT$STK?P,2,CTBSTK,0,<D>)
	BSTK,0,<D>)GRL B(t
		A	(BBH,C,$CTTPT,CT$TPTBh,1,CTBTPT,400000000000,<D>)
	)GR/
	DEFINE.(OPCODE,TEX
	OPCODE	<<TEXT>>>PCODE	<<TH
9P }H:DtP H:mQP tH:o	YP PH:o	[P H:t-3P H;KP HH;&
WP $H;'	P @I$P`]*II46 
XaMSTORE(T1,B,,A)TORE(T1,I5MY Tx]m
	EXTERN TX%LVINI, %LVTRM, %VLVVID, %LVMEM, %LV8VSYM, %LVUUO
	EXVXTERN %LVPRS, %LVCVxMD, %LVSRH, %LVECWM, %LVFIL, %LVCOMW8
	EXTERN %LVUPD,WX %LVMVM, %LVCIN, Wx%LVFCM
	EXTERN %XLVDEC, %LVHEA

X8


%TECV1==:%LXXVINI+%LVTRM+%LVVIXxD+%LVMEM+%LVSYM+%YLVUUO
%TECV2==:%Y8LVPRS+%LVCMD+%LVSYXRH+%LVECM+%LVFIL+Yx%LVCOM
%TECV3==:Z%LVMVM+%LVUPD+%LVZ8CIN+%LVFCM

; TZXerminal dependentZx low segments. No[te that a separat[8e version
;numbe[Xr is generated fo[xr these modules. \This is because t\8here
;is no stor\Xage in these modu\xles that needs to] be saved in the ]8EE file.

%TECT]X1==:%LVDEC+%LVHEA



+%LVHEAI63G f(8

	DEFINE	fHA(MACRO,AC,Y,LISfhT),<
		MACRO	(ACg,Y,B,C,D,A,E,<LIST>)
	> 
I6;' gHP
	IF1,<IFghDEF A,<
		.IF hA,LOCAL,<
			IFNh( <A-B>,<
			PRhHINTX ? A is multhhiply defined>>
	i	.IFN A,LOCAL,<Pi(RINTX ? A is muliHtiply defined>>
ih	     IFNDEF A,<jA==B>>
	IF2,<A==B>
	IF2,<I6= jHt

	..NUM==jh1
	..SGN==0
	.XkCREF ..NUM,..SGN	k(
	IFNB <D>,<..NkHUM==D> 
	IFNB <khE>,<		
		.COND(l<<<..IFIDN(SINGFLl(,SIGNED)&..IFE(ClH+1)>,<..SGN==D%.SlhGN>>,			<<..IFIDNm(SINGFL,UNSIGNED)m(>,<>>,			<<0>,<PRmHINTX ? E should mhbe either SIGNED nor UNSIGNED>>>)
n(	> 
	DEFS..(A,<nHB>,<C>,\..NUM,\..SGN)
..NUM,\I.@ 
xaC
 IFN <<
B>-<C>+1>,<
	MO
XVE	A,B		
	MOVE
8	A+1,C		
 >
 
IFE <<B>-<C>+1>
0,<
	DMOVE	A,B		
 >
E	A,B	I?L@ ia#
ATBL:
i(
    DEFINE STR(hhSTRING,ARG),<
	.
xXCREF		
	%%..=0

	.CREF		
	.XCRE
8F	%%..	
	IRPC <S
xTRING>,<%%..==%%.
X.+1>
	[POINT	7,[
ASCIZ |STRING|]
8	EXP	%%..
	STRSU
xB	(ARG)
	]
	IF2
X, PURGE	%%..
   
 >

	STRTBL		
8ALEN==.-ATBL
ALEN==.-ATBL
I?}

(FIDEVSW(NAME,PTR,

AN:	B		
(
  AL==.-AN	
H
DEFINETSW(NAME,PLAG
	PTR
>

(AP:	B		

DEFINW(NAME,PTR,RTN

AV:		

DEFINE	SWTR,RTN,VAL
D RIFNBL<RTN>,<XW
H0IFBAG<RTN>,<XWD 
>
AR:	B		

>
AR:IC.@ 
xa3
 IFN <<
B>-<C>+1>,<
	MO
8VEM	A,B		
	MOV
XEM	A+1,C		
 >
x
 IFE <<B>-<C>+
81>,<
	DMOVEM	A,B		
 >
M	A,IR/
IFN$A&T<
	DEFINE	(A,B,C,D,E,
	.CREF
	EXP'<<Z'A'B'H'I'J'
	.XCREF			
	> 
	XTEXT.	TEXT.
	CTE.
> 
IFE$A&T<
	.EWRD.
> 
	..TYPE==0
	..FRST==0
0
IVnLV
	PROLOG	ummyAtablei

	LOWVER)		;tDefinel
				; not included.

	IRP B,<
		ENTRY	VBTBL	;rDe
		VBTBL==VCDefine 
	h	VBFLG==:VCRTFLG
	> ; End of IRP
 ; End ofK:&3P @K:&= 
(xx
 
		IFN6 ..MSK,<..OFF==..E8OFF+1>	
						
'X		DEFSM.($XSA,..#HOFF)	
 
		SHOW.z(	$XSA	
		IF2,<
			IFDEF ...MSK,'(<SUPPRESS ...MSK>

			IFDEF ..BITSm ,<SUPPRESS ..BITSB>
			IFDEFE.SIZ,IZ>
-h			IFDEF...MSK,<S
	
		IFDEF ..OFF,<SU8PPRESS ..OFF>
		'	IFDEF ..FLG,<SUP
	PRESS ..FLG>
		>X; End of IF2
		IyxF1,<
			IFDEF...REF ...M8SK>
			IFDEF ..B{XITS,<.XCREF ..BIT/(S>
			IFDEF .SIZ
,<.XCREF .SIZ>
	)x		IFDEF ..MSK,<.XxCREF ..MSK>
			I(FDEF ..FLG,<.XCREF ..FLG>
			IFDE@F ..OFF,<.XCREF ..OFF>
		>; End of IF1
	; End oy_]LEN
	K;  rX.TSA==C.TSA==CK=
%P K=P K=P K>$X`P K?4P KH$;wQ KH$LhQ KH$LqQ @KH$kQ xKH$lzQ KH%MVQ ~KH&	\P'KK;w Pu
		A	(BR,C,$ERCON,ER$CONR ,1,ERRCON,400000000000,<D>)
	0KKk Kxtk
		A	(BLx,C,$ERFLG,ER$FLGM0,1,ERRFLG,0,<D>)
	RFLG,0,<D>)KKlz O@tv
		A	(BO`,C,$ERFST,ER$FSTN`,1,ERRFST,400000000000,<D>)
	0KKMV KXtX
		A	(BL8,C,$ERLVL,ER$LVLK,1,ERRLVL,0,<D>)
	RLVL,0,<D>)KK|@ 
BHd
	.ERR	A##
	
	.ERR	AKK	\ Ntt
		A	(BN ,C,$ERPFX,ER$PFXN@,1,ERRPFX,0,<D>)
	RPFX,0,<D>)KKN 
CHd:

	PRINTX	
ChB=A		

	$TEXT
D				
e:!	$STRIN
D(G(<C>)			
f:!	
DH$STRING(<D>)		
Dh	$TXTPT				
	E.
EB==:.-PTRBEG		
	
E($BUILD(ERR,$ERLEN
EH)		
	$SET	FLG,0	
Eh		
	$SET	LVL,A	
F	
	$SET	PFX,<SIX
F(BIT |   B|>	
	$
FHSET	FST,e			
	$
FhSET	CON,f			
	$
GEOB				

	.XCRE
G(F	e,f
	SUPPRESS e,f

	RESL@ L:
;Q L:)`Q  L:)iQ @L:;Q kpL:{Q L:)1P$L:%{RQ L:&Z@P"L:, P!L:,:Q L:,;2P @L:4;wP L:5<tQ L:=xvQ L:MhvP L:MiTP L:d[Q L:l8vQ @L:v<TQ L:~Q  L;X:Q  L;[@Q L;iTQ L;LvQ L;(tQ L;LHP  L;LIP L;&(1Q @L;'sQ Mt+Q Mt,TQ Mt-3P'Mt:Q `Mt=Q MtI3Q MtI;Q MtX@Q Mt[XP$Mt[sQ @Mt[vQ  Mt\YQ xMt^Q xMtiQP'MtkQ Mu	<Q  Mu
Q Mu@Q MuXQ MuyQ MuLwQ Mu[rP Muh6Q MuiQ MuiP"MukP!MukrQ MuktQ @MukvQ  MukwQ MumP  Mu|Q @Mu}:Q Mv3Q Mv
Q Mv
WP'~MvMv(wQ Mv8wQ Mv9IQ Mv9IQ Mv9JQ Mv9JQ Mv9RQ Mv:=Q MvK2P @MvK8Q Mvi9Q M+ xHwG
		A	(Bx(,C,.FDBLK,FD.BLKxx,1,FDBBLK,400000000000,<D>)
	0M,T nw
		A	(Br,C,.FDBRH,FD.BRHr(,1,FDBBRH,400000000000,<D>)
	0M-3 kpvf
		A	(Bl@,C,.FDBUF,FD.BUFl`,1,FDBBUF,0,<D>)
	BBUF,0,<D>)M: ipvR
		A	(BiP,C,.FDCHN,FD.CHNj ,1,FDBCHN,0,<D>)
	BCHN,0,<D>)M= shw"
		A	(Bt,C,.FDCTR,FD.CTRt(,1,FDBCTR,400000000000,<D>)
	0MI; T8u)
		A	(BTX,C,.FDDEV,FD.DEVU,1,FDBDEV,400000000000,<D>)
	0M\Y kv[
		A	(Bj`,C,.FDERR,FD.ERRk0,1,FDBERR,0,<D>)
	BERR,0,<D>)M^ F0u8
		A	(BVh,C,.FDEXT,FD.EXTW,1,FDBEXT,0,<D>)
	BEXT,0,<D>)MiQ vxw9
		A	(Bw8,C,.FDFFC,FD.FFCw,1,FDBFFC,0,<D>)
	BFFC,0,<D>)Mk h`vI
		A	(Bh@,C,.FDFLG,FD.FLGi,1,FDBFLG,400000000000,<D>)
	0My mPv(
		A	(Bmp,C,.FDIOS,FD.IOSe,1,FDBIOS,400000000000,<D>)
	0MLw uw,
		A	(Bu(,C,.FDLSN,FD.LSNuH,1,FDBLSN,400000000000,<D>)
	0M[r XXuK
		A	(BXx,C,.FDMOD,FD.MODY8,1,FDBMOD,0,<D>)
	BMOD,0,<D>)Mh6 UXu3
		A	(BUx,C,.FDNAM,FD.NAMV8,1,FDBNAM,400000000000,<D>)
	0Mkr R`u 
		A	(BS@,C,.FDNOD,FD.NODT,1,FDBNOD,400000000000,<D>)
	0M
 ZxuY
		A	(BW(,C,.FDPPN,FD.PPN[,1,FDBPPN,400000000000,<D>)
	0M
W R@uA
		A	(BWH,C,.FDPRO,FD.PROX,1,FDBPRO,0,<D>)
	BPRO,0,<D>)M
		A	(Bs,C,.FDPTR,FD.PTRs(,1,FDBPTR,400000000000,<D>)
	0M(w O u
		A	(BIx,C,.FDRCN,FD.RCNS ,1,FDBRCN,0,<D>)
	BRCN,0,<D>)M9I cxv%
		A	(Bd,C,.FDSF2,FD.SF2dX,1,FDBSF2,400000000000,<D>)
	0M9I e v.
		A	(Be@,C,.FDSF3,FD.SF3e`,1,FDBSF3,400000000000,<D>)
	0M9J f@v7
		A	(Bf ,C,.FDSF4,FD.SF4fp,1,FDBSF4,400000000000,<D>)
	0M9J gPv@
		A	(Bg0,C,.FDSF5,FD.SF5h,1,FDBSF5,400000000000,<D>)
	0M9R bXv
		A	(Bc,C,.FDSFD,FD.SFDcX,1,FDBSFD,400000000000,<D>)
	0M:= yXwP
		A	(By8,C,.FDSIZ,FD.SIZz,1,FDBSIZ,400000000000,<D>)
	0Mi9 YhuT
		A	(BZ,C,.FDVER,FD.VERZH,1,FDBVER,400000000000,<D>)
	0M 3NUM	(A)M+y \x~Y
FER	(NADVx)		; File not on ]a disk
FER	(REA)\8		; Attempt to re]8ad from a file no]xt opern for readi\ng
FER	(WRI)		; W8Save as REA, exceWhpt for writting
XFER	(MON,R)		; MoX(nitor error
FER	XH(NNS)		; No netwoXhrk support in thiYs monitor
FER	(OY(PN)		; This file YHis not open
FER	Yh(PRO)		; ProtectiZon is out of rangZ(e
FER	(IVN)		; IZhllegal version nu[8mber
FER	(IPS)		[X; Illegal path sp^8ecification
FER	[(DNN)		; Double n^ode name is illeg^Xal
FER	(DDN)		; ^xDouble device nam_e is illegal
FER_8	(SNT)		; SFDs ne_Xsted too deeply
_xFER	(ELS)		; Exte`nsion longer than`8 six characters
`XFER	(DEI)		; Doub`xle extension illeagal
FER	(NSS)		;a8 Null SFD specifiaXed
FER	(DFN)		; axDouble file name billegal
FER	(SRVb8)		; Switch requibXres a value
FER	bx(AMS)		; Ambigioucs switch name
FEc8R	(UNS)		; UnknowcXn switch name
FEcxR	(UKW)		; Unknowdn keyword
FER	(Ad8KW)		; Ambigious dXkeyword
FER	(IMDdx)		; Illegal modee for device
FER	e8(NXD)		; Non-exiseXtent device
FER	ex(ITS)		; Illegal fTMP: file specifif8cation
FER	(ITF)fX		; Illegal TMP: fxfunction
FER	(EOgF)		; End of fileg8 encountered on igXnput
FER	(CRS)		gx; Can not rename hacross structuresh8
FER	(IVC)		; IlhXlegal character ihxn file specificatiion
FER	(DIP)		;i8 Device implies piXath, but a path wixas given
FER	(FAjE)		; File alreadj8y being edited
FjXER	(IOD)		; Illegjxal operation for kdump mode file
ump mode file
M&dI6 `x
		A	(B,C,$FLDEL,FL$DEL ,1,FILDEL,0,<D>)
	LDEL,0,<D>)M&dK x
		A	(B~p,C,$FLDLC,FL$DLC,1,FILDLC,0,<D>)
	LDLC,0,<D>)M&dK }wl
		A	(B} ,C,$FLDLL,FL$DLL}@,1,FILDLL,0,<D>)
	LDLL,0,<D>)M&d\Y px
		A	(B,C,$FLERS,FL$ERS0,1,FILERS,0,<D>)
	LERS,0,<D>)M&eQ }`wu
		A	(B~0,C,$FLINC,FL$INC~P,1,FILINC,0,<D>)
	LINC,0,<D>)M&eV {`wb
		A	(B|,C,$FLINL,FL$INL| ,1,FILINL,0,<D>)
	LINL,0,<D>)M&fy Xx	
		A	(Bx,C,$FLPOS,FL$POS,1,FILPOS,0,<D>)
	LPOS,0,<D>)M&fHV Fpx%

	$BUILvD	FIL,$FLLEN	
	ImFNB <A>,<$SET(IN^xL,^D<A>)> 
	IFNxB <B>,<$SET(DLL,
H^D<B>)> 
	IFNB {@<C>,<$SET(INC,^D{ <C>)> 
	IFNB <zHD>,<$SET(DLC,^D<zhD>)> 
	IFNB <E>th,<$SET(POS,^D<E>p)> 
	IFNB <F>,<$SET(EOL,^D<F>)>0 
	IFNB <G>,<$SPET(ERS,^D<G>)> 
	$EOB			
)> vNUM (A)M0$I6P'M0$KP'M0$KP'M0$\YQ xM0%QQ xM0%VQ xM0&yQ xM2
p pkT	DEFSM.(QR;@$A,<.BIT.>)
	SUPRES	BIT$$$
	SHOW.	<<QR$A>>
j0&peIFN QR$FLG+1, IFHN QR$A&<-QR$FLG-yX1>, PRINTX ? FlagX mask for QR$A e
hRIFEGQ1, IFEQR$A,ePRINTX ? Flag 
  A exM4%9< FPv
		FK	DFTI,^D7	
		FM`K	ASC,ASCII,^D7	
		FK	SXB,SIXBIT,`8^D6	
		FK	LSA,LS`XA,^D7	
		FK	TRM,`x.TRM,^D7	
		FK	EaRR,.ERR,^D7	
		Fa8K	BIN,.BIN,^D36	
		FK	PIM,.PIM,^Dax8	
		FK	DMP,DUMP,^D36	
		,DUMPMQ
Q MQP MR$XZP MR]P MR]@Q MS8wQ MSDP M\u|RQ O2|,` 
Ghht


GLOB
H <	TECO,	I$JOB,	P
H(DLSAV,	PDL,	QRGST
HHK,	PFL,	SIXJOB,	C
HhPFLAG,	AUTOF>
GL
IOB <	CCLSW,	IMPBE
I(G,	CODBEG,	TXTBEG
IH,	PTRBEG,	ONCBEG,
Ih	JIFSEC,	PHYSON,	
JFSTCMD>


GLOB
J( <	F$INIT,	F$OPEN
JH,	F$PARS,	F$READ,
Jh	F$WRIT,	F$CLOS,	
KF$RENM,	F$USET>
K(GLOB <	F$ERR,	MYP
KHATH,	MYJOB,	MYNOD
KhE,	MYPPN,	F$SETI,
L	F$SXBT,	F$CHKP>
L(
GLOB <	F$RSET,	F
LH$DFLT,	LASFDB,	LA
LhSSXB,	LASOCT,	LAS
MSWT,	SWTIMD,	SWTO
M(MD>
GLOB <	F$EB,
MH	F$KEY,	F$CORE,	F
Mh$COPY,	RTN,	FPTH,
N	DEFPTR,	LASSWP>
N(
GLOB <	FFIFDB,	F
NHFIPTH,	F$ENQ,	F$D
NhEQ,	F$RBUF,	F$WBU
OF,	GNBCHR>


G
O(LOB <	.SAVE1,	.SA
OHVE2,	.SAVE3,	.SAV
OhE4,	.SAVET,	.SAVE
PA,	.SVCH,	.SV11>
P(
GLOB <	.POPJ,	.P
PHOPJ1,	.T1PJ,	.T1P
PhJ1,	DISPAT,	DISP1
Q,	NDISPT,	.T2PJ>
Q(
GLOB <	NDISP1,	.
QHT2PJ1,	CKSYM,	LOK
QhNAM,	LASNAM,	.RET
R0,	.RET1,	.RET2>
R(
GLOB <	FNDSTR,	F
RHNDKWD,	.SAVT3,	.S
RhAVT2,	.SAVT1,	.IN
SSRT,	INSCHR,	INSQ
S(RG>
GLOB <	SCNKE
SHY,	SCNKWD,	LASSPT
Sh,	.IDECW,	.IOCTW,
T	.ZCHNK,	.SKTPT>
T(


GLOB <	S$INI
THT,	S$CINI,	S$LABL
Th,	S$QREG,	S$CMPS,
U	S$QRGC,	S$TAGC,	
U(QRGLNK>


GLOB
UH <	CHRLEN,	P$INIT
Uh,	C$INIT,	CB$INI,
V	CB$MOV,	CB$STO,	
V(C$XCT,	SAVEP>
GL
VHOB <	CMDSTA,	RCH,
Vh	SKRCH,	REE,	VALR
WET,	COMND,	RETZER
W(,	RTONES>
GLOB <
WH	SKAN,	REEAT,	XCT
WhBUF,	CMDSVP,	CMDS
XTR,	LSTCMD,	CPMLE
X(N>
GLOB <	XCTING
XH,	SYL,	NUMB,	DLIM
Xh,	EQM,	ETVAL,	PAS
YRET,	XSPDL>
GLOB
Y( <	ALTMOD,	CAND,	
YHCDNUM,	CLOSEP,	CO
YhMMA,	COR,	MINUS,	
ZOCTIN>
GLOB <	OP
Z(ENP,	PLUS,	SLASH,
ZH	STOP,	TIMES,	UAR
Zh,	AUTBUF,	AUTCNT>
[
GLOB <	C$SCMD,	
[(SKANST,	VALRT2,	S
[HTRRET,	STRARG,	GE
[hTSTR,	SARG$1,	SAR
\G$2>
GLOB <	CPYA
\(G1,	CPYAG2,	C$XCT
\HI,	CLNXS,	XITQRG,
\h	CTCQRG,	DOXITQ,	
]SPCCMD>


GLOB
]( <	C$CINI,	C$INPT
]H,	C$DLCH,	C$BLIN,
]h	BACKUP,	CINQRG,	
^PMTLEN>
GLOB <	C
^($PRMT,	C$ICHE,	C$
^HRPRT,	C$HPOS>

^h
GLOB <	T$INIT,	
_T$CINI,	T$SRTN,	T
_($IBUF,	T$OCHR,	T$
_HTCHR,	T$ACHR>
GL
_hOB <	T$TYPE,	T$ER
`TY,	TYPEAC,	TTYOU
`(T,	T$SECH,	T$CECH
`H,	TRMTYP>
GLOB <
`h	.TCRLF,	ALTEO,	A
aLTCNV,	ECHOFF,	TR
a(MSOP,	TRMOCH,	TRM
aHTOC>
GLOB <	TTYF
ahDB,	TRMUDX,	TRMSP
bD,	TYCASF,	TY.OBY
b(,	TY.IBY,	TY.OST,
bH	TY.IST>
GLOB <	
bhTRMWID,	TRMLEN,	T
cTIBUF,	T$READ,	T$
c(ICHS,	T$CTYI,	T$P
cHEEK,	T$CHKI>
GLO
chB <	T$REDN,	T$PEK
dW,	T$RBUF,	T$WAIT
d(,	ICHINS,	ISOFLG>
dH


GLOB <	ACMD
dh,	ATSIGN,	BAKSL,	
eBELDMP,	CASE,	CKN
e(CC,	CVTSPC,	WRTBU
eHF>
GLOB <	CHARAC
eh,	CLOSEB,	CMNT,	C
fNTRUP,	COLON,	DEL
f(ETE,	LASQRG,	RQRG
fHTB>
GLOB <	END1,
fh	EOF,	EXCLAM,	FFE
gED,	KILL,	GETFDO,
g(	GETCMD,	GETTXT>
gH
GLOB <	GETFDI,	G
ghRTH,	GTIME,	HOLE,
h	INSERT,	INSE.0,	
h(INSE.I,	IUSET,	JM
hHP>
GLOB <	LAT,	L
hhINE,	LOWCAS,	LSST
iH,	MAC,	MJRST,	OG
i(,	OPENB,	PCNT>
G
iHLOB <	PNT,	PRNT,	
ihPUNCHA,	QGET,	QPA
jGE,	QREG,	QUESTN,
j(	QYANK,	REVERS>
jHGLOB <	SEMICL,	SE
jhTMCH,	SPTYI,	SQUO
kTE,	STDCAS,	TAB,	
k(TYPE,	TYPE.1,	USE
kH>
GLOB <	VCMD,	X
khCMD,	YANKER,	PUNS
lCH,	YANK,	FFDCMD,
l(	LASLBL,	QTXTST>
lH
GLOB <	BTAB,	CKE
lhOL,	SCNQRG,	QREGV
m2,	QTXTEI,	C.W,	C
m(.V,	QTAB>
GLOB <
mH	SETINC,	PUTINC,	
mhGETINC,	MAC.0,	RE
nDQRG,	JMP1,	QNMLE
n(N,	QNMTBL>
GLOB 
nH<	QRNTPT,	DQ.A,	D
nhQ.C,	DQ.D,	DQ.E,	
oDQ.F,	DQ.G,	DQ.G>
o(
GLOB <	DQ.L,	DQ
oH.N,	DQ.S,	DQ.T,	D
ohQ.U,	DQ.V,	DQ.W>
p
GLOB <	ANGLVL,	C
p(TGBUF,	CTGLVL,	IN
pHSRCH,	INSREE,	ITE
phRCT,	LOPADR>
GLO
qB <	OLDINR,	OLDRE
q(E,	STAINS>


G
qHLOB <	E$INIT,	E$R
qhANG,	E$LANG,	MODK
rEY,	DECDMP,	LOGCH
r(R,	SWTBUF,	CUREDT
rH>
GLOB <	OPNWRA,
rh	EBCMD,	ECCMD,	ED
sCMD,	EECMD,	CLOSE
s(F,	EGCMD,	ERRSET>
sH
GLOB <	EICMD,	E
shKILL,	MAKLOG,	EMT
tAPE,	ENCMD,	OLDMO
t(D,	EPCMD,	CRTGEN>
tH
GLOB <	EQCMD,	O
thPNRD,	AUTOTY,	TYO
uCTL,	TYCASE,	OPNW
u(R,	FINISH,	CLSFIL
uH>
GLOB <	ZERDIR,
uh	CRTPTR,	PARPTR,	
vEOMAX,	MODPTR,	PR
v(MERR,	EJCMD,	LOGC
vH.0>
GLOB <	RUNDE
vhV,	RUNNAM,	RUNPTH
w,	RST,	EOXCTS,	EQ
w(UEST,	FSTFLG>

wH
GLOB <	FC$INI,	
whFICMD>


GLOB 
x<	ERRQUE,	ERRIDX,
x(	ERFCNT,	ERRSLH,	
xHERRDTM,	ONCFLG>
xhGLOB <	U$INIT,	U$
yCINI,	U$PDLO,	CEO
y(,	ERRFDB,	U$STOP>
yH
GLOB <	ERRLEN,	
yhERRSTS,	ERRPT,	EO
zFLAG,	ERRCH,	TRPP
z(DL>

GLOB <	M$I
zHNIT,	M$XPND,	M$GB
zhLK,	M$GTXT,	M$RBL
{K,	M$USEB,	M$RELB
{(,	M$INSS>
GLOB <
{H	M$SRNK,	M$MSTR,	
{hM$GC,	M$ZBLK,	M$A
|CHR,	M$XMOV,	M$RT
|(PT,	CPYCTB>
GLOB
|H <	ERRQRG,	CMDBUF
|h,	TXTBUF,	FSTBLK,
}	DELTXT,	M$DCTB,	
}(DELCND,	M$CPCN>
}HGLOB <	M$LINK,	M$
}hULNK,	M$APPD,	M$M
~LNK,	M$MCOR,	M$CP
~(GS,	CPMQRG>

GL
~HOB <	SR$INI,	SERC
~hH,	N$CMD,	FND2,	S
ERCHJ,	LARR>
GLO
(B <	SRHMOD,	STAB,
H	SRHCTR,	SRHARG,	
hVVAL,	SFINDF>
GLOB,<	FDSRCH,	FKSR

GLOB	<	SC$RV	SC$RST
GLOBE<	SCIDEO,	SETW
GLOBC<MES,	CRTTYP,	
GLOB,<	V$ICHR,	V$OC
GLOBC<	O	CRTSAV,	SC
GLOB	V$UPCM,	V$CTRG
G(LOB,<	ASKPOS,	OUT
GLOBN<LST,	CSTLST,	
GLOB	<	CHKTY	NOTYIA
,	VINADR,	SC$SSR,
(	CRTWID,	CRTLEN,	
HSCRWID,	SCRNLN>

hGLOBR<	OUTCNT,	OU

(GLOB,<	CHRTBL,	CH
LG>
GLOB <	CRTTA
(B,	NUMCRT,	CRTDSP
H>

GLOB <	I$INI
hT,	I$SIMG,	I$CIMG
GLOB,<	KEYBL,	CTYLT

GLOB <	IMPEND>
LOBQd` %px1
		.COND(&<<<..MSK&LH.ALF>,,		<.<<..MS8K&RH.ALF>,<DEFSM.
			..M:0SK==LH.ALF		
			)XDEFSM.(XS$A,LH.A
(LF)>>>) 
 
		DE&FSM.($XSA,..OFF)%X	
		DEFST.(XSBA,$XSA,XS$A) 
 x
		..MSK==..MSK!PXS$A	
		SHOW.	$XSA	
		SHOW.	XS$A	
	SHOW.	VIS; AP S;$k 
x	.BIT. <==
	DEFFLAG (NAM)
X	DEFSM.(AC'NAM
	SUPPRES	BIT$$$
	SHOW.8	<<AC'NAM>>
  X IFN B+1, IFN AxC'NAM&<-B-1>, PRINTX ? Flag mask8 for AC'NAM excXeeded
   IFE B+x1, IFE AC'NAM, PRINTX ? Flag mas8k for AC'NAM exXceeded
  >
	.XCxREF	.BIT.,BIT$$$
	.BIT.,BIT$$$
-1	.INT. <==0B>
	DEFINE	NUM P(NAM,SIZ<1>)
  <p	DEFSM.(DA'NAM,<.INT. (,SIZ)>)
0	SHOW.	<<DA'NAMP>>
   IFN C+1, pIFN DA'NAM&<-<C_-<ALIGN. (C)>>0-1>, PRINTX ? NUMP field for DAxxpx symbols exceeded with symbol D0A'NAM
	SUPPRES	IPNT$$$			
 > 
	.pXCREF	.INT.,INT$$$		
	DEFINE	ENDN0UM(NAM<MAX>)<
	 P   DEFSM.(DA'NApM,<.INT.(,0)>)
	    DA'NAM==D0A'NAM-1
	    PURPGE NUM,ENDNUM
	>
UM,ENDNUM
	>@A0C-1UE,A,E$FINE CFS;&= Bp
 
	DEFI0NE	SYNSTR(OLD,NEWP),<
		SYN	CB'OpLD,CB'NEW	
		SYN	BC'OLD,BC'0NEW	
		DEFST.(AP'NEW,CB'NEW,BpC'NEW) 
	> 

	DEFINE	WORD(NAM,N0UMB<1>),<
		IFN P<..MSK>,<..OFF==.p.OFF+1> 
		DEFSM.(CB'NAM,..OFF)0	
		DEFSM.(BC'PNAM,FW.ORD) 
		IpFE <NUMB-1>,DEFST.(A'NAM,CB'NAM0,BC'NAM,NUMB,SIPGNED) 
		IFN <NUpMB-1>,DEFST.(A'NAM,CB'NAM,BC'0NAM,NUMB) 
 
		P..MSK==0		
		..OpFF==..OFF+NUMB	
		SHOW.	CB'NAM	0
		SHOW.	BC'NAPM	
	> 
 
 
	DpEFINE	HALF(NAM),< 
		.COND(<<<..MS 0K&LH.ALF>,<DEFSM. P(BC'NAM,LH.ALF) p>>,		  <<..MSK&RH!.ALF>,<DEFSM.(B!0C'NAM,RH.ALF)>>,	!P	  <<0>,<..OFF==.!p.OFF+1		
			..MS"K==LH.ALF		
			D"0EFSM.(BC'NAM,LH"P.ALF)>>>) 
 
		"pDEFSM.(CB'NAM,.#.OFF)	
		DEFST.(#0A'NAM,CB'NAM,#PBC'NAM) 
 
		.#p.MSK==..MSK!BC'$NAM	
		SHOW.	C$0B'NAM	
		SHOW.	$PBC'NAM	
	> 
$p
 
	DEFINE BYT(N%AM,SIZ,POS),<
		%0..FLG==0		
		IFB%P <POS>,<IFB <SIZ>%p,<
			...MSK==RG&TMSK(<<^-<<..MSK>&0>>>)	
			IFE ...&PMSK,<..OFF==..OFF&p+1	
				..MSK==0'		
				...MSK==-'01		
			> 
			BY'PTM(NAM,<...MSK>) 'p
							
			..F(LG==-1			
		>> 
		IFNB <SIZ>,<.S(PIZ==^D<SIZ>>	
(p
		IFNB <POS>,<		)
			BYTM	(NAM,MA)0SK.(.SIZ,POS)) 
)P			..FLG==-1		
	)p	> 
 
		IFE ..F*LG,<IFGE <^D<.SIZ*0>-^D36>,<	
			WO*PRD(NAM,<^D<.SIZ>/*p^D36>) 
			IFN <+<^D<.SIZ>-<^D<.SI+0Z>/^D36>*^D36>>,<+P	
				BYT(...,<<+p^D<.SIZ>-<^D<.SIZ,>/^D36>*^D36>>) 
				PURGE CB..,P.,BC...,A...
,p			> 
 
			..FL-G==-1	
		>> 
-0
		IFE ..FLG,<IFE-P <^D<.SIZ>-^D18>,-p<	
			HALF(NAM)	.
			..FLG==-1	
.0		>> 
 
		IFE ..P.FLG,<		
			..BI.pTS==MASK.(^D<.SIZ/>,<^D<.SIZ>-1>) 
 
			REPEAT <^D/P36-^D<.SIZ>+1>,<	/p
				IFE ..FLG,<0	
					IFE <..BI00TS&..MSK>,<	
			0P			..MSK==..MSK!.0p.BITS 
						..F1LG==-1	
					> ;10 End of IFE <..BI1PTS&..MSK>
 
			1p	IFE ..FLG,..BITS2==..BITS_<-1> 
	20			> 
			> 
 
2P			IFE ..FLG,<	
2p				..BITS==MASK.3(^D<.SIZ>,<^D<.SI30Z>-1>) 
				..OF3PF==..OFF+1	
				3p..MSK==..BITS	
	4		> 
 
			DEFSM40.(BC'NAM,..BITS4P) 
			DEFSM.(C4pB'NAM,..OFF)	
		5	DEFST.(A'NAM,C50B'NAM,BC'NAM) 5P
			SHOW.	CB'N5pAM	
			SHOW.	B6C'NAM	
		> 
	> 60
	DEFINE	BYTM(NA6PM,MASK),<
		IFN 6pMASK&..MSK,<	
		7	..MSK==0	
			..70OFF==..OFF+1	
		7P> 
 
		..MSK==.7p.MSK!MASK	
 
		8DEFSM.(CB'NAM,.80.OFF)	
		DEFSM.(8PBC'NAM,MASK)	
8p		DEFST.(A'NAM,9CB'NAM,BC'NAM)90 
		SHOW.	CB'N9PAM	
		SHOW.	BC9p'NAM	
	> 
 
:
	DEFINE ENDSTR(N:0AM<LEN>),<
 
		:PIFN ..MSK,<..OFF=:p=..OFF+1>	
					;	
		DEFSM.(CB';0NAM,..OFF)	
 
	;P	SHOW.	CB'NAM	
		IF2,<
			IFDE<F ...MSK,<SUPPRES<0S ...MSK>
			IFD<PEF ..BITS,<SUPPRE<pSS ..BITS>
			IF=DEF .SIZ,<SUPPRES=0S .SIZ>
			IFDEF=P ..MSK,<SUPPRESS =p..MSK>
			IFDEF >..OFF,<SUPPRESS .>0.OFF>
			IFDEF .>P.FLG,<SUPPRESS ..>pFLG>
		>; End of? IF2
		IF1,<
		?0	IFDEF ...MSK,<.X?PCREF ...MSK>
			?pIFDEF ..BITS,<.XC@REF ..BITS>
			I@0FDEF .SIZ,<.XCREF@P .SIZ>
			IFDEF @p..MSK,<.XCREF ..MASK>
			IFDEF ..FA0LG,<.XCREF ..FLG>AP
			IFDEF ..OFF,Ap<.XCREF ..OFF>
	B	>; End of IF1
	B0> 
 
	..MSK==0	BP
	..OFF==D	

 
 
=D	
0$$$VAL)U7` 4@U7l` 58U70 48U7@ 5@Y$)3Q Y$;2P Y$<@P  Y$<VP"Y$[RQ Y$kP'Y$lqP @Y%pP Y%J7P'Y%m6Q Y&SQ xY&8yP!Y&;2P Y&NQ xY&x8P$Y)3 xxK
		A	(B	,C,$LDBEG,LD$BEG	8,1,LDBBEG,400000000000,<D>)
	0Y[R 	xxS
		A	(B
,C,$LDEND,LD$END
8,1,LDBEND,400000000000,<D>)
	0Yk 
		A	(BLG,LD$FLG
	BFLG,0,<D>)YJ7 x]
		A	(B8,C,$LDLIN,LD$LINX,1,LDBLIN,0,<D>)
	BLIN,0,<D>)Ym6 
xxq
		A	(Bh,C,$LDNUM,LD$NUM,1,LDBNUM,400000000000,<D>)
	0YS xC
		A	(BX,C,$LDQRG,LD$QRG8,1,LDBQRG,0,<D>)
	BQRG,0,<D>)YN 
xe
		A	(B
8,C,$LDTXT,LD$TXT
X,1,LDBTXT,0,<D>)
	BTXT,0,<D>)Y$-	NXu<1B<^L<A>>><1B<^L<A>Y tQ xY"
[Q Y:]n (y
		A	(BH,C,$LKNXT,LK$NXT0,1,LNKNXT,400000000000,<D>)
	0Y:^
[ (y
		A	(BH,C,$LKPRV,LK$PRVh,1,LNKPRV,400000000000,<D>)
	0Y?>i9 T]!%LVA==:B%LVA==:BYB0P  [3@ fp7<<<1_<A>>-1>B<B>>_<A>>[>v- 	b] oP}
	IFNDEF	A,<A==B>
F	`@ `D@ `H@ `L@ `P@ aJ}Ks 
4Xc=
	SALL			
4x
	.DIREC	.XTABM	
5	
	.DIREC	FLBLST
58		

	SEARCH	MAC
5X		
TOPS10,	SEARC
5xH	UUOSYM		
TOPS2
60,	SEARCH	MONSYM	
68	

	TITLE.	TEC,
6XTECA,<B>
	TECT
6xTL			
	TECPTX			
7
	%%.MOD==<SIXBI
78T /TECA/> 
	GLO
7XBS			
	$INIPS			
	
	$INIPS			cH$J9Q cH$KQ cH$MP cH$YQ cH$hzQ cH$j<Q @cH$kQ cH$kP'~cH%L9Q cH%kQ xcH%yYQ `cH&	Q cH&
RQ cH&WQ cH&:Q  cH&LQ cH&NQ cH&\Q  cH&h6Q cH&j2Q @cH&kQ cH&|ZQ cJ<M 30{
		A	(B3P,C,$QRDTP,QR$DTP3p,1,QRGDTP,0,<D>)
	GDTP,0,<D>)cJ<k 4p{!
		A	(B5,C,$QRFLG,QR$FLG4,1,QRGFLG,400000000000,<D>)
	0cJ<k 20{
		A	(B2P,C,$QRFLN,QR$FLN2p,1,QRGFLN,0,<D>)
	GFLN,0,<D>)cJ=G 
aI.QRA*$QRLEN.QRA*$QRLcJ= 
paGQRGI..(\<"A">)QRGI..(\<"cJ=h6 
STR	<AUTER>,<AUTBUF
STR	<ACOMMAND>,<AUT
STR<AUTO-COUNT>,<AU
STR	<MAND-BUFFER>,<
STR	<COMMAND-PRG,QR
STR	<CONTRERCEPT-CO
STR	<EXIT-,<XITQRG,
STR	<ERRT>,<ERRQRG,
STR	<TERMINAL-INPU
STR<TEXT-BUFFER>,<T
R$FCT!QR$EDT>cJ=k 0({
		A	(B1P,C,$QRNLN,QR$NLN1p,1,QRGNLN,0,<D>)
	GNLN,0,<D>)cJ=yY .yg
		A	(B+X,C,$QROFS,QR$OFSx,1,QRGOFS,0,<D>)
	GOFS,0,<D>)cJ>	 Xz?
		A	(B< ,C,$QRPDB,QR$PDB'x,1,QRGPDB,400000000000,<D>)
	0cJ>W <H{h
		A	(B<h,C,$QRQRN,QR$QRN=,1,QRGQRN,400000000000,<D>)
	0cJ>= r
	INTNUM	@QR,0,CD.QRI,.
	XpLIST				
	IRPC <
HA>,<
		.XCREF		h	
		$$$VAL=="A"
		.XCREF	$$$VALP		
		.CREF			
	p	NUM	(\$$$VAL)>
h	ENDNUM			; Define the max for the
	PURGE	$$ ($VAL		
	LIST			
L		
	LIST			/H{
		A	(B/h,C,$QRTPT,QR$TPT0,1,QRGTPT,400000000000,<D>)
	0cJ>h6 50{O
		A	(B9P,C,$QRVAL,QR$VAL9p,1,QRGVAL,400000000000,<D>)
	0eD-||`f<<A>&-<A>><<A>&-<AetP'e"<f:KQ f:KQ  f:KQ f:M[Q f:M{Q f:$[P$f:%z:Q f:-X:Q f:d89Q f:d=Q @f:e7P f:e@P @f:e|Q  f:e}:P  f:fj2P f:mYQ f:tQ f:t8zQ f:v(2Q @f:vLQQ  f:}KsP!f;lYP f;<VP f;<WQ @f;KsP"f;,89Q f;EX:Q f;EnP f;LUQ @g"~s@  	.XCREF
	(EXP	<A>
	.ORG	.-1
			.CREFG	.g/;[8u[SKIPGEh.FDFLG+AKIPGE .FDg/` 6@g/l` `xg/| 8u{SKIPL .FDFLG+ASKIPL .FDFg/0 axg/@ 7@g6KP Ag@uh6Q g@v
		A	(BP,C,.SPNAM,SP.NAMp,1,SPBNAM,400000000000,<D>)
	0gBy%
		A	(B,C,.SPPTR,SP.PTRP,1,SPBPTR,0,<D>)
	BPTR,0,<D>)gB-  y9
		A	(Bp,C,.SPRTN,SP.RTN,1,SPBRTN,0,<D>)
	BRTN,0,<D>)gBh6 @y0
		A	(B`,C,.SPVAL,SP.VAL,1,SPBVAL,0,<D>)
	BVAL,0,<D>)gBH1P AgH$,Q gH$;ZQ gJ
{P gR^L ;@}3
	DEFINE	O$$$STK(ADDRESS),<O0$STKTP(ADDRESS,\;b)>
	DEFINE	$STK
TP(ADDRESS,NAME,OJ`FFSET)
<	DEFINE K NAME<$XSBUF+OFFSEPpT-c(XS)>
		IFB Op<ADDRESS>,<SETZ TSP1,>
		IFNB <ADDRSpESS>,<IFDIF <ADDR,HESS>,<T1>,<MOVE TTP1,ADDRESS>>
		PUS0SHJ	P,.SKTPT	
> T0; End of $STKTP dTpefinition
	b==0U
	.XCREF	b
	IRTP <A>,<$$$STK AUP
		b==b+$XSCLNU0	
		> 
	c==b-V$XSCLN
	.XCREF	V8c
	SUPPRESS b,c

PRESS b,gR^L Rpz+
	DEFINE SB<$XSBUF(XS)>
I
HFDIF <A>,<T1>,<M%8OVE	T1,A>
	PUSHJ	P,.SKTPT	
SHgR~r ^]
S..A::
    IFN FTDEBUG,^X<
	PUSHJ	P,U$STO^xP		
	JUMP	[EXP	%_%.MOD		
		XWD	'_8A',0	
		ASCIZ	|_XB|]		
    >
   _x IFE FTDEBUG,<HALT	'A'>
G,<HALgS, 
a
		A	(B
8,C,$SRBPT,SR$BPT
X,1,STRBPT,400000000000,<D>)
	0gS;Z 
a
		A	(B
8,C,$SRCNT,SR$CNT
X,1,STRCNT,400000000000,<D>)
	0g\u9<P"g\vlXP$g&
	$BUILD	rxSPB,.SPLEN	; Init8ialize the switch
	0$SET	NAM,<XWD -A
hL,AN> ; Set the xname pointer
	$SHET	VAL,AV	; Store the address of pthe values
	$SET	PTR,AP	; Store Pthe address of th e pointers
	$SET@	RTN,AR	; Store `the routine table address
	$EOB		0	; Generate the block
ate the bgd$;ZP'gd$I8Q gd$kQ @gd%Q gd%KUQ gd%h6Q gd%nQ gd&SQ gd&LQ gd&N8Q 8gfl;Z "hz
		A	(B#,C,$SYCNT,SY$CNT#(,1,SYMCNT,0,<D>)
	MCNT,0,<D>)gflI8 z5
		A	(B ,C,$SYDEP,SY$DEP&X,1,SYMDEP,400000000000,<D>)
	0gflk y~
		A	(BH,C,$SYFLG,SY$FLGh,1,SYMFLG,0,<D>)
	MFLG,0,<D>)gfm (XzI
		A	(B(x,C,$SYIDX,SY$IDX),1,SYMIDX,400000000000,<D>)
	0gfmKU 8yo
		A	(BX,C,$SYLNK,SY$LNKx,2,SYMLNK,0,<D>)
	MLNK,0,<D>)gfmh6 '8z7
		A	(B0,C,$SYNAM,SY$NAM&x,1,SYMNAM,400000000000,<D>)
	0gfmn @yx
		A	(B`,C,$SYNXT,SY$NXT,2,SYMNXT,0,<D>)
	MNXT,0,<D>)gfnS *8zW
		A	(B*X,C,$SYQRG,SY$QRG*x,1,SYMQRG,400000000000,<D>)
	0gfnL #hz"
		A	(B$,C,$SYTPT,SY$TPT$(,1,SYMTPT,400000000000,<D>)
	)gfnN8  Hz
		A	(B h,C,$SYTYP,SY$TYP!,1,SYMTYP,0,<D>)
	MTYP,0,<D>)gfv= SIb
		SYN	$XJSA,$XSB	
		SYNM	XS$A,XS$B	
		< DEFST.(XSBB,$XSB,XS$B) 
	VIgg
V FA==B uhD@ hH@ hL@ hP@ ik ~yIFG 0,<
	IF2,<LALL>
	LOC	8137
	BYTE (3)TECXWHO(9)TECVER(6)TExCMIN(18)TECEDT	; TECUNV %200A(11518)-0
	RELOC
	SALXL
>	IFE 0,<
	IFx2,<LALL>
	LOC	137
	BYTE (3)TECWH8O(9)TECVER(6)TECMXIN(18)TECEDT	; TExCUNV %200A(1151)
	RELOC
	SALL
>Qq,GtQq3iqQ TECiYP 4i\Y 
y_
TECA:	JRST	[
	OUTSTR	[A8SCIZ \
? TECA XB\]
	IFNB <C>,<xC>
	IFB <C>,<EXIT>
]t9iZ7P ik2 
IFG 0,<
	A(<%200A(1151)8-0>)
>
IFE 0,<
	A(<%200A(1151)>)
>H;&
WP$i=
	IF2,<
x	IFG 0,<PRINTX TECUNV %200A(1151)-80	Text editor andX corrector univerxsal
>	IFE 0,<PRINTX TECUNV %200A(81151)	Text editorX and corrector universal
>>oi:<Q iiM |8sIFG 0,<
	|XTITLE	TECUNV - Te|xxt editor and cor}rector universal }8 %200A(1151)-0
>}XIFE 0,<
	TITLE	T}xECUNV - Text edit~or and corrector ~8universal  %200A(1151)
>i6i[[ SIFG 0,<
	8UNIVERSAL TECUNV X- Text editor andx corrector univer	sal  %200A(1151)-	80
>IFE 0,<
	UNI	XVERSAL TECUNV - T	xext editor and co
rrector universal
8  %200A(1151)
>Qt]GP$Pii9P @ilY Y)IFG 0,<
	xIF2,<LALL>
	BYTE (3)TECWHO(9)TECV8ER(6)TECMIN(18)TEXCEDT	; TECUNV %20x0A(1151)-0
	SALL
>	IFE 0,<
	IF28,<LALL>
	BYTE (3X)TECWHO(9)TECVER(x6)TECMIN(18)TECEDT	; TECUNV %200A(1151)
	SALL
>izP i|W 
9k
TECA:	J
XRST	[
	OUTSTR	[A
xSCIZ \
%BTECA 
	IFNB <C>,<
	IFB <C>,<JRST .+1>
]ieKw.SX]IF2E<IFN	FS8TA,<PRINTXTECO:B>>INTX%TECO:iFC@Qiu2Q iu|Q @iu|Q  ivj2Q i'%I' 
	.XCREF
	...Z==0
	IFNDER,<...Z==-1
	IFNDEF AMIN,<...Z==-1>
	IFND(EF AEDT,<...Z==-H1>
	IFNDEF AWHOh,<...Z==-1>
	IFL ...Z,<PRINTX ?Sy(mbols AWHO,AVERH,AMIN and AEDT hnot defined
	PRINTX ?Version symb(ols must be definHed before callingh TITLE. macro
END>
	.CREF
	IF2,(<LALL>
	ASIX==SHIXBIT /A/	; B ahbbreviation in SIXBIT
	AASC==ASC(IZ /A/	; B abbrHeviation in ASCIIh
	SALL
	.XCREF
%FIRST=AMIN/^D2(6
IFE %FIRST,<%SHECON==AMIN
	%FIhRST==0>
IFG %FIRST,<%SECON=AMIN-(<^D26*%FIRST>>
IHFE AMIN-^D26,<%ShECON==AMIN
	%FIRST=0>
IFE AMIN(-^D52,<%SECON==^DH26
	%FIRST=1>
	hIFG	AMIN-77,<
PRINTX ? Minor ver(sion number too lHarge - ignoring iht
	AMIN==0
	%SECOND==0
	%FIRST(==0
>
IFN %FIRSHT,%FIRST==%FIRST+h"A"-1
IFN %SECOND,%SECOND==%SECON(D+"A"-1
; DEFINEH ALL THE MACROS
hIFN %FIRST,IFN %SECOND,BUILD$ (B,(\AVER,\AMIN,\"%HFIRST,\"%SECON,\hAEDT,\AWHO,<C>,A)
IFE %FIRST,I(FE %SECOND,BUILD$H (B,\AVER,\AMIhN,,,\AEDT,\AWHO,<C>,A)
IFE %F(IRST,IFN %SECON,BHUILD$ (B,\AVER,h\AMIN,,\"%SECON,\AEDT,\AWHO,<C(>,A)
 
	IF2,<PHURGE %SECON,%FIRST,...Z>
.CREFSi?4( IFN FT10i?4H HIFN FT20i@$P'i@%nQ xiC$ ,hzm
		A	(B-8,C,$TPADR,TP$ADR-X,1,TPTADR,0,<D>)
	TADR,0,<D>)iC%n +8zb
		A	(B,,C,$TPNXT,TP$NXT,(,1,TPTNXT,0,<D>)
	TNXT,0,<D>)iJn:=P diOY2 kx
 ENT(50,r4,.TO005)		
 ENTl(75,7,.TO007)		
kX ENT(110,10,.TO01r81)		
 ENT(134,13rx,.TO013)		
ENT(qx150,15,.TO015)		
 ENT(200,20,.TO0m(20)		
 ENT(300,3mH0,.TO030)		
 ENTmh(600,60,.TO060)		n
 ENT(1200,120,.n(TO120)		
ENT(18nH00,180,.TO180)		
 ENT(2400,240,.ToO240)		
 ENT(480o(0,480,.TO480)		
oH ENT(9600,960,.TOoh960)		
 ENT(EXA,q1000,.TOEXA)		
 pxENT(EXB,1000,.TOEXB)		
000,.TOEiP 
	NUM	A	
		$TFA==$TFA!B	
	A==$TFAic&
	...CNT=`X=0
	.XCREF	...CN`xT
	IRPC <A>,<..a.CNT==...CNT+1>
a8	POINT 7,[ASCIZ |aXA|]
	EXP	...CNTax
	SUPPRESS ...CNT
PPRESS...CNic&N8 
:TT(BEG,,)		
9TT(0$NAG,)			
TT5,TF$ARG,<word>)
;TT(6,TF$ARG,)	
;TT(7,TF$ARG,<chara
<TT(8,TFcharacter>)
<TT(A,TF$NAG,)
<TT(B,TF$ARG		
=TTC,TF$ARG,<string
=TT(D,TF$ARl number
>TT(E,TF$ARG
>TT(F$ARG,<File spe
>TT(G,TF$ARG,<Q-reg
?TT(I,TF$ARG!TF$IMM
?TT(J,TF$NA
@TT(K,TF$	
@TT(L,T,)			
@TT(M$NAG,)			
@TTN,TF$NAG,)			
ATT(O,TF$ARG,<Octa
ATT(TF$ARG,<Path>)	
BTT(Q,TF$NAG,)
BTT(R,TF$NAG
BTT(S,TF$Ang>)		
BxTT(T,TF$ARG,<Stri
CTT(V,TF$rsion numb
CTT(W,TF$A>)		
DTTX,TF$ARG!TF$IMM,
DTT(Z,TF$ARG
DTT(INS,TF
 TT(EOS,TF$NAG,)		
OSif{P m$%kQ m$&SQ m&uk >{v
		A	(B>(,C,$VINLN,VI$NLN>h,1,VINNLN,400000000000,<D>)
	0m&vS @p{j
		A	(BA,C,$VIQRG,VI$QRG=(,1,VINQRG,400000000000,<D>)
	0o` 
Cd
	.WRN	A##
	
	.WRN	Ao?@ MQ^x
		IFN <.)8.MSK>,<..OFF==..O1QFF+1> 
		DEFSM.(1$XSA,..OFF)	
		LpDEFSM.(XS$A,FW.O&8RD) 
		IFE,<B-1l>,DEFST.(XSBA,$X
		IFN <B-1
X>,DEFST.(XSBA,$X_XSA,XS$A,B) 
 X
		..MSK==0		
	1h	..OFF==..OFF+B	&0
		SHOW.	$XSA	
		SHOW.	XS$A	
	SHOW.	VI$A	
xR1
	QRp@ qL@ qL$SY qL$-3Y qL$\PY qL$kQ qL$xtY qL%Q qL%KxQ qL%|Y qL&2Y qL&SY qL&=QQ qL&N8Q qNS I0|5
		A	(BIP,C,$XSARG,XS$ARGFP,1,XSBARG,0,<D>)
	BARG,0,<D>)qN-3 :`|,
		A	(BE`,C,$XSBUF,XS$BUFE@,1,XSBBUF,0,<D>)
	BBUF,0,<D>)qN\P H|G
		A	(BH0,C,$XSERA,XS$ERAHp,1,XSBERA,0,<D>)
	BERA,0,<D>)qNk CP|
		A	(BAP,C,$XSFLG,XS$FLGCp,1,XSBFLG,400000000000,<D>)
	0qNxt B |(
		A	(BB,C,$XSGCH,XS$GCHE,1,XSBGCH,0,<D>)
	BGCH,0,<D>)qN F|!
		A	(BF0,C,$XSITC,XS$ITCD,1,XSBITC,400000000000,<D>)
	0qNKx K@|`
		A	(BK`,C,$XSLOP,XS$LOPL,1,XSBLOP,400000000000,<D>)
	0qN| L |m
		A	(BM0,C,$XSOPR,XS$OPRMP,1,XSBOPR,0,<D>)
	BOPR,0,<D>)qN2 N|u
		A	(BN0,C,$XSQAD,XS$QADNP,1,XSBQAD,0,<D>)
	BQAD,0,<D>)qNS 4P|=
		A	(B=h,C,$XSQRG,XS$QRGGP,1,XSBQRG,0,<D>)
	BQRG,0,<D>)qN=Q B@|
		A	(BC,C,$XSSVC,XS$SVCB`,1,XSBSVC,400000000000,<D>)
	0qNN8 OP}
		A	(BP,C,$XSTYP,XS$TYPP0,1,XSBTYP,400000000000,<D>)
	0r@ 	$+ 
	IFIDN<<>,<..AFLG==
			DTEXT.(..TY
	IFDIF,<A>FLG==..A
		XTEXT.<AA>
		IFEAFLG-^D31,<PRI long>>
ss too	%,x	 CV<	
SP 	
IHP 	FzP 		L82P 	L;P 	L=P 	MI7P 	NKP 	NLWP 	OP 	t,P 	t-P 	t.:P 	t;RP 	t[RP 	tkP 	uSP 	uI7P 	|I  
9XcU
	$ENDPS(
9x\'..PSEC)	
	.PSE
:CT	CODE/CONCAT	
:8	..PSEC=='CODE'		
:X
	SUPPRES	..PSEC		
PRES	..PSEC	(uP		8YP		9P	:7P 
	<P 	<XP 	=P 	HYP 	HtP 	HyP 	I6P 		ISP 	KP 	KP 
	LxP 	MZP 	\YP 	j7P 	tP 	VP 
	ZP 	J7P 	X<P 	9P 
	<P 	=8P 
	HtP 
	ySP 	z2P 	}ZP 	8P 		<zP 	I8P 	I7P 	X<P 	lVP 	|P 	hP 	iP 	2P 	,P 	$P 	$P 	$P 	$(9P 	$;2P 	$;RP 	$=P 	$kP 	%2P 	%I7P 	%X<P 	%{P 	%}P 	%}P 	&
[P 	&=P 	&I1P 	&LP 	 e(^@
    IFE eHFTXADR,<
	ADDX	ehA,<INSVL.(7,BP.PFfL)>	
	JUMPG	A,f(c			
	SOJ	A,			fH
	TXZ	A,BP.PFL	fh	
	TXO	A,<INSVLg.(1,BP.PFL)>	
cg(:!
    >
    IFgHN FTXADR,<
	MOVXgh	B,-1		
	ADJBP	hB,A		
	MOVE	A,B		
    >
A	$hzP 	%X<P 	%m6P 	&NP 	tL 
>cq
	.ENDPS	A		

	.ENDPS		;wP 	kP 	lzP 	I7P 	MVP 		\P 	,{P *	,9P (	,<YP -	,IP %	,I4P &	,IWP '	,J8P .	,KWP $	,[P &	,[sP ,	,h2P .	-2P *	-rP /	-P $	-P ,	-P +	-QP -	-WP #	-X<P /	-Z7P  	-[wP !	-h2P  	-kYP "	-lyP '	-nP +	-|P "	.
WP #	.)0P  	.;ZP %	.<[P (	.Z{P )	.[YP )	.|TP !	dI6P 	dKP 	dKP 	d\YP 	eQP 	eVP 	eI7P 	fyP 	lqP 	l*7P 	lIZP 	lK8P 	l\YP 	mLpP 	mX<P 	n
6P	n>P 	nLVP 	$P 	$:P 	$;P 	%X<P 	%|QP 	%}P 	&P 	&N8 
	...FLG=
	.XCREF ...FL
	..QFLG==0
	IFIDN <A>,<^>,<.W
		..LG==-1>
	IFEF.G,<IFNDEFU$TF
			...F1>>
	IFEL..<IFEO$TFA&T
				.WORD.	<
				.PE==$TFA
			...FLG==-1>>
	IFE$...FLG,<	.WORD
			DTEXTYPE)
			..E==$TFA>
	SUPPRESS ...FLG
	"	b	&n
8cI
	$ENDPS(
88\'..PSEC)	
	.PSE
8XCT	IMPURE/CONCAT	
8x
	..PSEC=='IMPUR
9E'	
	SUPPRES	..PSEC		
PRES	..P	&u 
>Xc{
	.PSECT	
>xIMPURE/CONCAT	
	
?..PSEC=='IMPURE'	
?8
	SUPPRES	..PSEC		
PRES	..PSEC	&|P 	&|I6P 	&}X<P 	&~)0P 	&~|TP 	&~|YP 	2$)3P 	2$[RP 	2$kP 	2%I7P 	2%J7P 	2%m6P 	2&SP 	2&NP 	2]I7P 	2]nP 	2^
[P 	6 2ps
    A==300				
    IRP B3P,<
	IFG <B-A>,3<A==B>
    >
A==B>
    >
	>6>P 	>6> P 	>t9  
?xd
	$ENDPS(
@\'..PSEC)	
	.PSE
@8CT	.ONCE/CONCAT	
@X
	..PSEC=='.ONCE'
@x		
	SUPPRES	..PSEC		
PRES	..PS	?tP 	?HtP 	?tP 	?X<P 	?kxP 	?(tP 	?9P 	?=8P 	B}Z bH^POINT A,B,CPOINT A,	GMP 	GkP 	GkP 	GI7P 	GkP 	GyYP 	G	P 	GWP 	GLP 	Gh6P 	Ni  
c!
	.XCREF	
8				
	DEFINE	..P
XSH(VALUE,COUNT),<
x
		.%S'COUNT==VA
LUE		
		IFE COUN
8T-1,<			
			CAIA
X			
			 JRST	b>
x		
		PUSH	P,.%S'
COUNT		
		..VRCN
8T==..VRCNT+1>		
X
	DEFINE	..POP(C
xOUNT),<
		POP	P,
.%S'COUNT		
		PU
8RGE	.%S'COUNT		
X		..VRCNT==..VRCN
xT-1>		

	IFNDEF
 .COND,<SEARCH MA
8C>
	..VRCNT==0		
X
	..ACMSK==0		
x	$$$VAL==0		
	..
RFLG==0		
	..RTN
8==0		
 
	IRP	A
X,<		
		$$$VAL==
xA		
		.COND(<<<.
 .TSAC($$$VAL)>,<.
 8.PSH($$$VAL,\<..V
 XRCNT+1>)>>,			<<0
 x>,<..ACMSK==..ACM
!SK!1B<$$$VAL>>>>)
!8
 
			>	
 
		
!XIFN ..ACMSK,<	
	
!x		.COND(<<<..ACMS
"K-<17B<T4>>>,<..A
"8CMSK==0
							.
"X.RFLG==-1
						
"x	..RTN==.SAVET>>,
#				<<..ACMSK-<7B
#8<T3>>>,<..ACMSK==
#X0
							..RFLG=
#x=-1
							..RTN
$==.SAVT3>>,				<<
$8..ACMSK-<3B<T2>>>
$X,<..ACMSK==0
			
$x				..RFLG==-1
	
%						..RTN==.SAV
%8T2>>,				<<..ACMS
%XK-<1B<T1>>>,<..AC
%xMSK==0
							..
&RFLG==-1
							
&8..RTN==.SAVT1>>,	
&X			<<..ACMSK-<17B
&x<P4>>>,<..ACMSK==
'0
							..RFLG=
'8=-1
							..RTN
'X==.SAVE4>>,				<<
'x..ACMSK-<7B<P3>>>
(,<..ACMSK==0
			
(8				..RFLG==-1
	
(X						..RTN==.SAV
(xE3>>>)
		    IFE
) ..VRCNT,<	
			.
)8COND(<<<..ACMSK-<
)X3B<P2>>>,<..ACMSK
)x==0
							..RFL
*G==-1
							..R
*8TN==.SAVE2>>,				
*X<<..ACMSK-<1B<P1>
*x>>,<..ACMSK==0
	
+						..RFLG==-1
+8
							..RTN==.S
+XAVE1>>,				<<..AC
+xMSK-<3B<A2>>>,<..
,ACMSK==0
							
,8..RFLG==-1
					
,X		..RTN==.SAVEA>>
,x,				<<..ACMSK-<1
-B<CH>>>,<..ACMSK=
-8=0
							..RFLG
-X==-1
							..RT
-xN==.SVCH>>>)
			
.	> 
		> 
		    
.8IFN ..ACMSK,<		
.X			..CNTR==0		
	
.x		REPEAT ^D16,<		
/
				IFN ..ACMSK
/8&<1B<..CNTR>>,<
/X					..PSH(..CNTR
/x,\<..VRCNT+1>)>
0					..CNTR==..CN
08TR+1>	
			SUPPRE
0XSS ..CNTR 	
		> 
0x
 
		    IFN ..
1VRCNT,<		
			PUS
18H	P,[[CAIA		
			
1X	AOS	-..VRCNT(P)	
1x
			REPEAT ..VRC
2NT,<..POP(\..VRCN
28T)> 
				POPJ	P,
2X]]>		
	IFN ..RFL
2xG,<PUSHJ	P,..RTN>
3	
						
 
b:
38
	SUPPRESS b		
3X
	PURGE ..VRCNT,.
3x.ACMSK,$$$VAL,..R
4FLG,..RTN 
	.CREF					

	.CRE	O,P 	O;ZP 	OI7P 	O&*7 
	.XCREF	
	CTEXT.
	..FT==0		
	..TYPE
	..AFLG==0
	..QFLG==0		
	..LFLG==0		
	..CFLG==0		
	..WC=0		
	..WORD=
	IRPC A,<
	..LFLG==0		
	..CVAL==<ASCII A
	IFV..QFLG,<IFN <..
			$TYP(<A>)
		..LG==-1>>
	IFELFLG,<IFN..AFL
Kx			..LFLG==-1>>
E8	IFEP..LFLG,<IFNF
			..AF
			..LFLG=
	IFE<..LFL.QFLG,<IF
				..==-1>>
				.LG==0>

	IFE.LFLG,<IFEV..CF
Pp				..AFLG==0
				..TYPE==0
				LFLG==-1>>>
	IFE ..LFLG,<
		IF..FRST,<.WORD.	
			.WORD.
			..FRS
		IFN1..TY.WORD.	$T
				.WORD.	
				..TYPNS>
		IFNCFLG,<
		IFLI<..CVAL>-"A",
		VAL=..C..CVAL&137
		FLG=..C
		.WORD.VAL)>
	> 
	.WORD.	$TFBEG
V0	.WORD.	$TFEOS
	P.EWRD.
	SUPPRESS,..AFLG,..
	SUPPREWCNT,..WORD,
	.CREF			
AL
	.CREF				OL;ZP 	OLI8P 	OLkP 	OMP 	OMHVP 	OMI7P 	OMKP 	OMKUP 	OMX<P 	OMh6P 	OMnP 	ONP 	ONSP 	ON)3P 	ONLP 	ONN8P 	R/
;ca
	$ENDPS(
;8\'..PSEC)	
	.PSE
;XCT	.TEXT./CONCAT	
;x
	..PSEC=='.TEXT
<.'	
	SUPPRES	..PSEC		
PRES	..P	R2P 	R2PQ @	R2`Q @	R2pQ @	R3Q @	R4P 	R4 Q @	R4)3P 	R40Q @	R4@Q @	R4PQ @	R4[yP 	R4`Q @	R4pQ @	R5Q `	R5YP 	R5 P 	R50P 	R5@P 	R5PP 		R5X<P 	R5`P 		R5pQ @
	R6Q @
	R6P 	R6 P 	R60Q @
	R6@Q @
	R6`Q @	R7 Q @	SP 	SI7P 	SnP 	SFL 
<Xcm
	$ENDPS(
<x\'..PSEC)	
	.PSE
=CT	.TXTPT/CONCAT	
=8
	..PSEC=='.TXTP
=XT'	
	SUPPRES	..PSEC		
PRES	..P	ZMI7P1	ZMkP,	ZNSP 	b-3P,	b-KxP`	b-X1P	b-X<P,	b-Y6P 	b-kxP,	b.9P 	b.3P,	cSY 	c-3Y,	c;P,	c\PY 	ckQt~	cxtY~	cQ 	cI7P 	cKP 	cKxQ 	c[P 	ckP 	c|Y 	cP 	c2Y 	cP 	cSY 	c=QQ ~	cN8P R,;{P`p1~p1{]+p1~R,=Ip1x]*p1{R,=I
		B
:P :{R -@*lIFE <A>,<-1>IFE <A>,<:5I`Q :Li  >`+vIFN <A>,<-1>IFN <A>,<:Lj2 @ ,IFDIF <A>,<B>,<-1> <A>:n:`P :v[ P :|i@P ;{@Q @
NC@ `1^IFNB<A><BIT$$$A>+IFB<A>, <IFN BIT$$$,<<<BI@T$$$==BIT$$$_-1>_`1>+<IFE BIT$$$,<1>>>>E BIT$$$,<1
\P 
\;vP 
\[RP 
\iP 
\iP 
\kP 
\lRP 
\l[P 
\lzP 
]I7P 
]LzP 
][P 
]nP 
]y2P 
^P 
^P 
^P 
^:=P 
^IVP 
^KP 
^K8P 
^N8P $-3P $;RP $=P $iP $y7P %+UP %X<P %[{P &>6P &NP $hP $iP $;2P $KP $kP %I7P &
zP &TP &YP D;YP 	EH1P ELP F(1P F,P F<P }i  1n
	IRP <A@>,<
		IFN <COND.`. A >,<
			CON... A
			STOPI
 		>
	>
	.XCREF	@COND..,CON...,...`CON,..COND,.COND
,..COND,.CONDP:PI6PYPX<PkwP >) 
IFNN<..W
	EXP	..WO
	..WORD==0
	..WCNT==0>=0
	 $+P 	$,TP $-3P $:P $=P $I;P $\YP $^P $iQP 	$kP %yP %I7P 
%LwP %[rP %h6P %krP &
P &
WP &(wP &9IP &9IP &9JP &9JP &9RP &:=P 
&i9P &vC@ (1vIFB<A>,<<HINT$$$==INT$$$+Bh>-B>IFNB<A>,<INT$$$A><A>,<IN1y1y1*IA  *IGP G	P G	P G
P G
P GP GP G(P G(P 	G)P 	G)P 
G*P 
G*P G+P G+P 
GHP 
GHPOGJPOGJPRGKP GKP GhP GhP GiP GE P GT@P GU@P GdP Gd P Gd@P Gd`P GeP Ge P Ge@P Ge`P GtP Gt P Gu`P GX<P NO P OI7P Oh6P O
PmRzP Rz(P Rz)P Rz*P RzHP RzhP RzHP RzHP RzP Rz%P RzFP R{HP R|^P R|^P SY P S(P SHP SjP S(P SP S$P S%P S4P SFP STP SdP Su P SHP S^P S^P SX<P ^~) 
IFET..WC
	EXP	..WO
	..WORD==0
	..WCNT==0
>
	..ORD==..WORD!<A>
Yp	..WCNT==..WCNT+1
CNT==..WCNT+1_` @>}{woP