Google
 
Trailing-Edge - PDP-10 Archives - BB-Y390T-BM - t20sub/glxmac.unv
There are 92 other files named glxmac.unv in the archive. Click here to see a list.
x
,UW@P C4@ ,e
	..NAC==,10		
	IRP A,<
	,P  .ACV1 (A)>		
	.ACV3S(\..NAC)C')V,BC, 8ALSH A,-^D9LSH A,-^DC2f} ;9m
	.EAWTO(;YMTY,0)
	.EAWTO(T;xYP,2)
	.EAWTO(TX<T,2)
	.EAWTO(OBJ<8,0)
	.EAWTO(ACK,<X0)
	.EAWTO(FLG,1<x)
	.EAWTO(NOD,0)=
	.EAWTO(JBN,0)
	.EAWTO(ACD,0)
=X	.EAWTO(OCD,0)
	.EAWTO(MFL,1)
C:' zQU
	TXZ A,<^-<B>>TXZ A,CHuI7Q xCHvN8P'CJ9ip CJ9jp CJ9l}p E2"@ aQ
	  IFE aqB,<..TA==0>
	  bIFN B,<EXP ..TAb0
		    PURGE ..TA>
	PURGE ..TE@tP'E@vyQ ~E@v:=Q |F;z:Q @G@ O

y
	..CX(,A,B)   ..CGD RQ
	..CX(A,A,B)  ..CGDP PQ
	..CX(E,A,B)  ..CGDp Q
	..CX(G,A,B)  ..CGDy  QQ
	    ..CX(GE,A,B) ..CGE@ OQ

}
	..CX(L,A,B)  ..CGEI  P
	..CX(LE,A,B) ..CGE` R
	    ..CX(N,A,B)  ..CGH 'Y"A

	  LST&YOF.

	X CRE	
	'9X GEN	
	X PRT	
'	X CLS	
	XyAUT	
	X USW	
	X SPL	'y
	X SIZ   
	X M(OD	
	X CHN	

	  LSTON.


	G"\Y zY/k

	IF1, zx<%%EDT==AEDT>	
{
	IF2, <IFN <%%E{8DT-AEDT>,<
		PR{XINTX ? Edit Numbe{xr Doesn't Match G|LXVER in GLXA
	|8	A$WHO(\AEDT)>	|X
		A$NOTE		
	I|xNTERN AEDT		
	I}NTERN LODLEV		
;}8	PURGE %%EDT> ;END IF2

qpG4,m:Q G4-ZQ G4.

zQ G:YlP 

G>hKW s0'!
	IFNB <.sP2.1622>,<
	PRINTspX .2.1622 (From GtLXVER)
	> ;END IFNB .2.1622
	G>hMt qp'
	PRINTX rGLXVER	GLXCOM Edir0t(70) by  on 3-OcrPt-85
	PRINTX	   rp 	GLXCOM	Actual Edit(A)
	G>lYP G>vC@ z1[LALL
PAGEzQ; (A Continued ozpn next page)
SAL{L; (A Continued {0from previous page) previous pagGHt;rP GHtkP GHv	P GHv)9P GHv:=P I!k7P I!k<P ImP I$P'pIY{P .I  L1i
	IFNB <LQB>,<..STR0 (.DECRLp0,,<B>,A)>
	IFMB  <B>,<SOS A>  <B>,<SOS A>I6= Q9
	A==<-1qB<C>+1B<C-D>> 
	IF1,<IFDEF %A0,<PRINTX ?A ALREPADY DEFINED>>
	DpEFINE %A (OP,AC,Y,MSK)<	
	IFDIF 0<Y><>,<
	OP (<ACP>,B+'Y,MSK)>
	IpFIDN <Y><>,<
	OP.(<AC>,B'Y,MSK)>>AC>,B'Y,MSK)>I'7zXQ
	IFB <D)>,<
	XWD	[ASCIZ\HC\],[XWD B,A]>h
	IFNB <D>,<
	XWD	[EXP CM%FW!D(
		ASCIZ\C\],[XWD B,A]>
,[XKH(Q P 3KJ

,bPBKJ)bPb  KJ=P +KJ{P 	KJIBP !KJ=bP (KJIP &KJZ"P 0KJX"P KJ9P &KJ$\BP *KJ$kP KJ$nBP KJ$|bP KJ%bP KJ%h"P KJ%i"P KJ%|BP KJ&I"P +KJ&K"P KJ&mP #KJ-P 

KJ-iBP 1KJ-l"P )KJ-yBP KJ-{P 	KJ.;P 'KJ4"P KJ4"P 0KJ4+"P %KJ49BP KJ4="P )KJ4I"P KJ4LbP KJ5bP $KJ5iP KJ5iBP KJL;BP KJLMP KJLh"P /KJLkBP KJLlP KJLlbP KJM+BP KJMHbP -KJMLBP KJMmP KJMmbP KJN

P ,KJN

bP KJNI"P 

KJNIBP KJN\bP KJfkP (KJlIP KJlLbP KJt1P KJt9"P KJt:"P #KJtlP 2KJtmP -KJuX"P KJu]P KJuhbP KJuiP KJu{"P KJv	BP KJv
"P 2KJv

bP .KJvbP KJv)"P KJv9P KJv;P 1KJv;BP KJv<P KJv=bP KJv[P KJv["P KK-P KK

YBP %"1
	IF1,<IF%9DEF ERA$,PRINTX %X?Duplicate error %xcode A>
	ERA$=&=ER%%%
	ER%%%==ER%%%+1
R%%%==EKKP KK,}P KKLP KK|Y k9"%
	ERR	EOFkY,<End of file>
	kxERR	IFP,<Illegal lfile position>
	l8ERR	FDE,<File datlXa error>
	ERR	FNlxD,<File is not onm disk>
	ERR	NSD,m8<No such device>
	ERR	FCF,<File cmxheckpoint failed>n
	ERR	SLE,<A sysn8tem limit was excnXeeded>
	ERR	IFS,nx<Illegal file speocification>
	ERRo8	FNF,<File not fooXund>
	ERR	PRT,<Poxrotection violatipon>
	ERR	DNA,<Dep8vice not availablpXe>
	ERR	NCE,<No px"current" entry iqn list>
	ERR	NMAq8,<No IPCF messageqX is available>
	qxERR	FDS,<Files arre on different str8ructures>
	ERR	FrXAE,<File already rxexists>
	ERR	USEs,<Unexpected systs8em error>
	ERR	NsXSP,<No such pid>
	ERR	BOL,<Beginnting of list reacht8ed>
	ERR	EOL,<EntXd of list reachedtx>
	ERR	RQF,<Receuivers quota full>u8
	ERR	SQF,<SendeuXrs quota full>
	uxERR	NRE,<No rememvbered entry>
	ERv8R	TBF,<Table is fvXull>
	ERR	EIT,<Tvxable entry alreadwy exists>
	ERR	Iw8TE,<Invalid tablewX entry>
	ERR	QEFwx,<Quota exceeded xor disk full>
	Ex8RR	ARG,<Invalid axXrgument specifiedxx>
	ERR	IFN,<Invaylid function specy8ified>
	ERR	IJN,yX<Invalid job numbyxer specified>
	EzRR	RAD,<Invalid rz8adix specified>
zX	ERR	NUM,<Invalidzx numeric argument{>
	ERR	IDT,<Inva{8lid date field sp{Xecified>
	ERR	IT{xF,<Invalid time f|ield specified>
|8	ERR	DOR,<Date/ti|Xme out of range>
	ERR	DTM,<Value }missing in date/t}8ime>
	ERR	MDD,<M}Xissing day in dat}xe/time>
	ERR	DFZ~,<Field zero in d~8ate/time>
	ERR	M~XDS,<Mnemonic date~x/time switch not implemented>
	ER8R	DFL,<Field too Xlarge in date/timxe>
	ERR	ILR,<Illegal year format 8in date/time>
	EXRR	NND,<Negative xnumber in date/time>
	ERR	NPF,<No8t known whether pXast or future in xdate/time>
	ERR	RDP,<Relative dat8e parse required>X
	ERR	NSW,<Switcxh does not begin with slash>
	ERR8	NOM,<UnrecognizeXd switch or keywoxrd>
	ERR	NUL,<Null switch or keyw8ord given>
	ERR	XINW,<Invalid guidxe word>
	ERR	NC,<Not confirmed>
8	ERR	ICN,<InvalidX character in numxber>
	ERR	NQS,<Invalid quoted str8ing - does not beXgin with quote>
x	ERR	AMB,<Ambiguous switch or keyw8ord>
	ERR	NMT,<DXoes not match tokxen>
	ERR	CMA,<Comma not given>
	8ERR	NNC,<Node namXe may not exceed x6 characters>
	E	RR	INT,<Node term	8inator "::" must 	Xbe specified>
	E	xRR	NSN,<Unknown n
ode name>
	ERR	I
8PS,<Invalid path 
Xspecification>
	
xERR	IUS,<Invalid user specificatio8n>
	ERR	DGS,<DevXice name may not xexceed 6 characte

rs>
	ERR	DNE,<Un

8known device>
	E

XRR	DIO,<Device ca

xnonotudo input or
	ERR	BDlid>date/t
	ERR,<Field too long for internal 8buffer>
	ERR	TMTX,<Command too lonxg for internal buffer>
	ERR	BDS,<8Invalid default sXtring>
	ERR	BTF,x<Invalid table format>
	ERR	TME,<8Date/time must beX in the future>
x	ERR	TMN,<No timer entry has expir8ed>
	ERR	TMA,<TiXmer entry alreadyx exists>
	ERR	DVT,<Device termina8tor ":" must be sXpecified>
	ERR	NxCI,<Argument block may not be in t8he ACs>
	ERR	TLUX,<Terminal locatixon is unknown>
	ERR	FIO,<File is 8offline>
	ERR	FBXM,<File being modxified>
	ERR	WLK,<Write-locked dev8ice>
	ERR	CSD,<CXannot supersede ax directory>
	ERR	CDD,<Cannot dele8te a non-empty diXrectory>
	ERR	SNxF,<Sub-file directory not found>
8	ERR	ESL,<Search Xlist is empty>
	xERR	LVL,<SFD level nested deeper t8han the maximum aXllowed>
	ERR	CCWx,<Cannot create/write on any struc8ture in search liXst>
	ERR	FCU,<Caxnnot update file>
	ERR	ENQ,<File 8has outstanding EXnqueue lockes setx>
	ERR	SWS,<Software write-lock o8n structure>
	ERXR	DER,<Hardware dxevice error>
	ERR	DTE,<Hard data 8error>
	ERR	BKT,X<Block too large>x
	ERR	IPP,<Non-existant UFD>
	ER8R	TRN,<RIB or traXnsmission error>
	ERR	ILC,<Illegal character in da8te/time>
	ERR	NFXT,<Date/time mustx be in the future>
	ERR	NPS,<Date8/time must be in Xthe past>
	ERR	UxDM,<Unrecognized  month in date/tim 8e>
	ERR	UDN,<Unr Xecognized name in x date/time>
	ERR!	IFA,<Illegal fil!8e attribute>
	ER!XR	FAI,<File attri!xbute inconsistanc"y>
	ERR	CEI,<Can"8't enable/disable"X interrupt system"x>
	ERR	ENF,<Link#ed list entry not#8 found>
	ERR	NSL#X,<No such linked #xlist>
	ERR	NFP,<$No free pages>
	$8ERR	NPI,<No free $Xpages for IPCF reception>
CF reKKBP 
KKI"P KKiBP 'KKBP 
KK|bP *KK$)BP KK%M"P $KK%X"P "KK%Y"P !KK%[BP "KK%]P  KK&+BP ,KK,K"P .KK,KBP /KK-*"P KK.9"P KK=JbP %KZ` ni
	IFIDN <o	BC><>,<EXP <A>o(>
	IFDIF <BC><oH>,<
	 IFE <A+1>oh,<<POINT 7,C>>
p	 IFN <A+1>,<
	p(   IFIDN <C><>,<pHEXP <A,B>>
	  ph IFDIF <C><>,<EXqP <A,B,C>>
	>>A,B,C>>
	>Kc  wqAIRP A,<
x	IF2,<IFNDEF A,<EXTERN A>>>A,<Mf9 P Mt,}P MuLwP @MuiWP  Mv
P Mv=8P MuI7Q xMvN8P'Mn:=p MF:=P M$pQ"P M$tP'M$t:P M$t:P M$t;P M$t<RP M$ty7P M$u6Q @M$uI7Q xM$u[rP M$v

ZP M$v:=P M$v<P M$v\{P M&`KW hP&K
	IFNB <.hp1235>,<
	PRINTX i.1235 (From GLXVEi0R)
	> ;END IFNB .1235
	M&`Mt g&A
	PRINTX g0GLXVER	GLXFIL EdigPt(127) by  on 20-gpOct-86
	PRINTX	 h   	GLXFIL	Actual Edit(A)
	M&dYP +M2  <1c<<<A>B<POS(<B>)>>&<B>>M>h1p M>hrp M>h{p M>iRp M>k=p M>l}p M>m9p MHuiWQ @MHv
Q  MJh1p MJhrp MJip MJiVp MJk=p MJlsp MJl}p MJm9p MR4zP MR6L`P MRV>9Q MS.[yP M^luQ O2|  xQOIRP A,<
xq	IF2,<IFDEF A,<.yIFN A,EXTERN,<INy0TERN A>>
	     yPIFNDEF A,<EXTERNyp A>
	Q SUPPRESPA>>FlYSUPPRO3DYPFxO3EKrPfxO3EZ7PO3FI@ <StLQ St\Yp Stkp SuZp SulQ Su}:p Sv
1p Sv

SpSv>9Q,Sv>@pOSNn-XWQ
	IFNB <IQB>,<..STR0 (.INCRIp0,,<B>,A)>
	IFJB  <B>,<AOS A>  <B>,<AOS A>S:HKW v'7
	IFNB <.v02.1622>,<
	PRINTvPX .2.1622 (From GvpLXVER)
	> ;END IFNB .2.1622
	S:HMt tP'-
	PRINTX tpGLXVER	GLXINI Ediut(30) by  on 3-Ocu0t-85
	PRINTX	   uP 	GLXINI	Actual Edit(A)
	S:LYP 

S;k >qw<<<A>B<POS(<B>)>>&<B>>S; KW xp'M
	IFNB <.y2.1622>,<
	PRINTy0X .2.1622 (From GyPLXVER)
	> ;END IFNB .2.1622
	S; Mt w0'C
	PRINTX wPGLXVER	GLXINT Ediwpt(120) by  on 3-Oxct-85
	PRINTX	  x0  	GLXINT	Actual Edit(A)
	S;!kP S;!k<P S;$YP (S? zQ
	TXO A,<B>
	TXO A,S@,9QQ @S@,9QP S@,9RP `S@,9VP S@,9XP$S@,9YQ S@,9YQ  S@,9[P"[email protected]Q S@t,:P'S@t9QQ @S@t9QP S@t9RP `S@t9VP S@t9XP$S@t9YQ S@t9YQ  S@t9[P"S@t:P S@u-xQ  S@u[XQ xS@v

tQ @S@v,:P S@v,rQ S@v<Q S@v<Q S@v<Q xS@v<:P'~S@v=Q  S@vMQ SBKW mp&u
	IFNB <.n1224>,<
	PRINTX n0.1224 (From GLXVEnPR)
	> ;END IFNB .1224
	SBMt l0&k
	PRINTX lPGLXVER	GLXIPC Edilpt(101) by  on 7-Omct-85
	PRINTX	  m0  	GLXIPC	Actual Edit(A)
	SBYP  SBd+P&SBn	P&SBn
P&SBn
P&	SBnP&	SBnP&
SBn

P&
SB2P SB)iP&	SB)iP&SB)kVP&SB)kYP'SB)lXP&
SB)lsP&
SB)lxP&	SB)lyP&SPuxzQ @SR/
	LSTOF.	qiXCREF
	..TEXT<Ar>		
	  EXP	0		
	LSTON.
	0		
Uv98Q |U$@ "k

	  LST(yOF.

	X JNO,.JI)JNO,<-1,,GJBJNO>	)8
	X TNO,.JITNO,<)X-1,,GJBTTY>	
	X )xUSR,.JIUNO,.GTPPN*		
	X CDN,.JIDNO*8,<-1,,GJBPTH>	
	*XX PRG,.JIPNM,.GTP*xRG		
	X8CJN,.JIC+PJ,<-1,,GJBCJB>	
	X BAT,.JIBCH,.G+XTOBI		
	X JLT,.J+xISTM,.GTJLT		
	X, LOC,<-1,,GJBLOC>,8,<-1,,GJBLOC> 
	,XX RTM,.JIRT,<-1,,,xGJBRTM>	
	X TLC,-<-1,,GJBTLC>,<-1,-8,GJBTLC>	
	  LSTON.


	  LSTU +,U +(U  +$Up +U~` +"U$t(:P U$t9P U$t:WP U$u+P U$u+WP U$uKqP U$uX<P U$uZ7P U$v

SP U$v-P U$vKP U$vKWP U$v\yP U&j2p U&jWp U&lxp U&m9p U&:=p U?0 +0UKI@ +UVn	@ 4@UVn
 KW {P'c
	IFNB <.{p2.1622>,<
	PRINT|X .2.1622 (From G|0LXVER)
	> ;END IFNB .2.1622
	rW
 Mt z'Y
	PRINTX z0GLXVER	GLXKBD EdizPt(65) by  on 3-Oczpt-85
	PRINTX	   { 	GLXKBD	Actual Edit(A)
	W
$YP WNH1 i*
	IFB <C 	>,<
	XWD	[ASCIZ\ (B\],A>
	IFNB < HC>,<
	XWD	[EXP  hCM%FW!C
		ASCIZ\B\],A>
SCIZY"luQ xY&i1 Y9

	  LSTyOF. XCREF

	CDO	OTSINI			
	CDO	8    			
	CDO	.ZPXAGA
	CDO	.ZPAGN
	CDO	.ZCHNK
	CDO	.SAVE1
	CDO	.S8AVE2
	CDO	.SAVE3X
	CDO	.SAVE4
	CxDO	.SAVET
	CDO	.SV13
	CDO	.SV14
	CDO	.SV15
	CDOX	.SV16
	CDO	.RETxT
	CDO	.RETF
	CDO	.RETE
	CDO	.A8OS		
	CDO	.SOS		X
	CDO	.ZERO		
	xCDO	.POPJ		
	CDO	.STOP		
	CDO	.S8AVE8		
	CDO	.STKXST		
	CDO	.TRSETx		
	CDO	.POPJ1		
	CDO	.UD2SC		
8	CDO	.SC2UD		
	CXDO	.CPUTY		
	CDOx
	CDO
	CDO

	CDO			
	CDO	C%RP8RM
	CDO	C%INTR
X	CDO	C%SEND
	CDOx	C%RECV
	CDO	C%BRCV
	CDO	C%REL
8	CDO	C%CPID
	CDOX	C%KPID
	CDO	C%SxPID
	CDO	C%MAXP
	CDO	C%PIDJ
	CD 8O
	CDO
	CDO
	C XDO
	CDO

	CDO	 x      			
	CDO	F!%IOPN
	CDO	F%AOP!8N
	CDO	F%OOPN
	!XCDO	F%IBYT
	CDO	!xF%OBYT
	CDO	F%IB"UF
	CDO	F%OBUF
"8	CDO	F%REL
	CDO	"XF%DREL
	CDO	F%RR"xEL
	CDO	F%REW
	#CDO	F%POS
	CDO	F#8%CHKP
	CDO	F%INF#XO
	CDO	F%FD
	CD#xO	F%REN
	CDO	F%D$EL
	CDO	F%FCHN
$8	CDO
	CDO
	CDO
	CDO
	CDO
	CDO$x
	CDO
	CDO
	CD%O

	CDO	      	%8		
	CDO	M%ACQP
%X	CDO	M%RELP
	CDO%x	M%IPSN
	CDO	M%N&XPG
	CDO	M%IPRC
	CDO	M%IPRM
	CD&XO	M%AQNP
	CDO	M%&xRLNP
	CDO	M%CLNC'
	CDO	M%FPGS
	C'8DO	M%GMEM
	CDO	M'X%RMEM
	CDO
	CDO'x
	CDO
	CDO
	CD(O
	CDO
	CDO	M%G(8PAG
	CDO	M%RPAG
	CDO
	CDO
	CDO(x
	CDO
	CDO
	CD)O
	CDO
	CDO

)8	CDO	      			
	)XCDO	T%TEXT
	CDO	)xT%TTY
	CDO
	CDO*
	CDO
	CDO
	CD*8O
	CDO
	CDO
	C*XDO
	CDO
	CDO
*x
	CDO	      			
+	CDO	L%CLST
	CDO+8	L%DLST
	CDO	L%C+XENT
	CDO	L%CBFR
	CDO	L%DENT
	CD,O	L%NEXT
	CDO	L%,8FIRS
	CDO	L%LAST,X
	CDO	L%PREV
	C,xDO	L%PREM
	CDO	L-%CURR
	CDO	L%REN-8T
	CDO	L%SIZE
	-XCDO	L%APOS
	CDO
	CDO
	CDO
	CDO.
	CDO
	CDO
	CD.8O
	CDO

	CDO		.X	
	CDO	I%NOW
	C.xDO	I%EXIT
	CDO	I/%ION
	CDO	I%IOFF/8
	CDO	I%SLP
	CD/XO	I%INT1
	CDO	I%/xINT2
	CDO	I%INT30
	CDO	I%TIMR
	C08DO
	CDO
	CDO	I%0XSOPR
	CDO	I%WTO
	CDO
	CDO	I%HOS1T
	CDO	I%JINF
	18CDO
	CDO

	CDO1X			
	CDO
	CDO	S1x%DATI
	CDO	S%SIX2B
	CDO	S%CMND
	28CDO	S%TBLK
	CDO	2XS%SCMP
	CDO	S%ER2xR
	CDO	S%INTR
	3CDO	S%EXIT
	CDO	38S%TBAD
	CDO	S%TB3XDL
	CDO	S%NUMI
3x

	CDO	K%RCOC		4	
	CDO	K%WCOC
	48CDO	K%SUET
	CDO	4XK%STYP
	CDO	K%TX4xTI
	CDO	K%SOUT
5	CDO	K%BOUT
	CDO58	K%BIN
	CDO	K%BA5XCK
	CDO	K%TPOS
5x	CDO	K%BUFF
	CDO6	K%FLSH
	CDO	K%O68PEN
	CDO
	CDO
6X	CDO
	CDO
	CDO
	CDO
	CDO
	CDO7
	CDO
	  LSTON.
  
	  LSTON.Y:XKW ~0'y
	IFNB <.~P2.1622>,<
	PRINT~pX .2.1622 (From GLXVER)
	> ;END IFNB .2.1622
	Y:XMt |p'o
	PRINTX }GLXVER	GLXLNK Edi}0t(20) by  on 3-Oc}Pt-85
	PRINTX	   }p 	GLXLNK	Actual Edit(A)
	SBMtY:\YP Y>

@ Bq
	IFNB <CC>,<..STR0 (..LDBC0,A,C,B)>
	IFBCP  <C>,<MOVE A,B>C>,<MOVE A,Y>%I;P YO%GP YO%yG {qi
	IFNDEF |LSTIN.,LSTIN.==0	|0	
IFE LSTIN.,<
|P	IFIDN <XCREF><A|p>,<.XCREF>	
		  } XLIST>		
	LSTIN.==LSTIN.+1STINYO%{G }Qs
	IFG LST}qIN.,LSTIN.==LSTIN~.-1	
	IFLE LSTIN~0.,<.CREF		
		      LIST>
		   [KW pP'
	IFNB <.pp1224>,<
	PRINTX q.1224 (From GLXVEq0R)
	> ;END IFNB .1224
	[Mt o'
	PRINTX o0GLXVER	GLXMAC EdioPt(266) by  on 7-Oopct-85
	PRINTX	  p  	GLXMAC	Actual Edit(A)
	[YP [[3@ >1s<<<1_<A>>-1>B<B>>_<A>>[8@ =1k1B<<A>-1>-1B<B><<A>-1>[@ 	%
	IFB <B9>,<MAXSIZ==0
		IXRP A,<IFG <A-MAxXSIZ>,<MAXSIZ==A>>>
	IFNB <B>,<8B==0
		IRP A,<XIFG <A-B>,<B==A>>>
B>,<B==[tP'[t;ZQ x[v
QP'[v:Q[vxQ [[v[lp [lp [lXp [lrp [ltp [lxp [l}p [hKW k&
	IFNB <.k01233>,<
	PRINTX kP.1233 (From GLXVEkpR)
	> ;END IFNB .1233
	[hMt iP&U
	PRINTX ipGLXVER	GLXMEM Edijt(46) by  on 1-Apj0r-86
	PRINTX	   jP 	GLXMEM	Actual Edit(A)
	[lYP [n:=P [tuQ @[th:Q [u[yQ [ukvQ  [v=3P'[v|WQ [&p 	9
	IFB <B9>,<MINSIZ==377777X,,777777
		IRP xA,<IFG <MINSIZ-A>,<MINSIZ==A>>>
	IFNB <B>,<B==X377777,,777777
	x	IRP A,<IFG <B-A>,<B==A>>>
A>,<B==A>>>
[>!`=qo<A-<A/B>*B><A-<A/B[>wP&

]
   ..MX1?Q==B			
IFDEF .P?pSECT,<
   .IFN .@.MX1,ABSOLUTE,<
@0	MOVE A,[B]>
 @P  .IF ..MX1,ABSOL@pUTE,<
	..MX2==0	A	
	IFE <..MX1>B5A03,<
	AP..MX2==1
	  MOVEI A,..MXAp1>	
	IFE ..MX2,<B		
	IFE <..MX1>BB017,<
	  ..MX2==1BP
	  MOVSI A,(..BpMX1)>>	
	IFE ..MCX2,<		
	IFE <<..C0MX1>B53-^O777777>CP,<
	  ..MX2==1
Cp	  HRROI A,<..MXD1>>>	
	IFE ..MX2D0,<		
	IFE <<..MXDP1>B17-^O777777B17Dp>,<
	E..MX2==1
	  HRLOI A,(..ME0X1-^O777777)>> 
EP	IFE ..MX2,<		
	Ep  MOVE A,[..MX1]F>	
	>>

IFNDEFF0 .PSECT,<
	..MX2FP==0		
	IFE <..MXFp1>B53,<
	  ..MX2G==1
	  MOVEI A,G0..MX1>	
	IFE ..MGPX2,<		
	IFE <..MGpX1>B17,<
	  ..MXH2==1
	  MOVSI AH0,(..MX1)>>	
	IFEHP ..MX2,<		
	IFE Hp<<..MX1>B53-^O777I777>,<
	  ..MX2=I0=1
	  HRROI A,<IP..MX1>>>	
	IFE .Ip.MX2,<		
	IFE <<J..MX1>B17-^O77777J07B17>,<
	  ..MX2JP==1
	  HRLOI A,Jp(..MX1-^O777777)>K> 
	IFE ..MX2,<	K0	
	  MOVE A,[..KPMX1]>	
>
	PURGE ..MX1,..MX2RGE[Lt;ZQ x[LvN8P'[NF:=p [N^= QO
	A==C	q	
	IF1,<IFDEF %A,<PRINTX ?A ALR0EADY DEFINED>>
	PDEFINE %A (OP,ACp,Y,MSK)<	
	IFDIF	 <Y><>,<
	OP (<A	0C>,B+'Y,MSK)>
		PIFIDN <Y><>,<
	O	pP.(<AC>,B'Y,MSK)>>AC>,B'Y,MSK)[PuySP'[PvNP'[Vg WQ
2P ] u)(IF2,<IFDEFu	 A,<A==A>> IFNDEF A,<A==B>]F@ %>TEMFDB##_
QkRp _
Ql}p _
Qmp _
Qm7p _
T= 4!#^

	X	.OTYRDR,Reader
	X	.O(YTNCU,Network-Cont4Aroller
	X	.OTLPT4,Printer
	X	.OTB5AAT,Batch-Stream
5`	X	.OTCDP,Card-Pu6nch
	X	.OTPTP,Pa6 pertape
	X	.OTPL6@T,Plotter
	X	.OT6`JOB,Job
	X	.OTTR7M,Terminal
	X	.O7 TOPR,Operator
	X7@	.OTIBM,<IBM Remo7`te>
	X	.OTMNT,<D8evice>
	X	.OTFTS8 ,<File Transfer>
	X	.OTBIN,<Card 8`Reader Interprete9r>
	X	.OTRET,<Fi9 le Retrieval>
	X9@	.OTNOT,<Retrieva9`l Notification>
:	X	.OTDBM,<DBMS S: ystem>
	X	.OTFAL:@,<File Access Lis:`tener>
;**;[237];Add 1 line after ; .OTFAL   DRB  1/1;@1/85
	X	.OTSNA,<;`SNA Workstation>
Workstation>
	IFNB <.02.1622>,<
	PRINTPX .2.1622 (From GpLXVER)
	> ;END IFNB .2.1622
	_SMt P(
	PRINTX pGLXVER	GLXOTS Edit(15) by  on 3-Oc0t-85
	PRINTX	   P 	GLXOTS	Actual Edit(A)
	_SYP _Sh6 Di$& [ASCIZ \GLXLIB.EXE\]Z \G_Tu

SQ x_TuLSP'`P `DP `HP `LP `PP a<VP a>:=P a,I3p a,\Yp a-	P a-np a.-p a.:=p atzp atiP'atkp au	p auZp auI7Q xauKqp au[Yp au^p auh6p av	Q xav
2p av>9p a

,TQ  a

,Q a

,*9Q a

,>(Q  a

,>(Q a

,k{Q a

,m3Q a

-J8Q @a

-iQ a

-}SQ @a

.Z7Q a

.\yQ a

tTQ  a

tQ a

t*9Q a

t>(Q  a

t>(Q a

tk{Q a

tm3Q a

uJ8Q @a

uiQ a

u}SQ @a

vZ7Q a

v\yQ al}P aI3 E	$]

	..XX=EI=<FLD(A,CM%FNC)>E)+B+<Z F> 

  Ei IFNB <D>,<..XX=F..XX!CM%HPP> 
  F8 IFNB <E>,<..XX=FX..XX!CM%DPP> 

Fx	EXP ..XX		

  G IFNB <C>,<EXP G8C>
   IFB <C>,<GXEXP 0>

   IFNBGx <D>,<POINT 7,[AHSCIZ \D\]>
   IH8FB <D>,<0>

IHX IFNB <E>,<POINTHx 7,[ASCIZ \E\]>
I8IFB <E>,<0>



   IFB <IIX>,<0>
   IFNB <IxI>,<EXP I>

  J IFB <J>,<0>
  J8 IFNB <J>,<EXP JXJ>

   IFB <H>Jx,<0>
   IFNB <HK>,<EXP H>

   K8IFB <G>,<0>
   KXIFNB <G>,<EXP G>

G>,<EXP Ga@KW 	0(O
	IFNB <>	P,<
	PRINTX  (Fro	pm GLXVER)
	> ;END IFNB 
	a@Mt p(G
	PRINTX GLXVER	GLXPFH Edi0t(16) by TARL on P17-Apr-81
	PRINTpX	    	GLXPFH	Actual Edit(A)
	aDYP a 7Y=LSH A,^D9LSH A,^D9a+= 5a;&  93
	 IFB  <YB>,<..STR0(..PNTx,,<FWMASK>,A)>
	 IFNB <B>,<..ST8R0(..PNT,,<B>,A)>.PNT,,<B>,Aa>Mm ;Q_<POINT WID;q(B),A,POS(B)>B),A,POS(B)>a?H6 +a? 9QM<^L<<A>&<-<A>>>><<A>&<aJ}Ks ti	

	SALL				
	LSTOF. XCRE8F			

	%%.GLX==X%%.GLX			
	GLXVRxS==GLXVRS			

	IFNB <A>,<%%.MOD8==SIXBIT/A/> 
	XIFNB <B>,<%%.OTSx==SIXBIT/B/> 

	GLOB	I%INIT			

	TOPS10	<			
X		SEARCH	UUOSYM		x
		%%UUOS==%%UUOS		
	>				

	T8OPS20	<			
		SEAXRCH	MONSYM		
;		x%%MONS==%%MONS		
	>				

	IFB <8B>,<			
		.TEXTX	|,REL:GLXLIB/SEAxRCH/REQUIRE:I%INIT|
		DEFINE	$DAT8A (NAM,SIZ<1>),< X
			NAM:	BLOCK	SxIZ
		>			
		DEFINE	CDO (X),<GLOB8 X> 
		LIBVEC			X
	>				

	IFNBx <B>,<CHKEDT (B)>	

	IFNB <B>8,<IFDIF <B><INI>X,< 
		IFN GLXPURxE,<.PSECT .HIGH.> 
		IFE GLXPURE,8<		
			TWOSEG	40X0000	
			RELOC	0x	
			RELOC	400000	
		>			

		D8EFINE $DATA(NAM,SXIZ<1>),< 
			IFNx GLXPURE,<.PSECT 	DATA> 
			IFE GL	8XPURE,<RELOC> 
		X		IFNDEF B%D,<B	x%D::! B%DL==:0>

			NAM:	BLOCK	SI
8Z
			B%DL==:B%
XDL+SIZ 
			IFN G
xLXPURE,<.ENDPS DATA> 
			IFE GLXP8URE,<RELOC> 
		>X			

		IFDIF <xB><OTS>,<	
			DE

FINE	CDO (X),<GLO

8B X> 
			LIBVEC	

X	
		>			

	>>	

x			

	IFNBI<B>B><INI>
		DEFINE	$DA1>),<
			NAM:	BLOCK	SIZ
		>			
	>>	8			

	LSTON.			X	

	GLOB	<.POPJx, .RETT, .RETF>	
	OPDEF	$RET	[POP8J	P,]	
	OPDEF	$RXETT	[PJRST	.RETT]x	
	OPDEF	$RETF	[PJRST	.RETF]	
	O8PDEF	$RETIT	[JUMPXT	.POPJ]	
	OPDEFx	$RETIF	[JUMPF	.POPJ]	
	.NODDT	$R8ET,$RETT,$RETF,$RETIT,$RETIF
$RaPtP aPtkP aPuTP aPv\rP e"luP'ePv8vP ePv9VP ePv;P fDP fHP gkp gk9p glp glp gltp gl}p gpKW p(%
	IFNB <.2.1622>,<
	PRINT0X .2.1622 (From GPLXVER)
	> ;END IFNB .2.1622
	gpMt 0(
	PRINTX PGLXVER	GLXSCN Edipt(105) by  on 3-Oct-85
	PRINTX	  0  	GLXSCN	Actual Edit(A)
	gtYP "g"@ bq'
	IFN <<.c.TA>&B>,<PRINTXc0 ?Initial field ncPot zero in $SET>
	d..TVAL==<C>
	d0..TMSK==<B>
	  ..TA==..TA!dP<FLD(..TVAL,..TMSdpK)>
	  PURGE ..TVAL,..TMSK
	.Tg#=z@Zi%VC.SWIT+PDBCPY##C.SWIT+PDBg$tkQ=@g$uP'g$uh6Q  g.N	@ 6@g.N
.SPID	(S>	P.QSR,.IPCPQ,.SPQ>(SR,QUASAR)	
.SPI>HD	(SP.OPR,.IPCPO,>h.SPOPR,ORION)	
.?SPID	(SP.INF,.IPC?(PI,.SPINF,INFO)	
.SPID	(SP.MDA,.I?hPCPM,.SPMDA,MDA)	@
TOPS10<
.SPID	@((SP.IPC,.IPCPS,,I@HPCC)		
.SPID	(SP@h.ACT,.IPCPA,,ACTDAAE)		
.SPID	(SP.A(TLP,.IPCPT,,TAPLAAHB)		
.SPID	(SP.TAhOL,.IPCPC,,TAPAVRB)		
.SPID	(SP.DOB(L,.IPCPD,,DSKAVR)BH		
.SPID	(SP.FILBh,.IPCPF,,FILDAE)		
>
,FILDAE)	gR^h9 q
	..STKR= =10		
	RADIX 8
 0	..STKN==0
	IRP  PA,<
	  .STKV1 ( pA)>
	$CALL	.STK!ST
	 ..STKN,,..S!0TKN
	RADIX ..STK!PR
	PURGE ..STKN,!p..STKR,..STKQ
   TKR,..STKQ
  gR~)  F7
	IFNB <F1C>,<..STR0 (..DPBFP,A,C,B)>
	IFBFp.A<C>,<MOVEMSA,B>>,<MOVEM A,gV VQ

V y	
	IFNB <B>,<TOPS10<A==B8>>
	IFNB <C>,<TXOPS20<A==C>>
PS20<A==C>>
ght-3P ghuWP ghuxSP ghv5P ghv
2P hDP hHP hLP hPP iP i$tkQP'i$tlUQ xi?4( tQ/%IFN FTUUOS,B			;DEFINE UNi?4H u/)IFN FTJSYS,	INTERN AEDT	iD |Ip

  IFNB|i	<A>,<.TQCHA==^}D<B>B17+ZZ>
  I}(FNB 	<D>,<DEFINE}H ..TQMA<D>>
  }hIFNB	<C>,<.TQC=~=^D<B>B17+ZZ>
	 ZZ==ZZ+1ZZ>
	iG, rI`
	LSTOF.
	TQ(T,2,ASCIZ)		s	
	TQ(O,2,OCTAL)s(			
	TQ(D,2,DECIsHMAL)			
	TQ(F,2,shFILE)			
	TQ(7,2t,CSEVEN)			
	TQ(t(6,2,CSIXBIT)			
tH	TQ(W,2,SIXBIT)		th	
	TQ(5,2,SVNBITu)			
	TQ(P,2,USEu(R)			
	TQ(U,2,DIuHRECTORY)			
	TQ(uhH,2,DAYTIME)			
v	TQ(C,2,TIME)			
	TQ(E,2,ERROR)		vH	
	TQ(I,1,INDIREvhCT)		
	TQ(M,0,CRw,..TXC0(\".CHCRT)w()	
	TQ(J,0,LF,..wHTXC0(\".CHLFD))	
	TQ(L,0,FF,..TXCx0(\".CHFFD))	
	Tx(Q(K,0,VT,..TXC0(\xH".CHVTB))	
	TQ(Axh,0,NOCRLF,..TXA(.yTQCHA))	
	TQ(0,0y(,NULL,..TXA(.TQCHyH0))	
	TQ(3,0,STRyhING,..TXER(IQU))	z
	TQ(V,2,VERSIONz()			
	TQ(2,0,CARzHET,..TXER(IQU))	
	TQ(Q,2,POINTER){			
	TQ(B,2,ROB){(			
	TQ(1,2,OBJE{HCT)			
	TQ(N,2,N{hODE)			
	TQ(R,2,|JIB)			
	LSTON.
)			
	LSTON. y#
	LSTOF.
	X(33,TTY33,33,).9				
	X(35,TTY35.y,35,)				
TOPS20.Y<
	X(37,TTY37,37/!,)				
	X(EXECUP/@ORT,EXEC,EXE,)			/`
>
TOPS10<
	X(0LA120,LA120,L12,)0 			
>
	X(LA36,L0@A36,L36,)			
	X(0`VT05,VT05,V05,<371,177,177,177>)	
1 	X(VT100,VT100,101@0,<.CHESC,"[","K"1`>)	
	X(VT50,VT502,V50,<.CHESC,"J">2 )		
	X(VT52,VT522@,V52,<.CHESC,"J">2`)		
TOPS10<	X(VT361,VT61,V61,<.CHE3 SC,"J">)>		
	LSTON.
)>		
	LSTiK,PA iK4@ &1A
	..TRR==&Q10		
	RADIX 8
	&p..NV==1			
	IRP 'A,<
	  .TRV1 ('0A)>		
	$CALL	.TR'PSET		
	 ..NV-1,,'p..NV-1
	RADIX ..(TRR		
	PURGE ..TRR,..NVURGE ..Tib oQ}
		..TX(C,A,<B>)..TX(Cib q	
		..TX(CA,A,<B>).TX(CibP p
		..TX(CE,A,<B>).TX(Cib` pQ
		..TX(CN,A,<B>).TX(Cibp iQM
		..TX(N,A,<B>)..TX(Nibt kY
		..TX(NA,A,<B>).TX(NibtP jQ
		..TX(NE,A,<B>).TX(Nibu` jQU
		..TX(NN,A,<B>).TX(Nibx kQ]
		..TX(O,A,<B>)..TX(Oib| mi
		..TX(OA,A,<B>).TX(Oib|P la
		..TX(OE,A,<B>).TX(Oib}` lQe
		..TX(ON,A,<B>).TX(Oic KW P(;
	IFNB <.p2.1622>,<
	PRINTX .2.1622 (From G0LXVER)
	> ;END IFNB .2.1622
	ic Mt (1
	PRINTX 0GLXVER	GLXTXT EdiPt(70) by  on 3-Ocpt-85
	PRINTX	    	GLXTXT	Actual Edit(A)
	ic!h2Q ic!i0Q ic!iQP ic!iWQ `ic!j6Q ic!jZQ ic!k Q `ic!kPQ @ic!lQ  ic!lQ |ic!l`Q ic!lqQ ic!lvP ic!lvP ic!lxP'ic!lyP ic!lyQ ic!mrQ pic!nQ ic$YP icP mQm
		..TX(Z,A,<B>)..TX(ZicT oy
		..TX(ZA,A,<B>).TX(ZicTP nq
		..TX(ZE,A,<B>).TX(ZicU` nQu
		..TX(ZN,A,<B>).TX(ZmKc@ u1wBYTE (3)A~qWHO (9)AVER (6)AMIN (18)AEDTo&  9I<^L<-<<A>_<^L<A>>>-1>>>o<trP o<tuP o<tkP o<u(WP o<uX<P o<uYVP o<uZ7P o<u]P o<ukrP o<uxUP o<uxrP o<vNP o<vN8P p -Y"m
.TIC==..Z
..Z==..Z+1=q"eJ  P q*-` +

q+= +
q6~i4 C q? {Y
	TXC A,<B>
	TXC A,q@ w;IFB <C>,<w1A==:B> IFNB <C>,<A=:B>B <CqBp +qN5P +up O1
	IFNB <OQB>,<..STR1 (..TQZOp,,<B>,A,..STR4)P>
	IFB  <B>,<SETZM A><B>,<SEuhP 	;z i)^
	.$RESET	
	$TYPE (.CMACT)(
	$HELP (<>)
	$HNEXT (A)
IFIDN h<B> <>,< IRP C,<C>
			.$BUILD>(
IFDIF <B> <>,<H
	$HELP (B)
	IhRP C,<C>
	.$BUILD><C>
	.$BU	0 cy#
.WTOX.(.OMdACK,<A>,<B>,<Cd8>,<D>,<$WTFLG(WT.SJI),E>)LG(WT	J7 VA%6DEFINE .$RVaTN <A>
			.%RTN==1A>
			.%RTN	fI9 QA%DEFINE .$LQaST <A+1>
			.%LST==11>
			.%L	
=Z Sq'
	  IFG TA-INT.LV,<PRINTX T0?Level A interruTPpts not supportedTp>
	  .BGINT.(\A)   .BGINT.(\A	X5 Sa% DEFINE .$BTREA <A>
			.%BREA==1>
			.%BR	- VQE
	  IFDEFVq ..BSIZ,<PRINTX ?WMissing $EOB afteW0r a $BUILD>
	  .WP.BSIZ==0			
	  .Wp.BLOC==.			
	  RXEPEAT A,<			
		X0BLD0.(\..BSIZ,0)	XP
		..BSIZ==..BSIZ+1>	
	==..BSI		}[0 I(*
	.$RESETi
	$TYPE (.CMCMA)
	$NEXT (A)
	I(RP B,<B>
	.$BUILD,<B>
	.$BU	I@ 	(


	.$RESET)
	$TYPE (.CMCFM)H
	IRP A,<A>
	.$BUILD,<A>
		$^ 
i(f
	.$RESET	
	$TYPE (.CMTXT)(
	$HELP (<>)
	$HNEXT (A)
IFIDN h<B> <>,< IRP C,

<C>
			.$BUILD>

(
IFDIF <B> <>,<

H
	$HELP (B)
	I

hRP C,<C>
	.$BUILD><C>
	.$BU	I  
	.$RESET
	$TYPE (.CMTAD)
	$PDATA (CM%IDA)
	$NEXT (A)
	(IRP B,<B>
	.$BUILD,<B>
	.$B	,,U Uq1
	  $RET	V			;WILL INVOKE RIGHT ROUTINE
		,h: Oa%DEFINE .$DPEFM <POINT 7,[ASCP IZ\A\]>
			.%DEFM==1>
			.%DE	.` 	I(R
	.$RESET	i
	$TYPE (.CMDEV)

	$NEXT (A)
	I
(RP B,<B>
	.$BUILD,<B>
	.$BU	Lz: oI'
	.$RESEToi
	$TYPE (.CMNUX)p
	$PDATA (B)
	p($HELP (<>)
	$NEXpHT (A)
IFIDN <Cph> <>,< IRP D,<Dq>
			.$BUILD>
Iq(FDIF <C> <>,<
	qH$HELP (C)
	IRP qhD,<D>
	.$BUILD><D>
	.$BUILD	N  	(
	.$RESET)
	$TYPE (.CMDIR)H
	$NEXT (A)
	IhRP B,<B>
	.$BUILD,<B>
	.$BU	|  ]Q	
	  IFNDE]qF ..BSIZ,<PRINTX ^?$EOB without pre^0vious $BUILD>
	 ^P IFN <.-..BLOC>,<^pPRINTX ?Address c_hange between $BU_0ILD and $EOB>
	 _P LSTOF.			
	  .._pT==0
	  REPEAT .`.BSIZ,<
	    BLD`00.(\..T,1)		
	  `P  ..T==..T+1 >
	`p  PURGE ..BSIZ,..aT,..BLOC	
	  LSTON.
		
	  LST	+y S%DEFINE .$ES!RTN <A>
			.%ERTN==1>
			.%ER	, TA%&DEFINE .$ETaRTN <1B0+A+1>
			.%ERTN==1>
		- U!%0DEFINE .$EUARTN <[MOVEI S2,[AU`SCIZ\A\]
				  V    $RETF]>
			.%ERTN==1>
			.	H6 gID
	$CALL	.giSTOP
	LSTOF.
	JhUMP	[XWD 0,[ITEXTh( (<A>)]
		 EXP hH%%.MOD]
	LSTON. .MOD]
	LSTON. 	L[ ~I(
	.$RESET~i
	$TYPE (.CMFLD)
	$NEXT (A)
	$(HELP (<>)
IFIDN H<B> <>,< IRP C,h<C>
			.$BUILD>
IFDIF <B> <>,<(
	$HELP (B)
	IHRP C,<C>
	.$BUILD><C>
	.$BU	MI  |	'p
	.$RESET|)
	$TYPE (.CMFIL)|H
	$HELP (<>)
	$|hNEXT (A)
IFIDN }<B> <>,< IRP C,}(<C>
			.$BUILD>}H
IFDIF <B> <>,<}h
	$HELP (B)
	I~RP C,<C>
	.$BUILD><C>
	.$BU	dy M$jDEFINE .$FM!LGS <A>
			.%FLGS==1>
			.%FL	ex: 	(H
	.$RESET)
	$TYPE (.CMFLT)H
	$HELP (<>)
	$hNEXT (A)
IFIDN <B> <>,< IRP C,(<C>
			.$BUILD>H
IFDIF <B> <>,<h
	$HELP (B)
	I	RP C,<C>
	.$BUILD><C>
	.$BU	$ fY8`
	  INTERg	N A
	  $DATA(A,<B>)
	ATA(A/~11&W	"
	IFDIF <NaA> <>,<
DEFINE O.$HLPM <POINT 7,[O ASCIZ\A\]>
			.%HLPM==1>
			.	&5 w	'H
	.$RESETw)
	$TYPE (.CMIFI)wH
	$HELP (<>)
	$whNEXT (A)
IFIDN x<B> <>,< IRP C,x(<C>
			.$BUILD>xH
IFDIF <B> <>,<xh
	$HELP (B)
	IyRP C,<C>
	.$BUILD><C>
	.$BU	&u i(4
	.$RESET	
	$NEXT (A)
	$(TYPE (.CMINI)
	IHRP B,<B>
	.$BUILD,<B>
	.$BU	./ k)&b
	.$RESETkI
	$TYPE (.CMKEY)kh
	$PDATA (B)
	l$NEXT (A)
	IRP l(C,<C>
	.$BUILD,<C>
	.$BUILD	./ ii&V
	.$RESETj	
	$TYPE (.CMKEY)j(
	$PDATA (A)
	jH$NEXT (0)
	IRP jhB,<B>
	.$BUILD,<B>
	.$BUILD	/>KyDfY7.WTOX.(.OMfyWTR,,,,<A>,<$WTFLG(WT.KIL),B>)	2|p ey1.WTOX.(.OMfLOG,<A>,<B>,<C>,,<D>)B>,<C	:/
			.%NXT==1A>
			.%NXT	:|KV 	)J
	.$RESET)
	$TYPE (.CMNOD)H
	$HELP (<>)
	$hNEXT (A)
IFIDN <B> <>,< IRP C,(<C>
			.$BUILD>H
IFDIF <B> <>,<h
	$HELP (B)
;	$FLAGS (CM%PO)
	(IRP C,<C>
	.$BUILD><C>
	.$B	:}r r)'
	.$RESETrI
	$TYPE (.CMNOI)rh
	$PDATA (<POINTs 7,[ASCIZ\B\]>)
	$NEXT (A)
	IRsHP C,<C>
	.$BUILD,<C>
	.$BUI	;-XR li&x
	.$RESETm	
	$TYPE (.CMNUM)m(
	$PDATA (B)
	mH$HELP (<>)
	$NEXmhT (A)
IFIDN <Cn> <>,< IRP D,<Dn(>
			.$BUILD>
InHFDIF <C> <>,<
	nh$HELP (C)
	IRP oD,<D>
	.$BUILD><D>
	.$BUILD	>5 yI'\
	.$RESETyi
	$TYPE (.CMOFI)z
	$NEXT (A)
	$z(HELP (<>)
IFIDN zH<B> <>,< IRP C,zh<C>
			.$BUILD>{
IFDIF <B> <>,<{(
	$HELP (B)
	I{HRP C,<C>
	.$BUILD><C>
	.$BU	B$ Ma$pDEFINE .$DNATA <A>
			.%DATA==1>
			.%DA	B$YP Pa%DEFINE .$DQEFM <POINT 7,<A>>
			.%DEFM==1	CYT W!%<DEFINE .$DWAEFR <A>
			.%DEFR==1>
			.%DE	G-} i)
	.$RESET	
	$TYPE (.CMQST)(
	$HELP (<>)
	$HNEXT (A)
IFIDN h<B> <>,< IRP C,<C>
			.$BUILD>(
IFDIF <B> <>,<H
	$HELP (B)
	IhRP C,<C>
	.$BUILD><C>
	.$BU	J.I  e9/
	  $CALLeY	.RETE			
		LSTOexF.
	  JUMP	ERA$
		LSTON.ERA$	Ni  0Q
	.NVR==00q			
	.ACM==0			

	IRP A,<		
	10	..TSAC(.ACB,A)	1P	
		IFN .ACB,<.A1pCM==.ACM!1B<A>>	2
		IFE .ACB,<			20
		IFE .NVR,<			2P
		    CAIA			
2p		    LSTOF.
		 3   JRST b>
		  30..PUSH(A,\<.NVR+3P1>)>>	

	IFN .A3pCM,<	
	    IFE <4.ACM-17B<T4>>,<.A40CM==0
				$CALL 4P.SAVET>
	    IFE4p <.ACM-377B<.A16>5>,<.ACM==0
				$50CALL .SAVE8>
	  5P  IFE <.ACM-17B<P5p4>>,<.ACM==0
			6	$CALL .SAVE4>
	60    IFE <.ACM-7B<6PP3>>,<.ACM==0
		6p		$CALL .SAVE3>
7	    IFE .NVR,<	
	    IFE <.ACM-37PB<P2>>,<.ACM==0
7p				$CALL .SAVE2>8
	8P  IFE <.ACM-801B<P1>>,<.ACM==0
				$CALL .SAVE18p>
	    IFE <.ACM9-1B<.A13>>,<.ACM=90=0
				$CALL .SV9P13>
	    IFE <.A9pCM-1B<.A14>>,<.AC:M==0
				$CALL .:0SV14>
	    IFE <:P.ACM-1B<.A15>>,<.:pACM==0
				$CALL; .SV15>
	    IFE;0 <.ACM-1B<.A16>>,;P<.ACM==0
				$CA;pLL .SV16>
	    ><>

	IFN .ACM,<	<0
	    IFE .NVR,<<P			
		CAIA			
	<p	LSTOF.
		JRST =b>

	    .ACB===00			
	REPEAT ^D1=P6,<			
	    IFN =p<.ACM&1B<.ACB>>,<>	
		..PUSH(\.ACB>0,\<.NVR+1>)>
		.>PACB==.ACB+1>>		
>p
	IFN .NVR,<	
	?    PUSH P,[[CAIA?0		
		     AOS -.?PNVR(P)	
	    REP?pEAT .NVR,<..POP(\@.NVR)>	
		     P@0OPJ P,0]]>	
b:!	LSTON.>	
b:!	N.@ YY
	  IFNDEY1F ..BSIZ,<PRINTX YP?$SET without preYpvious $BUILD>
	 Z IFNB <B>,<..STRZ00 (..SET,<C>,B,ZPA)>
	IFB  <BZp>,<..STR0 (..SET,[<C>,FWMASK,A)>
	,FWMASK,A)>
	a==.
!I	XWD b-1,b-1
	!hDEFINE $ETAB <
		b==.-a> <
		O%| kif
S..A::!l		$CALL .STOP
		Ll(STOF.
		JUMP [XWlHD 'A',[ITEXT (<lhB>)]
			EXP %%.MOD]
		LSTON.	M	O= uI'4
	.$RESETui
	$TYPE (.CMSWI)v
	$PDATA (A)
	v($NEXT (0)
	IRP vHB,<B>
	.$BUILD,<B>
	.$BUILD	O= t	'(
	.$RESETt)
	$TYPE (.CMSWI)tH
	$PDATA (B)
	th$NEXT (A)
	IRP uC,<C>
	.$BUILD,<C>
	.$BUILD	R

@ ))

	.$RESETI
	$TYPE (.CMTAD)h
	$PDATA (<CM%IDA!CM%ITM>)
	$NEX(T (A)
	IRP B,<B>
	.$BUILD,<	R/
	$CALL	TmI%TEXT
	LSTOF.	XCmhREF
	JUMP	[XWD 2n,0
		 EVL (A)
n(		 ITEXT(<B>)]	
	LSTON.B>)]	
	.$RESET	
	$TYPE (.CMTAD)(
	$PDATA (CM%ITMH)
	$NEXT (A)
	hIRP B,<B>
	.$BUILD,<B>
	.$B	R}97 ))l
	.$RESETI
	$TYPE (.CMTOK)h
	$PDATA (<POINT 7,[ASCIZ\B\]>)
	$NEXT (A)
	IRHP C,<C>
	.$BUILD,<C>
	.$BUI	S )v


  ..TX9A(.TQA,C,D,E,~IB)	
      IFN .	.TXEF,<			
	..TE~iRR<$TQ(A,B,C,D,E)>>

C,	S@I9 a
	LSTOF.
	X(UQU,Unknown qXualifier)
	X(IQUx,Invalid qualifier)
	X(IJA,Invali8d justification aXrgument)
	X(IWA,xInvalid width argument)
	X(PEA,Pr8emature end of arXgument)
	X(JNA,Jxustification is not allowed)
	X(A8NA,Arguments are Xnot allowed)
	X(xADS,Address must be specified)
	LSTON.
ied)
	L	SN	  L!$dDEFINE .$TLAYP <A>
			.%TYPE==1>
			.%TYP	W= ))4
	.$RESETI
	$TYPE (.CMUQS)h
	$HELP (<>)
	$NEXT (A)
	$PDAT(A (B)
IFIDN <CH> <>,< IRP D,<Dh>
			.$BUILD>
IFDIF <C> <>,<
	($HELP (C)
	IRP HD,<D>
	.$BUILD><D>
	.$BUILD	W\@ )( 
	.$RESETI
	$TYPE (.CMUSR)h
	$NEXT (A)
	IRP B,<B>
	.$BUILD,<B>
	.$BU	^+@ i	Z
IFE %%.Oi)TS,<DEFINE $WARN iH(MSG) <
		$TEXT ih(T%TTY,<% ^W6/[%%j.MOD]/ MSG>)>>
Ij(FN %%.OTS,<DEFINEjH $WARN (MSG) <
	jh	$TEXT (T%TTY,<% k^W6/IIB+IB.PRG/ ^k(W/[%%.MOD]/ MSG>)>>
	$WARN <A>	_$r WyQ
		IFB	<XA>,<.WFACD==0
		X8	IFN <0-2>,<.$WACXXD==0>>
		IFNB	<XxA>,<.WFACD==-1
	Y		IFN <0-2>,<.$WAY8CD==.$WACD!<A>>
			IFE <0-2>,<DEYxFINE .$WACD,<<WO.ZACD>B8+[ITEXT (<A>)]>>
		>
<	_$u Lyy
		IFB	<MA>,<.WFACK==0
		M8	IFN <0-2>,<.$WACMXK==0>>
		IFNB	<MxA>,<.WFACK==-1
	N		IFN <0-2>,<.$WAN8CK==.$WACK!<A>>
			IFE <0-2>,<DENxFINE .$WACK,<<WO.OACK>B8+[ITEXT (<A>)]>>
		>
<	_$+ >Y
	IFE	<.W>yFMTY>,<PRINTX ?No? message type in ?8$WTBLD>
DEFINE .?XEAWTO(SUFFIX,ARGC?xOD),<
IFN .WF'SU@FFIX',<
	IFE	<AR@8GCOD-0>,<<WO.'SUF@XFIX'>B8+ .$W'SUFF@xIX'>
	IFE	<ARGCOAD-1>,<<WO.'SUFFIX`x'>B8+ [EXP .$W'SUaFFIX']>
	IFE	<ARa8GCOD-2>,<.$W'SUFFaXIX'>
>
>
	ALLWaxTO				
	EXP	0			
		
	EXP	0				_$k OY
		IFB	<OyA>,<.WFFLG==0
		P	IFN <1-2>,<.$WFLP8G==0>>
		IFNB	<PXA>,<.WFFLG==-1
	Px		IFN <1-2>,<.$WFQLG==.$WFLG!<A>>
			IFE <1-2>,<DEQXFINE .$WFLG,<<WO.QxFLG>B8+[ITEXT (<A>)]>>
		>
<	_%(W U;
		IFB	<U9A>,<.WFJBN==0
		UX	IFN <0-2>,<.$WJBUxN==0>>
		IFNB	<VA>,<.WFJBN==-1
	V8		IFN <0-2>,<.$WJVXBN==.$WJBN!<A>>
			IFE <0-2>,<DEWFINE .$WJBN,<<WO.W8JBN>B8+[ITEXT (<A>)]>>
		>
<	_%YV ]9}
		IFB	<]YA>,<.WFMFL==0
		]x	IFN <1-2>,<.$WMF^L==0>>
		IFNB	<^8A>,<.WFMFL==-1
	^X		IFN <1-2>,<.$WM^xFL==.$WMFL!<A>>
			IFE <1-2>,<DE_8FINE .$WMFL,<<WO._XMFL>B8+[ITEXT (<A>)]>>
		>
<	_%] Ay!
		IFB	<BA>,<.WFMTY==0
		B8	IFN <0-2>,<.$WMTBXY==0>>
		IFNB	<BxA>,<.WFMTY==-1
	C		IFN <0-2>,<.$WMC8TY==.$WMTY!<A>>
			IFE <0-2>,<DECxFINE .$WMTY,<<WO.DMTY>B8+[ITEXT (<A>)]>>
		>
<	_%kr R9%
		IFB	<RYA>,<.WFNOD==0
		Rx	IFN <0-2>,<.$WNOSD==0>>
		IFNB	<S8A>,<.WFNOD==-1
	SX		IFN <0-2>,<.$WNSxOD==.$WNOD!<A>>
			IFE <0-2>,<DET8FINE .$WNOD,<<WO.TXNOD>B8+[ITEXT (<A>)]>>
		>
<	_%p b9.WTOX.(.OMbYWTO,<A>,<B>,<C>,,<D>)B>,<C	_%xU Jc
		IFB	<J9A>,<.WFOBJ==0
		JX	IFN <0-2>,<.$WOBJxJ==0>>
		IFNB	<KA>,<.WFOBJ==-1
	K8		IFN <0-2>,<.$WOKXBJ==.$WOBJ!<A>>
			IFE <0-2>,<DELFINE .$WOBJ,<<WO.L8OBJ>B8+[ITEXT (<A>)]>>
		>
<	_%xr ZYg
		IFB	<ZyA>,<.WFOCD==0
		[	IFN <0-2>,<.$WOC[8D==0>>
		IFNB	<[XA>,<.WFOCD==-1
	[x		IFN <0-2>,<.$WO\CD==.$WOCD!<A>>
			IFE <0-2>,<DE\XFINE .$WOCD,<<WO.\xOCD>B8+[ITEXT (<A>)]>>
		>
<	_%z@ dy+.WTOX.(.OMeWTO,<A>,<B>,<Ce8>,,<$WTFLG(WT.JOB),D>)LG(WT.JOB	_%|@ c
.WTOX.(.OMc9WTR,<A>,<B>,<C>,<D>,<E>)<C	_&,z AY
	DEFINE	A9.EAWTO(SUFFIX),<$`WT'SUFFIX'	<>>
	ALLWTO				

		_&N G9M
		IFB	<GYA>,<.WFTXT==0
		Gx	IFN <2-2>,<.$WTXHT==0>>
		IFNB	<H8A>,<.WFTXT==-1
	HX		IFN <2-2>,<.$WTHxXT==.$WTXT!<A>>
			IFE <2-2>,<DEI8FINE .$WTXT,<<WO.IXTXT>B8+[ITEXT (<A>)]>>
		>
<	_&N8 DY7
		IFB	<DyA>,<.WFTYP==0
		E	IFN <2-2>,<.$WTYE8P==0>>
		IFNB	<EXA>,<.WFTYP==-1
	Ex		IFN <2-2>,<.$WTFYP==.$WTYP!<A>>
			IFE <2-2>,<DEFXFINE .$WTYP,<<WO.FxTYP>B8+[ITEXT (<A>)]>>
		>
<
t{P 
u[rQ ]>t2
u}P 
,MP [.
P .JP .bP /P B&@P cGP )0 %N0KJ%|BZ6 `i&J			

	da	==<FLD(.$TYP,CM%Fa(NC)>!.$FLGS!<.$LSaHT> 

	IFN <.%BRahEA>,<d==d!CM%BRbK> 

	IFN <.%HLb(PM>,<d==d!CM%HPbHP!CM%SDH> 
					bh	

	IFN <.%DEFMc>,<d==d!CM%DPP>c( 

c:!	XWD	b,cHa			

	EXP d	ch			

	EXP .$DATdA			

IFN <.%HLd(PM!.%DEFM!.%BREA>dH,<
		EXP	.$HLPM>dh		


IFN <.%DEeFM!.%BREA>,<
		Ee(XP	.$DEFM>		

eH
IFN <.%BREA>,<	EehXP	.$BREA>		

	fa==.-c			;LENGTf(H OF THE FDB

IfHFN <.%NXT!.%DEFR!fh.%RTN!.%ERTN>,< EgXP .$NXT >	

IFg(N <.%DEFR!.%RTN!.gH%ERTN>,<EXP .$RTNgh >	

IFN <.%DEFhR!.%ERTN>,<	EXP	.h($ERTN>	

IFN <.hH%DEFR>,<		EXP	.$DhhEFR>	


	b==.i-c			

	IF2<	Pi(URGE a,b,c,d>
	LISTb,c,d>$YVJXa%FPOINT7,[ASCIZ\0\]NT 7,[A$YY %R0#KJ-.- %L0KJ%h"5Iy %B0!KJ=bf= %H0+1KJ$kw
	SALL
	[IXLIST
	DEFINE .$[hTYP <0>
	.%TYPE=\=0
	DEFINE .$FLG\(S <0>
	.%FLGS==0\H
	DEFINE .$DATA \h<0>
	.%DATA==0
]	DEFINE .$HLPM <>](
	.%HLPM==0
	DE]HFINE .$DEFM <0>
]h	.%DEFM==0
	DEFI^NE .$LST <0>
	.%^(LST==0
	DEFINE .^H$BREA <0>
	.%BRE^hA==0
	DEFINE .$N_XT <0>
	.%NXT==0_(
	DEFINE .$ERTN _H<0>
	.%ERTN==0
_h	DEFINE .$RTN <0>`
	.%RTN==0
	DEF`(INE .$DEFR <0>
	.%DEFR==0<0>
	K@%P0+KJ&K"'"C0TP1,w
	   ..ASY11==-<B>	
	IFDEFYP .PSECT,<
	.IFN Yp..AS1,ABSOLUTE,<
	     C A,[-..Z0AS1]>	
	.IF ..ASZP1,ABSOLUTE,<
		.Zp.AS2==0	
	  IFE [<..AS1&^O777777B1[07>,<
		..AS2==1	[P
	    DI A,..A[pS1>
	  IFE ..AS2\,<
	    ..OP(A,\0B,C)>	
	PURGE \P..AS1,..AS2>>
	I\pFNDEF .PSECT,<
	]	..AS2==0	
	  IF]0E <..AS1&^O777777]PB17>,<
		..AS2==]p1	
	    DI A,.^.AS1>
	  IFE ..A^0S2,<		
	    ..OP^P(A,B,C)>
	PURGE ..AS1,..AS2>:h s
	AEm6: L
	  ..CX1L1==C
	IFDEF .PSELPCT,<
 	.IFN ..CXLp1,ABSOLUTE,<
	  M    CAMA B,[C]M0>
	.IF ..CX1,ABSMQOLUTE,<	
		..CX2Mp==0	
	  IFE <..CNX1&^O777777B17>,<N0
		..CX2==1	
	 NP   CAIA B,C>
Np	  IFE ..CX2,<		
	    CAMA B,[S0C]>
	PURGE ..CX1SP,..CX2>>
	IFNDEFSp .PSECT,<
		..CXT2==0	
	  IFE <..T0CX1&^O777777B17>,TP<
		..CX2==1	
	Tp    CAIA B,C>
	  IFE ..CX2,<		U0
	    CAMA B,[UPC]>
	PURGE ..CX1,..CX2>GE ..CX:&@ G1G
	..TSIZ GQ(..PST,C)
	.CASGpE ..PST,<<
		MOVHEM A,B>,<
		HRH0RM A,B>,<
		HRHPLM A,B>,<
		DPHpB A,[POINTR (B,C)]>>INTR (B,:<;Y q{
   DEFINE ..CNS2 (NEW,OLD0)<
	  OLD>			
	..CNS ()>			
	:L;Y Qs
   DEFINqE ..CNS (%%%)<
	..CNS2 <%%%>,>
0
   DEFINE ..CNS2P (NEW,OLD)<
	DEFpINE ..CNS (%%%)<
	  ..CNS2 <%%%>,0<OLD'NEW>>>
   OLD'NEW>>>
   :dH@ D-
	..TSIZ D1(..PST,C)
	.CASDPE ..PST,<<
		MOVDpE A,B>,<
		HRREZ A,B>,<
		HLRE0Z A,B>,<
		LDBEP A,[POINTR (B,C)]>>INTR (B,:}i1 q!
	A==<<<-<B>>&<B>>&<1B<^L<B>>>>>&<1B<:~ _%
	  ..OP1_1==B
	IFDEF .PSE_PCT,<
 	.IFN ..OP_p1,ABSOLUTE,<
	  `    C A,[..OP1]`0>
	.IF ..OP1,ABS`POLUTE,<	
		..OP2`p==0	
	  IFE <..OaP1&^O777777B17>,<a0
		..OP2==1	
	aaP   CI A,..OP1>
	  IFE ..OP2,<		b
	    C A,[..Ob0P1]>
	PURGE ..OPbP1,..OP2>>
	IFNDEbpF .PSECT,<
		..OcP2==0	
	  IFE <.c0.OP1&^O777777B17>cP,<
		..OP2==1	
cp	    CI A,..OP1d>
	  IFE ..OP2,<d0		
	    C A,[.dP.OP1]>
	PURGE ..OP1,..OP2>GE ..;m y=
	..PST==C-FWMASK
	.IF0 8..PST,<
		POINT X0,B,35>,<
		POINTR (B,C)>POI;| Aq
		POP P,B.NVA
		PURGE .NB0VA
		.NVR==.NVR-1
		.NVR==.NVR;\t @q
		PUSH PA,A
		DEFINE .NVA0B<A>
		.NVR==.NVR+1
		.NVR==.;] [Qi
	  IFGE [q<<<B>&777777>-..\BSIZ>,<
		PRINTX\0 ?WORD offset gre\Pater than $BUILD \psize parameter>
]	  SET0. (\<B>,C,<A>)
	B>,;LH 
1c
	IFNDEF 
QC,<PRINTX C IS 
pNOT DEFINED
	  A (<B>,D,FWMASK0)>	
	IFDEF C,<
	IFNDEF %C,<
	p  A (<B>,D,C)

>	
	IFDEF %C,<

0
	  %C (A,<B>,D,C)>>A,<B>,;LH 

q!

	..NS==0
	IRP.C,<..N
	IFES<PRINTX ?EMP, A>
	IFE ..NS-01,<		
	  ..STR0 P(A,<B>,<C>,D)p>
	IFG ..NS-1,<		
	..ICNS			
	.0.CNS (<E (A,<BP>,,>) 
	IRP C,<p		
	  IFNDEF C,<PRINTX C NOT DE0FINED>
	  IFDEF PC,<
	  IFNDEF %pC,<
	  ..CNS (<,C,D>)>	
	  IF0DEF %C,<
	  %CP (..STR2,,D,C)>p 
	  ..CNS (<)>)		
	  ..GCNS		
0	  ..ICNS		
	  .P.CNS (<E (A,<Bp>>) 
	  IFNDEF %C,<
	  ..CNS (<0,C,D>)>	
	  IFPDEF %C,<
	  %Cp (..STR2,,D,C)>>> 
	..CNS (<,,)>)		
	..GCNS>);LI Q%
	..CNS (<,C,B>).CNS (;LI ;


	IFDIF <1D><F>,<
	  IFNPB <D>,<
	    Ap (<B>,D,..MSK)	
	    IFNB <F>,0<PRINTX C AND EP ARE IN DIFFERENTp WORDS>>
	  ..MSK==0>		
	IFNB <0F>,<
	  ..MSK=..MSK!<E>>MSK=..;LJ qK


	IFDIF <D><F>,<	
	  IF0NB <D>,<
	    PA (<B>,D,..MSK)p>	
	  ..MSK==0>		
	IFNB <F>,<
0	  ..MSK=..MSK!<E>>MSK=..MSK!<;LJ qa


	IFDIF <D><F>,<	
	  IF0NB <D>,<
	    IPFNB <F>,<		
		pA1 (B,D,..MSK)> 
	    IFB <F>,0<		
		A2 (B,DP,..MSK)>> 
	  ..pMSK==0>		
	IFNB <F>,<
	  ..MSK=..MSK!<E>>MSK=;$\Y y{
IF1,<
    PRINTX ? ErrYor in "A"
    D)EFINE X(NAM,ERR) y<IFN ..X'NAM&..TXEF,<PRINTX ? ERR>8>
    $TX$ERR>

    $TX$ERR>
;$^ !1

    ..!9TXF==0				
    .!X.TXB==0				
    !x..TXP==0				
   " ..TXEG==<..TXEF="8=0>			
    IRPC "XA,<				
	..TXC="x=ASCII\A\-35		
	IFN ..TXB,<IFN #8..TXB-..TXC,..CNS#X(<A>)
		   IFE #x..TXB-..TXC,..TXB$==0>
	IFE ..TXB,$8<..TXQ(<A>,\..TX$XF)>>	
    ..TXC1$x				
    IFN ..T%XB,<IFN <..TXB-"^%8">,<..TXER(PEA)>>%X
    ..TXEF==..T%xXEF!..TXEG		
   & IFN ..TXEF,<..TERR<A>>
,<..TE;&( 	 ..TXA(.TQCH0)..TXA(.TQC;&) )..TXER(IQU)..TXER(IQU;&) I$..TXER(IQU)..TXER(IQU;&0 I..TXA(.TQCHA)..TXA(.TQC;&5 	..TXC0(\".CHLFD).TXC0(\".;&5 	..TXC0(\".CHVTB).TXC0(\".;&6 I..TXC0(\".CHFFD).TXC0(\".;&6 I

..TXC0(\".CHCRT).TXC0(\".;&@ PQ
	..TSIZ Pq(..PST,C)	
	.CAQSE ..PST,<<
		SEQ0TZM B>,<	
		HLLQPZS B>,<	
		HRRZQpS B>,<	
	  ..TSRAC (..ACT,B)	
	R0  .IF0 ..ACT,<
	RP	$CALL .ZERO	
		RpLSTOF.
		JUMP [PSOINTR(B,C)]
		S0LSTON.>,<
		..TX (Z,B,C)>>>TX;&81 1
	IFNDEF Q.PSECT,<
	A==0	p		
	..TSA1==<Z B>		
	  IFE ..TS0A1&^O777777777760P,<A==1> 
	>
	IpFDEF .PSECT,<
	A==0			
	..TSA1=0=<Z B>		
	.IF .P.TSA1,ABSOLUTE,<	p
	  IFE ..TSA1&^O777777777760,<A0==1>> 
	PURGE ..TSA1>
	PURGE ..;&:= ~q
	A==3			
	IFE <B>+1,<0A=0>	
	IFE <B>-P^O777777,<A==1> p
	IFE <B>-^O777777B17,<A==2>7;' e7
   ..TX1e1==C			
IFDEF .PePSECT,<
   .IFN .ep.TX1,ABSOLUTE,<
f	TDA B,[C]>
 fP  .IF ..TX1,ABSOLf1UTE,<		
	..TX2==fq0		
	IFE <..TX1&g^O777777B17>,<
	g0  ..TX2==1		
	  gPTRA B,..TX1>
	gpIFE ..TX2,<		
	IhFE <..TX1&^O77777h17>,<
	  ..TX2==1hQ		
	  TLA B,(.hp.TX1)>>
	IFE ..TiX2,<		
	  IFE <<i0..TX1>B53-^O77777qQ7>,< 
	    ..TX3qp (A,B)>>	
	IFEr ..TX2,<		
	  TDr0A B,[..TX1]>	
rP	PURGE ..TX1,..TXrp2>>
IFNDEF .PSECsT,<
	..TX2==0		
	IFE <..TX1&^O77sP7777B17>,<
	  ..spTX2==1		
	  TRAt B,..TX1>
	IFE t0..TX2,<		
	IFE <tP..TX1&^O777777>,<tp
	  ..TX2==1		
u	  TLA B,(..TX1u0)>>
	IFE ..TX2,<uP		
	  IFE <<..TXup1>B53-^O777777>,<v 
	    ..TX3 (Av0,B)>>	
	IFE ..TvPX2,<		
	  TDA vpB,[..TX1]>	
	PURGE ..TX1,..TX2>;'` w1M
	IFIDN <wQA><Z>,<		
	  ..wpTX2==1
	  ANDI xB,^-..TX1>	
	IFIx0DN <A><O>,<		
	xP  ..TX2==1
	yORxpCMI B,^-..TX1>	
	IFIDN <A><C>,<y0		
	  ..TX2==1
yP	  EQVI B,^-..TX1>QVI B,^-..TX;'  9'



	..TXEYF==0			

IFNDEFx A,<..TXER(UQU)>		
IFDIF <B><>,8<IRPC B,<.IFN <XB>,NUMERIC,..TXERx(IWA)>>
IFNB <C	>,<IFNDEF .TXTJC	8,<..TXER(IJA)>>
	XIFDEF  A,<
  IF	xE <A_-^D18>,<IFD
IF <EFBCD><>
8,<..TXER(ANA)>>

X  IFE <1-<A_-^D1
x8>>,<IFDIF <BCD><>,<..TXER(JNA)8>>
  IFE <2-<A_X-^D18>>,<IFIDN <xEF><>,<..TXER(AD

S)>>>

      IF

8E ..TXEF,<
	IFID

XN <B><>,<..TXWD=

x=<..TXJU==<..TXFC
	IFDIF<<
	D<IFE><^.TXWD==<0>>>
	  IFN <^D<8B>>,<..TXWD==^D<XB>
	    IFNB <xC>,<..TXJU==.TXTJC>
	    IFB  <8C>,<..TXJU==.TXTJXL
	      IFE <Ax-.TQOCT>,<..TXJU==.TXTJR>
	x    8IFE <A-.TQDEC>,<X..TXJU==.TXTJR>>
	    IFB  <D>,<..TXFC==" ">
	  8  IFNB <D>,<..TXXFC=="D">>>

	IxFB  <EF>,<..TXPT==0>
	IFNB <E8F>,<..TXPT==1>
	XIFE <..TXWD+..TXPxT>,<
	    EXP FLD(A,TXT.FN)>
	I8FN <..TXWD+..TXPTX>,<
	    EXP FLDx(A,TXT.FN)+FLD(..TXJU,TXT.JU)+FLD8(..TXWD,TXT.WD)+FXLD(..TXFC,TXT.FC)x+TXT.AD
	    PNTR(E,F)>>

T;'h 7yK
    IFE 8..TXP,<			
	..IC88NS			
	..CNS<ASC8XIZ\>		
	..TXP==18x>		
    ..CNS<A9>			
    ..TXF==980			
    ..TXB=="^"
    ..TXB==;'h 9yW

    IF:N ..TXP,<			
	..:8CNS<\>		
	EXP <F:XLD(.TQCHT,TXT.FN):x+[..GCNS]>>
    ..TXP==0>
    ;'	9 y
    ..TX EF==..TXEF!..XA	 8	
    ..TXF==0		 X		
    ..TXB=="^"
    ..TXB=="^;'

  &Y5..TXQB(<A>)..TXQB(<;'

( '?

    IF'9N ..TXC-"^",<..TX'XC0(<A>)>		
    'xIFE ..TXC-"^",<..TXF==1>-"^",<..;'

( (9_

    IF(YE ..TXC-"^",<..TX(xC0(<A>)>	
    I)FN ..TXF,<			
	.)8.TXF==0		
	IFDEF)X .TQCHA,<		
	  )x  IFDEF ..TQMA,.*.TQMA 
	    IFN*8 <.TQCHA_-^D18>,*X<..TXF==2>>>
   *x IFE ..TXF-2,<..T+XC1(<A>)	
	..IC+8NS			
	..CNS<..T+XXA(.TQCHA,>>	
 +x   ..TXEG==..TXEG!..TXEF==..TXEG;'

) ,9q
    ..TX,YF==3				
    IFG,xE ..TXC-"0",IFLE -..TXC-"9",<..TXF=-8=2>
    IFE ..TX-XF-2,<..CNS(A)>		-x
    IFE ..TXF-3.,<..CNS<,>		
		 ..TXQ3(A)>
		 ;'

) .Y
    ..TX.yF==4				
    IFE/ ..TXC-"/",<..TXF/8==5>		
    IFE ./X.TXC-"[",<..TXF==/x5>		
    IFE ..T0XF-4,<..CNS<A,>>08		
    IFE ..TXF0X-5,<..CNS<,,>		
		 ..TXQ5(A)>
;'

* 1
    ..TX19F==4				
    IFE1X ..TXC-"/",..TXF=1x=5		
    IFE ..T2XC-"[",..TXF==5		28
    IFE ..TXF-52X,<..CNS<,>		
		 2x..TXQ5<A>>		
  3  IFE ..TXF-4,<..38CNS<A,>		
		 ..TXF==5>	
		 ..;'

* 3y-
    ..TX4F==6				
    IFE48 ..TXC-"/",..TXB=4X="/"		
    IFE .4x.TXC-"[",..TXB=="5]"
    IFE ..TXB58-"]",..CNS<[>		
5X    IFE ..TXB,..TXF==5 ..TXB,..T;'

+ 6;
    ..TX69F==0			
    IFE 6X..TXC-"]",..CNS<]6x>	
    ..CNS<)>	7		
    ..GCNS			78
    ..TXEG==..TXEG!..TXEF==..T;DQ @;DPQ ;EPQ ;E:Q  ;EpQ ;E+PQ ;F	0Q ;F\:Q @
0P 
@P 
PP 
`P d  -i
	.ACV2 (A)
	.ACV2 (d@ -Qs
	A=.FPA-qC+..NAC		
	IFB <.B>,<..NAC=..NAC+.01>
	IFNB <B>,<..NAC=..NAC+B>.d` .q
	IFG A-/.NPAC,<PRINTX ?TO/0O MANY ACS USED>
	IFLE A-4,<
	0/p $CALL .SAVEA>	
	IFG A-4,<
	  $CALL .SAVE8>  
=Z U1+$CALL	I%INTA$CALL	I%IN9  |qq
	..CSN==}A
	..CSC==0
	I}0RP B,<
	IFE ..C}PSN-..CSC,<
	  ST}pOPI
	  ..CAS1 (~B)>
	..CSC==..CSC+1>..CSC==..CSD	P ?DP >D)6P D,xP D8YP D8sP D;PP D;QP D;QP D;RP D;RP D;SP D;WP D;WP D;XP D;XP D;YP 	D;YP 	D;ZP 
D;ZP 
D;[P D;[P D;\P 

D;\P 

D;]P D<ZP D=7P DI6P ?D\qP FH1P FmP l,UP S@P ,<H MQw
	..PST==MqC-FWMASK
	.IF0 N..PST,<
		SOS BN0>,<	
		$CALL .SONPS	
		LSTOF.
		JNpUMP [POINTR(B,C)]
		LSTON.>C} =y
	.OPCD==`Y.OPCD+1
	WO.A==.OPCD
G),<
		$j6p $lWP %I7p %KqP %h:P %i:P &=p LzP MX<P N

WP N<P P `P &2 {Qc
	..IFT=={qA		
	IFE ..IFT,|<
	B
	..IFT==0|0>		
	IFN ..IFT,<
	C>N ..IFT,<&t<H JQ_
	..PST==JqC-FWMASK
	.IF0 K..PST,<
		AOS BK0>,<	
		$CALL .AOKPS	
		LSTOF.
		JKpUMP [POINTR(B,C)]
		LSTON.>C&tj7Q:?6MiTQ	@7;rp77H:pz7kpv7N8p=;`Pz;-J7P#>)qpB>5H3pP>DLYpB?EHP $?LxP "?(WP !?+ZP %?krP #?xUP  ?)0P "?)8P #?98P !?J6P $?N8P  ?$(:P ?$*7P ?$9P ?$HVP ?$h6P 	?$mP ?%VP ?%+qP ?%LP ?%X<P 	?%[ZP ?%hzP ?%kzP ?%|P ?&P ?&

0P O C	$
	IFG	A-CiMX.PID,<MX.PID==A>
C
G	A-OSP OYP O|P OyP O%=H "1
	.STKV2 (A)
	.STKV2 O%=I "q!
	IFB <B#>,<..STKN==..STKN#0+1>
	IFNB <B>,<#P..STKN==..STKN+B#p>
	..STKQ==..STK$N+1
	.STKV3 (A,\..STKQ)V3 (A,O%=I $Q/
   IFDEF$q A,<.IF A,SYMBO%L,<PRINTX STKVAR %0A ALREADY DEFINE%PD>>
	DEFINE A<-%p^OB(P)>
	$A==<Z A>>
	$A==<RJP RJ4`P RJ5 P RJ5`P RLH:P RL^P RLkQP RMDkP RMX6P RMX<P RMXSP RMYP RMYP RMY6P RM\P RM\ZP RN

tP RNJ6P RNd
P RNe(P RNe)P S

qQ S

89P S

:P 
S

:Q 

:	P S

:	P 
S

:
Q S

:Q S

:Q S

:P 	S

:Q 

S

:Q S

:Q S

:Q S

:Q S

:Q S

:Q S

:P S

:P 	S

:P S

:P S

:Q 

:Q S

:Q S

:Q 

S

:Q S

:Q S

:Q S

:Q S

:Q S

<@P S

<rQ S

<tQ S

H<Q S

I1Q S

J9Q S

\YQ S

i@P S

j6Q S
SQ StQ 

S+qQ 

S:<Q S=P 
S=WQ SJ6Q S\rQ Si9Q SmP 	Sd  (QE
	.TRV2 (A)
	.TRV2 (Sd@ )O
	.TRV3 ()1A,\..NV)	
	IFB )P<B>,<..NV=..NV+1)p>
	IFNB <B>,<..NV=..NV+B>,<..Sd` *1]
   IFDEF*Q A,<.IF A,SYMBO*pL,<PRINTX TRVAR +A ALREADY DEFINED+0>>
	DEFINE A<^O+PB(.FP)>
	$A==<Z A>>
	$A==<SFH2P SFIVP SFJQP SFJVP SFJYP _%~ g9W
		$CALL	gYI%WTO		
		LSTOF.gx			
		JRST	g		
		$WTRST			
	IFh8NB <A>,<$WTMTY (hX<A>)>	
	IFNB <hxB>,<$WTTYP (<B>)i>	
	IFNB <C>,<$i8WTTXT (<C>)>	
	iXIFNB <D>,<$WTOBJix (<D>)>	
	IFNB j<E>,<$WTACK (<Ej8>)>	
		IRP F,<jXF>		
		$WTBLD			jx
	g:!
	LSTON.  g:!
	LSTON. kPP >}{woP