Google
 
Trailing-Edge - PDP-10 Archives - BB-L054E-RK - glxmac.unv
There are 92 other files named glxmac.unv in the archive. Click here to see a list.
x
,5@P C4@ X8EG
	..NAC==XX0		
	IRP A,<
	Xx  .ACV1 (A)>		
	.ACV3 (\..NAC)C' 8@..AS(A,B,ADD,SUB)(A,BC, d`>&LSH A,-^D9LSH A,-^DC2f} 	g`NP
	.EAWTO(	hMTY,0)
	.EAWTO(T	h YP,2)
	.EAWTO(TX	h@T,2)
	.EAWTO(OBJ	h`,0)
	.EAWTO(ACK,	i0)
	.EAWTO(FLG,1	i )
	.EAWTO(NOD,0)	i@
	.EAWTO(JBN,0)
	.EAWTO(ACD,0)
	j	.EAWTO(OCD,0)
	.EAWTO(MFL,1)
C:' &xB7
	TXZA,<^-<B>>TXZ A,CHuI7Q xCHvN8P'CJ9ip CJ9jp CJ9l}p E2"@ 	
	  IFE 	B,<..TA==0>
	  	8IFN B,<EXP ..TA	X
		    PURGE ..TA>
	PURGE ..TE@tP'E@vyQ ~E@v:=Q |F;z:Q @G@ {8?[
	    ..CX(,A,B)   ..CGD ~x?w
	    ..CX(A,A,B)  ..CGDP |x?g
	    ..CX(E,A,B)  ..CGDp }8?k
	    ..CX(G,A,B)  ..CGDy  }x?o
	    ..CX(GE,A,B) ..CGE@ {x?_
	    ..CX(L,A,B)  ..CGEI  |8?c
	    ..CX(LE,A,B) ..CGE` ~8?s
	    ..CX(N,A,B)  ..CGH 
P`U
	
	  LS
QTOF.

	X CRE	

Q 	X GEN	
	X PRT	
P 
	X CLS	
	X AUT	
P@
	X USW	
	X SPL
Q@	
	X SIZ   
	X 
Q`MOD	
	X CHN	

	  LSTON.


G"\Y 

ao

	IF1, 

8<%%EDT==AEDT>	

X
	IF2, <IFN <%%E

xDT-AEDT>,<
		PR

INTX ? Edit Numbe

8r Doesn't Match G

XLXVER in GLXA
	

x	A$WHO(\AEDT)>	


		A$NOTE		
	I

8NTERN AEDT		
	I

XNTERN LODLEV		
;

x	PURGE %%EDT> ;END IF2

G-G4,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.	RQ G4.`Q @G4.

zQ G4.(4Q G4.,Q G4.9Q G4.=zQ G4.lXQ @G4.zsQ  G4/
3Q @G:YlP 

G>hKW P 
	IFNB <>P@,<
	PRINTX  (FroP`m GLXVER)
	> ;END IFNB 
	G>hMt N`~
	PRINTX OGLXVER	GLXCOM EdiO t(50) by DPM on 1O@4-May-81
	PRINTXO`	    	GLXCOM	Actual Edit(A)
	G>lYP G>vC@ '8:CLALL
PAGE'X; (A Continued o'xn next page)
SAL(L; (A Continued (8from previous page) previous pagGHt;rP GHtkP GHv	P GHv)9P GHv:=P I!k7P I!k<P ImP I$P`>3*IIY{P`>5*|I  xXGK
	IFNB <xxB>,<..STR0 (.DECRy0,,<B>,A)>
	IFy8B  <B>,<SOS A>  <B>,<SOS A>I6= 0xC
	A==<-11B<C>+1B<C-D>> 18
	IF1,<IFDEF %A1X,<PRINTX ?A ALRE1xADY DEFINED>>
	D2EFINE %A (OP,AC,28Y,MSK)<	
	IFDIF 2X<Y><>,<
	OP (<AC2x>,B+'Y,MSK)>	
	3IFIDN <Y><>,<
	O38P (<AC>,B'Y,MSK)>>AC>,B'Y,MSK)I'7 x@'..OP(A,B,DIV)..OP(A,BIOH1 JH\^
	IFB <DJh>,<
	XWD	[ASCIZ\KC\],[XWD B,A]>K(
	IFNB <D>,<
	KHXWD	[EXP CM%FW!DKh
		ASCIZ\C\],[XWD B,A]>
,[XKH(Q P 0KJ

,bPBKJ)bPb  KJ=P +KJ{P 	KJIBP !KJ=bP (KJIP &KJX"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-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 #KJtmP -KJuX"P KJu]P KJuhbP KJuiP KJu{"P KJv	BP KJv

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

YBP 
N`T~
	IF1,<IF
ODEF ERA$,PRINTX 
O ?Duplicate error 
O@code A>
	ERA$=
O`=ER%%%
	ER%%%==ER%%%+1
R%%%==EKKP KK,}P KKLP KK|Y 
`Tr
	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,<P
 rotection 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,<T
# able 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,<Value 
)@missing in date/t
)`ime>
	ERR	MDD,<M
*issing day in dat
* e/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/tim
, e>
	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,<Switc
/ h does not begin 
/@with slash>
	ERR
/`	NOM,<Unrecognize
0d switch or keywo
0 rd>
	ERR	NUL,<Nu
0@ll switch or keyw
0`ord given>
	ERR	
1INW,<Invalid guid
1 e word>
	ERR	NC,
1@<Not confirmed>

1`	ERR	ICN,<Invalid
2 character in num
2 ber>
	ERR	NQS,<I
2@nvalid quoted str
2`ing - does not be
3gin with quote>

3 	ERR	AMB,<Ambiguo
3@us switch or keyw
3`ord>
	ERR	NMT,<D
4oes not match tok
4 en>
	ERR	CMA,<Co
4@mma not given>
	
4`ERR	NNC,<Node nam
5e may not exceed 
5 6 characters>
	E
5@RR	INT,<Node term
5`inator "::" must 
6be specified>
	E
6 RR	NSN,<Unknown n
6@ode name>
	ERR	I
6`PS,<Invalid path 
7specification>
	
7 ERR	IUS,<Invalid 
7@user specificatio
7`n>
	ERR	DGS,<Dev
8ice name may not 
8 exceed 6 characte
8@rs>
	ERR	DNE,<Un
8`known device>
	E
9RR	DIO,<Device ca
9 n not do input or
9@ output>
	ERR	BD
9`F,<Invalid date/t
:ime format>
	ERR
: 	ABS,<Field too l
:@ong for internal 
:`buffer>
	ERR	TMT
;,<Command too lon
; g 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
AM,<File being mod
A ified>
	ERR	WLK,
A@<Write-locked dev
A`ice>
	ERR	CSD,<C
Bannot supersede a
B  directory>
	ERR
B@	CDD,<Cannot dele
B`te a non-empty di
Crectory>
	ERR	SN
C F,<Sub-file direc
C@tory not found>

C`	ERR	ESL,<Search 
Dlist is empty>
	
D ERR	LVL,<SFD leve
D@l nested deeper t
D`han the maximum a
Ellowed>
	ERR	CCW
E ,<Cannot create/w
E@rite on any struc
E`ture in search li
Fst>
	ERR	FCU,<Ca
F nnot update file>
F@
	ERR	ENQ,<File 
F`has outstanding E
Gnqueue lockes set
G >
	ERR	SWS,<Soft
G@ware write-lock o
G`n structure>
	ER
HR	DER,<Hardware d
H evice error>
	ER
H@R	DTE,<Hard data 
H`error>
	ERR	BKT,
I<Block too large>
I 
	ERR	IPP,<Non-e
I@xistant UFD>
	ER
I`R	TRN,<RIB or tra
Jnsmission error>
J 
	ERR	ILC,<Illega
J@l character in da
J`te/time>
	ERR	NF
KT,<Date/time must
K  be in the future
K@>
	ERR	NPS,<Date
K`/time must be in 
Lthe past>
	ERR	U
L DM,<Unrecognized 
L@month in date/tim
L`e>
	ERR	UDN,<Unr
Mecognized name in
M  date/time>
	ERR
M@	IFA,<Illegal fil
M`e attribute>
	ER
NR	FAI,<File attri
N bute inconsistancy>
nconsistancKKBP 
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` 	Ik
	IFIDN <	0BC><>,<EXP <A>	P>
	IFDIF <BC><	p>,<
	 IFE <A+1>	,<<POINT 7,C>>
	0	 IFN <A+1>,<
		P   IFIDN <C><>,<	pEXP <A,B>>
	  	 IFDIF <C><>,<EX	0P <A,B,C>>
	>>A,B,C>>
	>KbN@ 	`Kc  $x:)IRP A,<
%	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 F 6
	IFNB <>F@,<
	PRINTX  (FroF`m GLXVER)
	> ;END IFNB 
	M&`Mt D`.
	PRINTX EGLXVER	GLXFIL EdiE t(76) by DPM on 2E@7-May-81
	PRINTXE`	    	GLXFIL	Actual Edit(A)
	M&dYP M2  hX>E<<<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|  %X:7IRP A,<
%x	IF2,<IFDEF A,<.&IFN A,EXTERN,<IN&8TERN A>>
	     &XIFNDEF A,<EXTERN&x A>
	Q SUPPRESPA>>FlYSUPPRO3DYPFO3EKrPfO3EZ7PO3FLQ St\Yp Stkp SuZp SulQ Su}:p Sv
1p Sv

Sp Sv>@p SNn 8@#..OP(A,B,IDIV).OP(A,BS7-N 8@..OP(A,B,IMUL).OP(A,BS:  uXG3
	IFNB <uxB>,<..STR0 (.INCRv0,,<B>,A)>
	IFv8B  <B>,<AOS A>  <B>,<AOS A>S:HKW \`j
	IFNB <>],<
	PRINTX  (Fro] m GLXVER)
	> ;END IFNB 
	S:HMt [ b
	PRINTX [@GLXVER	GLXINI Edi[`t(20) by DEK on 1\5-Apr-81
	PRINTX\ 	    	GLXINI	Actual Edit(A)
	S:LYP S;k k>Y<<<A>B<POS(<B>)>>&<B>>S; KW M`r
	IFNB <>N,<
	PRINTX  (FroN m GLXVER)
	> ;END IFNB 
	S; Mt L j
	PRINTX L@GLXVER	GLXINT EdiL`t(77) by DPM on 1M9-May-81
	PRINTXM 	    	GLXINT	Actual Edit(A)
	S;!kP S;!k<P S;$YP S? &8B3
	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 a`
	IFNB <>b,<
	PRINTX  (Frob m GLXVER)
	> ;END IFNB 
	SBMt ` 

	PRINTX `@GLXVER	GLXIPC Edi``t(60) by DAK on 1a3-Mar-81
	PRINTXa 	    	GLXIPC	Actual Edit(A)
	SBIP SBM"P SBYP SBlP SB2P SB

BP SB,BPSB,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/
	LSTOF.		XCREF
	..TEXT<A	0>		
	  EXP	0		
	LSTON.
	0		
Uv98Q |U$@ 	I@U8
	
	  LS
R@TOF.

	X JNO,.J
R`IJNO,<-1,,GJBJNO>
S	
	X TNO,.JITNO,
S <-1,,GJBTTY>	
	X
S@ USR,.JIUNO,.GTPP
S`N		
	X CDN,.JIDN
TO,<-1,,GJBPTH>	

T 	X PRG,.JIPNM,.GT
T@PRG		
	X CJN,.JI
T`CPJ,<-1,,GJBCJB>	
U
	X BAT,.JIBCH,.
U GTOBI		
	X JLT,.
U@JISTM,.GTJLT		
	
U`X LOC,<-1,,GJBLOC
V>,<-1,,GJBLOC> 

V 	X RTM,.JIRT,<-1,
V@,GJBRTM>	
	X TLC
V`,<-1,,GJBTLC>,<-1
W,,GJBTLC>	
	  LSTON.


	  LSU +,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 K ^
	IFNB <>K@,<
	PRINTX  (FroK`m GLXVER)
	> ;END IFNB 
	W
 Mt I`V
	PRINTX JGLXVER	GLXKBD EdiJ t(53) by DPM on 2J@2-May-81
	PRINTXJ`	    	GLXKBD	Actual Edit(A)
	W
$YP WNH1 L(\j
	IFB <CLH>,<
	XWD	[ASCIZ\LhB\],A>
	IFNB <MC>,<
	XWD	[EXP M(CM%FW!C
		ASCIZ\B\],A>
SCIZY"luQ xY&i1 D`>

	  LSTEOF. XCREF

	CDOE 	OTSINI			
	CDO	E@    			
	CDO	.ZPE`AGA
	CDO	.ZPAGN
	CDO	.ZCHNK
	CDF O	.SAVE1
	CDO	.SF@AVE2
	CDO	.SAVE3F`
	CDO	.SAVE4
	CGDO	.SAVET
	CDO	.G SV13
	CDO	.SV14
	CDO	.SV15
	CDOG`	.SV16
	CDO	.RETHT
	CDO	.RETF
	CH DO	.RETE
	CDO	.AH@OS		
	CDO	.SOS		H`
	CDO	.ZERO		
	ICDO	.POPJ		
	CDOI 	.STOP		
	CDO	.SI@AVE8		
	CDO	.STKI`ST		
	CDO	.TRSETJ		
	CDO	.POPJ1		J 
	CDO
	CDO
	CDJ@O
	CDO
	CDO
	CJ`DO

	CDO			
	CKDO	C%RPRM
	CDO	CK %INTR
	CDO	C%SENK@D
	CDO	C%RECV
	K`CDO	C%BRCV
	CDO	LC%REL
	CDO	C%CPIL D
	CDO	C%KPID
	L@CDO	C%SPID
	CDO	L`C%MAXP
	CDO	C%PIMDJ
	CDO
	CDO
	M CDO
	CDO
	CDO
M@
	CDO	      			
	CDO	F%IOPN
	CDNO	F%AOPN
	CDO	F%N OOPN
	CDO	F%IBYTN@
	CDO	F%OBYT
	CN`DO	F%IBUF
	CDO	FO%OBUF
	CDO	F%RELO 
	CDO	F%DREL
	CO@DO	F%RREL
	CDO	FO`%REW
	CDO	F%POS
	CDO	F%CHKP
	CDP O	F%INFO
	CDO	F%P@FD
	CDO	F%REN
	P`CDO	F%DEL
	CDO	FQ%FCHN
	CDO
	CDOQ 
	CDO
	CDO
	CDQ@O
	CDO
	CDO
	CQ`DO
	CDO

	CDO	R      			
	CDO	MR %ACQP
	CDO	M%RELR@P
	CDO	M%IPSN
	R`CDO	M%NXPG
	CDO	SM%IPRC
	CDO	M%IPS RM
	CDO	M%AQNP
S@	CDO	M%RLNP
	CDOS`	M%CLNC
	CDO	M%FTPGS
	CDO	M%GMEM
	CDO	M%RMEM
	CDT@O
	CDO
	CDO
	CT`DO
	CDO
	CDO
	UCDO	M%GPAG
	CDO	U M%RPAG
	CDO
	CDU@O
	CDO
	CDO
	CU`DO
	CDO
	CDO
	VCDO

	CDO	     V  			
	CDO	T%TEXTV@
	CDO	T%TTY
	CDV`O
	CDO
	CDO
	CWDO
	CDO
	CDO
	W CDO
	CDO
	CDO
W@	CDO

	CDO	    W`  			
	CDO	L%CLSXT
	CDO	L%DLST
	X CDO	L%CENT
	CDO	X@L%CBFR
	CDO	L%DEX`NT
	CDO	L%NEXT
Y	CDO	L%FIRS
	CDOY 	L%LAST
	CDO	L%PY@REV
	CDO	L%PREM
	CDO	L%CURR
	CDZO	L%RENT
	CDO	L%Z SIZE
	CDO	L%APOSZ@
	CDO
	CDO
	CDZ`O
	CDO
	CDO
	C[DO
	CDO
	CDO
[ 
	CDO			
	CDO	I%[@NOW
	CDO	I%EXIT
	CDO	I%ION
	CDO\	I%IOFF
	CDO	I%S\ LP
	CDO	I%INT1
\@	CDO	I%INT2
	CDO\`	I%INT3
	CDO	I%T]IMR
	CDO
	CDO
] 	CDO	I%SOPR
	CDO]@	I%WTO
	CDO
	CD]`O	I%HOST
	CDO	I%^JINF
	CDO
	CDO

	CDO			
	CDO
	CDO	S%DATI
	CD^`O	S%SIXB
	CDO	S%_CMND
	CDO	S%TBLK_ 
	CDO	S%SCMP
	C_@DO	S%ERR
	CDO	S%_`INTR
	CDO	S%EXIT`
	CDO	S%TBAD
	C` DO	S%TBDL
	CDO	S`@%NUMI
	

	CDO	``K%RCOC			
	CDO	Ka%WCOC
	CDO	K%SUEa T
	CDO	K%STYP
	a@CDO	K%TXTI
	CDO	a`K%SOUT
	CDO	K%BObUT
	CDO	K%BIN
	b CDO	K%BACK
	CDO	b@K%TPOS
	CDO	K%BUb`FF
	CDO	K%FLSH
c	CDO	K%OPEN
	CDOc 
	CDO
	CDO
	CDc@O
	CDO
	CDO
	Cc`DO
	CDO
	CDO
	  LSTON.
  
	Y:XKW d &
	IFNB <>d@,<
	PRINTX  (Frod`m GLXVER)
	> ;END IFNB 
	Y:XMt b`
	PRINTX cGLXVER	GLXLNK Edic t(7) by DPM on 22c@-Dec-80
	PRINTX	c`    	GLXLNK	Actual Edit(A)
	Y:\YP Y>

@ oF
	IFNB <o8C>,<..STR0 (..LDBoX,A,C,B)>
	IFBox  <C>,<MOVE A,B>C>,<MOVE A,Y>%I;P YO%GP YO%yG (x:Q
	IFNDEF )LSTIN.,LSTIN.==0	)8	
IFE LSTIN.,<
)X	IFIDN <XCREF><A)x>,<.XCREF>	
		  * XLIST>		
	LSTIN.==LSTIN.+1STINYO%{G *X:[
	IFG LST*xIN.,LSTIN.==LSTIN+.-1	
	IFLE LSTIN+8.,<.CREF		
		      LIST>
		   [KW H`J
	IFNB <>I,<
	PRINTX  (FroI m GLXVER)
	> ;END IFNB 
	[Mt G B
	PRINTX G@GLXVER	GLXMAC EdiG`t(217) by DPM on H27-May-81
	PRINTH X	    	GLXMAC	Actual Edit(A)
	[YP G[3@ jX>U<<<1_<A>>-1>B<B>>_<A>>[8@ iX>M1B<<A>-1>-1B<B><<A>-1>[@ @ <
	IFB <B@@>,<MAXSIZ==0
		I@`RP A,<IFG <A-MAAXSIZ>,<MAXSIZ==AA >>>
	IFNB <B>,<A@B==0
		IRP A,<A`IFG <A-B>,<B==A>>>
B>,<B==[tP'[t;ZQ x[v
QP'[v:Q[vxQ [[v[lp [lXp [lrp [ltp [lxp [l}p [hKW W`B
	IFNB <>X,<
	PRINTX  (FroX m GLXVER)
	> ;END IFNB 
	[hMt V :
	PRINTX V@GLXVER	GLXMEM EdiV`t(22) by TARL on W17-Apr-81
	PRINTW X	    	GLXMEM	Actual Edit(A)
	[lYP 	[n:=P [tuQ @[th:Q [u[yQ [ukvQ  [v=3P'[v|WQ [&p B <"
	IFB <BB@>,<MINSIZ==377777B`,,777777
		IRP CA,<IFG <MINSIZ-AC >,<MINSIZ==A>>>
	IFNB <B>,<B==C`377777,,777777
	D	IRP A,<IFG <B-D A>,<B==A>>>
A>,<B==A>>>
[>!` j>Q<A-<A/B>*B><A-<A/B[?7 kX??
   ..MX1kx==B			
IFDEF .PlSECT,<
   .IFN .l8.MX1,ABSOLUTE,<
lX	MOVE A,[B]>
 lx  .IF ..MX1,ABSOLmUTE,<
	..MX2==0	m8	
	IFE <..MX1>B5mX3,<
	mx..MX2==1
	  MOVEI A,..MXn1>	
	IFE ..MX2,<n8		
	IFE <..MX1>BnX17,<
	  ..MX2==1nx
	  MOVSI A,(..oMX1)>>	
	IFE ..Mo8X2,<		
	IFE <<..oXMX1>B53-^O777777>ox,<
	  ..MX2==1
p	  HRROI A,<..MXp81>>>	
	IFE ..MX2pX,<		
	IFE <<..MXpx1>B17-^O777777B17q>,<
	q8..MX2==1
	  HRLOI A,(..MqXX1-^O777777)>> 
qx	IFE ..MX2,<		
	r  MOVE A,[..MX1]r8>	
	>>

IFNDEFrX .PSECT,<
	..MX2rx==0		
	IFE <..MXs1>B53,<
	  ..MX2s8==1
	  MOVEI A,sX..MX1>	
	IFE ..MsxX2,<		
	IFE <..MtX1>B17,<
	  ..MXt82==1
	  MOVSI AtX,(..MX1)>>	
	IFEtx ..MX2,<		
	IFE u<<..MX1>B53-^O777u8777>,<
	  ..MX2=uX=1
	  HRROI A,<ux..MX1>>>	
	IFE .v.MX2,<		
	IFE <<v8..MX1>B17-^O77777vX7B17>,<
	  ..MX2vx==1
	  HRLOI A,w(..MX1-^O777777)>w8> 
	IFE ..MX2,<	wX	
	  MOVE A,[..wxMX1]>	
>
	PURGE ..MX1,..MX2RGE[Lt;ZQ x[LvN8P'[NF:=p [N^= 3xC1
	A==C	4	
	IF1,<IFDEF %48A,<PRINTX ?A ALR4XEADY DEFINED>>
	4xDEFINE %A (OP,AC5,Y,MSK)<	
	IFDIF58 <Y><>,<
	OP (<A5XC>,B+'Y,MSK)>	
5x	IFIDN <Y><>,<
	6OP (<AC>,B'Y,MSK)>>AC>,B'Y,MSK[PuySP'[PvNP'[Vg x@..OP(A,B,MUL)..OP(A,B[`v
2P ] " :IF2,<IFDEF" A,<A==A>> IFNDEF A,<A==B>]F@ XTEMFDB##_
QkRp _
Ql}p _
Qmp _
Qm7p _
T= 
R V7

	X	.OT
^(RDR,Reader
	X	.O	ITNCU,Network-Cont
]Hroller
	X	.OTLPT
^,Printer
	X	.OTB
axAT,Batch-Stream

b	X	.OTCDP,Card-Pu
b8nch
	X	.OTPTP,Pa
bXpertape
	X	.OTPL
bxT,Plotter
	X	.OT
cJOB,Job
	X	.OTTR
c8M,Terminal
	X	.O
cXTOPR,Operator
	X
cx	.OTIBM,<IBM Remo
dte>
	X	.OTMNT,<D
d8evice>
	X	.OTFTS
dX,<File Transfer>
dx
	X	.OTBIN,<Card 
eReader Interprete
e8r>
	X	.OTRET,<Fi
eXle Retrieval>
	X
ex	.OTNOT,<Retrieva
fl Notification>

f8	X	.OTDBM,<DBMS S
fXystem>
	X	.OTFAL
fx,<File Access Listener>
ess Lis_SKW _|
	IFNB <>_ ,<
	PRINTX  (Fro_@m GLXVER)
	> ;END IFNB 
	_SMt ]@t
	PRINTX ]`GLXVER	GLXOTS Edi^t(7) by DEK on 6-^ Apr-81
	PRINTX	 ^@   	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 al}P aI3 
oxW3

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

  
p8 IFNB <D>,<..XX=
pX..XX!CM%HPP> 
  
px IFNB <E>,<..XX=
q0..XX!CM%DPP> 


qP	EXP ..XX		

  
qp IFNB <C>,<EXP 
rC>
   IFB <C>,<
r0EXP 0>

   IFNB
rP <D>,<POINT 7,[A
rpSCIZ \D\]>
   I
sFB <D>,<0>

  
s0 IFNB <E>,<POINT
sP 7,[ASCIZ \E\]>
sp
   IFB <E>,<0>
t



   IFB <I
t0>,<0>
   IFNB <
tPI>,<EXP I>

  
tp IFB <J>,<0>
  
u IFNB <J>,<EXP 
u0J>

   IFB <H>
uP,<0>
   IFNB <H
up>,<EXP H>

   
vIFB <G>,<0>
   
v0IFNB <G>,<EXP G>

G>,<EXP Ga@KW Z V
	IFNB <>Z@,<
	PRINTX  (FroZ`m GLXVER)
	> ;END IFNB 
	a@Mt X`N
	PRINTX YGLXVER	GLXPFH EdiY t(16) by TARL on Y@17-Apr-81
	PRINTY`X	    	GLXPFH	Actual Edit(A)
	aDYP aE|SP'~a d >"LSH A,^D9LSH A,^D9a+= 5a;&  	A`L
	 IFB  <	BB>,<..STR0(..PNT	B ,,<FWMASK>,A)>
	B@	 IFNB <B>,<..ST	B`R0(..PNT,,<B>,A)>.PNT,,<B>,Aa>Mm gx>A<POINT WIDh(B),A,POS(B)>B),A,POS(B)>a?H6 +a? f>1<^L<<A>&<-<A>>>><<A>&<aJ}Ks !`;t

	SALL	, 			
	LSTOF. XCRE,@F			

	%%.GLX==,`%%.GLX			
	GLXVR-S==GLXVRS			

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

	TOPS10	<			
.`		SEARCH	UUOSYM		/
		%%UUOS==%%UUO/ S		
	>				

	T/@OPS20	<			
		SEA/`RCH	MONSYM		
;		0%%MONS==%%MONS		
	>				

	IFB <0@B>,<			
		.TEXT0`	|,REL:GLXLIB/SEA1RCH/REQUIRE:I%INI1 T|
		DEFINE	$DAT1@A (NAM,SIZ<1>),< 1`
			NAM:	BLOCK	S2IZ
		>			
		DEF2 INE	CDO (X),<GLOB2@ X> 
		LIBVEC			2`
	>				

	IFNB3 <B>,<CHKEDT (B3 )>	

	IFNB <B>3@,<IFDIF <B><INI>3`,< 
		IFN GLXPUR4E,<.PSECT .HIGH.>4  
		IFE GLXPURE,4@<		
			TWOSEG	404`0000	
			RELOC	05	
			RELOC	400005 0	
		>			

		D5@EFINE $DATA(NAM,S5`IZ<1>),< 
			IFN6 GLXPURE,<.PSECT 6 DATA> 
			IFE GL6@XPURE,<RELOC> 
	6`		IFNDEF B%D,<B7%D::! B%DL==:0>
			NAM:	BLOCK	SI7@Z
			B%DL==:B%7`DL+SIZ 
			IFN G8LXPURE,<.ENDPS DA8 TA> 
			IFE GLXP8@URE,<RELOC> 
		>8`			

		IFDIF <9B><OTS>,<	
			DE9 FINE	CDO (X),<GLO9@B X> 
			LIBVEC	9`	
		>			

	>>	:			

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

	LSTON.			;`	

	GLOB	<.POPJ<, .RETT, .RETF>	
	OPDEF	$RET	[POP<@J	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=xPeaPv\rPaPv|UPQe,(SQexe,)6Qee,)RQPe,+Qe@e,,UQP@e,-Qge,<SQpe-)WQge-i1Ppe.l}p g

,}Q g

-LyQ @g

.=1Q  gpKW R@
	IFNB <>R`,<
	PRINTX  (FroSm GLXVER)
	> ;END IFNB 
	gpMt Q
	PRINTX Q GLXVER	GLXSCN EdiQ@t(66) by DPM on 4Q`-May-81
	PRINTX	R    	GLXSCN	Actual Edit(A)
	gtYP g"@ 	I	
	IFN <<.	8.TA>&B>,<PRINTX	X ?Initial field n	xot zero in $SET>
	8..TVAL==<C>
	X..TMSK==<B>
	  ..TA==..TA!	x<FLD(..TVAL,..TMS	K)>
	  PURGE ..TVAL,..TMSK
	.Tg#=z@HX,C.SWIT+PDBCPY##C.SWIT+PDBg$tkQ@@g$uP'g$uh6Qg.N	@@6@g.NLL` 
hxVo
.SPID	(S
iP.QSR,.IPCPQ,.SPQ
i8SR,QUASAR)	
.SPI
iXD	(SP.OPR,.IPCPO,
ix.SPOPR,ORION)	
.
jSPID	(SP.INF,.IPC
j8PI,.SPINF,INFO)	
jX
.SPID	(SP.MDA,.I
jxPCPM,.SPMDA,MDA)	
k
TOPS10<
.SPID	
k8(SP.IPC,.IPCPS,,I
kXPCC)		
.SPID	(SP
kx.ACT,.IPCPA,,ACTD
lAE)		
.SPID	(SP.
l8TLP,.IPCPT,,TAPLA
lXB)		
.SPID	(SP.T
lxOL,.IPCPC,,TAPAVR
m)		
.SPID	(SP.DO
m8L,.IPCPD,,DSKAVR)
mX		
.SPID	(SP.FIL
mx,.IPCPF,,FILDAE)		
>
,FILDAE)	gR^h9 LDq
	..STKR=L8=10		
	RADIX 8
LX	..STKN==0
	IRP LxA,<
	  .STKV1 (MA)>
	$CALL	.STKM8ST
	 ..STKN,,..SMXTKN
	RADIX ..STKMxR
	PURGE ..STKN,N..STKR,..STKQ
   TKR,..STKQ
  gR~)  r8G
	IFNB <rXC>,<..STR0 (..DPBrx,A,C,B)>
	IFBs  <C>,<MOVEM A,B>>,<MOVEM A,gV x@..AS(A,B,SUB,ADD)(A,Bgg

V ?;~
	IFNB <? B>,<TOPS10<A==B?@>>
	IFNB <C>,<T?`OPS20<A==C>>
PS20<A==C>>
ght-3P ghuWP ghuxSP @ghv5P ghv
2P hDP hHP hLP hPP iP i$tkQP'i$tlUQ xi0,YQ i0,1Q  i0,^Q i0-kvQ @i?4( 

a)IFN FTUUOS,B			;DEFINE UNi?4H 

Pa-IFN FTJSYS,	INTERN AEDT	iD 	(pJS

  IFNB	)	<A>,<.TQCHA==^	)0D<B>B17+ZZ>
  I	)PFNB 	<D>,<DEFINE	)p ..TQMA<D>>
  	*IFNB	<C>,<.TQC=	*0=^D<B>B17+ZZ>
	 ZZ==ZZ+1ZZ>
	iG, 	pJC
	LSTOF.
	TQ(T,2,ASCIZ)			0	
	TQ(O,2,OCTAL)	P			
	TQ(D,2,DECI	pMAL)			
	TQ(F,2,	 FILE)			
	TQ(7,2	 0,CSEVEN)			
	TQ(	 P6,2,CSIXBIT)			
	 p	TQ(W,2,SIXBIT)			!	
	TQ(5,2,SVNBIT	!0)			
	TQ(P,2,USE	!PR)			
	TQ(U,2,DI	!pRECTORY)			
	TQ(	"H,2,DAYTIME)			
	"0	TQ(C,2,TIME)			
	TQ(E,2,ERROR)			"p	
	TQ(I,1,INDIRE	#CT)		
	TQ(M,0,CR	#0,..TXC0(\".CHCRT)	#P)	
	TQ(J,0,LF,..	#pTXC0(\".CHLFD))	
	TQ(L,0,FF,..TXC	$00(\".CHFFD))	
	T	$PQ(K,0,VT,..TXC0(\	$p".CHVTB))	
	TQ(A	%,0,NOCRLF,..TXA(.	%0TQCHA))	
	TQ(0,0	%P,NULL,..TXA(.TQCH	%p0))	
	TQ(3,0,STR	&ING,..TXER(IQU))		&0
	TQ(V,2,VERSION	&P)			
	TQ(2,0,CAR	&pET,..TXER(IQU))	
	TQ(Q,2,POINTER)	'0			
	TQ(B,2,ROB)	'P			
	TQ(1,2,OBJE	'pCT)			
	TQ(N,2,N	(ODE)			
	TQ(R,2,	(0JIB)			
	LSTON.
)			
	LSTON. 	I Uf
	LSTOF.
W`
	X(33,TTY33,33,)
X				
	X(35,TTY35
X@,35,)				
TOPS20
X <
	X(37,TTY37,37
Xh,)				
	X(EXECUP
YORT,EXEC,EXE,)			
Y(
>
TOPS10<
	X(
YHLA120,LA120,L12,)
Yh			
>
	X(LA36,L
ZA36,L36,)			
	X(
Z(VT05,VT05,V05,<37
ZH,177,177,177>)	

Zh	X(VT100,VT100,10
[0,<.CHESC,"[","K"
[(>)	
	X(VT50,VT50
[H,V50,<.CHESC,"J">
[h)		
	X(VT52,VT52
\,V52,<.CHESC,"J">
\()		
TOPS10<	X(VT
\H61,VT61,V61,<.CHE
\hSC,"J">)>		
	LSTON.
)>		
	LSTiK,PA iK4@ RXE#
	..TRR==Rx10		
	RADIX 8
	S..NV==1			
	IRP S8A,<
	  .TRV1 (SXA)>		
	$CALL	.TRSxSET		
	 ..NV-1,,T..NV-1
	RADIX ..T8TRR		
	PURGE ..TRR,..NVURGE ..Tib xA_
		..TX(C,A,<B>)..TX(Cib 8Ak
		..TX(CA,A,<B>).TX(CibP 8Ac
		..TX(CE,A,<B>).TX(Cib` xAg
		..TX(CN,A,<B>).TX(Cibp xA/
		..TX(N,A,<B>)..TX(Nibt 8A;
		..TX(NA,A,<B>).TX(NibtP 8A3
		..TX(NE,A,<B>).TX(Nibu` xA7
		..TX(NN,A,<B>).TX(Nibx xA?
		..TX(O,A,<B>)..TX(Oib| 8AK
		..TX(OA,A,<B>).TX(Oib|P 8AC
		..TX(OE,A,<B>).TX(Oib}` xAG
		..TX(ON,A,<B>).TX(Oic KW U .
	IFNB <>U@,<
	PRINTX  (FroU`m GLXVER)
	> ;END IFNB 
	ic Mt S`&
	PRINTX TGLXVER	GLXTXT EdiT t(46) by DPM on 3T@0-Apr-81
	PRINTXT`	    	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 xAO
		..TX(Z,A,<B>)..TX(ZicT 8A[
		..TX(ZA,A,<B>).TX(ZicTP 8AS
		..TX(ZE,A,<B>).TX(ZicU` xAW
		..TX(ZN,A,<B>).TX(ZmKc@ 

p:_BYTE (3)A+xWHO (9)AVER (6)AMIN (18)AEDTo&  eX>-<^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 
]U:
.TTC==.
W .Z
..Z==..Z+1
Z
..Z==..Z+1=q"eJ  P q*-` +

q+= +
q6~i4 C q? '8B;
	TXC A,<B>
	TXC A,q@ $:#IFB <C>,<$8A==:B> IFNB <C>,<A=:B>B <CqBp +qN5P +up {XGc
	IFNB <{xB>,<..STR1 (..TQZ|,,<B>,A,..STR4)|8>
	IFB  <B>,<SETZM A><B>,<SEuhP 	;z F(\B
	.$RESETFH
	$TYPE (.CMACT)Fh
	$HELP (<>)
	$GNEXT (A)
IFIDN G(<B> <>,< IRP C,GH<C>
			.$BUILD>Gh
IFDIF <B> <>,<H
	$HELP (B)
	IH(RP C,<C>
	.$BUILD><C>
	.$BU	0 
 Q
.WTOX.(.OM
@ACK,<A>,<B>,<C
`>,<D>,<$WTFLG(WT.SJI),E>)LG(WT	J7  X

DEFINE .$R@TN <A>
			.%RTN==1A>
			.%RTN	fI9 
| WdDEFINE .$L
|@ST <A+1>
			.%LST==11>
			.%L	
=Z 	H	
	  IFG 	8A-INT.LV,<PRINTX 	X?Level A interru	xpts not supported	>
	  .BGINT.(\A)   .BGINT.(\A	X5 
~@WvDEFINE .$B
~`REA <A>
			.%BREA==1>
			.%BR	- 	xH'
	  IFDEF	 ..BSIZ,<PRINTX ?	8Missing $EOB afte	Xr a $BUILD>
	  .	x.BSIZ==0			
	  .	.BLOC==.			
	  R	8EPEAT A,<			
			XBLD0.(\..BSIZ,0)		x
		..BSIZ==..BSIZ+1>	
	==..BSI		}[0 /([
	.$RESET/H
	$TYPE (.CMCMA)/h
	$NEXT (A)
	I0RP B,<B>
	.$BUILD,<B>
	.$BU	I@ +hZb
	.$RESET,
	$TYPE (.CMCFM),(
	IRP A,<A>
	.$BUILD,<A>
		$^ 5H[<
	.$RESET5h
	$TYPE (.CMTXT)6
	$HELP (<>)
	$6(NEXT (A)
IFIDN 6H<B> <>,< IRP C,6h<C>
			.$BUILD>7
IFDIF <B> <>,<7(
	$HELP (B)
	I7HRP C,<C>
	.$BUILD><C>
	.$BU	I  8[H
	.$RESET8(
	$TYPE (.CMTAD)8H
	$PDATA (CM%IDA8h)
	$NEXT (A)
	9IRP B,<B>
	.$BUILD,<B>
	.$B	,,U 	H
	  $RET		8			;WILL INVOKE RIGHT ROUTINE
		,h: 
z@WXDEFINE .$D
z`EFM <POINT 7,[ASC
{IZ\A\]>
			.%DEFM==1>
			.%DE	.` 4([(
	.$RESET4H
	$TYPE (.CMDEV)4h
	$NEXT (A)
	I5RP B,<B>
	.$BUILD,<B>
	.$BU	Lz: (Yd
	.$RESETH
	$TYPE (.CMNUX)h
	$PDATA (B)
	$HELP (<>)
	$NEX(T (A)
IFIDN <CH> <>,< IRP D,<Dh>
			.$BUILD>
IFDIF <C> <>,<
	($HELP (C)
	IRP HD,<D>
	.$BUILD><D>
	.$BUILD	N  ,hZl
	.$RESET-
	$TYPE (.CMDIR)-(
	$NEXT (A)
	I-HRP B,<B>
	.$BUILD,<B>
	.$BU	|  		xHk
	  IFNDE	
F ..BSIZ,<PRINTX 	
8?$EOB without pre	
Xvious $BUILD>
	 	
x IFN <.-..BLOC>,<	PRINTX ?Address c	8hange between $BU	XILD and $EOB>
	 	x LSTOF.			
	  ..	

T==0
	  REPEAT .	

8.BSIZ,<
	    BLD	

X0.(\..T,1)		
	  	

x  ..T==..T+1 >
		,PURGEC..BSIZ,..	
	  LSTON.
		
	  LST	+y 
}`WpDEFINE .$E
~RTN <A>
			.%ERTN==1>
			.%ER	, 
 W|DEFINE .$E
@RTN <1B0+A+1>
			.%ERTN==1>
		- XDEFINE .$E RTN <[MOVEI S2,[A@SCIZ\A\]
				  `    $RETF]>
			.%ERTN==1>
			.	H6 	pI'
	$CALL	.	STOP
	LSTOF.
	J	0UMP	[XWD 0,[ITEXT	P (<A>)]
		 EXP 	p%%.MOD]
	LSTON. .MOD]
	LSTON. 	L[ )(ZZ
	.$RESET)H
	$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  &hZF
	.$RESET'
	$TYPE (.CMFIL)'(
	$HELP (<>)
	$'HNEXT (A)
IFIDN 'h<B> <>,< IRP C,(<C>
			.$BUILD>((
IFDIF <B> <>,<(H
	$HELP (B)
	I(hRP C,<C>
	.$BUILD><C>
	.$BU	dy 
w`W@DEFINE .$F
xLGS <A>
			.%FLGS==1>
			.%FL	ex: 1h[
	.$RESET2
	$TYPE (.CMFLT)2(
	$HELP (<>)
	$2HNEXT (A)
IFIDN 2h<B> <>,< IRP C,3<C>
			.$BUILD>3(
IFDIF <B> <>,<3H
	$HELP (B)
	I3hRP C,<C>
	.$BUILD><C>
	.$BU	$ <H[n
	.$RESET<h
	$TYPE (.CMTAD)=
	$PDATA (<CM%ID=(A!CM%ITM!CM%FUT>)=H
	$NEXT (A)
	I=hRP B,<B>
	.$BUILD,<B>
	.$BU	$ 	I

h
	  INTER	0N A
	  $DATA(A,<B>)
	ATA(AaI1	"
y WP
	IFDIF <
y@A> <>,<
DEFINE 
y`.$HLPM <POINT 7,[
zASCIZ\A\]>
			.%HLPM==1>
			.	&5 !hZ
	.$RESET"
	$TYPE (.CMIFI)"(
	$HELP (<>)
	$"HNEXT (A)
IFIDN "h<B> <>,< IRP C,#<C>
			.$BUILD>#(
IFDIF <B> <>,<#H
	$HELP (B)
	I#hRP C,<C>
	.$BUILD><C>
	.$BU	&u 0H[

	.$RESET0h
	$NEXT (A)
	$1TYPE (.CMINI)
	I1(RP B,<B>
	.$BUILD,<B>
	.$BU	./ Y8
	.$RESET(
	$TYPE (.CMKEY)H
	$PDATA (B)
	h$NEXT (A)
	IRP C,<C>
	.$BUILD,<C>
	.$BUILD	./ HY,
	.$RESETh
	$TYPE (.CMKEY)
	$PDATA (A)
	($NEXT (0)
	IRP HB,<B>
	.$BUILD,<B>
	.$BUILD	/>Ky 
Q.WTOX.(.OM
 WTR,,,,<A>,<$WTFLG(WT.KIL),B>)	2|p 
 Q.WTOX.(.OM
@LOG,<A>,<B>,<C>,,<D>)B>,<C	:/
}WjDEFINE .$N
} XT <A>
			.%NXT==1A>
			.%NXT	:|KV CH\.
	.$RESETCh
	$TYPE (.CMNOD)D
	$HELP (<>)
	$D(NEXT (A)
IFIDN DH<B> <>,< IRP C,Dh<C>
			.$BUILD>E
IFDIF <B> <>,<E(
	$HELP (B)
;	EH$FLAGS (CM%PO)
	EhIRP C,<C>
	.$BUILD><C>
	.$B	:}r Yr
	.$RESET(
	$TYPE (.CMNOI)H
	$PDATA (<POINTh 7,[ASCIZ\B\]>)
	$NEXT (A)
	IR(P C,<C>
	.$BUILD,<C>
	.$BUI	;-XR HYN
	.$RESETh
	$TYPE (.CMNUM)
	$PDATA (B)
	($HELP (<>)
	$NEXHT (A)
IFIDN <Ch> <>,< IRP D,<D>
			.$BUILD>
I(FDIF <C> <>,<
	H$HELP (C)
	IRP hD,<D>
	.$BUILD><D>
	.$BUILD	>5 $(Z2
	.$RESET$H
	$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$ 
x@WFDEFINE .$D
x`ATA <A>
			.%DATA==1>
			.%DA	B$YP 
{@W^DEFINE .$D
{`EFM <POINT 7,<A>>
			.%DEFM==1	CYT XDEFINE .$D EFR <A>
			.%DEFR==1>
			.%DE	G-} >(\
	.$RESET>H
	$TYPE (.CMQST)>h
	$HELP (<>)
	$?NEXT (A)
IFIDN ?(<B> <>,< IRP C,?H<C>
			.$BUILD>?h
IFDIF <B> <>,<@
	$HELP (B)
	I@(RP C,<C>
	.$BUILD><C>
	.$BU	J.I  	`I
	  $CALL		.RETE			
		LSTO	 F.
	  JUMP	ERA$
		LSTON.ERA$	Ni  \xFe
	.NVR==0]			
	.ACM==0			

	IRP A,<		
	]X	..TSAC(.ACB,A)	]x	
		IFN .ACB,<.A^CM==.ACM!1B<A>>	^8
		IFE .ACB,<			^X
		IFE .NVR,<			^x
		    CAIA			
_		    LSTOF.
		 _8   JRST b>
		  _X..PUSH(A,\<.NVR+_x1>)>>	

	IFN .A`CM,<	
	    IFE <`8.ACM-17B<T4>>,<.A`XCM==0
				$CALL `x.SAVET>
	    IFEa <.ACM-377B<.A16>a8>,<.ACM==0
				$aXCALL .SAVE8>
	  ax  IFE <.ACM-17B<Pb4>>,<.ACM==0
			b8	$CALL .SAVE4>
	bX    IFE <.ACM-7B<bxP3>>,<.ACM==0
		c		$CALL .SAVE3>
c8	    IFE .NVR,<	
	    IFE <.ACM-3cxB<P2>>,<.ACM==0
d				$CALL .SAVE2>d8
	dx  IFE <.ACM-dX1B<P1>>,<.ACM==0
				$CALL .SAVE1e>
	    IFE <.ACMe8-1B<.A13>>,<.ACM=eX=0
				$CALL .SVex13>
	    IFE <.AfCM-1B<.A14>>,<.ACf8M==0
				$CALL .fXSV14>
	    IFE <fx.ACM-1B<.A15>>,<.gACM==0
				$CALLg8 .SV15>
	    IFEgX <.ACM-1B<.A16>>,gx<.ACM==0
				$CAhLL .SV16>
	    >h8>

	IFN .ACM,<	hX
	    IFE .NVR,<hx			
		CAIA			
	i	LSTOF.
		JRST i8b>

	    .ACB==iX0			
	REPEAT ^D1ix6,<			
	    IFN j<.ACM&1B<.ACB>>,<j8	
		..PUSH(\.ACBjX,\<.NVR+1>)>
		.jxACB==.ACB+1>>		
k
	IFN .NVR,<	
	k8    PUSH P,[[CAIAkX		
		     AOS -.kxNVR(P)	
	    REPlEAT .NVR,<..POP(\l8.NVR)>	
		     PlXOPJ P,0]]>	
b:!	LSTON.>	
b:!	N.@ 	8H;
	  IFNDE	XF ..BSIZ,<PRINTX 	x?$SET without pre	vious $BUILD>
	 	8 IFNB <B>,<..STR	X0 (..SET,<C>,B,	xA)>
	IFB  <B	>,<..STR0 (..SET,	8<C>,FWMASK,A)>
	,FWMASK,A)>
	a==.
N	XWD b-1,b-1
	N(DEFINE $ETAB <
		b==.-a> <
		O%| 	II
S..A::!	0	$CALL .STOP
		L	PSTOF.
		JUMP [XW	pD 'A',[ITEXT (<	B>)]
			EXP %%.MOD]
		LSTON.	M	O=  (Z

	.$RESET H
	$TYPE (.CMSWI) h
	$PDATA (A)
	!$NEXT (0)
	IRP !(B,<B>
	.$BUILD,<B>
	.$BUILD	O= hY~
	.$RESET
	$TYPE (.CMSWI)(
	$PDATA (B)
	H$NEXT (A)
	IRP hC,<C>
	.$BUILD,<C>
	.$BUILD	R

@ ;[`
	.$RESET;(
	$TYPE (.CMTAD);H
	$PDATA (<CM%ID;hA!CM%ITM>)
	$NEX<T (A)
	IRP B,<B>
	.$BUILD,<	R/
	$CALL	T	p%TEXT
	LSTOF.	XC	REF
	JUMP	[XWD 2	0,0
		 EVL (A)
	P		 ITEXT(<B>)]	
	LSTON.B>)]	
	.$RESET9h
	$TYPE (.CMTAD):
	$PDATA (CM%ITM:()
	$NEXT (A)
	:HIRP B,<B>
	.$BUILD,<B>
	.$B	R}97 Hh\P
	.$RESETI
	$TYPE (.CMTOK)I(
	$PDATA (<POINTIH 7,[ASCIZ\B\]>)
	$NEXT (A)
	IRJP C,<C>
	.$BUILD,<C>
	.$BUI	S 	-PJY


  ..TX	,`A(.TQA,C,D,E,	*pB)	
      IFN .	+0.TXEF,<			
	..TE	+RR<$TQ(A,B,C,D,E)>>

C,	S@I9 	D@LD
	LSTOF.
	X(UQU,Unknown q	Eualifier)
	X(IQU	E ,Invalid qualifie	E@r)
	X(IJA,Invali	E`d justification a	Frgument)
	X(IWA,	F Invalid width arg	F@ument)
	X(PEA,Pr	F`emature end of ar	Ggument)
	X(JNA,J	G ustification is n	G@ot allowed)
	X(A	G`NA,Arguments are 	Hnot allowed)
	X(	H ADS,Address must 	H@be specified)
	LSTON.
ied)
	L	SN	  
wW:DEFINE .$T
w YP <A>
			.%TYPE==1>
			.%TYP	W= @h\
	.$RESETA
	$TYPE (.CMUQS)A(
	$HELP (<>)
	$AHNEXT (A)
	$PDATAhA (B)
IFIDN <CB> <>,< IRP D,<DB(>
			.$BUILD>
IBHFDIF <C> <>,<
	Bh$HELP (C)
	IRP CD,<D>
	.$BUILD><D>
	.$BUILD	W\@ .Zv
	.$RESET.(
	$TYPE (.CMUSR).H
	$NEXT (A)
	I.hRP B,<B>
	.$BUILD,<B>
	.$BU	^+@ 	0I=
IFE %%.O	PTS,<DEFINE $WARN 	p(MSG) <
		$TEXT 	(T%TTY,<% ^W6/[%%	0.MOD]/ MSG>)>>
I	PFN %%.OTS,<DEFINE	p $WARN (MSG) <
			$TEXT (T%TTY,<% 	0^W6/IIB+IB.PRG/ ^	PW/[%%.MOD]/ MSG>)>>
	$WARN <A>	_$r 
 P4
		IFB	<
@A>,<.WFACD==0
		
`	IFN <0-2>,<.$WAC
D==0>>
		IFNB	<
 A>,<.WFACD==-1
	
@		IFN <0-2>,<.$WA
`CD==.$WACD!<A>>

			IFE <0-2>,<DE
 FINE .$WACD,<<WO.
@ACD>B8+[ITEXT (<A>)]>>
		>
<	_$u 	y O\
		IFB	<	y@A>,<.WFACK==0
			y`	IFN <0-2>,<.$WAC	zK==0>>
		IFNB	<	z A>,<.WFACK==-1
		z@		IFN <0-2>,<.$WA	z`CK==.$WACK!<A>>
			IFE <0-2>,<DE	{ FINE .$WACK,<<WO.	{@ACK>B8+[ITEXT (<A>)]>>
		>
<	_$+ 	kPr
	IFE	<.W	k FMTY>,<PRINTX ?No	k@ message type in 	k`$WTBLD>
DEFINE .	lEAWTO(SUFFIX,ARGC	l OD),<
IFN .WF'SU	l@FFIX',<
	IFE	<AR	l`GCOD-0>,<<WO.'SUF	mFIX'>B8+ .$W'SUFF	m IX'>
	IFE	<ARGCO	m@D-1>,<<WO.'SUFFIX
 '>B8+ [EXP .$W'SU
@FFIX']>
	IFE	<AR
`GCOD-2>,<.$W'SUFF
IX'>
>
>
	ALLW
 TO				
	EXP	0			
		
	EXP	0				_$k 	|Or
		IFB	<	| A>,<.WFFLG==0
			|@	IFN <1-2>,<.$WFL	|`G==0>>
		IFNB	<	}A>,<.WFFLG==-1
		} 		IFN <1-2>,<.$WF	}@LG==.$WFLG!<A>>
			IFE <1-2>,<DE	~FINE .$WFLG,<<WO.	~ FLG>B8+[ITEXT (<A>)]>>
		>
<	_%(W 
@P
		IFB	<
`A>,<.WFJBN==0
		
	IFN <0-2>,<.$WJB
 N==0>>
		IFNB	<
@A>,<.WFJBN==-1
	
`		IFN <0-2>,<.$WJ
BN==.$WJBN!<A>>
 
			IFE <0-2>,<DE
@FINE .$WJBN,<<WO.
`JBN>B8+[ITEXT (<A>)]>>
		>
<	_%YV 
	`P`
		IFB	<

A>,<.WFMFL==0
		

 	IFN <1-2>,<.$WMF

@L==0>>
		IFNB	<

`A>,<.WFMFL==-1
	
		IFN <1-2>,<.$WM
 FL==.$WMFL!<A>>
@
			IFE <1-2>,<DE
`FINE .$WMFL,<<WO.

MFL>B8+[ITEXT (<A>)]>>
		>
<	_%] 	n O
		IFB	<	n@A>,<.WFMTY==0
			n`	IFN <0-2>,<.$WMT	oY==0>>
		IFNB	<	o A>,<.WFMTY==-1
		o@		IFN <0-2>,<.$WM	o`TY==.$WMTY!<A>>
			IFE <0-2>,<DE	p FINE .$WMTY,<<WO.	p@MTY>B8+[ITEXT (<A>)]>>
		>
<	_%kr 	~`P
		IFB	<	A>,<.WFNOD==0
			 	IFN <0-2>,<.$WNO	@D==0>>
		IFNB	<	`A>,<.WFNOD==-1
	
		IFN <0-2>,<.$WN
 OD==.$WNOD!<A>>
@
			IFE <0-2>,<DE
`FINE .$WNOD,<<WO.
NOD>B8+[ITEXT (<A>)]>>
		>
<	_%p 
`Px.WTOX.(.OM
WTO,<A>,<B>,<C>,,<D>)B>,<C	_%xU 	v@OF
		IFB	<	v`A>,<.WFOBJ==0
			w	IFN <0-2>,<.$WOB	w J==0>>
		IFNB	<	w@A>,<.WFOBJ==-1
		w`		IFN <0-2>,<.$WO	xBJ==.$WOBJ!<A>>
			IFE <0-2>,<DE	x@FINE .$WOBJ,<<WO.	x`OBJ>B8+[ITEXT (<A>)]>>
		>
<	_%xr 
PJ
		IFB	<
 A>,<.WFOCD==0
		
@	IFN <0-2>,<.$WOC
`D==0>>
		IFNB	<
A>,<.WFOCD==-1
	
 		IFN <0-2>,<.$WO
@CD==.$WOCD!<A>>
`
			IFE <0-2>,<DE
	FINE .$WOCD,<<WO.
	 OCD>B8+[ITEXT (<A>)]>>
		>
<	_%z@ 
 Q.WTOX.(.OM
@WTO,<A>,<B>,<C
`>,,<$WTFLG(WT.JOB),D>)LG(WT.JOB	_%|@ 
@P~
.WTOX.(.OM
`WTR,<A>,<B>,<C>,<D>,<E>)<C	_&,z 	nPd
	DEFINE		m`.EAWTO(SUFFIX),<$

@WT'SUFFIX'	<>>
	ALLWTO				

		_&N 	s`O0
		IFB	<	tA>,<.WFTXT==0
			t 	IFN <2-2>,<.$WTX	t@T==0>>
		IFNB	<	t`A>,<.WFTXT==-1
		u		IFN <2-2>,<.$WT	u XT==.$WTXT!<A>>
			IFE <2-2>,<DE	u`FINE .$WTXT,<<WO.	vTXT>B8+[ITEXT (<A>)]>>
		>
<	_&N8 	qO
		IFB	<	q A>,<.WFTYP==0
			q@	IFN <2-2>,<.$WTY	q`P==0>>
		IFNB	<	rA>,<.WFTYP==-1
		r 		IFN <2-2>,<.$WT	r@YP==.$WTYP!<A>>
			IFE <2-2>,<DE	sFINE .$WTYP,<<WO.	s TYP>B8+[ITEXT (<A>)]>>
		>
<
t{P 
u[rQ ]>t2
u}P 
,MP G)0 X$0m@Z6 HY 			

	dh==<FLD(.$TYP,CM%F

NC)>!.$FLGS!<.$LS

(T> 

	IFN <.%BR

HEA>,<d==d!CM%BR

hK> 

	IFN,<.%HLd!CM%HP
					

	IFN<.%DEFM%DPP> 

c:!	XWD	b,(a			

	EXP d	H			

	EXP .$DAThA			

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


IFN <.%DEhFM!.%BREA>,<
		EXP	.$DEFM>		

(
IFN <.%BREA>,<	EHXP	.$BREA>		

	ha==.-c			;LENGTH OF THE FDB

I(FN <.%NXT!.%DEFR!H.%RTN!.%ERTN>,< EhXP .$NXT >	

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

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

IFN <.(%DEFR>,<		EXP	.$DHEFR>	


	b==.h-c			

	IF2<	PURGE a,b,c,d>
	LISTb,c,d>$YV@XPOINTX7,[ASCIZ\0\]NT 7,[A$YY X(0>&C2f}.- X"0[v|W5Iy X0>M[@f= X0+1[th:w
	SALL
	(XLIST
	DEFINE .$HTYP <0>
	.%TYPE=h=0
	DEFINE .$FLGS <0>
	.%FLGS==0(
	DEFINE .$DATA H<0>
	.%DATA==0
h	DEFINE .$HLPM <>
	.%HLPM==0
	DE(FINE .$DEFM <0>
H	.%DEFM==0
	DEFIhNE .$LST <0>
	.%	LST==0
	DEFINE .	($BREA <0>
	.%BRE	HA==0
	DEFINE .$N	hXT <0>
	.%NXT==0

	DEFINE .$ERTN 
(<0>
	.%ERTN==0

H	DEFINE .$RTN <0>
h
	.%RTN==0
	DEFINE .$DEFR <0>
	.%DEFR==0<0>
	K@X&0ECC''8Vq0T 1,0)0P $YVP $YYP .-P 5IyP f=P w
	   ..ASX1==-<B>	
	IFDEFx .PSECT,<
	.IFN ..AS1,ABSOLUTE,<
	     C A,[-..XAS1]>	
	.IF ..ASx1,ABSOLUTE,<
		..AS2==0	
	  IFE 8<..AS1&^O777777B1X7>,<
		..AS2==1	x
	    DI A,..AS1>
	  IFE ..AS28,<
	    ..OP(A,XB,C)>	
	PURGE x..AS1,..AS2>>
	I	FNDEF .PSECT,<
		8	..AS2==0	
	  IF	XE <..AS1&^O777777	xB17>,<
		..AS2==
1	
	    DI A,.
8.AS1>
	  IFE ..A
XS2,<		
	    ..OP
x(A,B,C)>
	PURGE ..AS1,..AS2>:h BU
	A:: x8@
	  ..CX1xX==C
	IFDEF .PSExxCT,<
 	.IFN ..CXy1,ABSOLUTE,<
	  y8    CAMA B,[C]yX>
	.IF ..CX1,ABSyxOLUTE,<	
		..CX2z==0	
	  IFE <..Cz8X1&^O777777B17>,<zX
		..CX2==1	
	 zx   CAIA B,C>
{	  IFE ..CX2,<		
	    CAMA B,[XC]>
	PURGE ..CX1x,..CX2>>
	IFNDEF .PSECT,<
		..CX82==0	
	  IFE <..XCX1&^O777777B17>,x<
		..CX2==1	
	    CAIA B,C>
	  IFE ..CX2,<		X
	    CAMA B,[xC]>
	PURGE ..CX1,..CX2>GE ..CX:&@ sXG)
	..TSIZ sx(..PST,C)
	.CAStE ..PST,<<
		MOVt8EM A,B>,<
		HRtXRM A,B>,<
		HRtxLM A,B>,<
		DPuB A,[POINTR (B,C)]>>INTR (B,:<;Y KD]
   DEFINK8E ..CNS2 (NEW,OLDKX)<
	  OLD>			
	..CNS ()>			
	:L;Y HxDU
   DEFINIE ..CNS (%%%)<
	I8..CNS2 <%%%>,>
IX
   DEFINE ..CNS2Ix (NEW,OLD)<
	DEFJINE ..CNS (%%%)<
	  ..CNS2 <%%%>,JX<OLD'NEW>>>
   OLD'NEW>>>
   :dH@ p8G
	..TSIZ pX(..PST,C)
	.CASpxE ..PST,<<
		MOVqE A,B>,<
		HRRq8Z A,B>,<
		HLRqXZ A,B>,<
		LDBqx A,[POINTR (B,C)]>>INTR (B,:}i1 0C
	A==<<<08-<B>>&<B>>&<1B<^L<B>>>>>&<1B<:~ 8A
	  ..OP1X==B
	IFDEF .PSExCT,<
 	.IFN ..OP

1,ABSOLUTE,<
	  

8    C A,[..OP1]

X>
	.IF ..OP1,ABS

xOLUTE,<	
		..OP2
	P1IFE7<..OB17>,<
		..OP2==1	
	 CI A,..OP1>
	  IFE ..OP2,<		8
	    C A,[..OXP1]>
	PURGE ..OPx1,..OP2>>
	IFNDEF .PSECT,<
		..O8P2==0	
	  IFE <.X.OP1&^O777777B17>x,<
		..OP2==1	
	    CI A,..OP18>
	  IFE ..OP2,<X		
	    C A,[.x.OP1]>
	PURGE ..OP1,..OP2>GE ..;m 	C L 
	..PST==	C@C-FWMASK
	.IF0 	C`..PST,<
		POINT 	D0,B,35>,<
		POINTR (B,C)>POI;| nFu
		POP P,n8.NVA
		PURGE .NnXVA
		.NVR==.NVR-1
		.NVR==.NVR;\t mFm
		PUSH Pm8,A
		DEFINE .NVmXB<A>
		.NVR==.NVR+1
		.NVR==.;] 	xHK
	  IFGE 	<<<B>&777777>-..	8BSIZ>,<
		PRINTX	X ?WORD offset gre	xater than $BUILD 		size parameter>
		8	  SET0. (\<B>,C,<A>)
	B>,;LH 6XCE
	IFNDEF 6xC,<PRINTX C IS 7NOT DEFINED
	  78A (<B>,D,FWMASK7X)>	
	IFDEF C,<
	IFNDEF %C,<
	8  A (<B>,D,C)88>	
	IFDEF %C,<
	  %C (A,<B>,D,C)>>A,<B>,;LH 9D

	..NS==098			
	IRP C,<..N9XS=..NS+1>	
	IFE 9x..NS,<PRINTX ?EMP:TY STRUCTURE LIST:8, A>
	IFE ..NS-:X1,<		
	  ..STR0 :x(A,<B>,<C>,D);>
	IFG ..NS-1,<	;8	
	..ICNS			
	.;X.CNS (<E (A,<B;x>,,>) 
	IRP C,<<		
	  IFNDEF C,<8<PRINTX C NOT DE<XFINED>
	  IFDEF <xC,<
	  IFNDEF %=C,<
	  ..CNS (<=8,C,D>)>	
	  IF=XDEF %C,<
	  %C=x (..STR2,,D,C)>> 
	  ..CNS (<)>)>8		
	  ..GCNS		
>X	  ..ICNS		
	  .>x.CNS (<E (A,<B?>>) 
	  IFNDEF %?8C,<
	  ..CNS (<?X,C,D>)>	
	  IF?xDEF %C,<
	  %C@ (..STR2,,D,C)>@8>> 
	..CNS (<,,)>)		
	..GCNS>);LI @xD
	..CNS (<,C,B>).CNS (;LI A8D


	IFDIF <AXD><F>,<
	  IFNAxB <D>,<
	    AB (<B>,D,..MSK)	B8
	    IFNB <F>,BX<PRINTX C AND EBx ARE IN DIFFERENTC WORDS>>
	  ..MSC8K==0>		
	IFNB <CXF>,<
	  ..MSK=..MSK!<E>>MSK=..;LJ DD-


	IFDIF <D8D><F>,<	
	  IFDXNB <D>,<
	    DxA (<B>,D,..MSK)E>	
	  ..MSK==0>	E8	
	IFNB <F>,<
EX	  ..MSK=..MSK!<E>>MSK=..MSK!<;LJ FDC


	IFDIF <F8D><F>,<	
	  IFFXNB <D>,<
	    IFxFNB <F>,<		
		GA1 (B,D,..MSK)>G8 
	    IFB <F>,GX<		
		A2 (B,DGx,..MSK)>> 
	  ..HMSK==0>		
	IFNB H8<F>,<
	  ..MSK=..MSK!<E>>MSK=;$\Y 	J L^
	IIF1,<
    PRINTX ? Err	Jor in "A"
    D	JPEFINE X(NAM,ERR) 	K <IFN ..X'NAM&..TX	K@EF,<PRINTX ? ERR>	K`>
    $TX$ERR>

    $TX$ERR>
;$^ 	M@M

    ..	M`TXF==0				
    .	N.TXB==0				
    	N ..TXP==0				
   	N@ ..TXEG==<..TXEF=	N`=0>			
    IRPC 	OA,<				
	..TXC=	O =ASCII\A\-35		
	IFN ..TXB,<IFN 	O`..TXB-..TXC,..CNS	P(<A>)
		   IFE 	P ..TXB-..TXC,..TXB	P@==0>
	IFE ..TXB,	P`<..TXQ(<A>,\..TX	QF)>>	
    ..TXC1	Q 				
    IFN ..T	Q@XB,<IFN <..TXB-"^	Q`">,<..TXER(PEA)>>	R
    ..TXEF==..T	R XEF!..TXEG		
   	R@ IFN ..TXEF,<..TERR<A>>
,<..TE;&( 	00K..TXA(.TQCH0)..TXA(.TQC;&) 	1@K

..TXER(IQU)..TXER(IQU;&) 	0pK..TXER(IQU)..TXER(IQU;&0 	/pJ..TXA(.TQCHA)..TXA(.TQC;&5 	.0Js..TXC0(\".CHLFD).TXC0(\".;&5 	/0J{..TXC0(\".CHVTB).TXC0(\".;&6 	.pJw..TXC0(\".CHFFD).TXC0(\".;&6 	-pJo..TXC0(\".CHCRT).TXC0(\".;&@ |xG}
	..TSIZ }(..PST,C)	
	.CA}8SE ..PST,<<
		SE}XTZM B>,<	
		HLL}xZS B>,<	
		HRRZ~S B>,<	
	  ..TS~8AC (..ACT,B)	
	~X  .IF0 ..ACT,<
	~x	$CALL .ZERO	
		LSTOF.
		JUMP [P8OINTR(B,C)]
		XLSTON.>,<
		..TX (Z,B,C)>>>TX;&81 ,XB}
	IFNDEF ,x.PSECT,<
	A==0	-		
	..TSA1==<Z -8B>		
	  IFE ..TS-XA1&^O777777777760-x,<A==1> 
	>
	I.FDEF .PSECT,<
	.8A==0			
	..TSA1=.X=<Z B>		
	.IF ..x.TSA1,ABSOLUTE,<	/
	  IFE ..TSA1&^/8O777777777760,<A/X==1>> 
	PURGE ..TSA1>
	PURGE ..;&:= +Ba
	A==3		+8	
	IFE <B>+1,<+XA=0>	
	IFE <B>-+x^O777777,<A==1> ,
	IFE <B>-^O777777B17,<A==2>7;' 8B
   ..TX1X==C			
IFDEF .PxSECT,<
   .IFN ..TX1,ABSOLUTE,<
8	TDA B,[C]>
 x  .IF ..TX1,ABSOLXUTE,<		
	..TX2==0		
	IFE <..TX1&8^O777777B17>,<
	X  ..TX2==1		
	  xTRA B,..TX1>
	IFE ..TX2,<		
	I8FE <..TX1&^O77777X7>,<
	  ..TX2==1x		
	  TLA B,(..TX1)>>
	IFE ..T8X2,<		
	  IFE <<X..TX1>B53-^O77777x7>,< 
	    ..TX3 (A,B)>>	
	IFE8 ..TX2,<		
	  TDXA B,[..TX1]>	
x	PURGE ..TX1,..TX2>>
IFNDEF .PSEC8T,<
	..TX2==0		
	IFE <..TX1&^O77x7777B17>,<
	  .. TX2==1		
	  TRA 8 B,..TX1>
	IFE  X..TX2,<		
	IFE < x..TX1&^O777777>,<!
	  ..TX2==1		
!8	  TLA B,(..TX1!X)>>
	IFE ..TX2,<!x		
	  IFE <<..TX"1>B53-^O777777>,<"8 
	    ..TX3 (A"X,B)>>	
	IFE ..T"xX2,<		
	  TDA #B,[..TX1]>	
	PURGE ..TX1,..TX2>;'` #XB/
	IFIDN <#xA><Z>,<		
	  ..$TX2==1
	  ANDI $8B,^-..TX1>	
	IFI$XDN <A><O>,<		
	$x  ..TX2==1
	%8OR%CMI B,^-..TX1>	
	IFIDN <A><C>,<%X		
	  ..TX2==1
%x	  EQVI B,^-..TX1>QVI B,^-..TX;'  	3`L




	..TXE	4F==0			

IFNDEF	4  A,<..TXER(UQU)>	4@		
IFDIF <B><>,	4`<IRPC B,<.IFN <	5B>,NUMERIC,..TXER	5 (IWA)>>
IFNB <C	5@>,<IFNDEF .TXTJC	5`,<..TXER(IJA)>>
	6IFDEF  A,<
  IF	6 E <A_-^D18>,<IFD	6@IF <EFBCD><>	6`,<..TXER(ANA)>>
	7  IFE <1-<A_-^D1	7 8>>,<IFDIF <BC	7@D><>,<..TXER(JNA)	7`>>
  IFE <2-<A_	8-^D18>>,<IFIDN <	8 EF><>,<..TXER(AD	8@S)>>>

      IF	8`E ..TXEF,<
	IFID	9N <B><>,<..TXWD=	9 =<..TXJU==<..TXFC	9@==0>>>
	IFDIF <	9`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">>>
	
		> IFB  <EF>,<..TX	>@PT==0>
	IFNB <E	>`F>,<..TXPT==1>
	?	IFE <..TXWD+..TX	? PT>,<
	    EXP F	?@LD(A,TXT.FN)>
		?`IFN <..TXWD+..TXP	@T>,<
	    EXP FL	@ D(A,TXT.FN)+FLD(	@@..TXJU,TXT.JU)+FL	@`D(..TXWD,TXT.WD)+	AFLD(..TXFC,TXT.FC	A )+TXT.AD
	    PNTR(E,F)>>

;'h 	d N.
    IFE 	d@..TXP,<			
	..IC	d`NS			
	..CNS<ASC	eIZ\>		
	..TXP==1	e >		
    ..CNS<A	e@>			
    ..TXF==	e`0			
    ..TXB=="^"
    ..TXB==;'h 	f N:

    IF	f@N ..TXP,<			
	..	f`CNS<\>		
	EXP <F	gLD(.TQCHT,TXT.FN)	g +[..GCNS]>>
    ..TXP==0>
    ;'	9 	L Lh
    ..TX	L@EF==..TXEF!..XA		L`	
    ..TXF==0			M		
    ..TXB=="^"
    ..TXB=="^;'

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

( 	S@M"

    IF	S`N ..TXC-"^",<..TX	TC0(<A>)>		
    	T IFE ..TXC-"^",<..TXF==1>-"^",<..;'

( 	T`MB

    IF	UE ..TXC-"^",<..TX	U C0(<A>)>	
    I	U@FN ..TXF,<			
	.	U`.TXF==0		
	IFDEF	V .TQCHA,<		
	  	V   IFDEF ..TQMA,.	V@.TQMA 
	    IFN	V` <.TQCHA_-^D18>,	W<..TXF==2>>>
   	W  IFE ..TXF-2,<..T	W@XC1(<A>)	
	..IC	W`NS			
	..CNS<..T	XXA(.TQCHA,>>	
 	X    ..TXEG==..TXEG!..TXEF==..TXEG;'

) 	X`MT
    ..TX	YF==3				
    IFG	Y E ..TXC-"0",IFLE 	Y@..TXC-"9",<..TXF=	Y`=2>
    IFE ..TX	ZF-2,<..CNS(A)>			Z 
    IFE ..TXF-3	Z@,<..CNS<,>		
		 ..TXQ3(A)>
		 ;'

) 	[Mh
    ..TX	[ F==4				
    IFE	[@ ..TXC-"/",<..TXF	[`==5>		
    IFE .	\.TXC-"[",<..TXF==	\ 5>		
    IFE ..T	\@XF-4,<..CNS<A,>>	\`		
    IFE ..TXF	]-5,<..CNS<,,>		
		 ..TXQ5(A)>
;'

* 	]@M~
    ..TX	]`F==4				
    IFE	^ ..TXC-"/",..TXF=	^ =5		
    IFE ..T	^@XC-"[",..TXF==5			^`
    IFE ..TXF-5	_,<..CNS<,>		
		 	_ ..TXQ5<A>>		
  	_@  IFE ..TXF-4,<..	_`CNS<A,>		
		 ..TXF==5>	
		 ..;'

* 	` N
    ..TX	`@F==6				
    IFE	`` ..TXC-"/",..TXB=	a="/"		
    IFE .	a .TXC-"[",..TXB=="	a@]"
    IFE ..TXB	a`-"]",..CNS<[>		
	b    IFE ..TXB,..TXF==5 ..TXB,..T;'

+ 	b@N
    ..TX	b`F==0			
    IFE 	c..TXC-"]",..CNS<]	c >	
    ..CNS<)>		c@		
    ..GCNS				c`
    ..TXEG==..TXEG!..TXEF==..T;DQ @;DPQ ;EPQ ;E:Q  ;EpQ ;E+PQ ;F	0Q ;F\:Q @
0P 
@P 
PP 
`P d  Y8EK
	.ACV2 (A)
	.ACV2 (d@ YxEU
	A=.FPAZC+..NAC		
	IFB <Z8B>,<..NAC=..NAC+ZX1>
	IFNB <B>,<..NAC=..NAC+B>.d` [Ec
	IFG A-[8.NPAC,<PRINTX ?TO[XO MANY ACS USED>
	IFLE A-4,<
	\\ $CALL .SAVEA>	
	IFG A-4,<
	  $CALL .SAVE8>  
=Z$	XH%INTA$CALL	I%IN9  )BS
	..CSN==)8A
	..CSC==0
	I)XRP B,<
	IFE ..C)xSN-..CSC,<
	  ST*OPI
	  ..CAS1 (*8B)>
	..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 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 yxGY
	..PST==zC-FWMASK
	.IF0 z8..PST,<
		SOS BzX>,<	
		$CALL .SOzxS	
		LSTOF.
		J{UMP [POINTR(B,C)]
		LSTON.>C} 	j Ph
	.OPCD==
.OPCD+1
	WO.A==.OPCD
G),<
		$^p $j6p $lWP %I7p %KqP %h6p %h:P %i:P &:p &

p &=p LzP MX<P N

WP N<P P `P &2 'xBE
	..IFT==(A		
	IFE ..IFT,(8<
	B
	..IFT==0(X>		
	IFN ..IFT,<
	C>N ..IFT,<&t<H vxGA
	..PST==wC-FWMASK
	.IF0 w8..PST,<
		AOS BwX>,<	
		$CALL .AOwxS	
		LSTOF.
		JxUMP [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 	H`Vs
	IFG	A-
n8MX.PID,<MX.PID==A>
C
G	A-O%=H NXDu
	.STKV2 (A)
	.STKV2 O%=I OE
	IFB <BO8>,<..STKN==..STKNOX+1>
	IFNB <B>,<Ox..STKN==..STKN+BP>
	..STKQ==..STKP8N+1
	.STKV3 (A,\..STKQ)V3 (A,O%=I PxE
   IFDEFQ A,<.IF A,SYMBOQ8L,<PRINTX STKVAR QXA ALREADY DEFINEQxD>>
	DEFINE A<-R^OB(P)>
	$A==<Z A>>
	$A==<RJP 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  TxE'
	.TRV2 (A)
	.TRV2 (Sd@ U8E1
	.TRV3 (UXA,\..NV)	
	IFB Ux<B>,<..NV=..NV+1V>
	IFNB <B>,<..NV=..NV+B>,<..Sd` VXE?
   IFDEFVx A,<.IF A,SYMBOWL,<PRINTX TRVAR W8A ALREADY DEFINEDWX>>
	DEFINE A<^OWxB(.FP)>
	$A==<Z A>>
	$A==<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 _%~ 
`Q:
		$CALL	
I%WTO		
		LSTOF.
 			
		JRST	g		
@
		$WTRST			
	IF
`NB <A>,<$WTMTY (
<A>)>	
	IFNB <
 B>,<$WTTYP (<B>)
@>	
	IFNB <C>,<$
`WTTXT (<C>)>	
	
IFNB <D>,<$WTOBJ
  (<D>)>	
	IFNB 
@<E>,<$WTACK (<E
`>)>	
		IRP F,<
F>		
		$WTBLD			
 
	g:!
	LSTON.  g:!
	LSTON. kPP >}{woP