Google
 

Trailing-Edge - PDP-10 Archives - BB-BT99V-BB_1990 - 10,7/galaxy/glxlib/glxmac.unv
There are 92 other files named glxmac.unv in the archive. Click here to see a list.
x
,Ue@P C4@ .pZ{
	..NAC==/0		
	IRP A,<
	/0  .ACV1 (A)>		
	.ACV3 (\..NAC)C' 
VpU7..AS(A,B,ADD,SUB)(A,BC, 
88SCLSH A,-^D9LSH A,-^DC2f} 
Sxe1
	.EAWTO(
TMTY,0)
	.EAWTO(T
T8YP,2)
	.EAWTO(TX
TXT,2)
	.EAWTO(OBJ
Tx,0)
	.EAWTO(ACK,
U0)
	.EAWTO(FLG,1
U8)
	.EAWTO(NOD,0)
UX
	.EAWTO(JBN,0)
Ux
	.EAWTO(ACD,0)
V	.EAWTO(OCD,0)
	.EAWTO(MFL,1)
C:' 
{0W[
	TXZ A,<^-<B>>TXZ A,CHuI7Q xCHvN8P'CJ9ip CJ9jp CJ9l}p E
	..NA==0VP			
	IRP B,<
	Vp  .BCAL2 B>		
	WPUSHJ	P,A		
	ADW0JSP	P,-..NA		
   	P,-..NA		
  E2"@ qP_
	  IFE qpB,<..TA==0>
	  rIFN B,<EXP ..TAr0
		    PURGE ..TA>
	PURGE ..TE@tP'E@vyQ ~E@v:=Q |F;z:Q @G@ 
OpT
	    ..CX(,A,B)   ..CGD 
S0U
	    ..CX(A,A,B)  ..CGDP 
Q0U
	    ..CX(E,A,B)  ..CGDp 
QpU
	    ..CX(G,A,B)  ..CGDy  
R0U
	    ..CX(GE,A,B) ..CGE@ 
P0U
	    ..CX(L,A,B)  ..CGEI  
PpU
	    ..CX(LE,A,B) ..CGE` 
RpU
	xlc..CX(N,A,B)  ..CGH 

	xOLST

	X	CRE		
GX	X	GEN		
	X	PRT	
	X	CLS		
	X	A		
	X	USW		
	X	SPL		
	X	SIZ		
	X	MOD		
	X	CH
	X	ACT		
	X	CRY		
	X	DTY		
	X	DTO		
	X	DCC
	X	BSZ		
	X	SZ		
	X	HSZ		
Ix	X	RFM		
	X	RFO	
	X	RSZ		
	X	B		
	X	FFB		
	XX	ACW		
	X	RMS		
	X	MCY		
	X	CT
	X	NSB		
	X	ACD		
	X	MTA		
	X	STS		
	X	IDT
	X	PCA		
	X	IM		
	X	LAD		
L8	X	EXP		

	  LSTON.


	  LSG"\Y h8~Y

	IF1, hX<%%EDT==AEDT>	
hx
	IF2, <IFN <%%EiDT-AEDT>,<
		PRi8INTX ? Edit NumbeiXr Doesn't Match GixLXVER in GLXA
	j	A$WHO(\AEDT)>	j8
		A$NOTE		
	IjXNTERN AEDT		
	IjxNTERN LODLEV		
;k	PURGE %%EDT> ;END IF2

pG(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- 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 hB
	IFNB <>,<
	PRINTX  (Fro(m GLXVER)
	> ;END IFNB 
	G>hMt (:
	PRINTX HGLXVER	GLXCOM Ediht(63) by DPM on 9-Aug-88
	PRINTX	(    	GLXCOM	Actual Edit(A)
	G>lYP G>vC@ 	xPOMLALL
PAGE	xp; (A Continued o	yn next page)
SAL	y0L; (A Continued 	yPfrom previous page) previous pagG?T 	p(OASCIZ \
COPYRIGHT Z \
CGHt;rP GHtkP GHv	P GHv)9P GHv:=P I!k7P I!k<P ImP I$P`SQ*IIY{P`SS*|I  Np\}
	IFNB <OB>,<..STR0 (.DECRO00,,<B>,A)>
	IFOPB  <B>,<SOS A>  <B>,<SOS A>I6= 0X?
	A==<-1PB<C>+1B<C-D>> p
	IF1,<IFDEF %A,<PRINTX ?A ALRE0ADY DEFINED>>
	DPEFINE %A (OP,AC,pY,MSK)<	
	IFDIF <Y><>,<
	OP (<AC0>,B+'Y,MSK)>
	IPFIDN <Y><>,<
	OPp (<AC>,B'Y,MSK)>>AC>,B'Y,MSK)>I'7 
Y0UK..OP(A,B,DIV)..OP(A,BIOH1 vhw@
	IFB <Dw>,<
	XWD	[ASCIZ\w(C\],[XWD B,A]>wH
	IFNB <D>,<
	whXWD	[EXP CM%FW!Dx
		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 
	ERR	EOFof file>
	8ERR	IFP,<Illegal 
	xERR	FDE,<File dat
	ERR	FNle is not on
	ERR	NSD,h device>
	ERR	FCF,<Fileiced>
	ERR	SLE,<A sys exc
	ERR	IFS,lofile spe
	ERRNF,<File not fo
	ERR	PRT,<P violati
	ERR	DNA,<Devailabl
	ERR	NCE,<Noentry i
	ERR	NMAPCF message
 is available>
	
8ERR	FDS,<Files ar
Xe on different st
xructures>
	ERR	FFile already 
	ERR	USEpected syst
	ERR	N
SP,<No such pid>
8
	ERR	BOL,<Beginn
Xing of list reach
xed>
	ERR	EOL,<Eneached
	ERR	RQF,<Receull>
	ERR	SQF,<Sende>
	8ERR	NRE,<No>remem
	ER	TBF,<Table is f
	ERR	EIT,<Ty alread
	ERR	IInvalid table
	ERR	QEFa exceeded 
	ERR	ARG,<Invalidea
	ERR	IFN,<Inva spec
	ERR	IJN,dfjob>numb
	ERR	RAD,<Invalid r
	ERR	NUM,<Invalid
	ERR	IDT,<Invald sp
	ERR	ITvalidftime f
x	ERR	DOR,<Date/ti
	ERR	DTM,<Valuete/t
	ERR	MDD,<My 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
8	ERR	AMB,<Ambiguo
	ERR	NMT,<Datch tok
	ERR	CMA,<Coven>
	xERR	NNC,<Nodeenam
	ERR	INT,<Nodemterm
	ERR	NSN,<Unknown n
	ERR	IInvalidopath 
	8ERR	IUS,<Invalido
	ERR	DGS,<Devyrnote
	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
)8	ERR	TMN,<Noetime
	ERR	TMA,<Tialready
	ERR	DVviceutermina
	ERR	NArgument bloc
	ERR	TLUinalolocati
	XERR	FIO,<File is 
	ERR	FBle being mod
	ERR	WLK,locked dev
	ERR	CSD,<Cersede a
	ERRDD,<Cannottdele
	ERR	SNb-fileudirec
/x	ERR	ESL,<Search 
	8ERR	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>
	ERR	IAC,<Invalid 
	XERR	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` 
(`L
	IFIDN <
HBC><>,<EXP <A>
h>
	IFDIF <BC><
>,<
	 IFE <A+1>
(,<<POINT 7,C>>
H	 IFN <A+1>,<
	
h   IFIDN <C><>,<
	EXP <A,B>>
	  
	( IFDIF <C><>,<EX
	HP <A,B,C>>
	>>A,B,C>>
	>KbN@ 	`Kc  	vO3IRP A,<
	v0	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$trP 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$ty7P M$u
}P M$uP M$uWQ  M$u6Q @M$uH2P M$uI7Q xM$uX|P 
M$u[rP M$u]P 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$vJ6P M$v\{P M&`KW H
	IFNB <>h,<
	PRINTX  (From GLXVER)
	> ;END IFNB 
	M&`Mt 
	PRINTX (GLXVER	GLXFIL EdiHt(122) by DPM on h18-Sep-89
	PRINTX	    	GLXFIL	Actual Edit(A)
	M&dYP )M2  
=Si<<<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 H(
	IFNB <>h,<
	PRINTX  (From GLXVER)
	> ;END IFNB 
	MVpMt  
	PRINTX (GLXVER	GLXFUN EdiHt(2) by BAH on 14h-Nov-86
	PRINTX	    	GLXFUN	Actual Edit(A)
	MVtYP M^luQ O2|  	vpOAIRP A,<
	w	IF2,<IFDEF A,<.	w0IFN A,EXTERN,<IN	wPTERN A>>
	     	wpIFNDEF A,<EXTERN	x A>
	Q SUPPRESPA>>FlYSUPPRO3DYPFFO3EKrPfFO3EZ7PO3FLQ St\Yp Stkp SuZp SulQ Su}:p Sv
1p Sv
Sp Sv8;Q Sv>@p SNn 
XpUG..OP(A,B,IDIV).OP(A,BSNp @S7-N 
WpU?..OP(A,B,IMUL).OP(A,BS:  Kp\e
	IFNB <LB>,<..STR0 (.INCRL00,,<B>,A)>
	IFLPB  <B>,<AOS A>  <B>,<AOS A>S:HKW 
	IFNB <>(,<
	PRINTX  (FroHm GLXVER)
	> ;END IFNB 
	S:HMt H
	PRINTX hGLXVER	GLXINI Edit(24) by RCB on 2(3-Jun-89
	PRINTXH	    	GLXINI	Actual Edit(A)
	S:LYP 
S;k 
?PS}<<<A>B<POS(<B>)>>&<B>>S; KW {H`
	IFNB <>{h,<
	PRINTX  (Fro|m GLXVER)
	> ;END IFNB 
	S; Mt zX
	PRINTX z(GLXVER	GLXINT EdizHt(120) by DPM on zh29-Nov-89
	PRINT{X	    	GLXINT	Actual Edit(A)
	S;!kP S;!k<P S;$YP (S? 
zpWW
	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 H
	IFNB <>h,<
	PRINTX  (From GLXVER)
	> ;END IFNB 
	SBMt x
	PRINTX (GLXVER	GLXIPC EdiHt(77) by LWS on 2h4-Aug-87
	PRINTX	    	GLXIPC	Actual Edit(A)
	SBIP SBM"P SBYP SBlP SB2P SB
BP SB,BP SB,bP SB."P SB\P SB)iP SB)iP SB)kVP SB)kYP SB)lXP SB)lsP SB)lxP SB)mvP SBal}P SPuxzQ @SR/
`T
	LSTOF.	
(XCREF
	..TEXT<A
H>		
	  EXP	0		
	LSTON.
	0		
Uv98Q |U$@ 
5Xm

	OLST

	XJJNO,.JI,GJBJNO>	
	X-TNO,.JITNO,<
	XUSR,.JIUNO,.GTPPN
	X,CDN,.JIDNOH>	
	xXGPRG,.JIPNM,.GTP
	XPCJN,.JICJBCJB>	
	XTBAT,.JIBCH,.G
	XIJLT,.JTJLT		
	X,LOC,<-1,,GJBLOC>
	xXJRTM,.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 
	IFNB <>(,<
	PRINTX  (FroHm GLXVER)
	> ;END IFNB 
	W
 Mt H

	PRINTX hGLXVER	GLXKBD Edit(103) by LWS on (24-Aug-87
	PRINTHX	    	GLXKBD	Actual Edit(A)
	W
$YP !WNH1 xHwL
	IFB <Cxh>,<
	XWD	[ASCIZ\yB\],A>
	IFNB <y(C>,<
	XWD	[EXP yHCM%FW!C
		ASCIZ\B\],A>
SCIZY"luQ xY&i1 
S;

	  LST
8OF. XCREF

	CDO
X	OTSINI			
	CDO	
x    			
	CDO	.ZP
AGA
	CDO	.ZPAGN
8
	CDO	.ZCHNK
	CD
XO	.SAVE1
	CDO	.S
xAVE2
	CDO	.SAVE3

	CDO	.SAVE4
	C
8DO	.SAVET
	CDO	.
XSV13
	CDO	.SV14
x
	CDO	.SV15
	CDO
	.SV16
	NT	.RETT
8
	NT	.RETF
	CDO
X	.RETE
	CDO	.AOS
x		
	CDO	.SOS		

	CDO	.ZERO		
	NT
8	.POPJ		
	CDO	.S
XTOP		
	CDO	.SAVE
x8		
	CDO	.STKST	
	
	CDO	.TRSET		
8
	NT	.POPJ1		
	C
XDO	.UD2SC		
	CDO
x	.SC2UD		
	CDO	.
CPUTY		
	CDO	.DI
8E		
	CDO
	CDO

X
	CDO			
	CDO	C
x%RPRM
	CDO	C%INT
R
	CDO	C%SEND
	
8CDO	C%RECV
	CDO	
XC%BRCV
	CDO	C%RE
xL
	CDO	C%CPID
	
CDO	C%KPID
	CDO	
8C%SPID
	CDO	C%MA
XXP
	CDO	C%PIDJ

x	CDO	C%PIDH
	CDO
 	C%SIDX
	CDO
	C
 8DO
	CDO

	CDO	
 X      			
	CDO	F
 x%IOPN
	CDO	F%AOP
!N
	CDO	F%OOPN
	
!8CDO	F%IBYT
	CDO	
!XF%OBYT
	CDO	F%IB
!xUF
	CDO	F%OBUF

"	CDO	F%REL
	CDO	
"8F%DREL
	CDO	F%RR
"XEL
	CDO	F%REW
	
"xCDO	F%POS
	CDO	F
#%CHKP
	CDO	F%INF
#8O
	CDO	F%FD
	CD
#XO	F%REN
	CDO	F%D
#xEL
	CDO	F%FCHN

$	CDO
	CDO
	CDO
$8
	CDO
	CDO
	CDO
$X
	CDO
	CDO
	CD
$xO	FUNCT.			

	C
%DO	      			
	CD
%8O	M%ACQP
	CDO	M%
%XRELP
	CDO	M%IPSN
%x
	CDO	M%NXPG
	C
&DO	M%IPRC
	CDO	M
&8%IPRM
	CDO	M%AQN
&XP
	CDO	M%RLNP
	
&xCDO	M%CLNC
	CDO	
'M%FPGS
	CDO	M%GM
'8EM
	CDO	M%RMEM

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

(X	CDO
	CDO
	CDO
(x
	CDO
	CDO
	CDO
)
	CDO

	CDO	  
)8    			
	CDO	T%T
)XEXT
	CDO	T%TTY

)x	CDO
	CDO
	CDO
*
	CDO
	CDO
	CDO
*8
	CDO
	CDO
	CD
*XO
	CDO

	CDO	 
*x     			
	CDO	L%
+CLST
	CDO	L%DLST
+8
	CDO	L%CENT
	C
+XDO	L%CBFR
	CDO	L
+x%DENT
	CDO	L%NEX
,T
	CDO	L%FIRS
	
,8CDO	L%LAST
	CDO	
,XL%PREV
	CDO	L%PR
,xEM
	CDO	L%CURR

-	CDO	L%RENT
	CDO
-8	L%SIZE
	CDO	L%A
-XPOS
	CDO
	CDO

-x	CDO
	CDO
	CDO
.
	CDO
	CDO
	CDO
.8

	CDO			
	CDO
.X	I%NOW
	CDO	I%EX
.xIT
	CDO	I%ION
	
/CDO	I%IOFF
	CDO	
/8I%SLP
	CDO	I%INT
/X1
	CDO	I%INT2
	
/xCDO	I%INT3
	CDO	
0I%TIMR
	CDO
	CD
08O
	CDO	I%SOPR
	
0XCDO	I%WTO
	CDO

0x	CDO	I%HOST
	CDO
1	I%JINF
	CDO	I%C
18JOB
	CDO	I%KJOB
1X

	CDO	S%U2DT		
1x
	CDO	S%DT2U
	CD
2O	S%DATI
	CDO	S%
28SIXB
	CDO	S%CMND
2X
	CDO	S%TBLK
	C
2xDO	S%SCMP
	CDO	S
3%ERR
	CDO	S%INTR
38
	CDO	S%EXIT
	C
3XDO	S%TBAD
	CDO	S
3x%TBDL
	CDO	S%NUM
4I


	CDO	K%RCO
48C			
	CDO	K%WCOC
4X
	CDO	K%SUET
	C
4xDO	K%STYP
	CDO	K
5%TXTI
	CDO	K%SOU
58T
	CDO	K%BOUT
	
5XCDO	K%BIN
	CDO	K
5x%BACK
	CDO	K%TPO
6S
	CDO	K%BUFF
	
68CDO	K%FLSH
	CDO	
6XK%OPEN
	CDO	K%EC
6xHO
	CDO
	CDO
	
7CDO
	CDO
	CDO

78	CDO
	CDO
	CDO
	  LSTON.
Y:W d
	IFNB <>(,<
	PRINTX  (FroHm GLXVER)
	> ;END IFNB 
	Y:XMt H\
	PRINTX hGLXVER	GLXLNK Edit(11) by AWC on 2(9-Jan-82
	PRINTXH	    	GLXLNK	Actual Edit(A)
	Y:\YP Y>
@ E0\1
	IFNB <EPC>,<..STR0 (..LDBEp,A,C,B)>
	IFBF  <C>,<MOVE A,B>C>,<MOVE A,Y>%I;P YO%GP YO%yG 	zO[
	IFNDEF 	z0LSTIN.,LSTIN.==0		zP	
IFE LSTIN.,<
	zp	IFIDN <XCREF><A	{>,<.XCREF>	
		  	{0 XLIST>		
	LSTIN.==LSTIN.+1STINYO%{G 	{pOe
	IFG LST	|IN.,LSTIN.==LSTIN	|0.-1	
	IFLE LSTIN	|P.,<.CREF		
		      LIST>
		   [KW ~t
	IFNB <>~(,<
	PRINTX  (Fro~Hm GLXVER)
	> ;END IFNB 
	Z[Mt |Hl
	PRINTX |hGLXVER	GLXMAC Edi}t(525) by DPM on }(16-Oct-89
	PRINT}HX	    	GLXMAC	Actual Edit(A)
	[YP *[3@ 
?Sy<<<1_<A>>-1>B<B>>_<A>>[8@ 
>Sq1B<<A>-1>-1B<B><<A>-1>[@ 
XQ!
	IFB <B
x>,<MAXSIZ==0
		I
RP A,<IFG <A-MA
8XSIZ>,<MAXSIZ==A
X>>>
	IFNB <B>,<
xB==0
		IRP A,<
IFG <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 
HX
	IFNB <>
h,<
	PRINTX  (From GLXVER)
	> ;END IFNB 
	[hMt 	P
	PRINTX 	(GLXVER	GLXMEM Edi	Ht(33) by DPM on 1	h9-Apr-88
	PRINTX
	    	GLXMEM	Actual Edit(A)
	[lYPuQ @[th:Q [u[yQ [ukvQ  [v=3P'[v|WQ [&p 
XQ5
	IFB <B
x>,<MINSIZ==377777
,,777777
		IRP 
8A,<IFG <MINSIZ-A
X>,<MINSIZ==A>>>
x
	IFNB <B>,<B==
377777,,777777
	
8	IRP A,<IFG <B-
XA>,<B==A>>>
A>,<B==A>>>
[>!` 
>PSu<A-<A/B>*B><A-<A/B[?7 
@Tc
   ..MX1
@0==B			
IFDEF .P
@PSECT,<
   .IFN .
@p.MX1,ABSOLUTE,<

A	MOVE A,[B]>
 
A0  .IF ..MX1,ABSOL
APUTE,<
	..MX2==0	
Ap	
	IFE <..MX1>B5
B3,<
	  ..MX2==1
B0
	  MOVEI A,..MX
BP1>	
	IFE ..MX2,<
Bp		
	IFE <..MX1>B
C17,<
	  ..MX2==1
C0
	  MOVSI A,(..
CPMX1)>>	
	IFE ..M
CpX2,<		
	IFE <<..
DMX1>B53-^O777777>
D0,<
	  ..MX2==1

DP	  HRROI A,<..MX
Dp1>>>	
	IFE ..MX2
E,<		
	IFE <<..MX
E01>B17-^O777777B17
EP>,<
	  ..MX2==1
Ep
	  HRLOI A,(..M
FX1-^O777777)>> 

F0	IFE ..MX2,<		
	
FP  MOVE A,[..MX1]
Fp>	
	>>

IFNDEF
G .PSECT,<
	..MX2
G0==0		
	IFE <..MX
GP1>B53,<
	  ..MX2
Gp==1
	  MOVEI A,
H..MX1>	
	IFE ..M
H0X2,<		
	IFE <..M
HPX1>B17,<
	  ..MX
Hp2==1
	  MOVSI A
I,(..MX1)>>	
	IFE
I0 ..MX2,<		
	IFE 
IP<<..MX1>B53-^O777
Ip777>,<
	  ..MX2=
J=1
	  HRROI A,<
J0..MX1>>>	
	IFE .
JP.MX2,<		
	IFE <<
Jp..MX1>B17-^O77777
K7B17>,<
	  ..MX2
K0==1
	  HRLOI A,
KP(..MX1-^O777777)>
Kp> 
	IFE ..MX2,<	
L	
	  MOVE A,[..
L0MX1]>	
>
	PURGE ..MX1,..MX2RGE[Lt;ZQ x[LvN8P'[NF:=p [N^= 0XU
	A==C	P	
	IF1,<IFDEF %pA,<PRINTX ?A ALR	EADY DEFINED>>
		0DEFINE %A (OP,AC	P,Y,MSK)<	
	IFDIF	p <Y><>,<
	OP (<A
C>,B+'Y,MSK)>
	
0IFIDN <Y><>,<
	O
PP (<AC>,B'Y,MSK)>>AC>,B'Y,MSK)[PuySP'[PvNP'[Vg 
X0UC..OP(A,B,MUL)..OP(A,B[`v
2P ] 	tPO'IF2,<IFDEF	tp A,<A==A>> IFNDEF A,<A==B>]F@ q`TEMFDB##_
QkRp _
Ql}p _
Qmp _
Qm7p _
T= 
5o 

	X	.OTReader
	X	.OU,Network-Cont
	X	.OTLPTr
	X	.OTBtch-Stream
i`	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 H0
	IFNB <>h,<
	PRINTX  (From GLXVER)
	> ;END IFNB 
	_SMt (
	PRINTX (GLXVER	GLXOTS EdiHt(14) by RCB on 2h3-Jun-89
	PRINTX	    	GLXOTS	Actual Edit(A)
	_SYP _Sh6Q O3EJ1_Tu
SQ x_TuLSP'`P `DP `HP `LP `PP a<VP a>:=P a,I3p a,\Yp a-	P a-np a.:p a.-p a.:=p atzp atiP'atkp au	p auZp auI7Q xauKqp au[Yp au^p auh6p av	Q xav
2p av>9p a
,TQ  a
,Q a
,*9Q a
,>(Q  a
,>(Q a
,k{Q a
,m3Q a
-J8Q @a
-iQ a
-}SQ @a
.Z7Q a
.\yQ a
tTQ  a
tQ a
t*9Q a
t>(Q  a
t>(Q a
tk{Q a
tm3Q a
uJ8Q @a
uiQ a
u}SQ @a
vZ7Q a
v\yQ al}P aI3 p;

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

  x IFNB <D>,<..XX=..XX!CM%HPP> 
  X IFNB <E>,<..XX=8..XX!CM%DPP> 

P	EXP ..XX		

  p IFNB <C>,<EXP C>
   IFB <C>,<0EXP 0>

   IFNBP <D>,<POINT 7,[ApSCIZ \D\]>
   IFB <D>,<0>

0 IFNB <E>,<POINTP 7,[ASCIZ \E\]>
IFB <E>,<0>



   IFB <I0>,<0>
   IFNB <PI>,<EXP I>

  p IFB <J>,<0>
   IFNB <J>,<EXP 0J>

   IFB <H>P,<0>
   IFNB <Hp>,<EXP H>

   IFB <G>,<0>
   0IFNB <G>,<EXP G>

G>,<EXP Ga@KW Hx
	IFNB <>h,<
	PRINTX  (From GLXVER)
	> ;END IFNB 
	a@Mt p
	PRINTX (GLXVER	GLXPFH EdiHt(16) by TARL on h17-Apr-81
	PRINTX	    	GLXPFH	Actual Edit(A)
	aDYP a 
7xS?LSH A,^D9LSH A,^D9a+= 5a;&  
-xbw
	 IFB  <
.B>,<..STR0(..PNT
.8,,<FWMASK>,A)>
.X	 IFNB <B>,<..ST
.xR0(..PNT,,<B>,A)>.PNT,,<B>,Aa>Mm 
<0Se<POINT WID
<P(B),A,POS(B)>B),A,POS(B)>a?H6 +a? 
9pSO<^L<<A>&<-<A>>>><<A>&<aJ}Ks 	o Q

	SALL		}8			
	LSTOF. XCRE	}XF			

	%%.GLX==	}x%%.GLX			
	GLXVR	~S==GLXVRS			

		~8IFNB <A>,<%%.MOD	~X==SIXBIT/A/> 
		~xIFNB <B>,<%%.OTS	==SIXBIT/B/> 
	8
	GLOB	I%INIT			

	TOPS10	<			
	x		SEARCH	UUOSYM		

		%%UUOS==%%UUO
8S		
	>				

	T
XOPS20	<			
		SEA
xRCH	MONSYM		
;		
%%MONS==%%MONS		
8
	>				

	IFB <
XB>,<			
		IFN G
xLXPUR,<
			.TEXT
	|,REL:GLXLIB/SEA
8RCH/REQUIRE:I%INI
XT/SEGMENT:LOW|
	
x	>			
		DEFINE	$
DATA (NAM,SIZ<1>)
8,< 
			NAM:	BLOC
XK	SIZ
		>			
		
xDEFINE	CDO (X),<G
LOB X> 
		DEFINE
8	NT(X),<CDO X>	

X		LIBVEC			
	>		
x		

	IFNB <B>,
<			
		CHKEDT (
8B)		

	IFDIF <
XB><INI>,<		
		IF
xN GLXPURE,<.PSECT
 .HIGH.> 
		IFE 
8GLXPURE,<		
			T
XWOSEG	400000	
		
x	RELOC	0	
			REL
OC	400000	
		>		
8	

		DEFINE $DA
XTA(NAM,SIZ<1>),< 
x
			IFN GLXPURE,
<.PSECT DATA> 
	
8		IFE GLXPURE,<RE
XLOC> 
			IFNDEF 
xB%D,<B%D::! B%
	DL==:0>
			NAM:	
	8BLOCK	SIZ
			B%
	XDL==:B%DL+SIZ 

	x			IFN GLXPURE,<.

ENDPS DATA> 
			

8IFE GLXPURE,<RELO

XC> 
		>			

	I

xFDIF <B><OTS>,<	
	
		DEFINE	CDO (
8X),<GLOB X> 
		D
XEFINE	NT(X),<CDO 
xX> 
		LIBVEC		
	>			

	>			
	
8

	IFIDN <B><I
XNI>,< 
		DEFINE	
x$DATA (NAM,SIZ<1>
),< 
			NAM:	BLO
8CK	SIZ
		>			
	
X>				
	>

	LST
xON.				

	GLOB	
<.POPJ, .RETT, .R
8ETF>	
	OPDEF	$RE
XT	[POPJ	P,]	
	OP
xDEF	$RETT	[PJRST	
.RETT]	
	OPDEF	$
8RETF	[PJRST	.RETF
X]	
	OPDEF	$RETIT
x	[JUMPT	.POPJ]	

	OPDEF	$RETIF	[JU
8MPF	.POPJ]	
	.NO
XDDT	$RET,$RETT,$R
xETF,$RETIT,$RETIF
$RETIT,$RETIFaPtPaPtkPaPuTPaPv\rPe,(SQe,)6Qe,)RQe,+QP@e,,UQ@e,-QHe,<SQe-)WQe-i1Pe.lp glp gltp gl}p g
,}Q g
-LyQ @g
.=1Q gpKW 
	IFNB <>
	PRINTXER(Fro
	> ;END IFNB 
	gpMt Hd
	PRINTX hGLXVER	GLXSCN Edi
t(135) by DPM on 
(19-Apr-88
	PRINT
HX	    	GLXSCN	Actual Edit(A)
	gtYP .g"@ rp_'
	IFN <<.s.TA>&B>,<PRINTXs0 ?Initial field nsPot zero in $SET>
	t..TVAL==<C>
	t0..TMSK==<B>
	  ..TA==..TA!tP<FLD(..TVAL,..TMStpK)>
	  PURGE ..TVAL,..TMSK
	.TgtXrP gv
[Pug#=ztqxC.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  PZ
	..STKR= p=10		
	RADIX 8
!	..STKN==0
	IRP !0A,<
	  .STKV1 (!PA)>
	$CALL	.STK!pST
	 ..STKN,,..S"TKN
	RADIX ..STK"0R
	DEFINE ENDSV."P<.ENSV1 <A>>
	P"pURGE ..STKN,..STKR,..STKQ
   TKgR~r {h`

.TYPE=|=-1				
IFIDN <|(B><HALT>,<.TYPE==|H0>		
IFIDN <B><|hCONT>,<.TYPE==1>	}	
IFIDN <B><DEB}(UG>,<.TYPE==2>		

IFL .TYPE,<			}h	
IF2,<PRINTX ? ~Stopcode A is in~( error; see S..A~H in CREF>
S..A:~h:JRST	4,.			
>					

IFB <A>,<(				
IF2,<PRINTXH ? Stopcode with hout a A; see S..
 in CREF>
S..::	
(JRST	4,.			
>			
H		

IFGE .TYPE,
h<				
S..A::PUS
HJ	P,.DIE			
	CA
(I	.TYPE,[			
	<S
HIXBIT /A/>&77777
h7000000	
	EXP	%%
.MOD			
	EXP	C	
(		
	EXP	[ASCIZ |
HD|]		
	]				
>
h					

	PURGE	.TYPE			
URGE	.gR~)  HP\K
	IFNB <HpC>,<..STR0 (..DPBI,A,C,B)>
	IFBI0  <C>,<MOVEM A,B>>,<MOVEM A,gV 
W0U;..AS(A,B,SUB,ADD)(A,Bgg
V 
8Q
	IFNB <
XB>,<TOPS10<A==B
x>>
	IFNB <C>,<T
OPS20<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( b0~IFN FTUUOS,B			;DEFINE UNi?4H bp~IFN FTJSYS,	INTERN AEDT	iD 
a4

  IFNB
(	<A>,<.TQCHA==^
HD<B>B17+ZZ>
  I
hFNB 	<D>,<DEFINE
 ..TQMA<D>>
  
(IFNB	<C>,<.TQC=
H=^D<B>B17+ZZ>
	 ZZ==ZZ+1ZZ>
	iG, 
a$
	LSTOF.
(
	TQ(T,2,ASCIZ)		
H	
	TQ(O,2,OCTAL)
h			
	TQ(D,2,DECI
MAL)			
	TQ(F,2,
(FILE)			
	TQ(7,2
H,CSEVEN)			
	TQ(
h6,2,CSIXBIT)			
	TQ(W,2,SIXBIT)		
(	
	TQ(5,2,SVNBIT
H)			
	TQ(P,2,USE
hR)			
	TQ(U,2,DI
RECTORY)			
	TQ(
(H,2,DAYTIME)			
H	TQ(C,2,TIME)			
h
	TQ(E,2,ERROR)		
	
	TQ(I,1,INDIRE
(CT)		
	TQ(M,0,CR
H,..TXC0(\".CHCRT)
h)	
	TQ(J,0,LF,..
TXC0(\".CHLFD))	
(
	TQ(L,0,FF,..TXC
H0(\".CHFFD))	
	T
hQ(K,0,VT,..TXC0(\
".CHVTB))	
	TQ(A
(,0,NOCRLF,..TXA(.
HTQCHA))	
	TQ(0,0
h,NULL,..TXA(.TQCH
0))	
	TQ(3,0,STR
(ING,..TXER(IQU))	
H
	TQ(V,2,VERSION
h)			
	TQ(2,0,CAR
ET,..TXER(IQU))	
(
	TQ(Q,2,POINTER)
H			
	TQ(B,2,ROB)
h			
	TQ(1,2,OBJE
CT)			
	TQ(N,2,N
(ODE)			
	TQ(R,2,
HJIB)			
	LSTON.
)			
	LSTON. 
58n@
	LSTOF.
RX(33,TTY33,33,.
SX(3TTY35,35,.RETT,
TOPS20<
S@EX(37,TTY37,37,.R
TX(EXPORT,EXEC,EXE,
>
T@TOPS10<
TX(LA120,L12,.RETT,
>
UX(LA336,L36,.RETT,
UX(VK100,10,SETTLC,
VX(T05,VT05,V05,.RE
WX(VT100,00,SETTLC,

X@TOPS10<	X(VT101,V
YX(VT102,VT102,102,
TOPS10<	X(VT103,SET
\X(VT125,VT125<.CHE
TOPS10<180,VT180,18
TOPS10<	XVT185,185,
`X(VT220,VTETTLC,<.
`X(V40,VT240,240,SE
bX(VT320,VT320<.CHE
cX(VT3330,330,SETTL
d0X(VT340,VT340,34
eX(VT50,VTETTLC,<.C
fX(VT52,V,SETTLC,<.
TOPS10<	,VT61,V61,S
	LSTON.

>PA iK4@ )ZW
	..TRR==)010		
	RADIX 8
	)P..NV==1			
	IRP )pA,<
	  .TRV1 (*A)>		
	$CALL	.TR*0SET		
	 ..NV-1,,*P..NV-1
	RADIX ..*pTRR		
	PURGE ..TRR,..NVURGE ..Tib 
p0W
		..TX(C,A,<B>)..TX(Cib 
qpW
		..TX(CA,A,<B>).TX(CibP 
ppW
		..TX(CE,A,<B>).TX(Cib` 
q0W
		..TX(CN,A,<B>).TX(Cibp 
j0VS
		..TX(N,A,<B>)..TX(Nibt 
kpV_
		..TX(NA,A,<B>).TX(NibtP 
jpVW
		..TX(NE,A,<B>).TX(Nibu` 
k0V[
		..TX(NN,A,<B>).TX(Nibx 
l0Vc
		..TX(O,A,<B>)..TX(Oib| 
mpVo
		..TX(OA,A,<B>).TX(Oib|P 
lpVg
		..TX(OE,A,<B>).TX(Oib}` 
m0Vk
		..TX(ON,A,<B>).TX(Oic KW <
	IFNB <>(,<
	PRINTX  (FroHm GLXVER)
	> ;END IFNB 
	ic Mt H4
	PRINTX hGLXVER	GLXTXT Edit(55) by BAH on 1(4-Nov-86
	PRINTXH	    	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 
n0Vs
		..TX(Z,A,<B>)..TX(ZicT 
opV
		..TX(ZA,A,<B>).TX(ZicTP 
npVw
		..TX(ZE,A,<B>).TX(ZicU` 
o0V{
		..TX(ZN,A,<B>).TX(ZkR`KW (N
	IFNB <>H,<
	PRINTX  (Frohm GLXVER)
	> ;END IFNB 
	kR`Mt hF
	PRINTX GLXVER	GLXUTL Edi(t(2) by DPM on 4-HDec-85
	PRINTX	 h   	GLXUTL	Actual Edit(A)
	kRdYP mKc@ cOiBYTE (3)A	}WHO (9)AVER (6)AMIN (18)AEDTo&  
90SK<^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? 
{pW_
	TXC A,<B>
	TXC A,q@ 	u0O-IFB <C>,<	uPA==:B> IFNB <C>,<A=:B>B <CqBp +qN5P +up Qp]
	IFNB <RB>,<..STR1 (..TQZR0,,<B>,A,..STR4)RP>
	IFB  <B>,<SETZM A><B>,<SEuhP 	;z rw"
	.XCREF	r(.$RESET, .$BUILD
	.$RESET
	$TYPErh (.CMACT)
	$HELPs (<>)
	$NEXT (As()
IFIDN <B> <>,sH< IRP C,<C>
		sh	.$BUILD>
IFDIF t<B> <>,<
	$HELPt( (B)
	IRP C,<C>
	.$BUILD><	0 
|8gg
.WTOX.(.OM
|XACK,<A>,<B>,<C
|x>,<D>,<$WTFLG(WT.SJI),E>)LG(WT	J7  qV.XCREF	.%R@TN,	.$RTN
			DEF`INE .$RTN <A>
			.%RTN==1A>
		D[ 
@pl
	IFDIF <
`A>M<>,<.XCREF	.%
DEF[.$HLPM<POINT
			.%HLPM==-1>
	fI9  q.XCREF	.%L@ST,	.$LST
			DEF`INE .$LST <A+1>
			.%LST==11>
=Z cp^'
	  IFG dA-INT.LV,<PRINTX d0?Level A interrudPpts not supporteddp>
	  .BGINT.(\A)   .BGINT.(\A	X5  q6.XCREF	.%B@REA,	.$BREA
			D`EFINE .$BREA <A>
			.%BREA==1>	- fP^E
	  IFDEFfp ..BSIZ,<PRINTX ?gMissing $EOB afteg0r a $BUILD>
	  .gP.BSIZ==0			
	  .gp.BLOC==.			
	  RhEPEAT A,<			
		h0BLD0.(\..BSIZ,0)	hP
		..BSIZ==..BSIZ+1>	
	==..BSI		}[0 Vu8
	.XCREF	V(.$RESET, .$BUILD
	.$RESET
	$TYPEVh (.CMCMA)
	$NEXTW (A)
	IRP B,<B>
	.$BUILD,<	I@ QHu
	.XCREF	Qh.$RESET, .$BUILD
	.$RESET
	$TYPER( (.CMCFM)
	IRP RHA,<A>
	.$BUILD,<A>
	.$BUILD	$^ _v

	.XCREF	(.$RESET, .$BUILD
	.$RESET
	$TYPE_h (.CMTXT)
	$HELP` (<>)
	$NEXT (A`()
IFIDN <B> <>,`H< IRP C,<C>
		`h	.$BUILD>
IFDIF a<B> <>,<
	$HELPa( (B)
	IRP C,<C>
	.$BUILD><	I  ahv
	.XCREF	b.$RESET, .$BUILD
	.$RESET
	$TYPEbH (.CMTAD)
	$PDATbhA (CM%IDA)
	$NEXcT (A)
	IRP B,<B>
	.$BUILD,<	,,U ep^1
	  $RET	f			;WILL INVOKE RIGHT ROUTINE
		,h: @q

	IFDIF <`A> <>,<.XCREF	.%DEFM,	.$DEFM
DEF INE .$DEFM <POINT@ 7,[ASCIZ\A\]>
`			.%DEFM==1>
	IFIDN <A> <>,<
I F1 <
PRINTX %Nul@l argument in $DEFAULT macro>>DE	.` ]Hut
	.XCREF	]h.$RESET, .$BUILD
	.$RESET
	$TYPE^( (.CMDEV)
	$NEXT^H (A)
	IRP B,<B>
	.$BUILD,<	Lz: >t
	.XCREF	>(.$RESET, .$BUILD
	.$RESET
	$TYPE>h (.CMNUX)
	$PDAT?A (B)
	$HELP (<?(>)
	$NEXT (A)
?HIFIDN <C> <>,< I?hRP D,<D>
			.$@BUILD>
IFDIF <C@(> <>,<
	$HELP (@HC)
	IRP D,<D>
	.$BUILD><D>
	.XCREF	S(.$RESET, .$BUILD
	.$RESET
	$TYPESh (.CMDIR)
	$NEXTT (A)
	IRP B,<B>
	.$BUILD,<	|  mP_	
	  IFNDEmpF ..BSIZ,<PRINTX n?$EOB without pren0vious $BUILD>
	 nP IFN <.-..BLOC>,<npPRINTX ?Address cohange between $BUo0ILD and $EOB>
	 oP LSTOF.			
	  ..opT==0
	  REPEAT .p.BSIZ,<
	    BLDp00.(\..T,1)		
	  pP  ..T==..T+1 >
	pp  PURGE ..BSIZ,..qT,..BLOC	
	  LSTON.
		
	  LST	+y  q..XCREF	.%E@RTN,	.$ERTN
			D`EFINE .$ERTN <A>
			.%ERTN==1>	,  q@.XCREF	.%E@RTN,	.$ERTN
			D`EFINE .$ERTN <1B0+A+1>
			.%ERTN==1>
			.%ERTN	- @qN.XCREF	.%E`RTN,	.$ERTN
			DEFINE .$ERTN <[MO VEI S2,[ASCIZ\A\@]
				      $RET`F]>
			.%ERTN==1>
			.%ERTN==1	IF2,<IFN <	s8A>-.,<PRINTX ? I	sXLLEGAL $FALL A>>EGAL $FALL A>>	H6 wHD
	$CALL	.whSTOP
	LSTOF.
	JxUMP	[XWD 0,[ITEXTx( (<A>)]
		 EXP xH%%.MOD]
	LSTON. .MOD]
	LSTON. 	L[ Nhu
	.XCREF	O.$RESET, .$BUILD
	.$RESET
	$TYPEOH (.CMFLD)
	$NEXTOh (A)
	$HELP (<>P)
IFIDN <B> <>,P(< IRP C,<C>
		PH	.$BUILD>
IFDIF Ph<B> <>,<
	$HELPQ (B)
	IRP C,<C>
	.$BUILD><	MI  Ltr
	.XCREF	L(.$RESET, .$BUILD
	.$RESET
	$TYPELh (.CMFIL)
	$HELPM (<>)
	$NEXT (AM()
IFIDN <B> <>,MH< IRP C,<C>
		Mh	.$BUILD>
IFDIF N<B> <>,<
	$HELPN( (B)
	IRP C,<C>
	.$BUILD><	dy 	pL.XCREF	.%F	 LGS,	.$FLGS
			D	@EFINE .$FLGS <A>
			.%FLGS==1>	ex: Zhuh
	.XCREF	[.$RESET, .$BUILD
	.$RESET
	$TYPE[H (.CMFLT)
	$HELP[h (<>)
	$NEXT (A\)
IFIDN <B> <>,\(< IRP C,<C>
		\H	.$BUILD>
IFDIF \h<B> <>,<
	$HELP] (B)
	IRP C,<C>
	.$BUILD><	$ g(vF
	.XCREF	gH.$RESET, .$BUILD
	.$RESET
	$TYPEh (.CMTAD)
	$PDATh(A (<CM%IDA!CM%ITMhH!CM%FUT>)
	$NEXThh (A)
	IRP B,<B>
	.$BUILD,<	$ vX_8m`
	  INTERwN A
	  $DATA(A,<B>)
	ATA(A~n11]	"
	IFDIF < A> <>,<.XCREF	.%@HLPM,	.$HLPM
DEF`INE .$HLPM <POINT
 7,[ASCIZ\A\]>
			.%HLPM==1>
	&5 FHtF
	.XCREF	Fh.$RESET, .$BUILD
	.$RESET
	$TYPEG( (.CMIFI)
	$HELPGH (<>)
	$NEXT (AGh)
IFIDN <B> <>,H< IRP C,<C>
		H(	.$BUILD>
IFDIF HH<B> <>,<
	$HELPHh (B)
	IRP C,<C>
	.$BUILD><	&u Y(uR
	.XCREF	YH.$RESET, .$BUILD
	.$RESET
	$NEXTZ (A)
	$TYPE (.CZ(MINI)
	IRP B,<B>
	.$BUILD,<	./ 9(sT
	.XCREF	9H.$RESET, .$BUILD
	.$RESET
	$TYPE: (.CMKEY)
	$PDAT:(A (B)
	$NEXT (:HA)
	IRP C,<C>
	.$BUILD,<C>
	.XCREF	7h.$RESET, .$BUILD
	.$RESET
	$TYPE8( (.CMKEY)
	$PDAT8HA (A)
	$NEXT (08h)
	IRP B,<B>
	.$BUILD,<B>
	/>Ky 
g{.WTOX.(.OM
8WTR,,,,<A>,<$WTFLG(WT.KIL),B>)	2|p 
~8gu.WTOX.(.OM
~XLOG,<A>,<B>,<C>,,<D>)B>,<C	:/
			DEF`INE .$NXT <A>
			.%NXT==1A>
		:|KV ow

	.XCREF	o(.$RESET, .$BUILD
	.$RESET
	$TYPEoh (.CMNOD)
	$HELPp (<>)
	$NEXT (Ap()
IFIDN <B> <>,pH< IRP C,<C>
		ph	.$BUILD>
IFDIF q<B> <>,<
	$HELPq( (B)
;	$FLAGS (qHCM%PO)
	IRP C,<C>
	.$BUILD><	:}r At
	.XCREF	A(.$RESET, .$BUILD
	.$RESET
	$TYPEAh (.CMNOI)
	$PDATBA (<POINT 7,[ASCIB(Z\B\]>)
	$NEXT BH(A)
	IRP C,<C>
	.$BUILD,<C	;-XR ;sl
	.XCREF	;(.$RESET, .$BUILD
	.$RESET
	$TYPE;h (.CMNUM)
	$PDAT<A (B)
	$HELP (<<(>)
	$NEXT (A)
<HIFIDN <C> <>,< I<hRP D,<D>
			.$=BUILD>
IFDIF <C=(> <>,<
	$HELP (=HC)
	IRP D,<D>
	.$BUILD><D>
	.XCREF	IH.$RESET, .$BUILD
	.$RESET
	$TYPEJ (.CMOFI)
	$NEXTJ( (A)
	$HELP (<>JH)
IFIDN <B> <>,Jh< IRP C,<C>
		K	.$BUILD>
IFDIF K(<B> <>,<
	$HELPKH (B)
	IRP C,<C>
	.$BUILD><	B$ 
pT.XCREF	.%D
 ATA,	.$DATA
			D
@EFINE .$DATA <A>
			.%DATA==1>	B$YP q.XCREF	.%D EFM,	.$DEFM
			D@EFINE .$DEFM <POI`NT 7,<A>>
			.%DEFM==1>
			.%	CYT  q^.XCREF	.%D@EFR,	.$DEFR
			D`EFINE .$DEFR <A>
			.%DEFR==1>	G-} i(v\
	.XCREF	iH.$RESET, .$BUILD
	.$RESET
	$TYPEj (.CMQST)
	$HELPj( (<>)
	$NEXT (AjH)
IFIDN <B> <>,jh< IRP C,<C>
		k	.$BUILD>
IFDIF k(<B> <>,<
	$HELPkH (B)
	IRP C,<C>
	.$BUILD><	J.I  u8_/
	  $CALLuX	.RETE			
		LSTOuxF.
	  JUMP	ERA$
		LSTON.ERA$	Ni  30\
	.NVR==03P			
	.ACM==0			

	IRP A,<		
	4	..TSAC(.ACB,A)	40	
		IFN .ACB,<.A4PCM==.ACM!1B<A>>	4p
		IFE .ACB,<			5
		IFE .NVR,<			50
		    PUSHJ P,[5P			
			>
		  ..5pPUSH(A,\<.NVR+1>6)>>	

    IFE .60NVR,<	
	IFN .ACM6P,<	
	    IFE <.A6pCM-17B<T4>>,<.ACM7==0
				$CALL .S70AVET>
	    IFE <7P.ACM-377B<.A16>>,7p<.ACM==0
				$CA8LL .SAVE8>
	    80IFE <.ACM-17B<P4>8P>,<.ACM==0
				$8pCALL .SAVE4>
	  9  IFE <.ACM-7B<P390>>,<.ACM==0
				9P$CALL .SAVE3>
	 9p   IFE <.ACM-3B<P:2>>,<.ACM==0
			:0	$CALL .SAVE2>
	:P    IFE <.ACM-1B<:pP1>>,<.ACM==0
		;		$CALL .SAVE1>
;0	    IFE <.ACM-1B;P<.A13>>,<.ACM==0
				$CALL .SV13><
	    IFE <.ACM-<01B<.A14>>,<.ACM==<P0
				$CALL .SV1<p4>
	    IFE <.AC=M-1B<.A15>>,<.ACM=0==0
				$CALL .S=PV15>
	    IFE <.=pACM-1B<.A16>>,<.A>CM==0
				$CALL >0.SV16>
	    >>
>P
	IFN .ACM,<	
	>p    IFE .NVR,<			?
		PUSHJ P,[		
?0		>

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

	IFN .NVR,<	
A0		PUSHJ	P,@-.NVR(APP)	
		 TRNA			
Ap		AOS	-1-.NVR(P)	B
	    REPEAT .NVB0R,<..POP(\.NVR)>	BP
		ADJSP	P,-1		
		POPJ	P,]>		
		POPJ	P,]>		
	N;  px.XCREF	.%S BCM,	.$SBCM
	IFD@IF	<A><>,<DEFINE`	.$SBCM	<EXP	<A>>>
	.%SBCM==1
>
	.%SBCM==1
	N.@ i^Y
	  IFNDEi0F ..BSIZ,<PRINTX iP?$SET without preipvious $BUILD>
	 j IFNB <B>,<..STRj00 (..SET,<C>,B,jPA)>
	IFB  <Bjp>,<..STR0 (..SET,k<C>,FWMASK,A)>
	,FWMASK,A)>
	.XCREF	z(a,	b
	a==.
	zHXWD b-1,b-1
	DzhEFINE $ETAB <.XCR{EF	a,	b
		b==.-a>b
		b==	O%| 
(`*
IF1,<PRI
HNTX % Use STOPCD 
hmacro for stopcod
e A instead of $
(STOP>
S..A::!	$
HCALL .STOP
		LST
hOF.
		JUMP [XWD 
'A',[ITEXT (<B>
()]
			EXP %%.MOD]
		LSTON.	MOD	O,(v WHuF
	.XCREF	Wh.$RESET, .$BUILD
	.$RESET
	$NEXTX(	(A)
	$TYPE	(.CXHMINI)
	$SBCM	(BXh)
	IRP C,<C>
	.$BUILD,<C>
	O= Dht0
	.XCREF	E.$RESET, .$BUILD
	.$RESET
	$TYPEEH (.CMSWI)
	$PDATEhA (A)
	$NEXT (0F)
	IRP B,<B>
	.$BUILD,<B>
	O= Ct"
	.XCREF	C(.$RESET, .$BUILD
	.$RESET
	$TYPECh (.CMSWI)
	$PDATDA (B)
	$NEXT (D(A)
	IRP C,<C>
	.$BUILD,<C>
@ e(v6
	.XCREF	eH.$RESET, .$BUILD
	.$RESET
	$TYPEf (.CMTAD)
	$PDATf(A (<CM%IDA!CM%ITMfH>)
	$NEXT (A)
fh	IRP B,<B>
	.$BUILD,<B>
	.$	R/
h`6
	$CALL	T
%TEXT
	LSTOF.	XC
(REF
	JUMP	[XWD 2
H,0
		 EVL (A)
h		 ITEXT(<B>)]	
	LSTON.B>)]	
	.XCREF	ch.$RESET, .$BUILD
	.$RESET
	$TYPEd( (.CMTAD)
	$PDATdHA (CM%ITM)
	$NEXdhT (A)
	IRP B,<B>
	.$BUILD,<	R}97 thw2
	.XCREF	u.$RESET, .$BUILD
	.$RESET
	$TYPEuH (.CMTOK)
	$PDATuhA (<POINT 7,[ASCIvZ\B\]>)
	$NEXT v((A)
	IRP C,<C>
	.$BUILD,<C	S 
ha:


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

C,	S@I9 
0Xc%
	LSTOF.
0x
	X(UQU,Unknown q
1ualifier)
	X(IQU
18,Invalid qualifie
1Xr)
	X(IJA,Invali
1xd justification a
2rgument)
	X(IWA,
28Invalid width arg
2Xument)
	X(PEA,Pr
2xemature end of ar
3gument)
	X(JNA,J
38ustification is n
3Xot allowed)
	X(A
3xNA,Arguments are 
4not allowed)
	X(
48ADS,Address must 
4Xbe specified)
	LSTON.
ied)
	L	SN	  pD.XCREF	.%T YPE,	.$TYP
			DE@FINE .$TYP <A>
			.%TYPE==1>
	W= lvt
	.XCREF	l(.$RESET, .$BUILD
	.$RESET
	$TYPElh (.CMUQS)
	$HELPm (<>)
	$NEXT (Am()
	$PDATA (B)
mHIFIDN <C> <>,< ImhRP D,<D>
			.$nBUILD>
IFDIF <Cn(> <>,<
	$HELP (nHC)
	IRP D,<D>
	.$BUILD><D>
	.XCREF	Th.$RESET, .$BUILD
	.$RESET
	$TYPEU( (.CMUSR)
	$NEXTUH (A)
	IRP B,<B>
	.$BUILD,<	^+@ y_Z
IFE %%.Oy(TS,<DEFINE $WARN yH(MSG) <
		$TEXT yh(T%TTY,<% ^W6/[%%z.MOD]/ MSG>)>>
Iz(FN %%.OTS,<DEFINEzH $WARN (MSG) <
	zh	$TEXT (T%TTY,<% {^W6/IIB+IB.PRG/ ^{(W/[%%.MOD]/ MSG>)>>
	$WARN <A>	_$r 
p8g
		IFB	<
pXA>,<.WFACD==0
		
px	IFN <0-2>,<.$WAC
qD==0>>
		IFNB	<
q8A>,<.WFACD==-1
	
qX		IFN <0-2>,<.$WA
qxCD==.$WACD!<A>>
r
			IFE <0-2>,<DE
r8FINE .$WACD,<<WO.
rXACD>B8+[ITEXT (<A>)]>>
		>
<	_$u 
e8f=
		IFB	<
eXA>,<.WFACK==0
		
ex	IFN <0-2>,<.$WAC
fK==0>>
		IFNB	<
f8A>,<.WFACK==-1
	
fX		IFN <0-2>,<.$WA
fxCK==.$WACK!<A>>
g
			IFE <0-2>,<DE
g8FINE .$WACK,<<WO.
gXACK>B8+[ITEXT (<A>)]>>
		>
<	_$+ 
WgS
	IFE	<.W
W8FMTY>,<PRINTX ?No
WX message type in 
Wx$WTBLD>
DEFINE .
XEAWTO(SUFFIX,ARGC
X8OD),<
IFN .WF'SU
XXFFIX',<
	IFE	<AR
XxGCOD-0>,<<WO.'SUF
YFIX'>B8+ .$W'SUFF
Y8IX'>
	IFE	<ARGCO
YXD-1>,<<WO.'SUFFIX
y8'>B8+ [EXP .$W'SU
yXFFIX']>
	IFE	<AR
yxGCOD-2>,<.$W'SUFF
zIX'>
>
>
	ALLW
z8TO				
	EXP	0			
		
	EXP	0				_$k 
hfS
		IFB	<
h8A>,<.WFFLG==0
		
hX	IFN <1-2>,<.$WFL
hxG==0>>
		IFNB	<
iA>,<.WFFLG==-1
	
i8		IFN <1-2>,<.$WF
iXLG==.$WFLG!<A>>
ix
			IFE <1-2>,<DE
jFINE .$WFLG,<<WO.
j8FLG>B8+[ITEXT (<A>)]>>
		>
<	_%(W 
mXf
		IFB	<
mxA>,<.WFJBN==0
		
n	IFN <0-2>,<.$WJB
n8N==0>>
		IFNB	<
nXA>,<.WFJBN==-1
	
nx		IFN <0-2>,<.$WJ
oBN==.$WJBN!<A>>
o8
			IFE <0-2>,<DE
oXFINE .$WJBN,<<WO.
oxJBN>B8+[ITEXT (<A>)]>>
		>
<	_%YV 
uxgA
		IFB	<
vA>,<.WFMFL==0
		
v8	IFN <1-2>,<.$WMF
vXL==0>>
		IFNB	<
vxA>,<.WFMFL==-1
	
w		IFN <1-2>,<.$WM
w8FL==.$WMFL!<A>>
wX
			IFE <1-2>,<DE
wxFINE .$WMFL,<<WO.
xMFL>B8+[ITEXT (<A>)]>>
		>
<	_%] 
Z8ee
		IFB	<
ZXA>,<.WFMTY==0
		
Zx	IFN <0-2>,<.$WMT
[Y==0>>
		IFNB	<
[8A>,<.WFMTY==-1
	
[X		IFN <0-2>,<.$WM
[xTY==.$WMTY!<A>>
\
			IFE <0-2>,<DE
\8FINE .$WMTY,<<WO.
\XMTY>B8+[ITEXT (<A>)]>>
		>
<	_%kr 
jxfi
		IFB	<
kA>,<.WFNOD==0
		
k8	IFN <0-2>,<.$WNO
kXD==0>>
		IFNB	<
kxA>,<.WFNOD==-1
	
l		IFN <0-2>,<.$WN
l8OD==.$WNOD!<A>>
lX
			IFE <0-2>,<DE
lxFINE .$WNOD,<<WO.
mNOD>B8+[ITEXT (<A>)]>>
		>
<	_%p 
zxgY.WTOX.(.OM
{WTO,<A>,<B>,<C>,,<D>)B>,<C	_%xU 
bXf'
		IFB	<
bxA>,<.WFOBJ==0
		
c	IFN <0-2>,<.$WOB
c8J==0>>
		IFNB	<
cXA>,<.WFOBJ==-1
	
cx		IFN <0-2>,<.$WO
dBJ==.$WOBJ!<A>>
d8
			IFE <0-2>,<DE
dXFINE .$WOBJ,<<WO.
dxOBJ>B8+[ITEXT (<A>)]>>
		>
<	_%xr 
sg+
		IFB	<
s8A>,<.WFOCD==0
		
sX	IFN <0-2>,<.$WOC
sxD==0>>
		IFNB	<
tA>,<.WFOCD==-1
	
t8		IFN <0-2>,<.$WO
tXCD==.$WOCD!<A>>
tx
			IFE <0-2>,<DE
uFINE .$WOCD,<<WO.
u8OCD>B8+[ITEXT (<A>)]>>
		>
<	_%z@ 
}8go.WTOX.(.OM
}XWTO,<A>,<B>,<C
}x>,,<$WTFLG(WT.JOB),D>)LG(WT.JOB	_%|@ 
{Xg_
.WTOX.(.OM
{xWTR,<A>,<B>,<C>,<D>,<E>)<C	_&,z 
ZgE
	DEFINE	
Yx.EAWTO(SUFFIX),<$
xXWT'SUFFIX'	<>>
	ALLWTO				

		_&N 
_xf
		IFB	<
`A>,<.WFTXT==0
		
`8	IFN <2-2>,<.$WTX
`XT==0>>
		IFNB	<
`xA>,<.WFTXT==-1
	
a		IFN <2-2>,<.$WT
a8XT==.$WTXT!<A>>
aX
			IFE <2-2>,<DE
axFINE .$WTXT,<<WO.
bTXT>B8+[ITEXT (<A>)]>>
		>
<	_&N8 
]e{
		IFB	<
]8A>,<.WFTYP==0
		
]X	IFN <2-2>,<.$WTY
]xP==0>>
		IFNB	<
^A>,<.WFTYP==-1
	
^8		IFN <2-2>,<.$WT
^XYP==.$WTYP!<A>>
^x
			IFE <2-2>,<DE
_FINE .$WTYP,<<WO.
_8TYP>B8+[ITEXT (<A>)]>>
		>
<
t{P 
u[rQ ]>t2
u}P 
,MP *V=P .
P .JP .bP /P B&@P cGP )0 qp0M>l}Z6 %hs8			

	.X&CREF	a,	b,	c,	&(d

	.XCREF	.%T&HYPE,	.%FLGS,	.%DA&hTA,	.%HLPM,	.%DEF'M,	.%LST
	.XCREF'(	.$TYP,	.$FLGS,	.'H$DATA,	.$HLPM,	.$'hDEFM,	.$LST

	.(XCREF	.%BREA,	.%N((XT,	.%ERTN,	.%RTN(H,	.%DEFR,	.%SBCM
	.XCREF	.$BREA,	).$NXT,	.$ERTN,	.$)(RTN,	.$DEFR,	.$SB)HCM

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

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

	*hIFG <.%HLPM>,<d=+=d!CM%HPP!CM%SDH+(> 
						
	IFL +H<.%HLPM>,<d==d!+hCM%HPP>	
						

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

c:!	<INSVL.(,hb,PB.PDB)>!<INSVL-.(a,PB.FDB)> ;PD-(B, FDB
	EXP	d		-H	
	EXP	.$DATA			-h
IFN <.%HLPM!.%D.EFM!.%BREA>,<
	E.(XP	.$HLPM>			
IF.HN <.%DEFM!.%BREA>.h,<
	EXP	.$DEFM>	/		
IFN <.%BREA>,/(<
	EXP	.$BREA>		/H	

	a==.-c			/h

IFN <.%NXT!.%0DEFR!.%RTN!.%ERTN0(!.%SBCM>,<
	EXP	0H.$NXT >			
IFN <0h.%DEFR!.%RTN!.%ER1TN!.%SBCM>,<
	EX1(P	.$RTN >			
IFN1H <.%DEFR!.%ERTN!.1h%SBCM>,<
	EXP	.$2ERTN>			
IFN <.%2(DEFR!.%SBCM>,<
	2HEXP	.$DEFR>			
I2hFN <.%SBCM>,<
	E3XP	.$SBCM>			

3(	b==.-c			

I3HF2,<
	PURGE	.%TY3hPE,	.%FLGS,	.%DAT4A,	.%HLPM,	.%DEFM4(,	.%LST
	PURGE	.4H$TYP,	.$FLGS,	.$D4hATA,	.$HLPM,	.$DE5FM,	.$LST

	PUR5(GE	.%BREA,	.%NXT,5H	.%ERTN,	.%RTN,	.5h%DEFR,	.%SBCM
	P6URGE	.$BREA,	.$NX6(T,	.$ERTN,	.$RTN,6H	.$DEFR,	.$SBCM
6h
	PURGE	a,	b,	7c,	d
> 
	LIST,	d
> 
	LIST$YVqhPOINTr7,[ASCIZ\0\]NT 7,[A$YY qt0o*MJh1.- qn0M>iR5Iy qd0M$v=f= qj0+1M2 w
	.XCREF
	SALL
	XLIST
	(DEFINE .$TYP <0>
	.%TYPE==0
	DEF HINE .$FLGS <0>
	 h.%FLGS==0
	DEFIN!E .$DATA <0>
	.%!(DATA==0
	DEFINE !H.$HLPM <>
	.%HLP!hM==0
	DEFINE .$D"EFM <0>
	.%DEFM="(=0
	DEFINE .$LST"H <0>
	.%LST==0
"h	DEFINE .$BREA <0#>
	.%BREA==0
	D#(EFINE .$NXT <0>
#H	.%NXT==0
	DEFIN#hE .$ERTN <0>
	.%$ERTN==0
	DEFINE $(.$RTN <0>
	.%RTN$H==0
	DEFINE .$DE$hFR <0>
	.%DEFR==%0
	DEFINE	.$SBCM%(	<0>
	.%SBCM==0
	.CREF
CM==0qr0MHuiW' ~0T 1,O)0P $YVP $YYP .-P 5IyP f=P w
YpU{
	   ..AS
Z1==-<B>	
	IFDEF
Z0 .PSECT,<
	.IFN 
ZP..AS1,ABSOLUTE,<
Zp
	     C A,[-..
[AS1]>	
	.IF ..AS
[01,ABSOLUTE,<
		.
[P.AS2==0	
	  IFE 
[p<..AS1&^O777777B1
\7>,<
		..AS2==1	
\0
	    DI A,..A
\PS1>
	  IFE ..AS2
\p,<
	    ..OP(A,
]B,C)>	
	PURGE 
]0..AS1,..AS2>>
	I
]PFNDEF .PSECT,<
	
]p	..AS2==0	
	  IF
^E <..AS1&^O777777
^0B17>,<
		..AS2==
^P1	
	    DI A,.
^p.AS1>
	  IFE ..A
_S2,<		
	    ..OP
_0(A,B,C)>
	PURGE ..AS1,..AS2>:h Wy
	A|: 
LpU3
	  ..CX1
M==C
	IFDEF .PSE
M0CT,<
 	.IFN ..CX
MP1,ABSOLUTE,<
	  
Mp    CAMA B,[C]
N>
	.IF ..CX1,ABS
N0OLUTE,<	
		..CX2
NP==0	
	  IFE <..C
NpX1&^O777777B17>,<
O
		..CX2==1	
	 
O0   CAIA B,C>

OP	  IFE ..CX2,<		
Sp
	    CAMA B,[
TC]>
	PURGE ..CX1
T0,..CX2>>
	IFNDEF
TP .PSECT,<
		..CX
Tp2==0	
	  IFE <..
UCX1&^O777777B17>,
U0<
		..CX2==1	
	
UP    CAIA B,C>
Up
	  IFE ..CX2,<		
V
	    CAMA B,[
V0C]>
	PURGE ..CX1,..CX2>GE ..CX:&@ Ip\[
	..TSIZ J(..PST,C)
	.CASJ0E ..PST,<<
		MOVJPEM A,B>,<
		HRJpRM A,B>,<
		HRKLM A,B>,<
		DPK0B A,[POINTR (B,C)]>>INTR (B,:<;Y PZ
   DEFINpE ..CNS2 (NEW,OLD )<
	  OLD>			
	..CNS ()>			
	:L;Y 0Yy
   DEFINPE ..CNS (%%%)<
	p..CNS2 <%%%>,>

   DEFINE ..CNS20 (NEW,OLD)<
	DEFPINE ..CNS (%%%)<
	  ..CNS2 <%%%>,<OLD'NEW>>>
   OLD'NEW>>>
   :dH@ FP\A
	..TSIZ Fp(..PST,C)
	.CASGE ..PST,<<
		MOVG0E A,B>,<
		HRRGPZ A,B>,<
		HLRGpZ A,B>,<
		LDBH A,[POINTR (B,C)]>>INTR (B,:}i1 PX'
	A==<<<p-<B>>&<B>>&<1B<^L<B>>>>>&<1B<:~ 
_pV+
	  ..OP1
`==B
	IFDEF .PSE
`0CT,<
 	.IFN ..OP
`P1,ABSOLUTE,<
	  
`p    C A,[..OP1]
a>
	.IF ..OP1,ABS
a0OLUTE,<	
		..OP2
aP==0	
	  IFE <..O
apP1&^O777777B17>,<
b
		..OP2==1	
	 
b0   CI A,..OP1>
bP
	  IFE ..OP2,<		
bp
	    C A,[..O
cP1]>
	PURGE ..OP
c01,..OP2>>
	IFNDE
cPF .PSECT,<
		..O
cpP2==0	
	  IFE <.
d.OP1&^O777777B17>
d0,<
		..OP2==1	

dP	    CI A,..OP1
dp>
	  IFE ..OP2,<
e		
	    C A,[.
e0.OP1]>
	PURGE ..OP1,..OP2>GE ..;m 
/8c
	..PST==
/XC-FWMASK
	.IF0 
/x..PST,<
		POINT 
00,B,35>,<
		POINTR (B,C)>POI;| D0\'
		POP P,DP.NVA
		PURGE .NDpVA
		.NVR==.NVR-1
		.NVR==.NVR;\t C0\
		PUSH PCP,A
		DEFINE .NVCpB<A>
		.NVR==.NVR+1
		.NVR==.;] kP^i
	  IFGE kp<<<B>&777777>-..lBSIZ>,<
		PRINTXl0 ?WORD offset grelPater than $BUILD lpsize parameter>
m	  SET0. (\<B>,C,<A>)
	B>,;LH Xi
	IFNDEF 0C,<PRINTX C IS PNOT DEFINED
	  pA (<B>,D,FWMASK
)>	
	IFDEF C,<
0
	IFNDEF %C,<
	
P  A (<B>,D,C)
p>	
	IFDEF %C,<
	Y'%C (A,<B>,D,C)>>A,<B>,;LH 

	..NS==0
	IRP C,<..NS=..NS+1>	
	IFE 0..NS,<PRINTX ?EMPPTY STRUCTURE LISTp, A>
	IFE ..NS-1,<		
	  ..STR0 0(A,<B>,<C>,D)P>
	IFG ..NS-1,<	p	
	..ICNS			
	..CNS (<E (A,<B0>,,>) 
	IRP C,<P		
	  IFNDEF C,p<PRINTX C NOT DEFINED>
	  IFDEF 0C,<
	  IFNDEF %PC,<
	  ..CNS (<p,C,D>)>	
	  IFDEF %C,<
	  %C0 (..STR2,,D,C)>P 
	  ..CNS (<)>)p		
	  ..GCNS		
	  ..ICNS		
	  .0.CNS (<E (A,<BP>>) 
	  IFNDEF %pC,<
	  ..CNS (<,C,D>)>	
	  IF0DEF %C,<
	  %CP (..STR2,,D,C)>p>> 
	..CNS (<,,)>)		
	..GCNS>);LI 0Y+
	..CNS (<,C,B>).CNS (;LI pYA

	IFDIF <D><F>,<
	  IFN0B <D>,<
	    AP (<B>,D,..MSK)	p
	    IFNB <F>,<PRINTX C AND E0 ARE IN DIFFERENTP WORDS>>
	  ..MSpK==0>		
	IFNB <F>,<
	  ..MSK=..MSK!<E>>MSK=..;LJ PYQ

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

	IFDIF <pD><F>,<	
	  IFNB <D>,<
	    I0FNB <F>,<		
		PA1 (B,D,..MSK)>p 
	    IFB <F>,<		
		A2 (B,D0,..MSK)>> 
	  ..PMSK==0>		
	IFNB p<F>,<
	  ..MSK=..MSK!<E>>MSK=;$\Y 
68c?
  IF1,<
5x
    PRINTX ? Err
6or in "A"
    D
6hEFINE X(NAM,ERR) 
78<IFN ..X'NAM&..TX
7XEF,<PRINTX ? ERR>
7x>
    $TX$ERR>

    $TX$ERR>
;$^ 
9Xcu

    ..
9xTXF==0				
    .
:.TXB==0				
    
:8..TXP==0				
   
:X ..TXEG==<..TXEF=
:x=0>			
    IRPC 
;A,<				
	..TXC=
;8=ASCII\A\_-35		
;X
	IFN ..TXB,<IFN 
;x..TXB-..TXC,..CNS
<(<A>)
		   IFE 
<8..TXB-..TXC,..TXB
<X==0>
	IFE ..TXB,
<x<..TXQ(<A>,\..TX
=F)>>	
    ..TXC1
=8				
    IFN ..T
=XXB,<IFN <..TXB-"^
=x">,<..TXER(PEA)>>
>
    ..TXEF==..T
>8XEF!..TXEG		
   
>X IFN ..TXEF,<..TERR<A>>
,<..TE;&( 
Had..TXA(.TQCH0)..TXA(.TQC;&) 
Xam..TXER(IQU)..TXER(IQU;&) 
ah..TXER(IQU)..TXER(IQU;&0 
a`..TXA(.TQCHA)..TXA(.TQC;&5 
HaT..TXC0(\".CHLFD).TXC0(\".;&5 
Ha\..TXC0(\".CHVTB).TXC0(\".;&6 
aX..TXC0(\".CHFFD).TXC0(\".;&6 
aP..TXC0(\".CHCRT).TXC0(\".;&@ S]/
	..TSIZ S0(..PST,C)	
	.CASPSE ..PST,<<
		SESpTZM B>,<	
		HLLTZS B>,<	
		HRRZT0S B>,<	
	  ..TSTPAC (..ACT,B)	
	Tp  .IF0 ..ACT,<
	U	$CALL .ZERO	
		U0LSTOF.
		JUMP [PUPOINTR(B,C)]
		UpLSTON.>,<
		..TX (Z,B,C)>>>TX;&81 X!
	IFNDEF 0.PSECT,<
	A==0	P		
	..TSA1==<Z pB>		
	  IFE ..TSA1&^O7777777777600,<A==1> 
	>
	IPFDEF .PSECT,<
	pA==0			
	..TSA1==<Z B>		
	.IF .0.TSA1,ABSOLUTE,<	P
	  IFE ..TSA1&^pO777777777760,<A==1>> 
	PURGE ..TSA1>
	PURGE ..;&:= 
PX
	A==3		
p	
	IFE <B>+1,<A=0>	
	IFE <B>-0^O777777,<A==1> P
	IFE <B>-^O777777B17,<A==2>7;' 
epW=
   ..TX1
f==C			
IFDEF .P
f0SECT,<
   .IFN .
fP.TX1,ABSOLUTE,<

fp	TDA B,[C]>
 
g0  .IF ..TX1,ABSOL
gUTE,<		
	..TX2==
gP0		
	IFE <..TX1&
gp^O777777B17>,<
	
h  ..TX2==1		
	  
h0TRA B,..TX1>
	
hPIFE ..TX2,<		
	I
hpFE <..TX1&^O77777
i7>,<
	  ..TX2==1
i0		
	  TLA B,(.
iP.TX1)>>
	IFE ..T
ipX2,<		
	  IFE <<
j..TX1>B53-^O77777
r07>,< 
	    ..TX3
rP (A,B)>>	
	IFE
rp ..TX2,<		
	  TD
sA B,[..TX1]>	

s0	PURGE ..TX1,..TX
sP2>>
IFNDEF .PSEC
spT,<
	..TX2==0		
t
	IFE <..TX1&^O77
t07777B17>,<
	  ..
tPTX2==1		
	  TRA
tp B,..TX1>
	IFE 
u..TX2,<		
	IFE <
u0..TX1&^O777777>,<
uP
	  ..TX2==1		

up	  TLA B,(..TX1
v)>>
	IFE ..TX2,<
v0		
	  IFE <<..TX
vP1>B53-^O777777>,<
vp 
	    ..TX3 (A
w,B)>>	
	IFE ..T
w0X2,<		
	  TDA 
wPB,[..TX1]>	
	PURGE ..TX1,..TX2>;'` 
xWS
	IFIDN <
x0A><Z>,<		
	  ..
xPTX2==1
	  ANDI 
xpB,^-..TX1>	
	IFI
yDN <A><O>,<		
	
y0  ..TX2==1
	  OR
yPCMI B,^-..TX1>	
yp
	IFIDN <A><C>,<
z		
	  ..TX2==1

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


	..TXE
 F==0			

IFNDEF
 8 A,<..TXER(UQU)>
 X		
IFDIF <B><>,
 x<IRPC B,<.IFN <
!B>,NUMERIC,..TXER
!8(IWA)>>
IFNB <C
!X>,<IFNDEF .TXTJC
!x,<..TXER(IJA)>>
"IFDEF  A,<
  IF
"8E <A_-^D18>,<IFD
"XIF <EFBCD><>
"x,<..TXER(ANA)>>
#  IFE <1-<A_-^D1
#88>>,<IFDIF <BC
#XD><>,<..TXER(JNA)
#x>>
  IFE <2-<A_
$-^D18>>,<IFIDN <
$8EF><>,<..TXER(AD
$XS)>>>

      IF
$xE ..TXEF,<
	IFID
%N <B><>,<..TXWD=
%8=<..TXJU==<..TXFC
%X==0>>>
	IFDIF <
%xB><>,<
	  IFE <^
&D<B>>,<..TXWD==<
&8..TXJU==<..TXFC==
&X0>>>
	  IFN <^D<
&xB>>,<..TXWD==^D<
'B>
	    IFNB <
'8C>,<..TXJU==.TXTJ
'XC>
	    IFB  <
'xC>,<..TXJU==.TXTJ
(L
	      IFE <A
(8-.TQOCT>,<..TXJU=
(X=.TXTJR>
	      
(xIFE <A-.TQDEC>,<
)..TXJU==.TXTJR>>
)8
	    IFB  <D>,<
)X..TXFC==" ">
	  
)x  IFNB <D>,<..TX
*FC=="D">>>

	I
*8FB  <EF>,<..TXP
*XT==0>
	IFNB <E
*xF>,<..TXPT==1>
	
+IFE <..TXWD+..TXP
+8T>,<
	    EXP FL
+XD(A,TXT.FN)>
	I
+xFN <..TXWD+..TXPT
,>,<
	    EXP FLD
,8(A,TXT.FN)+FLD(.
,X.TXJU,TXT.JU)+FLD
,x(..TXWD,TXT.WD)+F
-LD(..TXFC,TXT.FC)
-8+TXT.AD
	    PNTR(E,F)>>

T;'h 
P8e
    IFE 
PX..TXP,<			
	..IC
PxNS			
	..CNS<ASC
QIZ\>		
	..TXP==1
Q8>		
    ..CNS<A
QX>			
    ..TXF==
Qx0			
    ..TXB=="^"
    ..TXB==;'h 
R8e

    IF
RXN ..TXP,<			
	..
RxCNS<\>		
	EXP <F
SLD(.TQCHT,TXT.FN)
S8+[..GCNS]>>
    ..TXP==0>
    ;'	9 
88cI
    ..TX
8XEF==..TXEF!..XA	
8x	
    ..TXF==0		
9		
    ..TXB=="^"
    ..TXB=="^;'
  
?cy..TXQB(<A>)..TXQB(<;'
( 
?Xd

    IF
?xN ..TXC-"^",<..TX
@C0(<A>)>		
    
@8IFE ..TXC-"^",<..TXF==1>-"^",<..;'
( 
@xd#

    IF
AE ..TXC-"^",<..TX
A8C0(<A>)>	
    I
AXFN ..TXF,<			
	.
Ax.TXF==0		
	IFDEF
B .TQCHA,<		
	  
B8  IFDEF ..TQMA,.
BX.TQMA 
	    IFN
Bx <.TQCHA_-^D18>,
C<..TXF==2>>>
   
C8 IFE ..TXF-2,<..T
CXXC1(<A>)	
	..IC
CxNS			
	..CNS<..T
DXA(.TQCHA,>>	
 
D8   ..TXEG==..TXEG!..TXEF==..TXEG;'
) 
Dxd5
    ..TX
EF==3				
    IFG
E8E ..TXC-"0",IFLE 
EX..TXC-"9",<..TXF=
Ex=2>
    IFE ..TX
FF-2,<..CNS(A)>		
F8
    IFE ..TXF-3
FX,<..CNS<,>		
		 ..TXQ3(A)>
		 ;'
) 
GdI
    ..TX
G8F==4				
    IFE
GX ..TXC-"/",<..TXF
Gx==5>		
    IFE .
H.TXC-"[",<..TXF==
H85>		
    IFE ..T
HXXF-4,<..CNS<A,>>
Hx		
    IFE ..TXF
I-5,<..CNS<,,>		
		 ..TXQ5(A)>
;'
* 
IXd_
    ..TX
IxF==4				
    IFE
J ..TXC-"/",..TXF=
J8=5		
    IFE ..T
JXXC-"[",..TXF==5		
Jx
    IFE ..TXF-5
K,<..CNS<,>		
		 
K8..TXQ5<A>>		
  
KX  IFE ..TXF-4,<..
KxCNS<A,>		
		 ..TXF==5>	
		 ..;'
* 
L8dq
    ..TX
LXF==6				
    IFE
Lx ..TXC-"/",..TXB=
M="/"		
    IFE .
M8.TXC-"[",..TXB=="
MX]"
    IFE ..TXB
Mx-"]",..CNS<[>		
N    IFE ..TXB,..TXF==5 ..TXB,..T;'
+ 
NXd
    ..TX
NxF==0			
    IFE 
O..TXC-"]",..CNS<]
O8>	
    ..CNS<)>	
OX		
    ..GCNS			
Ox
    ..TXEG==..TXEG!..TXEF==..T;DQ @;DPQ ;EPQ ;E:Q  ;EpQ ;E+PQ ;F	0Q ;F\:Q @
0P 
@P 
PP 
`P d  /pZ
	.ACV2 (A)
	.ACV2 (d@ 00[	
	A=.FPA0PC+..NAC		
	IFB <0pB>,<..NAC=..NAC+11>
	IFNB <B>,<..NAC=..NAC+B>.d` 1P[
	IFG A-1p.NPAC,<PRINTX ?TO2O MANY ACS USED>
	IFLE A-4,<
	22P $CALL .SAVEA>	
	IFG A-4,<
	  $CALL .SAVE8>  
 X0^
	  IFIDNXP <A><.>,<
	    XpXMOVEI .SAC,B	
Y	    PUSH P,.SAC
	  >
	  IFDIF <YPA><.>,<
	  .IFAYpTM <A>,.BLF4	
	Z  .BLF1==0		
	  Z0IFN .BLF4,<		
	 ZP   .IF %A,MACRO,Zp<	
		.BLF1==1>	
	  >
	  IFNB <[0B>,<
		.BLF1==1>[P	
	  IFN .BLF1,<[p		
	    LOAD .SA\C,A,B
	    PUS\0H P,.SAC
	  >
	\P  IFE .BLF1,<		;I\pF WASN'T A STRUCT]URE REF,
	    IF]0N .BLF4,<		
	   ]P  .BLF2==<<Z A>&]p17B17>-<P>B17 
	^      .IF .BLF2,A^0BSOLUTE,< 
	^p  ^P   IFE .BLF2,<		
	       .BLF1==1_		
	       .BLF3_0==<Z A>&777777
_P		PUSH P,.BLF3-.._pNA(P)>>>> 
	  IF`E .BLF1,<		
		PU`0SH P,A>>	
	  ..NA=..NA+1
	  ..
	 Wp]?
	.BCAL1 A
	.BCAL1 
| 	o@N~
	XLIST
	o`	.ORG 0
	LIST
.ORG 0
	LIST

=Z e0^+$CALL	I%INTA$CALL	I%IN9  
}PWw
	..CSN==
}pA
	..CSC==0
	I
~RP B,<
	IFE ..C
~0SN-..CSC,<
	  ST
~POPI
	  ..CAS1 (
~pB)>
	..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 P]
	..PST==P0C-FWMASK
	.IF0 PP..PST,<
		SOS BPp>,<	
		$CALL .SOQS	
		LSTOF.
		JQ0UMP [POINTR(B,C)]
		LSTON.>C} 
V8gI
	.OPCD==
y.OPCD+1
	WO.A==.OPCD
G),<
		| 	phO
	XLIST
	q	.....X=.
	.ORG
	.ORG 0
	REPEAT	qH .....X,<EXP 0>
	qh	PURGE .....X
	.ORG
	LIST

	.v=H '0Z=
	IRP A,'P<
	  .ENSV2 (A)>	  .ENSV2 (A)v=I (ZA
	.ENSV3 (A)
	.ENSV3 v=I (PZE
	DEFINE A<....U>EFINE [Zp $^p $j6p $lWP %I7p %KqP %h6p %h:P %i:P %lzp &:p &
p &=p LrP LzP L{P L:P L+P L,}P L<RP 
L<\P L=P 	LHqP LMP LMP L^P LiQP Ll}P M
}PlMP MH2P MX<P MX|P 	M[rP M]P 
NpP N
WPJN)VP\N)WP N+9P N,}P N<P N=P 
Ni9P 
P `P &2 
|0Wi
	..IFT==
|PA		
	IFE ..IFT,
|p<
	B
	..IFT==0
}>		
	IFN ..IFT,<
	C>N ..IFT,<&4 `p^
	IRPC Aa,<
	B==0
	IFGEa0 "A"-"A",<IFLE "aPA"-"Z",<B=1>> 
	IFGE "A"-"0",<bIFLE "A"-"9",<Bb0=1>>
	IFE "A"-"bP%",<B=1>
	IFE "bpA"-"$",<B=1>
	cIFE "A"-".",<B=c01>
	IFE B,<STOPI>>IFE B,<STOP&t<H M\s
	..PST==M0C-FWMASK
	.IF0 MP..PST,<
		AOS BMp>,<	
		$CALL .AONS	
		LSTOF.
		JN0UMP [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 
=PSm<A>B<^D70-POS(B)>B<^D70N
0PO 
	SYSPRM	C	
	IFG	.PID,<MX.PID==A>	
<MX.PID=O%=H #0Z
	.STKV2 (A)
	.STKV2 O%=I #pZ)
	IFB <B$>,<..STKN==..STKN$0+1>
	IFNB <B>,<$P..STKN==..STKN+B$p>
	..STKQ==..STK%N+1
	.STKV3 (A,\..STKQ)V3 (A,O%=I %PZ7
   IFDEF%p A,<.IF A,SYMBO&L,<PRINTX STKVAR &0A ALREADY DEFINE&PD>>
	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 
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  +0Z[
	.TRV2 (A)
	.TRV2 (Sd@ +pZe
	.TRV3 (,A,\..NV)	
	IFB ,0<B>,<..NV=..NV+1,P>
	IFNB <B>,<..NV=..NV+B>,<..Sd` -Zs
   IFDEF-0 A,<.IF A,SYMBO-PL,<PRINTX TRVAR -pA ALREADY DEFINED.>>
	DEFINE A<^O.0B(.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 _%~ 
xh
		$CALL		
		LSTOF.
		JRST	g		
		$WTRST			
	IFBA<A>,<$WTMTY (
	IFNB<<TTYP (<B>)
	IFNBX<C>,<$)>	
	IFNBD<D>,<$WTOBJ
	IFNB>,<$WTACK (<E
		IRP	F,<
		$WTBLD			
	g:!
	LSTON.  g:!
	LSTON. kPP >}{woP