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

Trailing-Edge - PDP-10 Archives - BB-JR93K-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@ +pZc
	..NAC==,0		
	IRP A,<
	,0  .ACV1 (A)>		
	.ACV3 (\..NAC)C' 
SpU..AS(A,B,ADD,SUB)(A,BC, 
58S+LSH A,-^D9LSH A,-^DC2f}

Pxe
	.EAWTO(

QMTY,0)
	.EAWTO(T

Q8YP,2)
	.EAWTO(TX

QXT,2)
	.EAWTO(OBJ

Qx,0)
	.EAWTO(ACK,

R0)
	.EAWTO(FLG,1

R8)
	.EAWTO(NOD,0)

RX
	.EAWTO(JBN,0)

Rx
	.EAWTO(ACD,0)

S	.EAWTO(OCD,0)
	.EAWTO(MFL,1)
C:' 
x0WC
	TXZ A,<^-<B>>TXZ A,CHuI7Q xCHvN8P'CJ9ip CJ9jp CJ9l}p E
	..NA==0SP			
	IRP B,<
	Sp  .BCAL2 B>		
	TPUSHJ	P,A		
	ADT0JSP	P,-..NA		
   	P,-..NA		
  E2"@ nP^{
	  IFE npB,<..TA==0>
	  oIFN B,<EXP ..TAo0
		    PURGE ..TA>
	PURGE ..TE@tP'E@vyQ ~E@v:=Q |F;z:Q @G@ 
LpTg
	    ..CX(,A,B)   ..CGD 
P0U
	    ..CX(A,A,B)  ..CGDP 
N0Ts
	    ..CX(E,A,B)  ..CGDp 
NpTw
	    ..CX(G,A,B)  ..CGDy  
O0T{
	    ..CX(GE,A,B) ..CGE@ 
M0Tk
	    ..CX(L,A,B)  ..CGEI  
MpTo
	    ..CX(LE,A,B) ..CGE` 
OpT
	xlK..CX(N,A,B)  ..CGH 

	xOLST

	X	CRE		
DX	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		
Fx	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		
I8	X	EXP		

	  LSTON.


	  LSG"\Y e8~A

	IF1, eX<%%EDT==AEDT>	
ex
	IF2, <IFN <%%EfDT-AEDT>,<
		PRf8INTX ? Edit NumbefXr Doesn't Match GfxLXVER in GLXA
	g	A$WHO(\AEDT)>	g8
		A$NOTE		
	IgXNTERN AEDT		
	IgxNTERN LODLEV		
;h	PURGE %%EDT> ;END IF2

=QS2G(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@ 	uPO5LALL
PAGE	up; (A Continued o	vn next page)
SAL	v0L; (A Continued 	vPfrom previous page) previous pagG?T 	m(NjASCIZ \
COPYRIGHT Z \
CGHt;rP GHtkP GHv	P GHv)9P GHv:=P I!k7P I!k<P ImP I$P`S9*IIY{P`S;*|I  Kp\e
	IFNB <LB>,<..STR0 (.DECRL00,,<B>,A)>
	IFLPB  <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 
V0U3..OP(A,B,DIV)..OP(A,BIOH1 shw(
	IFB <Dt>,<
	XWD	[ASCIZ\t(C\],[XWD B,A]>tH
	IFNB <D>,<
	thXWD	[EXP CM%FW!Du
		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	NMAPCFamessage
	8ERR	FDS,<Files ar
	ERR	FFile already 
	ERR	USEpected syst
	ERR	NNo such pid>
	ERR	BOL,<Beginnach
	ERR	EOL,<En
d of list reached
8>
	ERR	RQF,<Rece
Xivers quota full>
x
	ERR	SQF,<Sende>
	8ERR	NRE,<No>remem
	ER	TBF,<Table is f

ull>
	ERR	EIT,<T

8able entry alread

Xy exists>
	ERR	I

xTE,<Invalid table
	ERR	QEF exceeded 
	ER	ARG,<Invalidiad
	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`

(`4
	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  	sOIRP A,<
	s0	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  
:SQ<<<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|  	spO)IRP A,<
	t	IF2,<IFDEF A,<.	t0IFN A,EXTERN,<IN	tPTERN A>>
	     	tpIFNDEF A,<EXTERN	u A>
	Q SUPPRESPA>>FlYSUPPRO3DYPFFO3EKrPfFO3EZ7PO3FLQ St\Yp Stkp SuZp SulQ Su}:p Sv
1p Sv

Sp Sv8;Q Sv>@p SNn 
UpU/..OP(A,B,IDIV).OP(A,BSNp @S7-N 
TpU'..OP(A,B,IMUL).OP(A,BS:  Hp\M
	IFNB <IB>,<..STR0 (.INCRI00,,<B>,A)>
	IFIPB  <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 
<PSe<<<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? 
wpW?
	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/

`<
	LSTOF.

(XCREF
	..TEXT<A

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

2Xlu

	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 uHw4
	IFB <Cuh>,<
	XWD	[ASCIZ\vB\],A>
	IFNB <v(C>,<
	XWD	[EXP vHCM%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	
-I%TIMR
	CDO
	CD
-8O
	CDO	I%SOPR
	
-XCDO	I%WTO
	CDO

-x	CDO	I%HOST
	CDO
.	I%JINF
	CDO	I%C
.8JOB
	CDO	I%KJOB
.X

	CDO	S%U2DT		
.x
	CDO	S%DT2U
	CD
/O	S%DATI
	CDO	S%
/8SIXB
	CDO	S%CMND
/X
	CDO	S%TBLK
	C
/xDO	S%SCMP
	CDO	S
0%ERR
	CDO	S%INTR
08
	CDO	S%EXIT
	C
0XDO	S%TBAD
	CDO	S
0x%TBDL
	CDO	S%NUM
1I


	CDO	K%RCO
18C			
	CDO	K%WCOC
1X
	CDO	K%SUET
	C
1xDO	K%STYP
	CDO	K
2%TXTI
	CDO	K%SOU
28T
	CDO	K%BOUT
	
2XCDO	K%BIN
	CDO	K
2x%BACK
	CDO	K%TPO
3S
	CDO	K%BUFF
	
38CDO	K%FLSH
	CDO	
3XK%OPEN
	CDO	K%EC
3xHO
	CDO
	CDO
	
4CDO
	CDO
	CDO

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

@ B0\
	IFNB <BPC>,<..STR0 (..LDBBp,A,C,B)>
	IFBC  <C>,<MOVE A,B>C>,<MOVE A,Y>%I;P YO%GP YO%yG 	wOC
	IFNDEF 	w0LSTIN.,LSTIN.==0		wP	
IFE LSTIN.,<
	wp	IFIDN <XCREF><A	x>,<.XCREF>	
		  	x0 XLIST>		
	LSTIN.==LSTIN.+1STINYO%{G 	xpOM
	IFG LST	yIN.,LSTIN.==LSTIN	y0.-1	
	IFLE LSTIN	yP.,<.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@ 
<Sa<<<1_<A>>-1>B<B>>_<A>>[8@ 
;SY1B<<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 
XQ
	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>>>
[>!` 
;PS]<A-<A/B>*B><A-<A/B[?7 
=TK
   ..MX1
=0==B			
IFDEF .P
=PSECT,<
   .IFN .
=p.MX1,ABSOLUTE,<

>	MOVE A,[B]>
 
>0  .IF ..MX1,ABSOL
>PUTE,<
	..MX2==0	
>p	
	IFE <..MX1>B5
?3,<
	  ..MX2==1
?0
	  MOVEI A,..MX
?P1>	
	IFE ..MX2,<
?p		
	IFE <..MX1>B
@17,<
	  ..MX2==1
@0
	  MOVSI A,(..
@PMX1)>>	
	IFE ..M
@pX2,<		
	IFE <<..
AMX1>B53-^O777777>
A0,<
	  ..MX2==1

AP	  HRROI A,<..MX
Ap1>>>	
	IFE ..MX2
B,<		
	IFE <<..MX
B01>B17-^O777777B17
BP>,<
	  ..MX2==1
Bp
	  HRLOI A,(..M
CX1-^O777777)>> 

C0	IFE ..MX2,<		
	
CP  MOVE A,[..MX1]
Cp>	
	>>

IFNDEF
D .PSECT,<
	..MX2
D0==0		
	IFE <..MX
DP1>B53,<
	  ..MX2
Dp==1
	  MOVEI A,
E..MX1>	
	IFE ..M
E0X2,<		
	IFE <..M
EPX1>B17,<
	  ..MX
Ep2==1
	  MOVSI A
F,(..MX1)>>	
	IFE
F0 ..MX2,<		
	IFE 
FP<<..MX1>B53-^O777
Fp777>,<
	  ..MX2=
G=1
	  HRROI A,<
G0..MX1>>>	
	IFE .
GP.MX2,<		
	IFE <<
Gp..MX1>B17-^O77777
H7B17>,<
	  ..MX2
H0==1
	  HRLOI A,
HP(..MX1-^O777777)>
Hp> 
	IFE ..MX2,<	
I	
	  MOVE A,[..
I0MX1]>	
>
	PURGE ..MX1,..MX2RGE[Lt;ZQ x[LvN8P'[NF:=p [N^= 0X=
	A==C	P	
	IF1,<IFDEF %pA,<PRINTX ?A ALREADY DEFINED>>
	0DEFINE %A (OP,ACP,Y,MSK)<	
	IFDIFp <Y><>,<
	OP (<AC>,B+'Y,MSK)>
	0IFIDN <Y><>,<
	OPP (<AC>,B'Y,MSK)>>AC>,B'Y,MSK)[PuySP'[PvNP'[Vg 
U0U+..OP(A,B,MUL)..OP(A,B[`v
2P ] 	qPOIF2,<IFDEF	qp A,<A==A>> IFNDEF A,<A==B>]F@ qHTEMFDB##_
QkRp _
Ql}p _
Qmp _
Qm7p _
T=

2o

	X	.OTReader
	X	.OU,Network-Cont
	X	.OTLPTr
	X	.OTBtch-Stream
f`	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
o@	X	.OTDBM,<DBMS S
	X	.OTFALtream>
	X	.OTEVT,<Event>
p@	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\yQal}P aI3 

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

}x.IFNBC<D>,<..XX=
~X.IFNBC<E>,<..XX=

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 
4xS'LSH A,^D9LSH A,^D9a+= 5a;&

*xb_
	 IFB  <

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

+8,,<FWMASK>,A)>

+X	 IFNB <B>,<..ST

+xR0(..PNT,,<B>,A)>.PNT,,<B>,Aa>Mm 
90SM<POINT WID
9P(B),A,POS(B)>B),A,POS(B)>a?H6 +a? 
6pS7<^L<<A>&<-<A>>>><<A>&<aJ}Ks 	l Po

	SALL		z8			
	LSTOF. XCRE	zXF			

	%%.GLX==	zx%%.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		
	>				

	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"@ op_
	IFN <<.p.TA>&B>,<PRINTXp0 ?Initial field npPot zero in $SET>
	q..TVAL==<C>
	q0..TMSK==<B>
	  ..TA==..TA!qP<FLD(..TVAL,..TMSqpK)>
	  PURGE ..TVAL,..TMSK
	.TgtXrP gv

[P]g#=ztq`C.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 PY
	..STKR=p=10		
	RADIX 8
	..STKN==0
	IRP 0A,<
	  .STKV1 (PA)>
	$CALL	.STKpST
	 ..STKN,,..STKN
	RADIX ..STK0R
	DEFINE ENDSV.P<.ENSV1 <A>>
	PpURGE ..STKN,..STKR,..STKQ
   TKgR~r xh_~

.TYPE=y=-1				
IFIDN <y(B><HALT>,<.TYPE==yH0>		
IFIDN <B><yhCONT>,<.TYPE==1>	z	
IFIDN <B><DEBz(UG>,<.TYPE==2>		

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

IFB <A>,<|(				
IF2,<PRINTX|H ? 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~)  EP\3
	IFNB <EpC>,<..STR0 (..DPBF,A,C,B)>
	IFBF0  <C>,<MOVEM A,B>>,<MOVEM A,gV 
T0U#..AS(A,B,SUB,ADD)(A,Bgg

V 
8Py
	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( _0}{IFN FTUUOS,B			;DEFINE UNi?4H _p}IFN FTJSYS,	INTERN AEDT	iD

a

  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,


	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.

28n(
	LSTOF.
OX(33,TTY33,33,.
PX(3TTY35,35,.RETT,
TOPS20<
P@EX(37,TTY37,37,.R
QX(EXPORT,EXEC,EXE,
>
Q@TOPS10<
QX(LA120,L12,.RETT,
>
RX(LA336,L36,.RETT,
RX(VK100,10,SETTLC,
SX(T05,VT05,V05,.RE
TX(VT100,00,SETTLC,

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

>PA iK4@ &Z?
	..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 
m0Vk
		..TX(C,A,<B>)..TX(Cib 
npVw
		..TX(CA,A,<B>).TX(CibP 
mpVo
		..TX(CE,A,<B>).TX(Cib` 
n0Vs
		..TX(CN,A,<B>).TX(Cibp 
g0V;
		..TX(N,A,<B>)..TX(Nibt 
hpVG
		..TX(NA,A,<B>).TX(NibtP 
gpV?
		..TX(NE,A,<B>).TX(Nibu` 
h0VC
		..TX(NN,A,<B>).TX(Nibx 
i0VK
		..TX(O,A,<B>)..TX(Oib| 
jpVW
		..TX(OA,A,<B>).TX(Oib|P 
ipVO
		..TX(OE,A,<B>).TX(Oib}` 
j0VS
		..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 
k0V[
		..TX(Z,A,<B>)..TX(ZicT 
lpVg
		..TX(ZA,A,<B>).TX(ZicTP 
kpV_
		..TX(ZE,A,<B>).TX(ZicU` 
l0Vc
		..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@ `OQBYTE (3)A	zWHO (9)AVER (6)AMIN (18)AEDTo&  
60S3<^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? 
xpWG
	TXC A,<B>
	TXC A,q@ 	r0OIFB <C>,<	rPA==:B> IFNB <C>,<A=:B>B <CqBp +qN5P +up Np\}
	IFNB <OB>,<..STR1 (..TQZO0,,<B>,A,..STR4)OP>
	IFB  <B>,<SETZM A><B>,<SEuhP 	;z ow

	.XCREF	o(.$RESET, .$BUILD
	.$RESET
	$TYPEoh (.CMACT)
	$HELPp (<>)
	$NEXT (Ap()
IFIDN <B> <>,pH< IRP C,<C>
		ph	.$BUILD>
IFDIF q<B> <>,<
	$HELPq( (B)
	IRP C,<C>
	.$BUILD><	0

y8gO
.WTOX.(.OM

yXACK,<A>,<B>,<C

yx>,<D>,<$WTFLG(WT.SJI),E>)LG(WT	J7  q>.XCREF	.%R@TN,	.$RTN
			DEF`INE .$RTN <A>
			.%RTN==1A>
		D[ 	@pT
	IFDIF <	`A> <>,<.XCREF	.%
HLPM,	.$HLPM
DEF
 INE .$HLPM <POINT
@ 7,[ASCIZ\A\]>
			.%HLPM==-1>
	fI9  q.XCREF	.%L@ST,	.$LST
			DEF`INE .$LST <A+1>
			.%LST==11>
=Z `p^
	  IFG aA-INT.LV,<PRINTX a0?Level A interruaPpts not supportedap>
	  .BGINT.(\A)   .BGINT.(\A	X5  q.XCREF	.%B@REA,	.$BREA
			D`EFINE .$BREA <A>
			.%BREA==1>	- cP^-
	  IFDEFcp ..BSIZ,<PRINTX ?dMissing $EOB afted0r a $BUILD>
	  .dP.BSIZ==0			
	  .dp.BLOC==.			
	  ReEPEAT A,<			
		e0BLD0.(\..BSIZ,0)	eP
		..BSIZ==..BSIZ+1>	
	==..BSI		}[0 Su 
	.XCREF	S(.$RESET, .$BUILD
	.$RESET
	$TYPESh (.CMCMA)
	$NEXTT (A)
	IRP B,<B>
	.$BUILD,<	I@ NHt|
	.XCREF	Nh.$RESET, .$BUILD
	.$RESET
	$TYPEO( (.CMCFM)
	IRP OHA,<A>
	.$BUILD,<A>
	.$BUILD	$^ \ur
	.XCREF	\(.$RESET, .$BUILD
	.$RESET
	$TYPE\h (.CMTXT)
	$HELP] (<>)
	$NEXT (A]()
IFIDN <B> <>,]H< IRP C,<C>
		]h	.$BUILD>
IFDIF ^<B> <>,<
	$HELP^( (B)
	IRP C,<C>
	.$BUILD><	I  ^hv
	.XCREF	.$RESET, .$BUILD
	.$RESET
	$TYPE_H (.CMTAD)
	$PDAT_hA (CM%IDA)
	$NEX`T (A)
	IRP B,<B>
	.$BUILD,<	,,U bp^
	  $RET	c			;WILL INVOKE RIGHT ROUTINE
		,h:

@pt
	IFDIF <

`A>M<>,<.XCREF	.%
DEF[.$DEFM<POINT
			.%DEFM==1>
	IFIDN <A> <>,<
I F1 <
PRINTX %Nul@l argument in $DEFAULT macro>>DE	.` ZHu\
	.XCREF	Zh.$RESET, .$BUILD
	.$RESET
	$TYPE[( (.CMDEV)
	$NEXT[H (A)
	IRP B,<B>
	.$BUILD,<	Lz: ;sl
	.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	P(.$RESET, .$BUILD
	.$RESET
	$TYPEPh (.CMDIR)
	$NEXTQ (A)
	IRP B,<B>
	.$BUILD,<	|  jP^q
	  IFNDEjpF ..BSIZ,<PRINTX k?$EOB without prek0vious $BUILD>
	 kP IFN <.-..BLOC>,<kpPRINTX ?Address clhange between $BUl0ILD and $EOB>
	 lP LSTOF.			
	  ..lpT==0
	  REPEAT .m.BSIZ,<
	    BLDm00.(\..T,1)		
	  mP  ..T==..T+1 >
	mp  PURGE ..BSIZ,..nT,..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	- @q6.XCREF	.%E`RTN,	.$ERTN
			DEFINE .$ERTN <[MO VEI S2,[ASCIZ\A\@]
				      $RET`F]>
			.%ERTN==1>
			.%ERTN==1	IF2,<IFN <	p8A>-.,<PRINTX ? I	pXLLEGAL $FALL A>>EGAL $FALL A>>	H6 tH,
	$CALL	.thSTOP
	LSTOF.
	JuUMP	[XWD 0,[ITEXTu( (<A>)]
		 EXP uH%%.MOD]
	LSTON. .MOD]
	LSTON. 	L[ Khtp
	.XCREF	L.$RESET, .$BUILD
	.$RESET
	$TYPELH (.CMFLD)
	$NEXTLh (A)
	$HELP (<>M)
IFIDN <B> <>,M(< IRP C,<C>
		MH	.$BUILD>
IFDIF Mh<B> <>,<
	$HELPN (B)
	IRP C,<C>
	.$BUILD><	MI  ItZ
	.XCREF	I(.$RESET, .$BUILD
	.$RESET
	$TYPEIh (.CMFIL)
	$HELPJ (<>)
	$NEXT (AJ()
IFIDN <B> <>,JH< IRP C,<C>
		Jh	.$BUILD>
IFDIF K<B> <>,<
	$HELPK( (B)
	IRP C,<C>
	.$BUILD><	dy p4.XCREF	.%F LGS,	.$FLGS
			D@EFINE .$FLGS <A>
			.%FLGS==1>	ex: WhuP
	.XCREF	X.$RESET, .$BUILD
	.$RESET
	$TYPEXH (.CMFLT)
	$HELPXh (<>)
	$NEXT (AY)
IFIDN <B> <>,Y(< IRP C,<C>
		YH	.$BUILD>
IFDIF Yh<B> <>,<
	$HELPZ (B)
	IRP C,<C>
	.$BUILD><	$ d(v.
	.XCREF	dH.$RESET, .$BUILD
	.$RESET
	$TYPEe (.CMTAD)
	$PDATe(A (<CM%IDA!CM%ITMeH!CM%FUT>)
	$NEXTeh (A)
	IRP B,<B>
	.$BUILD,<	$ sX_ j`
	  INTERtN A
	  $DATA(A,<B>)
	ATA(A~V1P*	"
	IFDIF < A> <>,<.XCREF	.%@HLPM,	.$HLPM
DEF`INE .$HLPM <POINT	 7,[ASCIZ\A\]>
			.%HLPM==1>
	&5 CHt.
	.XCREF	Ch.$RESET, .$BUILD
	.$RESET
	$TYPED( (.CMIFI)
	$HELPDH (<>)
	$NEXT (ADh)
IFIDN <B> <>,E< IRP C,<C>
		E(	.$BUILD>
IFDIF EH<B> <>,<
	$HELPEh (B)
	IRP C,<C>
	.$BUILD><	&u V(u:
	.XCREF	VH.$RESET, .$BUILD
	.$RESET
	$NEXTW (A)
	$TYPE (.CW(MINI)
	IRP B,<B>
	.$BUILD,<	./ 6(s<
	.XCREF	6H.$RESET, .$BUILD
	.$RESET
	$TYPE7 (.CMKEY)
	$PDAT7(A (B)
	$NEXT (7HA)
	IRP C,<C>
	.$BUILD,<C>
	.XCREF	4h.$RESET, .$BUILD
	.$RESET
	$TYPE5( (.CMKEY)
	$PDAT5HA (A)
	$NEXT (05h)
	IRP B,<B>
	.$BUILD,<B>
	/>Ky

|gc.WTOX.(.OM

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

{8g].WTOX.(.OM

{XLOG,<A>,<B>,<C>,,<D>)B>,<C	:/
			DEF`INE .$NXT <A>
			.%NXT==1A>
		:|KV lvt
	.XCREF	l(.$RESET, .$BUILD
	.$RESET
	$TYPElh (.CMNOD)
	$HELPm (<>)
	$NEXT (Am()
IFIDN <B> <>,mH< IRP C,<C>
		mh	.$BUILD>
IFDIF n<B> <>,<
	$HELPn( (B)
;	$FLAGS (nHCM%PO)
	IRP C,<C>
	.$BUILD><	:}r >s|
	.XCREF	>(.$RESET, .$BUILD
	.$RESET
	$TYPE>h (.CMNOI)
	$PDAT?A (<POINT 7,[ASCI?(Z\B\]>)
	$NEXT ?H(A)
	IRP C,<C>
	.$BUILD,<C	;-XR 8sT
	.XCREF	8(.$RESET, .$BUILD
	.$RESET
	$TYPE8h (.CMNUM)
	$PDAT9A (B)
	$HELP (<9(>)
	$NEXT (A)
9HIFIDN <C> <>,< I9hRP D,<D>
			.$:BUILD>
IFDIF <C:(> <>,<
	$HELP (:HC)
	IRP D,<D>
	.$BUILD><D>
	.XCREF	FH.$RESET, .$BUILD
	.$RESET
	$TYPEG (.CMOFI)
	$NEXTG( (A)
	$HELP (<>GH)
IFIDN <B> <>,Gh< IRP C,<C>
		H	.$BUILD>
IFDIF H(<B> <>,<
	$HELPHH (B)
	IRP C,<C>
	.$BUILD><	B$ p<.XCREF	.%D ATA,	.$DATA
			D@EFINE .$DATA <A>
			.%DATA==1>	B$YP p~.XCREF	.%D EFM,	.$DEFM
			D@EFINE .$DEFM <POI`NT 7,<A>>
			.%DEFM==1>
			.%	CYT  qF.XCREF	.%D@EFR,	.$DEFR
			D`EFINE .$DEFR <A>
			.%DEFR==1>	G-} f(vD
	.XCREF	fH.$RESET, .$BUILD
	.$RESET
	$TYPEg (.CMQST)
	$HELPg( (<>)
	$NEXT (AgH)
IFIDN <B> <>,gh< IRP C,<C>
		h	.$BUILD>
IFDIF h(<B> <>,<
	$HELPhH (B)
	IRP C,<C>
	.$BUILD><	J.I  r8_
	  $CALLrX	.RETE			
		LSTOrxF.
	  JUMP	ERA$
		LSTON.ERA$	Ni  00[
	.NVR==00P			
	.ACM==0			

	IRP A,<		
	1	..TSAC(.ACB,A)	10	
		IFN .ACB,<.A1PCM==.ACM!1B<A>>	1p
		IFE .ACB,<			2
		IFE .NVR,<			20
		    PUSHJ P,[2P			
			>
		  ..2pPUSH(A,\<.NVR+1>3)>>	

    IFE .30NVR,<	
	IFN .ACM3P,<	
	    IFE <.A3pCM-17B<T4>>,<.ACM4==0
				$CALL .S40AVET>
	    IFE <4P.ACM-377B<.A16>>,4p<.ACM==0
				$CA5LL .SAVE8>
	    50IFE <.ACM-17B<P4>5P>,<.ACM==0
				$5pCALL .SAVE4>
	  6  IFE <.ACM-7B<P360>>,<.ACM==0
				6P$CALL .SAVE3>
	 6p   IFE <.ACM-3B<P72>>,<.ACM==0
			70	$CALL .SAVE2>
	7P    IFE <.ACM-1B<7pP1>>,<.ACM==0
		8		$CALL .SAVE1>
80	    IFE <.ACM-1B8P<.A13>>,<.ACM==0
				$CALL .SV13>9
	    IFE <.ACM-901B<.A14>>,<.ACM==9P0
				$CALL .SV19p4>
	    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,<	
>0		PUSHJ	P,@-.NVR(>PP)	
		 TRNA			
>p		AOS	-1-.NVR(P)	?
	    REPEAT .NV?0R,<..POP(\.NVR)>	?P
		ADJSP	P,-1		
		POPJ	P,]>		
		POPJ	P,]>		
	N;  p`.XCREF	.%S BCM,	.$SBCM
	IFD@IF	<A><>,<DEFINE`	.$SBCM	<EXP	<A>

>>
	.%SBCM==1
>
	.%SBCM==1
	N.@ f^A
	  IFNDEf0F ..BSIZ,<PRINTX fP?$SET without prefpvious $BUILD>
	 g IFNB <B>,<..STRg00 (..SET,<C>,B,gPA)>
	IFB  <Bgp>,<..STR0 (..SET,h<C>,FWMASK,A)>
	,FWMASK,A)>
	.XCREF	w(a,	b
	a==.
	wHXWD b-1,b-1
	DwhEFINE $ETAB <.XCRxEF	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 THu.
	.XCREF	Th.$RESET, .$BUILD
	.$RESET
	$NEXTU(	(A)
	$TYPE	(.CUHMINI)
	$SBCM	(BUh)
	IRP C,<C>
	.$BUILD,<C>
	O= Aht
	.XCREF	B.$RESET, .$BUILD
	.$RESET
	$TYPEBH (.CMSWI)
	$PDATBhA (A)
	$NEXT (0C)
	IRP B,<B>
	.$BUILD,<B>
	O= @t

	.XCREF	@(.$RESET, .$BUILD
	.$RESET
	$TYPE@h (.CMSWI)
	$PDATAA (B)
	$NEXT (A(A)
	IRP C,<C>
	.$BUILD,<C>

@ b(v
	.XCREF	bH.$RESET, .$BUILD
	.$RESET
	$TYPEc (.CMTAD)
	$PDATc(A (<CM%IDA!CM%ITMcH>)
	$NEXT (A)
ch	IRP B,<B>
	.$BUILD,<B>
	.$	R/

h`
	$CALL	T

%TEXT
	LSTOF.	XC

(REF
	JUMP	[XWD 2

H,0
		 EVL (A)

h		 ITEXT(<B>)]	
	LSTON.B>)]	
	.XCREF	`h.$RESET, .$BUILD
	.$RESET
	$TYPEa( (.CMTAD)
	$PDATaHA (CM%ITM)
	$NEXahT (A)
	IRP B,<B>
	.$BUILD,<	R}97 qhw
	.XCREF	r.$RESET, .$BUILD
	.$RESET
	$TYPErH (.CMTOK)
	$PDATrhA (<POINT 7,[ASCIsZ\B\]>)
	$NEXT s((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

-Xc
	LSTOF.

-x
	X(UQU,Unknown q

.ualifier)
	X(IQU

.8,Invalid qualifie

.Xr)
	X(IJA,Invali

.xd justification a

/rgument)
	X(IWA,

/8Invalid width arg

/Xument)
	X(PEA,Pr

/xemature end of ar

0gument)
	X(JNA,J

08ustification is n

0Xot allowed)
	X(A

0xNA,Arguments are

1not allowed)
	X(

18ADS,Address must

1Xbe specified)
	LSTON.
ied)
	L	SN	  p,.XCREF	.%T YPE,	.$TYP
			DE@FINE .$TYP <A>
			.%TYPE==1>
	W= iv\
	.XCREF	i(.$RESET, .$BUILD
	.$RESET
	$TYPEih (.CMUQS)
	$HELPj (<>)
	$NEXT (Aj()
	$PDATA (B)
jHIFIDN <C> <>,< IjhRP D,<D>
			.$kBUILD>
IFDIF <Ck(> <>,<
	$HELP (kHC)
	IRP D,<D>
	.$BUILD><D>
	.XCREF	Qh.$RESET, .$BUILD
	.$RESET
	$TYPER( (.CMUSR)
	$NEXTRH (A)
	IRP B,<B>
	.$BUILD,<	^+@ v_B
IFE %%.Ov(TS,<DEFINE $WARN vH(MSG) <
		$TEXT vh(T%TTY,<% ^W6/[%%w.MOD]/ MSG>)>>
Iw(FN %%.OTS,<DEFINEwH $WARN (MSG) <
	wh	$TEXT (T%TTY,<% x^W6/IIB+IB.PRG/ ^x(W/[%%.MOD]/ MSG>)>>
	$WARN <A>	_$r

m8f}
		IFB	<

mXA>,<.WFACD==0

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

nD==0>>
		IFNB	<

n8A>,<.WFACD==-1

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

nxCD==.$WACD!<A>>

o
			IFE <0-2>,<DE

o8FINE .$WACD,<<WO.

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

b8f%
		IFB	<

bXA>,<.WFACK==0

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

cK==0>>
		IFNB	<

c8A>,<.WFACK==-1

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

cxCK==.$WACK!<A>>

d
			IFE <0-2>,<DE

d8FINE .$WACK,<<WO.

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

Tg;
	IFE	<.W

T8FMTY>,<PRINTX ?No

TX message type in

Tx$WTBLD>
DEFINE .

UEAWTO(SUFFIX,ARGC

U8OD),<
IFN .WF'SU

UXFFIX',<
	IFE	<AR

UxGCOD-0>,<<WO.'SUF

VFIX'>B8+ .$W'SUFF

V8IX'>
	IFE	<ARGCO

VXD-1>,<<WO.'SUFFIX

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

vXFFIX']>
	IFE	<AR

vxGCOD-2>,<.$W'SUFF

wIX'>
>
>
	ALLW

w8TO				
	EXP	0			
		
	EXP	0				_$k

ef;
		IFB	<

e8A>,<.WFFLG==0

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

exG==0>>
		IFNB	<

fA>,<.WFFLG==-1

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

fXLG==.$WFLG!<A>>

fx
			IFE <1-2>,<DE

gFINE .$WFLG,<<WO.

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

jXfg
		IFB	<

jxA>,<.WFJBN==0

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

k8N==0>>
		IFNB	<

kXA>,<.WFJBN==-1

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

lBN==.$WJBN!<A>>

l8
			IFE <0-2>,<DE

lXFINE .$WJBN,<<WO.

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

rxg)
		IFB	<

sA>,<.WFMFL==0

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

sXL==0>>
		IFNB	<

sxA>,<.WFMFL==-1

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

t8FL==.$WMFL!<A>>

tX
			IFE <1-2>,<DE

txFINE .$WMFL,<<WO.

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

W8eM
		IFB	<

WXA>,<.WFMTY==0

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

XY==0>>
		IFNB	<

X8A>,<.WFMTY==-1

XX		IFN <0-2>,<.$WM

XxTY==.$WMTY!<A>>

Y
			IFE <0-2>,<DE

Y8FINE .$WMTY,<<WO.

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

gxfQ
		IFB	<

hA>,<.WFNOD==0

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

hXD==0>>
		IFNB	<

hxA>,<.WFNOD==-1

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

i8OD==.$WNOD!<A>>

iX
			IFE <0-2>,<DE

ixFINE .$WNOD,<<WO.

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

wxgA.WTOX.(.OM

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

_Xf
		IFB	<

_xA>,<.WFOBJ==0

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

`8J==0>>
		IFNB	<

`XA>,<.WFOBJ==-1

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

aBJ==.$WOBJ!<A>>

a8
			IFE <0-2>,<DE

aXFINE .$WOBJ,<<WO.

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

pg
		IFB	<

p8A>,<.WFOCD==0

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

pxD==0>>
		IFNB	<

qA>,<.WFOCD==-1

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

qXCD==.$WOCD!<A>>

qx
			IFE <0-2>,<DE

rFINE .$WOCD,<<WO.

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

z8gW.WTOX.(.OM

zXWTO,<A>,<B>,<C

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

xXgG
.WTOX.(.OM

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

Wg-
	DEFINE

Vx.EAWTO(SUFFIX),<$

uXWT'SUFFIX'	<>>
	ALLWTO				

		_&N

\xey
		IFB	<

]A>,<.WFTXT==0

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

]XT==0>>
		IFNB	<

]xA>,<.WFTXT==-1

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

^8XT==.$WTXT!<A>>

^X
			IFE <2-2>,<DE

^xFINE .$WTXT,<<WO.

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

Zec
		IFB	<

Z8A>,<.WFTYP==0

ZX	IFN <2-2>,<.$WTY

ZxP==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 qX0oM$uX|Z6 "hs 			

	.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!.%-DEFR!.%RTN!.%ERTN-(!.%SBCM>,<
	EXP	-H.$NXT >			
IFN <-h.%DEFR!.%RTN!.%ER.TN!.%SBCM>,<
	EX.(P	.$RTN >			
IFN.H <.%DEFR!.%ERTN!..h%SBCM>,<
	EXP	.$/ERTN>			
IFN <.%/(DEFR!.%SBCM>,<
	/HEXP	.$DEFR>			
I/hFN <.%SBCM>,<
	E0XP	.$SBCM>			

0(	b==.-c			

I0HF2,<
	PURGE	.%TY0hPE,	.%FLGS,	.%DAT1A,	.%HLPM,	.%DEFM1(,	.%LST
	PURGE	.1H$TYP,	.$FLGS,	.$D1hATA,	.$HLPM,	.$DE2FM,	.$LST

	PUR2(GE	.%BREA,	.%NXT,2H	.%ERTN,	.%RTN,	.2h%DEFR,	.%SBCM
	P3URGE	.$BREA,	.$NX3(T,	.$ERTN,	.$RTN,3H	.$DEFR,	.$SBCM
3h
	PURGE	a,	b,	4c,	d
> 
	LIST,	d
> 
	LIST$YV qPPOINTM7,[ASCIZ\0\]NT7,[A$YYtq\0R0+1M$u

}wqT0M$uW\r Hr
	.XCREF
	SALL
	XLIST
	DEFINE .$TYP <0>
	.%TYPE==0
	DEFHINE .$FLGS <0>
	h.%FLGS==0
	DEFINE .$DATA <0>
	.%(DATA==0
	DEFINE H.$HLPM <>
	.%HLPhM==0
	DEFINE .$DEFM <0>
	.%DEFM=(=0
	DEFINE .$LSTH <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==0qZ0M$u]' ~0T 1,O)0P $YVP $YYP .-P 5IyP f=P w
VpUc
	   ..AS
W1==-<B>	
	IFDEF
W0 .PSECT,<
	.IFN 
WP..AS1,ABSOLUTE,<
Wp
	     C A,[-..
XAS1]>	
	.IF ..AS
X01,ABSOLUTE,<
		.
XP.AS2==0	
	  IFE 
Xp<..AS1&^O777777B1
Y7>,<
		..AS2==1	
Y0
	    DI A,..A
YPS1>
	  IFE ..AS2
Yp,<
	    ..OP(A,
ZB,C)>	
	PURGE 
Z0..AS1,..AS2>>
	I
ZPFNDEF .PSECT,<
	
Zp	..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 Wa
	AD;Z: 
IpU
	  ..CX1
J==C
	IFDEF .PSE
J0CT,<
 	.IFN ..CX
JP1,ABSOLUTE,<
	  
Jp    CAMA B,[C]
K>
	.IF ..CX1,ABS
K0OLUTE,<	
		..CX2
KP==0	
	  IFE <..C
KpX1&^O777777B17>,<
L
		..CX2==1	
	 
L0   CAIA B,C>

LP	  IFE ..CX2,<		
Pp
	    CAMA B,[
QC]>
	PURGE ..CX1
Q0,..CX2>>
	IFNDEF
QP .PSECT,<
		..CX
Qp2==0	
	  IFE <..
RCX1&^O777777B17>,
R0<
		..CX2==1	
	
RP    CAIA B,C>
Rp
	  IFE ..CX2,<		
S
	    CAMA B,[
S0C]>
	PURGE ..CX1,..CX2>GE ..CX:&@ Fp\C
	..TSIZ G(..PST,C)
	.CASG0E ..PST,<<
		MOVGPEM A,B>,<
		HRGpRM A,B>,<
		HRHLM A,B>,<
		DPH0B A,[POINTR (B,C)]>>INTR (B,:<;Y PYi
   DEFINpE ..CNS2 (NEW,OLD)<
	  OLD>			
	..CNS ()>			
	:L;Y 0Ya
   DEFINPE ..CNS (%%%)<
	p..CNS2 <%%%>,>

   DEFINE ..CNS20 (NEW,OLD)<
	DEFPINE ..CNS (%%%)<
	  ..CNS2 <%%%>,<OLD'NEW>>>
   OLD'NEW>>>
   :dH@ CP\)
	..TSIZ Cp(..PST,C)
	.CASDE ..PST,<<
		MOVD0E A,B>,<
		HRRDPZ A,B>,<
		HLRDpZ A,B>,<
		LDBE 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]
^>
	.IF ..OP1,ABS
^0OLUTE,<	
		..OP2
^P==0	
	  IFE <..O
^pP1&^O777777B17>,<
_
		..OP2==1	
	 
_0   CI A,..OP1>
_P
	  IFE ..OP2,<		
_p
	    C A,[..O
`P1]>
	PURGE ..OP
`01,..OP2>>
	IFNDE
`PF .PSECT,<
		..O
`pP2==0	
	  IFE <.
a.OP1&^O777777B17>
a0,<
		..OP2==1	

aP	    CI A,..OP1
ap>
	  IFE ..OP2,<
b		
	    C A,[.
b0.OP1]>
	PURGE ..OP1,..OP2>GE ..;m

,8bi
	..PST==

,XC-FWMASK
	.IF0

,x..PST,<
		POINT

-0,B,35>,<
		POINTR (B,C)>POI;| A0\
		POP P,AP.NVA
		PURGE .NApVA
		.NVR==.NVR-1
		.NVR==.NVR;\t @0\
		PUSH P@P,A
		DEFINE .NV@pB<A>
		.NVR==.NVR+1
		.NVR==.;] hP^Q
	  IFGE hp<<<B>&777777>-..iBSIZ>,<
		PRINTXi0 ?WORD offset greiPater than $BUILD ipsize parameter>
j	  SET0. (\<B>,C,<A>)
	B>,;LH XQ
	IFNDEF 0C,<PRINTX C IS PNOT DEFINED
	  pA (<B>,D,FWMASK	)>	
	IFDEF C,<
	IFNDEF %C,<
		P  A (<B>,D,C)	p>	
	IFDEF %C,<

	  %C (A,<B>,D,C)>>A,<B>,;LH 
PY

	..NS==0
p			
	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			
	.NS)(<E (A,<B
	IRP C,<
	<PIFNDEFC,T 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 pY)


	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 PY9


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


	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

38c'
  IF1,<

2x
    PRINTX ? Err

3or in "A"
    D

3hEFINE X(NAM,ERR)

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

4XEF,<PRINTX ? ERR>

4x>
    $TX$ERR>

    $TX$ERR>
;$^

6Xc]

    ..

6xTXF==0				
    .

7.TXB==0

78..TXP==0

7X ..TXEG==<..TXEF=

7x=0>			
    IRPC

8A,<				
	..TXC=

88=ASCII\A\_-35

8X
	IFN ..TXB,<IFN

8x..TXB-..TXC,..CNS

9(<A>)
		   IFE

98..TXB-..TXC,..TXB

9X==0>
	IFE ..TXB,

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

:F)>>	
    ..TXC1

:8				
    IFN ..T

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

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

;
    ..TXEF==..T

;8XEF!..TXEG

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

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

XaU..TXER(IQU)..TXER(IQU;&)

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

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

Ha<..TXC0(\".CHLFD).TXC0(\".;&5

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

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

a8..TXC0(\".CHCRT).TXC0(\".;&@ P]
	..TSIZ P0(..PST,C)	
	.CAPPSE ..PST,<<
		SEPpTZM B>,<	
		HLLQZS B>,<	
		HRRZQ0S B>,<	
	  ..TSQPAC (..ACT,B)	
	Qp  .IF0 ..ACT,<
	R	$CALL .ZERO	
		R0LSTOF.
		JUMP [PRPOINTR(B,C)]
		RpLSTON.>,<
		..TX (Z,B,C)>>>TX;&81 
~X	
	IFNDEF 
~0.PSECT,<
	A==0	
~P		
	..TSA1==<Z 
~pB>		
	  IFE ..TS
A1&^O777777777760
0,<A==1> 
	>
	I
PFDEF .PSECT,<
	
pA==0			
	..TSA1==<Z B>		
	.IF .0.TSA1,ABSOLUTE,<	P
	  IFE ..TSA1&^pO777777777760,<A==1>> 
	PURGE ..TSA1>
	PURGE ..;&:= 
|PWm
	A==3		
|p	
	IFE <B>+1,<
}A=0>	
	IFE <B>-
}0^O777777,<A==1> 
}P
	IFE <B>-^O777777B17,<A==2>7;' 
bpW%
   ..TX1
c==C			
IFDEF .P
c0SECT,<
   .IFN .
cP.TX1,ABSOLUTE,<

cp	TDA B,[C]>
 
d0  .IF ..TX1,ABSOL
dUTE,<		
	..TX2==
dP0		
	IFE <..TX1&
dp^O777777B17>,<
	
e  ..TX2==1		
	  
e0TRA B,..TX1>
	
ePIFE ..TX2,<		
	I
epFE <..TX1&^O77777
f7>,<
	  ..TX2==1
f0		
	  TLA B,(.
fP.TX1)>>
	IFE ..T
fpX2,<		
	  IFE <<
g..TX1>B53-^O77777
o07>,< 
	    ..TX3
oP (A,B)>>	
	IFE
op ..TX2,<		
	  TD
pA B,[..TX1]>	

p0	PURGE ..TX1,..TX
pP2>>
IFNDEF .PSEC
ppT,<
	..TX2==0		
q
	IFE <..TX1&^O77
q07777B17>,<
	  ..
qPTX2==1		
	  TRA
qp B,..TX1>
	IFE 
r..TX2,<		
	IFE <
r0..TX1&^O777777>,<
rP
	  ..TX2==1		

rp	  TLA B,(..TX1
s)>>
	IFE ..TX2,<
s0		
	  IFE <<..TX
sP1>B53-^O777777>,<
sp 
	    ..TX3 (A
t,B)>>	
	IFE ..T
t0X2,<		
	  TDA 
tPB,[..TX1]>	
	PURGE ..TX1,..TX2>;'` 
uW;
	IFIDN <
u0A><Z>,<		
	  ..
uPTX2==1
	  ANDI 
upB,^-..TX1>	
	IFI
vDN <A><O>,<		
	
v0  ..TX2==1
	  OR
vPCMI B,^-..TX1>	
vp
	IFIDN <A><C>,<
w		
	  ..TX2==1

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

xbS



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

M8dw
    IFE

MX..TXP,<			
	..IC

MxNS			
	..CNS<ASC

NIZ\>		
	..TXP==1

N8>		
    ..CNS<A

NX>			
    ..TXF==

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

O8e

    IF

OXN ..TXP,<			
	..

OxCNS<\>		
	EXP <F

PLD(.TQCHT,TXT.FN)

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

58c1
    ..TX

5XEF==..TXEF!..XA

5x	
    ..TXF==0

6		
    ..TXB=="^"
    ..TXB=="^;'

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

<Xck

    IF

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

=C0(<A>)>

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

=xd

    IF

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

>8C0(<A>)>	
    I

>XFN ..TXF,<			
	.

>x.TXF==0		
	IFDEF

? .TQCHA,<

?8  IFDEF ..TQMA,.

?X.TQMA 
	    IFN

?x <.TQCHA_-^D18>,

@<..TXF==2>>>

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

@XXC1(<A>)	
	..IC

@xNS			
	..CNS<..T

AXA(.TQCHA,>>

A8   ..TXEG==..TXEG!..TXEF==..TXEG;'

Axd
    ..TX

BF==3				
    IFG

B8E ..TXC-"0",IFLE

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

Bx=2>
    IFE ..TX

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

C8
    IFE ..TXF-3

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

Dd1
    ..TX

D8F==4				
    IFE

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

Dx==5>		
    IFE .

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

E85>		
    IFE ..T

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

Ex		
    IFE ..TXF

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

FXdG
    ..TX

FxF==4				
    IFE

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

G8=5		
    IFE ..T

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

Gx
    IFE ..TXF-5

H,<..CNS<,>

H8..TXQ5<A>>

HX  IFE ..TXF-4,<..

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

I8dY
    ..TX

IXF==6				
    IFE

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

J="/"		
    IFE .

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

JX]"
    IFE ..TXB

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

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

KXdg
    ..TX

KxF==0			
    IFE

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

L8>	
    ..CNS<)>

LX		
    ..GCNS

Lx
    ..TXEG==..TXEG!..TXEF==..T;DQ @;DPQ ;EPQ ;E:Q  ;EpQ ;E+PQ ;F	0Q ;F\:Q @
0P 
@P 
PP 
`P d  ,pZg
	.ACV2 (A)
	.ACV2 (d@ -0Zq
	A=.FPA-PC+..NAC		
	IFB <-pB>,<..NAC=..NAC+.1>
	IFNB <B>,<..NAC=..NAC+B>.d` .PZ
	IFG A-.p.NPAC,<PRINTX ?TO/O MANY ACS USED>
	IFLE A-4,<
	//P $CALL .SAVEA>	
	IFG A-4,<
	  $CALL .SAVE8>  
 U0]k
	  IFIDNUP <A><.>,<
	    UpXMOVEI .SAC,B	
V	    PUSH P,.SAC
	  >
	  IFDIF <VPA><.>,<
	  .IFAVpTM <A>,.BLF4	
	W  .BLF1==0		
	  W0IFN .BLF4,<		
	 WP   .IF %A,MACRO,Wp<	
		.BLF1==1>	
	  >
	  IFNB <X0B>,<
		.BLF1==1>XP	
	  IFN .BLF1,<Xp		
	    LOAD .SAYC,A,B
	    PUSY0H P,.SAC
	  >
	YP  IFE .BLF1,<		;IYpF WASN'T A STRUCTZURE REF,
	    IFZ0N .BLF4,<		
	   ZP  .BLF2==<<Z A>&Zp17B17>-<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
	  ..
	 Tp]'
	.BCAL1 A
	.BCAL1 
| 	l@Nf
	XLIST
	l`	.ORG 0
	LIST
.ORG 0
	LIST

=Z b0^$CALL	I%INTA$CALL	I%IN9  
zPW_
	..CSN==
zpA
	..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 M\s
	..PST==M0C-FWMASK
	.IF0 MP..PST,<
		SOS BMp>,<	
		$CALL .SONS	
		LSTOF.
		JN0UMP [POINTR(B,C)]
		LSTON.>C}

S8g1
	.OPCD==

v.OPCD+1
	WO.A==.OPCD
G),<
		| 	mhNv
	XLIST
	n	.....X=.
	.ORG
	.ORG 0
	REPEAT	nH .....X,<EXP 0>
	nh	PURGE .....X
	.ORG
	LIST

	.v=H $0Z%
	IRP A,$P<
	  .ENSV2 (A)>	  .ENSV2 (A)v=I %Z)
	.ENSV3 (A)
	.ENSV3 v=I %PZ-
	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 
y0WQ
	..IFT==
yPA		
	IFE ..IFT,
yp<
	B
	..IFT==0
z>		
	IFN ..IFT,<
	C>N ..IFT,<&4 ]p^
	IRPC A^,<
	B==0
	IFGE^0 "A"-"A",<IFLE "^PA"-"Z",<B=1>> 
	IFGE "A"-"0",<_IFLE "A"-"9",<B_0=1>>
	IFE "A"-"_P%",<B=1>
	IFE "_pA"-"$",<B=1>
	`IFE "A"-".",<B=`01>
	IFE B,<STOPI>>IFE B,<STOP&t<H J\[
	..PST==J0C-FWMASK
	.IF0 JP..PST,<
		AOS BJp>,<	
		$CALL .AOKS	
		LSTOF.
		JK0UMP [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 
:PSU<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 "PZ
   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  (0ZC
	.TRV2 (A)
	.TRV2 (Sd@ (pZM
	.TRV3 ()A,\..NV)	
	IFB )0<B>,<..NV=..NV+1)P>
	IFNB <B>,<..NV=..NV+B>,<..Sd` *Z[
   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

}I%WTO		
		LSTOF.

}8			
		JRST	g

}X
		$WTRST			
	IF

}xNB <A>,<$WTMTY (

~<A>)>	
	IFNB <

~8B>,<$WTTYP (<B>)

~X>	
	IFNB <C>,<$

~xWTTXT (<C>)>

IFNB <D>,<$WTOBJ

8 (<D>)>	
	IFNB

X<E>,<$WTACK (<E

x>)>	
		IRP	F,<
		$WTBLD			
	g:!
	LSTON.  g:!
	LSTON. kPP >}{woP