Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - glxmac.unv
There are 92 other files named glxmac.unv in the archive. Click here to see a list.
x
,5@P C4@ 	<Ke
	..NAC==	<80		
	IRP A,<
		<X  .ACV1 (A)>		
	.ACV3 (\..NAC)C' fF1..AS(A,B,ADD,SUB)(A,BC, G`D>LSH A,-^D9LSH A,-^DC2f} 
K@Tn
	.EAWTO(
K`MTY,0)
	.EAWTO(T
LYP,2)
	.EAWTO(TX
L T,2)
	.EAWTO(OBJ
L@,0)
	.EAWTO(ACK,
L`0)
	.EAWTO(FLG,1
M)
	.EAWTO(NOD,0)
M 
	.EAWTO(JBN,0)
M@
	.EAWTO(ACD,0)

M`	.EAWTO(OCD,0)
	.EAWTO(MFL,1)
C:' 	
XHU
	TXZ A,<^-<B>>TXZ A,CHuI7Q xCHvN8P'CJ9ip CJ9jp CJ9l}p E2"@ 	qXO
	  IFE 	qxB,<..TA==0>
	  	rIFN B,<EXP ..TA	r8
		    PURGE ..TA>
	PURGE ..TE@tP'E@vyQ ~E@v:=Q |F;z:Q @G@ _Ey
	    ..CX(,A,B)   ..CGD bXF
	    ..CX(A,A,B)  ..CGDP `XF
	    ..CX(E,A,B)  ..CGDp aF	
	..CX(G,A,B)  ..CGDy  aXF
	    ..CX(GE,A,B) ..CGE@ _XE}
	    ..CX(L,A,B)  ..CGEI  `F
	    ..CX(LE,A,B) ..CGE` bF
	    ..CX(N,A,B)  ..CGH 9[N

	  LST8`OF.

	X CRE	
	8 X GEN	
	X PRT	
9 	X CLS	
	X@AUT	
	X USW	
	X SPL	9@
	X SIZ   
	X M9`OD	
	X CHN	

	  LSTON.


	G"\Y

	IF1,EDT==AEDT>	
@
	IF2,<IFN><%%E
		PRTXe?nEditaNumbe
	`	A$WHO(\AEDT)>	
		A$NOTE		
	INTERN AEDT		
	INTERN LODLEV		
;`	PURGE %%EDT> ;END IF2

SB)iG4,YP G4,,UQ G4,LQ G4,[qQ G4,\qQ @G4,iVQ xG4,kQQ `G4,m:Q G4,m`Q @G4,zQP'G4-
Q  G4-Q @G4-ZQ G4- G4-Q  G4-LzP'G4-htQ G4-kxQ  G4-kyP G4-lsQ G4.	RQ G4.`Q @G4.
zQ G4.(4Q G4.,Q G4.9Q G4.=zQ G4.lXQ @G4.zsQ  G4/
3Q @G:YlP 
G>hKW ap
	IFNB <>b,<
	PRINTX  (Frob0m GLXVER)
	> ;END IFNB 
	G>hMt `0
	PRINTX `PGLXVER	GLXCOM Edi`pt(55) by CTK on 2a5-Sep-83
	PRINTXa0	    	GLXCOM	Actual Edit(A)
	G>lYP G>vC@ 	x@WLALL
PAGE
; (A Continued o
8n next page)
SAL
XL; (A Continued 
xfrom previous page) previous pagG?T H@ASCIZ .COPYRIGHT CIZ .COPGHt;rP GHtkP GHv	P GHv)9P GHv:=P I!k7P I!k<P ImP I$P`DK*IIY{P`DM*|I  	\8Mi
	IFNB <	\XB>,<..STR0 (.DECR	\x0,,<B>,A)>
	IF	]B  <B>,<SOS A>  <B>,<SOS A>I6= 	XI9
	A==<-1	xB<C>+1B<C-D>> 	
	IF1,<IFDEF %A	8,<PRINTX ?A ALRE	XADY DEFINED>>
	D	xEFINE %A (OP,AC,	Y,MSK)<	
	IFDIF 	8<Y><>,<
	OP (<AC	X>,B+'Y,MSK)>
	I	xFIDN <Y><>,<
	OP	 (<AC>,B'Y,MSK)>>AC>,B'Y,MSK)>I'7 hXFE..OP(A,B,DIV)..OP(A,BIOH1 
>pd
	IFB <D
?>,<
	XWD	[ASCIZ\
?0C\],[XWD B,A]>
?P
	IFNB <D>,<
	
?pXWD	[EXP CM%FW!D
@
		ASCIZ\C\],[XWD B,A]>
,[XKH(Q P 4KJ
,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 /KJLhBP 3KJLkBP 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 #KJtKBP 3KJtlP 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 6`[>
	IF1,<IF7DEF ERA$,PRINTX 7 ?Duplicate error 7@code A>
	ERA$=7`=ER%%%
	ER%%%==ER%%%+1
R%%%==EKKP KK,}P KKLP KK|Y 
{@[2
	ERR	EOF
{`,<End of file>
	
|ERR	IFP,<Illegal 
| file position>
	
|@ERR	FDE,<File dat
|`a error>
	ERR	FN
}D,<File is not on
}  disk>
	ERR	NSD,
}@<No such device>
}`
	ERR	FCF,<File c
~heckpoint failed>
~ 
	ERR	SLE,<A sys
~@tem limit was exc
~`eeded>
	ERR	IFS,
<Illegal file spe
 cification>
	ERR
@	FNF,<File not fo
`und>
	ERR	PRT,<Protection violati on>
	ERR	DNA,<De@vice not availabl`e>
	ERR	NCE,<No "current" entry i n list>
	ERR	NMA@,<No IPCF message` is available>
	ERR	FDS,<Files ar e on different st@ructures>
	ERR	F`AE,<File already exists>
	ERR	USE ,<Unexpected syst@em error>
	ERR	N`SP,<No such pid>
	ERR	BOL,<Beginn ing of list reach@ed>
	ERR	EOL,<En`d of list reached>
	ERR	RQF,<Rece ivers quota full>@
	ERR	SQF,<Sende`rs quota full>
	ERR	NRE,<No remem bered entry>
	ER@R	TBF,<Table is f`ull>
	ERR	EIT,<Table entry alread y exists>
	ERR	I@TE,<Invalid table` entry>
	ERR	QEF,<Quota exceeded  or disk full>
	E@RR	ARG,<Invalid a`rgument specified	>
	ERR	IFN,<Inva	 lid function spec	@ified>
	ERR	IJN,	`<Invalid job numb
er specified>
	E
 RR	RAD,<Invalid r
@adix specified>

`	ERR	NUM,<Invalid numeric argument >
	ERR	IDT,<Inva@lid date field sp`ecified>
	ERR	IT
F,<Invalid time f
 ield specified>

@	ERR	DOR,<Date/ti
`me out of range>
	ERR	DTM,<Valueet
	ERR	MDD,<Min date/time>
	ERR	DFZ ,<Field zero in d@ate/time>
	ERR	M`DS,<Mnemonic date/time switch not  implemented>
	ER@R	DFL,<Field too `large in date/time>
	ERR	ILR,<Ill egal year format @in date/time>
	E`RR	NND,<Negative number in date/ti me>
	ERR	NPF,<No@t known whether p`ast or future in date/time>
	ERR	 RDP,<Relative dat@e parse required>`
	ERR	NSW,<Switch does not begin  with slash>
	ERR@	NOM,<Unrecognize`d switch or keyword>
	ERR	NUL,<Nu ll switch or keyw@ord given>
	ERR	`INW,<Invalid guide word>
	ERR	NC, <Not confirmed>
@	ERR	ICN,<Invalid` character in number>
	ERR	NQS,<I nvalid quoted str@ing - does not be`gin with quote>
	ERR	AMB,<Ambiguo us switch or keyw@ord>
	ERR	NMT,<D`oes not match token>
	ERR	CMA,<Co mma not given>
	@ERR	NNC,<Node nam`e may not exceed 6 characters>
	E RR	INT,<Node term@inator "::" must `be specified>
	ERR	NSN,<Unknown n ode name>
	ERR	I@PS,<Invalid path `specification>
	ERR	IUS,<Invalid  user specificatio@n>
	ERR	DGS,<Dev`ice name may not exceed 6 characte rs>
	ERR	DNE,<Un@known device>
	E`RR	DIO,<Device can not do input or  output>
	ERR	BD@F,<Invalid date/t`ime format>
	ERR	ABS,<Field too l ong for internal @buffer>
	ERR	TMT`,<Command too long for internal bu ffer>
	ERR	BDS,<@Invalid default s`tring>
	ERR	BTF, <Invalid table fo  rmat>
	ERR	TME,< @Date/time must be ` in the future>
!	ERR	TMN,<No time! r entry has expir!@ed>
	ERR	TMA,<Ti!`mer entry already" exists>
	ERR	DV" T,<Device termina"@tor ":" must be s"`pecified>
	ERR	N#CI,<Argument bloc# k may not be in t#@he ACs>
	ERR	TLU#`,<Terminal locati$on is unknown>
	$ ERR	FIO,<File is $@offline>
	ERR	FB$`M,<File being mod%ified>
	ERR	WLK,% <Write-locked dev%@ice>
	ERR	CSD,<C%`annot supersede a& directory>
	ERR& 	CDD,<Cannot dele&@te a non-empty di&`rectory>
	ERR	SN'F,<Sub-file direc' tory not found>
'@	ERR	ESL,<Search '`list is empty>
	(ERR	LVL,<SFD leve( l nested deeper t(@han the maximum a(`llowed>
	ERR	CCW),<Cannot create/w) rite on any struc)@ture in search li)`st>
	ERR	FCU,<Ca*nnot update file>* 
	ERR	ENQ,<File *@has outstanding E*`nqueue lockes set+>
	ERR	SWS,<Soft+ ware write-lock o+@n structure>
	ER+`R	DER,<Hardware d,evice error>
	ER, R	DTE,<Hard data ,@error>
	ERR	BKT,,`<Block too large>-
	ERR	IPP,<Non-e- xistant UFD>
	ER-@R	TRN,<RIB or tra-`nsmission error>
	ERR	ILC,<Illega. l character in da.@te/time>
	ERR	NF.`T,<Date/time must/ be in the future/ >
	ERR	NPS,<Date/@/time must be in /`the past>
	ERR	U0DM,<Unrecognized 0 month in date/tim0@e>
	ERR	UDN,<Unr0`ecognized name in1 date/time>
	ERR1 	IFA,<Illegal fil1@e attribute>
	ER1`R	FAI,<File attri2bute inconsistanc2 y>
	ERR	CEI,<Can2@'t enable/disable2` interrupt system3>
	ERR	ENF,<Link3 ed list entry not3@ found>
	ERR	NSL3`,<No such linked 4list>
	ERR	NFP,<4 No free pages>
	4@ERR	NPI,<No free 4`pages for IPCF re5ception>
	ERR	IF5 B,<Indirect file 5@too big for inter5`nal buffer>	
	ER6R	NDN,<Null devic6 e name given>		
name given>		
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` 	~pP	
	IFIDN <	BC><>,<EXP <A>	0>
	IFDIF <BC><	P>,<
	 IFE <A+1>	p,<<POINT 7,C>>

	 IFN <A+1>,<
	
0   IFIDN <C><>,<
PEXP <A,B>>
	  
p IFDIF <C><>,<EX
P <A,B,C>>
	>>A,B,C>>
	>KbN@ 	`Kc  8@=IRP A,<
X	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 M&`KW WpC
	IFNB <>X,<
	PRINTX  (FroX0m GLXVER)
	> ;END IFNB 
	M&`Mt V0;
	PRINTX VPGLXVER	GLXFIL EdiVpt(111) by CTK on W19-Oct-84
	PRINTW0X	    	GLXFIL	Actual Edit(A)
	M&dYP $M2  L8Dc<<<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 MR4zQ MR6L`P MRV>9P MS.[yQ M^luQ O2|  @KIRP A,<
8	IF2,<IFDEF A,<.XIFN A,EXTERN,<INxTERN A>>
	     	IFNDEF A,<EXTERN	8 A>
	Q SUPPRESPA>>FlYSUPPRO3DYPF>O3EKrPf>O3EZ7PO3FLQ St\Yp Stkp SuZp SulQ Su}:p Sv
1p Sv
Sp Sv>@p SNn hFA..OP(A,B,IDIV).OP(A,BS7-N gF9..OP(A,B,IMUL).OP(A,BS:  	Y8MQ
	IFNB <	YXB>,<..STR0 (.INCR	Yx0,,<B>,A)>
	IF	ZB  <B>,<AOS A>  <B>,<AOS A>S:HKW d0'
	IFNB <>dP,<
	PRINTX  (Frodpm GLXVER)
	> ;END IFNB 
	S:HMt bp
	PRINTX cGLXVER	GLXINI Edic0t(22) by CTK on 2cP5-Sep-83
	PRINTXcp	    	GLXINI	Actual Edit(A)
	S:LYP 	S;k NxDw<<<A>B<POS(<B>)>>&<B>>S; KW kpc
	IFNB <>l,<
	PRINTX  (Frol0m GLXVER)
	> ;END IFNB 
	S; Mt j0[
	PRINTX jPGLXVER	GLXINT Edijpt(105) by DPM on k11-Jan-82
	PRINTk0X	    	GLXINT	Actual Edit(A)
	S;!kP S;!k<P S;$YP "S? 	
HQ
	TXO A,<B>
	TXO A,S@t,:P'S@t9QQ @S@t9QP S@t9RP `S@t9VP S@t9XP$S@t9YQ S@t9YQ  S@t9ZQ 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 \pk
	IFNB <>],<
	PRINTX  (Fro]0m GLXVER)
	> ;END IFNB 
	SBMt [0c
	PRINTX [PGLXVER	GLXIPC Edi[pt(66) by DPM on 2\6-Mar-84
	PRINTX\0	    	GLXIPC	Actual Edit(A)
	SBIP SBM"P SBYP SBlP SB2P SB
BP SB,BP SB,bP SB."P SB\P SB)iP SB)iP SB)kVP SB)kYP SB)lXP SB)lsP SB)lxP SB)mvP SBal}P SPuxzQ @SR/
PP
	LSTOF.	
pXCREF
	..TEXT<A
>		
	  EXP	0		
	LSTON.
	0		
Uv98Q |U$@ 
- [x

	  LST:@OF.

	X JNO,.JI:`JNO,<-1,,GJBJNO>	;
	X TNO,.JITNO,<; -1,,GJBTTY>	
	X ;@USR,.JIUNO,.GTPPN;`		
	X CDN,.JIDNO<,<-1,,GJBPTH>	
	< X PRG,.JIPNM,.GTP<@RG		
	XCJN,.JIC<`PJ,<-1,,GJBCJB>	
	X BAT,.JIBCH,.G= TOBI		
	X JLT,.J=@ISTM,.GTJLT		
	X=` LOC,<-1,,GJBLOC>>,<-1,,GJBLOC> 
	> X RTM,.JIRT,<-1,,>@GJBRTM>	
	X TLC,>`<-1,,GJBTLC>,<-1,?,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&kVp U&lxp U&m9p U&:=p U?0 +0UKI@ +UVn	@ 4@UVn
 KW RP
	IFNB <>Rp,<
	PRINTX  (FroSm GLXVER)
	> ;END IFNB 
	W
 Mt Q
	PRINTX Q0GLXVER	GLXKBD EdiQPt(63) by  on 9-NoQpv-84
	PRINTX	   R 	GLXKBD	Actual Edit(A)
	W
$YP WNH1 
@Pd
	IFB <C
@p>,<
	XWD	[ASCIZ\
AB\],A>
	IFNB <
A0C>,<
	XWD	[EXP 
APCM%FW!C
		ASCIZ\B\],A>
SCIZY"luQ xY&i1 ' D6

	  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
	CD0O
	CDO
	CDO
	C0 DO
	CDO

	CDO	0@      			
	CDO	F0`%IOPN
	CDO	F%AOP1N
	CDO	F%OOPN
	1 CDO	F%IBYT
	CDO	1@F%OBYT
	CDO	F%IB1`UF
	CDO	F%OBUF
2	CDO	F%REL
	CDO	2 F%DREL
	CDO	F%RR2@EL
	CDO	F%REW
	2`CDO	F%POS
	CDO	F3%CHKP
	CDO	F%INF3 O
	CDO	F%FD
	CD3@O	F%REN
	CDO	F%D3`EL
	CDO	F%FCHN
4	CDO
	CDO
	CDO
	CDO
	CDO
	CDO4@
	CDO
	CDO
	CD4`O

	CDO	      	5		
	CDO	M%ACQP
5 	CDO	M%RELP
	CDO5@	M%IPSN
	CDO	M%N5`XPG
	CDO	M%IPRC
	CDO	M%IPRM
	CD6 O	M%AQNP
	CDO	M%6@RLNP
	CDO	M%CLNC6`
	CDO	M%FPGS
	C7DO	M%GMEM
	CDO	M7 %RMEM
	CDO
	CDO7@
	CDO
	CDO
	CD7`O
	CDO
	CDO	M%G8PAG
	CDO	M%RPAG
	CDO
	CDO
	CDO8@
	CDO
	CDO
	CD8`O
	CDO
	CDO

9	CDO	      			
	9 CDO	T%TEXT
	CDO	9@T%TTY
	CDO
	CDO9`
	CDO
	CDO
	CD:O
	CDO
	CDO
	C: DO
	CDO
	CDO
:@
	CDO	      			
:`	CDO	L%CLST
	CDO;	L%DLST
	CDO	L%C; ENT
	CDO	L%CBFR
	CDO	L%DENT
	CD;`O	L%NEXT
	CDO	L%<FIRS
	CDO	L%LAST< 
	CDO	L%PREV
	C<@DO	L%PREM
	CDO	L<`%CURR
	CDO	L%REN=T
	CDO	L%SIZE
	= CDO	L%APOS
	CDO
	CDO
	CDO
	CDO=`
	CDO
	CDO
	CD>O
	CDO

	CDO		> 	
	CDO	I%NOW
	C>@DO	I%EXIT
	CDO	I>`%ION
	CDO	I%IOFF?
	CDO	I%SLP
	CD? O	I%INT1
	CDO	I%?@INT2
	CDO	I%INT3?`
	CDO	I%TIMR
	C@DO
	CDO
	CDO	I%@ SOPR
	CDO	I%WTO
	CDO
	CDO	I%HOS@`T
	CDO	I%JINF
	ACDO
	CDO

	CDOA 			
	CDO
	CDO	SA@%DATI
	CDO	S%SIXA`B
	CDO	S%CMND
	BCDO	S%TBLK
	CDO	B S%SCMP
	CDO	S%ERB@R
	CDO	S%INTR
	B`CDO	S%EXIT
	CDO	CS%TBAD
	CDO	S%TBC DL
	CDO	S%NUMI
C@

	CDO	K%RCOC		C`	
	CDO	K%WCOC
	DCDO	K%SUET
	CDO	D K%STYP
	CDO	K%TXD@TI
	CDO	K%SOUT
D`	CDO	K%BOUT
	CDOE	K%BIN
	CDO	K%BAE CK
	CDO	K%TPOS
E@	CDO	K%BUFF
	CDOE`	K%FLSH
	CDO	K%OFPEN
	CDO
	CDO
F 	CDO
	CDO
	CDO
	CDO
	CDO
	CDOF`
	CDO
	  LSTON.
  
	  LSTON.Y:XKW i0O
	IFNB <>iP,<
	PRINTX  (Froipm GLXVER)
	> ;END IFNB 
	Y:XMt gpG
	PRINTX hGLXVER	GLXLNK Edih0t(11) by AWC on 2hP9-Jan-82
	PRINTXhp	    	GLXLNK	Actual Edit(A)
	Y:\YP Y>
@ 	RxM
	IFNB <	SC>,<..STR0 (..LDB	S8,A,C,B)>
	IFB	SX  <C>,<MOVE A,B>C>,<MOVE A,Y>%I;P YO%GP YO%yG 8@e
	IFNDEF XLSTIN.,LSTIN.==0	x	
IFE LSTIN.,<

	IFIDN <XCREF><A
8>,<.XCREF>	
		  
X XLIST>		
	LSTIN.==LSTIN.+1STINYO%{G 
	IFG,LSTN.==LSTIN
	IFLECLSTIN
		      LIST>
		   [KW _0
	IFNB <>_P,<
	PRINTX  (Fro_pm GLXVER)
	> ;END IFNB 
	[Mt ]pw
	PRINTX ^GLXVER	GLXMAC Edi^0t(242) by DPM on ^P26-Mar-84
	PRINT^pX	    	GLXMAC	Actual Edit(A)
	[YP Q[3@ N8Ds<<<1_<A>>-1>B<B>>_<A>>[8@ M8Dk1B<<A>-1>-1B<B><<A>-1>[@ "`B"
	IFB <B#>,<MAXSIZ==0
		I# RP 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
8Q [v
QP'[vQv[v:Q[vuQ [vxQp[vlXp [lrp [ltp [lxp [l}p [hKW U0/
	IFNB <>UP,<
	PRINTX  (FroUpm GLXVER)
	> ;END IFNB 
	[hMt Sp'
	PRINTX TGLXVER	GLXMEM EdiT0t(30) by LWS on 2TP6-Oct-84
	PRINTXTp	    	GLXMEM	Actual Edit(A)
	[lYP 
[n:=P [tuQ @[th:Q [u[yQ [ukvQ  [v=3P'[v|WQ [&p $`B6
	IFB <B%>,<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>>>
[>!` MxDo<A-<A/B>*B><A-<A/B[?7 O8E]
   ..MX1OX==B			
IFDEF .POxSECT,<
   .IFN .P.MX1,ABSOLUTE,<
P8	MOVE A,[B]>
 PX  .IF ..MX1,ABSOLPxUTE,<
	..MX2==0	Q	
	IFE <..MX1>B5Q83,<
	QX..MX2==1
	  MOVEI A,..MXQx1>	
	IFE ..MX2,<R		
	IFE <..MX1>BR817,<
	  ..MX2==1RX
	  MOVSI A,(..RxMX1)>>	
	IFE ..MSX2,<		
	IFE <<..S8MX1>B53-^O777777>SX,<
	  ..MX2==1
Sx	  HRROI A,<..MXT1>>>	
	IFE ..MX2T8,<		
	IFE <<..MXTX1>B17-^O777777B17Tx>,<
	U..MX2==1
	  HRLOI A,(..MU8X1-^O777777)>> 
UX	IFE ..MX2,<		
	Ux  MOVE A,[..MX1]V>	
	>>

IFNDEFV8 .PSECT,<
	..MX2VX==0		
	IFE <..MXVx1>B53,<
	  ..MX2W==1
	  MOVEI A,W8..MX1>	
	IFE ..MWXX2,<		
	IFE <..MWxX1>B17,<
	  ..MXX2==1
	  MOVSI AX8,(..MX1)>>	
	IFEXX ..MX2,<		
	IFE Xx<<..MX1>B53-^O777Y777>,<
	  ..MX2=Y8=1
	  HRROI A,<YX..MX1>>>	
	IFE .Yx.MX2,<		
	IFE <<Z..MX1>B17-^O77777Z87B17>,<
	  ..MX2ZX==1
	  HRLOI A,Zx(..MX1-^O777777)>[> 
	IFE ..MX2,<	[8	
	  MOVE A,[..[XMX1]>	
>
	PURGE ..MX1,..MX2RGE[Lt;ZQ x[LvN8P'[NF:=p [N^= 	XIO
	A==C		x	
	IF1,<IFDEF %	A,<PRINTX ?A ALR	8EADY DEFINED>>
		XDEFINE %A (OP,AC	x,Y,MSK)<	
	IFDIF	 <Y><>,<
	OP (<A	8C>,B+'Y,MSK)>
		XIFIDN <Y><>,<
	O	xP (<AC>,B'Y,MSK)>>AC>,B'Y,MSK)[PuySP'[PvNP'[Vg gXF=..OP(A,B,MUL)..OP(A,B[`v
2P ] x@1IF2,<IFDEF A,<A==A>> IFNDEF A,<A==B>]F@ _6TEMFDB##_
QkRp _
Ql}p _
Qmp _
Qm7p _
T= Ph]N

	X	.OT: RDR,Reader
	X	.O
,`TNCU,Network-ContP(roller
	X	.OTLPTT@,Printer
	X	.OTBT`AT,Batch-Stream
U	X	.OTCDP,Card-PuU nch
	X	.OTPTP,PaU@pertape
	X	.OTPLU`T,Plotter
	X	.OTVJOB,Job
	X	.OTTRV M,Terminal
	X	.OV@TOPR,Operator
	XV`	.OTIBM,<IBM RemoWte>
	X	.OTMNT,<DW evice>
	X	.OTFTSW@,<File Transfer>
	X	.OTBIN,<Card XReader InterpreteX r>
	X	.OTRET,<FiX@le Retrieval>
	XX`	.OTNOT,<RetrievaYl Notification>
Y 	X	.OTDBM,<DBMS SY@ystem>
	X	.OTFALY`,<File Access Listener>
ess Lis_SKW pP	
	IFNB <>pp,<
	PRINTX  (Froqm GLXVER)
	> ;END IFNB 
	_SMt o
	PRINTX o0GLXVER	GLXOTS EdioPt(7) by DEK on 6-opApr-81
	PRINTX	 p   	GLXOTS	Actual Edit(A)
	_SYP _Sh6Q O3EJ1_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 c^K

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

  c@ IFNB <D>,<..XX=c`..XX!CM%HPP> 
  d IFNB <E>,<..XX=d8..XX!CM%DPP> 

dX	EXP ..XX		

  dx IFNB <C>,<EXP eC>
   IFB <C>,<e8EXP 0>

   IFNBeX <D>,<POINT 7,[AexSCIZ \D\]>
   IfFB <D>,<0>

ff8 IFNB <E>,<POINTfX 7,[ASCIZ \E\]>
gIFB <E>,<0>



   IFB <Ig8>,<0>
   IFNB <gXI>,<EXP I>

  gx IFB <J>,<0>
  h IFNB <J>,<EXP h8J>

   IFB <H>hX,<0>
   IFNB <Hhx>,<EXP H>

   iIFB <G>,<0>
   i8IFNB <G>,<EXP G>

G>,<EXP Ga@KW n0w
	IFNB <>nP,<
	PRINTX  (Fronpm GLXVER)
	> ;END IFNB 
	a@Mt lpo
	PRINTX mGLXVER	GLXPFH Edim0t(16) by TARL on mP17-Apr-81
	PRINTmpX	    	GLXPFH	Actual Edit(A)
	aDYP a G D:LSH A,^D9LSH A,^D9a+= 5a;&  
%@R4
	 IFB  <
%`B>,<..STR0(..PNT
&,,<FWMASK>,A)>

& 	 IFNB <B>,<..ST
&@R0(..PNT,,<B>,A)>.PNT,,<B>,Aa>Mm KXD_<POINT WIDKx(B),A,POS(B)>B),A,POS(B)>a?H6 +a? IDI<^L<<A>&<-<A>>>><<A>&<aJ}Ks @B

	SALL	`			
	LSTOF. XCREF			

	%%.GLX== %%.GLX			
	GLXVR@S==GLXVRS			

	`IFNB <A>,<%%.MOD==SIXBIT/A/> 
	 IFNB <B>,<%%.OTS@==SIXBIT/B/> 
`
	GLOB	I%INIT			

	TOPS10	<			
 		SEARCH	UUOSYM		@
		%%UUOS==%%UUO`S		
	>				

	TOPS20	<			
		SEA RCH	MONSYM		
;		@%%MONS==%%MONS		
	>				

	IFB <B>,<			
		.TEXT 	|,REL:GLXLIB/SEA@RCH/REQUIRE:I%INI`T|
		DEFINE	$DATA (NAM,SIZ<1>),<  
			NAM:	BLOCK	S@IZ
		>			
		DEF`INE	CDO (X),<GLOB X> 
		LIBVEC			 
	>				

	IFNB@ <B>,<CHKEDT (B`)>	

	IFNB <B>,<IFDIF <B><INI> ,< 
		IFN GLXPUR@E,<.PSECT .HIGH.>` 
		IFE GLXPURE,<		
			TWOSEG	40 0000	
			RELOC	0@	
			RELOC	40000`0	
		>			

		DEFINE $DATA(NAM,S IZ<1>),< 
			IFN@ GLXPURE,<.PSECT `DATA> 
			IFE GLXPURE,<RELOC> 
	 		IFNDEF B%D,<B@%D::! B%DL==:0>
			NAM:	BLOCK	SIZ
			B%DL==:B% DL+SIZ 
			IFN G@LXPURE,<.ENDPS DA`TA> 
			IFE GLXPURE,<RELOC> 
		> 			

		IFDIF <@B><OTS>,<	
			DE`FINE	CDO (X),<GLOB X> 
			LIBVEC	 	
		>			

	>>	@			

	IFNB <B>`,<IFIDN <B><INI>,< 
		DEFINE	$DA TA (NAM,SIZ<1>),<@ 
			NAM:	BLOCK	`SIZ
		>			
	>>				

	LSTON.			 	

	GLOB	<.POPJ@, .RETT, .RETF>	
	OPDEF	$RET	[POPJ	P,]	
	OPDEF	$R ETT	[PJRST	.RETT]@	
	OPDEF	$RETF	[`PJRST	.RETF]	
	O PDEF	$RETIT	[JUMP  T	.POPJ]	
	OPDEF @	$RETIF	[JUMPF	.P `OPJ]	
	.NODDT	$R!ET,$RETT,$RETF,$RETIT,$RETIF
$RaPtPeaPtkPaPuTPQaPv\rPee,(SQe,)6Qe,)RQ e,+Qe@e,,UQP@e,-Qfe,<SQPe-)WQge-i1Ppe.k=p glp glp gltp gl}p g
,}Q g
-LyQ @g
.=1Q  gpKW ZU
	IFNB <>Z0,<
	PRINTX  (FroZPm GLXVER)
	> ;END IFNB 
	gpMt XPM
	PRINTX XpGLXVER	GLXSCN EdiYt(103) by LWS on Y03-Apr-84
	PRINTXYP	    	GLXSCN	Actual Edit(A)
	gtYP !g"@ 	rxO'
	IFN <<.	s.TA>&B>,<PRINTX	s8 ?Initial field n	sXot zero in $SET>
	t..TVAL==<C>
	t8..TMSK==<B>
	  ..TA==..TA!	tX<FLD(..TVAL,..TMS	txK)>
	  PURGE ..TVAL,..TMSK
	.TgtXrP@g#=z@yp OC.SWIT+PDBCPY##C.SWIT+PDBg$tkQ@@g$uP'g$uh6Qg.N	@B6@g.N^
.SPID	(S\ P.QSR,.IPCPQ,.SPQ\@SR,QUASAR)	
.SPI\`D	(SP.OPR,.IPCPO,].SPOPR,ORION)	
.] SPID	(SP.INF,.IPC]@PI,.SPINF,INFO)	
.SPID	(SP.MDA,.I^PCPM,.SPMDA,MDA)	^ 
TOPS10<
.SPID	^@(SP.IPC,.IPCPS,,I^`PCC)		
.SPID	(SP_.ACT,.IPCPA,,ACTD_ AE)		
.SPID	(SP._@TLP,.IPCPT,,TAPLA_`B)		
.SPID	(SP.T`OL,.IPCPC,,TAPAVR` )		
.SPID	(SP.DO`@L,.IPCPD,,DSKAVR)``		
.SPID	(SP.FILa,.IPCPF,,FILDAE)		
>
,FILDAE)	gR^h9 	/xK
	..STKR=	0=10		
	RADIX 8
	08	..STKN==0
	IRP 	0XA,<
	  .STKV1 (	0xA)>
	$CALL	.STK	1ST
	 ..STKN,,..S	18TKN
	RADIX ..STK	1XR
	PURGE ..STKN,	1x..STKR,..STKQ
   TKR,..STKQ
  gR~)  	VM7
	IFNB <	V8C>,<..STR0 (..DPB	VX,A,C,B)>
	IFB	Vx  <C>,<MOVEM A,B>>,<MOVEM A,gV fXF5..AS(A,B,SUB,ADD)(A,Bgg
V !@B
	IFNB <!`B>,<TOPS10<A==B">>
	IFNB <C>,<T" OPS20<A==C>>
PS20<A==C>>
ght-3P @ghuWP ghuxSP @ghv5P ghv
2P/hDPFhHPhLPIhPPHiP i$tkQP'i$tlUQ xi0,YQ i0,1Q  i0,^Q i0-kvQ @i?4( 
PPq

  IFNB
p	<A>,<.TQCHA==^
D<B>B17+ZZ>
  I
0FNB 	<D>,<DEFINE
P ..TQMA<D>>
  
pIFNB	<C>,<.TQC=
=^D<B>B17+ZZ>
	 ZZ==ZZ+1ZZ>
	iG, 
PPa
	LSTOF.
p
	TQ(T,2,ASCIZ)		
	
	TQ(O,2,OCTAL)
0			
	TQ(D,2,DECI
PMAL)			
	TQ(F,2,
pFILE)			
	TQ(7,2
,CSEVEN)			
	TQ(
06,2,CSIXBIT)			

P	TQ(W,2,SIXBIT)		
p	
	TQ(5,2,SVNBIT
)			
	TQ(P,2,USE
0R)			
	TQ(U,2,DI
PRECTORY)			
	TQ(
pH,2,DAYTIME)			

	TQ(C,2,TIME)			
0
	TQ(E,2,ERROR)		
P	
	TQ(I,1,INDIRE
pCT)		
	TQ(M,0,CR
,..TXC0(\".CHCRT)
0)	
	TQ(J,0,LF,..
PTXC0(\".CHLFD))	
p
	TQ(L,0,FF,..TXC
0(\".CHFFD))	
	T
0Q(K,0,VT,..TXC0(\
P".CHVTB))	
	TQ(A
p,0,NOCRLF,..TXA(.
	TQCHA))	
	TQ(0,0
	0,NULL,..TXA(.TQCH
	P0))	
	TQ(3,0,STR
	pING,..TXER(IQU))	


	TQ(V,2,VERSION

0)			
	TQ(2,0,CAR

PET,..TXER(IQU))	

p
	TQ(Q,2,POINTER)
			
	TQ(B,2,ROB)
0			
	TQ(1,2,OBJE
PCT)			
	TQ(N,2,N
pODE)			
	TQ(R,2,
JIB)			
	LSTON.
)			
	LSTON. 
-\|
	LSTOF.
 X(33,TTY33,33,.@RETT,,,)			
 X(3@@5,TTY35,35,.RETT,@ ,,)			
TOPS20<
@h X(37,TTY37,37,.RAETT,,,)			
 X(EXA(ECUPORT,EXEC,EXE,AH.RETT,,,)			
>
AhTOPS10<
 X(LA120B,LA120,L12,.RETT,B(,,)			
>
 X(LA3BH6,LA36,L36,.RETT,Bh,,)			
 X(VT05,VCT05,V05,.RETT,<37C(,177,177,177>,,)	CH
 X(VT100,VT100,Ch100,SETTLC,<.CHESDC,"[","K">,<.CHESD(C,"=">,<.CHESC,.CDHHRAB>) 
;**;[235Dh]ADD 6 LINES AFTEER VT100 ENTRY 2-JE(un-83/CTK
TOPS10EH<	X(VT101,VT101,1Eh01,SETTLC,<.CHESCF,"[","K">,<.CHESCF(,"=">,<.CHESC,.CHFHRAB>)> 
 X(VT102Fh,VT102,102,SETTLCG,<.CHESC,"[","K">G(,<.CHESC,"=">,<.CGHHESC,.CHRAB>) 
TGhOPS10<	X(VT103,VTH103,103,SETTLC,<.H(CHESC,"[","K">,<.HHCHESC,"=">,<.CHESHhC,.CHRAB>)> 
 X(IVT125,VT125,125,SI(ETTLC,<.CHESC,"["IH,"K">,<.CHESC,"="Ih>,<.CHESC,.CHRAB>J) 
TOPS10<	X(VT1J(80,VT180,180,SETTJHLC,<.CHESC,"[","KJh">,<.CHESC,"=">,<K.CHESC,.CHRAB>)> K(
TOPS10<	X(VT185KH,VT185,185,SETTLCKh,<.CHESC,"[","K">L,<.CHESC,"=">,<.CL(HESC,.CHRAB>)> 
LH X(VT50,VT50,V50,LhSETTLC,<.CHESC,"JM">,<.CHESC,"=">,<M(.CHESC,.CHRAB>) 
 X(VT52,VT52,V52Mh,SETTLC,<.CHESC,"NJ">,<.CHESC,"=">,N(<.CHESC,.CHRAB>) NH
TOPS10<	X(VT61,NhVT61,V61,SETTLC,<O.CHESC,"J">,<.CHEO(SC,"=">,<.CHESC,.OHCHRAB>)> 
	LSTON.
>)> 
	LSTONiK,PA iK4@ 	68KA
	..TRR==	6X10		
	RADIX 8
		6x..NV==1			
	IRP 	7A,<
	  .TRV1 (	78A)>		
	$CALL	.TR	7XSET		
	 ..NV-1,,	7x..NV-1
	RADIX ..	8TRR		
	PURGE ..TRR,..NVURGE ..Tib XG}
		..TX(C,A,<B>)..TX(Cib 	H	
		..TX(CA,A,<B>).TX(CibP 	H
		..TX(CE,A,<B>).TX(Cib` 	XH
		..TX(CN,A,<B>).TX(Cibp yXGM
		..TX(N,A,<B>)..TX(Nibt {GY
		..TX(NA,A,<B>).TX(NibtP zGQ
		..TX(NE,A,<B>).TX(Nibu` zXGU
		..TX(NN,A,<B>).TX(Nibx {XG]
		..TX(O,A,<B>)..TX(Oib| }Gi
		..TX(OA,A,<B>).TX(Oib|P |Ga
		..TX(OE,A,<B>).TX(Oib}` |XGe
		..TX(ON,A,<B>).TX(Oic KW fp;
	IFNB <>g,<
	PRINTX  (Frog0m GLXVER)
	> ;END IFNB 
	ic Mt e03
	PRINTX ePGLXVER	GLXTXT Ediept(54) by CTK on 2f5-Sep-83
	PRINTXf0	    	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 }XGm
		..TX(Z,A,<B>)..TX(ZicT Gy
		..TX(ZA,A,<B>).TX(ZicTP ~Gq
		..TX(ZE,A,<B>).TX(ZicU` ~XGu
		..TX(ZN,A,<B>).TX(ZmKc@(AMIN (18)AEDTo&  HXDE<^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 Oh[z
.TTC==.? .Z
..Z==..Z+1
Z
..Z==..Z+1=q"eJ  P q*-` +
q+= +
q6~i4 C q? 	HY
	TXC A,<B>
	TXC A,q@ X@7IFB <C>,<xA==:B> IFNB <C>,<A=:B>B <CqBp +qN5P +up 	_8N
	IFNB <	_XB>,<..STR1 (..TQZ	_x,,<B>,A,..STR4)	`>
	IFB  <B>,<SETZM A><B>,<SEuhP 	;z 
:Pce
	.$RESET
:p
	$TYPE (.CMACT)
;
	$HELP (<>)
	$
;0NEXT (A)
IFIDN 
;P<B> <>,< IRP C,
;p<C>
			.$BUILD>
<
IFDIF <B> <>,<
<0
	$HELP (B)
	I
<PRP C,<C>
	.$BUILD><C>
	.$BU	0 
tW$
.WTOX.(.OM
t ACK,<A>,<B>,<C
t@>,<D>,<$WTFLG(WT.SJI),E>)LG(WT	J7 uH_.DEFINE .$RuhTN <A>
			.%RTN==1A>
			.%RTN	fI9 pH_DEFINE .$LphST <A+1>
			.%LST==11>
			.%L	
=Z 	cxN'
	  IFG 	dA-INT.LV,<PRINTX 	d8?Level A interru	dXpts not supported	dx>
	  .BGINT.(\A)   .BGINT.(\A	X5 rh_DEFINE .$BsREA <A>
			.%BREA==1>
			.%BR	- 	fXNE
	  IFDEF	fx ..BSIZ,<PRINTX ?	gMissing $EOB afte	g8r a $BUILD>
	  .	gX.BSIZ==0			
	  .	gx.BLOC==.			
	  R	hEPEAT A,<			
			h8BLD0.(\..BSIZ,0)		hX
		..BSIZ==..BSIZ+1>	
	==..BSI		}[0 
#Pb#
	.$RESET
#p
	$TYPE (.CMCMA)
$
	$NEXT (A)
	I
$0RP B,<B>
	.$BUILD,<B>
	.$BU	I@ 
 b
	.$RESET
 0
	$TYPE (.CMCFM)
 P
	IRP A,<A>
	.$BUILD,<A>
		$^ 
)pb_
	.$RESET
*
	$TYPE (.CMTXT)
*0
	$HELP (<>)
	$
*PNEXT (A)
IFIDN 
*p<B> <>,< IRP C,
+<C>
			.$BUILD>
+0
IFDIF <B> <>,<
+P
	$HELP (B)
	I
+pRP C,<C>
	.$BUILD><C>
	.$BU	I  
,0bk
	.$RESET
,P
	$TYPE (.CMTAD)
,p
	$PDATA (CM%IDA
-)
	$NEXT (A)
	
-0IRP B,<B>
	.$BUILD,<B>
	.$B	,,U 	exN1
	  $RET		f			;WILL INVOKE RIGHT ROUTINE
		,h: mH^z
	IFDIF <mhA> <>,<
DEFINE n.$DEFM <POINT 7,[n(ASCIZ\A\]>
			.nH%DEFM==1>
	IFIDNnh <A> <>,<
IF1 <o
PRINTX %Null aro(gument in $DEFAULT macro>>DEFAUL	.` 
(PbK
	.$RESET
(p
	$TYPE (.CMDEV)
)
	$NEXT (A)
	I
)0RP B,<B>
	.$BUILD,<B>
	.$BU	Lz: 
Pa
	.$RESET
p
	$TYPE (.CMNUX)

	$PDATA (B)
	
0$HELP (<>)
	$NEX
PT (A)
IFIDN <C
p> <>,< IRP D,<D
>
			.$BUILD>
I
0FDIF <C> <>,<
	
P$HELP (C)
	IRP 
pD,<D>
	.$BUILD><D>
	.$BUILD	N  
!b
	.$RESET
!0
	$TYPE (.CMDIR)
!P
	$NEXT (A)
	I
!pRP B,<B>
	.$BUILD,<B>
	.$BU	|  	mXO	
	  IFNDE	mxF ..BSIZ,<PRINTX 	n?$EOB without pre	n8vious $BUILD>
	 	nX IFN <.-..BLOC>,<	nxPRINTX ?Address c	ohange between $BU	o8ILD and $EOB>
	 	oX LSTOF.			
	  ..	oxT==0
	  REPEAT .	p.BSIZ,<
	    BLD	p80.(\..T,1)		
	  	pX  ..T==..T+1 >
		px  PURGE ..BSIZ,..	qT,..BLOC	
	  LSTON.
		
	  LST	+y r_DEFINE .$Er(RTN <A>
			.%ERTN==1>
			.%ER	, sH_DEFINE .$EshRTN <1B0+A+1>
			.%ERTN==1>
		- t(_(DEFINE .$EtHRTN <[MOVEI S2,[AthSCIZ\A\]
				  u    $RETF]>
			.%ERTN==1>
			.	H6 	wPOE
	$CALL	.	wpSTOP
	LSTOF.
	J	xUMP	[XWD 0,[ITEXT	x0 (<A>)]
		 EXP 	xP%%.MOD]
	LSTON. .MOD]
	LSTON. 	L[ 
Pa}
	.$RESET
p
	$TYPE (.CMFLD)

	$NEXT (A)
	$
0HELP (<>)
IFIDN 
P<B> <>,< IRP C,
p<C>
			.$BUILD>

IFDIF <B> <>,<
0
	$HELP (B)
	I
PRP C,<C>
	.$BUILD><C>
	.$BU	MI  
ai
	.$RESET
0
	$TYPE (.CMFIL)
P
	$HELP (<>)
	$
pNEXT (A)
IFIDN 
<B> <>,< IRP C,
0<C>
			.$BUILD>
P
IFDIF <B> <>,<
p
	$HELP (B)
	I
RP C,<C>
	.$BUILD><C>
	.$BU	dy jh^XDEFINE .$FkLGS <A>
			.%FLGS==1>
			.%FL	ex: 
&bA
	.$RESET
&0
	$TYPE (.CMFLT)
&P
	$HELP (<>)
	$
&pNEXT (A)
IFIDN 
'<B> <>,< IRP C,
'0<C>
			.$BUILD>
'P
IFDIF <B> <>,<
'p
	$HELP (B)
	I
(RP C,<C>
	.$BUILD><C>
	.$BU	$ 
0pc
	.$RESET
1
	$TYPE (.CMTAD)
10
	$PDATA (<CM%ID
1PA!CM%ITM!CM%FUT>)
1p
	$NEXT (A)
	I
2RP B,<B>
	.$BUILD,<B>
	.$BU	$ 	v`O9
	  INTER	wN A
	  $DATA(A,<B>)
	ATA(AjO21;LH	"
	IFDIF <lHA> <>,<
DEFINE lh.$HLPM <POINT 7,[mASCIZ\A\]>
			.%HLPM==1>
			.	&5 
aA
	.$RESET
0
	$TYPE (.CMIFI)
P
	$HELP (<>)
	$
pNEXT (A)
IFIDN 
<B> <>,< IRP C,
0<C>
			.$BUILD>
P
IFDIF <B> <>,<
p
	$HELP (B)
	I
RP C,<C>
	.$BUILD><C>
	.$BU	&u 
$pb-
	.$RESET
%
	$NEXT (A)
	$
%0TYPE (.CMINI)
	I
%PRP B,<B>
	.$BUILD,<B>
	.$BU	./ 
0`[
	.$RESET
P
	$TYPE (.CMKEY)
p
	$PDATA (B)
	
$NEXT (A)
	IRP 
0C,<C>
	.$BUILD,<C>
	.$BUILD	./ 
p`O
	.$RESET
	
	$TYPE (.CMKEY)
	0
	$PDATA (A)
	
	P$NEXT (0)
	IRP 
	pB,<B>
	.$BUILD,<B>
	.$BUILD	/>Ky 
v`W8.WTOX.(.OM
wWTR,,,,<A>,<$WTFLG(WT.KIL),B>)	2|p 
vW2.WTOX.(.OM
vLOG,<A>,<B>,<C>,,<D>)B>,<C	:/
DEFINE .$NqHXT <A>
			.%NXT==1A>
			.%NXT	:|KV 
7pcQ
	.$RESET
8
	$TYPE (.CMNOD)
80
	$HELP (<>)
	$
8PNEXT (A)
IFIDN 
8p<B> <>,< IRP C,
9<C>
			.$BUILD>
90
IFDIF <B> <>,<
9P
	$HELP (B)
;	
9p$FLAGS (CM%PO)
	
:IRP C,<C>
	.$BUILD><C>
	.$B	:}r 
0a
	.$RESET
P
	$TYPE (.CMNOI)
p
	$PDATA (<POINT
 7,[ASCIZ\B\]>)
0
	$NEXT (A)
	IR
PP C,<C>
	.$BUILD,<C>
	.$BUI	;-XR 
p`q
	.$RESET

	$TYPE (.CMNUM)
0
	$PDATA (B)
	
P$HELP (<>)
	$NEX
pT (A)
IFIDN <C
> <>,< IRP D,<D
0>
			.$BUILD>
I
PFDIF <C> <>,<
	
p$HELP (C)
	IRP 
D,<D>
	.$BUILD><D>
	.$BUILD	>5 
PaU
	.$RESET
p
	$TYPE (.CMOFI)

	$NEXT (A)
	$
0HELP (<>)
IFIDN 
P<B> <>,< IRP C,
p<C>
			.$BUILD>

IFDIF <B> <>,<
0
	$HELP (B)
	I
PRP C,<C>
	.$BUILD><C>
	.$BU	B$ kH^^DEFINE .$DkhATA <A>
			.%DATA==1>
			.%DA	B$YP oh_DEFINE .$DpEFM <POINT 7,<A>>
			.%DEFM==1	CYT v(_4DEFINE .$DvHEFR <A>
			.%DEFR==1>
			.%DE	G-} 
2Pc%
	.$RESET
2p
	$TYPE (.CMQST)
3
	$HELP (<>)
	$
30NEXT (A)
IFIDN 
3P<B> <>,< IRP C,
3p<C>
			.$BUILD>
4
IFDIF <B> <>,<
40
	$HELP (B)
	I
4PRP C,<C>
	.$BUILD><C>
	.$BU	J.I  	u@O0
	  $CALL	u`	.RETE			
		LSTO	vF.
	  JUMP	ERA$
		LSTON.ERA$	Ni  	@XM
	.NVR==0	@x			
	.ACM==0			

	IRP A,<		
		A8	..TSAC(.ACB,A)		AX	
		IFN .ACB,<.A	AxCM==.ACM!1B<A>>		B
		IFE .ACB,<				B8
		IFE .NVR,<				BX
		    CAIA			
	Bx		    LSTOF.
		 	C   JRST b>
		  	C8..PUSH(A,\<.NVR+	CX1>)>>	

	IFN .A	CxCM,<	
	    IFE <	D.ACM-17B<T4>>,<.A	D8CM==0
				$CALL 	DX.SAVET>
	    IFE	Dx <.ACM-377B<.A16>	E>,<.ACM==0
				$	E8CALL .SAVE8>
	  	EX  IFE <.ACM-17B<P	Ex4>>,<.ACM==0
				F	$CALL .SAVE4>
		F8    IFE <.ACM-7B<	FXP3>>,<.ACM==0
			Fx		$CALL .SAVE3>
	G	    IFE .NVR,<	
	    IFE <.ACM-3	GXB<P2>>,<.ACM==0
	Gx				$CALL .SAVE2>	H
	HX  IFE <.ACM-	H81B<P1>>,<.ACM==0
				$CALL .SAVE1	Hx>
	    IFE <.ACM	I-1B<.A13>>,<.ACM=	I8=0
				$CALL .SV	IX13>
	    IFE <.A	IxCM-1B<.A14>>,<.AC	JM==0
				$CALL .	J8SV14>
	    IFE <	JX.ACM-1B<.A15>>,<.	JxACM==0
				$CALL	K .SV15>
	    IFE	K8 <.ACM-1B<.A16>>,	KX<.ACM==0
				$CA	KxLL .SV16>
	    >	L>

	IFN .ACM,<		L8
	    IFE .NVR,<	LX			
		CAIA			
		Lx	LSTOF.
		JRST 	Mb>

	    .ACB==	M80			
	REPEAT ^D1	MX6,<			
	    IFN 	Mx<.ACM&1B<.ACB>>,<	N	
		..PUSH(\.ACB	N8,\<.NVR+1>)>
		.	NXACB==.ACB+1>>		
	Nx
	IFN .NVR,<	
		O    PUSH P,[[CAIA	O8		
		     AOS -.	OXNVR(P)	
	    REP	OxEAT .NVR,<..POP(\	P.NVR)>	
		     P	P8OPJ P,0]]>	
b:!	LSTON.>	
b:!	N.@ 	iNY
	  IFNDE	i8F ..BSIZ,<PRINTX 	iX?$SET without pre	ixvious $BUILD>
	 	j IFNB <B>,<..STR	j80 (..SET,<C>,B,	jXA)>
	IFB  <B	jx>,<..STR0 (..SET,	k<C>,FWMASK,A)>
	,FWMASK,A)>
Bd
	a==.
B0	XWD b-1,b-1
	
BPDEFINE $ETAB <
		b==.-a> <
		O%| 	{pOg
S..A::!	|	$CALL .STOP
		L	|0STOF.
		JUMP [XW	|PD 'A',[ITEXT (<	|pB>)]
			EXP %%.MOD]
		LSTON.	M	O= 
Pa-
	.$RESET
p
	$TYPE (.CMSWI)

	$PDATA (A)
	
0$NEXT (0)
	IRP 
PB,<B>
	.$BUILD,<B>
	.$BUILD	O= 
a!
	.$RESET
0
	$TYPE (.CMSWI)
P
	$PDATA (B)
	
p$NEXT (A)
	IRP 
C,<C>
	.$BUILD,<C>
	.$BUILD	R
@ 
/0c
	.$RESET
/P
	$TYPE (.CMTAD)
/p
	$PDATA (<CM%ID
0A!CM%ITM>)
	$NEX
00T (A)
	IRP B,<B>
	.$BUILD,<	R/
	$CALL	T	}P%TEXT
	LSTOF.	XC	}pREF
	JUMP	[XWD 2	~,0
		 EVL (A)
	~0		 ITEXT(<B>)]	
	LSTON.B>)]	
-pbw
	.$RESET
.
	$TYPE (.CMTAD)
.0
	$PDATA (CM%ITM
.P)
	$NEXT (A)
	
.pIRP B,<B>
	.$BUILD,<B>
	.$B	R}97 
=cs
	.$RESET
=0
	$TYPE (.CMTOK)
=P
	$PDATA (<POINT
=p 7,[ASCIZ\B\]>)
>
	$NEXT (A)
	IR
>0P C,<C>
	.$BUILD,<C>
	.$BUI	S 
0Pw


  ..TX
@A(.TQA,C,D,E,
PB)	
      IFN .
.TXEF,<			
	..TE
pRR<$TQ(A,B,C,D,E)>>

C,	S@I9 
( Rb
	LSTOF.
(@
	X(UQU,Unknown q
(`ualifier)
	X(IQU
),Invalid qualifie
) r)
	X(IJA,Invali
)@d justification a
)`rgument)
	X(IWA,
*Invalid width arg
* ument)
	X(PEA,Pr
*@emature end of ar
*`gument)
	X(JNA,J
+ustification is n
+ ot allowed)
	X(A
+@NA,Arguments are 
+`not allowed)
	X(
,ADS,Address must 
, be specified)
	LSTON.
ied)
	L	SN	  j^RDEFINE .$Tj(YP <A>
			.%TYPE==1>
			.%TYP	W= 
5c;
	.$RESET
50
	$TYPE (.CMUQS)
5P
	$HELP (<>)
	$
5pNEXT (A)
	$PDAT
6A (B)
IFIDN <C
60> <>,< IRP D,<D
6P>
			.$BUILD>
I
6pFDIF <C> <>,<
	
7$HELP (C)
	IRP 
70D,<D>
	.$BUILD><D>
	.$BUILD	W\@ 
"0b
	.$RESET
"P
	$TYPE (.CMUSR)
"p
	$NEXT (A)
	I
#RP B,<B>
	.$BUILD,<B>
	.$BU	^+@ 	yO[
IFE %%.O	y0TS,<DEFINE $WARN 	yP(MSG) <
		$TEXT 	yp(T%TTY,<% ^W6/[%%	z.MOD]/ MSG>)>>
I	z0FN %%.OTS,<DEFINE	zP $WARN (MSG) <
		zp	$TEXT (T%TTY,<% 	{^W6/IIB+IB.PRG/ ^	{0W/[%%.MOD]/ MSG>)>>
	$WARN <A>	_$r 
hVR
		IFB	<
h A>,<.WFACD==0
		
h@	IFN <0-2>,<.$WAC
h`D==0>>
		IFNB	<
iA>,<.WFACD==-1
	
i 		IFN <0-2>,<.$WA
i@CD==.$WACD!<A>>
i`
			IFE <0-2>,<DE
jFINE .$WACD,<<WO.
j ACD>B8+[ITEXT (<A>)]>>
		>
<	_$u 
]Uz
		IFB	<
] A>,<.WFACK==0
		
]@	IFN <0-2>,<.$WAC
]`K==0>>
		IFNB	<
^A>,<.WFACK==-1
	
^ 		IFN <0-2>,<.$WA
^@CK==.$WACK!<A>>
^`
			IFE <0-2>,<DE
_FINE .$WACK,<<WO.
_ ACK>B8+[ITEXT (<A>)]>>
		>
<	_$+ 
N`W
	IFE	<.W
OFMTY>,<PRINTX ?No
O  message type in 
O@$WTBLD>
DEFINE .
O`EAWTO(SUFFIX,ARGC
POD),<
IFN .WF'SU
P FFIX',<
	IFE	<AR
P@GCOD-0>,<<WO.'SUF
P`FIX'>B8+ .$W'SUFF
QIX'>
	IFE	<ARGCO
Q D-1>,<<WO.'SUFFIX
q'>B8+ [EXP .$W'SU
q FFIX']>
	IFE	<AR
q@GCOD-2>,<.$W'SUFF
q`IX'>
>
>
	ALLW
rTO				
	EXP	0			
		
	EXP	0				_$k 
_`V
		IFB	<
`A>,<.WFFLG==0
		
` 	IFN <1-2>,<.$WFL
`@G==0>>
		IFNB	<
``A>,<.WFFLG==-1
	
a		IFN <1-2>,<.$WF
a LG==.$WFLG!<A>>
a@
			IFE <1-2>,<DE
a`FINE .$WFLG,<<WO.
bFLG>B8+[ITEXT (<A>)]>>
		>
<	_%(W 
e V<
		IFB	<
e@A>,<.WFJBN==0
		
e`	IFN <0-2>,<.$WJB
fN==0>>
		IFNB	<
f A>,<.WFJBN==-1
	
f@		IFN <0-2>,<.$WJ
f`BN==.$WJBN!<A>>
g
			IFE <0-2>,<DE
g FINE .$WJBN,<<WO.
g@JBN>B8+[ITEXT (<A>)]>>
		>
<	_%YV 
m@V~
		IFB	<
m`A>,<.WFMFL==0
		
n	IFN <1-2>,<.$WMF
n L==0>>
		IFNB	<
n@A>,<.WFMFL==-1
	
n`		IFN <1-2>,<.$WM
oFL==.$WMFL!<A>>
o 
			IFE <1-2>,<DE
o@FINE .$WMFL,<<WO.
o`MFL>B8+[ITEXT (<A>)]>>
		>
<	_%] 
RU"
		IFB	<
R A>,<.WFMTY==0
		
R@	IFN <0-2>,<.$WMT
R`Y==0>>
		IFNB	<
SA>,<.WFMTY==-1
	
S 		IFN <0-2>,<.$WM
S@TY==.$WMTY!<A>>
S`
			IFE <0-2>,<DE
TFINE .$WMTY,<<WO.
T MTY>B8+[ITEXT (<A>)]>>
		>
<	_%kr 
b@V&
		IFB	<
b`A>,<.WFNOD==0
		
c	IFN <0-2>,<.$WNO
c D==0>>
		IFNB	<
c@A>,<.WFNOD==-1
	
c`		IFN <0-2>,<.$WN
dOD==.$WNOD!<A>>
d 
			IFE <0-2>,<DE
d@FINE .$WNOD,<<WO.
d`NOD>B8+[ITEXT (<A>)]>>
		>
<	_%p 
r@W.WTOX.(.OM
r`WTO,<A>,<B>,<C>,,<D>)B>,<C	_%xU 
Z Ud
		IFB	<
Z@A>,<.WFOBJ==0
		
Z`	IFN <0-2>,<.$WOB
[J==0>>
		IFNB	<
[ A>,<.WFOBJ==-1
	
[@		IFN <0-2>,<.$WO
[`BJ==.$WOBJ!<A>>
\
			IFE <0-2>,<DE
\ FINE .$WOBJ,<<WO.
\@OBJ>B8+[ITEXT (<A>)]>>
		>
<	_%xr 
j`Vh
		IFB	<
kA>,<.WFOCD==0
		
k 	IFN <0-2>,<.$WOC
k@D==0>>
		IFNB	<
k`A>,<.WFOCD==-1
	
l		IFN <0-2>,<.$WO
l CD==.$WOCD!<A>>
l@
			IFE <0-2>,<DE
l`FINE .$WOCD,<<WO.
mOCD>B8+[ITEXT (<A>)]>>
		>
<	_%z@ 
uW,.WTOX.(.OM
u WTO,<A>,<B>,<C
u@>,,<$WTFLG(WT.JOB),D>)LG(WT.JOB	_%|@ 
s W
.WTOX.(.OM
s@WTR,<A>,<B>,<C>,<D>,<E>)<C	_&,z 
Q`W
	DEFINE	
[email protected](SUFFIX),<$
p WT'SUFFIX'	<>>
	ALLWTO				

		_&N 
W@UN
		IFB	<
W`A>,<.WFTXT==0
		
X	IFN <2-2>,<.$WTX
X T==0>>
		IFNB	<
X@A>,<.WFTXT==-1
	
X`		IFN <2-2>,<.$WT
YXT==.$WTXT!<A>>
Y 
			IFE <2-2>,<DE
Y@FINE .$WTXT,<<WO.
Y`TXT>B8+[ITEXT (<A>)]>>
		>
<	_&N8 
T`U8
		IFB	<
UA>,<.WFTYP==0
		
U 	IFN <2-2>,<.$WTY
U@P==0>>
		IFNB	<
U`A>,<.WFTYP==-1
	
V		IFN <2-2>,<.$WT
V YP==.$WTYP!<A>>
V@
			IFE <2-2>,<DE
V`FINE .$WTYP,<<WO.
WTYP>B8+[ITEXT (<A>)]>>
		>
<
t{P 
u[rQ ]>t2
u}P 
,MP Q.
P .JP .bP /P B&@P cGP )0 _F0lxpZ6 p`C			

	d
==<FLD(.$TYP,CM%F
0NC)>!.$FLGS!<.$LS
PT> 

	IFN <.%BR
pEA>,<d==d!CM%BR
K> 

	IFN <.%HL
0PM>,<d==d!CM%HP
PP!CM%SDH> 
					
p	

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

c:!	XWD	b,
Pa			

	EXP d	
p			

	EXP .$DAT
A			

IFN <.%HL
0PM!.%DEFM!.%BREA>
P,<
		EXP	.$HLPM>
p		


IFN <.%DE
FM!.%BREA>,<
		E
0XP	.$DEFM>		


P
IFN <.%BREA>,<	E
pXP	.$BREA>		

	
a==.-c			;LENGT
0H OF THE FDB

I
PFN <.%NXT!.%DEFR!
p.%RTN!.%ERTN>,< E
XP .$NXT >	

IF
0N <.%DEFR!.%RTN!.
P%ERTN>,<EXP .$RTN
p >	

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

IFN <.
P%DEFR>,<		EXP	.$D
pEFR>	


	b==.
-c			

	IF2<	P
0URGE a,b,c,d>
	LISTb,c,d>$YVwh>POINT{7,[ASCIZ\0\]NT 7,[A$YY J0I@@&.- D0jWp5Iy :0+WPf= @0+1Pw
	SALL
	zPXLIST
	DEFINE .$zpTYP <0>
	.%TYPE={=0
	DEFINE .$FLG{0S <0>
	.%FLGS==0{P
	DEFINE .$DATA {p<0>
	.%DATA==0
|	DEFINE .$HLPM <>|0
	.%HLPM==0
	DE|PFINE .$DEFM <0>
|p	.%DEFM==0
	DEFI}NE .$LST <0>
	.%}0LST==0
	DEFINE .}P$BREA <0>
	.%BRE}pA==0
	DEFINE .$N~XT <0>
	.%NXT==0~0
	DEFINE .$ERTN ~P<0>
	.%ERTN==0
~p	DEFINE .$RTN <0>
	.%RTN==0
	DEF0INE .$DEFR <0>
	.%DEFR==0<0>
	K@ _H0:=p' ^
0TK1,)0P$YVP$YYP.-P 5IyP f=P w
	   ..ASi81==-<B>	
	IFDEFiX .PSECT,<
	.IFN ix..AS1,ABSOLUTE,<
	     C A,[-..j8AS1]>	
	.IF ..ASjX1,ABSOLUTE,<
		.jx.AS2==0	
	  IFE k<..AS1&^O777777B1k87>,<
		..AS2==1	kX
	    DI A,..AkxS1>
	  IFE ..AS2l,<
	    ..OP(A,l8B,C)>	
	PURGE lX..AS1,..AS2>>
	IlxFNDEF .PSECT,<
	m	..AS2==0	
	  IFm8E <..AS1&^O777777mXB17>,<
		..AS2==mx1	
	    DI A,.n.AS1>
	  IFE ..An8S2,<		
	    ..OPnX(A,B,C)>
	PURGE ..AS1,..AS2>:h Hs
	A: \F-
	  ..CX1\8==C
	IFDEF .PSE\XCT,<
 	.IFN ..CX\x1,ABSOLUTE,<
	  ]    CAMA B,[C]]8>
	.IF ..CX1,ABS]XOLUTE,<	
		..CX2]x==0	
	  IFE <..C^X1&^O777777B17>,<^8
		..CX2==1	
	 ^X   CAIA B,C>
^x	  IFE ..CX2,<		
	    CAMA B,[c8C]>
	PURGE ..CX1cX,..CX2>>
	IFNDEFcx .PSECT,<
		..CXd2==0	
	  IFE <..d8CX1&^O777777B17>,dX<
		..CX2==1	
	dx    CAIA B,C>
	  IFE ..CX2,<		e8
	    CAMA B,[eXC]>
	PURGE ..CX1,..CX2>GE ..CX:&@ 	W8MG
	..TSIZ 	WX(..PST,C)
	.CAS	WxE ..PST,<<
		MOV	XEM A,B>,<
		HR	X8RM A,B>,<
		HR	XXLM A,B>,<
		DP	XxB A,[POINTR (B,C)]>>INTR (B,:<;Y 	.xJ{
   DEFIN	/E ..CNS2 (NEW,OLD	/8)<
	  OLD>			
	..CNS ()>			
	:L;Y 	,XJs
   DEFIN	,xE ..CNS (%%%)<
		-..CNS2 <%%%>,>
	-8
   DEFINE ..CNS2	-X (NEW,OLD)<
	DEF	-xINE ..CNS (%%%)<
	  ..CNS2 <%%%>,	.8<OLD'NEW>>>
   OLD'NEW>>>
   :dH@ 	TM-
	..TSIZ 	T8(..PST,C)
	.CAS	TXE ..PST,<<
		MOV	TxE A,B>,<
		HRR	UZ A,B>,<
		HLR	U8Z A,B>,<
		LDB	UX A,[POINTR (B,C)]>>INTR (B,:}i1 	xI!
	A==<<<	-<B>>&<B>>&<1B<^L<B>>>>>&<1B<:~ oG%
	  ..OP1o8==B
	IFDEF .PSEoXCT,<
 	.IFN ..OPox1,ABSOLUTE,<
	  p    C A,[..OP1]p8>
	.IF ..OP1,ABSpXOLUTE,<	
		..OP2px==0	
	  IFE <..OqP1&^O777777B17>,<q8
		..OP2==1	
	qqX   CI A,..OP1>
	  IFE ..OP2,<		r
	    C A,[..Or8P1]>
	PURGE ..OPrX1,..OP2>>
	IFNDErxF .PSECT,<
		..OsP2==0	
	  IFE <.s8.OP1&^O777777B17>sX,<
		..OP2==1	
sx	    CI A,..OP1t>
	  IFE ..OP2,<t8		
	    C A,[.tX.OP1]>
	PURGE ..OP1,..OP2>GE ..;m 
'R>
	..PST==
' C-FWMASK
	.IF0 
'@..PST,<
		POINT 
'`0,B,35>,<
		POINTR (B,C)>POI;| 	QxM
		POP P,	R.NVA
		PURGE .N	R8VA
		.NVR==.NVR-1
		.NVR==.NVR;\t 	PxM
		PUSH P	Q,A
		DEFINE .NV	Q8B<A>
		.NVR==.NVR+1
		.NVR==.;] 	kXNi
	  IFGE 	kx<<<B>&777777>-..	lBSIZ>,<
		PRINTX	l8 ?WORD offset gre	lXater than $BUILD 	lxsize parameter>
	m	  SET0. (\<B>,C,<A>)
	B>,;LH 	8Ic
	IFNDEF 	XC,<PRINTX C IS 	xNOT DEFINED
	  	A (<B>,D,FWMASK	8)>	
	IFDEF C,<
	IFNDEF %C,<
		x  A (<B>,D,C)	>	
	IFDEF %C,<
	  %C (A,<B>,D,C)>>A,<B>,;LH 	xJ!

	..NS==0				
	IRP C,<..N	8S=..NS+1>	
	IFE 	X..NS,<PRINTX ?EMP	xTY STRUCTURE LIST	, A>
	IFE ..NS-	81,<		
	  ..STR0 	X(A,<B>,<C>,D)	x>
	IFG ..NS-1,<			
	..ICNS			
	.	8.CNS (<E (A,<B	X>,,>) 
	IRP C,<	x		
	  IFNDEF C,	 <PRINTX C NOT DE	 8FINED>
	  IFDEF 	 XC,<
	  IFNDEF %	 xC,<
	  ..CNS (<	!,C,D>)>	
	  IF	!8DEF %C,<
	  %C	!X (..STR2,,D,C)>	!x 
	  ..CNS (<)>)	"		
	  ..GCNS		
	"8	  ..ICNS		
	  .	"X.CNS (<E (A,<B	"x>>) 
	  IFNDEF %	#C,<
	  ..CNS (<	#8,C,D>)>	
	  IF	#XDEF %C,<
	  %C	#x (..STR2,,D,C)>	$>> 
	..CNS (<,,)>)		
	..GCNS>);LI 	$XJ%
	..CNS (<,C,B>).CNS (;LI 	%J;

	IFDIF <	%8D><F>,<
	  IFN	%XB <D>,<
	    A	%x (<B>,D,..MSK)		&
	    IFNB <F>,	&8<PRINTX C AND E	&X ARE IN DIFFERENT	&x WORDS>>
	  ..MS	'K==0>		
	IFNB <	'8F>,<
	  ..MSK=..MSK!<E>>MSK=..;LJ 	'xJK

	IFDIF <	(D><F>,<	
	  IF	(8NB <D>,<
	    	(XA (<B>,D,..MSK)	(x>	
	  ..MSK==0>		)	
	IFNB <F>,<
	)8	  ..MSK=..MSK!<E>>MSK=..MSK!<;LJ 	)xJa

	IFDIF <	*D><F>,<	
	  IF	*8NB <D>,<
	    I	*XFNB <F>,<		
			*xA1 (B,D,..MSK)>	+ 
	    IFB <F>,	+8<		
		A2 (B,D	+X,..MSK)>> 
	  ..	+xMSK==0>		
	IFNB 	,<F>,<
	  ..MSK=..MSK!<E>>MSK=;$\Y 
.R|
  IF1,<
-@
    PRINTX ? Err
-`or in "A"
    D
.0EFINE X(NAM,ERR) 
/<IFN ..X'NAM&..TX
/ EF,<PRINTX ? ERR>
/@>
    $TX$ERR>

    $TX$ERR>
;$^ 
1 S2

    ..
1@TXF==0				
    .
1`.TXB==0				
    
2..TXP==0				
   
2  ..TXEG==<..TXEF=
2@=0>			
    IRPC 
2`A,<				
	..TXC=
3=ASCII\A\_-35		
3 
	IFN ..TXB,<IFN 
[email protected],..CNS
3`(<A>)
		   IFE 
4..TXB-..TXC,..TXB
4 ==0>
	IFE ..TXB,
4@<..TXQ(<A>,\..TX
4`F)>>	
    ..TXC1
5				
    IFN ..T
5 XB,<IFN <..TXB-"^
5@">,<..TXER(PEA)>>
5`
    ..TXEF==..T
6XEF!..TXEG		
   
6  IFN ..TXEF,<..TERR<A>>
,<..TE;&( 
Q!..TXA(.TQCH0)..TXA(.TQC;&) 
 Q*..TXER(IQU)..TXER(IQU;&) 
PQ%..TXER(IQU)..TXER(IQU;&0 
PQ..TXA(.TQCHA)..TXA(.TQC;&5 
Q..TXC0(\".CHLFD).TXC0(\".;&5 
Q..TXC0(\".CHVTB).TXC0(\".;&6 
PQ..TXC0(\".CHFFD).TXC0(\".;&6 
PQ..TXC0(\".CHCRT).TXC0(\".;&@ 	`XN
	..TSIZ 	`x(..PST,C)	
	.CA	aSE ..PST,<<
		SE	a8TZM B>,<	
		HLL	aXZS B>,<	
		HRRZ	axS B>,<	
	  ..TS	bAC (..ACT,B)	
		b8  .IF0 ..ACT,<
		bX	$CALL .ZERO	
			bxLSTOF.
		JUMP [P	cOINTR(B,C)]
			c8LSTON.>,<
		..TX (Z,B,C)>>>TX;&81 	8I
	IFNDEF 	X.PSECT,<
	A==0		x		
	..TSA1==<Z 	B>		
	  IFE ..TS	8A1&^O777777777760	X,<A==1> 
	>
	I	xFDEF .PSECT,<
		A==0			
	..TSA1=	8=<Z B>		
	.IF .	X.TSA1,ABSOLUTE,<		x
	  IFE ..TSA1&^	O777777777760,<A	8==1>> 
	PURGE ..TSA1>
	PURGE ..;&:= 	xH
	A==3				
	IFE <B>+1,<	8A=0>	
	IFE <B>-	X^O777777,<A==1> 	x
	IFE <B>-^O777777B17,<A==2>7;' uH7
   ..TX1u8==C			
IFDEF .PuXSECT,<
   .IFN .ux.TX1,ABSOLUTE,<
v	TDA B,[C]>
 vX  .IF ..TX1,ABSOLv8UTE,<		
	..TX2==vx0		
	IFE <..TX1&w^O777777B17>,<
	w8  ..TX2==1		
	  wXTRA B,..TX1>
	wxIFE ..TX2,<		
	IxFE <..TX1&^O77777x87>,<
	  ..TX2==1xX		
	  TLA B,(.xx.TX1)>>
	IFE ..TyX2,<		
	  IFE <<y8..TX1>B53-^O77777	X7>,< 
	    ..TX3	x (A,B)>>	
	IFE	 ..TX2,<		
	  TD	8A B,[..TX1]>	
	X	PURGE ..TX1,..TX	x2>>
IFNDEF .PSEC	T,<
	..TX2==0		
	IFE <..TX1&^O77	X7777B17>,<
	  ..	xTX2==1		
	  TRA	 B,..TX1>
	IFE 	8..TX2,<		
	IFE <	X..TX1&^O777777>,<	x
	  ..TX2==1		
		  TLA B,(..TX1	8)>>
	IFE ..TX2,<	X		
	  IFE <<..TX	x1>B53-^O777777>,<	 
	    ..TX3 (A	8,B)>>	
	IFE ..T	XX2,<		
	  TDA 	xB,[..TX1]>	
	PURGE ..TX1,..TX2>;'` 	8HM
	IFIDN <	XA><Z>,<		
	  ..	xTX2==1
	  ANDI 	B,^-..TX1>	
	IFI	8DN <A><O>,<		
		X  ..TX2==1
		OR	xCMI B,^-..TX1>	
	IFIDN <A><C>,<		8		
	  ..TX2==1
		X	  EQVI B,^-..TX1>QVI B,^-..TX;'  
@R(


	..TXE
`F==0			

IFNDEF
 A,<..TXER(UQU)>
 		
IFDIF <B><>,
@<IRPC B,<.IFN <
`B>,NUMERIC,..TXER
(IWA)>>
IFNB <C
 >,<IFNDEF .TXTJC
@,<..TXER(IJA)>>

`IFDEF  A,<
  IF
E <A_-^D18>,<IFD
 IF <EFBCD><>
@,<..TXER(ANA)>>

`  IFE <1-<A_-^D1
8>>,<IFDIF <BC
 D><>,<..TXER(JNA)
@>>
  IFE <2-<A_
`-^D18>>,<IFIDN <
EF><>,<..TXER(AD
 S)>>>

      IF
@E ..TXEF,<
	IFID
`N <B><>,<..TXWD=
=<..TXJU==<..TXFC
 ==0>>>
	IFDIF <
@B><>,<
	  IFE <^
`D<B>>,<..TXWD==<
..TXJU==<..TXFC==
 0>>>
	  IFN <^D<
@B>>,<..TXWD==^D<
`B>
	    IFNB <
C>,<..TXJU==.TXTJ
 C>
	    IFB  <
@C>,<..TXJU==.TXTJ
`L
	      IFE <A
 -.TQOCT>,<..TXJU=
  =.TXTJR>
	      
 @IFE <A-.TQDEC>,<
 `..TXJU==.TXTJR>>
!
	    IFB  <D>,<
! ..TXFC==" ">
	  
!@  IFNB <D>,<..TX
!`FC=="D">>>

	I
"FB  <EF>,<..TXP
" T==0>
	IFNB <E
"@F>,<..TXPT==1>
	
"`IFE <..TXWD+..TXP
#T>,<
	    EXP FL
# D(A,TXT.FN)>
	I
#@FN <..TXWD+..TXPT
#`>,<
	    EXP FLD
$(A,TXT.FN)+FLD(.
$ .TXJU,TXT.JU)+FLD
$@(..TXWD,TXT.WD)+F
$`LD(..TXFC,TXT.FC)
%+TXT.AD
	    PNTR(E,F)>>

T;'h 
HTL
    IFE 
H ..TXP,<			
	..IC
H@NS			
	..CNS<ASC
H`IZ\>		
	..TXP==1
I>		
    ..CNS<A
I >			
    ..TXF==
I@0			
    ..TXB=="^"
    ..TXB==;'h 
JTX

    IF
J N ..TXP,<			
	..
J@CNS<\>		
	EXP <F
J`LD(.TQCHT,TXT.FN)
K+[..GCNS]>>
    ..TXP==0>
    ;'	9 
0S
    ..TX
0 EF==..TXEF!..XA	
0@	
    ..TXF==0		
0`		
    ..TXB=="^"
    ..TXB=="^;'
  
6`S6..TXQB(<A>)..TXQB(<;'
( 
7 S@

    IF
7@N ..TXC-"^",<..TX
7`C0(<A>)>		
    
8IFE ..TXC-"^",<..TXF==1>-"^",<..;'
( 
8@S`

    IF
8`E ..TXC-"^",<..TX
9C0(<A>)>	
    I
9 FN ..TXF,<			
	.
[email protected]==0		
	IFDEF
9` .TQCHA,<		
	  
:  IFDEF ..TQMA,.
: .TQMA 
	    IFN
:@ <.TQCHA_-^D18>,
:`<..TXF==2>>>
   
; IFE ..TXF-2,<..T
; XC1(<A>)	
	..IC
;@NS			
	..CNS<..T
;`XA(.TQCHA,>>	
 
<   ..TXEG==..TXEG!..TXEF==..TXEG;'
) 
<@Sr
    ..TX
<`F==3				
    IFG
=E ..TXC-"0",IFLE 
= ..TXC-"9",<..TXF=
=@=2>
    IFE ..TX
=`F-2,<..CNS(A)>		
>
    IFE ..TXF-3
> ,<..CNS<,>		
		 ..TXQ3(A)>
		 ;'
) 
>`T
    ..TX
?F==4				
    IFE
?  ..TXC-"/",<..TXF
?@==5>		
    IFE .
?`.TXC-"[",<..TXF==
@5>		
    IFE ..T
@ XF-4,<..CNS<A,>>
@@		
    IFE ..TXF
@`-5,<..CNS<,,>		
		 ..TXQ5(A)>
;'
* 
A T
    ..TX
A@F==4				
    IFE
A` ..TXC-"/",..TXF=
B=5		
    IFE ..T
B XC-"[",..TXF==5		
B@
    IFE ..TXF-5
B`,<..CNS<,>		
		 
C..TXQ5<A>>		
  
C   IFE ..TXF-4,<..
C@CNS<A,>		
		 ..TXF==5>	
		 ..;'
* 
DT.
    ..TX
D F==6				
    IFE
D@ ..TXC-"/",..TXB=
D`="/"		
    IFE .
E.TXC-"[",..TXB=="
E ]"
    IFE ..TXB
E@-"]",..CNS<[>		

E`    IFE ..TXB,..TXF==5 ..TXB,..T;'
+ 
F T<
    ..TX
F@F==0			
    IFE 
F`..TXC-"]",..CNS<]
G>	
    ..CNS<)>	
G 		
    ..GCNS			
G@
    ..TXEG==..TXEG!..TXEF==..T;DQ @;DPQ ;EPQ ;E:Q  ;EpQ ;E+PQ ;F	0Q ;F\:Q @
0P 
@P 
PP 
`P d  	=Ki
	.ACV2 (A)
	.ACV2 (d@ 	=XKs
	A=.FPA	=xC+..NAC		
	IFB <	>B>,<..NAC=..NAC+	>81>
	IFNB <B>,<..NAC=..NAC+B>.d` 	>xL
	IFG A-	?.NPAC,<PRINTX ?TO	?8O MANY ACS USED>
	IFLE A-4,<
	@	?x $CALL .SAVEA>	
	IFG A-4,<
	  $CALL .SAVE8>  
| @
	XLIST
`	.ORG 0
	LIST
.ORG 0
	LIST

=Z 	e8N+$CALL	I%INTA$CALL	I%IN9  	
xHq
	..CSN==	
	..CSC==0
	I	 B,<
	IFE...C	,<
	OPST	
	  ..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 lQP lXP lzP 
l)XP l,UP l9VP l;0P l;ZP lH:P lI3P lI;P lJ9P lj6P lkP lkP lkP lkXP lzQP mP mTP mQP mTP muP m9<P mkrP mktP mm6P mm<P 
myTPn n-P n=tP nH2P nKuP 	nNP n\9P 	n\yP S@P ,<H 	]XMw
	..PST==	]xC-FWMASK
	.IF0 	^..PST,<
		SOS B	^8>,<	
		$CALL .SO	^XS	
		LSTOF.
		J	^xUMP [POINTR(B,C)]
		LSTON.>C} 
NW
	.OPCD==
p`.OPCD+1
	WO.A==.OPCD
G),<
		| @ 
	XLIST
(	.....X=.
	.ORG
	.ORG 0
	REPEATh .....X,<EXP 0>
	PURGE .....X
	.ORG
	LIST

	.$^p $j6p $lWP %I7p %KqP %h6p %h:P %i:P &:p &
p &=p LzP MX<P N
WP N<P P `P &2 	XHc
	..IFT==	xA		
	IFE ..IFT,	
<
	B
	..IFT==0	
8>		
	IFN ..IFT,<
	C>N ..IFT,<&t<H 	ZXM_
	..PST==	ZxC-FWMASK
	.IF0 	[..PST,<
		AOS B	[8>,<	
		$CALL .AO	[XS	
		LSTOF.
		J	[xUMP [POINTR(B,C)]
		LSTON.>C&tj7Q:?'<P'<P'<P'<P'<P'<P'<P'<P'<P'<P*IA*I*|A*|6MiTQ@7;rpP7H:pB7kp 7N8p ;`P ;-J7P#~>)qp >5H3p >DLYp ?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 
,@^

	IFG	A-[email protected],<MX.PID==A>
C
G	A-O%=H 	28K
	.STKV2 (A)
	.STKV2 O%=I 	2xK!
	IFB <B	3>,<..STKN==..STKN	38+1>
	IFNB <B>,<	3X..STKN==..STKN+B	3x>
	..STKQ==..STK	4N+1
	.STKV3 (A,\..STKQ)V3 (A,O%=I 	4XK/
   IFDEF	4x A,<.IF A,SYMBO	5L,<PRINTX STKVAR 	58A ALREADY DEFINE	5XD>>
	DEFINE A<-	5x^OB(P)>
	$A==<Z A>>
	$A==<RJP RJP RJ	P RJ	P RJJP RJP RJ
P RJ4`P RJ5 P RLH:P RLkQP RMD)P RMDkP RMX6P RMX<P RMXSP RMYP RMYP RMY6P RM\P RM\ZP RN
tP RNJ6P RNd
P RNe(P RNe)P RNeHP 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  	8XKE
	.TRV2 (A)
	.TRV2 (Sd@ 	9KO
	.TRV3 (	98A,\..NV)	
	IFB 	9X<B>,<..NV=..NV+1	9x>
	IFNB <B>,<..NV=..NV+B>,<..Sd` 	:8K]
   IFDEF	:X A,<.IF A,SYMBO	:xL,<PRINTX TRVAR 	;A ALREADY DEFINED	;8>>
	DEFINE A<^O	;XB(.FP)>
	$A==<Z A>>
	$A==<S"P S"P S"	P S"	P S"JP S"P S"
P S"4`P S"5 P S%D)P S%DkP S&d
P S&e(P S&e)P S&eHP SFH2P SFIVP SFJQP SFJVP SFJYP _%~ 
w@WX
		$CALL	
w`I%WTO		
		LSTOF.
x			
		JRST	g		
x 
		$WTRST			
	IF
x@NB <A>,<$WTMTY (
x`<A>)>	
	IFNB <
yB>,<$WTTYP (<B>)
y >	
	IFNB <C>,<$
y@WTTXT (<C>)>	
	
y`IFNB <D>,<$WTOBJ
z (<D>)>	
	IFNB 
z <E>,<$WTACK (<E
z@>)>	
		IRP F,<
z`F>		
		$WTBLD			
{
	g:!
	LSTON.  g:!
	LSTON. kPP >}{woP