PDP-10 Archive: 10,7/galaxy/glxlib/glxmac.unv from BB-BT99V-BB

Trailing-Edge - PDP-10 Archives - BB-BT99V-BB_1990 - 10,7/galaxy/glxlib/glxmac.unv

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

x
,Ue@P C4@ .pZ{
	..NAC==/0		
	IRP A,<
	/0  .ACV1 (A)>		
	.ACV3 (\..NAC)C' 
VpU7..AS(A,B,ADD,SUB)(A,BC, 
88SCLSH A,-^D9LSH A,-^DC2f}

Sxe1
	.EAWTO(

TMTY,0)
	.EAWTO(T

T8YP,2)
	.EAWTO(TX

TXT,2)
	.EAWTO(OBJ

Tx,0)
	.EAWTO(ACK,

U0)
	.EAWTO(FLG,1

U8)
	.EAWTO(NOD,0)

UX
	.EAWTO(JBN,0)

Ux
	.EAWTO(ACD,0)

V	.EAWTO(OCD,0)
	.EAWTO(MFL,1)
C:' 
{0W[
	TXZ A,<^-<B>>TXZ A,CHuI7Q xCHvN8P'CJ9ip CJ9jp CJ9l}p E
	..NA==0VP			
	IRP B,<
	Vp  .BCAL2 B>		
	WPUSHJ	P,A		
	ADW0JSP	P,-..NA		
   	P,-..NA		
  E2"@ qP_
	  IFE qpB,<..TA==0>
	  rIFN B,<EXP ..TAr0
		    PURGE ..TA>
	PURGE ..TE@tP'E@vyQ ~E@v:=Q |F;z:Q @G@ 
OpT
	    ..CX(,A,B)   ..CGD 
S0U
	    ..CX(A,A,B)  ..CGDP 
Q0U
	    ..CX(E,A,B)  ..CGDp 
QpU
	    ..CX(G,A,B)  ..CGDy  
R0U
	    ..CX(GE,A,B) ..CGE@ 
P0U
	    ..CX(L,A,B)  ..CGEI  
PpU
	    ..CX(LE,A,B) ..CGE` 
RpU
	xlc..CX(N,A,B)  ..CGH 

	xOLST

	X	CRE		
GX	X	GEN		
	X	PRT	
	X	CLS		
	X	A		
	X	USW		
	X	SPL		
	X	SIZ		
	X	MOD		
	X	CH
	X	ACT		
	X	CRY		
	X	DTY		
	X	DTO		
	X	DCC
	X	BSZ		
	X	SZ		
	X	HSZ		
Ix	X	RFM		
	X	RFO	
	X	RSZ		
	X	B		
	X	FFB		
	XX	ACW		
	X	RMS		
	X	MCY		
	X	CT
	X	NSB		
	X	ACD		
	X	MTA		
	X	STS		
	X	IDT
	X	PCA		
	X	IM		
	X	LAD		
L8	X	EXP		

	  LSTON.


	  LSG"\Y h8~Y

	IF1, hX<%%EDT==AEDT>	
hx
	IF2, <IFN <%%EiDT-AEDT>,<
		PRi8INTX ? Edit NumbeiXr Doesn't Match GixLXVER in GLXA
	j	A$WHO(\AEDT)>	j8
		A$NOTE		
	IjXNTERN AEDT		
	IjxNTERN LODLEV		
;k	PURGE %%EDT> ;END IF2

pG(tSQ @G(tEHQ G(tHwQ  G(tI8Q pG(vyP 8G(v<P'G(v=P G(vJ6Q xG*iVp G*kVp G*lzp G*l}p G*mp G4,YP G4,,UQ G4,LQ G4,[qQ G4,\qQ @G4,iVQ xG4,kQQ `G4,m:Q G4,m`Q @G4,zQP'G4-

Q  G4-Q @G4-ZQ G4-[P G4-Q  G4-LzP'G4-htQ G4-kxQ  G4-kyP G4-lsQ G4.	RQ G4.`Q @G4.

zQ G4.(4Q G4.,Q G4.9Q G4.=zQ G4.lXQ @G4.zsQ  G4.{Q G4.{Q G4/
3Q @G:YlP

G>hKW hB
	IFNB <>,<
	PRINTX  (Fro(m GLXVER)
	> ;END IFNB 
	G>hMt (:
	PRINTX HGLXVER	GLXCOM Ediht(63) by DPM on 9-Aug-88
	PRINTX	(    	GLXCOM	Actual Edit(A)
	G>lYP G>vC@ 	xPOMLALL
PAGE	xp; (A Continued o	yn next page)
SAL	y0L; (A Continued 	yPfrom previous page) previous pagG?T 	p(OASCIZ \
COPYRIGHT Z \
CGHt;rP GHtkP GHv	P GHv)9P GHv:=P I!k7P I!k<P ImP I$P`SQ*IIY{P`SS*|I  Np\}
	IFNB <OB>,<..STR0 (.DECRO00,,<B>,A)>
	IFOPB  <B>,<SOS A>  <B>,<SOS A>I6= 0X?
	A==<-1PB<C>+1B<C-D>> p
	IF1,<IFDEF %A,<PRINTX ?A ALRE0ADY DEFINED>>
	DPEFINE %A (OP,AC,pY,MSK)<	
	IFDIF <Y><>,<
	OP (<AC0>,B+'Y,MSK)>
	IPFIDN <Y><>,<
	OPp (<AC>,B'Y,MSK)>>AC>,B'Y,MSK)>I'7 
Y0UK..OP(A,B,DIV)..OP(A,BIOH1 vhw@
	IFB <Dw>,<
	XWD	[ASCIZ\w(C\],[XWD B,A]>wH
	IFNB <D>,<
	whXWD	[EXP CM%FW!Dx
		ASCIZ\C\],[XWD B,A]>
,[XKuzQ @KuLzQ Ku|zQ  KvHVQ KH(Q P :KJ

,bPBKJ)bPb  KJ=P +KJ{P 	KJIBP !KJ=bP (KJIP &KJZ"P 0KJ|P 4KJX"P KJ9P &KJ$\BP *KJ$kP KJ$nBP KJ$|bP KJ%bP KJ%h"P KJ%i"P KJ%lP :KJ%|BP KJ&I"P +KJ&K"P KJ&mP #KJ-P

KJ-iBP 1KJ-l"P )KJ-yBP KJ-{P 	KJ.;P 'KJ4"P KJ4"P 0KJ4+"P %KJ49BP KJ4="P )KJ4I"P KJ4LbP KJ5bP $KJ5iP KJ5iBP KJLbP 5KJL;BP KJLLBP 8KJLMP KJLMBP 6KJL^P 7KJLh"P /KJLhBP 3KJLkBP KJLlP KJLlbP KJL{BP 7KJM+BP KJMHbP -KJMLBP KJMh"P 6KJMiP 5KJMmP KJMmbP KJN

P ,KJN

bP KJNI"P

KJNIBP KJN\bP KJfkP (KJlIP KJlLbP KJt1P KJt9"P KJt:"P #KJtKBP 3KJtlP 2KJtmP -KJu"P 8KJuX"P KJu]P KJuhbP KJuiP KJu{"P KJv	BP KJv
"P 2KJv

bP .KJvbP KJv)"P KJv9P KJv;P 1KJv;BP KJv<P KJv=bP KJv[P KJv["P KK-P KKx"P 4KK

YBP
	IF1,<IFA$,PRINTX 
	ERA$=%
	ER%%%==ER%%%+1
R%%%==EKKP KK,}P KKLP KK|Y 
	ERR	EOFof file>
	8ERR	IFP,<Illegal 
	xERR	FDE,<File dat
	ERR	FNle is not on
	ERR	NSD,h device>
	ERR	FCF,<Fileiced>
	ERR	SLE,<A sys exc
	ERR	IFS,lofile spe
	ERRNF,<File not fo
	ERR	PRT,<P violati
	ERR	DNA,<Devailabl
	ERR	NCE,<Noentry i
	ERR	NMAPCF message
 is available>
	
8ERR	FDS,<Files ar
Xe on different st
xructures>
	ERR	FFile already 
	ERR	USEpected syst
	ERR	N

SP,<No such pid>

8
	ERR	BOL,<Beginn

Xing of list reach

xed>
	ERR	EOL,<Eneached
	ERR	RQF,<Receull>
	ERR	SQF,<Sende>
	8ERR	NRE,<No>remem
	ER	TBF,<Table is f
	ERR	EIT,<Ty alread
	ERR	IInvalid table
	ERR	QEFa exceeded 
	ERR	ARG,<Invalidea
	ERR	IFN,<Inva spec
	ERR	IJN,dfjob>numb
	ERR	RAD,<Invalid r
	ERR	NUM,<Invalid
	ERR	IDT,<Invald sp
	ERR	ITvalidftime f
x	ERR	DOR,<Date/ti
	ERR	DTM,<Valuete/t
	ERR	MDD,<My in dat
	ERR	DFZdezero in d
	ERR	MMnemonic date
	ER	DFL,<Fieldetoom
	ERR	ILR,<Illormat 
	ERR	NND,<Negativei
	ERR	NPF,<Noethernp
	ERR	,<Relativerdat
	ERR	NSW,<Switcgin 
	ERROM,<Unrecognize
	ERR	NUL,<Nuor keyw
	ERR	,<Invalid guid
	ERR	NC,onfirmed>
x	ERR	ICN,<Invalid
	ERR	NQS,<Iotedtstr
8	ERR	AMB,<Ambiguo
	ERR	NMT,<Datch tok
	ERR	CMA,<Coven>
	xERR	NNC,<Nodeenam
	ERR	INT,<Nodemterm
	ERR	NSN,<Unknown n
	ERR	IInvalidopath 
	8ERR	IUS,<Invalido
	ERR	DGS,<Devyrnote
	ERR	DNE,<Unce>
	ERR	DIO,<Device ca
	ERR	BDvalid>date/t
	ERRBS,<Fieldetooll
	ERR	TMTandetoollon
	ERR	BDS,<default s
	ERR	BTF,d table fo
	ERR	TME,<eumust>be
)8	ERR	TMN,<Noetime
	ERR	TMA,<Tialready
	ERR	DVviceutermina
	ERR	NArgument bloc
	ERR	TLUinalolocati
	XERR	FIO,<File is 
	ERR	FBle being mod
	ERR	WLK,locked dev
	ERR	CSD,<Cersede a
	ERRDD,<Cannottdele
	ERR	SNb-fileudirec
/x	ERR	ESL,<Search 
	8ERR	LVL,<SFDpleve
	ERR	CCWotacreate/w
	ERR	FCU,<Cae file>
	ERR	ENQ,<FileingeE
	ERR	SWS,<Softock o
	ER	DER,<Hardware d
	ER	DTE,<Hard data 
	ERR	BKT,too large>
	ERR	IPP,<Non-e
	ER	TRN,<RIBeorotra
	ERR	ILC,<Illega da
	ERR	NFte/timeumust
	ERR	NPS,<Datee in 
	ERR	UUnrecognizedm
	ERR	UDN,<Unrame in
	ERRFA,<Illegal fil
	ER	FAI,<Fileiattri
	ERR	CEI,<Canisable
	ERR	ENF,<Linky not
	ERR	NSLuch linked 
	ERR	NFP,<pages>
	xERR	NPI,<NoPfreee
	ERR	IFdirect	filer
	ER	NDN,<Nullndevic
>x	ERR	PWA,<PID wen
	ERR	CGPt get a PID
	ERR	IND,<Invae>
	ERR	IAC,<Invalid 
	XERR	IDV,<Invalid 
	ER	INA,<Invalid fi
	ERR	IEvalid file e
	ERR	IInvalidrgener
	ERR	IDR,<Invalidrd
	ERR	NHA,<Nailable>
	ERR	TOF,<Timeor FR
	ERR	TOP,<waiting f
	ERR	DNPndencies not present>
 noKKBP 
KKI"P KKiBP 'KKBP 
KK|bP *KK$)BP KK%M"P $KK%X"P "KK%Y"P !KK%[BP "KK%]P  KK%yBP 9KK%|P 9KK&+BP ,KK,K"P .KK,KBP /KK-*"P KK.9"P KK=JbP %KLtkQ xKLv:=Q xKLv=P'KO&:=p KZ`

(`L
	IFIDN <

HBC><>,<EXP <A>

h>
	IFDIF <BC><

>,<
	 IFE <A+1>

(,<<POINT 7,C>>

H	 IFN <A+1>,<

h   IFIDN <C><>,<

	EXP <A,B>>

	( IFDIF <C><>,<EX

	HP <A,B,C>>
	>>A,B,C>>
	>KbN@ 	`Kc  	vO3IRP A,<
	v0	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$trP 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$ty7P M$u

}P M$uP M$uWQ  M$u6Q @M$uH2P M$uI7Q xM$uX|P

M$u[rP M$u]P 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$vJ6P M$v\{P M&`KW H
	IFNB <>h,<
	PRINTX  (From GLXVER)
	> ;END IFNB 
	M&`Mt 
	PRINTX (GLXVER	GLXFIL EdiHt(122) by DPM on h18-Sep-89
	PRINTX	    	GLXFIL	Actual Edit(A)
	M&dYP )M2  
=Si<<<A>B<POS(<B>)>>&<B>>M>h1p M>hrp M>h{p M>iRp M>k=p M>l}p M>m9p MHuiWQ @MHv
Q  MJh1p MJhrp MJip MJiVp MJk=p MJlsp MJl}p MJm9p MR4zP MR6L`P MRV>9P MS.[yQ MVpKW H(
	IFNB <>h,<
	PRINTX  (From GLXVER)
	> ;END IFNB 
	MVpMt  
	PRINTX (GLXVER	GLXFUN EdiHt(2) by BAH on 14h-Nov-86
	PRINTX	    	GLXFUN	Actual Edit(A)
	MVtYP M^luQ O2|  	vpOAIRP A,<
	w	IF2,<IFDEF A,<.	w0IFN A,EXTERN,<IN	wPTERN A>>
	     	wpIFNDEF A,<EXTERN	x A>
	Q SUPPRESPA>>FlYSUPPRO3DYPFFO3EKrPfFO3EZ7PO3FLQ St\Yp Stkp SuZp SulQ Su}:p Sv
1p Sv

Sp Sv8;Q Sv>@p SNn 
XpUG..OP(A,B,IDIV).OP(A,BSNp @S7-N 
WpU?..OP(A,B,IMUL).OP(A,BS:  Kp\e
	IFNB <LB>,<..STR0 (.INCRL00,,<B>,A)>
	IFLPB  <B>,<AOS A>  <B>,<AOS A>S:HKW 
	IFNB <>(,<
	PRINTX  (FroHm GLXVER)
	> ;END IFNB 
	S:HMt H
	PRINTX hGLXVER	GLXINI Edit(24) by RCB on 2(3-Jun-89
	PRINTXH	    	GLXINI	Actual Edit(A)
	S:LYP 
S;k 
?PS}<<<A>B<POS(<B>)>>&<B>>S; KW {H`
	IFNB <>{h,<
	PRINTX  (Fro|m GLXVER)
	> ;END IFNB 
	S; Mt zX
	PRINTX z(GLXVER	GLXINT EdizHt(120) by DPM on zh29-Nov-89
	PRINT{X	    	GLXINT	Actual Edit(A)
	S;!kP S;!k<P S;$YP (S? 
zpWW
	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 H
	IFNB <>h,<
	PRINTX  (From GLXVER)
	> ;END IFNB 
	SBMt x
	PRINTX (GLXVER	GLXIPC EdiHt(77) by LWS on 2h4-Aug-87
	PRINTX	    	GLXIPC	Actual Edit(A)
	SBIP SBM"P SBYP SBlP SB2P SB

BP SB,BP SB,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/

`T
	LSTOF.

(XCREF
	..TEXT<A

H>		
	  EXP	0		
	LSTON.
	0		
Uv98Q |U$@

5Xm

	OLST

	XJJNO,.JI,GJBJNO>	
	X-TNO,.JITNO,<
	XUSR,.JIUNO,.GTPPN
	X,CDN,.JIDNOH>	
	xXGPRG,.JIPNM,.GTP
	XPCJN,.JICJBCJB>	
	XTBAT,.JIBCH,.G
	XIJLT,.JTJLT		
	X,LOC,<-1,,GJBLOC>
	xXJRTM,.JIRT,<-1,,
	X<TLC,GJBTLC>,<-1,
	  LSTON.


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

SP U$v-P U$vKP U$vKWP U$v\yP U&j2p U&jWp U&kVp U&lxp U&m9p U&:=p U?0 +0UKI@ +UVn	@ 4@UVn
 KW 
	IFNB <>(,<
	PRINTX  (FroHm GLXVER)
	> ;END IFNB 
	W
 Mt H


	PRINTX hGLXVER	GLXKBD Edit(103) by LWS on (24-Aug-87
	PRINTHX	    	GLXKBD	Actual Edit(A)
	W
$YP !WNH1 xHwL
	IFB <Cxh>,<
	XWD	[ASCIZ\yB\],A>
	IFNB <y(C>,<
	XWD	[EXP yHCM%FW!C
		ASCIZ\B\],A>
SCIZY"luQ xY&i1 
S;

	  LST
8OF. XCREF

	CDO
X	OTSINI			
	CDO	
x    			
	CDO	.ZP
AGA
	CDO	.ZPAGN
8
	CDO	.ZCHNK
	CD
XO	.SAVE1
	CDO	.S
xAVE2
	CDO	.SAVE3

	CDO	.SAVE4
	C
8DO	.SAVET
	CDO	.
XSV13
	CDO	.SV14
x
	CDO	.SV15
	CDO
	.SV16
	NT	.RETT
8
	NT	.RETF
	CDO
X	.RETE
	CDO	.AOS
x		
	CDO	.SOS		

	CDO	.ZERO		
	NT
8	.POPJ		
	CDO	.S
XTOP		
	CDO	.SAVE
x8		
	CDO	.STKST	
	
	CDO	.TRSET		
8
	NT	.POPJ1		
	C
XDO	.UD2SC		
	CDO
x	.SC2UD		
	CDO	.
CPUTY		
	CDO	.DI
8E		
	CDO
	CDO

X
	CDO			
	CDO	C
x%RPRM
	CDO	C%INT
R
	CDO	C%SEND
	
8CDO	C%RECV
	CDO	
XC%BRCV
	CDO	C%RE
xL
	CDO	C%CPID
	
CDO	C%KPID
	CDO	
8C%SPID
	CDO	C%MA
XXP
	CDO	C%PIDJ

x	CDO	C%PIDH
	CDO
 	C%SIDX
	CDO
	C
 8DO
	CDO

	CDO	
 X      			
	CDO	F
 x%IOPN
	CDO	F%AOP
!N
	CDO	F%OOPN
	
!8CDO	F%IBYT
	CDO	
!XF%OBYT
	CDO	F%IB
!xUF
	CDO	F%OBUF

"	CDO	F%REL
	CDO	
"8F%DREL
	CDO	F%RR
"XEL
	CDO	F%REW
	
"xCDO	F%POS
	CDO	F
#%CHKP
	CDO	F%INF
#8O
	CDO	F%FD
	CD
#XO	F%REN
	CDO	F%D
#xEL
	CDO	F%FCHN

$	CDO
	CDO
	CDO
$8
	CDO
	CDO
	CDO
$X
	CDO
	CDO
	CD
$xO	FUNCT.			

	C
%DO	      			
	CD
%8O	M%ACQP
	CDO	M%
%XRELP
	CDO	M%IPSN
%x
	CDO	M%NXPG
	C
&DO	M%IPRC
	CDO	M
&8%IPRM
	CDO	M%AQN
&XP
	CDO	M%RLNP
	
&xCDO	M%CLNC
	CDO	
'M%FPGS
	CDO	M%GM
'8EM
	CDO	M%RMEM

'X	CDO
	CDO
	CDO
'x
	CDO
	CDO
	CDO
(
	CDO	M%GPAG
	C
(8DO	M%RPAG
	CDO

(X	CDO
	CDO
	CDO
(x
	CDO
	CDO
	CDO
)
	CDO

	CDO	  
)8    			
	CDO	T%T
)XEXT
	CDO	T%TTY

)x	CDO
	CDO
	CDO
*
	CDO
	CDO
	CDO
*8
	CDO
	CDO
	CD
*XO
	CDO

	CDO	 
*x     			
	CDO	L%
+CLST
	CDO	L%DLST
+8
	CDO	L%CENT
	C
+XDO	L%CBFR
	CDO	L
+x%DENT
	CDO	L%NEX
,T
	CDO	L%FIRS
	
,8CDO	L%LAST
	CDO	
,XL%PREV
	CDO	L%PR
,xEM
	CDO	L%CURR

-	CDO	L%RENT
	CDO
-8	L%SIZE
	CDO	L%A
-XPOS
	CDO
	CDO

-x	CDO
	CDO
	CDO
.
	CDO
	CDO
	CDO
.8

	CDO			
	CDO
.X	I%NOW
	CDO	I%EX
.xIT
	CDO	I%ION
	
/CDO	I%IOFF
	CDO	
/8I%SLP
	CDO	I%INT
/X1
	CDO	I%INT2
	
/xCDO	I%INT3
	CDO	
0I%TIMR
	CDO
	CD
08O
	CDO	I%SOPR
	
0XCDO	I%WTO
	CDO

0x	CDO	I%HOST
	CDO
1	I%JINF
	CDO	I%C
18JOB
	CDO	I%KJOB
1X

	CDO	S%U2DT		
1x
	CDO	S%DT2U
	CD
2O	S%DATI
	CDO	S%
28SIXB
	CDO	S%CMND
2X
	CDO	S%TBLK
	C
2xDO	S%SCMP
	CDO	S
3%ERR
	CDO	S%INTR
38
	CDO	S%EXIT
	C
3XDO	S%TBAD
	CDO	S
3x%TBDL
	CDO	S%NUM
4I


	CDO	K%RCO
48C			
	CDO	K%WCOC
4X
	CDO	K%SUET
	C
4xDO	K%STYP
	CDO	K
5%TXTI
	CDO	K%SOU
58T
	CDO	K%BOUT
	
5XCDO	K%BIN
	CDO	K
5x%BACK
	CDO	K%TPO
6S
	CDO	K%BUFF
	
68CDO	K%FLSH
	CDO	
6XK%OPEN
	CDO	K%EC
6xHO
	CDO
	CDO
	
7CDO
	CDO
	CDO

78	CDO
	CDO
	CDO
	  LSTON.
Y:W d
	IFNB <>(,<
	PRINTX  (FroHm GLXVER)
	> ;END IFNB 
	Y:XMt H\
	PRINTX hGLXVER	GLXLNK Edit(11) by AWC on 2(9-Jan-82
	PRINTXH	    	GLXLNK	Actual Edit(A)
	Y:\YP Y>

@ E0\1
	IFNB <EPC>,<..STR0 (..LDBEp,A,C,B)>
	IFBF  <C>,<MOVE A,B>C>,<MOVE A,Y>%I;P YO%GP YO%yG 	zO[
	IFNDEF 	z0LSTIN.,LSTIN.==0		zP	
IFE LSTIN.,<
	zp	IFIDN <XCREF><A	{>,<.XCREF>	
		  	{0 XLIST>		
	LSTIN.==LSTIN.+1STINYO%{G 	{pOe
	IFG LST	|IN.,LSTIN.==LSTIN	|0.-1	
	IFLE LSTIN	|P.,<.CREF		
		      LIST>
		   [KW ~t
	IFNB <>~(,<
	PRINTX  (Fro~Hm GLXVER)
	> ;END IFNB 
	Z[Mt |Hl
	PRINTX |hGLXVER	GLXMAC Edi}t(525) by DPM on }(16-Oct-89
	PRINT}HX	    	GLXMAC	Actual Edit(A)
	[YP *[3@ 
?Sy<<<1_<A>>-1>B<B>>_<A>>[8@ 
>Sq1B<<A>-1>-1B<B><<A>-1>[@ 
XQ!
	IFB <B
x>,<MAXSIZ==0
		I
RP A,<IFG <A-MA
8XSIZ>,<MAXSIZ==A
X>>>
	IFNB <B>,<
xB==0
		IRP A,<
IFG <A-B>,<B==A>>>
B>,<B==[tP'[t;ZQ x[v
8Q [v
QP [v
TP'[vQv[v:Q[vuQ [vxQp[vlXp [lrp [ltp [lxp [l}p [hKW 
HX
	IFNB <>
h,<
	PRINTX  (From GLXVER)
	> ;END IFNB 
	[hMt 	P
	PRINTX 	(GLXVER	GLXMEM Edi	Ht(33) by DPM on 1	h9-Apr-88
	PRINTX
	    	GLXMEM	Actual Edit(A)
	[lYPuQ @[th:Q [u[yQ [ukvQ  [v=3P'[v|WQ [&p 
XQ5
	IFB <B
x>,<MINSIZ==377777
,,777777
		IRP 
8A,<IFG <MINSIZ-A
X>,<MINSIZ==A>>>
x
	IFNB <B>,<B==
377777,,777777
	
8	IRP A,<IFG <B-
XA>,<B==A>>>
A>,<B==A>>>
[>!` 
>PSu<A-<A/B>*B><A-<A/B[?7 
@Tc
   ..MX1
@0==B			
IFDEF .P
@PSECT,<
   .IFN .
@p.MX1,ABSOLUTE,<

A	MOVE A,[B]>
 
A0  .IF ..MX1,ABSOL
APUTE,<
	..MX2==0	
Ap	
	IFE <..MX1>B5
B3,<
	  ..MX2==1
B0
	  MOVEI A,..MX
BP1>	
	IFE ..MX2,<
Bp		
	IFE <..MX1>B
C17,<
	  ..MX2==1
C0
	  MOVSI A,(..
CPMX1)>>	
	IFE ..M
CpX2,<		
	IFE <<..
DMX1>B53-^O777777>
D0,<
	  ..MX2==1

DP	  HRROI A,<..MX
Dp1>>>	
	IFE ..MX2
E,<		
	IFE <<..MX
E01>B17-^O777777B17
EP>,<
	  ..MX2==1
Ep
	  HRLOI A,(..M
FX1-^O777777)>> 

F0	IFE ..MX2,<		
	
FP  MOVE A,[..MX1]
Fp>	
	>>

IFNDEF
G .PSECT,<
	..MX2
G0==0		
	IFE <..MX
GP1>B53,<
	  ..MX2
Gp==1
	  MOVEI A,
H..MX1>	
	IFE ..M
H0X2,<		
	IFE <..M
HPX1>B17,<
	  ..MX
Hp2==1
	  MOVSI A
I,(..MX1)>>	
	IFE
I0 ..MX2,<		
	IFE 
IP<<..MX1>B53-^O777
Ip777>,<
	  ..MX2=
J=1
	  HRROI A,<
J0..MX1>>>	
	IFE .
JP.MX2,<		
	IFE <<
Jp..MX1>B17-^O77777
K7B17>,<
	  ..MX2
K0==1
	  HRLOI A,
KP(..MX1-^O777777)>
Kp> 
	IFE ..MX2,<	
L	
	  MOVE A,[..
L0MX1]>	
>
	PURGE ..MX1,..MX2RGE[Lt;ZQ x[LvN8P'[NF:=p [N^= 0XU
	A==C	P	
	IF1,<IFDEF %pA,<PRINTX ?A ALR	EADY DEFINED>>
		0DEFINE %A (OP,AC	P,Y,MSK)<	
	IFDIF	p <Y><>,<
	OP (<A
C>,B+'Y,MSK)>
	
0IFIDN <Y><>,<
	O
PP (<AC>,B'Y,MSK)>>AC>,B'Y,MSK)[PuySP'[PvNP'[Vg 
X0UC..OP(A,B,MUL)..OP(A,B[`v
2P ] 	tPO'IF2,<IFDEF	tp A,<A==A>> IFNDEF A,<A==B>]F@ q`TEMFDB##_
QkRp _
Ql}p _
Qmp _
Qm7p _
T=

5o 

	X	.OTReader
	X	.OU,Network-Cont
	X	.OTLPTr
	X	.OTBtch-Stream
i`	X	.OTCDP,Card-Pu
	X	.OTPTP,Pa
	X	.OTPLter
	X	.OTTerminal
	X	OTJOB,Job
	X	.OR,Operator
	X	.OTIBM,<IBM Remo
	X	.OTMNT,<D
	X	.OTFTSTransfer>
	X	.OTBIN,<Cardrete
	X	.OTRET,<Fil>
	X	.OTNOT,<Retrieva
r@	X	.OTDBM,<DBMS S
	X	.OTFALtream>
	X	.OTEVT,<Event>
s@	X	.OTFCH,<Microf
	X	.OTXER,
	X	.OTNQ-Stream>
,<NQC-Stream>
_SKW H0
	IFNB <>h,<
	PRINTX  (From GLXVER)
	> ;END IFNB 
	_SMt (
	PRINTX (GLXVER	GLXOTS EdiHt(14) by RCB on 2h3-Jun-89
	PRINTX	    	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\yQ al}P aI3 p;

	..XX=x=<FLD(A,CM%FNC)>X+B+<Z F> 

  x IFNB <D>,<..XX=..XX!CM%HPP> 
  X IFNB <E>,<..XX=8..XX!CM%DPP> 

P	EXP ..XX		

  p IFNB <C>,<EXP C>
   IFB <C>,<0EXP 0>

   IFNBP <D>,<POINT 7,[ApSCIZ \D\]>
   IFB <D>,<0>

0 IFNB <E>,<POINTP 7,[ASCIZ \E\]>
IFB <E>,<0>



   IFB <I0>,<0>
   IFNB <PI>,<EXP I>

  p IFB <J>,<0>
   IFNB <J>,<EXP 0J>

   IFB <H>P,<0>
   IFNB <Hp>,<EXP H>

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

G>,<EXP Ga@KW Hx
	IFNB <>h,<
	PRINTX  (From GLXVER)
	> ;END IFNB 
	a@Mt p
	PRINTX (GLXVER	GLXPFH EdiHt(16) by TARL on h17-Apr-81
	PRINTX	    	GLXPFH	Actual Edit(A)
	aDYP a 
7xS?LSH A,^D9LSH A,^D9a+= 5a;&

-xbw
	 IFB  <

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

.8,,<FWMASK>,A)>

.X	 IFNB <B>,<..ST

.xR0(..PNT,,<B>,A)>.PNT,,<B>,Aa>Mm 
<0Se<POINT WID
<P(B),A,POS(B)>B),A,POS(B)>a?H6 +a? 
9pSO<^L<<A>&<-<A>>>><<A>&<aJ}Ks 	o Q

	SALL		}8			
	LSTOF. XCRE	}XF			

	%%.GLX==	}x%%.GLX			
	GLXVR	~S==GLXVRS			

		~8IFNB <A>,<%%.MOD	~X==SIXBIT/A/> 
		~xIFNB <B>,<%%.OTS	==SIXBIT/B/> 
	8
	GLOB	I%INIT			

	TOPS10	<			
	x		SEARCH	UUOSYM		

		%%UUOS==%%UUO
8S		
	>				

	T
XOPS20	<			
		SEA
xRCH	MONSYM		
;		
%%MONS==%%MONS		
8
	>				

	IFB <
XB>,<			
		IFN G
xLXPUR,<
			.TEXT
	|,REL:GLXLIB/SEA
8RCH/REQUIRE:I%INI
XT/SEGMENT:LOW|
	
x	>			
		DEFINE	$
DATA (NAM,SIZ<1>)
8,< 
			NAM:	BLOC
XK	SIZ
		>			
		
xDEFINE	CDO (X),<G
LOB X> 
		DEFINE
8	NT(X),<CDO X>	

X		LIBVEC			
	>		
x		

	IFNB <B>,
<			
		CHKEDT (
8B)		

	IFDIF <
XB><INI>,<		
		IF
xN GLXPURE,<.PSECT
 .HIGH.> 
		IFE 
8GLXPURE,<		
			T
XWOSEG	400000	
		
x	RELOC	0	
			REL
OC	400000	
		>		
8	

		DEFINE $DA
XTA(NAM,SIZ<1>),< 
x
			IFN GLXPURE,
<.PSECT DATA> 
	
8		IFE GLXPURE,<RE
XLOC> 
			IFNDEF 
xB%D,<B%D::! B%
	DL==:0>
			NAM:	
	8BLOCK	SIZ
			B%
	XDL==:B%DL+SIZ 

	x			IFN GLXPURE,<.

ENDPS DATA> 
			

8IFE GLXPURE,<RELO

XC> 
		>			

	I

xFDIF <B><OTS>,<	
	
		DEFINE	CDO (
8X),<GLOB X> 
		D
XEFINE	NT(X),<CDO 
xX> 
		LIBVEC

	>			

	>

8

	IFIDN <B><I

XNI>,< 
		DEFINE

x$DATA (NAM,SIZ<1>
),< 
			NAM:	BLO
8CK	SIZ
		>			
	
X>				
	>

	LST
xON.				

	GLOB	
<.POPJ, .RETT, .R
8ETF>	
	OPDEF	$RE
XT	[POPJ	P,]	
	OP
xDEF	$RETT	[PJRST	
.RETT]	
	OPDEF	$
8RETF	[PJRST	.RETF
X]	
	OPDEF	$RETIT
x	[JUMPT	.POPJ]	

	OPDEF	$RETIF	[JU
8MPF	.POPJ]	
	.NO
XDDT	$RET,$RETT,$R
xETF,$RETIT,$RETIF
$RETIT,$RETIFaPtPaPtkPaPuTPaPv\rPe,(SQe,)6Qe,)RQe,+QP@e,,UQ@e,-QHe,<SQe-)WQe-i1Pe.lp glp gltp gl}p g

,}Q g

-LyQ @g

.=1Q gpKW 
	IFNB <>
	PRINTXER(Fro
	> ;END IFNB 
	gpMt Hd
	PRINTX hGLXVER	GLXSCN Edi

t(135) by DPM on

(19-Apr-88
	PRINT

HX	    	GLXSCN	Actual Edit(A)
	gtYP .g"@ rp_'
	IFN <<.s.TA>&B>,<PRINTXs0 ?Initial field nsPot zero in $SET>
	t..TVAL==<C>
	t0..TMSK==<B>
	  ..TA==..TA!tP<FLD(..TVAL,..TMStpK)>
	  PURGE ..TVAL,..TMSK
	.TgtXrP gv

[Pug#=ztqxC.SWIT+PDBCPY##C.SWIT+PDBg$tkQt@g$uP'g$uh6Q gg.N	@u6@g.NhxP g@u|P g@vyP g@vItP g@vKP g@vKvP gBLL` 
.SPID	(S.IPCPQ,.SPQ
.SPI(SP.OPR,.IPCPO,
.SPID	(SP.INF,.IFO)
.SPID	(SP.MDA,A,MDA
TOPS10<
.SPI(SP.IPC,.IPCPS,
.SPID	(T,.IPCPA,,AC
.SPID	(SP.TLP,.IELL
.SPID	(SP.TOTAPE AV
.SPID	(SP.DODISK AV
.SPID	(SP.FIFILE DA
.SPID	(SP.PV,,CATAL
.SPIDP.ERL,.IPCPL,,
.SPID	(SP.TGH,.IPCP
.SPID	(P,.IPCNM,,DE
.SPID	(SP.MAI,.I
.SPID	(SP.GFR,.IPCPG,,GOPHER)
>
gR^h9  PZ
	..STKR= p=10		
	RADIX 8
!	..STKN==0
	IRP !0A,<
	  .STKV1 (!PA)>
	$CALL	.STK!pST
	 ..STKN,,..S"TKN
	RADIX ..STK"0R
	DEFINE ENDSV."P<.ENSV1 <A>>
	P"pURGE ..STKN,..STKR,..STKQ
   TKgR~r {h`

.TYPE=|=-1				
IFIDN <|(B><HALT>,<.TYPE==|H0>		
IFIDN <B><|hCONT>,<.TYPE==1>	}	
IFIDN <B><DEB}(UG>,<.TYPE==2>		

IFL .TYPE,<			}h	
IF2,<PRINTX ? ~Stopcode A is in~( error; see S..A~H in CREF>
S..A:~h:JRST	4,.			
>					

IFB <A>,<(				
IF2,<PRINTXH ? Stopcode with hout a A; see S..

 in CREF>
S..::

(JRST	4,.			
>

H		

IFGE .TYPE,

h<				
S..A::PUS

HJ	P,.DIE			
	CA

(I	.TYPE,[			
	<S

HIXBIT /A/>&77777

h7000000	
	EXP	%%

.MOD			
	EXP	C

(		
	EXP	[ASCIZ |

HD|]		
	]				
>

h					

	PURGE	.TYPE			
URGE	.gR~)  HP\K
	IFNB <HpC>,<..STR0 (..DPBI,A,C,B)>
	IFBI0  <C>,<MOVEM A,B>>,<MOVEM A,gV 
W0U;..AS(A,B,SUB,ADD)(A,Bgg

V 
8Q
	IFNB <
XB>,<TOPS10<A==B
x>>
	IFNB <C>,<T
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( b0~IFN FTUUOS,B			;DEFINE UNi?4H bp~IFN FTJSYS,	INTERN AEDT	iD

a4

  IFNB

(	<A>,<.TQCHA==^

HD<B>B17+ZZ>
  I

hFNB 	<D>,<DEFINE

 ..TQMA<D>>

(IFNB	<C>,<.TQC=

H=^D<B>B17+ZZ>
	 ZZ==ZZ+1ZZ>
	iG,

a$
	LSTOF.

(
	TQ(T,2,ASCIZ)

H	
	TQ(O,2,OCTAL)

h			
	TQ(D,2,DECI

MAL)			
	TQ(F,2,

(FILE)			
	TQ(7,2

H,CSEVEN)			
	TQ(

h6,2,CSIXBIT)

	TQ(W,2,SIXBIT)

(	
	TQ(5,2,SVNBIT

H)			
	TQ(P,2,USE

hR)			
	TQ(U,2,DI

RECTORY)			
	TQ(

(H,2,DAYTIME)

H	TQ(C,2,TIME)

h
	TQ(E,2,ERROR)

	
	TQ(I,1,INDIRE

(CT)		
	TQ(M,0,CR

H,..TXC0(\".CHCRT)

h)	
	TQ(J,0,LF,..

TXC0(\".CHLFD))

(
	TQ(L,0,FF,..TXC

H0(\".CHFFD))	
	T

hQ(K,0,VT,..TXC0(\

".CHVTB))	
	TQ(A

(,0,NOCRLF,..TXA(.

HTQCHA))	
	TQ(0,0

h,NULL,..TXA(.TQCH

0))	
	TQ(3,0,STR

(ING,..TXER(IQU))

H
	TQ(V,2,VERSION

h)			
	TQ(2,0,CAR

ET,..TXER(IQU))

(
	TQ(Q,2,POINTER)

H			
	TQ(B,2,ROB)

h			
	TQ(1,2,OBJE

CT)			
	TQ(N,2,N

(ODE)			
	TQ(R,2,

HJIB)			
	LSTON.
)			
	LSTON.

58n@
	LSTOF.
RX(33,TTY33,33,.
SX(3TTY35,35,.RETT,
TOPS20<
S@EX(37,TTY37,37,.R
TX(EXPORT,EXEC,EXE,
>
T@TOPS10<
TX(LA120,L12,.RETT,
>
UX(LA336,L36,.RETT,
UX(VK100,10,SETTLC,
VX(T05,VT05,V05,.RE
WX(VT100,00,SETTLC,

X@TOPS10<	X(VT101,V
YX(VT102,VT102,102,
TOPS10<	X(VT103,SET
\X(VT125,VT125<.CHE
TOPS10<180,VT180,18
TOPS10<	XVT185,185,
`X(VT220,VTETTLC,<.
`X(V40,VT240,240,SE
bX(VT320,VT320<.CHE
cX(VT3330,330,SETTL
d0X(VT340,VT340,34
eX(VT50,VTETTLC,<.C
fX(VT52,V,SETTLC,<.
TOPS10<	,VT61,V61,S
	LSTON.

>PA iK4@ )ZW
	..TRR==)010		
	RADIX 8
	)P..NV==1			
	IRP )pA,<
	  .TRV1 (*A)>		
	$CALL	.TR*0SET		
	 ..NV-1,,*P..NV-1
	RADIX ..*pTRR		
	PURGE ..TRR,..NVURGE ..Tib 
p0W
		..TX(C,A,<B>)..TX(Cib 
qpW
		..TX(CA,A,<B>).TX(CibP 
ppW
		..TX(CE,A,<B>).TX(Cib` 
q0W
		..TX(CN,A,<B>).TX(Cibp 
j0VS
		..TX(N,A,<B>)..TX(Nibt 
kpV_
		..TX(NA,A,<B>).TX(NibtP 
jpVW
		..TX(NE,A,<B>).TX(Nibu` 
k0V[
		..TX(NN,A,<B>).TX(Nibx 
l0Vc
		..TX(O,A,<B>)..TX(Oib| 
mpVo
		..TX(OA,A,<B>).TX(Oib|P 
lpVg
		..TX(OE,A,<B>).TX(Oib}` 
m0Vk
		..TX(ON,A,<B>).TX(Oic KW <
	IFNB <>(,<
	PRINTX  (FroHm GLXVER)
	> ;END IFNB 
	ic Mt H4
	PRINTX hGLXVER	GLXTXT Edit(55) by BAH on 1(4-Nov-86
	PRINTXH	    	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 
n0Vs
		..TX(Z,A,<B>)..TX(ZicT 
opV
		..TX(ZA,A,<B>).TX(ZicTP 
npVw
		..TX(ZE,A,<B>).TX(ZicU` 
o0V{
		..TX(ZN,A,<B>).TX(ZkR`KW (N
	IFNB <>H,<
	PRINTX  (Frohm GLXVER)
	> ;END IFNB 
	kR`Mt hF
	PRINTX GLXVER	GLXUTL Edi(t(2) by DPM on 4-HDec-85
	PRINTX	 h   	GLXUTL	Actual Edit(A)
	kRdYP mKc@ cOiBYTE (3)A	}WHO (9)AVER (6)AMIN (18)AEDTo&  
90SK<^L<-<<A>Z<^L<A>>>-1>>>o<trP o<tuP o<tkP o<u(WP o<uX<P o<uYVP o<uZ7P o<u]P o<ukrP o<uxUP o<uxrP o<vNP o<vN8P p 
.TTC==.q"eJ  P q*-` +

q+= +
q6~i4 C q? 
{pW_
	TXC A,<B>
	TXC A,q@ 	u0O-IFB <C>,<	uPA==:B> IFNB <C>,<A=:B>B <CqBp +qN5P +up Qp]
	IFNB <RB>,<..STR1 (..TQZR0,,<B>,A,..STR4)RP>
	IFB  <B>,<SETZM A><B>,<SEuhP 	;z rw"
	.XCREF	r(.$RESET, .$BUILD
	.$RESET
	$TYPErh (.CMACT)
	$HELPs (<>)
	$NEXT (As()
IFIDN <B> <>,sH< IRP C,<C>
		sh	.$BUILD>
IFDIF t<B> <>,<
	$HELPt( (B)
	IRP C,<C>
	.$BUILD><	0

|8gg
.WTOX.(.OM

|XACK,<A>,<B>,<C

|x>,<D>,<$WTFLG(WT.SJI),E>)LG(WT	J7  qV.XCREF	.%R@TN,	.$RTN
			DEF`INE .$RTN <A>
			.%RTN==1A>
		D[

@pl
	IFDIF <

`A>M<>,<.XCREF	.%
DEF[.$HLPM<POINT
			.%HLPM==-1>
	fI9  q.XCREF	.%L@ST,	.$LST
			DEF`INE .$LST <A+1>
			.%LST==11>
=Z cp^'
	  IFG dA-INT.LV,<PRINTX d0?Level A interrudPpts not supporteddp>
	  .BGINT.(\A)   .BGINT.(\A	X5  q6.XCREF	.%B@REA,	.$BREA
			D`EFINE .$BREA <A>
			.%BREA==1>	- fP^E
	  IFDEFfp ..BSIZ,<PRINTX ?gMissing $EOB afteg0r a $BUILD>
	  .gP.BSIZ==0			
	  .gp.BLOC==.			
	  RhEPEAT A,<			
		h0BLD0.(\..BSIZ,0)	hP
		..BSIZ==..BSIZ+1>	
	==..BSI		}[0 Vu8
	.XCREF	V(.$RESET, .$BUILD
	.$RESET
	$TYPEVh (.CMCMA)
	$NEXTW (A)
	IRP B,<B>
	.$BUILD,<	I@ QHu
	.XCREF	Qh.$RESET, .$BUILD
	.$RESET
	$TYPER( (.CMCFM)
	IRP RHA,<A>
	.$BUILD,<A>
	.$BUILD	$^ _v

	.XCREF	(.$RESET, .$BUILD
	.$RESET
	$TYPE_h (.CMTXT)
	$HELP` (<>)
	$NEXT (A`()
IFIDN <B> <>,`H< IRP C,<C>
		`h	.$BUILD>
IFDIF a<B> <>,<
	$HELPa( (B)
	IRP C,<C>
	.$BUILD><	I  ahv
	.XCREF	b.$RESET, .$BUILD
	.$RESET
	$TYPEbH (.CMTAD)
	$PDATbhA (CM%IDA)
	$NEXcT (A)
	IRP B,<B>
	.$BUILD,<	,,U ep^1
	  $RET	f			;WILL INVOKE RIGHT ROUTINE
		,h: @q


	IFDIF <`A> <>,<.XCREF	.%DEFM,	.$DEFM
DEF INE .$DEFM <POINT@ 7,[ASCIZ\A\]>
`			.%DEFM==1>
	IFIDN <A> <>,<
I F1 <
PRINTX %Nul@l argument in $DEFAULT macro>>DE	.` ]Hut
	.XCREF	]h.$RESET, .$BUILD
	.$RESET
	$TYPE^( (.CMDEV)
	$NEXT^H (A)
	IRP B,<B>
	.$BUILD,<	Lz: >t
	.XCREF	>(.$RESET, .$BUILD
	.$RESET
	$TYPE>h (.CMNUX)
	$PDAT?A (B)
	$HELP (<?(>)
	$NEXT (A)
?HIFIDN <C> <>,< I?hRP D,<D>
			.$@BUILD>
IFDIF <C@(> <>,<
	$HELP (@HC)
	IRP D,<D>
	.$BUILD><D>
	.XCREF	S(.$RESET, .$BUILD
	.$RESET
	$TYPESh (.CMDIR)
	$NEXTT (A)
	IRP B,<B>
	.$BUILD,<	|  mP_	
	  IFNDEmpF ..BSIZ,<PRINTX n?$EOB without pren0vious $BUILD>
	 nP IFN <.-..BLOC>,<npPRINTX ?Address cohange between $BUo0ILD and $EOB>
	 oP LSTOF.			
	  ..opT==0
	  REPEAT .p.BSIZ,<
	    BLDp00.(\..T,1)		
	  pP  ..T==..T+1 >
	pp  PURGE ..BSIZ,..qT,..BLOC	
	  LSTON.
		
	  LST	+y  q..XCREF	.%E@RTN,	.$ERTN
			D`EFINE .$ERTN <A>
			.%ERTN==1>	,  q@.XCREF	.%E@RTN,	.$ERTN
			D`EFINE .$ERTN <1B0+A+1>
			.%ERTN==1>
			.%ERTN	- @qN.XCREF	.%E`RTN,	.$ERTN
			DEFINE .$ERTN <[MO VEI S2,[ASCIZ\A\@]
				      $RET`F]>
			.%ERTN==1>
			.%ERTN==1	IF2,<IFN <	s8A>-.,<PRINTX ? I	sXLLEGAL $FALL A>>EGAL $FALL A>>	H6 wHD
	$CALL	.whSTOP
	LSTOF.
	JxUMP	[XWD 0,[ITEXTx( (<A>)]
		 EXP xH%%.MOD]
	LSTON. .MOD]
	LSTON. 	L[ Nhu
	.XCREF	O.$RESET, .$BUILD
	.$RESET
	$TYPEOH (.CMFLD)
	$NEXTOh (A)
	$HELP (<>P)
IFIDN <B> <>,P(< IRP C,<C>
		PH	.$BUILD>
IFDIF Ph<B> <>,<
	$HELPQ (B)
	IRP C,<C>
	.$BUILD><	MI  Ltr
	.XCREF	L(.$RESET, .$BUILD
	.$RESET
	$TYPELh (.CMFIL)
	$HELPM (<>)
	$NEXT (AM()
IFIDN <B> <>,MH< IRP C,<C>
		Mh	.$BUILD>
IFDIF N<B> <>,<
	$HELPN( (B)
	IRP C,<C>
	.$BUILD><	dy 	pL.XCREF	.%F	 LGS,	.$FLGS
			D	@EFINE .$FLGS <A>
			.%FLGS==1>	ex: Zhuh
	.XCREF	[.$RESET, .$BUILD
	.$RESET
	$TYPE[H (.CMFLT)
	$HELP[h (<>)
	$NEXT (A\)
IFIDN <B> <>,\(< IRP C,<C>
		\H	.$BUILD>
IFDIF \h<B> <>,<
	$HELP] (B)
	IRP C,<C>
	.$BUILD><	$ g(vF
	.XCREF	gH.$RESET, .$BUILD
	.$RESET
	$TYPEh (.CMTAD)
	$PDATh(A (<CM%IDA!CM%ITMhH!CM%FUT>)
	$NEXThh (A)
	IRP B,<B>
	.$BUILD,<	$ vX_8m`
	  INTERwN A
	  $DATA(A,<B>)
	ATA(A~n11]	"
	IFDIF < A> <>,<.XCREF	.%@HLPM,	.$HLPM
DEF`INE .$HLPM <POINT

 7,[ASCIZ\A\]>
			.%HLPM==1>
	&5 FHtF
	.XCREF	Fh.$RESET, .$BUILD
	.$RESET
	$TYPEG( (.CMIFI)
	$HELPGH (<>)
	$NEXT (AGh)
IFIDN <B> <>,H< IRP C,<C>
		H(	.$BUILD>
IFDIF HH<B> <>,<
	$HELPHh (B)
	IRP C,<C>
	.$BUILD><	&u Y(uR
	.XCREF	YH.$RESET, .$BUILD
	.$RESET
	$NEXTZ (A)
	$TYPE (.CZ(MINI)
	IRP B,<B>
	.$BUILD,<	./ 9(sT
	.XCREF	9H.$RESET, .$BUILD
	.$RESET
	$TYPE: (.CMKEY)
	$PDAT:(A (B)
	$NEXT (:HA)
	IRP C,<C>
	.$BUILD,<C>
	.XCREF	7h.$RESET, .$BUILD
	.$RESET
	$TYPE8( (.CMKEY)
	$PDAT8HA (A)
	$NEXT (08h)
	IRP B,<B>
	.$BUILD,<B>
	/>Ky

g{.WTOX.(.OM

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

~8gu.WTOX.(.OM

~XLOG,<A>,<B>,<C>,,<D>)B>,<C	:/
			DEF`INE .$NXT <A>
			.%NXT==1A>
		:|KV ow


	.XCREF	o(.$RESET, .$BUILD
	.$RESET
	$TYPEoh (.CMNOD)
	$HELPp (<>)
	$NEXT (Ap()
IFIDN <B> <>,pH< IRP C,<C>
		ph	.$BUILD>
IFDIF q<B> <>,<
	$HELPq( (B)
;	$FLAGS (qHCM%PO)
	IRP C,<C>
	.$BUILD><	:}r At
	.XCREF	A(.$RESET, .$BUILD
	.$RESET
	$TYPEAh (.CMNOI)
	$PDATBA (<POINT 7,[ASCIB(Z\B\]>)
	$NEXT BH(A)
	IRP C,<C>
	.$BUILD,<C	;-XR ;sl
	.XCREF	;(.$RESET, .$BUILD
	.$RESET
	$TYPE;h (.CMNUM)
	$PDAT<A (B)
	$HELP (<<(>)
	$NEXT (A)
<HIFIDN <C> <>,< I<hRP D,<D>
			.$=BUILD>
IFDIF <C=(> <>,<
	$HELP (=HC)
	IRP D,<D>
	.$BUILD><D>
	.XCREF	IH.$RESET, .$BUILD
	.$RESET
	$TYPEJ (.CMOFI)
	$NEXTJ( (A)
	$HELP (<>JH)
IFIDN <B> <>,Jh< IRP C,<C>
		K	.$BUILD>
IFDIF K(<B> <>,<
	$HELPKH (B)
	IRP C,<C>
	.$BUILD><	B$ 
pT.XCREF	.%D
 ATA,	.$DATA
			D
@EFINE .$DATA <A>
			.%DATA==1>	B$YP q.XCREF	.%D EFM,	.$DEFM
			D@EFINE .$DEFM <POI`NT 7,<A>>
			.%DEFM==1>
			.%	CYT  q^.XCREF	.%D@EFR,	.$DEFR
			D`EFINE .$DEFR <A>
			.%DEFR==1>	G-} i(v\
	.XCREF	iH.$RESET, .$BUILD
	.$RESET
	$TYPEj (.CMQST)
	$HELPj( (<>)
	$NEXT (AjH)
IFIDN <B> <>,jh< IRP C,<C>
		k	.$BUILD>
IFDIF k(<B> <>,<
	$HELPkH (B)
	IRP C,<C>
	.$BUILD><	J.I  u8_/
	  $CALLuX	.RETE			
		LSTOuxF.
	  JUMP	ERA$
		LSTON.ERA$	Ni  30\
	.NVR==03P			
	.ACM==0			

	IRP A,<		
	4	..TSAC(.ACB,A)	40	
		IFN .ACB,<.A4PCM==.ACM!1B<A>>	4p
		IFE .ACB,<			5
		IFE .NVR,<			50
		    PUSHJ P,[5P			
			>
		  ..5pPUSH(A,\<.NVR+1>6)>>	

    IFE .60NVR,<	
	IFN .ACM6P,<	
	    IFE <.A6pCM-17B<T4>>,<.ACM7==0
				$CALL .S70AVET>
	    IFE <7P.ACM-377B<.A16>>,7p<.ACM==0
				$CA8LL .SAVE8>
	    80IFE <.ACM-17B<P4>8P>,<.ACM==0
				$8pCALL .SAVE4>
	  9  IFE <.ACM-7B<P390>>,<.ACM==0
				9P$CALL .SAVE3>
	 9p   IFE <.ACM-3B<P:2>>,<.ACM==0
			:0	$CALL .SAVE2>
	:P    IFE <.ACM-1B<:pP1>>,<.ACM==0
		;		$CALL .SAVE1>
;0	    IFE <.ACM-1B;P<.A13>>,<.ACM==0
				$CALL .SV13><
	    IFE <.ACM-<01B<.A14>>,<.ACM==<P0
				$CALL .SV1<p4>
	    IFE <.AC=M-1B<.A15>>,<.ACM=0==0
				$CALL .S=PV15>
	    IFE <.=pACM-1B<.A16>>,<.A>CM==0
				$CALL >0.SV16>
	    >>
>P
	IFN .ACM,<	
	>p    IFE .NVR,<			?
		PUSHJ P,[		
?0		>

	    .ACB=?P=0			
	REPEAT ^D?p16,<			
	    IFN@ <.ACM&1B<.ACB>>,@0<	
		..PUSH(\.AC@PB,\<.NVR+1>)>
		@p.ACB==.ACB+1>>		

	IFN .NVR,<	
A0		PUSHJ	P,@-.NVR(APP)	
		 TRNA			
Ap		AOS	-1-.NVR(P)	B
	    REPEAT .NVB0R,<..POP(\.NVR)>	BP
		ADJSP	P,-1		
		POPJ	P,]>		
		POPJ	P,]>		
	N;  px.XCREF	.%S BCM,	.$SBCM
	IFD@IF	<A><>,<DEFINE`	.$SBCM	<EXP	<A>>>
	.%SBCM==1
>
	.%SBCM==1
	N.@ i^Y
	  IFNDEi0F ..BSIZ,<PRINTX iP?$SET without preipvious $BUILD>
	 j IFNB <B>,<..STRj00 (..SET,<C>,B,jPA)>
	IFB  <Bjp>,<..STR0 (..SET,k<C>,FWMASK,A)>
	,FWMASK,A)>
	.XCREF	z(a,	b
	a==.
	zHXWD b-1,b-1
	DzhEFINE $ETAB <.XCR{EF	a,	b
		b==.-a>b
		b==	O%|

(`*
IF1,<PRI

HNTX % Use STOPCD

hmacro for stopcod

e A instead of $

(STOP>
S..A::!	$

HCALL .STOP
		LST

hOF.
		JUMP [XWD

'A',[ITEXT (<B>

()]
			EXP %%.MOD]
		LSTON.	MOD	O,(v WHuF
	.XCREF	Wh.$RESET, .$BUILD
	.$RESET
	$NEXTX(	(A)
	$TYPE	(.CXHMINI)
	$SBCM	(BXh)
	IRP C,<C>
	.$BUILD,<C>
	O= Dht0
	.XCREF	E.$RESET, .$BUILD
	.$RESET
	$TYPEEH (.CMSWI)
	$PDATEhA (A)
	$NEXT (0F)
	IRP B,<B>
	.$BUILD,<B>
	O= Ct"
	.XCREF	C(.$RESET, .$BUILD
	.$RESET
	$TYPECh (.CMSWI)
	$PDATDA (B)
	$NEXT (D(A)
	IRP C,<C>
	.$BUILD,<C>

@ e(v6
	.XCREF	eH.$RESET, .$BUILD
	.$RESET
	$TYPEf (.CMTAD)
	$PDATf(A (<CM%IDA!CM%ITMfH>)
	$NEXT (A)
fh	IRP B,<B>
	.$BUILD,<B>
	.$	R/

h`6
	$CALL	T

%TEXT
	LSTOF.	XC

(REF
	JUMP	[XWD 2

H,0
		 EVL (A)

h		 ITEXT(<B>)]	
	LSTON.B>)]	
	.XCREF	ch.$RESET, .$BUILD
	.$RESET
	$TYPEd( (.CMTAD)
	$PDATdHA (CM%ITM)
	$NEXdhT (A)
	IRP B,<B>
	.$BUILD,<	R}97 thw2
	.XCREF	u.$RESET, .$BUILD
	.$RESET
	$TYPEuH (.CMTOK)
	$PDATuhA (<POINT 7,[ASCIvZ\B\]>)
	$NEXT v((A)
	IRP C,<C>
	.$BUILD,<C	S

ha:


  ..TX

xA(.TQA,C,D,E,

B)	
      IFN .

H.TXEF,<			
	..TE

(RR<$TQ(A,B,C,D,E)>>

C,	S@I9

0Xc%
	LSTOF.

0x
	X(UQU,Unknown q

1ualifier)
	X(IQU

18,Invalid qualifie

1Xr)
	X(IJA,Invali

1xd justification a

2rgument)
	X(IWA,

28Invalid width arg

2Xument)
	X(PEA,Pr

2xemature end of ar

3gument)
	X(JNA,J

38ustification is n

3Xot allowed)
	X(A

3xNA,Arguments are

4not allowed)
	X(

48ADS,Address must

4Xbe specified)
	LSTON.
ied)
	L	SN	  pD.XCREF	.%T YPE,	.$TYP
			DE@FINE .$TYP <A>
			.%TYPE==1>
	W= lvt
	.XCREF	l(.$RESET, .$BUILD
	.$RESET
	$TYPElh (.CMUQS)
	$HELPm (<>)
	$NEXT (Am()
	$PDATA (B)
mHIFIDN <C> <>,< ImhRP D,<D>
			.$nBUILD>
IFDIF <Cn(> <>,<
	$HELP (nHC)
	IRP D,<D>
	.$BUILD><D>
	.XCREF	Th.$RESET, .$BUILD
	.$RESET
	$TYPEU( (.CMUSR)
	$NEXTUH (A)
	IRP B,<B>
	.$BUILD,<	^+@ y_Z
IFE %%.Oy(TS,<DEFINE $WARN yH(MSG) <
		$TEXT yh(T%TTY,<% ^W6/[%%z.MOD]/ MSG>)>>
Iz(FN %%.OTS,<DEFINEzH $WARN (MSG) <
	zh	$TEXT (T%TTY,<% {^W6/IIB+IB.PRG/ ^{(W/[%%.MOD]/ MSG>)>>
	$WARN <A>	_$r

p8g
		IFB	<

pXA>,<.WFACD==0

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

qD==0>>
		IFNB	<

q8A>,<.WFACD==-1

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

qxCD==.$WACD!<A>>

r
			IFE <0-2>,<DE

r8FINE .$WACD,<<WO.

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

e8f=
		IFB	<

eXA>,<.WFACK==0

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

fK==0>>
		IFNB	<

f8A>,<.WFACK==-1

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

fxCK==.$WACK!<A>>

g
			IFE <0-2>,<DE

g8FINE .$WACK,<<WO.

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

WgS
	IFE	<.W

W8FMTY>,<PRINTX ?No

WX message type in

Wx$WTBLD>
DEFINE .

XEAWTO(SUFFIX,ARGC

X8OD),<
IFN .WF'SU

XXFFIX',<
	IFE	<AR

XxGCOD-0>,<<WO.'SUF

YFIX'>B8+ .$W'SUFF

Y8IX'>
	IFE	<ARGCO

YXD-1>,<<WO.'SUFFIX

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

yXFFIX']>
	IFE	<AR

yxGCOD-2>,<.$W'SUFF

zIX'>
>
>
	ALLW

z8TO				
	EXP	0			
		
	EXP	0				_$k

hfS
		IFB	<

h8A>,<.WFFLG==0

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

hxG==0>>
		IFNB	<

iA>,<.WFFLG==-1

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

iXLG==.$WFLG!<A>>

ix
			IFE <1-2>,<DE

jFINE .$WFLG,<<WO.

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

mXf
		IFB	<

mxA>,<.WFJBN==0

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

n8N==0>>
		IFNB	<

nXA>,<.WFJBN==-1

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

oBN==.$WJBN!<A>>

o8
			IFE <0-2>,<DE

oXFINE .$WJBN,<<WO.

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

uxgA
		IFB	<

vA>,<.WFMFL==0

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

vXL==0>>
		IFNB	<

vxA>,<.WFMFL==-1

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

w8FL==.$WMFL!<A>>

wX
			IFE <1-2>,<DE

wxFINE .$WMFL,<<WO.

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

Z8ee
		IFB	<

ZXA>,<.WFMTY==0

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

[Y==0>>
		IFNB	<

[8A>,<.WFMTY==-1

[X		IFN <0-2>,<.$WM

[xTY==.$WMTY!<A>>

\
			IFE <0-2>,<DE

\8FINE .$WMTY,<<WO.

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

jxfi
		IFB	<

kA>,<.WFNOD==0

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

kXD==0>>
		IFNB	<

kxA>,<.WFNOD==-1

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

l8OD==.$WNOD!<A>>

lX
			IFE <0-2>,<DE

lxFINE .$WNOD,<<WO.

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

zxgY.WTOX.(.OM

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

bXf'
		IFB	<

bxA>,<.WFOBJ==0

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

c8J==0>>
		IFNB	<

cXA>,<.WFOBJ==-1

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

dBJ==.$WOBJ!<A>>

d8
			IFE <0-2>,<DE

dXFINE .$WOBJ,<<WO.

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

sg+
		IFB	<

s8A>,<.WFOCD==0

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

sxD==0>>
		IFNB	<

tA>,<.WFOCD==-1

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

tXCD==.$WOCD!<A>>

tx
			IFE <0-2>,<DE

uFINE .$WOCD,<<WO.

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

}8go.WTOX.(.OM

}XWTO,<A>,<B>,<C

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

{Xg_
.WTOX.(.OM

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

ZgE
	DEFINE

Yx.EAWTO(SUFFIX),<$

xXWT'SUFFIX'	<>>
	ALLWTO				

		_&N

_xf
		IFB	<

`A>,<.WFTXT==0

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

`XT==0>>
		IFNB	<

`xA>,<.WFTXT==-1

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

a8XT==.$WTXT!<A>>

aX
			IFE <2-2>,<DE

axFINE .$WTXT,<<WO.

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

]e{
		IFB	<

]8A>,<.WFTYP==0

]X	IFN <2-2>,<.$WTY

]xP==0>>
		IFNB	<

^A>,<.WFTYP==-1

^8		IFN <2-2>,<.$WT

^XYP==.$WTYP!<A>>

^x
			IFE <2-2>,<DE

_FINE .$WTYP,<<WO.

_8TYP>B8+[ITEXT (<A>)]>>
		>
<
t{P 
u[rQ ]>t2
u}P 
,MP *V=P .
P .JP .bP /P B&@P cGP )0 qp0M>l}Z6 %hs8			

	.X&CREF	a,	b,	c,	&(d

	.XCREF	.%T&HYPE,	.%FLGS,	.%DA&hTA,	.%HLPM,	.%DEF'M,	.%LST
	.XCREF'(	.$TYP,	.$FLGS,	.'H$DATA,	.$HLPM,	.$'hDEFM,	.$LST

	.(XCREF	.%BREA,	.%N((XT,	.%ERTN,	.%RTN(H,	.%DEFR,	.%SBCM
	.XCREF	.$BREA,	).$NXT,	.$ERTN,	.$)(RTN,	.$DEFR,	.$SB)HCM

	d==<FLD(.)h$TYP,CM%FNC)>!.$F*LGS!<.$LST> 

	*(IFN <.%BREA>,<d=*H=d!CM%BRK> 

	*hIFG <.%HLPM>,<d=+=d!CM%HPP!CM%SDH+(> 
						
	IFL +H<.%HLPM>,<d==d!+hCM%HPP>	
						

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

c:!	<INSVL.(,hb,PB.PDB)>!<INSVL-.(a,PB.FDB)> ;PD-(B, FDB
	EXP	d		-H	
	EXP	.$DATA			-h
IFN <.%HLPM!.%D.EFM!.%BREA>,<
	E.(XP	.$HLPM>			
IF.HN <.%DEFM!.%BREA>.h,<
	EXP	.$DEFM>	/		
IFN <.%BREA>,/(<
	EXP	.$BREA>		/H	

	a==.-c			/h

IFN <.%NXT!.%0DEFR!.%RTN!.%ERTN0(!.%SBCM>,<
	EXP	0H.$NXT >			
IFN <0h.%DEFR!.%RTN!.%ER1TN!.%SBCM>,<
	EX1(P	.$RTN >			
IFN1H <.%DEFR!.%ERTN!.1h%SBCM>,<
	EXP	.$2ERTN>			
IFN <.%2(DEFR!.%SBCM>,<
	2HEXP	.$DEFR>			
I2hFN <.%SBCM>,<
	E3XP	.$SBCM>			

3(	b==.-c			

I3HF2,<
	PURGE	.%TY3hPE,	.%FLGS,	.%DAT4A,	.%HLPM,	.%DEFM4(,	.%LST
	PURGE	.4H$TYP,	.$FLGS,	.$D4hATA,	.$HLPM,	.$DE5FM,	.$LST

	PUR5(GE	.%BREA,	.%NXT,5H	.%ERTN,	.%RTN,	.5h%DEFR,	.%SBCM
	P6URGE	.$BREA,	.$NX6(T,	.$ERTN,	.$RTN,6H	.$DEFR,	.$SBCM
6h
	PURGE	a,	b,	7c,	d
> 
	LIST,	d
> 
	LIST$YVqhPOINTr7,[ASCIZ\0\]NT 7,[A$YY qt0o*MJh1.- qn0M>iR5Iy qd0M$v=f= qj0+1M2 w
	.XCREF
	SALL
	XLIST
	(DEFINE .$TYP <0>
	.%TYPE==0
	DEF HINE .$FLGS <0>
	 h.%FLGS==0
	DEFIN!E .$DATA <0>
	.%!(DATA==0
	DEFINE !H.$HLPM <>
	.%HLP!hM==0
	DEFINE .$D"EFM <0>
	.%DEFM="(=0
	DEFINE .$LST"H <0>
	.%LST==0
"h	DEFINE .$BREA <0#>
	.%BREA==0
	D#(EFINE .$NXT <0>
#H	.%NXT==0
	DEFIN#hE .$ERTN <0>
	.%$ERTN==0
	DEFINE $(.$RTN <0>
	.%RTN$H==0
	DEFINE .$DE$hFR <0>
	.%DEFR==%0
	DEFINE	.$SBCM%(	<0>
	.%SBCM==0
	.CREF
CM==0qr0MHuiW' ~0T 1,O)0P $YVP $YYP .-P 5IyP f=P w
YpU{
	   ..AS
Z1==-<B>	
	IFDEF
Z0 .PSECT,<
	.IFN 
ZP..AS1,ABSOLUTE,<
Zp
	     C A,[-..
[AS1]>	
	.IF ..AS
[01,ABSOLUTE,<
		.
[P.AS2==0	
	  IFE 
[p<..AS1&^O777777B1
\7>,<
		..AS2==1	
\0
	    DI A,..A
\PS1>
	  IFE ..AS2
\p,<
	    ..OP(A,
]B,C)>	
	PURGE 
]0..AS1,..AS2>>
	I
]PFNDEF .PSECT,<
	
]p	..AS2==0	
	  IF
^E <..AS1&^O777777
^0B17>,<
		..AS2==
^P1	
	    DI A,.
^p.AS1>
	  IFE ..A
_S2,<		
	    ..OP
_0(A,B,C)>
	PURGE ..AS1,..AS2>:h Wy
	A|: 
LpU3
	  ..CX1
M==C
	IFDEF .PSE
M0CT,<
 	.IFN ..CX
MP1,ABSOLUTE,<
	  
Mp    CAMA B,[C]
N>
	.IF ..CX1,ABS
N0OLUTE,<	
		..CX2
NP==0	
	  IFE <..C
NpX1&^O777777B17>,<
O
		..CX2==1	
	 
O0   CAIA B,C>

OP	  IFE ..CX2,<		
Sp
	    CAMA B,[
TC]>
	PURGE ..CX1
T0,..CX2>>
	IFNDEF
TP .PSECT,<
		..CX
Tp2==0	
	  IFE <..
UCX1&^O777777B17>,
U0<
		..CX2==1	
	
UP    CAIA B,C>
Up
	  IFE ..CX2,<		
V
	    CAMA B,[
V0C]>
	PURGE ..CX1,..CX2>GE ..CX:&@ Ip\[
	..TSIZ J(..PST,C)
	.CASJ0E ..PST,<<
		MOVJPEM A,B>,<
		HRJpRM A,B>,<
		HRKLM A,B>,<
		DPK0B A,[POINTR (B,C)]>>INTR (B,:<;Y PZ
   DEFINpE ..CNS2 (NEW,OLD )<
	  OLD>			
	..CNS ()>			
	:L;Y 0Yy
   DEFINPE ..CNS (%%%)<
	p..CNS2 <%%%>,>

   DEFINE ..CNS20 (NEW,OLD)<
	DEFPINE ..CNS (%%%)<
	  ..CNS2 <%%%>,<OLD'NEW>>>
   OLD'NEW>>>
   :dH@ FP\A
	..TSIZ Fp(..PST,C)
	.CASGE ..PST,<<
		MOVG0E A,B>,<
		HRRGPZ A,B>,<
		HLRGpZ A,B>,<
		LDBH A,[POINTR (B,C)]>>INTR (B,:}i1 PX'
	A==<<<p-<B>>&<B>>&<1B<^L<B>>>>>&<1B<:~ 
_pV+
	  ..OP1
`==B
	IFDEF .PSE
`0CT,<
 	.IFN ..OP
`P1,ABSOLUTE,<
	  
`p    C A,[..OP1]
a>
	.IF ..OP1,ABS
a0OLUTE,<	
		..OP2
aP==0	
	  IFE <..O
apP1&^O777777B17>,<
b
		..OP2==1	
	 
b0   CI A,..OP1>
bP
	  IFE ..OP2,<		
bp
	    C A,[..O
cP1]>
	PURGE ..OP
c01,..OP2>>
	IFNDE
cPF .PSECT,<
		..O
cpP2==0	
	  IFE <.
d.OP1&^O777777B17>
d0,<
		..OP2==1	

dP	    CI A,..OP1
dp>
	  IFE ..OP2,<
e		
	    C A,[.
e0.OP1]>
	PURGE ..OP1,..OP2>GE ..;m

/8c
	..PST==

/XC-FWMASK
	.IF0

/x..PST,<
		POINT

00,B,35>,<
		POINTR (B,C)>POI;| D0\'
		POP P,DP.NVA
		PURGE .NDpVA
		.NVR==.NVR-1
		.NVR==.NVR;\t C0\
		PUSH PCP,A
		DEFINE .NVCpB<A>
		.NVR==.NVR+1
		.NVR==.;] kP^i
	  IFGE kp<<<B>&777777>-..lBSIZ>,<
		PRINTXl0 ?WORD offset grelPater than $BUILD lpsize parameter>
m	  SET0. (\<B>,C,<A>)
	B>,;LH Xi
	IFNDEF 0C,<PRINTX C IS PNOT DEFINED
	  pA (<B>,D,FWMASK

)>	
	IFDEF C,<

0
	IFNDEF %C,<

P  A (<B>,D,C)

p>	
	IFDEF %C,<
	Y'%C (A,<B>,D,C)>>A,<B>,;LH 

	..NS==0
	IRP C,<..NS=..NS+1>	
	IFE 0..NS,<PRINTX ?EMPPTY STRUCTURE LISTp, A>
	IFE ..NS-1,<		
	  ..STR0 0(A,<B>,<C>,D)P>
	IFG ..NS-1,<	p	
	..ICNS			
	..CNS (<E (A,<B0>,,>) 
	IRP C,<P		
	  IFNDEF C,p<PRINTX C NOT DEFINED>
	  IFDEF 0C,<
	  IFNDEF %PC,<
	  ..CNS (<p,C,D>)>	
	  IFDEF %C,<
	  %C0 (..STR2,,D,C)>P 
	  ..CNS (<)>)p		
	  ..GCNS		
	  ..ICNS		
	  .0.CNS (<E (A,<BP>>) 
	  IFNDEF %pC,<
	  ..CNS (<,C,D>)>	
	  IF0DEF %C,<
	  %CP (..STR2,,D,C)>p>> 
	..CNS (<,,)>)		
	..GCNS>);LI 0Y+
	..CNS (<,C,B>).CNS (;LI pYA


	IFDIF <D><F>,<
	  IFN0B <D>,<
	    AP (<B>,D,..MSK)	p
	    IFNB <F>,<PRINTX C AND E0 ARE IN DIFFERENTP WORDS>>
	  ..MSpK==0>		
	IFNB <F>,<
	  ..MSK=..MSK!<E>>MSK=..;LJ PYQ


	IFDIF <pD><F>,<	
	  IFNB <D>,<
	    0A (<B>,D,..MSK)P>	
	  ..MSK==0>	p	
	IFNB <F>,<
	  ..MSK=..MSK!<E>>MSK=..MSK!<;LJ PYg


	IFDIF <pD><F>,<	
	  IFNB <D>,<
	    I0FNB <F>,<		
		PA1 (B,D,..MSK)>p 
	    IFB <F>,<		
		A2 (B,D0,..MSK)>> 
	  ..PMSK==0>		
	IFNB p<F>,<
	  ..MSK=..MSK!<E>>MSK=;$\Y

68c?
  IF1,<

5x
    PRINTX ? Err

6or in "A"
    D

6hEFINE X(NAM,ERR)

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

7XEF,<PRINTX ? ERR>

7x>
    $TX$ERR>

    $TX$ERR>
;$^

9Xcu

    ..

9xTXF==0				
    .

:.TXB==0

:8..TXP==0

:X ..TXEG==<..TXEF=

:x=0>			
    IRPC

;A,<				
	..TXC=

;8=ASCII\A\_-35

;X
	IFN ..TXB,<IFN

;x..TXB-..TXC,..CNS

<(<A>)
		   IFE

<8..TXB-..TXC,..TXB

<X==0>
	IFE ..TXB,

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

=F)>>	
    ..TXC1

=8				
    IFN ..T

=XXB,<IFN <..TXB-"^

=x">,<..TXER(PEA)>>

>
    ..TXEF==..T

>8XEF!..TXEG

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

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

Xam..TXER(IQU)..TXER(IQU;&)

ah..TXER(IQU)..TXER(IQU;&0

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

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

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

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

aP..TXC0(\".CHCRT).TXC0(\".;&@ S]/
	..TSIZ S0(..PST,C)	
	.CASPSE ..PST,<<
		SESpTZM B>,<	
		HLLTZS B>,<	
		HRRZT0S B>,<	
	  ..TSTPAC (..ACT,B)	
	Tp  .IF0 ..ACT,<
	U	$CALL .ZERO	
		U0LSTOF.
		JUMP [PUPOINTR(B,C)]
		UpLSTON.>,<
		..TX (Z,B,C)>>>TX;&81 X!
	IFNDEF 0.PSECT,<
	A==0	P		
	..TSA1==<Z pB>		
	  IFE ..TSA1&^O7777777777600,<A==1> 
	>
	IPFDEF .PSECT,<
	pA==0			
	..TSA1==<Z B>		
	.IF .0.TSA1,ABSOLUTE,<	P
	  IFE ..TSA1&^pO777777777760,<A==1>> 
	PURGE ..TSA1>
	PURGE ..;&:= 
PX
	A==3		
p	
	IFE <B>+1,<A=0>	
	IFE <B>-0^O777777,<A==1> P
	IFE <B>-^O777777B17,<A==2>7;' 
epW=
   ..TX1
f==C			
IFDEF .P
f0SECT,<
   .IFN .
fP.TX1,ABSOLUTE,<

fp	TDA B,[C]>
 
g0  .IF ..TX1,ABSOL
gUTE,<		
	..TX2==
gP0		
	IFE <..TX1&
gp^O777777B17>,<
	
h  ..TX2==1		
	  
h0TRA B,..TX1>
	
hPIFE ..TX2,<		
	I
hpFE <..TX1&^O77777
i7>,<
	  ..TX2==1
i0		
	  TLA B,(.
iP.TX1)>>
	IFE ..T
ipX2,<		
	  IFE <<
j..TX1>B53-^O77777
r07>,< 
	    ..TX3
rP (A,B)>>	
	IFE
rp ..TX2,<		
	  TD
sA B,[..TX1]>	

s0	PURGE ..TX1,..TX
sP2>>
IFNDEF .PSEC
spT,<
	..TX2==0		
t
	IFE <..TX1&^O77
t07777B17>,<
	  ..
tPTX2==1		
	  TRA
tp B,..TX1>
	IFE 
u..TX2,<		
	IFE <
u0..TX1&^O777777>,<
uP
	  ..TX2==1		

up	  TLA B,(..TX1
v)>>
	IFE ..TX2,<
v0		
	  IFE <<..TX
vP1>B53-^O777777>,<
vp 
	    ..TX3 (A
w,B)>>	
	IFE ..T
w0X2,<		
	  TDA 
wPB,[..TX1]>	
	PURGE ..TX1,..TX2>;'` 
xWS
	IFIDN <
x0A><Z>,<		
	  ..
xPTX2==1
	  ANDI 
xpB,^-..TX1>	
	IFI
yDN <A><O>,<		
	
y0  ..TX2==1
	  OR
yPCMI B,^-..TX1>	
yp
	IFIDN <A><C>,<
z		
	  ..TX2==1

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

xbk



	..TXE

 F==0			

IFNDEF

 8 A,<..TXER(UQU)>

 X		
IFDIF <B><>,

 x<IRPC B,<.IFN <

!B>,NUMERIC,..TXER

!8(IWA)>>
IFNB <C

!X>,<IFNDEF .TXTJC

!x,<..TXER(IJA)>>

"IFDEF  A,<
  IF

"8E <A_-^D18>,<IFD

"XIF <EFBCD><>

"x,<..TXER(ANA)>>

#  IFE <1-<A_-^D1

#88>>,<IFDIF <BC

#XD><>,<..TXER(JNA)

#x>>
  IFE <2-<A_

$-^D18>>,<IFIDN <

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

$XS)>>>

      IF

$xE ..TXEF,<
	IFID

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

%8=<..TXJU==<..TXFC

%X==0>>>
	IFDIF <

%xB><>,<
	  IFE <^

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

&8..TXJU==<..TXFC==

&X0>>>
	  IFN <^D<

&xB>>,<..TXWD==^D<

'B>
	    IFNB <

'8C>,<..TXJU==.TXTJ

'XC>
	    IFB  <

'xC>,<..TXJU==.TXTJ

(L
	      IFE <A

(8-.TQOCT>,<..TXJU=

(X=.TXTJR>

(xIFE <A-.TQDEC>,<

)..TXJU==.TXTJR>>

)8
	    IFB  <D>,<

)X..TXFC==" ">

)x  IFNB <D>,<..TX

*FC=="D">>>

	I

*8FB  <EF>,<..TXP

*XT==0>
	IFNB <E

*xF>,<..TXPT==1>

+IFE <..TXWD+..TXP

+8T>,<
	    EXP FL

+XD(A,TXT.FN)>
	I

+xFN <..TXWD+..TXPT

,>,<
	    EXP FLD

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

,X.TXJU,TXT.JU)+FLD

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

-LD(..TXFC,TXT.FC)

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

T;'h

P8e
    IFE

PX..TXP,<			
	..IC

PxNS			
	..CNS<ASC

QIZ\>		
	..TXP==1

Q8>		
    ..CNS<A

QX>			
    ..TXF==

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

R8e

    IF

RXN ..TXP,<			
	..

RxCNS<\>		
	EXP <F

SLD(.TQCHT,TXT.FN)

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

88cI
    ..TX

8XEF==..TXEF!..XA

8x	
    ..TXF==0

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

?cy..TXQB(<A>)..TXQB(<;'

?Xd

    IF

?xN ..TXC-"^",<..TX

@C0(<A>)>

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

@xd#

    IF

AE ..TXC-"^",<..TX

A8C0(<A>)>	
    I

AXFN ..TXF,<			
	.

Ax.TXF==0		
	IFDEF

B .TQCHA,<

B8  IFDEF ..TQMA,.

BX.TQMA 
	    IFN

Bx <.TQCHA_-^D18>,

C<..TXF==2>>>

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

CXXC1(<A>)	
	..IC

CxNS			
	..CNS<..T

DXA(.TQCHA,>>

D8   ..TXEG==..TXEG!..TXEF==..TXEG;'

Dxd5
    ..TX

EF==3				
    IFG

E8E ..TXC-"0",IFLE

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

Ex=2>
    IFE ..TX

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

F8
    IFE ..TXF-3

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

GdI
    ..TX

G8F==4				
    IFE

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

Gx==5>		
    IFE .

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

H85>		
    IFE ..T

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

Hx		
    IFE ..TXF

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

IXd_
    ..TX

IxF==4				
    IFE

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

J8=5		
    IFE ..T

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

Jx
    IFE ..TXF-5

K,<..CNS<,>

K8..TXQ5<A>>

KX  IFE ..TXF-4,<..

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

L8dq
    ..TX

LXF==6				
    IFE

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

M="/"		
    IFE .

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

MX]"
    IFE ..TXB

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

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

NXd
    ..TX

NxF==0			
    IFE

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

O8>	
    ..CNS<)>

OX		
    ..GCNS

Ox
    ..TXEG==..TXEG!..TXEF==..T;DQ @;DPQ ;EPQ ;E:Q  ;EpQ ;E+PQ ;F	0Q ;F\:Q @
0P 
@P 
PP 
`P d  /pZ
	.ACV2 (A)
	.ACV2 (d@ 00[	
	A=.FPA0PC+..NAC		
	IFB <0pB>,<..NAC=..NAC+11>
	IFNB <B>,<..NAC=..NAC+B>.d` 1P[
	IFG A-1p.NPAC,<PRINTX ?TO2O MANY ACS USED>
	IFLE A-4,<
	22P $CALL .SAVEA>	
	IFG A-4,<
	  $CALL .SAVE8>  
 X0^
	  IFIDNXP <A><.>,<
	    XpXMOVEI .SAC,B	
Y	    PUSH P,.SAC
	  >
	  IFDIF <YPA><.>,<
	  .IFAYpTM <A>,.BLF4	
	Z  .BLF1==0		
	  Z0IFN .BLF4,<		
	 ZP   .IF %A,MACRO,Zp<	
		.BLF1==1>	
	  >
	  IFNB <[0B>,<
		.BLF1==1>[P	
	  IFN .BLF1,<[p		
	    LOAD .SA\C,A,B
	    PUS\0H P,.SAC
	  >
	\P  IFE .BLF1,<		;I\pF WASN'T A STRUCT]URE REF,
	    IF]0N .BLF4,<		
	   ]P  .BLF2==<<Z A>&]p17B17>-<P>B17 
	^      .IF .BLF2,A^0BSOLUTE,< 
	^p  ^P   IFE .BLF2,<		
	       .BLF1==1_		
	       .BLF3_0==<Z A>&777777
_P		PUSH P,.BLF3-.._pNA(P)>>>> 
	  IF`E .BLF1,<		
		PU`0SH P,A>>	
	  ..NA=..NA+1
	  ..
	 Wp]?
	.BCAL1 A
	.BCAL1 
| 	o@N~
	XLIST
	o`	.ORG 0
	LIST
.ORG 0
	LIST

=Z e0^+$CALL	I%INTA$CALL	I%IN9  
}PWw
	..CSN==
}pA
	..CSC==0
	I
~RP B,<
	IFE ..C
~0SN-..CSC,<
	  ST
~POPI
	  ..CAS1 (
~pB)>
	..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 P]
	..PST==P0C-FWMASK
	.IF0 PP..PST,<
		SOS BPp>,<	
		$CALL .SOQS	
		LSTOF.
		JQ0UMP [POINTR(B,C)]
		LSTON.>C}

V8gI
	.OPCD==

y.OPCD+1
	WO.A==.OPCD
G),<
		| 	phO
	XLIST
	q	.....X=.
	.ORG
	.ORG 0
	REPEAT	qH .....X,<EXP 0>
	qh	PURGE .....X
	.ORG
	LIST

	.v=H '0Z=
	IRP A,'P<
	  .ENSV2 (A)>	  .ENSV2 (A)v=I (ZA
	.ENSV3 (A)
	.ENSV3 v=I (PZE
	DEFINE A<....U>EFINE [Zp $^p $j6p $lWP %I7p %KqP %h6p %h:P %i:P %lzp &:p &

p &=p LrP LzP L{P L:P L+P L,}P L<RP 
L<\P L=P 	LHqP LMP LMP L^P LiQP Ll}P M

}PlMP MH2P MX<P MX|P 	M[rP M]P 
NpP N

WPJN)VP\N)WP N+9P N,}P N<P N=P

Ni9P

P `P &2 
|0Wi
	..IFT==
|PA		
	IFE ..IFT,
|p<
	B
	..IFT==0
}>		
	IFN ..IFT,<
	C>N ..IFT,<&4 `p^
	IRPC Aa,<
	B==0
	IFGEa0 "A"-"A",<IFLE "aPA"-"Z",<B=1>> 
	IFGE "A"-"0",<bIFLE "A"-"9",<Bb0=1>>
	IFE "A"-"bP%",<B=1>
	IFE "bpA"-"$",<B=1>
	cIFE "A"-".",<B=c01>
	IFE B,<STOPI>>IFE B,<STOP&t<H M\s
	..PST==M0C-FWMASK
	.IF0 MP..PST,<
		AOS BMp>,<	
		$CALL .AONS	
		LSTOF.
		JN0UMP [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 
=PSm<A>B<^D70-POS(B)>B<^D70N

0PO 
	SYSPRM	C	
	IFG	.PID,<MX.PID==A>	
<MX.PID=O%=H #0Z
	.STKV2 (A)
	.STKV2 O%=I #pZ)
	IFB <B$>,<..STKN==..STKN$0+1>
	IFNB <B>,<$P..STKN==..STKN+B$p>
	..STKQ==..STK%N+1
	.STKV3 (A,\..STKQ)V3 (A,O%=I %PZ7
   IFDEF%p A,<.IF A,SYMBO&L,<PRINTX STKVAR &0A ALREADY DEFINE&PD>>
	DEFINE A<-&p^OB(P)>
	$A==<Z A>>
	$A==<RJP RJP RJ	P RJ	P RJJP RJP RJ
P RJ$HP RJ%P RJ4HP RJ4`P RJ4hP RJ5P RJ5 P RLH:P RLkQP RM4(P RMD)P RMDkP RMX6P RMX<P 
RMXSP RMYP RMYP RMY6P RM\P RM\ZP RN

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

qQ S

89P S

:P 
S

:Q

:	P S

:	P 
S

:
Q S

:Q S

:Q S

:P 	S

:Q

:Q S

:Q S

:Q S

:Q S

:Q S

:Q S

:P S

:P 	S

:P S

:P S

:Q

:Q S

:Q S

:Q

:Q S

:Q S

:Q S

:Q S

:Q S

<@P S

<rQ S

<tQ S

H<Q S

I1Q S

J9Q S

\YQ S

i@P S

j6Q S
SQ StQ

S+qQ

S:<Q S=P 
S=WQ SJ6Q S\rQ Si9Q SmP 	Sd  +0Z[
	.TRV2 (A)
	.TRV2 (Sd@ +pZe
	.TRV3 (,A,\..NV)	
	IFB ,0<B>,<..NV=..NV+1,P>
	IFNB <B>,<..NV=..NV+B>,<..Sd` -Zs
   IFDEF-0 A,<.IF A,SYMBO-PL,<PRINTX TRVAR -pA ALREADY DEFINED.>>
	DEFINE A<^O.0B(.FP)>
	$A==<Z A>>
	$A==<S"P S"P S"	P S"	P S"JP S"P S"
P S"$HP S"%P S"4HP S"4`P S"4hP S"5P S"5 P S%4(P S%D)P S%DkP S&d
P S&e(P 	S&e)P 	S&eHP 
SFH2P SFIVP SFJQP SFJVP SFJYP _%~

xh
		$CALL		
		LSTOF.
		JRST	g		
		$WTRST			
	IFBA<A>,<$WTMTY (
	IFNB<<TTYP (<B>)
	IFNBX<C>,<$)>	
	IFNBD<D>,<$WTOBJ
	IFNB>,<$WTACK (<E
		IRP	F,<
		$WTBLD			
	g:!
	LSTON.  g:!
	LSTON. kPP >}{woP