PDP-10 Archive: galsys/glxmac.unv from bb-kl11m-bm

Trailing-Edge - PDP-10 Archives - bb-kl11m-bm - galsys/glxmac.unv

There are 92 other files named glxmac.unv in the archive. Click here to see a list.

x
,U_@P C4@ 5!;.
	..NAC==5A0		
	IRP A,<
	5`  .ACV1 (A)>		
	.ACV3 (\..NAC)C' _!5z..AS(A,B,ADD,SUB)(A,BC, A4	LSH A,-^D9LSH A,-^DC.:=p C2f} DID<
	.EAWTO(DiMTY,0)
	.EAWTO(TEYP,2)
	.EAWTO(TXE(T,2)
	.EAWTO(OBJEH,0)
	.EAWTO(ACK,Eh0)
	.EAWTO(FLG,1F)
	.EAWTO(NOD,0)F(
	.EAWTO(JBN,0)
	.EAWTO(ACD,0)
Fh	.EAWTO(OCD,0)
	G.EAWTO(MFL,1)
	.G(EAWTO(NHD,0)		
GH
	.EAWTO(PID,0)		
AWTO(PID,0)		C:' a8
	TXZ A,<^-<B>>TXZ A,CHuI7Q xCHvN8P'CJ9ip CJ9jp CJ9l}p E2"@ ja>\
	  IFE kB,<..TA==0>
	  k IFN B,<EXP ..TAk@
		    PURGE ..TA>
	PURGE ..TE2&i1 x9/JDh
	IFIDN <xiE><C>,<EXTERNAL yBMAN,BDEV>
	SIy(XBIT	/A/
	XWD	BMAN,BDEV
D	T'T"ElpE@tP'E@vyQ ~E@v:=Q |F:<P F;z:Q @G@ X!5B
	    ..CX(,A,B)   ..CGD [a5^
	    ..CX(A,A,B)  ..CGDP Ya5N
	    ..CX(E,A,B)  ..CGDp Z!5R
	    ..CX(G,A,B)  ..CGDy  Za5V
	    ..CX(GE,A,B) ..CGE@ Xa5F
	    ..CX(L,A,B)  ..CGEI  Y!5J
	    ..CX(LE,A,B) ..CGE` [!5Z
	    ..CX(N,A,B)  ..CGH EIL0

	  LSTDiOF.

	X CRE	
	E)X GEN	
	X PRT	
DI	X CLS	
	X	AUT	
	X USW	
	X SPL	Ei
	X SIZ   
	X MFOD	
	X CHN	

	  LSTON.


	G3.= {i/^IFN C.GALA,IFN C.GALAG4,m:Q G4-ZQ G4.

zQ G:YlP

G>vC@ 0LALL
PAGE1; (A Continued oPn next page)
SALpL; (A Continued from previous page) previous pagGHt;rP GHtkP GHv	P GHv)9P GHv:=P IuQ @IukyP Iv>9Q  I!k7P I!k<P ImP I$P'pIY{P .I  UA=2
	IFNB <UaB>,<..STR0 (.DECRV0,,<B>,A)>
	IFVB <B>,<SOS A>  <B>,<SOS A>I6= 
	A==<-1B<C>+1B<C-D>>  
	IF1,<IFDEF %A@,<PRINTX ?A ALRE`ADY DEFINED>>
	DEFINE %A (OP,AC, Y,MSK)<	
	IFDIF @<Y><>,<
	OP (<AC`>,B+'Y,MSK)>
	IFIDN <Y><>,<
	OP  (<AC>,B'Y,MSK)>>AC>,B'Y,MSK)>I'7 aa6..OP(A,B,DIV)..OP(A,BIOH1 >AS~
	IFB <D>a>,<
	XWD	[ASCIZ\?C\],[XWD B,A]>? 
	IFNB <D>,<
	?@XWD	[EXP CM%FW!D?`
		ASCIZ\C\],[XWD B,A]>
,[XKH(Q P 3KJ

,bP KJ)bP KJIBP KJLbP !KJ=P ,KJ{P 	KJIBP !KJ=bP )KJIP 'KJZ"P 1KJX"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 KJ6;"P KJL;BP KJLMP KJLh"P 0KJLkBP KJLlP KJLlbP KJM+BP KJMHbP -KJMLBP KJMmP KJMmbP KJN

P ,KJN

bPIKJNI"P\P KJfkP (KJlIP KJlLbP KJt1P KJt9"P KJt:"P $KJtlP 2KJtmP .KJuX"P KJu]P KJuhbP KJuiP KJu{"P KJv	BP KJv
"P 3KJv

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

YBP C	L 
	IF1,<IFC)DEF ERA$,PRINTX CH?Duplicate error Chcode A>
	ERA$=D=ER%%%
	ER%%%==ER%%%+1
R%%%==EKKP KK,}P KKLP KK|Y iL
	ERR	EOF		,<End of file>
		(ERR	IFP,<Illegal 	Hfile position>
		hERR	FDE,<File dat
a error>
	ERR	FN
(D,<File is not on
H disk>
	ERR	FSM,
h<File still mapped>			;[301]
	ERR(	NSD,<No such devHice>
	ERR	FCF,<Fhile checkpoint fa

iled>
	ERR	SLE,<

(A system limit wa

Hs exceeded>
	ERR

h	IFS,<Illegalofil
	ERR	FNF,<File n
	ERR	Potection violation>
	ERR	DN(A,<Device not avaHilable>
	ERR	NCEh,<No "current" entry in list>
	ER(R	NMA,<No IPCF meHssage is availablhe>
	ERR	FDS,<Files are on differe(nt structures>
	HERR	FAE,<File alrheady exists>
	ERR	USE,<Unexpected( system error>
	HERR	NSP,<No such hpid>
	ERR	BOL,<Beginning of list (reached>
	ERR	EOHL,<End of list rehached>
	ERR	RQF,<Receivers quota (full>
	ERR	SQF,<HSenders quota fulhl>
	ERR	NRE,<No remembered entry>(
	ERR	TBF,<TableH is full>
	ERR	EhIT,<Table entry already exists>
	(ERR	ITE,<Invalid Htable entry>
	ERhR	QEF,<Quota exceeded or disk full(>
	ERR	ARG,<InvaHlid argument spechified>
	ERR	IFN,<Invalid function( specified>
	ERRH	IJN,<Invalid jobh number specified>
	ERR	RAD,<Inva(lid radix specifiHed>
	ERR	NUM,<Inhvalid numeric argument>
	ERR	IDT,(<Invalid date fieHld specified>
	EhRR	ITF,<Invalid time field specifi(ed>
	ERR	DOR,<DaHte/time out of rahnge>
	ERR	DTM,<Value missing in d(ate/time>
	ERR	MHDD,<Missing day ihn date/time>
	ERR	DFZ,<Field zero( in date/time>
	HERR	MDS,<Mnemonich date/time switch not implemented>(
	ERR	DFL,<FieldH too large in dathe/time>
	ERR	ILR,<Illegal year fo(rmat in date/timeH>
	ERR	NND,<Negahtive number in date/time>
	ERR	NP(F,<Not known whetHher past or futurhe in date/time>
 	ERR	RDP,<Relativ (e date parse requ Hired>
	ERR	NSW,< hSwitch does not b!egin with slash>
	ERR	NOM,<Unreco!Hgnized switch or !hkeyword>
	ERR	NU"L,<Null switch or"( keyword given>
"H	ERR	INW,<Invalid"h guide word>
	ER#R	NC,<Not confirm#(ed>
	ERR	ICN,<In#Hvalid character i#hn number>
	ERR	N$QS,<Invalid quote$(d string - does n$Hot begin with quo$hte>
	ERR	AMB,<Am%biguous switch or%( keyword>
	ERR	N%HMT,<Does not matc%hh token>
	ERR	CM&A,<Comma not give&(n>
	ERR	NNC,<Nod&He name may not ex&hceed 6 characters'>
	ERR	INT,<Node'( terminator "::" 'Hmust be specified'h>
	ERR	NSN,<Unkn(own node name>
	((ERR	IPS,<Invalid (Hpath specificatio(hn>
	ERR	IUS,<Inv)alid user specifi)(cation>
	ERR	DGS)H,<Device name may)h not exceed 6 cha*racters>
	ERR	DN*(E,<Unknown device*H>
	ERR	DIO,<Devi*hce can not do inp+ut or output>
	E+(RR	BDF,<Invalid d+Hate/time format>
	ERR	ABS,<Field ,too long for inte,(rnal buffer>
	ER,HR	TMT,<Command to,ho long for intern-al buffer>
	ERR	-(BDS,<Invalid defa-Hult string>
	ERR-h	BTF,<Invalid tab.le format>
	ERR	.(TME,<Date/time mu.Hst be in the futu.hre>
	ERR	TMN,<No/ timer entry has /(expired>
	ERR	TM/HA,<Timer entry al/hready exists>
	E0RR	DVT,<Device te0(rminator ":" must0H be specified>
	0hERR	NCI,<Argument1 block may not be1( in the ACs>
	ER1HR	TLU,<Terminal l1hocation is unknow2n>
	ERR	FIO,<Fil2(e is offline>
	E2HRR	FBM,<File bein2hg modified>
	ERR3	WLK,<Write-locke3(d device>
	ERR	C3HSD,<Cannot supers3hede a directory>
	ERR	CDD,<Cannot4( delete a non-emp4Hty directory>
	E4hRR	SNF,<Sub-file 5directory not fou5(nd>
	ERR	ESL,<Se5Harch list is empt5hy>
	ERR	LVL,<SFD6 level nested dee6(per than the maxi6Hmum allowed>
	ER6hR	CCW,<Cannot cre7ate/write on any 7(structure in sear7Hch list>
	ERR	FC7hU,<Cannot update 8file>
	ERR	ENQ,<8(File has outstand8Hing Enqueue locke8hs set>
	ERR	SWS,9<Software write-l9(ock on structure>9H
	ERR	DER,<Hardw9hare device error>:
	ERR	DTE,<Hard :(data error>
	ERR:H	BKT,<Block too l:harge>
	ERR	IPP,<;Non-existant UFD>;(
	ERR	TRN,<RIB o;Hr transmission er;hror>
	ERR	ILC,<I<llegal character <(in date/time>
	E<HRR	NFT,<Date/time<h must be in the f=uture>
	ERR	NPS,=(<Date/time must b=He in the past>
	=hERR	UDM,<Unrecogn>ized month in dat>(e/time>
	ERR	UDN>H,<Unrecognized na>hme in date/time>
	ERR	IFA,<Illega?(l file attribute>?H
	ERR	FAI,<File ?hattribute inconsi@stancy>
	ERR	CEI@(,<Can't enable/di@Hsable interrupt s@hystem>
	ERR	ENF,A<Linked list entrA(y not found>
	ERAHR	NSL,<No such liAhnked list>
	ERR	BNFP,<No free pageB(s>
	ERR	NPI,<No BHfree pages for IPCF reception>
KKBP 
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` wy?Q
	IFIDN <xBC><>,<EXP <A>x8>
	IFDIF <BC><xX>,<
	 IFE <A+1>xx,<<POINT 7,C>>
y	 IFN <A+1>,<
	y8   IFIDN <C><>,<yXEXP <A,B>>
	  yx IFDIF <C><>,<EXzP <A,B,C>>
	>>A,B,C>>
	>Kc  Q/IRP A,<
q	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 M2  EA4,<<<A>B<POS(<B>)>>&<B>>M>h1p M>hrp M>h{p M>iRp M>k=p M>l}p M>m9p MHuiWQ @MHv
QRMJh1p MJhrp MJip MJiVp MJk=p MJlsp MJl}p MJm9p MR4zP MR6L`P MRV>9Q MS.[yP M^luQ O2|  10
Q	IF2,<IFDEF A,<.pIFN A,EXTERN,<INTERN A>>
	     0IFNDEF A,<EXTERNP A>
	Q SUPPRESPA>>YSUPPRO3FX7P mQf@ +QfI@ <StLQ St\Yp Stkp SuZp Suh1Q SulQ Su}:p Sv
1p Sv

Sp Sv>9Q Sv>@p SNn a!6
..OP(A,B,IDIV).OP(A,BS7-N `!6..OP(A,B,IMUL).OP(A,BS:  RA=
	IFNB <RaB>,<..STR0 (.INCRS0,,<B>,A)>
	IFS B  <B>,<AOS A>  <B>,<AOS A>S;k H4@<<<A>B<POS(<B>)>>&<B>>S;!kP S;!k<P S? !8
	TXO A,<B>
	TXO A,S@,9QQ @S@,9QP S@,9RP `S@,9VP S@,9XP$S@,9YQ S@,9YQ  S@,9[P"S@.MQ 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 SBd+@&SBn	@&SBn
@&SBn
@&	SBn@&	SBn@&
SBn

@&
SB2P SB)iP&	SB)iP&SB)kVP&SB)kYP'SB)lXP&
SB)lsP&
SB)lxP&	SB)lyP&SPuxzQ @SR/
	LSTOF.	zyXCREF
	..TEXT<A{>		
	  EXP	0		
	LSTON.
	0		
Uv98Q |U$@ &)LZ

	  LSTFiOF.

	X JNO,.JIGJNO,<-1,,GJBJNO>	G(
	X TNO,.JITNO,<GH-1,,GJBTTY>	
	X GhUSR,.JIUNO,.GTPPNH		
	X CDN,.JIDNOH(,<-1,,GJBPTH>	
	HHX PRG,.JIPNM,.GTPHhRG		
	X(CJN,.JICIPJ,<-1,,GJBCJB>	
	X BAT,.JIBCH,.GIHTOBI		
	X JLT,.JIhISTM,.GTJLT		
	XJ LOC,<-1,,GJBLOC>J(,<-1,,GJBLOC> 
	JHX RTM,.JIRT,<-1,,JhGJBRTM>	
	X TLC,K<-1,,GJBTLC>,<-1,K(,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-PNU$vKP!U$vKWP U$v\yP U&j2p U&jWp U&lxp U&m9p U&:=p U?0 +0UKI@ +UVn	@ 4@UVn

	IFB <C@A>,<
	XWD	[ASCIZ\@`B\],A>
	IFNB <AC>,<
	XWD	[EXP A CM%FW!C
		ASCIZ\B\],A>
SCIZY"luQ xY&i1  Y4

	  LST yOF. XCREF

	CDO!	OTSINI			
	CDO	!8    			
	CDO	.ZP!XAGA
	CDO	.ZPAGN
	CDO	.ZCHNK
	CD"O	.SAVE1
	CDO	.S"8AVE2
	CDO	.SAVE3"X
	CDO	.SAVE4
	C"xDO	.SAVET
	CDO	.#SV13
	CDO	.SV14
	CDO	.SV15
	CDO#X	.SV16
	CDO	.RET#xT
	CDO	.RETF
	C$DO	.RETE
	CDO	.A$8OS		
	CDO	.SOS		$X
	CDO	.ZERO		
	$xCDO	.POPJ		
	CDO%	.STOP		
	CDO	.S%8AVE8		
	CDO	.STK%XST		
	CDO	.TRSET%x		
	CDO	.POPJ1		&
	CDO	.UD2SC		
&8	CDO	.SC2UD		
	C&XDO	.CPUTY		
	CDO&x
	CDO
	CDO

	'CDO			
	CDO	C%RP'8RM
	CDO	C%INTR
'X	CDO	C%SEND
	CDO'x	C%RECV
	CDO	C%B(RCV
	CDO	C%REL
(8	CDO	C%CPID
	CDO(X	C%KPID
	CDO	C%S(xPID
	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%CLNC0
	CDO	M%FPGS
	C08DO	M%GMEM
	CDO	M0X%RMEM
	CDO
	CDO0x
	CDO
	CDO
	CD1O
	CDO
	CDO	M%G18PAG
	CDO	M%RPAG
	CDO
	CDO
	CDO1x
	CDO
	CDO
	CD2O
	CDO
	CDO

28	CDO	      			
	2XCDO	T%TEXT
	CDO	2xT%TTY
	CDO
	CDO3
	CDO
	CDO
	CD38O
	CDO
	CDO
	C3XDO
	CDO
	CDO
3x
	CDO	      			
4	CDO	L%CLST
	CDO48	L%DLST
	CDO	L%C4XENT
	CDO	L%CBFR
	CDO	L%DENT
	CD5O	L%NEXT
	CDO	L%58FIRS
	CDO	L%LAST5X
	CDO	L%PREV
	C5xDO	L%PREM
	CDO	L6%CURR
	CDO	L%REN68T
	CDO	L%SIZE
	6XCDO	L%APOS
	CDO
	CDO
	CDO
	CDO7
	CDO
	CDO
	CD78O
	CDO

	CDO		7X	
	CDO	I%NOW
	C7xDO	I%EXIT
	CDO	I8%ION
	CDO	I%IOFF88
	CDO	I%SLP
	CD8XO	I%INT1
	CDO	I%8xINT2
	CDO	I%INT39
	CDO	I%TIMR
	C98DO
	CDO
	CDO	I%9XSOPR
	CDO	I%WTO
	CDO
	CDO	I%HOS:T
	CDO	I%JINF
	:8CDO
	CDO

	CDO:X			
	CDO
	CDO	S:x%DATI
	CDO	S%SIX;B
	CDO	S%CMND
	;8CDO	S%TBLK
	CDO	;XS%SCMP
	CDO	S%ER;xR
	CDO	S%INTR
	<CDO	S%EXIT
	CDO	<8S%TBAD
	CDO	S%TB<XDL
	CDO	S%NUMI
<x

	CDO	K%RCOC		=	
	CDO	K%WCOC
	=8CDO	K%SUET
	CDO	=XK%STYP
	CDO	K%TX=xTI
	CDO	K%SOUT
>	CDO	K%BOUT
	CDO>8	K%BIN
	CDO	K%BA>XCK
	CDO	K%TPOS
>x	CDO	K%BUFF
	CDO?	K%FLSH
	CDO	K%O?8PEN
	CDO
	CDO
?X	CDO
	CDO
	CDO
	CDO
	CDO
	CDO@
	CDO
	  LSTON.
  
	  LSTON.Y>

@ L<f
	IFNB <L!C>,<..STR0 (..LDBL@,A,C,B)>
	IFBL`  <C>,<MOVE A,B>C>,<MOVE A,Y>%I;P YO%GP YO%yG Q0'
	IFNDEF qLSTIN.,LSTIN.==0		
IFE LSTIN.,<
0	IFIDN <XCREF><AP>,<.XCREF>	
		  p XLIST>		
	LSTIN.==LSTIN.+1STINYO%{G 101
	IFG LSTQIN.,LSTIN.==LSTINp.-1	
	IFLE LSTIN.,<.CREF		
		      LIST>
		   [3@ GA4<<<<1_<A>>-1>B<B>>_<A>>[8@ FA441B<<A>-1>-1B<B><<A>-1>[@ 1m
	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:Qv[vxQp[viSp [k9p [lp [lp [lXp [lrp [ltp [lxp [l}p [n:=P [tuQ @[th:Q [u[yQ [ui1Q [ukvQ  [v)Q  [v=3P'[v|WQ [v}Q [v}Q @[&p 2
	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>>>
[>!`G48<A-<A/B>*B><A-<A/B[>w@&
   ..MX1Ha==B			
IFDEF .PISECT,<
   .IFN .I .MX1,ABSOLUTE,<
I@	MOVE A,[B]>
 I`  .IF ..MX1,ABSOLJUTE,<
	..MX2==0	J 	
	IFE <..MX1>B5J@3,<
	J`..MX2==1
	  MOVEI A,..MXK1>	
	IFE ..MX2,<K 		
	IFE <..MX1>BK@17,<
	  ..MX2==1K`
	  MOVSI A,(..LMX1)>>	
	IFE ..ML X2,<		
	IFE <<..L@MX1>B53-^O777777>L`,<
	  ..MX2==1
M	  HRROI A,<..MXM 1>>>	
	IFE ..MX2M@,<		
	IFE <<..MXM`1>B17-^O777777B17N>,<
	N ..MX2==1
	  HRLOI A,(..MN@X1-^O777777)>> 
N`	IFE ..MX2,<		
	O  MOVE A,[..MX1]O >	
	>>

IFNDEFO@ .PSECT,<
	..MX2O`==0		
	IFE <..MXP1>B53,<
	  ..MX2P ==1
	  MOVEI A,P@..MX1>	
	IFE ..MP`X2,<		
	IFE <..MQX1>B17,<
	  ..MXQ 2==1
	  MOVSI AQ@,(..MX1)>>	
	IFEQ` ..MX2,<		
	IFE R<<..MX1>B53-^O777R 777>,<
	  ..MX2=R@=1
	  HRROI A,<R`..MX1>>>	
	IFE .S.MX2,<		
	IFE <<S ..MX1>B17-^O77777S@7B17>,<
	  ..MX2S`==1
	  HRLOI A,T(..MX1-^O777777)>T > 
	IFE ..MX2,<	T@	
	  MOVE A,[..T`MX1]>	
>
	PURGE ..MX1,..MX2RGE[Lt;ZQ x[LvN8P'[NF:=p [N^= a9
	A==C		
	IF1,<IFDEF % A,<PRINTX ?A ALR@EADY DEFINED>>
	`DEFINE %A (OP,AC,Y,MSK)<	
	IFDIF  <Y><>,<
	OP (<A@C>,B+'Y,MSK)>
	`IFIDN <Y><>,<
	OP (<AC>,B'Y,MSK)>>AC>,B'Y,MSK)[PuySP'[PvNP'[Vg `a6..OP(A,B,MUL)..OP(A,B[`v
2P [b6<P F] ~/sIF2,<IFDEF~1 A,<A==A>> IFNDEF A,<A==B>]F@ O3TEMFDB##_
Qh5p _
QkRp _
Ql7p _
Qlxp _
Ql}p _
Qmp _
Qm7p _
Tpp _
T= RMN

	X	.OT%iRDR,Reader
	X	.OFITNCU,Network-ContR1roller
	X	.OTLPTQq,Printer
	X	.OTBT!AT,Batch-Stream
T@	X	.OTCDP,Card-PuT`nch
	X	.OTPTP,PaUpertape
	X	.OTPLU T,Plotter
	X	.OTU@JOB,Job
	X	.OTTRU`M,Terminal
	X	.OVTOPR,Operator
	XV 	.OTIBM,<IBM RemoV@te>
	X	.OTMNT,<DV`evice>
	X	.OTFTSW,<File Transfer>
	X	.OTBIN,<Card W@Reader InterpreteW`r>
	X	.OTRET,<FiXle Retrieval>
	XX 	.OTNOT,<RetrievaX@l Notification>
X`	X	.OTDBM,<DBMS SYystem>
	X	.OTFALY ,<File Access LisY@tener>
	X	.OTSNAY`,<SNA Workstation>
 Workstation_
Uh6p _
Ukrp _
VLp _
V[Tp _Sh6 b9N [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 cNS

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

  cy IFNB <D>,<..XX=dq..XX!CM%HPP> 
  e IFNB <E>,<..XX=e0..XX!CM%DPP> 

eP	EXP ..XX		

  ep IFNB <C>,<EXP fC>
   IFB <C>,<f0EXP 0>

   IFNBfP <D>,<POINT 7,[AfpSCIZ \D\]>
   IgFB <D>,<0>

gg0 IFNB <E>,<POINTgP 7,[ASCIZ \E\]>
hIFB <E>,<0>



   IFB <Ih0>,<0>
   IFNB <hPI>,<EXP I>

  hp IFB <J>,<0>
  i IFNB <J>,<EXP i0J>

   IFB <H>iP,<0>
   IFNB <Hip>,<EXP H>

   jIFB <G>,<0>
   j0IFNB <G>,<EXP G>

G>,<EXP Ga @Y4LSH A,^D9LSH A,^D9a+= 5a;&  IA|
	 IFB  <iB>,<..STR0(..PNT,,<FWMASK>,A)>
(	 IFNB <B>,<..STHR0(..PNT,,<B>,A)>.PNT,,<B>,Aa>Mm Da4(<POINT WIDE(B),A,POS(B)>B),A,POS(B)>a?H6 +a? BQ4<^L<<A>&<-<A>>>><<A>&<aJNh6P aJ}Ks Y1S

	SALL	y			
	LSTOF. XCREF			

	LOC 0			8
	ASCIZ \
COPYRXIGHT (c) DIGITAL xEQUIPMENT CORPORATION 1975,1988.
8ALL RIGHTS RESERVXED.
\				
	RELOxC			

	%%.GLX==	%%.GLX			


	I	8FNB <A>,<%%.MOD=	X=SIXBIT/A/> 
	I	xFNB <B>,<%%.OTS=
=SIXBIT/B/> 


8	GLOB	I%INIT			

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

	TOXPS20	<			
		SEARxCH	MONSYM		
;		%

%MONS==%%MONS

8	>				

	IFB <

XB>,<			
		.TEXT

x|,REL:GLXLIB/SEAR
		DEFINE	$DATA< 
			NAM:	BLOCK	SIZ
		>			
		DEFI8NE	CDO (X),<GLOB XX> 
		LIBVEC			
	>				

	IFNB <B>,<IFDIF <B><8INI>,< 
		IFN GLXXPURE,<.PSECT .HIxGH.> 
		IFE GLXPURE,<		
			TWOSE8G	400000	
			RELXOC	0	
			RELOC	4x00000	
		>			

		DEFINE $DATA(N8AM,SIZ<1>),< 
		X	IFN GLXPURE,<.PSxECT DATA> 
			IFE GLXPURE,<RELOC>8 
			IFNDEF B%DX,<B%D::! B%DL==x:0>
			NAM:	BLOCK	SIZ
			B%DL==8:B%DL+SIZ 
			IXFN GLXPURE,<.ENDPxS DATA> 
			IFE GLXPURE,<RELOC> 
		>			

		IFDIXF <B><OTS>,<	
	x		DEFINE	CDO (X),<GLOB X> 
			LIB8VEC		
		>			

X	>>				

	IFNB x<B>,<IFIDN <B><INI>,< 
		DEFINE8	$DATA (NAM,SIZ<1X>),< 
			NAM:	BLxOCK	SIZ
		>			
	>>				

	LSTON8.				

	GLOB	<.XPOPJ, .RETT, .RETxF>	
	OPDEF	$RET	[POPJ	P,]	
	OPDE8F	$RETT	[PJRST	.RXETT]	
	OPDEF	$RExTF	[PJRST	.RETF]	
	OPDEF	$RETIT	[8JUMPT	.POPJ]	
	OXPDEF	$RETIF	[JUMPxF	.POPJ]	
	.NODDT	$RET,$RETT,$RET8F,$RETIT,$RETIF
$RETIT,$RETIF
aPtPaPtkPaPuTPaPu92Q@aPv\rPDcv fHP gkp gk9p glp glp gltp gl}p g"@ l>p
	IFN <<.l!.TA>&B>,<PRINTXl@ ?Initial field nl`ot zero in $SET>
	m ..TVAL==<C>
	m@..TMSK==<B>
	  ..TA==..TA!m`<FLD(..TVAL,..TMSnK)>
	  PURGE ..TVAL,..TMSK
	.Tg#=z@yAOLC.SWIT+PDBCPY##C.SWIT+PDBg$tkQB@g$uP'g$uh6Q  g&t{ |1/cIFE C.GALA,IFE C.GALAg.N	@ 6@g.N
.SPID	(S\P.QSR,.IPCPQ,.SPQ\8SR,QUASAR)	
.SPI\XD	(SP.OPR,.IPCPO,\x.SPOPR,ORION)	
.]SPID	(SP.INF,.IPC]8PI,.SPINF,INFO)	
.SPID	(SP.MDA,.I]xPCPM,.SPMDA,MDA)	^
.SPID	(SP.NEB,,^8.SPNEB,NEBULA)		
TOPS10<
.SPID	(^xSP.IPC,.IPCPS,,IP_CC)		
.SPID	(SP._8ACT,.IPCPA,,ACTDA_XE)		
.SPID	(SP.T_xLP,.IPCPT,,TAPLAB`)		
.SPID	(SP.TO`8L,.IPCPC,,TAPAVR)`X		
.SPID	(SP.DOL`x,.IPCPD,,DSKAVR)	a	
.SPID	(SP.FIL,a8.IPCPF,,FILDAE)		
>
,FILDAE)		gR^h9 ):X
	..STKR=)!=10		
	RADIX 8
)@	..STKN==0
	IRP )`A,<
	  .STKV1 (*A)>
	$CALL	.STK* ST
	 ..STKN,,..S*@TKN
	RADIX ..STK*`R
	PURGE ..STKN,+..STKR,..STKQ
   TKR,..STKQ
  gR~)  O!=
	IFNB <OAC>,<..STR0 (..DPBO`,A,C,B)>
	IFBP  <C>,<MOVEM A,B>>,<MOVEM A,gV _a5~..AS(A,B,SUB,ADD)(A,Bgg

V y1]
	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( CITIFN FTUUOS,ePv9VPi?4H D	T IFN FTJSYS,gkpiD Y@9

  IFNBy	<A>,<.TQCHA==^D<B>B17+ZZ>
  I8FNB 	<D>,<DEFINEX ..TQMA<D>>
  xIFNB	<C>,<.TQC==^D<B>B17+ZZ>
	 ZZ==ZZ+1ZZ>
	iG, {Y@)
	LSTOF.
	TQ(T,2,ASCIZ)		|	
	TQ(O,2,OCTAL)|8			
	TQ(D,2,DECI|XMAL)			
	TQ(F,2,|xFILE)			
	TQ(7,2},CSEVEN)			
	TQ(}86,2,CSIXBIT)			
}X	TQ(W,2,SIXBIT)		}x	
	TQ(5,2,SVNBIT~)			
	TQ(P,2,USE~8R)			
	TQ(U,2,DI~XRECTORY)			
	TQ(~xH,2,DAYTIME)			
	TQ(C,2,TIME)			
	TQ(E,2,ERROR)		X	
	TQ(I,1,INDIRExCT)		
	TQ(M,0,CR,..TXC0(\".CHCRT)8)	
	TQ(J,0,LF,..XTXC0(\".CHLFD))	
	TQ(L,0,FF,..TXC0(\".CHFFD))	
	T8Q(K,0,VT,..TXC0(\X".CHVTB))	
	TQ(Ax,0,NOCRLF,..TXA(.TQCHA))	
	TQ(0,08,NULL,..TXA(.TQCHX0))	
	TQ(3,0,STRxING,..TXER(IQU))	
	TQ(V,2,VERSION8)			
	TQ(2,0,CARXET,..TXER(IQU))	
	TQ(Q,2,POINTER)			
	TQ(B,2,ROB)8			
	TQ(1,2,OBJEXCT)			
	TQ(N,2,NxODE)			
	TQ(R,2,JIB)			
	LSTON.
)			
	LSTON. &	M	
	LSTOF.
	X(33,TTY33,33,)L)				
	X(35,TTY35Li,35,)				
TOPS20LI<
	X(37,TTY37,37M,)				
	X(EXECUPM0ORT,EXEC,EXE,)			MP
>
TOPS10<
	X(MpLA120,LA120,L12,)N			
>
	X(LA36,LN0A36,L36,)			
	X(NPVT05,VT05,V05,<37Np,177,177,177>)	
O	X(VT100,VT100,10O00,<.CHESC,"[","K"OP>)	
	X(VT50,VT50Op,V50,<.CHESC,"J">P)		
	X(VT52,VT52P0,V52,<.CHESC,"J">PP)		
TOPS10<	X(VTPp61,VT61,V61,<.CHEQSC,"J">)>		
	LSTON.
)>		
	LSTiK,PA iK4@ /A;

	..TRR==/a10		
	RADIX 8
	0..NV==1			
	IRP 0 A,<
	  .TRV1 (0@A)>		
	$CALL	.TR0`SET		
	 ..NV-1,,1..NV-1
	RADIX ..1 TRR		
	PURGE ..TRR,..NVURGE ..Tib xa7F
		..TX(C,A,<B>)..TX(Cib z!7R
		..TX(CA,A,<B>).TX(CibP y!7J
		..TX(CE,A,<B>).TX(Cib` ya7N
		..TX(CN,A,<B>).TX(Cibp ra7
		..TX(N,A,<B>)..TX(Nibt t!7"
		..TX(NA,A,<B>).TX(NibtP s!7
		..TX(NE,A,<B>).TX(Nibu` sa7
		..TX(NN,A,<B>).TX(Nibx ta7&
		..TX(O,A,<B>)..TX(Oib| v!72
		..TX(OA,A,<B>).TX(Oib|P u!7*
		..TX(OE,A,<B>).TX(Oib}` ua7.
		..TX(ON,A,<B>).TX(Oic!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 icP va76
		..TX(Z,A,<B>)..TX(ZicT x!7B
		..TX(ZA,A,<B>).TX(ZicTP w!7:
		..TX(ZE,A,<B>).TX(ZicU` wa7>
		..TX(ZN,A,<B>).TX(Zm:7 yi/T
	IFG  <z	AMAN-ADEV>,<AEDz(T==:AMAN>
	IFLEzH <AMAN-ADEV>,<AEDT==:ADEV>
mKc@ {	/ZBYTE (3)A{)WHO (9)AVER (6)AMIN (18)AEDTotMP otkP ouxZP o&  B4<^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<ujP o<ukrP o<uxUP o<uxrP o<v
2P o<vNP o<vN8P p KIL\
.TIC==..Z
..Z==..Z+1=q"eJ  P q*-` +

q+= +
q6~i4 C q? !8"
	TXC A,<B>
	TXC A,q@ ~q/yIFB <C>,<A==:B> IFNB <C>,<A=:B>B <CqBp +qN5P +up XA=J
	IFNB <XaB>,<..STR1 (..TQZY,,<B>,A,..STR4)Y >
	IFB  <B>,<SETZM A><B>,<SEuhP 	;z :!Sb
	.$RESET:A
	$TYPE (.CMACT):`
	$HELP (<>)
	$;NEXT (A)
IFIDN ; <B> <>,< IRP C,;@<C>
			.$BUILD>;`
IFDIF <B> <>,<<
	$HELP (B)
	I< RP C,<C>
	.$BUILD><C>
	.$BU	0 t)G&
.WTOX.(.OMtIACK,<A>,<B>,<Cth>,<D>,<$WTFLG(WT.SJI),E>)LG(WT	J7 uO+DEFINE .$Ru9TN <A>
			.%RTN==1A>
			.%RTN	fI9 pODEFINE .$Lp9ST <A+1>
			.%LST==11>
			.%L	
=Z ]=p
	  IFG ]!A-INT.LV,<PRINTX ]@?Level A interru]`pts not supported^>
	  .BGINT.(\A)   .BGINT.(\A	X5 r9ODEFINE .$BrYREA <A>
			.%BREA==1>
			.%BR	- _a>
	  IFDEF` ..BSIZ,<PRINTX ?` Missing $EOB afte`@r a $BUILD>
	  .``.BSIZ==0			
	  .a.BLOC==.			
	  Ra EPEAT A,<			
		a@BLD0.(\..BSIZ,0)	a`
		..BSIZ==..BSIZ+1>	
	==..BSI		}[0 #!R 
	.$RESET#A
	$TYPE (.CMCMA)#`
	$NEXT (A)
	I$RP B,<B>
	.$BUILD,<B>
	.$BU	I@ aR
	.$RESET 
	$TYPE (.CMCFM)  
	IRP A,<A>
	.$BUILD,<A>
		$^ +!Rj
	.$RESET+A
	$TYPE (.CMTXT)+`
	$HELP (<>)
	$,NEXT (A)
IFIDN , <B> <>,< IRP C,,@<C>
			.$BUILD>,`
IFDIF <B> <>,<-
	$HELP (B)
	I- RP C,<C>
	.$BUILD><C>
	.$BU	I  -aRv
	.$RESET.
	$TYPE (.CMTAD). 
	$PDATA (CM%IDA.@)
	$NEXT (A)
	.`IRP B,<B>
	.$BUILD,<B>
	.$B	,,U _=z
	  $RET	_!			;WILL INVOKE RIGHT ROUTINE
		,h: n9NwDEFINE .$DnYEFM <POINT 7,[ASCnxIZ\A\]>
			.%DEFM==1>
			.%DE	.` (!RV
	.$RESET(A
	$TYPE (.CMDEV)(`
;**;[323]At DEF)INE $DEV +3L chan) ge the $DEV macro)@ to by pass the :)` check
	$FLAGS (*CM%PO!CM%NSF)	;[3* 23]By pass : chec*@k
	$NEXT (A)
	*`IRP B,<B>
	.$BUILD,<B>
	.$B	Lz: !Q
	.$RESETA
	$TYPE (.CMNUX)`
	$PDATA (B)
	$HELP (<>)
	$NEX T (A)
IFIDN <C@> <>,< IRP D,<D`>
			.$BUILD>
IFDIF <C> <>,<
	 $HELP (C)
	IRP @D,<D>
	.$BUILD><D>
	.$BUILD	N   aR

	.$RESET!
	$TYPE (.CMDIR)! 
	$NEXT (A)
	I!@RP B,<B>
	.$BUILD,<B>
	.$BU	|  fa>R
	  IFNDEgF ..BSIZ,<PRINTX g ?$EOB without preg@vious $BUILD>
	 g` IFN <.-..BLOC>,<hPRINTX ?Address ch hange between $BUh@ILD and $EOB>
	 h` LSTOF.			
	  ..iT==0
	  REPEAT .i .BSIZ,<
	    BLDi@0.(\..T,1)		
	  i`  ..T==..T+1 >
	j  PURGE ..BSIZ,..j T,..BLOC	
	  LSTON.
		
	  LST	+y qYODEFINE .$EqyRTN <A>
			.%ERTN==1>
			.%ER	, sODEFINE .$Es9RTN <1B0+A+1>
			.%ERTN==1>
		- syO%DEFINE .$EtRTN <[MOVEI S2,[At8SCIZ\A\]
				  tX    $RETF]>
			.%ERTN==1>
			.	H6 pY?
	$CALL	.pySTOP
	LSTOF.
	JqUMP	[XWD 0,[ITEXTq8 (<A>)]
		 EXP qX%%.MOD]
	LSTON. .MOD]
	LSTON. 	L[ !Qz
	.$RESETA
	$TYPE (.CMFLD)`
	$NEXT (A)
	$HELP (<>)
IFIDN  <B> <>,< IRP C,@<C>
			.$BUILD>`
IFDIF <B> <>,<
	$HELP (B)
	I RP C,<C>
	.$BUILD><C>
	.$BU	MI  aQf
	.$RESET
	$TYPE (.CMFIL) 
	$HELP (<>)
	$@NEXT (A)
IFIDN `<B> <>,< IRP C,<C>
			.$BUILD> 
IFDIF <B> <>,<@
	$HELP (B)
	I`RP C,<C>
	.$BUILD><C>
	.$BU	dy kYN_DEFINE .$FkyLGS <A>
			.%FLGS==1>
			.%FL	ex: %aR>
	.$RESET&
	$TYPE (.CMFLT)& 
	$HELP (<>)
	$&@NEXT (A)
IFIDN &`<B> <>,< IRP C,'<C>
			.$BUILD>' 
IFDIF <B> <>,<'@
	$HELP (B)
	I'`RP C,<C>
	.$BUILD><C>
	.$BU	$ oi?KP
	  INTERpN A
	  $DATA(A,<B>)
	ATA(AT]>z1P	"
	IFDIF <m9A> <>,<
DEFINE mX.$HLPM <POINT 7,[mxASCIZ\A\]>
			.%HLPM==1>
			.	&5 aQ>
	.$RESET
	$TYPE (.CMIFI) 
	$HELP (<>)
	$@NEXT (A)
IFIDN `<B> <>,< IRP C,<C>
			.$BUILD> 
IFDIF <B> <>,<@
	$HELP (B)
	I`RP C,<C>
	.$BUILD><C>
	.$BU	&u $AR*
	.$RESET$a
	$NEXT (A)
	$%TYPE (.CMINI)
	I% RP B,<B>
	.$BUILD,<B>
	.$BU	./ 
PX
	.$RESET
!
	$TYPE (.CMKEY)
@
	$PDATA (B)
	
`$NEXT (A)
	IRP C,<C>
	.$BUILD,<C>
	.$BUILD	./ APL
	.$RESETa
	$TYPE (.CMKEY)	
	$PDATA (A)
		 $NEXT (0)
	IRP 	@B,<B>
	.$BUILD,<B>
	.$BUILD	/>KyDx	GB.WTOX.(.OMx)WTR,,,,<A>,<$WTFLG(WT.KIL),B>)	2|p w)G<.WTOX.(.OMwILOG,<A>,<B>,<C>,,<D>)B>,<C	:/
			.%NXT==1A>
			.%NXT	:|KV 7ASN
	.$RESET7a
	$TYPE (.CMNOD)8
	$HELP (<>)
	$8 NEXT (A)
IFIDN 8@<B> <>,< IRP C,8`<C>
			.$BUILD>9
IFDIF <B> <>,<9 
	$HELP (B)
;	9@$FLAGS (CM%PO)
	9`IRP C,<C>
	.$BUILD><C>
	.$B	:}r Q
	.$RESET!
	$TYPE (.CMNOI)@
	$PDATA (<POINT` 7,[ASCIZ\B\]>)
	$NEXT (A)
	IR P C,<C>
	.$BUILD,<C>
	.$BUI	;-@ zIGT.QWTO.(.OMNAK,,,,<A>).OM	;-XR APn
	.$RESETa
	$TYPE (.CMNUM)

	$PDATA (B)

 $HELP (<>)
	$NEX

@T (A)
IFIDN <C

`> <>,< IRP D,<D
			.$BUILD>
IDIF <C> <>,<
	HELP (C)
	IRP<D>
	.$BUILD><D>
	.$BUILD	>5 !QR
	.$RESETA
	$TYPE (.CMOFI)`
	$NEXT (A)
	$HELP (<>)
IFIDN  <B> <>,< IRP C,@<C>
			.$BUILD>`
IFDIF <B> <>,<
	$HELP (B)
	I RP C,<C>
	.$BUILD><C>
	.$BU	B$ l9NeDEFINE .$DlYATA <A>
			.%DATA==1>
			.%DA	B$YP o9N}DEFINE .$DoYEFM <POINT 7,<A>>
			.%DEFM==1	CYT uyO1DEFINE .$DvEFR <A>
			.%DEFR==1>
			.%DE	F

:` u)G.
.QWTO.(.OMuIACK,<A>,<B>,<Cuh>,<D>,<$WTFLG(WT.SJI),E>)LG(WT	F^} {	GZ.QWTO.(.OM{)WTR,,,,<A>,<$WTFLG(WT.KIL),B>)	G-} 2!S"
	.$RESET2A
	$TYPE (.CMQST)2`
	$HELP (<>)
	$3NEXT (A)
IFIDN 3 <B> <>,< IRP C,3@<C>
			.$BUILD>3`
IFDIF <B> <>,<4
	$HELP (B)
	I4 RP C,<C>
	.$BUILD><C>
	.$BU	G>K` rIG.QWTO.(.OMriWTO,<A>,<B>,<Cs>,,<$WTMFL(MF.WTO),D>)FL(MF.WTO	G>Ku yIGP.QWTO.(.OMyiWTO,<A>,<B>,<Cz>,,<$WTFLG(WT.JOB),D>)LG(WT.JOB	G>Ky xiGH
.QWTO.(.OMy	WTR,<A>,<B>,<C>,<D>,<E>)<C	J.I  nI>x
	  $CALLni	.RETE			
		LSTOoF.
	  JUMP	ERA$
		LSTON.ERA$	Ni  9a<L
	.NVR==0:			
	.ACM==0			

	IRP A,<		
	:@	..TSAC(.ACB,A)	:`	
		IFN .ACB,<.A;CM==.ACM!1B<A>>	; 
		IFE .ACB,<			;@
		IFE .NVR,<			;`
		    CAIA			
<		    LSTOF.
		 <    JRST b>
		  <@..PUSH(A,\<.NVR+<`1>)>>	

	IFN .A=CM,<	
	    IFE <= .ACM-17B<T4>>,<.A=@CM==0
				$CALL =`.SAVET>
	    IFE> <.ACM-377B<.A16>> >,<.ACM==0
				$>@CALL .SAVE8>
	  >`  IFE <.ACM-17B<P?4>>,<.ACM==0
			? 	$CALL .SAVE4>
	?@    IFE <.ACM-7B<?`P3>>,<.ACM==0
		@		$CALL .SAVE3>
@@	    IFE .NVR,<	
	    IFE <.ACM-3@`B<P2>>,<.ACM==0
A				$CALL .SAVE2>A 
	A`  IFE <.ACM-A@1B<P1>>,<.ACM==0
				$CALL .SAVE1B>
	    IFE <.ACMB -1B<.A13>>,<.ACM=B@=0
				$CALL .SVB`13>
	    IFE <.ACCM-1B<.A14>>,<.ACC M==0
				$CALL .C@SV14>
	    IFE <C`.ACM-1B<.A15>>,<.DACM==0
				$CALLD  .SV15>
	    IFED@ <.ACM-1B<.A16>>,D`<.ACM==0
				$CAELL .SV16>
	    >E >

	IFN .ACM,<	E@
	    IFE .NVR,<E`			
		CAIA			
	F	LSTOF.
		JRST F b>

	    .ACB==F@0			
	REPEAT ^D1F`6,<			
	    IFN G<.ACM&1B<.ACB>>,<G 	
		..PUSH(\.ACBG@,\<.NVR+1>)>
		.G`ACB==.ACB+1>>		
H
	IFN .NVR,<	
	H     PUSH P,[[CAIAH@		
		     AOS -.H`NVR(P)	
	    REPIEAT .NVR,<..POP(\I .NVR)>	
		     PI@OPJ P,0]]>	
b:!	LSTON.>	
b:!	N.@ b!>"
	  IFNDEbAF ..BSIZ,<PRINTX b`?$SET without precvious $BUILD>
	 c  IFNB <B>,<..STRc@0 (..SET,<C>,B,c`A)>
	IFB  <Bd>,<..STR0 (..SET,d <C>,FWMASK,A)>
	,FWMASK,A)>
	a==.
B	XWD b-1,b-1
	B DEFINE $ETAB <
		b==.-a> <
		O%| ty?/
S..A::!u	$CALL .STOP
		Lu8STOF.
		JUMP [XWuXD 'A',[ITEXT (<uxB>)]
			EXP %%.MOD]
		LSTON.	M	O= !Q*
	.$RESETA
	$TYPE (.CMSWI)`
	$PDATA (A)
	$NEXT (0)
	IRP  B,<B>
	.$BUILD,<B>
	.$BUILD	O= aQ
	.$RESET
	$TYPE (.CMSWI) 
	$PDATA (B)
	@$NEXT (A)
	IRP `C,<C>
	.$BUILD,<C>
	.$BUILD	R

@ 0aS
	.$RESET1
	$TYPE (.CMTAD)1 
	$PDATA (<CM%ID1@A!CM%ITM>)
	$NEX1`T (A)
	IRP B,<B>
	.$BUILD,<	R/
	$CALL	TvY%TEXT
	LSTOF.	XCvxREF
	JUMP	[XWD 2w,0
		 EVL (A)
w8		 ITEXT(<B>)]	
	LSTON.B>)]	
	.$RESET/A
	$TYPE (.CMTAD)/`
	$PDATA (CM%ITM0)
	$NEXT (A)
	0 IRP B,<B>
	.$BUILD,<B>
	.$B	R}97 <aSp
	.$RESET=
	$TYPE (.CMTOK)= 
	$PDATA (<POINT=@ 7,[ASCIZ\B\]>)
	$NEXT (A)
	IR>P C,<C>
	.$BUILD,<C>
	.$BUI	S 
9@?


  ..TX	IA(.TQA,C,D,E,YB)	
      IFN ..TXEF,<			
	..TEyRR<$TQ(A,B,C,D,E)>>

C,	S@I9 !)B*
	LSTOF.
	X(UQU,Unknown q!hualifier)
	X(IQU",Invalid qualifie"(r)
	X(IJA,Invali"Hd justification a"hrgument)
	X(IWA,#Invalid width arg#(ument)
	X(PEA,Pr#Hemature end of ar#hgument)
	X(JNA,J$ustification is n$(ot allowed)
	X(A$HNA,Arguments are $hnot allowed)
	X(%ADS,Address must %(be specified)
	LSTON.
ied)
	L	SN	  jyNYDEFINE .$TkYP <A>
			.%TYPE==1>
			.%TYP	W= 4aS8
	.$RESET5
	$TYPE (.CMUQS)5 
	$HELP (<>)
	$5@NEXT (A)
	$PDAT5`A (B)
IFIDN <C6> <>,< IRP D,<D6 >
			.$BUILD>
I6@FDIF <C> <>,<
	6`$HELP (C)
	IRP 7D,<D>
	.$BUILD><D>
	.$BUILD	W\@ "R
	.$RESET"!
	$TYPE (.CMUSR)"@
	$NEXT (A)
	I"`RP B,<B>
	.$BUILD,<B>
	.$BU	^+@ r?#
IFE %%.Or9TS,<DEFINE $WARN rX(MSG) <
		$TEXT rx(T%TTY,<% ^W6/[%%s.MOD]/ MSG>)>>
Is8FN %%.OTS,<DEFINEsX $WARN (MSG) <
	sx	$TEXT (T%TTY,<% t^W6/IIB+IB.PRG/ ^t8W/[%%.MOD]/ MSG>)>>
	$WARN <A>	_$r aiF 
		IFB	<b	A>,<.WFACD==0
		b(	IFN <0-2>,<.$WACbHD==0>>
		IFNB	<bhA>,<.WFACD==-1
	c		IFN <0-2>,<.$WAc(CD==.$WACD!<A>>
			IFE <0-2>,<DEchFINE .$WACD,<<WO.dACD>B8+[ITEXT (<A>)]>>
		>
<	_$u ViEH
		IFB	<W	A>,<.WFACK==0
		W(	IFN <0-2>,<.$WACWHK==0>>
		IFNB	<WhA>,<.WFACK==-1
	X		IFN <0-2>,<.$WAX(CK==.$WACK!<A>>
			IFE <0-2>,<DEXhFINE .$WACK,<<WO.YACK>B8+[ITEXT (<A>)]>>
		>
<	_$+ HIG

	IFE	<.WHiFMTY>,<PRINTX ?NoI message type in I($WTBLD>
DEFINE .IHEAWTO(SUFFIX,ARGCIhOD),<
IFN .WF'SUJFFIX',<
	IFE	<ARJ(GCOD-0>,<<WO.'SUFJHFIX'>B8+ .$W'SUFFJhIX'>
	IFE	<ARGCOKD-1>,<<WO.'SUFFIXp('>B8+ [EXP .$W'SUpHFFIX']>
	IFE	<ARphGCOD-2>,<.$W'SUFFqIX'>
>
>
	ALLWq(TO				
	EXP	0			
		
	EXP	0				_$k YIE^
		IFB	<YiA>,<.WFFLG==0
		Z	IFN <1-2>,<.$WFLZ(G==0>>
		IFNB	<ZHA>,<.WFFLG==-1
	Zh		IFN <1-2>,<.$WF[LG==.$WFLG!<A>>
			IFE <1-2>,<DE[HFINE .$WFLG,<<WO.[hFLG>B8+[ITEXT (<A>)]>>
		>
<	_%(W _	F

		IFB	<_)A>,<.WFJBN==0
		_H	IFN <0-2>,<.$WJB_hN==0>>
		IFNB	<`A>,<.WFJBN==-1
	`(		IFN <0-2>,<.$WJ`HBN==.$WJBN!<A>>
			IFE <0-2>,<DEaFINE .$WJBN,<<WO.a(JBN>B8+[ITEXT (<A>)]>>
		>
<	_%YV g)FL
		IFB	<gIA>,<.WFMFL==0
		gh	IFN <1-2>,<.$WMFhL==0>>
		IFNB	<h(A>,<.WFMFL==-1
	hH		IFN <1-2>,<.$WMhhFL==.$WMFL!<A>>
			IFE <1-2>,<DEi(FINE .$WMFL,<<WO.iHMFL>B8+[ITEXT (<A>)]>>
		>
<	_%] KiDp
		IFB	<L	A>,<.WFMTY==0
		L(	IFN <0-2>,<.$WMTLHY==0>>
		IFNB	<LhA>,<.WFMTY==-1
	M		IFN <0-2>,<.$WMM(TY==.$WMTY!<A>>
			IFE <0-2>,<DEMhFINE .$WMTY,<<WO.NMTY>B8+[ITEXT (<A>)]>>
		>
<	_%j j	Fb
		IFB	<j)A>,<.WFNHD==0
		jH	IFN <0-2>,<.$WNHjhD==0>>
		IFNB	<kA>,<.WFNHD==-1
	k(		IFN <0-2>,<.$WNkHHD==.$WNHD!<A>>
			IFE <0-2>,<DElFINE .$WNHD,<<WO.l(NHD>B8+[ITEXT (<A>)]>>
		>
<	_%kr \)Et
		IFB	<\IA>,<.WFNOD==0
		\h	IFN <0-2>,<.$WNO]D==0>>
		IFNB	<](A>,<.WFNOD==-1
	]H		IFN <0-2>,<.$WN]hOD==.$WNOD!<A>>
			IFE <0-2>,<DE^(FINE .$WNOD,<<WO.^HNOD>B8+[ITEXT (<A>)]>>
		>
<	_%p qiG.WTOX.(.OMr	WTO,<A>,<B>,<C>,,<D>)B>,<C	_%xU T	E2
		IFB	<T)A>,<.WFOBJ==0
		TH	IFN <0-2>,<.$WOBThJ==0>>
		IFNB	<UA>,<.WFOBJ==-1
	U(		IFN <0-2>,<.$WOUHBJ==.$WOBJ!<A>>
			IFE <0-2>,<DEVFINE .$WOBJ,<<WO.V(OBJ>B8+[ITEXT (<A>)]>>
		>
<	_%xr dIF6
		IFB	<diA>,<.WFOCD==0
		e	IFN <0-2>,<.$WOCe(D==0>>
		IFNB	<eHA>,<.WFOCD==-1
	eh		IFN <0-2>,<.$WOfCD==.$WOCD!<A>>
			IFE <0-2>,<DEfHFINE .$WOCD,<<WO.fhOCD>B8+[ITEXT (<A>)]>>
		>
<	_%z@ v)G6.WTOX.(.OMvIWTO,<A>,<B>,<Cvh>,,<$WTFLG(WT.JOB),D>)LG(WT.JOB	_%|@ sIG
.WTOX.(.OMsiWTR,<A>,<B>,<C>,<D>,<E>)<C	_&
2 liFx
		IFB	<m	A>,<.WFPID==0
		m(	IFN <0-2>,<.$WPImHD==0>>
		IFNB	<mhA>,<.WFPID==-1
	n		IFN <0-2>,<.$WPn(ID==.$WPID!<A>>
			IFE <0-2>,<DEnhFINE .$WPID,<<WO.oPID>B8+[ITEXT (<A>)]>>
		>
<	_&,z KIF|
	DEFINE	K).EAWTO(SUFFIX),<$oIWT'SUFFIX'	<>>
	ALLWTO				

		_&N Q)E
		IFB	<QIA>,<.WFTXT==0
		Qh	IFN <2-2>,<.$WTXRT==0>>
		IFNB	<R(A>,<.WFTXT==-1
	RH		IFN <2-2>,<.$WTRhXT==.$WTXT!<A>>
			IFE <2-2>,<DES(FINE .$WTXT,<<WO.SHTXT>B8+[ITEXT (<A>)]>>
		>
<	_&N8 NIE
		IFB	<NiA>,<.WFTYP==0
		O	IFN <2-2>,<.$WTYO(P==0>>
		IFNB	<OHA>,<.WFTYP==-1
	Oh		IFN <2-2>,<.$WTPYP==.$WTYP!<A>>
			IFE <2-2>,<DEPHFINE .$WTYP,<<WO.PhTYP>B8+[ITEXT (<A>)]>>
		>
<
t{P 
u[rQ ]>t2
u}P .
P .JP .bP /P B&@P cGP )0 OC0,:PZ6 AP@			

	da==<FLD(.$TYP,CM%FNC)>!.$FLGS!<.$LS T> 

	IFN <.%BR@EA>,<d==d!CM%BR`K> 

	IFN <.%HLPM>,<d==d!CM%HP P!CM%SDH> 
					@	

	IFN <.%DEFM`>,<d==d!CM%DPP> 

c:!	XWD	b, a			

	EXP d	@			

	EXP .$DAT`A			

IFN <.%HLPM!.%DEFM!.%BREA> ,<
		EXP	.$HLPM>@		


IFN <.%DE`FM!.%BREA>,<
		EXP	.$DEFM>		

 
IFN <.%BREA>,<	E@XP	.$BREA>		

	`a==.-c			;LENGTH OF THE FDB

I FN <.%NXT!.%DEFR!@.%RTN!.%ERTN>,< E`XP .$NXT >	

IFN <.%DEFR!.%RTN!. %ERTN>,<EXP .$RTN@ >	

IFN <.%DEF`R!.%ERTN>,<	EXP	.$ERTN>	

IFN <. %DEFR>,<		EXP	.$D@EFR>	


	b==.`-c			

	IF2<	PURGE a,b,c,d>
	LISTb,c,d>$YVw9O;POINTx7,[ASCIZ\0\]NT 7,[A$YY OG0<QMZ.- OA0[XQM[5Iy O70>9QMVf= O=0+18w
	SALL
	z!XLIST
	DEFINE .$z@TYP <0>
	.%TYPE=z`=0
	DEFINE .$FLG{S <0>
	.%FLGS==0{ 
	DEFINE .$DATA {@<0>
	.%DATA==0
{`	DEFINE .$HLPM <>|
	.%HLPM==0
	DE| FINE .$DEFM <0>
|@	.%DEFM==0
	DEFI|`NE .$LST <0>
	.%}LST==0
	DEFINE .} $BREA <0>
	.%BRE}@A==0
	DEFINE .$N}`XT <0>
	.%NXT==0~
	DEFINE .$ERTN ~ <0>
	.%ERTN==0
~@	DEFINE .$RTN <0>~`
	.%RTN==0
	DEFINE .$DEFR <0>
	.%DEFR==0<0>
	K@OE0<QMZ'!N0T 1,!)0P $YVP $YYP .-P 5IyP f=P w
	   ..ASbA1==-<B>	
	IFDEFb` .PSECT,<
	.IFN c..AS1,ABSOLUTE,<
	     C A,[-..c@AS1]>	
	.IF ..ASc`1,ABSOLUTE,<
		.d.AS2==0	
	  IFE d <..AS1&^O777777B1d@7>,<
		..AS2==1	d`
	    DI A,..AeS1>
	  IFE ..AS2e ,<
	    ..OP(A,e@B,C)>	
	PURGE e`..AS1,..AS2>>
	IfFNDEF .PSECT,<
	f 	..AS2==0	
	  IFf@E <..AS1&^O777777f`B17>,<
		..AS2==g1	
	    DI A,.g .AS1>
	  IFE ..Ag@S2,<		
	    ..OPg`(A,B,C)>
	PURGE ..AS1,..AS2>:h 8<
	A: U!5v
	  ..CX1UA==C
	IFDEF .PSEU`CT,<
 	.IFN ..CXV1,ABSOLUTE,<
	  V     CAMA B,[C]V@>
	.IF ..CX1,ABSVaOLUTE,<	
		..CX2W==0	
	  IFE <..CW!X1&^O777777B17>,<W@
		..CX2==1	
	 W`   CAIA B,C>
X	  IFE ..CX2,<		
	    CAMA B,[\@C]>
	PURGE ..CX1\`,..CX2>>
	IFNDEF] .PSECT,<
		..CX] 2==0	
	  IFE <..]@CX1&^O777777B17>,]`<
		..CX2==1	
	^    CAIA B,C>
	  IFE ..CX2,<		^@
	    CAMA B,[^`C]>
	PURGE ..CX1,..CX2>GE ..CX:&@ PA=
	..TSIZ Pa(..PST,C)
	.CASQE ..PST,<<
		MOVQ EM A,B>,<
		HRQ@RM A,B>,<
		HRQ`LM A,B>,<
		DPRB A,[POINTR (B,C)]>>INTR (B,:<;Y (:D
   DEFIN(!E ..CNS2 (NEW,OLD(@)<
	  OLD>			
	..CNS ()>			
	:L;Y %a:<
   DEFIN&E ..CNS (%%%)<
	& ..CNS2 <%%%>,>
&@
   DEFINE ..CNS2&` (NEW,OLD)<
	DEF'INE ..CNS (%%%)<
	  ..CNS2 <%%%>,'@<OLD'NEW>>>
   OLD'NEW>>>
   :dH@ M!<v
	..TSIZ MA(..PST,C)
	.CASM`E ..PST,<<
		MOVNE A,B>,<
		HRRN Z A,B>,<
		HLRN@Z A,B>,<
		LDBN` A,[POINTR (B,C)]>>INTR (B,:}i1 
	A==<<<B>>&<1B<^L<B>>>>>&<1B<:~ h!6n
	  ..OP1hA==B
	IFDEF .PSEh`CT,<
 	.IFN ..OPi1,ABSOLUTE,<
	  i     C A,[..OP1]i@>
	.IF ..OP1,ABSi`OLUTE,<	
		..OP2j==0	
	  IFE <..Oj P1&^O777777B17>,<j@
		..OP2==1	
	kj`   CI A,..OP1>
	  IFE ..OP2,<		k 
	    C A,[..Ok@P1]>
	PURGE ..OPk`1,..OP2>>
	IFNDElF .PSECT,<
		..Ol P2==0	
	  IFE <.l@.OP1&^O777777B17>l`,<
		..OP2==1	
m	    CI A,..OP1m >
	  IFE ..OP2,<m@		
	    C A,[.m`.OP1]>
	PURGE ..OP1,..OP2>GE ..;m  	B
	..PST== )C-FWMASK
	.IF0  H..PST,<
		POINT  h0,B,35>,<
		POINTR (B,C)>POI;| K<\
		POP P,K!.NVA
		PURGE .NK@VA
		.NVR==.NVR-1
		.NVR==.NVR;\t J<T
		PUSH PJ!,A
		DEFINE .NVJ@B<A>
		.NVR==.NVR+1
		.NVR==.;] da>2
	  IFGE e<<<B>&777777>-..e BSIZ>,<
		PRINTXe@ ?WORD offset gree`ater than $BUILD fsize parameter>
f 	  SET0. (\<B>,C,<A>)
	B>,;LH A9,
	IFNDEF aC,<PRINTX C IS NOT DEFINED
	   A (<B>,D,FWMASK@)>	
	IFDEF C,<
	IFNDEF %C,<
	  A (<B>,D,C) >	
	IFDEF %C,<
	  %C (A,<B>,D,C)>>A,<B>,;LH 9j

	..NS==0!			
	IRP C,<..N@S=..NS+1>	
	IFE `..NS,<PRINTX ?EMPTY STRUCTURE LIST , A>
	IFE ..NS-@1,<		
	  ..STR0 `(A,<B>,<C>,D)>
	IFG ..NS-1,<	 	
	..ICNS			
	.@.CNS (<E (A,<B`>,,>) 
	IRP C,<		
	  IFNDEF C, <PRINTX C NOT DE@FINED>
	  IFDEF `C,<
	  IFNDEF %C,<
	  ..CNS (< ,C,D>)>	
	  IF@DEF %C,<
	  %C` (..STR2,,D,C)> 
	  ..CNS (<)>) 		
	  ..GCNS		
@	  ..ICNS		
	  .`.CNS (<E (A,<B>>) 
	  IFNDEF % C,<
	  ..CNS (<@,C,D>)>	
	  IF`DEF %C,<
	  %C (..STR2,,D,C)> >> 
	..CNS (<,,)>)		
	..GCNS>);LI a9n
	..CNS (<,C,B>).CNS (;LI !:

	IFDIF <AD><F>,<
	  IFN`B <D>,<
	    A (<B>,D,..MSK)	 
	    IFNB <F>,@<PRINTX C AND E` ARE IN DIFFERENT  WORDS>>
	  ..MS  K==0>		
	IFNB < @F>,<
	  ..MSK=..MSK!<E>>MSK=..;LJ !:

	IFDIF <!!D><F>,<	
	  IF!@NB <D>,<
	    !`A (<B>,D,..MSK)">	
	  ..MSK==0>	" 	
	IFNB <F>,<
"@	  ..MSK=..MSK!<E>>MSK=..MSK!<;LJ #:*

	IFDIF <#!D><F>,<	
	  IF#@NB <D>,<
	    I#`FNB <F>,<		
		$A1 (B,D,..MSK)>$  
	    IFB <F>,$@<		
		A2 (B,D$`,..MSK)>> 
	  ..%MSK==0>		
	IFNB % <F>,<
	  ..MSK=..MSK!<E>>MSK=;$\Y '	BD
&IF1,<
    PRINTX ? Err&ior in "A"
    D'9EFINE X(NAM,ERR) (	<IFN ..X'NAM&..TX((EF,<PRINTX ? ERR>(H>
    $TX$ERR>

    $TX$ERR>
;$^ *)Bz

    ..*ITXF==0				
    .*h.TXB==0				
    +..TXP==0				
   +( ..TXEG==<..TXEF=+H=0>			
    IRPC +hA,<				
	..TXC=,=ASCII\A\-35		
	IFN ..TXB,<IFN ,H..TXB-..TXC,..CNS,h(<A>)
		   IFE -..TXB-..TXC,..TXB-(==0>
	IFE ..TXB,-H<..TXQ(<A>,\..TX-hF)>>	
    ..TXC1.				
    IFN ..T.(XB,<IFN <..TXB-"^.H">,<..TXER(PEA)>>.h
    ..TXEF==..T/XEF!..TXEG		
   /( IFN ..TXEF,<..TERR<A>>
,<..TE;&(TH0)..TXA(.TQC;&) )@r..TXER(IQU)..TXER(IQU;&)

Y@e..TXA(.TQCHA)..TXA(.TQC;&5 @Y..TXC0(\".CHLFD).TXC0(\".;&5

@a..TXC0(\".CHVTB).TXC0(\".;&6 Y@]..TXC0(\".CHFFD).TXC0(\".;&6 
Y@U..TXC0(\".CHCRT).TXC0(\".;&@ Ya=d
	..TSIZ Z(..PST,C)	
	.CAZ SE ..PST,<<
		SEZ@TZM B>,<	
		HLLZ`ZS B>,<	
		HRRZ[S B>,<	
	  ..TS[ AC (..ACT,B)	
	[@  .IF0 ..ACT,<
	[`	$CALL .ZERO	
		\LSTOF.
		JUMP [P\ OINTR(B,C)]
		\@LSTON.>,<
		..TX (Z,B,C)>>>TX;&81 	A8d
	IFNDEF 	a.PSECT,<
	A==0	
		
	..TSA1==<Z 
 B>		
	  IFE ..TS
@A1&^O777777777760
`,<A==1> 
	>
	IFDEF .PSECT,<
	 A==0			
	..TSA1=@=<Z B>		
	.IF .`.TSA1,ABSOLUTE,<

	  IFE ..TSA1&^

 O777777777760,<A

@==1>> 
	PURGE ..TSA1>
	PURGE ..;&:= 8H
	A==3		!	
	IFE <B>+1,<@A=0>	
	IFE <B>-`^O777777,<A==1> 	
	IFE <B>-^O777777B17,<A==2>7;' n!8
   ..TX1nA==C			
IFDEF .Pn`SECT,<
   .IFN .o.TX1,ABSOLUTE,<
o 	TDA B,[C]>
 o`  .IF ..TX1,ABSOLoAUTE,<		
	..TX2==p0		
	IFE <..TX1&p!^O777777B17>,<
	p@  ..TX2==1		
	  p`TRA B,..TX1>
	qIFE ..TX2,<		
	Iq FE <..TX1&^O77777qA7>,<
	  ..TX2==1qa		
	  TLA B,(.r.TX1)>>
	IFE ..Tr X2,<		
	  IFE <<r@..TX1>B53-^O77777za7>,< 
	    ..TX3{ (A,B)>>	
	IFE{  ..TX2,<		
	  TD{@A B,[..TX1]>	
{`	PURGE ..TX1,..TX|2>>
IFNDEF .PSEC| T,<
	..TX2==0		
	IFE <..TX1&^O77|`7777B17>,<
	  ..}TX2==1		
	  TRA}  B,..TX1>
	IFE }@..TX2,<		
	IFE <}`..TX1&^O777777>,<~
	  ..TX2==1		
~ 	  TLA B,(..TX1~@)>>
	IFE ..TX2,<~`		
	  IFE <<..TX1>B53-^O777777>,<  
	    ..TX3 (A@,B)>>	
	IFE ..T`X2,<		
	  TDA B,[..TX1]>	
	PURGE ..TX1,..TX2>;'` A8
	IFIDN <aA><Z>,<		
	  ..TX2==1
	  ANDI  B,^-..TX1>	
	IFI@DN <A><O>,<		
	`  ..TX2==1
	 ORCMI B,^-..TX1>	
	IFIDN <A><C>,<@		
	  ..TX2==1
`	  EQVI B,^-..TX1>QVI B,^-..TX;'  IAp

	..TXEiF==0			

IFNDEF A,<..TXER(UQU)>(		
IFDIF <B><>,H<IRPC B,<.IFN <hB>,NUMERIC,..TXER(IWA)>>
IFNB <C(>,<IFNDEF .TXTJCH,<..TXER(IJA)>>
hIFDEF  A,<
  IFE <A_-^D18>,<IFD(IF <EFBCD><>H,<..TXER(ANA)>>
h  IFE <1-<A_-^D18>>,<IFDIF <BC(D><>,<..TXER(JNA)H>>
  IFE <2-<A_h-^D18>>,<IFIDN <EF><>,<..TXER(AD(S)>>>

      IFHE ..TXEF,<
	IFIDhN <B><>,<..TXWD==<..TXJU==<..TXFC(==0>>>
	IFDIF <HB><>,<
	  IFE <^hD<B>>,<..TXWD==<..TXJU==<..TXFC==(0>>>
	  IFN <^D<HB>>,<..TXWD==^D<hB>
	    IFNB <C>,<..TXJU==.TXTJ(C>
	    IFB  <HC>,<..TXJU==.TXTJhL
	      IFE <A-.TQOCT>,<..TXJU=(=.TXTJR>
	    HIFE <A-.TQDEC>,<h..TXJU==.TXTJR>>
	    IFB  <D>,<(..TXFC==" ">
	  H  IFNB <D>,<..TXhFC=="D">>>

	IFB  <EF>,<..TXP(T==0>
	IFNB <EHF>,<..TXPT==1>
	hIFE <..TXWD+..TXPT>,<
	    EXP FL(D(A,TXT.FN)>
	IHFN <..TXWD+..TXPTh>,<
	    EXP FLD(A,TXT.FN)+FLD(.(.TXJU,TXT.JU)+FLDH(..TXWD,TXT.WD)+FhLD(..TXFC,TXT.FC)+TXT.AD
	    PNTR(E,F)>>

T;'h A	D
    IFE A)..TXP,<			
	..ICAHNS			
	..CNS<ASCAhIZ\>		
	..TXP==1B>		
    ..CNS<AB(>			
    ..TXF==BH0			
    ..TXB=="^"
    ..TXB==;'h C	D 

    IFC)N ..TXP,<			
	..CHCNS<\>		
	EXP <FChLD(.TQCHT,TXT.FN)D+[..GCNS]>>
    ..TXP==0>
    ;'	9 )	BN
    ..TX))EF==..TXEF!..XA	)H	
    ..TXF==0		)h		
    ..TXB=="^"
    ..TXB=="^;'

  /iB~..TXQB(<A>)..TXQB(<;'

( 0)C

    IF0IN ..TXC-"^",<..TX0hC0(<A>)>		
    1IFE ..TXC-"^",<..TXF==1>-"^",<..;'

( 1IC(

    IF1iE ..TXC-"^",<..TX2C0(<A>)>	
    I2(FN ..TXF,<			
	.2H.TXF==0		
	IFDEF2h .TQCHA,<		
	  3  IFDEF ..TQMA,.3(.TQMA 
	    IFN3H <.TQCHA_-^D18>,3h<..TXF==2>>>
   4 IFE ..TXF-2,<..T4(XC1(<A>)	
	..IC4HNS			
	..CNS<..T4hXA(.TQCHA,>>	
 5   ..TXEG==..TXEG!..TXEF==..TXEG;'

) 5IC:
    ..TX5iF==3				
    IFG6E ..TXC-"0",IFLE 6(..TXC-"9",<..TXF=6H=2>
    IFE ..TX6hF-2,<..CNS(A)>		7
    IFE ..TXF-37(,<..CNS<,>		
		 ..TXQ3(A)>
		 ;'

) 7iCN
    ..TX8	F==4				
    IFE8( ..TXC-"/",<..TXF8H==5>		
    IFE .8h.TXC-"[",<..TXF==95>		
    IFE ..T9(XF-4,<..CNS<A,>>9H		
    IFE ..TXF9h-5,<..CNS<,,>		
		 ..TXQ5(A)>
;'

* :)Cd
    ..TX:IF==4				
    IFE:h ..TXC-"/",..TXF=;=5		
    IFE ..T;(XC-"[",..TXF==5		;H
    IFE ..TXF-5;h,<..CNS<,>		
		 <..TXQ5<A>>		
  <(  IFE ..TXF-4,<..<HCNS<A,>		
		 ..TXF==5>	
		 ..;'

* =	Cv
    ..TX=)F==6				
    IFE=H ..TXC-"/",..TXB==h="/"		
    IFE .>.TXC-"[",..TXB==">(]"
    IFE ..TXB>H-"]",..CNS<[>		
>h    IFE ..TXB,..TXF==5 ..TXB,..T;'

+ ?)D
    ..TX?IF==0			
    IFE ?h..TXC-"]",..CNS<]@>	
    ..CNS<)>	@(		
    ..GCNS			@H
    ..TXEG==..TXEG!..TXEF==..T;DQ @;DPQ ;EPQ ;E:Q  ;EpQ ;E+PQ ;F	0Q ;F\:Q @
0P 
@P 
PP 
`P d  6!;2
	.ACV2 (A)
	.ACV2 (d@ 6a;<
	A=.FPA7C+..NAC		
	IFB <7 B>,<..NAC=..NAC+7@1>
	IFNB <B>,<..NAC=..NAC+B>.d` 8;J
	IFG A-8!.NPAC,<PRINTX ?TO8@O MANY ACS USED>
	IFLE A-4,<
	99 $CALL .SAVEA>	
	IFG A-4,<
	  $CALL .SAVE8>  \+P"
=Z ^A=t$CALL	I%INTA$CALL	I%IN9  8:
	..CSN==!A
	..CSC==0
	I@RP B,<
	IFE ..C`SN-..CSC,<
	  STOPI
	  ..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 eLQ f

TP l,UP S@P ,<H Va=@
	..PST==WC-FWMASK
	.IF0 W ..PST,<
		SOS BW@>,<	
		$CALL .SOW`S	
		LSTOF.
		JXUMP [POINTR(B,C)]
		LSTON.>C

TP } GiG
	.OPCD==p	.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 a8,
	..IFT==A		
	IFE ..IFT, <
	B
	..IFT==0@>		
	IFN ..IFT,<
	C>N ..IFT,<&t<H Sa=(
	..PST==TC-FWMASK
	.IF0 T ..PST,<
		AOS BT@>,<	
		$CALL .AOT`S	
		LSTOF.
		JUUMP [POINTR(B,C)]
		LSTON.>C&tj7Q ?2

TP 2}LQ 6MiTQ&@7;rp 7H:p 7kp 7N8p ;`P ;-J7P#>)qp >5H3p >DLYp ?EHP $?LxP "?(WP !?+ZP %?krP #?xUP  ?)0P "?)8P #?)SP &?98P !?HyP %?J6P $?N8P  ?$(:P ?$*7P ?$9P ?$HVP ?$h6P 	?$mP ?%VP ?%+qP ?%LP ?%X<P 	?%[ZP ?%hzP ?%kzP ?%|P ?&P ?&
		SKIPA				
		JRST	h		
(		SKIPE	G$NEBF		
		JRST	g		
		$hCALL	I%WTO		
		LSTOF.			
		JRST	(h		
		$WTRST			H
	IFNB <A>,<$WThMTY (<A>)>	
	IFNB <B>,<$WTTYP ((<B>)>	
	IFNB <HC>,<$WTTXT (<C>)h>	
	IFNB <D>,<$WTOBJ (<D>)>	
	(IFNB <E>,<$WTACKH (<E>)>	
		IRP hF,<F>		
		$WTBLD			

g:		SET(ZM	G$NULA		
		$CHALL	I%WTO		
		JRhST	h		
		$WTRST			
	$WTNHD(G$RE(MN)			
	IFNB <AH>,<$WTMTY (<A>)>h	
	IFNB <B>,<$WTTYP (<B>)>	
	I(FNB <C>,<$WTTXT H(<C>)>	
	IFNB <hD>,<$WTOBJ (<D>)>	
	IFNB <E>,<($WTACK (<E>)>	
H	$WTMFL(MF.NEB)		h	
		IRP F,<F>		
		$WTBLD			
(
	h:!
	LSTON.  h:!
	LSTON.  J$*vP J&:=P JmLQ K%,z F40<A>B<^D70-POS(B)>B<^D70N

0P O aYN
	IFG	A-cYMX.PID,<MX.PID==A>
C
G	A-OSP OYP Oi1P O|P OyP O%=H +A:\
	.STKV2 (A)
	.STKV2 O%=I ,:j
	IFB <B,!>,<..STKN==..STKN,@+1>
	IFNB <B>,<,`..STKN==..STKN+B->
	..STKQ==..STK- N+1
	.STKV3 (A,\..STKQ)V3 (A,O%=I -a:x
   IFDEF. A,<.IF A,SYMBO. L,<PRINTX STKVAR .@A ALREADY DEFINE.`D>>
	DEFINE A<-/^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

: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

: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  1a;
	.TRV2 (A)
	.TRV2 (Sd@ 2!;
	.TRV3 (2AA,\..NV)	
	IFB 2`<B>,<..NV=..NV+13>
	IFNB <B>,<..NV=..NV+B>,<..Sd` 3A;&
   IFDEF3a A,<.IF A,SYMBO4L,<PRINTX TRVAR 4 A ALREADY DEFINED4@>>
	DEFINE A<^O4`B(.FP)>
	$A==<Z A>>
	$A==<SFH2P SFIVP SFJQP SFJVP SFJYP VuLQ @Vv

TP ^%I7P _%~ {iGz
		$CALL	|	I%WTO		
		LSTOF.|(			
		JRST	g		
		$WTRST			
	IF|hNB <A>,<$WTMTY (}<A>)>	
	IFNB <}(B>,<$WTTYP (<B>)}H>	
	IFNB <C>,<$}hWTTXT (<C>)>	
	~IFNB <D>,<$WTOBJ~( (<D>)>	
	IFNB ~H<E>,<$WTACK (<E~h>)>	
		IRP F,<F>		
		$WTBLD			(
	g:!
	LSTON.  g:!
	LSTON. kPP >}{woP