PDP-10 Archive: 10,7/galaxy/glxmac/glxmac.unv from cuspjul86upd

Trailing-Edge - PDP-10 Archives - cuspjul86upd_bb-jf24a-bb - 10,7/galaxy/glxmac/glxmac.unv

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

x
,RN@P C4@ 
hVE
	..NAC==
h80		
	IRP A,<
	
hX  .ACV1 (A)>		
	.ACV3 (\..NAC)C' 
Q..AS(A,B,ADD,SUB)(A,BC, 	q`OLSH A,-^D9LSH A,-^DC2f}

``8
	.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:' 
4XS%
	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

XPe
	    ..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`

Pa
	    ..CX(N,A,B)  ..CGH

v`gT

	  LST

w OF.

	X	CRE

w	X	GEN		
	X	PRT

v 	
	X	CLS		
	X	A

v@UT		
	X	USW

w@X	SPL		
	X	SIZ

w`
	X	MOD		
	X	CH

xN		
	X	ACT		
	X

x 	CRY		
	X	DTY

x@
	X	DTO		
	X	DCC

x`		
	X	BSZ		
	X

yFSZ		
	X	HSZ

y 	X	RFM		
	X	RFO

y@	
	X	RSZ		
	X	B

y`LS		
	X	FFB

zX	ACW		
	X	RMS

z 
	X	MCY		
	X	CT

z@G		
	X	NSB		

	  LSTON.


G"\Y

(xx

	IF1,

H<%%EDT==AEDT>

h
	IF2,A<IFN,<%%E
		PRe?nEditaNumbe
		A$WHO(\AEDT)>	(
		A$NOTE		
	IHNTERN AEDT		
	IhNTERN LODLEV		
;	PURGE %%EDT> ;END IF2

KG4,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 
	G>hMt ~P}
	PRINTX ~pGLXVER	GLXCOM Edit(55) by CTK on 205-Sep-83
	PRINTXP	    	GLXCOM	Actual Edit(A)
	oG>lYP G>vC@ 	1xKLALL
PAGE	2; (A Continued o	28n next page)
SAL	2XL; (A Continued 	2xfrom previous page) previous pagG?T 	)PJMASCIZ \
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 (.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
A (<AC>,B'Y,MSK)>>AC>,B'Y,MSK)>I'7 
XQ..OP(A,B,DIV)..OP(A,BIOH1 !r
	IFB <D!8>,<
	XWD	[ASCIZ\!XC\],[XWD B,A]>!x
	IFNB <D>,<
	"XWD	[EXP CM%FW!D"8
		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

t`g.
	IF1,<IF

uDEF ERA$,PRINTX

u ?Duplicate error

u@code A>
	ERA$=

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

4`g"
	ERR	EOF

5,<End of file>

5 ERR	IFP,<Illegal

5@file position>

5`ERR	FDE,<File dat

6a error>
	ERR	FN

6 D,<File is not on

6@ disk>
	ERR	NSD,

6`<No such device>

7
	ERR	FCF,<File c

7 heckpoint failed>

7@
	ERR	SLE,<A sys

7`tem limit was exc

8eeded>
	ERR	IFS,

8 <Illegal file spe

8@cification>
	ERR

8`	FNF,<File not fo

9und>
	ERR	PRT,<P

9 rotection violati

9@on>
	ERR	DNA,<De

9`vice not availabl

:e>
	ERR	NCE,<No

: "current" entry i

:@n list>
	ERR	NMA

:`,<No IPCF message

; is available>

; ERR	FDS,<Files ar

;@e on different st

;`ructures>
	ERR	F

<AE,<File already

< exists>
	ERR	USE

<@,<Unexpected syst

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

A entry>
	ERR	QEF

A ,<Quota exceeded

A@or disk full>
	E

A`RR	ARG,<Invalid a

Brgument specified

B >
	ERR	IFN,<Inva

B@lid function spec

B`ified>
	ERR	IJN,

C<Invalid job numb

C er specified>
	E

C@RR	RAD,<Invalid r

C`adix specified>

D	ERR	NUM,<Invalid

D  numeric argument

D@>
	ERR	IDT,<Inva

D`lid date field sp

Eecified>
	ERR	IT

E F,<Invalid time f

E@ield specified>

E`	ERR	DOR,<Date/ti

Fme out of range>

F 
	ERR	DTM,<Value

F@missing in date/t

F`ime>
	ERR	MDD,<M

Gissing day in dat

G e/time>
	ERR	DFZ

G@,<Field zero in d

G`ate/time>
	ERR	M

HDS,<Mnemonic date

H /time switch not

H@implemented>
	ER

H`R	DFL,<Field too

Ilarge in date/tim

I e>
	ERR	ILR,<Ill

I@egal year format

I`in date/time>
	E

JRR	NND,<Negative

J number in date/ti

J@me>
	ERR	NPF,<No

J`t known whether p

Kast or future in

K date/time>
	ERR

K@RDP,<Relative dat

K`e parse required>

L
	ERR	NSW,<Switc

L h does not begin

L@with slash>
	ERR

L`	NOM,<Unrecognize

Md switch or keywo

M rd>
	ERR	NUL,<Nu

M@ll switch or keyw

M`ord given>
	ERR

NINW,<Invalid guid

N e word>
	ERR	NC,

N@<Not confirmed>

N`	ERR	ICN,<Invalid

O character in num

O ber>
	ERR	NQS,<I

O@nvalid quoted str

O`ing - does not be

Pgin with quote>

P 	ERR	AMB,<Ambiguo

P@us switch or keyw

P`ord>
	ERR	NMT,<D

Qoes not match tok

Q en>
	ERR	CMA,<Co

Q@mma not given>

Q`ERR	NNC,<Node nam

Re may not exceed

R 6 characters>
	E

R@RR	INT,<Node term

R`inator "::" must

Sbe specified>
	E

S RR	NSN,<Unknown n

S@ode name>
	ERR	I

S`PS,<Invalid path

Tspecification>

T ERR	IUS,<Invalid

T@user specificatio

T`n>
	ERR	DGS,<Dev

Uice name may not

U exceed 6 characte

U@rs>
	ERR	DNE,<Un

U`known device>
	E

VRR	DIO,<Device ca

V n not do input or

V@ output>
	ERR	BD

V`F,<Invalid date/t

Wime format>
	ERR

W 	ABS,<Field too l

W@ong for internal

W`buffer>
	ERR	TMT

X,<Command too lon

X g for internal bu

X@ffer>
	ERR	BDS,<

X`Invalid default s

Ytring>
	ERR	BTF,

Y <Invalid table fo

Y@rmat>
	ERR	TME,<

Y`Date/time must be

Z in the future>

Z 	ERR	TMN,<No time

Z@r entry has expir

Z`ed>
	ERR	TMA,<Ti

[mer entry already

[  exists>
	ERR	DV

[@T,<Device termina

[`tor ":" must be s

\pecified>
	ERR	N

\ CI,<Argument bloc

\@k may not be in t

\`he ACs>
	ERR	TLU

],<Terminal locati

] on is unknown>

]@ERR	FIO,<File is

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

alist is empty>

a ERR	LVL,<SFD leve

a@l nested deeper t

a`han the maximum a

bllowed>
	ERR	CCW

b ,<Cannot create/w

b@rite on any struc

b`ture in search li

cst>
	ERR	FCU,<Ca

c nnot update file>

c@
	ERR	ENQ,<File

c`has outstanding E

dnqueue lockes set

d >
	ERR	SWS,<Soft

d@ware write-lock o

d`n structure>
	ER

eR	DER,<Hardware d

e evice error>
	ER

e@R	DTE,<Hard data

e`error>
	ERR	BKT,

f<Block too large>

f 
	ERR	IPP,<Non-e

f@xistant UFD>
	ER

f`R	TRN,<RIB or tra

gnsmission error>

g 
	ERR	ILC,<Illega

g@l character in da

g`te/time>
	ERR	NF

hT,<Date/time must

h  be in the future

h@>
	ERR	NPS,<Date

h`/time must be in

ithe past>
	ERR	U

i DM,<Unrecognized

i@month in date/tim

i`e>
	ERR	UDN,<Unr

jecognized name in

j  date/time>
	ERR

j@	IFA,<Illegal fil

j`e attribute>
	ER

kR	FAI,<File attri

k bute inconsistanc

k@y>
	ERR	CEI,<Can

k`'t enable/disable

l interrupt system

l >
	ERR	ENF,<Link

l@ed list entry not

l` found>
	ERR	NSL

m,<No such linked

m list>
	ERR	NFP,<

m@No free pages>

m`ERR	NPI,<No free

npages for IPCF re

n ception>
	ERR	IF

n@B,<Indirect file

n`too big for inter

onal buffer>	
	ER

o R	NDN,<Null devic

o@e name given>

o`	ERR	PWA,<PID wen

pt away>
	ERR	CGP

p ,<Can't get a PID

p@>
	ERR	IND,<Inva

p`lid node name>

qERR	IAC,<Invalid

q access string>

q@ERR	IDV,<Invalid

q`device name>
	ER

rR	INA,<Invalid fi

r le name>
	ERR	IE

r@X,<Invalid file e

r`xtension>
	ERR	I

sGN,<Invalid gener

s ation number>
	E

s@RR	IDR,<Invalid d

s`irectory name or

tPPN>
	ERR	NHA,<N

t 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` 8[S
	IFIDN <80BC><>,<EXP <A>8P>
	IFDIF <BC><8p>,<
	 IFE <A+1>9,<<POINT 7,C>>
90	 IFN <A+1>,<
	9P   IFIDN <C><>,<9pEXP <A,B>>
	  : IFDIF <C><>,<EX:0P <A,B,C>>
	>>A,B,C>>
	>KbN@ 	`Kc  	/8J}IRP 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 dP)
	IFNB <>dp,<
	PRINTX  (Froem GLXVER)
	> ;END IFNB 
	M&`Mt c!
	PRINTX c0GLXVER	GLXFIL EdicPt(115) by  on 17-cpJun-86
	PRINTX	 d   	GLXFIL	Actual Edit(A)
	M&dYP &M2  	v8O3<<<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 v5
	IFNB <>v0,<
	PRINTX  (FrovPm GLXVER)
	> ;END IFNB 
	MVpMt tP-
	PRINTX tpGLXVER	GLXFUN Ediut(1) by TL on 23-u0Mar-85
	PRINTX	 uP   	GLXFUN	Actual Edit(A)
	MVtYP M^luQ O2|  	0KIRP A,<
	08	IF2,<IFDEF A,<.	0XIFN A,EXTERN,<IN	0xTERN A>>
	     	1IFNDEF A,<EXTERN	18 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 }Pq
	IFNB <>}p,<
	PRINTX  (Fro~m GLXVER)
	> ;END IFNB 
	[lYS:HMt |i
	PRINTX |0GLXVER	GLXINI Edi|Pt(23) by  on 27-J|pun-84
	PRINTX	  }  	GLXINI	Actual Edit(A)
	
 MtS:LYP 	S;k 	xxOG<<<A>B<POS(<B>)>>&<B>>S; KW nPy
	IFNB <>np,<
	PRINTX  (Froom GLXVER)
	> ;END IFNB 
	S; Mt mq
	PRINTX m0GLXVER	GLXINT EdimPt(111) by CJA on mp21-Feb-86
	PRINTnX	    	GLXINT	Actual Edit(A)
	S;!kP S;!k<P S;$YP $S? 
4S!
	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 g=
	IFNB <>g0,<
	PRINTX  (FrogPm GLXVER)
	> ;END IFNB 
	SBMt eP5
	PRINTX epGLXVER	GLXIPC Edift(75) by JAD on 1f02-Jun-86
	PRINTXfP	    	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.	;XCREF
	..TEXT<A;0>		
	  EXP	0		
	LSTON.
	0		
Uv98Q |U$@ f@g~

	  LST

{ OF.

	X JNO,.JI

{@JNO,<-1,,GJBJNO>

{`
	X TNO,.JITNO,<

|-1,,GJBTTY>	
	X

| USR,.JIUNO,.GTPPN

|@		
	X CDN,.JIDNO

|`,<-1,,GJBPTH>

}X PRG,.JIPNM,.GTP

} RG		
	X CJN,.JIC

}@PJ,<-1,,GJBCJB>

}`
	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 sP!
	IFNB <>sp,<
	PRINTX  (Frotm GLXVER)
	> ;END IFNB 
	W
 Mt r
	PRINTX r0GLXVER	GLXKBD EdirPt(101) by NT on 1rp6-Oct-85
	PRINTXs	    	GLXKBD	Actual Edit(A)
	W
$YP  WNH1 "xr
	IFB <C#>,<
	XWD	[ASCIZ\#8B\],A>
	IFNB <#XC>,<
	XWD	[EXP #xCM%FW!C
		ASCIZ\B\],A>
SCIZY"luQ xY&i1 	P`O

	  LST	QOF. XCREF

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

	CDO		W 		
	CDO	C%RPRM
	W@	CDO	C%INTR
	CDO	W`	C%SEND
	CDO	C%R	XECV
	CDO	C%BRCV
	CDO	C%REL
	CDO	X@	C%CPID
	CDO	C%K	X`PID
	CDO	C%SPID
	CDO	C%MAXP
	CD	Y O	C%PIDJ
	CDO	C%	Y@PIDH
	CDO	C%SIDX	Y`
	CDO
	CDO
	CD	ZO

	CDO	      		Z 		
	CDO	F%IOPN
	Z@	CDO	F%AOPN
	CDO	Z`	F%OOPN
	CDO	F%I	[BYT
	CDO	F%OBYT
	CDO	F%IBUF
	CD	[@O	F%OBUF
	CDO	F%	[`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	aO	M%RMEM
	CDO
		a CDO
	CDO
	CDO
	a@	CDO
	CDO
	CDO		a`M%GPAG
	CDO	M%RP	bAG
	CDO
	CDO
		b CDO
	CDO
	CDO
	b@	CDO
	CDO
	CDO

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

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

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

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

	CDO	K%RCOC				m`
	CDO	K%WCOC
	C	nDO	K%SUET
	CDO	K	n %STYP
	CDO	K%TXT	n@I
	CDO	K%SOUT
		n`CDO	K%BOUT
	CDO		oK%BIN
	CDO	K%BAC	o K
	CDO	K%TPOS
		o@CDO	K%BUFF
	CDO		o`K%FLSH
	CDO	K%OP	pEN
	CDO	K%ECHO
	p 	CDO
	CDO
	CDO
	CDO
	CDO
	CDO	p`
	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>

@ 
~XW{
	IFNB <
~xC>,<..STR0 (..LDB
,A,C,B)>
	IFB
8  <C>,<MOVE A,B>C>,<MOVE A,Y>%I;P YO%GP YO%yG 	38K%
	IFNDEF 	3XLSTIN.,LSTIN.==0		3x	
IFE LSTIN.,<
	4	IFIDN <XCREF><A	48>,<.XCREF>	
		  	4X XLIST>		
	LSTIN.==LSTIN.+1STINYO%{G 	5K/
	IFG LST	58IN.,LSTIN.==LSTIN	5X.-1	
	IFLE LSTIN	5x.,<.CREF		
		      LIST>
		   [KW iPQ
	IFNB <>ip,<
	PRINTX  (Frojm GLXVER)
	> ;END IFNB 
	[Mt hI
	PRINTX h0GLXVER	GLXMAC EdihPt(507) by JAD on hp12-Jun-86
	PRINTiX	    	GLXMAC	Actual Edit(A)
	[YP #[3@ 	x8OC<<<1_<A>>-1>B<B>>_<A>>[8@ 	w8O;1B<<A>-1>-1B<B><<A>-1>[@ 	L Ln
	IFB <B	L@>,<MAXSIZ==0
		I	L`RP A,<IFG <A-MA	MXSIZ>,<MAXSIZ==A	M >>>
	IFNB <B>,<	M@B==0
		IRP A,<	M`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 x0G
	IFNB <>xP,<
	PRINTX  (Froxpm GLXVER)
	> ;END IFNB 
	[hMt vp?
	PRINTX wGLXVER	GLXMEM Ediw0t(31) by RCB on 5wP-Feb-85
	PRINTX	wp    	GLXMEM	Actual Edit(A)
	[lYP

[n:=P [tuQ @[th:Q [u[yQ [ukvQ  [v=3P'[v|WQ [&p 	N M
	IFB <B	N@>,<MINSIZ==377777	N`,,777777
		IRP 	OA,<IFG <MINSIZ-A	O >,<MINSIZ==A>>>
	IFNB <B>,<B==	O`377777,,777777
		P	IRP A,<IFG <B-	P A>,<B==A>>>
A>,<B==A>>>
[>!` 	wxO?<A-<A/B>*B><A-<A/B[?7 	y8P-
   ..MX1	yX==B			
IFDEF .P	yxSECT,<
   .IFN .	z.MX1,ABSOLUTE,<
	z8	MOVE A,[B]>
 	zX  .IF ..MX1,ABSOL	zxUTE,<
	..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^= 
AXT
	A==C	
Ax	
	IF1,<IFDEF %
BA,<PRINTX ?A ALR
B8EADY DEFINED>>
	
BXDEFINE %A (OP,AC
Bx,Y,MSK)<	
	IFDIF
C <Y><>,<
	OP (<A
C8C>,B+'Y,MSK)>
	
CXIFIDN <Y><>,<
	O
CxP (<AC>,B'Y,MSK)>>AC>,B'Y,MSK)[PuySP'[PvNP'[Vg 
XQ..OP(A,B,MUL)..OP(A,B[`v
2P ] 	-xJqIF2,<IFDEF	. A,<A==A>> IFNDEF A,<A==B>]F@ l3TEMFDB##_
QkRp _
Ql}p _
Qmp _
Qm7p _
T=

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

{nch
	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,
	X	.OTNQ-Stream>
,<NQC-Stream>
_SKW {]
	IFNB <>{0,<
	PRINTX  (Fro{Pm GLXVER)
	> ;END IFNB 
	O3EKr_SMt yPU
	PRINTX ypGLXVER	GLXOTS Edizt(11) by LWS on 2z05-Oct-84
	PRINTXzP	    	GLXOTS	Actual Edit(A)
	W_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=

-	EXP ..XX		

-@CIFNB <C>,<EXP 
-`EIFB0<C>,<

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

.` IFNBS<E>,<POINT
/@ IFB <E>,<0>



/`>IFB><I
0IIFNBX<I>

0  IFB <J>,<0>
0@JIFNB <J>,<EXP 

1,IFB <H>
1 >IFNBP<H>

1@IFB <G>,<0>
1`IFNB <G>,<EXP G>

G>,<EXP Ga@KW PA
	IFNB <>p,<
	PRINTX  (From GLXVER)
	> ;END IFNB 
	a@Mt 9
	PRINTX 0GLXVER	GLXPFH EdiPt(16) by TARL on p17-Apr-81
	PRINTX	    	GLXPFH	Actual Edit(A)
	aDYP a 	q O
LSH A,^D9LSH A,^D9a+= 5a;&  ^`]~
	 IFB  <_B>,<..STR0(..PNT_ ,,<FWMASK>,A)>
_@	 IFNB <B>,<..ST_`R0(..PNT,,<B>,A)>.PNT,,<B>,Aa>Mm 	uXO/<POINT WID	ux(B),A,POS(B)>B),A,POS(B)>a?H6 +a? 	sO<^L<<A>&<-<A>>>><<A>&<aJ}Ks 	(8LT

	SALL		6`			
	LSTOF. XCRE	7F			

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

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

	TOPS10	<			
	9 		SEARCH	UUOSYM			9@
		%%UUOS==%%UUO	9`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
		>			
			= 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 	A$DATA(NAM,SIZ<1>)	A ,< 
			IFN GLXPU	A@RE,<.PSECT DATA> 	A`
			IFE GLXPURE,	B<RELOC> 
			IFND	B EF B%D,<B%D::! 	B@B%DL==:0>
			NA	B`M:	BLOCK	SIZ
				CB%DL==:B%DL+SIZ	C  
			IFN GLXPURE	C@,<.ENDPS DATA> 
	C`			IFE GLXPURE,<R	DELOC> 
		>			
	D 
		IFDIF <B><OTS	D@>,<	
			DEFINE	C	D`DO (X),<GLOB X> 
			DEFINE	NT(X),	E <CDO X> 
			LIBV	E@EC		
		>			

		E`>>				

	IFNB <	FB>,<IFIDN <B><I	F NI>,< 
		DEFINE		F@$DATA (NAM,SIZ<1>	F`),< 
			NAM:	BLO	GCK	SIZ
		>			
		G >>				

	LSTON.	G@				

	GLOB	<.P	G`OPJ, .RETT, .RETF	H>	
	OPDEF	$RET	[	H POPJ	P,]	
	OPDEF	H@	$RETT	[PJRST	.RE	H`TT]	
	OPDEF	$RET	IF	[PJRST	.RETF]	
	OPDEF	$RETIT	[J	I@UMPT	.POPJ]	
	OP	I`DEF	$RETIF	[JUMPF	J	.POPJ]	
	.NODDT	J 	$RET,$RETT,$RETF	J@,$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 le
	IFNB <>l0,<
	PRINTX  (FrolPm GLXVER)
	> ;END IFNB 
	gpMt jP]
	PRINTX jpGLXVER	GLXSCN Edikt(131) by TL on 2k04-May-86
	PRINTXkP	    	GLXSCN	Actual Edit(A)
	gtYP ,g"@ ,Zq
	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
	.TgtXrP gv

[PKg#=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` 
.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 
YxUa
	..STKR=
Z=10		
	RADIX 8

Z8	..STKN==0
	IRP 
ZXA,<
	  .STKV1 (
ZxA)>
	$CALL	.STK
[ST
	 ..STKN,,..S
[8TKN
	RADIX ..STK
[XR
	DEFINE ENDSV.
[x<.ENSV1 <A>>
	P
\URGE ..STKN,..STKR,..STKQ
   TKgR~)  xX
	IFNB <C>,<..STR0 (..DPB8,A,C,B)>
	IFBX  <C>,<MOVEM A,B>>,<MOVEM A,gV 
XQ..AS(A,B,SUB,ADD)(A,Bgg

V 	KL^
	IFNB <	K B>,<TOPS10<A==B	K@>>
	IFNB <C>,<T	K`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(  x2IFN FTUUOS,B			;DEFINE UNi?4H `x6IFN FTJSYS,	INTERN AEDT	iD Ep\;

  IFNBF	<A>,<.TQCHA==^F0D<B>B17+ZZ>
  IFPFNB 	<D>,<DEFINEFp ..TQMA<D>>
  GIFNB	<C>,<.TQC=G0=^D<B>B17+ZZ>
	 ZZ==ZZ+1ZZ>
	iG, ;p\+
	LSTOF.
	TQ(T,2,ASCIZ)		<0	
	TQ(O,2,OCTAL)<P			
	TQ(D,2,DECI<pMAL)			
	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,..TXCA00(\".CHFFD))	
	TAPQ(K,0,VT,..TXC0(\Ap".CHVTB))	
	TQ(AB,0,NOCRLF,..TXA(.B0TQCHA))	
	TQ(0,0BP,NULL,..TXA(.TQCHBp0))	
	TQ(3,0,STRCING,..TXER(IQU))	C0
	TQ(V,2,VERSIONCP)			
	TQ(2,0,CARCpET,..TXER(IQU))	
	TQ(Q,2,POINTER)D0			
	TQ(B,2,ROB)DP			
	TQ(1,2,OBJEDpCT)			
	TQ(N,2,NEODE)			
	TQ(R,2,E0JIB)			
	LSTON.
)			
	LSTON. f i
	LSTOF.
X(33,TTY33,33,.
X(3TTY35,35,.RETT,
TOPS20<
HEX(37,TTY37,37,.R
X(EXPORT,EXEC,EXE,
>
HTOPS10<
X(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
(,125,SETTLC,<.CHE
HSC,"[","K">,<.CHE
hSC,"=">,<.CHESC,.
TOPS10<180,VT180,18

"=">,<.CHESC,.CHR

(AB>)> 
TOPS10<	X

H(VT185,VT185,185,

hSETTLC,<.CHESC,"[
hX(VT220,VTTTLC,<..
X(V40,VT240,240,SE
X(VT50,VT50,VCHESC
X(VT52,VT52,<.CHES
TOPS10<	X(VT1,SETTL
	LSTON.

> 
	LSiK,PA iK4@ 
b8V!
	..TRR==
bX10		
	RADIX 8
	
bx..NV==1			
	IRP 
cA,<
	  .TRV1 (
c8A)>		
	$CALL	.TR
cXSET		
	 ..NV-1,,
cx..NV-1
	RADIX ..
dTRR		
	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 
%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| 
'R9
		..TX(OA,A,<B>).TX(Oib|P 
&R1
		..TX(OE,A,<B>).TX(Oib}` 
&XR5
		..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 
'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 pp
	IFNB <>q,<
	PRINTX  (Froq0m GLXVER)
	> ;END IFNB 
	kR`Mt o0
	PRINTX oPGLXVER	GLXUTL Ediopt(2) by DPM on 4-pDec-85
	PRINTX	 p0   	GLXUTL	Actual Edit(A)
	kRdYP mKc@ K3BYTE (3)A	68WHO (9)AVER (6)AMIN (18)AEDTo&  	rXO<^L<-<<A>_<^L<A>>>-1>>>o<trP o<tuP o<tkP o<u(WP o<uX<P o<uYVP o<uZ7P o<u]P o<ukrP o<uxUP o<uxrP o<vNP o<vN8P p @x<A==<ZZ==ZZ+1>
.TTC==.q"eJ  P q*-` +

q+= +
q6~i4 C q? 
5S)
	TXC A,<B>
	TXC A,q@ 	.XJwIFB <C>,<	.xA==: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 8qu
	.XCREF	X.$RESET, .$BUILD
	.$RESET
	$TYPE (.CMACT)
	$HELP8 (<>)
	$NEXT (AX)
IFIDN <B> <>,x< IRP C,<C>
			.$BUILD>
IFDIF 8<B> <>,<
	$HELPX (B)
	IRP C,<C>
	.$BUILD><	0

- bn
.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 Yq
	  IFG 8A-INT.LV,<PRINTX X?Level A interruxpts not supported>
	Pl.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 8p
	.XCREF	X.$RESET, .$BUILD
	.$RESET
	$TYPE (.CMCMA)
	$NEXT8 (A)
	IRP B,<B>
	.$BUILD,<	I@ 
	.XCREF	T, .$BUILD
	.$RESET
	$TYPEMCFM)
	IRP<A>
	.$BUILD,<A>
	.$BUILD	$^ 	8p]
	.XCREF		X.$RESET, .$BUILD
	.$RESET
	$TYPE
 (.CMTXT)
	$HELP
8 (<>)
	$NEXT (A
X)
IFIDN <B> <>,
x< IRP C,<C>
			.$BUILD>
IFDIF 8<B> <>,<
	$HELPX (B)
	IRP C,<C>
	.$BUILD><	I

pk
	.XCREF

8.$RESET, .$BUILD

X
	.$RESET
	$TYPE

x (.CMTAD)
	$PDATIDA)
	$NEX)
	IRP B,<B>
	.$BUILD,<	,,U Y{
	  $RET	8			;WILL INVOKE RIGHT ROUTINE
		,h: 
	IFDIF<<,<.XCREF	.%
DEFNE[.$DEFM<POINT
;			.%DEFM==1>
	IFIDN <A> <>,<
IPF1 <
PRINTXg%Nult in $DEFAULT macro>>DE	.` xpG
	.XCREF	.$RESET, .$BUILD
	.$RESET
	$TYPEX (.CMDEV)
	$NEXTx (A)
	IRP B,<B>
	.$BUILD,<	Lz: 
	.XCREF	T, .$BUILD
	.$RESET
	$TYPEMNUX)
	$PDATB)
	$HELP (<
	$NEXT (A)
ixIFIDN,<C> <>,< I
			.$LD>
IFDIF><C
	$HELP (
	IRP D,<D>
	.$BUILD><D>
	.XCREF	T, .$BUILD
	.$RESET
	$TYPEMDIR)
	$NEXT)
	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.
		
	PlLST	+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 0p[
	$CALL	.1STOP
	LSTOF.
	J10UMP	[XWD 0,[ITEXT1P (<A>)]
		 EXP 1p%%.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: p;
	.XCREF	8.$RESET, .$BUILD
	.$RESET
	$TYPEx (.CMFLT)
	$HELP (<>)
	$NEXT (A8)
IFIDN <B> <>,X< IRP C,<C>
		x	.$BUILD>
IFDIF <B> <>,<
	$HELP8 (B)
	IRP C,<C>
	.$BUILD><	$ Xq
	.XCREF	x.$RESET, .$BUILD
	.$RESET
	$TYPE8 (.CMTAD)
	$PDATXA (<CM%IDA!CM%ITMx!CM%FUT>)
	$NEXT (A)
	IRP B,<B>
	.$BUILD,<	$ 0[X
	  INTER00N A
	  $DATA(A,<B>)
	ATA(AyZ|1ib|	"
	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 Xp%
	.XCREF	x.$RESET, .$BUILD
	.$RESET
	$NEXT8 (A)
	$TYPE (.CXMINI)
	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

0c.WTOX.(.OM

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

/ b|.WTOX.(.OM

/@LOG,<A>,<B>,<C>,,<D>)B>,<C	:/
			DEF.$NXT <A>
			.%NXT==1A>
		:|KV 8q_
	.XCREF	X.$RESET, .$BUILD
	.$RESET
	$TYPE (.CMNOD)
	$HELP8 (<>)
	$NEXT (AX)
IFIDN <B> <>,x< IRP C,<C>
			.$BUILD>
IFDIF 8<B> <>,<
	$HELPX (B)
;	$FLAGS (xCM%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)
fxIFIDN,<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$ 
			DINE .$DATA <A>
			.%DATA==1>	B$YP 
			DINE<.$DEFM <POI
			.%DEFM==1>
			.%	CYTR	.%D
			DINE .$DEFR <A>
			.%DEFR==1>	G-} Xq/
	.XCREF	x.$RESET, .$BUILD
	.$RESET
	$TYPE8 (.CMQST)
	$HELPX (<>)
	$NEXT (Ax)
IFIDN <B> <>,< IRP C,<C>
		8	.$BUILD>
IFDIF X<B> <>,<
	$HELPx (B)
	IRP C,<C>
	.$BUILD><	J.I  .`Zz
	  $CALL/	.RETE			
		LSTO/ F.
	  JUMP	ERA$
		LSTON.ERA$	Ni  
lXWa
	.NVR==0
lx			
	.ACM==0			
m

	IRP A,<		
	
m8	..TSAC(.ACB,A)	
mX	
		IFN .ACB,<.A
mxCM==.ACM!1B<A>>	
n
		IFE .ACB,<			
n8
		IFE .NVR,<			
nX
		    PUSHJ P,[
nx			
			>
		  ..
oPUSH(A,\<.NVR+1>
o8)>>	

    IFE .
oXNVR,<	
	IFN .ACM
ox,<	
	    IFE <.A
pCM-17B<T4>>,<.ACM
p8==0
				$CALL .S
pXAVET>
	    IFE <
px.ACM-377B<.A16>>,
q<.ACM==0
				$CA
q8LL .SAVE8>
	    
qXIFE <.ACM-17B<P4>
qx>,<.ACM==0
				$
rCALL .SAVE4>
	  
r8  IFE <.ACM-7B<P3
rX>>,<.ACM==0
				
rx$CALL .SAVE3>
	 
s   IFE <.ACM-3B<P
s82>>,<.ACM==0
			
sX	$CALL .SAVE2>
	
sx    IFE <.ACM-1B<
tP1>>,<.ACM==0
		
t8		$CALL .SAVE1>

tX	    IFE <.ACM-1B
tx<.A13>>,<.ACM==0
u
				$CALL .SV13>
u8
	    IFE <.ACM-
uX1B<.A14>>,<.ACM==
ux0
				$CALL .SV1
v4>
	    IFE <.AC
v8M-1B<.A15>>,<.ACM
vX==0
				$CALL .S
vxV15>
	    IFE <.
wACM-1B<.A16>>,<.A
w8CM==0
				$CALL 
wX.SV16>
	    >>

wx
	IFN .ACM,<	
	
x    IFE .NVR,<			
x8
		PUSHJ P,[		

xX		>

	    .ACB=
xx=0			
	REPEAT ^D
y16,<			
	    IFN
y8 <.ACM&1B<.ACB>>,
yX<	
		..PUSH(\.AC
yxB,\<.NVR+1>)>
		
z.ACB==.ACB+1>>		
z8

	IFN .NVR,<	

zX		PUSHJ	P,@-.NVR(
zxP)	
		 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.@ "8Z#
	  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	$Xa,	b
	a==.
	$xXWD b-1,b-1
	D%EFINE $ETAB <.XCR%8EF	a,	b
		b==.-a>b
		b==	O%| 5[1
S..A::!50	$CALL .STOP
		L5PSTOF.
		JUMP [XW5pD 'A',[ITEXT (<6B>)]
			EXP %%.MOD]
		LSTON.	M	O,(v xp
	.XCREF	.$RESET, .$BUILD
	.$RESET
	$NEXTX	(A)
	$TYPE	(.CxMINI)
	$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>

@ Xq	
	.XCREF	x.$RESET, .$BUILD
	.$RESET
	$TYPE8 (.CMTAD)
	$PDATXA (<CM%IDA!CM%ITMx>)
	$NEXT (A)
	IRP B,<B>
	.$BUILD,<B>
	.$	R/6P[=
	$CALL	T6p%TEXT
	LSTOF.	XC7REF
	JUMP	[XWD 270,0
		 EVL (A)
7P		 ITEXT(<B>)]	
	LSTON.B>)]	
	.XCREF	.$RESET, .$BUILD
	.$RESET
	$TYPEX (.CMTAD)
	$PDATxA (CM%ITM)
	$NEXT (A)
	IRP B,<B>
	.$BUILD,<	R}97 r
	.XCREF	8.$RESET, .$BUILD
	.$RESET
	$TYPEx (.CMTOK)
	$PDAT A (<POINT 7,[ASCI 8Z\B\]>)
	$NEXT  X(A)
	IRP C,<C>
	.$BUILD,<C	S JP\A


  ..TXI`A(.TQA,C,D,E,GpB)	
      IFN .H0.TXEF,<			
	..TEHRR<$TQ(A,B,C,D,E)>>

C,	S@I9 a@^,
	LSTOF.
	X(UQU,Unknown qbualifier)
	X(IQUb ,Invalid qualifieb@r)
	X(IJA,Invalib`d justification acrgument)
	X(IWA,c Invalid width argc@ument)
	X(PEA,Prc`emature end of ardgument)
	X(JNA,Jd ustification is nd@ot allowed)
	X(Ad`NA,Arguments are enot allowed)
	X(e ADS,Address must e@be specified)
	LSTON.
ied)
	L	SN	.REF	.%T
			DEE .$TYP <A>
			.%TYPE==1>
	W= 8qG
	.XCREF	X.$RESET, .$BUILD
	.$RESET
	$TYPE (.CMUQS)
	$HELP8 (<>)
	$NEXT (AX)
	$PDATA (B)
xIFIDN <C> <>,< IRP D,<D>
			.$8BUILD>
IFDIF <CX> <>,<
	$HELP (xC)
	IRP D,<D>
	.$BUILD><D>
	.XCREF	T, .$BUILD
	.$RESET
	$TYPEMUSR)
	$NEXT)
	IRP B,<B>
	.$BUILD,<	^+@ 20[%
IFE %%.O2PTS,<DEFINE $WARN 2p(MSG) <
		$TEXT 3(T%TTY,<% ^W6/[%%30.MOD]/ MSG>)>>
I3PFN %%.OTS,<DEFINE3p $WARN (MSG) <
	4	$TEXT (T%TTY,<% 40^W6/IIB+IB.PRG/ ^4PW/[%%.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

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

bZ
	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

aZ
		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

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

&`bH
		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>)]>>
		>
<	_%]

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

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

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

$b2
		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@

. bv.WTOX.(.OM

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

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

,@bf
.WTOX.(.OM

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

bL
	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

a
		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 lC0KJu]Z6 

	.XREF	a,	b,	c,	

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

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

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

	XIFN!<.%BREA>,<d=

	IFG!<.%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>,<
	xEXP	.$DEFR>			
IFN <.%SBCM>,<
	EXP	.$SBCM>			

]X	b==.-c			

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

	PUR	.%BREA,	.%NXT,
	PURGE	.$BREA,	.$NX
a
	PURGE	a,	b,	
> 
	LIST,	d
> 
	LIST$YVN7,[ASCIZ\0\]NT7,[A$YY lG0KJv	B.- lA0-KJu"5Iy l70KJN\bf= l=0+1KJt:"w
	.XCREF
	SALL
	XLIST
	8DEFINE .$TYP <0>
	.%TYPE==0
	DEFE .$FLGS <0>
	.%FLGS==0
	DEFINDATA <0>
	.%ATA==0
	DEFINEM <>
	.%HLP
	DEFINE0.$D
	.%DEFM=
	DEFINE .$LST
	.%LST==0
M	DEFINE .$BREA <0
	.%BREA==0
	DEFINE .$NXT <0>
Mx	.%NXT==0
	DEFINERTN <0>
	.%RTN==0
	DEFINE <0>
	.%RTN
	DEFINE>.$DE
	.%DEFR==
	DEFINE	.$SBCM
	.%SBCM==0
	.CREF
CM==0lE0KJui' ^.0T 1,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: 
P}
	  ..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 
XxUK
   DEFIN
YE ..CNS2 (NEW,OLD
Y8)<
	  OLD>			
	..CNS ()>			
	:L;Y 
VXUC
   DEFIN
VxE ..CNS (%%%)<
	
W..CNS2 <%%%>,>

W8
   DEFINE ..CNS2
WX (NEW,OLD)<
	DEF
WxINE ..CNS (%%%)<
X
	  ..CNS2 <%%%>,
X8<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 
=xSq
	A==<<<
>-<B>>&<B>>&<1B<^L<B>>>>>&<1B<:~ 
Qu
	  ..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 ` ^
	..PST==`@C-FWMASK
	.IF0 ``..PST,<
		POINT a0,B,35>,<
		POINTR (B,C)>POI;| 
}XWq
		POP P,
}x.NVA
		PURGE .N
~VA
		.NVR==.NVR-1
		.NVR==.NVR;\t 
|XWi
		PUSH P
|x,A
		DEFINE .NV
}B<A>
		.NVR==.NVR+1
		.NVR==.;] $xZ3
	  IFGE %<<<B>&777777>-..%8BSIZ>,<
		PRINTX%X ?WORD offset gre%xater than $BUILD &size parameter>
&8	  SET0. (\<B>,C,<A>)
	B>,;LH 
D8T3
	IFNDEF 
DXC,<PRINTX C IS 
DxNOT DEFINED
	  
EA (<B>,D,FWMASK
E8)>	
	IFDEF C,<
EX
	IFNDEF %C,<
	
Ex  A (<B>,D,C)
F>	
	IFDEF %C,<
F8
	  %C (A,<B>,D,C)>>A,<B>,;LH 
FxTq

	..NS==0
G			
	IRP C,<..N
G8S=..NS+1>	
	IFE 
GX..NS,<PRINTX ?EMP
GxTY STRUCTURE LIST
H, A>
	IFE ..NS-
H81,<		
	  ..STR0 
HX(A,<B>,<C>,D)
Hx>
	IFG ..NS-1,<	
I	
	..ICNS			
	.
I8.CNS (<E (A,<B
IX>,,>) 
	IRP C,<
Ix		
	  IFNDEF C,
J<PRINTX C NOT DE
J8FINED>
	  IFDEF 
JXC,<
	  IFNDEF %
JxC,<
	  ..CNS (<
K,C,D>)>	
	  IF
K8DEF %C,<
	  %C
KX (..STR2,,D,C)>
Kx 
	  ..CNS (<)>)
L		
	  ..GCNS		

L8	  ..ICNS		
	  .
LX.CNS (<E (A,<B
Lx>>) 
	  IFNDEF %
MC,<
	  ..CNS (<
M8,C,D>)>	
	  IF
MXDEF %C,<
	  %C
Mx (..STR2,,D,C)>
N>> 
	..CNS (<,,)>)		
	..GCNS>);LI 
NXTu
	..CNS (<,C,B>).CNS (;LI 
OU


	IFDIF <
O8D><F>,<
	  IFN
OXB <D>,<
	    A
Ox (<B>,D,..MSK)	
P
	    IFNB <F>,
P8<PRINTX C AND E
PX ARE IN DIFFERENT
Px WORDS>>
	  ..MS
QK==0>		
	IFNB <
Q8F>,<
	  ..MSK=..MSK!<E>>MSK=..;LJ 
QxU


	IFDIF <
RD><F>,<	
	  IF
R8NB <D>,<
	    
RXA (<B>,D,..MSK)
Rx>	
	  ..MSK==0>	
S	
	IFNB <F>,<

S8	  ..MSK=..MSK!<E>>MSK=..MSK!<;LJ 
SxU1


	IFDIF <
TD><F>,<	
	  IF
T8NB <D>,<
	    I
TXFNB <F>,<		
		
TxA1 (B,D,..MSK)>
U 
	    IFB <F>,
U8<		
		A2 (B,D
UX,..MSK)>> 
	  ..
UxMSK==0>		
	IFNB 
V<F>,<
	  ..MSK=..MSK!<E>>MSK=;$\Y g ^F
fIF1,<
    PRINTX ? Errgor in "A"
    DgPEFINE X(NAM,ERR) h <IFN ..X'NAM&..TXh@EF,<PRINTX ? ERR>h`>
    $TX$ERR>

    $TX$ERR>
;$^ j@^|

    ..j`TXF==0				
    .k.TXB==0				
    k ..TXP==0				
   k@ ..TXEG==<..TXEF=k`=0>			
    IRPC lA,<				
	..TXC=l =ASCII\A\-35		
	IFN ..TXB,<IFN l`..TXB-..TXC,..CNSm(<A>)
		   IFE m ..TXB-..TXC,..TXBm@==0>
	IFE ..TXB,m`<..TXQ(<A>,\..TXnF)>>	
    ..TXC1n 				
    IFN ..Tn@XB,<IFN <..TXB-"^n`">,<..TXER(PEA)>>o
    ..TXEF==..To XEF!..TXEG		
   o@ IFN ..TXEF,<..TERR<A>>
,<..TE;&( M0\k..TXA(.TQCH0)..TXA(.TQC;&) N@\t..TXER(IQU)..TXER(IQU;&) Mp\o..TXER(IQU)..TXER(IQU;&0 Lp\g..TXA(.TQCHA)..TXA(.TQC;&5 K0\[..TXC0(\".CHLFD).TXC0(\".;&5 L0\c..TXC0(\".CHVTB).TXC0(\".;&6 Kp\_..TXC0(\".CHFFD).TXC0(\".;&6 Jp\W..TXC0(\".CHCRT).TXC0(\".;&@

8Xy
	..TSIZ

X(..PST,C)	
	.CA

xSE ..PST,<<
		SEB>,<	
		HLL>,<	
		HRRZ<	
	AC..TSCT,B)	
	  .IF0 ..ACT,<
	8	$CALL .ZERO	
		XLSTOF.
		JUMP [PxOINTR(B,C)]
		LSTON.>,<
		..TX (Z,B,C)>>>TX;&81 
:8Sk
	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&^
=O777777777760,<A
=8==1>> 
	PURGE ..TSA1>
	PURGE ..;&:= 
8xSO
	A==3		
9	
	IFE <B>+1,<
98A=0>	
	IFE <B>-
9X^O777777,<A==1> 
9x
	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
, ..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>,<
0 
	    ..TX3 (A
08,B)>>	
	IFE ..T
0XX2,<		
	  TDA 
0xB,[..TX1]>	
	PURGE ..TX1,..TX2>;'` 
18S
	IFIDN <
1XA><Z>,<		
	  ..
1xTX2==1
	  ANDI 
2B,^-..TX1>	
	IFI
28DN <A><O>,<		
	
2X  ..TX2==1
	  OR
2xCMI B,^-..TX1>	
3
	IFIDN <A><C>,<
38		
	  ..TX2==1

3X	  EQVI B,^-..TX1>QVI B,^-..TX;'  P`]r



	..TXEQF==0			

IFNDEFQ  A,<..TXER(UQU)>Q@		
IFDIF <B><>,Q`<IRPC B,<.IFN <RB>,NUMERIC,..TXERR (IWA)>>
IFNB <CR@>,<IFNDEF .TXTJCR`,<..TXER(IJA)>>
SIFDEF  A,<
  IFS E <A_-^D18>,<IFDS@IF <EFBCD><>S`,<..TXER(ANA)>>
T  IFE <1-<A_-^D1T 8>>,<IFDIF <BCT@D><>,<..TXER(JNA)T`>>
  IFE <2-<A_U-^D18>>,<IFIDN <U EF><>,<..TXER(ADU@S)>>>

      IFU`E ..TXEF,<
	IFIDVN <B><>,<..TXWD=V =<..TXJU==<..TXFCV@==0>>>
	IFDIF <V`B><>,<
	  IFE <^WD<B>>,<..TXWD==<W ..TXJU==<..TXFC==W@0>>>
	  IFN <^D<W`B>>,<..TXWD==^D<XB>
	    IFNB <X C>,<..TXJU==.TXTJX@C>
	    IFB  <X`C>,<..TXJU==.TXTJYL
	      IFE <AY -.TQOCT>,<..TXJU=Y@=.TXTJR>
	Z     Y`IFE <A-.TQDEC>,<Z..TXJU==.TXTJR>>
	    IFB  <D>,<Z@..TXFC==" ">
	  Z`  IFNB <D>,<..TX[FC=="D">>>

	I[ FB  <EF>,<..TXP[@T==0>
	IFNB <E[`F>,<..TXPT==1>
	\IFE <..TXWD+..TXP\ T>,<
	    EXP FL\@D(A,TXT.FN)>
	I\`FN <..TXWD+..TXPT]>,<
	    EXP FLD] (A,TXT.FN)+FLD(.]@.TXJU,TXT.JU)+FLD]`(..TXWD,TXT.WD)+F^LD(..TXFC,TXT.FC)^ +TXT.AD
	    PNTR(E,F)>>

T;'h

 `
    IFE

@..TXP,<			
	..IC

`NS			
	..CNS<ASC

IZ\>		
	..TXP==1

 >		
    ..CNS<A

@>			
    ..TXF==

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

 `"

    IF

@N ..TXP,<			
	..

`CNS<\>		
	EXP <F

LD(.TQCHT,TXT.FN)

 +[..GCNS]>>
    ..TXP==0>
    ;'	9 i ^P
    ..TXi@EF==..TXEF!..XA	i`	
    ..TXF==0		j		
    ..TXB=="^"
    ..TXB=="^;'

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

( p@_


    IFp`N ..TXC-"^",<..TXqC0(<A>)>		
    q IFE ..TXC-"^",<..TXF==1>-"^",<..;'

( q`_*

    IFrE ..TXC-"^",<..TXr C0(<A>)>	
    Ir@FN ..TXF,<			
	.r`.TXF==0		
	IFDEFs .TQCHA,<		
	  s   IFDEF ..TQMA,.s@.TQMA 
	    IFNs` <.TQCHA_-^D18>,t<..TXF==2>>>
   t  IFE ..TXF-2,<..Tt@XC1(<A>)	
	..ICt`NS			
	..CNS<..TuXA(.TQCHA,>>	
 u    ..TXEG==..TXEG!..TXEF==..TXEG;'

) u`_<
    ..TXvF==3				
    IFGv E ..TXC-"0",IFLE v@..TXC-"9",<..TXF=v`=2>
    IFE ..TXwF-2,<..CNS(A)>		w 
    IFE ..TXF-3w@,<..CNS<,>		
		 ..TXQ3(A)>
		 ;'

) x_P
    ..TXx F==4				
    IFEx@ ..TXC-"/",<..TXFx`==5>		
    IFE .y.TXC-"[",<..TXF==y 5>		
    IFE ..Ty@XF-4,<..CNS<A,>>y`		
    IFE ..TXFz-5,<..CNS<,,>		
		 ..TXQ5(A)>
;'

* z@_f
    ..TXz`F==4				
    IFE{ ..TXC-"/",..TXF={ =5		
    IFE ..T{@XC-"[",..TXF==5		{`
    IFE ..TXF-5|,<..CNS<,>		
		 | ..TXQ5<A>>		
  |@  IFE ..TXF-4,<..|`CNS<A,>		
		 ..TXF==5>	
		 ..;'

* } _x
    ..TX}@F==6				
    IFE}` ..TXC-"/",..TXB=~="/"		
    IFE .~ .TXC-"[",..TXB=="~@]"
    IFE ..TXB~`-"]",..CNS<[>		
    IFE ..TXB,..TXF==5 ..TXB,..T;'

+ @`
    ..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  
iVI
	.ACV2 (A)
	.ACV2 (d@ 
iXVS
	A=.FPA
ixC+..NAC		
	IFB <
jB>,<..NAC=..NAC+
j81>
	IFNB <B>,<..NAC=..NAC+B>.d` 
jxVa
	IFG A-
k.NPAC,<PRINTX ?TO
k8O MANY ACS USED>
kX
	IFLE A-4,<
	 
kx $CALL .SAVEA>	
l
	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 
| 	(xJE
	XLIST
	(X	.ORG 0
	LIST
.ORG 0
	LIST

=Z XYu$CALL	I%INTA$CALL	I%IN9  
6xSA
	..CSN==
7A
	..CSC==0
	I
78RP B,<
	IFE ..C
7XSN-..CSC,<
	  ST
7xOPI
	  ..CAS1 (
8B)>
	..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 	8XU
	..PST==	XC-FWMASK
	.IF0 	x..PST,<
		SOS B
>,<	
		$CALL .SO
8S	
		LSTOF.
		J
XUMP [POINTR(B,C)]
		LSTON.>C}

 bP
	.OPCD==

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

	.v=H 
`XV
	IRP A,
`x<
	  .ENSV2 (A)>	  .ENSV2 (A)v=I 
a8V
	.ENSV3 (A)
	.ENSV3 v=I 
axV
	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 
5XS3
	..IFT==
5xA		
	IFE ..IFT,
6<
	B
	..IFT==0
68>		
	IFN ..IFT,<
	C>N ..IFT,<&4 Ye
	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 	vxO7<A>B<^D70-POS(B)>B<^D70N

0PO 
	SYSPRM	C	
	IFG	.PID,<MX.PID==A>	
<MX.PID=O%=H 
\XUe
	.STKV2 (A)
	.STKV2 O%=I 
]Us
	IFB <B
]8>,<..STKN==..STKN
]X+1>
	IFNB <B>,<
]x..STKN==..STKN+B
^>
	..STKQ==..STK
^8N+1
	.STKV3 (A,\..STKQ)V3 (A,O%=I 
^xV
   IFDEF
_ A,<.IF A,SYMBO
_8L,<PRINTX STKVAR 
_XA ALREADY DEFINE
_xD>>
	DEFINE A<-
`^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  
dXV%
	.TRV2 (A)
	.TRV2 (Sd@ 
eV/
	.TRV3 (
e8A,\..NV)	
	IFB 
eX<B>,<..NV=..NV+1
ex>
	IFNB <B>,<..NV=..NV+B>,<..Sd` 
f8V=
   IFDEF
fX A,<.IF A,SYMBO
fxL,<PRINTX TRVAR 
gA ALREADY DEFINED
g8>>
	DEFINE A<^O
gXB(.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 _%~

0`c"
		$CALL

1I%WTO		
		LSTOF.

1 			
		JRST	g

1@
		$WTRST			
	IF

1`NB <A>,<$WTMTY (

2<A>)>	
	IFNB <

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

2@>	
	IFNB <C>,<$

2`WTTXT (<C>)>

3IFNB <D>,<$WTOBJ

3  (<D>)>	
	IFNB

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

3`>)>	
		IRP F,<

4F>		
		$WTBLD

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