PDP-10 Archive: 5,17/glxmac.unv from BB-FI82B-DD

Trailing-Edge - PDP-10 Archives - BB-FI82B-DD_1989 - 5,17/glxmac.unv

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

x
,SY@P C4@ (xZK
	..NAC==)0		
	IRP A,<
	)8  .ACV1 (A)>		
	.ACV3 (\..NAC)C' 
PxU..AS(A,B,ADD,SUB)(A,BC, 
2@SLSH A,-^D9LSH A,-^DC2f}

Ne
	.EAWTO(

N MTY,0)
	.EAWTO(T

N@YP,2)
	.EAWTO(TX

N`T,2)
	.EAWTO(OBJ

O,0)
	.EAWTO(ACK,

O 0)
	.EAWTO(FLG,1

O@)
	.EAWTO(NOD,0)

O`
	.EAWTO(JBN,0)

P
	.EAWTO(ACD,0)

P 	.EAWTO(OCD,0)
	.EAWTO(MFL,1)
C:' 
u8W+
	TXZ A,<^-<B>>TXZ A,CHuI7Q xCHvN8P'CJ9ip CJ9jp CJ9l}p E
	..NA==0PX			
	IRP B,<
	Px  .BCAL2 B>		
	QPUSHJ	P,A		
	ADQ8JSP	P,-..NA		
   	P,-..NA		
  E2"@ kX^c
	  IFE kxB,<..TA==0>
	  lIFN B,<EXP ..TAl8
		    PURGE ..TA>
	PURGE ..TE@tP'E@vyQ ~E@v:=Q |F;z:Q @G@ 
IxTO
	    ..CX(,A,B)   ..CGD 
M8Tk
	    ..CX(A,A,B)  ..CGDP 
K8T[
	    ..CX(E,A,B)  ..CGDp 
KxT_
	    ..CX(G,A,B)  ..CGDy  
L8Tc
	    ..CX(GE,A,B) ..CGE@ 
J8TS
	    ..CX(L,A,B)  ..CGEI  
JxTW
	    ..CX(LE,A,B) ..CGE` 
LxTg
	l*..CX(N,A,B)  ..CGH 

	OLST

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

	  LSTON.


G"\Y ^8~	

	IF1, ^X<%%EDT==AEDT>	
^x
	IF2, <IFN <%%E_DT-AEDT>,<
		PR_8INTX ? Edit Numbe_Xr Doesn't Match G_xLXVER in GLXA
	`	A$WHO(\AEDT)>	`8
		A$NOTE		
	I`XNTERN AEDT		
	I`xNTERN LODLEV		
;a	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 yHP
	IFNB <>yh,<
	PRINTX  (Frozm GLXVER)
	> ;END IFNB 
	G>hMt xH
	PRINTX x(GLXVER	GLXCOM EdixHt(63) by DPM on 9xh-Aug-88
	PRINTX	y    	GLXCOM	Actual Edit(A)
	G>lYP G>vC@ 	rOLALL
PAGE	r8; (A Continued o	rXn next page)
SAL	rxL; (A Continued 	sfrom previous page) previous pagG?T 	ipNOASCIZ \
COPYRIGHT Z \
CGHt;rP GHtkP GHv	P GHv)9P GHv:=P I!k7P I!k<P ImP I$P`S!*IIY{P`S#*|I  Hx\M
	IFNB <IB>,<..STR0 (.DECRI80,,<B>,A)>
	IFIXB  <B>,<SOS A>  <B>,<SOS A>I6= 
8X
	A==<-1
XB<C>+1B<C-D>> 
x
	IF1,<IFDEF %A,<PRINTX ?A ALRE8ADY DEFINED>>
	DXEFINE %A (OP,AC,xY,MSK)<	
	IFDIF <Y><>,<
	OP (<AC8>,B+'Y,MSK)>
	IXFIDN <Y><>,<
	OPx (<AC>,B'Y,MSK)>>AC>,B'Y,MSK)>I'7 
S8U..OP(A,B,DIV)..OP(A,BIOH1 nHv~
	IFB <Dnh>,<
	XWD	[ASCIZ\oC\],[XWD B,A]>o(
	IFNB <D>,<
	oHXWD	[EXP CM%FW!Doh
		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

~kx
	ERR	EOF

~ ,<End of file>

~@ERR	IFP,<Illegal

~`file position>

ERR	FDE,<File dat

 a error>
	ERR	FN

@D,<File is not on

` disk>
	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	NMAPCFamessage
	@ERR	FDS,<Files ar
	ERR	FFile already 
	ERR	USEpected syst
	ERR	NNo such pid>
	ERR	BOL,<Beginnach
	ERR	EOL,<Enreached
	ERR	RQF,<Recefull>
	ERR	SQF,<Sende>
	@ERR	NRE,<No>remem
	ER	TBF,<Table is f
	ERR	EIT,<Ty alread
	ERR	I
TE,<Invalid table
  entry>
	ERR	QEF
@,<Quota exceeded 
`or disk full>
	ERR	ARG,<Invalidea
	ERR	IFN,<Inva spec

ified>
	ERR	IJN,

 <Invalid job numb

@er specified>
	E

`RR	RAD,<Invalid r
@	ERR	NUM,<Invalid
	ERR	IDT,<Invald sp
	ERR	ITvalidftime f
	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>
	ERR	ICN,<Invalid
	ERR	NQS,<Iotedtstr
@	ERR	AMB,<Ambiguo
	ERR	NMT,<Datch tok
	ERR	CMA,<Coven>
	ERR	NNC,<Nodeenam
	ERR	INT,<Nodemterm
	ERR	NSN,<Unknown n
	ERR	IInvalidopath 
	@ERR	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
#@	ERR	TMN,<Noetime
	ERR	TMA,<Tialready
	ERR	DVviceutermina
	ERR	NArgument bloc
	ERR	TLUinalolocati
	`ERR	FIO,<File is 
	ERR	FBle being mod
	ERR	WLK,locked dev
	ERR	CSD,<Cersede a
	ERRDD,<Cannottdele
	ERR	SNb-fileudirec
*	ERR	ESL,<Search 
	@ERR	LVL,<SFDpleve
	ERR	CCWotacreate/w
	ERR	FCU,<Cae file>
	ERR	ENQ,<FileingeE
	ERR	SWS,<Softock o
	ER	DER,<Hardware d
	ER	DTE,<Hard data 
	ERR	BKT,too large>
	ERR	IPP,<Non-e
	ER	TRN,<RIBeorotra
	ERR	ILC,<Illega da
	ERR	NFte/timeumust
	ERR	NPS,<Datee in 
	ERR	UUnrecognizedm
	ERR	UDN,<Unrame in
	ERRFA,<Illegal fil
	ER	FAI,<Fileiattri
	ERR	CEI,<Canisable
	ERR	ENF,<Linky not
	ERR	NSLuch linked 
	ERR	NFP,<pages>
	ERR	NPI,<NoPfreee
	ERR	IFdirect	filer
	ER	NDN,<Nullndevic
9	ERR	PWA,<PID wen
	ERR	CGPt get a PID
	ERR	IND,<Invae>
	@ERR	IAC,<Invalid 
	`ERR	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`

0`
	IFIDN <

PBC><>,<EXP <A>

p>
	IFDIF <BC><

>,<
	 IFE <A+1>

0,<<POINT 7,C>>

P	 IFN <A+1>,<

p   IFIDN <C><>,<

EXP <A,B>>

0 IFDIF <C><>,<EX

PP <A,B,C>>
	>>A,B,C>>
	>KbN@ 	`Kc  	oXNIRP A,<
	ox	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 |d
	IFNB <>|(,<
	PRINTX  (Fro|Hm GLXVER)
	> ;END IFNB 
	M&`Mt zH\
	PRINTX zhGLXVER	GLXFIL Edi{t(120) by LWS on {(1-Aug-88
	PRINTX{H	    	GLXFIL	Actual Edit(A)
	M&dYP (M2  
7S9<<<A>B<POS(<B>)>>&<B>>M>h1p M>hrp M>h{p M>iRp M>k=p M>l}p M>m9p MHuiWQ @MHv
Q  MJh1p MJhrp MJip MJiVp MJk=p MJlsp MJl}p MJm9p MR4zP MR6L`P MRV>9P MS.[yQ MVpKW (
	IFNB <>H,<
	PRINTX  (Frohm GLXVER)
	> ;END IFNB 
	MVpMt h~
	PRINTX GLXVER	GLXFUN Edi(t(2) by BAH on 14H-Nov-86
	PRINTX	h    	GLXFUN	Actual Edit(A)
	MVtYP<M^luQ O2|  	p8O
	pX	IF2,<IFDEF A,<.	pxIFN A,EXTERN,<IN	qTERN A>>
	     	q8IFNDEF A,<EXTERN	qX A>
	Q SUPPRESPA>>FlYSUPPRO3DYPF@O3EKrPf@O3EZ7PO3FLQ St\Yp Stkp SuZp SulQ Su}:p Sv
1p Sv

Sp Sv8;Q Sv>@p SNn 
RxU..OP(A,B,IDIV).OP(A,BSNp @S7-N 
QxU..OP(A,B,IMUL).OP(A,BS:  Ex\5
	IFNB <FB>,<..STR0 (.INCRF80,,<B>,A)>
	IFFXB  <B>,<AOS A>  <B>,<AOS A>S:HKW hB
	IFNB <>,<
	PRINTX  (Fro(m GLXVER)
	> ;END IFNB 
	S:HMt (:
	PRINTX HGLXVER	GLXINI Ediht(23) by  on 27-Jun-84
	PRINTX	  (  	GLXINI	Actual Edit(A)
	S:LYP 	S;k 
9XSM<<<A>B<POS(<B>)>>&<B>>S; KW (
	IFNB <>H,<
	PRINTX  (Frohm GLXVER)
	> ;END IFNB 
	S; Mt h
	PRINTX GLXVER	GLXINT Edi(t(116) by LWS on H12-May-88
	PRINThX	    	GLXINT	Actual Edit(A)
	S;!kP S;!k<P S;$YP 'S? 
txW'
	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 (^
	IFNB <>H,<
	PRINTX  (Frohm GLXVER)
	> ;END IFNB 
	SBMt 	hV
	PRINTX 
GLXVER	GLXIPC Edi
(t(77) by LWS on 2
H4-Aug-87
	PRINTX
h	    	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/

`%
	LSTOF.

0XCREF
	..TEXT<A

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

/`lT

	OLST

	XJJNO,.JI,GJBJNO>	
	X-TNO,.JITNO,<
	XUSR,.JIUNO,.GTPPN
	X,CDN,.JIDNOH>	
	`XGPRG,.JIPNM,.GTP
	XPCJN,.JICJBCJB>	
	XTBAT,.JIBCH,.G
	XIJLT,.JTJLT		
	X,LOC,<-1,,GJBLOC>
	`XJRTM,.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
hKW
	IFNB <>,<
	PRINTX  (Fro(m GLXVER)
	> ;END IFNB 
	W
 Mt

(j
	PRINTX

HGLXVER	GLXKBD Edi

ht(103)-by LWS on 
	PRINT	GLXKBD	Actual Edit(A)
	W
$YP !WNH1 p(w

	IFB <CpH>,<
	XWD	[ASCIZ\phB\],A>
	IFNB <qC>,<
	XWD	[EXP q(CM%FW!C
		ASCIZ\B\],A>
SCIZY"luQ xY&i1 
 S



	  LST
@OF. XCREF

	CDO
`	OTSINI			
	CDO	
    			
	CDO	.ZP
 AGA
	CDO	.ZPAGN
@
	CDO	.ZCHNK
	CD
`O	.SAVE1
	CDO	.S
AVE2
	CDO	.SAVE3
 
	CDO	.SAVE4
	C
@DO	.SAVET
	CDO	.
`SV13
	CDO	.SV14

	CDO	.SV15
	CDO
 	.SV16
	NT	.RETT
@
	NT	.RETF
	CDO
`	.RETE
	CDO	.AOS
		
	CDO	.SOS		

 	CDO	.ZERO		
	NT
@	.POPJ		
	CDO	.S
`TOP		
	CDO	.SAVE
8		
	CDO	.STKST	
 	
	CDO	.TRSET		
@
	NT	.POPJ1		
	C
`DO	.UD2SC		
	CDO
	.SC2UD		
	CDO	.
 CPUTY		
	CDO	.DI
@E		
	CDO
	CDO

`
	CDO			
	CDO	C
%RPRM
	CDO	C%INT
 R
	CDO	C%SEND
	
@CDO	C%RECV
	CDO	
`C%BRCV
	CDO	C%RE
L
	CDO	C%CPID
	
 CDO	C%KPID
	CDO	
@C%SPID
	CDO	C%MA
`XP
	CDO	C%PIDJ

	CDO	C%PIDH
	CDO
 	C%SIDX
	CDO
	C
@DO
	CDO

	CDO	
`      			
	CDO	F
%IOPN
	CDO	F%AOP
 N
	CDO	F%OOPN
	
@CDO	F%IBYT
	CDO	
`F%OBYT
	CDO	F%IB
UF
	CDO	F%OBUF

 	CDO	F%REL
	CDO	
@F%DREL
	CDO	F%RR
`EL
	CDO	F%REW
	
CDO	F%POS
	CDO	F
 %CHKP
	CDO	F%INF
@O
	CDO	F%FD
	CD
`O	F%REN
	CDO	F%D
EL
	CDO	F%FCHN

 	CDO
	CDO
	CDO
@
	CDO
	CDO
	CDO
`
	CDO
	CDO
	CD
O	FUNCT.			

	C
 DO	      			
	CD
@O	M%ACQP
	CDO	M%
`RELP
	CDO	M%IPSN
 
	CDO	M%NXPG
	C
  DO	M%IPRC
	CDO	M
 @%IPRM
	CDO	M%AQN
 `P
	CDO	M%RLNP
	
!CDO	M%CLNC
	CDO	
! M%FPGS
	CDO	M%GM
!@EM
	CDO	M%RMEM

!`	CDO
	CDO
	CDO
"
	CDO
	CDO
	CDO
" 
	CDO	M%GPAG
	C
"@DO	M%RPAG
	CDO

"`	CDO
	CDO
	CDO
#
	CDO
	CDO
	CDO
# 
	CDO

	CDO	  
#@    			
	CDO	T%T
#`EXT
	CDO	T%TTY

$	CDO
	CDO
	CDO
$ 
	CDO
	CDO
	CDO
$@
	CDO
	CDO
	CD
$`O
	CDO

	CDO	 
%     			
	CDO	L%
% CLST
	CDO	L%DLST
%@
	CDO	L%CENT
	C
%`DO	L%CBFR
	CDO	L
&%DENT
	CDO	L%NEX
& T
	CDO	L%FIRS
	
&@CDO	L%LAST
	CDO	
&`L%PREV
	CDO	L%PR
'EM
	CDO	L%CURR

' 	CDO	L%RENT
	CDO
'@	L%SIZE
	CDO	L%A
'`POS
	CDO
	CDO

(	CDO
	CDO
	CDO
( 
	CDO
	CDO
	CDO
(@

	CDO			
	CDO
(`	I%NOW
	CDO	I%EX
)IT
	CDO	I%ION
	
) CDO	I%IOFF
	CDO	
)@I%SLP
	CDO	I%INT
)`1
	CDO	I%INT2
	
*CDO	I%INT3
	CDO	
* I%TIMR
	CDO
	CD
*@O
	CDO	I%SOPR
	
*`CDO	I%WTO
	CDO

+	CDO	I%HOST
	CDO
+ 	I%JINF
	CDO	I%C
+@JOB
	CDO	I%KJOB
+`

	CDO	S%U2DT		
,
	CDO	S%DT2U
	CD
, O	S%DATI
	CDO	S%
,@SIXB
	CDO	S%CMND
,`
	CDO	S%TBLK
	C
-DO	S%SCMP
	CDO	S
- %ERR
	CDO	S%INTR
-@
	CDO	S%EXIT
	C
-`DO	S%TBAD
	CDO	S
.%TBDL
	CDO	S%NUM
. I


	CDO	K%RCO
.@C			
	CDO	K%WCOC
.`
	CDO	K%SUET
	C
/DO	K%STYP
	CDO	K
/ %TXTI
	CDO	K%SOU
/@T
	CDO	K%BOUT
	
/`CDO	K%BIN
	CDO	K
0%BACK
	CDO	K%TPO
0 S
	CDO	K%BUFF
	
0@CDO	K%FLSH
	CDO	
0`K%OPEN
	CDO	K%EC
1HO
	CDO
	CDO
	
1 CDO
	CDO
	CDO

1@	CDO
	CDO
	CDO
	  LSTON.
Y:W (V
	IFNB <>H,<
	PRINTX  (Frohm GLXVER)
	> ;END IFNB 
	Y:XMt hN
	PRINTX GLXVER	GLXLNK Edi(t(11) by AWC on 2H9-Jan-82
	PRINTXh	    	GLXLNK	Actual Edit(A)
	Y:\YP Y>

@ ?8\
	IFNB <?XC>,<..STR0 (..LDB?x,A,C,B)>
	IFB@  <C>,<MOVE A,B>C>,<MOVE A,Y>%I;P YO%GP YO%yG 	sXO'
	IFNDEF 	sxLSTIN.,LSTIN.==0		t	
IFE LSTIN.,<
	t8	IFIDN <XCREF><A	tX>,<.XCREF>	
		  	tx XLIST>		
	LSTIN.==LSTIN.+1STINYO%{G 	u8O1
	IFG LST	uXIN.,LSTIN.==LSTIN	ux.-1	
	IFLE LSTIN	v.,<.CREF		
		      LIST>
		   [KW ~Hx
	IFNB <>~h,<
	PRINTX  (From GLXVER)
	> ;END IFNB 
	f[Mt }p
	PRINTX }(GLXVER	GLXMAC Edi}Ht(520) by PERK on}h 7-Jun-88
	PRINT~X	    	GLXMAC	Actual Edit(A)
	[YP ([3@ 
9SI<<<1_<A>>-1>B<B>>_<A>>[8@ 
8SA1B<<A>-1>-1B<B><<A>-1>[@

`Pr
	IFB <B
>,<MAXSIZ==0
		I
 RP A,<IFG <A-MA
@XSIZ>,<MAXSIZ==A
`>>>
	IFNB <B>,<
B==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 h"
	IFNB <>,<
	PRINTX  (Fro(m GLXVER)
	> ;END IFNB 
	[hMt (
	PRINTX HGLXVER	GLXMEM Ediht(33) by DPM on 19-Apr-88
	PRINTX(	    	GLXMEM	Actual Edit(A)
	[lYPuQ @[th:Q [u[yQ [ukvQ  [v=3P'[v|WQ [&p 
`Q
	IFB <B
>,<MINSIZ==377777
 ,,777777
		IRP 
@A,<IFG <MINSIZ-A
`>,<MINSIZ==A>>>

	IFNB <B>,<B==
 377777,,777777
	
@	IRP A,<IFG <B-
`A>,<B==A>>>
A>,<B==A>>>
[>!` 
8XSE<A-<A/B>*B><A-<A/B[?7 
:T3
   ..MX1
:8==B			
IFDEF .P
:XSECT,<
   .IFN .
:x.MX1,ABSOLUTE,<

;	MOVE A,[B]>
 
;8  .IF ..MX1,ABSOL
;XUTE,<
	..MX2==0	
;x	
	IFE <..MX1>B5
<3,<
	  ..MX2==1
<8
	  MOVEI A,..MX
<X1>	
	IFE ..MX2,<
<x		
	IFE <..MX1>B
=17,<
	  ..MX2==1
=8
	  MOVSI A,(..
=XMX1)>>	
	IFE ..M
=xX2,<		
	IFE <<..
>MX1>B53-^O777777>
>8,<
	  ..MX2==1

>X	  HRROI A,<..MX
>x1>>>	
	IFE ..MX2
?,<		
	IFE <<..MX
?81>B17-^O777777B17
?X>,<
	  ..MX2==1
?x
	  HRLOI A,(..M
@X1-^O777777)>> 

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

IFNDEF
A .PSECT,<
	..MX2
A8==0		
	IFE <..MX
AX1>B53,<
	  ..MX2
Ax==1
	  MOVEI A,
B..MX1>	
	IFE ..M
B8X2,<		
	IFE <..M
BXX1>B17,<
	  ..MX
Bx2==1
	  MOVSI A
C,(..MX1)>>	
	IFE
C8 ..MX2,<		
	IFE 
CX<<..MX1>B53-^O777
Cx777>,<
	  ..MX2=
D=1
	  HRROI A,<
D8..MX1>>>	
	IFE .
DX.MX2,<		
	IFE <<
Dx..MX1>B17-^O77777
E7B17>,<
	  ..MX2
E8==1
	  HRLOI A,
EX(..MX1-^O777777)>
Ex> 
	IFE ..MX2,<	
F	
	  MOVE A,[..
F8MX1]>	
>
	PURGE ..MX1,..MX2RGE[Lt;ZQ x[LvN8P'[NF:=p [N^= 8X%
	A==C	X	
	IF1,<IFDEF %xA,<PRINTX ?A ALREADY DEFINED>>
	8DEFINE %A (OP,ACX,Y,MSK)<	
	IFDIFx <Y><>,<
	OP (<AC>,B+'Y,MSK)>
	8IFIDN <Y><>,<
	OXP (<AC>,B'Y,MSK)>>AC>,B'Y,MSK)[PuySP'[PvNP'[Vg 
R8U..OP(A,B,MUL)..OP(A,B[`v
2P ] 	nNsIF2,<IFDEF	n8 A,<A==A>> IFNDEF A,<A==B>]F@ qTEMFDB##_
QkRp _
Ql}p _
Qmp _
Qm7p _
T=

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

/H	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
j	X	.OTDBM,<DBMS S
	X	.OTFALtream>
	X	.OTEVT,<Event>
k	X	.OTFCH,<Microf
	X	.OTXER,
	X	.OTNQ-Stream>
,<NQC-Stream>
_SKW hJ
	IFNB <>	,<
	PRINTX  (Fro	(m GLXVER)
	> ;END IFNB 
	_SMt (B
	PRINTX HGLXVER	GLXOTS Ediht(13) by DPM on 14-Apr-88
	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\yQal}P aI3 

	..XX=D(A,CM%FNC)>

xX.IFNBC<D>,<..XX=
y8.IFNBC<E>,<..XX=

z0	EXP ..XX		

zPCIFNB <C>,<EXP 
{EIFB0<C>,<

{0SIFNB,<POINT 7,[A
{pFI <D>,<0>

| IFNBS<E>,<POINT
|p IFB <E>,<0>



}>IFB><I
}0IIFNBX<I>

}P IFB <J>,<0>
}pJIFNB <J>,<EXP 

~0,IFB <H>
~P>IFNBP<H>

~pIFB <G>,<0>
IFNB <G>,<EXP G>

G>,<EXP Ga@KW hj
	IFNB <>,<
	PRINTX  (Fro(m GLXVER)
	> ;END IFNB 
	a@Mt (b
	PRINTX HGLXVER	GLXPFH Ediht(16) by TARL on 17-Apr-81
	PRINT(X	    	GLXPFH	Actual Edit(A)
	aDYP a 
2SLSH A,^D9LSH A,^D9a+= 5a;&

(bH
	 IFB  <

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

(@,,<FWMASK>,A)>

(`	 IFNB <B>,<..ST

)R0(..PNT,,<B>,A)>.PNT,,<B>,Aa>Mm 
68S5<POINT WID
6X(B),A,POS(B)>B),A,POS(B)>a?H6 +a? 
3xS<^L<<A>&<-<A>>>><<A>&<aJ}Ks 	hhPX

	SALL		w			
	LSTOF. XCRE	w F			

	%%.GLX==	w@%%.GLX			
	GLXVR	w`S==GLXVRS			

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

	TOPS10	<			
	y@		SEARCH	UUOSYM			y`
		%%UUOS==%%UUO	zS		
	>				

	T	z OPS20	<			
		SEA	z@RCH	MONSYM		
;			z`%%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>,	~`<			
		IFDEF .MC	RV.,<.VERSION <GL	 XVRS>>
		CHKEDT 	@(B)		

	IFDIF 	`<B><INI>,<		
		
IFN GLXPURE,<.PSE
 CT .HIGH.> 
		IF
@E GLXPURE,<		
		
`	TWOSEG	400000	

			RELOC	0	
			R
 ELOC	400000	
		>
@			

		DEFINE $
`DATA(NAM,SIZ<1>),
< 
			IFN GLXPUR
 E,<.PSECT DATA> 
@
			IFE GLXPURE,<
`RELOC> 
			IFNDE
F B%D,<B%D::! 
 B%DL==:0>
			NAM
@:	BLOCK	SIZ
			
`B%DL==:B%DL+SIZ 

			IFN GLXPURE,
 <.ENDPS DATA> 
	
@		IFE GLXPURE,<RE
`LOC> 
		>			


	IFDIF <B><OTS>,
 <		
		DEFINE	CDO
@ (X),<GLOB X> 
	
`	DEFINE	NT(X),<CD
O X> 
		LIBVEC		
 
	>			

	>			
@
	

	IFIDN <B>
`<INI>,< 
		DEFIN
E	$DATA (NAM,SIZ<
 1>),< 
			NAM:	B
@LOCK	SIZ
		>			
`
	>				
	>

	L
STON.				

	GLO
 B	<.POPJ, .RETT, 
@.RETF>	
	OPDEF	$
`RET	[POPJ	P,]	
	
	OPDEF	$RETT	[PJRS
	 T	.RETT]	
	OPDEF
	@	$RETF	[PJRST	.RE
	`TF]	
	OPDEF	$RET

IT	[JUMPT	.POPJ]	

 
	OPDEF	$RETIF	[

@JUMPF	.POPJ]	
	.

`NODDT	$RET,$RETT,
$RETF,$RETIT,$RETIF
$RETIT,$RETaPtPaPtkP2aPuTPaPv\rPe,(SQ4e,)6Qxe,)RQue,+Q@e,,UQ@e,-Qe,<SQVe-)WQe-i1P=e.glp glp gltp gl}p g

,}Q g

-LyQ @g

.=1Q  gpKW (6
	IFNB <>H,<
	PRINTX  (Frohm GLXVER)
	> ;END IFNB 
	gpMt h.
	PRINTX GLXVER	GLXSCN Edi(t(135) by DPM on H19-Apr-88
	PRINThX	    	GLXSCN	Actual Edit(A)
	gtYP .g"@ lx^w
	IFN <<.m.TA>&B>,<PRINTXm8 ?Initial field nmXot zero in $SET>
	n..TVAL==<C>
	n8..TMSK==<B>
	  ..TA==..TA!nX<FLD(..TVAL,..TMSnxK)>
	  PURGE ..TVAL,..TMSK
	.TgtXrP gv

[P3g#=zthq6C.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 XYg
	..STKR=x=10		
	RADIX 8
	..STKN==0
	IRP 8A,<
	  .STKV1 (XA)>
	$CALL	.STKxST
	 ..STKN,,..STKN
	RADIX ..STK8R
	DEFINE ENDSV.X<.ENSV1 <A>>
	PxURGE ..STKN,..STKR,..STKQ
   TKgR~r up_g

.TYPE=v=-1				
IFIDN <v0B><HALT>,<.TYPE==vP0>		
IFIDN <B><vpCONT>,<.TYPE==1>	w	
IFIDN <B><DEBw0UG>,<.TYPE==2>		

IFL .TYPE,<			wp	
IF2,<PRINTX ? xStopcode A is inx0 error; see S..AxP in CREF>
S..A:xp:JRST	4,.			
>		y			

IFB <A>,<y0				
IF2,<PRINTXyP ? Stopcode with ypout a A; see S..z in CREF>
S..::	z0JRST	4,.			
>			zP		

IFGE .TYPE,zp<				
S..A::PUS{HJ	P,.DIE			
	CA{0I	.TYPE,[			
	<S{PIXBIT /A/>&77777{p7000000	
	EXP	%%|.MOD			
	EXP	C	|0		
	EXP	[ASCIZ ||PD|]		
	]				
>|p					

	PURGE	.TYPE			
URGE	.gR~)  BX\
	IFNB <BxC>,<..STR0 (..DPBC,A,C,B)>
	IFBC8  <C>,<MOVEM A,B>>,<MOVEM A,gV 
Q8U..AS(A,B,SUB,ADD)(A,Bgg

V 
@Pb
	IFNB <
`B>,<TOPS10<A==B

>>
	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( X0}CIFN FTUUOS,B			;DEFINE UNi?4H Xp}GIFN FTJSYS,	INTERN AEDT	iD

a

  IFNB

0	<A>,<.TQCHA==^

PD<B>B17+ZZ>
  I

pFNB 	<D>,<DEFINE

 ..TQMA<D>>

0IFNB	<C>,<.TQC=

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

`u
	LSTOF.

0
	TQ(T,2,ASCIZ)

P	
	TQ(O,2,OCTAL)

p			
	TQ(D,2,DECI

MAL)			
	TQ(F,2,

0FILE)			
	TQ(7,2

P,CSEVEN)			
	TQ(

p6,2,CSIXBIT)

	TQ(W,2,SIXBIT)

0	
	TQ(5,2,SVNBIT

P)			
	TQ(P,2,USE

pR)			
	TQ(U,2,DI

RECTORY)			
	TQ(

0H,2,DAYTIME)

P	TQ(C,2,TIME)

p
	TQ(E,2,ERROR)

		
	TQ(I,1,INDIRE

	0CT)		
	TQ(M,0,CR

	P,..TXC0(\".CHCRT)

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

TXC0(\".CHLFD))

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

P0(\".CHFFD))	
	T

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

".CHVTB))	
	TQ(A

0,0,NOCRLF,..TXA(.

PTQCHA))	
	TQ(0,0

p,NULL,..TXA(.TQCH

0))	
	TQ(3,0,STR

0ING,..TXER(IQU))

P
	TQ(V,2,VERSION

p)			
	TQ(2,0,CAR

ET,..TXER(IQU))

0
	TQ(Q,2,POINTER)

P			
	TQ(B,2,ROB)

p			
	TQ(1,2,OBJE

CT)			
	TQ(N,2,N

0ODE)			
	TQ(R,2,

PJIB)			
	LSTON.
)			
	LSTON.

/@m~
	LSTOF.
KX(33,TTY33,33,.
LX(3TTY35,35,.RETT,
TOPS20<
L(EX(37,TTY37,37,.R
LX(EXPORT,EXEC,EXE,
>
M(TOPS10<
MX(LA120,L12,.RETT,
>
NX(LA336,L36,.RETT,
NX(VK100,10,SETTLC,
OX(T05,VT05,V05,.RE
PX(VT100,00,SETTLC,

Q(TOPS10<	X(VT101,V
RX(VT102,VT102,102,
TOPS10<	X(VT103,SET
UX(VT125,VT125<.CHE
TOPS10<180,VT180,18
TOPS10<	XVT185,185,
XX(VT220,VTETTLC,<.
YX(V40,VT240,240,SE
ZX(VT330,VT330<.CHE
[X(VT3440,340,SETTL
\hSX(VT50,VT50,V50,
^X(VT52,VT52,V52C,"
TOPS10<	X(VT61,LC,<
	LSTON.

> 
	LSTONiK,PA iK4@ #Z'
	..TRR==#810		
	RADIX 8
	#X..NV==1			
	IRP #xA,<
	  .TRV1 ($A)>		
	$CALL	.TR$8SET		
	 ..NV-1,,$X..NV-1
	RADIX ..$xTRR		
	PURGE ..TRR,..NVURGE ..Tib 
j8VS
		..TX(C,A,<B>)..TX(Cib 
kxV_
		..TX(CA,A,<B>).TX(CibP 
jxVW
		..TX(CE,A,<B>).TX(Cib` 
k8V[
		..TX(CN,A,<B>).TX(Cibp 
d8V#
		..TX(N,A,<B>)..TX(Nibt 
exV/
		..TX(NA,A,<B>).TX(NibtP 
dxV'
		..TX(NE,A,<B>).TX(Nibu` 
e8V+
		..TX(NN,A,<B>).TX(Nibx 
f8V3
		..TX(O,A,<B>)..TX(Oib| 
gxV?
		..TX(OA,A,<B>).TX(Oib|P 
fxV7
		..TX(OE,A,<B>).TX(Oib}` 
g8V;
		..TX(ON,A,<B>).TX(Oic KW h
	IFNB <>,<
	PRINTX  (Fro(m GLXVER)
	> ;END IFNB 
	ic Mt (
	PRINTX HGLXVER	GLXTXT Ediht(55) by BAH on 14-Nov-86
	PRINTX(	    	GLXTXT	Actual Edit(A)
	ic!h2Q ic!i0Q ic!iQP ic!iWQ `ic!j6Q ic!jZQ ic!k Q `ic!kPQ @ic!lQ  ic!lQ |ic!l`Q ic!lqQ ic!lvP ic!lvP ic!lxP'ic!lyP ic!lyQ ic!mrQ pic!nQ ic$YP icP 
h8VC
		..TX(Z,A,<B>)..TX(ZicT 
ixVO
		..TX(ZA,A,<B>).TX(ZicTP 
hxVG
		..TX(ZE,A,<B>).TX(ZicU` 
i8VK
		..TX(ZN,A,<B>).TX(ZkR`KW ,
	IFNB <>(,<
	PRINTX  (FroHm GLXVER)
	> ;END IFNB 
	kR`Mt H$
	PRINTX hGLXVER	GLXUTL Edit(2) by DPM on 4-(Dec-85
	PRINTX	 H   	GLXUTL	Actual Edit(A)
	kRdYP mKc@ YO5BYTE (3)A	vXWHO (9)AVER (6)AMIN (18)AEDTo&  
38S<^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

paA==<ZZ==ZZ+1>
.TTC==.q"eJ  P q*-` +

q+= +
q6~i4 C q? 
uxW/
	TXC A,<B>
	TXC A,q@ 	nxNyIFB <C>,<	oA==:B> IFNB <C>,<A=:B>B <CqBp +qN5P +up Kx\e
	IFNB <LB>,<..STR1 (..TQZL8,,<B>,A,..STR4)LX>
	IFB  <B>,<SETZM A><B>,<SEuhP 	;z ihv`
	.XCREF	j.$RESET, .$BUILD
	.$RESET
	$TYPEjH (.CMACT)
	$HELPjh (<>)
	$NEXT (Ak)
IFIDN <B> <>,k(< IRP C,<C>
		kH	.$BUILD>
IFDIF kh<B> <>,<
	$HELPl (B)
	IRP C,<C>
	.$BUILD><	0

v@g8
.WTOX.(.OM

v`ACK,<A>,<B>,<C

w>,<D>,<$WTFLG(WT.SJI),E>)LG(WT	J7 q.XCREF	.%R TN,	.$RTN
			DEF@INE .$RTN <A>
			.%RTN==1A>
		D[  p*
	IFDIF <@A> <>,<.XCREF	.%`HLPM,	.$HLPM
DEFINE .$HLPM <POINT  7,[ASCIZ\A\]>
			.%HLPM==-1>
	fI9 p\.XCREF	.%L ST,	.$LST
			DEF@INE .$LST <A+1>
			.%LST==11>
=Z ]x]w
	  IFG ^A-INT.LV,<PRINTX ^8?Level A interru^Xpts not supported^x>
	  .BGINT.(\A)   .BGINT.(\A	X5 pt.XCREF	.%B REA,	.$BREA
			D@EFINE .$BREA <A>
			.%BREA==1>	- `X^
	  IFDEF`x ..BSIZ,<PRINTX ?aMissing $EOB aftea8r a $BUILD>
	  .aX.BSIZ==0			
	  .ax.BLOC==.			
	  RbEPEAT A,<			
		b8BLD0.(\..BSIZ,0)	bX
		..BSIZ==..BSIZ+1>	
	==..BSI		}[0 Mhtv
	.XCREF	N.$RESET, .$BUILD
	.$RESET
	$TYPENH (.CMCMA)
	$NEXTNh (A)
	IRP B,<B>
	.$BUILD,<	I@ I(tR
	.XCREF	IH.$RESET, .$BUILD
	.$RESET
	$TYPEJ (.CMCFM)
	IRP J(A,<A>
	.$BUILD,<A>
	.$BUILD	$^ VhuH
	.XCREF	W.$RESET, .$BUILD
	.$RESET
	$TYPEWH (.CMTXT)
	$HELPWh (<>)
	$NEXT (AX)
IFIDN <B> <>,X(< IRP C,<C>
		XH	.$BUILD>
IFDIF Xh<B> <>,<
	$HELPY (B)
	IRP C,<C>
	.$BUILD><	I  YHuV
	.XCREF	Yh.$RESET, .$BUILD
	.$RESET
	$TYPEZ( (.CMTAD)
	$PDATZHA (CM%IDA)
	$NEXZhT (A)
	IRP B,<B>
	.$BUILD,<	,,U _x^
	  $RET	`			;WILL INVOKE RIGHT ROUTINE
		,h:  pJ
	IFDIF <@A> <>,<.XCREF	.%`DEFM,	.$DEFM
DEFINE .$DEFM <POINT  7,[ASCIZ\A\]>
@			.%DEFM==1>
	I`FIDN <A> <>,<
I	F1 <
PRINTX %Nul	 l argument in $DEFAULT macro>>DE	.` U(u2
	.XCREF	UH.$RESET, .$BUILD
	.$RESET
	$TYPEV (.CMDEV)
	$NEXTV( (A)
	IRP B,<B>
	.$BUILD,<	Lz: 5hsB
	.XCREF	6.$RESET, .$BUILD
	.$RESET
	$TYPE6H (.CMNUX)
	$PDAT6hA (B)
	$HELP (<7>)
	$NEXT (A)
7(IFIDN <C> <>,< I7HRP D,<D>
			.$7hBUILD>
IFDIF <C8> <>,<
	$HELP (8(C)
	IRP D,<D>
	.$BUILD><D>
	.XCREF	K.$RESET, .$BUILD
	.$RESET
	$TYPEKH (.CMDIR)
	$NEXTKh (A)
	IRP B,<B>
	.$BUILD,<	|  gX^Y
	  IFNDEgxF ..BSIZ,<PRINTX h?$EOB without preh8vious $BUILD>
	 hX IFN <.-..BLOC>,<hxPRINTX ?Address cihange between $BUi8ILD and $EOB>
	 iX LSTOF.			
	  ..ixT==0
	  REPEAT .j.BSIZ,<
	    BLDj80.(\..T,1)		
	  jX  ..T==..T+1 >
	jx  PURGE ..BSIZ,..kT,..BLOC	
	  LSTON.
		
	plLST	+yFE
			DE .$ERTN <A>
			.%ERTN==1>	, p~.XCREF	.%E RTN,	.$ERTN
			D@EFINE .$ERTN <1B0`+A+1>
			.%ERTN==1>
			.%ERTN	-  q

.XCREF	.%E@RTN,	.$ERTN
			D`EFINE .$ERTN <[MOVEI S2,[ASCIZ\A\ ]
				      $RET@F]>
			.%ERTN==1>
			.%ERTN==1	IF2,<IFN <	mA>-.,<PRINTX ? I	m LLEGAL $FALL A>>EGAL $FALL A>>	H6 qP
	$CALL	.qpSTOP
	LSTOF.
	JrUMP	[XWD 0,[ITEXTr0 (<A>)]
		 EXP rP%%.MOD]
	LSTON. .MOD]
	LSTON. 	L[ FHtF
	.XCREF	Fh.$RESET, .$BUILD
	.$RESET
	$TYPEG( (.CMFLD)
	$NEXTGH (A)
	$HELP (<>Gh)
IFIDN <B> <>,H< IRP C,<C>
		H(	.$BUILD>
IFDIF HH<B> <>,<
	$HELPHh (B)
	IRP C,<C>
	.$BUILD><	MI  Cht0
	.XCREF	D.$RESET, .$BUILD
	.$RESET
	$TYPEDH (.CMFIL)
	$HELPDh (<>)
	$NEXT (AE)
IFIDN <B> <>,E(< IRP C,<C>
		EH	.$BUILD>
IFDIF Eh<B> <>,<
	$HELPF (B)
	IRP C,<C>
	.$BUILD><	dy `p
.XCREF	.%FLGS,	.$FLGS
			D EFINE .$FLGS <A>
			.%FLGS==1>	ex: RHu&
	.XCREF	Rh.$RESET, .$BUILD
	.$RESET
	$TYPES( (.CMFLT)
	$HELPSH (<>)
	$NEXT (ASh)
IFIDN <B> <>,T< IRP C,<C>
		T(	.$BUILD>
IFDIF TH<B> <>,<
	$HELPTh (B)
	IRP C,<C>
	.$BUILD><	$ _v
	.XCREF	(.$RESET, .$BUILD
	.$RESET
	$TYPE_h (.CMTAD)
	$PDAT`A (<CM%IDA!CM%ITM`(!CM%FUT>)
	$NEXT`H (A)
	IRP B,<B>
	.$BUILD,<	$ p`_	c`
	  INTERqN A
	  $DATA(A,<B>)
	ATA(A~1icP	"
	IFDIF <A> <>,<.XCREF	.% HLPM,	.$HLPM
DEF@INE .$HLPM <POINT` 7,[ASCIZ\A\]>
			.%HLPM==1>
	&5 >(t
	.XCREF	>H.$RESET, .$BUILD
	.$RESET
	$TYPE? (.CMIFI)
	$HELP?( (<>)
	$NEXT (A?H)
IFIDN <B> <>,?h< IRP C,<C>
		@	.$BUILD>
IFDIF @(<B> <>,<
	$HELP@H (B)
	IRP C,<C>
	.$BUILD><	&u Qu
	.XCREF	Q(.$RESET, .$BUILD
	.$RESET
	$NEXTQh (A)
	$TYPE (.CRMINI)
	IRP B,<B>
	.$BUILD,<	./ 1s
	.XCREF	1(.$RESET, .$BUILD
	.$RESET
	$TYPE1h (.CMKEY)
	$PDAT2A (B)
	$NEXT (2(A)
	IRP C,<C>
	.$BUILD,<C>
	.XCREF	/H.$RESET, .$BUILD
	.$RESET
	$TYPE0 (.CMKEY)
	$PDAT0(A (A)
	$NEXT (00H)
	IRP B,<B>
	.$BUILD,<B>
	/>Ky

y gL.WTOX.(.OM

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

x@gF.WTOX.(.OM

x`LOG,<A>,<B>,<C>,,<D>)B>,<C	:/

pd.XCREF	.%N

 XT,	.$NXT
			DEF

@INE .$NXT <A>
			.%NXT==1A>
		:|KV fhvJ
	.XCREF	g.$RESET, .$BUILD
	.$RESET
	$TYPEgH (.CMNOD)
	$HELPgh (<>)
	$NEXT (Ah)
IFIDN <B> <>,h(< IRP C,<C>
		hH	.$BUILD>
IFDIF hh<B> <>,<
	$HELPi (B)
;	$FLAGS (i(CM%PO)
	IRP C,<C>
	.$BUILD><	:}r 8hsR
	.XCREF	9.$RESET, .$BUILD
	.$RESET
	$TYPE9H (.CMNOI)
	$PDAT9hA (<POINT 7,[ASCI:Z\B\]>)
	$NEXT :((A)
	IRP C,<C>
	.$BUILD,<C	;-XR 2hs*
	.XCREF	3.$RESET, .$BUILD
	.$RESET
	$TYPE3H (.CMNUM)
	$PDAT3hA (B)
	$HELP (<4>)
	$NEXT (A)
4(IFIDN <C> <>,< I4HRP D,<D>
			.$4hBUILD>
IFDIF <C5> <>,<
	$HELP (5(C)
	IRP D,<D>
	.$BUILD><D>
	.XCREF	A(.$RESET, .$BUILD
	.$RESET
	$TYPEAh (.CMOFI)
	$NEXTB (A)
	$HELP (<>B()
IFIDN <B> <>,BH< IRP C,<C>
		Bh	.$BUILD>
IFDIF C<B> <>,<
	$HELPC( (B)
	IRP C,<C>
	.$BUILD><	B$ `p.XCREF	.%DATA,	.$DATA
			D EFINE .$DATA <A>
			.%DATA==1>	B$YP 	`pT.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-} av
	.XCREF	a(.$RESET, .$BUILD
	.$RESET
	$TYPEah (.CMQST)
	$HELPb (<>)
	$NEXT (Ab()
IFIDN <B> <>,bH< IRP C,<C>
		bh	.$BUILD>
IFDIF c<B> <>,<
	$HELPc( (B)
	IRP C,<C>
	.$BUILD><	J.I  o@_
	  $CALLo`	.RETE			
		LSTOpF.
	  JUMP	ERA$
		LSTON.ERA$	Ni  -8[g
	.NVR==0-X			
	.ACM==0			

	IRP A,<		
	.	..TSAC(.ACB,A)	.8	
		IFN .ACB,<.A.XCM==.ACM!1B<A>>	.x
		IFE .ACB,<			/
		IFE .NVR,<			/8
		    PUSHJ P,[/X			
			>
		  ../xPUSH(A,\<.NVR+1>0)>>	

    IFE .08NVR,<	
	IFN .ACM0X,<	
	    IFE <.A0xCM-17B<T4>>,<.ACM1==0
				$CALL .S18AVET>
	    IFE <1X.ACM-377B<.A16>>,1x<.ACM==0
				$CA2LL .SAVE8>
	    28IFE <.ACM-17B<P4>2X>,<.ACM==0
				$2xCALL .SAVE4>
	  3  IFE <.ACM-7B<P338>>,<.ACM==0
				3X$CALL .SAVE3>
	 3x   IFE <.ACM-3B<P42>>,<.ACM==0
			48	$CALL .SAVE2>
	4X    IFE <.ACM-1B<4xP1>>,<.ACM==0
		5		$CALL .SAVE1>
58	    IFE <.ACM-1B5X<.A13>>,<.ACM==0
				$CALL .SV13>6
	    IFE <.ACM-681B<.A14>>,<.ACM==6X0
				$CALL .SV16x4>
	    IFE <.AC7M-1B<.A15>>,<.ACM78==0
				$CALL .S7XV15>
	    IFE <.7xACM-1B<.A16>>,<.A8CM==0
				$CALL 88.SV16>
	    >>
8X
	IFN .ACM,<	
	8x    IFE .NVR,<			9
		PUSHJ P,[		
98		>

	    .ACB=9X=0			
	REPEAT ^D9x16,<			
	    IFN: <.ACM&1B<.ACB>>,:8<	
		..PUSH(\.AC:XB,\<.NVR+1>)>
		:x.ACB==.ACB+1>>		

	IFN .NVR,<	
;8		PUSHJ	P,@-.NVR(;XP)	
		 TRNA			
;x		AOS	-1-.NVR(P)	<
	    REPEAT .NV<8R,<..POP(\.NVR)>	<X
		ADJSP	P,-1		
		POPJ	P,]>		
		POPJ	P,]>		
	N;  `p6.XCREF	.%SBCM,	.$SBCM
	IFD IF	<A><>,<DEFINE@	.$SBCM	<EXP	<A>`>>
	.%SBCM==1
>
	.%SBCM==1
	N.@ c^)
	  IFNDEc8F ..BSIZ,<PRINTX cX?$SET without precxvious $BUILD>
	 d IFNB <B>,<..STRd80 (..SET,<C>,B,dXA)>
	IFB  <Bdx>,<..STR0 (..SET,e<C>,FWMASK,A)>
	,FWMASK,A)>
	.XCREF	ra,	b
	a==.
	r(XWD b-1,b-1
	DrHEFINE $ETAB <.XCRrhEF	a,	b
		b==.-a>b
		b==	O%| }0_{
IF1,<PRI}PNTX % Use STOPCD }pmacro for stopcod~e A instead of $~0STOP>
S..A::!	$~PCALL .STOP
		LST~pOF.
		JUMP [XWD 'A',[ITEXT (<B>0)]
			EXP %%.MOD]
		LSTON.	MOD	O,(v O(u
	.XCREF	OH.$RESET, .$BUILD
	.$RESET
	$NEXTP	(A)
	$TYPE	(.CP(MINI)
	$SBCM	(BPH)
	IRP C,<C>
	.$BUILD,<C>
	O= <Hsn
	.XCREF	<h.$RESET, .$BUILD
	.$RESET
	$TYPE=( (.CMSWI)
	$PDAT=HA (A)
	$NEXT (0=h)
	IRP B,<B>
	.$BUILD,<B>
	O= :hs`
	.XCREF	;.$RESET, .$BUILD
	.$RESET
	$TYPE;H (.CMSWI)
	$PDAT;hA (B)
	$NEXT (<A)
	IRP C,<C>
	.$BUILD,<C>

@ ]ut
	.XCREF	](.$RESET, .$BUILD
	.$RESET
	$TYPE]h (.CMTAD)
	$PDAT^A (<CM%IDA!CM%ITM^(>)
	$NEXT (A)
^H	IRP B,<B>
	.$BUILD,<B>
	.$	R/p`
	$CALL	T

%TEXT
	LSTOF.	XC

0REF
	JUMP	[XWD 2

P,0
		 EVL (A)

p		 ITEXT(<B>)]	
	LSTON.B>)]	
	.XCREF	[H.$RESET, .$BUILD
	.$RESET
	$TYPE\ (.CMTAD)
	$PDAT\(A (CM%ITM)
	$NEX\HT (A)
	IRP B,<B>
	.$BUILD,<	R}97 lHvp
	.XCREF	lh.$RESET, .$BUILD
	.$RESET
	$TYPEm( (.CMTOK)
	$PDATmHA (<POINT 7,[ASCImhZ\B\]>)
	$NEXT n(A)
	IRP C,<C>
	.$BUILD,<C	S

pa


  ..TX

A(.TQA,C,D,E,

B)	
      IFN .

P.TXEF,<			
	..TE

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

C,	S@I9

*`bv
	LSTOF.

+
	X(UQU,Unknown q

+ ualifier)
	X(IQU

+@,Invalid qualifie

+`r)
	X(IJA,Invali

,d justification a

, rgument)
	X(IWA,

,@Invalid width arg

,`ument)
	X(PEA,Pr

-emature end of ar

- gument)
	X(JNA,J

-@ustification is n

-`ot allowed)
	X(A

.NA,Arguments are

. not allowed)
	X(

.@ADS,Address must

.`be specified)
	LSTON.
ied)
	L	SN	.REF	.%TYPE,	.$TYP
			DE FINE .$TYP <A>
			.%TYPE==1>
	W= chv2
	.XCREF	d.$RESET, .$BUILD
	.$RESET
	$TYPEdH (.CMUQS)
	$HELPdh (<>)
	$NEXT (Ae)
	$PDATA (B)
e(IFIDN <C> <>,< IeHRP D,<D>
			.$ehBUILD>
IFDIF <Cf> <>,<
	$HELP (f(C)
	IRP D,<D>
	.$BUILD><D>
	.XCREF	LH.$RESET, .$BUILD
	.$RESET
	$TYPEM (.CMUSR)
	$NEXTM( (A)
	IRP B,<B>
	.$BUILD,<	^+@ s_+
IFE %%.Os0TS,<DEFINE $WARN sP(MSG) <
		$TEXT sp(T%TTY,<% ^W6/[%%t.MOD]/ MSG>)>>
It0FN %%.OTS,<DEFINEtP $WARN (MSG) <
	tp	$TEXT (T%TTY,<% u^W6/IIB+IB.PRG/ ^u0W/[%%.MOD]/ MSG>)>>
	$WARN <A>	_$r

j@ff
		IFB	<

j`A>,<.WFACD==0

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

k D==0>>
		IFNB	<

k@A>,<.WFACD==-1

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

lCD==.$WACD!<A>>

l 
			IFE <0-2>,<DE

l@FINE .$WACD,<<WO.

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

_@f
		IFB	<

_`A>,<.WFACK==0

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

` K==0>>
		IFNB	<

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

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

aCK==.$WACK!<A>>

a 
			IFE <0-2>,<DE

a@FINE .$WACK,<<WO.

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

Q g$
	IFE	<.W

Q@FMTY>,<PRINTX ?No

Q` message type in

R$WTBLD>
DEFINE .

R EAWTO(SUFFIX,ARGC

R@OD),<
IFN .WF'SU

R`FFIX',<
	IFE	<AR

SGCOD-0>,<<WO.'SUF

S FIX'>B8+ .$W'SUFF

S@IX'>
	IFE	<ARGCO

S`D-1>,<<WO.'SUFFIX

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

s`FFIX']>
	IFE	<AR

tGCOD-2>,<.$W'SUFF

t IX'>
>
>
	ALLW

t@TO				
	EXP	0			
		
	EXP	0				_$k

b f$
		IFB	<

b@A>,<.WFFLG==0

b`	IFN <1-2>,<.$WFL

cG==0>>
		IFNB	<

c A>,<.WFFLG==-1

c@		IFN <1-2>,<.$WF

c`LG==.$WFLG!<A>>

d
			IFE <1-2>,<DE

d FINE .$WFLG,<<WO.

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

g`fP
		IFB	<

hA>,<.WFJBN==0

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

h@N==0>>
		IFNB	<

h`A>,<.WFJBN==-1

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

i BN==.$WJBN!<A>>

i@
			IFE <0-2>,<DE

i`FINE .$WJBN,<<WO.

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

pg
		IFB	<

p A>,<.WFMFL==0

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

p`L==0>>
		IFNB	<

qA>,<.WFMFL==-1

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

q@FL==.$WMFL!<A>>

q`
			IFE <1-2>,<DE

rFINE .$WMFL,<<WO.

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

T@e6
		IFB	<

T`A>,<.WFMTY==0

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

U Y==0>>
		IFNB	<

U@A>,<.WFMTY==-1

U`		IFN <0-2>,<.$WM

VTY==.$WMTY!<A>>

V 
			IFE <0-2>,<DE

V@FINE .$WMTY,<<WO.

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

ef:
		IFB	<

e A>,<.WFNOD==0

e@	IFN <0-2>,<.$WNO

e`D==0>>
		IFNB	<

fA>,<.WFNOD==-1

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

f@OD==.$WNOD!<A>>

f`
			IFE <0-2>,<DE

gFINE .$WNOD,<<WO.

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

ug*.WTOX.(.OM

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

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

m f|
		IFB	<

m@A>,<.WFOCD==0

m`	IFN <0-2>,<.$WOC

nD==0>>
		IFNB	<

n A>,<.WFOCD==-1

n@		IFN <0-2>,<.$WO

n`CD==.$WOCD!<A>>

o
			IFE <0-2>,<DE

o FINE .$WOCD,<<WO.

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

w@g@.WTOX.(.OM

w`WTO,<A>,<B>,<C

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

u`g0
.WTOX.(.OM

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

T g
	DEFINE

T.EAWTO(SUFFIX),<$

r`WT'SUFFIX'	<>>
	ALLWTO				

		_&N

Zeb
		IFB	<

Z A>,<.WFTXT==0

Z@	IFN <2-2>,<.$WTX

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

W eL
		IFB	<

W@A>,<.WFTYP==0

W`	IFN <2-2>,<.$WTY

XP==0>>
		IFNB	<

X A>,<.WFTYP==-1

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

X`YP==.$WTYP!<A>>

Y
			IFE <2-2>,<DE

Y FINE .$WTYP,<<WO.

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

	.XhCREF	a,	b,	c,	d

	.XCREF	.%T(YPE,	.%FLGS,	.%DAHTA,	.%HLPM,	.%DEFhM,	.%LST
	.XCREF	.$TYP,	.$FLGS,	.($DATA,	.$HLPM,	.$HDEFM,	.$LST

	.hXCREF	.%BREA,	.%N XT,	.%ERTN,	.%RTN (,	.%DEFR,	.%SBCM
	.XCREF	.$BREA,	 h.$NXT,	.$ERTN,	.$!RTN,	.$DEFR,	.$SB!(CM

	d==<FLD(.!H$TYP,CM%FNC)>!.$F!hLGS!<.$LST> 

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

	"HIFG <.%HLPM>,<d="h=d!CM%HPP!CM%SDH#> 
						
	IFL #(<.%HLPM>,<d==d!#HCM%HPP>	
						

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

c:!	<INSVL.($Hb,PB.PDB)>!<INSVL$h.(a,PB.FDB)> ;PD%B, FDB
	EXP	d		%(	
	EXP	.$DATA			%H
IFN <.%HLPM!.%D%hEFM!.%BREA>,<
	E&XP	.$HLPM>			
IF&(N <.%DEFM!.%BREA>&H,<
	EXP	.$DEFM>	&h		
IFN <.%BREA>,'<
	EXP	.$BREA>		'(	

	a==.-c			'H

IFN <.%NXT!.%'hDEFR!.%RTN!.%ERTN(!.%SBCM>,<
	EXP	((.$NXT >			
IFN <(H.%DEFR!.%RTN!.%ER(hTN!.%SBCM>,<
	EX)P	.$RTN >			
IFN)( <.%DEFR!.%ERTN!.)H%SBCM>,<
	EXP	.$)hERTN>			
IFN <.%*DEFR!.%SBCM>,<
	*(EXP	.$DEFR>			
I*HFN <.%SBCM>,<
	E*hXP	.$SBCM>			

+	b==.-c			

I+(F2,<
	PURGE	.%TY+HPE,	.%FLGS,	.%DAT+hA,	.%HLPM,	.%DEFM,,	.%LST
	PURGE	.,($TYP,	.$FLGS,	.$D,HATA,	.$HLPM,	.$DE,hFM,	.$LST

	PUR-GE	.%BREA,	.%NXT,-(	.%ERTN,	.%RTN,	.-H%DEFR,	.%SBCM
	P-hURGE	.$BREA,	.$NX.T,	.$ERTN,	.$RTN,.(	.$DEFR,	.$SBCM
.H
	PURGE	a,	b,	.hc,	d
> 
	LIST,	d
> 
	LIST$YV`q&POINTr7,[ASCIZ\0\]NT 7,[A$YY q20Mv:=.- q,0MuLw5Iy q"0KK.9"f= q(0+1KZ`w
	.XCREF
	SALL
	XLIST
	hDEFINE .$TYP <0>
	.%TYPE==0
	DEF(INE .$FLGS <0>
	H.%FLGS==0
	DEFINhE .$DATA <0>
	.%DATA==0
	DEFINE (.$HLPM <>
	.%HLPHM==0
	DEFINE .$DhEFM <0>
	.%DEFM==0
	DEFINE .$LST( <0>
	.%LST==0
H	DEFINE .$BREA <0h>
	.%BREA==0
	DEFINE .$NXT <0>
(	.%NXT==0
	DEFINHE .$ERTN <0>
	.%hERTN==0
	DEFINE .$RTN <0>
	.%RTN(==0
	DEFINE .$DEHFR <0>
	.%DEFR==h0
	DEFINE	.$SBCM	<0>
	.%SBCM==0
	.CREF
CM==0q00nfMvN8' l,0T 1,O)0P $YVP $YYP .-P 5IyP f=P w
SxUK
	   ..AS
T1==-<B>	
	IFDEF
T8 .PSECT,<
	.IFN 
TX..AS1,ABSOLUTE,<
Tx
	     C A,[-..
UAS1]>	
	.IF ..AS
U81,ABSOLUTE,<
		.
UX.AS2==0	
	  IFE 
Ux<..AS1&^O777777B1
V7>,<
		..AS2==1	
V8
	    DI A,..A
VXS1>
	  IFE ..AS2
Vx,<
	    ..OP(A,
WB,C)>	
	PURGE 
W8..AS1,..AS2>>
	I
WXFNDEF .PSECT,<
	
Wx	..AS2==0	
	  IF
XE <..AS1&^O777777
X8B17>,<
		..AS2==
XX1	
	    DI A,.
Xx.AS1>
	  IFE ..A
YS2,<		
	    ..OP
Y8(A,B,C)>
	PURGE ..AS1,..AS2>:h WI
	AUO: 
FxU
	  ..CX1
G==C
	IFDEF .PSE
G8CT,<
 	.IFN ..CX
GX1,ABSOLUTE,<
	  
Gx    CAMA B,[C]
H>
	.IF ..CX1,ABS
H8OLUTE,<	
		..CX2
HX==0	
	  IFE <..C
HxX1&^O777777B17>,<
I
		..CX2==1	
	 
I8   CAIA B,C>

IX	  IFE ..CX2,<		
Mx
	    CAMA B,[
NC]>
	PURGE ..CX1
N8,..CX2>>
	IFNDEF
NX .PSECT,<
		..CX
Nx2==0	
	  IFE <..
OCX1&^O777777B17>,
O8<
		..CX2==1	
	
OX    CAIA B,C>
Ox
	  IFE ..CX2,<		
P
	    CAMA B,[
P8C]>
	PURGE ..CX1,..CX2>GE ..CX:&@ Cx\+
	..TSIZ D(..PST,C)
	.CASD8E ..PST,<<
		MOVDXEM A,B>,<
		HRDxRM A,B>,<
		HRELM A,B>,<
		DPE8B A,[POINTR (B,C)]>>INTR (B,:<;Y XYQ
   DEFINxE ..CNS2 (NEW,OLD)<
	  OLD>			
	..CNS ()>			
	:L;Y 8YI
   DEFINXE ..CNS (%%%)<
	x..CNS2 <%%%>,>

   DEFINE ..CNS28 (NEW,OLD)<
	DEFXINE ..CNS (%%%)<
	  ..CNS2 <%%%>,<OLD'NEW>>>
   OLD'NEW>>>
   :dH@ @X\
	..TSIZ @x(..PST,C)
	.CASAE ..PST,<<
		MOVA8E A,B>,<
		HRRAXZ A,B>,<
		HLRAxZ A,B>,<
		LDBB A,[POINTR (B,C)]>>INTR (B,:}i1 
~XWw
	A==<<<
~x-<B>>&<B>>&<1B<^L<B>>>>>&<1B<:~ 
YxU{
	  ..OP1
Z==B
	IFDEF .PSE
Z8CT,<
 	.IFN ..OP
ZX1,ABSOLUTE,<
	  
Zx    C A,[..OP1]
[>
	.IF ..OP1,ABS
[8OLUTE,<	
		..OP2
[X==0	
	  IFE <..O
[xP1&^O777777B17>,<
\
		..OP2==1	
	 
\8   CI A,..OP1>
\X
	  IFE ..OP2,<		
\x
	    C A,[..O
]P1]>
	PURGE ..OP
]81,..OP2>>
	IFNDE
]XF .PSECT,<
		..O
]xP2==0	
	  IFE <.
^.OP1&^O777777B17>
^8,<
		..OP2==1	

^X	    CI A,..OP1
^x>
	  IFE ..OP2,<
_		
	    C A,[.
_8.OP1]>
	PURGE ..OP1,..OP2>GE ..;m

)@bR
	..PST==

)`C-FWMASK
	.IF0

*..PST,<
		POINT

* 0,B,35>,<
		POINTR (B,C)>POI;| >8[w
		POP P,>X.NVA
		PURGE .N>xVA
		.NVR==.NVR-1
		.NVR==.NVR;\t =8[o
		PUSH P=X,A
		DEFINE .NV=xB<A>
		.NVR==.NVR+1
		.NVR==.;] eX^9
	  IFGE ex<<<B>&777777>-..fBSIZ>,<
		PRINTXf8 ?WORD offset grefXater than $BUILD fxsize parameter>
g	  SET0. (\<B>,C,<A>)
	B>,;LH X9
	IFNDEF 8C,<PRINTX C IS XNOT DEFINED
	  xA (<B>,D,FWMASK)>	
	IFDEF C,<
	IFNDEF %C,<
	X  A (<B>,D,C)x>	
	IFDEF %C,<
	  %C (A,<B>,D,C)>>A,<B>,;LH XXw

	..NS==0x			
	IRP C,<..NS=..NS+1>	
	IFE 8..NS,<PRINTX ?EMPXTY STRUCTURE LISTx, A>
	IFE ..NS-	1,<		
	  ..STR0 	8(A,<B>,<C>,D)	X>
	IFG ..NS-1,<		x	
	..ICNS			
	.
.CNS (<E (A,<B
8>,,>) 
	IRP C,<
X		
	  IFNDEF C,
x<PRINTX C NOT DEFINED>
	  IFDEF 8C,<
	  IFNDEF %XC,<
	  ..CNS (<x,C,D>)>	
	  IF

DEF %C,<
	  %C

8 (..STR2,,D,C)>

X 
	  ..CNS (<)>)

x		
	  ..GCNS		
	  ..ICNS		
	.C. (<E (A,<B
	CIFNDEF %
	  ..CNS (<,C,D>)>	
	  IF8DEF %C,<
	  %CX (..STR2,,D,C)>x>> 
	..CNS (<,,)>)		
	..GCNS>);LI 8X{
	..CNS (<,C,B>).CNS (;LI xY


	IFDIF <D><F>,<
	  IFN8B <D>,<
	    AX (<B>,D,..MSK)	x
	    IFNB <F>,<PRINTX C AND E8 ARE IN DIFFERENTX WORDS>>
	  ..MSxK==0>		
	IFNB <F>,<
	  ..MSK=..MSK!<E>>MSK=..;LJ XY!


	IFDIF <xD><F>,<	
	  IFNB <D>,<
	    8A (<B>,D,..MSK)X>	
	  ..MSK==0>	x	
	IFNB <F>,<
	  ..MSK=..MSK!<E>>MSK=..MSK!<;LJ XY7


	IFDIF <xD><F>,<	
	  IFNB <D>,<
	    I8FNB <F>,<		
		XA1 (B,D,..MSK)>x 
	    IFB <F>,<		
		A2 (B,D8,..MSK)>> 
	  ..XMSK==0>		
	IFNB x<F>,<
	  ..MSK=..MSK!<E>>MSK=;$\Y

0@c
  IF1,<

0
    PRINTX ? Err

0 or in "A"
    D

0pEFINE X(NAM,ERR)

1@<IFN ..X'NAM&..TX

1`EF,<PRINTX ? ERR>

2>
    $TX$ERR>

    $TX$ERR>
;$^

3`cF

    ..

4TXF==0				
    .

4 .TXB==0

[email protected]==0

4` ..TXEG==<..TXEF=

5=0>			
    IRPC

5 A,<				
	..TXC=

5@=ASCII\A\_-35

5`
	IFN ..TXB,<IFN

6..TXB-..TXC,..CNS

6 (<A>)
		   IFE

[email protected],..TXB

6`==0>
	IFE ..TXB,

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

7 F)>>	
    ..TXC1

7@				
    IFN ..T

7`XB,<IFN <..TXB-"^

8">,<..TXER(PEA)>>

8 
    ..TXEF==..T

8@XEF!..TXEG

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

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

`a>..TXER(IQU)..TXER(IQU;&)

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

a1..TXA(.TQCHA)..TXA(.TQC;&5

Pa%..TXC0(\".CHLFD).TXC0(\".;&5

Pa-..TXC0(\".CHVTB).TXC0(\".;&6

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

a!..TXC0(\".CHCRT).TXC0(\".;&@ M\
	..TSIZ M8(..PST,C)	
	.CAMXSE ..PST,<<
		SEMxTZM B>,<	
		HLLNZS B>,<	
		HRRZN8S B>,<	
	  ..TSNXAC (..ACT,B)	
	Nx  .IF0 ..ACT,<
	O	$CALL .ZERO	
		O8LSTOF.
		JUMP [POXOINTR(B,C)]
		OxLSTON.>,<
		..TX (Z,B,C)>>>TX;&81 
{Wq
	IFNDEF 
{8.PSECT,<
	A==0	
{X		
	..TSA1==<Z 
{xB>		
	  IFE ..TS
|A1&^O777777777760
|8,<A==1> 
	>
	I
|XFDEF .PSECT,<
	
|xA==0			
	..TSA1=
}=<Z B>		
	.IF .
}8.TSA1,ABSOLUTE,<	
}X
	  IFE ..TSA1&^
}xO777777777760,<A
~==1>> 
	PURGE ..TSA1>
	PURGE ..;&:= 
yXWU
	A==3		
yx	
	IFE <B>+1,<
zA=0>	
	IFE <B>-
z8^O777777,<A==1> 
zX
	IFE <B>-^O777777B17,<A==2>7;' 
xW
   ..TX1
`==C			
IFDEF .P
`8SECT,<
   .IFN .
`X.TX1,ABSOLUTE,<

`x	TDA B,[C]>
 
a8  .IF ..TX1,ABSOL
aUTE,<		
	..TX2==
aX0		
	IFE <..TX1&
ax^O777777B17>,<
	
b  ..TX2==1		
	  
b8TRA B,..TX1>
	
bXIFE ..TX2,<		
	I
bxFE <..TX1&^O77777
c7>,<
	  ..TX2==1
c8		
	  TLA B,(.
cX.TX1)>>
	IFE ..T
cxX2,<		
	  IFE <<
d..TX1>B53-^O77777
l87>,< 
	    ..TX3
lX (A,B)>>	
	IFE
lx ..TX2,<		
	  TD
mA B,[..TX1]>	

m8	PURGE ..TX1,..TX
mX2>>
IFNDEF .PSEC
mxT,<
	..TX2==0		
n
	IFE <..TX1&^O77
n87777B17>,<
	  ..
nXTX2==1		
	  TRA
nx B,..TX1>
	IFE 
o..TX2,<		
	IFE <
o8..TX1&^O777777>,<
oX
	  ..TX2==1		

ox	  TLA B,(..TX1
p)>>
	IFE ..TX2,<
p8		
	  IFE <<..TX
pX1>B53-^O777777>,<
px 
	    ..TX3 (A
q,B)>>	
	IFE ..T
q8X2,<		
	  TDA 
qXB,[..TX1]>	
	PURGE ..TX1,..TX2>;'` 
rW#
	IFIDN <
r8A><Z>,<		
	  ..
rXTX2==1
	  ANDI 
rxB,^-..TX1>	
	IFI
sDN <A><O>,<		
	
s8  ..TX2==1
	  OR
sXCMI B,^-..TX1>	
sx
	IFIDN <A><C>,<
t		
	  ..TX2==1

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

b<



	..TXE

 F==0			

IFNDEF

@ A,<..TXER(UQU)>

`		
IFDIF <B><>,

<IRPC B,<.IFN <

 B>,NUMERIC,..TXER

@(IWA)>>
IFNB <C

`>,<IFNDEF .TXTJC

,<..TXER(IJA)>>

 IFDEF  A,<
  IF

@E <A_-^D18>,<IFD

`IF <EFBCD><>

,<..TXER(ANA)>>

   IFE <1-<A_-^D1

@8>>,<IFDIF <BC

`D><>,<..TXER(JNA)

>>
  IFE <2-<A_

 -^D18>>,<IFIDN <

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

`S)>>>

      IF

E ..TXEF,<
	IFID

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

@=<..TXJU==<..TXFC

`==0>>>
	IFDIF <

 B><>,<
	  IFE <^

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

 @..TXJU==<..TXFC==

 `0>>>
	  IFN <^D<

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

! B>
	    IFNB <

!@C>,<..TXJU==.TXTJ

!`C>
	    IFB  <

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

" L
	      IFE <A

"@-.TQOCT>,<..TXJU=

"`=.TXTJR>

#IFE <A-.TQDEC>,<

# ..TXJU==.TXTJR>>

#@
	    IFB  <D>,<

#`..TXFC==" ">

$  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

J@d`
    IFE

J`..TXP,<			
	..IC

KNS			
	..CNS<ASC

K IZ\>		
	..TXP==1

K@>		
    ..CNS<A

K`>			
    ..TXF==

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

L@dl

    IF

L`N ..TXP,<			
	..

MCNS<\>		
	EXP <F

M LD(.TQCHT,TXT.FN)

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

2@c
    ..TX

2`EF==..TXEF!..XA

3	
    ..TXF==0

3 		
    ..TXB=="^"
    ..TXB=="^;'

9 cJ..TXQB(<A>)..TXQB(<;'

9`cT

    IF

:N ..TXC-"^",<..TX

: C0(<A>)>

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

;ct

    IF

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

;@C0(<A>)>	
    I

;`FN ..TXF,<			
	.

<.TXF==0		
	IFDEF

<  .TQCHA,<

<@  IFDEF ..TQMA,.

<`.TQMA 
	    IFN

= <.TQCHA_-^D18>,

= <..TXF==2>>>

=@ IFE ..TXF-2,<..T

=`XC1(<A>)	
	..IC

>NS			
	..CNS<..T

> XA(.TQCHA,>>

>@   ..TXEG==..TXEG!..TXEF==..TXEG;'

?d
    ..TX

? F==3				
    IFG

?@E ..TXC-"0",IFLE

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

@=2>
    IFE ..TX

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

@@
    IFE ..TXF-3

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

A d
    ..TX

A@F==4				
    IFE

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

B==5>		
    IFE .

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

B@5>		
    IFE ..T

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

C		
    IFE ..TXF

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

C`d0
    ..TX

DF==4				
    IFE

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

D@=5		
    IFE ..T

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

E
    IFE ..TXF-5

E ,<..CNS<,>

[email protected]<A>>

E`  IFE ..TXF-4,<..

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

F@dB
    ..TX

F`F==6				
    IFE

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

G ="/"		
    IFE .

[email protected]"[",..TXB=="

G`]"
    IFE ..TXB

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

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

H`dP
    ..TX

IF==0			
    IFE

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

I@>	
    ..CNS<)>

I`		
    ..GCNS

J
    ..TXEG==..TXEG!..TXEF==..T;DQ @;DPQ ;EPQ ;E:Q  ;EpQ ;E+PQ ;F	0Q ;F\:Q @
0P 
@P 
PP 
`P d  )xZO
	.ACV2 (A)
	.ACV2 (d@ *8ZY
	A=.FPA*XC+..NAC		
	IFB <*xB>,<..NAC=..NAC++1>
	IFNB <B>,<..NAC=..NAC+B>.d` +XZg
	IFG A-+x.NPAC,<PRINTX ?TO,O MANY ACS USED>
	IFLE A-4,<
	,,X $CALL .SAVEA>	
	IFG A-4,<
	  $CALL .SAVE8>  
 R8]S
	  IFIDNRX <A><.>,<
	    RxXMOVEI .SAC,B	
S	    PUSH P,.SAC
	  >
	  IFDIF <SXA><.>,<
	  .IFASxTM <A>,.BLF4	
	T  .BLF1==0		
	  T8IFN .BLF4,<		
	 TX   .IF %A,MACRO,Tx<	
		.BLF1==1>	
	  >
	  IFNB <U8B>,<
		.BLF1==1>UX	
	  IFN .BLF1,<Ux		
	    LOAD .SAVC,A,B
	    PUSV8H P,.SAC
	  >
	VX  IFE .BLF1,<		;IVxF WASN'T A STRUCTWURE REF,
	    IFW8N .BLF4,<		
	   WX  .BLF2==<<Z A>&Wx17B17>-<P>B17 
	X      .IF .BLF2,AX8BSOLUTE,< 
	Xx  XX   IFE .BLF2,<		
	       .BLF1==1Y		
	       .BLF3Y8==<Z A>&777777
YX		PUSH P,.BLF3-..YxNA(P)>>>> 
	  IFZE .BLF1,<		
		PUZ8SH P,A>>	
	  ..NA=..NA+1
	  ..
	 Qx]
	.BCAL1 A
	.BCAL1 
| 	iNJ
	XLIST
	i(	.ORG 0
	LIST
.ORG 0
	LIST

=Z _8]{$CALL	I%INTA$CALL	I%IN9  
wXWG
	..CSN==
wxA
	..CSC==0
	I
xRP B,<
	IFE ..C
x8SN-..CSC,<
	  ST
xXOPI
	  ..CAS1 (
xxB)>
	..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 J\[
	..PST==J8C-FWMASK
	.IF0 JX..PST,<
		SOS BJx>,<	
		$CALL .SOKS	
		LSTOF.
		JK8UMP [POINTR(B,C)]
		LSTON.>C}

P@g
	.OPCD==

s .OPCD+1
	WO.A==.OPCD
G),<
		| 	j0N[
	XLIST
	jP	.....X=.
	.ORG
	.ORG 0
	REPEAT	k .....X,<EXP 0>
	k0	PURGE .....X
	.ORG
	LIST

	.v=H !8Z
	IRP A,!X<
	  .ENSV2 (A)>	  .ENSV2 (A)v=I "Z
	.ENSV3 (A)
	.ENSV3 v=I "XZ
	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 
v8W9
	..IFT==
vXA		
	IFE ..IFT,
vx<
	B
	..IFT==0
w>		
	IFN ..IFT,<
	C>N ..IFT,<&4 Zx]k
	IRPC A[,<
	B==0
	IFGE[8 "A"-"A",<IFLE "[XA"-"Z",<B=1>> 
	IFGE "A"-"0",<\IFLE "A"-"9",<B\8=1>>
	IFE "A"-"\X%",<B=1>
	IFE "\xA"-"$",<B=1>
	]IFE "A"-".",<B=]81>
	IFE B,<STOPI>>IFE B,<STOP&t<H G\C
	..PST==G8C-FWMASK
	.IF0 GX..PST,<
		AOS BGx>,<	
		$CALL .AOHS	
		LSTOF.
		JH8UMP [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 
7XS=<A>B<^D70-POS(B)>B<^D70N

0PO 
	SYSPRM	C	
	IFG	.PID,<MX.PID==A>	
<MX.PID=O%=H 8Yk
	.STKV2 (A)
	.STKV2 O%=I xYy
	IFB <B>,<..STKN==..STKN8+1>
	IFNB <B>,<X..STKN==..STKN+Bx>
	..STKQ==..STKN+1
	.STKV3 (A,\..STKQ)V3 (A,O%=I XZ
   IFDEFx A,<.IF A,SYMBO L,<PRINTX STKVAR  8A ALREADY DEFINE XD>>
	DEFINE A<- x^OB(P)>
	$A==<Z A>>
	$A==<RJP RJP RJ	P RJ	P RJJP RJP RJ
P RJ$HP RJ%P RJ4`P 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  %8Z+
	.TRV2 (A)
	.TRV2 (Sd@ %xZ5
	.TRV3 (&A,\..NV)	
	IFB &8<B>,<..NV=..NV+1&X>
	IFNB <B>,<..NV=..NV+B>,<..Sd` 'ZC
   IFDEF'8 A,<.IF A,SYMBO'XL,<PRINTX TRVAR 'xA ALREADY DEFINED(>>
	DEFINE A<^O(8B(.FP)>
	$A==<Z A>>
	$A==<S"P S"P S"	P S"	P S"JP S"P S"
P S"$HP S"%P S"4`P S"4hP S"5P S"5 P S%4(P S%D)P S%DkP S&d
P S&e(P S&e)P 	S&eHP 	SFH2P SFIVP SFJQP SFJVP SFJYP _%~

zgl
		$CALL

z I%WTO		
		LSTOF.

z@			
		JRST	g

z`
		$WTRST			
	IF

{NB <A>,<$WTMTY (

{ <A>)>	
	IFNB <

{@B>,<$WTTYP (<B>)

{`>	
	IFNB <C>,<$

|WTTXT (<C>)>

| IFNB <D>,<$WTOBJ

|@ (<D>)>	
	IFNB

|`<E>,<$WTACK (<E

}>)>	
		IRP F,<

} F>		
		$WTBLD

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