PDP-10 Archive: glxmac.unv from bb-bt99p-bb

Trailing-Edge - PDP-10 Archives - bb-bt99p-bb - glxmac.unv

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

x
,UZ@P C4@ PYI
	..NAC==p0		
	IRP A,<
	  .ACV1 (A)>		
	.ACV3 (\..NAC)C' 
@PT..AS(A,B,ADD,SUB)(A,BC, 
"RLSH A,-^D9LSH A,-^DC2f}

=Xc
	.EAWTO(

=xMTY,0)
	.EAWTO(T

>YP,2)
	.EAWTO(TX

>8T,2)
	.EAWTO(OBJ

>X,0)
	.EAWTO(ACK,

>x0)
	.EAWTO(FLG,1

?)
	.EAWTO(NOD,0)

?8
	.EAWTO(JBN,0)

?X
	.EAWTO(ACD,0)

?x	.EAWTO(OCD,0)
	.EAWTO(MFL,1)
C:' 
eV)
	TXZ A,<^-<B>>TXZ A,CHuI7Q xCHvN8P'CJ9ip CJ9jp CJ9l}p E
	..NA==0@0			
	IRP B,<
	@P  .BCAL2 B>		
	@pPUSHJ	P,A		
	ADAJSP	P,-..NA		
   	P,-..NA		
  E2"@ [0]a
	  IFE [PB,<..TA==0>
	  [pIFN B,<EXP ..TA\
		    PURGE ..TA>
	PURGE ..TE@tP'E@vyQ ~E@v:=Q |F;z:Q @G@ 
9PSM
	    ..CX(,A,B)   ..CGD 
=Si
	    ..CX(A,A,B)  ..CGDP 
;SY
	    ..CX(E,A,B)  ..CGDp 
;PS]
	    ..CX(G,A,B)  ..CGDy  
<Sa
	    ..CX(GE,A,B) ..CGE@ 
:SQ
	    ..CX(L,A,B)  ..CGEI  
:PSU
	    ..CX(LE,A,B) ..CGE` 
<PSe
	Xk'..CX(N,A,B)  ..CGH 

	XOLST

	X	CRE		
18	X	GEN		
	X	PRT	
	X	CLS		
	X	A		
	X	USW		
	xX	SPL		
	X	SIZ		
	X	MOD		
	X	CH
	X	ACT		
	X	CRY		
	X	DTY		
	X	DTO		
	X	DCC
	X	BSZ		
	X	SZ		
	X	HSZ		
3X	X	RFM		
	X	RFO	
	X	RSZ		
	X	B		
	X	FFB		
	8X	ACW		
	X	RMS		
	X	MCY		
	X	CT
	X	NSB		

	  LSTON.


G"\Y O0}

	IF1, OP<%%EDT==AEDT>	
Op
	IF2, <IFN <%%EPDT-AEDT>,<
		PRP0INTX ? Edit NumbePPr Doesn't Match GPpLXVER in GLXA
	Q	A$WHO(\AEDT)>	Q0
		A$NOTE		
	IQPNTERN AEDT		
	IQpNTERN LODLEV		
;R	PURGE %%EDT> ;END IF2

%S@t,:G(tSQ @G(tEHQ G(tHwQ  G(tI8Q pG(vyP 8G(v<P'G(v=P G(vJ6Q xG*iVp G*kVp G*lzp 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-[P 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 ld
	IFNB <>l ,<
	PRINTX  (Frol@m GLXVER)
	> ;END IFNB 
	G>hMt j@\
	PRINTX j`GLXVER	GLXCOM Edikt(63) by DPM on 9k -Aug-88
	PRINTX	k@    	GLXCOM	Actual Edit(A)
	G>lYP G>vC@ 	apNLALL
PAGE	b; (A Continued o	b0n next page)
SAL	bPL; (A Continued 	bpfrom previous page) previous pagG?T 	YHMLASCIZ \
COPYRIGHT Z \
CGHt;rP GHtkP GHv	P GHv)9P GHv:=P I!k7P I!k<P ImP I$P`R*IIY{P`R!*|I  8P[K
	IFNB <8pB>,<..STR0 (.DECR90,,<B>,A)>
	IF90B  <B>,<SOS A>  <B>,<SOS A>I6= 
oW
	A==<-1
o0B<C>+1B<C-D>> 
oP
	IF1,<IFDEF %A
op,<PRINTX ?A ALRE
pADY DEFINED>>
	D
p0EFINE %A (OP,AC,
pPY,MSK)<	
	IFDIF 
pp<Y><>,<
	OP (<AC
q>,B+'Y,MSK)>
	I
q0FIDN <Y><>,<
	OP
qP (<AC>,B'Y,MSK)>>AC>,B'Y,MSK)>I'7 
CT..OP(A,B,DIV)..OP(A,BIOH1 _ v
	IFB <D_@>,<
	XWD	[ASCIZ\_`C\],[XWD B,A]>`
	IFNB <D>,<
	` XWD	[EXP CM%FW!D`@
		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

mXju
	ERR	EOF

mx,<End of file>

nERR	IFP,<Illegal

n8file position>

nXERR	FDE,<File dat

nxa error>
	ERR	FN

oD,<File is not on

o8 disk>
	ERR	NSD,

oX<No such device>

ox
	ERR	FCF,<File c

pheckpoint failed>

p8
	ERR	SLE,<A sys

pXtem limit was exc

pxeeded>
	ERR	IFS,

q<Illegal file spe

q8cification>
	ERR

qX	FNF,<File not fo

qxund>
	ERR	PRT,<P

rrotection violati

r8on>
	ERR	DNA,<De

rXvice not availabl

rxe>
	ERR	NCE,<No

s"current" entry i

s8n list>
	ERR	NMA

sX,<No IPCF message

sx is available>

tERR	FDS,<Files ar

t8e on different st

tXructures>
	ERR	F

txAE,<File already

uexists>
	ERR	USE

u8,<Unexpected syst

uXem error>
	ERR	N

uxSP,<No such pid>

v
	ERR	BOL,<Beginn

v8ing of list reach

vXed>
	ERR	EOL,<En

vxd of list reached

w>
	ERR	RQF,<Rece

w8ivers quota full>

wX
	ERR	SQF,<Sende

wxrs quota full>

xERR	NRE,<No remem

x8bered entry>
	ER

xXR	TBF,<Table is f

xxull>
	ERR	EIT,<T

yable entry alread

y8y exists>
	ERR	I

yXTE,<Invalid table

yx entry>
	ERR	QEF

z,<Quota exceeded

z8or disk full>
	E

zXRR	ARG,<Invalid a

zxrgument specified

{>
	ERR	IFN,<Inva

{8lid function spec

{Xified>
	ERR	IJN,

{x<Invalid job numb

|er specified>
	E

|8RR	RAD,<Invalid r

|Xadix specified>

|x	ERR	NUM,<Invalid

} numeric argument

}8>
	ERR	IDT,<Inva

}Xlid date field sp

}xecified>
	ERR	IT

~F,<Invalid time f

~8ield specified>

~X	ERR	DOR,<Date/ti

~xme out of range>


	ERR	DTM,<Value

8missing in date/t

Xime>
	ERR	MDD,<M

xissing>day in dat
	ERR	DFZdezero in d
	ERR	MMnemonic date
	ER	DFL,<Fieldetoom
	ERR	ILR,<Illormat 
	ERR	NND,<Negativei
	ERR	NPF,<Noethernp
	ERR	,<Relativerdat
	ERR	NSW,<Switcgin 
	ERROM,<Unrecognize
	ERR	NUL,<Nuor keyw
	ERR	,<Invalid guid
	ERR	NC,onfirmed>
X	ERR	ICN,<Invalid
	ERR	NQS,<Iotedtstr
		ERR	AMB,<Ambiguo
	ERR	NMT,<Datch tok
en>
	ERR	CMA,<Co
8mma not given>
	
XERR	NNC,<Node nam
xe6mayanottexceed 
	ERR	INT,<Nodemterm
	E

RR	NSN,<Unknown n

8ode name>
	ERR	I

XPS,<Invalid path

xspecification>
	ERR	IUS,<Invalido
	ERR	DGS,<Devanotte
	ERR	DNE,<Unce>
	ERR	DIO,<Device ca
	ERR	BDvalid>date/t
	ERRBS,<Fieldetooll
	ERR	TMTandetoollon
	ERR	BDS,<default s
	ERR	BTF,d table fo
	ERR	TME,<eumust>be
	ERR	TMN,<Noetime
	ERR	TMA,<Tialready
	ERR	DVviceutermina
	ERR	NArgument bloc
	ERR	TLUinalolocati
	8ERR	FIO,<File is 
	ERR	FBle being mod
	ERR	WLK,locked dev
	ERR	CSD,<Cersede a
	ERRDD,<Cannottdele
	ERR	SNb-fileudirec
X	ERR	ESL,<Search 
	ERR	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>
	XERR	NPI,<NoPfreee
	ERR	IFdirect	filer
	ER	NDN,<Nullndevic
(X	ERR	PWA,<PID wen
	ERR	CGPt get a PID
	ERR	IND,<Invae>
	xERR	IAC,<Invalid 
	8ERR	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` q_
	IFIDN <q(BC><>,<EXP <A>qH>
	IFDIF <BC><qh>,<
	 IFE <A+1>r,<<POINT 7,C>>
r(	 IFN <A+1>,<
	rH   IFIDN <C><>,<rhEXP <A,B>>
	  s IFDIF <C><>,<EXs(P <A,B,C>>
	>>A,B,C>>
	>KbN@ 	`Kc  	_0M}IRP A,<
	_P	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 n@x
	IFNB <>n`,<
	PRINTX  (Froom GLXVER)
	> ;END IFNB 
	M&`Mt mp
	PRINTX m GLXVER	GLXFIL Edim@t(120) by LWS on m`1-Aug-88
	PRINTXn	    	GLXFIL	Actual Edit(A)
	M&dYP (M2  
&pR7<<<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  
	IFNB <>@,<
	PRINTX  (Fro`m GLXVER)
	> ;END IFNB 
	MVpMt ~`~
	PRINTX GLXVER	GLXFUN Edi t(2) by BAH on 14@-Nov-86
	PRINTX	`    	GLXFUN	Actual Edit(A)
	MVtYP M^luQ O2|  	`NIRP A,<
	`0	IF2,<IFDEF A,<.	`PIFN A,EXTERN,<IN	`pTERN A>>
	     	aIFNDEF A,<EXTERN	a0 A>
	Q SUPPRESPA>>FlYSUPPRO3DYPFAO3EKrPfAO3EZ7PO3FLQ St\Yp Stkp SuZp SulQ Su}:p Sv
1p Sv

Sp Sv8;Q Sv>@p SNn 
BPT..OP(A,B,IDIV).OP(A,BSNp @S7-N 
APT..OP(A,B,IMUL).OP(A,BS:  5P[3
	IFNB <5pB>,<..STR0 (.INCR60,,<B>,A)>
	IF60B  <B>,<AOS A>  <B>,<AOS A>S:HKW `B
	IFNB <>,<
	PRINTX  (Fro m GLXVER)
	> ;END IFNB 
	S:HMt  :
	PRINTX @GLXVER	GLXINI Edi`t(23) by  on 27-Jun-84
	PRINTX	     	GLXINI	Actual Edit(A)
	S:LYP 	S;k 
)0RK<<<A>B<POS(<B>)>>&<B>>S; KW q 
	IFNB <>q@,<
	PRINTX  (Froq`m GLXVER)
	> ;END IFNB 
	S; Mt o`
	PRINTX pGLXVER	GLXINT Edip t(116) by LWS on p@12-May-88
	PRINTp`X	    	GLXINT	Actual Edit(A)
	S;!kP S;!k<P S;$YP 'S? 
dPV%
	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 { ^
	IFNB <>{@,<
	PRINTX  (Fro{`m GLXVER)
	> ;END IFNB 
	M&`KWSBMt y`V
	PRINTX zGLXVER	GLXIPC Ediz t(77) by LWS on 2z@4-Aug-87
	PRINTXz`	    	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.	tXCREF
	..TEXT<At(>		
	  EXP	0		
	LSTON.
	0		
Uv98Q |U$@

8kQ

	XOLST

	XJJNO,.JI,GJBJNO>	
	X-TNO,.JITNO,<
	XUSR,.JIUNO,.GTPPN
	X,CDN,.JIDNOH>	
	8XGPRG,.JIPNM,.GTP
	XPCJN,.JICJBCJB>	
	XTBAT,.JIBCH,.G
	XIJLT,.JTJLT		
	X,LOC,<-1,,GJBLOC>
	8XJRTM,.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 }`r
	IFNB <>~,<
	PRINTX  (Fro~ m GLXVER)
	> ;END IFNB 
	[hMtW
 Mt | j
	PRINTX |@GLXVER	GLXKBD Edi|`t(103) by LWS on }24-Aug-87
	PRINT} X	    	GLXKBD	Actual Edit(A)
	W
$YP !WNH1 av
	IFB <Ca >,<
	XWD	[ASCIZ\a@B\],A>
	IFNB <a`C>,<
	XWD	[EXP bCM%FW!C
		ASCIZ\B\],A>
SCIZY"luQ xY&i1 
xR	

	  LST
OF. XCREF

	CDO
8	OTSINI			
	CDO	
X    			
	CDO	.ZP
xAGA
	CDO	.ZPAGN

	CDO	.ZCHNK
	CD
8O	.SAVE1
	CDO	.S
XAVE2
	CDO	.SAVE3
x
	CDO	.SAVE4
	C
DO	.SAVET
	CDO	.
8SV13
	CDO	.SV14
X
	CDO	.SV15
	CDO
x	.SV16
	NT	.RETT

	NT	.RETF
	CDO
8	.RETE
	CDO	.AOS
X		
	CDO	.SOS		

x	CDO	.ZERO		
	NT
	.POPJ		
	CDO	.S
8TOP		
	CDO	.SAVE
X8		
	CDO	.STKST	
x	
	CDO	.TRSET		

	NT	.POPJ1		
	C
8DO	.UD2SC		
	CDO
X	.SC2UD		
	CDO	.
xCPUTY		
	CDO	.DI
E		
	CDO
	CDO

8
	CDO			
	CDO	C
X%RPRM
	CDO	C%INT
xR
	CDO	C%SEND
	
CDO	C%RECV
	CDO	
8C%BRCV
	CDO	C%RE
XL
	CDO	C%CPID
	
xCDO	C%KPID
	CDO	
	C%SPID
	CDO	C%MA
	8XP
	CDO	C%PIDJ

	X	CDO	C%PIDH
	CDO
	x	C%SIDX
	CDO
	C

DO
	CDO

	CDO	

8      			
	CDO	F

X%IOPN
	CDO	F%AOP

xN
	CDO	F%OOPN
	
CDO	F%IBYT
	CDO	
8F%OBYT
	CDO	F%IB
XUF
	CDO	F%OBUF

x	CDO	F%REL
	CDO

F%DREL
	CDO	F%RR

8EL
	CDO	F%REW

XCDO	F%POS
	CDO	F

x%CHKP
	CDO	F%INF
O
	CDO	F%FD
	CD
8O	F%REN
	CDO	F%D
XEL
	CDO	F%FCHN

x	CDO
	CDO
	CDO

	CDO
	CDO
	CDO
8
	CDO
	CDO
	CD
XO	FUNCT.			

	C
xDO	      			
	CD
O	M%ACQP
	CDO	M%
8RELP
	CDO	M%IPSN
X
	CDO	M%NXPG
	C
xDO	M%IPRC
	CDO	M
%IPRM
	CDO	M%AQN
8P
	CDO	M%RLNP
	
XCDO	M%CLNC
	CDO	
xM%FPGS
	CDO	M%GM
EM
	CDO	M%RMEM

8	CDO
	CDO
	CDO
X
	CDO
	CDO
	CDO
x
	CDO	M%GPAG
	C
DO	M%RPAG
	CDO

8	CDO
	CDO
	CDO
X
	CDO
	CDO
	CDO
x
	CDO

	CDO	  
    			
	CDO	T%T
8EXT
	CDO	T%TTY

X	CDO
	CDO
	CDO
x
	CDO
	CDO
	CDO

	CDO
	CDO
	CD
8O
	CDO

	CDO	 
X     			
	CDO	L%
xCLST
	CDO	L%DLST

	CDO	L%CENT
	C
8DO	L%CBFR
	CDO	L
X%DENT
	CDO	L%NEX
xT
	CDO	L%FIRS
	
CDO	L%LAST
	CDO	
8L%PREV
	CDO	L%PR
XEM
	CDO	L%CURR

x	CDO	L%RENT
	CDO
	L%SIZE
	CDO	L%A
8POS
	CDO
	CDO

X	CDO
	CDO
	CDO
x
	CDO
	CDO
	CDO


	CDO			
	CDO
8	I%NOW
	CDO	I%EX
XIT
	CDO	I%ION
	
xCDO	I%IOFF
	CDO	
I%SLP
	CDO	I%INT
81
	CDO	I%INT2
	
XCDO	I%INT3
	CDO	
xI%TIMR
	CDO
	CD
O
	CDO	I%SOPR
	
8CDO	I%WTO
	CDO

X	CDO	I%HOST
	CDO
x	I%JINF
	CDO	I%C
JOB
	CDO	I%KJOB
8

	CDO	S%U2DT		
X
	CDO	S%DT2U
	CD
xO	S%DATI
	CDO	S%
SIXB
	CDO	S%CMND
8
	CDO	S%TBLK
	C
XDO	S%SCMP
	CDO	S
x%ERR
	CDO	S%INTR

	CDO	S%EXIT
	C
8DO	S%TBAD
	CDO	S
X%TBDL
	CDO	S%NUM
xI


	CDO	K%RCO
C			
	CDO	K%WCOC
8
	CDO	K%SUET
	C
XDO	K%STYP
	CDO	K
x%TXTI
	CDO	K%SOU
T
	CDO	K%BOUT
	
8CDO	K%BIN
	CDO	K
X%BACK
	CDO	K%TPO
xS
	CDO	K%BUFF
	
 CDO	K%FLSH
	CDO	
 8K%OPEN
	CDO	K%EC
 XHO
	CDO
	CDO
	
 xCDO
	CDO
	CDO

!	CDO
	CDO
	CDO
	  LSTON.
Y:W 
 V
	IFNB <>
@,<
	PRINTX  (Fro
`m GLXVER)
	> ;END IFNB 
	Y:XMt `N
	PRINTX 	GLXVER	GLXLNK Edi	 t(11) by AWC on 2	@9-Jan-82
	PRINTX	`	    	GLXLNK	Actual Edit(A)
	Y:\YP Y>

@ /Z
	IFNB </0C>,<..STR0 (..LDB/P,A,C,B)>
	IFB/p  <C>,<MOVE A,B>C>,<MOVE A,Y>%I;P YO%GP YO%yG 	c0N%
	IFNDEF 	cPLSTIN.,LSTIN.==0		cp	
IFE LSTIN.,<
	d	IFIDN <XCREF><A	d0>,<.XCREF>	
		  	dP XLIST>		
	LSTIN.==LSTIN.+1STINYO%{G 	eN/
	IFG LST	e0IN.,LSTIN.==LSTIN	eP.-1	
	IFLE LSTIN	ep.,<.CREF		
		      LIST>
		   [KW i`R
	IFNB <>j,<
	PRINTX  (Froj m GLXVER)
	> ;END IFNB 
	[Mt h J
	PRINTX h@GLXVER	GLXMAC Edih`t(522) by DPM on i14-Oct-88
	PRINTi X	    	GLXMAC	Actual Edit(A)
	[YP )[3@ 
(pRG<<<1_<A>>-1>B<B>>_<A>>[8@ 
'pR?1B<<A>-1>-1B<B><<A>-1>[@ 	|8Oo
	IFB <B	|X>,<MAXSIZ==0
		I	|xRP A,<IFG <A-MA	}XSIZ>,<MAXSIZ==A	}8>>>
	IFNB <B>,<	}XB==0
		IRP A,<	}xIFG <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 s`"
	IFNB <>t,<
	PRINTX  (Frot m GLXVER)
	> ;END IFNB 
	[hMt r 
	PRINTX r@GLXVER	GLXMEM Edir`t(33) by DPM on 1s9-Apr-88
	PRINTXs 	    	GLXMEM	Actual Edit(A)
	[lYPuQ @[th:Q [u[yQ [ukvQ  [v=3P'[v|WQ [&p 	~8P
	IFB <B	~X>,<MINSIZ==377777	~x,,777777
		IRP 	A,<IFG <MINSIZ-A	8>,<MINSIZ==A>>>
	IFNB <B>,<B==	x377777,,777777
	
	IRP A,<IFG <B-
8A>,<B==A>>>
A>,<B==A>>>
[>!` 
(0RC<A-<A/B>*B><A-<A/B[?7 
)pS1
   ..MX1
*==B			
IFDEF .P
*0SECT,<
   .IFN .
*P.MX1,ABSOLUTE,<

*p	MOVE A,[B]>
 
+  .IF ..MX1,ABSOL
+0UTE,<
	..MX2==0	
+P	
	IFE <..MX1>B5
+p3,<
	  ..MX2==1
,
	  MOVEI A,..MX
,01>	
	IFE ..MX2,<
,P		
	IFE <..MX1>B
,p17,<
	  ..MX2==1
-
	  MOVSI A,(..
-0MX1)>>	
	IFE ..M
-PX2,<		
	IFE <<..
-pMX1>B53-^O777777>
.,<
	  ..MX2==1

.0	  HRROI A,<..MX
.P1>>>	
	IFE ..MX2
.p,<		
	IFE <<..MX
/1>B17-^O777777B17
/0>,<
	  ..MX2==1
/P
	  HRLOI A,(..M
/pX1-^O777777)>> 

0	IFE ..MX2,<		
	
00  MOVE A,[..MX1]
0P>	
	>>

IFNDEF
0p .PSECT,<
	..MX2
1==0		
	IFE <..MX
101>B53,<
	  ..MX2
1P==1
	  MOVEI A,
1p..MX1>	
	IFE ..M
2X2,<		
	IFE <..M
20X1>B17,<
	  ..MX
2P2==1
	  MOVSI A
2p,(..MX1)>>	
	IFE
3 ..MX2,<		
	IFE 
30<<..MX1>B53-^O777
3P777>,<
	  ..MX2=
3p=1
	  HRROI A,<
4..MX1>>>	
	IFE .
40.MX2,<		
	IFE <<
4P..MX1>B17-^O77777
4p7B17>,<
	  ..MX2
5==1
	  HRLOI A,
50(..MX1-^O777777)>
5P> 
	IFE ..MX2,<	
5p	
	  MOVE A,[..
6MX1]>	
>
	PURGE ..MX1,..MX2RGE[Lt;ZQ x[LvN8P'[NF:=p [N^= 
rW#
	A==C	
r0	
	IF1,<IFDEF %
rPA,<PRINTX ?A ALR
rpEADY DEFINED>>
	
sDEFINE %A (OP,AC
s0,Y,MSK)<	
	IFDIF
sP <Y><>,<
	OP (<A
spC>,B+'Y,MSK)>
	
tIFIDN <Y><>,<
	O
t0P (<AC>,B'Y,MSK)>>AC>,B'Y,MSK)[PuySP'[PvNP'[Vg 
BT..OP(A,B,MUL)..OP(A,B[`v
2P ] 	]pMqIF2,<IFDEF	^ A,<A==A>> IFNDEF A,<A==B>]F@ p#TEMFDB##_
QkRp _
Ql}p _
Qmp _
Qm7p _
T=

xmd

	X	.OTReader
	X	.OU,Network-Cont
	X	.OTLPTr
	X	.OTBtch-Stream
R`	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
Z`	X	.OTDBM,<DBMS S
	X	.OTFALtream>
	X	.OTEVT,<Event>
[`	X	.OTFCH,<Microf
	X	.OTXER,
	X	.OTNQ-Stream>
,<NQC-Stream>
_SKW x`J
	IFNB <>y,<
	PRINTX  (Froy m GLXVER)
	> ;END IFNB 
	_SMt w B
	PRINTX w@GLXVER	GLXOTS Ediw`t(13) by DPM on 1x4-Apr-88
	PRINTXx 	    	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 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)>

i0.IFNBC<D>,<..XX=
j.IFNBC<E>,<..XX=

k	EXP ..XX		

k(CIFNB <C>,<EXP 
khEIFB0<C>,<

lSIFNB,<POINT 7,[A
lHFI <D>,<0>

lh IFNBS<E>,<POINT
mH IFB <E>,<0>



mh>IFB><I
nIIFNBX<I>

n( IFB <J>,<0>
nHJIFNB <J>,<EXP 

o,IFB <H>
o(>IFNBP<H>

oHIFB <G>,<0>
ohIFNB <G>,<EXP G>

G>,<EXP Ga@KW

`j
	IFNB <>
	PRINTXER(Fro
	> ;END IFNB 
	a@Mt  b
	PRINTX @GLXVER	GLXPFH Edi`t(16) by TARL on

17-Apr-81
	PRINT

 X	    	GLXPFH	Actual Edit(A)
	aDYP a 
!XRLSH A,^D9LSH A,^D9a+= 5a;&

XaE
	 IFB  <

xB>,<..STR0(..PNT

,,<FWMASK>,A)>

8	 IFNB <B>,<..ST

XR0(..PNT,,<B>,A)>.PNT,,<B>,Aa>Mm 
&R3<POINT WID
&0(B),A,POS(B)>B),A,POS(B)>a?H6 +a? 
#PR<^L<<A>&<-<A>>>><<A>&<aJ}Ks 	X@OU

	SALL		fX			
	LSTOF. XCRE	fxF			

	%%.GLX==	g%%.GLX			
	GLXVR	g8S==GLXVRS			

		gXIFNB <A>,<%%.MOD	gx==SIXBIT/A/> 
		hIFNB <B>,<%%.OTS	h8==SIXBIT/B/> 
	hX
	GLOB	I%INIT			

	TOPS10	<			
	i		SEARCH	UUOSYM			i8
		%%UUOS==%%UUO	iXS		
	>				

	T	ixOPS20	<			
		SEA	jRCH	MONSYM		
;			j8%%MONS==%%MONS		
	>				

	IFB <	jxB>,<			
		IFN G	kLXPUR,<
			.TEXT	k8	|,REL:GLXLIB/SEA	kXRCH/REQUIRE:I%INI	kxT/SEGMENT:LOW|
		l	>			
		DEFINE	$	l8DATA (NAM,SIZ<1>)	lX,< 
			NAM:	BLOC	lxK	SIZ
		>			
			mDEFINE	CDO (X),<G	m8LOB X> 
		DEFINE	mX	NT(X),<CDO X>	
	mx		LIBVEC			
	>			n		

	IFNB <B>,	n8<			
		IFDEF .MC	nXRV.,<.VERSION <GL	nxXVRS>>
		CHKEDT 	o(B)		

	IFDIF 	o8<B><INI>,<		
			oXIFN GLXPURE,<.PSE	oxCT .HIGH.> 
		IF	pE GLXPURE,<		
			p8	TWOSEG	400000	
	pX			RELOC	0	
			R	pxELOC	400000	
		>	q			

		DEFINE $	q8DATA(NAM,SIZ<1>),	qX< 
			IFN GLXPUR	qxE,<.PSECT DATA> 
			IFE GLXPURE,<	r8RELOC> 
			IFNDE	rXF B%D,<B%D::! 	rxB%DL==:0>
			NAM	s:	BLOCK	SIZ
				s8B%DL==:B%DL+SIZ 	sX
			IFN GLXPURE,	sx<.ENDPS DATA> 
		t		IFE GLXPURE,<RE	t8LOC> 
		>			

	tX	IFDIF <B><OTS>,	tx<		
		DEFINE	CDO	u (X),<GLOB X> 
		u8	DEFINE	NT(X),<CD	uXO X> 
		LIBVEC			ux
	>			

	>			
	

	IFIDN <B>	v8<INI>,< 
		DEFIN	vXE	$DATA (NAM,SIZ<	vx1>),< 
			NAM:	B	wLOCK	SIZ
		>			
	>				
	>

	L	wXSTON.				

	GLO	wxB	<.POPJ, .RETT, 	x.RETF>	
	OPDEF	$	x8RET	[POPJ	P,]	
		xXOPDEF	$RETT	[PJRS	xxT	.RETT]	
	OPDEF	y	$RETF	[PJRST	.RE	y8TF]	
	OPDEF	$RET	yXIT	[JUMPT	.POPJ]		yx
	OPDEF	$RETIF	[	zJUMPF	.POPJ]	
	.	z8NODDT	$RET,$RETT,	zX$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 v 6
	IFNB <>v@,<
	PRINTX  (Frov`m GLXVER)
	> ;END IFNB 
	gpMt t`.
	PRINTX uGLXVER	GLXSCN Ediu t(135) by DPM on u@19-Apr-88
	PRINTu`X	    	GLXSCN	Actual Edit(A)
	gtYP .g"@ \P]u
	IFN <<.\p.TA>&B>,<PRINTX] ?Initial field n]0ot zero in $SET>
	]p..TVAL==<C>
	^..TMSK==<B>
	  ..TA==..TA!^0<FLD(..TVAL,..TMS^PK)>
	  PURGE ..TVAL,..TMSK
	.TgtXrP gv

[P9g#=zt@p<C.SWIT+PDBCPY##C.SWIT+PDBg$tkQt@g$uP'g$uh6Q gg.N	@u6@g.NhxP 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 
0Xe
	..STKR=
P=10		
	RADIX 8

p	..STKN==0
	IRP A,<
	  .STKV1 (0A)>
	$CALL	.STKPST
	 ..STKN,,..SpTKN
	RADIX ..STK

R
	DEFINE ENDSV.

0<.ENSV1 <A>>
	P

PURGE ..STKN,..STKR,..STKQ
   TKgR~r eH^d

.TYPE=eh=-1				
IFIDN <fB><HALT>,<.TYPE==f(0>		
IFIDN <B><fHCONT>,<.TYPE==1>	fh	
IFIDN <B><DEBgUG>,<.TYPE==2>		

IFL .TYPE,<			gH	
IF2,<PRINTX ? ghStopcode A is inh error; see S..Ah( in CREF>
S..A:hH:JRST	4,.			
>		hh			

IFB <A>,<i				
IF2,<PRINTXi( ? Stopcode with iHout a A; see S..ih in CREF>
S..::	jJRST	4,.			
>			j(		

IFGE .TYPE,jH<				
S..A::PUSjhHJ	P,.DIE			
	CAkI	.TYPE,[			
	<Sk(IXBIT /A/>&77777kH7000000	
	EXP	%%kh.MOD			
	EXP	C	l		
	EXP	[ASCIZ |l(D|]		
	]				
>lH					

	PURGE	.TYPE			
URGE	.gR~)  20[
	IFNB <2PC>,<..STR0 (..DPB2p,A,C,B)>
	IFB3  <C>,<MOVEM A,B>>,<MOVEM A,gV 
AT	..AS(A,B,SUB,ADD)(A,Bgg

V 	{O_
	IFNB <	{8B>,<TOPS10<A==B	{X>>
	IFNB <C>,<T	{xOPS20<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( I(|JIFN FTUUOS,B			;DEFINE UNi?4H Ih|NIFN FTJSYS,	INTERN AEDT	iD ~h`

  IFNB	<A>,<.TQCHA==^(D<B>B17+ZZ>
  IHFNB 	<D>,<DEFINEh ..TQMA<D>>

IFNB	<C>,<.TQC=

(=^D<B>B17+ZZ>
	 ZZ==ZZ+1ZZ>
	iG, th_r
	LSTOF.
	TQ(T,2,ASCIZ)		u(	
	TQ(O,2,OCTAL)uH			
	TQ(D,2,DECIuhMAL)			
	TQ(F,2,vFILE)			
	TQ(7,2v(,CSEVEN)			
	TQ(vH6,2,CSIXBIT)			
vh	TQ(W,2,SIXBIT)		w	
	TQ(5,2,SVNBITw()			
	TQ(P,2,USEwHR)			
	TQ(U,2,DIwhRECTORY)			
	TQ(xH,2,DAYTIME)			
x(	TQ(C,2,TIME)			
	TQ(E,2,ERROR)		xh	
	TQ(I,1,INDIREyCT)		
	TQ(M,0,CRy(,..TXC0(\".CHCRT)yH)	
	TQ(J,0,LF,..yhTXC0(\".CHLFD))	
	TQ(L,0,FF,..TXCz(0(\".CHFFD))	
	TzHQ(K,0,VT,..TXC0(\zh".CHVTB))	
	TQ(A{,0,NOCRLF,..TXA(.{(TQCHA))	
	TQ(0,0{H,NULL,..TXA(.TQCH{h0))	
	TQ(3,0,STR|ING,..TXER(IQU))	|(
	TQ(V,2,VERSION|H)			
	TQ(2,0,CAR|hET,..TXER(IQU))	
	TQ(Q,2,POINTER)}(			
	TQ(B,2,ROB)}H			
	TQ(1,2,OBJE}hCT)			
	TQ(N,2,N~ODE)			
	TQ(R,2,~(JIB)			
	LSTON.
)			
	LSTON.

m
	LSTOF.
;X(33,TTY33,33,.
;X(3TTY35,35,.RETT,
TOPS20<
<EX(37,TTY37,37,.R
<X(EXPORT,EXEC,EXE,
>
=TOPS10<
=X(LA120,L12,.RETT,
>
=X(LA336,L36,.RETT,
>X(VK100,10,SETTLC,
?X(T05,VT05,V05,.RE
@X(VT100,00,SETTLC,

ATOPS10<	X(VT101,V
BX(VT102,VT102,102,
TOPS10<	X(VT103,SET
DX(VT125,VT125<.CHE
TOPS10<180,VT180,18
TOPS10<	XVT185,185,
HX(VT220,VTETTLC,<.
IX(V40,VT240,240,SE
JX(VT320,VT320<.CHE
KX(VT3330,330,SETTL
L@0X(VT340,VT340,34
MX(VT50,VTETTLC,<.C
NX(VT52,V,SETTLC,<.
TOPS10<	,VT61,V61,S
	LSTON.

>PA iK4@ pY%
	..TRR==10		
	RADIX 8
	0..NV==1			
	IRP PA,<
	  .TRV1 (pA)>		
	$CALL	.TRSET		
	 ..NV-1,,0..NV-1
	RADIX ..PTRR		
	PURGE ..TRR,..NVURGE ..Tib 
ZUQ
		..TX(C,A,<B>)..TX(Cib 
[PU]
		..TX(CA,A,<B>).TX(CibP 
ZPUU
		..TX(CE,A,<B>).TX(Cib` 
[UY
		..TX(CN,A,<B>).TX(Cibp 
TU!
		..TX(N,A,<B>)..TX(Nibt 
UPU-
		..TX(NA,A,<B>).TX(NibtP 
TPU%
		..TX(NE,A,<B>).TX(Nibu` 
UU)
		..TX(NN,A,<B>).TX(Nibx 
VU1
		..TX(O,A,<B>)..TX(Oib| 
WPU=
		..TX(OA,A,<B>).TX(Oib|P 
VPU5
		..TX(OE,A,<B>).TX(Oib}` 
WU9
		..TX(ON,A,<B>).TX(Oic KW `
	IFNB <>,<
	PRINTX  (Fro m GLXVER)
	> ;END IFNB 
	ic Mt  
	PRINTX @GLXVER	GLXTXT Edi`t(55) by BAH on 14-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 
XUA
		..TX(Z,A,<B>)..TX(ZicT 
YPUM
		..TX(ZA,A,<B>).TX(ZicTP 
XPUE
		..TX(ZE,A,<B>).TX(ZicU` 
YUI
		..TX(ZN,A,<B>).TX(ZkR`KW ,
	IFNB <> ,<
	PRINTX  (Fro@m GLXVER)
	> ;END IFNB 
	kR`Mt @$
	PRINTX `GLXVER	GLXUTL Edit(2) by DPM on 4- Dec-85
	PRINTX	 @   	GLXUTL	Actual Edit(A)
	kRdYP mKc@ JN3BYTE (3)A	f0WHO (9)AVER (6)AMIN (18)AEDTo&  
#R<^L<-<<A>Z<^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 
.TTC==.q"eJ  P q*-` +

q+= +
q6~i4 C q? 
ePV-
	TXC A,<B>
	TXC A,q@ 	^PMwIFB <C>,<	^pA==:B> IFNB <C>,<A=:B>B <CqBp +qN5P +up ;P[c
	IFNB <;pB>,<..STR1 (..TQZ<,,<B>,A,..STR4)<0>
	IFB  <B>,<SETZM A><B>,<SEuhP 	;z Z@uf
	.XCREF	Z`.$RESET, .$BUILD
	.$RESET
	$TYPE[  (.CMACT)
	$HELP[@ (<>)
	$NEXT (A[`)
IFIDN <B> <>,\< IRP C,<C>
		\ 	.$BUILD>
IFDIF \@<B> <>,<
	$HELP\` (B)
	IRP C,<C>
	.$BUILD><	0

ff5
.WTOX.(.OM

f8ACK,<A>,<B>,<C

fX>,<D>,<$WTFLG(WT.SJI),E>)LG(WT	J7 Xp.XCREF	.%RxTN,	.$RTN
			DEFINE .$RTN <A>
			.%RTN==1A>
		D[
	IFDIF<<,<.XCREF	.%
DEFNE[.$HLPM<POINT
			.%HLPM==-1>
	fI9XCREF	.%L
			DEF.$LST <A+1>
			.%LST==11>
=Z MP\u
	  IFG MpA-INT.LV,<PRINTX N?Level A interruN0pts not supportedNP>
	Xo.BGINT.(\A)B  .BGINT.(\A	X5 
			DINE .$BREA <A>
			.%BREA==1>	- P0]
	  IFDEFPP ..BSIZ,<PRINTX ?PpMissing $EOB afteQr a $BUILD>
	  .Q0.BSIZ==0			
	  .QP.BLOC==.			
	  RQpEPEAT A,<			
		RBLD0.(\..BSIZ,0)	R0
		..BSIZ==..BSIZ+1>	
	==..BSI		}[0 >@s|
	.XCREF	>`.$RESET, .$BUILD
	.$RESET
	$TYPE?  (.CMCMA)
	$NEXT?@ (A)
	IRP B,<B>
	.$BUILD,<	I@ :sX
	.XCREF	: .$RESET, .$BUILD
	.$RESET
	$TYPE:` (.CMCFM)
	IRP ;A,<A>
	.$BUILD,<A>
	.$BUILD	$^ G@tN
	.XCREF	G`.$RESET, .$BUILD
	.$RESET
	$TYPEH  (.CMTXT)
	$HELPH@ (<>)
	$NEXT (AH`)
IFIDN <B> <>,I< IRP C,<C>
		I 	.$BUILD>
IFDIF I@<B> <>,<
	$HELPI` (B)
	IRP C,<C>
	.$BUILD><	I  J t\
	.XCREF	J@.$RESET, .$BUILD
	.$RESET
	$TYPEK (.CMTAD)
	$PDATK A (CM%IDA)
	$NEXK@T (A)
	IRP B,<B>
	.$BUILD,<	,,U OP\
	  $RET	Op			;WILL INVOKE RIGHT ROUTINE
		,h: 
	IFDIF<<,<.XCREF	.%
DEFNE[.$DEFM<POINT
y			.%DEFM==1>
	IFIDN <A> <>,<
IXF1 <
PRINTXg%Nult in $DEFAULT macro>>DE	.` Ft8
	.XCREF	F .$RESET, .$BUILD
	.$RESET
	$TYPEF` (.CMDEV)
	$NEXTG (A)
	IRP B,<B>
	.$BUILD,<	Lz: &@rH
	.XCREF	&`.$RESET, .$BUILD
	.$RESET
	$TYPE'  (.CMNUX)
	$PDAT'@A (B)
	$HELP (<'`>)
	$NEXT (A)
(IFIDN <C> <>,< I( RP D,<D>
			.$(@BUILD>
IFDIF <C(`> <>,<
	$HELP ()C)
	IRP D,<D>
	.$BUILD><D>
	.XCREF	;`.$RESET, .$BUILD
	.$RESET
	$TYPE<  (.CMDIR)
	$NEXT<@ (A)
	IRP B,<B>
	.$BUILD,<	|  W0]W
	  IFNDEWPF ..BSIZ,<PRINTX Wp?$EOB without preXvious $BUILD>
	 X0 IFN <.-..BLOC>,<XPPRINTX ?Address cXphange between $BUYILD and $EOB>
	 Y0 LSTOF.			
	  ..YPT==0
	  REPEAT .Yp.BSIZ,<
	    BLDZ0.(\..T,1)		
	  Z0  ..T==..T+1 >
	ZP  PURGE ..BSIZ,..ZpT,..BLOC	
	  LSTON.
		
	XoLST	+yE.%E
			DINE .$ERTN <A>
			.%ERTN==1>	, 
			DEFINE .$ERTN <1B08+A+1>
			.%ERTN==1>
			.%ERTN	- xp.XCREF	.%ERTN,	.$ERTN
			D8EFINE .$ERTN <[MOXVEI S2,[ASCIZ\A\x]
				      $RETF]>
			.%ERTN==1>
			.%ERTN==1	IF2,<IFN <	\XA>-.,<PRINTX ? I	\xLLEGAL $FALL A>>EGAL $FALL A>>	H6 a(^
	$CALL	.aHSTOP
	LSTOF.
	JahUMP	[XWD 0,[ITEXTb (<A>)]
		 EXP b(%%.MOD]
	LSTON. .MOD]
	LSTON. 	L[ 7 sL
	.XCREF	7@.$RESET, .$BUILD
	.$RESET
	$TYPE8 (.CMFLD)
	$NEXT8  (A)
	$HELP (<>8@)
IFIDN <B> <>,8`< IRP C,<C>
		9	.$BUILD>
IFDIF 9 <B> <>,<
	$HELP9@ (B)
	IRP C,<C>
	.$BUILD><	MI  4@s6
	.XCREF	4`.$RESET, .$BUILD
	.$RESET
	$TYPE5  (.CMFIL)
	$HELP5@ (<>)
	$NEXT (A5`)
IFIDN <B> <>,6< IRP C,<C>
		6 	.$BUILD>
IFDIF 6@<B> <>,<
	$HELP6` (B)
	IRP C,<C>
	.$BUILD><	dy 
			DINE .$FLGS <A>
			.%FLGS==1>	ex: C t,
	.XCREF	C@.$RESET, .$BUILD
	.$RESET
	$TYPED (.CMFLT)
	$HELPD  (<>)
	$NEXT (AD@)
IFIDN <B> <>,D`< IRP C,<C>
		E	.$BUILD>
IFDIF E <B> <>,<
	$HELPE@ (B)
	IRP C,<C>
	.$BUILD><	$ O`u

	.XCREF	P.$RESET, .$BUILD
	.$RESET
	$TYPEP@ (.CMTAD)
	$PDATP`A (<CM%IDA!CM%ITMQ!CM%FUT>)
	$NEXTQ  (A)
	IRP B,<B>
	.$BUILD,<	$ `8^TX
	  INTER`hN A
	  $DATA(A,<B>)
	ATA(A}&]1|	"
	IFDIF<<,<.XCREF	.%
DEFNE[.$HLPM<POINT
			.%HLPM==1>
	&5 /s

	.XCREF	/ .$RESET, .$BUILD
	.$RESET
	$TYPE/` (.CMIFI)
	$HELP0 (<>)
	$NEXT (A0 )
IFIDN <B> <>,0@< IRP C,<C>
		0`	.$BUILD>
IFDIF 1<B> <>,<
	$HELP1  (B)
	IRP C,<C>
	.$BUILD><	&u A`t
	.XCREF	B.$RESET, .$BUILD
	.$RESET
	$NEXTB@ (A)
	$TYPE (.CB`MINI)
	IRP B,<B>
	.$BUILD,<	./ !`r
	.XCREF	".$RESET, .$BUILD
	.$RESET
	$TYPE"@ (.CMKEY)
	$PDAT"`A (B)
	$NEXT (#A)
	IRP C,<C>
	.$BUILD,<C>

	.XCREF	  .$RESET, .$BUILD
	.$RESET
	$TYPE ` (.CMKEY)
	$PDAT!A (A)
	$NEXT (0! )
	IRP B,<B>
	.$BUILD,<B>
	/>Ky

hxfI.WTOX.(.OM

iWTR,,,,<A>,<$WTFLG(WT.KIL),B>)	2|p

hfC.WTOX.(.OM

h8LOG,<A>,<B>,<C>,,<D>)B>,<C	:/
			DEF.$NXT <A>
			.%NXT==1A>
		:|KV W@uP
	.XCREF	W`.$RESET, .$BUILD
	.$RESET
	$TYPEX  (.CMNOD)
	$HELPX@ (<>)
	$NEXT (AX`)
IFIDN <B> <>,Y< IRP C,<C>
		Y 	.$BUILD>
IFDIF Y@<B> <>,<
	$HELPY` (B)
;	$FLAGS (ZCM%PO)
	IRP C,<C>
	.$BUILD><	:}r )@rX
	.XCREF	)`.$RESET, .$BUILD
	.$RESET
	$TYPE*  (.CMNOI)
	$PDAT*@A (<POINT 7,[ASCI*`Z\B\]>)
	$NEXT +(A)
	IRP C,<C>
	.$BUILD,<C	;-XR #@r0
	.XCREF	#`.$RESET, .$BUILD
	.$RESET
	$TYPE$  (.CMNUM)
	$PDAT$@A (B)
	$HELP (<$`>)
	$NEXT (A)
%IFIDN <C> <>,< I% RP D,<D>
			.$%@BUILD>
IFDIF <C%`> <>,<
	$HELP (&C)
	IRP D,<D>
	.$BUILD><D>
	.XCREF	2.$RESET, .$BUILD
	.$RESET
	$TYPE2@ (.CMOFI)
	$NEXT2` (A)
	$HELP (<>3)
IFIDN <B> <>,3 < IRP C,<C>
		3@	.$BUILD>
IFDIF 3`<B> <>,<
	$HELP4 (B)
	IRP C,<C>
	.$BUILD><	B$ 
			DINE .$DATA <A>
			.%DATA==1>	B$YP 
			DINE<.$DEFM <POI
			.%DEFM==1>
			.%	CYT Xp!.XCREF	.%DxEFR,	.$DEFR
			DEFINE .$DEFR <A>
			.%DEFR==1>	G-} Q`u 
	.XCREF	R.$RESET, .$BUILD
	.$RESET
	$TYPER@ (.CMQST)
	$HELPR` (<>)
	$NEXT (AS)
IFIDN <B> <>,S < IRP C,<C>
		S@	.$BUILD>
IFDIF S`<B> <>,<
	$HELPT (B)
	IRP C,<C>
	.$BUILD><	J.I  _]}
	  $CALL_8	.RETE			
		LSTO_XF.
	  JUMP	ERA$
		LSTON.ERA$	Ni  Ze
	.NVR==00			
	.ACM==0			

	IRP A,<		
	p	..TSAC(.ACB,A)		
		IFN .ACB,<.A0CM==.ACM!1B<A>>	P
		IFE .ACB,<			p
		IFE .NVR,<			
		    PUSHJ P,[0			
			>
		  ..PPUSH(A,\<.NVR+1>p)>>	

    IFE . NVR,<	
	IFN .ACM 0,<	
	    IFE <.A PCM-17B<T4>>,<.ACM p==0
				$CALL .S!AVET>
	    IFE <!0.ACM-377B<.A16>>,!P<.ACM==0
				$CA!pLL .SAVE8>
	    "IFE <.ACM-17B<P4>"0>,<.ACM==0
				$"PCALL .SAVE4>
	  "p  IFE <.ACM-7B<P3#>>,<.ACM==0
				#0$CALL .SAVE3>
	 #P   IFE <.ACM-3B<P#p2>>,<.ACM==0
			$	$CALL .SAVE2>
	$0    IFE <.ACM-1B<$PP1>>,<.ACM==0
		$p		$CALL .SAVE1>
%	    IFE <.ACM-1B%0<.A13>>,<.ACM==0
				$CALL .SV13>%p
	    IFE <.ACM-&1B<.A14>>,<.ACM==&00
				$CALL .SV1&P4>
	    IFE <.AC&pM-1B<.A15>>,<.ACM'==0
				$CALL .S'0V15>
	    IFE <.'PACM-1B<.A16>>,<.A'pCM==0
				$CALL (.SV16>
	    >>
(0
	IFN .ACM,<	
	(P    IFE .NVR,<			(p
		PUSHJ P,[		
)		>

	    .ACB=)0=0			
	REPEAT ^D)P16,<			
	    IFN)p <.ACM&1B<.ACB>>,*<	
		..PUSH(\.AC*0B,\<.NVR+1>)>
		*P.ACB==.ACB+1>>		

	IFN .NVR,<	
+		PUSHJ	P,@-.NVR(+0P)	
		 TRNA			
+P		AOS	-1-.NVR(P)	+p
	    REPEAT .NV,R,<..POP(\.NVR)>	,0
		ADJSP	P,-1		
		POPJ	P,]>		
		POPJ	P,]>		
	N;CREF	.%S
	IFD	<A><>,<DEFINE
	.%SBCM==1
>
	.%SBCM==1
	N.@ Rp]'
	  IFNDESF ..BSIZ,<PRINTX S0?$SET without preSPvious $BUILD>
	 Sp IFNB <B>,<..STRT0 (..SET,<C>,B,T0A)>
	IFB  <BTP>,<..STR0 (..SET,Tp<C>,FWMASK,A)>
	,FWMASK,A)>
	.XCREF	b`a,	b
	a==.
	cXWD b-1,b-1
	Dc EFINE $ETAB <.XCRc@EF	a,	b
		b==.-a>b
		b==	O%| m^x
IF1,<PRIm(NTX % Use STOPCD mHmacro for stopcodmhe A instead of $nSTOP>
S..A::!	$n(CALL .STOP
		LSTnHOF.
		JUMP [XWD nh'A',[ITEXT (<B>o)]
			EXP %%.MOD]
		LSTON.	MOD	O,(v @t

	.XCREF	@ .$RESET, .$BUILD
	.$RESET
	$NEXT@`	(A)
	$TYPE	(.CAMINI)
	$SBCM	(BA )
	IRP C,<C>
	.$BUILD,<C>
	O= - rt
	.XCREF	-@.$RESET, .$BUILD
	.$RESET
	$TYPE. (.CMSWI)
	$PDAT. A (A)
	$NEXT (0.@)
	IRP B,<B>
	.$BUILD,<B>
	O= +@rf
	.XCREF	+`.$RESET, .$BUILD
	.$RESET
	$TYPE,  (.CMSWI)
	$PDAT,@A (B)
	$NEXT (,`A)
	IRP C,<C>
	.$BUILD,<C>

@ M`tz
	.XCREF	N.$RESET, .$BUILD
	.$RESET
	$TYPEN@ (.CMTAD)
	$PDATN`A (<CM%IDA!CM%ITMO>)
	$NEXT (A)
O 	IRP B,<B>
	.$BUILD,<B>
	.$	R/oH
	$CALL	Toh%TEXT
	LSTOF.	XCpREF
	JUMP	[XWD 2p(,0
		 EVL (A)
pH		 ITEXT(<B>)]	
	LSTON.B>)]	
	.XCREF	L .$RESET, .$BUILD
	.$RESET
	$TYPEL` (.CMTAD)
	$PDATMA (CM%ITM)
	$NEXM T (A)
	IRP B,<B>
	.$BUILD,<	R}97 ] uv
	.XCREF	]@.$RESET, .$BUILD
	.$RESET
	$TYPE^ (.CMTOK)
	$PDAT^ A (<POINT 7,[ASCI^@Z\B\]>)
	$NEXT ^`(A)
	IRP C,<C>
	.$BUILD,<C	S

H`


  ..TX

XA(.TQA,C,D,E,

hB)	
      IFN .

(.TXEF,<			
	..TE

RR<$TQ(A,B,C,D,E)>>

C,	S@I9

8as
	LSTOF.

X
	X(UQU,Unknown q

xualifier)
	X(IQU

,Invalid qualifie

8r)
	X(IJA,Invali

Xd justification a

xrgument)
	X(IWA,

Invalid width arg

8ument)
	X(PEA,Pr

Xemature end of ar

xgument)
	X(JNA,J

ustification is n

8ot allowed)
	X(A

XNA,Arguments are

xnot allowed)
	X(

ADS,Address must

8be specified)
	LSTON.
ied)
	L	SN	.REF	.%T
			DEE .$TYP <A>
			.%TYPE==1>
	W= T@u8
	.XCREF	T`.$RESET, .$BUILD
	.$RESET
	$TYPEU  (.CMUQS)
	$HELPU@ (<>)
	$NEXT (AU`)
	$PDATA (B)
VIFIDN <C> <>,< IV RP D,<D>
			.$V@BUILD>
IFDIF <CV`> <>,<
	$HELP (WC)
	IRP D,<D>
	.$BUILD><D>
	.XCREF	= .$RESET, .$BUILD
	.$RESET
	$TYPE=` (.CMUSR)
	$NEXT> (A)
	IRP B,<B>
	.$BUILD,<	^+@ bh^(
IFE %%.OcTS,<DEFINE $WARN c((MSG) <
		$TEXT cH(T%TTY,<% ^W6/[%%ch.MOD]/ MSG>)>>
IdFN %%.OTS,<DEFINEd( $WARN (MSG) <
	dH	$TEXT (T%TTY,<% dh^W6/IIB+IB.PRG/ ^eW/[%%.MOD]/ MSG>)>>
	$WARN <A>	_$r

Zec
		IFB	<

Z8A>,<.WFACD==0

ZX	IFN <0-2>,<.$WAC

ZxD==0>>
		IFNB	<

[A>,<.WFACD==-1

[8		IFN <0-2>,<.$WA

[XCD==.$WACD!<A>>

[x
			IFE <0-2>,<DE

\FINE .$WACD,<<WO.

\8ACD>B8+[ITEXT (<A>)]>>
		>
<	_$u

Oe
		IFB	<

O8A>,<.WFACK==0

OX	IFN <0-2>,<.$WAC

OxK==0>>
		IFNB	<

PA>,<.WFACK==-1

P8		IFN <0-2>,<.$WA

PXCK==.$WACK!<A>>

Px
			IFE <0-2>,<DE

QFINE .$WACK,<<WO.

Q8ACK>B8+[ITEXT (<A>)]>>
		>
<	_$+

@xf!
	IFE	<.W

AFMTY>,<PRINTX ?No

A8 message type in

AX$WTBLD>
DEFINE .

AxEAWTO(SUFFIX,ARGC

BOD),<
IFN .WF'SU

B8FFIX',<
	IFE	<AR

BXGCOD-0>,<<WO.'SUF

BxFIX'>B8+ .$W'SUFF

CIX'>
	IFE	<ARGCO

C8D-1>,<<WO.'SUFFIX

c'>B8+ [EXP .$W'SU

c8FFIX']>
	IFE	<AR

cXGCOD-2>,<.$W'SUFF

cxIX'>
>
>
	ALLW

dTO				
	EXP	0			
		
	EXP	0				_$k

Qxe!
		IFB	<

RA>,<.WFFLG==0

R8	IFN <1-2>,<.$WFL

RXG==0>>
		IFNB	<

RxA>,<.WFFLG==-1

S		IFN <1-2>,<.$WF

S8LG==.$WFLG!<A>>

SX
			IFE <1-2>,<DE

SxFINE .$WFLG,<<WO.

TFLG>B8+[ITEXT (<A>)]>>
		>
<	_%(W

W8eM
		IFB	<

WXA>,<.WFJBN==0

Wx	IFN <0-2>,<.$WJB

XN==0>>
		IFNB	<

X8A>,<.WFJBN==-1

XX		IFN <0-2>,<.$WJ

XxBN==.$WJBN!<A>>

Y
			IFE <0-2>,<DE

Y8FINE .$WJBN,<<WO.

YXJBN>B8+[ITEXT (<A>)]>>
		>
<	_%YV

_Xf
		IFB	<

_xA>,<.WFMFL==0

`	IFN <1-2>,<.$WMF

`8L==0>>
		IFNB	<

`XA>,<.WFMFL==-1

`x		IFN <1-2>,<.$WM

aFL==.$WMFL!<A>>

a8
			IFE <1-2>,<DE

aXFINE .$WMFL,<<WO.

axMFL>B8+[ITEXT (<A>)]>>
		>
<	_%]

Dd3
		IFB	<

D8A>,<.WFMTY==0

DX	IFN <0-2>,<.$WMT

DxY==0>>
		IFNB	<

EA>,<.WFMTY==-1

E8		IFN <0-2>,<.$WM

EXTY==.$WMTY!<A>>

Ex
			IFE <0-2>,<DE

FFINE .$WMTY,<<WO.

F8MTY>B8+[ITEXT (<A>)]>>
		>
<	_%kr

TXe7
		IFB	<

TxA>,<.WFNOD==0

U	IFN <0-2>,<.$WNO

U8D==0>>
		IFNB	<

UXA>,<.WFNOD==-1

Ux		IFN <0-2>,<.$WN

VOD==.$WNOD!<A>>

V8
			IFE <0-2>,<DE

VXFINE .$WNOD,<<WO.

VxNOD>B8+[ITEXT (<A>)]>>
		>
<	_%p

dXf'.WTOX.(.OM

dxWTO,<A>,<B>,<C>,,<D>)B>,<C	_%xU

L8du
		IFB	<

LXA>,<.WFOBJ==0

Lx	IFN <0-2>,<.$WOB

MJ==0>>
		IFNB	<

M8A>,<.WFOBJ==-1

MX		IFN <0-2>,<.$WO

MxBJ==.$WOBJ!<A>>

N
			IFE <0-2>,<DE

N8FINE .$WOBJ,<<WO.

NXOBJ>B8+[ITEXT (<A>)]>>
		>
<	_%xr

\xey
		IFB	<

]A>,<.WFOCD==0

]8	IFN <0-2>,<.$WOC

]XD==0>>
		IFNB	<

]xA>,<.WFOCD==-1

^		IFN <0-2>,<.$WO

^8CD==.$WOCD!<A>>

^X
			IFE <0-2>,<DE

^xFINE .$WOCD,<<WO.

_OCD>B8+[ITEXT (<A>)]>>
		>
<	_%z@

gf=.WTOX.(.OM

g8WTO,<A>,<B>,<C

gX>,,<$WTFLG(WT.JOB),D>)LG(WT.JOB	_%|@

e8f-
.WTOX.(.OM

eXWTR,<A>,<B>,<C>,<D>,<E>)<C	_&,z

Cxf
	DEFINE

CX.EAWTO(SUFFIX),<$

b8WT'SUFFIX'	<>>
	ALLWTO				

		_&N

IXd_
		IFB	<

IxA>,<.WFTXT==0

J	IFN <2-2>,<.$WTX

J8T==0>>
		IFNB	<

JXA>,<.WFTXT==-1

Jx		IFN <2-2>,<.$WT

KXT==.$WTXT!<A>>

K8
			IFE <2-2>,<DE

KXFINE .$WTXT,<<WO.

KxTXT>B8+[ITEXT (<A>)]>>
		>
<	_&N8

FxdI
		IFB	<

GA>,<.WFTYP==0

G8	IFN <2-2>,<.$WTY

GXP==0>>
		IFNB	<

GxA>,<.WFTYP==-1

H		IFN <2-2>,<.$WT

H8YP==.$WTYP!<A>>

HX
			IFE <2-2>,<DE

HxFINE .$WTYP,<<WO.

ITYP>B8+[ITEXT (<A>)]>>
		>
<
t{P 
u[rQ ]>t2
u}P 
,MP )V=P .
P .JP .bP /P B&@P cGP )0 p30:"P#Z6  q|			

	.X@CREF	a,	b,	c,	`d

	.XCREF	.%TYPE,	.%FLGS,	.%DA TA,	.%HLPM,	.%DEF@M,	.%LST
	.XCREF`	.$TYP,	.$FLGS,	.$DATA,	.$HLPM,	.$ DEFM,	.$LST

	.@XCREF	.%BREA,	.%N`XT,	.%ERTN,	.%RTN,	.%DEFR,	.%SBCM
	.XCREF	.$BREA,	@.$NXT,	.$ERTN,	.$`RTN,	.$DEFR,	.$SBCM

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

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

	 IFG <.%HLPM>,<d=@=d!CM%HPP!CM%SDH`> 
						
	IFL <.%HLPM>,<d==d! CM%HPP>	
						

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

c:!	<INSVL.( b,PB.PDB)>!<INSVL@.(a,PB.FDB)> ;PD`B, FDB
	EXP	d			
	EXP	.$DATA			 
IFN <.%HLPM!.%D@EFM!.%BREA>,<
	E`XP	.$HLPM>			
IFN <.%DEFM!.%BREA> ,<
	EXP	.$DEFM>	@		
IFN <.%BREA>,`<
	EXP	.$BREA>			

	a==.-c			 

IFN <.%NXT!.%@DEFR!.%RTN!.%ERTN`!.%SBCM>,<
	EXP	.$NXT >			
IFN < .%DEFR!.%RTN!.%ER@TN!.%SBCM>,<
	EX`P	.$RTN >			
IFN <.%DEFR!.%ERTN!. %SBCM>,<
	EXP	.$@ERTN>			
IFN <.%`DEFR!.%SBCM>,<
	EXP	.$DEFR>			
I FN <.%SBCM>,<
	E@XP	.$SBCM>			

`	b==.-c			

IF2,<
	PURGE	.%TY PE,	.%FLGS,	.%DAT@A,	.%HLPM,	.%DEFM`,	.%LST
	PURGE	.$TYP,	.$FLGS,	.$D ATA,	.$HLPM,	.$DE@FM,	.$LST

	PUR`GE	.%BREA,	.%NXT,	.%ERTN,	.%RTN,	. %DEFR,	.%SBCM
	P@URGE	.$BREA,	.$NX`T,	.$ERTN,	.$RTN,	.$DEFR,	.$SBCM
 
	PURGE	a,	b,	@c,	d
> 
	LIST,	d
> 
	LIST$YV8p+POINTr7,[ASCIZ\0\]NT 7,[A$YY p70"P8.- p101P5Iy p'0mPf= p-0+1Pw
	.XCREF
	SALL
	XLIST
	@DEFINE .$TYP <0>
	.%TYPE==0
	DEF	INE .$FLGS <0>
		 .%FLGS==0
	DEFIN	@E .$DATA <0>
	.%	`DATA==0
	DEFINE 
.$HLPM <>
	.%HLP
 M==0
	DEFINE .$D
@EFM <0>
	.%DEFM=
`=0
	DEFINE .$LST <0>
	.%LST==0
 	DEFINE .$BREA <0@>
	.%BREA==0
	D`EFINE .$NXT <0>

	.%NXT==0
	DEFIN

 E .$ERTN <0>
	.%

@ERTN==0
	DEFINE

`.$RTN <0>
	.%RTN
	DEFINE .$DE
	.%DEFR==
	DEFINE	.$SBCM
	.%SBCM==0
	.CREF
CM==0p50lP2' |T0T 1,O)0P $YVP $YYP .-P 5IyP f=P w
CPTI
	   ..AS
Cp1==-<B>	
	IFDEF
D .PSECT,<
	.IFN 
D0..AS1,ABSOLUTE,<
DP
	     C A,[-..
DpAS1]>	
	.IF ..AS
E1,ABSOLUTE,<
		.
E0.AS2==0	
	  IFE 
EP<..AS1&^O777777B1
Ep7>,<
		..AS2==1	
F
	    DI A,..A
F0S1>
	  IFE ..AS2
FP,<
	    ..OP(A,
FpB,C)>	
	PURGE 
G..AS1,..AS2>>
	I
G0FNDEF .PSECT,<
	
GP	..AS2==0	
	  IF
GpE <..AS1&^O777777
HB17>,<
		..AS2==
H01	
	    DI A,.
HP.AS1>
	  IFE ..A
HpS2,<		
	    ..OP
I(A,B,C)>
	PURGE ..AS1,..AS2>:h VG
	Alu: 
6PT
	  ..CX1
6p==C
	IFDEF .PSE
7CT,<
 	.IFN ..CX
701,ABSOLUTE,<
	  
7P    CAMA B,[C]
7p>
	.IF ..CX1,ABS
8OLUTE,<	
		..CX2
80==0	
	  IFE <..C
8PX1&^O777777B17>,<
8p
		..CX2==1	
	 
9   CAIA B,C>

90	  IFE ..CX2,<		
=P
	    CAMA B,[
=pC]>
	PURGE ..CX1
>,..CX2>>
	IFNDEF
>0 .PSECT,<
		..CX
>P2==0	
	  IFE <..
>pCX1&^O777777B17>,
?<
		..CX2==1	
	
?0    CAIA B,C>
?P
	  IFE ..CX2,<		
?p
	    CAMA B,[
@C]>
	PURGE ..CX1,..CX2>GE ..CX:&@ 3P[)
	..TSIZ 3p(..PST,C)
	.CAS4E ..PST,<<
		MOV40EM A,B>,<
		HR4PRM A,B>,<
		HR4pLM A,B>,<
		DP5B A,[POINTR (B,C)]>>INTR (B,:<;Y 	0XO
   DEFIN	PE ..CNS2 (NEW,OLD	p)<
	  OLD>			
	..CNS ()>			
	:L;Y XG
   DEFIN0E ..CNS (%%%)<
	P..CNS2 <%%%>,>
p
   DEFINE ..CNS2 (NEW,OLD)<
	DEF0INE ..CNS (%%%)<
	  ..CNS2 <%%%>,p<OLD'NEW>>>
   OLD'NEW>>>
   :dH@ 00[
	..TSIZ 0P(..PST,C)
	.CAS0pE ..PST,<<
		MOV1E A,B>,<
		HRR10Z A,B>,<
		HLR1PZ A,B>,<
		LDB1p A,[POINTR (B,C)]>>INTR (B,:}i1 
n0Vu
	A==<<<
nP-<B>>&<B>>&<1B<^L<B>>>>>&<1B<:~ 
IPTy
	  ..OP1
Ip==B
	IFDEF .PSE
JCT,<
 	.IFN ..OP
J01,ABSOLUTE,<
	  
JP    C A,[..OP1]
Jp>
	.IF ..OP1,ABS
KOLUTE,<	
		..OP2
K0==0	
	  IFE <..O
KPP1&^O777777B17>,<
Kp
		..OP2==1	
	 
L   CI A,..OP1>
L0
	  IFE ..OP2,<		
LP
	    C A,[..O
LpP1]>
	PURGE ..OP
M1,..OP2>>
	IFNDE
M0F .PSECT,<
		..O
MPP2==0	
	  IFE <.
Mp.OP1&^O777777B17>
N,<
		..OP2==1	

N0	    CI A,..OP1
NP>
	  IFE ..OP2,<
Np		
	    C A,[.
O.OP1]>
	PURGE ..OP1,..OP2>GE ..;m

aO
	..PST==

8C-FWMASK
	.IF0

X..PST,<
		POINT

x0,B,35>,<
		POINTR (B,C)>POI;| .Zu
		POP P,.0.NVA
		PURGE .N.PVA
		.NVR==.NVR-1
		.NVR==.NVR;\t -Zm
		PUSH P-0,A
		DEFINE .NV-PB<A>
		.NVR==.NVR+1
		.NVR==.;] U0]7
	  IFGE UP<<<B>&777777>-..UpBSIZ>,<
		PRINTXV ?WORD offset greV0ater than $BUILD VPsize parameter>
Vp	  SET0. (\<B>,C,<A>)
	B>,;LH 
tpW7
	IFNDEF 
uC,<PRINTX C IS 
u0NOT DEFINED
	  
uPA (<B>,D,FWMASK
up)>	
	IFDEF C,<
v
	IFNDEF %C,<
	
v0  A (<B>,D,C)
vP>	
	IFDEF %C,<
vp
	  %C (A,<B>,D,C)>>A,<B>,;LH 
w0Wu

	..NS==0
wP			
	IRP C,<..N
wpS=..NS+1>	
	IFE 
x..NS,<PRINTX ?EMP
x0TY STRUCTURE LIST
xP, A>
	IFE ..NS-
xp1,<		
	  ..STR0 
y(A,<B>,<C>,D)
y0>
	IFG ..NS-1,<	
yP	
	..ICNS			
	.
yp.CNS (<E (A,<B
z>,,>) 
	IRP C,<
z0		
	  IFNDEF C,
zP<PRINTX C NOT DE
zpFINED>
	  IFDEF 
{C,<
	  IFNDEF %
{0C,<
	  ..CNS (<
{P,C,D>)>	
	  IF
{pDEF %C,<
	  %C
| (..STR2,,D,C)>
|0 
	  ..CNS (<)>)
|P		
	  ..GCNS		

|p	  ..ICNS		
	  .
}.CNS (<E (A,<B
}0>>) 
	  IFNDEF %
}PC,<
	  ..CNS (<
}p,C,D>)>	
	  IF
~DEF %C,<
	  %C
~0 (..STR2,,D,C)>
~P>> 
	..CNS (<,,)>)		
	..GCNS>);LI 
Wy
	..CNS (<,C,B>).CNS (;LI 
PX


	IFDIF <
pD><F>,<
	  IFNB <D>,<
	    A0 (<B>,D,..MSK)	P
	    IFNB <F>,p<PRINTX C AND E ARE IN DIFFERENT0 WORDS>>
	  ..MSPK==0>		
	IFNB <pF>,<
	  ..MSK=..MSK!<E>>MSK=..;LJ 0X


	IFDIF <PD><F>,<	
	  IFpNB <D>,<
	    A (<B>,D,..MSK)0>	
	  ..MSK==0>	P	
	IFNB <F>,<
p	  ..MSK=..MSK!<E>>MSK=..MSK!<;LJ 0X5


	IFDIF <PD><F>,<	
	  IFpNB <D>,<
	    IFNB <F>,<		
		0A1 (B,D,..MSK)>P 
	    IFB <F>,p<		
		A2 (B,D,..MSK)>> 
	  ..0MSK==0>		
	IFNB P<F>,<
	  ..MSK=..MSK!<E>>MSK=;$\Y

b
  IF1,<

X
    PRINTX ? Err

xor in "A"
    D

 HEFINE X(NAM,ERR)

!<IFN ..X'NAM&..TX

!8EF,<PRINTX ? ERR>

!X>
    $TX$ERR>

    $TX$ERR>
;$^

#8bC

    ..

#XTXF==0				
    .

#x.TXB==0

$..TXP==0

$8 ..TXEG==<..TXEF=

$X=0>			
    IRPC

$xA,<				
	..TXC=

%=ASCII\A\_-35

%8
	IFN ..TXB,<IFN

%X..TXB-..TXC,..CNS

%x(<A>)
		   IFE

&..TXB-..TXC,..TXB

&8==0>
	IFE ..TXB,

&X<..TXQ(<A>,\..TX

&xF)>>	
    ..TXC1

'				
    IFN ..T

'8XB,<IFN <..TXB-"^

'X">,<..TXER(PEA)>>

'x
    ..TXEF==..T

(XEF!..TXEG

(8 IFN ..TXEF,<..TERR<A>>
,<..TE;&(

(`2..TXA(.TQCH0)..TXA(.TQC;&)

8`;..TXER(IQU)..TXER(IQU;&)

h`6..TXER(IQU)..TXER(IQU;&0

h`...TXA(.TQCHA)..TXA(.TQC;&5

(`"..TXC0(\".CHLFD).TXC0(\".;&5

(`*..TXC0(\".CHVTB).TXC0(\".;&6

h`&..TXC0(\".CHFFD).TXC0(\".;&6

h`..TXC0(\".CHCRT).TXC0(\".;&@ <p[}
	..TSIZ =(..PST,C)	
	.CA=0SE ..PST,<<
		SE=PTZM B>,<	
		HLL=pZS B>,<	
		HRRZ>S B>,<	
	  ..TS>0AC (..ACT,B)	
	>P  .IF0 ..ACT,<
	>p	$CALL .ZERO	
		?LSTOF.
		JUMP [P?0OINTR(B,C)]
		?PLSTON.>,<
		..TX (Z,B,C)>>>TX;&81 
jpVo
	IFNDEF 
k.PSECT,<
	A==0	
k0		
	..TSA1==<Z 
kPB>		
	  IFE ..TS
kpA1&^O777777777760
l,<A==1> 
	>
	I
l0FDEF .PSECT,<
	
lPA==0			
	..TSA1=
lp=<Z B>		
	.IF .
m.TSA1,ABSOLUTE,<	
m0
	  IFE ..TSA1&^
mPO777777777760,<A
mp==1>> 
	PURGE ..TSA1>
	PURGE ..;&:= 
i0VS
	A==3		
iP	
	IFE <B>+1,<
ipA=0>	
	IFE <B>-
j^O777777,<A==1> 
j0
	IFE <B>-^O777777B17,<A==2>7;' 
OPV
   ..TX1
Op==C			
IFDEF .P
PSECT,<
   .IFN .
P0.TX1,ABSOLUTE,<

PP	TDA B,[C]>
 
Q  .IF ..TX1,ABSOL
PpUTE,<		
	..TX2==
Q00		
	IFE <..TX1&
QP^O777777B17>,<
	
Qp  ..TX2==1		
	  
RTRA B,..TX1>
	
R0IFE ..TX2,<		
	I
RPFE <..TX1&^O77777
Rp7>,<
	  ..TX2==1
S		
	  TLA B,(.
S0.TX1)>>
	IFE ..T
SPX2,<		
	  IFE <<
Sp..TX1>B53-^O77777
\7>,< 
	    ..TX3
\0 (A,B)>>	
	IFE
\P ..TX2,<		
	  TD
\pA B,[..TX1]>	

]	PURGE ..TX1,..TX
]02>>
IFNDEF .PSEC
]PT,<
	..TX2==0		
]p
	IFE <..TX1&^O77
^7777B17>,<
	  ..
^0TX2==1		
	  TRA
^P B,..TX1>
	IFE 
^p..TX2,<		
	IFE <
_..TX1&^O777777>,<
_0
	  ..TX2==1		

_P	  TLA B,(..TX1
_p)>>
	IFE ..TX2,<
`		
	  IFE <<..TX
`01>B53-^O777777>,<
`P 
	    ..TX3 (A
`p,B)>>	
	IFE ..T
aX2,<		
	  TDA 
a0B,[..TX1]>	
	PURGE ..TX1,..TX2>;'` 
apV!
	IFIDN <
bA><Z>,<		
	  ..
b0TX2==1
	  ANDI 
bPB,^-..TX1>	
	IFI
bpDN <A><O>,<		
	
c  ..TX2==1
	  OR
c0CMI B,^-..TX1>	
cP
	IFIDN <A><C>,<
cp		
	  ..TX2==1

d	  EQVI B,^-..TX1>QVI B,^-..TX;'

Xa9



	..TXE

	xF==0			

IFNDEF

 A,<..TXER(UQU)>

8		
IFDIF <B><>,

X<IRPC B,<.IFN <

xB>,NUMERIC,..TXER

(IWA)>>
IFNB <C

8>,<IFNDEF .TXTJC

X,<..TXER(IJA)>>

xIFDEF  A,<
  IF

E <A_-^D18>,<IFD

8IF <EFBCD><>

X,<..TXER(ANA)>>

x  IFE <1-<A_-^D1

8>>,<IFDIF <BC

8D><>,<..TXER(JNA)

X>>
  IFE <2-<A_

x-^D18>>,<IFIDN <

EF><>,<..TXER(AD

8S)>>>

      IF

XE ..TXEF,<
	IFID

xN <B><>,<..TXWD=

=<..TXJU==<..TXFC

8==0>>>
	IFDIF <

XB><>,<
	  IFE <^

xD<B>>,<..TXWD==<

..TXJU==<..TXFC==

80>>>
	  IFN <^D<

XB>>,<..TXWD==^D<

xB>
	    IFNB <

C>,<..TXJU==.TXTJ

8C>
	    IFB  <

XC>,<..TXJU==.TXTJ

xL
	      IFE <A

-.TQOCT>,<..TXJU=

8=.TXTJR>

XIFE <A-.TQDEC>,<

x..TXJU==.TXTJR>>


	    IFB  <D>,<

8..TXFC==" ">

X  IFNB <D>,<..TX

xFC=="D">>>

	I

FB  <EF>,<..TXP

8T==0>
	IFNB <E

XF>,<..TXPT==1>

xIFE <..TXWD+..TXP

T>,<
	    EXP FL

8D(A,TXT.FN)>
	I

XFN <..TXWD+..TXPT

x>,<
	    EXP FLD

(A,TXT.FN)+FLD(.

8.TXJU,TXT.JU)+FLD

X(..TXWD,TXT.WD)+F

xLD(..TXFC,TXT.FC)

+TXT.AD
	    PNTR(E,F)>>

T;'h

:c]
    IFE

:8..TXP,<			
	..IC

:XNS			
	..CNS<ASC

:xIZ\>		
	..TXP==1

;>		
    ..CNS<A

;8>			
    ..TXF==

;X0			
    ..TXB=="^"
    ..TXB==;'h

<ci

    IF

<8N ..TXP,<			
	..

<XCNS<\>		
	EXP <F

<xLD(.TQCHT,TXT.FN)

=+[..GCNS]>>
    ..TXP==0>
    ;'	9

"b
    ..TX

"8EF==..TXEF!..XA

"X	
    ..TXF==0

"x		
    ..TXB=="^"
    ..TXB=="^;'

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

)8bQ

    IF

)XN ..TXC-"^",<..TX

)xC0(<A>)>

*IFE ..TXC-"^",<..TXF==1>-"^",<..;'

*Xbq

    IF

*xE ..TXC-"^",<..TX

+C0(<A>)>	
    I

+8FN ..TXF,<			
	.

+X.TXF==0		
	IFDEF

+x .TQCHA,<

,  IFDEF ..TQMA,.

,8.TQMA 
	    IFN

,X <.TQCHA_-^D18>,

,x<..TXF==2>>>

- IFE ..TXF-2,<..T

-8XC1(<A>)	
	..IC

-XNS			
	..CNS<..T

-xXA(.TQCHA,>>

.   ..TXEG==..TXEG!..TXEF==..TXEG;'

.Xc
    ..TX

.xF==3				
    IFG

/E ..TXC-"0",IFLE

/8..TXC-"9",<..TXF=

/X=2>
    IFE ..TX

/xF-2,<..CNS(A)>

0
    IFE ..TXF-3

08,<..CNS<,>		
		 ..TXQ3(A)>
		 ;'

0xc
    ..TX

1F==4				
    IFE

18 ..TXC-"/",<..TXF

1X==5>		
    IFE .

1x.TXC-"[",<..TXF==

25>		
    IFE ..T

28XF-4,<..CNS<A,>>

2X		
    IFE ..TXF

2x-5,<..CNS<,,>		
		 ..TXQ5(A)>
;'

38c-
    ..TX

3XF==4				
    IFE

3x ..TXC-"/",..TXF=

4=5		
    IFE ..T

48XC-"[",..TXF==5

4X
    IFE ..TXF-5

4x,<..CNS<,>

5..TXQ5<A>>

58  IFE ..TXF-4,<..

5XCNS<A,>		
		 ..TXF==5>	
		 ..;'

6c?
    ..TX

68F==6				
    IFE

6X ..TXC-"/",..TXB=

6x="/"		
    IFE .

7.TXC-"[",..TXB=="

78]"
    IFE ..TXB

7X-"]",..CNS<[>

7x    IFE ..TXB,..TXF==5 ..TXB,..T;'

88cM
    ..TX

8XF==0			
    IFE

8x..TXC-"]",..CNS<]

9>	
    ..CNS<)>

98		
    ..GCNS

9X
    ..TXEG==..TXEG!..TXEF==..T;DQ @;DPQ ;EPQ ;E:Q  ;EpQ ;E+PQ ;F	0Q ;F\:Q @
0P 
@P 
PP 
`P d  PYM
	.ACV2 (A)
	.ACV2 (d@ YW
	A=.FPA0C+..NAC		
	IFB <PB>,<..NAC=..NAC+p1>
	IFNB <B>,<..NAC=..NAC+B>.d` 0Ye
	IFG A-P.NPAC,<PRINTX ?TOpO MANY ACS USED>
	IFLE A-4,<
	0 $CALL .SAVEA>	
	IFG A-4,<
	  $CALL .SAVE8>  
 B\Q
	  IFIDNB0 <A><.>,<
	    BPXMOVEI .SAC,B	
Bp	    PUSH P,.SAC
	  >
	  IFDIF <C0A><.>,<
	  .IFACPTM <A>,.BLF4	
	Cp  .BLF1==0		
	  DIFN .BLF4,<		
	 D0   .IF %A,MACRO,DP<	
		.BLF1==1>	
	  >
	  IFNB <EB>,<
		.BLF1==1>E0	
	  IFN .BLF1,<EP		
	    LOAD .SAEpC,A,B
	    PUSFH P,.SAC
	  >
	F0  IFE .BLF1,<		;IFPF WASN'T A STRUCTFpURE REF,
	    IFGN .BLF4,<		
	   G0  .BLF2==<<Z A>&GP17B17>-<P>B17 
	Gp      .IF .BLF2,AHBSOLUTE,< 
	HP  H0   IFE .BLF2,<		
	       .BLF1==1Hp		
	       .BLF3I==<Z A>&777777
I0		PUSH P,.BLF3-..IPNA(P)>>>> 
	  IFIpE .BLF1,<		
		PUJSH P,A>>	
	  ..NA=..NA+1
	  ..
	 AP\
	.BCAL1 A
	.BCAL1 
| 	X`MH
	XLIST
	Y	.ORG 0
	LIST
.ORG 0
	LIST

=Z O\y$CALL	I%INTA$CALL	I%IN9  
g0VE
	..CSN==
gPA
	..CSC==0
	I
gpRP B,<
	IFE ..C
hSN-..CSC,<
	  ST
h0OPI
	  ..CAS1 (
hPB)>
	..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 9p[Y
	..PST==:C-FWMASK
	.IF0 :0..PST,<
		SOS B:P>,<	
		$CALL .SO:pS	
		LSTOF.
		J;UMP [POINTR(B,C)]
		LSTON.>C}

@f
	.OPCD==

bx.OPCD+1
	WO.A==.OPCD
G),<
		| 	ZMX
	XLIST
	Z(	.....X=.
	.ORG
	.ORG 0
	REPEAT	Zh .....X,<EXP 0>
	[	PURGE .....X
	.ORG
	LIST

	.v=H Y
	IRP A,0<
	  .ENSV2 (A)>	  .ENSV2 (A)v=I pY
	.ENSV3 (A)
	.ENSV3 v=I 0Y
	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 
fV7
	..IFT==
f0A		
	IFE ..IFT,
fP<
	B
	..IFT==0
fp>		
	IFN ..IFT,<
	C>N ..IFT,<&4 JP\i
	IRPC AJp,<
	B==0
	IFGEK "A"-"A",<IFLE "K0A"-"Z",<B=1>> 
	IFGE "A"-"0",<KpIFLE "A"-"9",<BL=1>>
	IFE "A"-"L0%",<B=1>
	IFE "LPA"-"$",<B=1>
	LpIFE "A"-".",<B=M1>
	IFE B,<STOPI>>IFE B,<STOP&t<H 6p[A
	..PST==7C-FWMASK
	.IF0 70..PST,<
		AOS B7P>,<	
		$CALL .AO7pS	
		LSTOF.
		J8UMP [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 
'0R;<A>B<^D70-POS(B)>B<^D70N

0PO 
	SYSPRM	C	
	IFG	.PID,<MX.PID==A>	
<MX.PID=O%=H 
	.STKV2 (A)
	.STKV2O%=I 
	IFB.<BN==..STKN+1>
	IFNB <B>,<0..STKN==..STKN+BP>
	..STKQ==..STKpN+1
	.STKV3 (A,\..STKQ)V3 (A,O%=I 0Y
   IFDEFP A,<.IF A,SYMBOpL,<PRINTX STKVAR A ALREADY DEFINE0D>>
	DEFINE A<-P^OB(P)>
	$A==<Z A>>
	$A==<RJP RJP RJ	P RJ	P RJJP RJP RJ
P RJ$HP RJ%P RJ4HP RJ4`P RJ4hP RJ5P 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

:Q S

:Q S

:Q S

:Q S

:Q S

:Q S

:P S

:P 	S

:P S

:P S

:Q

:Q S

:Q S

:Q

:Q S

:Q S

:Q S

:Q S

:Q S

<@P S

<rQ S

<tQ S

H<Q S

I1Q S

J9Q S

\YQ S

i@P S

j6Q S
SQ StQ

S+qQ

S:<Q S=P 
S=WQ SJ6Q S\rQ Si9Q SmP 	Sd  Y)
	.TRV2 (A)
	.TRV2 (Sd@ PY3
	.TRV3 (pA,\..NV)	
	IFB <B>,<..NV=..NV+10>
	IFNB <B>,<..NV=..NV+B>,<..Sd` pYA
   IFDEF A,<.IF A,SYMBO0L,<PRINTX TRVAR PA ALREADY DEFINEDp>>
	DEFINE A<^OB(.FP)>
	$A==<Z A>>
	$A==<S"P S"P S"	P S"	P S"JP S"P S"
P S"$HP S"%P S"4HP S"4`P S"4hP S"5P 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 _%~

iXfi
		$CALL

ixI%WTO		
		LSTOF.

j			
		JRST	g

j8
		$WTRST			
	IF

jXNB <A>,<$WTMTY (

jx<A>)>	
	IFNB <

kB>,<$WTTYP (<B>)

k8>	
	IFNB <C>,<$

kXWTTXT (<C>)>

kxIFNB <D>,<$WTOBJ

l (<D>)>	
	IFNB

l8<E>,<$WTACK (<E

lX>)>	
		IRP F,<

lxF>		
		$WTBLD

m
	g:!
	LSTON.  g:!
	LSTON. kPP >}{woP