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

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

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

x
,UZ@P C4@ Y<
	..NAC==(0		
	IRP A,<
	H  .ACV1 (A)>		
	.ACV3 (\..NAC)C' 
?Sx..AS(A,B,ADD,SUB)(A,BC, 
 PRLSH A,-^D9LSH A,-^DC2f}

<cs
	.EAWTO(

<0MTY,0)
	.EAWTO(T

<PYP,2)
	.EAWTO(TX

<pT,2)
	.EAWTO(OBJ

=,0)
	.EAWTO(ACK,

=00)
	.EAWTO(FLG,1

=P)
	.EAWTO(NOD,0)

=p
	.EAWTO(JBN,0)

>
	.EAWTO(ACD,0)

>0	.EAWTO(OCD,0)
	.EAWTO(MFL,1)
C:' 
cHV
	TXZ A,<^-<B>>TXZ A,CHuI7Q xCHvN8P'CJ9ip CJ9jp CJ9l}p E
	..NA==0>h			
	IRP B,<
	?  .BCAL2 B>		
	?(PUSHJ	P,A		
	AD?HJSP	P,-..NA		
   	P,-..NA		
  E2"@ Yh]T
	  IFE ZB,<..TA==0>
	  Z(IFN B,<EXP ..TAZH
		    PURGE ..TA>
	PURGE ..TE@tP'E@vyQ ~E@v:=Q |F;z:Q @G@ 
8S@
	    ..CX(,A,B)   ..CGD 
;HS\
	    ..CX(A,A,B)  ..CGDP 
9HSL
	    ..CX(E,A,B)  ..CGDp 
:SP
	    ..CX(G,A,B)  ..CGDy  
:HST
	    ..CX(GE,A,B) ..CGE@ 
8HSD
	    ..CX(L,A,B)  ..CGEI  
9SH
	    ..CX(LE,A,B) ..CGE` 
;SX
	k..CX(N,A,B)  ..CGH 

	OLST

	X	CRE		
/p	X	GEN		
	X	PRT	
	X	CLS		
	X	A		
	X	USW		
	0X	SPL		
	X	SIZ		
	X	MOD		
	X	CH
	X	ACT		
	X	CRY		
	X	DTY		
	X	DTO		
	X	DCC
	X	BSZ		
	X	SZ		
	X	HSZ		
2	X	RFM		
	X	RFO	
	X	RSZ		
	X	B		
	X	FFB		
	pX	ACW		
	X	RMS		
	X	MCY		
	X	CT
	X	NSB		

	  LSTON.


G"\Y N}

	IF1, N(<%%EDT==AEDT>	
NH
	IF2, <IFN <%%ENhDT-AEDT>,<
		PROINTX ? Edit NumbeO(r Doesn't Match GOHLXVER in GLXA
	Oh	A$WHO(\AEDT)>	P
		A$NOTE		
	IP(NTERN AEDT		
	IPHNTERN LODLEV		
;Ph	PURGE %%EDT> ;END IF2

[ 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 nPy
	IFNB <>np,<
	PRINTX  (Froom GLXVER)
	> ;END IFNB 
	G>hMt mq
	PRINTX m0GLXVER	GLXCOM EdimPt(63) by DPM on 9mp-Aug-88
	PRINTX	n    	GLXCOM	Actual Edit(A)
	G>lYP G>vC@ 	`(N
LALL
PAGE	`H; (A Continued o	`hn next page)
SAL	aL; (A Continued 	a(from previous page) previous pagG?T 	XM@ASCIZ \
COPYRIGHT Z \
CGHt;rP GHtkP GHv	P GHv)9P GHv:=P I!k7P I!k<P ImP I$P`R*IIY{P`R*|I  7[>
	IFNB <7(B>,<..STR0 (.DECR7H0,,<B>,A)>
	IF7hB  <B>,<SOS A>  <B>,<SOS A>I6= 
mHW
	A==<-1
mhB<C>+1B<C-D>> 
n
	IF1,<IFDEF %A
n(,<PRINTX ?A ALRE
nHADY DEFINED>>
	D
nhEFINE %A (OP,AC,
oY,MSK)<	
	IFDIF 
o(<Y><>,<
	OP (<AC
oH>,B+'Y,MSK)>
	I
ohFIDN <Y><>,<
	OP
p (<AC>,B'Y,MSK)>>AC>,B'Y,MSK)>I'7 
AHT

..OP(A,B,DIV)..OP(A,BIOH1 ]Xuw
	IFB <D]x>,<
	XWD	[ASCIZ\^C\],[XWD B,A]>^8
	IFNB <D>,<
	^XXWD	[EXP CM%FW!D^x
		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

lji
	ERR	EOF

l0,<End of file>

lPERR	IFP,<Illegal

lpfile position>

mERR	FDE,<File dat

m0a error>
	ERR	FN

mPD,<File is not on

mp disk>
	ERR	NSD,

n<No such device>

n0
	ERR	FCF,<File c

nPheckpoint failed>

np
	ERR	SLE,<A sys

otem limit was exc

o0eeded>
	ERR	IFS,

oP<Illegal file spe

opcification>
	ERR

p	FNF,<File not fo

p0und>
	ERR	PRT,<P

pProtection violati

ppon>
	ERR	DNA,<De

qvice not availabl

q0e>
	ERR	NCE,<No

qP"current" entry i

qpn list>
	ERR	NMA

r,<No IPCF message

r0 is available>

rPERR	FDS,<Files ar

rpe on different st

sructures>
	ERR	F

s0AE,<File already

sPexists>
	ERR	USE

sp,<Unexpected syst

tem error>
	ERR	N

t0SP,<No such pid>

tP
	ERR	BOL,<Beginn

tping of list reach

ued>
	ERR	EOL,<En

u0d of list reached

uP>
	ERR	RQF,<Rece

upivers quota full>

v
	ERR	SQF,<Sende

v0rs quota full>

vPERR	NRE,<No remem

vpbered entry>
	ER

wR	TBF,<Table is f

w0ull>
	ERR	EIT,<T

wPable entry alread

wpy exists>
	ERR	I

xTE,<Invalid table

x0 entry>
	ERR	QEF

xP,<Quota exceeded

xpor disk full>
	E

yRR	ARG,<Invalid a

y0rgument specified

yP>
	ERR	IFN,<Inva

yplid function spec

zified>
	ERR	IJN,

z0<Invalid job numb

zPer specified>
	E

zpRR	RAD,<Invalid r

{adix specified>

{0	ERR	NUM,<Invalid

{P numeric argument

{p>
	ERR	IDT,<Inva

|lid date field sp

|0ecified>
	ERR	IT

|PF,<Invalid time f

|pield specified>

}	ERR	DOR,<Date/ti

}0me out of range>

}P
	ERR	DTM,<Value

}pmissing in date/t

~ime>
	ERR	MDD,<M

~0issing day in dat

~Pe/time>
	ERR	DFZ

~p,<Field zero in d

ate/time>
	ERR	M

0DS,<Mnemonic date

P/time switch not

pimplemented>
	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>
	ERR	ICN,<Invalid
	ERR	NQS,<Iotedtstr
P	ERR	AMB,<Ambiguo
	ERR	NMT,<Datch tok
	ERR	CMA,<Coven>
	ERR	NNC,<Nodeenam
	ERR	INT,<Node term
inator "::" must 
0be specified>
	E
PRR	NSN,<Unknown n
pode name>
	ERR	IInvalidopath 
	PERR	IUS,<Invalido

n>
	ERR	DGS,<Dev

0ice name may not

Pexceed 6 characte

prs>
	ERR	DNE,<Une>
	ER	DIO,<Device ca
	ERR	BDvalid>date/t
	ERRBS,<Fieldetooll
	ERR	TMTandetoollon
	ERR	BDS,<default s
	ERR	BTF,d table fo
	ERR	TME,<eumust>be
P	ERR	TMN,<Noetime
	ERR	TMA,<Tialready
	ERR	DVviceutermina
	ERR	NArgument bloc
	ERR	TLUinalolocati
	pERR	FIO,<File is 
	ERR	FBle being mod
	ERR	WLK,locked dev
	ERR	CSD,<Cersede a
	ERRDD,<Cannottdele
	ERR	SNb-fileudirec
	ERR	ESL,<Search 
	PERR	LVL,<SFDpleve
	ERR	CCWotacreate/w
	ERR	FCU,<Cae file>
	ERR	ENQ,<FileingeE
	ERR	SWS,<Softock o
	ER	DER,<Hardware d
	ER	DTE,<Hard data 
	ERR	BKT,too large>
	ERR	IPP,<Non-e
	ER	TRN,<RIBeorotra
	ERR	ILC,<Illega da
	ERR	NFte/timeumust
	ERR	NPS,<Datee in 
	ERR	UUnrecognizedm
	ERR	UDN,<Unrame in
	ERRFA,<Illegal fil
	ER	FAI,<Fileiattri
	ERR	CEI,<Canisable
	ERR	ENF,<Linky not
	ERR	NSLuch linked 
	ERR	NFP,<pages>
	ERR	NPI,<NoPfreee
	ERR	IFdirect	filer
	ER	NDN,<Nullndevic
'	ERR	PWA,<PID wen
	ERR	CGPt get a PID
	ERR	IND,<Invae>
	0ERR	IAC,<Invalid 
	pERR	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` o@_
	IFIDN <o`BC><>,<EXP <A>p>
	IFDIF <BC><p >,<
	 IFE <A+1>p@,<<POINT 7,C>>
p`	 IFN <A+1>,<
	q   IFIDN <C><>,<q EXP <A,B>>
	  q@ IFDIF <C><>,<EXq`P <A,B,C>>
	>>A,B,C>>
	>KbN@ 	`Kc  	]hMpIRP A,<
	^	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 q
	IFNB <>q0,<
	PRINTX  (FroqPm GLXVER)
	> ;END IFNB 
	M&`Mt oP
	PRINTX opGLXVER	GLXFIL Edipt(120) by LWS on p01-Aug-88
	PRINTXpP	    	GLXFIL	Actual Edit(A)
	M&dYP (M2  
%(R*<<<A>B<POS(<B>)>>&<B>>M>h1p M>hrp M>h{p M>iRp M>k=p M>l}p M>m9p MHuiWQ @MHv
Q  MJh1p MJhrp MJip MJiVp MJk=p MJlsp MJl}p MJm9p MR4zP MR6L`P MRV>9P MS.[yQ MVpKW 0
	IFNB <>P,<
	PRINTX  (Fropm GLXVER)
	> ;END IFNB 
	MVpMt ~p
	PRINTX GLXVER	GLXFUN Edi0t(2) by BAH on 14P-Nov-86
	PRINTX	p    	GLXFUN	Actual Edit(A)
	MVtYP M^luQ O2|  	^HM~IRP A,<
	^h	IF2,<IFDEF A,<.	_IFN A,EXTERN,<IN	_(TERN A>>
	     	_HIFNDEF A,<EXTERN	_h A>
	Q SUPPRESPA>>FlYSUPPRO3DYPFBO3EKrPfBO3EZ7PO3FLQ St\Yp Stkp SuZp SulQ Su}:p Sv
1p Sv

Sp Sv8;Q Sv>@p SNn 
AT..OP(A,B,IDIV).OP(A,BSNp @S7-N 
@T..OP(A,B,IMUL).OP(A,BS:  4[&
	IFNB <4(B>,<..STR0 (.INCR4H0,,<B>,A)>
	IF4hB  <B>,<AOS A>  <B>,<AOS A>S:HKW pC
	IFNB <>,<
	PRINTX  (Fro0m GLXVER)
	> ;END IFNB 
	S:HMt 0;
	PRINTX PGLXVER	GLXINI Edipt(23) by  on 27-Jun-84
	PRINTX	  0  	GLXINI	Actual Edit(A)
	S:LYP 	S;k 
'hR><<<A>B<POS(<B>)>>&<B>>S; KW ipS
	IFNB <>j,<
	PRINTX  (Froj0m GLXVER)
	> ;END IFNB 
	S; Mt h0K
	PRINTX hPGLXVER	GLXINT Edihpt(117) by KDO on i24-May-89
	PRINTi0X	    	GLXINT	Actual Edit(A)
	S;!kP S;!k<P S;$YP 'S? 
cV
	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 {0_
	IFNB <>{P,<
	PRINTX  (Fro{pm GLXVER)
	> ;END IFNB 
	M&`MtSBMt ypW
	PRINTX zGLXVER	GLXIPC Ediz0t(77) by LWS on 2zP4-Aug-87
	PRINTXzp	    	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.	r@XCREF
	..TEXT<Ar`>		
	  EXP	0		
	LSTON.
	0		
Uv98Q |U$@

pkE

	OLST

	XJJNO,.JI,GJBJNO>	
	X-TNO,.JITNO,<
	XUSR,.JIUNO,.GTPPN
	X,CDN,.JIDNOH>	
	pXGPRG,.JIPNM,.GTP
	XPCJN,.JICJBCJB>	
	XTBAT,.JIBCH,.G
	XIJLT,.JTJLT		
	X,LOC,<-1,,GJBLOC>
	pXJRTM,.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 }ps
	IFNB <>~,<
	PRINTX  (Fro~0m GLXVER)
	> ;END IFNB 
	[lYW
 Mt |0k
	PRINTX |PGLXVER	GLXKBD Edi|pt(103) by LWS on }24-Aug-87
	PRINT}0X	    	GLXKBD	Actual Edit(A)
	W
$YP !WNH1 _8v
	IFB <C_X>,<
	XWD	[ASCIZ\_xB\],A>
	IFNB <`C>,<
	XWD	[EXP `8CM%FW!C
		ASCIZ\B\],A>
SCIZY"luQ xY&i1 	0Q}

	  LST	POF. XCREF

	CDO	p	OTSINI			
	CDO	
    			
	CDO	.ZP
0AGA
	CDO	.ZPAGN
P
	CDO	.ZCHNK
	CD
pO	.SAVE1
	CDO	.S
AVE2
	CDO	.SAVE3
0
	CDO	.SAVE4
	C
PDO	.SAVET
	CDO	.
pSV13
	CDO	.SV14

	CDO	.SV15
	CDO
0	.SV16
	NT	.RETT
P
	NT	.RETF
	CDO
p	.RETE
	CDO	.AOS
		
	CDO	.SOS		

0	CDO	.ZERO		
	NT
P	.POPJ		
	CDO	.S
pTOP		
	CDO	.SAVE
8		
	CDO	.STKST	
0	
	CDO	.TRSET		
P
	NT	.POPJ1		
	C
pDO	.UD2SC		
	CDO
	.SC2UD		
	CDO	.
0CPUTY		
	CDO	.DI
PE		
	CDO
	CDO

p
	CDO			
	CDO	C
%RPRM
	CDO	C%INT
0R
	CDO	C%SEND
	
PCDO	C%RECV
	CDO	
pC%BRCV
	CDO	C%RE
L
	CDO	C%CPID
	
0CDO	C%KPID
	CDO	
PC%SPID
	CDO	C%MA
pXP
	CDO	C%PIDJ

	CDO	C%PIDH
	CDO
0	C%SIDX
	CDO
	C
PDO
	CDO

	CDO	
p      			
	CDO	F
	%IOPN
	CDO	F%AOP
	0N
	CDO	F%OOPN
	
	PCDO	F%IBYT
	CDO	
	pF%OBYT
	CDO	F%IB

UF
	CDO	F%OBUF


0	CDO	F%REL
	CDO	

PF%DREL
	CDO	F%RR

pEL
	CDO	F%REW
	
CDO	F%POS
	CDO	F
0%CHKP
	CDO	F%INF
PO
	CDO	F%FD
	CD
pO	F%REN
	CDO	F%D

EL
	CDO	F%FCHN

0	CDO
	CDO
	CDO

P
	CDO
	CDO
	CDO

p
	CDO
	CDO
	CD
O	FUNCT.			

	C
0DO	      			
	CD
PO	M%ACQP
	CDO	M%
pRELP
	CDO	M%IPSN

	CDO	M%NXPG
	C
0DO	M%IPRC
	CDO	M
P%IPRM
	CDO	M%AQN
pP
	CDO	M%RLNP
	
CDO	M%CLNC
	CDO	
0M%FPGS
	CDO	M%GM
PEM
	CDO	M%RMEM

p	CDO
	CDO
	CDO

	CDO
	CDO
	CDO
0
	CDO	M%GPAG
	C
PDO	M%RPAG
	CDO

p	CDO
	CDO
	CDO

	CDO
	CDO
	CDO
0
	CDO

	CDO	  
P    			
	CDO	T%T
pEXT
	CDO	T%TTY

	CDO
	CDO
	CDO
0
	CDO
	CDO
	CDO
P
	CDO
	CDO
	CD
pO
	CDO

	CDO	 
     			
	CDO	L%
0CLST
	CDO	L%DLST
P
	CDO	L%CENT
	C
pDO	L%CBFR
	CDO	L
%DENT
	CDO	L%NEX
0T
	CDO	L%FIRS
	
PCDO	L%LAST
	CDO	
pL%PREV
	CDO	L%PR
EM
	CDO	L%CURR

0	CDO	L%RENT
	CDO
P	L%SIZE
	CDO	L%A
pPOS
	CDO
	CDO

	CDO
	CDO
	CDO
0
	CDO
	CDO
	CDO
P

	CDO			
	CDO
p	I%NOW
	CDO	I%EX
IT
	CDO	I%ION
	
0CDO	I%IOFF
	CDO	
PI%SLP
	CDO	I%INT
p1
	CDO	I%INT2
	
CDO	I%INT3
	CDO	
0I%TIMR
	CDO
	CD
PO
	CDO	I%SOPR
	
pCDO	I%WTO
	CDO

	CDO	I%HOST
	CDO
0	I%JINF
	CDO	I%C
PJOB
	CDO	I%KJOB
p

	CDO	S%U2DT		

	CDO	S%DT2U
	CD
0O	S%DATI
	CDO	S%
PSIXB
	CDO	S%CMND
p
	CDO	S%TBLK
	C
DO	S%SCMP
	CDO	S
0%ERR
	CDO	S%INTR
P
	CDO	S%EXIT
	C
pDO	S%TBAD
	CDO	S
%TBDL
	CDO	S%NUM
0I


	CDO	K%RCO
PC			
	CDO	K%WCOC
p
	CDO	K%SUET
	C
DO	K%STYP
	CDO	K
0%TXTI
	CDO	K%SOU
PT
	CDO	K%BOUT
	
pCDO	K%BIN
	CDO	K
%BACK
	CDO	K%TPO
0S
	CDO	K%BUFF
	
PCDO	K%FLSH
	CDO	
pK%OPEN
	CDO	K%EC
HO
	CDO
	CDO
	
0CDO
	CDO
	CDO

P	CDO
	CDO
	CDO
	  LSTON.
Y:W 
0W
	IFNB <>
P,<
	PRINTX  (Fro
pm GLXVER)
	> ;END IFNB 
	Y:XMt pO
	PRINTX 	GLXVER	GLXLNK Edi	0t(11) by AWC on 2	P9-Jan-82
	PRINTX	p	    	GLXLNK	Actual Edit(A)
	Y:\YP Y>

@ -HZr
	IFNB <-hC>,<..STR0 (..LDB.,A,C,B)>
	IFB.(  <C>,<MOVE A,B>C>,<MOVE A,Y>%I;P YO%GP YO%yG 	ahN
	IFNDEF 	bLSTIN.,LSTIN.==0		b(	
IFE LSTIN.,<
	bH	IFIDN <XCREF><A	bh>,<.XCREF>	
		  	c XLIST>		
	LSTIN.==LSTIN.+1STINYO%{G 	cHN"
	IFG LST	chIN.,LSTIN.==LSTIN	d.-1	
	IFLE LSTIN	d(.,<.CREF		
		      LIST>
		   [KW l0g
	IFNB <>lP,<
	PRINTX  (Frolpm GLXVER)
	> ;END IFNB 
	[Mt jp_
	PRINTX kGLXVER	GLXMAC Edik0t(522) by DPM on kP14-Oct-88
	PRINTkpX	    	GLXMAC	Actual Edit(A)
	[YP )[3@ 
'(R:<<<1_<A>>-1>B<B>>_<A>>[8@ 
&(R21B<<A>-1>-1B<B><<A>-1>[@ 	zpOc
	IFB <B	{>,<MAXSIZ==0
		I	{0RP A,<IFG <A-MA	{PXSIZ>,<MAXSIZ==A	{p>>>
	IFNB <B>,<	|B==0
		IRP A,<	|0IFG <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 sp#
	IFNB <>t,<
	PRINTX  (Frot0m GLXVER)
	> ;END IFNB 
	[hMt r0
	PRINTX rPGLXVER	GLXMEM Edirpt(33) by DPM on 1s9-Apr-88
	PRINTXs0	    	GLXMEM	Actual Edit(A)
	[lYPuQ @[th:Q [u[yQ [ukvQ  [v=3P'[v|WQ [&p 	|pOw
	IFB <B	}>,<MINSIZ==377777	}0,,777777
		IRP 	}PA,<IFG <MINSIZ-A	}p>,<MINSIZ==A>>>
	IFNB <B>,<B==	~0377777,,777777
		~P	IRP A,<IFG <B-	~pA>,<B==A>>>
A>,<B==A>>>
[>!` 
&hR6<A-<A/B>*B><A-<A/B[?7 
((S$
   ..MX1
(H==B			
IFDEF .P
(hSECT,<
   .IFN .
).MX1,ABSOLUTE,<

)(	MOVE A,[B]>
 
)H  .IF ..MX1,ABSOL
)hUTE,<
	..MX2==0	
*	
	IFE <..MX1>B5
*(3,<
	  ..MX2==1
*H
	  MOVEI A,..MX
*h1>	
	IFE ..MX2,<
+		
	IFE <..MX1>B
+(17,<
	  ..MX2==1
+H
	  MOVSI A,(..
+hMX1)>>	
	IFE ..M
,X2,<		
	IFE <<..
,(MX1>B53-^O777777>
,H,<
	  ..MX2==1

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

.H	IFE ..MX2,<		
	
.h  MOVE A,[..MX1]
/>	
	>>

IFNDEF
/( .PSECT,<
	..MX2
/H==0		
	IFE <..MX
/h1>B53,<
	  ..MX2
0==1
	  MOVEI A,
0(..MX1>	
	IFE ..M
0HX2,<		
	IFE <..M
0hX1>B17,<
	  ..MX
12==1
	  MOVSI A
1(,(..MX1)>>	
	IFE
1H ..MX2,<		
	IFE 
1h<<..MX1>B53-^O777
2777>,<
	  ..MX2=
2(=1
	  HRROI A,<
2H..MX1>>>	
	IFE .
2h.MX2,<		
	IFE <<
3..MX1>B17-^O77777
3(7B17>,<
	  ..MX2
3H==1
	  HRLOI A,
3h(..MX1-^O777777)>
4> 
	IFE ..MX2,<	
4(	
	  MOVE A,[..
4HMX1]>	
>
	PURGE ..MX1,..MX2RGE[Lt;ZQ x[LvN8P'[NF:=p [N^= 
pHW
	A==C	
ph	
	IF1,<IFDEF %
qA,<PRINTX ?A ALR
q(EADY DEFINED>>
	
qHDEFINE %A (OP,AC
qh,Y,MSK)<	
	IFDIF
r <Y><>,<
	OP (<A
r(C>,B+'Y,MSK)>
	
rHIFIDN <Y><>,<
	O
rhP (<AC>,B'Y,MSK)>>AC>,B'Y,MSK)[PuySP'[PvNP'[Vg 
@HT..OP(A,B,MUL)..OP(A,B[`v
2P ] 	\(MdIF2,<IFDEF	\H A,<A==A>> IFNDEF A,<A==B>]F@ pTEMFDB##_
QkRp _
Ql}p _
Qmp _
Qm7p _
T=

0mW

	X	.OTReader
	X	.OU,Network-Cont
	X	.OTLPTr
	X	.OTBtch-Stream
PX	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
Y	X	.OTDBM,<DBMS S
	X	.OTFALtream>
	X	.OTEVT,<Event>
Z	X	.OTFCH,<Microf
	X	.OTXER,
	X	.OTNQ-Stream>
,<NQC-Stream>
_SKW xpK
	IFNB <>y,<
	PRINTX  (Froy0m GLXVER)
	> ;END IFNB 
	_SMt w0C
	PRINTX wPGLXVER	GLXOTS Ediwpt(13) by DPM on 1x4-Apr-88
	PRINTXx0	    	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)>

gh.IFNBC<D>,<..XX=
hH.IFNBC<E>,<..XX=

i@	EXP ..XX		

i`CIFNB <C>,<EXP 
j EIFB0<C>,<

j@SIFNB,<POINT 7,[A
kFI <D>,<0>

k@ IFNBS<E>,<POINT
l IFB <E>,<0>



l >IFB><I
l@IIFNBX<I>

l` IFB <J>,<0>
mJIFNB <J>,<EXP 

m@,IFB <H>
m`>IFNBP<H>

nIFB <G>,<0>
n IFNB <G>,<EXP G>

G>,<EXP Ga@KW

pk
	IFNB <>
	PRINTXER(Fro
	> ;END IFNB 
	a@Mt 0c
	PRINTX PGLXVER	GLXPFH Edipt(16) by TARL on

17-Apr-81
	PRINT

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

a9
	 IFB  <

0B>,<..STR0(..PNT

P,,<FWMASK>,A)>

p	 IFNB <B>,<..ST

R0(..PNT,,<B>,A)>.PNT,,<B>,Aa>Mm 
$HR&<POINT WID
$h(B),A,POS(B)>B),A,POS(B)>a?H6 +a? 
"R<^L<<A>&<-<A>>>><<A>&<aJ}Ks 	VxOI

	SALL		e			
	LSTOF. XCRE	e0F			

	%%.GLX==	eP%%.GLX			
	GLXVR	epS==GLXVRS			

		fIFNB <A>,<%%.MOD	f0==SIXBIT/A/> 
		fPIFNB <B>,<%%.OTS	fp==SIXBIT/B/> 
	g
	GLOB	I%INIT			

	TOPS10	<			
	gP		SEARCH	UUOSYM			gp
		%%UUOS==%%UUO	hS		
	>				

	T	h0OPS20	<			
		SEA	hPRCH	MONSYM		
;			hp%%MONS==%%MONS		
	>				

	IFB <	i0B>,<			
		IFN G	iPLXPUR,<
			.TEXT	ip	|,REL:GLXLIB/SEA	jRCH/REQUIRE:I%INI	j0T/SEGMENT:LOW|
		jP	>			
		DEFINE	$	jpDATA (NAM,SIZ<1>)	k,< 
			NAM:	BLOC	k0K	SIZ
		>			
			kPDEFINE	CDO (X),<G	kpLOB X> 
		DEFINE	l	NT(X),<CDO X>	
	l0		LIBVEC			
	>			lP		

	IFNB <B>,	lp<			
		IFDEF .MC	mRV.,<.VERSION <GL	m0XVRS>>
		CHKEDT 	mP(B)		

	IFDIF 	mp<B><INI>,<		
			nIFN GLXPURE,<.PSE	n0CT .HIGH.> 
		IF	nPE GLXPURE,<		
			np	TWOSEG	400000	
	o			RELOC	0	
			R	o0ELOC	400000	
		>	oP			

		DEFINE $	opDATA(NAM,SIZ<1>),	p< 
			IFN GLXPUR	p0E,<.PSECT DATA> 
			IFE GLXPURE,<	ppRELOC> 
			IFNDE	qF B%D,<B%D::! 	q0B%DL==:0>
			NAM	qP:	BLOCK	SIZ
				qpB%DL==:B%DL+SIZ 	r
			IFN GLXPURE,	r0<.ENDPS DATA> 
		rP		IFE GLXPURE,<RE	rpLOC> 
		>			

	s	IFDIF <B><OTS>,	s0<		
		DEFINE	CDO	sP (X),<GLOB X> 
		sp	DEFINE	NT(X),<CD	tO X> 
		LIBVEC			t0
	>			

	>			
	

	IFIDN <B>	tp<INI>,< 
		DEFIN	uE	$DATA (NAM,SIZ<	u01>),< 
			NAM:	B	uPLOCK	SIZ
		>			
	>				
	>

	L	vSTON.				

	GLO	v0B	<.POPJ, .RETT, 	vP.RETF>	
	OPDEF	$	vpRET	[POPJ	P,]	
		wOPDEF	$RETT	[PJRS	w0T	.RETT]	
	OPDEF	wP	$RETF	[PJRST	.RE	wpTF]	
	OPDEF	$RET	xIT	[JUMPT	.POPJ]		x0
	OPDEF	$RETIF	[	xPJUMPF	.POPJ]	
	.	xpNODDT	$RET,$RETT,	y$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 v07
	IFNB <>vP,<
	PRINTX  (Frovpm GLXVER)
	> ;END IFNB 
	gpMt tp/
	PRINTX uGLXVER	GLXSCN Ediu0t(135) by DPM on uP19-Apr-88
	PRINTupX	    	GLXSCN	Actual Edit(A)
	gtYP .g"@ []h
	IFN <<.[(.TA>&B>,<PRINTX[H ?Initial field n[hot zero in $SET>
	\(..TVAL==<C>
	\H..TMSK==<B>
	  ..TA==..TA!\h<FLD(..TVAL,..TMS]K)>
	  PURGE ..TVAL,..TMSK
	.TgtXrP gv

[P,g#=ztxp/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 hXX
	..STKR=	=10		
	RADIX 8
	(	..STKN==0
	IRP 	HA,<
	  .STKV1 (	hA)>
	$CALL	.STK
ST
	 ..STKN,,..S
(TKN
	RADIX ..STK
HR
	DEFINE ENDSV.
h<.ENSV1 <A>>
	PURGE ..STKN,..STKR,..STKQ
   TKgR~r d^X

.TYPE=d =-1				
IFIDN <d@B><HALT>,<.TYPE==d`0>		
IFIDN <B><eCONT>,<.TYPE==1>	e 	
IFIDN <B><DEBe@UG>,<.TYPE==2>		

IFL .TYPE,<			f	
IF2,<PRINTX ? f Stopcode A is inf@ error; see S..Af` in CREF>
S..A:g:JRST	4,.			
>		g 			

IFB <A>,<g@				
IF2,<PRINTXg` ? Stopcode with hout a A; see S..h  in CREF>
S..::	h@JRST	4,.			
>			h`		

IFGE .TYPE,i<				
S..A::PUSi HJ	P,.DIE			
	CAi@I	.TYPE,[			
	<Si`IXBIT /A/>&77777j7000000	
	EXP	%%j .MOD			
	EXP	C	j@		
	EXP	[ASCIZ |j`D|]		
	]				
>k					

	PURGE	.TYPE			
URGE	.gR~)  0h[


	IFNB <1C>,<..STR0 (..DPB1(,A,C,B)>
	IFB1H  <C>,<MOVEM A,B>>,<MOVEM A,gV 
?HS|..AS(A,B,SUB,ADD)(A,Bgg

V 	yPOS
	IFNB <	ypB>,<TOPS10<A==B	z>>
	IFNB <C>,<T	z0OPS20<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( H|@IFN FTUUOS,B			;DEFINE UNi?4H H@|DIFN FTJSYS,	INTERN AEDT	iD } _v

  IFNB}@	<A>,<.TQCHA==^}`D<B>B17+ZZ>
  I~FNB 	<D>,<DEFINE~  ..TQMA<D>>
  ~@IFNB	<C>,<.TQC=~`=^D<B>B17+ZZ>
	 ZZ==ZZ+1ZZ>
	iG, s _f
	LSTOF.
	TQ(T,2,ASCIZ)		s`	
	TQ(O,2,OCTAL)t			
	TQ(D,2,DECIt MAL)			
	TQ(F,2,t@FILE)			
	TQ(7,2t`,CSEVEN)			
	TQ(u6,2,CSIXBIT)			
u 	TQ(W,2,SIXBIT)		u@	
	TQ(5,2,SVNBITu`)			
	TQ(P,2,USEvR)			
	TQ(U,2,DIv RECTORY)			
	TQ(v@H,2,DAYTIME)			
v`	TQ(C,2,TIME)			
	TQ(E,2,ERROR)		w 	
	TQ(I,1,INDIREw@CT)		
	TQ(M,0,CRw`,..TXC0(\".CHCRT)x)	
	TQ(J,0,LF,..x TXC0(\".CHLFD))	
	TQ(L,0,FF,..TXCx`0(\".CHFFD))	
	TyQ(K,0,VT,..TXC0(\y ".CHVTB))	
	TQ(Ay@,0,NOCRLF,..TXA(.y`TQCHA))	
	TQ(0,0z,NULL,..TXA(.TQCHz 0))	
	TQ(3,0,STRz@ING,..TXER(IQU))	z`
	TQ(V,2,VERSION{)			
	TQ(2,0,CAR{ ET,..TXER(IQU))	
	TQ(Q,2,POINTER){`			
	TQ(B,2,ROB)|			
	TQ(1,2,OBJE| CT)			
	TQ(N,2,N|@ODE)			
	TQ(R,2,|`JIB)			
	LSTON.
)			
	LSTON.

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

?8TOPS10<	X(VT101,V
@X(VT102,VT102,102,
TOPS10<	X(VT103,SET
CX(VT125,VT125<.CHE
TOPS10<180,VT180,18
TOPS10<	XVT185,185,
FX(VT220,VTETTLC,<.
GX(V40,VT240,240,SE
HX(VT320,VT320<.CHE
IX(VT3330,330,SETTL
Jx0X(VT340,VT340,34
LX(VT50,VTETTLC,<.C
MX(VT52,V,SETTLC,<.
TOPS10<	,VT61,V61,S
	LSTON.

>PA iK4@ (Y
	..TRR==H10		
	RADIX 8
	h..NV==1			
	IRP A,<
	  .TRV1 ((A)>		
	$CALL	.TRHSET		
	 ..NV-1,,h..NV-1
	RADIX ..TRR		
	PURGE ..TRR,..NVURGE ..Tib 
XHUD
		..TX(C,A,<B>)..TX(Cib 
ZUP
		..TX(CA,A,<B>).TX(CibP 
YUH
		..TX(CE,A,<B>).TX(Cib` 
YHUL
		..TX(CN,A,<B>).TX(Cibp 
RHU
		..TX(N,A,<B>)..TX(Nibt 
TU 
		..TX(NA,A,<B>).TX(NibtP 
SU
		..TX(NE,A,<B>).TX(Nibu` 
SHU
		..TX(NN,A,<B>).TX(Nibx 
THU$
		..TX(O,A,<B>)..TX(Oib| 
VU0
		..TX(OA,A,<B>).TX(Oib|P 
UU(
		..TX(OE,A,<B>).TX(Oib}` 
UHU,
		..TX(ON,A,<B>).TX(Oic KW p
	IFNB <>,<
	PRINTX  (Fro0m GLXVER)
	> ;END IFNB 
	ic Mt 0
	PRINTX PGLXVER	GLXTXT Edipt(55) by BAH on 14-Nov-86
	PRINTX0	    	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 
VHU4
		..TX(Z,A,<B>)..TX(ZicT 
XU@
		..TX(ZA,A,<B>).TX(ZicTP 
WU8
		..TX(ZE,A,<B>).TX(ZicU` 
WHU<
		..TX(ZN,A,<B>).TX(ZkR`KW -
	IFNB <>0,<
	PRINTX  (FroPm GLXVER)
	> ;END IFNB 
	kR`Mt P%
	PRINTX pGLXVER	GLXUTL Edit(2) by DPM on 4-0Dec-85
	PRINTX	 P   	GLXUTL	Actual Edit(A)
	kRdYP mKc@ H`N&BYTE (3)A	dhWHO (9)AVER (6)AMIN (18)AEDTo&  
!HR

<^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? 
dV 
	TXC A,<B>
	TXC A,q@ 	]MjIFB <C>,<	](A==:B> IFNB <C>,<A=:B>B <CqBp +qN5P +up :[V
	IFNB <:(B>,<..STR1 (..TQZ:H,,<B>,A,..STR4):h>
	IFB  <B>,<SETZM A><B>,<SEuhP 	;z XxuY
	.XCREF	Y.$RESET, .$BUILD
	.$RESET
	$TYPEYX (.CMACT)
	$HELPYx (<>)
	$NEXT (AZ)
IFIDN <B> <>,Z8< IRP C,<C>
		ZX	.$BUILD>
IFDIF Zx<B> <>,<
	$HELP[ (B)
	IRP C,<C>
	.$BUILD><	0

dPf)
.WTOX.(.OM

dpACK,<A>,<B>,<C

e>,<D>,<$WTFLG(WT.SJI),E>)LG(WT	J7 p
			DEFPINE .$RTN <A>
			.%RTN==1A>
		D[
	IFDIF<<,<.XCREF	.%
DEFNE[.$HLPM<POINT
			.%HLPM==-1>
	fI9XCREF	.%L
			DEF.$LST <A+1>
			.%LST==11>
=Z L\h
	  IFG L(A-INT.LV,<PRINTX LH?Level A interruLhpts not supportedM>
	o.BGINT.(\A)B  .BGINT.(\A	X5 
			DINE .$BREA <A>
			.%BREA==1>	- Nh]
	  IFDEFO ..BSIZ,<PRINTX ?O(Missing $EOB afteOHr a $BUILD>
	  .Oh.BSIZ==0			
	  .P.BLOC==.			
	  RP(EPEAT A,<			
		PHBLD0.(\..BSIZ,0)	Ph
		..BSIZ==..BSIZ+1>	
	==..BSI		}[0 <xso
	.XCREF	=.$RESET, .$BUILD
	.$RESET
	$TYPE=X (.CMCMA)
	$NEXT=x (A)
	IRP B,<B>
	.$BUILD,<	I@ 88sK
	.XCREF	8X.$RESET, .$BUILD
	.$RESET
	$TYPE9 (.CMCFM)
	IRP 98A,<A>
	.$BUILD,<A>
	.$BUILD	$^ ExtA
	.XCREF	F.$RESET, .$BUILD
	.$RESET
	$TYPEFX (.CMTXT)
	$HELPFx (<>)
	$NEXT (AG)
IFIDN <B> <>,G8< IRP C,<C>
		GX	.$BUILD>
IFDIF Gx<B> <>,<
	$HELPH (B)
	IRP C,<C>
	.$BUILD><	I  HXtO
	.XCREF	Hx.$RESET, .$BUILD
	.$RESET
	$TYPEI8 (.CMTAD)
	$PDATIXA (CM%IDA)
	$NEXIxT (A)
	IRP B,<B>
	.$BUILD,<	,,U N\r
	  $RET	N(			;WILL INVOKE RIGHT ROUTINE
		,h: 
	IFDIF<<,<.XCREF	.%
DEFNE[.$DEFM<POINT
wP			.%DEFM==1>
	IFIDN <A> <>,<
IF1 <
PRINTXg%Nult in $DEFAULT macro>>DE	.` D8t+
	.XCREF	DX.$RESET, .$BUILD
	.$RESET
	$TYPEE (.CMDEV)
	$NEXTE8 (A)
	IRP B,<B>
	.$BUILD,<	Lz: $xr;
	.XCREF	%.$RESET, .$BUILD
	.$RESET
	$TYPE%X (.CMNUX)
	$PDAT%xA (B)
	$HELP (<&>)
	$NEXT (A)
&8IFIDN <C> <>,< I&XRP D,<D>
			.$&xBUILD>
IFDIF <C'> <>,<
	$HELP ('8C)
	IRP D,<D>
	.$BUILD><D>
	.XCREF	:.$RESET, .$BUILD
	.$RESET
	$TYPE:X (.CMDIR)
	$NEXT:x (A)
	IRP B,<B>
	.$BUILD,<	|  Uh]J
	  IFNDEVF ..BSIZ,<PRINTX V(?$EOB without preVHvious $BUILD>
	 Vh IFN <.-..BLOC>,<WPRINTX ?Address cW(hange between $BUWHILD and $EOB>
	 Wh LSTOF.			
	  ..XT==0
	  REPEAT .X(.BSIZ,<
	    BLDXH0.(\..T,1)		
	  Xh  ..T==..T+1 >
	Y  PURGE ..BSIZ,..Y(T,..BLOC	
	  LSTON.
		
	oLST	+yE.%E
			DINE .$ERTN <A>
			.%ERTN==1>	, 
			DINE>.$ERTN <1B0
			.%ERTN==1>
			.%ERTN	-.
			DINE .$ERTN <[MOVEI S2,[ASCIZ\A\0]
				      $RETPF]>
			.%ERTN==1>
			.%ERTN==1	IF2,<IFN <	[A>-.,<PRINTX ? I	[0LLEGAL $FALL A>>EGAL $FALL A>>	H6 `^
	$CALL	.`STOP
	LSTOF.
	J` UMP	[XWD 0,[ITEXT`@ (<A>)]
		 EXP ``%%.MOD]
	LSTON. .MOD]
	LSTON. 	L[ 5Xs?
	.XCREF	5x.$RESET, .$BUILD
	.$RESET
	$TYPE68 (.CMFLD)
	$NEXT6X (A)
	$HELP (<>6x)
IFIDN <B> <>,7< IRP C,<C>
		78	.$BUILD>
IFDIF 7X<B> <>,<
	$HELP7x (B)
	IRP C,<C>
	.$BUILD><	MI  2xs)
	.XCREF	3.$RESET, .$BUILD
	.$RESET
	$TYPE3X (.CMFIL)
	$HELP3x (<>)
	$NEXT (A4)
IFIDN <B> <>,48< IRP C,<C>
		4X	.$BUILD>
IFDIF 4x<B> <>,<
	$HELP5 (B)
	IRP C,<C>
	.$BUILD><	dy 
			DINE .$FLGS <A>
			.%FLGS==1>	ex: AXt
	.XCREF	Ax.$RESET, .$BUILD
	.$RESET
	$TYPEB8 (.CMFLT)
	$HELPBX (<>)
	$NEXT (ABx)
IFIDN <B> <>,C< IRP C,<C>
		C8	.$BUILD>
IFDIF CX<B> <>,<
	$HELPCx (B)
	IRP C,<C>
	.$BUILD><	$ Nt}
	.XCREF	N8.$RESET, .$BUILD
	.$RESET
	$TYPENx (.CMTAD)
	$PDATOA (<CM%IDA!CM%ITMO8!CM%FUT>)
	$NEXTOX (A)
	IRP B,<B>
	.$BUILD,<	$ ^p]zS0
	  INTER_ N A
	  $DATA(A,<B>)
	ATA(A}]s1O3FlY	"
	IFDIF<<,<.XCREF	.%
DEFNE[.$HLPM<POINT
			.%HLPM==1>
	&5 -8r}
	.XCREF	-X.$RESET, .$BUILD
	.$RESET
	$TYPE. (.CMIFI)
	$HELP.8 (<>)
	$NEXT (A.X)
IFIDN <B> <>,.x< IRP C,<C>
		/	.$BUILD>
IFDIF /8<B> <>,<
	$HELP/X (B)
	IRP C,<C>
	.$BUILD><	&u @t	
	.XCREF	@8.$RESET, .$BUILD
	.$RESET
	$NEXT@x (A)
	$TYPE (.CAMINI)
	IRP B,<B>
	.$BUILD,<	./  r
	.XCREF	 8.$RESET, .$BUILD
	.$RESET
	$TYPE x (.CMKEY)
	$PDAT!A (B)
	$NEXT (!8A)
	IRP C,<C>
	.$BUILD,<C>
	.XCREF	X.$RESET, .$BUILD
	.$RESET
	$TYPE (.CMKEY)
	$PDAT8A (A)
	$NEXT (0X)
	IRP B,<B>
	.$BUILD,<B>
	/>Ky

g0f=.WTOX.(.OM

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

fPf7.WTOX.(.OM

fpLOG,<A>,<B>,<C>,,<D>)B>,<C	:/
			DEF.$NXT <A>
			.%NXT==1A>
		:|KV UxuC
	.XCREF	V.$RESET, .$BUILD
	.$RESET
	$TYPEVX (.CMNOD)
	$HELPVx (<>)
	$NEXT (AW)
IFIDN <B> <>,W8< IRP C,<C>
		WX	.$BUILD>
IFDIF Wx<B> <>,<
	$HELPX (B)
;	$FLAGS (X8CM%PO)
	IRP C,<C>
	.$BUILD><	:}r 'xrK
	.XCREF	(.$RESET, .$BUILD
	.$RESET
	$TYPE(X (.CMNOI)
	$PDAT(xA (<POINT 7,[ASCI)Z\B\]>)
	$NEXT )8(A)
	IRP C,<C>
	.$BUILD,<C	;-XR !xr#
	.XCREF	".$RESET, .$BUILD
	.$RESET
	$TYPE"X (.CMNUM)
	$PDAT"xA (B)
	$HELP (<#>)
	$NEXT (A)
#8IFIDN <C> <>,< I#XRP D,<D>
			.$#xBUILD>
IFDIF <C$> <>,<
	$HELP ($8C)
	IRP D,<D>
	.$BUILD><D>
	.XCREF	08.$RESET, .$BUILD
	.$RESET
	$TYPE0x (.CMOFI)
	$NEXT1 (A)
	$HELP (<>18)
IFIDN <B> <>,1X< IRP C,<C>
		1x	.$BUILD>
IFDIF 2<B> <>,<
	$HELP28 (B)
	IRP C,<C>
	.$BUILD><	B$ 
			DINE .$DATA <A>
			.%DATA==1>	B$YP 
			DINE<.$DEFM <POI
			.%DEFM==1>
			.%	CYT p.XCREF	.%D0EFR,	.$DEFR
			DPEFINE .$DEFR <A>
			.%DEFR==1>	G-} Pu
	.XCREF	P8.$RESET, .$BUILD
	.$RESET
	$TYPEPx (.CMQST)
	$HELPQ (<>)
	$NEXT (AQ8)
IFIDN <B> <>,QX< IRP C,<C>
		Qx	.$BUILD>
IFDIF R<B> <>,<
	$HELPR8 (B)
	IRP C,<C>
	.$BUILD><	J.I  ]P]q
	  $CALL]p	.RETE			
		LSTO^F.
	  JUMP	ERA$
		LSTON.ERA$	Ni  HZX
	.NVR==0h			
	.ACM==0			

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

    IFE .HNVR,<	
	IFN .ACMh,<	
	    IFE <.ACM-17B<T4>>,<.ACM(==0
				$CALL .SHAVET>
	    IFE <h.ACM-377B<.A16>>, <.ACM==0
				$CA (LL .SAVE8>
	     HIFE <.ACM-17B<P4> h>,<.ACM==0
				$!CALL .SAVE4>
	  !(  IFE <.ACM-7B<P3!H>>,<.ACM==0
				!h$CALL .SAVE3>
	 "   IFE <.ACM-3B<P"(2>>,<.ACM==0
			"H	$CALL .SAVE2>
	"h    IFE <.ACM-1B<#P1>>,<.ACM==0
		#(		$CALL .SAVE1>
#H	    IFE <.ACM-1B#h<.A13>>,<.ACM==0
				$CALL .SV13>$(
	    IFE <.ACM-$H1B<.A14>>,<.ACM==$h0
				$CALL .SV1%4>
	    IFE <.AC%(M-1B<.A15>>,<.ACM%H==0
				$CALL .S%hV15>
	    IFE <.&ACM-1B<.A16>>,<.A&(CM==0
				$CALL &H.SV16>
	    >>
&h
	IFN .ACM,<	
	'    IFE .NVR,<			'(
		PUSHJ P,[		
'H		>

	    .ACB='h=0			
	REPEAT ^D(16,<			
	    IFN(( <.ACM&1B<.ACB>>,(H<	
		..PUSH(\.AC(hB,\<.NVR+1>)>
		).ACB==.ACB+1>>		

	IFN .NVR,<	
)H		PUSHJ	P,@-.NVR()hP)	
		 TRNA			
*		AOS	-1-.NVR(P)	*(
	    REPEAT .NV*HR,<..POP(\.NVR)>	*h
		ADJSP	P,-1		
		POPJ	P,]>		
		POPJ	P,]>		
	N;CREF	.%S
	IFD	<A><>,<DEFINE
	.%SBCM==1
>
	.%SBCM==1
	N.@ Q(]
	  IFNDEQHF ..BSIZ,<PRINTX Qh?$SET without preRvious $BUILD>
	 R( IFNB <B>,<..STRRH0 (..SET,<C>,B,RhA)>
	IFB  <BS>,<..STR0 (..SET,S(<C>,FWMASK,A)>
	,FWMASK,A)>
	.XCREF	aa,	b
	a==.
	a8XWD b-1,b-1
	DaXEFINE $ETAB <.XCRaxEF	a,	b
		b==.-a>b
		b==	O%| k@^l
IF1,<PRIk`NTX % Use STOPCD lmacro for stopcodl e A instead of $l@STOP>
S..A::!	$l`CALL .STOP
		LSTmOF.
		JUMP [XWD m 'A',[ITEXT (<B>m@)]
			EXP %%.MOD]
		LSTON.	MOD	O,(v >8s}
	.XCREF	>X.$RESET, .$BUILD
	.$RESET
	$NEXT?	(A)
	$TYPE	(.C?8MINI)
	$SBCM	(B?X)
	IRP C,<C>
	.$BUILD,<C>
	O= +Xrg
	.XCREF	+x.$RESET, .$BUILD
	.$RESET
	$TYPE,8 (.CMSWI)
	$PDAT,XA (A)
	$NEXT (0,x)
	IRP B,<B>
	.$BUILD,<B>
	O= )xrY
	.XCREF	*.$RESET, .$BUILD
	.$RESET
	$TYPE*X (.CMSWI)
	$PDAT*xA (B)
	$NEXT (+A)
	IRP C,<C>
	.$BUILD,<C>

@ Ltm
	.XCREF	L8.$RESET, .$BUILD
	.$RESET
	$TYPELx (.CMTAD)
	$PDATMA (<CM%IDA!CM%ITMM8>)
	$NEXT (A)
MX	IRP B,<B>
	.$BUILD,<B>
	.$	R/n^x
	$CALL	Tn %TEXT
	LSTOF.	XCn@REF
	JUMP	[XWD 2n`,0
		 EVL (A)
o		 ITEXT(<B>)]	
	LSTON.B>)]	
	.XCREF	JX.$RESET, .$BUILD
	.$RESET
	$TYPEK (.CMTAD)
	$PDATK8A (CM%ITM)
	$NEXKXT (A)
	IRP B,<B>
	.$BUILD,<	R}97 [Xui
	.XCREF	[x.$RESET, .$BUILD
	.$RESET
	$TYPE\8 (.CMTOK)
	$PDAT\XA (<POINT 7,[ASCI\xZ\B\]>)
	$NEXT ](A)
	IRP C,<C>
	.$BUILD,<C	S

_|


  ..TX

A(.TQA,C,D,E, B)	
      IFN .`.TXEF,<			
	..TE@RR<$TQ(A,B,C,D,E)>>

C,	S@I9

pag
	LSTOF.


	X(UQU,Unknown q

0ualifier)
	X(IQU

P,Invalid qualifie

pr)
	X(IJA,Invali

d justification a

0rgument)
	X(IWA,

PInvalid width arg

pument)
	X(PEA,Pr

emature end of ar

0gument)
	X(JNA,J

Pustification is n

pot allowed)
	X(A

NA,Arguments are

0not allowed)
	X(

PADS,Address must

pbe specified)
	LSTON.
ied)
	L	SN	.REF	.%T
			DEE .$TYP <A>
			.%TYPE==1>
	W= Rxu+
	.XCREF	S.$RESET, .$BUILD
	.$RESET
	$TYPESX (.CMUQS)
	$HELPSx (<>)
	$NEXT (AT)
	$PDATA (B)
T8IFIDN <C> <>,< ITXRP D,<D>
			.$TxBUILD>
IFDIF <CU> <>,<
	$HELP (U8C)
	IRP D,<D>
	.$BUILD><D>
	.XCREF	;X.$RESET, .$BUILD
	.$RESET
	$TYPE< (.CMUSR)
	$NEXT<8 (A)
	IRP B,<B>
	.$BUILD,<	^+@ a ^
IFE %%.Oa@TS,<DEFINE $WARN a`(MSG) <
		$TEXT b(T%TTY,<% ^W6/[%%b .MOD]/ MSG>)>>
Ib@FN %%.OTS,<DEFINEb` $WARN (MSG) <
	c	$TEXT (T%TTY,<% c ^W6/IIB+IB.PRG/ ^c@W/[%%.MOD]/ MSG>)>>
	$WARN <A>	_$r

XPeW
		IFB	<

XpA>,<.WFACD==0

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

Y0D==0>>
		IFNB	<

YPA>,<.WFACD==-1

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

ZCD==.$WACD!<A>>

Z0
			IFE <0-2>,<DE

ZPFINE .$WACD,<<WO.

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

MPd
		IFB	<

MpA>,<.WFACK==0

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

N0K==0>>
		IFNB	<

NPA>,<.WFACK==-1

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

OCK==.$WACK!<A>>

O0
			IFE <0-2>,<DE

OPFINE .$WACK,<<WO.

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

?0f
	IFE	<.W

?PFMTY>,<PRINTX ?No

?p message type in

@$WTBLD>
DEFINE .

@0EAWTO(SUFFIX,ARGC

@POD),<
IFN .WF'SU

@pFFIX',<
	IFE	<AR

AGCOD-0>,<<WO.'SUF

A0FIX'>B8+ .$W'SUFF

APIX'>
	IFE	<ARGCO

ApD-1>,<<WO.'SUFFIX

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

apFFIX']>
	IFE	<AR

bGCOD-2>,<.$W'SUFF

b0IX'>
>
>
	ALLW

bPTO				
	EXP	0			
		
	EXP	0				_$k

P0e
		IFB	<

PPA>,<.WFFLG==0

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

QG==0>>
		IFNB	<

Q0A>,<.WFFLG==-1

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

QpLG==.$WFLG!<A>>

R
			IFE <1-2>,<DE

R0FINE .$WFLG,<<WO.

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

UpeA
		IFB	<

VA>,<.WFJBN==0

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

VPN==0>>
		IFNB	<

VpA>,<.WFJBN==-1

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

W0BN==.$WJBN!<A>>

WP
			IFE <0-2>,<DE

WpFINE .$WJBN,<<WO.

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

^f
		IFB	<

^0A>,<.WFMFL==0

^P	IFN <1-2>,<.$WMF

^pL==0>>
		IFNB	<

_A>,<.WFMFL==-1

_0		IFN <1-2>,<.$WM

_PFL==.$WMFL!<A>>

_p
			IFE <1-2>,<DE

`FINE .$WMFL,<<WO.

`0MFL>B8+[ITEXT (<A>)]>>
		>
<	_%]

BPd'
		IFB	<

BpA>,<.WFMTY==0

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

C0Y==0>>
		IFNB	<

CPA>,<.WFMTY==-1

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

DTY==.$WMTY!<A>>

D0
			IFE <0-2>,<DE

DPFINE .$WMTY,<<WO.

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

Se+
		IFB	<

S0A>,<.WFNOD==0

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

SpD==0>>
		IFNB	<

TA>,<.WFNOD==-1

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

TPOD==.$WNOD!<A>>

Tp
			IFE <0-2>,<DE

UFINE .$WNOD,<<WO.

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

cf.WTOX.(.OM

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

Jpdi
		IFB	<

KA>,<.WFOBJ==0

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

KPJ==0>>
		IFNB	<

KpA>,<.WFOBJ==-1

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

L0BJ==.$WOBJ!<A>>

LP
			IFE <0-2>,<DE

LpFINE .$WOBJ,<<WO.

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

[0em
		IFB	<

[PA>,<.WFOCD==0

[p	IFN <0-2>,<.$WOC

\D==0>>
		IFNB	<

\0A>,<.WFOCD==-1

\P		IFN <0-2>,<.$WO

\pCD==.$WOCD!<A>>

]
			IFE <0-2>,<DE

]0FINE .$WOCD,<<WO.

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

ePf1.WTOX.(.OM

epWTO,<A>,<B>,<C

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

cpf!
.WTOX.(.OM

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

B0f
	DEFINE

B.EAWTO(SUFFIX),<$

`pWT'SUFFIX'	<>>
	ALLWTO				

		_&N

HdS
		IFB	<

H0A>,<.WFTXT==0

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

HpT==0>>
		IFNB	<

IA>,<.WFTXT==-1

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

IPXT==.$WTXT!<A>>

Ip
			IFE <2-2>,<DE

JFINE .$WTXT,<<WO.

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

E0d=
		IFB	<

EPA>,<.WFTYP==0

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

FP==0>>
		IFNB	<

F0A>,<.WFTYP==-1

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

FpYP==.$WTYP!<A>>

G
			IFE <2-2>,<DE

G0FINE .$WTYP,<<WO.

GPTYP>B8+[ITEXT (<A>)]>>
		>
<
t{P 
u[rQ ]>t2
u}P 
,MP )V=P .
P .JP .bP /P B&@P cGP )0 p'0KJMmbZ6

Xqo			

	.X

xCREF	a,	b,	c,	

	.XCREF	.%T,	.%DA
	.XCREF	.$TYP,	.$FLGS,	.8$DATA,	.$HLPM,	.$XDEFM,	.$LST

	.xXCREF	.%BREA,	.%NXT,	.%ERTN,	.%RTN8,	.%DEFR,	.%SBCM
	.XCREF	.$BREA,	x.$NXT,	.$ERTN,	.$RTN,	.$DEFR,	.$SB8CM

	d==<FLD(.X$TYP,CM%FNC)>!.$FxLGS!<.$LST> 

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

	XIFG <.%HLPM>,<d=x=d!CM%HPP!CM%SDH> 
						
	IFL 8<.%HLPM>,<d==d!XCM%HPP>	
						

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

c:!	<INSVL.(Xb,PB.PDB)>!<INSVLx.(a,PB.FDB)> ;PDB, FDB
	EXP	d		8	
	EXP	.$DATA			X
IFN <.%HLPM!.%DxEFM!.%BREA>,<
	EXP	.$HLPM>			
IF8N <.%DEFM!.%BREA>X,<
	EXP	.$DEFM>	x		
IFN <.%BREA>,<
	EXP	.$BREA>		8	

	a==.-c			X

IFN <.%NXT!.%xDEFR!.%RTN!.%ERTN!.%SBCM>,<
	EXP	8.$NXT >			
IFN <X.%DEFR!.%RTN!.%ERxTN!.%SBCM>,<
	EXP	.$RTN >			
IFN8 <.%DEFR!.%ERTN!.X%SBCM>,<
	EXP	.$xERTN>			
IFN <.%DEFR!.%SBCM>,<
	8EXP	.$DEFR>			
IXFN <.%SBCM>,<
	ExXP	.$SBCM>			

	b==.-c			

I8F2,<
	PURGE	.%TYXPE,	.%FLGS,	.%DATxA,	.%HLPM,	.%DEFM,	.%LST
	PURGE	.8$TYP,	.$FLGS,	.$DXATA,	.$HLPM,	.$DExFM,	.$LST

	PURGE	.%BREA,	.%NXT,8	.%ERTN,	.%RTN,	.X%DEFR,	.%SBCM
	PxURGE	.$BREA,	.$NXT,	.$ERTN,	.$RTN,8	.$DEFR,	.$SBCM
X
	PURGE	a,	b,	xc,	d
> 
	LIST,	d
> 
	LIST$YV ppPOINT 7,[ASCIZ\0\]NT 7,[A$YY p+0

KJNIB.-p%06KJMi5Iyp07KJLh"f= p!0+1KJM+Bw
	.XCREF
	SALL
	XLIST
	xDEFINE .$TYP <0>
	.%TYPE==0
	DEF8INE .$FLGS <0>
	X.%FLGS==0
	DEFINxE .$DATA <0>
	.%DATA==0
	DEFINE 8.$HLPM <>
	.%HLPXM==0
	DEFINE .$DxEFM <0>
	.%DEFM=	=0
	DEFINE .$LST	8 <0>
	.%LST==0
	X	DEFINE .$BREA <0	x>
	.%BREA==0
	D
EFINE .$NXT <0>

8	.%NXT==0
	DEFIN
XE .$ERTN <0>
	.%
xERTN==0
	DEFINE .$RTN <0>
	.%RTN8==0
	DEFINE .$DEXFR <0>
	.%DEFR==x0
	DEFINE	.$SBCM

	<0>
	.%SBCM==0
	.CREF
CM==0 p)0,KJN

b'|J0T1,O)0P $YVP $YYP .-P 5IyP f=P w
BT<
	   ..AS
B(1==-<B>	
	IFDEF
BH .PSECT,<
	.IFN 
Bh..AS1,ABSOLUTE,<
C
	     C A,[-..
C(AS1]>	
	.IF ..AS
CH1,ABSOLUTE,<
		.
Ch.AS2==0	
	  IFE 
D<..AS1&^O777777B1
D(7>,<
		..AS2==1	
DH
	    DI A,..A
DhS1>
	  IFE ..AS2
E,<
	    ..OP(A,
E(B,C)>	
	PURGE 
EH..AS1,..AS2>>
	I
EhFNDEF .PSECT,<
	
F	..AS2==0	
	  IF
F(E <..AS1&^O777777
FHB17>,<
		..AS2==
Fh1	
	    DI A,.
G.AS1>
	  IFE ..A
G(S2,<		
	    ..OP
GH(A,B,C)>
	PURGE ..AS1,..AS2>:h V:
	A: 
5St
	  ..CX1
5(==C
	IFDEF .PSE
5HCT,<
 	.IFN ..CX
5h1,ABSOLUTE,<
	  
6    CAMA B,[C]
6(>
	.IF ..CX1,ABS
6HOLUTE,<	
		..CX2
6h==0	
	  IFE <..C
7X1&^O777777B17>,<
7(
		..CX2==1	
	 
7H   CAIA B,C>

7h	  IFE ..CX2,<		
<
	    CAMA B,[
<(C]>
	PURGE ..CX1
<H,..CX2>>
	IFNDEF
<h .PSECT,<
		..CX
=2==0	
	  IFE <..
=(CX1&^O777777B17>,
=H<
		..CX2==1	
	
=h    CAIA B,C>
>
	  IFE ..CX2,<		
>(
	    CAMA B,[
>HC]>
	PURGE ..CX1,..CX2>GE ..CX:&@ 2[
	..TSIZ 2((..PST,C)
	.CAS2HE ..PST,<<
		MOV2hEM A,B>,<
		HR3RM A,B>,<
		HR3(LM A,B>,<
		DP3HB A,[POINTR (B,C)]>>INTR (B,:<;Y hXB
   DEFINE ..CNS2 (NEW,OLD()<
	  OLD>			
	..CNS ()>			
	:L;Y HX:
   DEFINhE ..CNS (%%%)<
	..CNS2 <%%%>,>
(
   DEFINE ..CNS2H (NEW,OLD)<
	DEFhINE ..CNS (%%%)<
	  ..CNS2 <%%%>,(<OLD'NEW>>>
   OLD'NEW>>>
   :dH@ .h[
	..TSIZ /(..PST,C)
	.CAS/(E ..PST,<<
		MOV/HE A,B>,<
		HRR/hZ A,B>,<
		HLR0Z A,B>,<
		LDB0( A,[POINTR (B,C)]>>INTR (B,:}i1 
lhVh
	A==<<<
m-<B>>&<B>>&<1B<^L<B>>>>>&<1B<:~ 
HTl
	  ..OP1
H(==B
	IFDEF .PSE
HHCT,<
 	.IFN ..OP
Hh1,ABSOLUTE,<
	  
I    C A,[..OP1]
I(>
	.IF ..OP1,ABS
IHOLUTE,<	
		..OP2
Ih==0	
	  IFE <..O
JP1&^O777777B17>,<
J(
		..OP2==1	
	 
JH   CI A,..OP1>
Jh
	  IFE ..OP2,<		
K
	    C A,[..O
K(P1]>
	PURGE ..OP
KH1,..OP2>>
	IFNDE
KhF .PSECT,<
		..O
LP2==0	
	  IFE <.
L(.OP1&^O777777B17>
LH,<
		..OP2==1	

Lh	    CI A,..OP1
M>
	  IFE ..OP2,<
M(		
	    C A,[.
MH.OP1]>
	PURGE ..OP1,..OP2>GE ..;m

PaC
	..PST==

pC-FWMASK
	.IF0

..PST,<
		POINT

00,B,35>,<
		POINTR (B,C)>POI;| ,HZh
		POP P,,h.NVA
		PURGE .N-VA
		.NVR==.NVR-1
		.NVR==.NVR;\t +HZ`
		PUSH P+h,A
		DEFINE .NV,B<A>
		.NVR==.NVR+1
		.NVR==.;] Sh]*
	  IFGE T<<<B>&777777>-..T(BSIZ>,<
		PRINTXTH ?WORD offset greThater than $BUILD Usize parameter>
U(	  SET0. (\<B>,C,<A>)
	B>,;LH 
s(W*
	IFNDEF 
sHC,<PRINTX C IS 
shNOT DEFINED
	  
tA (<B>,D,FWMASK
t()>	
	IFDEF C,<
tH
	IFNDEF %C,<
	
th  A (<B>,D,C)
u>	
	IFDEF %C,<
u(
	  %C (A,<B>,D,C)>>A,<B>,;LH 
uhWh

	..NS==0
v			
	IRP C,<..N
v(S=..NS+1>	
	IFE 
vH..NS,<PRINTX ?EMP
vhTY STRUCTURE LIST
w, A>
	IFE ..NS-
w(1,<		
	  ..STR0 
wH(A,<B>,<C>,D)
wh>
	IFG ..NS-1,<	
x	
	..ICNS			
	.
x(.CNS (<E (A,<B
xH>,,>) 
	IRP C,<
xh		
	  IFNDEF C,
y<PRINTX C NOT DE
y(FINED>
	  IFDEF 
yHC,<
	  IFNDEF %
yhC,<
	  ..CNS (<
z,C,D>)>	
	  IF
z(DEF %C,<
	  %C
zH (..STR2,,D,C)>
zh 
	  ..CNS (<)>)
{		
	  ..GCNS		

{(	  ..ICNS		
	  .
{H.CNS (<E (A,<B
{h>>) 
	  IFNDEF %
|C,<
	  ..CNS (<
|(,C,D>)>	
	  IF
|HDEF %C,<
	  %C
|h (..STR2,,D,C)>
}>> 
	..CNS (<,,)>)		
	..GCNS>);LI 
}HWl
	..CNS (<,C,B>).CNS (;LI 
~X


	IFDIF <
~(D><F>,<
	  IFN
~HB <D>,<
	    A
~h (<B>,D,..MSK)	

	    IFNB <F>,
(<PRINTX C AND E
H ARE IN DIFFERENT
h WORDS>>
	  ..MSK==0>		
	IFNB <(F>,<
	  ..MSK=..MSK!<E>>MSK=..;LJ hX


	IFDIF <D><F>,<	
	  IF(NB <D>,<
	    HA (<B>,D,..MSK)h>	
	  ..MSK==0>		
	IFNB <F>,<
(	  ..MSK=..MSK!<E>>MSK=..MSK!<;LJ hX(


	IFDIF <D><F>,<	
	  IF(NB <D>,<
	    IHFNB <F>,<		
		hA1 (B,D,..MSK)> 
	    IFB <F>,(<		
		A2 (B,DH,..MSK)>> 
	  ..hMSK==0>		
	IFNB <F>,<
	  ..MSK=..MSK!<E>>MSK=;$\Y

Pb
  IF1,<


    PRINTX ? Err

0or in "A"
    D

EFINE X(NAM,ERR)

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

pEF,<PRINTX ? ERR>

 >
    $TX$ERR>

    $TX$ERR>
;$^

!pb7

    ..

"TXF==0				
    .

"0.TXB==0

"P..TXP==0

"p ..TXEG==<..TXEF=

#=0>			
    IRPC

#0A,<				
	..TXC=

#P=ASCII\A\_-35

#p
	IFN ..TXB,<IFN

$..TXB-..TXC,..CNS

$0(<A>)
		   IFE

$P..TXB-..TXC,..TXB

$p==0>
	IFE ..TXB,

%<..TXQ(<A>,\..TX

%0F)>>	
    ..TXC1

%P				
    IFN ..T

%pXB,<IFN <..TXB-"^

&">,<..TXER(PEA)>>

&0
    ..TXEF==..T

&PXEF!..TXEG

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

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

p`/..TXER(IQU)..TXER(IQU;&)

 `*..TXER(IQU)..TXER(IQU;&0

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

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

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

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

 `..TXC0(\".CHCRT).TXC0(\".;&@ ;([p
	..TSIZ ;H(..PST,C)	
	.CA;hSE ..PST,<<
		SE<TZM B>,<	
		HLL<(ZS B>,<	
		HRRZ<HS B>,<	
	  ..TS<hAC (..ACT,B)	
	=  .IF0 ..ACT,<
	=(	$CALL .ZERO	
		=HLSTOF.
		JUMP [P=hOINTR(B,C)]
		>LSTON.>,<
		..TX (Z,B,C)>>>TX;&81 
i(Vb
	IFNDEF 
iH.PSECT,<
	A==0	
ih		
	..TSA1==<Z 
jB>		
	  IFE ..TS
j(A1&^O777777777760
jH,<A==1> 
	>
	I
jhFDEF .PSECT,<
	
kA==0			
	..TSA1=
k(=<Z B>		
	.IF .
kH.TSA1,ABSOLUTE,<	
kh
	  IFE ..TSA1&^
lO777777777760,<A
l(==1>> 
	PURGE ..TSA1>
	PURGE ..;&:= 
ghVF
	A==3		
h	
	IFE <B>+1,<
h(A=0>	
	IFE <B>-
hH^O777777,<A==1> 
hh
	IFE <B>-^O777777B17,<A==2>7;' 
NU~
   ..TX1
N(==C			
IFDEF .P
NHSECT,<
   .IFN .
Nh.TX1,ABSOLUTE,<

O	TDA B,[C]>
 
OH  .IF ..TX1,ABSOL
O(UTE,<		
	..TX2==
Oh0		
	IFE <..TX1&
P^O777777B17>,<
	
P(  ..TX2==1		
	  
PHTRA B,..TX1>
	
PhIFE ..TX2,<		
	I
QFE <..TX1&^O77777
Q(7>,<
	  ..TX2==1
QH		
	  TLA B,(.
Qh.TX1)>>
	IFE ..T
RX2,<		
	  IFE <<
R(..TX1>B53-^O77777
ZH7>,< 
	    ..TX3
Zh (A,B)>>	
	IFE
[ ..TX2,<		
	  TD
[(A B,[..TX1]>	

[H	PURGE ..TX1,..TX
[h2>>
IFNDEF .PSEC
\T,<
	..TX2==0		
\(
	IFE <..TX1&^O77
\H7777B17>,<
	  ..
\hTX2==1		
	  TRA
] B,..TX1>
	IFE 
](..TX2,<		
	IFE <
]H..TX1&^O777777>,<
]h
	  ..TX2==1		

^	  TLA B,(..TX1
^()>>
	IFE ..TX2,<
^H		
	  IFE <<..TX
^h1>B53-^O777777>,<
_ 
	    ..TX3 (A
_(,B)>>	
	IFE ..T
_HX2,<		
	  TDA 
_hB,[..TX1]>	
	PURGE ..TX1,..TX2>;'` 
`(V
	IFIDN <
`HA><Z>,<		
	  ..
`hTX2==1
	  ANDI 
aB,^-..TX1>	
	IFI
a(DN <A><O>,<		
	
aH  ..TX2==1
	  OR
ahCMI B,^-..TX1>	
b
	IFIDN <A><C>,<
b(		
	  ..TX2==1

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

a-



	..TXE

0F==0			

IFNDEF

P A,<..TXER(UQU)>

p		
IFDIF <B><>,

	<IRPC B,<.IFN <

	0B>,NUMERIC,..TXER

	P(IWA)>>
IFNB <C

	p>,<IFNDEF .TXTJC

,<..TXER(IJA)>>

0IFDEF  A,<
  IF

PE <A_-^D18>,<IFD

pIF <EFBCD><>

,<..TXER(ANA)>>

0  IFE <1-<A_-^D1

P8>>,<IFDIF <BC

pD><>,<..TXER(JNA)

>>
  IFE <2-<A_

0-^D18>>,<IFIDN <

PEF><>,<..TXER(AD

pS)>>>

      IF

E ..TXEF,<
	IFID

0N <B><>,<..TXWD=

P=<..TXJU==<..TXFC

p==0>>>
	IFDIF <

B><>,<
	  IFE <^

0D<B>>,<..TXWD==<

P..TXJU==<..TXFC==

p0>>>
	  IFN <^D<

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

0B>
	    IFNB <

PC>,<..TXJU==.TXTJ

pC>
	    IFB  <

C>,<..TXJU==.TXTJ

0L
	      IFE <A

P-.TQOCT>,<..TXJU=

p=.TXTJR>

IFE <A-.TQDEC>,<

0..TXJU==.TXTJR>>

P
	    IFB  <D>,<

p..TXFC==" ">

  IFNB <D>,<..TX

0FC=="D">>>

	I

PFB  <EF>,<..TXP

pT==0>
	IFNB <E

F>,<..TXPT==1>

0IFE <..TXWD+..TXP

PT>,<
	    EXP FL

pD(A,TXT.FN)>
	I

FN <..TXWD+..TXPT

0>,<
	    EXP FLD

P(A,TXT.FN)+FLD(.

p.TXJU,TXT.JU)+FLD

(..TXWD,TXT.WD)+F

0LD(..TXFC,TXT.FC)

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

T;'h

8PcQ
    IFE

8p..TXP,<			
	..IC

9NS			
	..CNS<ASC

90IZ\>		
	..TXP==1

9P>		
    ..CNS<A

9p>			
    ..TXF==

:0			
    ..TXB=="^"
    ..TXB==;'h

:Pc]

    IF

:pN ..TXP,<			
	..

;CNS<\>		
	EXP <F

;0LD(.TQCHT,TXT.FN)

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

 Pb
    ..TX

 pEF==..TXEF!..XA

!	
    ..TXF==0

!0		
    ..TXB=="^"
    ..TXB=="^;'

'0b;..TXQB(<A>)..TXQB(<;'

'pbE

    IF

(N ..TXC-"^",<..TX

(0C0(<A>)>

(PIFE ..TXC-"^",<..TXF==1>-"^",<..;'

)be

    IF

)0E ..TXC-"^",<..TX

)PC0(<A>)>	
    I

)pFN ..TXF,<			
	.

*.TXF==0		
	IFDEF

*0 .TQCHA,<

*P  IFDEF ..TQMA,.

*p.TQMA 
	    IFN

+ <.TQCHA_-^D18>,

+0<..TXF==2>>>

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

+pXC1(<A>)	
	..IC

,NS			
	..CNS<..T

,0XA(.TQCHA,>>

,P   ..TXEG==..TXEG!..TXEF==..TXEG;'

-bw
    ..TX

-0F==3				
    IFG

-PE ..TXC-"0",IFLE

-p..TXC-"9",<..TXF=

.=2>
    IFE ..TX

.0F-2,<..CNS(A)>

.P
    IFE ..TXF-3

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

/0c
    ..TX

/PF==4				
    IFE

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

0==5>		
    IFE .

00.TXC-"[",<..TXF==

0P5>		
    IFE ..T

0pXF-4,<..CNS<A,>>

1		
    IFE ..TXF

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

1pc!
    ..TX

2F==4				
    IFE

20 ..TXC-"/",..TXF=

2P=5		
    IFE ..T

2pXC-"[",..TXF==5

3
    IFE ..TXF-5

30,<..CNS<,>

3P..TXQ5<A>>

3p  IFE ..TXF-4,<..

4CNS<A,>		
		 ..TXF==5>	
		 ..;'

4Pc3
    ..TX

4pF==6				
    IFE

5 ..TXC-"/",..TXB=

50="/"		
    IFE .

5P.TXC-"[",..TXB=="

5p]"
    IFE ..TXB

6-"]",..CNS<[>

60    IFE ..TXB,..TXF==5 ..TXB,..T;'

6pcA
    ..TX

7F==0			
    IFE

70..TXC-"]",..CNS<]

7P>	
    ..CNS<)>

7p		
    ..GCNS

8
    ..TXEG==..TXEG!..TXEF==..T;DQ @;DPQ ;EPQ ;E:Q  ;EpQ ;E+PQ ;F	0Q ;F\:Q @
0P 
@P 
PP 
`P d  Y@
	.ACV2 (A)
	.ACV2 (d@ HYJ
	A=.FPAhC+..NAC		
	IFB <B>,<..NAC=..NAC+(1>
	IFNB <B>,<..NAC=..NAC+B>.d` hYX
	IFG A-.NPAC,<PRINTX ?TO(O MANY ACS USED>
	IFLE A-4,<
	h $CALL .SAVEA>	
	IFG A-4,<
	  $CALL .SAVE8>  
 @H\D
	  IFIDN@h <A><.>,<
	    AXMOVEI .SAC,B	
A(	    PUSH P,.SAC
	  >
	  IFDIF <AhA><.>,<
	  .IFABTM <A>,.BLF4	
	B(  .BLF1==0		
	  BHIFN .BLF4,<		
	 Bh   .IF %A,MACRO,C<	
		.BLF1==1>	
	  >
	  IFNB <CHB>,<
		.BLF1==1>Ch	
	  IFN .BLF1,<D		
	    LOAD .SAD(C,A,B
	    PUSDHH P,.SAC
	  >
	Dh  IFE .BLF1,<		;IEF WASN'T A STRUCTE(URE REF,
	    IFEHN .BLF4,<		
	   Eh  .BLF2==<<Z A>&F17B17>-<P>B17 
	F(      .IF .BLF2,AFHBSOLUTE,< 
	G  Fh   IFE .BLF2,<		
	       .BLF1==1G(		
	       .BLF3GH==<Z A>&777777
Gh		PUSH P,.BLF3-..HNA(P)>>>> 
	  IFH(E .BLF1,<		
		PUHHSH P,A>>	
	  ..NA=..NA+1
	  ..
	 @\
	.BCAL1 A
	.BCAL1 
| 	WM;
	XLIST
	W8	.ORG 0
	LIST
.ORG 0
	LIST

=Z MH\l$CALL	I%INTA$CALL	I%IN9  
ehV8
	..CSN==
fA
	..CSC==0
	I
f(RP B,<
	IFE ..C
fHSN-..CSC,<
	  ST
fhOPI
	  ..CAS1 (
gB)>
	..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 8([L
	..PST==8HC-FWMASK
	.IF0 8h..PST,<
		SOS B9>,<	
		$CALL .SO9(S	
		LSTOF.
		J9HUMP [POINTR(B,C)]
		LSTON.>C}

>Pf
	.OPCD==

a0.OPCD+1
	WO.A==.OPCD
G),<
		| 	X@ML
	XLIST
	X`	.....X=.
	.ORG
	.ORG 0
	REPEAT	Y  .....X,<EXP 0>
	Y@	PURGE .....X
	.ORG
	LIST

	.v=H HX~
	IRP A,h<
	  .ENSV2 (A)>	  .ENSV2 (A)v=I (Y
	.ENSV3 (A)
	.ENSV3 v=I hY
	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 
dHV*
	..IFT==
dhA		
	IFE ..IFT,
e<
	B
	..IFT==0
e(>		
	IFN ..IFT,<
	C>N ..IFT,<&4 I\\
	IRPC AI(,<
	B==0
	IFGEIH "A"-"A",<IFLE "IhA"-"Z",<B=1>> 
	IFGE "A"-"0",<J(IFLE "A"-"9",<BJH=1>>
	IFE "A"-"Jh%",<B=1>
	IFE "KA"-"$",<B=1>
	K(IFE "A"-".",<B=KH1>
	IFE B,<STOPI>>IFE B,<STOP&t<H 5([4
	..PST==5HC-FWMASK
	.IF0 5h..PST,<
		AOS B6>,<	
		$CALL .AO6(S	
		LSTOF.
		J6HUMP [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 
%hR.<A>B<^D70-POS(B)>B<^D70N

0PO 
	SYSPRM	C	
	IFG	.PID,<MX.PID==A>	
<MX.PID=O%=H HX\
	.STKV2 (A)
	.STKV2 O%=I

Xj
	IFB <B

(>,<..STKN==..STKN

H+1>
	IFNB <B>,<

h..STKN==..STKN+B
	..STKQ==..STK
	.STKV3(A,\..STKQ)V3 (A,O%=I 
   IFDEF A,<.IF A,SYMBO(L,<PRINTX STKVAR HA ALREADY DEFINEhD>>
	DEFINE A<-^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  HY
	.TRV2 (A)
	.TRV2 (Sd@ Y&
	.TRV3 ((A,\..NV)	
	IFB H<B>,<..NV=..NV+1h>
	IFNB <B>,<..NV=..NV+B>,<..Sd` (Y4
   IFDEFH A,<.IF A,SYMBOhL,<PRINTX TRVAR A ALREADY DEFINED(>>
	DEFINE A<^OHB(.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 _%~

hf]
		$CALL

h0I%WTO		
		LSTOF.

hP			
		JRST	g

hp
		$WTRST			
	IF

iNB <A>,<$WTMTY (

i0<A>)>	
	IFNB <

iPB>,<$WTTYP (<B>)

ip>	
	IFNB <C>,<$

jWTTXT (<C>)>

j0IFNB <D>,<$WTOBJ

jP (<D>)>	
	IFNB

jp<E>,<$WTACK (<E

k>)>	
		IRP F,<

k0F>		
		$WTBLD

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