PDP-10 Archive: galaxy-subsys/glxmac.unv from bb-h137e-bm_tops20_v6_1

Trailing-Edge - PDP-10 Archives - bb-h137e-bm_tops20_v6_1_instl - galaxy-subsys/glxmac.unv

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

x
,QC@P C4@ 5I30
	..NAC==5i0		
	IRP A,<
	6  .ACV1 (A)>		
	.ACV3 (\..NAC)C' _I-|..AS(A,B,ADD,SUB)(A,BC, AA,

LSH A,-^D9LSH A,-^DC2f} Dq<9
	.EAWTO(EMTY,0)
	.EAWTO(TE0YP,2)
	.EAWTO(TXEPT,2)
	.EAWTO(OBJEp,0)
	.EAWTO(ACK,F0)
	.EAWTO(FLG,1F0)
	.EAWTO(NOD,0)FP
	.EAWTO(JBN,0)
	.EAWTO(ACD,0)
G	.EAWTO(OCD,0)
	.EAWTO(MFL,1)
C:' 	0 
	TXZ A,<^-<B>>TXZ A,CHuI7Q xCHvN8P'CJ9ip CJ9jp CJ9l}p E2"@ k	6^
	  IFE k)B,<..TA==0>
	  kHIFN B,<EXP ..TAkh
		    PURGE ..TA>
	PURGE ..TE2&i1 {A'c-
	IFIDN <{qE><C>,<EXTERNAL |BMAN,BDEV>
	SI|0XBIT	/A/
	XWD	BMAN,BDEV
D	JiJeES;!k<E@tP'E@vyQ ~E@v:=Q |F;z:Q @G@ XI-D
	    ..CX(,A,B)   ..CGD \	-`
	    ..CX(A,A,B)  ..CGDP Z	-P
	    ..CX(E,A,B)  ..CGDp ZI-T
	    ..CX(G,A,B)  ..CGDy  [	-X
	    ..CX(GE,A,B) ..CGE@ Y	-H
	    ..CX(L,A,B)  ..CGEI  YI-L
	    ..CX(LE,A,B) ..CGE` [I-\
	..CX(N,A,B)  ..CGH 1C

	  LST0OF.

	X CRE	
	0qX GEN	
	X PRT	
0Q	X CLS	
	X1AUT	
	X USW	
	X SPL	11
	X SIZ   
	X M1POD	
	X CHN	

	  LSTON.


	G4,m:Q G4-ZQ G4.

zQ G:YlP

G>vC@ ()LALL
PAGE9; (A Continued oXn next page)
SALxL; (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  Ui54
	IFNB <V	B>,<..STR0 (.DECRV(0,,<B>,A)>
	IFVHB  <B>,<SOS A>  <B>,<SOS A>I6= 	1
	A==<-1)B<C>+1B<C-D>> H
	IF1,<IFDEF %Ah,<PRINTX ?A ALREADY DEFINED>>
	D(EFINE %A (OP,AC,HY,MSK)<	
	IFDIF h<Y><>,<
	OP (<AC>,B+'Y,MSK)>
	I(FIDN <Y><>,<
	OPH (<AC>,B'Y,MSK)>>AC>,B'Y,MSK)>I'7 b	...OP(A,B,DIV)..OP(A,BIOH1 &iJ@
	IFB <D'	>,<
	XWD	[ASCIZ\'(C\],[XWD B,A]>'H
	IFNB <D>,<
	'hXWD	[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 .QB}
	IF1,<IF.qDEF ERA$,PRINTX /?Duplicate error /0code A>
	ERA$=/P=ER%%%
	ER%%%==ER%%%+1
R%%%==EKKP KK,}P KKLP KK|Y tqBq
	ERR	EOFu,<End of file>
	u0ERR	IFP,<Illegal uPfile position>
	upERR	FDE,<File datva error>
	ERR	FNv0D,<File is not onvP disk>
	ERR	NSD,vp<No such device>
	ERR	FCF,<File cw0heckpoint failed>wP
	ERR	SLE,<A syswptem limit was excxeeded>
	ERR	IFS,x0<Illegal file spexPcification>
	ERRxp	FNF,<File not foyund>
	ERR	PRT,<Py0rotection violatiyPon>
	ERR	DNA,<Deypvice not availablze>
	ERR	NCE,<No z0"current" entry izPn list>
	ERR	NMAzp,<No IPCF message{ is available>
	{0ERR	FDS,<Files ar{Pe on different st{pructures>
	ERR	F|AE,<File already |0exists>
	ERR	USE|P,<Unexpected syst|pem error>
	ERR	N}SP,<No such pid>
	ERR	BOL,<Beginn}Ping of list reach}ped>
	ERR	EOL,<En~d of list reached~0>
	ERR	RQF,<Rece~Pivers quota full>~p
	ERR	SQF,<Senders quota full>
	0ERR	NRE,<No rememPbered entry>
	ERpR	TBF,<Table is full>
	ERR	EIT,<T0able entry alreadPy exists>
	ERR	IpTE,<Invalid table entry>
	ERR	QEF0,<Quota exceeded Por disk full>
	EpRR	ARG,<Invalid argument specified0>
	ERR	IFN,<InvaPlid function specpified>
	ERR	IJN,<Invalid job numb0er specified>
	EPRR	RAD,<Invalid rpadix specified>
	ERR	NUM,<Invalid0 numeric argumentP>
	ERR	IDT,<Invaplid date field specified>
	ERR	IT0F,<Invalid time fPield specified>
p	ERR	DOR,<Date/time out of range>
	ERR	DTM,<Value Pmissing in date/tpime>
	ERR	MDD,<Missing day in dat0e/time>
	ERR	DFZP,<Field zero in dpate/time>
	ERR	MDS,<Mnemonic date0/time switch not Pimplemented>
	ERpR	DFL,<Field too 	large in date/tim	0e>
	ERR	ILR,<Ill	Pegal year format 	pin date/time>
	E
RR	NND,<Negative 
0number in date/ti
Pme>
	ERR	NPF,<No
pt known whether past or future in 0date/time>
	ERR	PRDP,<Relative datpe parse required>


	ERR	NSW,<Switc

0h does not begin

Pwith slash>
	ERR

p	NOM,<Unrecognize
	ERR	NUL,<Nu keyw
	ERR	INW,<Invalid guid0e word>
	ERR	NC,P<Not confirmed>
p	ERR	ICN,<Invalid character in num0ber>
	ERR	NQS,<IPnvalid quoted strping - does not begin with quote>
0	ERR	AMB,<AmbiguoPus switch or keywpord>
	ERR	NMT,<Does not match tok0en>
	ERR	CMA,<CoPmma not given>
	pERR	NNC,<Node name may not exceed 06 characters>
	EPRR	INT,<Node termpinator "::" must be specified>
	E0RR	NSN,<Unknown nPode name>
	ERR	IpPS,<Invalid path specification>
	0ERR	IUS,<Invalid Puser specificatiopn>
	ERR	DGS,<Device name may not 0exceed 6 charactePrs>
	ERR	DNE,<Unpknown device>
	ERR	DIO,<Device ca0n not do input orP output>
	ERR	BDpF,<Invalid date/time format>
	ERR0	ABS,<Field too lPong for internal pbuffer>
	ERR	TMT,<Command too lon0g for internal buPffer>
	ERR	BDS,<pInvalid default string>
	ERR	BTF,0<Invalid table foPrmat>
	ERR	TME,<pDate/time must be in the future>
0	ERR	TMN,<No timePr entry has expirped>
	ERR	TMA,<Timer entry already0 exists>
	ERR	DVPT,<Device terminaptor ":" must be specified>
	ERR	N0CI,<Argument blocPk may not be in tphe ACs>
	ERR	TLU,<Terminal locati0on is unknown>
	PERR	FIO,<File is poffline>
	ERR	FBM,<File being mod0ified>
	ERR	WLK,P<Write-locked devpice>
	ERR	CSD,<Cannot supersede a0 directory>
	ERRP	CDD,<Cannot delepte a non-empty di rectory>
	ERR	SN 0F,<Sub-file direc Ptory not found>
 p	ERR	ESL,<Search !list is empty>
	!0ERR	LVL,<SFD leve!Pl nested deeper t!phan the maximum a"llowed>
	ERR	CCW"0,<Cannot create/w"Prite on any struc"pture in search li#st>
	ERR	FCU,<Ca#0nnot update file>#P
	ERR	ENQ,<File #phas outstanding E$nqueue lockes set$0>
	ERR	SWS,<Soft$Pware write-lock o$pn structure>
	ER%R	DER,<Hardware d%0evice error>
	ER%PR	DTE,<Hard data %perror>
	ERR	BKT,&<Block too large>&0
	ERR	IPP,<Non-e&Pxistant UFD>
	ER&pR	TRN,<RIB or tra'nsmission error>
	ERR	ILC,<Illega'Pl character in da'pte/time>
	ERR	NF(T,<Date/time must(0 be in the future(P>
	ERR	NPS,<Date(p/time must be in )the past>
	ERR	U)0DM,<Unrecognized )Pmonth in date/tim)pe>
	ERR	UDN,<Unr*ecognized name in*0 date/time>
	ERR*P	IFA,<Illegal fil*pe attribute>
	ER+R	FAI,<File attri+0bute inconsistanc+Py>
	ERR	CEI,<Can+p't enable/disable, interrupt system,0>
	ERR	ENF,<Link,Ped list entry not,p found>
	ERR	NSL-,<No such linked -0list>
	ERR	NFP,<-PNo free pages>
	-pERR	NPI,<No free .pages 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` x!7T
	IFIDN <xABC><>,<EXP <A>x`>
	IFDIF <BC><y>,<
	 IFE <A+1>y ,<<POINT 7,C>>
y@	 IFN <A+1>,<
	y`   IFIDN <C><>,<zEXP <A,B>>
	  z  IFDIF <C><>,<EXz@P <A,B,C>>
	>>A,B,C>>
	>Kc  Y(IRP A,<
y	IF2,<IFNDEF A,<EXTERN A>>>A,<Mf9 P Mt,}P MuLwP @MuiWP  Mv
P 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  Ei,.<<<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|  9(IRP A,<
Y	IF2,<IFDEF A,<.xIFN A,EXTERN,<INTERN A>>
	     8IFNDEF A,<EXTERNX A>
	Q SUPPRESPA>>YSUPPRO3FX7P NQf@ +QfI@ <StLQ St\Yp Stkp SuZp Suh1Q SulQ Su}:p Sv
1p Sv

Sp Sv>9Q Sv>@p SNn aI.

..OP(A,B,IDIV).OP(A,BS7-N `I...OP(A,B,IMUL).OP(A,BS:  Ri5
	IFNB <S	B>,<..STR0 (.INCRS(0,,<B>,A)>
	IFSHB  <B>,<AOS A>  <B>,<AOS A>S;k H),B<<<A>B<POS(<B>)>>&<B>>S;!kP S;!k<P S? I0
	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)mvP&SBal}P SPuxzQ @SR/
	LSTOF.	{!XCREF
	..TEXT<A{@>		
	  EXP	0		
	LSTON.
	0		
Uv98Q |U$@ &QC7

	  LST21OF.

	X JNO,.JI2PJNO,<-1,,GJBJNO>	2p
	X TNO,.JITNO,<3-1,,GJBTTY>	
	X 30USR,.JIUNO,.GTPPN3P		
	X CDN,.JIDNO3p,<-1,,GJBPTH>	
	4X PRG,.JIPNM,.GTP40RG		
	XpCJN,.JIC4PPJ,<-1,,GJBCJB>	
	X BAT,.JIBCH,.G5TOBI		
	X JLT,.J50ISTM,.GTJLT		
	X5P LOC,<-1,,GJBLOC>5p,<-1,,GJBLOC> 
	6X RTM,.JIRT,<-1,,60GJBRTM>	
	X TLC,6P<-1,,GJBTLC>,<-1,6p,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$vKPIU$vKWP U$v\yP U&j2p U&jWp U&lxp U&m9p U&:=p U?0 +0UKI@ +UVn	@ 4@UVn
	IFB <C(i>,<
	XWD	[ASCIZ\)B\],A>
	IFNB <)(C>,<
	XWD	[EXP )HCM%FW!C
		ASCIZ\B\],A>
SCIZY"luQ xY&i1 !,

	  LST!!OF. XCREF

	CDO!@	OTSINI			
	CDO	!`    			
	CDO	.ZP"AGA
	CDO	.ZPAGN
	CDO	.ZCHNK
	CD"@O	.SAVE1
	CDO	.S"`AVE2
	CDO	.SAVE3#
	CDO	.SAVE4
	C# DO	.SAVET
	CDO	.#@SV13
	CDO	.SV14
	CDO	.SV15
	CDO$	.SV16
	CDO	.RET$ T
	CDO	.RETF
	C$@DO	.RETE
	CDO	.A$`OS		
	CDO	.SOS		%
	CDO	.ZERO		
	% CDO	.POPJ		
	CDO%@	.STOP		
	CDO	.S%`AVE8		
	CDO	.STK&ST		
	CDO	.TRSET& 		
	CDO	.POPJ1		&@
	CDO	.UD2SC		
&`	CDO	.SC2UD		
	C'DO	.CPUTY		
	CDO' 
	CDO
	CDO

	'@CDO			
	CDO	C%RP'`RM
	CDO	C%INTR
(	CDO	C%SEND
	CDO( 	C%RECV
	CDO	C%B(@RCV
	CDO	C%REL
(`	CDO	C%CPID
	CDO)	C%KPID
	CDO	C%S) PID
	CDO	C%MAXP
	CDO	C%PIDJ
	CD)`O
	CDO
	CDO
	C*DO
	CDO

	CDO	*       			
	CDO	F*@%IOPN
	CDO	F%AOP*`N
	CDO	F%OOPN
	+CDO	F%IBYT
	CDO	+ F%OBYT
	CDO	F%IB+@UF
	CDO	F%OBUF
+`	CDO	F%REL
	CDO	,F%DREL
	CDO	F%RR, EL
	CDO	F%REW
	,@CDO	F%POS
	CDO	F,`%CHKP
	CDO	F%INF-O
	CDO	F%FD
	CD- O	F%REN
	CDO	F%D-@EL
	CDO	F%FCHN
-`	CDO
	CDO
	CDO
	CDO
	CDO
	CDO. 
	CDO
	CDO
	CD.@O

	CDO	      	.`		
	CDO	M%ACQP
/	CDO	M%RELP
	CDO/ 	M%IPSN
	CDO	M%N/@XPG
	CDO	M%IPRC
	CDO	M%IPRM
	CD0O	M%AQNP
	CDO	M%0 RLNP
	CDO	M%CLNC0@
	CDO	M%FPGS
	C0`DO	M%GMEM
	CDO	M1%RMEM
	CDO
	CDO1 
	CDO
	CDO
	CD1@O
	CDO
	CDO	M%G1`PAG
	CDO	M%RPAG
	CDO
	CDO
	CDO2 
	CDO
	CDO
	CD2@O
	CDO
	CDO

2`	CDO	      			
	3CDO	T%TEXT
	CDO	3 T%TTY
	CDO
	CDO3@
	CDO
	CDO
	CD3`O
	CDO
	CDO
	C4DO
	CDO
	CDO
4 
	CDO	      			
4@	CDO	L%CLST
	CDO4`	L%DLST
	CDO	L%C5ENT
	CDO	L%CBFR
	CDO	L%DENT
	CD5@O	L%NEXT
	CDO	L%5`FIRS
	CDO	L%LAST6
	CDO	L%PREV
	C6 DO	L%PREM
	CDO	L6@%CURR
	CDO	L%REN6`T
	CDO	L%SIZE
	7CDO	L%APOS
	CDO
	CDO
	CDO
	CDO7@
	CDO
	CDO
	CD7`O
	CDO

	CDO		8	
	CDO	I%NOW
	C8 DO	I%EXIT
	CDO	I8@%ION
	CDO	I%IOFF8`
	CDO	I%SLP
	CD9O	I%INT1
	CDO	I%9 INT2
	CDO	I%INT39@
	CDO	I%TIMR
	C9`DO
	CDO
	CDO	I%:SOPR
	CDO	I%WTO
	CDO
	CDO	I%HOS:@T
	CDO	I%JINF
	:`CDO
	CDO

	CDO;			
	CDO
	CDO	S; %DATI
	CDO	S%SIX;@B
	CDO	S%CMND
	;`CDO	S%TBLK
	CDO	<S%SCMP
	CDO	S%ER< R
	CDO	S%INTR
	<@CDO	S%EXIT
	CDO	<`S%TBAD
	CDO	S%TB=DL
	CDO	S%NUMI
= 

	CDO	K%RCOC		=@	
	CDO	K%WCOC
	=`CDO	K%SUET
	CDO	>K%STYP
	CDO	K%TX> TI
	CDO	K%SOUT
>@	CDO	K%BOUT
	CDO>`	K%BIN
	CDO	K%BA?CK
	CDO	K%TPOS
? 	CDO	K%BUFF
	CDO?@	K%FLSH
	CDO	K%O?`PEN
	CDO
	CDO
@	CDO
	CDO
	CDO
	CDO
	CDO
	CDO@@
	CDO
	  LSTON.
  
	  LSTON.Y>

@ L)4h
	IFNB <LIC>,<..STR0 (..LDBLh,A,C,B)>
	IFBM  <C>,<MOVE A,B>C>,<MOVE A,Y>%I;P YO%GP YO%yG Y(7
	IFNDEF yLSTIN.,LSTIN.==0		
IFE LSTIN.,<
8	IFIDN <XCREF><AX>,<.XCREF>	
		  x XLIST>		
	LSTIN.==LSTIN.+1STINYO%{G 9(A
	IFG LSTYIN.,LSTIN.==LSTINx.-1	
	IFLE LSTIN.,<.CREF		
		      LIST>
		   [3@ Gi,><<<1_<A>>-1>B<B>>_<A>>[8@ Fi,61B<<A>-1>-1B<B><<A>-1>[@ A)p
	IFB <Ba>,<MAXSIZ==0
		IRP A,<IFG <A-MA XSIZ>,<MAXSIZ==A@>>>
	IFNB <B>,<`B==0
		IRP A,<IFG <A-B>,<B==A>>>
B>,<B==[tP'[t;ZQ x[v
QP'[v:Q[vxQ [[v[lp [lp [lXp [lrp [ltp [lxp [l}p [n:=P [tuQ @[th:Q [u[yQ [ukvQ  [v=3P'[v|WQ [&p A*
	IFB <Ba>,<MINSIZ==377777,,777777
		IRP  A,<IFG <MINSIZ-A@>,<MINSIZ==A>>>
	IFNB <B>,<B== 377777,,777777
	  	IRP A,<IFG <B- @A>,<B==A>>>
A>,<B==A>>>
[>!` G),:<A-<A/B>*B><A-<A/B[?7 Hi-(
   ..MX1I	==B			
IFDEF .PI(SECT,<
   .IFN .IH.MX1,ABSOLUTE,<
Ih	MOVE A,[B]>
 J  .IF ..MX1,ABSOLJ(UTE,<
	..MX2==0	JH	
	IFE <..MX1>B5Jh3,<
	K..MX2==1
	  MOVEI A,..MXK(1>	
	IFE ..MX2,<KH		
	IFE <..MX1>BKh17,<
	  ..MX2==1L
	  MOVSI A,(..L(MX1)>>	
	IFE ..MLHX2,<		
	IFE <<..LhMX1>B53-^O777777>M,<
	  ..MX2==1
M(	  HRROI A,<..MXMH1>>>	
	IFE ..MX2Mh,<		
	IFE <<..MXN1>B17-^O777777B17N(>,<
	NH..MX2==1
	  HRLOI A,(..MNhX1-^O777777)>> 
O	IFE ..MX2,<		
	O(  MOVE A,[..MX1]OH>	
	>>

IFNDEFOh .PSECT,<
	..MX2P==0		
	IFE <..MXP(1>B53,<
	  ..MX2PH==1
	  MOVEI A,Ph..MX1>	
	IFE ..MQX2,<		
	IFE <..MQ(X1>B17,<
	  ..MXQH2==1
	  MOVSI AQh,(..MX1)>>	
	IFER ..MX2,<		
	IFE R(<<..MX1>B53-^O777RH777>,<
	  ..MX2=Rh=1
	  HRROI A,<S..MX1>>>	
	IFE .S(.MX2,<		
	IFE <<SH..MX1>B17-^O77777Sh7B17>,<
	  ..MX2T==1
	  HRLOI A,T((..MX1-^O777777)>TH> 
	IFE ..MX2,<	Th	
	  MOVE A,[..UMX1]>	
>
	PURGE ..MX1,..MX2RGE[Lt;ZQ x[LvN8P'[NF:=p [N^= 	1
	A==C	)	
	IF1,<IFDEF %HA,<PRINTX ?A ALRhEADY DEFINED>>
	DEFINE %A (OP,AC(,Y,MSK)<	
	IFDIFH <Y><>,<
	OP (<AhC>,B+'Y,MSK)>
	IFIDN <Y><>,<
	O(P (<AC>,B'Y,MSK)>>AC>,B'Y,MSK)[PuySP'[PvNP'[Vg a	...OP(A,B,MUL)..OP(A,B[`v
2P [b6<P F] 'wIF2,<IFDEF~q A,<A==A>> IFNDEF A,<A==B>]F@ FTEMFDB##_
QkRp _
Ql}p _
Qmp _
Qm7p _
T= =YD#

	X	.OT&RDR,Reader
	X	.O2TNCU,Network-Cont=yroller
	X	.OTLPT=9,Printer
	X	.OTB>yAT,Batch-Stream
?	X	.OTCDP,Card-Pu?8nch
	X	.OTPTP,Pa?Xpertape
	X	.OTPL?xT,Plotter
	X	.OT@JOB,Job
	X	.OTTR@8M,Terminal
	X	.O@XTOPR,Operator
	X@x	.OTIBM,<IBM RemoAte>
	X	.OTMNT,<DA8evice>
	X	.OTFTSAX,<File Transfer>
	X	.OTBIN,<Card BReader InterpreteB8r>
	X	.OTRET,<FiBXle Retrieval>
	XBx	.OTNOT,<RetrievaCl Notification>
C8	X	.OTDBM,<DBMS SCXystem>
	X	.OTFALCx,<File Access LisDtener>
	X	.OTSNAD8,<SNA Workstation>
 Workstation_Sh6 MIDl [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 MiE#

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

  NI IFNB <D>,<..XX=Ny..XX!CM%HPP> 
  O IFNB <E>,<..XX=O8..XX!CM%DPP> 

OX	EXP ..XX		

  Ox IFNB <C>,<EXP PC>
   IFB <C>,<P8EXP 0>

   IFNBPX <D>,<POINT 7,[APxSCIZ \D\]>
   IQFB <D>,<0>

QQ8 IFNB <E>,<POINTQX 7,[ASCIZ \E\]>
RIFB <E>,<0>



   IFB <IR8>,<0>
   IFNB <RXI>,<EXP I>

  Rx IFB <J>,<0>
  S IFNB <J>,<EXP S8J>

   IFB <H>SX,<0>
   IFNB <HSx>,<EXP H>

   TIFB <G>,<0>
   T8IFNB <G>,<EXP G>

G>,<EXP Ga A,LSH A,^D9LSH A,^D9a+= 5a;&  q9
	 IFB  <B>,<..STR0(..PNT0,,<FWMASK>,A)>
P	 IFNB <B>,<..STpR0(..PNT,,<B>,A)>.PNT,,<B>,Aa>Mm E	,*<POINT WIDE)(B),A,POS(B)>B),A,POS(B)>a?H6 +a? By,<^L<<A>&<-<A>>>><<A>&<aJ}Ks a)V

	SALL					
	LSTOF. XCRE	 F			

	%%.GLX==	@%%.GLX			


	I	`FNB <A>,<%%.MOD=
=SIXBIT/A/> 
	I
 FNB <B>,<%%.OTS=
@=SIXBIT/B/> 


`	GLOB	I%INIT			

	TOPS10	<			
	 	SEARCH	UUOSYM		
		%%UUOS==%%UUOS`		
	>				

	TO

PS20	<			
		SEAR

 CH	MONSYM		
;		%

@%MONS==%%MONS

`	>				

	IFB<<
		.TEXT	XLIB/SEAR
		DEFINE	$DATA (NAM,SIZ<1>),< 
			NAM:	BLOCK	SI@Z
		>			
		DEFI`NE	CDO (X),<GLOB X> 
		LIBVEC			
	>				

	IFNB @<B>,<IFDIF <B><`INI>,< 
		IFN GLXPURE,<.PSECT .HI GH.> 
		IFE GLXP@URE,<		
			TWOSE`G	400000	
			RELOC	0	
			RELOC	4 00000	
		>			
@
		DEFINE $DATA(N`AM,SIZ<1>),< 
			IFN GLXPURE,<.PS ECT DATA> 
			IF@E GLXPURE,<RELOC>` 
			IFNDEF B%D,<B%D::! B%DL== :0>
			NAM:	BLOC@K	SIZ
			B%DL==`:B%DL+SIZ 
			IFN GLXPURE,<.ENDP S DATA> 
			IFE @GLXPURE,<RELOC> 
		>			

		IFDIF <B><OTS>,<	
	 		DEFINE	CDO (X),@<GLOB X> 
			LIB`VEC		
		>			

	>>				

	IFNB  <B>,<IFIDN <B><@INI>,< 
		DEFINE`	$DATA (NAM,SIZ<1>),< 
			NAM:	BL OCK	SIZ
		>			
@	>>				

	LSTON`.				

	GLOB	<.POPJ, .RETT, .RET F>	
	OPDEF	$RET	@[POPJ	P,]	
	OPDE`F	$RETT	[PJRST	.RETT]	
	OPDEF	$RE TF	[PJRST	.RETF]	@
	OPDEF	$RETIT	[`JUMPT	.POPJ]	
	OPDEF	$RETIF	[JUMP F	.POPJ]	
	.NODD@T	$RET,$RETT,$RET`F,$RETIT,$RETIF
$RETIT,$RETIF
aPtP aPtkP aPuTP aPv\rP e"luP'ePv8vP ePv9VP ePv;P fDP fHP gkp gk9p glp glp gltp gl}p g"@ l)6r
	IFN <<.lI.TA>&B>,<PRINTXlh ?Initial field nmot zero in $SET>
	mH..TVAL==<C>
	mh..TMSK==<B>
	  ..TA==..TA!n<FLD(..TVAL,..TMSn(K)>
	  PURGE ..TVAL,..TMSK
	.Tg#=z@cIFC.SWIT+PDBCPY##C.SWIT+PDBg$tkQF@g$uP'g$uh6Q  g.N	@ 6@g.N
.SPID	(SFiP.QSR,.IPCPQ,.SPQGSR,QUASAR)	
.SPIG(D	(SP.OPR,.IPCPO,GH.SPOPR,ORION)	
.GhSPID	(SP.INF,.IPCHPI,.SPINF,INFO)	
.SPID	(SP.MDA,.IHHPCPM,.SPMDA,MDA)	Hh
TOPS10<
.SPID	I(SP.IPC,.IPCPS,,II(PCC)		
.SPID	(SPIH.ACT,.IPCPA,,ACTDIhAE)		
.SPID	(SP.JTLP,.IPCPT,,TAPLAJ(B)		
.SPID	(SP.TJHOL,.IPCPC,,TAPAVRJh)		
.SPID	(SP.DOKL,.IPCPD,,DSKAVR)K(		
.SPID	(SP.FILKH,.IPCPF,,FILDAE)		
>
,FILDAE)	gR^h9 ))2Z
	..STKR=)I=10		
	RADIX 8
)h	..STKN==0
	IRP *A,<
	  .STKV1 (*(A)>
	$CALL	.STK*HST
	 ..STKN,,..S*hTKN
	RADIX ..STK+R
	PURGE ..STKN,+(..STKR,..STKQ
   TKR,..STKQ
  gR~)  OI5
	IFNB <OiC>,<..STR0 (..DPBP,A,C,B)>
	IFBP(  <C>,<MOVEM A,B>>,<MOVEM A,gV `	...AS(A,B,SUB,ADD)(A,Bgg

V !)`
	IFNB <AB>,<TOPS10<A==B`>>
	IFNB <C>,<TOPS20<A==C>>
PS20<A==C>>
ght-3P ghuWP ghuxSP ghv5P ghv
2P hDP hHP hLP hPP iP i$tkQP'i$tlUQ xi?4( +qJ_IFN FTUUOS,v>9QD,Sv>@i?4H ,1JcIFN FTJSYS,: 5S;kiD 8<

  IFNB!	<A>,<.TQCHA==^@D<B>B17+ZZ>
  I`FNB 	<D>,<DEFINE ..TQMA<D>>
   IFNB	<C>,<.TQC=@=^D<B>B17+ZZ>
	 ZZ==ZZ+1ZZ>
	iG, |8,
	LSTOF.
	TQ(T,2,ASCIZ)		|@	
	TQ(O,2,OCTAL)|`			
	TQ(D,2,DECI}MAL)			
	TQ(F,2,} FILE)			
	TQ(7,2}@,CSEVEN)			
	TQ(}`6,2,CSIXBIT)			
~	TQ(W,2,SIXBIT)		~ 	
	TQ(5,2,SVNBIT~@)			
	TQ(P,2,USE~`R)			
	TQ(U,2,DIRECTORY)			
	TQ( H,2,DAYTIME)			
@	TQ(C,2,TIME)			
	TQ(E,2,ERROR)			
	TQ(I,1,INDIRE CT)		
	TQ(M,0,CR@,..TXC0(\".CHCRT)`)	
	TQ(J,0,LF,..TXC0(\".CHLFD))	
	TQ(L,0,FF,..TXC@0(\".CHFFD))	
	T`Q(K,0,VT,..TXC0(\".CHVTB))	
	TQ(A ,0,NOCRLF,..TXA(.@TQCHA))	
	TQ(0,0`,NULL,..TXA(.TQCH0))	
	TQ(3,0,STR ING,..TXER(IQU))	@
	TQ(V,2,VERSION`)			
	TQ(2,0,CARET,..TXER(IQU))	
	TQ(Q,2,POINTER)@			
	TQ(B,2,ROB)`			
	TQ(1,2,OBJECT)			
	TQ(N,2,N ODE)			
	TQ(R,2,@JIB)			
	LSTON.
)			
	LSTON. &1Ce
	LSTOF.
	X(33,TTY33,33,)7q				
	X(35,TTY3581,35,)				
TOPS208<
	X(37,TTY37,378Y,)				
	X(EXECUP8xORT,EXEC,EXE,)			9
>
TOPS10<
	X(98LA120,LA120,L12,)9X			
>
	X(LA36,L9xA36,L36,)			
	X(:VT05,VT05,V05,<37:8,177,177,177>)	
:X	X(VT100,VT100,10:x0,<.CHESC,"[","K";>)	
	X(VT50,VT50;8,V50,<.CHESC,"J">;X)		
	X(VT52,VT52;x,V52,<.CHESC,"J"><)		
TOPS10<	X(VT<861,VT61,V61,<.CHE<XSC,"J">)>		
	LSTON.
)>		
	LSTiK,PA iK4@ /i3

	..TRR==0	10		
	RADIX 8
	0(..NV==1			
	IRP 0HA,<
	  .TRV1 (0hA)>		
	$CALL	.TR1SET		
	 ..NV-1,,1(..NV-1
	RADIX ..1HTRR		
	PURGE ..TRR,..NVURGE ..Tib y	/H
		..TX(C,A,<B>)..TX(Cib zI/T
		..TX(CA,A,<B>).TX(CibP yI/L
		..TX(CE,A,<B>).TX(Cib` z	/P
		..TX(CN,A,<B>).TX(Cibp s	/
		..TX(N,A,<B>)..TX(Nibt tI/$
		..TX(NA,A,<B>).TX(NibtP sI/
		..TX(NE,A,<B>).TX(Nibu` t	/ 
		..TX(NN,A,<B>).TX(Nibx u	/(
		..TX(O,A,<B>)..TX(Oib| vI/4
		..TX(OA,A,<B>).TX(Oib|P uI/,
		..TX(OE,A,<B>).TX(Oib}` v	/0
		..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 w	/8
		..TX(Z,A,<B>)..TX(ZicT xI/D
		..TX(ZA,A,<B>).TX(ZicTP wI/<
		..TX(ZE,A,<B>).TX(ZicU` x	/@
		..TX(ZN,A,<B>).TX(Zm:7 |q'm
	IFG  <}AMAN-ADEV>,<AED}0T==:AMAN>
	IFLE}P <AMAN-ADEV>,<AEDT==:ADEV>
mKc@ ~'sBYTE (3)A~1WHO (9)AVER (6)AMIN (18)AEDTo&  B9,<^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 7C9
.TIC==..Z
..Z==..Z+1=q"eJ  P q*-` +

q+= +
q6~i4 C q? I0$
	TXC A,<B>
	TXC A,q@ y(	IFB <C>,<A==:B> IFNB <C>,<A=:B>B <CqBp +qN5P +up Xi5L
	IFNB <Y	B>,<..STR1 (..TQZY(,,<B>,A,..STR4)YH>
	IFB  <B>,<SETZM A><B>,<SEuhP 	;z "IJ$
	.$RESET"i
	$TYPE (.CMACT)#
	$HELP (<>)
	$#(NEXT (A)
IFIDN #H<B> <>,< IRP C,#h<C>
			.$BUILD>$
IFDIF <B> <>,<$(
	$HELP (B)
	I$HRP C,<C>
	.$BUILD><C>
	.$BU	0 m1>o
.WTOX.(.OMmQACK,<A>,<B>,<Cmp>,<D>,<$WTFLG(WT.SJI),E>)LG(WT	J7 _!E|DEFINE .$R_ATN <A>
			.%RTN==1A>
			.%RTN	fI9 Z!ETDEFINE .$LZAST <A+1>
			.%LST==11>
			.%L	
=Z ])5r
	  IFG ]IA-INT.LV,<PRINTX ]h?Level A interru^pts not supported^(>
	  .BGINT.(\A)   .BGINT.(\A	X5 \AEfDEFINE .$B\aREA <A>
			.%BREA==1>
			.%BR	- `	6
	  IFDEF`) ..BSIZ,<PRINTX ?`HMissing $EOB afte`hr a $BUILD>
	  .a.BSIZ==0			
	  .a(.BLOC==.			
	  RaHEPEAT A,<			
		ahBLD0.(\..BSIZ,0)	b
		..BSIZ==..BSIZ+1>	
	==..BSI		}[0 
	.$RESET
	$TYPE (.CMCMA)
	$NEXT (A)
	IRP B,<B>
	.$BUILD,<B>
	.$BU	I@ 	iHR
	.$RESET
	
	$TYPE (.CMCFM)
(
	IRP A,<A>
	.$BUILD,<A>
		$^ II,
	.$RESETi
	$TYPE (.CMTXT)
	$HELP (<>)
	$(NEXT (A)
IFIDN H<B> <>,< IRP C,h<C>
			.$BUILD>
IFDIF <B> <>,<(
	$HELP (B)
	IHRP C,<C>
	.$BUILD><C>
	.$BU	I  	I8
	.$RESET)
	$TYPE (.CMTAD)H
	$PDATA (CM%IDAh)
	$NEXT (A)
	IRP B,<B>
	.$BUILD,<B>
	.$B	,,U _)5|
	  $RET	_I			;WILL INVOKE RIGHT ROUTINE
		,h: XAEHDEFINE .$DXaEFM <POINT 7,[ASCYIZ\A\]>
			.%DEFM==1>
			.%DE	.` )I
	.$RESETI
	$TYPE (.CMDEV)h
	$NEXT (A)
	IRP B,<B>
	.$BUILD,<B>
	.$BU	Lz: x)GT
	.$RESETxI
	$TYPE (.CMNUX)xh
	$PDATA (B)
	y$HELP (<>)
	$NEXy(T (A)
IFIDN <CyH> <>,< IRP D,<Dyh>
			.$BUILD>
IzFDIF <C> <>,<
	z($HELP (C)
	IRP zHD,<D>
	.$BUILD><D>
	.$BUILD	N  
iH\
	.$RESET	
	$TYPE (.CMDIR)(
	$NEXT (A)
	IHRP B,<B>
	.$BUILD,<B>
	.$BU	|  g	6T
	  IFNDEg)F ..BSIZ,<PRINTX gH?$EOB without preghvious $BUILD>
	 h IFN <.-..BLOC>,<h(PRINTX ?Address chHhange between $BUhhILD and $EOB>
	 i LSTOF.			
	  ..i(T==0
	  REPEAT .iH.BSIZ,<
	    BLDih0.(\..T,1)		
	  j  ..T==..T+1 >
	j(  PURGE ..BSIZ,..jHT,..BLOC	
	  LSTON.
		
	  LST	+y [aE`DEFINE .$E\RTN <A>
			.%ERTN==1>
			.%ER	, ]!ElDEFINE .$E]ARTN <1B0+A+1>
			.%ERTN==1>
		- ^EvDEFINE .$E^!RTN <[MOVEI S2,[A^@SCIZ\A\]
				  ^`    $RETF]>
			.%ERTN==1>
			.	H6 q7
	$CALL	.q!STOP
	LSTOF.
	Jq@UMP	[XWD 0,[ITEXTq` (<A>)]
		 EXP r%%.MOD]
	LSTON. .MOD]
	LSTON. 	L[ )HJ
	.$RESETI
	$TYPE (.CMFLD)h
	$NEXT (A)
	$HELP (<>)
IFIDN (<B> <>,< IRP C,H<C>
			.$BUILD>h
IFDIF <B> <>,<	
	$HELP (B)
	I	(RP C,<C>
	.$BUILD><C>
	.$BU	MI  iH6
	.$RESET	
	$TYPE (.CMFIL)(
	$HELP (<>)
	$HNEXT (A)
IFIDN h<B> <>,< IRP C,<C>
			.$BUILD>(
IFDIF <B> <>,<H
	$HELP (B)
	IhRP C,<C>
	.$BUILD><C>
	.$BU	dy UaE0DEFINE .$FVLGS <A>
			.%FLGS==1>
			.%FL	ex: iI
	.$RESET	
	$TYPE (.CMFLT)(
	$HELP (<>)
	$HNEXT (A)
IFIDN h<B> <>,< IRP C,<C>
			.$BUILD>(
IFDIF <B> <>,<H
	$HELP (B)
	IhRP C,<C>
	.$BUILD><C>
	.$BU	$ p73x
	  INTERpAN A
	  $DATA(A,<B>)
	ATA(AK"6}1iK,P	"
	IFDIF <WAA> <>,<
DEFINE W`.$HLPM <POINT 7,[XASCIZ\A\]>
			.%HLPM==1>
			.	&5 iH
	.$RESET	
	$TYPE (.CMIFI)(
	$HELP (<>)
	$HNEXT (A)
IFIDN h<B> <>,< IRP C,<C>
			.$BUILD>(
IFDIF <B> <>,<H
	$HELP (B)
	IhRP C,<C>
	.$BUILD><C>
	.$BU	&u IHz
	.$RESETi
	$NEXT (A)
	$TYPE (.CMINI)
	I(RP B,<B>
	.$BUILD,<B>
	.$BU	./ t	G(
	.$RESETt)
	$TYPE (.CMKEY)tH
	$PDATA (B)
	th$NEXT (A)
	IRP uC,<C>
	.$BUILD,<C>
	.$BUILD	./ rIG
	.$RESETri
	$TYPE (.CMKEY)s
	$PDATA (A)
	s($NEXT (0)
	IRP sHB,<B>
	.$BUILD,<B>
	.$BUILD	/>KyDp?.WTOX.(.OMp1WTR,,,,<A>,<$WTFLG(WT.KIL),B>)	2|p o1>}.WTOX.(.OMoQLOG,<A>,<B>,<C>,,<D>)B>,<C	:/
			.%NXT==1A>
			.%NXT	:|KV iJ
	.$RESET 	
	$TYPE (.CMNOD) (
	$HELP (<>)
	$ HNEXT (A)
IFIDN  h<B> <>,< IRP C,!<C>
			.$BUILD>!(
IFDIF <B> <>,<!H
	$HELP (B)
;	!h$FLAGS (CM%PO)
	"IRP C,<C>
	.$BUILD><C>
	.$B	:}r {	Gb
	.$RESET{)
	$TYPE (.CMNOI){H
	$PDATA (<POINT{h 7,[ASCIZ\B\]>)
	$NEXT (A)
	IR|(P C,<C>
	.$BUILD,<C>
	.$BUI	;-XR uIG>
	.$RESETui
	$TYPE (.CMNUM)v
	$PDATA (B)
	v($HELP (<>)
	$NEXvHT (A)
IFIDN <Cvh> <>,< IRP D,<Dw>
			.$BUILD>
Iw(FDIF <C> <>,<
	wH$HELP (C)
	IRP whD,<D>
	.$BUILD><D>
	.$BUILD	>5 )H"
	.$RESETI
	$TYPE (.CMOFI)h
	$NEXT (A)
	$HELP (<>)
IFIDN (<B> <>,< IRP C,H<C>
			.$BUILD>h
IFDIF <B> <>,<
	$HELP (B)
	I(RP C,<C>
	.$BUILD><C>
	.$BU	B$ VAE6DEFINE .$DVaATA <A>
			.%DATA==1>
			.%DA	B$YP YAENDEFINE .$DYaEFM <POINT 7,<A>>
			.%DEFM==1	CYT `FDEFINE .$D`!EFR <A>
			.%DEFR==1>
			.%DE	G-} IId
	.$RESETi
	$TYPE (.CMQST)
	$HELP (<>)
	$(NEXT (A)
IFIDN H<B> <>,< IRP C,h<C>
			.$BUILD>
IFDIF <B> <>,<(
	$HELP (B)
	IHRP C,<C>
	.$BUILD><C>
	.$BU	J.I  nq6{
	  $CALLo	.RETE			
		LSTOo0F.
	  JUMP	ERA$
		LSTON.ERA$	Ni  :	4N
	.NVR==0:)			
	.ACM==0			

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

	IFN .A=(CM,<	
	    IFE <=H.ACM-17B<T4>>,<.A=hCM==0
				$CALL >.SAVET>
	    IFE>( <.ACM-377B<.A16>>H>,<.ACM==0
				$>hCALL .SAVE8>
	  ?  IFE <.ACM-17B<P?(4>>,<.ACM==0
			?H	$CALL .SAVE4>
	?h    IFE <.ACM-7B<@P3>>,<.ACM==0
		@(		$CALL .SAVE3>
@H	    IFE .NVR,<	
	    IFE <.ACM-3AB<P2>>,<.ACM==0
A(				$CALL .SAVE2>AH
	B  IFE <.ACM-Ah1B<P1>>,<.ACM==0
				$CALL .SAVE1B(>
	    IFE <.ACMBH-1B<.A13>>,<.ACM=Bh=0
				$CALL .SVC13>
	    IFE <.AC(CM-1B<.A14>>,<.ACCHM==0
				$CALL .ChSV14>
	    IFE <D.ACM-1B<.A15>>,<.D(ACM==0
				$CALLDH .SV15>
	    IFEDh <.ACM-1B<.A16>>,E<.ACM==0
				$CAE(LL .SV16>
	    >EH>

	IFN .ACM,<	Eh
	    IFE .NVR,<F			
		CAIA			
	F(	LSTOF.
		JRST FHb>

	    .ACB==Fh0			
	REPEAT ^D1G6,<			
	    IFN G(<.ACM&1B<.ACB>>,<GH	
		..PUSH(\.ACBGh,\<.NVR+1>)>
		.HACB==.ACB+1>>		
H(
	IFN .NVR,<	
	HH    PUSH P,[[CAIAHh		
		     AOS -.INVR(P)	
	    REPI(EAT .NVR,<..POP(\IH.NVR)>	
		     PIhOPJ P,0]]>	
b:!	LSTON.>	
b:!	N.@ bI6$
	  IFNDEbiF ..BSIZ,<PRINTX c?$SET without prec(vious $BUILD>
	 cH IFNB <B>,<..STRch0 (..SET,<C>,B,dA)>
	IFB  <Bd(>,<..STR0 (..SET,dH<C>,FWMASK,A)>
	,FWMASK,A)>
	a==.
*)	XWD b-1,b-1
	*HDEFINE $ETAB <
		b==.-a> <
		O%| u!72
S..A::!uA	$CALL .STOP
		Lu`STOF.
		JUMP [XWvD 'A',[ITEXT (<v B>)]
			EXP %%.MOD]
		LSTON.	M	O= ~)Gz
	.$RESET~I
	$TYPE (.CMSWI)~h
	$PDATA (A)
	$NEXT (0)
	IRP (B,<B>
	.$BUILD,<B>
	.$BUILD	O= |iGn
	.$RESET}	
	$TYPE (.CMSWI)}(
	$PDATA (B)
	}H$NEXT (A)
	IRP }hC,<C>
	.$BUILD,<C>
	.$BUILD	R

@ 	IP
	.$RESET)
	$TYPE (.CMTAD)H
	$PDATA (<CM%IDhA!CM%ITM>)
	$NEXT (A)
	IRP B,<B>
	.$BUILD,<	R/
	$CALL	Tw%TEXT
	LSTOF.	XCw REF
	JUMP	[XWD 2w@,0
		 EVL (A)
w`		 ITEXT(<B>)]	
	LSTON.B>)]	
	.$RESETi
	$TYPE (.CMTAD)
	$PDATA (CM%ITM()
	$NEXT (A)
	HIRP B,<B>
	.$BUILD,<B>
	.$B	R}97 %	J2
	.$RESET%)
	$TYPE (.CMTOK)%H
	$PDATA (<POINT%h 7,[ASCIZ\B\]>)
	$NEXT (A)
	IR&(P C,<C>
	.$BUILD,<C>
	.$BUI	S 
a8B


  ..TX	qA(.TQA,C,D,E,B)	
      IFN .A.TXEF,<			
	..TE!RR<$TQ(A,B,C,D,E)>>

C,	S@I9 !Q:-
	LSTOF.
	X(UQU,Unknown q"ualifier)
	X(IQU"0,Invalid qualifie"Pr)
	X(IJA,Invali"pd justification a#rgument)
	X(IWA,#0Invalid width arg#Pument)
	X(PEA,Pr#pemature end of ar$gument)
	X(JNA,J$0ustification is n$Pot allowed)
	X(A$pNA,Arguments are %not allowed)
	X(%0ADS,Address must %Pbe specified)
	LSTON.
ied)
	L	SN	  UE*DEFINE .$TU!YP <A>
			.%TYPE==1>
			.%TYP	W= 	Iz
	.$RESET)
	$TYPE (.CMUQS)H
	$HELP (<>)
	$hNEXT (A)
	$PDATA (B)
IFIDN <C(> <>,< IRP D,<DH>
			.$BUILD>
IhFDIF <C> <>,<
	$HELP (C)
	IRP (D,<D>
	.$BUILD><D>
	.$BUILD	W\@

	Hf
	.$RESET

)
	$TYPE (.CMUSR)

H
	$NEXT (A)
	I

hRP B,<B>
	.$BUILD,<B>
	.$BU	^+@ rA7&
IFE %%.OraTS,<DEFINE $WARN s(MSG) <
		$TEXT s (T%TTY,<% ^W6/[%%s@.MOD]/ MSG>)>>
Is`FN %%.OTS,<DEFINEt $WARN (MSG) <
	t 	$TEXT (T%TTY,<% t@^W6/IIB+IB.PRG/ ^t`W/[%%.MOD]/ MSG>)>>
	$WARN <A>	_$r a1>
		IFB	<aQA>,<.WFACD==0
		ap	IFN <0-2>,<.$WACbD==0>>
		IFNB	<b0A>,<.WFACD==-1
	bP		IFN <0-2>,<.$WAbpCD==.$WACD!<A>>
			IFE <0-2>,<DEc0FINE .$WACD,<<WO.cPACD>B8+[ITEXT (<A>)]>>
		>
<	_$u V1=E
		IFB	<VQA>,<.WFACK==0
		Vp	IFN <0-2>,<.$WACWK==0>>
		IFNB	<W0A>,<.WFACK==-1
	WP		IFN <0-2>,<.$WAWpCK==.$WACK!<A>>
			IFE <0-2>,<DEX0FINE .$WACK,<<WO.XPACK>B8+[ITEXT (<A>)]>>
		>
<	_$+ H>[
	IFE	<.WH1FMTY>,<PRINTX ?NoHP message type in Hp$WTBLD>
DEFINE .IEAWTO(SUFFIX,ARGCI0OD),<
IFN .WF'SUIPFFIX',<
	IFE	<ARIpGCOD-0>,<<WO.'SUFJFIX'>B8+ .$W'SUFFJ0IX'>
	IFE	<ARGCOJPD-1>,<<WO.'SUFFIXj0'>B8+ [EXP .$W'SUjPFFIX']>
	IFE	<ARjpGCOD-2>,<.$W'SUFFkIX'>
>
>
	ALLWk0TO				
	EXP	0			
		
	EXP	0				_$k Y=[
		IFB	<Y1A>,<.WFFLG==0
		YP	IFN <1-2>,<.$WFLYpG==0>>
		IFNB	<ZA>,<.WFFLG==-1
	Z0		IFN <1-2>,<.$WFZPLG==.$WFLG!<A>>
			IFE <1-2>,<DE[FINE .$WFLG,<<WO.[0FLG>B8+[ITEXT (<A>)]>>
		>
<	_%(W ^Q>
		IFB	<^qA>,<.WFJBN==0
		_	IFN <0-2>,<.$WJB_0N==0>>
		IFNB	<_PA>,<.WFJBN==-1
	0p		IFN <0-2>,<.$WJ`BN==.$WJBN!<A>>
			IFE <0-2>,<DE`PFINE .$WJBN,<<WO.`pJBN>B8+[ITEXT (<A>)]>>
		>
<	_%YV fq>I
		IFB	<gA>,<.WFMFL==0
		g0	IFN <1-2>,<.$WMFgPL==0>>
		IFNB	<gpA>,<.WFMFL==-1
	h		IFN <1-2>,<.$WMh0FL==.$WMFL!<A>>
			IFE <1-2>,<DEhpFINE .$WMFL,<<WO.iMFL>B8+[ITEXT (<A>)]>>
		>
<	_%] K1<m
		IFB	<KQA>,<.WFMTY==0
		Kp	IFN <0-2>,<.$WMTLY==0>>
		IFNB	<L0A>,<.WFMTY==-1
	LP		IFN <0-2>,<.$WMLpTY==.$WMTY!<A>>
			IFE <0-2>,<DEM0FINE .$WMTY,<<WO.MPMTY>B8+[ITEXT (<A>)]>>
		>
<	_%kr [q=q
		IFB	<\A>,<.WFNOD==0
		\0	IFN <0-2>,<.$WNO\PD==0>>
		IFNB	<\pA>,<.WFNOD==-1
	]		IFN <0-2>,<.$WN]0OD==.$WNOD!<A>>
			IFE <0-2>,<DE]pFINE .$WNOD,<<WO.^NOD>B8+[ITEXT (<A>)]>>
		>
<	_%p kq>a.WTOX.(.OMlWTO,<A>,<B>,<C>,,<D>)B>,<C	_%xU SQ=/
		IFB	<SqA>,<.WFOBJ==0
		T	IFN <0-2>,<.$WOBT0J==0>>
		IFNB	<TPA>,<.WFOBJ==-1
	Tp		IFN <0-2>,<.$WOUBJ==.$WOBJ!<A>>
			IFE <0-2>,<DEUPFINE .$WOBJ,<<WO.UpOBJ>B8+[ITEXT (<A>)]>>
		>
<	_%xr d>3
		IFB	<d1A>,<.WFOCD==0
		dP	IFN <0-2>,<.$WOCdpD==0>>
		IFNB	<eA>,<.WFOCD==-1
	e0		IFN <0-2>,<.$WOePCD==.$WOCD!<A>>
			IFE <0-2>,<DEfFINE .$WOCD,<<WO.f0OCD>B8+[ITEXT (<A>)]>>
		>
<	_%z@ n1>w.WTOX.(.OMnQWTO,<A>,<B>,<Cnp>,,<$WTFLG(WT.JOB),D>)LG(WT.JOB	_%|@ lQ>g
.WTOX.(.OMlqWTR,<A>,<B>,<C>,<D>,<E>)<C	_&,z K>M
	DEFINE	Jq.EAWTO(SUFFIX),<$iQWT'SUFFIX'	<>>
	ALLWTO				

		_&N Pq=
		IFB	<QA>,<.WFTXT==0
		Q0	IFN <2-2>,<.$WTXQPT==0>>
		IFNB	<QpA>,<.WFTXT==-1
	R		IFN <2-2>,<.$WTR0XT==.$WTXT!<A>>
			IFE <2-2>,<DERpFINE .$WTXT,<<WO.STXT>B8+[ITEXT (<A>)]>>
		>
<	_&N8 N=
		IFB	<N1A>,<.WFTYP==0
		NP	IFN <2-2>,<.$WTYNpP==0>>
		IFNB	<OA>,<.WFTYP==-1
	O0		IFN <2-2>,<.$WTOPYP==.$WTYP!<A>>
			IFE <2-2>,<DEPFINE .$WTYP,<<WO.P0TYP>B8+[ITEXT (<A>)]>>
		>
<
t{P 
u[rQ ]>t2
u}P .
P .JP .bP /P B&@P cGP )0 F0KJLlbZ6 iIG			

	dii==<FLD(.$TYP,CM%FjNC)>!.$FLGS!<.$LSj(T> 

	IFN <.%BRjHEA>,<d==d!CM%BRjhK> 

	IFN <.%HLkPM>,<d==d!CM%HPk(P!CM%SDH> 
					kH	

	IFN <.%DEFMkh>,<d==d!CM%DPP>l 

c:!	XWD	b,l(a			

	EXP d	lH			

	EXP .$DATlhA			

IFN <.%HLmPM!.%DEFM!.%BREA>m(,<
		EXP	.$HLPM>mH		


IFN <.%DEmhFM!.%BREA>,<
		EnXP	.$DEFM>		

n(
IFN <.%BREA>,<	EnHXP	.$BREA>		

	nha==.-c			;LENGToH OF THE FDB

Io(FN <.%NXT!.%DEFR!oH.%RTN!.%ERTN>,< EohXP .$NXT >	

IFpN <.%DEFR!.%RTN!.p(%ERTN>,<EXP .$RTNpH >	

IFN <.%DEFphR!.%ERTN>,<	EXP	.q$ERTN>	

IFN <.q(%DEFR>,<		EXP	.$DqHEFR>	


	b==.qh-c			

	IF2<	PrURGE a,b,c,d>
	LISTb,c,d>$YV aAF

POINT7,[ASCIZ\0\]NTr7,[A$YYF0KJMm.- F0/KJLkB5Iy F0%KJ49Bf= F0+1KJ5iBw
	SALL
	d)XLIST
	DEFINE .$dHTYP <0>
	.%TYPE=dh=0
	DEFINE .$FLGeS <0>
	.%FLGS==0e(
	DEFINE .$DATA eH<0>
	.%DATA==0
eh	DEFINE .$HLPM <>f
	.%HLPM==0
	DEf(FINE .$DEFM <0>
fH	.%DEFM==0
	DEFIfhNE .$LST <0>
	.%gLST==0
	DEFINE .g($BREA <0>
	.%BREgHA==0
	DEFINE .$NghXT <0>
	.%NXT==0h
	DEFINE .$ERTN h(<0>
	.%ERTN==0
hH	DEFINE .$RTN <0>hh
	.%RTN==0
	DEFiINE .$DEFR <0>
	.%DEFR==0<0>
	K@F0KJMHb'ID^0T 1,)0P $YVP $YYP .-P 5IyP f=P w
	   ..ASbi1==-<B>	
	IFDEFc .PSECT,<
	.IFN c(..AS1,ABSOLUTE,<
	     C A,[-..chAS1]>	
	.IF ..ASd1,ABSOLUTE,<
		.d(.AS2==0	
	  IFE dH<..AS1&^O777777B1dh7>,<
		..AS2==1	e
	    DI A,..Ae(S1>
	  IFE ..AS2eH,<
	    ..OP(A,ehB,C)>	
	PURGE f..AS1,..AS2>>
	If(FNDEF .PSECT,<
	fH	..AS2==0	
	  IFfhE <..AS1&^O777777gB17>,<
		..AS2==g(1	
	    DI A,.gH.AS1>
	  IFE ..AghS2,<		
	    ..OPh(A,B,C)>
	PURGE ..AS1,..AS2>:h 0>
	A: UI-x
	  ..CX1Ui==C
	IFDEF .PSEVCT,<
 	.IFN ..CXV(1,ABSOLUTE,<
	  VH    CAMA B,[C]Vh>
	.IF ..CX1,ABSW	OLUTE,<	
		..CX2W(==0	
	  IFE <..CWIX1&^O777777B17>,<Wh
		..CX2==1	
	 X   CAIA B,C>
X(	  IFE ..CX2,<		
	    CAMA B,[\hC]>
	PURGE ..CX1],..CX2>>
	IFNDEF]( .PSECT,<
		..CX]H2==0	
	  IFE <..]hCX1&^O777777B17>,^<
		..CX2==1	
	^(    CAIA B,C>
	  IFE ..CX2,<		^h
	    CAMA B,[_C]>
	PURGE ..CX1,..CX2>GE ..CX:&@ Pi5
	..TSIZ Q	(..PST,C)
	.CASQ(E ..PST,<<
		MOVQHEM A,B>,<
		HRQhRM A,B>,<
		HRRLM A,B>,<
		DPR(B A,[POINTR (B,C)]>>INTR (B,:<;Y ()2F
   DEFIN(IE ..CNS2 (NEW,OLD(h)<
	  OLD>			
	..CNS ()>			
	:L;Y &	2>
   DEFIN&)E ..CNS (%%%)<
	&H..CNS2 <%%%>,>
"h	  ..MSK=..MSK!<E>>MSK=..MSK!<;LJ #)2,

	IFDIF <#ID><F>,<	
	  IF#hNB <D>,<
	    I$FNB <F>,<		
		$(A1 (B,D,..MSK)>$H 
	    IFB <F>,$h<		
		A2 (B,D%,..MSK)>> 
	  ..%(MSK==0>		
	IFNB %H<F>,<
	  ..MSK=..MSK!<E>>MSK=;$\Y '1:G
&IF1,<
    PRINTX ? Err'or in "A"
    D'aEFINE X(NAM,ERR) (1<IFN ..X'NAM&..TX(PEF,<PRINTX ? ERR>(p>
    $TX$ERR>

    $TX$ERR>
;$^ *Q:}

    ..*qTXF==0				
    .+.TXB==0				
    +0..TXP==0				
   +P ..TXEG==<..TXEF=+p=0>			
    IRPC ,A,<				
	..TXC=,0=ASCII\A\-35		
	IFN ..TXB,<IFN ,p..TXB-..TXC,..CNS-(<A>)
		   IFE -0..TXB-..TXC,..TXB-P==0>
	IFE ..TXB,-p<..TXQ(<A>,\..TX.F)>>	
    ..TXC1.0				
    IFN ..T.PXB,<IFN <..TXB-"^.p">,<..TXER(PEA)>>/
    ..TXEF==..T/0XEF!..TXEG		
   /P IFN ..TXEF,<..TERR<A>>
,<..TE;&(TH0)..TXA(.TQC;&) Q8u..TXER(IQU)..TXER(IQU;&) 8p..TXER(IQU)..TXER(IQU;&0

A8d..TXC0(\".CHVTB).TXC0(\".;&6

8`..TXC0(\".CHFFD).TXC0(\".;&6 8X..TXC0(\".CHCRT).TXC0(\".;&@ Z	5f
	..TSIZ Z)(..PST,C)	
	.CAZHSE ..PST,<<
		SEZhTZM B>,<	
		HLL[ZS B>,<	
		HRRZ[(S B>,<	
	  ..TS[HAC (..ACT,B)	
	[h  .IF0 ..ACT,<
	\	$CALL .ZERO	
		\(LSTOF.
		JUMP [P\HOINTR(B,C)]
		\hLSTON.>,<
		..TX (Z,B,C)>>>TX;&81 	i0f
	IFNDEF 
	.PSECT,<
	A==0	
(		
	..TSA1==<Z 
HB>		
	  IFE ..TS
hA1&^O777777777760,<A==1> 
	>
	I(FDEF .PSECT,<
	HA==0			
	..TSA1=h=<Z B>		
	.IF .

.TSA1,ABSOLUTE,<

(
	  IFE ..TSA1&^

HO777777777760,<A

h==1>> 
	PURGE ..TSA1>
	PURGE ..;&:= )0J
	A==3		I	
	IFE <B>+1,<hA=0>	
	IFE <B>-	^O777777,<A==1> 	(
	IFE <B>-^O777777B17,<A==2>7;' nI0
   ..TX1ni==C			
IFDEF .PoSECT,<
   .IFN .o(.TX1,ABSOLUTE,<
oH	TDA B,[C]>
 p  .IF ..TX1,ABSOLoiUTE,<		
	..TX2==p)0		
	IFE <..TX1&pI^O777777B17>,<
	ph  ..TX2==1		
	  qTRA B,..TX1>
	q(IFE ..TX2,<		
	IqHFE <..TX1&^O77777qi7>,<
	  ..TX2==1r			
	  TLA B,(.r(.TX1)>>
	IFE ..TrHX2,<		
	  IFE <<rh..TX1>B53-^O77777{	7>,< 
	    ..TX3{( (A,B)>>	
	IFE{H ..TX2,<		
	  TD{hA B,[..TX1]>	
|	PURGE ..TX1,..TX|(2>>
IFNDEF .PSEC|HT,<
	..TX2==0		
	IFE <..TX1&^O77}7777B17>,<
	  ..}(TX2==1		
	  TRA}H B,..TX1>
	IFE }h..TX2,<		
	IFE <~..TX1&^O777777>,<~(
	  ..TX2==1		
~H	  TLA B,(..TX1~h)>>
	IFE ..TX2,<		
	  IFE <<..TX(1>B53-^O777777>,<H 
	    ..TX3 (Ah,B)>>	
	IFE ..TX2,<		
	  TDA (B,[..TX1]>	
	PURGE ..TX1,..TX2>;'` i0
	IFIDN <	A><Z>,<		
	  ..(TX2==1
	  ANDI HB,^-..TX1>	
	IFIhDN <A><O>,<		
	  ..TX2==1
	HOR(CMI B,^-..TX1>	
	IFIDN <A><C>,<h		
	  ..TX2==1
	  EQVI B,^-..TX1>QVI B,^-..TX;'  q9s

	..TXEF==0			

IFNDEF0 A,<..TXER(UQU)>P		
IFDIF <B><>,p<IRPC B,<.IFN <B>,NUMERIC,..TXER0(IWA)>>
IFNB <CP>,<IFNDEF .TXTJCp,<..TXER(IJA)>>
IFDEF  A,<
  IF0E <A_-^D18>,<IFDPIF <EFBCD><>p,<..TXER(ANA)>>
  IFE <1-<A_-^D108>>,<IFDIF <BCPD><>,<..TXER(JNA)p>>
  IFE <2-<A_-^D18>>,<IFIDN <0EF><>,<..TXER(ADPS)>>>

      IFpE ..TXEF,<
	IFIDN <B><>,<..TXWD=0=<..TXJU==<..TXFCP==0>>>
	IFDIF <pB><>,<
	  IFE <^D<B>>,<..TXWD==<0..TXJU==<..TXFC==P0>>>
	  IFN <^D<pB>>,<..TXWD==^D<B>
	    IFNB <0C>,<..TXJU==.TXTJPC>
	    IFB  <pC>,<..TXJU==.TXTJL
	      IFE <A0-.TQOCT>,<..TXJU=P=.TXTJR>
	0    pIFE <A-.TQDEC>,<..TXJU==.TXTJR>>
	    IFB  <D>,<P..TXFC==" ">
	  p  IFNB <D>,<..TXFC=="D">>>

	I0FB  <EF>,<..TXPPT==0>
	IFNB <EpF>,<..TXPT==1>
	IFE <..TXWD+..TXP0T>,<
	    EXP FLPD(A,TXT.FN)>
	IpFN <..TXWD+..TXPT>,<
	    EXP FLD0(A,TXT.FN)+FLD(.P.TXJU,TXT.JU)+FLDp(..TXWD,TXT.WD)+FLD(..TXFC,TXT.FC)0+TXT.AD
	    PNTR(E,F)>>

T;'h A1<
    IFE AQ..TXP,<			
	..ICApNS			
	..CNS<ASCBIZ\>		
	..TXP==1B0>		
    ..CNS<ABP>			
    ..TXF==Bp0			
    ..TXB=="^"
    ..TXB==;'h C1<#

    IFCQN ..TXP,<			
	..CpCNS<\>		
	EXP <FDLD(.TQCHT,TXT.FN)D0+[..GCNS]>>
    ..TXP==0>
    ;'	9 )1:Q
    ..TX)QEF==..TXEF!..XA	)p	
    ..TXF==0		*		
    ..TXB=="^"
    ..TXB=="^;'

  0;..TXQB(<A>)..TXQB(<;'

( 0Q;

    IF0qN ..TXC-"^",<..TX1C0(<A>)>		
    10IFE ..TXC-"^",<..TXF==1>-"^",<..;'

( 1q;+

    IF2E ..TXC-"^",<..TX20C0(<A>)>	
    I2PFN ..TXF,<			
	.2p.TXF==0		
	IFDEF3 .TQCHA,<		
	  30  IFDEF ..TQMA,.3P.TQMA 
	    IFN3p <.TQCHA_-^D18>,4<..TXF==2>>>
   40 IFE ..TXF-2,<..T4PXC1(<A>)	
	..IC4pNS			
	..CNS<..T5XA(.TQCHA,>>	
 50   ..TXEG==..TXEG!..TXEF==..TXEG;'

) 5q;=
    ..TX6F==3				
    IFG60E ..TXC-"0",IFLE 6P..TXC-"9",<..TXF=6p=2>
    IFE ..TX7F-2,<..CNS(A)>		70
    IFE ..TXF-37P,<..CNS<,>		
		 ..TXQ3(A)>
		 ;'

) 8;Q
    ..TX81F==4				
    IFE8P ..TXC-"/",<..TXF8p==5>		
    IFE .9.TXC-"[",<..TXF==905>		
    IFE ..T9PXF-4,<..CNS<A,>>9p		
    IFE ..TXF:-5,<..CNS<,,>		
		 ..TXQ5(A)>
;'

* :Q;g
    ..TX:qF==4				
    IFE; ..TXC-"/",..TXF=;0=5		
    IFE ..T;PXC-"[",..TXF==5		;p
    IFE ..TXF-5<,<..CNS<,>		
		 <0..TXQ5<A>>		
  <P  IFE ..TXF-4,<..<pCNS<A,>		
		 ..TXF==5>	
		 ..;'

* =1;y
    ..TX=QF==6				
    IFE=p ..TXC-"/",..TXB=>="/"		
    IFE .>0.TXC-"[",..TXB==">P]"
    IFE ..TXB>p-"]",..CNS<[>		
?    IFE ..TXB,..TXF==5 ..TXB,..T;'

+ ?Q<
    ..TX?qF==0			
    IFE @..TXC-"]",..CNS<]@0>	
    ..CNS<)>	@P		
    ..GCNS			@p
    ..TXEG==..TXEG!..TXEF==..T;DQ @;DPQ ;EPQ ;E:Q  ;EpQ ;E+PQ ;F	0Q ;F\:Q @
0P 
@P 
PP 
`P d  6I34
	.ACV2 (A)
	.ACV2 (d@ 7	3>
	A=.FPA7)C+..NAC		
	IFB <7HB>,<..NAC=..NAC+7h1>
	IFNB <B>,<..NAC=..NAC+B>.d` 8)3L
	IFG A-8I.NPAC,<PRINTX ?TO8hO MANY ACS USED>
	IFLE A-4,<
	99( $CALL .SAVEA>	
	IFG A-4,<
	  $CALL .SAVE8>  
=Z ^i5v$CALL	I%INTA$CALL	I%IN9  )0<
	..CSN==IA
	..CSC==0
	IhRP B,<
	IFE ..CSN-..CSC,<
	  ST(OPI
	  ..CAS1 (HB)>
	..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 W	5B
	..PST==W)C-FWMASK
	.IF0 WH..PST,<
		SOS BWh>,<	
		$CALL .SOXS	
		LSTOF.
		JX(UMP [POINTR(B,C)]
		LSTON.>C} G1>Q
	.OPCD==j.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 	0.
	..IFT==)A		
	IFE ..IFT,H<
	B
	..IFT==0h>		
	IFN ..IFT,<
	C>N ..IFT,<&t<H T	5*
	..PST==T)C-FWMASK
	.IF0 TH..PST,<
		AOS BTh>,<	
		$CALL .AOUS	
		LSTOF.
		JU(UMP [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 1qD`
	IFG	A-L	MX.PID,<MX.PID==A>
C
G	A-OSP OYP O|P OyP O%=H +i2^
	.STKV2 (A)
	.STKV2 O%=I ,)2l
	IFB <B,I>,<..STKN==..STKN,h+1>
	IFNB <B>,<-..STKN==..STKN+B-(>
	..STKQ==..STK-HN+1
	.STKV3 (A,\..STKQ)V3 (A,O%=I .	2z
   IFDEF.) A,<.IF A,SYMBO.HL,<PRINTX STKVAR .hA 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  2	3
	.TRV2 (A)
	.TRV2 (Sd@ 2I3
	.TRV3 (2iA,\..NV)	
	IFB 3<B>,<..NV=..NV+13(>
	IFNB <B>,<..NV=..NV+B>,<..Sd` 3i3(
   IFDEF4	 A,<.IF A,SYMBO4(L,<PRINTX TRVAR 4HA ALREADY DEFINED4h>>
	DEFINE A<^O5B(.FP)>
	$A==<Z A>>
	$A==<SFH2P SFIVP SFJQP SFJVP SFJYP _%~ pq?#
		$CALL	qI%WTO		
		LSTOF.q0			
		JRST	g		
		$WTRST			
	IFqpNB <A>,<$WTMTY (r<A>)>	
	IFNB <r0B>,<$WTTYP (<B>)rP>	
	IFNB <C>,<$rpWTTXT (<C>)>	
	sIFNB <D>,<$WTOBJs0 (<D>)>	
	IFNB sP<E>,<$WTACK (<Esp>)>	
		IRP F,<tF>		
		$WTBLD			t0
	g:!
	LSTON.  g:!
	LSTON. kPP >}{woP