Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99l-bb - glxmac.unv
There are 92 other files named glxmac.unv in the archive. Click here to see a list.
x
,SU@P C4@  Y
	..NAC==@0		
	IRP A,<
	`  .ACV1 (A)>		
	.ACV3 (\..NAC)C' 
; SZ..AS(A,B,ADD,SUB)(A,BC, 
hQfLSH A,-^D9LSH A,-^DC2f} 
8(cT
	.EAWTO(
8HMTY,0)
	.EAWTO(T
8hYP,2)
	.EAWTO(TX
9T,2)
	.EAWTO(OBJ
9(,0)
	.EAWTO(ACK,
9H0)
	.EAWTO(FLG,1
9h)
	.EAWTO(NOD,0)
:
	.EAWTO(JBN,0)
:(
	.EAWTO(ACD,0)
:H	.EAWTO(OCD,0)
	.EAWTO(MFL,1)
C:' 
_`U~
	TXZ A,<^-<B>>TXZ A,CHuI7Q xCHvN8P'CJ9ip CJ9jp CJ9l}p E
	..NA==0;			
	IRP B,<
	;   .BCAL2 B>		
	;@PUSHJ	P,A		
	AD;`JSP	P,-..NA		
   	P,-..NA		
  E2"@ V]6
	  IFE V B,<..TA==0>
	  V@IFN B,<EXP ..TAV`
		    PURGE ..TA>
	PURGE ..TE@tP'E@vyQ ~E@v:=Q |F;z:Q @G@ 
4 S"
	    ..CX(,A,B)   ..CGD 
7`S>
	    ..CX(A,A,B)  ..CGDP 
5`S.
	    ..CX(E,A,B)  ..CGDp 
6 S2
	    ..CX(G,A,B)  ..CGDy  
6`S6
	    ..CX(GE,A,B) ..CGE@ 
4`S&
	    ..CX(L,A,B)  ..CGEI  
5 S*
	    ..CX(LE,A,B) ..CGE` 
7 S:
	(j|..CX(N,A,B)  ..CGH 

	(OLST

	X	CRE		
,	X	GEN		
	X	PRT	
	X	CLS		
	X	A		
	X	USW		
	HX	SPL		
	X	SIZ		
	X	MOD		
	X	CH
	X	ACT		
	X	CRY		
	X	DTY		
	X	DTO		
	X	DCC
	X	BSZ		
	X	SZ		
	X	HSZ		
.(	X	RFM		
	X	RFO	
	X	RSZ		
	X	B		
	X	FFB		
	X	ACW		
	X	RMS		
	X	MCY		
	X	CT
	X	NSB		

	  LSTON.


G"\Y D8|9

	IF1, DX<%%EDT==AEDT>	
Dx
	IF2, <IFN <%%EEDT-AEDT>,<
		PRE8INTX ? Edit NumbeEXr Doesn't Match GExLXVER in GLXA
	F	A$WHO(\AEDT)>	F8
		A$NOTE		
	IFXNTERN AEDT		
	IFxNTERN LODLEV		
;G	PURGE %%EDT> ;END IF2

=pG(tSQ @G(tEHQ G(tHwQ  G(tI8Q pG(u
P G(vyP 8G(v<P'G(vJ6Q xG*iVp G*kVp G*l}p G*mp 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-lsQ G4.	RQ G4.`Q @G4.
zQ G4.(4Q G4.,Q G4.9Q G4.=zQ G4.lXQ @G4.zsQ  G4.{Q G4.{Q G4/
3Q @G:YlP 
G>hKW v 6
	IFNB <>v@,<
	PRINTX  (Frov`m GLXVER)
	> ;END IFNB 
	G>hMt t`.
	PRINTX uGLXVER	GLXCOM Ediu t(57) by JAD on 6u@-Jan-87
	PRINTX	u`    	GLXCOM	Actual Edit(A)
	G>lYP G>vC@ 	\@MlLALL
PAGE	\`; (A Continued o	]n next page)
SAL	] L; (A Continued 	]@from previous page) previous pagG?T 	TM!ASCIZ \
COPYRIGHT Z \
CGHt;rP GHtkP GHv	P GHv)9P GHv:=P I!k7P I!k<P ImP I$P`Qt*IIY{P`Qv*|I  3 [ 
	IFNB <3@B>,<..STR0 (.DECR3`0,,<B>,A)>
	IF4B  <B>,<SOS A>  <B>,<SOS A>I6= 
i`Vb
	A==<-1
jB<C>+1B<C-D>> 
j 
	IF1,<IFDEF %A
j@,<PRINTX ?A ALRE
j`ADY DEFINED>>
	D
kEFINE %A (OP,AC,
k Y,MSK)<	
	IFDIF 
k@<Y><>,<
	OP (<AC
k`>,B+'Y,MSK)>
	I
lFIDN <Y><>,<
	OP
l  (<AC>,B'Y,MSK)>>AC>,B'Y,MSK)>I'7 
=`Sn..OP(A,B,DIV)..OP(A,BIOH1 VHu>
	IFB <DVh>,<
	XWD	[ASCIZ\WC\],[XWD B,A]>W(
	IFNB <D>,<
	WHXWD	[EXP CM%FW!DWh
		ASCIZ\C\],[XWD B,A]>
,[XKuzQ @KuLzQ Ku|zQ  KvHVQ KH(Q P :KJ
,bPBKJ)bPb  KJ=P +KJ{P 	KJIBP !KJ=bP (KJIP &KJZ"P 0KJ|P 4KJX"P KJ9P &KJ$\BP *KJ$kP KJ$nBP KJ$|bP KJ%bP KJ%h"P KJ%i"P KJ%lP :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 KJLbP 5KJL;BP KJLLBP 8KJLMP KJLMBP 6KJL^P 7KJLh"P /KJLhBP 3KJLkBP KJLlP KJLlbP KJL{BP 7KJM+BP KJMHbP -KJMLBP KJMh"P 6KJMiP 5KJMmP KJMmbP KJN
P ,KJN
bP KJNI"P 
KJNIBP KJN\bP KJfkP (KJlIP KJlLbP KJt1P KJt9"P KJt:"P #KJtKBP 3KJtlP 2KJtmP -KJu"P 8KJuX"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 KKx"P 4KK
YBP
	IF1,<IFA$,PRINTX 
	ERA$=%
	ER%%%==ER%%%+1
R%%%==EKKP KK,}P KKLP KK|Y 
h(jJ
	ERR	EOF
hH,<End of file>
	
hhERR	IFP,<Illegal 
ifile position>
	
i(ERR	FDE,<File dat
iHa error>
	ERR	FN
ihD,<File is not on
j disk>
	ERR	NSD,
j(<No such device>
jH
	ERR	FCF,<File c
jhheckpoint failed>
k
	ERR	SLE,<A sys
k(tem limit was exc
kHeeded>
	ERR	IFS,
kh<Illegal file spe
lcification>
	ERR
l(	FNF,<File not fo
lHund>
	ERR	PRT,<P
lhrotection violati
mon>
	ERR	DNA,<De
m(vice not availabl
mHe>
	ERR	NCE,<No 
mh"current" entry i
nn list>
	ERR	NMA
n(,<No IPCF message
nH is available>
	
nhERR	FDS,<Files ar
oe on different st
o(ructures>
	ERR	F
oHAE,<File already 
ohexists>
	ERR	USE
p,<Unexpected syst
p(em error>
	ERR	N
pHSP,<No such pid>
ph
	ERR	BOL,<Beginn
qing of list reach
q(ed>
	ERR	EOL,<En
qHd of list reached
qh>
	ERR	RQF,<Rece
rivers quota full>
r(
	ERR	SQF,<Sende
rHrs quota full>
	
rhERR	NRE,<No remem
sbered entry>
	ER
s(R	TBF,<Table is f
sHull>
	ERR	EIT,<T
shable entry alread
ty exists>
	ERR	I
t(TE,<Invalid table
tH entry>
	ERR	QEF
th,<Quota exceeded 
uor disk full>
	E
u(RR	ARG,<Invalid a
uHrgument specified
uh>
	ERR	IFN,<Inva
vlid function spec
v(ified>
	ERR	IJN,
vH<Invalid job numb
vher specified>
	E
wRR	RAD,<Invalid r
w(adix specified>
wH	ERR	NUM,<Invalid
wh numeric argument
x>
	ERR	IDT,<Inva
x(lid date field sp
xHecified>
	ERR	IT
xhF,<Invalid time f
yield specified>
y(	ERR	DOR,<Date/ti
yHme out of range>
yh
	ERR	DTM,<Value 
zmissing in date/t
z(ime>
	ERR	MDD,<M
zHissing day in dat
zhe/time>
	ERR	DFZ
{,<Field zero in d
{(ate/time>
	ERR	M
{HDS,<Mnemonic date
{h/time switch not 
|implemented>
	ER
|(R	DFL,<Field too 
|Hlarge in date/tim
|he>
	ERR	ILR,<Ill
}egal year format 
}(in date/time>
	E
}HRR	NND,<Negative 
}hnumber in date/ti
~me>
	ERR	NPF,<No
~(t known whether p
~Hast or future in 
~hdate/time>
	ERR	
RDP,<Relative dat
(e parse required>
H
	ERR	NSW,<Switc
hhidoeslnot>begin 
	ERROM,<Unrecognize
	ERR	NUL,<Nuor keyw
	ERR	,<Invalid guid
	ERR	NC,onfirmed>
(	ERR	ICN,<Invalid
	ERR	NQS,<Iotedtstr
h	ERR	AMB,<Ambiguo
	ERR	NMT,<Datch tok
	ERR	CMA,<Coven>
	(ERR	NNC,<Nodeenam
	ERR	INT,<Nodemterm
	ERR	NSN,<Unknown n
	ERR	IInvalidopath 
	hERR	IUS,<Invalido
	ERR	DGS,<Devyrnote
	ERR	DNE,<Unce>
	ERR	DIO,<Device ca
 output>
	ERR	BD
(F,<Invalid date/t
Hime format>
	ERR
h	ABS,<Fieldttooal 
	ERR	TMTandetoollon
ffer>
	ERR	BDS,<
(Invalid default s
Htring>
	ERR	BTF,
h<Invalid table fo
	ERR	TME,<umust>be
h	ERR	TMN,<No timer
	ERR	TMA,<Tialready
	ERR	DVviceutermina
	ERR	NArgument bloc
	ERR	TLUinalolocati
	ERR	FIO,<File is 
	ERR	FBle being mod
	ERR	WLK,locked dev
	ERR	CSD,<Cersede a
	ERRDD,<Cannottdele
	ERR	SNb-fileudirec
(	ERR	ESL,<Search 
	hERR	LVL,<SFDpleve
	ERR	CCWotacreate/w
	ERR	FCU,<Cae file>
	ERR	ENQ,<FileingeE
	ERR	SWS,<Softock o
	ER	DER,<Hardware d
	ER	DTE,<Hard data 
	ERR	BKT,too large>
	ERR	IPP,<Non-e
	ER	TRN,<RIBeorotra
	ERR	ILC,<Illega da
	ERR	NFte/timeumust
	ERR	NPS,<Datee in 
	ERR	UUnrecognizedm
	ERR	UDN,<Unrame in
	ERRFA,<Illegal fil
	ER	FAI,<Fileiattri
	ERR	CEI,<Canisable
	ERR	ENF,<Linky not
	ERR	NSLuch linked 
	ERR	NFP,<pages>
	(ERR	NPI,<NoPfreee
	ERR	IFdirect	filer
	ER	NDN,<Nullndevic
#(	ERR	PWA,<PID wen
	ERR	CGPt get a PID
	ERR	IND,<Invae>
	HERR	IAC,<Invalid 
	ERR	IDV,<Invalid 
	ER	INA,<Invalid fi
	ERR	IEvalid file e
	ERR	IInvalidrgener
	ERR	IDR,<Invalidrd
	ERR	NHA,<Nailable>
	ERR	TOF,<Timeor FR
	ERR	TOP,<waiting f
	ERR	DNPndencies not present>
 noKKBP 
KKI"P KKiBP 'KKBP 
KK|bP *KK$)BP KK%M"P $KK%X"P "KK%Y"P !KK%[BP "KK%]P  KK%yBP 9KK%|P 9KK&+BP ,KK,K"P .KK,KBP /KK-*"P KK.9"P KK=JbP %KLtkQ xKLv:=Q xKLv=P'KO&:=p KZ` kX^o
	IFIDN <kxBC><>,<EXP <A>l>
	IFDIF <BC><l8>,<
	 IFE <A+1>lX,<<POINT 7,C>>
lx	 IFN <A+1>,<
	m   IFIDN <C><>,<m8EXP <A,B>>
	  mX IFDIF <C><>,<EXmxP <A,B,C>>
	>>A,B,C>>
	>KbN@ 	`Kc  	ZMRIRP A,<
	Z 	IF2,<IFNDEF A,<EXTERN A>>>A,<Mf9 P Mt,}P MuLwP @MuiWP  Mv
P MuI7Q xMvN8P'Mn:=p Mv:=P MF:=p M$pQ"P M$tzP M$t{P M$tP'M$t:P M$t+P 
M$t,}P M$t:P M$t;P M$t<RP M$t<\P M$t=P M$u
}P M$u6Q @M$uI7Q xM$uX|P 
M$u[rP M$ulqP 
ZP M$v)VP 	M$v)WP 	M$v+9P 
M$v,}P 
M$v:=P M$v<P M$v\{P M&`KW t$
	IFNB <>t ,<
	PRINTX  (Frot@m GLXVER)
	> ;END IFNB 
	M&`Mt r@
	PRINTX r`GLXVER	GLXFIL Edist(117) by JJF on s 17-Feb-87
	PRINTs@X	    	GLXFIL	Actual Edit(A)
	M&dYP 'M2  
!@R
<<<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>9P MS.[yQ MVpKW yL
	IFNB <>y ,<
	PRINTX  (Froy@m GLXVER)
	> ;END IFNB 
	MVpMt w@D
	PRINTX w`GLXVER	GLXFUN Edixt(2) by BAH on 14x -Nov-86
	PRINTX	x@    	GLXFUN	Actual Edit(A)
	MVtYP M^luQ O2|  	Z`M`IRP A,<
	[	IF2,<IFDEF A,<.	[ IFN A,EXTERN,<IN	[@TERN A>>
	     	[`IFNDEF A,<EXTERN	\ A>
	Q SUPPRESPA>>FlYSUPPRO3DYPF:O3EKrPf:O3EZ7PO3FLQ St\Yp Stkp SuZp SulQ Su}:p Sv
1p Sv
Sp Sv>@p SNn 
= Sj..OP(A,B,IDIV).OP(A,BSNp @S7-N 
< Sb..OP(A,B,IMUL).OP(A,BS:  0 [
	IFNB <0@B>,<..STR0 (.INCR0`0,,<B>,A)>
	IF1B  <B>,<AOS A>  <B>,<AOS A>S:HKW @0
	IFNB <>`,<
	PRINTX  (From GLXVER)
	> ;END IFNB 
	S:HMt (
	PRINTX  GLXVER	GLXINI Edi@t(23) by  on 27-J`un-84
	PRINTX	    	GLXINI	Actual Edit(A)
	S:LYP 	S;k 
$R <<<A>B<POS(<B>)>>&<B>>S; KW q@
	IFNB <>q`,<
	PRINTX  (Frorm GLXVER)
	> ;END IFNB 
	S; Mt p
	PRINTX p GLXVER	GLXINT Edip@t(115) by LWS on p`12-Aug-87
	PRINTqX	    	GLXINT	Actual Edit(A)
	S;!kP S;!k<P S;$YP &S? 
_ Uz
	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 l@h
	IFNB <>l`,<
	PRINTX  (Fromm GLXVER)
	> ;END IFNB 
	SBMt k`
	PRINTX k GLXVER	GLXIPC Edik@t(77) by LWS on 2k`4-Aug-87
	PRINTXl	    	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.	nXXCREF
	..TEXT<Anx>		
	  EXP	0		
	LSTON.
	0		
Uv98Q |U$@ 
k&

	(OLST

	XJJNO,.JI,GJBJNO>	
	X-TNO,.JITNO,<
	XUSR,.JIUNO,.GTPPN
	X,CDN,.JIDNOH>	
	XGPRG,.JIPNM,.GTP
	XPCJN,.JICJBCJB>	
	XTBAT,.JIBCH,.G
	XIJLT,.JTJLT		
	X,LOC,<-1,,GJBLOC>
	XJRTM,.JIRT,<-1,,
	X<TLC,GJBTLC>,<-1,
	  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 o|
	IFNB <>o ,<
	PRINTX  (Froo@m GLXVER)
	> ;END IFNB 
	W
 Mt m@t
	PRINTX m`GLXVER	GLXKBD Edint(103) by LWS on n 24-Aug-87
	PRINTn@X	    	GLXKBD	Actual Edit(A)
	W
$YP !WNH1 X(uJ
	IFB <CXH>,<
	XWD	[ASCIZ\XhB\],A>
	IFNB <YC>,<
	XWD	[EXP Y(CM%FW!C
		ASCIZ\B\],A>
SCIZY"luQ xY&i1 	{HQ^

	  LST	{hOF. XCREF

	CDO	|	OTSINI			
	CDO		|(    			
	CDO	.ZP	|HAGA
	CDO	.ZPAGN
	CDO	.ZCHNK
	CD	}O	.SAVE1
	CDO	.S	}(AVE2
	CDO	.SAVE3	}H
	CDO	.SAVE4
	C	}hDO	.SAVET
	CDO	.	~SV13
	CDO	.SV14
	CDO	.SV15
	CDO	~H	.SV16
	NT	.RETT	~h
	NT	.RETF
	CDO		.RETE
	CDO	.AOS	(		
	CDO	.SOS		
	H	CDO	.ZERO		
	NT	h	.POPJ		
	CDO	.S
TOP		
	CDO	.SAVE
(8		
	CDO	.STKST	
H	
	CDO	.TRSET		
h
	NT	.POPJ1		
	C
DO	.UD2SC		
	CDO
(	.SC2UD		
	CDO	.
HCPUTY		
	CDO	.DI
hE		
	CDO
	CDO


	CDO			
	CDO	C
(%RPRM
	CDO	C%INT
HR
	CDO	C%SEND
	
hCDO	C%RECV
	CDO	
C%BRCV
	CDO	C%RE
(L
	CDO	C%CPID
	
HCDO	C%KPID
	CDO	
hC%SPID
	CDO	C%MA
XP
	CDO	C%PIDJ

(	CDO	C%PIDH
	CDO
H	C%SIDX
	CDO
	C
hDO
	CDO

	CDO	
      			
	CDO	F
(%IOPN
	CDO	F%AOP
HN
	CDO	F%OOPN
	
hCDO	F%IBYT
	CDO	
F%OBYT
	CDO	F%IB
(UF
	CDO	F%OBUF

H	CDO	F%REL
	CDO	
hF%DREL
	CDO	F%RR
EL
	CDO	F%REW
	
(CDO	F%POS
	CDO	F
H%CHKP
	CDO	F%INF
hO
	CDO	F%FD
	CD
O	F%REN
	CDO	F%D
(EL
	CDO	F%FCHN

H	CDO
	CDO
	CDO
h
	CDO
	CDO
	CDO
	
	CDO
	CDO
	CD
	(O	FUNCT.			

	C
	HDO	      			
	CD
	hO	M%ACQP
	CDO	M%

RELP
	CDO	M%IPSN

(
	CDO	M%NXPG
	C

HDO	M%IPRC
	CDO	M

h%IPRM
	CDO	M%AQN
P
	CDO	M%RLNP
	
(CDO	M%CLNC
	CDO	
HM%FPGS
	CDO	M%GM
hEM
	CDO	M%RMEM
	CDO
	CDO
	CDO
(
	CDO
	CDO
	CDO
H
	CDO	M%GPAG
	C
hDO	M%RPAG
	CDO

	CDO
	CDO
	CDO
(
	CDO
	CDO
	CDO
H
	CDO

	CDO	  
h    			
	CDO	T%T
EXT
	CDO	T%TTY

(	CDO
	CDO
	CDO
H
	CDO
	CDO
	CDO
h
	CDO
	CDO
	CD
O
	CDO

	CDO	 
(     			
	CDO	L%
HCLST
	CDO	L%DLST
h
	CDO	L%CENT
	C
DO	L%CBFR
	CDO	L
(%DENT
	CDO	L%NEX
HT
	CDO	L%FIRS
	
hCDO	L%LAST
	CDO	
L%PREV
	CDO	L%PR
(EM
	CDO	L%CURR

H	CDO	L%RENT
	CDO
h	L%SIZE
	CDO	L%A
POS
	CDO
	CDO

(	CDO
	CDO
	CDO
H
	CDO
	CDO
	CDO
h

	CDO			
	CDO
	I%NOW
	CDO	I%EX
(IT
	CDO	I%ION
	
HCDO	I%IOFF
	CDO	
hI%SLP
	CDO	I%INT
1
	CDO	I%INT2
	
(CDO	I%INT3
	CDO	
HI%TIMR
	CDO
	CD
hO
	CDO	I%SOPR
	
CDO	I%WTO
	CDO

(	CDO	I%HOST
	CDO
H	I%JINF
	CDO	I%C
hJOB
	CDO	I%KJOB


	CDO	S%U2DT		
(
	CDO	S%DT2U
	CD
HO	S%DATI
	CDO	S%
hSIXB
	CDO	S%CMND

	CDO	S%TBLK
	C
(DO	S%SCMP
	CDO	S
H%ERR
	CDO	S%INTR
h
	CDO	S%EXIT
	C
DO	S%TBAD
	CDO	S
(%TBDL
	CDO	S%NUM
HI


	CDO	K%RCO
hC			
	CDO	K%WCOC

	CDO	K%SUET
	C
(DO	K%STYP
	CDO	K
H%TXTI
	CDO	K%SOU
hT
	CDO	K%BOUT
	
CDO	K%BIN
	CDO	K
(%BACK
	CDO	K%TPO
HS
	CDO	K%BUFF
	
hCDO	K%FLSH
	CDO	
K%OPEN
	CDO	K%EC
(HO
	CDO
	CDO
	
HCDO
	CDO
	CDO

h	CDO
	CDO
	CDO
	  LSTON.
Y:W D
	IFNB <> ,<
	PRINTX  (Fro@m GLXVER)
	> ;END IFNB 
	Y:XMt @<
	PRINTX `GLXVER	GLXLNK Edit(11) by AWC on 2 9-Jan-82
	PRINTX@	    	GLXLNK	Actual Edit(A)
	Y:\YP Y>
@ )`ZT
	IFNB <*C>,<..STR0 (..LDB* ,A,C,B)>
	IFB*@  <C>,<MOVE A,B>C>,<MOVE A,Y>%I;P YO%GP YO%yG 	^Mz
	IFNDEF 	^ LSTIN.,LSTIN.==0		^@	
IFE LSTIN.,<
	^`	IFIDN <XCREF><A	_>,<.XCREF>	
		  	_  XLIST>		
	LSTIN.==LSTIN.+1STINYO%{G 	_`N
	IFG LST	`IN.,LSTIN.==LSTIN	` .-1	
	IFLE LSTIN	`@.,<.CREF		
		      LIST>
		   [KW jT
	IFNB <>j ,<
	PRINTX  (Froj@m GLXVER)
	> ;END IFNB 
	[Mt h@L
	PRINTX h`GLXVER	GLXMAC Ediit(514) by LWS on i 24-Aug-87
	PRINTi@X	    	GLXMAC	Actual Edit(A)
	[YP &[3@ 
#@R<<<1_<A>>-1>B<B>>_<A>>[8@ 
"@R1B<<A>-1>-1B<B><<A>-1>[@ 	wOD
	IFB <B	w(>,<MAXSIZ==0
		I	wHRP A,<IFG <A-MA	whXSIZ>,<MAXSIZ==A	x>>>
	IFNB <B>,<	x(B==0
		IRP A,<	xHIFG <A-B>,<B==A>>>
B>,<B==[tP'[t;ZQ x[v
8Q [v
QP [v
TP'[vQv[v:Q[vuQ [vxQp[vlXp [lrp [ltp [lxp [l}p [hKW {@`
	IFNB <>{`,<
	PRINTX  (Fro|m GLXVER)
	> ;END IFNB 
	MVtY[hMt zX
	PRINTX z GLXVER	GLXMEM Ediz@t(32) by BAH on 1z`4-Nov-86
	PRINTX{	    	GLXMEM	Actual Edit(A)
	W[lYPuQ @[th:Q [u[yQ [ukvQ  [v=3P'[v|WQ [&p 	yOX
	IFB <B	y(>,<MINSIZ==377777	yH,,777777
		IRP 	yhA,<IFG <MINSIZ-A	z>,<MINSIZ==A>>>
	IFNB <B>,<B==	zH377777,,777777
		zh	IRP A,<IFG <B-	{A>,<B==A>>>
A>,<B==A>>>
[>!` 
#R<A-<A/B>*B><A-<A/B[?7 
$@S
   ..MX1
$`==B			
IFDEF .P
%SECT,<
   .IFN .
% .MX1,ABSOLUTE,<

%@	MOVE A,[B]>
 
%`  .IF ..MX1,ABSOL
&UTE,<
	..MX2==0	
& 	
	IFE <..MX1>B5
&@3,<
	  ..MX2==1
&`
	  MOVEI A,..MX
'1>	
	IFE ..MX2,<
' 		
	IFE <..MX1>B
'@17,<
	  ..MX2==1
'`
	  MOVSI A,(..
(MX1)>>	
	IFE ..M
( X2,<		
	IFE <<..
(@MX1>B53-^O777777>
(`,<
	  ..MX2==1

)	  HRROI A,<..MX
) 1>>>	
	IFE ..MX2
)@,<		
	IFE <<..MX
)`1>B17-^O777777B17
*>,<
	  ..MX2==1
* 
	  HRLOI A,(..M
*@X1-^O777777)>> 

*`	IFE ..MX2,<		
	
+  MOVE A,[..MX1]
+ >	
	>>

IFNDEF
+@ .PSECT,<
	..MX2
+`==0		
	IFE <..MX
,1>B53,<
	  ..MX2
, ==1
	  MOVEI A,
,@..MX1>	
	IFE ..M
,`X2,<		
	IFE <..M
-X1>B17,<
	  ..MX
- 2==1
	  MOVSI A
-@,(..MX1)>>	
	IFE
-` ..MX2,<		
	IFE 
.<<..MX1>B53-^O777
. 777>,<
	  ..MX2=
.@=1
	  HRROI A,<
.`..MX1>>>	
	IFE .
/.MX2,<		
	IFE <<
/ ..MX1>B17-^O77777
/@7B17>,<
	  ..MX2
/`==1
	  HRLOI A,
0(..MX1-^O777777)>
0 > 
	IFE ..MX2,<	
0@	
	  MOVE A,[..
0`MX1]>	
>
	PURGE ..MX1,..MX2RGE[Lt;ZQ x[LvN8P'[NF:=p [N^= 
l`Vx
	A==C	
m	
	IF1,<IFDEF %
m A,<PRINTX ?A ALR
m@EADY DEFINED>>
	
m`DEFINE %A (OP,AC
n,Y,MSK)<	
	IFDIF
n  <Y><>,<
	OP (<A
n@C>,B+'Y,MSK)>
	
n`IFIDN <Y><>,<
	O
oP (<AC>,B'Y,MSK)>>AC>,B'Y,MSK)[PuySP'[PvNP'[Vg 
<`Sf..OP(A,B,MUL)..OP(A,B[`v
2P ] 	X@MFIF2,<IFDEF	X` A,<A==A>> IFNDEF A,<A==B>]F@ o^TEMFDB##_
QkRp _
Ql}p _
Qmp _
Qm7p _
T=

	X	.OTReader
	X	.OU,Network-Cont
	X	.OTLPT
H,Printer
	X	.OTBtch-Stream
JP	X	.OTCDP,Card-Pu
	X	.OTPTP,Pa
	X	.OTPLter
	X	.OTTerminal
	X	OTJOB,Job
	X	.OR,Operator
	X	.OTIBM,<IBM Remo
	X	.OTMNT,<D
	X	.OTFTSTransfer>
	X	.OTBIN,<Cardrete
	X	.OTRET,<Fil>
	X	.OTNOT,<Retrieva
R	X	.OTDBM,<DBMS S
	X	.OTFALtream>
	X	.OTEVT,<Event>
S	X	.OTFCH,<Microf
	X	.OTXER,
	X	.OTNQ-Stream>
,<NQC-Stream>
_SKW ~t
	IFNB <>~ ,<
	PRINTX  (Fro~@m GLXVER)
	> ;END IFNB 
	[Y_SMt |@l
	PRINTX |`GLXVER	GLXOTS Edi}t(12) by BAH on 1} 4-Nov-86
	PRINTX}@	    	GLXOTS	Actual Edit(A)
	t_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 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\yQal}P aI3 

	..XX=D(A,CM%FNC)>

`X.IFNBC<D>,<..XX=
a8.IFNBC<E>,<..XX=

b0	EXP ..XX		

bPCIFNB <C>,<EXP 
cEIFB0<C>,<

c0SIFNB,<POINT 7,[A
cpFI <D>,<0>

d IFNBS<E>,<POINT
dp IFB <E>,<0>



e>IFB><I
e0IIFNBX<I>

eP IFB <J>,<0>
epJIFNB <J>,<EXP 

f0,IFB <H>
fP>IFNBP<H>

fpIFB <G>,<0>
gIFNB <G>,<EXP G>

G>,<EXP Ga@KW 
@X
	IFNB <>
`,<
	PRINTX  (From GLXVER)
	> ;END IFNB 
	a@Mt 	P
	PRINTX 	 GLXVER	GLXPFH Edi	@t(16) by TARL on 	`17-Apr-81
	PRINT
X	    	GLXPFH	Actual Edit(A)
	aDYP a 
(QbLSH A,^D9LSH A,^D9a+= 5a;&  
(a
	 IFB  <
HB>,<..STR0(..PNT
h,,<FWMASK>,A)>
	 IFNB <B>,<..ST
(R0(..PNT,,<B>,A)>.PNT,,<B>,Aa>Mm 
 `R<POINT WID
!(B),A,POS(B)>B),A,POS(B)>a?H6 +a? 
 Qr<^L<<A>&<-<A>>>><<A>&<aJ}Ks 	SO*

	SALL		a(			
	LSTOF. XCRE	aHF			

	%%.GLX==	ah%%.GLX			
	GLXVR	bS==GLXVRS			

		b(IFNB <A>,<%%.MOD	bH==SIXBIT/A/> 
		bhIFNB <B>,<%%.OTS	c==SIXBIT/B/> 
	c(
	GLOB	I%INIT			

	TOPS10	<			
	ch		SEARCH	UUOSYM			d
		%%UUOS==%%UUO	d(S		
	>				

	T	dHOPS20	<			
		SEA	dhRCH	MONSYM		
;			e%%MONS==%%MONS		
	>				

	IFB <	eHB>,<			
		IFN G	ehLXPUR,<
			.TEXT	f	|,REL:GLXLIB/SEA	f(RCH/REQUIRE:I%INI	fHT/SEGMENT:LOW|
		fh	>			
		DEFINE	$	gDATA (NAM,SIZ<1>)	g(,< 
			NAM:	BLOC	gHK	SIZ
		>			
			ghDEFINE	CDO (X),<G	hLOB X> 
		DEFINE	h(	NT(X),<CDO X>	
	hH		LIBVEC			
	>			hh		

	IFNB <B>,	i<			
		IFDEF .MC	i(RV.,<.VERSION <GL	iHXVRS>>
		CHKEDT 	ih(B)		

	IFDIF 	j<B><INI>,<		
			j(IFN GLXPURE,<.PSE	jHCT .HIGH.> 
		IF	jhE GLXPURE,<		
			k	TWOSEG	400000	
	k(			RELOC	0	
			R	kHELOC	400000	
		>	kh			

		DEFINE $	lDATA(NAM,SIZ<1>),	l(< 
			IFN GLXPUR	lHE,<.PSECT DATA> 
			IFE GLXPURE,<	mRELOC> 
			IFNDE	m(F B%D,<B%D::! 	mHB%DL==:0>
			NAM	mh:	BLOCK	SIZ
				nB%DL==:B%DL+SIZ 	n(
			IFN GLXPURE,	nH<.ENDPS DATA> 
		nh		IFE GLXPURE,<RE	oLOC> 
		>			

	o(	IFDIF <B><OTS>,	oH<		
		DEFINE	CDO	oh (X),<GLOB X> 
		p	DEFINE	NT(X),<CD	p(O X> 
		LIBVEC			pH
	>			

	>			
	

	IFIDN <B>	q<INI>,< 
		DEFIN	q(E	$DATA (NAM,SIZ<	qH1>),< 
			NAM:	B	qhLOCK	SIZ
		>			
	>				
	>

	L	r(STON.				

	GLO	rHB	<.POPJ, .RETT, 	rh.RETF>	
	OPDEF	$	sRET	[POPJ	P,]	
		s(OPDEF	$RETT	[PJRS	sHT	.RETT]	
	OPDEF	sh	$RETF	[PJRST	.RE	tTF]	
	OPDEF	$RET	t(IT	[JUMPT	.POPJ]		tH
	OPDEF	$RETIF	[	thJUMPF	.POPJ]	
	.	uNODDT	$RET,$RETT,	u($RETF,$RETIT,$RETIF
$RETIT,$RETaPtPaPtkP2aPuTPaPv\rPe,(SQ4e,)6Qxe,)RQue,+Q@e,,UQ@e,-Qe,<SQVe-)WQe-i1P=e.glp glp gltp gl}p g
,}Q g
-LyQ @g
.=1Q  gpKW g >
	IFNB <>g@,<
	PRINTX  (Frog`m GLXVER)
	> ;END IFNB 
	gpMt e`6
	PRINTX fGLXVER	GLXSCN Edif t(134) by DPM on f@4-Sep-87
	PRINTXf`	    	GLXSCN	Actual Edit(A)
	gtYP .g"@ W ]J
	IFN <<.[email protected]A>&B>,<PRINTXW` ?Initial field nXot zero in $SET>
	[email protected]==<C>
	X`..TMSK==<B>
	  ..TA==..TA!Y<FLD(..TVAL,..TMSY K)>
	  PURGE ..TVAL,..TMSK
	.TgtXrP gv
[Pvg#=zIPDBCPY##C.SWIT+PDBg$tkQP@g$uP'g$uh6Qgg.N	@P6@g.N g@uYP g@uhxP g@u|P g@vyP g@vItP g@vKP g@vKvP gBLL` 
.SPID	(S.IPCPQ,.SPQ
.SPI(SP.OPR,.IPCPO,
.SPID	(SP.INF,.IFO)
.SPID	(SP.MDA,A,MDA
TOPS10<
.SPI(SP.IPC,.IPCPS,
.SPID	(T,.IPCPA,,AC
.SPID	(SP.TLP,.IELL
.SPID	(SP.TOTAPE AV
.SPID	(SP.DODISK AV
.SPID	(SP.FIFILE DA
.SPID	(SP.PV,,CATAL
.SPIDP.ERL,.IPCPL,,
.SPID	(SP.TGH,.IPCP
.SPID	(P,.IPCNM,,DE
.SPID	(SP.MAI,.I
.SPID	(SP.GFR,.IPCPG,,GOPHER)
>
gR^h9 X:
	..STKR= =10		
	RADIX 8
@	..STKN==0
	IRP `A,<
	  .STKV1 (A)>
	$CALL	.STK ST
	 ..STKN,,..S@TKN
	RADIX ..STK`R
	DEFINE ENDSV.<.ENSV1 <A>>
	P URGE ..STKN,..STKR,..STKQ
   TKgR~r `^9

.TYPE=`8=-1				
IFIDN <`XB><HALT>,<.TYPE==`x0>		
IFIDN <B><aCONT>,<.TYPE==1>	a8	
IFIDN <B><DEBaXUG>,<.TYPE==2>		

IFL .TYPE,<			b	
IF2,<PRINTX ? b8Stopcode A is inbX error; see S..Abx in CREF>
S..A:c:JRST	4,.			
>		c8			

IFB <A>,<cX				
IF2,<PRINTXcx ? Stopcode with dout a A; see S..d8 in CREF>
S..::	dXJRST	4,.			
>			dx		

IFGE .TYPE,e<				
S..A::PUSe8HJ	P,.DIE			
	CAeXI	.TYPE,[			
	<SexIXBIT /A/>&77777f7000000	
	EXP	%%f8.MOD			
	EXP	C	fX		
	EXP	[ASCIZ |fxD|]		
	]				
>g					

	PURGE	.TYPE			
URGE	.gR~)  -Zn
	IFNB <- C>,<..STR0 (..DPB-@,A,C,B)>
	IFB-`  <C>,<MOVEM A,B>>,<MOVEM A,gV 
;`S^..AS(A,B,SUB,ADD)(A,Bgg
V 	uhO4
	IFNB <	vB>,<TOPS10<A==B	v(>>
	IFNB <C>,<T	vHOPS20<A==C>>
PS20<A==C>>
ght-3P @ghuWP ghuSP ghuxSP @ghv5P ghv
2P hDP hHP hLP hPP i,YQ @iP i$tkQP'i$tlUQ xi0,YQ i0,1Q  i0,^Q i0-kvQ @i?4( >0{sIFN FTUUOS,B			;DEFINE UNi?4H >p{wIFN FTJSYS,	INTERN AEDT	iD y8_W

  IFNByX	<A>,<.TQCHA==^yxD<B>B17+ZZ>
  IzFNB 	<D>,<DEFINEz8 ..TQMA<D>>
  zXIFNB	<C>,<.TQC=zx=^D<B>B17+ZZ>
	 ZZ==ZZ+1ZZ>
	iG, o8_G
	LSTOF.
	TQ(T,2,ASCIZ)		ox	
	TQ(O,2,OCTAL)p			
	TQ(D,2,DECIp8MAL)			
	TQ(F,2,pXFILE)			
	TQ(7,2px,CSEVEN)			
	TQ(q6,2,CSIXBIT)			
q8	TQ(W,2,SIXBIT)		qX	
	TQ(5,2,SVNBITqx)			
	TQ(P,2,USErR)			
	TQ(U,2,DIr8RECTORY)			
	TQ(rXH,2,DAYTIME)			
rx	TQ(C,2,TIME)			
	TQ(E,2,ERROR)		s8	
	TQ(I,1,INDIREsXCT)		
	TQ(M,0,CRsx,..TXC0(\".CHCRT)t)	
	TQ(J,0,LF,..t8TXC0(\".CHLFD))	
	TQ(L,0,FF,..TXCtx0(\".CHFFD))	
	TuQ(K,0,VT,..TXC0(\u8".CHVTB))	
	TQ(AuX,0,NOCRLF,..TXA(.uxTQCHA))	
	TQ(0,0v,NULL,..TXA(.TQCHv80))	
	TQ(3,0,STRvXING,..TXER(IQU))	vx
	TQ(V,2,VERSIONw)			
	TQ(2,0,CARw8ET,..TXER(IQU))	
	TQ(Q,2,POINTER)wx			
	TQ(B,2,ROB)x			
	TQ(1,2,OBJEx8CT)			
	TQ(N,2,NxXODE)			
	TQ(R,2,xxJIB)			
	LSTON.
)			
	LSTON. 
hl?
	LSTOF.
5X(33,TTY33,33,.
6X(3TTY35,35,.RETT,
TOPS20<
6PEX(37,TTY37,37,.R
7X(EXPORT,EXEC,EXE,
>
7PTOPS10<
7X(LA120,L12,.RETT,
>
8X(LA336,L36,.RETT,
8X(VK100,10,SETTLC,
9X(T05,VT05,V05,.RE
:X(VT100,00,SETTLC,

;PTOPS10<	X(VT101,V
<X(VT102,VT102,102,
TOPS10<	X(VT103,SET
?X(VT125,VT125<.CHE
TOPS10<180,VT180,18
TOPS10<	XVT185,185,
BX(VT220,VTETTLC,<.
CX(V40,VT240,240,SE
EX(VT50,VT50,VCHESC
FX(VT52,VT52,<.CHES
TOPS10<	X(VT1,SETTL
	LSTON.

> 
	LSiK,PA iK4@ 
	..TRR==
	RADIX 8
	..NV==1			
	IRP  A,<
	  .TRV1 (@A)>		
	$CALL	.TR`SET		
	 ..NV-1,,..NV-1
	RADIX .. TRR		
	PURGE ..TRR,..NVURGE ..Tib 
T`U&
		..TX(C,A,<B>)..TX(Cib 
V U2
		..TX(CA,A,<B>).TX(CibP 
U U*
		..TX(CE,A,<B>).TX(Cib` 
U`U.
		..TX(CN,A,<B>).TX(Cibp 
N`Tv
		..TX(N,A,<B>)..TX(Nibt 
P U
		..TX(NA,A,<B>).TX(NibtP 
O Tz
		..TX(NE,A,<B>).TX(Nibu` 
O`T~
		..TX(NN,A,<B>).TX(Nibx 
P`U
		..TX(O,A,<B>)..TX(Oib| 
R U
		..TX(OA,A,<B>).TX(Oib|P 
Q U

		..TX(OE,A,<B>).TX(Oib}` 
Q`U
		..TX(ON,A,<B>).TX(Oic KW @
	IFNB <>`,<
	PRINTX  (From GLXVER)
	> ;END IFNB 
	ic Mt 
	PRINTX  GLXVER	GLXTXT Edi@t(55) by BAH on 1`4-Nov-86
	PRINTX	    	GLXTXT	Actual Edit(A)
	ic!h2Q ic!i0Q ic!iQP ic!iWQ `ic!j6Q ic!jZQ ic!k Q `ic!kPQ @ic!lQ  ic!lQ |ic!l`Q ic!lqQ ic!lvP ic!lvP ic!lxP'ic!lyP ic!lyQ ic!mrQ pic!nQ ic$YP icP 
R`U
		..TX(Z,A,<B>)..TX(ZicT 
T U"
		..TX(ZA,A,<B>).TX(ZicTP 
S U
		..TX(ZE,A,<B>).TX(ZicU` 
S`U
		..TX(ZN,A,<B>).TX(ZkR`KW `
	IFNB <>,<
	PRINTX  (Fro m GLXVER)
	> ;END IFNB 
	kR`Mt  
	PRINTX @GLXVER	GLXUTL Edi`t(2) by DPM on 4-Dec-85
	PRINTX	     	GLXUTL	Actual Edit(A)
	kRdYP mKc@ ?NBYTE (3)A	aWHO (9)AVER (6)AMIN (18)AEDTo&  
`Qn<^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 ?P{}A==<ZZ==ZZ+1>
.TTC==.q"eJ  P q*-` +
q+= +
q6~i4 C q? 
` V
	TXC A,<B>
	TXC A,q@ 	Y MLIFB <C>,<	Y@A==:B> IFNB <C>,<A=:B>B <CqBp +qN5P +up 6 [8
	IFNB <6@B>,<..STR1 (..TQZ6`,,<B>,A,..STR4)7>
	IFB  <B>,<SETZM A><B>,<SEuhP 	;z Qhu 
	.XCREF	R.$RESET, .$BUILD
	.$RESET
	$TYPERH (.CMACT)
	$HELPRh (<>)
	$NEXT (AS)
IFIDN <B> <>,S(< IRP C,<C>
		SH	.$BUILD>
IFDIF Sh<B> <>,<
	$HELPT (B)
	IRP C,<C>
	.$BUILD><	0 
`hf

.WTOX.(.OM
aACK,<A>,<B>,<C
a(>,<D>,<$WTFLG(WT.SJI),E>)LG(WT	J7 
			DEF.$RTN <A>
			.%RTN==1A>
		D[
	IFDIF<<,<.XCREF	.%
DEFNE[.$HLPM<POINT
			.%HLPM==-1>
	fI9XCREF	.%L
			DEF.$LST <A+1>
			.%LST==11>
=Z H \J
	  IFG [email protected],<PRINTX H`?Level A interruIpts not supportedI >
	o.BGINT.(\A)B  .BGINT.(\A	X5 
			DINE .$BREA <A>
			.%BREA==1>	- K\h
	  IFDEFK  ..BSIZ,<PRINTX ?K@Missing $EOB afteK`r a $BUILD>
	  .L.BSIZ==0			
	  .L .BLOC==.			
	  RL@EPEAT A,<			
		L`BLD0.(\..BSIZ,0)	M
		..BSIZ==..BSIZ+1>	
	==..BSI		}[0 5hs6
	.XCREF	6.$RESET, .$BUILD
	.$RESET
	$TYPE6H (.CMCMA)
	$NEXT6h (A)
	IRP B,<B>
	.$BUILD,<	I@ 1(s
	.XCREF	1H.$RESET, .$BUILD
	.$RESET
	$TYPE2 (.CMCFM)
	IRP 2(A,<A>
	.$BUILD,<A>
	.$BUILD	$^ >ht
	.XCREF	?.$RESET, .$BUILD
	.$RESET
	$TYPE?H (.CMTXT)
	$HELP?h (<>)
	$NEXT (A@)
IFIDN <B> <>,@(< IRP C,<C>
		@H	.$BUILD>
IFDIF @h<B> <>,<
	$HELPA (B)
	IRP C,<C>
	.$BUILD><	I  AHt
	.XCREF	Ah.$RESET, .$BUILD
	.$RESET
	$TYPEB( (.CMTAD)
	$PDATBHA (CM%IDA)
	$NEXBhT (A)
	IRP B,<B>
	.$BUILD,<	,,U J \T
	  $RET	J@			;WILL INVOKE RIGHT ROUTINE
		,h: 

	IFDIF<<,<.XCREF	.%
DEFNE[.$DEFM<POINT
p@			.%DEFM==1>
	IFIDN <A> <>,<
IF1 <
PRINTXg%Nult in $DEFAULT macro>>DE	.` =(sr
	.XCREF	=H.$RESET, .$BUILD
	.$RESET
	$TYPE> (.CMDEV)
	$NEXT>( (A)
	IRP B,<B>
	.$BUILD,<	Lz: hr
	.XCREF	.$RESET, .$BUILD
	.$RESET
	$TYPEH (.CMNUX)
	$PDAThA (B)
	$HELP (<>)
	$NEXT (A)
(IFIDN <C> <>,< IHRP D,<D>
			.$hBUILD>
IFDIF <C > <>,<
	$HELP ( (C)
	IRP D,<D>
	.$BUILD><D>
	.XCREF	3.$RESET, .$BUILD
	.$RESET
	$TYPE3H (.CMDIR)
	$NEXT3h (A)
	IRP B,<B>
	.$BUILD,<	|  R],
	  IFNDER F ..BSIZ,<PRINTX R@?$EOB without preR`vious $BUILD>
	 S IFN <.-..BLOC>,<S PRINTX ?Address cS@hange between $BUS`ILD and $EOB>
	 T LSTOF.			
	  ..T T==0
	  REPEAT .[email protected],<
	    BLDT`0.(\..T,1)		
	  U  ..T==..T+1 >
	U   PURGE ..BSIZ,..U@T,..BLOC	
	  LSTON.
		
	oLST	+yE.%E
			DINE .$ERTN <A>
			.%ERTN==1>	, 
			DINE>.$ERTN <1B0
			.%ERTN==1>
			.%ERTN	-.
			DINE2.$ERTNZ<[MO
				>     $RET
			.%ERTN==1>
			.%ERTN==1	IF2,<IFN <	W(A>-.,<PRINTX ? I	WHLLEGAL $FALL A>>EGAL $FALL A>>	H6 [x]g
	$CALL	.\STOP
	LSTOF.
	J\8UMP	[XWD 0,[ITEXT\X (<A>)]
		 EXP \x%%.MOD]
	LSTON. .MOD]
	LSTON. 	L[ .Hs
	.XCREF	.h.$RESET, .$BUILD
	.$RESET
	$TYPE/( (.CMFLD)
	$NEXT/H (A)
	$HELP (<>/h)
IFIDN <B> <>,0< IRP C,<C>
		0(	.$BUILD>
IFDIF 0H<B> <>,<
	$HELP0h (B)
	IRP C,<C>
	.$BUILD><	MI  +hrp
	.XCREF	,.$RESET, .$BUILD
	.$RESET
	$TYPE,H (.CMFIL)
	$HELP,h (<>)
	$NEXT (A-)
IFIDN <B> <>,-(< IRP C,<C>
		-H	.$BUILD>
IFDIF -h<B> <>,<
	$HELP. (B)
	IRP C,<C>
	.$BUILD><	dy 
			DINE .$FLGS <A>
			.%FLGS==1>	ex: :Hsf
	.XCREF	:h.$RESET, .$BUILD
	.$RESET
	$TYPE;( (.CMFLT)
	$HELP;H (<>)
	$NEXT (A;h)
IFIDN <B> <>,<< IRP C,<C>
		<(	.$BUILD>
IFDIF <H<B> <>,<
	$HELP<h (B)
	IRP C,<C>
	.$BUILD><	$ GtD
	.XCREF	G(.$RESET, .$BUILD
	.$RESET
	$TYPEGh (.CMTAD)
	$PDATHA (<CM%IDA!CM%ITMH(!CM%FUT>)
	$NEXTHH (A)
	IRP B,<B>
	.$BUILD,<	$ [][I`
	  INTER[8N A
	  $DATA(A,<B>)
	ATA(A|N]T1*	"
	IFDIF<<,<.XCREF	.%
DEFNE[.$HLPM<POINT
			.%HLPM==1>
	&5 &(rD
	.XCREF	&H.$RESET, .$BUILD
	.$RESET
	$TYPE' (.CMIFI)
	$HELP'( (<>)
	$NEXT (A'H)
IFIDN <B> <>,'h< IRP C,<C>
		(	.$BUILD>
IFDIF ((<B> <>,<
	$HELP(H (B)
	IRP C,<C>
	.$BUILD><	&u 9sP
	.XCREF	9(.$RESET, .$BUILD
	.$RESET
	$NEXT9h (A)
	$TYPE (.C:MINI)
	IRP B,<B>
	.$BUILD,<	./ qR
	.XCREF	(.$RESET, .$BUILD
	.$RESET
	$TYPEh (.CMKEY)
	$PDATA (B)
	$NEXT ((A)
	IRP C,<C>
	.$BUILD,<C>
	.XCREF	H.$RESET, .$BUILD
	.$RESET
	$TYPE (.CMKEY)
	$PDAT(A (A)
	$NEXT (0H)
	IRP B,<B>
	.$BUILD,<B>
	/>Ky 
cHf.WTOX.(.OM
chWTR,,,,<A>,<$WTFLG(WT.KIL),B>)	2|p 
bhf.WTOX.(.OM
cLOG,<A>,<B>,<C>,,<D>)B>,<C	:/
			DEF.$NXT <A>
			.%NXT==1A>
		:|KV Nhu

	.XCREF	O.$RESET, .$BUILD
	.$RESET
	$TYPEOH (.CMNOD)
	$HELPOh (<>)
	$NEXT (AP)
IFIDN <B> <>,P(< IRP C,<C>
		PH	.$BUILD>
IFDIF Ph<B> <>,<
	$HELPQ (B)
;	$FLAGS (Q(CM%PO)
	IRP C,<C>
	.$BUILD><	:}r  hr
	.XCREF	!.$RESET, .$BUILD
	.$RESET
	$TYPE!H (.CMNOI)
	$PDAT!hA (<POINT 7,[ASCI"Z\B\]>)
	$NEXT "((A)
	IRP C,<C>
	.$BUILD,<C	;-XR hqj
	.XCREF	.$RESET, .$BUILD
	.$RESET
	$TYPEH (.CMNUM)
	$PDAThA (B)
	$HELP (<>)
	$NEXT (A)
(IFIDN <C> <>,< IHRP D,<D>
			.$hBUILD>
IFDIF <C> <>,<
	$HELP ((C)
	IRP D,<D>
	.$BUILD><D>
	.XCREF	)(.$RESET, .$BUILD
	.$RESET
	$TYPE)h (.CMOFI)
	$NEXT* (A)
	$HELP (<>*()
IFIDN <B> <>,*H< IRP C,<C>
		*h	.$BUILD>
IFDIF +<B> <>,<
	$HELP+( (B)
	IRP C,<C>
	.$BUILD><	B$ 
			DINE .$DATA <A>
			.%DATA==1>	B$YP 
			DINE<.$DEFM <POI
			.%DEFM==1>
			.%	CYTR	.%D
			DINE .$DEFR <A>
			.%DEFR==1>	G-} ItZ
	.XCREF	I(.$RESET, .$BUILD
	.$RESET
	$TYPEIh (.CMQST)
	$HELPJ (<>)
	$NEXT (AJ()
IFIDN <B> <>,JH< IRP C,<C>
		Jh	.$BUILD>
IFDIF K<B> <>,<
	$HELPK( (B)
	IRP C,<C>
	.$BUILD><	J.I  Yh]R
	  $CALLZ	.RETE			
		LSTOZ(F.
	  JUMP	ERA$
		LSTON.ERA$	Ni  `Z:
	.NVR==0			
	.ACM==0			

	IRP A,<		
	@	..TSAC(.ACB,A)	`	
		IFN .ACB,<.ACM==.ACM!1B<A>>	 
		IFE .ACB,<			@
		IFE .NVR,<			`
		    PUSHJ P,[			
			>
		  .. PUSH(A,\<.NVR+1>@)>>	

    IFE .`NVR,<	
	IFN .ACM,<	
	    IFE <.A CM-17B<T4>>,<.ACM@==0
				$CALL .S`AVET>
	    IFE <.ACM-377B<.A16>>, <.ACM==0
				$CA@LL .SAVE8>
	    `IFE <.ACM-17B<P4>>,<.ACM==0
				$ CALL .SAVE4>
	  @  IFE <.ACM-7B<P3`>>,<.ACM==0
				$CALL .SAVE3>
	     IFE <.ACM-3B<P@2>>,<.ACM==0
			`	$CALL .SAVE2>
	    IFE <.ACM-1B< P1>>,<.ACM==0
		@		$CALL .SAVE1>
`	    IFE <.ACM-1B <.A13>>,<.ACM==0
				$CALL .SV13> @
	    IFE <.ACM- `1B<.A14>>,<.ACM==!0
				$CALL .SV1! 4>
	    IFE <.AC!@M-1B<.A15>>,<.ACM!`==0
				$CALL .S"V15>
	    IFE <." ACM-1B<.A16>>,<.A"@CM==0
				$CALL "`.SV16>
	    >>
#
	IFN .ACM,<	
	#     IFE .NVR,<			#@
		PUSHJ P,[		
#`		>

	    .ACB=$=0			
	REPEAT ^D$ 16,<			
	    IFN$@ <.ACM&1B<.ACB>>,$`<	
		..PUSH(\.AC%B,\<.NVR+1>)>
		% .ACB==.ACB+1>>		

	IFN .NVR,<	
%`		PUSHJ	P,@-.NVR(&P)	
		 TRNA			
& 		AOS	-1-.NVR(P)	&@
	    REPEAT .NV&`R,<..POP(\.NVR)>	'
		ADJSP	P,-1		
		POPJ	P,]>		
		POPJ	P,]>		
	N;CREF	.%S
	IFD	<A><>,<DEFINE
	.%SBCM==1
>
	.%SBCM==1
	N.@ M@\|
	  IFNDEM`F ..BSIZ,<PRINTX N?$SET without preN vious $BUILD>
	 N@ IFNB <B>,<..STRN`0 (..SET,<C>,B,OA)>
	IFB  <BO >,<..STR0 (..SET,O@<C>,FWMASK,A)>
	,FWMASK,A)>
	.XCREF	Za,	b
	a==.
	Z(XWD b-1,b-1
	DZHEFINE $ETAB <.XCRZhEF	a,	b
		b==.-a>b
		b==	O%| gX^M
IF1,<PRIgxNTX % Use STOPCD hmacro for stopcodh8e A instead of $hXSTOP>
S..A::!	$hxCALL .STOP
		LSTiOF.
		JUMP [XWD i8'A',[ITEXT (<B>iX)]
			EXP %%.MOD]
		LSTON.	MOD	O,(v 7(sD
	.XCREF	7H.$RESET, .$BUILD
	.$RESET
	$NEXT8	(A)
	$TYPE	(.C8(MINI)
	$SBCM	(B8H)
	IRP C,<C>
	.$BUILD,<C>
	O= $Hr.
	.XCREF	$h.$RESET, .$BUILD
	.$RESET
	$TYPE%( (.CMSWI)
	$PDAT%HA (A)
	$NEXT (0%h)
	IRP B,<B>
	.$BUILD,<B>
	O= "hr 
	.XCREF	#.$RESET, .$BUILD
	.$RESET
	$TYPE#H (.CMSWI)
	$PDAT#hA (B)
	$NEXT ($A)
	IRP C,<C>
	.$BUILD,<C>
@ Et4
	.XCREF	E(.$RESET, .$BUILD
	.$RESET
	$TYPEEh (.CMTAD)
	$PDATFA (<CM%IDA!CM%ITMF(>)
	$NEXT (A)
FH	IRP B,<B>
	.$BUILD,<B>
	.$	R/j^Y
	$CALL	Tj8%TEXT
	LSTOF.	XCjXREF
	JUMP	[XWD 2jx,0
		 EVL (A)
k		 ITEXT(<B>)]	
	LSTON.B>)]	
	.XCREF	CH.$RESET, .$BUILD
	.$RESET
	$TYPED (.CMTAD)
	$PDATD(A (CM%ITM)
	$NEXDHT (A)
	IRP B,<B>
	.$BUILD,<	R}97 THu0
	.XCREF	Th.$RESET, .$BUILD
	.$RESET
	$TYPEU( (.CMTOK)
	$PDATUHA (<POINT 7,[ASCIUhZ\B\]>)
	$NEXT V(A)
	IRP C,<C>
	.$BUILD,<C	S ~_]


  ..TX}(A(.TQA,C,D,E,{8B)	
      IFN .{x.TXEF,<			
	..TE{XRR<$TQ(A,B,C,D,E)>>

C,	S@I9 
aH
	LSTOF.
(
	X(UQU,Unknown q
Hualifier)
	X(IQU
h,Invalid qualifie
r)
	X(IJA,Invali
(d justification a
Hrgument)
	X(IWA,
hInvalid width arg
ument)
	X(PEA,Pr
(emature end of ar
Hgument)
	X(JNA,J
hustification is n
ot allowed)
	X(A
(NA,Arguments are 
Hnot allowed)
	X(
hADS,Address must 
be specified)
	LSTON.
ied)
	L	SN	.REF	.%T
			DEE .$TYP <A>
			.%TYPE==1>
	W= Khtr
	.XCREF	L.$RESET, .$BUILD
	.$RESET
	$TYPELH (.CMUQS)
	$HELPLh (<>)
	$NEXT (AM)
	$PDATA (B)
M(IFIDN <C> <>,< IMHRP D,<D>
			.$MhBUILD>
IFDIF <CN> <>,<
	$HELP (N(C)
	IRP D,<D>
	.$BUILD><D>
	.XCREF	4H.$RESET, .$BUILD
	.$RESET
	$TYPE5 (.CMUSR)
	$NEXT5( (A)
	IRP B,<B>
	.$BUILD,<	^+@ ]8]}
IFE %%.O]XTS,<DEFINE $WARN ]x(MSG) <
		$TEXT ^(T%TTY,<% ^W6/[%%^8.MOD]/ MSG>)>>
I^XFN %%.OTS,<DEFINE^x $WARN (MSG) <
	_	$TEXT (T%TTY,<% _8^W6/IIB+IB.PRG/ ^_XW/[%%.MOD]/ MSG>)>>
	$WARN <A>	_$r 
The8
		IFB	<
UA>,<.WFACD==0
		
U(	IFN <0-2>,<.$WAC
UHD==0>>
		IFNB	<
UhA>,<.WFACD==-1
	
V		IFN <0-2>,<.$WA
V(CD==.$WACD!<A>>
VH
			IFE <0-2>,<DE
VhFINE .$WACD,<<WO.
WACD>B8+[ITEXT (<A>)]>>
		>
<	_$u 
Ihd`
		IFB	<
JA>,<.WFACK==0
		
J(	IFN <0-2>,<.$WAC
JHK==0>>
		IFNB	<
JhA>,<.WFACK==-1
	
K		IFN <0-2>,<.$WA
K(CK==.$WACK!<A>>
KH
			IFE <0-2>,<DE
KhFINE .$WACK,<<WO.
LACK>B8+[ITEXT (<A>)]>>
		>
<	_$+ 
;Hev
	IFE	<.W
;hFMTY>,<PRINTX ?No
< message type in 
<($WTBLD>
DEFINE .
<HEAWTO(SUFFIX,ARGC
<hOD),<
IFN .WF'SU
=FFIX',<
	IFE	<AR
=(GCOD-0>,<<WO.'SUF
=HFIX'>B8+ .$W'SUFF
=hIX'>
	IFE	<ARGCO
>D-1>,<<WO.'SUFFIX
]h'>B8+ [EXP .$W'SU
^FFIX']>
	IFE	<AR
^(GCOD-2>,<.$W'SUFF
^HIX'>
>
>
	ALLW
^hTO				
	EXP	0			
		
	EXP	0				_$k 
LHdv
		IFB	<
LhA>,<.WFFLG==0
		
M	IFN <1-2>,<.$WFL
M(G==0>>
		IFNB	<
MHA>,<.WFFLG==-1
	
Mh		IFN <1-2>,<.$WF
NLG==.$WFLG!<A>>
N(
			IFE <1-2>,<DE
NHFINE .$WFLG,<<WO.
NhFLG>B8+[ITEXT (<A>)]>>
		>
<	_%(W 
Re"
		IFB	<
R(A>,<.WFJBN==0
		
RH	IFN <0-2>,<.$WJB
RhN==0>>
		IFNB	<
SA>,<.WFJBN==-1
	
S(		IFN <0-2>,<.$WJ
SHBN==.$WJBN!<A>>
Sh
			IFE <0-2>,<DE
TFINE .$WJBN,<<WO.
T(JBN>B8+[ITEXT (<A>)]>>
		>
<	_%YV 
Z(ed
		IFB	<
ZHA>,<.WFMFL==0
		
Zh	IFN <1-2>,<.$WMF
[L==0>>
		IFNB	<
[(A>,<.WFMFL==-1
	
[H		IFN <1-2>,<.$WM
[hFL==.$WMFL!<A>>
\
			IFE <1-2>,<DE
\(FINE .$WMFL,<<WO.
\HMFL>B8+[ITEXT (<A>)]>>
		>
<	_%] 
>hd
		IFB	<
?A>,<.WFMTY==0
		
?(	IFN <0-2>,<.$WMT
?HY==0>>
		IFNB	<
?hA>,<.WFMTY==-1
	
@		IFN <0-2>,<.$WM
@(TY==.$WMTY!<A>>
@H
			IFE <0-2>,<DE
@hFINE .$WMTY,<<WO.
AMTY>B8+[ITEXT (<A>)]>>
		>
<	_%kr 
O(e

		IFB	<
OHA>,<.WFNOD==0
		
Oh	IFN <0-2>,<.$WNO
PD==0>>
		IFNB	<
P(A>,<.WFNOD==-1
	
PH		IFN <0-2>,<.$WN
PhOD==.$WNOD!<A>>
Q
			IFE <0-2>,<DE
Q(FINE .$WNOD,<<WO.
QHNOD>B8+[ITEXT (<A>)]>>
		>
<	_%p 
_(e|.WTOX.(.OM
_HWTO,<A>,<B>,<C>,,<D>)B>,<C	_%xU 
GdJ
		IFB	<
G(A>,<.WFOBJ==0
		
GH	IFN <0-2>,<.$WOB
GhJ==0>>
		IFNB	<
HA>,<.WFOBJ==-1
	
H(		IFN <0-2>,<.$WO
HHBJ==.$WOBJ!<A>>
Hh
			IFE <0-2>,<DE
IFINE .$WOBJ,<<WO.
I(OBJ>B8+[ITEXT (<A>)]>>
		>
<	_%xr 
WHeN
		IFB	<
WhA>,<.WFOCD==0
		
X	IFN <0-2>,<.$WOC
X(D==0>>
		IFNB	<
XHA>,<.WFOCD==-1
	
Xh		IFN <0-2>,<.$WO
YCD==.$WOCD!<A>>
Y(
			IFE <0-2>,<DE
YHFINE .$WOCD,<<WO.
YhOCD>B8+[ITEXT (<A>)]>>
		>
<	_%z@ 
ahf.WTOX.(.OM
bWTO,<A>,<B>,<C
b(>,,<$WTFLG(WT.JOB),D>)LG(WT.JOB	_%|@ 
`f
.WTOX.(.OM
`(WTR,<A>,<B>,<C>,<D>,<E>)<C	_&,z 
>Heh
	DEFINE	
>(.EAWTO(SUFFIX),<$
]WT'SUFFIX'	<>>
	ALLWTO				

		_&N 
D(d4
		IFB	<
DHA>,<.WFTXT==0
		
Dh	IFN <2-2>,<.$WTX
ET==0>>
		IFNB	<
E(A>,<.WFTXT==-1
	
EH		IFN <2-2>,<.$WT
EhXT==.$WTXT!<A>>
F
			IFE <2-2>,<DE
F(FINE .$WTXT,<<WO.
FHTXT>B8+[ITEXT (<A>)]>>
		>
<	_&N8 
AHd
		IFB	<
AhA>,<.WFTYP==0
		
B	IFN <2-2>,<.$WTY
B(P==0>>
		IFNB	<
BHA>,<.WFTYP==-1
	
Bh		IFN <2-2>,<.$WT
CYP==.$WTYP!<A>>
C(
			IFE <2-2>,<DE
CHFINE .$WTYP,<<WO.
ChTYP>B8+[ITEXT (<A>)]>>
		>
<
t{P 
u[rQ ]>t2
u}P 
,MP &.
P .JP .bP /P B&@P cGP )0 on0:KJ
,bZ6 Hq6			

	.XhCREF	a,	b,	c,	d

	.XCREF	.%T(YPE,	.%FLGS,	.%DAHTA,	.%HLPM,	.%DEFhM,	.%LST
	.XCREF	.$TYP,	.$FLGS,	.($DATA,	.$HLPM,	.$HDEFM,	.$LST

	.hXCREF	.%BREA,	.%NXT,	.%ERTN,	.%RTN(,	.%DEFR,	.%SBCM
	.XCREF	.$BREA,	h.$NXT,	.$ERTN,	.$	RTN,	.$DEFR,	.$SB	(CM

	d==<FLD(.	H$TYP,CM%FNC)>!.$F	hLGS!<.$LST> 

	
IFN <.%BREA>,<d=
(=d!CM%BRK> 

	
HIFG <.%HLPM>,<d=
h=d!CM%HPP!CM%SDH> 
						
	IFL (<.%HLPM>,<d==d!HCM%HPP>	
						

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

c:!	<INSVL.(
Hb,PB.PDB)>!<INSVL
h.(a,PB.FDB)> ;PD
	EXP	d		
	EXP	.$DATA			
IFNM<.%HLPM!.%D
	EXP	.$HLPM>			
IF(N <.%DEFM!.%BREA>H,<
	EXP	.$DEFM>	h		
IFN <.%BREA>,<
	EXP	.$BREA>		(	

	a==.-c			H

IFN <.%NXT!.%hDEFR!.%RTN!.%ERTN!.%SBCM>,<
	EXP	(.$NXT >			
IFN <H.%DEFR!.%RTN!.%ERhTN!.%SBCM>,<
	EXP	.$RTN >			
IFN( <.%DEFR!.%ERTN!.H%SBCM>,<
	EXP	.$hERTN>			
IFN <.%DEFR!.%SBCM>,<
	(EXP	.$DEFR>			
IHFN <.%SBCM>,<
	EhXP	.$SBCM>			

	b==.-c			

I(F2,<
	PURGE	.%TYHPE,	.%FLGS,	.%DAThA,	.%HLPM,	.%DEFM,	.%LST
	PURGE	.($TYP,	.$FLGS,	.$DHATA,	.$HLPM,	.$DEhFM,	.$LST

	PURGE	.%BREA,	.%NXT,(	.%ERTN,	.%RTN,	.H%DEFR,	.%SBCM
	PhURGE	.$BREA,	.$NXT,	.$ERTN,	.$RTN,(	.$DEFR,	.$SBCM
H
	PURGE	a,	b,	hc,	d
> 
	LIST,	d
> 
	LIST$YVN7,[ASCIZ\0\]NT7,[A$YY or0KJLb.- ol0lXKvHV5Iy ob0I!k<f= oh0+1I'7w
	.XCREF
	SALL
	XLIST
	hDEFINE .$TYP <0>
	.%TYPE==0
	DEF(INE .$FLGS <0>
	H.%FLGS==0
	DEFINhE .$DATA <0>
	.%DATA==0
	DEFINE (.$HLPM <>
	.%HLPHM==0
	DEFINE .$DhEFM <0>
	.%DEFM==0
	DEFINE .$LST( <0>
	.%LST==0
H	DEFINE .$BREA <0h>
	.%BREA==0
	DEFINE .$NXT <0>
(	.%NXT==0
	DEFINHE .$ERTN <0>
	.%hERTN==0
	DEFINE .$RTN <0>
	.%RTN(==0
	DEFINE .$DEHFR <0>
	.%DEFR==h0
	DEFINE	.$SBCM	<0>
	.%SBCM==0
	.CREF
CM==0op0KJ)b' aJ0T 1,O)0P $YVP $YYP .-P 5IyP f=P w
> T
	   ..AS
>@1==-<B>	
	IFDEF
>` .PSECT,<
	.IFN 
?..AS1,ABSOLUTE,<
? 
	     C A,[-..
?@AS1]>	
	.IF ..AS
?`1,ABSOLUTE,<
		.
@.AS2==0	
	  IFE 
@ <..AS1&^O777777B1
@@7>,<
		..AS2==1	
@`
	    DI A,..A
AS1>
	  IFE ..AS2
A ,<
	    ..OP(A,
A@B,C)>	
	PURGE 
A`..AS1,..AS2>>
	I
BFNDEF .PSECT,<
	
B 	..AS2==0	
	  IF
B@E <..AS1&^O777777
B`B17>,<
		..AS2==
C1	
	    DI A,.
C .AS1>
	  IFE ..A
C@S2,<		
	    ..OP
C`(A,B,C)>
	PURGE ..AS1,..AS2>:h V
	AV>9: 
1 SV
	  ..CX1
1@==C
	IFDEF .PSE
1`CT,<
 	.IFN ..CX
21,ABSOLUTE,<
	  
2     CAMA B,[C]
2@>
	.IF ..CX1,ABS
2`OLUTE,<	
		..CX2
3==0	
	  IFE <..C
3 X1&^O777777B17>,<
3@
		..CX2==1	
	 
3`   CAIA B,C>

4	  IFE ..CX2,<		
8 
	    CAMA B,[
8@C]>
	PURGE ..CX1
8`,..CX2>>
	IFNDEF
9 .PSECT,<
		..CX
9 2==0	
	  IFE <..
9@CX1&^O777777B17>,
9`<
		..CX2==1	
	
:    CAIA B,C>
: 
	  IFE ..CX2,<		
:@
	    CAMA B,[
:`C]>
	PURGE ..CX1,..CX2>GE ..CX:&@ . Z~
	..TSIZ .@(..PST,C)
	.CAS.`E ..PST,<<
		MOV/EM A,B>,<
		HR/ RM A,B>,<
		HR/@LM A,B>,<
		DP/`B A,[POINTR (B,C)]>>INTR (B,:<;Y X$
   DEFIN E ..CNS2 (NEW,OLD@)<
	  OLD>			
	..CNS ()>			
	:L;Y `X
   DEFINE ..CNS (%%%)<
	 ..CNS2 <%%%>,>
@
   DEFINE ..CNS2` (NEW,OLD)<
	DEFINE ..CNS (%%%)<
	  ..CNS2 <%%%>,@<OLD'NEW>>>
   OLD'NEW>>>
   :dH@ +Zd
	..TSIZ + (..PST,C)
	.CAS+@E ..PST,<<
		MOV+`E A,B>,<
		HRR,Z A,B>,<
		HLR, Z A,B>,<
		LDB,@ A,[POINTR (B,C)]>>INTR (B,:}i1 
iVJ
	A==<<<
i -<B>>&<B>>&<1B<^L<B>>>>>&<1B<:~ 
D TN
	  ..OP1
D@==B
	IFDEF .PSE
D`CT,<
 	.IFN ..OP
E1,ABSOLUTE,<
	  
E     C A,[..OP1]
E@>
	.IF ..OP1,ABS
E`OLUTE,<	
		..OP2
F==0	
	  IFE <..O
F P1&^O777777B17>,<
F@
		..OP2==1	
	 
F`   CI A,..OP1>
G
	  IFE ..OP2,<		
G 
	    C A,[..O
G@P1]>
	PURGE ..OP
G`1,..OP2>>
	IFNDE
HF .PSECT,<
		..O
H P2==0	
	  IFE <.
[email protected]&^O777777B17>
H`,<
		..OP2==1	

I	    CI A,..OP1
I >
	  IFE ..OP2,<
I@		
	    C A,[.
I`.OP1]>
	PURGE ..OP1,..OP2>GE ..;m 
ha$
	..PST==
C-FWMASK
	.IF0 
(..PST,<
		POINT 
H0,B,35>,<
		POINTR (B,C)>POI;| (`ZJ
		POP P,).NVA
		PURGE .N) VA
		.NVR==.NVR-1
		.NVR==.NVR;\t '`ZB
		PUSH P(,A
		DEFINE .NV( B<A>
		.NVR==.NVR+1
		.NVR==.;] P]

	  IFGE P <<<B>&777777>-..P@BSIZ>,<
		PRINTXP` ?WORD offset greQater than $BUILD Q size parameter>
Q@	  SET0. (\<B>,C,<A>)
	B>,;LH 
o@W

	IFNDEF 
o`C,<PRINTX C IS 
pNOT DEFINED
	  
p A (<B>,D,FWMASK
p@)>	
	IFDEF C,<
p`
	IFNDEF %C,<
	
q  A (<B>,D,C)
q >	
	IFDEF %C,<
q@
	  %C (A,<B>,D,C)>>A,<B>,;LH 
rWJ

	..NS==0
r 			
	IRP C,<..N
r@S=..NS+1>	
	IFE 
r`..NS,<PRINTX ?EMP
sTY STRUCTURE LIST
s , A>
	IFE ..NS-
s@1,<		
	  ..STR0 
s`(A,<B>,<C>,D)
t>
	IFG ..NS-1,<	
t 	
	..ICNS			
	.
[email protected] (<E (A,<B
t`>,,>) 
	IRP C,<
u		
	  IFNDEF C,
u <PRINTX C NOT DE
u@FINED>
	  IFDEF 
u`C,<
	  IFNDEF %
vC,<
	  ..CNS (<
v ,C,D>)>	
	  IF
v@DEF %C,<
	  %C
v` (..STR2,,D,C)>
w 
	  ..CNS (<)>)
w 		
	  ..GCNS		

w@	  ..ICNS		
	  .
w`.CNS (<E (A,<B
x>>) 
	  IFNDEF %
x C,<
	  ..CNS (<
x@,C,D>)>	
	  IF
x`DEF %C,<
	  %C
y (..STR2,,D,C)>
y >> 
	..CNS (<,,)>)		
	..GCNS>);LI 
y`WN
	..CNS (<,C,B>).CNS (;LI 
z Wd

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

	IFDIF <
} D><F>,<	
	  IF
}@NB <D>,<
	    
}`A (<B>,D,..MSK)
~>	
	  ..MSK==0>	
~ 	
	IFNB <F>,<

~@	  ..MSK=..MSK!<E>>MSK=..MSK!<;LJ 
X


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

    $TX$ERR>
;$^ 
b

    ..
(TXF==0				
    .
H.TXB==0				
    
h..TXP==0				
   
 ..TXEG==<..TXEF=
(=0>			
    IRPC 
HA,<				
	..TXC=
h=ASCII\A\_-35		
 
	IFN ..TXB,<IFN 
 (..TXB-..TXC,..CNS
 H(<A>)
		   IFE 
 h..TXB-..TXC,..TXB
!==0>
	IFE ..TXB,
!(<..TXQ(<A>,\..TX
!HF)>>	
    ..TXC1
!h				
    IFN ..T
"XB,<IFN <..TXB-"^
"(">,<..TXER(PEA)>>
"H
    ..TXEF==..T
"hXEF!..TXEG		
   
# IFN ..TXEF,<..TERR<A>>
,<..TE;&( 
x`..TXA(.TQCH0)..TXA(.TQC;&) 
`..TXER(IQU)..TXER(IQU;&) 
8`..TXER(IQU)..TXER(IQU;&0 
8`..TXA(.TQCHA)..TXA(.TQC;&5 ~x_w..TXC0(\".CHLFD).TXC0(\".;&5 x_..TXC0(\".CHVTB).TXC0(\".;&6 8_{..TXC0(\".CHFFD).TXC0(\".;&6 ~8_s..TXC0(\".CHCRT).TXC0(\".;&@ 7@[R
	..TSIZ 7`(..PST,C)	
	.CA8SE ..PST,<<
		SE8 TZM B>,<	
		HLL8@ZS B>,<	
		HRRZ8`S B>,<	
	  ..TS9AC (..ACT,B)	
	9   .IF0 ..ACT,<
	9@	$CALL .ZERO	
		9`LSTOF.
		JUMP [P:OINTR(B,C)]
		: LSTON.>,<
		..TX (Z,B,C)>>>TX;&81 
e@VD
	IFNDEF 
e`.PSECT,<
	A==0	
f		
	..TSA1==<Z 
f B>		
	  IFE ..TS
f@A1&^O777777777760
f`,<A==1> 
	>
	I
gFDEF .PSECT,<
	
g A==0			
	..TSA1=
g@=<Z B>		
	.IF .
g`.TSA1,ABSOLUTE,<	
h
	  IFE ..TSA1&^
h O777777777760,<A
h@==1>> 
	PURGE ..TSA1>
	PURGE ..;&:= 
dV(
	A==3		
d 	
	IFE <B>+1,<
d@A=0>	
	IFE <B>-
d`^O777777,<A==1> 
e
	IFE <B>-^O777777B17,<A==2>7;' 
J U`
   ..TX1
J@==C			
IFDEF .P
J`SECT,<
   .IFN .
K.TX1,ABSOLUTE,<

K 	TDA B,[C]>
 
K`  .IF ..TX1,ABSOL
K@UTE,<		
	..TX2==
L0		
	IFE <..TX1&
L ^O777777B17>,<
	
L@  ..TX2==1		
	  
L`TRA B,..TX1>
	
MIFE ..TX2,<		
	I
M FE <..TX1&^O77777
M@7>,<
	  ..TX2==1
M`		
	  TLA B,(.
N.TX1)>>
	IFE ..T
N X2,<		
	  IFE <<
[email protected]>B53-^O77777
V`7>,< 
	    ..TX3
W (A,B)>>	
	IFE
W  ..TX2,<		
	  TD
W@A B,[..TX1]>	

W`	PURGE ..TX1,..TX
X2>>
IFNDEF .PSEC
X T,<
	..TX2==0		
X@
	IFE <..TX1&^O77
X`7777B17>,<
	  ..
YTX2==1		
	  TRA
Y  B,..TX1>
	IFE 
[email protected],<		
	IFE <
Y`..TX1&^O777777>,<
Z
	  ..TX2==1		

Z 	  TLA B,(..TX1
Z@)>>
	IFE ..TX2,<
Z`		
	  IFE <<..TX
[1>B53-^O777777>,<
[  
	    ..TX3 (A
[@,B)>>	
	IFE ..T
[`X2,<		
	  TDA 
\B,[..TX1]>	
	PURGE ..TX1,..TX2>;'` 
\@Uv
	IFIDN <
\`A><Z>,<		
	  ..
]TX2==1
	  ANDI 
] B,^-..TX1>	
	IFI
]@DN <A><O>,<		
	
]`  ..TX2==1
	  OR
^CMI B,^-..TX1>	
^ 
	IFIDN <A><C>,<
^@		
	  ..TX2==1

^`	  EQVI B,^-..TX1>QVI B,^-..TX;'  
(a


	..TXE
HF==0			

IFNDEF
h A,<..TXER(UQU)>
		
IFDIF <B><>,
(<IRPC B,<.IFN <
HB>,NUMERIC,..TXER
h(IWA)>>
IFNB <C
>,<IFNDEF .TXTJC
(,<..TXER(IJA)>>
HIFDEF  A,<
  IF
hE <A_-^D18>,<IFD
IF <EFBCD><>
(,<..TXER(ANA)>>
H  IFE <1-<A_-^D1
h8>>,<IFDIF <BC
D><>,<..TXER(JNA)
(>>
  IFE <2-<A_
H-^D18>>,<IFIDN <
hEF><>,<..TXER(AD
	S)>>>

      IF
	(E ..TXEF,<
	IFID
	HN <B><>,<..TXWD=
	h=<..TXJU==<..TXFC
==0>>>
	IFDIF <
(B><>,<
	  IFE <^
HD<B>>,<..TXWD==<
h..TXJU==<..TXFC==
0>>>
	  IFN <^D<
(B>>,<..TXWD==^D<
HB>
	    IFNB <
hC>,<..TXJU==.TXTJ
C>
	    IFB  <
(C>,<..TXJU==.TXTJ
HL
	      IFE <A
h-.TQOCT>,<..TXJU=
=.TXTJR>
	      
(IFE <A-.TQDEC>,<
H..TXJU==.TXTJR>>
h
	    IFB  <D>,<
..TXFC==" ">
	  
(  IFNB <D>,<..TX
HFC=="D">>>

	I
hFB  <EF>,<..TXP
T==0>
	IFNB <E
(F>,<..TXPT==1>
	
HIFE <..TXWD+..TXP
hT>,<
	    EXP FL
D(A,TXT.FN)>
	I
(FN <..TXWD+..TXPT
H>,<
	    EXP FLD
h(A,TXT.FN)+FLD(.
.TXJU,TXT.JU)+FLD
((..TXWD,TXT.WD)+F
HLD(..TXFC,TXT.FC)
h+TXT.AD
	    PNTR(E,F)>>

T;'h 
4hc2
    IFE 
5..TXP,<			
	..IC
5(NS			
	..CNS<ASC
5HIZ\>		
	..TXP==1
5h>		
    ..CNS<A
6>			
    ..TXF==
6(0			
    ..TXB=="^"
    ..TXB==;'h 
6hc>

    IF
7N ..TXP,<			
	..
7(CNS<\>		
	EXP <F
7HLD(.TQCHT,TXT.FN)
7h+[..GCNS]>>
    ..TXP==0>
    ;'	9 
hal
    ..TX
EF==..TXEF!..XA	
(	
    ..TXF==0		
H		
    ..TXB=="^"
    ..TXB=="^;'
  
#Hb..TXQB(<A>)..TXQB(<;'
( 
$b&

    IF
$(N ..TXC-"^",<..TX
$HC0(<A>)>		
    
$hIFE ..TXC-"^",<..TXF==1>-"^",<..;'
( 
%(bF

    IF
%HE ..TXC-"^",<..TX
%hC0(<A>)>	
    I
&FN ..TXF,<			
	.
&(.TXF==0		
	IFDEF
&H .TQCHA,<		
	  
&h  IFDEF ..TQMA,.
'.TQMA 
	    IFN
'( <.TQCHA_-^D18>,
'H<..TXF==2>>>
   
'h IFE ..TXF-2,<..T
(XC1(<A>)	
	..IC
((NS			
	..CNS<..T
(HXA(.TQCHA,>>	
 
(h   ..TXEG==..TXEG!..TXEF==..TXEG;'
) 
)(bX
    ..TX
)HF==3				
    IFG
)hE ..TXC-"0",IFLE 
*..TXC-"9",<..TXF=
*(=2>
    IFE ..TX
*HF-2,<..CNS(A)>		
*h
    IFE ..TXF-3
+,<..CNS<,>		
		 ..TXQ3(A)>
		 ;'
) 
+Hbl
    ..TX
+hF==4				
    IFE
, ..TXC-"/",<..TXF
,(==5>		
    IFE .
,H.TXC-"[",<..TXF==
,h5>		
    IFE ..T
-XF-4,<..CNS<A,>>
-(		
    IFE ..TXF
-H-5,<..CNS<,,>		
		 ..TXQ5(A)>
;'
* 
.c
    ..TX
.(F==4				
    IFE
.H ..TXC-"/",..TXF=
.h=5		
    IFE ..T
/XC-"[",..TXF==5		
/(
    IFE ..TXF-5
/H,<..CNS<,>		
		 
/h..TXQ5<A>>		
  
0  IFE ..TXF-4,<..
0(CNS<A,>		
		 ..TXF==5>	
		 ..;'
* 
0hc
    ..TX
1F==6				
    IFE
1( ..TXC-"/",..TXB=
1H="/"		
    IFE .
1h.TXC-"[",..TXB=="
2]"
    IFE ..TXB
2(-"]",..CNS<[>		
2H    IFE ..TXB,..TXF==5 ..TXB,..T;'
+ 
3c"
    ..TX
3(F==0			
    IFE 
3H..TXC-"]",..CNS<]
3h>	
    ..CNS<)>	
4		
    ..GCNS			
4(
    ..TXEG==..TXEG!..TXEF==..T;DQ @;DPQ ;EPQ ;E:Q  ;EpQ ;E+PQ ;F	0Q ;F\:Q @
0P 
@P 
PP 
`P d   Y"
	.ACV2 (A)
	.ACV2 (d@ `Y,
	A=.FPAC+..NAC		
	IFB < B>,<..NAC=..NAC+@1>
	IFNB <B>,<..NAC=..NAC+B>.d` Y:
	IFG A- .NPAC,<PRINTX ?TO@O MANY ACS USED>
	IFLE A-4,<
	 $CALL .SAVEA>	
	IFG A-4,<
	  $CALL .SAVE8>  
 <`\&
	  IFIDN= <A><.>,<
	    = XMOVEI .SAC,B	
=@	    PUSH P,.SAC
	  >
	  IFDIF <>A><.>,<
	  .IFA> TM <A>,.BLF4	
	>@  .BLF1==0		
	  >`IFN .BLF4,<		
	 ?   .IF %A,MACRO,? <	
		.BLF1==1>	
	  >
	  IFNB <?`B>,<
		.BLF1==1>@	
	  IFN .BLF1,<@ 		
	    LOAD .SA@@C,A,B
	    PUS@`H P,.SAC
	  >
	A  IFE .BLF1,<		;IA F WASN'T A STRUCTA@URE REF,
	    IFA`N .BLF4,<		
	   B  .BLF2==<<Z A>&B 17B17>-<P>B17 
	B@      .IF .BLF2,AB`BSOLUTE,< 
	C   C   IFE .BLF2,<		
	       .BLF1==1C@		
	       .BLF3C`==<Z A>&777777
D		PUSH P,.BLF3-..D NA(P)>>>> 
	  IFD@E .BLF1,<		
		PUD`SH P,A>>	
	  ..NA=..NA+1
	  ..
	 < [b
	.BCAL1 A
	.BCAL1 
| 	S0M
	XLIST
	SP	.ORG 0
	LIST
.ORG 0
	LIST

=Z I`\N$CALL	I%INTA$CALL	I%IN9  
bV
	..CSN==
b A
	..CSC==0
	I
b@RP B,<
	IFE ..C
b`SN-..CSC,<
	  ST
cOPI
	  ..CAS1 (
c 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 4@[.
	..PST==4`C-FWMASK
	.IF0 5..PST,<
		SOS B5 >,<	
		$CALL .SO5@S	
		LSTOF.
		J5`UMP [POINTR(B,C)]
		LSTON.>C} 
:hel
	.OPCD==
]H.OPCD+1
	WO.A==.OPCD
G),<
		| 	TXM-
	XLIST
	Tx	.....X=.
	.ORG
	.ORG 0
	REPEAT	U8 .....X,<EXP 0>
	UX	PURGE .....X
	.ORG
	LIST

	.v=H `X`
	IRP A,
<
	  .ENSV2 (A)>	  .ENSV2 (A)v=I 
@Xd
	.ENSV3 (A)
	.ENSV3v=I 
	DEFINE A<....U>EFINE [Zp $^p $j6p $lWP %I7p %KqP %h6p %h:P %i:P %lzp &:p &
p &=p LzP L{P L+P L,}P L<\P L=P 	LHqP LMP LMP LiQP Ll}P M
}P MX<P 
MX|P 	MlqP 
N
WP N)VP N)WP N+9P N,}P N<P P `P &2 
``V

	..IFT==
aA		
	IFE ..IFT,
a <
	B
	..IFT==0
a@>		
	IFN ..IFT,<
	C>N ..IFT,<&4 E \>
	IRPC AE@,<
	B==0
	IFGEE` "A"-"A",<IFLE "FA"-"Z",<B=1>> 
	IFGE "A"-"0",<F@IFLE "A"-"9",<BF`=1>>
	IFE "A"-"G%",<B=1>
	IFE "G A"-"$",<B=1>
	G@IFE "A"-".",<B=G`1>
	IFE B,<STOPI>>IFE B,<STOP&t<H 1@[
	..PST==1`C-FWMASK
	.IF0 2..PST,<
		AOS B2 >,<	
		$CALL .AO2@S	
		LSTOF.
		J2`UMP [POINTR(B,C)]
		LSTON.>C&tj7Q ?';VP '<P '<P '<P '<P '<P '<P '<P '<P '<P '<P '<P '<P '<P '<P '<P *IA  *I*|A  *|6MiTQ @7;rp 7H:p 7kp 7N8p ;`P ;-J7P#~>)qp >5H3p >DLYp ?EHP $?LxP "?(WP !?+ZP %?krP #?xUP  ?)0P "?)8P #?98P !?J6P $?N8P  ?$(:P ?$*7P ?$9P ?$HVP ?$]ZP 	?$h6P 	?$htP 
?$mP??%VP??%+qP??%LP??%X<P ?%[ZP ?%hzP ?%kzP ?%l1P ?%|P ?&P ?&
C7P#CzP#J$)XP J$*vP J$,UP J$=qP J$HQP J$HXP J$kP J%uP J&-P J&:=P K%,z 
"R<A>B<^D70-POS(B)>B<^D70N
0PO 
	SYSPRM	C	
	IFG	.PID,<MX.PID==A>	
<MX.PID=O%=H `X>
	.STKV2 (A)
	.STKV2 O%=I  XL
	IFB <B@>,<..STKN==..STKN`+1>
	IFNB <B>,<	..STKN==..STKN+B	 >
	..STKQ==..STK	@N+1
	.STKV3 (A,\..STKQ)V3 (A,O%=I 
XZ
   IFDEF
  A,<.IF A,SYMBO
@L,<PRINTX STKVAR 
`A ALREADY DEFINED>>
	DEFINE A<- ^OB(P)>
	$A==<Z A>>
	$A==<RJP RJP RJ	P RJ	P RJJP RJP RJ
P RJ$HP RJ%P RJ4`P RJ5 P RLH:P RLkQP RM4(P 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  `X~
	.TRV2 (A)
	.TRV2 (Sd@  Y
	.TRV3 (@A,\..NV)	
	IFB `<B>,<..NV=..NV+1>
	IFNB <B>,<..NV=..NV+B>,<..Sd` @Y
   IFDEF` A,<.IF A,SYMBOL,<PRINTX TRVAR  A ALREADY DEFINED@>>
	DEFINE A<^O`B(.FP)>
	$A==<Z A>>
	$A==<S"P S"P S"	P S"	P S"JP S"P S"
P S"$HP S"%P S"4`P S"5 P S%4(P S%D)P S%DkP S&d
P S&e(P S&e)P S&eHP SFH2P SFIVP SFJQP SFJVP SFJYP _%~ 
d(f>
		$CALL	
dHI%WTO		
		LSTOF.
dh			
		JRST	g		
e
		$WTRST			
	IF
e(NB <A>,<$WTMTY (
eH<A>)>	
	IFNB <
ehB>,<$WTTYP (<B>)
f>	
	IFNB <C>,<$
f(WTTXT (<C>)>	
	
fHIFNB <D>,<$WTOBJ
fh (<D>)>	
	IFNB 
g<E>,<$WTACK (<E
g(>)>	
		IRP F,<
gHF>		
		$WTBLD			
gh
	g:!
	LSTON.  g:!
	LSTON. kPP >}{woP