PDP-10 Archive: glxmac.unv from tops10_703a_sys_atpch16

Trailing-Edge - PDP-10 Archives - tops10_703a_sys_atpch16_bb-fr67f-bb - glxmac.unv

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

x
,SN@P C4@ 
lVe
	..NAC==
l80		
	IRP A,<
	
lX  .ACV1 (A)>		
	.ACV3 (\..NAC)C' 
Q!..AS(A,B,ADD,SUB)(A,BC, 	u`O.LSH A,-^D9LSH A,-^DC2f}

 a
	.EAWTO(

@MTY,0)
	.EAWTO(T

`YP,2)
	.EAWTO(TX

T,2)
	.EAWTO(OBJ

 ,0)
	.EAWTO(ACK,

@0)
	.EAWTO(FLG,1

`)
	.EAWTO(NOD,0)


	.EAWTO(JBN,0)

 
	.EAWTO(ACD,0)

@	.EAWTO(OCD,0)
	.EAWTO(MFL,1)
C:' 
8XSE
	TXZ A,<^-<B>>TXZ A,CHuI7Q xCHvN8P'CJ9ip CJ9jp CJ9l}p E
	..NA==0x			
	IRP B,<
	  .BCAL2 B>		
	8PUSHJ	P,A		
	ADXJSP	P,-..NA		
   	P,-..NA		
  E2"@ .xZ}
	  IFE /B,<..TA==0>
	  /8IFN B,<EXP ..TA/X
		    PURGE ..TA>
	PURGE ..TE@tP'E@vyQ ~E@v:=Q |F;z:Q @G@ 
Pi
	    ..CX(,A,B)   ..CGD 
XQ
	    ..CX(A,A,B)  ..CGDP 
XPu
	    ..CX(E,A,B)  ..CGDp 
Py
	    ..CX(G,A,B)  ..CGDy  
XP}
	    ..CX(GE,A,B) ..CGE@ 
XPm
	    ..CX(L,A,B)  ..CGEI  
Pq
	    ..CX(LE,A,B) ..CGE` 
Q
	 h8..CX(N,A,B)  ..CGH 

	`OLST

	X	CRE		
@	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		
`	X	RFM		
	X	RFO	
	X	RSZ		
	X	B		
	X	FFB		
	@X	ACW		
	X	RMS		
	X	MCY		
	X	CT
	X	NSB		

	  LSTON.


G"\Y (yh

	IF1, H<%%EDT==AEDT>	
h
	IF2, <IFN <%%EDT-AEDT>,<
		PR(INTX ? Edit NumbeHr Doesn't Match GhLXVER in GLXA
		A$WHO(\AEDT)>	(
		A$NOTE		
	IHNTERN AEDT		
	IhNTERN LODLEV		
;	PURGE %%EDT> ;END IF2

1M$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 h@H
	IFNB <>h`,<
	PRINTX  (Froim GLXVER)
	> ;END IFNB 
	G>hMt g@
	PRINTX g GLXVER	GLXCOM Edig@t(57) by JAD on 6g`-Jan-87
	PRINTX	h    	GLXCOM	Actual Edit(A)
	G>lYP G>vC@ 	5XK5LALL
PAGE	5x; (A Continued o	6n next page)
SAL	68L; (A Continued 	6Xfrom previous page) previous pagG?T 	-0JkASCIZ \
COPYRIGHT Z \
CGHt;rP GHtkP GHv	P GHv)9P GHv:=P I!k7P I!k<P ImP I$P`O;*IIY{P`O=*|I

Xg
	IFNB <

8B>,<..STR0 (.DECR

X0,,<B>,A)>
	IF

xB  <B>,<SOS A>  <B>,<SOS A>I6= 
BXT)
	A==<-1
BxB<C>+1B<C-D>> 
C
	IF1,<IFDEF %A
C8,<PRINTX ?A ALRE
CXADY DEFINED>>
	D
CxEFINE %A (OP,AC,
DY,MSK)<	
	IFDIF 
D8<Y><>,<
	OP (<AC
DX>,B+'Y,MSK)>
	I
DxFIDN <Y><>,<
	OP
E (<AC>,B'Y,MSK)>>AC>,B'Y,MSK)>I'7 
XQ5..OP(A,B,DIV)..OP(A,BIOH1 -Xrw
	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 9KJ

,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%|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

A h
	ERR	EOF

A@,<End of file>

A`ERR	IFP,<Illegal

Bfile position>

B ERR	FDE,<File dat

B@a error>
	ERR	FN

B`D,<File is not on

C disk>
	ERR	NSD,

C <No such device>

C@
	ERR	FCF,<File c

C`heckpoint failed>

D
	ERR	SLE,<A sys

D tem limit was exc

D@eeded>
	ERR	IFS,

D`<Illegal file spe

Ecification>
	ERR

E 	FNF,<File not fo

E@und>
	ERR	PRT,<P

E`rotection violati

Fon>
	ERR	DNA,<De

F vice not availabl

F@e>
	ERR	NCE,<No

F`"current" entry i

Gn list>
	ERR	NMA

G ,<No IPCF message

G@ is available>

G`ERR	FDS,<Files ar

He on different st

H ructures>
	ERR	F

H@AE,<File already

H`exists>
	ERR	USE

I,<Unexpected syst

I em error>
	ERR	N

I@SP,<No such pid>

I`
	ERR	BOL,<Beginn

Jing of list reach

J ed>
	ERR	EOL,<En

J@d of list reached

J`>
	ERR	RQF,<Rece

Kivers quota full>

K 
	ERR	SQF,<Sende

K@rs quota full>

K`ERR	NRE,<No remem

Lbered entry>
	ER

L R	TBF,<Table is f

L@ull>
	ERR	EIT,<T

L`able entry alread

My exists>
	ERR	I

M TE,<Invalid table

M@ entry>
	ERR	QEF

M`,<Quota exceeded

Nor disk full>
	E

N RR	ARG,<Invalid a

N@rgument specified

N`>
	ERR	IFN,<Inva

Olid function spec

O ified>
	ERR	IJN,

O@<Invalid job numb

O`er specified>
	E

PRR	RAD,<Invalid r

P adix specified>

P@	ERR	NUM,<Invalid

P` numeric argument

Q>
	ERR	IDT,<Inva

Q lid date field sp

Q@ecified>
	ERR	IT

Q`F,<Invalid time f

Rield specified>

R 	ERR	DOR,<Date/ti

R@me out of range>

R`
	ERR	DTM,<Value

Smissing in date/t

S ime>
	ERR	MDD,<M

S@issing day in dat

S`e/time>
	ERR	DFZ

T,<Field zero in d

T ate/time>
	ERR	M

T@DS,<Mnemonic date

T`/time switch not

Uimplemented>
	ER

U R	DFL,<Field too

U@large in date/tim

U`e>
	ERR	ILR,<Ill

Vegal year format

V in date/time>
	E

V@RR	NND,<Negative

V`number in date/ti

Wme>
	ERR	NPF,<No

W t known whether p

W@ast or future in

W`date/time>
	ERR

XRDP,<Relative dat

X e parse required>

X@
	ERR	NSW,<Switc

X`h does not begin

Ywith slash>
	ERR

Y 	NOM,<Unrecognize

Y@d switch or keywo

Y`rd>
	ERR	NUL,<Nu

Zll switch or keyw

Z ord given>
	ERR

Z@INW,<Invalid guid

Z`e word>
	ERR	NC,

[<Not confirmed>

[ 	ERR	ICN,<Invalid

[@ character in num

[`ber>
	ERR	NQS,<I

\nvalid quoted str

\ ing - does not be

\@gin with quote>

\`	ERR	AMB,<Ambiguo

]us switch or keyw

] ord>
	ERR	NMT,<D

]@oes not match tok

]`en>
	ERR	CMA,<Co

^mma not given>

^ ERR	NNC,<Node nam

^@e may not exceed

^`6 characters>
	E

_RR	INT,<Node term

_ inator "::" must

_@be specified>
	E

_`RR	NSN,<Unknown n

`ode name>
	ERR	I

` PS,<Invalid path

`@specification>

``ERR	IUS,<Invalid

auser specificatio

a n>
	ERR	DGS,<Dev

a@ice name may not

a`exceed 6 characte

brs>
	ERR	DNE,<Un

b known device>
	E

b@RR	DIO,<Device ca

b`n not do input or

c output>
	ERR	BD

c F,<Invalid date/t

c@ime format>
	ERR

c`	ABS,<Field too l

dong for internal

d buffer>
	ERR	TMT

d@,<Command too lon

d`g for internal bu

effer>
	ERR	BDS,<

e Invalid default s

e@tring>
	ERR	BTF,

e`<Invalid table fo

frmat>
	ERR	TME,<

f Date/time must be

f@ in the future>

f`	ERR	TMN,<No time

gr entry has expir

g ed>
	ERR	TMA,<Ti

g@mer entry already

g` exists>
	ERR	DV

hT,<Device termina

h tor ":" must be s

h@pecified>
	ERR	N

h`CI,<Argument bloc

ik may not be in t

i he ACs>
	ERR	TLU

i@,<Terminal locati

i`on is unknown>

jERR	FIO,<File is

j offline>
	ERR	FB

j@M,<File being mod

j`ified>
	ERR	WLK,

k<Write-locked dev

k ice>
	ERR	CSD,<C

k@annot supersede a

k` directory>
	ERR

l	CDD,<Cannot dele

l te a non-empty di

l@rectory>
	ERR	SN

l`F,<Sub-file direc

mtory not found>

m 	ERR	ESL,<Search

m@list is empty>

m`ERR	LVL,<SFD leve

nl nested deeper t

n han the maximum a

n@llowed>
	ERR	CCW

n`,<Cannot create/w

orite on any struc

o ture in search li

o@st>
	ERR	FCU,<Ca

o`nnot update file>

p
	ERR	ENQ,<File

p has outstanding E

p@nqueue lockes set

p`>
	ERR	SWS,<Soft

qware write-lock o

q n structure>
	ER

q@R	DER,<Hardware d

q`evice error>
	ER

rR	DTE,<Hard data

r error>
	ERR	BKT,

r@<Block too large>

r`
	ERR	IPP,<Non-e

sxistant UFD>
	ER

s R	TRN,<RIB or tra

s@nsmission error>

s`
	ERR	ILC,<Illega

tl character in da

t te/time>
	ERR	NF

t@T,<Date/time must

t` be in the future

u>
	ERR	NPS,<Date

u /time must be in

u@the past>
	ERR	U

u`DM,<Unrecognized

vmonth in date/tim

v e>
	ERR	UDN,<Unr

v@ecognized name in

v` date/time>
	ERR

w	IFA,<Illegal fil

w e attribute>
	ER

w@R	FAI,<File attri

w`bute inconsistanc

xy>
	ERR	CEI,<Can

x 't enable/disable

x@ interrupt system

x`>
	ERR	ENF,<Link

yed list entry not

y  found>
	ERR	NSL

y@,<No such linked

y`list>
	ERR	NFP,<

zNo free pages>

z ERR	NPI,<No free

z@pages for IPCF re

z`ception>
	ERR	IF

{B,<Indirect file

{ too big for inter

{@nal buffer>	
	ER

{`R	NDN,<Null devic

|e name given>

| 	ERR	PWA,<PID wen

|@t away>
	ERR	CGP

|`,<Can't get a PID

}>
	ERR	IND,<Inva

} lid node name>

}@ERR	IAC,<Invalid

}`access string>

~ERR	IDV,<Invalid

~ device name>
	ER

~@R	INA,<Invalid fi

~`le name>
	ERR	IE

X,<Invalid file e

 xtension>
	ERR	I

@GN,<Invalid gener

`ation number>
	ERR	IDR,<Invalidrd
	ERR	NHA,<Nailable>
lp available>KKBP 
KKI"P KKiBP 'KKBP 
KK|bP *KK$)BP KK%M"P $KK%X"P "KK%Y"P !KK%[BP "KK%]P  KK&+BP ,KK,K"P .KK,KBP /KK-*"P KK.9"P KK=JbP %KLtkQ xKLv:=Q xKLv=P'KO&:=p KZ` DP\7
	IFIDN <DpBC><>,<EXP <A>E>
	IFDIF <BC><E0>,<
	 IFE <A+1>EP,<<POINT 7,C>>
Ep	 IFN <A+1>,<
	F   IFIDN <C><>,<F0EXP <A,B>>
	  FP IFDIF <C><>,<EXFpP <A,B,C>>
	>>A,B,C>>
	>KbN@ 	`Kc  	3KIRP A,<
	38	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 f 6
	IFNB <>f@,<
	PRINTX  (Frof`m GLXVER)
	> ;END IFNB 
	M&`Mt d`.
	PRINTX eGLXVER	GLXFIL Edie t(117) by JJF on e@17-Feb-87
	PRINTe`X	    	GLXFIL	Actual Edit(A)
	M&dYP 'M2  	z8OS<<<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 MR5HUQ MR6L`P MRV>9P MS.[yQ MVpKW k ^
	IFNB <>k@,<
	PRINTX  (Frok`m GLXVER)
	> ;END IFNB 
	MVpMt i`V
	PRINTX jGLXVER	GLXFUN Edij t(2) by BAH on 14j@-Nov-86
	PRINTX	j`    	GLXFUN	Actual Edit(A)
	MVtYP M^luQ O2|  	3xK)IRP A,<
	4	IF2,<IFDEF A,<.	48IFN A,EXTERN,<IN	4XTERN A>>
	     	4xIFNDEF A,<EXTERN	5 A>
	Q SUPPRESPA>>FlYSUPPRO3DYPF4O3EKrPf4O3EZ7PO3FLQ St\Yp Stkp SuZp SulQ Su}:p Sv
1p Sv

Sp Sv>@p SNn 
Q1..OP(A,B,IDIV).OP(A,BSNp @S7-N 
Q)..OP(A,B,IMUL).OP(A,BS:  	XO
	IFNB <	8B>,<..STR0 (.INCR	X0,,<B>,A)>
	IF	xB  <B>,<AOS A>  <B>,<AOS A>S:HKW  &
	IFNB <>@,<
	PRINTX  (Fro`m GLXVER)
	> ;END IFNB 
	S:HMt `
	PRINTX GLXVER	GLXINI Edi t(23) by  on 27-J@un-84
	PRINTX	  `  	GLXINI	Actual Edit(A)
	S:LYP 	S;k 	|xOg<<<A>B<POS(<B>)>>&<B>>S; KW m`r
	IFNB <>n,<
	PRINTX  (Fron m GLXVER)
	> ;END IFNB 
	S; Mt l j
	PRINTX l@GLXVER	GLXINT Edil`t(112) by BAH on m14-Nov-86
	PRINTm X	    	GLXINT	Actual Edit(A)
	S;!kP S;!k<P S;$YP %S? 
8SA
	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 p 
	IFNB <>p@,<
	PRINTX  (Frop`m GLXVER)
	> ;END IFNB 
	SBMt n`~
	PRINTX oGLXVER	GLXIPC Edio t(76) by BAH on 1o@4-Nov-86
	PRINTXo`	    	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.	GPXCREF
	..TEXT<AGp>		
	  EXP	0		
	LSTON.
	0		
Uv98Q |U$@ shb

	`OLST

	XJJNO,.JI,GJBJNO>	
	X-TNO,.JITNO,<
	XUSR,.JIUNO,.GTPPN
	X,CDN,.JIDNOH>	
	@XGPRG,.JIPNM,.GTP
	X CJN,.JIC
PJ,<-1,,GJBCJB>	
 
	X BAT,.JIBCH,.G
@TOBI		
	X JLT,.J
`ISTM,.GTJLT		
	X,LOC,<-1,,GJBLOC>
	@XJRTM,.JIRT,<-1,,
	X TLC,

<-1,,GJBTLC>,<-1,

 ,GJBTLC>	
	  LSTON.


	  LSTU +,U +(U  +$Up +U~` +"U$t(:P U$t9P U$t:WP U$u+P U$u+WP U$uKqP U$uX<P U$uZ7P U$v

SP U$v-P U$vKP U$vKWP U$v\yP U&j2p U&jWp U&kVp U&lxp U&m9p U&:=p U?0 +0UKI@ +UVn	@ 4@UVn
 KW r`
	IFNB <>s,<
	PRINTX  (Fros m GLXVER)
	> ;END IFNB 
	W
 Mt q 
	PRINTX q@GLXVER	GLXKBD Ediq`t(102) by BAH on r14-Nov-86
	PRINTr X	    	GLXKBD	Actual Edit(A)
	W
$YP !WNH1 /8s
	IFB <C/X>,<
	XWD	[ASCIZ\/xB\],A>
	IFNB <0C>,<
	XWD	[EXP 08CM%FW!C
		ASCIZ\B\],A>
SCIZY"luQ xY&i1 	T@O&

	  LST	T`OF. XCREF

	CDO	U	OTSINI			
	CDO		U     			
	CDO	.ZP	U@AGA
	CDO	.ZPAGN
	CDO	.ZCHNK
	CD	VO	.SAVE1
	CDO	.S	V AVE2
	CDO	.SAVE3	V@
	CDO	.SAVE4
	C	V`DO	.SAVET
	CDO	.	WSV13
	CDO	.SV14
	CDO	.SV15
	CDO	W@	.SV16
	NT	.RETT	W`
	NT	.RETF
	CDO	X	.RETE
	CDO	.AOS	X 		
	CDO	.SOS		
	X@	CDO	.ZERO		
	NT	X`	.POPJ		
	CDO	.S	YTOP		
	CDO	.SAVE	Y 8		
	CDO	.STKST		Y@	
	CDO	.TRSET		
	NT	.POPJ1		
	C	ZDO	.UD2SC		
	CDO	Z 	.SC2UD		
	CDO	.	Z@CPUTY		
	CDO	.DI	Z`E		
	CDO
	CDO
	[
	CDO			
	CDO	C	[ %RPRM
	CDO	C%INT	[@R
	CDO	C%SEND
		[`CDO	C%RECV
	CDO		\C%BRCV
	CDO	C%RE	\ L
	CDO	C%CPID
		\@CDO	C%KPID
	CDO		\`C%SPID
	CDO	C%MA	]XP
	CDO	C%PIDJ
	] 	CDO	C%PIDH
	CDO	]@	C%SIDX
	CDO
	C	]`DO
	CDO

	CDO		^      			
	CDO	F	^ %IOPN
	CDO	F%AOP	^@N
	CDO	F%OOPN
		^`CDO	F%IBYT
	CDO		_F%OBYT
	CDO	F%IB	_ UF
	CDO	F%OBUF
	_@	CDO	F%REL
	CDO		_`F%DREL
	CDO	F%RR	`EL
	CDO	F%REW
		` CDO	F%POS
	CDO	F	`@%CHKP
	CDO	F%INF	``O
	CDO	F%FD
	CD	aO	F%REN
	CDO	F%D	a EL
	CDO	F%FCHN
	a@	CDO
	CDO
	CDO
	CDO
	CDO
	CDO	b
	CDO
	CDO
	CD	b O	FUNCT.			

	C	b@DO	      			
	CD	b`O	M%ACQP
	CDO	M%	cRELP
	CDO	M%IPSN	c 
	CDO	M%NXPG
	C	c@DO	M%IPRC
	CDO	M	c`%IPRM
	CDO	M%AQN	dP
	CDO	M%RLNP
		d CDO	M%CLNC
	CDO		d@M%FPGS
	CDO	M%GM	d`EM
	CDO	M%RMEM
	e	CDO
	CDO
	CDO
	CDO
	CDO
	CDO	e@
	CDO	M%GPAG
	C	e`DO	M%RPAG
	CDO
	f	CDO
	CDO
	CDO
	CDO
	CDO
	CDO	f@
	CDO

	CDO	  	f`    			
	CDO	T%T	gEXT
	CDO	T%TTY
	g 	CDO
	CDO
	CDO
	CDO
	CDO
	CDO	g`
	CDO
	CDO
	CD	hO
	CDO

	CDO	 	h      			
	CDO	L%	h@CLST
	CDO	L%DLST	h`
	CDO	L%CENT
	C	iDO	L%CBFR
	CDO	L	i %DENT
	CDO	L%NEX	i@T
	CDO	L%FIRS
		i`CDO	L%LAST
	CDO		jL%PREV
	CDO	L%PR	j EM
	CDO	L%CURR
	j@	CDO	L%RENT
	CDO	j`	L%SIZE
	CDO	L%A	kPOS
	CDO
	CDO
	k 	CDO
	CDO
	CDO
	CDO
	CDO
	CDO	k`

	CDO			
	CDO	l	I%NOW
	CDO	I%EX	l IT
	CDO	I%ION
		l@CDO	I%IOFF
	CDO		l`I%SLP
	CDO	I%INT	m1
	CDO	I%INT2
		m CDO	I%INT3
	CDO		m@I%TIMR
	CDO
	CD	m`O
	CDO	I%SOPR
		nCDO	I%WTO
	CDO
	n 	CDO	I%HOST
	CDO	n@	I%JINF
	CDO
	C	n`DO

	CDO	S%U2DT	o		
	CDO	S%DT2U
	o 	CDO	S%DATI
	CDO	o@	S%SIXB
	CDO	S%C	o`MND
	CDO	S%TBLK
	CDO	S%SCMP
	CD	p O	S%ERR
	CDO	S%I	p@NTR
	CDO	S%EXIT
	CDO	S%TBAD
	CD	qO	S%TBDL
	CDO	S%	q NUMI


	CDO	K%	q@RCOC			
	CDO	K%W	q`COC
	CDO	K%SUET
	CDO	K%STYP
	CD	r O	K%TXTI
	CDO	K%	r@SOUT
	CDO	K%BOUT	r`
	CDO	K%BIN
	CD	sO	K%BACK
	CDO	K%	s TPOS
	CDO	K%BUFF	s@
	CDO	K%FLSH
	C	s`DO	K%OPEN
	CDO	K	t%ECHO
	CDO
	CDO	t 
	CDO
	CDO
	CD	t@O
	CDO
	CDO
	C	t`DO
	  LSTON.
  
	  LSTON.
  Y:XKW `:
	IFNB <>,<
	PRINTX  (Fro m GLXVER)
	> ;END IFNB 
	Y:XMt  2
	PRINTX @GLXVER	GLXLNK Edi`t(11) by AWC on 29-Jan-82
	PRINTX 	    	GLXLNK	Actual Edit(A)
	Y:\YP Y>

@ XX
	IFNB <xC>,<..STR0 (..LDB,A,C,B)>
	IFB8  <C>,<MOVE A,B>C>,<MOVE A,Y>%I;P YO%GP YO%yG 	7KC
	IFNDEF 	78LSTIN.,LSTIN.==0		7X	
IFE LSTIN.,<
	7x	IFIDN <XCREF><A	8>,<.XCREF>	
		  	88 XLIST>		
	LSTIN.==LSTIN.+1STINYO%{G 	8xKM
	IFG LST	9IN.,LSTIN.==LSTIN	98.-1	
	IFLE LSTIN	9X.,<.CREF		
		      LIST>
		   [KW u .
	IFNB <>u@,<
	PRINTX  (Frou`m GLXVER)
	> ;END IFNB 
	[Mt s`&
	PRINTX tGLXVER	GLXMAC Edit t(510) by BAH on t@14-Nov-86
	PRINTt`X	    	GLXMAC	Actual Edit(A)
	[YP $[3@ 	|8Oc<<<1_<A>>-1>B<B>>_<A>>[8@ 	{8O[1B<<A>-1>-1B<B><<A>-1>[@ 	PM


	IFB <B	P >,<MAXSIZ==0
		I	P@RP A,<IFG <A-MA	P`XSIZ>,<MAXSIZ==A	Q>>>
	IFNB <B>,<	Q B==0
		IRP A,<	Q@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 w`B
	IFNB <>x,<
	PRINTX  (Frox m GLXVER)
	> ;END IFNB 
	[hMt v :
	PRINTX v@GLXVER	GLXMEM Ediv`t(32) by BAH on 1w4-Nov-86
	PRINTXw 	    	GLXMEM	Actual Edit(A)
	[lYPuQ @[th:Q [u[yQ [ukvQ  [v=3P'[v|WQ [&p 	RM 
	IFB <B	R >,<MINSIZ==377777	R@,,777777
		IRP 	R`A,<IFG <MINSIZ-A	S>,<MINSIZ==A>>>
	IFNB <B>,<B==	S@377777,,777777
		S`	IRP A,<IFG <B-	TA>,<B==A>>>
A>,<B==A>>>
[>!` 	{xO_<A-<A/B>*B><A-<A/B[?7 	}8PM
   ..MX1	}X==B			
IFDEF .P	}xSECT,<
   .IFN .	~.MX1,ABSOLUTE,<
	~8	MOVE A,[B]>
 	~X  .IF ..MX1,ABSOL	~xUTE,<
	..MX2==0			
	IFE <..MX1>B5	83,<
	X..MX2==1
	  MOVEI A,..MX	x1>	
	IFE ..MX2,<
		
	IFE <..MX1>B
817,<
	  ..MX2==1
X
	  MOVSI A,(..
xMX1)>>	
	IFE ..M
X2,<		
	IFE <<..
8MX1>B53-^O777777>
X,<
	  ..MX2==1

x	  HRROI A,<..MX
1>>>	
	IFE ..MX2
8,<		
	IFE <<..MX
X1>B17-^O777777B17
x>,<
	  ..MX2==1

	  HRLOI A,(..M
8X1-^O777777)>> 

X	IFE ..MX2,<		
	
x  MOVE A,[..MX1]
>	
	>>

IFNDEF
8 .PSECT,<
	..MX2
X==0		
	IFE <..MX
x1>B53,<
	  ..MX2
==1
	  MOVEI A,
8..MX1>	
	IFE ..M
XX2,<		
	IFE <..M
xX1>B17,<
	  ..MX
2==1
	  MOVSI A
8,(..MX1)>>	
	IFE
X ..MX2,<		
	IFE 
x<<..MX1>B53-^O777
777>,<
	  ..MX2=
8=1
	  HRROI A,<
X..MX1>>>	
	IFE .
x.MX2,<		
	IFE <<
..MX1>B17-^O77777
87B17>,<
	  ..MX2
X==1
	  HRLOI A,
x(..MX1-^O777777)>
	> 
	IFE ..MX2,<	
	8	
	  MOVE A,[..
	XMX1]>	
>
	PURGE ..MX1,..MX2RGE[Lt;ZQ x[LvN8P'[NF:=p [N^= 
EXT?
	A==C	
Ex	
	IF1,<IFDEF %
FA,<PRINTX ?A ALR
F8EADY DEFINED>>
	
FXDEFINE %A (OP,AC
Fx,Y,MSK)<	
	IFDIF
G <Y><>,<
	OP (<A
G8C>,B+'Y,MSK)>
	
GXIFIDN <Y><>,<
	O
GxP (<AC>,B'Y,MSK)>>AC>,B'Y,MSK)[PuySP'[PvNP'[Vg 
XQ-..OP(A,B,MUL)..OP(A,B[`v
2P ] 	1XKIF2,<IFDEF	1x A,<A==A>> IFNDEF A,<A==B>]F@ mTEMFDB##_
QkRp _
Ql}p _
Qmp _
Qm7p _
T=

	X	.OTReader
	X	.OU,Network-Cont
	X	.OTLPTr@,Printer
	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
)H	X	.OTDBM,<DBMS S
	X	.OTFALtream>
	X	.OTEVT,<Event>
*H	X	.OTFCH,<Microf
	X	.OTXER,
	X	.OTNQ-Stream>
,<NQC-Stream>
_SKW z V
	IFNB <>z@,<
	PRINTX  (Froz`m GLXVER)
	> ;END IFNB 
	@_SMt x`N
	PRINTX yGLXVER	GLXOTS Ediy t(12) by BAH on 1y@4-Nov-86
	PRINTXy`	    	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)>

7h.IFNBC<D>,<..XX=
8H.IFNBC<E>,<..XX=

9@	EXP ..XX		

9`CIFNB <C>,<EXP 
: EIFB0<C>,<

:@SIFNB,<POINT 7,[A
;FI <D>,<0>

;@ IFNBS<E>,<POINT
< IFB <E>,<0>



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

<` IFB <J>,<0>
=JIFNB <J>,<EXP 

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

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

G>,<EXP Ga@KW 	 N
	IFNB <>	@,<
	PRINTX  (Fro	`m GLXVER)
	> ;END IFNB 
	a@Mt `F
	PRINTX GLXVER	GLXPFH Edi t(16) by TARL on @17-Apr-81
	PRINT`X	    	GLXPFH	Actual Edit(A)
	aDYP a 	u O*LSH A,^D9LSH A,^D9a+= 5a;&  k ^b
	 IFB  <k@B>,<..STR0(..PNTk`,,<FWMASK>,A)>
l	 IFNB <B>,<..STl R0(..PNT,,<B>,A)>.PNT,,<B>,Aa>Mm 	yXOO<POINT WID	yx(B),A,POS(B)>B),A,POS(B)>a?H6 +a? 	wO9<^L<<A>&<-<A>>>><<A>&<aJ}Ks 	,Lr

	SALL		:@			
	LSTOF. XCRE	:`F			

	%%.GLX==	;%%.GLX			
	GLXVR	; S==GLXVRS			

		;@IFNB <A>,<%%.MOD	;`==SIXBIT/A/> 
		<IFNB <B>,<%%.OTS	< ==SIXBIT/B/> 
	<@
	GLOB	I%INIT			

	TOPS10	<			
	=		SEARCH	UUOSYM			= 
		%%UUOS==%%UUO	=@S		
	>				

	T	=`OPS20	<			
		SEA	>RCH	MONSYM		
;			> %%MONS==%%MONS		
	>				

	IFB <	>`B>,<			
		IFN G	?LXPUR,<
			.TEXT	? 	|,REL:GLXLIB/SEA	?@RCH/REQUIRE:I%INI	?`T/SEGMENT:LOW|
		@	>			
		DEFINE	$	@ DATA (NAM,SIZ<1>)	@@,< 
			NAM:	BLOC	@`K	SIZ
		>			
			ADEFINE	CDO (X),<G	A LOB X> 
		DEFINE	A@	NT(X),<CDO X>	
	A`		LIBVEC			
	>			B		

	IFNB <B>,	B <CHKEDT (B)>	
	B@
	IFNB <B>,<IFDI	B`F <B><INI>,< 
		C	IFN GLXPURE,<.PS	C ECT .HIGH.> 
		I	C@FE GLXPURE,<		
		C`		TWOSEG	400000	
			RELOC	0	
				D RELOC	400000	
			D@>			

		DEFINE 	D`$DATA(NAM,SIZ<1>)	E,< 
			IFN GLXPU	E RE,<.PSECT DATA> 	E@
			IFE GLXPURE,	E`<RELOC> 
			IFND	FEF B%D,<B%D::! 	F B%DL==:0>
			NA	F@M:	BLOCK	SIZ
				F`B%DL==:B%DL+SIZ	G 
			IFN GLXPURE	G ,<.ENDPS DATA> 
	G@			IFE GLXPURE,<R	G`ELOC> 
		>			
	H
		IFDIF <B><OTS	H >,<	
			DEFINE	C	H@DO (X),<GLOB X> 
			DEFINE	NT(X),	I<CDO X> 
			LIBV	I EC		
		>			

		I@>>				

	IFNB <	I`B>,<IFIDN <B><I	JNI>,< 
		DEFINE		J $DATA (NAM,SIZ<1>	J@),< 
			NAM:	BLO	J`CK	SIZ
		>			
		K>>				

	LSTON.	K 				

	GLOB	<.P	K@OPJ, .RETT, .RETF	K`>	
	OPDEF	$RET	[	LPOPJ	P,]	
	OPDEF	L 	$RETT	[PJRST	.RE	L@TT]	
	OPDEF	$RET	L`F	[PJRST	.RETF]	
	OPDEF	$RETIT	[J	M UMPT	.POPJ]	
	OP	M@DEF	$RETIF	[JUMPF	M`	.POPJ]	
	.NODDT	N	$RET,$RETT,$RETF	N ,$RETIT,$RETIF
$RETIT,$RETIF
aPtPaPtkP aPuTP.aPv\rPe,(SQ e,)6Q e,)RQ e,+Q'@e,,UQv@e,-Q e,<SQe-)WQ e-i1Pe.gk=p glp glp gltp gl}p g

,}Q g

-LyQ @g

.=1Q  gpKW |`j
	IFNB <>},<
	PRINTX  (Fro} m GLXVER)
	> ;END IFNB 
	SBKWgpMt { b
	PRINTX {@GLXVER	GLXSCN Edi{`t(132) by BAH on |14-Nov-86
	PRINT| X	    	GLXSCN	Actual Edit(A)
	gtYP -g"@ 0[
	IFN <<.08.TA>&B>,<PRINTX0X ?Initial field n0xot zero in $SET>
	18..TVAL==<C>
	1X..TMSK==<B>
	  ..TA==..TA!1x<FLD(..TVAL,..TMS2K)>
	  PURGE ..TVAL,..TMSK
	.TgtXrP gv

[P/g#=zIPDBCPY##C.SWIT+PDBg$tkQP@g$uP'g$uh6Qgg.N	@P6@g.N g@uYP g@uhxP g@u|P g@vyP g@vItP g@vKP g@vKvP gBLL`

`k,
.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

^8	..STKN==0
	IRP 
^XA,<
	  .STKV1 (
^xA)>
	$CALL	.STK
_ST
	 ..STKN,,..S
_8TKN
	RADIX ..STK
_XR
	DEFINE ENDSV.
_x<.ENSV1 <A>>
	P
`URGE ..STKN,..STKR,..STKQ
   TKgR~r 9\

.TYPE=90=-1				
IFIDN <9PB><HALT>,<.TYPE==9p0>		
IFIDN <B><:CONT>,<.TYPE==1>	:0	
IFIDN <B><DEB:PUG>,<.TYPE==2>		

IFL .TYPE,<			;	
IF2,<PRINTX ? ;0Stopcode A is in;P error; see S..A;p in CREF>
S..A:<:JRST	4,.			
>		<0			

IFB <A>,<<P				
IF2,<PRINTX<p ? Stopcode with =out a A; see S..=0 in CREF>
S..::	=PJRST	4,.			
>			=p		

IFGE .TYPE,><				
S..A::PUS>0HJ	P,.DIE			
	CA>PI	.TYPE,[			
	<S>pIXBIT /A/>&77777?7000000	
	EXP	%%?0.MOD			
	EXP	C	?P		
	EXP	[ASCIZ |?pD|]		
	]				
>@					

	PURGE	.TYPE			
URGE	.gR~)  xX5
	IFNB <C>,<..STR0 (..DPB8,A,C,B)>
	IFBX  <C>,<MOVEM A,B>>,<MOVEM A,gV 
XQ%..AS(A,B,SUB,ADD)(A,Bgg

V 	N`L|
	IFNB <	OB>,<TOPS10<A==B	O >>
	IFNB <C>,<T	O@OPS20<A==C>>
PS20<A==C>>
ght-3P @ghuWP ghuSP ghuxSP @ghv5P ghv
2P hDP hHP hLP hPP i,YQ @iP i$tkQP'i$tlUQ xi0,YQ i0,1Q  i0,^Q i0-kvQ @i?4(  y"IFN FTUUOS,B			;DEFINE UNi?4H `y&IFN FTJSYS,	INTERN AEDT	iD R0]

  IFNBRP	<A>,<.TQCHA==^RpD<B>B17+ZZ>
  ISFNB 	<D>,<DEFINES0 ..TQMA<D>>
  SPIFNB	<C>,<.TQC=Sp=^D<B>B17+ZZ>
	 ZZ==ZZ+1ZZ>
	iG, H0]
	LSTOF.
	TQ(T,2,ASCIZ)		Hp	
	TQ(O,2,OCTAL)I			
	TQ(D,2,DECII0MAL)			
	TQ(F,2,IPFILE)			
	TQ(7,2Ip,CSEVEN)			
	TQ(J6,2,CSIXBIT)			
J0	TQ(W,2,SIXBIT)		JP	
	TQ(5,2,SVNBITJp)			
	TQ(P,2,USEKR)			
	TQ(U,2,DIK0RECTORY)			
	TQ(KPH,2,DAYTIME)			
Kp	TQ(C,2,TIME)			
	TQ(E,2,ERROR)		L0	
	TQ(I,1,INDIRELPCT)		
	TQ(M,0,CRLp,..TXC0(\".CHCRT)M)	
	TQ(J,0,LF,..M0TXC0(\".CHLFD))	
	TQ(L,0,FF,..TXCMp0(\".CHFFD))	
	TNQ(K,0,VT,..TXC0(\N0".CHVTB))	
	TQ(ANP,0,NOCRLF,..TXA(.NpTQCHA))	
	TQ(0,0O,NULL,..TXA(.TQCHO00))	
	TQ(3,0,STROPING,..TXER(IQU))	Op
	TQ(V,2,VERSIONP)			
	TQ(2,0,CARP0ET,..TXER(IQU))	
	TQ(Q,2,POINTER)Pp			
	TQ(B,2,ROB)Q			
	TQ(1,2,OBJEQ0CT)			
	TQ(N,2,NQPODE)			
	TQ(R,2,QpJIB)			
	LSTON.
)			
	LSTON. r`iz
	LSTOF.
 X(33,TTY33,33,.
`X(3TY35,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
X(VT125,VT125<.CHE
TOPS10<180,VT180,18
TOPS10<	XVT185,185,
X(VT220,VTETTLC,<.
X(V40,VT240,240,SE
X(VT50,VT50,VCHESC
X(VT52,VT52,<.CHES
TOPS10<	X(VT1,SETTL
	LSTON.

> 
	LSiK,PA iK4@ 
f8VA
	..TRR==
fX10		
	RADIX 8
	
fx..NV==1			
	IRP 
gA,<
	  .TRV1 (
g8A)>		
	$CALL	.TR
gXSET		
	 ..NV-1,,
gx..NV-1
	RADIX ..
hTRR		
	PURGE ..TRR,..NVURGE ..Tib 
-XRm
		..TX(C,A,<B>)..TX(Cib 
/Ry
		..TX(CA,A,<B>).TX(CibP 
.Rq
		..TX(CE,A,<B>).TX(Cib` 
.XRu
		..TX(CN,A,<B>).TX(Cibp 
'XR=
		..TX(N,A,<B>)..TX(Nibt 
)RI
		..TX(NA,A,<B>).TX(NibtP 
(RA
		..TX(NE,A,<B>).TX(Nibu` 
(XRE
		..TX(NN,A,<B>).TX(Nibx 
)XRM
		..TX(O,A,<B>)..TX(Oib| 
+RY
		..TX(OA,A,<B>).TX(Oib|P 
*RQ
		..TX(OE,A,<B>).TX(Oib}` 
*XRU
		..TX(ON,A,<B>).TX(Oic KW  ~
	IFNB <>@,<
	PRINTX  (Fro`m GLXVER)
	> ;END IFNB 
	ic Mt }`v
	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 
+XR]
		..TX(Z,A,<B>)..TX(ZicT 
-Ri
		..TX(ZA,A,<B>).TX(ZicTP 
,Ra
		..TX(ZE,A,<B>).TX(ZicU` 
,XRe
		..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@ KQBYTE (3)A	:WHO (9)AVER (6)AMIN (18)AEDTo&  	vXO5<^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 @y,A==<ZZ==ZZ+1>
.TTC==.q"eJ  P q*-` +

q+= +
q6~i4 C q? 
9SI
	TXC A,<B>
	TXC A,q@ 	28KIFB <C>,<	2XA==:B> IFNB <C>,<A=:B>B <CqBp +qN5P +up X
	IFNB <8B>,<..STR1 (..TQZX,,<B>,A,..STR4)x>
	IFB  <B>,<SETZM A><B>,<SEuhP 	;z (xrY
	.XCREF	).$RESET, .$BUILD
	.$RESET
	$TYPE)X (.CMACT)
	$HELP)x (<>)
	$NEXT (A*)
IFIDN <B> <>,*8< IRP C,<C>
		*X	.$BUILD>
IFDIF *x<B> <>,<
	$HELP+ (B)
	IRP C,<C>
	.$BUILD><	0

9`cR
.WTOX.(.OM

:ACK,<A>,<B>,<C

:>,<D>,<$WTFLG(WT.SJI),E>)LG(WT	J7 
			DEF.$RTN <A>
			.%RTN==1A>
		D[
	IFDIF<<,<.XCREF	.%
DEFNE[.$HLPM<POINT
			.%HLPM==-1>
	fI9XCREF	.%L
			DEF.$LST <A+1>
			.%LST==11>
=Z !Z
	  IFG !8A-INT.LV,<PRINTX !X?Level A interru!xpts not supported">
	l.BGINT.(\A)B  .BGINT.(\A	X5 
			DINE .$BREA <A>
			.%BREA==1>	- #xZ/
	  IFDEF$ ..BSIZ,<PRINTX ?$8Missing $EOB afte$Xr a $BUILD>
	  .$x.BSIZ==0			
	  .%.BLOC==.			
	  R%8EPEAT A,<			
		%XBLD0.(\..BSIZ,0)	%x
		..BSIZ==..BSIZ+1>	
	==..BSI		}[0

xpo
	.XCREF	 .$BUILD
	.$RESET
	$TYPEMA)
	$NEXT
	IRP B,<B>
	.$BUILD,<	I@ 8pK
	.XCREF	X.$RESET, .$BUILD
	.$RESET
	$TYPE	 (.CMCFM)
	IRP 	8A,<A>
	.$BUILD,<A>
	.$BUILD	$^ xqA
	.XCREF	.$RESET, .$BUILD
	.$RESET
	$TYPEX (.CMTXT)
	$HELPx (<>)
	$NEXT (A)
IFIDN <B> <>,8< IRP C,<C>
		X	.$BUILD>
IFDIF x<B> <>,<
	$HELP (B)
	IRP C,<C>
	.$BUILD><	I  XqO
	.XCREF	x.$RESET, .$BUILD
	.$RESET
	$TYPE8 (.CMTAD)
	$PDATXA (CM%IDA)
	$NEXxT (A)
	IRP B,<B>
	.$BUILD,<	,,U #Z
	  $RET	#8			;WILL INVOKE RIGHT ROUTINE
		,h: 
	IFDIF<<,<.XCREF	.%
DEFNE[.$DEFM<POINT
GP			.%DEFM==1>
	IFIDN <A> <>,<
IF1 <
PRINTXg%Nult in $DEFAULT macro>>DE	.` 8q+
	.XCREF	X.$RESET, .$BUILD
	.$RESET
	$TYPE (.CMDEV)
	$NEXT8 (A)
	IRP B,<B>
	.$BUILD,<	Lz: 
	.XCREF	T, .$BUILD
	.$RESET
	$TYPEMNUX)
	$PDATB)
	$HELP (<
	$NEXT (A)
v8IFIDN,<C> <>,< I
			.$LD>
IFDIF><C
	$HELP (
	IRP D,<D>
	.$BUILD><D>
	.XCREF	
.$RESET, .$BUILD
8
	.$RESET
	$TYPE
X (.CMDIR)
	$NEXT
x (A)
	IRP B,<B>
	.$BUILD,<	|  *xZs
	  IFNDE+F ..BSIZ,<PRINTX +8?$EOB without pre+Xvious $BUILD>
	 +x IFN <.-..BLOC>,<,PRINTX ?Address c,8hange between $BU,XILD and $EOB>
	 ,x LSTOF.			
	  ..-T==0
	  REPEAT .-8.BSIZ,<
	    BLD-X0.(\..T,1)		
	  -x  ..T==..T+1 >
	.  PURGE ..BSIZ,...8T,..BLOC	
	  LSTON.
		
	lLST	+yE.%E
			DINE .$ERTN <A>
			.%ERTN==1>	, 
			DINE>.$ERTN <1B0
			.%ERTN==1>
			.%ERTN	-.
			DINE2.$ERTNZ<[MO
				>     $RET
			.%ERTN==1>
			.%ERTN==1	IF2,<IFN <	0@A>-.,<PRINTX ? I	0`LLEGAL $FALL A>>EGAL $FALL A>>	H6 4p[/
	$CALL	.5STOP
	LSTOF.
	J50UMP	[XWD 0,[ITEXT5P (<A>)]
		 EXP 5p%%.MOD]
	LSTON. .MOD]
	LSTON. 	L[ Xp?
	.XCREF	x.$RESET, .$BUILD
	.$RESET
	$TYPE8 (.CMFLD)
	$NEXTX (A)
	$HELP (<>x)
IFIDN <B> <>,< IRP C,<C>
		8	.$BUILD>
IFDIF X<B> <>,<
	$HELPx (B)
	IRP C,<C>
	.$BUILD><	MI  xp)
	.XCREF	.$RESET, .$BUILD
	.$RESET
	$TYPEX (.CMFIL)
	$HELPx (<>)
	$NEXT (A)
IFIDN <B> <>,8< IRP C,<C>
		X	.$BUILD>
IFDIF x<B> <>,<
	$HELP (B)
	IRP C,<C>
	.$BUILD><	dy 
			DINE .$FLGS <A>
			.%FLGS==1>	ex: Xq
	.XCREF	x.$RESET, .$BUILD
	.$RESET
	$TYPE8 (.CMFLT)
	$HELPX (<>)
	$NEXT (Ax)
IFIDN <B> <>,< IRP C,<C>
		8	.$BUILD>
IFDIF X<B> <>,<
	$HELPx (B)
	IRP C,<C>
	.$BUILD><	$ q}
	.XCREF	8.$RESET, .$BUILD
	.$RESET
	$TYPEx (.CMTAD)
	$PDATA (<CM%IDA!CM%ITM8!CM%FUT>)
	$NEXTX (A)
	IRP B,<B>
	.$BUILD,<	$ 4[#X
	  INTER40N A
	  $DATA(A,<B>)
	ATA(Ay~[1.b	"
	IFDIF<<,<.XCREF	.%
DEFNE[.$HLPM<POINT
			.%HLPM==1>
	&5
	.XCREF	T, .$BUILD
	.$RESET
	$TYPEMIFI)
	$HELP)
	$NEXT (A
IFIDNR<B>,<>,>
			.$BUILD>
IFDIF> <>,<
	$HELP)
	IRP C,<C>
	.$BUILD><	&u q	
	.XCREF	8.$RESET, .$BUILD
	.$RESET
	$NEXTx (A)
	$TYPE (.CMINI)
	IRP B,<B>
	.$BUILD,<	./ 
	.XCREF	T, .$BUILD
	.$RESET
	$TYPEMKEY)
	$PDATB)
	$NEXT (
	IRP C,<C>
	.$BUILD,<C>
	.XCREF	T, .$BUILD
	.$RESET
	$TYPEMKEY)
	$PDATA)
	$NEXT (0
	IRP B,<B>
	.$BUILD,<B>
	/>Ky

<@cf.WTOX.(.OM

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

;`c`.WTOX.(.OM

<LOG,<A>,<B>,<C>,,<D>)B>,<C	:/
			DEF.$NXT <A>
			.%NXT==1A>
		:|KV %xrC
	.XCREF	&.$RESET, .$BUILD
	.$RESET
	$TYPE&X (.CMNOD)
	$HELP&x (<>)
	$NEXT (A')
IFIDN <B> <>,'8< IRP C,<C>
		'X	.$BUILD>
IFDIF 'x<B> <>,<
	$HELP( (B)
;	$FLAGS ((8CM%PO)
	IRP C,<C>
	.$BUILD><	:}r 
	.XCREF	T, .$BUILD
	.$RESET
	$TYPEMNOI)
	$PDATPOINT 7,[ASCI
	$NEXT 
	IRP C,<C>
	.$BUILD,<C	;-XR 
	.XCREF	T, .$BUILD
	.$RESET
	$TYPEMNUM)
	$PDATB)
	$HELP (<
	$NEXT (A)
s8IFIDN,<C> <>,< I
			.$LD>
IFDIF><C
	$HELP (
	IRP D,<D>
	.$BUILD><D>
	.XCREF	8.$RESET, .$BUILD
	.$RESET
	$TYPEx (.CMOFI)
	$NEXT (A)
	$HELP (<>8)
IFIDN <B> <>,X< IRP C,<C>
		x	.$BUILD>
IFDIF <B> <>,<
	$HELP8 (B)
	IRP C,<C>
	.$BUILD><	B$ 
			DINE .$DATA <A>
			.%DATA==1>	B$YP 
			DINE<.$DEFM <POI
			.%DEFM==1>
			.%	CYTR	.%D
			DINE .$DEFR <A>
			.%DEFR==1>	G-}  r
	.XCREF	 8.$RESET, .$BUILD
	.$RESET
	$TYPE x (.CMQST)
	$HELP! (<>)
	$NEXT (A!8)
IFIDN <B> <>,!X< IRP C,<C>
		!x	.$BUILD>
IFDIF "<B> <>,<
	$HELP"8 (B)
	IRP C,<C>
	.$BUILD><	J.I  2`[
	  $CALL3	.RETE			
		LSTO3 F.
	  JUMP	ERA$
		LSTON.ERA$	Ni  
pXX
	.NVR==0
px			
	.ACM==0			
q

	IRP A,<		
	
q8	..TSAC(.ACB,A)	
qX	
		IFN .ACB,<.A
qxCM==.ACM!1B<A>>	
r
		IFE .ACB,<			
r8
		IFE .NVR,<			
rX
		    PUSHJ P,[
rx			
			>
		  ..
sPUSH(A,\<.NVR+1>
s8)>>	

    IFE .
sXNVR,<	
	IFN .ACM
sx,<	
	    IFE <.A
tCM-17B<T4>>,<.ACM
t8==0
				$CALL .S
tXAVET>
	    IFE <
tx.ACM-377B<.A16>>,
u<.ACM==0
				$CA
u8LL .SAVE8>
	    
uXIFE <.ACM-17B<P4>
ux>,<.ACM==0
				$
vCALL .SAVE4>
	  
v8  IFE <.ACM-7B<P3
vX>>,<.ACM==0
				
vx$CALL .SAVE3>
	 
w   IFE <.ACM-3B<P
w82>>,<.ACM==0
			
wX	$CALL .SAVE2>
	
wx    IFE <.ACM-1B<
xP1>>,<.ACM==0
		
x8		$CALL .SAVE1>

xX	    IFE <.ACM-1B
xx<.A13>>,<.ACM==0
y
				$CALL .SV13>
y8
	    IFE <.ACM-
yX1B<.A14>>,<.ACM==
yx0
				$CALL .SV1
z4>
	    IFE <.AC
z8M-1B<.A15>>,<.ACM
zX==0
				$CALL .S
zxV15>
	    IFE <.
{ACM-1B<.A16>>,<.A
{8CM==0
				$CALL 
{X.SV16>
	    >>

{x
	IFN .ACM,<	
	
|    IFE .NVR,<			
|8
		PUSHJ P,[		

|X		>

	    .ACB=
|x=0			
	REPEAT ^D
}16,<			
	    IFN
}8 <.ACM&1B<.ACB>>,
}X<	
		..PUSH(\.AC
}xB,\<.NVR+1>)>
		
~.ACB==.ACB+1>>		
~8

	IFN .NVR,<	

~X		PUSHJ	P,@-.NVR(
~xP)	
		 TRNA			

		AOS	-1-.NVR(P)	
8
	    REPEAT .NV
XR,<..POP(\.NVR)>	
x
		ADJSP	P,-1		
		POPJ	P,]>		
		POPJ	P,]>		
	N;CREF	.%S
	IFD	<A><>,<DEFINE
	.%SBCM==1
>
	.%SBCM==1
	N.@ &8ZC
	  IFNDE&XF ..BSIZ,<PRINTX &x?$SET without pre'vious $BUILD>
	 '8 IFNB <B>,<..STR'X0 (..SET,<C>,B,'xA)>
	IFB  <B(>,<..STR0 (..SET,(8<C>,FWMASK,A)>
	,FWMASK,A)>
	.XCREF	1a,	b
	a==.
	18XWD b-1,b-1
	D1XEFINE $ETAB <.XCR1xEF	a,	b
		b==.-a>b
		b==	O%| @P\
IF1,<PRI@pNTX % Use STOPCD Amacro for stopcodA0e A instead of $APSTOP>
S..A::!	$ApCALL .STOP
		LSTBOF.
		JUMP [XWD B0'A',[ITEXT (<B>BP)]
			EXP %%.MOD]
		LSTON.	MOD	O,(v 8p}
	.XCREF	X.$RESET, .$BUILD
	.$RESET
	$NEXT	(A)
	$TYPE	(.C8MINI)
	$SBCM	(BX)
	IRP C,<C>
	.$BUILD,<C>
	O=
	.XCREF	T, .$BUILD
	.$RESET
	$TYPEMSWI)
	$PDATA)
	$NEXT (0
	IRP B,<B>
	.$BUILD,<B>
	O=
	.XCREF	T, .$BUILD
	.$RESET
	$TYPEMSWI)
	$PDATB)
	$NEXT (
	IRP C,<C>
	.$BUILD,<C>

@ qm
	.XCREF	8.$RESET, .$BUILD
	.$RESET
	$TYPEx (.CMTAD)
	$PDATA (<CM%IDA!CM%ITM8>)
	$NEXT (A)
X	IRP B,<B>
	.$BUILD,<B>
	.$	R/C\!
	$CALL	TC0%TEXT
	LSTOF.	XCCPREF
	JUMP	[XWD 2Cp,0
		 EVL (A)
D		 ITEXT(<B>)]	
	LSTON.B>)]	
	.XCREF	X.$RESET, .$BUILD
	.$RESET
	$TYPE (.CMTAD)
	$PDAT8A (CM%ITM)
	$NEXXT (A)
	IRP B,<B>
	.$BUILD,<	R}97 +Xri
	.XCREF	+x.$RESET, .$BUILD
	.$RESET
	$TYPE,8 (.CMTOK)
	$PDAT,XA (<POINT 7,[ASCI,xZ\B\]>)
	$NEXT -(A)
	IRP C,<C>
	.$BUILD,<C	S W]%


  ..TXV A(.TQA,C,D,E,T0B)	
      IFN .Tp.TXEF,<			
	..TETPRR<$TQ(A,B,C,D,E)>>

C,	S@I9 n_
	LSTOF.
	X(UQU,Unknown qn@ualifier)
	X(IQUn`,Invalid qualifieor)
	X(IJA,Invalio d justification ao@rgument)
	X(IWA,o`Invalid width argpument)
	X(PEA,Prp emature end of arp@gument)
	X(JNA,Jp`ustification is nqot allowed)
	X(Aq NA,Arguments are q@not allowed)
	X(q`ADS,Address must rbe specified)
	LSTON.
ied)
	L	SN	.REF	.%T
			DEE .$TYP <A>
			.%TYPE==1>
	W= "xr+
	.XCREF	#.$RESET, .$BUILD
	.$RESET
	$TYPE#X (.CMUQS)
	$HELP#x (<>)
	$NEXT (A$)
	$PDATA (B)
$8IFIDN <C> <>,< I$XRP D,<D>
			.$$xBUILD>
IFDIF <C%> <>,<
	$HELP (%8C)
	IRP D,<D>
	.$BUILD><D>
	.XCREF	X.$RESET, .$BUILD
	.$RESET
	$TYPE

 (.CMUSR)
	$NEXT

8 (A)
	IRP B,<B>
	.$BUILD,<	^+@ 60[E
IFE %%.O6PTS,<DEFINE $WARN 6p(MSG) <
		$TEXT 7(T%TTY,<% ^W6/[%%70.MOD]/ MSG>)>>
I7PFN %%.OTS,<DEFINE7p $WARN (MSG) <
	8	$TEXT (T%TTY,<% 80^W6/IIB+IB.PRG/ ^8PW/[%%.MOD]/ MSG>)>>
	$WARN <A>	_$r

-`c
		IFB	<

.A>,<.WFACD==0

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

.@D==0>>
		IFNB	<

.`A>,<.WFACD==-1

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

/ CD==.$WACD!<A>>

/@
			IFE <0-2>,<DE

/`FINE .$WACD,<<WO.

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

"`b(
		IFB	<

#A>,<.WFACK==0

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

#@K==0>>
		IFNB	<

#`A>,<.WFACK==-1

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

$ CK==.$WACK!<A>>

$@
			IFE <0-2>,<DE

$`FINE .$WACK,<<WO.

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

@c>
	IFE	<.W

`FMTY>,<PRINTX ?No

 message type in

 $WTBLD>
DEFINE .

@EAWTO(SUFFIX,ARGC

`OD),<
IFN .WF'SU

FFIX',<
	IFE	<AR

 GCOD-0>,<<WO.'SUF

@FIX'>B8+ .$W'SUFF

`IX'>
	IFE	<ARGCO

D-1>,<<WO.'SUFFIX

6`'>B8+ [EXP .$W'SU

7FFIX']>
	IFE	<AR

7 GCOD-2>,<.$W'SUFF

7@IX'>
>
>
	ALLW

7`TO				
	EXP	0			
		
	EXP	0				_$k

%@b>
		IFB	<

%`A>,<.WFFLG==0

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

& G==0>>
		IFNB	<

&@A>,<.WFFLG==-1

&`		IFN <1-2>,<.$WF

'LG==.$WFLG!<A>>

' 
			IFE <1-2>,<DE

'@FINE .$WFLG,<<WO.

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

+bj
		IFB	<

+ A>,<.WFJBN==0

+@	IFN <0-2>,<.$WJB

+`N==0>>
		IFNB	<

,A>,<.WFJBN==-1

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

,@BN==.$WJBN!<A>>

,`
			IFE <0-2>,<DE

-FINE .$WJBN,<<WO.

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

3 c,
		IFB	<

3@A>,<.WFMFL==0

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

4L==0>>
		IFNB	<

4 A>,<.WFMFL==-1

4@		IFN <1-2>,<.$WM

4`FL==.$WMFL!<A>>

5
			IFE <1-2>,<DE

5 FINE .$WMFL,<<WO.

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

`aP
		IFB	<

A>,<.WFMTY==0

 	IFN <0-2>,<.$WMT

@Y==0>>
		IFNB	<

`A>,<.WFMTY==-1

		IFN <0-2>,<.$WM

 TY==.$WMTY!<A>>

@
			IFE <0-2>,<DE

`FINE .$WMTY,<<WO.

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

( bT
		IFB	<

(@A>,<.WFNOD==0

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

)D==0>>
		IFNB	<

) A>,<.WFNOD==-1

)@		IFN <0-2>,<.$WN

)`OD==.$WNOD!<A>>

*
			IFE <0-2>,<DE

* FINE .$WNOD,<<WO.

*@NOD>B8+[ITEXT (<A>)]>>
		>
<	_%p

8 cD.WTOX.(.OM

8@WTO,<A>,<B>,<C>,,<D>)B>,<C	_%xU

 b
		IFB	<

  A>,<.WFOBJ==0

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

 `J==0>>
		IFNB	<

!A>,<.WFOBJ==-1

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

!@BJ==.$WOBJ!<A>>

!`
			IFE <0-2>,<DE

"FINE .$WOBJ,<<WO.

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

0@c
		IFB	<

0`A>,<.WFOCD==0

1	IFN <0-2>,<.$WOC

1 D==0>>
		IFNB	<

1@A>,<.WFOCD==-1

1`		IFN <0-2>,<.$WO

2CD==.$WOCD!<A>>

2 
			IFE <0-2>,<DE

2@FINE .$WOCD,<<WO.

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

:`cZ.WTOX.(.OM

;WTO,<A>,<B>,<C

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

9cJ
.WTOX.(.OM

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

@c0
	DEFINE

 .EAWTO(SUFFIX),<$

6WT'SUFFIX'	<>>
	ALLWTO				

		_&N

 a|
		IFB	<

@A>,<.WFTXT==0

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

T==0>>
		IFNB	<

 A>,<.WFTXT==-1

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

`XT==.$WTXT!<A>>


			IFE <2-2>,<DE

 FINE .$WTXT,<<WO.

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

@af
		IFB	<

`A>,<.WFTYP==0

	IFN <2-2>,<.$WTY

 P==0>>
		IFNB	<

@A>,<.WFTYP==-1

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

YP==.$WTYP!<A>>

 
			IFE <2-2>,<DE

@FINE .$WTYP,<<WO.

`TYP>B8+[ITEXT (<A>)]>>
		>
<
t{P 
u[rQ ]>t2
u}P 
,MP $.
P.JP .bP /P B&@P cGP )0 m'0M$t<\Z6 

	.XREF	a,	b,	c,	

	.XCREF	.%TGS,	.%DA
	.XCREFP,	.$FLGS,	.

	.XCREF	.%BREA,	.%N
	.XCREF	.$BREA,		.$

	d==<FLD(.NC)>!.$F

	IFN!<.%BREA>,<d=

	XIFG!<.%HLPM>,<d=
						
	IFL%HLPM>,<d==d!
						

	IFNd<.%DEFM>,PP> 

c:!	<INSVL.(INSVL
	EXP	d		
	EXP	.$DATA			
IFNF<.%HLPM!.%D
	EXP	.$HLPM>			
IFN<<.%DEFM!.%BREA>
	EXP	.$DEFM>	
IFN <.%BREA>,
	EXP	.$BREA>		

	a==.-c			

IFNE<.%NXT!.%.%ERTN
	EXP	XT >			
IFN%<EFR!.%RTN!.%ER
	EX	.$RTN >			
IFN<.%DEFR!.%ERTN!.
	EXP	.$			
IFNE<.%.%SBCM>,<
	8EXP	.$DEFR>			
IXFN <.%SBCM>,<
	EXP	.$SBCM>			

j	b==.-c			

I8F2,<
	PURGE	.%TYS,	.%DAT
	PURGE	..$FLGS,	.$D

	PUR	.%BREA,	.%NXT,
	PURGE	.$BREA,	.$NX
mX
	PURGE	a,	b,	
> 
	LIST,	d
> 
	LIST$YVN7,[ASCIZ\0\]NT7,[A$YY m+0M$tM.- m%0M$t;5Iy m0Mv:=f= m!0+1M$t:w
	.XCREF
	SALL
	XLIST
	xDEFINE .$TYP <0>
	.%TYPE==0
	DEFE .$FLGS <0>
	X.%FLGS==0
	DEFINDATA <0>
	.%ATA==0
	DEFINEM <>
	.%HLP
	DEFINE0.$D
	.%DEFM=
	DEFINE .$LST
	.%LST==0
YX	DEFINE .$BREA <0
	.%BREA==0
	DEFINE .$NXT <0>
Z8	.%NXT==0
	DEFINERTN <0>
	.%RTN==0
	DEFINE <0>
	.%RTN
	DEFINE>.$DE
	.%DEFR==
	DEFINE	.$SBCM
	.%SBCM==0
	.CREF
CM==0'm)00T01,O)0P $YVP $YYP .-P 5IyP f=P w
Qe
	   ..AS
81==-<B>	
	IFDEF
X .PSECT,<
	.IFN 
x..AS1,ABSOLUTE,<

	     C A,[-..
8AS1]>	
	.IF ..AS
X1,ABSOLUTE,<
		.
x.AS2==0	
	  IFE 
<..AS1&^O777777B1
87>,<
		..AS2==1	
X
	    DI A,..A
xS1>
	  IFE ..AS2
,<
	    ..OP(A,
8B,C)>	
	PURGE 
X..AS1,..AS2>>
	I
xFNDEF .PSECT,<
	
	..AS2==0	
	  IF
8E <..AS1&^O777777
XB17>,<
		..AS2==
x1	
	    DI A,.
.AS1>
	  IFE ..A
8S2,<		
	    ..OP
X(A,B,C)>
	PURGE ..AS1,..AS2>:h Sc
	A: 

Q
	  ..CX1

8==C
	IFDEF .PSE

XCT,<
 	.IFN ..CX

x1,ABSOLUTE,<
	  
    CAMA B,[C]
8>
	.IF ..CX1,ABS
XOLUTE,<	
		..CX2
x==0	
	  IFE <..C

X1&^O777777B17>,<

8
		..CX2==1

X   CAIA B,C>

x	  IFE ..CX2,<		

	    CAMA B,[
8C]>
	PURGE ..CX1
X,..CX2>>
	IFNDEF
x .PSECT,<
		..CX
2==0	
	  IFE <..
8CX1&^O777777B17>,
X<
		..CX2==1	
	
x    CAIA B,C>

	  IFE ..CX2,<		
8
	    CAMA B,[
XC]>
	PURGE ..CX1,..CX2>GE ..CX:&@ XE
	..TSIZ 8(..PST,C)
	.CASXE ..PST,<<
		MOVxEM A,B>,<
		HRRM A,B>,<
		HR8LM A,B>,<
		DPXB A,[POINTR (B,C)]>>INTR (B,:<;Y 
\xUk
   DEFIN
]E ..CNS2 (NEW,OLD
]8)<
	  OLD>			
	..CNS ()>			
	:L;Y 
ZXUc
   DEFIN
ZxE ..CNS (%%%)<
	
[..CNS2 <%%%>,>

[8
   DEFINE ..CNS2
[X (NEW,OLD)<
	DEF
[xINE ..CNS (%%%)<
\
	  ..CNS2 <%%%>,
\8<OLD'NEW>>>
   OLD'NEW>>>
   :dH@ xX+
	..TSIZ (..PST,C)
	.CAS8E ..PST,<<
		MOVXE A,B>,<
		HRRxZ A,B>,<
		HLRZ A,B>,<
		LDB8 A,[POINTR (B,C)]>>INTR (B,:}i1 
AxT
	A==<<<
B-<B>>&<B>>&<1B<^L<B>>>>>&<1B<:~ 
R
	  ..OP1
8==B
	IFDEF .PSE
XCT,<
 	.IFN ..OP
x1,ABSOLUTE,<
	  
    C A,[..OP1]
8>
	.IF ..OP1,ABS
XOLUTE,<	
		..OP2
x==0	
	  IFE <..O
P1&^O777777B17>,<
8
		..OP2==1	
	 
X   CI A,..OP1>
x
	  IFE ..OP2,<		
 
	    C A,[..O
 8P1]>
	PURGE ..OP
 X1,..OP2>>
	IFNDE
 xF .PSECT,<
		..O
!P2==0	
	  IFE <.
!8.OP1&^O777777B17>
!X,<
		..OP2==1	

!x	    CI A,..OP1
">
	  IFE ..OP2,<
"8		
	    C A,[.
"X.OP1]>
	PURGE ..OP1,..OP2>GE ..;m l`^l
	..PST==mC-FWMASK
	.IF0 m ..PST,<
		POINT m@0,B,35>,<
		POINTR (B,C)>POI;| XX
		POP P,x.NVA
		PURGE .NVA
		.NVR==.NVR-1
		.NVR==.NVR;\t XX	
		PUSH Px,A
		DEFINE .NVB<A>
		.NVR==.NVR+1
		.NVR==.;] (xZS
	  IFGE )<<<B>&777777>-..)8BSIZ>,<
		PRINTX)X ?WORD offset gre)xater than $BUILD *size parameter>
*8	  SET0. (\<B>,C,<A>)
	B>,;LH 
H8TS
	IFNDEF 
HXC,<PRINTX C IS 
HxNOT DEFINED
	  
IA (<B>,D,FWMASK
I8)>	
	IFDEF C,<
IX
	IFNDEF %C,<
	
Ix  A (<B>,D,C)
J>	
	IFDEF %C,<
J8
	  %C (A,<B>,D,C)>>A,<B>,;LH 
JxU

	..NS==0
K			
	IRP C,<..N
K8S=..NS+1>	
	IFE 
KX..NS,<PRINTX ?EMP
KxTY STRUCTURE LIST
L, A>
	IFE ..NS-
L81,<		
	  ..STR0 
LX(A,<B>,<C>,D)
Lx>
	IFG ..NS-1,<	
M	
	..ICNS			
	.
M8.CNS (<E (A,<B
MX>,,>) 
	IRP C,<
Mx		
	  IFNDEF C,
N<PRINTX C NOT DE
N8FINED>
	  IFDEF 
NXC,<
	  IFNDEF %
NxC,<
	  ..CNS (<
O,C,D>)>	
	  IF
O8DEF %C,<
	  %C
OX (..STR2,,D,C)>
Ox 
	  ..CNS (<)>)
P		
	  ..GCNS		

P8	  ..ICNS		
	  .
PX.CNS (<E (A,<B
Px>>) 
	  IFNDEF %
QC,<
	  ..CNS (<
Q8,C,D>)>	
	  IF
QXDEF %C,<
	  %C
Qx (..STR2,,D,C)>
R>> 
	..CNS (<,,)>)		
	..GCNS>);LI 
RXU
	..CNS (<,C,B>).CNS (;LI 
SU+


	IFDIF <
S8D><F>,<
	  IFN
SXB <D>,<
	    A
Sx (<B>,D,..MSK)	
T
	    IFNB <F>,
T8<PRINTX C AND E
TX ARE IN DIFFERENT
Tx WORDS>>
	  ..MS
UK==0>		
	IFNB <
U8F>,<
	  ..MSK=..MSK!<E>>MSK=..;LJ 
UxU;


	IFDIF <
VD><F>,<	
	  IF
V8NB <D>,<
	    
VXA (<B>,D,..MSK)
Vx>	
	  ..MSK==0>	
W	
	IFNB <F>,<

W8	  ..MSK=..MSK!<E>>MSK=..MSK!<;LJ 
WxUQ


	IFDIF <
XD><F>,<	
	  IF
X8NB <D>,<
	    I
XXFNB <F>,<		
		
XxA1 (B,D,..MSK)>
Y 
	    IFB <F>,
Y8<		
		A2 (B,D
YX,..MSK)>> 
	  ..
YxMSK==0>		
	IFNB 
Z<F>,<
	  ..MSK=..MSK!<E>>MSK=;$\Y s`_*
sIF1,<
    PRINTX ? Errs@or in "A"
    DtEFINE X(NAM,ERR) t`<IFN ..X'NAM&..TXuEF,<PRINTX ? ERR>u >
    $TX$ERR>

    $TX$ERR>
;$^ w_`

    ..w TXF==0				
    .[email protected]==0				
    w`..TXP==0				
   x ..TXEG==<..TXEF=x =0>			
    IRPC x@A,<				
	..TXC=x`=ASCII\A\-35		
	IFN ..TXB,<IFN y ..TXB-..TXC,..CNSy@(<A>)
		   IFE y`..TXB-..TXC,..TXBz==0>
	IFE ..TXB,z <..TXQ(<A>,\..TXz@F)>>	
    ..TXC1z`				
    IFN ..T{XB,<IFN <..TXB-"^{ ">,<..TXER(PEA)>>{@
    ..TXEF==..T{`XEF!..TXEG		
   | IFN ..TXEF,<..TERR<A>>
,<..TE;&( Yp]O..TXA(.TQCH0)..TXA(.TQC;&) []X..TXER(IQU)..TXER(IQU;&) Z0]S..TXER(IQU)..TXER(IQU;&0 Y0]K..TXA(.TQCHA)..TXA(.TQC;&5 Wp]?..TXC0(\".CHLFD).TXC0(\".;&5 Xp]G..TXC0(\".CHVTB).TXC0(\".;&6 X0]C..TXC0(\".CHFFD).TXC0(\".;&6 W0];..TXC0(\".CHCRT).TXC0(\".;&@ 8Y
	..TSIZ X(..PST,C)	
	.CAxSE ..PST,<<
		SETZM B>,<	
		HLL8ZS B>,<	
		HRRZXS B>,<	
	  ..TSxAC (..ACT,B)	
	  .IF0 ..ACT,<
	8	$CALL .ZERO	
		XLSTOF.
		JUMP [PxOINTR(B,C)]
		LSTON.>,<
		..TX (Z,B,C)>>>TX;&81 
>8T
	IFNDEF 
>X.PSECT,<
	A==0	
>x		
	..TSA1==<Z 
?B>		
	  IFE ..TS
?8A1&^O777777777760
?X,<A==1> 
	>
	I
?xFDEF .PSECT,<
	
@A==0			
	..TSA1=
@8=<Z B>		
	.IF .
@X.TSA1,ABSOLUTE,<	
@x
	  IFE ..TSA1&^
AO777777777760,<A
A8==1>> 
	PURGE ..TSA1>
	PURGE ..;&:= 
<xSo
	A==3		
=	
	IFE <B>+1,<
=8A=0>	
	IFE <B>-
=X^O777777,<A==1> 
=x
	IFE <B>-^O777777B17,<A==2>7;' 
#S'
   ..TX1
#8==C			
IFDEF .P
#XSECT,<
   .IFN .
#x.TX1,ABSOLUTE,<

$	TDA B,[C]>
 
$X  .IF ..TX1,ABSOL
$8UTE,<		
	..TX2==
$x0		
	IFE <..TX1&
%^O777777B17>,<
	
%8  ..TX2==1		
	  
%XTRA B,..TX1>
	
%xIFE ..TX2,<		
	I
&FE <..TX1&^O77777
&87>,<
	  ..TX2==1
&X		
	  TLA B,(.
&x.TX1)>>
	IFE ..T
'X2,<		
	  IFE <<
'8..TX1>B53-^O77777
/X7>,< 
	    ..TX3
/x (A,B)>>	
	IFE
0 ..TX2,<		
	  TD
08A B,[..TX1]>	

0X	PURGE ..TX1,..TX
0x2>>
IFNDEF .PSEC
1T,<
	..TX2==0		
18
	IFE <..TX1&^O77
1X7777B17>,<
	  ..
1xTX2==1		
	  TRA
2 B,..TX1>
	IFE 
28..TX2,<		
	IFE <
2X..TX1&^O777777>,<
2x
	  ..TX2==1		

3	  TLA B,(..TX1
38)>>
	IFE ..TX2,<
3X		
	  IFE <<..TX
3x1>B53-^O777777>,<
4 
	    ..TX3 (A
48,B)>>	
	IFE ..T
4XX2,<		
	  TDA 
4xB,[..TX1]>	
	PURGE ..TX1,..TX2>;'` 
58S=
	IFIDN <
5XA><Z>,<		
	  ..
5xTX2==1
	  ANDI 
6B,^-..TX1>	
	IFI
68DN <A><O>,<		
	
6X  ..TX2==1
	  OR
6xCMI B,^-..TX1>	
7
	IFIDN <A><C>,<
78		
	  ..TX2==1

7X	  EQVI B,^-..TX1>QVI B,^-..TX;'  ] ^V



	..TXE]@F==0			

IFNDEF]` A,<..TXER(UQU)>^		
IFDIF <B><>,^ <IRPC B,<.IFN <^@B>,NUMERIC,..TXER^`(IWA)>>
IFNB <C_>,<IFNDEF .TXTJC_ ,<..TXER(IJA)>>
_@IFDEF  A,<
  IF_`E <A_-^D18>,<IFD`IF <EFBCD><>` ,<..TXER(ANA)>>
`@  IFE <1-<A_-^D1``8>>,<IFDIF <BCaD><>,<..TXER(JNA)a >>
  IFE <2-<A_a@-^D18>>,<IFIDN <a`EF><>,<..TXER(ADbS)>>>

      IFb E ..TXEF,<
	IFIDb@N <B><>,<..TXWD=b`=<..TXJU==<..TXFCc==0>>>
	IFDIF <c B><>,<
	  IFE <^c@D<B>>,<..TXWD==<c`..TXJU==<..TXFC==d0>>>
	  IFN <^D<d B>>,<..TXWD==^D<d@B>
	    IFNB <d`C>,<..TXJU==.TXTJeC>
	    IFB  <e C>,<..TXJU==.TXTJe@L
	      IFE <Ae`-.TQOCT>,<..TXJU=f=.TXTJR>
	f`    f IFE <A-.TQDEC>,<[email protected]==.TXTJR>>
	    IFB  <D>,<g..TXFC==" ">
	  g   IFNB <D>,<..TXg@FC=="D">>>

	Ig`FB  <EF>,<..TXPhT==0>
	IFNB <Eh F>,<..TXPT==1>
	h@IFE <..TXWD+..TXPh`T>,<
	    EXP FLiD(A,TXT.FN)>
	Ii FN <..TXWD+..TXPTi@>,<
	    EXP FLDi`(A,TXT.FN)+FLD(.j.TXJU,TXT.JU)+FLDj (..TXWD,TXT.WD)+Fj@LD(..TXFC,TXT.FC)j`+TXT.AD
	    PNTR(E,F)>>

T;'h

``z
    IFE

..TXP,<			
	..IC

 NS			
	..CNS<ASC

@IZ\>		
	..TXP==1

`>		
    ..CNS<A

>			
    ..TXF==

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

`a

    IF

N ..TXP,<			
	..

 CNS<\>		
	EXP <F

@LD(.TQCHT,TXT.FN)

`+[..GCNS]>>
    ..TXP==0>
    ;'	9 u`_4
    ..TXvEF==..TXEF!..XA	v 	
    ..TXF==0		v@		
    ..TXB=="^"
    ..TXB=="^;'

  |@_d..TXQB(<A>)..TXQB(<;'

( }_n

    IF} N ..TXC-"^",<..TX}@C0(<A>)>		
    }`IFE ..TXC-"^",<..TXF==1>-"^",<..;'

( ~ `

    IF~@E ..TXC-"^",<..TX~`C0(<A>)>	
    IFN ..TXF,<			
	. .TXF==0		
	IFDEF@ .TQCHA,<		
	  `  IFDEF ..TQMA,.

.TQMA 
	    IFN

  <.TQCHA_-^D18>,

@<..TXF==2>>>

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

XC1(<A>)	
	..IC

 NS			
	..CNS<..T

@XA(.TQCHA,>>

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

 ` 
    ..TX

@F==3				
    IFG

`E ..TXC-"0",IFLE

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

 =2>
    IFE ..TX

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

`
    IFE ..TXF-3

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

@`4
    ..TX

`F==4				
    IFE

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

 ==5>		
    IFE .

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

`5>		
    IFE ..T

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

 		
    IFE ..TXF

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

`J
    ..TX

 F==4				
    IFE

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

`=5		
    IFE ..T

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

 
    IFE ..TXF-5

@,<..CNS<,>

`..TXQ5<A>>

	  IFE ..TXF-4,<..

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

	``\
    ..TX

F==6				
    IFE

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

@="/"		
    IFE .

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

]"
    IFE ..TXB

 -"]",..CNS<[>

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

`j
    ..TX

 F==0			
    IFE

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

`>	
    ..CNS<)>

		
    ..GCNS

 
    ..TXEG==..TXEG!..TXEF==..T;DQ @;DPQ ;EPQ ;E:Q  ;EpQ ;E+PQ ;F	0Q ;F\:Q @
0P 
@P 
PP 
`P d  
mVi
	.ACV2 (A)
	.ACV2 (d@ 
mXVs
	A=.FPA
mxC+..NAC		
	IFB <
nB>,<..NAC=..NAC+
n81>
	IFNB <B>,<..NAC=..NAC+B>.d` 
nxW
	IFG A-
o.NPAC,<PRINTX ?TO
o8O MANY ACS USED>
oX
	IFLE A-4,<
	 
ox $CALL .SAVEA>	
p
	IFG A-4,<
	  $CALL .SAVE8>  
 XYm
	  IFIDNx <A><.>,<
	    XMOVEI .SAC,B	
8	    PUSH P,.SAC
	  >
	  IFDIF <xA><.>,<
	  .IFATM <A>,.BLF4	
	8  .BLF1==0		
	  XIFN .BLF4,<		
	 x   .IF %A,MACRO,<	
		.BLF1==1>	
	  >
	  IFNB <XB>,<
		.BLF1==1>x	
	  IFN .BLF1,<		
	    LOAD .SA8C,A,B
	    PUSXH P,.SAC
	  >
	x  IFE .BLF1,<		;IF WASN'T A STRUCT8URE REF,
	    IFXN .BLF4,<		
	   x  .BLF2==<<Z A>&17B17>-<P>B17 
	8      .IF .BLF2,AXBSOLUTE,< 
	  x   IFE .BLF2,<		
	       .BLF1==18		
	       .BLF3X==<Z A>&777777
x		PUSH P,.BLF3-..NA(P)>>>> 
	  IF8E .BLF1,<		
		PUXSH P,A>>	
	  ..NA=..NA+1
	  ..
	 Y)
	.BCAL1 A
	.BCAL1 
| 	,XJc
	XLIST
	,8	.ORG 0
	LIST
.ORG 0
	LIST

=Z "XZ$CALL	I%INTA$CALL	I%IN9  
:xSa
	..CSN==
;A
	..CSC==0
	I
;8RP B,<
	IFE ..C
;XSN-..CSC,<
	  ST
;xOPI
	  ..CAS1 (
<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 
	..PST==K
	.IF0T<
		SOS B>,<	
		$CALL .SO8S	
		LSTOF.
		JXUMP [POINTR(B,C)]
		LSTON.>C}

`c4
	.OPCD==

[email protected]+1
	WO.A==.OPCD
G),<
		| 	-pJw
	XLIST
	.	.....X=.
	.ORG
	.ORG 0
	REPEAT	.P .....X,<EXP 0>
	.p	PURGE .....X
	.ORG
	LIST

	.v=H 
dXV'
	IRP A,
dx<
	  .ENSV2 (A)>	  .ENSV2 (A)v=I 
e8V+
	.ENSV3 (A)
	.ENSV3 v=I 
exV/
	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 
9XSS
	..IFT==
9xA		
	IFE ..IFT,
:<
	B
	..IFT==0
:8>		
	IFN ..IFT,<
	C>N ..IFT,<&4 Z
	IRPC A8,<
	B==0
	IFGEX "A"-"A",<IFLE "xA"-"Z",<B=1>> 
	IFGE "A"-"0",<8IFLE "A"-"9",<BX=1>>
	IFE "A"-"x%",<B=1>
	IFE " A"-"$",<B=1>
	 8IFE "A"-".",<B= X1>
	IFE B,<STOPI>>IFE B,<STOP&t<H 
8X]
	..PST==
XC-FWMASK
	.IF0 
x..PST,<
		AOS B>,<	
		$CALL .AO8S	
		LSTOF.
		JXUMP [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 	zxOW<A>B<^D70-POS(B)>B<^D70N

0PO 
	SYSPRM	C	
	IFG	.PID,<MX.PID==A>	
<MX.PID=O%=H 
`XV
	.STKV2 (A)
	.STKV2 O%=I 
aV
	IFB <B
a8>,<..STKN==..STKN
aX+1>
	IFNB <B>,<
ax..STKN==..STKN+B
b>
	..STKQ==..STK
b8N+1
	.STKV3 (A,\..STKQ)V3 (A,O%=I 
bxV!
   IFDEF
c A,<.IF A,SYMBO
c8L,<PRINTX STKVAR 
cXA ALREADY DEFINE
cxD>>
	DEFINE A<-
d^OB(P)>
	$A==<Z A>>
	$A==<RJP RJP RJ	P RJ	P RJJP RJP RJ
P RJ$HP RJ%P RJ4`P RJ5 P RLH:P RLkQP RM4(P RMD)P RMDkP RMX6P RMX<P RMXSP RMYP RMYP RMY6P RM\P RM\ZP RN

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

qQ S

89P S

:P 
S

:Q

:	P S

:	P 
S

:
Q S

:Q S

:Q S

:P 	S

:Q

: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  
hXVE
	.TRV2 (A)
	.TRV2 (Sd@ 
iVO
	.TRV3 (
i8A,\..NV)	
	IFB 
iX<B>,<..NV=..NV+1
ix>
	IFNB <B>,<..NV=..NV+B>,<..Sd` 
j8V]
   IFDEF
jX A,<.IF A,SYMBO
jxL,<PRINTX TRVAR 
kA ALREADY DEFINED
k8>>
	DEFINE A<^O
kXB(.FP)>
	$A==<Z A>>
	$A==<S"P S"P S"	P S"	P S"JP S"P S"
P S"$HP S"%P S"4`P S"5 P S%4(P S%D)P S%DkP S&d
P S&e(P S&e)P S&eHP SFH2P SFIVP SFJQP SFJVP SFJYP _%~

= d
		$CALL

=@I%WTO		
		LSTOF.

=`			
		JRST	g

>
		$WTRST			
	IF

> NB <A>,<$WTMTY (

>@<A>)>	
	IFNB <

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

?>	
	IFNB <C>,<$

? WTTXT (<C>)>

?@IFNB <D>,<$WTOBJ

?` (<D>)>	
	IFNB

@<E>,<$WTACK (<E

@ >)>	
		IRP F,<

@@F>		
		$WTBLD

@`
	g:!
	LSTON.  g:!
	LSTON. kPP >}{woP