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

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

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

x
,RK@P C4@ 
eV-
	..NAC==
e80		
	IRP A,<
	
eX  .ACV1 (A)>		
	.ACV3 (\..NAC)C' 
Py..AS(A,B,ADD,SUB)(A,BC, 	p`OLSH A,-^D9LSH A,-^DC2f}

`` 
	.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:' 
3XS
	TXZ A,<^-<B>>TXZ A,CHuI7Q xCHvN8P'CJ9ip CJ9jp CJ9l}p E

XXm
	..NA==0

x			
	IRP B,<
	 .BCAL2 B>		
	USHJ	P,A		
	AD	P,-..NA		
   	P,-..NA		
  E2"@ 'xZE
	  IFE (B,<..TA==0>
	  (8IFN B,<EXP ..TA(X
		    PURGE ..TA>
	PURGE ..TE@tP'E@vyQ ~E@v:=Q |F;z:Q @G@ 
PA
	    ..CX(,A,B)   ..CGD 
XP]
	    ..CX(A,A,B)  ..CGDP 
	XPM
	    ..CX(E,A,B)  ..CGDp 

PQ
	    ..CX(G,A,B)  ..CGDy  

XPU
	    ..CX(GE,A,B) ..CGE@ 
XPE
	    ..CX(L,A,B)  ..CGEI  
	PI
	    ..CX(LE,A,B) ..CGE` 
PY
	    ..CX(N,A,B)  ..CGH

s`g<

	  LST

t OF.

	X	CRE

t	X	GEN		
	X	PRT

s 	
	X	CLS		
	X	A

s@UT		
	X	USW

t@X	SPL		
	X	SIZ

t`
	X	MOD		
	X	CH

uN		
	X	ACT		
	X

u 	CRY		
	X	DTY

u@
	X	DTO		
	X	DCC

u`		
	X	BSZ		
	X

vFSZ		
	X	HSZ

v 	X	RFM		
	X	RFO

v@	
	X	RSZ		
	X	B

v`LS		
	X	FFB

wX	ACW		
	X	RMS

w 
	X	MCY		
	X	CT

w@G		
	X	NSB		

	  LSTON.


G"\Y `xT

	IF1, <%%EDT==AEDT>	
 
	IF2, <IFN <%%E@DT-AEDT>,<
		PR`INTX ? Edit Numbe	r Doesn't Match G	 LXVER in GLXA
		@	A$WHO(\AEDT)>		`
		A$NOTE		
	I
NTERN AEDT		
	I
 NTERN LODLEV		
;
@	PURGE %%EDT> ;END IF2

bM$uI7G4,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 }
	IFNB <>0,<
	PRINTX  (FroPm GLXVER)
	> ;END IFNB 
	>}{woG>hMt }Pu
	PRINTX }pGLXVER	GLXCOM Edi~t(55) by CTK on 2~05-Sep-83
	PRINTX~P	    	GLXCOM	Actual Edit(A)
	WG>lYP G>vC@ 	0xKLALL
PAGE	1; (A Continued o	18n next page)
SAL	1XL; (A Continued 	1xfrom previous page) previous pagG?T 	(PJEASCIZ \
COPYRIGHT Z \
CGHt;rP GHtkP GHv	P GHv)9P GHv:=P I!k7P I!k<P ImP I$P`O*IIY{P`O*|I  X/
	IFNB <8B>,<..STR0 (.DECRX0,,<B>,A)>
	IFxB  <B>,<SOS A>  <B>,<SOS A>I6= 
=XT
	A==<-1
=xB<C>+1B<C-D>> 
>
	IF1,<IFDEF %A
>8,<PRINTX ?A ALRE
>XADY DEFINED>>
	D
>xEFINE %A (OP,AC,
?Y,MSK)<	
	IFDIF 
?8<Y><>,<
	OP (<AC
?X>,B+'Y,MSK)>
	I
?xFIDN <Y><>,<
	OP
@ (<AC>,B'Y,MSK)>>AC>,B'Y,MSK)>I'7 
XQ..OP(A,B,DIV)..OP(A,BIOH1 Pqw
	IFB <Dp>,<
	XWD	[ASCIZ\C\],[XWD B,A]>0
	IFNB <D>,<
	PXWD	[EXP CM%FW!Dp
		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

q`g
	IF1,<IF

rDEF ERA$,PRINTX

r ?Duplicate error

r@code A>
	ERA$=

r`=ER%%%
	ER%%%==ER%%%+1
R%%%==EKKP KK,}P KKLP KK|Y

1`g

	ERR	EOF

2,<End of file>

2 ERR	IFP,<Illegal

2@file position>

2`ERR	FDE,<File dat

3a error>
	ERR	FN

3 D,<File is not on

3@ disk>
	ERR	NSD,

3`<No such device>

4
	ERR	FCF,<File c

4 heckpoint failed>

4@
	ERR	SLE,<A sys

4`tem limit was exc

5eeded>
	ERR	IFS,

5 <Illegal file spe

5@cification>
	ERR

5`	FNF,<File not fo

6und>
	ERR	PRT,<P

6 rotection violati

6@on>
	ERR	DNA,<De

6`vice not availabl

7e>
	ERR	NCE,<No

7 "current" entry i

7@n list>
	ERR	NMA

7`,<No IPCF message

8 is available>

8 ERR	FDS,<Files ar

8@e on different st

8`ructures>
	ERR	F

9AE,<File already

9 exists>
	ERR	USE

9@,<Unexpected syst

9`em error>
	ERR	N

:SP,<No such pid>

: 
	ERR	BOL,<Beginn

:@ing of list reach

:`ed>
	ERR	EOL,<En

;d of list reached

; >
	ERR	RQF,<Rece

;@ivers quota full>

;`
	ERR	SQF,<Sende

<rs quota full>

< ERR	NRE,<No remem

<@bered entry>
	ER

<`R	TBF,<Table is f

=ull>
	ERR	EIT,<T

= able entry alread

=@y exists>
	ERR	I

=`TE,<Invalid table

> entry>
	ERR	QEF

> ,<Quota exceeded

>@or disk full>
	E

>`RR	ARG,<Invalid a

?rgument specified

? >
	ERR	IFN,<Inva

?@lid function spec

?`ified>
	ERR	IJN,

@<Invalid job numb

@ er specified>
	E

@@RR	RAD,<Invalid r

@`adix specified>

A	ERR	NUM,<Invalid

A  numeric argument

A@>
	ERR	IDT,<Inva

A`lid date field sp

Becified>
	ERR	IT

B F,<Invalid time f

B@ield specified>

B`	ERR	DOR,<Date/ti

Cme out of range>

C 
	ERR	DTM,<Value

C@missing in date/t

C`ime>
	ERR	MDD,<M

Dissing day in dat

D e/time>
	ERR	DFZ

D@,<Field zero in d

D`ate/time>
	ERR	M

EDS,<Mnemonic date

E /time switch not

E@implemented>
	ER

E`R	DFL,<Field too

Flarge in date/tim

F e>
	ERR	ILR,<Ill

F@egal year format

F`in date/time>
	E

GRR	NND,<Negative

G number in date/ti

G@me>
	ERR	NPF,<No

G`t known whether p

Hast or future in

H date/time>
	ERR

H@RDP,<Relative dat

H`e parse required>

I
	ERR	NSW,<Switc

I h does not begin

I@with slash>
	ERR

I`	NOM,<Unrecognize

Jd switch or keywo

J rd>
	ERR	NUL,<Nu

J@ll switch or keyw

J`ord given>
	ERR

KINW,<Invalid guid

K e word>
	ERR	NC,

K@<Not confirmed>

K`	ERR	ICN,<Invalid

L character in num

L ber>
	ERR	NQS,<I

L@nvalid quoted str

L`ing - does not be

Mgin with quote>

M 	ERR	AMB,<Ambiguo

M@us switch or keyw

M`ord>
	ERR	NMT,<D

Noes not match tok

N en>
	ERR	CMA,<Co

N@mma not given>

N`ERR	NNC,<Node nam

Oe may not exceed

O 6 characters>
	E

O@RR	INT,<Node term

O`inator "::" must

Pbe specified>
	E

P RR	NSN,<Unknown n

P@ode name>
	ERR	I

P`PS,<Invalid path

Qspecification>

Q ERR	IUS,<Invalid

Q@user specificatio

Q`n>
	ERR	DGS,<Dev

Rice name may not

R exceed 6 characte

R@rs>
	ERR	DNE,<Un

R`known device>
	E

SRR	DIO,<Device ca

S n not do input or

S@ output>
	ERR	BD

S`F,<Invalid date/t

Time format>
	ERR

T 	ABS,<Field too l

T@ong for internal

T`buffer>
	ERR	TMT

U,<Command too lon

U g for internal bu

U@ffer>
	ERR	BDS,<

U`Invalid default s

Vtring>
	ERR	BTF,

V <Invalid table fo

V@rmat>
	ERR	TME,<

V`Date/time must be

W in the future>

W 	ERR	TMN,<No time

W@r entry has expir

W`ed>
	ERR	TMA,<Ti

Xmer entry already

X  exists>
	ERR	DV

X@T,<Device termina

X`tor ":" must be s

Ypecified>
	ERR	N

Y CI,<Argument bloc

Y@k may not be in t

Y`he ACs>
	ERR	TLU

Z,<Terminal locati

Z on is unknown>

Z@ERR	FIO,<File is

Z`offline>
	ERR	FB

[M,<File being mod

[ ified>
	ERR	WLK,

[@<Write-locked dev

[`ice>
	ERR	CSD,<C

\annot supersede a

\  directory>
	ERR

\@	CDD,<Cannot dele

\`te a non-empty di

]rectory>
	ERR	SN

] F,<Sub-file direc

]@tory not found>

]`	ERR	ESL,<Search

^list is empty>

^ ERR	LVL,<SFD leve

^@l nested deeper t

^`han the maximum a

_llowed>
	ERR	CCW

_ ,<Cannot create/w

_@rite on any struc

_`ture in search li

`st>
	ERR	FCU,<Ca

` nnot update file>

`@
	ERR	ENQ,<File

``has outstanding E

anqueue lockes set

a >
	ERR	SWS,<Soft

a@ware write-lock o

a`n structure>
	ER

bR	DER,<Hardware d

b evice error>
	ER

b@R	DTE,<Hard data

b`error>
	ERR	BKT,

c<Block too large>

c 
	ERR	IPP,<Non-e

c@xistant UFD>
	ER

c`R	TRN,<RIB or tra

dnsmission error>

d 
	ERR	ILC,<Illega

d@l character in da

d`te/time>
	ERR	NF

eT,<Date/time must

e  be in the future

e@>
	ERR	NPS,<Date

e`/time must be in

fthe past>
	ERR	U

f DM,<Unrecognized

f@month in date/tim

f`e>
	ERR	UDN,<Unr

gecognized name in

g  date/time>
	ERR

g@	IFA,<Illegal fil

g`e attribute>
	ER

hR	FAI,<File attri

h bute inconsistanc

h@y>
	ERR	CEI,<Can

h`'t enable/disable

i interrupt system

i >
	ERR	ENF,<Link

i@ed list entry not

i` found>
	ERR	NSL

j,<No such linked

j list>
	ERR	NFP,<

j@No free pages>

j`ERR	NPI,<No free

kpages for IPCF re

k ception>
	ERR	IF

k@B,<Indirect file

k`too big for inter

lnal buffer>	
	ER

l R	NDN,<Null devic

l@e name given>

l`	ERR	PWA,<PID wen

mt away>
	ERR	CGP

m ,<Can't get a PID

m@>
	ERR	IND,<Inva

m`lid node name>

nERR	IAC,<Invalid

n access string>

n@ERR	IDV,<Invalid

n`device name>
	ER

oR	INA,<Invalid fi

o le name>
	ERR	IE

o@X,<Invalid file e

o`xtension>
	ERR	I

pGN,<Invalid gener

p ation number>
	E

p@RR	IDR,<Invalid d

p`irectory name or

qPPN>
	ERR	NHA,<N

q o help available>
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` 5[;
	IFIDN <50BC><>,<EXP <A>5P>
	IFDIF <BC><5p>,<
	 IFE <A+1>6,<<POINT 7,C>>
60	 IFN <A+1>,<
	6P   IFIDN <C><>,<6pEXP <A,B>>
	  7 IFDIF <C><>,<EX70P <A,B,C>>
	>>A,B,C>>
	>KbN@ 	`Kc  	.8JuIRP A,<
	.X	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 rP
	IFNB <>rp,<
	PRINTX  (Frosm GLXVER)
	> ;END IFNB 
	M&`Mt q
	PRINTX q0GLXVER	GLXFIL EdiqPt(114) by RCB on qp29-Aug-85
	PRINTrX	    	GLXFIL	Actual Edit(A)
	M&dYP &M2  	u8O+<<<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 u-
	IFNB <>u0,<
	PRINTX  (FrouPm GLXVER)
	> ;END IFNB 
	MVpMt sP%
	PRINTX spGLXVER	GLXFUN Editt(1) by TL on 23-t0Mar-85
	PRINTX	 tP   	GLXFUN	Actual Edit(A)
	MVtYP M^luQ O2|  	/KIRP A,<
	/8	IF2,<IFDEF A,<.	/XIFN A,EXTERN,<IN	/xTERN A>>
	     	0IFNDEF A,<EXTERN	08 A>
	Q SUPPRESPA>>FlYSUPPRO3DYPF)O3EKrPf)O3EZ7PO3FLQ St\Yp Stkp SuZp SulQ Su}:p Sv
1p Sv

Sp Sv>@p SNn 
Q	..OP(A,B,IDIV).OP(A,BSNp @S7-N 
Q..OP(A,B,IMUL).OP(A,BS:  X
	IFNB <8B>,<..STR0 (.INCRX0,,<B>,A)>
	IFxB  <B>,<AOS A>  <B>,<AOS A>S:HKW |Pi
	IFNB <>|p,<
	PRINTX  (Fro}m GLXVER)
	> ;END IFNB 
	W
$YS:HMt {a
	PRINTX {0GLXVER	GLXINI Edi{Pt(23) by  on 27-J{pun-84
	PRINTX	  |  	GLXINI	Actual Edit(A)
	; KWS:LYP 	S;k 	wxO?<<<A>B<POS(<B>)>>&<B>>S; KW op
	IFNB <>p,<
	PRINTX  (Frop0m GLXVER)
	> ;END IFNB 
	S; Mt n0{
	PRINTX nPGLXVER	GLXINT Edinpt(110) by RCB on o7-Oct-85
	PRINTXo0	    	GLXINT	Actual Edit(A)
	S;!kP S;!k<P S;$YP $S? 
3S
	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 k]
	IFNB <>k0,<
	PRINTX  (FrokPm GLXVER)
	> ;END IFNB 
	SBMt iPU
	PRINTX ipGLXVER	GLXIPC Edijt(74) by RCB on 2j02-Oct-85
	PRINTXjP	    	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.	8XCREF
	..TEXT<A80>		
	  EXP	0		
	LSTON.
	0		
Uv98Q |U$@ c@gf

	  LST

x OF.

	X JNO,.JI

x@JNO,<-1,,GJBJNO>

x`
	X TNO,.JITNO,<

y-1,,GJBTTY>	
	X

y USR,.JIUNO,.GTPPN

y@		
	X CDN,.JIDNO

y`,<-1,,GJBPTH>

zX PRG,.JIPNM,.GTP

z RG		
	X CJN,.JIC

z@PJ,<-1,,GJBCJB>

z`
	X BAT,.JIBCH,.G

{TOBI		
	X JLT,.J

{ ISTM,.GTJLT		
	X

{@ LOC,<-1,,GJBLOC>

{`,<-1,,GJBLOC>

|X RTM,.JIRT,<-1,,

| GJBRTM>	
	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 mPq
	IFNB <>mp,<
	PRINTX  (Fronm GLXVER)
	> ;END IFNB 
	W
 Mt li
	PRINTX l0GLXVER	GLXKBD EdilPt(101) by NT on 1lp6-Oct-85
	PRINTXm	    	GLXKBD	Actual Edit(A)
	W
$YP  WNH1 0r
	IFB <CP>,<
	XWD	[ASCIZ\pB\],A>
	IFNB < C>,<
	XWD	[EXP  0CM%FW!C
		ASCIZ\B\],A>
SCIZY"luQ xY&i1 	O`N~

	  LST	POF. XCREF

	CDO	P 	OTSINI			
	CDO		P@    			
	CDO	.ZP	P`AGA
	CDO	.ZPAGN
	CDO	.ZCHNK
	CD	Q O	.SAVE1
	CDO	.S	Q@AVE2
	CDO	.SAVE3	Q`
	CDO	.SAVE4
	C	RDO	.SAVET
	CDO	.	R SV13
	CDO	.SV14
	CDO	.SV15
	CDO	R`	.SV16
	NT	.RETT	S
	NT	.RETF
	CDO	S 	.RETE
	CDO	.AOS	S@		
	CDO	.SOS		
	S`	CDO	.ZERO		
	NT	T	.POPJ		
	CDO	.S	T TOP		
	CDO	.SAVE	T@8		
	CDO	.STKST		T`	
	CDO	.TRSET		
	NT	.POPJ1		
	C	U DO	.UD2SC		
	CDO	U@	.SC2UD		
	CDO	.	U`CPUTY		
	CDO
	C	VDO
	CDO

	CDO		V 		
	CDO	C%RPRM
	V@	CDO	C%INTR
	CDO	V`	C%SEND
	CDO	C%R	WECV
	CDO	C%BRCV
	CDO	C%REL
	CDO	W@	C%CPID
	CDO	C%K	W`PID
	CDO	C%SPID
	CDO	C%MAXP
	CD	X O	C%PIDJ
	CDO	C%	X@PIDH
	CDO	C%SIDX	X`
	CDO
	CDO
	CD	YO

	CDO	      		Y 		
	CDO	F%IOPN
	Y@	CDO	F%AOPN
	CDO	Y`	F%OOPN
	CDO	F%I	ZBYT
	CDO	F%OBYT
	CDO	F%IBUF
	CD	Z@O	F%OBUF
	CDO	F%	Z`REL
	CDO	F%DREL
	CDO	F%RREL
	CD	[ O	F%REW
	CDO	F%P	[@OS
	CDO	F%CHKP
	[`	CDO	F%INFO
	CDO	\	F%FD
	CDO	F%REN	\ 
	CDO	F%DEL
	CD	\@O	F%FCHN
	CDO
		\`CDO
	CDO
	CDO
	]	CDO
	CDO
	CDO
	CDO
	CDO	FUNCT	]@.			

	CDO	    	]`  			
	CDO	M%ACQ	^P
	CDO	M%RELP
		^ CDO	M%IPSN
	CDO		^@M%NXPG
	CDO	M%IP	^`RC
	CDO	M%IPRM
	_	CDO	M%AQNP
	CDO	_ 	M%RLNP
	CDO	M%C	_@LNC
	CDO	M%FPGS
	CDO	M%GMEM
	CD	`O	M%RMEM
	CDO
		` CDO
	CDO
	CDO
	`@	CDO
	CDO
	CDO		``M%GPAG
	CDO	M%RP	aAG
	CDO
	CDO
		a CDO
	CDO
	CDO
	a@	CDO
	CDO
	CDO

	CDO	      				b
	CDO	T%TEXT
	C	b DO	T%TTY
	CDO
		b@CDO
	CDO
	CDO
	b`	CDO
	CDO
	CDO
	CDO
	CDO
	CDO	c 

	CDO	      			c@	
	CDO	L%CLST
		c`CDO	L%DLST
	CDO		dL%CENT
	CDO	L%CB	d FR
	CDO	L%DENT
	d@	CDO	L%NEXT
	CDO	d`	L%FIRS
	CDO	L%L	eAST
	CDO	L%PREV
	CDO	L%PREM
	CD	e@O	L%CURR
	CDO	L%	e`RENT
	CDO	L%SIZE	f
	CDO	L%APOS
	C	f DO
	CDO
	CDO
		f@CDO
	CDO
	CDO
	f`	CDO
	CDO

	CD	gO			
	CDO	I%NOW
	CDO	I%EXIT
	CD	g@O	I%ION
	CDO	I%I	g`OFF
	CDO	I%SLP
	h	CDO	I%INT1
	CDO	h 	I%INT2
	CDO	I%I	h@NT3
	CDO	I%TIMR
	CDO
	CDO
	CDO	i	I%SOPR
	CDO	I%W	i TO
	CDO
	CDO	I%	i@HOST
	CDO	I%JINF	i`
	CDO
	CDO

		jCDO	S%U2DT		
	CD	j O	S%DT2U
	CDO	S%	j@DATI
	CDO	S%SIXB	j`
	CDO	S%CMND
	C	kDO	S%TBLK
	CDO	S	k %SCMP
	CDO	S%ERR	k@
	CDO	S%INTR
	C	k`DO	S%EXIT
	CDO	S	l%TBAD
	CDO	S%TBD	l L
	CDO	S%NUMI
	l@

	CDO	K%RCOC				l`
	CDO	K%WCOC
	C	mDO	K%SUET
	CDO	K	m %STYP
	CDO	K%TXT	m@I
	CDO	K%SOUT
		m`CDO	K%BOUT
	CDO		nK%BIN
	CDO	K%BAC	n K
	CDO	K%TPOS
		n@CDO	K%BUFF
	CDO		n`K%FLSH
	CDO	K%OP	oEN
	CDO	K%ECHO
	o 	CDO
	CDO
	CDO
	CDO
	CDO
	CDO	o`
	CDO
	CDO
	  LSTON.
  
	  Y:XKW %
	IFNB <>0,<
	PRINTX  (FroPm GLXVER)
	> ;END IFNB 
	Y:XMt P
	PRINTX pGLXVER	GLXLNK Edit(11) by AWC on 209-Jan-82
	PRINTXP	    	GLXLNK	Actual Edit(A)
	Y:\YP Y>

@ 
{XWc
	IFNB <
{xC>,<..STR0 (..LDB
|,A,C,B)>
	IFB
|8  <C>,<MOVE A,B>C>,<MOVE A,Y>%I;P YO%GP YO%yG 	28K
	IFNDEF 	2XLSTIN.,LSTIN.==0		2x	
IFE LSTIN.,<
	3	IFIDN <XCREF><A	38>,<.XCREF>	
		  	3X XLIST>		
	LSTIN.==LSTIN.+1STINYO%{G 	4K'
	IFG LST	48IN.,LSTIN.==LSTIN	4X.-1	
	IFLE LSTIN	4x.,<.CREF		
		      LIST>
		   [KW ep3
	IFNB <>f,<
	PRINTX  (Frof0m GLXVER)
	> ;END IFNB 
	[Mt d0+
	PRINTX dPGLXVER	GLXMAC Edidpt(502) by DPM on e4-Dec-85
	PRINTXe0	    	GLXMAC	Actual Edit(A)
	[YP ![3@ 	w8O;<<<1_<A>>-1>B<B>>_<A>>[8@ 	v8O31B<<A>-1>-1B<B><<A>-1>[@ 	K Lf
	IFB <B	K@>,<MAXSIZ==0
		I	K`RP A,<IFG <A-MA	LXSIZ>,<MAXSIZ==A	L >>>
	IFNB <B>,<	L@B==0
		IRP A,<	L`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 w0?
	IFNB <>wP,<
	PRINTX  (Frowpm GLXVER)
	> ;END IFNB 
	[hMt up7
	PRINTX vGLXVER	GLXMEM Ediv0t(31) by RCB on 5vP-Feb-85
	PRINTX	vp    	GLXMEM	Actual Edit(A)
	[lYP

[n:=P [tuQ @[th:Q [u[yQ [ukvQ  [v=3P'[v|WQ [&p 	M Lz
	IFB <B	M@>,<MINSIZ==377777	M`,,777777
		IRP 	NA,<IFG <MINSIZ-A	N >,<MINSIZ==A>>>
	IFNB <B>,<B==	N`377777,,777777
		O	IRP A,<IFG <B-	O A>,<B==A>>>
A>,<B==A>>>
[>!` 	vxO7<A-<A/B>*B><A-<A/B[?7 	x8P%
   ..MX1	xX==B			
IFDEF .P	xxSECT,<
   .IFN .	y.MX1,ABSOLUTE,<
	y8	MOVE A,[B]>
 	yX  .IF ..MX1,ABSOL	yxUTE,<
	..MX2==0		z	
	IFE <..MX1>B5	z83,<
	zX..MX2==1
	  MOVEI A,..MX	zx1>	
	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^= 
@XT
	A==C	
@x	
	IF1,<IFDEF %
AA,<PRINTX ?A ALR
A8EADY DEFINED>>
	
AXDEFINE %A (OP,AC
Ax,Y,MSK)<	
	IFDIF
B <Y><>,<
	OP (<A
B8C>,B+'Y,MSK)>
	
BXIFIDN <Y><>,<
	O
BxP (<AC>,B'Y,MSK)>>AC>,B'Y,MSK)[PuySP'[PvNP'[Vg 
XQ..OP(A,B,MUL)..OP(A,B[`v
2P ] 	,xJiIF2,<IFDEF	- A,<A==A>> IFNDEF A,<A==B>]F@ lTEMFDB##_
QkRp _
Ql}p _
Qmp _
Qm7p _
T=

	X	.OTReader
	X	.OU,Network-Cont
	X	.OTLPTc,Printer
	X	.OTBtch-Stream
H	X	.OTCDP,Card-Pu

xnch
	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
	X	.OTDBM,<DBMS S
	X	.OTFALtream>
	X	.OTEVT,<Event>
	X	.OTFCH,<Microf
	X	.OTXER,<Xerox>
OTXER,_SKW zU
	IFNB <>z0,<
	PRINTX  (FrozPm GLXVER)
	> ;END IFNB 
	M&`Mt_SMt xPM
	PRINTX xpGLXVER	GLXOTS Ediyt(11) by LWS on 2y05-Oct-84
	PRINTXyP	    	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)>

'`.IFNBC<D>,<..XX=
(@.IFNBC<E>,<..XX=

)8	EXP ..XX		

)XCIFNB <C>,<EXP 
*EIFB0<C>,<

*8SIFNB,<POINT 7,[A
*xFI <D>,<0>

+ IFNBS<E>,<POINT
+x IFB <E>,<0>



,>IFB><I
,8IIFNBX<I>

,X IFB <J>,<0>
,xJIFNB <J>,<EXP 

-8,IFB <H>
-X>IFNBP<H>

-xIFB <G>,<0>
.IFNB <G>,<EXP G>

G>,<EXP Ga@KW P9
	IFNB <>p,<
	PRINTX  (From GLXVER)
	> ;END IFNB 
	a@Mt 1
	PRINTX 0GLXVER	GLXPFH EdiPt(16) by TARL on p17-Apr-81
	PRINTX	    	GLXPFH	Actual Edit(A)
	aDYP a 	p OLSH A,^D9LSH A,^D9a+= 5a;&  [`]f
	 IFB  <\B>,<..STR0(..PNT\ ,,<FWMASK>,A)>
\@	 IFNB <B>,<..ST\`R0(..PNT,,<B>,A)>.PNT,,<B>,Aa>Mm 	tXO'<POINT WID	tx(B),A,POS(B)>B),A,POS(B)>a?H6 +a? 	rO<^L<<A>&<-<A>>>><<A>&<aJ}Ks 	'8LL

	SALL		5`			
	LSTOF. XCRE	6F			

	%%.GLX==	6 %%.GLX			
	GLXVR	6@S==GLXVRS			

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

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

	T	9OPS20	<			
		SEA	9 RCH	MONSYM		
;			9@%%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
		>			
			< DEFINE	CDO (X),<G	<@LOB X> 
		DEFINE	<`	NT(X),<CDO X>	
	=		LIBVEC			
	>			= 		

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

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

		D`>>				

	IFNB <	EB>,<IFIDN <B><I	E NI>,< 
		DEFINE		E@$DATA (NAM,SIZ<1>	E`),< 
			NAM:	BLO	FCK	SIZ
		>			
		F >>				

	LSTON.	F@				

	GLOB	<.P	F`OPJ, .RETT, .RETF	G>	
	OPDEF	$RET	[	G POPJ	P,]	
	OPDEF	G@	$RETT	[PJRST	.RE	G`TT]	
	OPDEF	$RET	HF	[PJRST	.RETF]	
	OPDEF	$RETIT	[J	H@UMPT	.POPJ]	
	OP	H`DEF	$RETIF	[JUMPF	I	.POPJ]	
	.NODDT	I 	$RET,$RETT,$RETF	I@,$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 cP!
	IFNB <>cp,<
	PRINTX  (Frodm GLXVER)
	> ;END IFNB 
	gpMt b
	PRINTX b0GLXVER	GLXSCN EdibPt(127) by JAD on bp22-Jan-86
	PRINTcX	    	GLXSCN	Actual Edit(A)
	gtYP +g"@ )ZY
	IFN <<.)8.TA>&B>,<PRINTX)X ?Initial field n)xot zero in $SET>
	*8..TVAL==<C>
	*X..TMSK==<B>
	  ..TA==..TA!*x<FLD(..TVAL,..TMS+K)>
	  PURGE ..TVAL,..TMSK
	.TgtXrPWg#=zC##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` 
.SPID	(S

}(P.QSR,.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 
XxUW
	..STKR=
Y=10		
	RADIX 8

Y8	..STKN==0
	IRP 
YXA,<
	  .STKV1 (
YxA)>
	$CALL	.STK
ZST
	 ..STKN,,..S
Z8TKN
	RADIX ..STK
ZXR
	PURGE ..STKN,
Zx..STKR,..STKQ
   TKR,..STKQ
  gR~)  
~xW}
	IFNB <
C>,<..STR0 (..DPB
8,A,C,B)>
	IFB
X  <C>,<MOVEM A,B>>,<MOVEM A,gV 
XP}..AS(A,B,SUB,ADD)(A,Bgg

V 	JLV
	IFNB <	J B>,<TOPS10<A==B	J@>>
	IFNB <C>,<T	J`OPS20<A==C>>
PS20<A==C>>
ght-3P @ghuWP ghuSP ghuxSP @ghv5P ghv
2PhDPOhHP	hLPUhPPiPi$tkQP'i$tlUQNxi0,YQi0,1Q i0,^Q i0-kvQ @i?4( Xx

  IFNBC	<A>,<.TQCHA==^C0D<B>B17+ZZ>
  ICPFNB 	<D>,<DEFINECp ..TQMA<D>>
  DIFNB	<C>,<.TQC=D0=^D<B>B17+ZZ>
	 ZZ==ZZ+1ZZ>
	iG, 8p\
	LSTOF.
	TQ(T,2,ASCIZ)		90	
	TQ(O,2,OCTAL)9P			
	TQ(D,2,DECI9pMAL)			
	TQ(F,2,:FILE)			
	TQ(7,2:0,CSEVEN)			
	TQ(:P6,2,CSIXBIT)			
:p	TQ(W,2,SIXBIT)		;	
	TQ(5,2,SVNBIT;0)			
	TQ(P,2,USE;PR)			
	TQ(U,2,DI;pRECTORY)			
	TQ(<H,2,DAYTIME)			
<0	TQ(C,2,TIME)			
	TQ(E,2,ERROR)		<p	
	TQ(I,1,INDIRE=CT)		
	TQ(M,0,CR=0,..TXC0(\".CHCRT)=P)	
	TQ(J,0,LF,..=pTXC0(\".CHLFD))	
	TQ(L,0,FF,..TXC>00(\".CHFFD))	
	T>PQ(K,0,VT,..TXC0(\>p".CHVTB))	
	TQ(A?,0,NOCRLF,..TXA(.?0TQCHA))	
	TQ(0,0?P,NULL,..TXA(.TQCH?p0))	
	TQ(3,0,STR@ING,..TXER(IQU))	@0
	TQ(V,2,VERSION@P)			
	TQ(2,0,CAR@pET,..TXER(IQU))	
	TQ(Q,2,POINTER)A0			
	TQ(B,2,ROB)AP			
	TQ(1,2,OBJEApCT)			
	TQ(N,2,NBODE)			
	TQ(R,2,B0JIB)			
	LSTON.
)			
	LSTON. c h~
	LSTOF.

}@
 X(33,TTY33,33,.

}`RETT,,,)			
 X(3

~ 5,TTY35,35,.RETT,

~,,)			
TOPS20<

~H X(37,TTY37,37,.R

~hETT,,,)			
 X(EX

ECUPORT,EXEC,EXE,

(.RETT,,,)			
>

HTOPS10<
 X(LA120

h,LA120,L12,.RETT,
>
X(LA336,L36,.RETT,
X(VK100,10,SETTLC,
X(T05,VT05,V05,.RE
X(VT100,00,SETTLC,

HTOPS10<	X(VT101,V
X(VT102,VT102,102,
TOPS10<	X(VT103,SET
X(VT125,VT125<.CHE
TOPS10<180,VT180,18
TOPS10<	XVT185,185,
","K">,<.CHESC,"=
(">,<.CHESC,.CHRAB
H>)> 
 X(VT220,VT
h220,220,SETTLC,<..
X(V40,VT240,240,SE

TTLC,<.CHESC,"[",

("K">,<.CHESC,"=">

H,<.CHESC,.CHRAB>)

h 
X(VT50,VT50,VHESC
X(VT52,VT52,<.CHES
TOPS10<	X(VT1,SETTL
	LSTON.

> 
	LSiK,PA iK4@ 
_8V	
	..TRR==
_X10		
	RADIX 8
	
_x..NV==1			
	IRP 
`A,<
	  .TRV1 (
`8A)>		
	$CALL	.TR
`XSET		
	 ..NV-1,,
`x..NV-1
	RADIX ..
aTRR		
	PURGE ..TRR,..NVURGE ..Tib 
(XRE
		..TX(C,A,<B>)..TX(Cib 
*RQ
		..TX(CA,A,<B>).TX(CibP 
)RI
		..TX(CE,A,<B>).TX(Cib` 
)XRM
		..TX(CN,A,<B>).TX(Cibp 
"XR
		..TX(N,A,<B>)..TX(Nibt 
$R!
		..TX(NA,A,<B>).TX(NibtP 
#R
		..TX(NE,A,<B>).TX(Nibu` 
#XR
		..TX(NN,A,<B>).TX(Nibx 
$XR%
		..TX(O,A,<B>)..TX(Oib| 
&R1
		..TX(OA,A,<B>).TX(Oib|P 
%R)
		..TX(OE,A,<B>).TX(Oib}` 
%XR-
		..TX(ON,A,<B>).TX(Oic KW P
	IFNB <>p,<
	PRINTX  (From GLXVER)
	> ;END IFNB 
	ic Mt 	
	PRINTX 0GLXVER	GLXTXT EdiPt(54) by CTK on 2p5-Sep-83
	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 
&XR5
		..TX(Z,A,<B>)..TX(ZicT 
(RA
		..TX(ZA,A,<B>).TX(ZicTP 
'R9
		..TX(ZE,A,<B>).TX(ZicU` 
'XR=
		..TX(ZN,A,<B>).TX(ZkR`KW h0G
	IFNB <>hP,<
	PRINTX  (Frohpm GLXVER)
	> ;END IFNB 
	kR`Mt fp?
	PRINTX gGLXVER	GLXUTL Edig0t(2) by DPM on 4-gPDec-85
	PRINTX	 gp   	GLXUTL	Actual Edit(A)
	kRdYPAmKc@8K+BYTEP(3)A	58WHO (9)AVER(6)AMIN(18)AEDTo&Y	qXOP o<u]P o<ukrP o<uxUP o<uxrP o<vNP o<vN8P p xxA==<ZZ==ZZ+1>
.TTC==.q"eJ  P q*-` +

q+= +
q6~i4 C q? 
4S!
	TXC A,<B>
	TXC A,q@ 	-XJoIFB <C>,<	-xA==:B> IFNB <C>,<A=:B>B <CqBp +qN5P +up XG
	IFNB <8B>,<..STR1 (..TQZX,,<B>,A,..STR4)x>
	IFB  <B>,<SETZM A><B>,<SEuhP 
	;z pqY
	.XCREF	.$RESET, .$BUILD
	.$RESET
	$TYPEP (.CMACT)
	$HELPp (<>)
	$NEXT (A)
IFIDN <B> <>,0< IRP C,<C>
		P	.$BUILD>
IFDIF p<B> <>,<
	$HELP (B)
	IRP C,<C>
	.$BUILD><	0

* bV
.WTOX.(.OM

*@ACK,<A>,<B>,<C

*`>,<D>,<$WTFLG(WT.SJI),E>)LG(WT	J7

.XCREF	.%R
			DEF.$RTN <A>
			.%RTN==1A>
		D[
	IFDIF<<,<.XCREF	.%
DEFNE[.$HLPM<POINT
			.%HLPM==-1>
	fI9XCREF	.%L
			DEF.$LST <A+1>
			.%LST==11>
=Z YY
	  IFG 8A-INT.LV,<PRINTX X?Level A interruxpts not supported>
	k.BGINT.(\A)B  .BGINT.(\A	X5 
			DINE .$BREA <A>
			.%BREA==1>	- xYw
	  IFDEF ..BSIZ,<PRINTX ?8Missing $EOB afteXr a $BUILD>
	  .x.BSIZ==0			
	  ..BLOC==.			
	  R8EPEAT A,<			
		XBLD0.(\..BSIZ,0)	x
		..BSIZ==..BSIZ+1>	
	==..BSI		}[0 
	.XCREF	T, .$BUILD
	.$RESET
	$TYPEMCMA)
	$NEXT)
	IRP B,<B>
	.$BUILD,<	I@ 
	.XCREF	T, .$BUILD
	.$RESET
	$TYPEMCFM)
	IRP<A>
	.$BUILD,<A>
	.$BUILD	$^ ppA
	.XCREF	.$RESET, .$BUILD
	.$RESET
	$TYPEP (.CMTXT)
	$HELPp (<>)
	$NEXT (A)
IFIDN <B> <>,0< IRP C,<C>
		P	.$BUILD>
IFDIF p<B> <>,<
	$HELP (B)
	IRP C,<C>
	.$BUILD><	I  PpO
	.XCREF	p.$RESET, .$BUILD
	.$RESET
	$TYPE	0 (.CMTAD)
	$PDAT	PA (CM%IDA)
	$NEX	pT (A)
	IRP B,<B>
	.$BUILD,<	,,U Yc
	  $RET	8			;WILL INVOKE RIGHT ROUTINE
		,h: 
	IFDIF<<,<.XCREF	.%
DEFNE[.$DEFM<POINT
7H			.%DEFM==1>
	IFIDN <A> <>,<
IF1 <
PRINTXg%Nult in $DEFAULT macro>>DE	.` 0p+
	.XCREF	P.$RESET, .$BUILD
	.$RESET
	$TYPE (.CMDEV)
	$NEXT0 (A)
	IRP B,<B>
	.$BUILD,<	Lz: 
	.XCREF	T, .$BUILD
	.$RESET
	$TYPEMNUX)
	$PDATB)
	$HELP (<
	$NEXT (A)
f0IFIDN,<C> <>,< I
			.$LD>
IFDIF><C
	$HELP (
	IRP D,<D>
	.$BUILD><D>
	.XCREF	T, .$BUILD
	.$RESET
	$TYPEMDIR)
	$NEXT)
	IRP B,<B>
	.$BUILD,<	|  #xZ;
	  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.
		
	kLST	+yE.%E
			DINE .$ERTN <A>
			.%ERTN==1>	, 
			DINE>.$ERTN <1B0
			.%ERTN==1>
			.%ERTN	-.
			DINE2.$ERTNZ<[MO
				>     $RET
			.%ERTN==1>
			.%ERTN==1	IF2,<IFN <	+`A>-.,<PRINTX ? I	,LLEGAL $FALL A>>EGAL $FALL A>>	H6 -pZw
	$CALL	..STOP
	LSTOF.
	J.0UMP	[XWD 0,[ITEXT.P (<A>)]
		 EXP .p%%.MOD]
	LSTON. .MOD]
	LSTON.	L[ 
	.XCREF	T, .$BUILD
	.$RESET
	$TYPEMFLD)
	$NEXT)
	$HELP (<>
IFIDNR<B>,<>,>
			.$BUILD>
IFDIF> <>,<
	$HELP)
	IRP C,<C>
	.$BUILD><	MI  
	.XCREF	T, .$BUILD
	.$RESET
	$TYPEMFIL)
	$HELP)
	$NEXT (A
IFIDNR<B>,<>,>
			.$BUILD>
IFDIF> <>,<
	$HELP)
	IRP C,<C>
	.$BUILD><	dy 
			DINE .$FLGS <A>
			.%FLGS==1>	ex: Pp
	.XCREF	p.$RESET, .$BUILD
	.$RESET
	$TYPE0 (.CMFLT)
	$HELPP (<>)
	$NEXT (Ap)
IFIDN <B> <>,< IRP C,<C>
		0	.$BUILD>
IFDIF P<B> <>,<
	$HELPp (B)
	IRP C,<C>
	.$BUILD><	$ p}
	.XCREF	0.$RESET, .$BUILD
	.$RESET
	$TYPEp (.CMTAD)
	$PDATA (<CM%IDA!CM%ITM0!CM%FUT>)
	$NEXTP (A)
	IRP B,<B>
	.$BUILD,<	$ -Zk
	  INTER-0N A
	  $DATA(A,<B>)
	ATA(AxiZd1gtY	"
	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 p	
	.XCREF	0.$RESET, .$BUILD
	.$RESET
	$NEXTp (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

-bj.WTOX.(.OM

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

, bd.WTOX.(.OM

,@LOG,<A>,<B>,<C>,,<D>)B>,<C	:/
			DEF.$NXT <A>
			.%NXT==1A>
		:|KV pqC
	.XCREF	.$RESET, .$BUILD
	.$RESET
	$TYPEP (.CMNOD)
	$HELPp (<>)
	$NEXT (A)
IFIDN <B> <>,0< IRP C,<C>
		P	.$BUILD>
IFDIF p<B> <>,<
	$HELP (B)
;	$FLAGS (0CM%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)
c0IFIDN,<C> <>,< I
			.$LD>
IFDIF><C
	$HELP (
	IRP D,<D>
	.$BUILD><D>
	.XCREF	T, .$BUILD
	.$RESET
	$TYPEMOFI)
	$NEXT)
	$HELP (<>
IFIDNR<B>,<>,>
			.$BUILD>
IFDIF> <>,<
	$HELP)
	IRP C,<C>
	.$BUILD><	B$ 
.XCREF	.%D
			DINE .$DATA <A>
			.%DATA==1>	B$YP 
			DINE<.$DEFM <POI
			.%DEFM==1>
			.%	CYTR	.%D
			DINE .$DEFR <A>
			.%DEFR==1>	G-} q
	.XCREF	0.$RESET, .$BUILD
	.$RESET
	$TYPEp (.CMQST)
	$HELP (<>)
	$NEXT (A0)
IFIDN <B> <>,P< IRP C,<C>
		p	.$BUILD>
IFDIF <B> <>,<
	$HELP0 (B)
	IRP C,<C>
	.$BUILD><	J.I  +`Zb
	  $CALL,	.RETE			
		LSTO, F.
	  JUMP	ERA$
		LSTON.ERA$	Ni  
iXWI
	.NVR==0
ix			
	.ACM==0			
j

	IRP A,<		
	
j8	..TSAC(.ACB,A)	
jX	
		IFN .ACB,<.A
jxCM==.ACM!1B<A>>	
k
		IFE .ACB,<			
k8
		IFE .NVR,<			
kX
		    PUSHJ P,[
kx			
			>
		  ..
lPUSH(A,\<.NVR+1>
l8)>>	

    IFE .
lXNVR,<	
	IFN .ACM
lx,<	
	    IFE <.A
mCM-17B<T4>>,<.ACM
m8==0
				$CALL .S
mXAVET>
	    IFE <
mx.ACM-377B<.A16>>,
n<.ACM==0
				$CA
n8LL .SAVE8>
	    
nXIFE <.ACM-17B<P4>
nx>,<.ACM==0
				$
oCALL .SAVE4>
	  
o8  IFE <.ACM-7B<P3
oX>>,<.ACM==0
				
ox$CALL .SAVE3>
	 
p   IFE <.ACM-3B<P
p82>>,<.ACM==0
			
pX	$CALL .SAVE2>
	
px    IFE <.ACM-1B<
qP1>>,<.ACM==0
		
q8		$CALL .SAVE1>

qX	    IFE <.ACM-1B
qx<.A13>>,<.ACM==0
r
				$CALL .SV13>
r8
	    IFE <.ACM-
rX1B<.A14>>,<.ACM==
rx0
				$CALL .SV1
s4>
	    IFE <.AC
s8M-1B<.A15>>,<.ACM
sX==0
				$CALL .S
sxV15>
	    IFE <.
tACM-1B<.A16>>,<.A
t8CM==0
				$CALL 
tX.SV16>
	    >>

tx
	IFN .ACM,<	
	
u    IFE .NVR,<			
u8
		PUSHJ P,[		

uX		>

	    .ACB=
ux=0			
	REPEAT ^D
v16,<			
	    IFN
v8 <.ACM&1B<.ACB>>,
vX<	
		..PUSH(\.AC
vxB,\<.NVR+1>)>
		
w.ACB==.ACB+1>>		
w8

	IFN .NVR,<	

wX		PUSHJ	P,@-.NVR(
wxP)	
		 TRNA			

x		AOS	-1-.NVR(P)	
x8
	    REPEAT .NV
xXR,<..POP(\.NVR)>	
xx
		ADJSP	P,-1		
y
		POPJ	P,]>		
		POPJ	P,]>		
	N;CREF	.%S
	IFD	<A><>,<DEFINE
	.%SBCM==1
>
	.%SBCM==1
	N.@ 8Z
	  IFNDEXF ..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	!a,	b
	a==.
	!0XWD b-1,b-1
	D!PEFINE $ETAB <.XCR!pEF	a,	b
		b==.-a>b
		b==	O%| 2[
S..A::!20	$CALL .STOP
		L2PSTOF.
		JUMP [XW2pD 'A',[ITEXT (<3B>)]
			EXP %%.MOD]
		LSTON.	M	O,(v 
	.XCREF	T, .$BUILD
	.$RESET
	$NEXT)
	$TYPE	(.C
	$SBCM	(B
	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>

pm
	.XCREF

0.$RESET, .$BUILD

P
	.$RESET
	$TYPE

p (.CMTAD)
	$PDAT%IDA!CM%ITM
	$NEXT (A)
	IRP B,<B>
	.$BUILD,<B>
	.$	R/3P[%
	$CALL	T3p%TEXT
	LSTOF.	XC4REF
	JUMP	[XWD 240,0
		 EVL (A)
4P		 ITEXT(<B>)]	
	LSTON.B>)]	
0p]
	.XCREF	
P.$RESET, .$BUILD
p
	.$RESET
	$TYPE (.CMTAD)
	$PDAT0A (CM%ITM)
	$NEXPT (A)
	IRP B,<B>
	.$BUILD,<	R}97 Pqi
	.XCREF	p.$RESET, .$BUILD
	.$RESET
	$TYPE0 (.CMTOK)
	$PDATPA (<POINT 7,[ASCIpZ\B\]>)
	$NEXT (A)
	IRP C,<C>
	.$BUILD,<C	S GP\)


  ..TXF`A(.TQA,C,D,E,DpB)	
      IFN .E0.TXEF,<			
	..TEERR<$TQ(A,B,C,D,E)>>

C,	S@I9 ^@^
	LSTOF.
	X(UQU,Unknown q_ualifier)
	X(IQU_ ,Invalid qualifie_@r)
	X(IJA,Invali_`d justification a`rgument)
	X(IWA,` Invalid width arg`@ument)
	X(PEA,Pr``emature end of aragument)
	X(JNA,Ja ustification is na@ot allowed)
	X(Aa`NA,Arguments are bnot allowed)
	X(b ADS,Address must b@be specified)
	LSTON.
ied)
	L	SN	.REF	.%T
			DEE .$TYP <A>
			.%TYPE==1>
	W= pq+
	.XCREF	.$RESET, .$BUILD
	.$RESET
	$TYPEP (.CMUQS)
	$HELPp (<>)
	$NEXT (A)
	$PDATA (B)
0IFIDN <C> <>,< IPRP D,<D>
			.$pBUILD>
IFDIF <C> <>,<
	$HELP (0C)
	IRP D,<D>
	.$BUILD><D>
	.XCREF	T, .$BUILD
	.$RESET
	$TYPEMUSR)
	$NEXT)
	IRP B,<B>
	.$BUILD,<	^+@ /0[
IFE %%.O/PTS,<DEFINE $WARN /p(MSG) <
		$TEXT 0(T%TTY,<% ^W6/[%%00.MOD]/ MSG>)>>
I0PFN %%.OTS,<DEFINE0p $WARN (MSG) <
	1	$TEXT (T%TTY,<% 10^W6/IIB+IB.PRG/ ^1PW/[%%.MOD]/ MSG>)>>
	$WARN <A>	_$r

 b
		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.

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

 a,
		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>)]>>
		>
<	_$+

bB
	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

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

'@FFIX']>
	IFE	<AR

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

(IX'>
>
>
	ALLW

( TO				
	EXP	0			
		
	EXP	0				_$k

aB
		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

@an
		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

#`b0
		IFB	<

$A>,<.WFMFL==0

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

$@L==0>>
		IFNB	<

$`A>,<.WFMFL==-1

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

% FL==.$WMFL!<A>>

%@
			IFE <1-2>,<DE

%`FINE .$WMFL,<<WO.

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

 `T
		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

`aX
		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

(`bH.WTOX.(.OM

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

@a
		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

!b
		IFB	<

! A>,<.WFOCD==0

!@	IFN <0-2>,<.$WOC

!`D==0>>
		IFNB	<

"A>,<.WFOCD==-1

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

"@CD==.$WOCD!<A>>

"`
			IFE <0-2>,<DE

#FINE .$WOCD,<<WO.

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

+ b^.WTOX.(.OM

+@WTO,<A>,<B>,<C

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

)@bN
.WTOX.(.OM

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

b4
	DEFINE

`.EAWTO(SUFFIX),<$

&@WT'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

`j
		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 l&0MPZ6 

	.XREF	a,	b,	c,	

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

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

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

	IFN!<.%BREA>,<d=

	PIFG!<.%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>,<
	0EXP	.$DEFR>			
IPFN <.%SBCM>,<
	EXP	.$SBCM>			

Z	b==.-c			

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

	PUR	.%BREA,	.%NXT,
	PURGE	.$BREA,	.$NX
]P
	PURGE	a,	b,	
> 
	LIST,	d
> 
	LIST$YVN7,[ASCIZ\0\]NT7,[A$YY l*0hBP3.- l$0;BP5Iy l0"P0f= l 0+1P$w
	.XCREF
	SALL
	XLIST
	pDEFINE .$TYP <0>
	.%TYPE==0
	DEFE .$FLGS <0>
	P.%FLGS==0
	DEFINDATA <0>
	.%ATA==0
	DEFINEM <>
	.%HLP
	DEFINE0.$D
	.%DEFM=
	DEFINE .$LST
	.%LST==0
IP	DEFINE .$BREA <0
	.%BREA==0
	DEFINE .$NXT <0>
J0	.%NXT==0
	DEFINERTN <0>
	.%RTN==0
	DEFINE <0>
	.%RTN
	DEFINE>.$DE
	.%DEFR==
	DEFINE	.$SBCM
	.%SBCM==0
	.CREF
CM==0l(0^P7' ^0T 1,O)0P $YVP $YYP .-P 5IyP f=P w
Q=
	   ..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 S;
	AJ\: 
Pu
	  ..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:&@ X
	..TSIZ 8(..PST,C)
	.CASXE ..PST,<<
		MOVxEM A,B>,<
		HRRM A,B>,<
		HR8LM A,B>,<
		DPXB A,[POINTR (B,C)]>>INTR (B,:<;Y 
WxUC
   DEFIN
XE ..CNS2 (NEW,OLD
X8)<
	  OLD>			
	..CNS ()>			
	:L;Y 
UXU;
   DEFIN
UxE ..CNS (%%%)<
	
V..CNS2 <%%%>,>

V8
   DEFINE ..CNS2
VX (NEW,OLD)<
	DEF
VxINE ..CNS (%%%)<
W
	  ..CNS2 <%%%>,
W8<OLD'NEW>>>
   OLD'NEW>>>
   :dH@ 
|xWs
	..TSIZ 
}(..PST,C)
	.CAS
}8E ..PST,<<
		MOV
}XE A,B>,<
		HRR
}xZ A,B>,<
		HLR
~Z A,B>,<
		LDB
~8 A,[POINTR (B,C)]>>INTR (B,:}i1 
<xSi
	A==<<<
=-<B>>&<B>>&<1B<^L<B>>>>>&<1B<:~ 
Qm
	  ..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 ] ]p
	..PST==]@C-FWMASK
	.IF0 ]`..PST,<
		POINT ^0,B,35>,<
		POINTR (B,C)>POI;| 
zXWY
		POP P,
zx.NVA
		PURGE .N
{VA
		.NVR==.NVR-1
		.NVR==.NVR;\t 
yXWQ
		PUSH P
yx,A
		DEFINE .NV
zB<A>
		.NVR==.NVR+1
		.NVR==.;] !xZ
	  IFGE "<<<B>&777777>-.."8BSIZ>,<
		PRINTX"X ?WORD offset gre"xater than $BUILD #size parameter>
#8	  SET0. (\<B>,C,<A>)
	B>,;LH 
C8T+
	IFNDEF 
CXC,<PRINTX C IS 
CxNOT DEFINED
	  
DA (<B>,D,FWMASK
D8)>	
	IFDEF C,<
DX
	IFNDEF %C,<
	
Dx  A (<B>,D,C)
E>	
	IFDEF %C,<
E8
	  %C (A,<B>,D,C)>>A,<B>,;LH 
ExTi

	..NS==0
F			
	IRP C,<..N
F8S=..NS+1>	
	IFE 
FX..NS,<PRINTX ?EMP
FxTY STRUCTURE LIST
G, A>
	IFE ..NS-
G81,<		
	  ..STR0 
GX(A,<B>,<C>,D)
Gx>
	IFG ..NS-1,<	
H	
	..ICNS			
	.
H8.CNS (<E (A,<B
HX>,,>) 
	IRP C,<
Hx		
	  IFNDEF C,
I<PRINTX C NOT DE
I8FINED>
	  IFDEF 
IXC,<
	  IFNDEF %
IxC,<
	  ..CNS (<
J,C,D>)>	
	  IF
J8DEF %C,<
	  %C
JX (..STR2,,D,C)>
Jx 
	  ..CNS (<)>)
K		
	  ..GCNS		

K8	  ..ICNS		
	  .
KX.CNS (<E (A,<B
Kx>>) 
	  IFNDEF %
LC,<
	  ..CNS (<
L8,C,D>)>	
	  IF
LXDEF %C,<
	  %C
Lx (..STR2,,D,C)>
M>> 
	..CNS (<,,)>)		
	..GCNS>);LI 
MXTm
	..CNS (<,C,B>).CNS (;LI 
NU


	IFDIF <
N8D><F>,<
	  IFN
NXB <D>,<
	    A
Nx (<B>,D,..MSK)	
O
	    IFNB <F>,
O8<PRINTX C AND E
OX ARE IN DIFFERENT
Ox WORDS>>
	  ..MS
PK==0>		
	IFNB <
P8F>,<
	  ..MSK=..MSK!<E>>MSK=..;LJ 
PxU


	IFDIF <
QD><F>,<	
	  IF
Q8NB <D>,<
	    
QXA (<B>,D,..MSK)
Qx>	
	  ..MSK==0>	
R	
	IFNB <F>,<

R8	  ..MSK=..MSK!<E>>MSK=..MSK!<;LJ 
RxU)


	IFDIF <
SD><F>,<	
	  IF
S8NB <D>,<
	    I
SXFNB <F>,<		
		
SxA1 (B,D,..MSK)>
T 
	    IFB <F>,
T8<		
		A2 (B,D
TX,..MSK)>> 
	  ..
TxMSK==0>		
	IFNB 
U<F>,<
	  ..MSK=..MSK!<E>>MSK=;$\Y d ^.
cIF1,<
    PRINTX ? Errdor in "A"
    DdPEFINE X(NAM,ERR) e <IFN ..X'NAM&..TXe@EF,<PRINTX ? ERR>e`>
    $TX$ERR>

    $TX$ERR>
;$^ g@^d

    ..g`TXF==0				
    .h.TXB==0				
    h ..TXP==0				
   h@ ..TXEG==<..TXEF=h`=0>			
    IRPC iA,<				
	..TXC=i =ASCII\A\-35		
	IFN ..TXB,<IFN i`..TXB-..TXC,..CNSj(<A>)
		   IFE j ..TXB-..TXC,..TXBj@==0>
	IFE ..TXB,j`<..TXQ(<A>,\..TXkF)>>	
    ..TXC1k 				
    IFN ..Tk@XB,<IFN <..TXB-"^k`">,<..TXER(PEA)>>l
    ..TXEF==..Tl XEF!..TXEG		
   l@ IFN ..TXEF,<..TERR<A>>
,<..TE;&( J0\S..TXA(.TQCH0)..TXA(.TQC;&) K@\\..TXER(IQU)..TXER(IQU;&) Jp\W..TXER(IQU)..TXER(IQU;&0 Ip\O..TXA(.TQCHA)..TXA(.TQC;&5 H0\C..TXC0(\".CHLFD).TXC0(\".;&5 I0\K..TXC0(\".CHVTB).TXC0(\".;&6 Hp\G..TXC0(\".CHFFD).TXC0(\".;&6 Gp\?..TXC0(\".CHCRT).TXC0(\".;&@ 	8Xa
	..TSIZ 	X(..PST,C)	
	.CA	xSE ..PST,<<
		SE
TZM B>,<	
		HLL
8ZS B>,<	
		HRRZ
XS B>,<	
	  ..TS
xAC (..ACT,B)	
	  .IF0 ..ACT,<
	8	$CALL .ZERO	
		XLSTOF.
		JUMP [PxOINTR(B,C)]

LSTON.>,<
		..TX (Z,B,C)>>>TX;&81 
98Sc
	IFNDEF 
9X.PSECT,<
	A==0	
9x		
	..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&^
<O777777777760,<A
<8==1>> 
	PURGE ..TSA1>
	PURGE ..;&:= 
7xSG
	A==3		
8	
	IFE <B>+1,<
88A=0>	
	IFE <B>-
8X^O777777,<A==1> 
8x
	IFE <B>-^O777777B17,<A==2>7;' 
R
   ..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
+ ..TX2,<		
	  TD
+8A B,[..TX1]>	

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

.	  TLA B,(..TX1
.8)>>
	IFE ..TX2,<
.X		
	  IFE <<..TX
.x1>B53-^O777777>,<
/ 
	    ..TX3 (A
/8,B)>>	
	IFE ..T
/XX2,<		
	  TDA 
/xB,[..TX1]>	
	PURGE ..TX1,..TX2>;'` 
08S
	IFIDN <
0XA><Z>,<		
	  ..
0xTX2==1
	  ANDI 
1B,^-..TX1>	
	IFI
18DN <A><O>,<		
	
1X  ..TX2==1
	  OR
1xCMI B,^-..TX1>	
2
	IFIDN <A><C>,<
28		
	  ..TX2==1

2X	  EQVI B,^-..TX1>QVI B,^-..TX;'  M`]Z



	..TXENF==0			

IFNDEFN  A,<..TXER(UQU)>N@		
IFDIF <B><>,N`<IRPC B,<.IFN <OB>,NUMERIC,..TXERO (IWA)>>
IFNB <CO@>,<IFNDEF .TXTJCO`,<..TXER(IJA)>>
PIFDEF  A,<
  IFP E <A_-^D18>,<IFDP@IF <EFBCD><>P`,<..TXER(ANA)>>
Q  IFE <1-<A_-^D1Q 8>>,<IFDIF <BCQ@D><>,<..TXER(JNA)Q`>>
  IFE <2-<A_R-^D18>>,<IFIDN <R EF><>,<..TXER(ADR@S)>>>

      IFR`E ..TXEF,<
	IFIDSN <B><>,<..TXWD=S =<..TXJU==<..TXFCS@==0>>>
	IFDIF <S`B><>,<
	  IFE <^TD<B>>,<..TXWD==<T ..TXJU==<..TXFC==T@0>>>
	  IFN <^D<T`B>>,<..TXWD==^D<UB>
	    IFNB <U C>,<..TXJU==.TXTJU@C>
	    IFB  <U`C>,<..TXJU==.TXTJVL
	      IFE <AV -.TQOCT>,<..TXJU=V@=.TXTJR>
	W     V`IFE <A-.TQDEC>,<W..TXJU==.TXTJR>>
	    IFB  <D>,<[email protected]==" ">
	  W`  IFNB <D>,<..TXXFC=="D">>>

	IX FB  <EF>,<..TXPX@T==0>
	IFNB <EX`F>,<..TXPT==1>
	YIFE <..TXWD+..TXPY T>,<
	    EXP FLY@D(A,TXT.FN)>
	IY`FN <..TXWD+..TXPTZ>,<
	    EXP FLDZ (A,TXT.FN)+FLD(.[email protected],TXT.JU)+FLDZ`(..TXWD,TXT.WD)+F[LD(..TXFC,TXT.FC)[ +TXT.AD
	    PNTR(E,F)>>

T;'h ~ _~
    IFE [email protected],<			
	..IC~`NS			
	..CNS<ASCIZ\>		
	..TXP==1 >		
    ..CNS<A@>			
    ..TXF==`0			
    ..TXB=="^"
    ..TXB==;'h

 `


    IF

@N ..TXP,<			
	..

`CNS<\>		
	EXP <F

LD(.TQCHT,TXT.FN)

 +[..GCNS]>>
    ..TXP==0>
    ;'	9 f ^8
    ..TXf@EF==..TXEF!..XA	f`	
    ..TXF==0		g		
    ..TXB=="^"
    ..TXB=="^;'

  m^h..TXQB(<A>)..TXQB(<;'

( m@^r

    IFm`N ..TXC-"^",<..TXnC0(<A>)>		
    n IFE ..TXC-"^",<..TXF==1>-"^",<..;'

( n`_

    IFoE ..TXC-"^",<..TXo C0(<A>)>	
    Io@FN ..TXF,<			
	.o`.TXF==0		
	IFDEFp .TQCHA,<		
	  p   IFDEF ..TQMA,.[email protected]A 
	    IFNp` <.TQCHA_-^D18>,q<..TXF==2>>>
   q  IFE ..TXF-2,<..Tq@XC1(<A>)	
	..ICq`NS			
	..CNS<..TrXA(.TQCHA,>>	
 r    ..TXEG==..TXEG!..TXEF==..TXEG;'

) r`_$
    ..TXsF==3				
    IFGs E ..TXC-"0",IFLE [email protected]"9",<..TXF=s`=2>
    IFE ..TXtF-2,<..CNS(A)>		t 
    IFE ..TXF-3t@,<..CNS<,>		
		 ..TXQ3(A)>
		 ;'

) u_8
    ..TXu F==4				
    IFEu@ ..TXC-"/",<..TXFu`==5>		
    IFE .v.TXC-"[",<..TXF==v 5>		
    IFE ..Tv@XF-4,<..CNS<A,>>v`		
    IFE ..TXFw-5,<..CNS<,,>		
		 ..TXQ5(A)>
;'

* w@_N
    ..TXw`F==4				
    IFEx ..TXC-"/",..TXF=x =5		
    IFE ..Tx@XC-"[",..TXF==5		x`
    IFE ..TXF-5y,<..CNS<,>		
		 y ..TXQ5<A>>		
  y@  IFE ..TXF-4,<..y`CNS<A,>		
		 ..TXF==5>	
		 ..;'

* z _`
    ..TXz@F==6				
    IFEz` ..TXC-"/",..TXB={="/"		
    IFE .{ .TXC-"[",..TXB=="{@]"
    IFE ..TXB{`-"]",..CNS<[>		
|    IFE ..TXB,..TXF==5 ..TXB,..T;'

+ |@_n
    ..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  
fV1
	.ACV2 (A)
	.ACV2 (d@ 
fXV;
	A=.FPA
fxC+..NAC		
	IFB <
gB>,<..NAC=..NAC+
g81>
	IFNB <B>,<..NAC=..NAC+B>.d` 
gxVI
	IFG A-
h.NPAC,<PRINTX ?TO
h8O MANY ACS USED>
hX
	IFLE A-4,<
	 
hx $CALL .SAVEA>	
i
	IFG A-4,<
	  $CALL .SAVE8>  
 XY5
	  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
	  ..
	 Xq
	.BCAL1 A
	.BCAL1 
| 	'xJ=
	XLIST
	'X	.ORG 0
	LIST
.ORG 0
	LIST

=Z XY]$CALL	I%INTA$CALL	I%IN9  
5xS9
	..CSN==
6A
	..CSC==0
	I
68RP B,<
	IFE ..C
6XSN-..CSC,<
	  ST
6xOPI
	  ..CAS1 (
7B)>
	..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 8X=
	..PST==XC-FWMASK
	.IF0 x..PST,<
		SOS B>,<	
		$CALL .SO8S	
		LSTOF.
		JXUMP [POINTR(B,C)]
		LSTON.>C}

 b8
	.OPCD==

'.OPCD+1
	WO.A==.OPCD
G),<
		| 	)JQ
	XLIST
	)0	.....X=.
	.ORG
	.ORG 0
	REPEAT	)p .....X,<EXP 0>
	*	PURGE .....X
	.ORG
	LIST

	.[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 
4XS+
	..IFT==
4xA		
	IFE ..IFT,
5<
	B
	..IFT==0
58>		
	IFN ..IFT,<
	C>N ..IFT,<&4 YM
	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??%|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 	uxO/<A>B<^D70-POS(B)>B<^D70N

0PO 
	SYSPRM	C	
	IFG	.PID,<MX.PID==A>	
<MX.PID=O%=H 
[8U[
	.STKV2 (A)
	.STKV2 O%=I 
[xUi
	IFB <B
\>,<..STKN==..STKN
\8+1>
	IFNB <B>,<
\X..STKN==..STKN+B
\x>
	..STKQ==..STK
]N+1
	.STKV3 (A,\..STKQ)V3 (A,O%=I 
]XUw
   IFDEF
]x A,<.IF A,SYMBO
^L,<PRINTX STKVAR 
^8A ALREADY DEFINE
^XD>>
	DEFINE A<-
^x^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  
aXV
	.TRV2 (A)
	.TRV2 (Sd@ 
bV
	.TRV3 (
b8A,\..NV)	
	IFB 
bX<B>,<..NV=..NV+1
bx>
	IFNB <B>,<..NV=..NV+B>,<..Sd` 
c8V%
   IFDEF
cX A,<.IF A,SYMBO
cxL,<PRINTX TRVAR 
dA ALREADY DEFINED
d8>>
	DEFINE A<^O
dXB(.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 _%~

-`c

		$CALL

.I%WTO		
		LSTOF.

. 			
		JRST	g

.@
		$WTRST			
	IF

.`NB <A>,<$WTMTY (

/<A>)>	
	IFNB <

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

/@>	
	IFNB <C>,<$

/`WTTXT (<C>)>

0IFNB <D>,<$WTOBJ

0  (<D>)>	
	IFNB

0@<E>,<$WTACK (<E

0`>)>	
		IRP F,<

1F>		
		$WTBLD

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