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

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

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

x
,SY@P C4@ `Y:
	..NAC==0		
	IRP A,<
	   .ACV1 (A)>		
	.ACV3 (\..NAC)C' 
>`Sv..AS(A,B,ADD,SUB)(A,BC, 
 (RLSH A,-^D9LSH A,-^DC2f}

;hcp
	.EAWTO(

<MTY,0)
	.EAWTO(T

<(YP,2)
	.EAWTO(TX

<HT,2)
	.EAWTO(OBJ

<h,0)
	.EAWTO(ACK,

=0)
	.EAWTO(FLG,1

=()
	.EAWTO(NOD,0)

=H
	.EAWTO(JBN,0)

=h
	.EAWTO(ACD,0)

>	.EAWTO(OCD,0)
	.EAWTO(MFL,1)
C:' 
c V
	TXZ A,<^-<B>>TXZ A,CHuI7Q xCHvN8P'CJ9ip CJ9jp CJ9l}p E
	..NA==0>@			
	IRP B,<
	>`  .BCAL2 B>		
	?PUSHJ	P,A		
	AD? JSP	P,-..NA		
   	P,-..NA		
  E2"@ Y@]R
	  IFE Y`B,<..TA==0>
	  ZIFN B,<EXP ..TAZ 
		    PURGE ..TA>
	PURGE ..TE@tP'E@vyQ ~E@v:=Q |F;z:Q @G@ 
7`S>
	    ..CX(,A,B)   ..CGD 
; SZ
	    ..CX(A,A,B)  ..CGDP 
9 SJ
	    ..CX(E,A,B)  ..CGDp 
9`SN
	    ..CX(G,A,B)  ..CGDy  
: SR
	    ..CX(GE,A,B) ..CGE@ 
8 SB
	    ..CX(L,A,B)  ..CGEI  
8`SF
	    ..CX(LE,A,B) ..CGE` 
:`SV
	hk..CX(N,A,B)  ..CGH 

	hOLST

	X	CRE		
/H	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		
1h	X	RFM		
	X	RFO	
	X	RSZ		
	X	B		
	X	FFB		
	HX	ACW		
	X	RMS		
	X	MCY		
	X	CT
	X	NSB		

	  LSTON.


G"\Y L|v

	IF1, L <%%EDT==AEDT>	
L@
	IF2, <IFN <%%EL`DT-AEDT>,<
		PRMINTX ? Edit NumbeM r Doesn't Match GM@LXVER in GLXA
	M`	A$WHO(\AEDT)>	N
		A$NOTE		
	IN NTERN AEDT		
	IN@NTERN LODLEV		
;N`	PURGE %%EDT> ;END IF2

O3FQ @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 k@`
	IFNB <>k`,<
	PRINTX  (Frolm GLXVER)
	> ;END IFNB 
	G>hMt jX
	PRINTX j GLXVER	GLXCOM Edij@t(62) by PERK on j`7-Jun-88
	PRINTXk	    	GLXCOM	Actual Edit(A)
	G>lYP G>vC@ 	`NLALL
PAGE	` ; (A Continued o	`@n next page)
SAL	``L; (A Continued 	afrom previous page) previous pagG?T 	WXM=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  6`[<
	IFNB <7B>,<..STR0 (.DECR7 0,,<B>,A)>
	IF7@B  <B>,<SOS A>  <B>,<SOS A>I6= 
m V~
	A==<-1
m@B<C>+1B<C-D>> 
m`
	IF1,<IFDEF %A
n,<PRINTX ?A ALRE
n ADY DEFINED>>
	D
n@EFINE %A (OP,AC,
n`Y,MSK)<	
	IFDIF 
o<Y><>,<
	OP (<AC
o >,B+'Y,MSK)>
	I
o@FIDN <Y><>,<
	OP
o` (<AC>,B'Y,MSK)>>AC>,B'Y,MSK)>I'7 
A T
..OP(A,B,DIV)..OP(A,BIOH1 \0um
	IFB <D\P>,<
	XWD	[ASCIZ\\pC\],[XWD B,A]>]
	IFNB <D>,<
	]0XWD	[EXP CM%FW!D]P
		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

khjf
	ERR	EOF

l,<End of file>

l(ERR	IFP,<Illegal

lHfile position>

lhERR	FDE,<File dat

ma error>
	ERR	FN

m(D,<File is not on

mH disk>
	ERR	NSD,

mh<No such device>

n
	ERR	FCF,<File c

n(heckpoint failed>

nH
	ERR	SLE,<A sys

nhtem limit was exc

oeeded>
	ERR	IFS,

o(<Illegal file spe

oHcification>
	ERR

oh	FNF,<File not fo

pund>
	ERR	PRT,<P

p(rotection violati

pHon>
	ERR	DNA,<De

phvice not availabl

qe>
	ERR	NCE,<No

q("current" entry i

qHn list>
	ERR	NMA

qh,<No IPCF message

r is available>

r(ERR	FDS,<Files ar

rHe on different st

rhructures>
	ERR	F

sAE,<File already

s(exists>
	ERR	USE

sH,<Unexpected syst

shem error>
	ERR	N

tSP,<No such pid>

t(
	ERR	BOL,<Beginn

tHing of list reach

thed>
	ERR	EOL,<En

ud of list reached

u(>
	ERR	RQF,<Rece

uHivers quota full>

uh
	ERR	SQF,<Sende

vrs quota full>

v(ERR	NRE,<No remem

vHbered entry>
	ER

vhR	TBF,<Table is f

wull>
	ERR	EIT,<T

w(able entry alread

wHy exists>
	ERR	I

whTE,<Invalid table

x entry>
	ERR	QEF

x(,<Quota exceeded

xHor disk full>
	E

xhRR	ARG,<Invalid a

yrgument specified

y(>
	ERR	IFN,<Inva

yHlid function spec

yhified>
	ERR	IJN,

z<Invalid job numb

z(er specified>
	E

zHRR	RAD,<Invalid r

zhadix specified>

{	ERR	NUM,<Invalid

{( numeric argument

{H>
	ERR	IDT,<Inva

{hlid date field sp

|ecified>
	ERR	IT

|(F,<Invalid time f

|Hield specified>

|h	ERR	DOR,<Date/ti

}me out of range>

}(
	ERR	DTM,<Value

}Hmissing in date/t

}hime>
	ERR	MDD,<M

~issing day in dat

~(e/time>
	ERR	DFZ

~H,<Field zero in d

~hate/time>
	ERR	M

DS,<Mnemonic date

(/time switch not

Himplemented>
	ER

hR	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>
h	ERR	ICN,<Invalid
	ERR	NQS,<Iotedtstr
(	ERR	AMB,<Ambiguo
	ERR	NMT,<Datch tok
	ERR	CMA,<Coven>
	hERR	NNC,<Nodeenam
	ERR	INT,<Nodemterm
be specified>
	E
(RR	NSN,<Unknown n
Hode name>
	ERR	I
hPS,<Invalidipath 
	(ERR	IUS,<Invalido
	ERR	DGS,<Dev

ice name may not

(exceed 6 characte

Hrs>
	ERR	DNE,<Un

hknown device>
	ER	DIO,<Device ca
	ERR	BDalidtdate/t
	ERRBS,<Fieldetooll
	ERR	TMTandetoollon
	ERR	BDS,<default s
	ERR	BTF,d table fo
	ERR	TME,<eumust>be
(	ERR	TMN,<Noetime
	ERR	TMA,<Tialready
	ERR	DVviceutermina
	ERR	NArgument bloc
	ERR	TLUinalolocati
	HERR	FIO,<File is 
	ERR	FBle being mod
	ERR	WLK,locked dev
	ERR	CSD,<Cersede a
	ERRDD,<Cannottdele
	ERR	SNb-fileudirec
h	ERR	ESL,<Search 
	(ERR	LVL,<SFDpleve
	ERR	CCWotacreate/w
	ERR	FCU,<Cae file>
	ERR	ENQ,<FileingeE
	ERR	SWS,<Softock o
	ER	DER,<Hardware d
	ER	DTE,<Hard data 
	ERR	BKT,too large>
	ERR	IPP,<Non-e
	ER	TRN,<RIBeorotra
	ERR	ILC,<Illega da
	ERR	NFte/timeumust
	ERR	NPS,<Datee in 
	ERR	UUnrecognizedm
	ERR	UDN,<Unrame in
	ERRFA,<Illegal fil
	ER	FAI,<Fileiattri
	ERR	CEI,<Canisable
	ERR	ENF,<Linky not
	ERR	NSLuch linked 
	ERR	NFP,<pages>
	hERR	NPI,<NoPfreee
	ERR	IFdirect	filer
	ER	NDN,<Nullndevic
&h	ERR	PWA,<PID wen
	ERR	CGPt get a PID
	ERR	IND,<Invae>
	ERR	IAC,<Invalid 
	HERR	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 <o8BC><>,<EXP <A>oX>
	IFDIF <BC><ox>,<
	 IFE <A+1>p,<<POINT 7,C>>
p8	 IFN <A+1>,<
	pX   IFIDN <C><>,<pxEXP <A,B>>
	  q IFDIF <C><>,<EXq8P <A,B,C>>
	>>A,B,C>>
	>KbN@ 	`Kc  	]@MnIRP 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 } n
	IFNB <>}@,<
	PRINTX  (Fro}`m GLXVER)
	> ;END IFNB 
	[KWM&`Mt {`f
	PRINTX |GLXVER	GLXFIL Edi| t(117) by JJF on |@17-Feb-87
	PRINT|`X	    	GLXFIL	Actual Edit(A)
	M&dYP 'M2  
%R(<<<A>B<POS(<B>)>>&<B>>M>h1p M>hrp M>h{p M>iRp M>k=p M>l}p M>m9p MHuiWQ @MHv
Q  MJh1p MJhrp MJip MJiVp MJk=p MJlsp MJl}p MJm9p MR4zP MR6L`P MRV>9P MS.[yQ MVpKW `
	IFNB <>,<
	PRINTX  (Fro m GLXVER)
	> ;END IFNB 
	MVpMt ~ z
	PRINTX ~@GLXVER	GLXFUN Edi~`t(2) by BAH on 14-Nov-86
	PRINTX	     	GLXFUN	Actual Edit(A)
	YMVtYP M^luQ O2|  	^ M|IRP A,<
	^@	IF2,<IFDEF A,<.	^`IFN A,EXTERN,<IN	_TERN A>>
	     	_ IFNDEF A,<EXTERN	_@ A>
	Q SUPPRESPA>>FlYSUPPRO3DYPF?O3EKrPf?O3EZ7PO3FLQ St\Yp Stkp SuZp SulQ Su}:p Sv
1p Sv

Sp Sv8;Q Sv>@p SNn 
@`T..OP(A,B,IDIV).OP(A,BSNp @S7-N 
?`S~..OP(A,B,IMUL).OP(A,BS:  3`[$
	IFNB <4B>,<..STR0 (.INCR4 0,,<B>,A)>
	IF4@B  <B>,<AOS A>  <B>,<AOS A>S:HKW  >
	IFNB <>@,<
	PRINTX  (Fro`m GLXVER)
	> ;END IFNB 
	S:HMt `6
	PRINTX GLXVER	GLXINI Edi t(23) by  on 27-J@un-84
	PRINTX	  `  	GLXINI	Actual Edit(A)
	S:LYP 	S;k 
'@R<<<<A>B<POS(<B>)>>&<B>>S; KW n v
	IFNB <>n@,<
	PRINTX  (Fron`m GLXVER)
	> ;END IFNB 
	S; Mt l`n
	PRINTX mGLXVER	GLXINT Edim t(116) by LWS on m@12-May-88
	PRINTm`X	    	GLXINT	Actual Edit(A)
	S;!kP S;!k<P S;$YP 'S? 
b`V
	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 x F
	IFNB <>x@,<
	PRINTX  (Frox`m GLXVER)
	> ;END IFNB 
	SBMt v`>
	PRINTX wGLXVER	GLXIPC Ediw t(77) by LWS on 2w@4-Aug-87
	PRINTXw`	    	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.	rXCREF
	..TEXT<Ar8>		
	  EXP	0		
	LSTON.
	0		
Uv98Q |U$@

HkB

	hOLST

	XJJNO,.JI,GJBJNO>	
	X-TNO,.JITNO,<
	XUSR,.JIUNO,.GTPPN
	X,CDN,.JIDNOH>	
	HXGPRG,.JIPNM,.GTP
	XPCJN,.JICJBCJB>	
	XTBAT,.JIBCH,.G
	XIJLT,.JTJLT		
	X,LOC,<-1,,GJBLOC>
	HXJRTM,.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 z`Z
	IFNB <>{,<
	PRINTX  (Fro{ m GLXVER)
	> ;END IFNB 
	G>hKWW
 Mt y R
	PRINTX y@GLXVER	GLXKBD Ediy`t(103) by LWS on z24-Aug-87
	PRINTz X	    	GLXKBD	Actual Edit(A)
	W
$YP !WNH1 ^uy
	IFB <C^0>,<
	XWD	[ASCIZ\^PB\],A>
	IFNB <^pC>,<
	XWD	[EXP _CM%FW!C
		ASCIZ\B\],A>
SCIZY"luQ xY&i1 	Qz

	  LST	(OF. XCREF

	CDO	H	OTSINI			
	CDO		h    			
	CDO	.ZP
AGA
	CDO	.ZPAGN
(
	CDO	.ZCHNK
	CD
HO	.SAVE1
	CDO	.S
hAVE2
	CDO	.SAVE3

	CDO	.SAVE4
	C
(DO	.SAVET
	CDO	.
HSV13
	CDO	.SV14
h
	CDO	.SV15
	CDO
	.SV16
	NT	.RETT
(
	NT	.RETF
	CDO
H	.RETE
	CDO	.AOS
h		
	CDO	.SOS		

	CDO	.ZERO		
	NT
(	.POPJ		
	CDO	.S
HTOP		
	CDO	.SAVE
h8		
	CDO	.STKST	
	
	CDO	.TRSET		
(
	NT	.POPJ1		
	C
HDO	.UD2SC		
	CDO
h	.SC2UD		
	CDO	.
CPUTY		
	CDO	.DI
(E		
	CDO
	CDO

H
	CDO			
	CDO	C
h%RPRM
	CDO	C%INT
R
	CDO	C%SEND
	
(CDO	C%RECV
	CDO	
HC%BRCV
	CDO	C%RE
hL
	CDO	C%CPID
	
CDO	C%KPID
	CDO	
(C%SPID
	CDO	C%MA
HXP
	CDO	C%PIDJ

h	CDO	C%PIDH
	CDO
	C%SIDX
	CDO
	C
(DO
	CDO

	CDO	
H      			
	CDO	F
h%IOPN
	CDO	F%AOP
	N
	CDO	F%OOPN
	
	(CDO	F%IBYT
	CDO	
	HF%OBYT
	CDO	F%IB
	hUF
	CDO	F%OBUF


	CDO	F%REL
	CDO	

(F%DREL
	CDO	F%RR

HEL
	CDO	F%REW
	

hCDO	F%POS
	CDO	F
%CHKP
	CDO	F%INF
(O
	CDO	F%FD
	CD
HO	F%REN
	CDO	F%D
hEL
	CDO	F%FCHN

	CDO
	CDO
	CDO

(
	CDO
	CDO
	CDO

H
	CDO
	CDO
	CD

hO	FUNCT.			

	C
DO	      			
	CD
(O	M%ACQP
	CDO	M%
HRELP
	CDO	M%IPSN
h
	CDO	M%NXPG
	C
DO	M%IPRC
	CDO	M
(%IPRM
	CDO	M%AQN
HP
	CDO	M%RLNP
	
hCDO	M%CLNC
	CDO	
M%FPGS
	CDO	M%GM
(EM
	CDO	M%RMEM

H	CDO
	CDO
	CDO
h
	CDO
	CDO
	CDO

	CDO	M%GPAG
	C
(DO	M%RPAG
	CDO

H	CDO
	CDO
	CDO
h
	CDO
	CDO
	CDO

	CDO

	CDO	  
(    			
	CDO	T%T
HEXT
	CDO	T%TTY

h	CDO
	CDO
	CDO

	CDO
	CDO
	CDO
(
	CDO
	CDO
	CD
HO
	CDO

	CDO	 
h     			
	CDO	L%
CLST
	CDO	L%DLST
(
	CDO	L%CENT
	C
HDO	L%CBFR
	CDO	L
h%DENT
	CDO	L%NEX
T
	CDO	L%FIRS
	
(CDO	L%LAST
	CDO	
HL%PREV
	CDO	L%PR
hEM
	CDO	L%CURR

	CDO	L%RENT
	CDO
(	L%SIZE
	CDO	L%A
HPOS
	CDO
	CDO

h	CDO
	CDO
	CDO

	CDO
	CDO
	CDO
(

	CDO			
	CDO
H	I%NOW
	CDO	I%EX
hIT
	CDO	I%ION
	
CDO	I%IOFF
	CDO	
(I%SLP
	CDO	I%INT
H1
	CDO	I%INT2
	
hCDO	I%INT3
	CDO	
I%TIMR
	CDO
	CD
(O
	CDO	I%SOPR
	
HCDO	I%WTO
	CDO

h	CDO	I%HOST
	CDO
	I%JINF
	CDO	I%C
(JOB
	CDO	I%KJOB
H

	CDO	S%U2DT		
h
	CDO	S%DT2U
	CD
O	S%DATI
	CDO	S%
(SIXB
	CDO	S%CMND
H
	CDO	S%TBLK
	C
hDO	S%SCMP
	CDO	S
%ERR
	CDO	S%INTR
(
	CDO	S%EXIT
	C
HDO	S%TBAD
	CDO	S
h%TBDL
	CDO	S%NUM
I


	CDO	K%RCO
(C			
	CDO	K%WCOC
H
	CDO	K%SUET
	C
hDO	K%STYP
	CDO	K
%TXTI
	CDO	K%SOU
(T
	CDO	K%BOUT
	
HCDO	K%BIN
	CDO	K
h%BACK
	CDO	K%TPO
S
	CDO	K%BUFF
	
(CDO	K%FLSH
	CDO	
HK%OPEN
	CDO	K%EC
hHO
	CDO
	CDO
	
CDO
	CDO
	CDO

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

@ - Zp
	IFNB <-@C>,<..STR0 (..LDB-`,A,C,B)>
	IFB.  <C>,<MOVE A,B>C>,<MOVE A,Y>%I;P YO%GP YO%yG 	a@N
	IFNDEF 	a`LSTIN.,LSTIN.==0		b	
IFE LSTIN.,<
	b 	IFIDN <XCREF><A	b@>,<.XCREF>	
		  	b` XLIST>		
	LSTIN.==LSTIN.+1STINYO%{G 	c N 
	IFG LST	c@IN.,LSTIN.==LSTIN	c`.-1	
	IFLE LSTIN	d.,<.CREF		
		      LIST>
		   [KW iL
	IFNB <>i ,<
	PRINTX  (Froi@m GLXVER)
	> ;END IFNB 
	[Mt g@D
	PRINTX g`GLXVER	GLXMAC Ediht(520) by PERK onh  7-Jun-88
	PRINTh@X	    	GLXMAC	Actual Edit(A)
	[YP ([3@ 
'R8<<<1_<A>>-1>B<B>>_<A>>[8@ 
&R01B<<A>-1>-1B<B><<A>-1>[@ 	zHO`
	IFB <B	zh>,<MAXSIZ==0
		I	{RP A,<IFG <A-MA	{(XSIZ>,<MAXSIZ==A	{H>>>
	IFNB <B>,<	{hB==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 p`

	IFNB <>q,<
	PRINTX  (Froq m GLXVER)
	> ;END IFNB 
	[hMt o 
	PRINTX o@GLXVER	GLXMEM Edio`t(33) by DPM on 1p9-Apr-88
	PRINTXp 	    	GLXMEM	Actual Edit(A)
	[lYPuQ @[th:Q [u[yQ [ukvQ  [v=3P'[v|WQ [&p 	|HOt
	IFB <B	|h>,<MINSIZ==377777	},,777777
		IRP 	}(A,<IFG <MINSIZ-A	}H>,<MINSIZ==A>>>
	IFNB <B>,<B==	~377777,,777777
		~(	IRP A,<IFG <B-	~HA>,<B==A>>>
A>,<B==A>>>
[>!` 
&@R4<A-<A/B>*B><A-<A/B[?7 
(S"
   ..MX1
( ==B			
IFDEF .P
(@SECT,<
   .IFN .
(`.MX1,ABSOLUTE,<

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

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

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

IFNDEF
/ .PSECT,<
	..MX2
/ ==0		
	IFE <..MX
/@1>B53,<
	  ..MX2
/`==1
	  MOVEI A,
0..MX1>	
	IFE ..M
0 X2,<		
	IFE <..M
0@X1>B17,<
	  ..MX
0`2==1
	  MOVSI A
1,(..MX1)>>	
	IFE
1  ..MX2,<		
	IFE 
1@<<..MX1>B53-^O777
1`777>,<
	  ..MX2=
2=1
	  HRROI A,<
2 ..MX1>>>	
	IFE .
[email protected],<		
	IFE <<
2`..MX1>B17-^O77777
37B17>,<
	  ..MX2
3 ==1
	  HRLOI A,
3@(..MX1-^O777777)>
3`> 
	IFE ..MX2,<	
4	
	  MOVE A,[..
4 MX1]>	
>
	PURGE ..MX1,..MX2RGE[Lt;ZQ x[LvN8P'[NF:=p [N^= 
p W
	A==C	
p@	
	IF1,<IFDEF %
p`A,<PRINTX ?A ALR
qEADY DEFINED>>
	
q DEFINE %A (OP,AC
q@,Y,MSK)<	
	IFDIF
q` <Y><>,<
	OP (<A
rC>,B+'Y,MSK)>
	
r IFIDN <Y><>,<
	O
r@P (<AC>,B'Y,MSK)>>AC>,B'Y,MSK)[PuySP'[PvNP'[Vg 
@ T..OP(A,B,MUL)..OP(A,B[`v
2P ] 	\MbIF2,<IFDEF	\  A,<A==A>> IFNDEF A,<A==B>]F@ p

TEMFDB##_
QkRp _
Ql}p _
Qmp _
Qm7p _
T=

	X	.OTReader
	X	.OU,Network-Cont
	X	.OTLPTr
	X	.OTBtch-Stream

	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
Wp	X	.OTDBM,<DBMS S
	X	.OTFALtream>
	X	.OTEVT,<Event>
Xp	X	.OTFCH,<Microf
	X	.OTXER,
	X	.OTNQ-Stream>
,<NQC-Stream>
_SKW u`2
	IFNB <>v,<
	PRINTX  (Frov m GLXVER)
	> ;END IFNB 
	_SMt t *
	PRINTX t@GLXVER	GLXOTS Edit`t(13) by DPM on 1u4-Apr-88
	PRINTXu 	    	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)>

f@.IFNBC<D>,<..XX=
g.IFNBC<E>,<..XX=

h	EXP ..XX		

h8CIFNB <C>,<EXP 
hxEIFB0<C>,<

iSIFNB,<POINT 7,[A
iXFI <D>,<0>

ix IFNBS<E>,<POINT
jX IFB <E>,<0>



jx>IFB><I
kIIFNBX<I>

k8 IFB <J>,<0>
kXJIFNB <J>,<EXP 

l,IFB <H>
l8>IFNBP<H>

lXIFB <G>,<0>
lxIFNB <G>,<EXP G>

G>,<EXP Ga@KW

 f
	IFNB <>

@,<
	PRINTX  (Fro

`m GLXVER)
	> ;END IFNB 
	a@Mt 
`^
	PRINTX GLXVER	GLXPFH Edi t(16) by TARL on @17-Apr-81
	PRINT`X	    	GLXPFH	Actual Edit(A)
	aDYP a 
hQ~LSH A,^D9LSH A,^D9a+= 5a;&

ha6
	 IFB  <

B>,<..STR0(..PNT

(,,<FWMASK>,A)>

H	 IFNB <B>,<..ST

hR0(..PNT,,<B>,A)>.PNT,,<B>,Aa>Mm 
$ R$<POINT WID
$@(B),A,POS(B)>B),A,POS(B)>a?H6 +a? 
!`R<^L<<A>&<-<A>>>><<A>&<aJ}Ks 	VPOF

	SALL		dh			
	LSTOF. XCRE	eF			

	%%.GLX==	e(%%.GLX			
	GLXVR	eHS==GLXVRS			

		ehIFNB <A>,<%%.MOD	f==SIXBIT/A/> 
		f(IFNB <B>,<%%.OTS	fH==SIXBIT/B/> 
	fh
	GLOB	I%INIT			

	TOPS10	<			
	g(		SEARCH	UUOSYM			gH
		%%UUOS==%%UUO	ghS		
	>				

	T	hOPS20	<			
		SEA	h(RCH	MONSYM		
;			hH%%MONS==%%MONS		
	>				

	IFB <	iB>,<			
		IFN G	i(LXPUR,<
			.TEXT	iH	|,REL:GLXLIB/SEA	ihRCH/REQUIRE:I%INI	jT/SEGMENT:LOW|
		j(	>			
		DEFINE	$	jHDATA (NAM,SIZ<1>)	jh,< 
			NAM:	BLOC	kK	SIZ
		>			
			k(DEFINE	CDO (X),<G	kHLOB X> 
		DEFINE	kh	NT(X),<CDO X>	
	l		LIBVEC			
	>			l(		

	IFNB <B>,	lH<			
		IFDEF .MC	lhRV.,<.VERSION <GL	mXVRS>>
		CHKEDT 	m((B)		

	IFDIF 	mH<B><INI>,<		
			mhIFN GLXPURE,<.PSE	nCT .HIGH.> 
		IF	n(E GLXPURE,<		
			nH	TWOSEG	400000	
	nh			RELOC	0	
			R	oELOC	400000	
		>	o(			

		DEFINE $	oHDATA(NAM,SIZ<1>),	oh< 
			IFN GLXPUR	pE,<.PSECT DATA> 
			IFE GLXPURE,<	pHRELOC> 
			IFNDE	phF B%D,<B%D::! 	qB%DL==:0>
			NAM	q(:	BLOCK	SIZ
				qHB%DL==:B%DL+SIZ 	qh
			IFN GLXPURE,	r<.ENDPS DATA> 
		r(		IFE GLXPURE,<RE	rHLOC> 
		>			

	rh	IFDIF <B><OTS>,	s<		
		DEFINE	CDO	s( (X),<GLOB X> 
		sH	DEFINE	NT(X),<CD	shO X> 
		LIBVEC			t
	>			

	>			
	

	IFIDN <B>	tH<INI>,< 
		DEFIN	thE	$DATA (NAM,SIZ<	u1>),< 
			NAM:	B	u(LOCK	SIZ
		>			
	>				
	>

	L	uhSTON.				

	GLO	vB	<.POPJ, .RETT, 	v(.RETF>	
	OPDEF	$	vHRET	[POPJ	P,]	
		vhOPDEF	$RETT	[PJRS	wT	.RETT]	
	OPDEF	w(	$RETF	[PJRST	.RE	wHTF]	
	OPDEF	$RET	whIT	[JUMPT	.POPJ]		x
	OPDEF	$RETIF	[	x(JUMPF	.POPJ]	
	.	xHNODDT	$RET,$RETT,	xh$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 s 
	IFNB <>s@,<
	PRINTX  (Fros`m GLXVER)
	> ;END IFNB 
	gpMt q`
	PRINTX rGLXVER	GLXSCN Edir t(135) by DPM on r@19-Apr-88
	PRINTr`X	    	GLXSCN	Actual Edit(A)
	gtYP .g"@ Z`]f
	IFN <<.[.TA>&B>,<PRINTX[  ?Initial field n[@ot zero in $SET>
	\..TVAL==<C>
	\ ..TMSK==<B>
	  ..TA==..TA!\@<FLD(..TVAL,..TMS\`K)>
	  PURGE ..TVAL,..TMSK
	.TgtXrP gv

[P"g#=ztPp%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 @XV
	..STKR=`=10		
	RADIX 8
		..STKN==0
	IRP 	 A,<
	  .STKV1 (	@A)>
	$CALL	.STK	`ST
	 ..STKN,,..S
TKN
	RADIX ..STK
 R
	DEFINE ENDSV.
@<.ENSV1 <A>>
	P
`URGE ..STKN,..STKR,..STKQ
   TKgR~r cX^U

.TYPE=cx=-1				
IFIDN <dB><HALT>,<.TYPE==d80>		
IFIDN <B><dXCONT>,<.TYPE==1>	dx	
IFIDN <B><DEBeUG>,<.TYPE==2>		

IFL .TYPE,<			eX	
IF2,<PRINTX ? exStopcode A is inf error; see S..Af8 in CREF>
S..A:fX:JRST	4,.			
>		fx			

IFB <A>,<g				
IF2,<PRINTXg8 ? Stopcode with gXout a A; see S..gx in CREF>
S..::	hJRST	4,.			
>			h8		

IFGE .TYPE,hX<				
S..A::PUShxHJ	P,.DIE			
	CAiI	.TYPE,[			
	<Si8IXBIT /A/>&77777iX7000000	
	EXP	%%ix.MOD			
	EXP	C	j		
	EXP	[ASCIZ |j8D|]		
	]				
>jX					

	PURGE	.TYPE			
URGE	.gR~)  0@[

	IFNB <0`C>,<..STR0 (..DPB1,A,C,B)>
	IFB1   <C>,<MOVEM A,B>>,<MOVEM A,gV 
? Sz..AS(A,B,SUB,ADD)(A,Bgg

V 	y(OP
	IFNB <	yHB>,<TOPS10<A==B	yh>>
	IFNB <C>,<T	zOPS20<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( Ex|/IFN FTUUOS,B			;DEFINE UNi?4H F8|3IFN FTJSYS,	INTERN AEDT	iD |x_s

  IFNB}	<A>,<.TQCHA==^}8D<B>B17+ZZ>
  I}XFNB 	<D>,<DEFINE}x ..TQMA<D>>
  ~IFNB	<C>,<.TQC=~8=^D<B>B17+ZZ>
	 ZZ==ZZ+1ZZ>
	iG, rx_c
	LSTOF.
	TQ(T,2,ASCIZ)		s8	
	TQ(O,2,OCTAL)sX			
	TQ(D,2,DECIsxMAL)			
	TQ(F,2,tFILE)			
	TQ(7,2t8,CSEVEN)			
	TQ(tX6,2,CSIXBIT)			
tx	TQ(W,2,SIXBIT)		u	
	TQ(5,2,SVNBITu8)			
	TQ(P,2,USEuXR)			
	TQ(U,2,DIuxRECTORY)			
	TQ(vH,2,DAYTIME)			
v8	TQ(C,2,TIME)			
	TQ(E,2,ERROR)		vx	
	TQ(I,1,INDIREwCT)		
	TQ(M,0,CRw8,..TXC0(\".CHCRT)wX)	
	TQ(J,0,LF,..wxTXC0(\".CHLFD))	
	TQ(L,0,FF,..TXCx80(\".CHFFD))	
	TxXQ(K,0,VT,..TXC0(\xx".CHVTB))	
	TQ(Ay,0,NOCRLF,..TXA(.y8TQCHA))	
	TQ(0,0yX,NULL,..TXA(.TQCHyx0))	
	TQ(3,0,STRzING,..TXER(IQU))	z8
	TQ(V,2,VERSIONzX)			
	TQ(2,0,CARzxET,..TXER(IQU))	
	TQ(Q,2,POINTER){8			
	TQ(B,2,ROB){X			
	TQ(1,2,OBJE{xCT)			
	TQ(N,2,N|ODE)			
	TQ(R,2,|8JIB)			
	LSTON.
)			
	LSTON.

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

?TOPS10<	X(VT101,V
@X(VT102,VT102,102,
TOPS10<	X(VT103,SET
BX(VT125,VT125<.CHE
TOPS10<180,VT180,18
TOPS10<	XVT185,185,
FX(VT220,VTETTLC,<.
GX(V40,VT240,240,SE
HX(VT330,VT330<.CHE
IX(VT3440,340,SETTL
JPSX(VT50,VT50,V50,
KX(VT52,VT52,V52C,"
TOPS10<	X(VT61,LC,<
	LSTON.

> 
	LSTONiK,PA iK4@ Y
	..TRR== 10		
	RADIX 8
	@..NV==1			
	IRP `A,<
	  .TRV1 (A)>		
	$CALL	.TR SET		
	 ..NV-1,,@..NV-1
	RADIX ..`TRR		
	PURGE ..TRR,..NVURGE ..Tib 
X UB
		..TX(C,A,<B>)..TX(Cib 
Y`UN
		..TX(CA,A,<B>).TX(CibP 
X`UF
		..TX(CE,A,<B>).TX(Cib` 
Y UJ
		..TX(CN,A,<B>).TX(Cibp 
R U
		..TX(N,A,<B>)..TX(Nibt 
S`U
		..TX(NA,A,<B>).TX(NibtP 
R`U
		..TX(NE,A,<B>).TX(Nibu` 
S U
		..TX(NN,A,<B>).TX(Nibx 
T U"
		..TX(O,A,<B>)..TX(Oib| 
U`U.
		..TX(OA,A,<B>).TX(Oib|P 
T`U&
		..TX(OE,A,<B>).TX(Oib}` 
U U*
		..TX(ON,A,<B>).TX(Oic KW  
	IFNB <>@,<
	PRINTX  (Fro`m GLXVER)
	> ;END IFNB 
	ic Mt `
	PRINTX GLXVER	GLXTXT Edi t(55) by BAH on 1@4-Nov-86
	PRINTX`	    	GLXTXT	Actual Edit(A)
	ic!h2Q ic!i0Q ic!iQP ic!iWQ `ic!j6Q ic!jZQ ic!k Q `ic!kPQ @ic!lQ  ic!lQ |ic!l`Q ic!lqQ ic!lvP ic!lvP ic!lxP'ic!lyP ic!lyQ ic!mrQ pic!nQ ic$YP icP 
V U2
		..TX(Z,A,<B>)..TX(ZicT 
W`U>
		..TX(ZA,A,<B>).TX(ZicTP 
V`U6
		..TX(ZE,A,<B>).TX(ZicU` 
W U:
		..TX(ZN,A,<B>).TX(ZkR`KW @(
	IFNB <>`,<
	PRINTX  (From GLXVER)
	> ;END IFNB 
	kR`Mt  
	PRINTX  GLXVER	GLXUTL Edi@t(2) by DPM on 4-`Dec-85
	PRINTX	    	GLXUTL	Actual Edit(A)
	kRdYP mKc@ FXN$BYTE (3)A	d@WHO (9)AVER (6)AMIN (18)AEDTo&  
! R
<^L<-<<A>_<^L<A>>>-1>>>o<trP o<tuP o<tkP o<u(WP o<uX<P o<uYVP o<uZ7P o<u]P o<ukrP o<uxUP o<uxrP o<vNP o<vN8P p ~X_uA==<ZZ==ZZ+1>
.TTC==.q"eJ  P q*-` +

q+= +
q6~i4 C q? 
c`V
	TXC A,<B>
	TXC A,q@ 	\`MhIFB <C>,<	]A==:B> IFNB <C>,<A=:B>B <CqBp +qN5P +up 9`[T
	IFNB <:B>,<..STR1 (..TQZ: ,,<B>,A,..STR4):@>
	IFB  <B>,<SETZM A><B>,<SEuhP 	;z WPuO
	.XCREF	Wp.$RESET, .$BUILD
	.$RESET
	$TYPEX0 (.CMACT)
	$HELPXP (<>)
	$NEXT (AXp)
IFIDN <B> <>,Y< IRP C,<C>
		Y0	.$BUILD>
IFDIF YP<B> <>,<
	$HELPYp (B)
	IRP C,<C>
	.$BUILD><	0

d(f&
.WTOX.(.OM

dHACK,<A>,<B>,<C

dh>,<D>,<$WTFLG(WT.SJI),E>)LG(WT	J7 
			DEF(INE .$RTN <A>
			.%RTN==1A>
		D[
	IFDIF<<,<.XCREF	.%
DEFNE[.$HLPM<POINT
			.%HLPM==-1>
	fI9XCREF	.%L
			DEF.$LST <A+1>
			.%LST==11>
=Z K`\f
	  IFG LA-INT.LV,<PRINTX L ?Level A interruL@pts not supportedL`>
	ho.BGINT.(\A)B  .BGINT.(\A	X5 
			DINE .$BREA <A>
			.%BREA==1>	- N@]
	  IFDEFN` ..BSIZ,<PRINTX ?OMissing $EOB afteO r a $BUILD>
	  .[email protected]==0			
	  .O`.BLOC==.			
	  RPEPEAT A,<			
		P BLD0.(\..BSIZ,0)	P@
		..BSIZ==..BSIZ+1>	
	==..BSI		}[0 ;Pse
	.XCREF	;p.$RESET, .$BUILD
	.$RESET
	$TYPE<0 (.CMCMA)
	$NEXT<P (A)
	IRP B,<B>
	.$BUILD,<	I@ 7sA
	.XCREF	70.$RESET, .$BUILD
	.$RESET
	$TYPE7p (.CMCFM)
	IRP 8A,<A>
	.$BUILD,<A>
	.$BUILD	$^ DPt7
	.XCREF	Dp.$RESET, .$BUILD
	.$RESET
	$TYPEE0 (.CMTXT)
	$HELPEP (<>)
	$NEXT (AEp)
IFIDN <B> <>,F< IRP C,<C>
		F0	.$BUILD>
IFDIF FP<B> <>,<
	$HELPFp (B)
	IRP C,<C>
	.$BUILD><	I  G0tE
	.XCREF	GP.$RESET, .$BUILD
	.$RESET
	$TYPEH (.CMTAD)
	$PDATH0A (CM%IDA)
	$NEXHPT (A)
	IRP B,<B>
	.$BUILD,<	,,U M`\p
	  $RET	N			;WILL INVOKE RIGHT ROUTINE
		,h: 
	IFDIF<<,<.XCREF	.%
DEFNE[.$DEFM<POINT
v(			.%DEFM==1>
	IFIDN <A> <>,<
IhF1 <
PRINTXg%Nult in $DEFAULT macro>>DE	.` Ct!
	.XCREF	C0.$RESET, .$BUILD
	.$RESET
	$TYPECp (.CMDEV)
	$NEXTD (A)
	IRP B,<B>
	.$BUILD,<	Lz: #Pr1
	.XCREF	#p.$RESET, .$BUILD
	.$RESET
	$TYPE$0 (.CMNUX)
	$PDAT$PA (B)
	$HELP (<$p>)
	$NEXT (A)
%IFIDN <C> <>,< I%0RP D,<D>
			.$%PBUILD>
IFDIF <C%p> <>,<
	$HELP (&C)
	IRP D,<D>
	.$BUILD><D>
	.XCREF	8p.$RESET, .$BUILD
	.$RESET
	$TYPE90 (.CMDIR)
	$NEXT9P (A)
	IRP B,<B>
	.$BUILD,<	|  U@]H
	  IFNDEU`F ..BSIZ,<PRINTX V?$EOB without preV vious $BUILD>
	 V@ IFN <.-..BLOC>,<V`PRINTX ?Address cWhange between $BUW ILD and $EOB>
	 W@ LSTOF.			
	  ..W`T==0
	  REPEAT .X.BSIZ,<
	    BLDX 0.(\..T,1)		
	  X@  ..T==..T+1 >
	X`  PURGE ..BSIZ,..YT,..BLOC	
	  LSTON.
		
	hoLST	+yE.%E
			DINE .$ERTN <A>
			.%ERTN==1>	, 
			DINE>.$ERTN <1B0
			.%ERTN==1>
			.%ERTN	-.
			DINE2.$ERTNZ<[MO
				>     $RET
			.%ERTN==1>
			.%ERTN==1	IF2,<IFN <	ZhA>-.,<PRINTX ? I	[LLEGAL $FALL A>>EGAL $FALL A>>	H6 8^
	$CALL	._XSTOP
	LSTOF.
	J_xUMP	[XWD 0,[ITEXT` (<A>)]
		 EXP `8%%.MOD]
	LSTON. .MOD]
	LSTON. 	L[ 40s5
	.XCREF	4P.$RESET, .$BUILD
	.$RESET
	$TYPE5 (.CMFLD)
	$NEXT50 (A)
	$HELP (<>5P)
IFIDN <B> <>,5p< IRP C,<C>
		6	.$BUILD>
IFDIF 60<B> <>,<
	$HELP6P (B)
	IRP C,<C>
	.$BUILD><	MI  1Ps
	.XCREF	1p.$RESET, .$BUILD
	.$RESET
	$TYPE20 (.CMFIL)
	$HELP2P (<>)
	$NEXT (A2p)
IFIDN <B> <>,3< IRP C,<C>
		30	.$BUILD>
IFDIF 3P<B> <>,<
	$HELP3p (B)
	IRP C,<C>
	.$BUILD><	dy 
			DINE .$FLGS <A>
			.%FLGS==1>	ex: @0t
	.XCREF	@P.$RESET, .$BUILD
	.$RESET
	$TYPEA (.CMFLT)
	$HELPA0 (<>)
	$NEXT (AAP)
IFIDN <B> <>,Ap< IRP C,<C>
		B	.$BUILD>
IFDIF B0<B> <>,<
	$HELPBP (B)
	IRP C,<C>
	.$BUILD><	$ Lpts
	.XCREF	M.$RESET, .$BUILD
	.$RESET
	$TYPEMP (.CMTAD)
	$PDATMpA (<CM%IDA!CM%ITMN!CM%FUT>)
	$NEXTN0 (A)
	IRP B,<B>
	.$BUILD,<	$ ^H]wQ(
	  INTER^xN A
	  $DATA(A,<B>)
	ATA(A}]p1P	"


	IFDIF<<,<.XCREF	.%
DEFNE[.$HLPM<POINT
			.%HLPM==1>
	&5 ,rs
	.XCREF	,0.$RESET, .$BUILD
	.$RESET
	$TYPE,p (.CMIFI)
	$HELP- (<>)
	$NEXT (A-0)
IFIDN <B> <>,-P< IRP C,<C>
		-p	.$BUILD>
IFDIF .<B> <>,<
	$HELP.0 (B)
	IRP C,<C>
	.$BUILD><	&u >ps
	.XCREF	?.$RESET, .$BUILD
	.$RESET
	$NEXT?P (A)
	$TYPE (.C?pMINI)
	IRP B,<B>
	.$BUILD,<	./ pr
	.XCREF	.$RESET, .$BUILD
	.$RESET
	$TYPEP (.CMKEY)
	$PDATpA (B)
	$NEXT ( A)
	IRP C,<C>
	.$BUILD,<C>
	.XCREF	0.$RESET, .$BUILD
	.$RESET
	$TYPEp (.CMKEY)
	$PDATA (A)
	$NEXT (00)
	IRP B,<B>
	.$BUILD,<B>
	/>Ky

gf:.WTOX.(.OM

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

f(f4.WTOX.(.OM

fHLOG,<A>,<B>,<C>,,<D>)B>,<C	:/
			DEF.$NXT <A>
			.%NXT==1A>
		:|KV TPu9
	.XCREF	Tp.$RESET, .$BUILD
	.$RESET
	$TYPEU0 (.CMNOD)
	$HELPUP (<>)
	$NEXT (AUp)
IFIDN <B> <>,V< IRP C,<C>
		V0	.$BUILD>
IFDIF VP<B> <>,<
	$HELPVp (B)
;	$FLAGS (WCM%PO)
	IRP C,<C>
	.$BUILD><	:}r &PrA
	.XCREF	&p.$RESET, .$BUILD
	.$RESET
	$TYPE'0 (.CMNOI)
	$PDAT'PA (<POINT 7,[ASCI'pZ\B\]>)
	$NEXT ((A)
	IRP C,<C>
	.$BUILD,<C	;-XR  Pr
	.XCREF	 p.$RESET, .$BUILD
	.$RESET
	$TYPE!0 (.CMNUM)
	$PDAT!PA (B)
	$HELP (<!p>)
	$NEXT (A)
"IFIDN <C> <>,< I"0RP D,<D>
			.$"PBUILD>
IFDIF <C"p> <>,<
	$HELP (#C)
	IRP D,<D>
	.$BUILD><D>
	.XCREF	/.$RESET, .$BUILD
	.$RESET
	$TYPE/P (.CMOFI)
	$NEXT/p (A)
	$HELP (<>0)
IFIDN <B> <>,00< IRP C,<C>
		0P	.$BUILD>
IFDIF 0p<B> <>,<
	$HELP1 (B)
	IRP C,<C>
	.$BUILD><	B$ 
			DINE .$DATA <A>
			.%DATA==1>	B$YP 
			DINE<.$DEFM <POI
			.%DEFM==1>
			.%	CYT hp
.XCREF	.%DEFR,	.$DEFR
			D(EFINE .$DEFR <A>
			.%DEFR==1>	G-} Npu	
	.XCREF	O.$RESET, .$BUILD
	.$RESET
	$TYPEOP (.CMQST)
	$HELPOp (<>)
	$NEXT (AP)
IFIDN <B> <>,P0< IRP C,<C>
		PP	.$BUILD>
IFDIF Pp<B> <>,<
	$HELPQ (B)
	IRP C,<C>
	.$BUILD><	J.I  ](]n
	  $CALL]H	.RETE			
		LSTO]hF.
	  JUMP	ERA$
		LSTON.ERA$	Ni   ZV
	.NVR==0@			
	.ACM==0			

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

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

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

	IFN .NVR,<	
) 		PUSHJ	P,@-.NVR()@P)	
		 TRNA			
)`		AOS	-1-.NVR(P)	*
	    REPEAT .NV* R,<..POP(\.NVR)>	*@
		ADJSP	P,-1		
		POPJ	P,]>		
		POPJ	P,]>		
	N;CREF	.%S
	IFD	<A><>,<DEFINE
	.%SBCM==1
>
	.%SBCM==1
	N.@ Q]
	  IFNDEQ F ..BSIZ,<PRINTX Q@?$SET without preQ`vious $BUILD>
	 R IFNB <B>,<..STRR 0 (..SET,<C>,B,R@A)>
	IFB  <BR`>,<..STR0 (..SET,S<C>,FWMASK,A)>
	,FWMASK,A)>
	.XCREF	_pa,	b
	a==.
	`XWD b-1,b-1
	D`0EFINE $ETAB <.XCR`PEF	a,	b
		b==.-a>b
		b==	O%| k^i
IF1,<PRIk8NTX % Use STOPCD kXmacro for stopcodkxe A instead of $lSTOP>
S..A::!	$l8CALL .STOP
		LSTlXOF.
		JUMP [XWD lx'A',[ITEXT (<B>m)]
			EXP %%.MOD]
		LSTON.	MOD	O,(v =ss
	.XCREF	=0.$RESET, .$BUILD
	.$RESET
	$NEXT=p	(A)
	$TYPE	(.C>MINI)
	$SBCM	(B>0)
	IRP C,<C>
	.$BUILD,<C>
	O= *0r]
	.XCREF	*P.$RESET, .$BUILD
	.$RESET
	$TYPE+ (.CMSWI)
	$PDAT+0A (A)
	$NEXT (0+P)
	IRP B,<B>
	.$BUILD,<B>
	O= (PrO
	.XCREF	(p.$RESET, .$BUILD
	.$RESET
	$TYPE)0 (.CMSWI)
	$PDAT)PA (B)
	$NEXT ()pA)
	IRP C,<C>
	.$BUILD,<C>

@ Jptc
	.XCREF	K.$RESET, .$BUILD
	.$RESET
	$TYPEKP (.CMTAD)
	$PDATKpA (<CM%IDA!CM%ITML>)
	$NEXT (A)
L0	IRP B,<B>
	.$BUILD,<B>
	.$	R/mX^u
	$CALL	Tmx%TEXT
	LSTOF.	XCnREF
	JUMP	[XWD 2n8,0
		 EVL (A)
nX		 ITEXT(<B>)]	
	LSTON.B>)]	
	.XCREF	I0.$RESET, .$BUILD
	.$RESET
	$TYPEIp (.CMTAD)
	$PDATJA (CM%ITM)
	$NEXJ0T (A)
	IRP B,<B>
	.$BUILD,<	R}97 Z0u_
	.XCREF	ZP.$RESET, .$BUILD
	.$RESET
	$TYPE[ (.CMTOK)
	$PDAT[0A (<POINT 7,[ASCI[PZ\B\]>)
	$NEXT [p(A)
	IRP C,<C>
	.$BUILD,<C	S

X_y


  ..TX

hA(.TQA,C,D,E,~xB)	
      IFN .8.TXEF,<			
	..TERR<$TQ(A,B,C,D,E)>>

C,	S@I9

Had
	LSTOF.

h
	X(UQU,Unknown q

ualifier)
	X(IQU

(,Invalid qualifie

Hr)
	X(IJA,Invali

hd justification a

rgument)
	X(IWA,

(Invalid width arg

Hument)
	X(PEA,Pr

hemature end of ar

gument)
	X(JNA,J

(ustification is n

Hot allowed)
	X(A

hNA,Arguments are

not allowed)
	X(

(ADS,Address must

Hbe specified)
	LSTON.
ied)
	L	SN	.REF	.%T
			DEE .$TYP <A>
			.%TYPE==1>
	W= QPu!
	.XCREF	Qp.$RESET, .$BUILD
	.$RESET
	$TYPER0 (.CMUQS)
	$HELPRP (<>)
	$NEXT (ARp)
	$PDATA (B)
SIFIDN <C> <>,< IS0RP D,<D>
			.$SPBUILD>
IFDIF <CSp> <>,<
	$HELP (TC)
	IRP D,<D>
	.$BUILD><D>
	.XCREF	:0.$RESET, .$BUILD
	.$RESET
	$TYPE:p (.CMUSR)
	$NEXT; (A)
	IRP B,<B>
	.$BUILD,<	^+@ `x^
IFE %%.OaTS,<DEFINE $WARN a8(MSG) <
		$TEXT aX(T%TTY,<% ^W6/[%%ax.MOD]/ MSG>)>>
IbFN %%.OTS,<DEFINEb8 $WARN (MSG) <
	bX	$TEXT (T%TTY,<% bx^W6/IIB+IB.PRG/ ^cW/[%%.MOD]/ MSG>)>>
	$WARN <A>	_$r

X(eT
		IFB	<

XHA>,<.WFACD==0

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

YD==0>>
		IFNB	<

Y(A>,<.WFACD==-1

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

YhCD==.$WACD!<A>>

Z
			IFE <0-2>,<DE

Z(FINE .$WACD,<<WO.

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

M(d|
		IFB	<

MHA>,<.WFACK==0

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

NK==0>>
		IFNB	<

N(A>,<.WFACK==-1

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

NhCK==.$WACK!<A>>

O
			IFE <0-2>,<DE

O(FINE .$WACK,<<WO.

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

?f
	IFE	<.W

?(FMTY>,<PRINTX ?No

?H message type in

?h$WTBLD>
DEFINE .

@EAWTO(SUFFIX,ARGC

@(OD),<
IFN .WF'SU

@HFFIX',<
	IFE	<AR

@hGCOD-0>,<<WO.'SUF

AFIX'>B8+ .$W'SUFF

A(IX'>
	IFE	<ARGCO

AHD-1>,<<WO.'SUFFIX

a('>B8+ [EXP .$W'SU

aHFFIX']>
	IFE	<AR

ahGCOD-2>,<.$W'SUFF

bIX'>
>
>
	ALLW

b(TO				
	EXP	0			
		
	EXP	0				_$k

Pe
		IFB	<

P(A>,<.WFFLG==0

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

PhG==0>>
		IFNB	<

QA>,<.WFFLG==-1

Q(		IFN <1-2>,<.$WF

QHLG==.$WFLG!<A>>

Qh
			IFE <1-2>,<DE

RFINE .$WFLG,<<WO.

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

UHe>
		IFB	<

UhA>,<.WFJBN==0

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

V(N==0>>
		IFNB	<

VHA>,<.WFJBN==-1

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

WBN==.$WJBN!<A>>

W(
			IFE <0-2>,<DE

WHFINE .$WJBN,<<WO.

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

]hf
		IFB	<

^A>,<.WFMFL==0

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

^HL==0>>
		IFNB	<

^hA>,<.WFMFL==-1

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

_(FL==.$WMFL!<A>>

_H
			IFE <1-2>,<DE

_hFINE .$WMFL,<<WO.

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

B(d$
		IFB	<

BHA>,<.WFMTY==0

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

CY==0>>
		IFNB	<

C(A>,<.WFMTY==-1

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

ChTY==.$WMTY!<A>>

D
			IFE <0-2>,<DE

D(FINE .$WMTY,<<WO.

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

Rhe(
		IFB	<

SA>,<.WFNOD==0

S(	IFN <0-2>,<.$WNO

SHD==0>>
		IFNB	<

ShA>,<.WFNOD==-1

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

T(OD==.$WNOD!<A>>

TH
			IFE <0-2>,<DE

ThFINE .$WNOD,<<WO.

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

bhf.WTOX.(.OM

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

JHdf
		IFB	<

JhA>,<.WFOBJ==0

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

K(J==0>>
		IFNB	<

KHA>,<.WFOBJ==-1

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

LBJ==.$WOBJ!<A>>

L(
			IFE <0-2>,<DE

LHFINE .$WOBJ,<<WO.

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

[ej
		IFB	<

[(A>,<.WFOCD==0

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

[hD==0>>
		IFNB	<

\A>,<.WFOCD==-1

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

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

\h
			IFE <0-2>,<DE

]FINE .$WOCD,<<WO.

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

e(f..WTOX.(.OM

eHWTO,<A>,<B>,<C

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

cHf
.WTOX.(.OM

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

Bf
	DEFINE

Ah.EAWTO(SUFFIX),<$

`HWT'SUFFIX'	<>>
	ALLWTO				

		_&N

GhdP
		IFB	<

HA>,<.WFTXT==0

H(	IFN <2-2>,<.$WTX

HHT==0>>
		IFNB	<

HhA>,<.WFTXT==-1

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

I(XT==.$WTXT!<A>>

IH
			IFE <2-2>,<DE

IhFINE .$WTXT,<<WO.

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

Ed:
		IFB	<

E(A>,<.WFTYP==0

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

EhP==0>>
		IFNB	<

FA>,<.WFTYP==-1

F(		IFN <2-2>,<.$WT

FHYP==.$WTYP!<A>>

Fh
			IFE <2-2>,<DE

GFINE .$WTYP,<<WO.

G(TYP>B8+[ITEXT (<A>)]>>
		>
<
t{P 
u[rQ ]>t2
u}P 
,MP (V=P .
P .JP .bP /P B&@P cGP )0 p0h"P/Z6 0qe			

	.XPCREF	a,	b,	c,	pd

	.XCREF	.%T

YPE,	.%FLGS,	.%DA

0TA,	.%HLPM,	.%DEF

PM,	.%LST
	.XCREF

p	.$TYP,	.$FLGS,	.

	.REF	.%BREA,	.%N,	.%DEFR,	.%SBCM
	.XCREF	.$BREA,	P.$NXT,	.$ERTN,	.$pRTN,	.$DEFR,	.$SBCM

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

	pIFN <.%BREA>,<d==d!CM%BRK> 

	0IFG <.%HLPM>,<d=P=d!CM%HPP!CM%SDHp> 
						
	IFL <.%HLPM>,<d==d!0CM%HPP>	
						

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

c:!	<INSVL.(0b,PB.PDB)>!<INSVLP.(a,PB.FDB)> ;PDpB, FDB
	EXP	d			
	EXP	.$DATA			0
IFN <.%HLPM!.%DPEFM!.%BREA>,<
	EpXP	.$HLPM>			
IFN <.%DEFM!.%BREA>0,<
	EXP	.$DEFM>	P		
IFN <.%BREA>,p<
	EXP	.$BREA>			

	a==.-c			0

IFN <.%NXT!.%PDEFR!.%RTN!.%ERTNp!.%SBCM>,<
	EXP	.$NXT >			
IFN <0.%DEFR!.%RTN!.%ERPTN!.%SBCM>,<
	EXpP	.$RTN >			
IFN <.%DEFR!.%ERTN!.0%SBCM>,<
	EXP	.$PERTN>			
IFN <.%pDEFR!.%SBCM>,<
	EXP	.$DEFR>			
I0FN <.%SBCM>,<
	EPXP	.$SBCM>			

p	b==.-c			

IF2,<
	PURGE	.%TY0PE,	.%FLGS,	.%DATPA,	.%HLPM,	.%DEFMp,	.%LST
	PURGE	.$TYP,	.$FLGS,	.$D0ATA,	.$HLPM,	.$DEPFM,	.$LST

	PURpGE	.%BREA,	.%NXT,	.%ERTN,	.%RTN,	.0%DEFR,	.%SBCM
	PPURGE	.$BREA,	.$NXpT,	.$ERTN,	.$RTN,	.$DEFR,	.$SBCM
0
	PURGE	a,	b,	Pc,	d
> 
	LIST,	d
> 
	LIST$YVHpPOINTr7,[ASCIZ\0\]NT 7,[A$YY p 0lbP.- p0MBP65Iy p0="P)f= p0+1P5w
	.XCREF
	SALL
	XLIST
	PDEFINE .$TYP <0>
	.%TYPE==0
	DEFINE .$FLGS <0>
	0.%FLGS==0
	DEFINPE .$DATA <0>
	.%pDATA==0
	DEFINE .$HLPM <>
	.%HLP0M==0
	DEFINE .$DPEFM <0>
	.%DEFM=p=0
	DEFINE .$LST <0>
	.%LST==0
0	DEFINE .$BREA <0P>
	.%BREA==0
	DpEFINE .$NXT <0>
		.%NXT==0
	DEFIN	0E .$ERTN <0>
	.%	PERTN==0
	DEFINE 	p.$RTN <0>
	.%RTN
==0
	DEFINE .$DE
0FR <0>
	.%DEFR==
P0
	DEFINE	.$SBCM
p	<0>
	.%SBCM==0
	.CREF
CM==0p0kBP' k0T 1,O)0P $YVP $YYP .-P 5IyP f=P w
A`T:
	   ..AS
B1==-<B>	
	IFDEF
B  .PSECT,<
	.IFN 
[email protected],ABSOLUTE,<
B`
	     C A,[-..
CAS1]>	
	.IF ..AS
C 1,ABSOLUTE,<
		.
[email protected]==0	
	  IFE 
C`<..AS1&^O777777B1
D7>,<
		..AS2==1	
D 
	    DI A,..A
D@S1>
	  IFE ..AS2
D`,<
	    ..OP(A,
EB,C)>	
	PURGE 
E ..AS1,..AS2>>
	I
E@FNDEF .PSECT,<
	
E`	..AS2==0	
	  IF
FE <..AS1&^O777777
F B17>,<
		..AS2==
F@1	
	    DI A,.
F`.AS1>
	  IFE ..A
GS2,<		
	    ..OP
G (A,B,C)>
	PURGE ..AS1,..AS2>:h V8
	AKW: 
4`Sr
	  ..CX1
5==C
	IFDEF .PSE
5 CT,<
 	.IFN ..CX
5@1,ABSOLUTE,<
	  
5`    CAMA B,[C]
6>
	.IF ..CX1,ABS
6 OLUTE,<	
		..CX2
6@==0	
	  IFE <..C
6`X1&^O777777B17>,<
7
		..CX2==1	
	 
7    CAIA B,C>

7@	  IFE ..CX2,<		
;`
	    CAMA B,[
<C]>
	PURGE ..CX1
< ,..CX2>>
	IFNDEF
<@ .PSECT,<
		..CX
<`2==0	
	  IFE <..
=CX1&^O777777B17>,
= <
		..CX2==1	
	
=@    CAIA B,C>
=`
	  IFE ..CX2,<		
>
	    CAMA B,[
> C]>
	PURGE ..CX1,..CX2>GE ..CX:&@ 1`[
	..TSIZ 2(..PST,C)
	.CAS2 E ..PST,<<
		MOV2@EM A,B>,<
		HR2`RM A,B>,<
		HR3LM A,B>,<
		DP3 B A,[POINTR (B,C)]>>INTR (B,:<;Y @X@
   DEFIN`E ..CNS2 (NEW,OLD)<
	  OLD>			
	..CNS ()>			
	:L;Y  X8
   DEFIN@E ..CNS (%%%)<
	`..CNS2 <%%%>,>

   DEFINE ..CNS2  (NEW,OLD)<
	DEF@INE ..CNS (%%%)<
	  ..CNS2 <%%%>,<OLD'NEW>>>
   OLD'NEW>>>
   :dH@ .@[
	..TSIZ .`(..PST,C)
	.CAS/E ..PST,<<
		MOV/ E A,B>,<
		HRR/@Z A,B>,<
		HLR/`Z A,B>,<
		LDB0 A,[POINTR (B,C)]>>INTR (B,:}i1 
l@Vf
	A==<<<
l`-<B>>&<B>>&<1B<^L<B>>>>>&<1B<:~ 
G`Tj
	  ..OP1
H==B
	IFDEF .PSE
H CT,<
 	.IFN ..OP
H@1,ABSOLUTE,<
	  
H`    C A,[..OP1]
I>
	.IF ..OP1,ABS
I OLUTE,<	
		..OP2
I@==0	
	  IFE <..O
I`P1&^O777777B17>,<
J
		..OP2==1	
	 
J    CI A,..OP1>
J@
	  IFE ..OP2,<		
J`
	    C A,[..O
KP1]>
	PURGE ..OP
K 1,..OP2>>
	IFNDE
K@F .PSECT,<
		..O
K`P2==0	
	  IFE <.
L.OP1&^O777777B17>
L ,<
		..OP2==1	

L@	    CI A,..OP1
L`>
	  IFE ..OP2,<
M		
	    C A,[.
M .OP1]>
	PURGE ..OP1,..OP2>GE ..;m

(a@
	..PST==

HC-FWMASK
	.IF0

h..PST,<
		POINT

0,B,35>,<
		POINTR (B,C)>POI;| , Zf
		POP P,,@.NVA
		PURGE .N,`VA
		.NVR==.NVR-1
		.NVR==.NVR;\t + Z^
		PUSH P+@,A
		DEFINE .NV+`B<A>
		.NVR==.NVR+1
		.NVR==.;] S@](
	  IFGE S`<<<B>&777777>-..TBSIZ>,<
		PRINTXT  ?WORD offset greT@ater than $BUILD T`size parameter>
U	  SET0. (\<B>,C,<A>)
	B>,;LH 
sW(
	IFNDEF 
s C,<PRINTX C IS 
s@NOT DEFINED
	  
s`A (<B>,D,FWMASK
t)>	
	IFDEF C,<
t 
	IFNDEF %C,<
	
t@  A (<B>,D,C)
t`>	
	IFDEF %C,<
u
	  %C (A,<B>,D,C)>>A,<B>,;LH 
u@Wf

	..NS==0
u`			
	IRP C,<..N
vS=..NS+1>	
	IFE 
v ..NS,<PRINTX ?EMP
v@TY STRUCTURE LIST
v`, A>
	IFE ..NS-
w1,<		
	  ..STR0 
w (A,<B>,<C>,D)
w@>
	IFG ..NS-1,<	
w`	
	..ICNS			
	.
x.CNS (<E (A,<B
x >,,>) 
	IRP C,<
x@		
	  IFNDEF C,
x`<PRINTX C NOT DE
yFINED>
	  IFDEF 
y C,<
	  IFNDEF %
y@C,<
	  ..CNS (<
y`,C,D>)>	
	  IF
zDEF %C,<
	  %C
z  (..STR2,,D,C)>
z@ 
	  ..CNS (<)>)
z`		
	  ..GCNS		

{	  ..ICNS		
	  .
{ .CNS (<E (A,<B
{@>>) 
	  IFNDEF %
{`C,<
	  ..CNS (<
|,C,D>)>	
	  IF
| DEF %C,<
	  %C
|@ (..STR2,,D,C)>
|`>> 
	..CNS (<,,)>)		
	..GCNS>);LI 
} Wj
	..CNS (<,C,B>).CNS (;LI 
}`X


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


	IFDIF <`D><F>,<	
	  IFNB <D>,<
	     A (<B>,D,..MSK)@>	
	  ..MSK==0>	`	
	IFNB <F>,<
	  ..MSK=..MSK!<E>>MSK=..MSK!<;LJ @X&


	IFDIF <`D><F>,<	
	  IFNB <D>,<
	    I FNB <F>,<		
		@A1 (B,D,..MSK)>` 
	    IFB <F>,<		
		A2 (B,D ,..MSK)>> 
	  ..@MSK==0>		
	IFNB `<F>,<
	  ..MSK=..MSK!<E>>MSK=;$\Y

(a~
  IF1,<

h
    PRINTX ? Err

or in "A"
    D

XEFINE X(NAM,ERR)

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

HEF,<PRINTX ? ERR>

h>
    $TX$ERR>

    $TX$ERR>
;$^

!Hb4

    ..

!hTXF==0				
    .

".TXB==0

"(..TXP==0

"H ..TXEG==<..TXEF=

"h=0>			
    IRPC

#A,<				
	..TXC=

#(=ASCII\A\_-35

#H
	IFN ..TXB,<IFN

#h..TXB-..TXC,..CNS

$(<A>)
		   IFE

$(..TXB-..TXC,..TXB

$H==0>
	IFE ..TXB,

$h<..TXQ(<A>,\..TX

%F)>>	
    ..TXC1

%(				
    IFN ..T

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

%h">,<..TXER(PEA)>>

&
    ..TXEF==..T

&(XEF!..TXEG

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

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

H`,..TXER(IQU)..TXER(IQU;&)

x`'..TXER(IQU)..TXER(IQU;&0

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

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

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

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

x`..TXC0(\".CHCRT).TXC0(\".;&@ ;[n
	..TSIZ ; (..PST,C)	
	.CA;@SE ..PST,<<
		SE;`TZM B>,<	
		HLL<ZS B>,<	
		HRRZ< S B>,<	
	  ..TS<@AC (..ACT,B)	
	<`  .IF0 ..ACT,<
	=	$CALL .ZERO	
		= LSTOF.
		JUMP [P=@OINTR(B,C)]
		=`LSTON.>,<
		..TX (Z,B,C)>>>TX;&81 
iV`
	IFNDEF 
i .PSECT,<
	A==0	
i@		
	..TSA1==<Z 
i`B>		
	  IFE ..TS
jA1&^O777777777760
j ,<A==1> 
	>
	I
j@FDEF .PSECT,<
	
j`A==0			
	..TSA1=
k=<Z B>		
	.IF .
k .TSA1,ABSOLUTE,<	
k@
	  IFE ..TSA1&^
k`O777777777760,<A
l==1>> 
	PURGE ..TSA1>
	PURGE ..;&:= 
g@VD
	A==3		
g`	
	IFE <B>+1,<
hA=0>	
	IFE <B>-
h ^O777777,<A==1> 
h@
	IFE <B>-^O777777B17,<A==2>7;' 
M`U|
   ..TX1
N==C			
IFDEF .P
N SECT,<
   .IFN .
[email protected],ABSOLUTE,<

N`	TDA B,[C]>
 
O   .IF ..TX1,ABSOL
OUTE,<		
	..TX2==
O@0		
	IFE <..TX1&
O`^O777777B17>,<
	
P  ..TX2==1		
	  
P TRA B,..TX1>
	
P@IFE ..TX2,<		
	I
P`FE <..TX1&^O77777
Q7>,<
	  ..TX2==1
Q 		
	  TLA B,(.
[email protected])>>
	IFE ..T
Q`X2,<		
	  IFE <<
R..TX1>B53-^O77777
Z 7>,< 
	    ..TX3
Z@ (A,B)>>	
	IFE
Z` ..TX2,<		
	  TD
[A B,[..TX1]>	

[ 	PURGE ..TX1,..TX
[@2>>
IFNDEF .PSEC
[`T,<
	..TX2==0		
\
	IFE <..TX1&^O77
\ 7777B17>,<
	  ..
\@TX2==1		
	  TRA
\` B,..TX1>
	IFE 
]..TX2,<		
	IFE <
] ..TX1&^O777777>,<
]@
	  ..TX2==1		

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

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

ha*



	..TXE

F==0			

IFNDEF

( A,<..TXER(UQU)>

H		
IFDIF <B><>,

h<IRPC B,<.IFN <

	B>,NUMERIC,..TXER

	((IWA)>>
IFNB <C

	H>,<IFNDEF .TXTJC

	h,<..TXER(IJA)>>

IFDEF  A,<
  IF

(E <A_-^D18>,<IFD

HIF <EFBCD><>

h,<..TXER(ANA)>>

  IFE <1-<A_-^D1

(8>>,<IFDIF <BC

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

h>>
  IFE <2-<A_

-^D18>>,<IFIDN <

(EF><>,<..TXER(AD

HS)>>>

      IF

hE ..TXEF,<
	IFID

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

(=<..TXJU==<..TXFC

H==0>>>
	IFDIF <

hB><>,<
	  IFE <^

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

(..TXJU==<..TXFC==

H0>>>
	  IFN <^D<

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

B>
	    IFNB <

(C>,<..TXJU==.TXTJ

HC>
	    IFB  <

hC>,<..TXJU==.TXTJ

L
	      IFE <A

(-.TQOCT>,<..TXJU=

H=.TXTJR>

hIFE <A-.TQDEC>,<

..TXJU==.TXTJR>>

(
	    IFB  <D>,<

H..TXFC==" ">

h  IFNB <D>,<..TX

FC=="D">>>

	I

(FB  <EF>,<..TXP

HT==0>
	IFNB <E

hF>,<..TXPT==1>

IFE <..TXWD+..TXP

(T>,<
	    EXP FL

HD(A,TXT.FN)>
	I

hFN <..TXWD+..TXPT

>,<
	    EXP FLD

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

H.TXJU,TXT.JU)+FLD

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

LD(..TXFC,TXT.FC)

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

T;'h

8(cN
    IFE

8H..TXP,<			
	..IC

8hNS			
	..CNS<ASC

9IZ\>		
	..TXP==1

9(>		
    ..CNS<A

9H>			
    ..TXF==

9h0			
    ..TXB=="^"
    ..TXB==;'h

:(cZ

    IF

:HN ..TXP,<			
	..

:hCNS<\>		
	EXP <F

;LD(.TQCHT,TXT.FN)

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

 (b
    ..TX

 HEF==..TXEF!..XA

 h	
    ..TXF==0

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

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

'HbB

    IF

'hN ..TXC-"^",<..TX

(C0(<A>)>

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

(hbb

    IF

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

)(C0(<A>)>	
    I

)HFN ..TXF,<			
	.

)h.TXF==0		
	IFDEF

* .TQCHA,<

*(  IFDEF ..TQMA,.

*H.TQMA 
	    IFN

*h <.TQCHA_-^D18>,

+<..TXF==2>>>

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

+HXC1(<A>)	
	..IC

+hNS			
	..CNS<..T

,XA(.TQCHA,>>

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

,hbt
    ..TX

-F==3				
    IFG

-(E ..TXC-"0",IFLE

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

-h=2>
    IFE ..TX

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

.(
    IFE ..TXF-3

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

/c
    ..TX

/(F==4				
    IFE

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

/h==5>		
    IFE .

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

0(5>		
    IFE ..T

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

0h		
    IFE ..TXF

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

1Hc
    ..TX

1hF==4				
    IFE

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

2(=5		
    IFE ..T

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

2h
    IFE ..TXF-5

3,<..CNS<,>

3(..TXQ5<A>>

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

3hCNS<A,>		
		 ..TXF==5>	
		 ..;'

4(c0
    ..TX

4HF==6				
    IFE

4h ..TXC-"/",..TXB=

5="/"		
    IFE .

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

5H]"
    IFE ..TXB

5h-"]",..CNS<[>

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

6Hc>
    ..TX

6hF==0			
    IFE

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

7(>	
    ..CNS<)>

7H		
    ..GCNS

7h
    ..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@  YH
	A=.FPA@C+..NAC		
	IFB <`B>,<..NAC=..NAC+1>
	IFNB <B>,<..NAC=..NAC+B>.d` @YV
	IFG A-`.NPAC,<PRINTX ?TOO MANY ACS USED>
	IFLE A-4,<
	@ $CALL .SAVEA>	
	IFG A-4,<
	  $CALL .SAVE8>  
 @ \B
	  IFIDN@@ <A><.>,<
	    @`XMOVEI .SAC,B	
A	    PUSH P,.SAC
	  >
	  IFDIF <A@A><.>,<
	  .IFAA`TM <A>,.BLF4	
	B  .BLF1==0		
	  B IFN .BLF4,<		
	 B@   .IF %A,MACRO,B`<	
		.BLF1==1>	
	  >
	  IFNB <C B>,<
		.BLF1==1>C@	
	  IFN .BLF1,<C`		
	    LOAD .SADC,A,B
	    PUSD H P,.SAC
	  >
	D@  IFE .BLF1,<		;ID`F WASN'T A STRUCTEURE REF,
	    IFE N .BLF4,<		
	   E@  .BLF2==<<Z A>&E`17B17>-<P>B17 
	F      .IF .BLF2,AF BSOLUTE,< 
	F`  F@   IFE .BLF2,<		
	       .BLF1==1G		
	       .BLF3G ==<Z A>&777777
G@		PUSH P,.BLF3-..G`NA(P)>>>> 
	  IFHE .BLF1,<		
		PUH SH P,A>>	
	  ..NA=..NA+1
	  ..
	 ?`[~
	.BCAL1 A
	.BCAL1 
| 	VpM9
	XLIST
	W	.ORG 0
	LIST
.ORG 0
	LIST

=Z M \j$CALL	I%INTA$CALL	I%IN9  
e@V6
	..CSN==
e`A
	..CSC==0
	I
fRP B,<
	IFE ..C
f SN-..CSC,<
	  ST
f@OPI
	  ..CAS1 (
f`B)>
	..CSC==..CSC+1>..CSC==..CSD	P ?DP >D)6P D,xP D8YP D8sP D;PP D;QP D;QP D;RP D;RP D;SP D;WP D;WP D;XP D;XP D;YP 	D;YP 	D;ZP 
D;ZP 
D;[P D;[P D;\P

D;\P

D;]P D<ZP D=7P DI6P ?D\qP FH1P FmP lQP lXP lzP 
l)XP l,UP l9VP l;0P l;ZP lH:P lI3P lI;P lJ9P lj6P lkP lkP lkP lkXP lzQP mP mTP mQP mTP muP m9<P mkrP mktP mm6P mm<P 
myTPn n-P n=tP nH2P nKuP 	nNP n\9P 	n\yP S@P ,<H 8[J
	..PST==8 C-FWMASK
	.IF0 [email protected],<
		SOS B8`>,<	
		$CALL .SO9S	
		LSTOF.
		J9 UMP [POINTR(B,C)]
		LSTON.>C}

>(f
	.OPCD==

a.OPCD+1
	WO.A==.OPCD
G),<
		| 	XMI
	XLIST
	X8	.....X=.
	.ORG
	.ORG 0
	REPEAT	Xx .....X,<EXP 0>
	Y	PURGE .....X
	.ORG
	LIST

	.v=H  X|
	IRP A,@<
	  .ENSV2 (A)>	  .ENSV2 (A)v=I Y
	.ENSV3 (A)
	.ENSV3 v=I @Y
	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 
d V(
	..IFT==
d@A		
	IFE ..IFT,
d`<
	B
	..IFT==0
e>		
	IFN ..IFT,<
	C>N ..IFT,<&4 H`\Z
	IRPC AI,<
	B==0
	IFGEI  "A"-"A",<IFLE "I@A"-"Z",<B=1>> 
	IFGE "A"-"0",<JIFLE "A"-"9",<BJ =1>>
	IFE "A"-"J@%",<B=1>
	IFE "J`A"-"$",<B=1>
	KIFE "A"-".",<B=K 1>
	IFE B,<STOPI>>IFE B,<STOP&t<H 5[2
	..PST==5 C-FWMASK
	.IF0 [email protected],<
		AOS B5`>,<	
		$CALL .AO6S	
		LSTOF.
		J6 UMP [POINTR(B,C)]
		LSTON.>C&tj7Q ?';VP '<P '<P '<P '<P '<P '<P '<P '<P '<P '<P '<P '<P '<P '<P '<P *IA  *I*|A  *|6MiTQ @7;rp 7H:p 7kp 7N8p ;`P ;-J7P#~>)qp >5H3p >DLYp ?EHP $?LxP "?(WP !?+ZP %?krP #?xUP  ?)0P "?)8P #?98P !?J6P $?N8P  ?$(:P ?$*7P ?$9P ?$HVP ?$]ZP 	?$h6P 	?$htP 
?$mP??%VP??%+qP??%LP??%X<P ?%[ZP ?%hzP ?%kzP ?%l1P ?%|P ?&P ?&
C7P#CzP#J$)XP J$*vP J$,UP J$=qP J$HQP J$HXP J$kP J%uP J&-P J&:=P K%,z 
%@R,<A>B<^D70-POS(B)>B<^D70N

0PO 
	SYSPRM	C	
	IFG	.PID,<MX.PID==A>	
<MX.PID=O%=H  XZ
	.STKV2 (A)
	.STKV2 O%=I `Xh
	IFB <B

>,<..STKN==..STKN

 +1>
	IFNB <B>,<

@..STKN==..STKN+B

`>
	..STKQ==..STK
	.STKV3(A,\..STKQ)V3 (A,O%=I 
` IFDEF A,SYMBOL,<PRINTX STKVAR  A ALREADY DEFINE@D>>
	DEFINE A<-`^OB(P)>
	$A==<Z A>>
	$A==<RJP RJP RJ	P RJ	P RJJP RJP RJ
P RJ$HP RJ%P RJ4`P RJ4hP RJ5P RJ5 P RLH:P RLkQP RM4(P RMD)P RMDkP RMX6P RMX<P 	RMXSP RMYP RMYP RMY6P RM\P RM\ZP RN

tP RNJ6P RNd
P RNe(P RNe)P 	RNeHP 	S

qQ S

89P S

:P 
S

:Q

:	P S

:	P 
S

:
Q S

:Q S

:Q S

:P 	S

:Q

:Q S

:Q S

:Q S

:Q S

:Q S

:Q S

:P S

:P 	S

:P S

:P S

:Q

:Q S

:Q S

:Q

:Q S

:Q S

:Q S

:Q S

:Q S

<@P S

<rQ S

<tQ S

H<Q S

I1Q S

J9Q S

\YQ S

i@P S

j6Q S
SQ StQ

S+qQ

S:<Q S=P 
S=WQ SJ6Q S\rQ Si9Q SmP 	Sd   Y
	.TRV2 (A)
	.TRV2 (Sd@ `Y$
	.TRV3 (A,\..NV)	
	IFB  <B>,<..NV=..NV+1@>
	IFNB <B>,<..NV=..NV+B>,<..Sd` Y2
   IFDEF  A,<.IF A,SYMBO@L,<PRINTX TRVAR `A ALREADY DEFINED>>
	DEFINE A<^O B(.FP)>
	$A==<Z A>>
	$A==<S"P S"P S"	P S"	P S"JP S"P S"
P S"$HP S"%P S"4`P S"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 _%~

ghfZ
		$CALL

hI%WTO		
		LSTOF.

h(			
		JRST	g

hH
		$WTRST			
	IF

hhNB <A>,<$WTMTY (

i<A>)>	
	IFNB <

i(B>,<$WTTYP (<B>)

iH>	
	IFNB <C>,<$

ihWTTXT (<C>)>

jIFNB <D>,<$WTOBJ

j( (<D>)>	
	IFNB

jH<E>,<$WTACK (<E

jh>)>	
		IRP F,<

kF>		
		$WTBLD

k(
	g:!
	LSTON.  g:!
	LSTON. kPP >}{woP