Google
 

Trailing-Edge - PDP-10 Archives - SRI_NIC_PERM_SRC_1_19910112 - 6-exec/monsym.fun
There is 1 other file named monsym.fun in the archive. Click here to see a list.
[>v>6x\wnBKqP&=P$)6P%J2PGH,y
PG4-Lz
PDiRP$xZPR%KuPIX-[ZPI4.*N=%P
|9U(P,hz*PiO8\R-P@SP.;V/P7Lt2P
6~,}<P[Lz>P6|4APCP.99CP:%KRFP]v=HPB|KPC4;ZMP6
yPPNUKRPg$.K3UP@U@.>9WP&\rZP
;&Dj\P*h_PO*7La$G$.
df'v
i[O&.
kvgSnNN	p4n
s
m>	u+N\NxSCJn
zf[J.J}ri)Y2oOS<)2P&L	PG-Kx
PG(-}wP@>+P>vPv2 P%jS"P#+Z%PSP-m'PS@,9]*PUL-My,PUL,/PY4,,{1P2mI4P2v<|6P6}9P6}]W;PnM>P6|@P:${CP:%HqEP;8[HPB|JP6
zMPG.,xOPN5X|RPg,LTPN:WPR6,YP6~
P\P6YW^P@*iaPO*7Kc#f>f8i2u>	hwG$.	k
p[O&.ruNN	u5m>w%CJn
zf[J.I|rglZ@i(=|RPEm6PG<.xv	P nH2PG.:P@I,KSP 	PuP~};=P
2n)8P6~,P6x[vP6~;"PnM$P[<,V'P@;&96)PBh\R,Pc.y7.Pa.	<1PNV
W3PN4;z6P;&Dk8PRL<x;Pf>	=8i2u>	@wG$.	B
%nEdg:%
GovJ	LL[O&.OugNn
Q NN
T5m>V$[J.IYdCJn	[ei(^SBD;Z`;cPC8.HxeP@G4-lshP&
{jP$KRmP%}VoP&]rPR%3tP49wP	yPK8.w|Pd^~P%P,;POL.+RPOL,P6.)0P6~:36vN3ri2u>5tG$.8
%n	:dg:%
=nv?f>	B4gNn
DM[O&.
Gt	IckSN	LkN?	N*[J.HQ^CJn	SeC.91VPHX.IXP\1[P5w]PG-K`P&
bPI.=7eP4LugPd^jPiO8Y<lP;<oP'=3qPUL,9tPY4.+6vPx7-4yP6|;{Pg(-yY~P@mL.|ZP@[<,H;P~:&;ZP:$HVPe;!k
P;$[ZPtC5MYPc.N8PJ,7PKi:P`D,<PN6{PNv!POKP#PR6)9&PNL:(P6~
R+P
[P--P&[s0Pg
,[P2PTn	5O*7J7"6vN	:sM,n	<3%n	?eg:%	Anv
Dd>F/f>
IGgNn	KM[O&.
Nt
PckSN	SkN?	U'[J.HX]gg,Z^W3*]vCH,<I_P %99bPG8,:xdP@G4,\qgP@$:1iPI,lP49nPO(-\sqP&uJQsPS@,9[vP2mIxP74{P[<,:}P [<-ZP@6~)9P:&P]"PqC4=Y
Pa,-[r
P@6
PcT-nP e
,1PN6=Po0-h6PE+qP}@[P,+zPTn	 O*7I#!6vN	%sM,n	(2gNn	*@%n
-eg:%	/mv
2d>	40N.7e[O&.	9skSN<kN?>%A gg,C]g=FdI&
t+HeW3*KvCH,<HMP@%;6PPEP,=RRP@HX,)UP%nWP<zZP<N\P<[QP$LKaPK8-MdPK8.vfP@M0-}ViP:UkP*MKnP|rpP,qsP-MuPO(-krxPY4,9zP2nN}PY4.)8P7LwP
P6~;P:${P]u}P]v,wP]\-H:P]\bPxB}KqPB|= PB]i:"PG,kQ%Pe.Kx'P J69V*PNTK0,PN5My/PN
61PO<Z4PO=M:6PO>,9PS$W;P
g
.8z>Pg
-|@P\CPCH*zEPTn
HO*7IJ!S'MxgN
O-M,nR2gNnT@%n
Wfg:%Ymd>	\0N.	^f[O&.	asG&ei9cfd]CE[hE?'
km!gg+p]I&
t+rcguiW3)wug~,{zP&8q|P5PG4,MqP@G.=P$86P${q	P	P
P.m7P*MKP-J7P,rP.:=PT)XPO8,J9P@iO8[7"P;<$P2n(V'P6~,)P
7%m[,PB|=	.Pc,^1P N6+:3P|6Pi0,Y8PS$I9;PTn
=O*7H@ gN	B-%nEfd>
G1RM^J7N.	Lf[O&.OrQeE?'
T	V!gg+Y\I&
t*[cW3)^sY'
`
&
ZcPI,QePHD-]hP|zjP|[PmPOL,lUoP;<rPS@,9YtP 2v:QwP79yP6|MZ|P;$]X~PB\.:PFkzP
e.*2P@JhY<PNTK1PNv2CH.)VP@TnO*7H gN	,%n!gS:en	$.d>
&1RM^	)8N.
+r&h.RE?'0	3"gg*5\I&
t*8bW3(:ni
=Y'
?
d86BP%m6DPVX0GPV;IP$yLP4LxNP4QP
vSPOP,<tVPON=XPSP,9[P S@,9Y]PY4,1`P@7-7bP7,ReP6|\YgP6~;jP
[<,ZlP6~:6oP:%KVqP].-5tPe4.	<vPS$lIyPTn{gN~,%n
	gS:en	d>	5RM^		8ON		
=N.
	q&h	qE?'	
	"IL	/I&
t)	Fgg*	[W3(	ni		!Y'	#
,	&P&
[	(PG4-	+P D<Z	-PG.Yx	0PG.9	2P><	5P>-	7P(	:PND-k	<PTJ9	?P^YZ	AP;<	DPS
,	FP '8X	IP';9	KP6.+0	NP77	PP7V	SP6~lw	UP6~);	XP6~(V	ZP6~:7	]P	6|:0	_P;&9:	bP;$<z	dPFJ6	gPFm	iPFM	lPN9:	nPg-\z	qPN5\z	sPRMY	vP[P,8z	xP8&<	{P	g
,;S	}Pg
-m}
PTn

_Bw,
1OR
.	
\ON	

0%n

hRM^

9E?'

-I&
t)
&i
	G>oH


#IL
.gg)
 [G=1
#pi	
%Y'
(
lQ
*PG4.zs
-P G,<X
/PI,iz
2P(
4P5	
7PS
,Lp
9P@SP-h1
<PS@,9X
>PUL-kr
AP@2l:2
CP2n(X
FP7(Z
HP[k
KP:mxq
MP6|:
PP[<-I9
RP:%kR
UP;$]Z
WPG-[Z
ZPFtd(
\Pe.(4
_PN4Lz
aPg@,(:
dP@i0.z
fPg,.,x
iPS$Y
kPg
-[7
nPg
-h9
pP6 \p
sP Tn

u_Bw,
x0OR
.	
z\ON
}0RM^

I27(;Q]CEk2E?'
	&W
CG>oHEI&
t(&i	;%^#IK.gg)Zi Y'
"
aWK%;H' gVoH*PG-Xp,PG,X/Pn\y1P4:4PS@,9W6PUL,MW9P0Slz;P6~=>P[<.(u@P6|7CP
]tKPEP;>,THPB|y:JPC5[wMPCzOPJPRPe-KSTP@K)3WPNTI7YPRMX6\PiP-Hp^PiP.zhaPiP-wcPS$qfPg
,}hP _Bw+k0OR
.m[M2Mn
pUI&
t(rBRM^u.I27(wE?'	z
]CEl{|]CEwCJ?L
&j
a6


	$IK
-gg(
Z;%^	
ti
Y'


aWJ
;I
 G-m2
P@&Yx
P&9
"PR%J2
$P<;Z
'PK8.r
)P@OL,z
,P;<
.P	+<r
1P2l:3
3P6~-6
6P6|,}
8P[]
;PCP,m6
=P@:%Hw
@P]vN8
BPNhY<
EPN$X2
GPNTK4
JPg.+:
LPg$,
OPNv
1
QPa8-h6
TP@6~
V
VP	M.:
YP:
[PN
^P_Bw+
`/^
c6M2Mn	
eUNn
hla6
jRM^
m/GS

oDE?'	
r[O'k
tJCJ?L
w&j
y

|$IJ
~-O*7*
aWJ
D,x;I
S@,9V7-9
/Ifw
<GS
CE?'
<[O'k
%IJ
aWI
a
,k{O%<Z xYP%\P"jPmQ
P&	;P3
|P
Y4-[WP7%HP
7M4P[L-P7K1!P6}kx#P
6}Q&P6}mt(P6}{\+POy-P]u+q0P]<,z2P;=J75PB~)67PF^2:PFLK<PJ$HQ?PN^(yAP^f=DP;TiFPS"HIP	LKP
S#MJ]UeRM^
X0Ifw
Z<GS]C[O'j@CJ?Kbp]O,dI(g[>wi
aWIv	h9xP$L{P&)}P	\Pn-PG4-
P G.	7P&+q
PHD-T
PK8.qP:=)IP;1Pd1P2lLzP7BY<*PNV-p-PN5i/PN7	12Pg,[u4P@N]y7PC79P L	<P3&DH>PBw)A.MJ]CVgBd-FYa6
H"I(KYHXMIfwP;GSRB[>w
UWCJ?JZSYRd+\s]O,~O*7)aIId+CKlxfaWHi	"jkP5nPG4.	RpPl;0sPV
TuP0X9xPOL-[rzPJZ}P[L.-yP@6~;RP7,lxP7-\P:$;Z	P;',W
P;&=6PC4<zP6+2PBm\qPBm[YPc-I7PxFZPFLL PNh\R"Pg,9%PYP'Pv,*PiP-|x,P@^/PM,LW1P3$XQ4P_Bw)6-MJ]
9Va6	;"7%~>DIfw@;GS
CB[>w
Em[O'iHK:
>
J$CJ?JM@O*7(OD]O+R~IHT+g1W<aWHYHX.LY\PG.DH^P@G-i;aP@>RcPIX,J9fPO(-yShPO(.
kP@T^mP;<ppPSP,\YrPUL-yVuP 6}SwP6~k1zPCP.[Y|P ;8YRPF
H:PF>9Pe
.9P@N^({	Po0-kvP@g,,;PF;PRL99P
U7%~	"Hi&o($0Ifw
':GS
)A[>w	,l[O'i.K:
>	1#CJ?I3?O*7(6B]O+8}IH;*SB,=D@P>;LB GH,88EP \2GPGh,UJP51LPG4.(4OPG.
QP%KTP$jVPR%MYP0Z7[PIX.N8^PxI4-mz`P@*LI7cPO(,^ePTy7hPa.\yjP@2n
y~P]<.)PB^;Pa4.PG,9Pe,,UP@J6x:
TPN4LP
;TkPiP.z2PxiP.x5Pp;-J7PS$ZPg
-\!P<R$PCH.(9&P KN	)_Bw(+,a6.PMJ]	0UgBd)Q3Z7%~	5HIfw
8:GS	:A[>w	=l[O'h?K:
>	B#GJ%,D,CJ?IG=]O*I}]>'+L{SBdkN
KRF.Q
a
,*9SP&8xVPG.
{XP %kr[P0X;]P5Iw`P0vqbPM0-{ReP*N;VgP;<qjP7M7lP6|[zoP6~-9qP
[<-VtP`]v
yvP;&
tyP~;%X8{Pc.H8~PK<[PB\RPNvPR6-:PS$z6
P
S"JRL8UPRNHrPi:P	KNMJ]	Tu>t^7%~
IIfw	!9GS	#@[>w&k[O'h(|K:
>+"SBdj-*GJ%,0+CJ?H2=CSL5`]O*7|g+:Cg2<E[RH?u]>'+Aw&tj7DP?@HX.)FP 49IPmTKP&:NP&HZPP:$>SPvrUPfLxXP}YZPO(-i;]P 6~;T_P[<,9bP@7,I9dP:%kWgP;$RiP6,lP;enPNTD+qPiP,89sPMJ]vT7%~
xESBdj{hIfw	}9GS@[RHwGJ%+'CJ?H<CSL
_]O)
|gk8H]>'*aCP,8uP@&+vP$K8P&+PG*TP@h\P@G,|z#P%Kx%PI,M(P@<<v*P!:$>-P:,/PS@,9R2P`':(4PZlZ7P6~N9P:%kW<P:$=Y>P;8]APP-iCP@FN8FPFLUHPN
fY2o,i	D)6kPGh,ZnPlkpPT86sP:$>	uPeNYxPOP,8tzP*M+W}P%
<P.+PSP-iP@':(PUL,y7	P@J(z
P7YVP[L,}P ZmwP[kP6}MP[<.uP[<.99P@;$S P]MYB"PB\=s%PJm0'PJ%u*PN&i9,PN5m/Pa8,1P38y4PG>	6yZ>9SBdi;!7%~>Ki-N	@GJ%*C!CSKEK]O(H{]>')J`i
MC
.OP&<sRP57TPlXWP&):YP>*8\P:$>	^P69aP0vscPM0.JfPYyhP
|[XkPS@,9QmP':)pPf,rP7+tuP[<-PwPx7.
1zP	]v,;|P:$-P;&>QPg,;wP@N6K=PN5J9P@.;PSBdh!i-NN7%~
"^YO&.$e:o)'G&Ks)]CD;0,GJ%*.!CSJ1G]O(3zgHq6>]>')8`i;gR
GP:.LzJPO(/,sQP7tTP6~)VP
iP.	vhP4I9jPRL<QmP^oP3[VrP%tuORt>	wse:o)ywSBdh|7%~
~iGJ%)CSJG]>'(Ti:xCP.LV
POL,sPY4-Xp!P@OY$P:$Xw&P]n	")P}FKV+PJ$,U.PJ6LX0Pl*73Pg
,P5Py78P%	:uORF>
=cORt>?se:o(BwGJ%)DCSIGFqN.n	I]>'(LTi
NUNEMQ ;SP%9VP%<XXP4;[PG4,,U]PG(.<`P>bP:$>ePO(,J9gP:\sjP'<YlP2eZ7oPf=qP[L-iTtP@7I;vPNf	QyPCP-h;{P7,l~P:&-Pa4.LP FzP	FKVPJ4l
PK|Z
6PN\(yPi0,1P S$lRPORF>
ce:o(vGJ%(!CSI#FqN.n	&i
(,S+P:$>-PT0P~@;<W2P	7,}5P]-Iv7P F[W:PJ$HX<PNV9?PN\(yAPg,DP&LVFPM.{QIP)3KPORF>	NbGJ%(P<I>S^CSHUEqN.nXi	ZCRw+]CP-h:_P \RbP%KUdP>*gP,I?]7iP~:$>
lP481nP!*|,ZqPY9sP:.HPvP.<xP.[Z{P~=1}P
O(.IYPY,.
P 7{Pg(,4+P6~9[
PCP-|
P@BmY0PBm\wPN5|P]yPRL<SP]Vnh6PORF>	bCSH ?gi8#=i	%CRw+(G,=3*P@I-
/P6)92PpM0,^4P`*N8z7P	.\r9P.~,YHP[<.)QKP87&
MP7,[QPP7.:xRPF[XUPFmWPF)wZPg4-R\Pg,9PNLuG<-)WxPlH:zPG,H9}P@%KVP>P*|)PC'PUkr	POL.
P6~x:P:$:P;8XtP;&9wP}G.
ZPF)PFK<PNV<HPS$1"P%P.i$N'NiL*P@S.M@PSP,1CPUL-LREPUL,J9HP2l8rJP2n
2MP[L.-rOP 6}XVRP6|wTP
N%|WP:${VYP:%mY\P]v)V^P;%;WaPB\;cPe.=fP?xe4,<hPO4<zkPU@-[XmP`CRw)pjI&
~
rBiKuzP l)X|PEIRPUh6PR%uPI,:P>
rP4LuP@M0.9wP`*N[WP,\:PO(,kzP@ND.;P:;POL-|P@OL-KS"P@UL.N8$P[L-iQ'P [L,})P6},P6~LU.P6~;Z1PCP.[R3PN&y6P:%Lz8PBh]y;PCR=PF[Z@Pe-)WBPO5REPN$K9GPN4YJPN5HvLPg,-
2QPg
,=TP@3\qVP.nYni^[tCRw)^iI&
~
`AI,{cgqeHiKh
DI6jP?a
.\ymP&91oP$;ZrP&<xtPG-[ywP49yP:=K{|P*2~P*MKWP;<xPUL,P@[L*,P 6|VP6}m
P6~+P6|xP7%m6P:$<zP]v-PGI7PJ4;Z!PNTEI$PN6I&Pg,-
~BAYMnDoM4nGa7	I7]CD1LghPNBiJQ
G,h1SP6VP*N9XP%Y[P:=]POL.)`P '9bP[L-weP[L,}gP@6}sjP[<.|	lP6|ZoP]t:qPMilstP;$.:vPBh]zyPN6+z{PgL.Xp~P[P-VP7%KrPYMn
.n	oO$.	

CRw(I&
~@OL^Ca7	6iJ<zPG4-P@lJ9PVXp!PV9[#PGH.
P&P2>*(P/>(t+Pvy-PNt+0P	%Z2PT\Y5PT7P6~):PSk<<P[<.|	?P~[<-YAP 7$;rDP]|bFPze.
TIPNV<KPN4|NPg$-I;PP~N^(QSPN
(vUPN6[YXPS%,ZP
<[]PgD,=R_PYMn
bO$.d
O*7lg:I&
~
i@OL^	lCa7n6.n
qog^Tn	sQC;'viIxC.{C/z}PHX-iPG,:P4:7PG-lxP@G-i2
P<xy
PI-TP~
yPO(,kP;<zP';PP6~(1%P
]<-IV*P_,-P e,(S/P O5X52PN6904PN4x:7Pg,^9P@lV<PYMn	>.NA}i>	CO*7lF:I&
~
H?g^TnK.n
MrgMPDiIR
C.	UD;PWP+qZPx2\P(9PG,ZvaPG4,LdPG-I7fP@$qiP6
4P
7.<xP],^	P@]tlU
P_P.;P B^;RPFk:PGkPN6)P	VPg,.MPYMn	 .N	"~i>	%SO	'O*7k*-I&
~	,?[O',/	G'-kx1.n4^iH6
C.	9,{>PGh-ls@P lkCP&
[EP&:=HPG(,zJP$;ZMPI,;WOPiRP4TP1OP-k{WP@OP-)WYP#KP\PJ,{^PY4,8SaP7+cP71fP7&EhhP6}kP	7,mP:${ZpP:%L}rP]v<}uP:&h6wP;$zP~P-k7|Pa4.,P68r Pc.9 P@NV)P PN4)y 	PO]y P@o0,y7 PaT.J6 Pa8, PM@, P[P,[z P& PYMn i> ~SO	 "e:
 $vO*7k 'xI&
~	 )>[O', ,	.N	 .aCJ?
 1i.n 3iH 6	C.
8D;Q;PCH.x:=P%9@P"lBPG(,yEP6eH9 VPON=R YP-hx [P~;: ^P.\w `POL-h6 cP;<{ eP'; hP'9 jP
7&EimP6~+oPmL,krPx[<-HxtP@CP,JwP]\.HxyPB}h6 |Pa4-]X ~P Bm\|!PcT.H1!P@J6	V!Pa-R!PAY<!P i0-xU!
!uI&
~!>[O'+!!.N
!$7CJ?
!&h[J.h!)
SB5H2!+C.
!.D;R!0PJ9!3P"i9!5P\s!8Plj6!:P6
8!=PI?\!?P2MP!BPj!DPK-J7!GP`K.:=!IPO(-{!LPT!NPY4-t!QPx76!SP7&Ei!VP	Zl;r!XP[[[![P6}hq!]P6~-!`P6|M8!bP6|t!ePC4^!gPB^
Z!jPB\-3!lPB]m!oPG.}!qPg4.-|!tPN6\s!vP_y:!yP&LZ!{P
g
.9!~PCH-h9"PZtEH"PO*7j"'Q>"|[N	"
(a->	"ke:k~"g[O'+"z.N
"8CJ?"ha6N
"!:[J.h"#g-"&;C."(D;R"+P):"- GNe{"0PC
,;w"2P@C.|Z"5P"G,:"7P"4<h":P%J8"<PG-:6"?P"I.[T"AP`I?]0"DPI?Y7"FPj"IP5H3"KP3I"NPB~i9"nPe,)6"qPN,z"sPg-Xq"vPgP,P"xP W89"{PiP,"}Pg
-[Z#P@O*7i#&[N	#(e:
R[O'*#
yI&
tK#)CJ?#ga6N	#iSO	#1gi1#fC.#D;S#PS9:#  elh##P$Kr#%P0[(#(Pk#*PV
W#-P:lu#/P';#2PP
[L-J6#<P[L-9#>P7<y#AP6~+#CP;$kQ#PP]NM,I6#aP|Z#dPO*7i#f&[N#i'e:
#ktJ&N#nSBd,#pK;,#sNT.	#uS[O'*#xyI&
tK#z(CJ?
#}ga6N	#]CE$]CEl9$iSO	$E?',$	gi1$
hC.
$4;R$P>(x$P0[($PHD-j:$Pk$PK8-+q$P*N-$ P~M$"PO(.Z$%P;<$'PJ1$*PY4.(s$,P82n<x$/P7+$1P
7<z$4P6~<$6Pg(,;0$9P[<,i9$;P6~+$>P6~-$@PN%Y$CP:$}Y$EP:$k$HPMikW$JP_-	9$MPG.}$OPFkv$RPA\R$TPg,<R$WPR6(6$YPBjY$\P6~
7$^P
S"$$aPKH$cP
O*7h$f%e:
$hCNv>	$kpSBd,$mK;,$pNT.
$rT[O')$uxI&
tJ$w(CJ?
$zfa6N$|iSO$
E?',%g)Q%;glw%=m$,Y%	PC
.)6%P
{%PG4-ky%P$L%PTy%P>,q%P$0[)%Pl%Pf%P:	y%"P%
%$P|:Q%'PTI3%)P@:lv%,P::=%.P':3%1P2o:%3P[L.{%6P@75%8P7&Ek%;Pe;!kY%=P;=kX%@P]\,KP%BP]h"%EPue.:1%GPN6
%VPM.K8%YP@*9%[PKH%^P
:lk%`PpO*7h%c%e:K;+%mNT.
%oUg+.%r_Y:<n%tg[O')%wxI&
tJ%y'CJ?	%|f&H%~NE?'+&g6&@0[)&Pl&P:.LR&P.7&!PS@--x&$PS@-kp&&P@2lm6&)P7&El&+P6}2&.P6|;Z&0P6}\V&3P[<-x&5P7,jX&8PB\;&:PBmY9&=PF:&?Pg-\h&BPiP,2&DPgn&Ge:
tI&V'CJ?	&Xe&H&[NE?'+&]6MiT&`P@:u}&bPHX,,|&eP@Gh-hv&gPG4-kx&jP myT&lP0[*&oP6
w&vP':4&yPUL.
r&{P6|=W&~P[<.yT'P@ND\q'P6~+'P;&;'P~:$<'
P-[r'PGN8'Pe
-kv'Pe
.{'Pe,)3'P;j7'Pg,k'PN
Hv'!PaT,:'#P S&<Q'&P
S$\x'(Pg
-Ks'+PZtI'-PGJT.'0e:(':wG&oR'<I&
tI'?&CJ?'AbNT.'DCS
'F7&I'IOE?'*'Kgl'NBgV'Pj$:'SP	G.+P'UP<J8'XP0[*'ZPOP.
V']POR'_P	:.HZ'bP':5'dP[L-^'gP7Q'iP	6}ht'lP6~+'nP7.<'qP;>M'sPFlV'vPF\'xPJhu'{PNh]y'}PNTI(Po0,J9(PXw(PS$H6(P+9(
PMy(
P
GJT.(
SBd*(GJ%
(;NT.
(I&
tH(%CS
(6&I( OE?'*(#ggI(%_Lj;((P@%
q(*P9:(-P*;(/P)V(2P:5N(4P:
;(7PHX.L(9P\(<P0[+(>P OP-K{(AP@:.HZ(CPU)W(FPS
--2(HP':5(KP2nR(MP6}z(PPg(*}(RP 6|k:(UP[<.+(WP Oly(ZPF.2(\PJ*Q(_PNTI(aPN4-(dPN
[6(fP6~
9(iP	GJT.
(k
SBd)(ng:~,(s9GJ%
(u;G>mn
(xCS(z6&J(}PE?')(ggH)_gjx)hI&
tH){2D)	Px)
 &>6)PHX.(V)P@\)PlzQ)P&	)P
$-)P<<Q)PIX-Y) P0[+)"P@~
)%PM0.Z)'P%
)*P,<H),P#[)/P'89)1P2lz)4P7ZH)6P7<v)9P6~+);P
7.<)>P
:%Z)@P	;=kZ)CP_.))EPe
.=)HPe.)MPgP.
T)OPS$<)RP
)W	]?.N	)YGJ%)\KSBd))^
K;))ag:~+)c,G>mn
)fh_BwK)hCS)k5&J)mPE?'))pglt)rIggH)u^D;W)wPa
,m3)zPEP,MR)|P $\t)PG,-)W*P@\1*P>*PM}V*	PK8-lz*P.kP*P,<I*PO(-S*POL,86*P'9Q*P7H6*P7z*P7R*P6}Yw*"P6|*$P
6~+*'P[<-j7*)P~;<Q*,P;%kr*.PG.*1PGy*3Pe,;w*6PB]y*8PN6xz*;PN6<*=PW%I7*@PiP.[q*BP<i*EPGJT.	*G	]?.N*JSBd(*L
K;(*Og:~+*Q+_BwJ*TJG>mn*V[GJ%*YCS
*[5&K*^QE?'(*`[O'*cGSBD[<*eD;W*hP&(q*jPG.\*mPG(-h6*oP2	*rPv0*tP'9R*wPJ,*yPY4,)*|P[L,(Q*~P6xZ+P 6~-+P6|z+P7,:+P:%X<+P:$k+
+)JSBd(++K;(+.g:~*+0+G>mn+3[O>	+5`CR
>+8!CS
+:4&K+=RE?'(+?[O'
+BFD;X+DP%
s+GPHX-m+IPG<-lU+LP@0Xt+NP G,Ix+QPGJ%X<+SP $:+VPIX-[r+XP|KP+[PUh6+]P'=+`PY4,[Z+bP 7&E
+ePg(,;,+gP[<.yQ+jPg -L+lP@6|:+oPCP.N+qP[<.-q+tPx7,<+vP:$k+yP].(t+{P_.-+~P BZ,PB]|,PF+,P
Gy	,PJ9,
PB]z,Pg@,[,PBlq,P[P,[s,P S$^,P=,PM.
V,P M,,},!P|GJT.,#gN	,&?GJ%
,(Ig:~*,+*_BwI,--G>mn
,0ZO>	,2]o&dN,5CR
>,7!CS	,:4Ig),<g(R,?S[O'
,A
D;X,DPF<,FP&;8,IP5kR,KPG(,],NPEt,PP*NV,SP|<R,UP|;,XP:j,ZP'9S,]P7)T,_P7:,bPg(,+z,dP6~+,gP
6~*6,iP:&;s,lP:&-Y,nP]uxU,qP].(b,sP|>0Y<,vP@G.
--P _BwI-
2gN-
>CR
>
-jo"-N-FGJ%	-IO^>-g:~)-*G>mn
-YO>-]Idd(-7CS	-#3Ig)-%l]OK-(2glr-*DG<1--p[O'	-/FP1M0.+R-HPx^\R-KP@J=-MP[L*Q-PP [L,hw-RPx7T-UP6}-WP6}Q-ZP6}mV-\Pg(,;+-P6~:-aP[<-m-dP;&):-fPP,H6-iPB^-s-kPN):-nPNTKI-pPN5]-sP	W%X8-uPW89-xPg,.Kx-zP 
Z-}P_BwH-2CR
>
.iGJ%	.Hg:~).)\.	6G>mn	.
X[O'	.Y>>	.}C.>./CS.3Ig(.lqNN.	.]OK.Ih. /glq.">D;Y.%P	\.'PGh.[Y.*P$l.,PI?\w./PxI4,j7.1P M0,\s.4P*|-.6P%j<.9PSP,9.;P&mX8.>P[L,\Y.@P[L-lY.CPZl\Y.EP6~-.HP;$\Y.JPg,h1.MP@N5mZ.OPN^*X.RP;[t.TPm1.WPZu[x.YP_BwH.\1CR
>	.^igR&n.amGJ%.cHg:~(.f)\	.h6G>mn	.kXC.>.m[O'.pGS).rFY>>	.u}qNN..w
]OJ.zglq.|gD;Z.P
EP-<p/P@%I7/Pmm</P
mkr/	PG-\X/P@I,;[/PIX.[Z/P5]/PI?])/P./P*|+P/P*L</PO(.:/PO(,z;/"Pa.}/$P OL,\Y/'P':9/)P7<z/,Pg(-\X/.PZnlv/1P[<.8u/3P7,ku/6PF(W/8P
>	/Jh/Lqg:~(/O(\	/Q7G>mn/TWC.>
/VY.GS)/[EY>>/^|[O'/`JCJ?h/c]OJ/eGJ%L/h2g\/jEC.
{/mPaWn/o
FH1/rPD;Z/tP
G4.,/wP<y6/yP 4M/|P|j6/~P
O(,{R0P%kT0P;<0P2n=10P7V0P6~<0NTKJ0PN5j0Pi,Y0!P@o0,Y0$P ;&J0&PCR
>0)hO>0+|	0.q\
00\C.>
03IN]~
08-GS(0:E]OI0=CJ?h0?GJ%K0B1aWn0DD;[0GPgVoH0IPC.)20LP@C8-m0NPG,9Y0QP@G4,[q0SPG4.=z0VPG-[r0XPG,;[0[P&90]PG(,880`Pelp0bP$K0eP290gPf0jP$lv0lPx%
}0oP:KU0qPOL,[s0tP '8p0vP[L/v0yP7*<0{P6}Y{0~P;&)<1P],kb1PBm\S1PcT,HS1P JI91
Pg.[1P@;[v1PM ,\1PS&e)1PRL=1PM.):1P~C1YIN]~
1!C.>	1#
Ifw(1&=GS(1(D[J.,1+]]OI1-GJ%K100aWn
12D;[15P%L17P\z1:P\y1<P51?PG,9Y1AP@G4-kq1DPG-mR1FP<]h1IP.21KPM0,Kv1NPND.(v1PP&n[81SP'9V1UPJ(Z1XPJ;R1ZP[L,<\1]PZn=1_P6s1bP[<.>71dP;8[11gP]v+"1iPvF]11lPN%R1nP_+;1qPg,,>:1sPS$i1vPg
,KP1xPM.	q1{Ph61}PC	2ZC.>	2qIN]~	2Ifw(2=[J.,2
\CSk2
c]OH2GJ%J20aWn
2D;\2P
(22P$k2P&=82PG(.}2 P <]i2#Pv12%Pf<2(POP,2*P.ht2-P6}mY2/P*L(:22PTI;24P;<27P'8q29P':;2<P2l<z2>P6|I2AP[<.{J2CP[<.y2FPN%S2HP:%n2KP_.2MPJ882PPKi:2RPNTKL2UPN6|x2WPg,,LS2ZPOLR2\PR69:2_P_;2aPm32dP&H22fPM~2iFC	2k\C.>2npIN]~	2prM&g
2ssGJ%J2u2[J.+2x\CSj2zc]OH2}aWn	2D;\3P
[h3P@"i3P\z3	P4<r3
PlkX3Pmkt3P&+3PG(,863P>,z3P"<]i3P;<3P'9W3 P7$H3"P
7Z23%P7T3'P7s3*P6|I3,P[<.{I3/P[<,lv31Px6}Lz34PCP.=36P:&;w39P_.	3;PC6
S3>PF+W3@Pc.{3CPe
,v3EPN6[3HPN^8u3JPN5I73MPg\-k43OP@O><3RPkL,K{3TPiP-YS3WP S$u3YP;&E	3\P	S&MT3^PM~	3aGI&dn3cIN]~3fqg.>3haM&g
3kpGJ%I3m0[J.+3p[CSj3rbaWn	3uD;]3wPP <]j4	P	f<4PdIr4PG%24P7(t4P7{Z4Pg(,<
4P6|<z4P[<.{I4P6}v+4'PFy4)PcT,9R4,Pi0,[y4.PG.+41PM-kr43P O*7,46M~	48G[2\.
4;g.>
4=`M&g	4@oGJ%I4B0[J.*4E[CSi4GbI$^4JdIw+4L6aWn4Oy4QP%8q4TP\84VP<]j4YP	I?Xz4[POk4^P%kW4`P;<4cP'8s4eP'9X4hP+s4jP[L-[Z4mP@7t4oP6~;74rP[<.{H4tP|'NFM4wPCP.)54yP_P*T4|PF+R4~PJ$k5PRlLK5PO*7,5M~
5HI$^5[2\.	5
5`M&g	5nGJ%H5/Iw*5B[J.*5ZCSi5aO>\\I5!&(x5$PGH-X85&P@G,:	5)P@G4,iV5+Px%[r5.PG.-50PG.953PG(,Lw55P<]k58P
f<5:P-+q5=PO8-h65?P '8s5BPJv5DP6}S5GP
6|65IP6~(r5LPCP-yV5NP:$(z5QP;$;5SP;$,5VPJ6
5XPK;Z5[PN4h15]Pg-mZ5`Pg,,z5bP@RL=5ePM,hs5gPx(Z5jP	gD.|Z5lPO*7+5oM~
5qHI$^
5t[2\.	5vg.>	5y~M&g5{bGJ%H5~-Iw*6AO>\\I6H[J.)6ZCSh6ag26
AGH.{6PG4,zQ6P$LW6P	vV6PK8,+6P 
dM6P}Ks6!PO(.[Z6#P Tz6&POL/s6(P'9Y6+P2ms6-P7V60Pg(,<
62P[<.9V65P6~8V67P:&=6:P:%hY6<P:%Ks6?P]<,;v6APx]~	B6DPs_,M26FPC6=6IPa4,<6KPa4,\6NPc,kQ6PPNVDH6SPg-]6UPRMY66XP[P,MR6ZPRlLL6]PO*7+6_M~6bII$^
6d[2\.6gg.>	6i~O.>
6lG>o,6n.Iw)6qAO>\\H6sH[J.)6vYCSh6x`UN.,H6{ L6}P$;87P5hw7PG4,kQ7P`I,s7P IX-T+7
P5L7
P997P}Iw7PlV7P37P'9Y7Pdz7PY4,J7P?`2lJ27 P7,
7#P7\7%P@7;;7(P7s7*P6|M7-P6}[{7/P6|(:72PNf
y74P6|777PO79PO=97<PN%ly7>P:&97AP;8\7CPFh47FPeP.
T7HPO4y:7KPNV<V7MPO*7*7P.>7R4e*5n	7U;I$^	7WM~7ZDg.>7\}O.>	7Iw)7aG>o,7d.[J.(7fYD\q7iP
7zP;|7}P-M77PiO8]z8P S@-Z8P@2n<Q8PY4,J8	P@[L-yV8
P7,
8P7IV8P7|t8P7W8P6|\8P[lz8P[<,k\8P[<.yJ8 P6~y8"P]vi98%P:%k<8'PFz28*P6~
r8,PO*7*8/.>	814e*5n	84;I$^	86M~
89EO.>	8;}G&u|8>Iw(8@G>o+8C[J.(8EXg6	8Hgg
8JYiRn>	8Mqa
-J88OP@a
-i8RP=68TPIX-T*8WP 6M8YPI?\p8\P@=m8^P
OL-8aPS@,\8cP ';W8fPY4,I8hPx7,8kP6|ms8mPg(,<	8pP [<.yI8rP6~y8uP]N1hv8wP:&i\8zP:$,u8|P_-mz8P@a4,Z9PcT-m9P e,<S9PN
;9	PN
=9PO>+9Pi0-kv9P@a8,k9P M.99PCH.|W9P O*7)9.>	95e*5n9:eNn	9"yI$^9$M~
9'GO.>9)|G>o+9,g69.
iRn>91
93Xik96C
-}w98P^9;PJ99=PIX-T*9@PI?Xw9BPK,;r9EP`v99GPO,yY9JP.99LPa.|Z9OPiO8]y9QPUL.
|9oPRMXS9rPg,.,(9tP&Z9wP	g
.=89yPO*7)9|.>
9~5eNn:x%n:gSN:G:%:G>o*:CJ,:
::gg:Xik:a
.Z7:P|z:PHX.:PlI3:P$Ix:!P>
Q:$PIX-T):&P,:)POL.|S:+PY4-\S:.P@Y4,H:0P?`7+Y:3P6~-S:5PPe
,[7:LPJ$)X:NPN^8y:QPiP,H6:SP`S%	:VPg
,l]:XPO*7(:[.>
:]6G:%:`QG>o*:bCJ,:eo]NW
:g:gg:jWij:lCH.Lw:oPx&9:qPIX-T):tPND.+R:vP@O(,z:yP::{PUL.<:~P$@@Y4.);P Y4,H;P@7,q;P	[L.
;P6~k;
P6~;;;PCP,<U;P7.\;P:&;;P]t{v;P:&(Q;P]\-kZ;P;$Z2;!PP-hw;#Pc,Lu;&PN4:;(Pg,-;+Pg,Ku;-P O>(:;0Pk-k{;2P@W[P;5PS$;7P3$Y;:PO*7(;<.>;?6G:%
;ABSBn
;DG>o);FCJ+;In]NW;K9gg
;NWg[Q;Pbij;S(9;UPFm;XP$;Z;ZP&91;]P9:;_PGh-j3;bP@VJ6;dPejH;gPIX-T(;iP6H2;lPK8.:;nP@O%2;qP*NDH;sP
|h;vP'<p;xP
2lZ;{P2m7|w<P6~
t<P:&(R<PC5M<
Pe,l]<
P@iP-I7<Pxz<P^<PY<P.><7gBdn	<Ye><{e%< 8SBn
<#
G:%
<%QG>o)<(O*7
<*CJ+<-nI,</*]NW<29gg
<4Vg<7kii<9&(z<<PR%lz<>PI,<APpIX-T(<CP*N<V<FP|h<HPP[Y<KP'8x<MPY,-ht<PP7,r<RP7Ht<UP7Z<WP7+q<ZP7v<\P6~)[<_P[<-;<aPx:&;<dP:%Kw<fP]u)W<iP:$<kPC4=<nPB^<<pP[
,97<sPFk6<uPFjQ<xPKI<zPN4k<}P	OIw<Pi0,;y=P C-|[=PFKx=P@RL8p=	P3&[V=
PZt8V=P.>
=7G:%	=AgBdn	=XSBn=
Idn
=G>o(=O*7
= CJ*="mI,=%)]NW
='8g1=*<gg	=,Vii=/CH-yV=1PCH,<X=4PEP.-R=6PEP/,W=9P@"m=;PG8,J9=>PG4.9=@PH=CP
#Lz=EP*MX<=HP
*MJT=JP
&l=MPY4.)=OP@2mHV=RPY,,;Z=TP@7(z=WP6}]=YP6~;<=\P6~(w=^P7,J9=aP7,IT=cP	7.*x=fP
:%kr=hPJ6
{=kPA]y=mP@N6|=pPN5\h=rP
RL8q=uP=wPM,y7=zPxgB
>=|RgBdn=XCNtN	>aSBn>	G:%	>PIdn
>	d.>
>pe%
>[O'L>xG>o(>{O*7>CJ*>mJN.>C>
> I+>).f>"3]NW
>$8g0>'Igg	>)Uih>,a
,T>.P 
}>1P%<p>3P&Hx>6PG-)W>8PnN>;P&\y>=PG(.;>@P@I>BP*L(t>EP|>GP	:Lu>JP'<r>LPY4,8s>OP7+)>QP7(z>TP
7KV>VP7z>YP7,<R>[PFM>^PN4J9>`Pg.
gP,J9>hP@i0,\W>jP&k{>mPS%Dh>oPRL8q>rPg
.z>tPM-yS>wPe4.+v>yP@G:%>|@CNtN	>~`#N?\SBn
?	Idn?de%	?Yu{R?[R,?
?I+?(.f	?!4]NW	?$7gg?&Uih?)%8x?+PMKU?.PI?0Pr?3POM]?5PO(,I;?8P@:-?:PSP-dJ?=P@UL,z??PY4.
2?BPx2n,r?DP2l;8?GP6|kz?IP	6}w?LP6~-V?NP6}]?QP6~Hr?SPNf?VPNf3?XP6<?[PFj6?]PFh9?`PA]z?bP@N4<R?ePRL8r?gPM-i<?jPi:?lP
?qg:~
?t(Idn?vce%	?y[R,?{CJ?,?~q[O'K@wgR%@O*7
@CJ)@j[&.@
uC>	@(.f	@4]NW	@79H@P"m@PG8-+q@Pm9<@P$H1@!P>0@#PJ@&P
eLx@(PdIz@+P*NKW@-P,\Q@0PO(,9V@2PND-7@5PSP-kV@7P ':v@:P7KW@<P7J9@?P7|y@AP[<,[s@DP6~+Z@FP[<,9@IP`CP.Hv@KP ]\-kW@NP@]Mj"@PP{C5Y6@SPC6>6@UPG,(:@XPc-6@ZP@Fj6@]Pe,[1@_Pg,-q@bPS$@dPRL8r@gPGN	@i?n@l(OR%	@nPM6.	@q`SBn	@sg:~
@v'S2Mlj@xWIdn
@{c[R+@}oe%ACJ?+Aq[O'KAuO*7
ACJ(A
iC>	A
I*A'.f
A5]NWA6G<-AoO%<zA 9IAP\rAP5SA PG,LA#P %LzA%P>=A(P#Id-6A*P@O8.=A-PSP,A/PY4-XVA2P2mHXA4P7|zA7P7<RA9PSkQA<P:&(UA>PcT-lYAAP@c-kqACPN5XqAFPN6X(AHPOIAKPR6:ZAMPW:tAPPRL8sARPGNAU?n	AW(OR%AZPM6.A\`SBn	A_g:~Aa'S2MljAdVIdn
Afb[R+AimCJ?+Akp[O'JAntO*7	ApvC>As)CJ(Aui]O
AxzI)Az'g8xA}C.f
AkJDBP*YBP%CH-k9BP@"iB	P"mB
PG,X2BP K8-MVBPx,]7BPS
.K=BPx7|zBP[<-\sBP@:%\uBPY?<kQBP~C5h6B"PB]hzB%PNTIYB'Pg.\sB*PNdLBCg:~BE&O*7	BH`Idn	BJb[R*BMlCJ?*BOn[O'JBRt]O
BTyI)BW&.fBYlSBElxB\,zB^P%KrBaP\sBcPG,i2BfP%	BhPI-lUBkP@5i:BmPI?[SBpPMHvBrP4:BuP@:.KBwP*N<ZBzP	O,yTB|P@S
.]BP':xCP2n({CP[L,J9CP [L,<RC	P6|myCP6|kCP[<,,xCP[<,;wCP@7&kCPa4-RCP6<zCPc.)6CP@a.
[CPNTIYC"PN6;uC$PgP,J6C'P@R6]7C)PiP.zxC,P RL8tC.P\rC1P;ZC3P?n
C6)S2MliC8|SBdLC;g:~
C=&O*7C@_Idn	CBa[R*CEk[O'ICG
CJ?*CJmY?.N
CLu]OCOyNN.	CQ
I(CT&.fCVlG<)QCYoCP-+qC[P$;rC^P"mC`PG4-cPG-J8CePG(-KsChP@VMCjPT<CmP:(6CoPUL,I;CrPp7,CtP	[L,^CwP7{1CyP6}zC|P7&k	C~P7.,xDP
,,}DP~C6i9DPJ[WDP`D.	<DPN4HrD
-LyDP@W$DPaT-k{DP@&DPS%DkDPS$K)DPRL8tD!PCH.
}D$PZuXqD&P?n
D)*IdnD+<S2MlhD.|SBdKD0g:~
D3%O*7D5JY?.N
D8L&(D:P[R)D=k[O'ID?CJ?)DBk]ODDxI(DG%.f
DImkDLPyVDNP'-DQP&=DSPG,LxDVPx5I7DXPG4/
3D[P@el|D]P6\yD`P"~=DbPO(.i9DeP[L.N8DgPx7,wDjP6}YTDlP_P,k7DoP6
pDqPe
-k2DtPgVo
{DvP@6~	3DyPiP.zwD{P@S%=D~PRL8uEPCH.,wEP8?nE*E.TnESBdKE
g:~	EK[R)Ej[O'HE
&(ECnECJ?)Ej]O
Ex]>'E!S.f
E#mI.~
E&ya
,E(P<SE+P4zvE-PG,I6E0PI,MQE2Pp6<[E5P	K-+qE7PxvE:P2E|zE<PT<E?P'<vEAP2n9EDP7KZEFP7wEIP	6~
zEKP6~-YENPZn[VEPP7$tESP:$:1EUP:$)6EXP]<.9wEZP _.JE]P6(rE_PFYwEbPJ$*vEdPN&,EgPNv
QEiPNv
.=1EnP &nEqPS%DlEsPRL8uEvPM,J9ExP@LWE{PY?.N	E}?nF+SBdJFO:TnFg:~	F$i6}nF
S[R(F
j[O'HF
&)FCn	FG&IXF CJ?(FjCS,F>]O
Fw]>'F @I.~
F#ym$-Z7F%Pxa
,>(F(PJ.L[F*PG.
[F-PT^F/P>	F2POP,SF4P S'WF7PO(-h6F9PSP-mF<P+ksF>P7,xFAP7HsFCP6}HZFFP[;ZFHP[<.:1FKPx[<.x*FMPN%FPPN$=9FRP:&
VFUP:$,}FWP]XbFZP_P.<F\P@FKsF_P	FkQFaP
e-i2FdP J5FfPU@.-FiPxg@,IYFkP NL;ZFnPaT-Y4FpPC-{FsPNLz7FuPRL8vFxPZr$FzPY?.NF}?n
F+SBdJGg:~G$ORU
GV[R(G	iCn	G
Yei9GCJ?(GiCS,G>&)GK]O	Gw]>'
G?qB-4
GtI.~	G xD	G"P?a
,>(G%P HX-	G'PmuG*Pl9VG,P%I7G/PG,qG1P$;qG4PHD.mVG6PI?Z9G9P:mZG;P^]yG>P S@.MG@P'<wGCPUL.3GEP7HzGHP6~<YGJP[<.x)GMP[<-MqGOP Nf8GRP;$zGTPB~
GWPe,)RGYPg$.i9G\P8gL,<G^PgL,\GaPi0,2GcP@W:xGfPRL8vGhPM-kP?n
Gm,ORU	GpSBdIGrY;N	Gu/Cn
GwcV.^Gz%I&
thG|)K;IG(CS+H;&*HL]O	Hv]>'
H	?qB-4	HsI.~	Hx;]HPHX,iHPHX,RHP"mHPlI;HPn\9HP	$(zHP5m6H"PvYH$PvH'P|PH)P	O(,I6H,P JH.P6|*sH1P6}YVH3P[<.x)H6P6|H8P:$;H;P:%^H=PB\<H@P6
rHBPG,SHEPFhqHGPa.LHJPKTHLPO4X2HOPN\IHQPN4;rHTPi0,<WHVP@i0.=HYPW(9H[PkL.<vH^PkP.LXH`P@iP,XwHcPS&I5HePRL8wHhPY;NHjORU	HmSBdIHoONHr2G&HrHtcV.^Hw$K;IHy(CS+H|;]>'	H~D&*IL]OIvgK9IdqB-4	IrI.~IwX<I
6}XrI&P[<.x(I)P7& OII8PgL,^I:P S$I=PS&I6I?PRL8wIBPCH,^IDPg>	IGDORUIISBdHILK;HIN ON	IQ2cV.^
IS$CS*IV:]>'	IXC&+I[M[J.
I]X]OI`uG=PIbqqB-4Iera
-}SIgP@\wIjPl,UIlPejPIoP<K1IqP6J6ItPp&nIvP|88IyP|;I{PO(.K8I~PO(,qJP@O(-)WJP;<JPSP-j9JP@S@-[wJ
PUL.HYJP7KVJPg(.{JP7$;ZJP7&(6JP:&(ZJP:%mJP;<kQJ!P>0]yJ#PB]}sJ&Pc,kJ(P`e.=4J+PiP,XvJ-P\RJ0PS"J2PS%VJ5P
,[XJ:Pg>J<DSBdHJ?K;HJA ON	JD3GJen	JF5cV.^
JI#]>'JK&CS*JN9&+JPM[J.
JSWE?'HJUSBF98JX*
wJZPGh.
TJ]PG4,YJ_PG(,j6JbPejQJdPGP-KVJgP@lJiPvJlP&n	JnP,\WJqPUI3JsP@S@,<JvP'<yJxPUL-h6J{P`dZJ}P7,zKP
7zKP6}wKP6~;KP]5lbK
Ps_,zK
PB]I7KPFfKPF[KPJ$=qKPN
W>	K#{M2~N	K%YGJen	K(.ON
K*3cV.^	K-#CS)K/9[J.K2W]CB(vK4&9K7P>7K9PI?X:K<P`I?ZiK>Pp&n	KAP*LKWKCP%KFPO(.[KHP UjKKP@V-KMP;<KPP'<KRP'<yKUPUL.HXKWP2mKZP[L,^K\P 7zKP7yVKaP6~,xKdP6~}6KfP6}ySKiP6|KkP[<,1KnP@]<-{{KpPF9KsP
PS"	LPRL8yLP	G,PLP M-nLPW>LzM2~N	LXGJenLON
L 4cV.^	L""IN_
L%{CS)L'8[J.L*V;]L,P%L/P"mL1PlzL4P
G(-lL6P<=L9P#I?Z6L;Pv0L>PdJ3L@P&n
LCP|qLEP%l}LHP2n,yLJP7,{LMP[L,kLOP6}lQLRP	6}KqLTP
ZL^Pa4.-|LaPJ6:3LcP;,YLfPg-|LhP@N^8QLkP;pLmPN0YwLpP OILrPg,-
9LuP RL8yLwP	M2~NLzXIdN	L|=ONLG&uyXMcV.^M"IN_MzCS(M	8[J.
MV_BwhMkgiMRSBD:Mm$.zMPpD<QMP&\|MP%\sMPnzMP&:1M"P>	M$P!I,I0M'P@I,7M)PHD,M,P OP-	tM.P :H6M1P'<zM3PUL.:=M6P 7{M8P71M;P6~9M=P7$lM@P6|MBPCP-Z2MEP7,iXMGP]-BMJP~B|H:MLPFiYMOPFKMQPFkrMTP
F,xMVPe.+RMYPe,+M[P@NV
RM^PN
LSM`P;T+McPS%IMePRL8zMhP
M,kyMjPi&dnMmIdNMo<YBMn	MrnIN_MtznMwCS(My7gS
M|I[J.
M~U_BwhNkHX,MNPG.
VNP$=3NPG(-m2NPI,^N@6~9NP
6}yNP6~,yNP;$;ZNP]N	bN!PrB\kN$PF\sN&Pg,.=N)PlqN+PS%4(N.PRL8zN0P
eVvNN3]YBMn	N5nIN_
N8yn	N:)gS
N=1[J.	N?Ui,NB	D=7NDP5rNGPG,;NIPV
{NLP>)NNP>9NQPK8.|NSPd^NVPOP,(9NXPO(.
WN[P^Z7N]P7[ZN`P7;NbP6~=NePShxNgP[\[NjP6~,zNlP6|NoP:%kNqP:$:7NtP;$:NvP;&0NyP_P.K=N{PBm]N~PG,J9OPF;xOPFKOPF+5OPN6|VO
PN5\rOPC-z7OPiP.H1OPY<OPS$I3OPRL8{OP[.+OPM,QO!P{VO#P
IVnO&FYBMnO(mIN_
O+|n	O-	gSO01[J.	O2TYRd.O5ti,O7m$-X5O:P|D8YO<PCH.IWO?PTj6OAP$LrODPI.,zOFP4OIP
5LOKPd^ONPRL:xOPP#
WOUP7LxOXP[<.<[OZP ]uKO]P;%[rO_P;&:ObP]d9"OdP{F)9OgPNTK+OiPg,.yOlP c]QOnPiP.zpOqPRL8{OsPIVn
OvFIN_	Ox{[RwO{&gSO}sn
P	]CEk:P[J.PT[J.LPS2g
P
g=yP
fi+PY2oP$\YPP$;PP4,PPhY[PP@nKuPP	$IRP P>)P#PI.|ZP%P*|,P(P
N}7P*P~HYP-PT<P/P^]P2P[L-TP4P6}P7P6}yVP9P:%h6P<P_P-mP>P6
wPAPg,=PCPN
;ZPFPN\rPHPNv	PKPg
,}PMPc]RPPP[P,H2PRPRL8|PUP
IVn
PWG[>	PZl]S?.P\oIN_	P_{gS
PagHSPd*S2g
Pfn
Pi]CEm6PkCJn
Pnh[J.LPpgXPsJi+PuY2o
Px9:Pz 	P}P%;1PPHX,IQP&
TQP&=QP5YQ	P&	2Q
P
I,J9QP>|V<QQPSP-mQP dJ9QPY4,:2QP2n=Q P6~9Q"Pg(.);Q%P]N1hhQ'P7%	Q*P7$=[Q,P:&;VQ/P:&)Q1P]</,WQ4PP.8vQ6Pa4,;ZQ9P@eP,J6Q;P@NTK,Q>Pg@,kQ@Pi0,^QCPRM\ZQEPo0,I;QHP RL8|QJP
M-I7QMP?IVn	QOG[>QRlvQTIN_QWzgS
QYG&u{RQ\S2g	Q^CJn
Qah[J.KQci*QfY2o
Qh%IQkP&+8QmP%;2QpPGh-lUQrPG,HwQuPn.9RP,,}R	PO(,kYRPK8RP&uL|RP'97RP2n:2RP[L,J0RP6|*yRP6}{RP6~9RP6~;R"P
TR3P;)R6PU@-^R8Pg@-{R;Po0-HrR=P@F=8R@P@\RRBP[P.99REP@[P-ltRGP&{RJP;&DiRLPRL8}ROP
3
TRTPgR
N	RV_IVn	RYv	R[i&l^	R^ae.>R`gS	RcS2g	Re~CJnRhg[J.KRjtgWRmzi*RoY2o	RrCH,QRtPl;ZRwPG.):RyPVYR|P>8xR~PM0.;RSP`:UYSPO8,^SPUL.
WSP86~;SP6~=SB]ZSPG,=9SPFlpSPFlwSPN6gR
NS0^G$.
S3IVnS5i&l^S8g4^S:Dv	S=g6}n	S?T[O&.
SBvgS	SDNNSG4S2gSI~n
SL
CJnSNg[J.JSQsi)SSY2o	SVOS<	SX:61S[@R	TS]@R<yS`@O[8Sb@CD-vSe@N$a5Sg@p'
jSj@WL$gSl@@x>mySo@3X1Sq@g
,IpSt@kO$gSv@@xtGSy@g<.{3S{@@QL,x:S~@#ZT@#k9T@gD,H5T@R:T@g
-|T
@gD,J1T@H6T@'+ZT@NM	tT@OJ9T@O<RT@cX2T@t+T!@,,yT#@3J6T&@R	XT(@R<T+@gD.8VT-@2
(zT0@e'[[T2@@i
.LT5@pi
.I9T7@`O<YT:@
J9T?@O
TA@'
jTD@EQ4\YTF@@K>d$'TI@iZYTK@@N$a:TN@gL-kXTP@xR]tTS@R=1TU@	i~
vTX@!O,TZ@O
T]@2=T_@Jh\RTb@R]tTd@RLyTg@C$$Ti@x_,,wTl@x3]Tn@R=2Tq@R-Ts@g
,lzTv@O
IVTx@EQ6JT{@@c;HT}@e
.+U@i]9U@ H:U@O4;ZU@O)0U
@c;IU
@CD.<U@ Y.(:U@@O<VU@'
LqU@#[\U@#H1U@#U @O
9U#@O
HtU%@O82U(@RyU*@O)5U-@2;3U/@O
.
ZU7@O	VU9@':U<@'=YU>@'<tUA@C$$gUC@@xQL-h6UF@@2<xUH@m
u|UK@M&d$'UM@yv (289UP@RZ4UR@R
tUU@O)5UW@2RUZ@&vMYU\@EtU_@:Ua@2
hwUd@&v4Uf@RZ4Ui@O+3Uk@O1Un@g
.yUp@gD,<rUs@OX<Uz@O,U}@'wV	@O,V
@O)8V@OhyV@2]ZV@WL$'V@~`xI4$GV@@p2
VV@[<-LV@iY9V @@i\V"@q
,lzV%@@2(rV'@
gD-V*@i\V,@QL.=V/@~O
LrV1@g
.=V4@OhqV9@O,V;@kO$'V>@yv x[<-MZV@@i\VC@#m=VE@g
,:1VH@iXVJ@':VM@EQ5	VO@@3<[VR@R(yVT@v81VW2
;VY@#KyV\@2VV^@gD,LRVa@M2$$GVc@@x#ZVf@pN.QVh@2(wVk@i\|Vm@ iY6Vp@R<XVr@OK{Vu@g
.	rVw@3m6Vz@O=V|@gD,yV@c,qW@3;rW@:$*hW@#J8W	@i
.LqW@O
QW@OM\pW@i~
hW@ O
9W@EQ6IYW@@28tW@i\zW@@RPW"@K[W$@O(YW'@g
-lVW)@O
:2W,@t'W.@iZW1@R;W3@O;RW6@g
.hyW8@m
t;W;@gD-|W=@2[8W@@CD.8yWB@@3XwWE@RQWG@Rj7WJ@N,<YWL@'<WO@e
,PWQ@ #[WT@OyWV@
m
v=WY@thW[@iY1W^@@R9W`@ m
v=Wc@g
-\pWe@tiWh@RSWj@i\Wm@OqWo@	g
.9Wr@O
LzWt@N-\qWw@tiWy@'
.J6W~@[<-MSX@#]X@
gD-J9X@28wX@[<-HtX@O
L{XXK>d$GX@RTX@#DHX@2J9X@2<RX@O
JX@Q;X!@O
LX$@ONX&@C$$'X)@yv xQ<X+@i]ZX.@O
JX0@gD.*YX3@O6N8X5@OJ9X8@29X:@gD,K2X=@]-LX?@@g
-KqXB@OXG@O
.RXL@EQ4MXN@@R9XQ@!O
zXX@YLuySX[@RWX]@O,YX`@+Xb@G.XwXe@#i:Xg@O)Xj@	N,:0Xl@EQ6H9Xo@@I4$Xq@xi\rXt@ #]8Xv@@QL.;Xy@ R-1X{@O>9X~@O
lzY@gD.NY@G-kRY@i\qY@ i[ZY
@2<VY@RYY@NLK0Y@I-)WY@e,^Y@@O{Y@
gD,;Y@QL.,wY!@xQL.<[Y#@QL-i;Y&@gD,85Y(@clUY+@M&d$GY-@@PM2$$Y0@xR:6Y2@gD,9Y5@)6Y7@R=Y:@';ZY<@2)5Y?@G-
wYA@20YD@QL-i:YF@N,=YI@3H9YK@R>0YN@OL,H<Ys@2+3Yb@O-
9Yx@gD,JY{@2,Y}@Y,LqZ@ ]-LZ@ 2)8Z@c
qZ@iZ<Z
@g
,kZ
@gD,LrZ@g
-lzZ@cVZ@M2$$gZ@@xQL-Z7Z@[P.]:Z@@RkzZ@'}|Z @'*1Z#@cI7Z%@'9Z(@R9WZ*@	EQ5QZ-@x@G,:7Z/@EQ6
VZ9@	O
]RZ<@O4LtZ>@O
,J9ZF@@R>7ZH@g
,IZK@2=ZM@O,ZP@tZR@O
)ZU@O
(2ZZ@NLIpZ\@O,Z_@29:Za@RxZd@G.yZf@>Zi@gX,IZk@@g
,MZn@EQ6IZp@@2
)PZs@RZu@QL.h6Zx@ O;3Zz@O<Z}@g
.8TZ@2(Y[@&vT[@O4Lw[@R>9[	@O
1[
@2;R[@O<x[@O
\q[@c+q[@2h6[@3+[@#I1[@OR[ @g
,lV["@2y[%@K>d$g['@_.}[*@`O[,@gD,Hr[/@O
+[1@O
*2[4@N-Hv[6@R{[9@#[[;@
R<q[>@R+[@@OLz[C@2q[E@C$$G[H@@pi]z[J@ O
:v1[T@R[W@R)[Y@ Oz[\@O(r[^@OY[a@
O
[c@O8T[f@gD,<R[h@QL.\y[k@OY[m@
<z[p@N.*2[r@O
M[u@O,[w@'
V[z@O
]Z[|@c	5[@>kv\@2J9\@O	t\@WL$\	@xI4$'\@{~`x3kV\@3kw\@OV\@O
-[r\'@N-Y\)@EQ4HQ\,@@R<\.@SB~
V\1@2)\3@OY\=@'T\@@OX8\B@O(t\E@M&d$g\G@@xM2$$'\J@~`xR)\L@!g
,]P\O@@O8Y\Q@O
Q\T@O+V\V@R
8\Y@i[\[@ QL-hu\^@O
+P\c@N-hw\e@ckQ\h@'
[\j@i
.N\m@O
k\o@O{\r@	2{\t@:7@J5[r\y#@CS\|2@:7\~@J5[r]#@CS]2@gg}]@Clz]7@Bl=]8@CNv<"]
~-]!s@N6]&.@>H2])K@N6K"]3@L)"]5E@gB}{]8'@[RB
<b]I@2|z7]L@)W]NC@i]QY@
8z]S3@2|z7]V@)W]XC@i][Y@
8z]]3@gxb]`%@GS|]bG@N5[r]e$@>&J6]gH@N5[r]j$@>&J6]lH@CB]o@kR.=]q9@g_&,]t=@gMB]vr@O$]yr@1]{-@O*;]~Q@N6H2^.@1^-@O*;^Q@N6H2^.@g%k"^
D@$,U^@-^b^>@cV.Y"^!F@6~[Z^#)@J5|U^&6@N.Lw^(#@6~[Z^+)@J5|U^-6@N.Lw^0#@b^20@O%k"^5?@$\"^7&@K-m^:@O{v^<'@7$^?~@K-m^A@O{v^D'@7$^F~@e$^I-@TkY^K
@O$Y^N#@J;^P>@TkY^S
@O$Y^U#@J;^X>@e';"^Z1@QfIB^]<@%mZ^^@gBdjb^bf@[J,=B^d$@LK^g`@J,=B^ip@%R^lE@J-I^nX@%R^qE@J-I^sX@
7@*|-_
g@&i1_1@&=_2@N5|U_7@*|-_g@&i1_1@GL)B_ @S%hb_L@]RlB_ B@G2~9"_#q@e5"_%t@[Z_()@[Z_*)@B,Zb_-d@C5b_/f@QC%"_2 @i~
B_4x@5xS_7 @OR_9A@7lU_<e@[X_>%@O$;8_A0@5xS_C @OR_FA@7lU_He@[X_K%@O$;8_M0@I'=_P@IZ
B_R'@i2Mjb_UG@5B_WN@g:%"_Zt@*7_\@Nu{x__'@N~]_a-@*7_d@Nu{x_f'@N~]_i-@eB_kM@iFJ"_n*@i_pX@S<r_s|@i_uX@%
z_x]@S<r_z|@gBTkB_}C@O&N8_a@N6\z`4@O&N8`a@R5|U`h@N6\z`	4@G~*b`
5@S:ek"`!@O$J9`@7.J6`%@O$J9`@4q`n@7.J6`%@Y>=B`@B` @OBTkB`"C@CNtHb`%Y@O=`'3@a5|`*A@)7`,+@*9`/2@*9`12@`4S@eB
<b`6@W$\z`99@kN
y"`;:@N.i1`>B@N.i1`@B@exb`C%@B`E*@qB,Zb`HK@$q`Jl@G|)B`M @gNi"`OA@[N6*b`Re@gR\`T0@N,z`W@4:`Y'@ReU`\G@N,z`^@4:`a'@ReU`cG@;"`f.@Y'$\b`hF@o$L`k\@g&N"`mj@$`pH@NtJ6`rt@$[`u@e
z`w_@Ni1`z`@E81`|(@$[`@e
za_@Ni1a`@E81a(@eBa	4@O&
a7@eNlaD@N.I9ao@Y~]a@K
=a@M,laD@uBaJ@g%(Ba0@g&Qa)0@N.La,}@2=}:a.@4za1@6YXa3D@N.JQa60@N.La8}@O$Ba;@-IBa=@N
=a@@-\aB@&:qaEF@5J7aGM@N
=aJ@-\aL@&:qaOF@5J7aQM@e]aT3@C}:aV@J6*taY:@2u\za["@C}:a^@J6*ta`:@2u\zac"@E.TkBae@qJlahD@*7aj@J1am-@J&Mao)@*7ar@J1at-@J&Maw)@O:TkBay@GCIBa|
fZbb/@-Ib@Mb!0@O&9b$[@-Ib&@Mb)0@O&9b+[@%hxb.]@{"b0.@$b3K@gS'b5a@i~*bb8h@g.=b:4@-\b=@^5|Ub?9@-\bB@^5|UbD9@IR
:bG&@&J"bI0@_mBbLI@eR6*bbNi@?[BbQq@5|UbS5@&uKVbV!@5|UbX5@&uKVb[!@Q~*bb]9@K%bb`=@SmBbbI@OS'bea@O.=bg4@(vbj.@(vbl.@e&N"bo)@ee"bqw@SB~
Bbtx@Dibv@RMY9by)@71b{}@Dib~@RMY9c)@71c}@eNBc @[N-ic$@G>mic
2@E)7c
@
])Wc@
])Wc@G3TiBc@GOMkbc@gR$]Bc(@I*bc/@qN6*bcB@+8c!4@J$J9c#M@RcA!@&ucD*@e}:cFM@*5lbcI
@gR
,bcK#@O%bcN>@CRvmcP^@BexucS8@&%I"cU`@+qcX@NO)3cZ@K>9:c]?@+qc_@NO)3cb@K>9:cd?@q+=cg+
@OR
,bci"@I6=cl(@KbcnS@eLcq[@C2exbcs(@KJcv4@%[wcx@}:c{@%[wc}@}:d@-Bd+@g4XbdB@a.~
Bda@KJd
4@7%|d
@J9dP@7%|d@J9dP@Bd@%bd-@KBd4@9BdS@i
$[d.@%xRd#"@J9d%,@%xRd("@J9d*,@<]d-@@O4Xbd/B@g$:d2h@J4;qd4%@J4;qd7%@IdIBd9@gSLd<[@ORt<d>]@S%\sdA~@GeLRdC+@S%\sdF~@gLBdH@G"
9df+@u}:diJ@<:dkc@RM5dn/@N^
9dp+@u}:dsJ@<:duc@RM5dx/@[R~
Bdz@GJ%Bd}P@q4XbdC@O&=e
@tJ9e@5|Ue6@O&=e	
@tJ9e
@5|Ue6@OLbe2@g~*be7@U>K"eg@O4Xbe1@NMk"e<@N4;qe%@%3e ,@N4;qe"%@\e%@%3e',@G2~9Be*	@cBe,@@e5Be/v@$Ye1"@.lze4(@J&9e6[@eKqe9(@$Ye;"@.lze>(@J&9e@[@eKqeC(@kObeEd@i
IeH/@F{eJ+@M2F=eM_@g4XbeO`@G"\beR(@gSBeT7@<beWI@g:%BeYv@&j9e\f@#J6e^ @q6~i4eaC @&j9ecf@#J6ef @M4leh
@g
<bek8@GZF=em_@I
>)eph@W*7erd@Reu/@W*7ewd@Rez/@e2TkBe|	@eLbe7@O4Xbf`@C.bf@7LBf6@:|I"f	;@j"fL@vbf&@
}}f9@CNu"fw@K88f4@K88f4@\f@gmyf$@_%"fH@-l"f"%@n=f$6@uyf';@USf)@USf,@S%"f.H@YBMj"f13@i"L,Bf3|@*7f6@*7f8@f;@iRn9bf=~@"5|Uf@9@y:fB@@&$;[fEI@&N8fGa@6\zfJ4@"5|UfL9@y:fO@@&$;[fQI@&N8fTa@6\zfV4@g:}|fY'@g?.LBf[-@IfuHBf^G@X8f`@$J9fcP@fe,@X8fh@$J9fjP@g|bfm+@NV
TfoR@NV
TfrR@O*MiBft@J"fw&@CB{BfyJ@J;f|=@.i1f~B@O>Htgh@J;g=@.i1gB@O>Htgh@Nm{Bg@gIBg
"g@O8bgF@X8g@1g,@RgA@;xgQ@X8g@1g!,@Rg$A@;xg&Q@eLBg)@I'\bg+;@G[=g.^@C\bg05@O'5zbg3?@J-Lxg5u@=g8&@O)Wg:C@=g=&@O)Wg?C@OIBgB@Je)WgD	@J6=gG7@i1gI`@Je)WgL	@J6=gN7@i1gQ`@$|XgSm@e%BgV
#@NMlBh@J.9:h3@J.9:h3@9whn@Rm{Bh@J~]h@IN\bhR@m=h!;@
=h#@Y5h&d@
=h(@Y5h+d@gSLbh-
@G:%Bh0@Bh2@N|)"h5!@M~*bh76@q&@gR%BhF@J-IhI@[W%hK%@lxhNu@g)ShP@WhS@O$I;hU(@,,UhX/@=hZS@g)Sh]@Wh@O$I;hb(@,,Uhd/@=hgS@OSLbhi
@e
<bhl8@#bhnc@k|bhq*@e%Bhs5@OS<"hva@N4,}hx@&,h{=@N4,}h}@&,i=@OR%BiP@bV,zi+@:7i@xRi
!@JN(vi
1@"@OIUif@7X{i$@:7i@xRi!@JN(vi1@"
=i#m@7X{i%$@N~]i(@aWk"i*@N&=i-3@xSi/>@N&i1i21@N&=i43@xSi7>@N&i1i91@emyi<#@Bi>2@aJ)biA2@aBv=iC7@a6KiF8@$tiH'@.5|UiK5@6*tiM:@}:iPe@.JTiR#@$tiU'@.5|UiW5@6*tiZ:@}:i\e@.JTi_#@g>Bia@OS
"id=@C.
"if@Lbii,@Kyik@Kyin@iip@Wris:@:9iu*@&&J6ixH@3Tiz3@REYi}|@:9i*@&&J6jH@3Tj3@REYj|@edLj	X@g?.K"j
=@NN(vj1@O&)jZ@NN(vj1@O&)jZ@|Xjk@KKLBj@NL)"j!@e|bj $@N\Yj"?@QtLbj%`@kxj'`@O&9j*G@J&Nj,"@O&9j/G@>j1o@J&Nj4"@89j6R@,j9b@89j;R@,j>b@Z
8zj@;@OyjC@;RjE@OyjH@;RjJ@O%zbjM>@BBjO@IN]|jRQ@oNl|BjTI@ef<"jWu@=jY@J6yj\$@=j^@J6yja$@IVnbjc@o~*bjf9@"
~]jw@kR6*bjzi@Jj6j|t@KJU\j4@e|sk	@e|sk	@CR
:k'@W~*bk	5@O:k:@KN~]ke@O%*"k#@Y2m|kJ@KJU\k4@
8zk@%2k@6*yk;@&,k<@H2k"K@
8zk$@%2k'@6*yk);@&,k,<@H2k.K@N-ik1p@86k34@2NI9k6F@^Ik8\@-l1k;&@2NI9k=F@^Ik@\@NMkBj@-l1kE&@INmmkG)@MbkJ-@{zkL9@N6ykO+@N6ykQ+@G=kT@O<bkV;@OS
~]ke@J"kh/@^MIkj:@$tkm&@>$;[koI@$tkr&@>$;[ktI@K$lUkwi@g$\Bkyo@qO4Xbk|C@&=k~
@:9l0@J4yl8@I8l&@V6	yl*@JJ9l5@&=l
@:9l0@J4yl8@I8l&@V6	yl*@JJ9l5@q]BlF@&x0la@[$\Bl!{@}:l$@N.KVl&D@}:l)@N.KVl+D@O$\Bl.@B-iBl0@e>Bl3@gSLl5Z@IeiBl8g@e.<Bl:6@88l=4@RI6l?.@88lB4@RI6lD.@RMY"lG@G"4HBlI@O$lLK@i&l\BlN)@[KblQ}@gCblSQ@g$lV.@C*blX<@[wl[@R/
@N4ylv8@j7lyJ@5
zl{_@4iXl~
@N4ym8@j7mJ@5
zm_@g=Bm@@M6)"m
E@OR$m+@4|Xmj@CNtLmX@ORF=m]@i^@J6Vm2+@J6KVmS!@%)WmU@Jt3mX@J-ImZY@KVm]!@aN~]m@e:mb:@Y:n=md"@cBmgA@Y%|miL@Z9ml+@&
Y@GJek"n
!@:L;Yn`n
   DEFINE ..CNS (ARG)<
	..CNS2 <ARG>,>

   DEFINE ..CNS2 ' (NEW,OLD)<
	DEFINE ..CNS (ARG)<
	  ..CNS2 <ARG>,<OLD'NEW>>>
   &Wnn$Xn"
	    ..STR1 (..TY,NN,<>,<>,..STR3)
	:<;Yn"n,n*
   DEFINE ..CNS2 (NEW,OLD)<
	  OLD>			;;MAKE ..CNS2 DO THE STUFF
	..CNS ()8uIn*n7`n5
	..TSIZ (..PST,)
	.CASE ..PST,<<
		MOVE ,>,<
		HRRZ ,>,<
		HLRZ ,>,<
		LDB ,[POINTR (<>,)]>>:Uh)n5nH0nE
	..TSAC (..ACT,<>)
	.IF0 ..ACT,<
	  SETCM .SAC,	;;NOT AC, GET COMPLEMENT OF WORD
	  JXN (.SAC,,<>)>,<	;;JUMP IF ANY BITS ORIGINALLY OFF
	  JXF (<>,,<>)>&wnEn]Xn[
	    ..STR1 (..TY,CN,<>,<>,..STR3)
	;&-Hn[nePnc;###not used in Fail version
	.TRV2 ()N\ncnm8nj
	 (<>,<>,):THnjns8np
	..JNA3 (,<>,);&-Inpny nv
	.TRV3 (,\..NV)	;;DEFINE VARIABLE
	IFB <>,<..NV=..NV+1>
	IFNB <>,<..NV=..NV+>:TInvo0o
	..TSAC (..ACT,<>)
	.IF0 ..ACT,<
	  SETCM .SAC,	;;NOT AC, GET COMPLEMENT OF WORD
	  JXE (.SAC,,<>)>,<	;;JUMP IF ALL BITS ORIGINALLY ONES
	  JXO (<>,,<>)>;&-Ioo0o
   IFDEF ,<.ifdef ,<PRINTX TRVAR  ALREADY DEFINED>>
	DEFINE <(.FP)>
	$==<>qmoo(Po&
   ..TX1==			;;EVAL EXPRESSION IF ANY
IFDEF .PSECT,<
   .IFN ..TX1,ABSOLUTE,<
	TD ,[]>
   .IF ..TX1,ABSOLUTE,<		;;MASK MUST BE TESTABLE
	..TX2==0		;;FLAG SAYS HAVENT DONE IT YET
	IFE <..TX1&.lhalf>,<
	  ..TX2==1		;;LH 0, DO AS RH
	  TR ,..TX1>
	IFE ..TX2,<		;;IF HAVENT DONE IT YET,
	IFE <..TX1&.rhalf>,<
	  ..TX2==1		;;RH 0, DO AS LH
	  TL ,(..TX1)>>
	IFE ..TX2,<		;;IF HAVENT DONE IT YET,
	  IFE <<..TX1><-=18>-.rhalf>,< ;;IF LH ALL ONES, 
	    ..TX3 (,)>>	;;TRY Z,O,C SPECIAL CASES
	IFE ..TX2,<		;;IF STILL HAVENT DONE IT,
	  TD ,[..TX1]>	;;MUST GIVE UP AND USE LITERAL
	PURGE ..TX1,..TX2>>
IFNDEF .PSECT,<
	..TX2==0		;;FLAG SAYS HAVENT DONE IT YET
	IFE <..TX1&.lhalf>,<
	  ..TX2==1		;;LH 0, DO AS RH
	  TR ,..TX1>
	IFE ..TX2,<		;;IF HAVENT DONE IT YET,
	IFE <..TX1&.rhalf>,<
	  ..TX2==1		;;RH 0, DO AS LH
	  TL ,(..TX1)>>
	IFE ..TX2,<		;;IF HAVENT DONE IT YET,
	  IFE <<..TX1><-=18>-.rhalf>,< ;;IF LH ALL ONES, 
	    ..TX3 (,)>>	;;TRY Z,O,C SPECIAL CASES
	IFE ..TX2,<		;;IF STILL HAVENT DONE IT,
	  TD ,[..TX1]>	;;MUST GIVE UP AND USE LITERAL
	PURGE ..TX1,..TX2>EJMj'o&p p
IFIDN <> <> <W0.==0>	;INITIALIZE BREAK MASK
IFDIF <> <> <W0.==>
IFIDN <> <> <W1.==0>
IFDIF <> <> <W1.==>
IFIDN <> <> <W2.==0>
IFDIF <> <> <W2.==>
IFIDN <> <> <W3.==0>
IFDIF <> <> <W3.==>
Mhypp:@p8
	..STR0 (.INCR0,,<>,<>)
Wp8pAPp>
	..STR1 (..JN,<>,<>,<>,..STR3)qmp>pHHpF
	..TSAC (..ACT,<>)	;;SEE IF  IS AC
	.IF0 ..ACT,<
		<PRINTX TQ    NOT IN AC>>,<
		TX <>,>EJn:gpFpW`pUBRINI. (,,,)	;;SET UP INITIAL MASK
    IFDIF <> <> <
	FOR CHAR IN (),<UNBRK. (CHAR)> ;;DON'T BREAK ON ALLOWED CHARS
>
    IFDIF <> <> <
	FOR CHAR IN (),<BRKCH. (CHAR)>;;BREAK ON CHARACTERS NOT ALLOWED
>
	W0.
	W1.
	W2.
	W3.		;;STORE RESULTANT MASK IN MEMORY
[N^=pUpxxpu
	==		;;ASSIGN SYMBOL TO HOLD 
	IF1,<IFDEF %,<PRINTX  ALREADY DEFINED>>
	DEFINE % \ (OP,AC,Y,MSK)<
	OP (<AC>,<\Y>,MSK)>5\spuq
`q
	HRROI .AC2,[ASCIZ \\]
	MOVEI .AC3,0
	SOUTM2$HGqq0q
    ..XX==0
    IFDIF <> <> <..XX==>
    ..XX==<>*1B8+..XX
    IFDIF <> <> <..XX==CM%HPP!..XX>
    IFDIF <> <> <..XX==CM%DPP!..XX>

    IFDIF <> <> <..XX+ >
    IFIDN <> <> <..XX >
    IFDIF <> <> < >
    IFIDN <> <> <IFDIF <'> <> <0> >
    IFDIF <> <> <POINT 7,[ASCIZ \\] >
    IFIDN <> <> <IFDIF <> <> <0> >
    IFDIF <> <> <POINT 7,[ASCIZ \\] >
6:qqq@0q=1B<<>-1>-1B<>"iq=qE8qC
	 (<>,<3>,)N[7qCqK8qI
	 (<>,<>,)NY;qIqQ8qO
	 (<>,<>,);&:=qOqWqU
	==3			;;ASSUME BYTE UNLESS...
	IFE <>+1,<=0>	;;FULL WORD IF MASK IS -1
	IFE <>-.rhalf,<==1> ;;RH IF MASK IS 777777
	IFE <>-.lhalf,<==2>8hqUqk0qhW.==W.!1B<%%X>
0[qhqp8qn
	 (<>,<>,).qnqvpqt
	..JX1==		;;EVAL EXPRESSION IF ANY
IFDEF .PSECT,<
	.IFN ..JX1,ABSOLUTE,<PRINTX  NOT ABSOLUTE
		..JX1==0>
	.IF ..JX1,ABSOLUTE,<
	.IF0 <<..JX1>-1B0>,<	;;IF MASK IS JUST B0,
		JUMPGE ,>,<
	.IF0 <<..JX1>+1>,<	;;IF MASK IF FULL WORD,
	  JUMPE ,>,<	;;USE GIVEN CONDITION
		TXNN (,..JX1)
		JRST >>>
	>
IFNDEF .PSECT,<
	.IF0 <<..JX1>-1B0>,<	;;IF MASK IS JUST B0,
		JUMPGE ,>,<
	.IF0 <<..JX1>+1>,<	;;IF MASK IF FULL WORD,
	  JUMPE ,>,<	;;USE GIVEN CONDITION
		TXNN (,..JX1)
		JRST >>>
	:}i1qtr0Pr-
	==<<<-<>>&<>>&<1B<<>>>>8ir-r78r5W.==W.&-1-1B<%%X>
N[9r5r=8r;
	 (<>,<>,).r;rC	rA
	..JX1==		;;EVAL EXPRESSION
IFDEF .PSECT,<
	.IFN ..JX1,ABSOLUTE,<PRINTX  NOT ABSOLUTE
		..JX1==0>
	.IF ..JX1,ABSOLUTE,<
	.IF0 <<..JX1>-1B0>,<
		JUMPGE ,>,<
	..ONEB (..BT,)	;;TEST MASK FOR ONLY ONE BIT ON
	.IF0 ..BT,<
	  SETCM .SAC,		;;GENERAL CASE, GET COMPLEMENT OF BITS
	  JXN (.SAC,..JX1,)>,< ;;JUMP IF SOME ZEROS ORIGINALLY
	    TXNN ,..JX1	;;TEST AND JUMP
	    JRST >>>
	>
IFNDEF .PSECT,<
	.IF0 <<..JX1>-1B0>,<
		JUMPGE ,>,<
	..ONEB (..BT,)	;;TEST MASK FOR ONLY ONE BIT ON
	.IF0 ..BT,<
	  SETCM .SAC,		;;GENERAL CASE, GET COMPLEMENT OF BITS
	  JXN (.SAC,..JX1,)>,< ;;JUMP IF SOME ZEROS ORIGINALLY
	    TXNN ,..JX1	;;TEST AND JUMP
	    JRST >>>
	O\\rAs@s
	 (<>,<.SQOFS>,)Ukys
sxs
	gensym(%tg)
	..STR1 (..JNO,<%TG,<>>,<>,<>,..STR5)
%TG:I5sss
DEFSTR(PIVER,.IPKVR,3,4)        ; PACKET.INTERNET.VERSION
DEFSTR(PIDO,.IPKVR,7,4)         ; PACKET.INTERNET.DATA-OFFSET
DEFSTR(PITOS,.IPKVR,15,8)       ; PACKET.INTERNET.TYPE-OF-SERVICE
  DEFSTR(PIPRC,.IPKVR,10,3)     ; PACKET.IP.PRECEDENCE
  DEFSTR(PILDY,.IPKVR,11,1)     ; PACKET.IP.LOW-DELAY
  DEFSTR(PIHTR,.IPKVR,12,1)     ; PACKET.IP.HIGH-THROUGHPUT
  DEFSTR(PIHRL,.IPKVR,13,1)     ; PACKET.IP.HIGH-RELIABILITY
DEFSTR(PIPL,.IPKVR,31,16)       ; PACKET.INTERNET.PACKET-LENGTH
DEFSTR(PISID,.IPKSG,15,16)      ; PACKET.INTERNET.SEGMENT-ID
DEFSTR(PIFLG,.IPKSG,18,3)       ; PACKET.INTERNET.FLAGS
  DEFSTR(PIDF,.IPKSG,17,1)      ; PACKET.INTERNET.DONT-FRAGMENT
  DEFSTR(PIMF,.IPKSG,18,1)      ; PACKET.INTERNET.MULTIFRAGMENT
DEFSTR(PIFO,.IPKSG,31,13)       ; PACKET.INTERNET.FRAGMENT-OFFSET
DEFSTR(PITTL,.IPKPR,7,8)        ; PACKET.INTERNET.TIME-TO-LIVE
DEFSTR(PIPRO,.IPKPR,15,8)       ; PACKET.INTERNET.PROTOCOL
DEFSTR(PICKS,.IPKPR,31,16)      ; PACKET.INTERNET.HEADER-CHECKSUM
DEFSTR(PISH,.IPKSH,31,32)       ; PACKET.INTERNET.SOURCE-HOST
DEFSTR(PIDH,.IPKDH,31,32)       ; PACKET.INTERNET.DESTINATION-HOST
OYst@t
	 (<>,<.SQXFL>,)K%,ztt@t<<>&<>>*1B<=70-POS()>TRtt xt
	gensym(%tg)
	..STR1 (..JAN,<%TG,<>>,<>,<>,..STR5)
%TG:Sh9tt* t(
	..TRR==10		;;REMEMBER CURRENT RADIX
	RADIX 8
	..NV==1			;;INIT COUNT OF STACK WORDS
	for ..var in () <
	  .TRV2 (..VAR)>		;;PROCESS LIST
	JSP .A16,.TRSET		;;ALLOCATE STACK SPACE, SETUP .FP
	 ..NV-1,,..NV-1
	RADIX ..TRR		;;RESTORE RADIX
	M|\t(tG(tD
	TXO ,<>8tLtDtL`tI
	..TSIZ (..PST,)
	.CASE ..PST,<<
		MOVEM ,>,<
		HRRM ,>,<
		HRLM ,>,<
		DPB ,[POINTR (<>,)]>>*tRtIt\PtZ
	..STR1 (..JNA3,<>,<>,<>,..STR4)Ov>6tZtdxta
	IFNDEF ..%00,<..%00==0>
	..%00==..%00+1
	GENSY1(,\..%00)
	a4\GtatnXtk
	..PGV0==.		;;SAVE CURRECT LOCATION AND MODE
	.JBVER=:137		;;WHERE TO PUT VERSION
	LOC	.JBVER		;;PUT VERSION IN STANDARD PLACE
	BYTE	(3)(9)(6)(18)
	.ORG	..PGV0		;;RESTORE LOCATION AND MODE
.tkuhu
	..JX1==		;;EVAL EXPRESSION IF ANY
IFDEF .PSECT,<
	.IFN ..JX1,ABSOLUTE,<PRINTX  NOT ABSOLUTE
		..JX1==0>
	.IF ..JX1,ABSOLUTE,<
	.IF0 <<..JX1>-1B0>,<	;;IF MASK IS JUST B0,
		JUMPL ,>,<
	.IF0 <<..JX1>+1>,<	;;IF MASK IF FULL WORD,
	  JUMPN ,>,<	;;USE GIVEN CONDITION
		TXNE (,..JX1)
		JRST >>>
	>
IFNDEF .PSECT,<
	.IF0 <<..JX1>-1B0>,<	;;IF MASK IS JUST B0,
		JUMPL ,>,<
	.IF0 <<..JX1>+1>,<	;;IF MASK IF FULL WORD,
	  JUMPN ,>,<	;;USE GIVEN CONDITION
		TXNE (,..JX1)
		JRST >>>
	L1uu?Xu<
	    ..STR1 (..TY,C ,<>,<>,..STR3)
	"mu<uG8uD
	 (<>,<6>,).uDuM	 uJ
	..JX1==		;;EVAL EXPRESSION
IFDEF .PSECT,<
	.IFN ..JX1,ABSOLUTE,<PRINTX  NOT ABSOLUTE
		..JX1==0>
	.IF ..JX1,ABSOLUTE,<
	.IF0 <<..JX1>-1B0>,<
		JUMPL ,>,<
	..ONEB (..BT,)	;;TEST MASK FOR ONLY ONE BIT ON
	.IF0 ..BT,<
	  SETCM .SAC,		;;GENERAL CASE, GET COMPLEMENTS OF BITS
	  JXE (.SAC,..JX1,)>,< ;;JUMP IF BITS WERE ORIGINALLY ONES
	    TXNE ,..JX1	;;TEST AND JUMP
	    JRST >>>
	>
IFNDEF .PSECT,<
	.IF0 <<..JX1>-1B0>,<
		JUMPL ,>,<
	..ONEB (..BT,)	;;TEST MASK FOR ONLY ONE BIT ON
	.IF0 ..BT,<
	  SETCM .SAC,		;;GENERAL CASE, GET COMPLEMENTS OF BITS
	  JXE (.SAC,..JX1,)>,< ;;JUMP IF BITS WERE ORIGINALLY ONES
	    TXNE ,..JX1	;;TEST AND JUMP
	    JRST >>>
	"muJv8v
	 (<>,<11>,)UNezvv v

DEFJS LOGIN,1,MSEC1,,OLD
DEFJS CRJOB,2,MSEC1,,OLD
DEFJS LGOUT,3,MSEC1,,OLD
DEFJS CACCT,4,MSEC1,,OLD
DEFJS EFACT,5,MSEC1,NIM,OLD
DEFJS SMON,6,MSEC1,,OLD
DEFJS TMON,7,MSEC1,,OLD
DEFJS GETAB,10,MSEC1,,OLD
DEFJS ERSTR,11,MSEC1,,OLD
DEFJS GETER,12,MSEC1,,OLD
DEFJS GJINF,13,MSEC1,,OLD
DEFJS TIME,14,MSEC1,,OLD
DEFJS RUNTM,15,MSEC1,,OLD
DEFJS SYSGT,16,MSEC1,,OLD
DEFJS GNJFN,17,MSEC1,,OLD
DEFJS GTJFN,20,MSEC1,,OLD
DEFJS OPENF,21,MSEC1,,OLD
DEFJS CLOSF,22,MSEC1,,OLD
DEFJS RLJFN,23,MSEC1,,OLD
DEFJS GTSTS,24,MSEC1,,OLD
DEFJS STSTS,25,MSEC1,,OLD
DEFJS DELF,26,MSEC1,,OLD
DEFJS SFPTR,27,MSEC1,,OLD
DEFJS JFNS,30,MSEC1,,OLD
DEFJS FFFFP,31,MSEC1,,OLD
DEFJS RDDIR,32,MSEC1,,OLD	;OBSOLETE,,OLD
DEFJS CPRTF,33,,NIM,OLD
DEFJS CLZFF,34,MSEC1,,OLD
DEFJS RNAMF,35,MSEC1,,OLD
DEFJS SIZEF,36,MSEC1,,OLD
DEFJS GACTF,37,MSEC1,,OLD
DEFJS STDIR,40,MSEC1,,OLD	;OBSOLETE,,OLD
DEFJS DIRST,41,MSEC1,,OLD
DEFJS BKJFN,42,MSEC1,,OLD
DEFJS RFPTR,43,MSEC1,,OLD
DEFJS CNDIR,44,,NIM,OLD
DEFJS RFBSZ,45,MSEC1,,OLD
DEFJS SFBSZ,46,MSEC1,,OLD
DEFJS SWJFN,47,MSEC1,,OLD
DEFJS BIN,50,MSEC1,,OLD
DEFJS BOUT,51,MSEC1,,OLD
DEFJS SIN,52,MSEC1,,OLD
DEFJS SOUT,53,MSEC1,,OLD
DEFJS RIN,54,MSEC1,,OLD
DEFJS ROUT,55,MSEC1,,OLD
DEFJS PMAP,56,MSEC1,,OLD
DEFJS RPACS,57,MSEC1,,OLD
DEFJS SPACS,60,MSEC1,,OLD
DEFJS RMAP,61,MSEC1,,OLD
DEFJS SACTF,62,MSEC1,,OLD
DEFJS GTFDB,63,MSEC1,,OLD
DEFJS CHFDB,64,MSEC1,,OLD
DEFJS DUMPI,65,MSEC1,,OLD
DEFJS DUMPO,66,MSEC1,,OLD
DEFJS DELDF,67,MSEC1,,OLD
DEFJS ASND,70,MSEC1,,OLD
DEFJS RELD,71,MSEC1,,OLD
DEFJS CSYNO,72,,NIM,OLD
DEFJS PBIN,73,MSEC1,,OLD
DEFJS PBOUT,74,MSEC1,,OLD
DEFJS PSIN,75,,NIM,OLD
DEFJS PSOUT,76,MSEC1,,OLD
DEFJS MTOPR,77,MSEC1,,OLD
DEFJS CFIBF,100,MSEC1,,OLD
DEFJS CFOBF,101,MSEC1,,OLD
DEFJS SIBE,102,MSEC1,,OLD
DEFJS SOBE,103,MSEC1,,OLD
DEFJS DOBE,104,MSEC1,,OLD
DEFJS GTABS,105,MSEC1,,OLD	;OBSOLETE
DEFJS STABS,106,MSEC1,,OLD	;OBSOLETE
DEFJS RFMOD,107,MSEC1,,OLD
DEFJS SFMOD,110,MSEC1,,OLD
DEFJS RFPOS,111,MSEC1,,OLD
DEFJS RFCOC,112,MSEC1,,OLD
DEFJS SFCOC,113,MSEC1,,OLD
DEFJS STI,114,MSEC1,,OLD
DEFJS DTACH,115,MSEC1,,OLD
DEFJS ATACH,116,MSEC1,,OLD
DEFJS DVCHR,117,MSEC1,,OLD
DEFJS STDEV,120,MSEC1,,OLD
DEFJS DEVST,121,MSEC1,,OLD
DEFJS MOUNT,122,MSEC1,,OLD	;OBSOLETE
DEFJS DSMNT,123,,,OLD		;OBSOLETE
DEFJS INIDR,124,MSEC1,,OLD	;OBSOLETE
DEFJS SIR,125,MSEC1,,OLD
DEFJS EIR,126,MSEC1,,OLD
DEFJS SKPIR,127,MSEC1,,OLD
DEFJS DIR,130,MSEC1,,OLD
DEFJS AIC,131,MSEC1,,OLD
DEFJS IIC,132,MSEC1,,OLD
DEFJS DIC,133,MSEC1,,OLD
DEFJS RCM,134,MSEC1,,OLD
DEFJS RWM,135,MSEC1,,OLD
DEFJS DEBRK,136,MSEC1,,OLD
DEFJS ATI,137,MSEC1,,OLD
DEFJS DTI,140,MSEC1,,OLD
DEFJS CIS,141,MSEC1,,OLD
DEFJS SIRCM,142,MSEC1,,OLD
DEFJS RIRCM,143,MSEC1,,OLD
DEFJS RIR,144,MSEC1,,OLD
DEFJS GDSTS,145,MSEC1,,OLD
DEFJS SDSTS,146,MSEC1,,OLD
DEFJS RESET,147,MSEC1,,OLD
DEFJS RPCAP,150,MSEC1,,OLD
DEFJS EPCAP,151,MSEC1,,OLD
DEFJS CFORK,152,MSEC1,,OLD
DEFJS KFORK,153,MSEC1,,OLD
DEFJS FFORK,154,MSEC1,,OLD
DEFJS RFORK,155,MSEC1,,OLD
DEFJS RFSTS,156,MSEC1,,OLD
DEFJS SFORK,157,MSEC1,,OLD
DEFJS SFACS,160,MSEC1,,OLD
DEFJS RFACS,161,MSEC1,,OLD
DEFJS HFORK,162,MSEC1,,OLD
DEFJS WFORK,163,MSEC1,,OLD
DEFJS GFRKH,164,MSEC1,,OLD
DEFJS RFRKH,165,MSEC1,,OLD
DEFJS GFRKS,166,MSEC1,,OLD
DEFJS DISMS,167,MSEC1,,OLD
DEFJS HALTF,170,MSEC1,,OLD
DEFJS GTRPW,171,MSEC1,,OLD
DEFJS GTRPI,172,MSEC1,,OLD
DEFJS RTIW,173,MSEC1,,OLD
DEFJS STIW,174,MSEC1,,OLD
DEFJS SOBF,175,MSEC1,,OLD
DEFJS RWSET,176,MSEC1,,OLD
DEFJS GETNM,177,MSEC1,,OLD
DEFJS GET,200,MSEC1,,OLD
DEFJS SFRKV,201,MSEC1,,OLD
DEFJS SAVE,202,MSEC1,,OLD
DEFJS SSAVE,203,MSEC1,,OLD
DEFJS SEVEC,204,MSEC1,,OLD
DEFJS GEVEC,205,MSEC1,,OLD
DEFJS GPJFN,206,MSEC1,,OLD
DEFJS SPJFN,207,MSEC1,,OLD
DEFJS SETNM,210,MSEC1,,OLD
DEFJS FFUFP,211,MSEC1,,OLD
DEFJS DIBE,212,MSEC1,,OLD
DEFJS FDFRE,213,,NIM,OLD
DEFJS GDSKC,214,MSEC1,,OLD
DEFJS LITES,215,MSEC1,,OLD	;OBSOLETE
DEFJS TLINK,216,MSEC1,,OLD
DEFJS STPAR,217,MSEC1,,OLD
DEFJS ODTIM,220,MSEC1,,OLD
DEFJS IDTIM,221,MSEC1,,OLD
DEFJS ODCNV,222,MSEC1,,OLD
DEFJS IDCNV,223,MSEC1,,OLD
DEFJS NOUT,224,MSEC1,,OLD
DEFJS NIN,225,MSEC1,,OLD
DEFJS STAD,226,MSEC1,,OLD
DEFJS GTAD,227,MSEC1,,OLD
DEFJS ODTNC,230,MSEC1,,OLD
DEFJS IDTNC,231,MSEC1,,OLD
DEFJS FLIN,232,MSEC1,,OLD
DEFJS FLOUT,233,MSEC1,,OLD
DEFJS DFIN,234,MSEC1,,OLD
DEFJS DFOUT,235,MSEC1,,OLD

DEFJS CRDIR,240,MSEC1,,OLD
DEFJS GTDIR,241,MSEC1,,OLD
DEFJS DSKOP,242,MSEC1,,OLD
DEFJS SPRIW,243,MSEC1,,OLD
DEFJS DSKAS,244,MSEC1,,OLD
DEFJS SJPRI,245,MSEC1,,OLD
DEFJS STO,246,MSEC1,,OLD
DEFJS ARCF,247,MSEC1,,OLD	;ARCHIVE SYSTEM JSYS
DEFJS ASNDP,260,,NIM,OLD
DEFJS RELDP,261,,NIM,OLD
DEFJS ASNDC,262,,NIM,OLD
DEFJS RELDC,263,,NIM,OLD
DEFJS STRDP,264,,NIM,OLD
DEFJS STPDP,265,,NIM,OLD
DEFJS STSDP,266,,NIM,OLD
DEFJS RDSDP,267,,NIM,OLD
DEFJS WATDP,270,,NIM,OLD

DEFJS GTNCP,272,,NIM,OLD	;TOPS20AN, Obsolete
DEFJS GTHST,273,MSEC1,,OLD	;TOPS20AN
DEFJS ATNVT,274,MSEC1,,OLD	;TOPS20AN
IFE STANSW,<
DEFJS CVSKT,275,,NIM,OLD	;TOPS20AN, Obsolete
>;IFE STANSW
IFN STANSW&PUPSW,<
DEFJS CVSKT,275,MSEC1,,OLD	;STILL USED BY PUP: DEVICE
>;IFN STANSW&PUPSW
DEFJS CVHST,276,MSEC1,,OLD	;TOPS20AN
DEFJS FLHST,277,,NIM,OLD	;TOPS20AN, Obsolete

DEFJS GCVEC,300,MSEC1,,OLD
DEFJS SCVEC,301,MSEC1,,OLD
DEFJS STTYP,302,MSEC1,,OLD
DEFJS GTTYP,303,MSEC1,,OLD
DEFJS BPT,304,MSEC1,,OLD	;OBSOLETE
DEFJS GTDAL,305,MSEC1,,OLD
DEFJS WAIT,306,MSEC1,,OLD
DEFJS HSYS,307,MSEC1,,OLD
DEFJS USRIO,310,MSEC1,,OLD
DEFJS PEEK,311,MSEC1,,OLD
DEFJS MSFRK,312,MSEC1,,OLD
DEFJS ESOUT,313,MSEC1,,OLD
DEFJS SPLFK,314,MSEC1,,OLD
DEFJS ADVIS,315,,NIM,OLD
DEFJS JOBTM,316,,NIM,OLD
DEFJS DELNF,317,MSEC1,,OLD
DEFJS SWTCH,320,MSEC1,,OLD	;OBSOLETE
DEFJS TFORK,321,MSEC1,,OLD
DEFJS RTFRK,322,MSEC1,,OLD
DEFJS UTFRK,323,MSEC1,,OLD
DEFJS SCTTY,324,MSEC1,,OLD

DEFJS OPRFN,326,,NIM,OLD	;TOPS20AN, Obsolete

DEFJS SETER,336,MSEC1,,OLD

IFN STANSW&PUPSW,<
DEFJS PUPI,441,MSEC1,,OLD	;RAW PUP INPUT
DEFJS PUPO,442,MSEC1,,OLD	;RAW PUP OUTPUT
DEFJS PUPNM,443,MSEC1,,OLD	;PUP NAME-ADDRESS CONVERSION
>;IFN STANSW&PUPSW
;NEW (NOT IN BBN TENEX) JSYS'S ADDED STARTING AT 500

DEFJS RSCAN,500,MSEC1,,OLD
DEFJS HPTIM,501,MSEC1,,OLD
DEFJS CRLNM,502,MSEC1,,OLD
DEFJS INLNM,503,MSEC1,,OLD
DEFJS LNMST,504,MSEC1,,OLD
DEFJS RDTXT,505,MSEC1,,OLD	;OBSOLETED BY RDTTY AND TEXTI
DEFJS SETSN,506,MSEC1,,OLD
DEFJS GETJI,507,MSEC1,,OLD
DEFJS MSEND,510,MSEC1,,OLD
DEFJS MRECV,511,MSEC1,,OLD
DEFJS MUTIL,512,MSEC1,,OLD
DEFJS ENQ,513,MSEC1,,OLD
DEFJS DEQ,514,MSEC1,,OLD
DEFJS ENQC,515,MSEC1,,OLD
DEFJS SNOOP,516,MSEC1,,OLD
DEFJS SPOOL,517,MSEC1,,OLD
DEFJS ALLOC,520,MSEC1,,OLD
DEFJS CHKAC,521,MSEC1,,OLD
DEFJS TIMER,522,MSEC1,,OLD
DEFJS RDTTY,523,MSEC1,,OLD
DEFJS TEXTI,524,MSEC1,,OLD
DEFJS UFPGS,525,MSEC1,,OLD
DEFJS SFPOS,526,MSEC1,,OLD
DEFJS SYERR,527,MSEC1,,OLD
DEFJS DIAG,530,MSEC1,,OLD
DEFJS SINR,531,MSEC1,,OLD
DEFJS SOUTR,532,MSEC1,,OLD
DEFJS RFTAD,533,MSEC1,,OLD
DEFJS SFTAD,534,MSEC1,,OLD
DEFJS TBDEL,535,MSEC1,,OLD
DEFJS TBADD,536,MSEC1,,OLD
DEFJS TBLUK,537,MSEC1,,OLD
DEFJS STCMP,540,MSEC1,,OLD
DEFJS SETJB,541,MSEC1,,OLD
DEFJS GDVEC,542,MSEC1,,OLD
DEFJS SDVEC,543,MSEC1,,OLD
DEFJS COMND,544,MSEC1,,OLD
DEFJS PRARG,545,MSEC1,,OLD
DEFJS GACCT,546,MSEC1,,OLD
DEFJS LPINI,547,MSEC1,,OLD
DEFJS GFUST,550,MSEC1,,OLD
DEFJS SFUST,551,MSEC1,,OLD
DEFJS ACCES,552,MSEC1,,OLD
DEFJS RCDIR,553,MSEC1,,OLD
DEFJS RCUSR,554,MSEC1,,OLD
DEFJS MSTR,555,MSEC1,,OLD
DEFJS STPPN,556,MSEC1,,OLD
DEFJS PPNST,557,MSEC1,,OLD
DEFJS PMCTL,560,MSEC1,,OLD
DEFJS PLOCK,561,MSEC1,,OLD
DEFJS BOOT,562,MSEC1,,OLD
DEFJS UTEST,563,MSEC1,,OLD
DEFJS USAGE,564,MSEC1,,OLD
DEFJS WILD,565,MSEC1
DEFJS VACCT,566,MSEC1,,OLD
DEFJS NODE,567,MSEC1,,OLD
DEFJS ADBRK,570,MSEC1,,OLD
DEFJS SINM,571,MSEC1
DEFJS SOUTM,572,MSEC1
DEFJS SWTRP,573,MSEC1
DEFJS GETOK,574,MSEC1
DEFJS RCVOK,575,MSEC1
DEFJS GIVOK,576,MSEC1
DEFJS SKED,577,MSEC1		;SCHEDULER CONTROL JSYS
DEFJS MTU,600,MSEC1		;MTU JSYS
DEFJS XRIR,601,MSEC1		;EXTENDED RIR
DEFJS XSIR,602,MSEC1		;EXTENDED SIR
DEFJS PDVOP,603,MSEC1		;MANIPULATE PROGRAM DATA VECTORS
DEFJS NTMAN,604,MSEC1		;DECNET NETWORK MANAGEMENT INTERFACE
DEFJS XSFRK,605,MSEC1		;START FORK AT GLOBAL PC
DEFJS XGVEC,606,MSEC1		;GET FULL ENTRY VECTOR
DEFJS XSVEC,607,MSEC1		;SET FULL ENTRY VECTOR
DEFJS RSMAP,610,MSEC1		;READ SECTION MAP
DEFJS XRMAP,611,MSEC1		;EXTENDED RMAP
DEFJS XGTPW,612,MSEC1		;EXTENDED GET TRAP WORD
DEFJS XSSEV,613,MSEC1		;EXTENDED SET SPECIAL ENTRY VECTOR
DEFJS XGSEV,614,MSEC1		;EXTENDED GET SPECIAL ENTRY VECTOR
DEFJS QUEUE,615,MSEC1		;QUEUE REQUEST TO COMPONENT
DEFJS DYNLB,616,MSEC1		;DYNamic LiBrary
DEFJS CTSOP,617,MSEC1		;Canonical Terminal Support OPeration
DEFJS DAP,620,MSEC1		;6.0 Data Access Protocol
DEFJS SCS,622,MSEC1		;SCA user interface JSYS
DEFJS WSMGR,623,MSEC1		;Working-set manager JSYS
DEFJS LLMOP,624,MSEC1		;6.0 Low Level MOP for Ethernet DLL
DEFJS APCON,625,,NIM		;Reserved for FPS array processor support
DEFJS XPEEK,626,MSEC1		;EXTENDED PEEK
DEFJS CNFIG,627,MSEC1		;CONFIGURATION INFORMATION
DEFJS NI,630,MSEC1		;Direct Ethernet Interface
DEFJS LATOP,631,MSEC1		;6.0 LAT Operation Display and Control
DEFJS NTINF,632,MSEC1		;NETWORK INFORMATION JSYS
IFN STANSW,<
;STANFORD LOCAL JSYS DEFINITIONS
;;DEFJS GTBLT,634,MSEC1,,NIM	;MIT'S MULTIPLE GETAB (HERE FOR REFERENCE)
DEFJS HANDS,700,MSEC1,,OLD	;STANFORD'S MULTIPLE GETAB
DEFJS IDLE,701,MSEC1,,OLD	;RETURN IDLE TIME
DEFJS GTWAA,702,MSEC1,,OLD	;WEEKLY ALLOCATION (LOTS)
DEFJS PKOPR,703,MSEC1		;NETWORK DEPENDENT PACKET OPERATIONS
>;IFN STANSW
DEFJS MONRD,717,,NIM		;Reserved for MONRD
DEFJS DBGRD,720,,NIM		;Reserved for MONRD debuging

;TOPS20AN JSYS DEFINITIONS

DEFJS SEND,740,MSEC1      	;TOPS20AN, BBN TCP JSYS Interface
DEFJS RECV,741,MSEC1      	;TOPS20AN, BBN TCP JSYS Interface
DEFJS OPEN,742,MSEC1      	;TOPS20AN, BBN TCP JSYS Interface
DEFJS CLOSE,743,MSEC1     	;TOPS20AN, BBN TCP JSYS Interface
DEFJS SCSLV,744,MSEC1     	;TOPS20AN, BBN TCP JSYS Interface
DEFJS STAT,745,MSEC1      	;TOPS20AN, BBN TCP JSYS Interface
DEFJS CHANL,746,MSEC1     	;TOPS20AN, BBN TCP JSYS Interface
DEFJS ABORT,747,MSEC1     	;TOPS20AN, BBN TCP JSYS Interface
DEFJS SNDIM,750,MSEC1,,OLD 	;TOPS20AN, Send IMP Special Queue Message
DEFJS RCVIM,751,MSEC1,,OLD 	;TOPS20AN, Receive IMP Special Queue Message
DEFJS ASNSQ,752,MSEC1,,OLD 	;TOPS20AN, Assign IMP Special Queue
DEFJS RELSQ,753,MSEC1,,OLD 	;TOPS20AN, Release IMP Special Queue
DEFJS SNDIN,754,MSEC1     	;TOPS20AN, Send Internet Message
DEFJS RCVIN,755,MSEC1     	;TOPS20AN, Receive Internet Message
DEFJS ASNIQ,756,MSEC1     	;TOPS20AN, Assign Internet Queue
DEFJS RELIQ,757,MSEC1     	;TOPS20AN, Release Internet Queue
DEFJS IPOPR,760,MSEC1		;TOPS20AN, IP Functions JSYS
DEFJS TCOPR,761,MSEC1		;TOPS20AN, TCP Functions JSYS

;TEMPORARY JSYS DEFINITIONS

DEFJS METER,766,MSEC1		;METER JSYS. FOR KL ONLY
DEFJS SMAP,767,MSEC1		;CREATE AND MAP SECTIONS
DEFJS THIBR,770,MSEC1,,OLD
DEFJS TWAKE,771,MSEC1,,OLD
DEFJS MRPAC,772,MSEC1,,OLD
DEFJS SETPV,773,,NIM,OLD
DEFJS MTALN,774,MSEC1,,OLD
DEFJS TTMSG,775,MSEC1,,OLD
DEFJS MDDT,777,MSEC1

"iv~|8~y
	 (<>,<0>,)"m~y8~
	 (<>,<12>,)NY~8
	 (<>,<>,)e&:x 
	JRST RSKP"m8
	 (<>,<7>,)k8<<>*1B<POS()>>&<>NY8
	 (<>,<>,)N]r$8"
	 (<>,<>,),<H"*x(
	..PST==&<->
	.IF0 ..PST-1,<
		SOS >,<	;;BIT 35, CAN USE SOS
		MOVX .SAC,-..PST ;;LOAD -1 IN APPROPRIATE POSITION
		ADDM .SAC,>?=(<H:
	..STR0 (.OPST1,<>,<>,<>)L7:CXA
	    ..STR1 (..TY,N ,<>,<>,..STR3)
	O%=HAKXI;### not used in Fail version
	.STKV2 ()L7ISXQ
	    ..STR1 (..TY,O ,<>,<>,..STR3)
	O%=IQ[8Y
	IFB <>,<..STKN==..STKN+1>
	IFNB <>,<..STKN==..STKN+>
	..STKQ==..STKN+1
	.STKV3 (,\..STKQ)"mYi8g
	 (<>,<5>,)'Pgo0m
		..TX(ZA,,<>) O%=Imur
   IFDEF ,<PRINTX STKVAR  ALREADY DEFINED>
	DEFINE <<->(P)>
	$==<>?=r~
	..TSIZ (..PST,)
	.IF0 ..PST,<
		 <>>,<	;;FULL WORD, USE GIVEN  DIRECTLY
		..LDB .SAC,<>, ;;OTHERWISE, GET SPECIFIED BYTE
		 .SAC>0Xt~9
	 (<>,<>,)?=	q
	..TSIZ (..PST,)
	.IF0 ..PST,<
		 <>>,<	;;FULL WORD, USE  DIRECTLY
		..LDB .SAC,<>,
		 .SAC
		..DPB .SAC,<>,>N[x+9)
	 (<>,<>,)'p)11/
		..TX(OA,,<>) 0[W/794
	 (<>,<>,)'R4=1:
		..TX(ZE,,<>) +:B)@
	CALL JSHLT0"m@G9E
	 (<>,<10>,)gR^h9EMK
	..STKR==10		;;REMEMBER RADIX
	RADIX 8
	..STKN==0
	for ..arg in () <
	  .STKV2 (..ARG)>
	JSP .A16,.STKST
	 ..STKN,,..STKN
	RADIX ..STKR
   D+K`9]
	EXTEND ,[020000,,0]O]]fAc
	 (<>,<.SQOFS>,)'rcl1j
		..TX(OE,,<>) NYjr9o
	 (<>,<>,)L=oxYu
	    ..STR1 (..TY,Z ,<>,<>,..STR3)
	E|\u)}
	TXC ,<>;LH}
	IFNDEF ,<PRINTX  IS NOT DEFINED
	   (<>,<>,.FWORD)>	;;RESERVE A WORD, ASSUME WORD MASK
	IFDEF ,<
	IFNDEF %,<
	   (<>,<>,)>	;;ASSUME NO OTHER LOCN
	IFDEF %,<
	  % (,<>,<>,)>>N[9
	 (<>,<>,);LH%
	#
	..NS==0			;;INIT COUNT OF S
	for ..str in () <..NS=..NS+1>	;;COUNT S
	IFE ..NS,<PRINTX EMPTY STRUCTURE LIST, >
	IFE ..NS-1,<		;;THE ONE CASE, CAN DO FAST
	  ..STR0 (,<>,<>,<>)>
	IFG ..NS-1,<		;;MORE THAN ONE, DO GENERAL CASE
	..ICNS			;;INIT REMOTE MACRO
	..CNS (< (,<>,,>) ;;CONS ON CALL AND FIRST ARGS
	for ..str in () <		;;DO ALL NAMES IN LIST
	  IFNDEF ..str,<PRINTX  NOT DEFINED>
	  IFDEF ..str,<
	  IFNDEF %..str,<
	  ..CNS (<,..str,>)>	;;ASSUME NO OTHER LOCN
	  IFDEF %..str,<
	  %..str (..STR2,,<>,..str)> ;; MACRO WILL GIVE LOCN TO ..STR2
	  ..CNS (<)>)		;;CLOSE ARG LIST
	  ..GCNS		;;DO THIS AND PREVIOUS NAME
	  ..ICNS		;;REINIT CONS
	  ..CNS (< (,<>>) ;;PUT ON FIRST ARGS
	  IFNDEF %..str,<
	  ..CNS (<,..str,>)>	;;ASSUME NO OTHER LOCN
	  IFDEF %..str,<
	  %..str (..STR2,,<>,..str)>>> ;;PUT ON THIS ARG, END IRP
	..CNS (<,,)>)		;;CLOSE ARG LIST
	..GCNS>&P#Y
	    ..STR1 (..TY,ZA,<>,<>,..STR3)
	'W1
		..TX(ZN,,<>) ;LI1
	..CNS (<,,>)Ov>(9
	DEFINE  ' <..%'>
	;LI!i
	IFDIF <><>,<
	  IFNB <>,<
	     (<>,,..MSK)	;;DO ACCUMULATED STUFF
	    IFNB <>,<PRINTX  AND  ARE IN DIFFERENT WORDS>>
	  ..MSK==0>		;;INIT MASK
	IFNB <>,<
	  ..MSK=..MSK!<>>M2$*g:a8
    ..XX==0
    IFDIF <> <> <..XX==>
    ..XX==<>*1B8+..XX
    IFDIF <> <> <..XX==CM%HPP!..XX>
    IFDIF <> <> <..XX==CM%DPP!..XX>
    IFDIF <> <> <..XX==CM%BRK!..XX>
    IFDIF <> <> <..XX+ >
    IFIDN <> <> <..XX >
    IFDIF <> <> <>
    IFIDN <> <> <IFDIF <> <> <0> >
    IFDIF <> <> <POINT 7,[ASCIZ \\] >
    IFIDN <> <> <IFDIF <> <> <0> >
    IFDIF <> <> <POINT 7,[ASCIZ \\] >
    IFIDN <> <> <IFDIF <> <> <0> >
    IFDIF <> <> <>
:
=H8sQp;### not used in Fail version
	.ACV2 ();LJpz1x
	IFDIF <><>,<	;;IF THIS DIFFERENT FROM PREVIOUS
	  IFNB <>,<
	     (<>,,..MSK)>	;;DO PREVIOUS
	  ..MSK==0>		;;REINIT MASK
	IFNB <>,<
	  ..MSK=..MSK!<>>&pxY
	    ..STR1 (..TY,OA,<>,<>,..STR3)
	:
=I)
	=.FPAC+..NAC		;;DEFINE VARIABLE
	IFB <>,<..NAC=..NAC+1>
	IFNB <>,<..NAC=..NAC+>'w%1"
		..TX(ON,,<>) ;LJ"*i(
	IFDIF <><>,<	;;IF THIS DIFFERENT FROM PREVIOUS,
	  IFNB <>,<
	    IFNB <>,<		;;IF MORE TO COME,
		'1 (,,..MSK)> ;;DO VERSION 1
	    IFB <>,<		;;IF NO MORE,
		'2 (,,..MSK)>> ;;DO VERSION 2
	  ..MSK==0>		;;REINIT MASK
	IFNB <>,<
	  ..MSK=..MSK!<>>&R(KYI
	    ..STR1 (..TY,ZE,<>,<>,..STR3)
	+\YIS)Q
	CALL JSERR0^QXV
    FOR ..SYM IN () <
	IFNDEF ..SYM,<EXTERN ..SYM
	    SUPPRE ..SYM >
    >
:
=IVdqb
	IFG -.NPAC,<PRINTX TOO MANY ACS USED>
	IFLE -4,<
	  JSP .A16,.SAV>	;;SAVE ACTUAL NUMBER USED
	IFG -4,<
	  JSP .A16,.SAV8>a>MmbvAs<POINT WID(),,POS()>qjRs|az
	..TSAC (..ACT,<>)	;;SEE IF AC
	.IF0 ..ACT,<
	  ..TSIZ (..PST,)	;;SEE WHICH CASE
	  .CASE ..PST,<<
		SKIPN 	;;FULL WORD, TEST IN MEMORY
		JRST >,<
		HRRZ .SAC,	;;RIGHT HALF, GET IT
		JUMPE .SAC,>,<
		HLRZ .SAC,	;;LEFT HALF, GET IT
		JUMPE .SAC,>,<
		MOVE .SAC,	;;NOTA, GET WORD
		JXE (.SAC,,<>)>>>,<
	  JXE (<>,,<>)>&rz%Y"
	    ..STR1 (..TY,OE,<>,<>,..STR3)
	g%{R"-I*
	..STR1 (..TQO,,<>,<>,..STR4)+y*4Q1
	..STR1 (..JN,<>,<>,<>,..STR4)g4X11;9
	.NAC==0
	for ..acs in () <
	  PUSH P,..ACS		;;SAVE AN AC
	  .NAC=.NAC+1>		;;COUNT THEM
	.N1==.NAC
	SETMI .A16,[CAIA	;;STACK DUMMY RETURN
		AOS -.N1(P)	;;HANDLE SKIP RETURN
		FOR ..ACS IN () <
		    .N1=.N1-1
		    MOVE ..ACS,-.N1(P)>  ;;RESTORE AN AC
		ADJSP P,-.NAC
		POPJ P,]	;;FINAL RETURN
	PUSH P,.A16&W9_Y]
	    ..STR1 (..TY,ZN,<>,<>,..STR3)
	O,]gAe
	 (<>,<.SQRPS>,)O,enAk
	 (<>,<.SQRPS>,)qjWktIr
	..TSAC (..ACT,<>)	;;SEE IF AC
	.IF0 ..ACT,<
	  ..TSIZ (..PST,)
	  .CASE ..PST,<<
		SKIPE 	;;FULL WORD, TEST IN MEMORY
		JRST >,<
		HRRZ .SAC,	;;RIGHT HALF, GET IT
		JUMPN .SAC,>,<
		HLRZ .SAC,	;;LEFT HALF, GET IT
		JUMPN .SAC,>,<
		MOVE .SAC,	;;NOTA, GET WORD
		JXN (.SAC,,<>)>>>,<
	  JXN (<>,,<>)>&wrY
	    ..STR1 (..TY,ON,<>,<>,..STR3)
	*h#Q!
	HIGH==
	CHR==
	IFDIF <> <> <HIGH==>
    REPEAT HIGH-<>+1,<
	%%W==CHR/=32	;;DECIDE WHICH WORD CHARACTER GOES IN
	%%X==CHR-%%W*=32	;;CALCULATE BIT POSITION WITHIN WORD
	IFE ,<BRKC1 (\%%W)> ;;MODIFY CORRECT MASK WORD
	IFN ,<BRKC2 (\%%W)>
	CHR==CHR+1
>"j!C9@
	 (<>,<2>,)0Z@I9F
	 (<>,<>,)NYVFO9L
	 (<>,<>,):rLU)R
	ifdef ..csn,<printx NESTED CASE STATEMENT -- INVALID >
	..csn==
	for ..csv in () <
	    ife <..csn>,<
		..csv >
	    ..csn==..csn-1 >
	purge ..csn		;clean up
$XyRjAg
	..STR0 (.DECR0,,<>,<>)"jgp9n
	 (<>,<2>,)m}\nvAt
   ..MX1==			;;EVAL EXPRESSION IF ANY
IFDEF .PSECT,<
   .IFN ..MX1,ABSOLUTE,<
	MOVE ,[]>
   .IF ..MX1,ABSOLUTE,<
	..MX2==0		;;FLAG SAYS HAVEN'T DONE IT YET
	IFE <..MX1><-=18>,<
	  ..MX2==1
	  MOVEI ,..MX1>	;;LH 0, DO AS RH
	IFE ..MX2,<		;;IF HAVEN'T DONE IT YET,
	IFE <..MX1><=18>,<
	  ..MX2==1
	  MOVSI ,(..MX1)>>	;;RH 0, DO AS LH
	IFE ..MX2,<		;;IF HAVEN'T DONE IT YET,
	IFE <<..MX1><-=18>-.lhalf>,<
	  ..MX2==1
	  HRROI ,<..MX1>>>	;;LH -1
	IFE ..MX2,<		;;IF HAVEN'T DONE IT YET,
	IFE <<..MX1><=18>-.lhalf>,<
	  ..MX2==1
	  HRLOI ,(..MX1-.rhalf)>> ;;RH -1
	IFE ..MX2,<		;;IF STILL HAVEN'T DONE IT,
	  MOVE ,[..MX1]>	;;GIVE UP AND USE LITERAL
	>>

IFNDEF .PSECT,<
	..MX2==0		;;FLAG SAYS HAVEN'T DONE IT YET
	IFE <..MX1><-=18>,<
	  ..MX2==1
	  MOVEI ,..MX1>	;;LH 0, DO AS RH
	IFE ..MX2,<		;;IF HAVEN'T DONE IT YET,
	IFE <..MX1><=18>,<
	  ..MX2==1
	  MOVSI ,(..MX1)>>	;;RH 0, DO AS LH
	IFE ..MX2,<		;;IF HAVEN'T DONE IT YET,
	IFE <<..MX1><-=18>-.rhalf>,<
	  ..MX2==1
	  HRROI ,<..MX1>>>	;;LH -1
	IFE ..MX2,<		;;IF HAVEN'T DONE IT YET,
	IFE <<..MX1><=18>-.lhalf>,<
	  ..MX2==1
	  HRLOI ,(..MX1-.rhalf)>> ;;RH -1
	IFE ..MX2,<		;;IF STILL HAVEN'T DONE IT,
	  MOVE ,[..MX1]>	;;GIVE UP AND USE LITERAL
>
	PURGE ..MX1,..MX2Nt}1z
		..TX(C ,,<>) ex2zA
	..STR0 (..LDB,,,<>)N]Q	9
	 (<>,<>,)NYYA
	 (<>,<.SQDFL>,)NXt
9
	 (<>,<>,)NYY9
	 (<>,<>,)8vL1!i
	..TSIZ (..PST,)
	.IF0 ..PST,<		;;IF FULL WORD,
		SETCMM >,<	;;CAN USE SETCMM
	  ..TSAC (..ACT,<>)	;;OTHERWISE, CHECK FOR 
	  .IF0 ..ACT,<
		MOVX .SAC,
		XORM .SAC,<>>,<
		..TX(C,<>,)>>:|I:8;I6=8>;
	==<-1B<>+1B<->> ;;ASSIGN SYMBOL TO HOLD MASK
	IF1,<IFDEF %,<PRINTX  ALREADY DEFINED>>
	DEFINE % \ (OP,AC,Y,MSK)<
	OP (<AC>,<\Y>,MSK)>g$;8;QIO
	..STR1 (..TQC,,<>,<>,..STR4)O,OXAV
	 (<>,<.SQRPN>,)\sV_I\
	ERJMP	[TMSG <? >
		 JSHLT]
'P\f1c
		..TX(NA,,<>) uHckqi
	..IFT==		;;GET LOCAL VALUE FOR CONDITION
	IFE ..IFT,<
	
	..IFT==0>		;;RESTORE IN CASE CHANGED BY NESTED .IF0
	IFN ..IFT,<
	>N[Yi}Az
	 (<>,<.SQDFL>,)Nz1
		..TX(N ,,<>) N\q	9
	 (<>,<>,)N[YA
	 (<>,<.SQBSR>,)N
1
		..TX(O ,,<>) 'p1
		..TX(CA,,<>) _CLV I
	..STR0 (.OPST2,<>,<>,<>)'R'1%
		..TX(NE,,<>) N\r%-9*
	 (<>,<>,)XY*30
	..TRR==10		;;SAVE RADIX
	RADIX 8
	..NV==1			;;INIT ARG COUNT
	for ..arg in () <
	  .TRV1 (..ARG)>	;;DEFINE ARG SYMBOL
	IFG <..NV-5>,<PRINTX TOO MANY ARGUMENTS: 
		>
	JSP .A16,.ASSET		;;SETUP STACK
	RADIX ..TRR		;;RESTORE RADIX
	;&810O9L
	IFNDEF .PSECT,<
	==0			;;ASSUME NOT AC UNLESS...
	..TSA1==< >		;;LOOK AT 
	  IFE ..TSA1&=15,<==1> ;;AC IF VALUE IS 0-17
	>
	IFDEF .PSECT,<
	==0			;;ASSUME NOT AC UNLESS...
	..TSA1==< >		;;LOOK AT 
	.IF ..TSA1,ABSOLUTE,<	;;SEE IF WE CAN TEST VALUE
	  IFE ..TSA1&=15,<==1>> ;;AC IF VALUE IS 0-17
	PURGE ..TSA1>O?I3Lur
	OPDEF  []
   IFNDEF FOR,<
   IFDEF .PSECT,<
	INTERN >>'rr1}
		..TX(CE,,<>) g',W}	I	
	..STR1 (..TQZ,,<>,<>,..STR4)EJ\:		
)		BRK1 (,,0)
z2			9	<<-<<><<>>>-1>>8vL7		A	
	..TSIZ (..PST,)
	.CASE ..PST,<<
		SETOM >,<
		HLLOS >,<
		HRROS >,<
	  ..TSAC (..ACT,<>)
	  .IF0 ..ACT,<
		MOVX .SAC,
		IORM .SAC,<>>,<
		..TX (O,<>,)>>>I5		-Q	+
==
IFG <-IPOPRM>,<IPOPRM==>my	+	59	2<<>-<<>/<>>*<>>Ky	2	;A	8
	..STR0 (..DPB,,,<>)&P	8	AY	?
	    ..STR1 (..TY,NA,<>,<>,..STR3)
		I1	G
	TXZ ,<<>>'W	G	O1	L
		..TX(NN,,<>) :Ukh	L	T1	R
	..JN (,<>,)%\s	R	ZI	W
	HRROI .AC1,[ASCIZ \\]
	PSOUTa=	W	aY	^
   IFNB <>,<
	TMSG <>>
	CALL JSMSG0"l	^	i9	f
	 (<>,<4>,)N	f	o1	l
		..TX(Z ,,<>) :Uki	l	t9	r
	..JE (<>,<>,)"i9	r	z9	x
	 (<>,<1>,)y	x
1	~<<<>&<-<>>>>&p	~
Y

	    ..STR1 (..TY,CA,<>,<>,..STR3)
	'w

1

		..TX(CN,,<>) &R

Y

	    ..STR1 (..TY,NE,<>,<>,..STR3)
	,jY

a

	OPDEF % [104B8+]
	IFDEF .PSECT,<
	INTERN %>
	IFDIF <>,<>,<
	OPDEF  [104B8+]
	IFDEF .PSECT,<
	INTERN >>8vL=

,A
)
	..TSIZ (..PST,)	;;SET ..PST TO CASE NUMBER
	.CASE ..PST,<<
		SETZM >,<	;;FULL WORD
		HLLZS >,<	;;RH
		HRRZS >,<	;;LH
	  ..TSAC (..ACT,<>)	;;SEE IF  IS 
	  .IF0 ..ACT,<
		MOVX .SAC,	;;NOT 
		ANDCAM .SAC,>,<
		..TX (Z,<>,)>>>&r
)
JY
H
	    ..STR1 (..TY,CE,<>,<>,..STR3)
	&t<H
H
R
P
	..PST==&<->	;;GET LOWEST BIT
	.IF0 ..PST-1,<
		AOS >,<	;;BIT 35, CAN USE AOS
		MOVX .SAC,..PST	;;LOAD A ONE IN THE APPROPRIATE POSITION
		ADDM .SAC,>N\z
P
f9
d
	 (<>,<>,)h9
d
lA
j
	..NAC==0		;;INIT NUMBER OF ACS USED
	for ..lis in () <
	  .ACV2 (..LIS)>	;;PROCESS ITEMS
	.ACV3 (\..NAC)k:*g
j
{)
xBRK1 (,,1)
I6Hw
x1
}
==
IFB <>,<IFG <-TCOPRM>,<TCOPRM==>>
IFNB <>,<IFG <-TCOPSM>,<TCOPSM==>>H
}
RQ
	..STR1 (..JE,<>,<>,<>,..STR3)IQPRINTX WARNING:  IF2 ENCOUNTERED.  IGNORED.8vN	 I
	IFIDN <><Z>,<		;;IF ZEROING WANTED
	  ..TX2==1
	  ANDI ,..TX1>	;;CAN DO IT WITH ANDI
	IFIDN <><O>,<		;;IF SET TO ONES WANTED
	  ..TX2==1
	  ORCMI ,..TX1>	;;CAN DO IT WITH IORCM
	IFIDN <><C>,<		;;IF COMPLEMENT WANTED
	  ..TX2==1
	  EQVI ,..TX1>0]r?9<
	 (<>,<>,);r<Ea)B

.ERR (10,LGINX1,<Invalid account identifier>)
.ERR (11,LGINX2,<Directory is "files-only" and cannot be logged in to>)
.ERR (12,LGINX3,<Internal format of directory is incorrect>)
.ERR (13,LGINX4,<Invalid password>)
.ERR (14,LGINX5,<Job is already logged in>)
.ERR (20,CRJBX1,<Invalid parameter or function bit combination>)
.ERR (21,CRJBX2,<Illegal for created job to enter MINI-EXEC>)
.ERR (22,CRJBX3,<Reserved>)
.ERR (23,CRJBX4,<Terminal is not available>)
.ERR (24,CRJBX5,<Unknown name for LOGIN>)
.ERR (25,CRJBX6,<Insufficient system resources>)
.ERR (26,CRJBX7,<Reserved>)
.ERR (35,LOUTX1,<Illegal to specify job number when logging out own job>)
.ERR (36,LOUTX2,<Invalid job number>)
.ERR (45,CACTX1,<Invalid account identifier>)
.ERR (46,CACTX2,<Job is not logged in>)
.ERR (50,EFCTX1,<WHEEL or OPERATOR capability required>)
.ERR (51,EFCTX2,<Entry cannot be longer than 64 words>)
.ERR (52,EFCTX3,<Fatal error when accessing FACT file>)
.ERR (55,GJFX1,<Desired JFN invalid>)
.ERR (56,GJFX2,<Desired JFN not available>)
.ERR (57,GJFX3,<No JFN available>)
.ERR (60,GJFX4,<Invalid character in filename>)
.ERR (61,GJFX5,<Field cannot be longer than 39 characters>)
.ERR (62,GJFX6,<Device field not in a valid position>)
.ERR (63,GJFX7,<Directory field not in a valid position>)
.ERR (64,GJFX8,<Directory terminating delimiter is not preceded by a valid beginning delimiter>)
.ERR (65,GJFX9,<More than one name field is not allowed>)
.ERR (66,GJFX10,<Generation number is not numeric>)
.ERR (67,GJFX11,<More than one generation number field is not allowed>)
.ERR (70,GJFX12,<More than one account field is not allowed>)
.ERR (71,GJFX13,<More than one protection field is not allowed>)
.ERR (72,GJFX14,<Invalid protection>)
.ERR (73,GJFX15,<Invalid confirmation character>)
.ERR (74,GJFX16,<No such device>)
.ERR (75,GJFX17,<No such directory name>)
.ERR (76,GJFX18,<No such filename>)
.ERR (77,GJFX19,<No such file type>)
.ERR (100,GJFX20,<No such generation number>)
.ERR (101,GJFX21,<File was expunged>)
.ERR (102,GJFX22,<Insufficient system resources (Job Storage Block full)>)
.ERR (103,GJFX23,<Exceeded maximum number of files per directory>)
.ERR (104,GJFX24,<File not found>)
.ERR (107,GJFX27,<File already exists (new file required)>)
.ERR (110,GJFX28,<Device is not on line>)
.ERR (111,GJFX29,<Device is not available to this job>)
.ERR (112,GJFX30,<Account is not numeric>)
.ERR (113,GJFX31,<Invalid wildcard designator>)
.ERR (114,GJFX32,<No files match this specification>)
.ERR (115,GJFX33,<Filename was not specified>)
.ERR (116,GJFX34,<Invalid character "?" in file specification>)
.ERR (117,GJFX35,<Directory access privileges required>)
.ERR (120,OPNX1,<File is already open>)
.ERR (121,OPNX2,<File does not exist>)
.ERR (122,OPNX3,<Read access required>)
.ERR (123,OPNX4,<Write access required>)
.ERR (124,OPNX5,<Execute access required>)
.ERR (125,OPNX6,<Append access required>)
.ERR (126,OPNX7,<Device already assigned to another job>)
.ERR (127,OPNX8,<Device is not on line>)
.ERR (130,OPNX9,<Invalid simultaneous access>)
.ERR (131,OPNX10,<Entire file structure full>)
.ERR (133,OPNX12,<List access required>)
.ERR (134,OPNX13,<Invalid access requested>)
.ERR (135,OPNX14,<Invalid mode requested>)
.ERR (136,OPNX15,<Read/write access required>)
.ERR (137,OPNX16,<File has bad index block>)
.ERR (140,OPNX17,<No room in job for long file page table>)
.ERR (141,OPNX18,<Unit Record Devices are not available>)
.ERR (142,OPNX19,<IMP is not up>) ;TOPS20AN
.ERR (143,OPNX20,<Host is not up>) ;TOPS20AN
.ERR (144,OPNX21,<Connection refused>) ;TOPS20AN
.ERR (145,OPNX22,<Connection byte size does not match>) ;TOPS20AN
.ERR (150,DESX1,<Invalid source/destination designator>)
.ERR (151,DESX2,<Terminal is not available to this job>)
.ERR (152,DESX3,<JFN is not assigned>)
.ERR (153,DESX4,<Invalid use of terminal designator or string pointer>)
.ERR (154,DESX5,<File is not open>)
.ERR (155,DESX6,<Device is not a terminal>)
.ERR (156,DESX7,<Illegal use of parse-only JFN or output wildcard-designators>)
.ERR (157,DESX8,<File is not on disk>)
.ERR (160,CLSX1,<File is not open>)
.ERR (161,CLSX2,<File cannot be closed by this process>)
.ERR (165,RJFNX1,<File is not closed>)
.ERR (166,RJFNX2,<JFN is being used to accumulate filename>)
.ERR (167,RJFNX3,<JFN is not accessible by this process>)
.ERR (170,DELFX1,<Delete access required>)
.ERR (175,SFPTX1,<File is not open>)
.ERR (176,SFPTX2,<Illegal to reset pointer for this file>)
.ERR (177,SFPTX3,<Invalid byte number>)
.ERR (200,CNDIX1,<Invalid password>)
.ERR (202,CNDIX3,<Invalid directory number>)
.ERR (204,CNDIX5,<Job is not logged in>)
.ERR (210,SFBSX1,<Illegal to change byte size for this opening of file>)
.ERR (211,SFBSX2,<Invalid byte size>)
.ERR (215,IOX1,<File is not opened for reading>)
.ERR (216,IOX2,<File is not opened for writing>)
.ERR (217,IOX3,<File is not open for random access>)
.ERR (220,IOX4,<End of file reached>)
.ERR (221,IOX5,<Device or data error>)
.ERR (222,IOX6,<Illegal to write beyond absolute end of file>)
.ERR (240,PMAPX1,<Invalid access requested>)
.ERR (241,PMAPX2,<Invalid use of PMAP>)
.ERR (245,SPACX1,<Invalid access requested>)
.ERR (250,FRKHX1,<Invalid process handle>)
.ERR (251,FRKHX2,<Illegal to manipulate a superior process>)
.ERR (252,FRKHX3,<Invalid use of multiple process handle>)
.ERR (253,FRKHX4,<Process is running>)
.ERR (254,FRKHX5,<Process has not been started>)
.ERR (255,FRKHX6,<All relative process handles in use>)
.ERR (260,SPLFX1,<Process is not inferior or equal to self>)
.ERR (261,SPLFX2,<Process is not inferior to self>)
.ERR (262,SPLFX3,<New superior process is inferior to intended inferior>)
.ERR (263,SPLBTS,<Argument block too short>)
.ERR (264,SPLBFC,<Bad function code>)
.ERR (267,GTABX1,<Invalid table number>)
.ERR (270,GTABX2,<Invalid table index>)
.ERR (271,GTABX3,<GETAB capability required>)
.ERR (273,RUNTX1,<Invalid process handle -3 or -4>)
.ERR (275,STADX1,<WHEEL or OPERATOR capability required>)
.ERR (276,STADX2,<Invalid date or time>)
.ERR (300,ASNDX1,<Device is not assignable>)
.ERR (301,ASNDX2,<Illegal to assign this device >)
.ERR (302,ASNDX3,<No such device>)
.ERR (320,ATACX1,<Invalid job number>)
.ERR (321,ATACX2,<Job already attached>)
.ERR (322,ATACX3,<Incorrect user number>)
.ERR (323,ATACX4,<Invalid password>)
.ERR (324,ATACX5,<This job has no controlling terminal>)
.ERR (332,STDVX1,<No such device>)
.ERR (335,DEVX1,<Invalid device designator>)
.ERR (336,DEVX2,<Device already assigned to another job>)
.ERR (337,DEVX3,<Device is not on line>)
.ERR (345,MNTX1,<Internal format of directory is incorrect>)
.ERR (346,MNTX2,<Device is not on line>)
.ERR (347,MNTX3,<Device is not mountable>)
.ERR (350,TERMX1,<Invalid terminal code>)
.ERR (351,TLNKX1,<Illegal to set remote to object before object to remote>)
.ERR (352,ATIX1,<Invalid software interrupt channel number>)
.ERR (353,ATIX2,<Control-C capability required>)
.ERR (356,TLNKX2,<Link was not received within 15 seconds>)
.ERR (357,TLNKX3,<Links full>)
.ERR (360,TTYX1,<Device is not a terminal>)
.ERR (361,RSCNX1,<Overflowed rescan buffer, input string truncated>)
.ERR (362,RSCNX2,<Invalid function code>)
.ERR (363,CFRKX3,<Insufficient system resources>)
.ERR (365,KFRKX1,<Illegal to kill top level process>)
.ERR (366,KFRKX2,<Illegal to kill self>)
.ERR (367,RFRKX1,<Processes are not frozen>)
.ERR (370,HFRKX1,<Illegal to halt self with HFORK>)
.ERR (371,GFRKX1,<Invalid process handle>)
.ERR (373,GETX1,<Invalid save file format>)
.ERR (374,GETX2,<System Special Pages Table full>)
.ERR (375,TFRKX1,<Undefined function code>)
.ERR (376,TFRKX2,<Unassigned fork handle or not immediate inferior>)
.ERR (377,SFRVX1,<Invalid position in entry vector>)
.ERR (407,NOUTX1,<Radix is not in range 2 to 36 >)
.ERR (410,NOUTX2,<Column overflow>)
.ERR (411,TFRKX3,<Fork(s) not frozen>)
.ERR (414,IFIXX1,<Radix is not in range 2 to 10>)
.ERR (415,IFIXX2,<First nonspace character is not a digit>)
.ERR (416,IFIXX3,<Overflow (number is equal to or greater than 2**35 )>)
.ERR (424,GFDBX1,<Invalid displacement>)
.ERR (425,GFDBX2,<Invalid number of words>)
.ERR (426,GFDBX3,<List access required>)
.ERR (430,CFDBX1,<Invalid displacement>)
.ERR (431,CFDBX2,<Illegal to change specified bits>)
.ERR (432,CFDBX3,<Write or owner access required>)
.ERR (433,CFDBX4,<Invalid value for specified bits>)
.ERR (434,CFDBX5,<No FDB for non-directory devices>)
.ERR (440,DUMPX1,<Command list error>)
.ERR (441,DUMPX2,<JFN is not open in dump mode>)
.ERR (442,DUMPX3,<Address error (too big or crosses end of memory)>)
.ERR (443,DUMPX4,<Access error (cannot read or write data in memory)>)
.ERR (450,RNAMX1,<Files are not on same device>)
.ERR (451,RNAMX2,<Destination file expunged>)
.ERR (452,RNAMX3,<Write or owner access to destination file required>)
.ERR (453,RNAMX4,<Quota exceeded in destination of rename>)
.ERR (454,BKJFX1,<Illegal to back up terminal pointer twice>)
.ERR (460,TIMEX1,<Time cannot be greater than 24 hours>)
.ERR (461,ZONEX1,<Time zone out of range>)
.ERR (462,ODTNX1,<Time zone must be USA or Greenwich>)
.ERR (464,DILFX1,<Invalid date format>)
.ERR (465,TILFX1,<Invalid time format>)
.ERR (466,DATEX1,<Year out of range>)
.ERR (467,DATEX2,<Month is not less than 12>)
.ERR (470,DATEX3,<Day of month too large>)
.ERR (471,DATEX4,<Day of week is not less than 7>)
.ERR (472,DATEX5,<Date out of range>)
.ERR (473,DATEX6,<System date and time are not set>)
.ERR (516,SMONX1,<WHEEL or OPERATOR capability required>)
.ERR (517,MSCPX1,<No MSCP server in current monitor>)
.ERR (520,MSCPX2,<Drive type error>)
.ERR (521,MSCPX3,<Requested drive not found>)
.ERR (530,SACTX1,<File is not on multiple-directory device>)
.ERR (531,SACTX2,<Insufficient system resources (Job Storage Block full)>)
.ERR (532,SACTX3,<Directory requires numeric account>)
.ERR (533,SACTX4,<Write or owner access required>)
.ERR (540,GACTX1,<File is not on multiple-directory device>)
.ERR (541,GACTX2,<File expunged>)
.ERR (544,FFUFX1,<File is not open>)
.ERR (545,FFUFX2,<File is not on multiple-directory device>)
.ERR (546,FFUFX3,<No used page found>)
.ERR (555,DSMX1,<File(s) not closed>)
.ERR (560,RDDIX1,<Illegal to read directory for this device>)
.ERR (570,SIRX1,<Table address is not greater than 20>)
.ERR (600,SSAVX1,<Illegal to save files on this device>)
.ERR (601,SSAVX2,<Page count (left half of table entry) must be negative>)
.ERR (610,SEVEX1,<Entry vector length is not less than 1000>)
.ERR (614,WHELX1,<WHEEL or OPERATOR capability required>)
.ERR (615,CAPX1,<WHEEL or OPERATOR capability required>)
.ERR (617,PEEKX2,<Read access failure on monitor page>)
.ERR (620,CRDIX1,<WHEEL or OPERATOR capability required>)
.ERR (621,CRDIX2,<Illegal to change number of old directory>)
.ERR (622,CRDIX3,<Insufficient system resources (Job Storage Block full)>)
.ERR (623,CRDIX4,<Superior directory full>)
.ERR (624,CRDIX5,<Directory name not given>)
.ERR (626,CRDIX7,<File(s) open in directory>)
.ERR (640,GTDIX1,<WHEEL or OPERATOR capability required>)
.ERR (641,GTDIX2,<Invalid directory number>)
.ERR (650,FLINX1,<First character is not blank or numeric>)
.ERR (651,FLINX2,<Number too small>)
.ERR (652,FLINX3,<Number too large>)
.ERR (653,FLINX4,<Invalid format>)
.ERR (660,FLOTX1,<Column overflow in field 1 or 2>)
.ERR (661,FLOTX2,<Column overflow in field 3>)
.ERR (662,FLOTX3,<Invalid format specified>)
.ERR (670,HPTX1,<Undefined clock number>)
.ERR (700,FDFRX1,<Not a multiple-directory device>)
.ERR (701,FDFRX2,<Invalid directory number>)
.ERR (703,GTHSX1,<Invalid function code for GTHST>)	;TOPS20AN
.ERR (704,GTHSX2,<Unknown host number>) ;TOPS20AN
.ERR (705,GTHSX3,<No number for that host name>) ;TOPS20AN
.ERR (706,GTHSX4,<Index out of range>)	;TOPS20AN
.ERR (707,GTHSX5,<No string for that Host number>) ;TOPS20AN
.ERR (710,ATNX1,<Invalid receive JFN>) ;TOPS20AN
.ERR (711,ATNX2,<Receive JFN not opened for read>) ;TOPS20AN
.ERR (712,ATNX3,<Receive JFN not open>) ;TOPS20AN
.ERR (713,ATNX4,<Receive JFN is not a NET connection>) ;TOPS20AN
.ERR (714,ATNX5,<Receive JFN has been used>) ;TOPS20AN
.ERR (715,ATNX6,<Receive connection refused>) ;TOPS20AN
.ERR (716,ATNX7,<Invalid send JFN>) ;TOPS20AN
.ERR (717,ATNX8,<Send JFN not opened for write>) ;TOPS20AN
.ERR (720,ATNX9,<Send JFN not open>) ;TOPS20AN
.ERR (721,ATNX10,<Send JFN is not a NET connection>) ;TOPS20AN
.ERR (722,ATNX11,<Send JFN has been used>) ;TOPS20AN
.ERR (723,ATNX12,<Send connection refused>) ;TOPS20AN
.ERR (724,ATNX13,<Insufficient system resources (No NVT's)>) ;TOPS20AN
.ERR (727,CVHST1,<No string for that Host number>) ;TOPS20AN
.ERR (730,CVSKX1,<Invalid network JFN>) ;TOPS20AN
.ERR (731,CVSKX2,<Local socket invalid in this context>) ;TOPS20AN
.ERR (732,SNDIX1,<Invalid message size>) ;TOPS20AN
.ERR (733,SNDIX2,<Insufficient system resources (No buffers available)>) ;TOPS20AN
.ERR (734,SNDIX3,<Illegal to specify NCP links 0 - 72>) ;TOPS20AN
.ERR (735,SNDIX4,<Invalid header value for this queue>) ;TOPS20AN
.ERR (736,SNDIX5,<IMP down>) ;TOPS20AN
.ERR (737,NTWZX1,<NET WIZARD capability  required>) ;TOPS20AN
.ERR (740,ASNSX1,<Insufficient system resources (All special queues in use)>) ;TOPS20AN
.ERR (741,ASNSX2,<Link(s) assigned to another special queue>) ;TOPS20AN
.ERR (742,SQX1,<Special network queue handle out of range>) ;TOPS20AN
.ERR (743,SQX2,<Special network queue not assigned>) ;TOPS20AN
.ERR (746,GTNCX1,<Invalid network JFN>) ;TOPS20AN
.ERR (747,GTNCX2,<Invalid or inactive NVT>) ;TOPS20AN
.ERR (750,RNAMX5,<Destination file is not closed>)
.ERR (751,RNAMX6,<Destination file has bad page table>)
.ERR (752,RNAMX7,<Source file expunged>)
.ERR (753,RNAMX8,<Write or owner access to source file required>)
.ERR (754,RNAMX9,<Source file is nonexistent>)
.ERR (755,RNMX10,<Source file is not closed>)
.ERR (756,RNMX11,<Source file has bad page table>)
.ERR (757,RNMX12,<Illegal to rename to self>)
.ERR (760,GJFX36,<Internal format of directory is incorrect>)
.ERR (770,ILINS1,<Undefined operation code>)
.ERR (771,ILINS2,<Undefined JSYS>)
.ERR (772,ILINS3,<UUO simulation facility not available>)
.ERR (1000,CRLNX1,<Logical name is not defined>)
.ERR (1001,INLNX1,<Index is beyond end of logical name table>)
.ERR (1002,LNSTX1,<No such logical name>)
.ERR (1003,MLKBX1,<Lock facility already in use>)
.ERR (1004,MLKBX2,<Too many pages to be locked>)
.ERR (1005,MLKBX3,<Page is not available>)
.ERR (1006,MLKBX4,<Illegal to remove previous contents of user map>)
.ERR (1007,VBCX1,<Display data area not locked in core>)
.ERR (1010,RDTX1,<Invalid string pointer>)
.ERR (1011,GFKSX1,<Area too small to hold process structure>)
.ERR (1013,GTJIX1,<Invalid index>)
.ERR (1014,GTJIX2,<Invalid terminal line number>)
.ERR (1015,GTJIX3,<Invalid job number>)
.ERR (1016,IPCFX1,<Length of packet descriptor block cannot be less than 4>)
.ERR (1017,IPCFX2,<No message for this PID>)
.ERR (1020,IPCFX3,<Data too long for user's buffer>)
.ERR (1021,IPCFX4,<Receiver's PID invalid>)
.ERR (1022,IPCFX5,<Receiver's PID disabled>)
.ERR (1023,IPCFX6,<Send quota exceeded>)
.ERR (1024,IPCFX7,<Receiver quota exceeded>)
.ERR (1025,IPCFX8,<IPCF free space exhausted>)
.ERR (1026,IPCFX9,<Sender's PID invalid>)
.ERR (1027,IPCF10,<WHEEL capability required>)
.ERR (1030,IPCF11,<WHEEL or IPCF capability required>)
.ERR (1031,IPCF12,<No free PID's available>)
.ERR (1032,IPCF13,<PID quota exceeded>)
.ERR (1033,IPCF14,<No PID's available to this job>)
.ERR (1034,IPCF15,<No PID's available to this process>)
.ERR (1035,IPCF16,<Receive and message data modes do not match>)
.ERR (1036,IPCF17,<Argument block too small>)
.ERR (1037,IPCF18,<Invalid MUTIL JSYS function>)
.ERR (1040,IPCF19,<No PID for [SYSTEM] INFO>)
.ERR (1041,IPCF20,<Invalid process handle>)
.ERR (1042,IPCF21,<Invalid job number>)
.ERR (1043,IPCF22,<Invalid software interrupt channel number>)
.ERR (1044,IPCF23,<[SYSTEM] INFO already exists>)
.ERR (1045,IPCF24,<Invalid message size>)
.ERR (1046,IPCF25,<PID does not belong to this job>)
.ERR (1047,IPCF26,<PID does not belong to this process>)
.ERR (1050,IPCF27,<PID is not defined>)
.ERR (1051,IPCF28,<PID not accessible by this process>)
.ERR (1052,IPCF29,<PID already being used by another process>)
.ERR (1053,IPCF30,<Job is not logged in>)
.ERR (1054,GNJFX1,<No more files in this specification>)
.ERR (1055,ENQX1,<Invalid function>)
.ERR (1056,ENQX2,<Level number too small>)
.ERR (1057,ENQX3,<Request and lock level numbers do not match>)
.ERR (1060,ENQX4,<Number of pool and lock resources do not match>)
.ERR (1061,ENQX5,<Lock already requested>)
.ERR (1062,ENQX6,<Requested locks are not all locked>)
.ERR (1063,ENQX7,<No ENQ on this lock>)
.ERR (1064,ENQX8,<Invalid access change requested>)
.ERR (1065,ENQX9,<Invalid number of blocks specified>)
.ERR (1066,ENQX10,<Invalid argument block length>)
.ERR (1067,ENQX11,<Invalid software interrupt channel number>)
.ERR (1070,ENQX12,<Invalid number of resources requested>)
.ERR (1071,ENQX13,<Indirect or indexed byte pointer not allowed>)
.ERR (1072,ENQX14,<Invalid byte size>)
.ERR (1073,ENQX15,<ENQ/DEQ capability required>)
.ERR (1074,ENQX16,<WHEEL or OPERATOR capability required>)
.ERR (1075,ENQX17,<Invalid JFN>)
.ERR (1076,ENQX18,<Quota exceeded>)
.ERR (1077,ENQX19,<String too long>)
.ERR (1100,ENQX20,<Locked JFN cannot be closed>)
.ERR (1101,ENQX21,<Job is not logged in>)
.ERR (1102,IPCF31,<Invalid page number>)
.ERR (1103,IPCF32,<Page is not private>)
.ERR (1104,PMAPX3,<Illegal to move shared page into file>)
.ERR (1105,PMAPX4,<Illegal to move file page into process>)
.ERR (1106,PMAPX5,<Illegal to move special page into file>)
.ERR (1107,PMAPX6,<Disk quota exceeded>)
.ERR (1110,SNOPX1,<WHEEL or OPERATOR capability required>)
.ERR (1111,SNOPX2,<Invalid function>)
.ERR (1112,SNOPX3,<.SNPLC function must be first>)
.ERR (1113,SNOPX4,<Only one .SNPLC function allowed>)
.ERR (1114,SNOPX5,<Invalid page number>)
.ERR (1115,SNOPX6,<Invalid number of pages to lock>)
.ERR (1116,SNOPX7,<Illegal to define breakpoints after inserting them>)
.ERR (1117,SNOPX8,<Breakpoint is not set on instruction>)
.ERR (1120,SNOPX9,<No more breakpoints allowed>)
.ERR (1121,SNOP10,<Breakpoints already inserted>)
.ERR (1122,SNOP11,<Breakpoints not inserted>)
.ERR (1123,SNOP12,<Invalid format for program name symbol>)
.ERR (1124,SNOP13,<No such program name symbol>)
.ERR (1125,SNOP14,<No such symbol>)
.ERR (1126,SNOP15,<Not enough free pages for snooping>)
.ERR (1127,SNOP16,<Multiply defined symbol>)
.ERR (1130,IPCF33,<Invalid index into system PID table>)
.ERR (1131,SNOP17,<Breakpoint already defined>)
.ERR (1132,OPNX23,<Disk quota exceeded>)
.ERR (1133,GJFX37,<Input deleted>)
.ERR (1134,CRLNX2,<WHEEL or OPERATOR capability required>)
.ERR (1135,INLNX2,<Invalid function>)
.ERR (1136,LNSTX2,<Invalid function>)
.ERR (1137,ALCX1,<Invalid function>)
.ERR (1140,ALCX2,<WHEEL or OPERATOR capability required>)
.ERR (1141,ALCX3,<Device is not assignable>)
.ERR (1142,ALCX4,<Invalid job number>)
.ERR (1143,ALCX5,<Device already assigned to another job>)
.ERR (1144,SPLX1,<Invalid function>)
.ERR (1145,SPLX2,<Argument block too small>)
.ERR (1146,SPLX3,<Invalid device designator>)
.ERR (1147,SPLX4,<WHEEL or OPERATOR capability required>)
.ERR (1150,SPLX5,<Illegal to specify 0 as generation number for first file>)
.ERR (1151,CLSX3,<File still mapped>)
.ERR (1152,CRLNX3,<Invalid function>)
.ERR (1153,ALCX6,<Device assigned to user job, but will be given to allocator when released>)
.ERR (1154,CKAX1,<Argument block too small>)
.ERR (1155,CKAX2,<Invalid directory number>)
.ERR (1156,CKAX3,<Invalid access code>)
.ERR (1157,TIMX1,<Invalid function>)
.ERR (1160,TIMX2,<Invalid process handle>)
.ERR (1161,TIMX3,<Time limit already set>)
.ERR (1162,TIMX4,<Illegal to clear time limit>)
.ERR (1163,SNOP18,<Data page is not private or copy-on-write>)
.ERR (1164,GJFX38,<File not found because output-only device was specified>)
.ERR (1165,GJFX39,<Logical name loop detected>)
.ERR (1166,CRDIX8,<Invalid directory number>)
.ERR (1167,CRDIX9,<Internal format of directory is incorrect>)
.ERR (1170,CRDI10,<Maximum directory number exceeded;  index table needs expanding>)

.ERR (1171,DELDX1,<WHEEL or OPERATOR capability required>)
.ERR (1172,DELDX2,<Invalid directory number>)
.ERR (1173,GACTX3,<Internal format of directory is incorrect>)
.ERR (1174,DIAGX1,<Invalid function>)
.ERR (1175,DIAGX2,<Device is not assigned>)
.ERR (1176,DIAGX3,<Argument block too small>)
.ERR (1177,DIAGX4,<Invalid device type>)
.ERR (1200,DIAGX5,<WHEEL, OPERATOR, or MAINTENANCE capability required>)
.ERR (1201,DIAGX6,<Invalid channel command list>)
.ERR (1202,DIAGX7,<Illegal to do I/O across page boundary>)
.ERR (1203,DIAGX8,<No such device>)
.ERR (1204,DIAGX9,<Unit does not exist>)
.ERR (1205,DIAG10,<Subunit does not exist>)
.ERR (1206,SYEX1,<Unreasonable SYSERR block size>)
.ERR (1207,SYEX2,<No buffer space available for SYSERR>)
.ERR (1210,MTOX1,<Invalid function>)
.ERR (1211,IOX7,<Insufficient system resources (Job Storage Block full)>)
.ERR (1212,IOX8,<Monitor internal error>)
.ERR (1213,MTOX5,<Invalid hardware data mode for magnetic tape>)
.ERR (1214,DUMPX5,<No-wait dump mode not supported for this device>)
.ERR (1215,DUMPX6,<Dump mode not supported for this device>)
.ERR (1216,IOX9,<Function legal for sequential write only>)
.ERR (1217,CLSX4,<Device still active>)
.ERR (1220,MTOX2,<Record size was not set before I/O was done>)
.ERR (1221,MTOX3,<Function not legal in dump mode>)
.ERR (1222,MTOX4,<Invalid record size>)
.ERR (1223,MTOX6,<Invalid magnetic tape density>)
.ERR (1224,OPNX25,<Device is write locked>)
.ERR (1225,GJFX40,<Undefined attribute in file specification>)
.ERR (1226,MTOX7,<WHEEL or OPERATOR capability required>)
.ERR (1227,LOUTX3,<WHEEL or OPERATOR capability required>)
.ERR (1230,LOUTX4,<LOG capability required>)
.ERR (1231,CAPX2,<WHEEL, OPERATOR, or MAINTENANCE capability required>)
.ERR (1232,SSAVX3,<Insufficient system resources (Job Storage Block full)>)
.ERR (1233,SSAVX4,<Directory area of EXE file is more than one page>)
.ERR (1234,TDELX1,<Table is empty>)
.ERR (1235,TADDX1,<Table is full>)
.ERR (1236,TADDX2,<Entry is already in table>)
.ERR (1237,TLUKX1,<Internal format of table is incorrect>)
.ERR (1240,IOX10,<Record is longer than user requested>)
.ERR (1241,CNDIX2,<WHEEL or OPERATOR capability required>)
.ERR (1242,CNDIX4,<Invalid job number>)
.ERR (1243,CNDIX6,<Job is not logged in>)
.ERR (1244,SJBX1,<Invalid function>)
.ERR (1245,SJBX2,<Invalid magnetic tape density>)
.ERR (1246,SJBX3,<Invalid magnetic tape data mode>)
.ERR (1247,TMONX1,<Invalid TMON function>)
.ERR (1250,SMONX2,<Invalid SMON function>)
.ERR (1251,SJBX4,<Invalid job number>)
.ERR (1252,SJBX5,<Job is not logged in>)
.ERR (1253,SJBX6,<WHEEL or OPERATOR capability required>)
.ERR (1254,GTJIX4,<No such job>)
.ERR (1255,ILINS4,<UUO simulation is disabled>)
.ERR (1256,ILINS5,<RMS facility is not available>)
.ERR (1257,COMNX1,<Invalid COMND function code>)
.ERR (1260,COMNX2,<Field too long for internal buffer>)
.ERR (1261,COMNX3,<Command too long for internal buffer>)
.ERR (1262,COMNX4,<Invalid character in input>)
.ERR (1263,PRAX1,<Invalid PRARG function code>)
.ERR (1264,PRAX2,<No room in monitor data base for argument block>)
.ERR (1265,COMNX5,<Invalid string pointer argument>)
.ERR (1266,COMNX6,<Problem in indirect file>)
.ERR (1267,COMNX7,<Error in command>)
.ERR (1270,PRAX3,<PRARG argument block too large>)
.ERR (1271,CKAX4,<File is not on disk>)
.ERR (1272,GACCX1,<Invalid job number>)
.ERR (1273,GACCX2,<No such job>)
.ERR (1274,MTOX8,<Argument block too long>)
.ERR (1275,DBRKX1,<No interrupts in progress>)
.ERR (1276,SJPRX1,<Job is not logged in>)
.ERR (1277,GJFX41,<File name must not exceed 6 characters>)
.ERR (1300,GJFX42,<File type must not exceed 3 characters>)
.ERR (1301,GACCX3,<Confidential Information Access capability required>)
.ERR (1302,TIMEX2,<Downtime cannot be more than 7 days in the future>)
.ERR (1303,DELFX2,<File cannot be expunged because it is currently open>)
.ERR (1304,DELFX3,<System scratch area depleted; file not deleted>)
.ERR (1305,DELFX4,<Directory symbol table could not be rebuilt>)
.ERR (1306,DELFX5,<Directory symbol table needs rebuilding>)
.ERR (1307,DELFX6,<Internal format of directory is incorrect>)
.ERR (1310,DELFX7,<FDB formatted incorrectly; file not deleted>)
.ERR (1311,DELFX8,<FDB not found; file not deleted>)
.ERR (1312,FRKHX7,<Process page cannot exceed 777>)
.ERR (1313,DIRX1,<Invalid directory number>)
.ERR (1314,DIRX2,<Insufficient system resources>)
.ERR (1315,DIRX3,<Internal format of directory is incorrect>)
.ERR (1316,UFPGX1,<File is not open for write>)
.ERR (1317,LNGFX1,<Page table does not exist and file not open for write>)
.ERR (1320,IPCF34,<Cannot receive into an existing page>)
.ERR (1321,COMNX8,<Number base out of range 2-10>)
.ERR (1322,MTOX9,<Output still pending>)
.ERR (1323,MTOX10,<VFU or RAM file cannot be OPENed>)
.ERR (1324,MTOX11,<Data too large for buffers>)
.ERR (1325,MTOX12,<Input error or not all data read>)
.ERR (1326,MTOX13,<Argument block too small>)
.ERR (1327,MTOX14,<Invalid software interrupt channel number>)
.ERR (1330,SAVX1,<Illegal to save files on this device>)
.ERR (1331,MTOX15,<Device does not have Direct Access (programmable) VFU>)
.ERR (1332,MTOX16,<VFU or Translation Ram file must be on disk>)
.ERR (1333,LPINX1,<Invalid unit number>)
.ERR (1334,LPINX2,<WHEEL or OPERATOR capability required>)
.ERR (1335,LPINX3,<Illegal to load RAM or VFU while device is OPEN>)
.ERR (1336,MTOX17,<Device is not on line>)
.ERR (1337,LGINX6,<No more job slots available for logging-in>)
.ERR (1340,DESX9,<Invalid operation for this device>)
.ERR (1341,ACESX1,<Argument block too small>)
.ERR (1342,ACESX2,<Insufficient system resources>)
.ERR (1343,DSKOX1,<Channel number too large>)
.ERR (1344,DSKOX2,<Unit number too large>)
.ERR (1345,MSTRX1,<Invalid function>)
.ERR (1346,MSTRX2,<WHEEL or OPERATOR capability required>)
.ERR (1347,MSTRX3,<Argument block too small>)
.ERR (1350,MSTRX4,<Insufficient system resources>)
.ERR (1351,MSTRX5,<Drive is not on-line>)
.ERR (1352,MSTRX6,<Home blocks are bad>)
.ERR (1353,MSTRX7,<Invalid structure name>)
.ERR (1354,MSTRX8,<Could not get OFN for ROOT-DIRECTORY>)
.ERR (1355,MSTRX9,<Could not MAP ROOT-DIRECTORY>)
.ERR (1356,MSTX10,<ROOT-DIRECTORY bad>)
.ERR (1357,MSTX11,<Could not initialize Index Table>)
.ERR (1360,MSTX12,<Could not OPEN Bit Table File>)
.ERR (1361,MSTX13,<Backup copy of ROOT-DIRECTORY is bad>)
.ERR (1362,MSTX14,<Invalid channel number>)
.ERR (1363,MSTX15,<Invalid unit number>)
.ERR (1364,MSTX16,<Invalid controller number>)
.ERR (1365,DSKX01,<Invalid structure number>)
.ERR (1366,DSKX02,<Bit table is being initialized>)
.ERR (1367,DSKX03,<Bit table has not been initialized>)
.ERR (1370,DSKX04,<Bit table being initialized by another job>)
.ERR (1371,GFUSX1,<Invalid function>)
.ERR (1372,GFUSX2,<Insufficient system resources>)
.ERR (1373,SFUSX1,<Invalid function>)
.ERR (1374,SFUSX2,<Insufficient system resources>)
.ERR (1375,SFUSX3,<No such user name>)
.ERR (1376,RCDIX1,<Insufficient system resources>)
.ERR (1377,RCDIX2,<Invalid directory specification>)
.ERR (1400,RCDIX3,<Invalid structure name>)
.ERR (1401,RCDIX4,<Monitor internal error>)
.ERR (1402,RCUSX1,<Insufficient system resources>)
.ERR (1403,TDELX2,<Invalid table entry location>)
.ERR (1404,TIMX5,<Invalid software interrupt channel number>)
.ERR (1405,LSTRX1,<Process has not encountered any errors>)
.ERR (1406,SWJFX1,<Illegal to swap same JFN>)
.ERR (1407,MTOX18,<Invalid software interrupt channel number>)
.ERR (1410,OPNX26,<Illegal to open a string pointer>)
.ERR (1411,DELFX9,<File is not a directory file>)
.ERR (1412,CRDIX6,<Directory file is mapped>)
.ERR (1413,COMNX9,<End of input file reached>)
.ERR (1414,STYPX1,<Invalid terminal type>)
.ERR (1415,PMAPX7,<Illegal to map file on dismounted structure>)
.ERR (1416,DSKOX3,<Invalid structure number>)
.ERR (1417,DESX10,<Structure is dismounted>)
.ERR (1420,DSKOX4,<Invalid address type specified>)
.ERR (1421,MSTX17,<All units in a structure must be of the same type>)
.ERR (1422,MSTX18,<No more units in system>)
.ERR (1423,MSTX19,<Unit is already part of a mounted structure>)
.ERR (1424,MSTX20,<Data error reading HOME blocks>)
.ERR (1425,MSTX21,<Structure is not mounted>)
.ERR (1426,MSTX22,<Illegal to change specified bits>)
.ERR (1427,CRDI11,<Invalid terminating bracket on directory>)
.ERR (1430,MSTX23,<Could not write HOME blocks>)
.ERR (1431,ACESX3,<Password is required>)
.ERR (1432,ACESX4,<Function not allowed for another job>)
.ERR (1433,ACESX5,<No function specified for ACCES>)
.ERR (1434,STRX05,<No such user name>)
.ERR (1435,ACESX6,<Directory is not accessed>)
.ERR (1436,STRX01,<Structure is not mounted>)
.ERR (1437,STRX02,<Insufficient system resources>)
.ERR (1440,IOX11,<Quota exceeded>)
.ERR (1441,IOX12,<Insufficient system resources (Swapping space full)>)
.ERR (1442,STRX03,<No such directory name>)
.ERR (1443,STRX04,<Ambiguous directory specification>)
.ERR (1444,PPNX1,<Invalid PPN>)
.ERR (1445,PPNX2,<Structure is not mounted>)
.ERR (1446,PPNX3,<Insufficient system resources>)
.ERR (1447,PPNX4,<Invalid directory number>)
.ERR (1450,SPLX6,<No directory to write spooled files into>)
.ERR (1451,CRDI12,<Structure is not mounted>)
.ERR (1452,GFUSX3,<File expunged>)
.ERR (1453,GFUSX4,<Internal format of directory is incorrect>)
.ERR (1454,RNMX13,<Insufficient system resources>)
.ERR (1455,SJBX8,<Illegal to perform this function>)
.ERR (1456,DECRSV,<DEC reserved bits not zero>)
.ERR (1457,FFFFX1,<No free pages in file>)
.ERR (1460,WILDX1,<Second JFN cannot be wild>)
.ERR (1461,MSTX41,<Channel does not exist>)
.ERR (1462,MSTX42,<Controller does not exist>)
.ERR (1463,CIMXND,<Maximum memory driver nodes assigned>)
.ERR (1464,CINOND,<No LCS node slots availble>)
.ERR (1465,CIBDOF,<BAD BDT offset given >)
.ERR (1466,CINOFQ,<No CI free queue entries left>)
.ERR (1467,CINOPG,<No BDT page slots left>)
.ERR (1470,CINPTH,<Target CI LCS node is dead, no path to it>)
.ERR (1471,CIBDCD,<Bad CI op code>)
.ERR (1472,CIUNOP,<Undefined op code (in range but not yet defined)>)
.ERR (1473,CINOND,<Dead LCS node>)
.ERR (1474,CILNER,<CI length error>)
.ERR (1475,LCBDBP,<Bad byte pointer passed to LCS>)
.ERR (1476,LCLNER,<LCS length error>)
.ERR (1477,LCNOND,<LCS No such node>)
.ERR (1500,SSAVX5,<Number of PDVs grew during save>)
.ERR (1501,CIBDFQ,<BAD CI FREE QUEUE>)
.ERR (1502,ATACX6,<Terminal is already attached to a job>)
.ERR (1503,ATACX7,<Illegal terminal number>)
.ERR (1504,QUEUX1,<Illegal argument list passed to QUEUE%>)
.ERR (1505,QUEUX2,<Invalid function>)
.ERR (1506,QUEUX3,<Fatal error returned from application>)
.ERR (1507,QUEUX4,<Invalid message returned from ORION>)
.ERR (1510,QUEUX5,<Insufficient system resources (Job Storage Block full)>)
.ERR (1511,QUEUX6,<Illegal response length>)
.ERR (1512,QUEUX7,<Argument block too small>)
.ERR (1513,DIAG21,<Performance counter read timed out>)
.ERR (1514,MTNX01,<Serial number out of range>)
.ERR (1515,DIAG22,<Illegal CI node number>)
.ERR (1516,DIAG23,<No System Block for Remote CI Node>)
.ERR (1517,DIAG24,<Remote CI Node does not support this function>)
.ERR (1520,DIAG25,<Remote CI Node not in correct state for this function>)
.ERR (1521,DIAG26,<Illegal argument for this DIAG% function>)
.ERR (1522,DIAG27,<Read/Write of CI Maintenance data timed out>)
.ERR (1523,DIAG30,<Read/Write of CI Maintenance data finished with an error>)
.ERR (1524,SCSTBF,<No slots left in CID tables>)

; ERROR CODES 1525-1532 ARE AVAILABLE******

.ERR (1533,DSKOX5,<Invalid word count>)
.ERR (1534,DSKOX6,<Invalid buffer address>)
.ERR (1535,TIMX6,<Time has already passed>)
.ERR (1536,TIMX7,<No space available for a clock>)
.ERR (1537,TIMX8,<User clock allocation exceeded>)
.ERR (1540,TIMX9,<No such clock entry found>)
.ERR (1541,TIMX10,<No system date and time>)

.ERR (1550,SCTX1,<Invalid function code>)
.ERR (1551,SCTX2,<Terminal already in use as controlling terminal>)
.ERR (1552,SCTX3,<Illegal to redefine the job's controlling terminal>)
.ERR (1553,SCTX4,<SC%SCT capability required>)

.ERR (1554,PDVX01,<Address in .POADE must be as large as address in .POADR>)
.ERR (1555,PDVX02,<Addresses in .PODAT block must be in strict ascending order>)
.ERR (1556,PDVX03,<Address in .POADR must be a program data vector address>)
.ERR (1557,GETX4,<Illegal to relocate (via .GBASE) a multi-section exe file>)
.ERR (1560,GETX5,<Exe file directory entry specifies a section-crossing>)
.ERR (1561,DYNX01,<DYNLB% Function Code Out of Range>)
.ERR (1562,DYNX02,<Undefined DYNLB% Function>)
.ERR (1563,DYNX03,<No Free Section In Which to Map Dynamic Library>)
.ERR (1564,DYNX04,<Unable to Get a JFN on Dynamic Library File>)
.ERR (1565,DYNX05,<Unable to Get Dynamic Library>)
.ERR (1566,DYNX06,<No Program Data Vector Found in Dynamic Library>)
.ERR (1567,DYNX07,<More Than One Dynamic Library in File>)
.ERR (1570,DYNX08,<Unable to Un-Map Section During De-Link Operation>)
.ERR (1571,DYNX09,<No Transfer Vector Address in Library Descriptor Block of Dynamic Library>)
.ERR (1572,DYNX10,<Library Name String Too Long>)
.ERR (1573,DYNX11,<Unable to Make Library Known (No JSB Free Space)>)
.ERR (1600,CTSX01,<CTSOP% Function Code Out of Range>)
.ERR (1601,CTSX02,<Undefined CTSOP% Function>)
.ERR (1602,CTSX03,<Insufficient System Resources (No JSB Free Space)>)
.ERR (1603,CTSX04,<No Default Canonical Library Name>)
.ERR (1604,CTSX05,<Illegal to Issue CTSOP% .CTCAL Function from Section Zero>)
.ERR (1605,CTSX06,<Stack Overflow During CTSOP% .CTCAL Function>)
.ERR (1606,CTSX07,<Illegal Memory Write During CTSOP% .CTCAL Function>)
.ERR (1607,CTSX08,<Invalid Function Code Given During CTSOP% .CTCAL Function>)
.ERR (1610,CTSX09,<No Address of CTS Descriptor Block Found in Library Descriptor Block of Library>)
.ERR (1611,CTSX10,<Length of CTS Descriptor Block Incorrect>)
.ERR (1612,CTSX11,<Invalid Number of Pages in CTS Descriptor Block>)
.ERR (1613,CTSX12,<No Monitor Pages Available for Terminal Data Base>)
.ERR (1614,CTSX13,<Unimplemented Canonical Terminal Operation>)

; Note: Error codes are available here!

.ERR (1700,SFUSX4,<File expunged>)
.ERR (1701,SFUSX5,<Write or owner access required>)
.ERR (1702,SFUSX6,<No such user name>)
.ERR (1703,GETX3,<Illegal to overlay existing pages>)
.ERR (1704,FILX01,<File is not open>)
.ERR (1705,ARGX01,<Invalid password>)
.ERR (1706,CAPX3,<WHEEL capability required>)
.ERR (1707,CAPX4,<WHEEL or IPCF capability required>)
.ERR (1711,CAPX6,<ENQ/DEQ capability required>)
.ERR (1712,CAPX7,<Confidential Information Access Capability required>)
.ERR (1713,ARGX02,<Invalid function>)
.ERR (1714,ARGX03,<Illegal to change specified bits>)
.ERR (1715,ARGX04,<Argument block too small>)
.ERR (1716,ARGX05,<Argument block too long>)
.ERR (1717,ARGX06,<Invalid page number>)
.ERR (1720,ARGX07,<Invalid job number>)
.ERR (1721,ARGX08,<No such job>)
.ERR (1722,ARGX09,<Invalid byte size>)
.ERR (1723,ARGX10,<Invalid access requested>)
.ERR (1724,ARGX11,<Invalid directory number>)
.ERR (1725,ARGX12,<Invalid process handle>)
.ERR (1726,ARGX13,<Invalid software interrupt channel number>)
.ERR (1727,MONX01,<Insufficient system resources>)
.ERR (1730,MONX02,<Insufficient system resources (JSB full)>)
.ERR (1731,MONX03,<Monitor internal error>)
.ERR (1732,MONX04,<Insufficient system resources (Swapping space full)>)
.ERR (1733,ARGX14,<Invalid account identifier>)
.ERR (1734,ARGX15,<Job is not logged in>)
.ERR (1735,FILX02,<Write or owner access required>)
.ERR (1736,FILX03,<List access required>)
.ERR (1737,DEVX4,<Device is not assignable>)
.ERR (1740,FILX04,<File is not on multiple-directory device>)
.ERR (1741,ARGX16,<Password is required>)
.ERR (1742,ARGX17,<Invalid argument block length>)
.ERR (1743,ARGX18,<Invalid structure name>)
.ERR (1744,DEVX5,<No such device>)
.ERR (1745,DIRX4,<Invalid directory specification>)
.ERR (1746,FILX05,<File expunged>)
.ERR (1747,STRX06,<No such user number>)
.ERR (1750,MSTX24,<Illegal to dismount the System Structure>)
.ERR (1751,MSTX25,<Invalid number of swapping pages>)
.ERR (1752,MSTX26,<Invalid number of Front-End-Filesystem pages>)
.ERR (1753,LOUTX5,<Illegal to log out job 0>)
.ERR (1754,GJFX43,<More than one ;T specification is not allowed>)
.ERR (1755,MTOX19,<Invalid terminal page width>)
.ERR (1756,MTOX20,<Invalid terminal page length>)
.ERR (1757,MSTX27,<Specified unit is not a disk>)
.ERR (1760,MSTX28,<Could not initialize bit table for structure>)
.ERR (1761,MSTX29,<Could not reconstruct ROOT-DIRECTORY>)
.ERR (1763,DSKX05,<Disk assignments and deassignments are currently prohibited>)
.ERR (1764,DSKX06,<Invalid disk address>)
.ERR (1765,DSKX07,<Address cannot be deassigned because it is not assigned>)
.ERR (1766,DSKX08,<Address cannot be assigned because it is already assigned>)
.ERR (1767,COMX10,<Invalid default string>)
.ERR (1770,MSTX30,<Incorrect Bit Table counts on structure>)
.ERR (1771,LOCKX1,<Illegal to lock other than a private page>)
.ERR (1772,LOCKX2,<Requested page unavailable>)
.ERR (1773,LOCKX3,<Attempt to lock too much memory>)
.ERR (1774,ILLX01,<Illegal memory read>)
.ERR (1775,ILLX02,<Illegal memory write>)
.ERR (1776,ILLX03,<Memory data parity error >)
.ERR (1777,ILLX04,<Reference to non-existent page>)
.ERR (2000,MSTX31,<Structure already mounted>)
.ERR (2001,MSTX32,<Structure was not mounted>)
.ERR (2002,MSTX33,<Structure is unavailable for mounting>)
.ERR (2003,STDIX1,<The STDIR JSYS has been replaced by RCDIR and RCUSR>)
.ERR (2004,CNDIX7,<The CNDIR JSYS has been replaced by ACCES>)
.ERR (2005,PMCLX1,<Illegal page state or state transition>)
.ERR (2006,PMCLX2,<Requested physical page is unavailable>)
.ERR (2007,PMCLX3,<Requested physical page contains errors>)
.ERR (2010,DLFX10,<Cannot delete directory; file still mapped>)
.ERR (2011,DLFX11,<Cannot delete directory file in this manner>)
.ERR (2012,GJFX44,<Account string does not match>)
.ERR (2013,UTSTX1,<Invalid function code>)
.ERR (2014,UTSTX2,<Area of code too large to test>)
.ERR (2015,UTSTX3,<UTEST facility in use by another process>)
.ERR (2016,BOTX01,<Invalid DTE-20 number>)
.ERR (2017,BOTX02,<Invalid byte size>)
.ERR (2020,DCNX1,<Invalid network file name>)
.ERR (2021,DCNX5,<No more logical links available>)
.ERR (2022,DCNX3,<Invalid object>)
.ERR (2023,DCNX4,<Invalid task name>)
.ERR (2024,DCNX9,<Object is already defined>)
.ERR (2025,DCNX8,<Invalid network operation>)
.ERR (2026,DCNX11,<Link aborted>)
.ERR (2027,DCNX12,<String exceeds 16 bytes>)
.ERR (2030,TTYX01,<Line is not active>)
.ERR (2031,BOTX03,<Invalid protocol version number>)
.ERR (2032,MONX05,<Insufficient system resources (no resident free space)>)
.ERR (2033,ARGX19,<Invalid unit number>)
.ERR (2035,COMX11,<Invalid CMRTY pointer>)
.ERR (2036,COMX12,<Invalid CMBFP pointer>)
.ERR (2037,COMX13,<Invalid CMPTR pointer>)
.ERR (2040,COMX14,<Invalid CMABP pointer>)
.ERR (2041,COMX15,<Invalid default string pointer>)
.ERR (2042,COMX16,<Invalid help message pointer>)
.ERR (2043,COMX17,<Invalid byte pointer in function block>)
.ERR (2044,NPXAMB,<Ambiguous>)
.ERR (2045,NPXNSW,<Not a switch - does not begin with slash>)
.ERR (2046,NPXNOM,<Does not match switch or keyword>)
.ERR (2047,NPXNUL,<Null switch or keyword given>)
.ERR (2050,NPXINW,<Invalid guide word>)
.ERR (2051,NPXNC,<Not confirmed>)
.ERR (2052,NPXICN,<Invalid character in number>)
.ERR (2053,NPXIDT,<Invalid device terminator>)
.ERR (2054,NPXNQS,<Not a quoted string - quote missing at beginning or end>)
.ERR (2055,NPXNMT,<Does not match token>)
.ERR (2056,NPXNMD,<Does not match directory or user name>)
.ERR (2057,NPXCMA,<Comma not given>)
.ERR (2060,GJFX45,<Illegal to request multiple specifications for the same attribute>)
.ERR (2061,GJFX46,<Attribute value is required>)
.ERR (2062,GJFX47,<Attribute does not take a value>)
.ERR (2063,MSTX34,<Unit is write-locked>)
.ERR (2064,GJFX48,<GTJFN input buffer is empty>)
.ERR (2065,GJFX49,<Invalid attribute for this device>)
.ERR (2077,SJBX7,<Remark exceeds 39 characters>)
.ERR (2100,DELF10,<Directory still contains subdirectory>)
.ERR (2101,CRDI13,<Request exceeds superior directory working quota>)
.ERR (2102,CRDI14,<Request exceeds superior directory permanent quota>)
.ERR (2103,CRDI15,<Request exceeds superior directory subdirectory quota>)
.ERR (2104,CRDI16,<Invalid user group>)
.ERR (2105,ENACX1,<Account validation data base file not completely closed>)
.ERR (2106,ENACX2,<Cannot get a JFN for <SYSTEM>ACCOUNTS-TABLE.BIN>)
.ERR (2107,ENACX3,<Account validation data base file too long>)
.ERR (2110,ENACX4,<Cannot get an OFN for <SYSTEM>ACCOUNTS-TABLE.BIN>)
.ERR (2111,VACCX0,<Invalid account>)
.ERR (2112,VACCX1,<Account string exceeds 39 characters>)
.ERR (2113,USGX01,<Invalid USAGE entry type code>)
.ERR (2114,BOTX04,<Byte count is not positive>)
.ERR (2115,NODX01,<Node name exceeds 6 characters>)
.ERR (2116,USGX02,<Item not found in argument list>)
.ERR (2117,CRDI17,<Illegal to create non-files-only subdirectory under files-only directory>)
.ERR (2120,ENQX23,<Mismatched mask block lengths>)
.ERR (2121,ENQX22,<Invalid mask block length>)
.ERR (2122,DCNX2,<Interrupt message must be read first>)
.ERR (2123,ABRKX1,<Address break not available on this system>)
.ERR (2124,USGX03,<Default item not allowed>)
.ERR (2125,IPCF35,<Invalid IPCF quota>)
.ERR (2126,VACCX2,<Account has expired>)
.ERR (2127,CRDI18,<Illegal to delete logged-in directory>)
.ERR (2130,CRDI19,<Illegal to delete connected directory>)
.ERR (2132,BOTX05,<Protocol initialization failed>)
.ERR (2133,CRDI20,<WHEEL, OPERATOR, or requested capability required>)
.ERR (2134,COMX18,<Invalid character in node name>)
.ERR (2135,COMX19,<Too many characters in node name>)
.ERR (2136,CRDI21,<Working space insufficient for current allocation>)
.ERR (2137,ACESX7,<Directory is "files-only" and cannot be accessed>)
.ERR (2140,CRDI22,<Subdirectory quota insufficient for existing subdirectories>)
.ERR (2141,CRDI23,<Superior directory does not exist>)
.ERR (2142,STRX07,<Invalid user number>)
.ERR (2143,STRX08,<Invalid user name>)
.ERR (2144,CRDI24,<Invalid subdirectory quota>)
.ERR (2146,ATSX01,<Invalid mode>)
.ERR (2147,ATSX02,<Illegal to declare mode twice>)
.ERR (2150,ATSX03,<Illegal to declare mode after acquiring terminal>)
.ERR (2151,ATSX04,<Invalid event code>)
.ERR (2152,ATSX05,<Invalid function code for channel assignment>)
.ERR (2153,ATSX06,<JFN is not an ATS JFN>)
.ERR (2154,ATSX07,<Table length too small>)
.ERR (2155,ATSX08,<Table lengths must be the same>)
.ERR (2156,ATSX09,<Table length too large>)
.ERR (2157,ATSX10,<Maximum applications terminals for system already assigned>)
.ERR (2160,ATSX11,<Byte count is too large>)
.ERR (2161,ATSX12,<Terminal not assigned to this JFN>)
.ERR (2162,ATSX13,<Terminal is XOFF'd>)
.err (2163,ATSX14,<Terminal has been released>)
.ERR (2164,ATSX15,<Terminal identifier is not assigned>)
.ERR (2165,PMCLX4,<No more error information>)
.ERR (2166,ATSX16,<Invalid Host Terminal Number>)
.ERR (2167,ATSX17,<Output failed -- monitor internal error>)
.ERR (2170,FRKHX8,<Illegal to manipulate an execute-only process>)
.ERR (2171,ARGX20,<Invalid arithmetic trap argument>)
.ERR (2172,ARGX21,<Invalid LUUO trap argument>)
.ERR (2173,ARGX22,<Invalid flags>)
.ERR (2174,ATSX18,<ATS input message too long for internal buffers>)
.ERR (2175,ATSX19,<Monitor internal error - ATS input message truncated>)
.ERR (2176,ATSX20,<Illegal to close JFN with terminal assigned>)
.ERR (2177,ARGX23,<Invalid section number>)
.ERR (2200,ARGX24,<Invalid count>)
.ERR (2201,MSTX35,<Too many units in structure>)
.ERR (2202,DCNX13,<Node not accessible>)
.ERR (2203,DCNX14,<Previous interrupt message outstanding>)
.ERR (2204,DCNX15,<No interrupt message available>)
.ERR (2205,GJFX50,<Invalid argument for attribute>)
.ERR (2206,KDPX01,<KMC11 not running>)
.ERR (2207,NODX02,<Line not turned off>)
.ERR (2210,NODX03,<Another line already looped>)
.ERR (2211,GJFX51,<Byte count too small>)
.ERR (2212,COMX20,<Invalid node name>)
.ERR (2213,ATSX21,<Maximum applications terminals for job already assigned>)
.ERR (2214,ATSX22,<Failed to acquire applications terminal>)
.ERR (2215,ATSX23,<Invalid device name>)
.ERR (2216,ATSX24,<Invalid server name>)
.ERR (2217,ATSX25,<Terminal is already released>)
.ERR (2220,GOKER1,<Illegal function>)
.ERR (2221,GOKER2,<Request denied by Access Control Facility>)
.ERR (2222,STRX09,<Prior structure mount required>)
.ERR (2223,MSTX36,<Illegal while JFNs assigned>)
.ERR (2224,MSTX37,<Illegal while connected to structure>)
.ERR (2225,MSTX40,<Invalid PSI channel number given>)
.ERR (2226,ATSX26,<Invalid host name>)
.ERR (2227,IOX13,<Invalid segment type>)
.ERR (2230,IOX14,<Invalid segment size>)
.ERR (2231,IOX15,<Illegal tape format for dump mode>)
.ERR (2232,IOX16,<Density specified does not match tape density>)
.ERR (2233,IOX17,<Invalid tape label>)
.ERR (2234,IOX20,<Illegal tape record size>)
.ERR (2235,IOX21,<Tape HDR1 missing>)
.ERR (2236,IOX22,<Invalid tape HDR1 sequence number>)
.ERR (2237,IOX23,<Tape label read error>)
.ERR (2240,IOX24,<Logical end of tape encountered>)
.ERR (2241,IOX25,<Invalid tape format>)
.ERR (2242,SWJFX2,<Illegal to swap ATS JFN>)
.ERR (2243,IOX26,<Tape write date has not expired>)
.ERR (2244,IOX27,<Tape is domestic and HDR2 is missing>)
.ERR (2245,IOX30,<Tape has invalid access character>)
.ERR (2246,ARGX25,<Invalid class>)
.ERR (2247,SKDX1,<Cannot change class>)
.ERR (2250,MREQX1,<Request canceled by user>)
.ERR (2251,MREQX2,<Labeled tapes not permitted on 7-track drives>)
.ERR (2252,MREQX3,<Unknown density specified>)
.ERR (2253,MREQX4,<Unknown drive type specified>)
.ERR (2254,MREQX5,<Unknown label type specified>)
.ERR (2255,MREQX6,<Set name illegal or not specified>)
.ERR (2256,MREQX7,<Illegal starting-volume specification>)
.ERR (2257,MREQX8,<Attempt to switch to volume outside set>)
.ERR (2260,MREQX9,<Illegal volume identifier specified>)
.ERR (2261,MREQ10,<Density mismatch between request and volume>)
.ERR (2262,MREQ11,<Drive type mismatch between request and volume>)
.ERR (2263,MREQ12,<Label type mismatch between request and volume>)
.ERR (2264,MREQ13,<Structural error in mount message>)
.ERR (2265,MREQ14,<Setname mismatch between request and volume>)
.ERR (2266,MREQ15,<Mount refused by operator>)
.ERR (2267,MREQ16,<Volume identifiers not supplied by operator>)
.ERR (2270,MREQ17,<Volume-identifier list missing>)
.ERR (2271,MREQ18,<End of volume-identifier list reached while reading>)
.ERR (2272,MREQ19,<Requested tape drive type not available to system>)
.ERR (2273,MREQ20,<Structural error in mount entry>)
.ERR (2274,MREQ21,<Mount requested for unknown device type>)
.ERR (2275,DEVX6,<Job has open JFN on device>)
.ERR (2276,ATSX27,<Terminal is not open>)
.ERR (2277,ATSX28,<Unknown error received>)
.ERR (2300,ATSX29,<Receive error threshold exceeded>)
.ERR (2301,ATSX30,<Reply threshold exceeded>)
.ERR (2302,ATSX31,<NAK threshold exceeded>)
.ERR (2303,ATSX32,<Terminal protocol error>)
.ERR (2304,ATSX33,<Intervention required at terminal>)
.ERR (2305,ATSX34,<Powerfail>)
.ERR (2306,ATSX35,<Data pipe was disconnected>)
.ERR (2307,ATSX36,<Dialup terminal was attached>)
.ERR (2310,DATEX7,<Julian day is out of range>)
.ERR (2311,MREQ22,<Structure name not specified>)
.ERR (2312,ARCFX2,<File already has archive status>)
.ERR (2313,ARCFX3,<Cannot perform ARCF functions on nonmultiple directory devices>)
.ERR (2314,ARCFX4,<File is not on line>)
.ERR (2315,ARCFX5,<Files not on the same device or structure>)
.ERR (2316,ARCFX6,<File does not have archive status>)
.ERR (2317,ARCFX7,<Invalid parameter>)
.ERR (2320,ARCFX8,<Archive not complete>)
.ERR (2321,ARCFX9,<File not off line>)
.ERR (2322,ARCX10,<Archive prohibited>)
.ERR (2323,ARCX11,<Archive requested, modification prohibited>)
.ERR (2324,ARCX12,<Archive requested, delete prohibited>)
.ERR (2325,ARCX13,<Archive system request not completed>)
.ERR (2326,OPNX30,<File has archive status, modification is prohibited>)
.ERR (2327,OPNX31,<File is off line>)
.ERR (2330,DELX11,<File has archive status, delete is not permitted>)
.ERR (2331,DELX12,<File has no pointer to offline storage>)
.ERR (2332,ARCX14,<File restore failed>)
.ERR (2333,ARCX15,<Migration prohibited>)
.ERR (2334,ARCX16,<Cannot exempt off-line file>)
.ERR (2335,ARCX17,<FDB incorrect format for ARCF JSYS>)
.ERR (2336,ARCX18,<Retrieval request cannot be fulfilled for waiting process>)
.ERR (2337,ARCX19,<Migration already pending>)
.ERR (2340,ARGX26,<File is off line>)
.ERR (2341,ARGX27,<Off line expiration time cannot exceed system maximum>)
.ERR (2342,DIRX5,<Directory too large>)
.ERR (2343,IOX31,<Invalid record descriptor in labeled tape>)
.ERR (2344,MREQ23,<Dismount refused by operator>)
.ERR (2345,MREQ24,<Illegal to dismount connected structure>)
.ERR (2346,MREQ25,<Structure not found>)
.ERR (2347,LTLBLX,<Too many user labels>)
.ERR (2350,LTLBX1,<Undefined record format on non-TOPS20 tape>)
.ERR (2351,MREQ26,<Tape mounting function disabled by installation>)
.ERR (2352,METRX1,<METER% not supported on this processor>)
.ERR (2353,NSPX00,<Reject or disconnect by object>)
.ERR (2354,NSPX01,<Resource allocation failure>)
.ERR (2355,NSPX02,<Destination node does not exist>)
.ERR (2356,NSPX03,<Remote node shutting down>)
.ERR (2357,NSPX04,<Destination process does not exist>)
.ERR (2360,NSPX05,<Invalid process name field>)
.ERR (2361,NSPX06,<Object is busy>)
.ERR (2362,NSPX07,<Unspecified error>)
.ERR (2363,NSPX08,<Abort by management>)
.ERR (2364,NSPX09,<Abort by object>)
.ERR (2365,NSPX10,<Flow control violation>)
.ERR (2366,NSPX11,<Too many connections to node>)
.ERR (2367,NSPX12,<Too many connections to destination process>)
.ERR (2370,NSPX13,<Access not permitted>)
.ERR (2371,NSPX14,<Logical link services mismatch>)
.ERR (2372,NSPX15,<Invalid account>)
.ERR (2373,NSPX16,<SEGSIZE too small>)
.ERR (2374,NSPX17,<No response from destination process>)
.ERR (2375,NSPX18,<Node unreachable>)
.ERR (2376,NSPX19,<Link aborted due to data loss>)
.ERR (2377,NSPX20,<Destination process does not exist>)
.ERR (2400,NSPX21,<Confirmation of DI>)
.ERR (2401,NSPX22,<Image data field too long>)
.ERR (2402,MREQ27,<Structure is set IGNORED>)
.ERR (2403,MREQ28,<Cannot overwrite volume - first file is not expired>)
.ERR (2404,MREQ29,<Cannot overwrite volume - write access required>)
.ERR (2405,MREQ30,<Tape label format error>)
.ERR (2406,DIAG11,<Unit already online>)
.ERR (2407,DIAG12,<Unit not online>)
.ERR (2410,DESX11,<Invalid operation for this label type>)
.ERR (2411,NSPX23,<Invalid NSP reason code>)
.ERR (2412,ARGX28,<not available on this system>)
.ERR (2413,NPX2CL,<Two colons required on node name>)
.ERR (2414,ARGX29,<Invalid class share>)
.ERR (2415,ARGX30,<Invalid KNOB value>)
.ERR (2416,ARGX31,<Class Scheduler already enabled>)
.ERR (2417,DEVX7,<Null device name given>)
.ERR (2420,GJFX52,<End of tape encountered while searching for file>)
.ERR (2421,GOKER3,<JSYS not executed within ACJ fork>)
.ERR (2422,IOX32,<Tape position is indeterminate>)
.ERR (2423,IOX33,<TTY input buffer full>)
.ERR (2424,XSIRX1,<Channel table crosses section boundary>)
.ERR (2425,SIRX2,<SIR JSYS invoked from non-zero section>)
.ERR (2426,RIRX1,<RIR JSYS incompatible with previous XSIR>)
.ERR (2427,XSIRX2,<Level table crosses section boundary>)
.ERR (2430,MREQ31,<Insufficient MOUNTR resources>)
.ERR (2431,SMAPX1,<Attempt to delete a section still shared>)
.ERR (2432,TTMSX1,<Could not send message within timeout interval>)
.ERR (2433,MONX06,<Insufficient system resources (No swappable free space)>)
.ERR (2434,BOTX06,<GTJFN failed for dump file>)
.ERR (2435,BOTX07,<OPENF failed for dump file>)
.ERR (2436,BOTX08,<Dump failed>)
.ERR (2437,BOTX09,<To -10 error on dump>)
.ERR (2440,BOTX10,<To -11 error on dump>)
.ERR (2441,BOTX11,<Failed to assign page on dump>)
.ERR (2442,BOTX12,<Reload failed>)
.ERR (2443,BOTX13,<-11 didn't power down>)
.ERR (2444,BOTX14,<-11 didn't power up>)
.ERR (2445,BOTX15,<ROM did not ACK the -10>)
.ERR (2446,BOTX16,<-11 boot program did not make it to -11>)
.ERR (2447,BOTX17,<-11 took more than 1 minute to reload. Will cause retry>)
.ERR (2450,BOTX18,<Unknown BOOT error>)
.ERR (2451,NTMX1,<Network Management unable to complete request>)
.ERR (2452,COMX21,<Node name doesn't contain an alphabetic character>)
.ERR (2453,DELX13,<File is marked "Never Delete">)
.ERR (2454,ANTX01,<No more network terminals available>)
.ERR (2455,TTYX02,<Illegal character specified>)
.ERR (2456,NSPX24,<Node name not assigned to a network node>)
.ERR (2457,NSPX25,<Illegal DECnet node number>)
.ERR (2460,NSPX26,<Table of topology watchers is full>)
.ERR (2461,GJFX53,<Tape label filename specification exceeds 17 characters>)
.ERR (2462,IOX34,<Disk structure completely full>)
.ERR (2463,IOX35,<Disk structure damaged, cannot allocate space>)
.ERR (2464,PMAPX8,<Indirect page map loop detected>)
.ERR (2465,SMAPX2,<Indirect section map loop detected>)
.ERR (2466,GJFX54,<Node name not first field in filespec>)
.ERR (2467,BOTX19,<Overdue To-11 transfer aborted>)
.ERR (2470,BOTX20,<Overdue To-10 transfer aborted>)
.ERR (2471,ILLX05,<Illegal memory reference, section greater than 37>)
.ERR (2472,XSEVX1,<Illegal entry vector type>)
.ERR (2473,XSEVX2,<Invalid entry vector length>)
.ERR (2474,XSEVX3,<Cannot get extended values with this monitor call>)
.ERR (2475,ABRKX2,<Address break facility is in use for system debugging>)
.ERR (2476,ABRKX3,<Use .ABRRG function to read break conditions>)
.ERR (2477,ABRKX4,<AB%SEC is invalid on this processor>)
.ERR (2500,ABRKX5,<Lower and upper bounds must be equal on this processor>)
.ERR (2501,DAPX0,<Illegal DAP% function code>)
.ERR (2502,DAPX1,<Nested ACLREPs in formatting table not allowed>)
.ERR (2503,DAPX2,<Parse error, fixed length field has wrong length>)
.ERR (2504,DAPX3,<Parse error, expecting more bytes>)
.ERR (2505,DAPX4,<Message byte length was too long for this link>)
.ERR (2506,DAPX5,<Parse error, variable length field was too long>)
.ERR (2507,DAPX6,<Parse error, bit mask was too long>)
.ERR (2510,DAPX7,<Illegal DAP% message type>)
.ERR (2511,DAPX8,<Protocol error on receive, LEN256 field without LENGTH field>)
.ERR (2512,DAPX9,<Parse error on receive, extra bytes at end of message>)
.ERR (2513,DAPX10,<LENGTH or LEN256 field present in message block>)
.ERR (2514,DAPX11,<Protocol error on receive, DAP length exceeds DECnet length>)
.ERR (2515,DAPX12,<Message type is not DATA, yet there is a BITCNT field>)
.ERR (2516,DAPX13,<Field following ACLREP is not VALUE1 or VALUE2>)
.ERR (2517,DAPX14,<Invalid link handle>)
.ERR (2520,DAPX15,<Transmission in progress, AC2 has retry message block addr>)
.ERR (2521,DAPX16,<CONTINUE TRANSFER message cannot be sent as normal message>)
.ERR (2522,DAPX17,<Only CONTINUE TRANSFER messages can be sent as interrupt>)
.ERR (2523,DAPX18,<Interrupt messages cannot be sent blocked>)
.ERR (2524,DAPX19,<There is already an interrupt transmission is progress>)
.ERR (2525,DAPX20,<Receive in progress>)
.ERR (2526,DAPX21,<There is no interrupt message available>)
.ERR (2527,DAPX22,<Illegal function for passive link>)
.ERR (2530,DAPX23,<Illegal function for active link>)
.ERR (2531,DAPX24,<There is no message available>)
.ERR (2532,DAPX25,<Protocol error on receive, message was too long>)
.ERR (2533,DAPX26,<Too many message blocks chained together>)
.ERR (2534,DAPX27,<Illegal function for this state>)
.ERR (2535,DAPX28,<Feature not supported by remote server>)
.ERR (2536,DAPX29,<Protocol error on receive - wrong message type>)
.ERR (2537,DAPX30,<No alias for this node>)
.ERR (2540,CRDI25,<Maximum number of remote aliases exceeded>)
.ERR (2541,CRDI26,<CRDIR block does not include password encryption version>)
.ERR (2542,CRDI27,<Attempt to use encrypted password on unencrypted structure>)
.ERR (2543,TTYX03,<Line is temporarily active>)
.ERR (2544,CRDI28,<Invalid password encryption version number>)
.ERR (2545,NSPX27,<Local node shut>)
.ERR (2546,GJFX55,<Illegal to use node name>)
.ERR (2547,KLPX1,<No BHDs available>)
.ERR (2550,KLPX2,<No BSDs available>)
.ERR (2551,KLPX3,<No datagrams buffers available>)
.ERR (2552,KLPX4,<No message buffers available>)
.ERR (2553,MONX07,<Insufficient system resources (no DECnet free space)>)
.ERR (2554,DCNX16,<Illegal operation for current link state>)
.ERR (2555,NSJX01,<WHEEL or OPERATOR capability required>)
.ERR (2556,NSJX02,<Allocation failure>)
.ERR (2557,NSJX03,<Wrong number of arguments>)
.ERR (2560,NSJX04,<Illegal function>)
.ERR (2561,NSJX05,<Connect block length error>)
.ERR (2562,NSJX06,<Address Error>)
.ERR (2563,NSJX07,<Argument Block Format Error>)
.ERR (2564,NSJX08,<Process block length error>)
.ERR (2565,NSJX09,<Bad format type in process block>)
.ERR (2566,SCSBFC,<Function code out of range>)
.ERR (2567,SCSBTS,<Argument block too short>)
.ERR (2570,SCSIAB,<Invalid argument block address>)
.ERR (2571,SCSAAB,<Error accessing argument block>)
.ERR (2572,SCSNSN,<No source process name specified on connection request>)
.ERR (2573,SCSNEP,<Not enough privileges enabled>)
.ERR (2574,SCSNSC,<No such connect ID>)
.ERR (2575,SCSDCB,<Datagram send text crosses a page boundry>)
.ERR (2576,NODX04,<No local node name defined>)
.ERR (2577,NODX05,<Function no longer supported>)
.ERR (2600,NODX06,<Resource allocation failure>)
.ERR (2601,SCSNRT,<No room in table for address entry>)
.ERR (2602,SCAPTL,<Message to long>)
.ERR (2603,SCSIID,<Invalid connect ID>)
.ERR (2604,SCSNPA,<No packet address>)
.ERR (2605,SCSNBA,<Internal resources exhausted (No more SCA buffers)>)
.ERR (2606,SCSZLP,<Zero length packet text>)
.ERR (2607,SCSSCP,<DMA segment crosses a page boundry>)
.ERR (2610,SCSNSD,<No such DMA buffer name>)
.ERR (2611,SCSDTL,<DMA buffer to long>)
.ERR (2612,SCSUPC,<Unknown PSI code>)
.ERR (2613,SCSQIE,<Queue is empty>)
.ERR (2614,DIAG13,<Datagram buffer not available>)
.ERR (2615,MSTX45,<Mount attribute change denied by CFS-20>)
.ERR (2616,MSTX46,<Illegal to specify mount attribute>)
.ERR (2617,SCSNDQ,<No buffers queued for datagram reception>)
.ERR (2620,SCSNMQ,<No buffers queued for message reception>)
.ERR (2621,SCSISB,<Invalid node number>)
.ERR (2622,SCSNSH,<Not enough room for SCA headers>)
.ERR (2623,SCSIAA,<Invalid address in arguments>)
.ERR (2624,SCSIBP,<Invalid byte pointer>)
.ERR (2645,SCSNDQ,<No datagram buffers queued>)
.ERR (2646,SCSJBD,<No user address found for sent packet>)
.ERR (2647,NODX07,<Argument block not long enough>)
.ERR (2650,NODX10,<Channel number out of range>)
.ERR (2651,NODX11,<Job number out of range>)
.ERR (2652,SCLX01,<No connect data to read>)
.ERR (2653,SCLX02,<Percentage input out of bounds>)
.ERR (2654,SCLX03,<Function called in wrong state>)
.ERR (2655,SCLX04,<Unexpected state - disconnect sent>)
.ERR (2656,SCLX05,<Unexpected state - disconnect confirmed>)
.ERR (2657,SCLX06,<Unexpected state - no confidence>)
.ERR (2660,SCLX07,<Unexpected state - no link>)
.ERR (2661,SCLX08,<Unexpected state - no communication>)
.ERR (2662,SCLX09,<Unexpected state - no resources>)
.ERR (2663,SCLX10,<Unrecognized object>)
.ERR (2664,SCLX11,<Object too busy>)
.ERR (2665,SCLX12,<Disconnect complete>)
.ERR (2666,SCLX13,<Image field too long>)
.ERR (2667,SCLX14,<Unspecified reject reason>)
.ERR (2670,SCLX15,<Bad combination of SAEOM & SAWAI flags>)
.ERR (2671,SCLX16,<Address error in user argument>)
.ERR (2672,SCLX17,<Illegal message format detected>)
.ERR (2673,SCLX18,<Unexpected state - connect wait>)
.ERR (2674,SCLX19,<Unexpected state - connect received>)
.ERR (2675,SCLX20,<Unexpected state - connect sent>)
.ERR (2676,SCLX21,<Unexpected state - reject>)
.ERR (2677,SCLX22,<Unexpected state - run>)
.ERR (2700,NODX12,<Bad table designator>)
.ERR (2701,NODX13,<Bad 1st argument>)
.ERR (2702,NODX14,<Bad 2nd argument>)
.ERR (2703,NODX15,<No such table>)
.ERR (2704,SCSENB,<Excessive number of buffers in queue request>)
.ERR (2705,DIAG14,<Port doesn't exist or is not a CI port>)
.ERR (2706,DIAG15,<CI counters not available>)
.ERR (2707,DIAG16,<Fork doesn't own CI counters>)
.ERR (2710,SCSSTL,<DMA buffer segment to long>)
.ERR (2711,SCSTMS,<Too many DMA buffer segments>)
.ERR (2712,DIAG17,<CI chan is not enabled>)
.ERR (2713,DIAG20,<Diagnostic owns the channel>)
.ERR (2714,SCSCWS,<Connection in incorrect state for function>)
.ERR (2715,SCSNEC,<Not enough credit>)
.ERR (2716,SCSBAS,<Internal error, bad argument to subroutine>)
.ERR (2717,SCSNSB,<No such buffer>)
.ERR (2720,SCSNEB,<Insufficient buffers to fill request>)
.ERR (2721,SCSNKP,<No known KLIPA on this system>)
.ERR (2722,SCSIPC,<PSI channel out of range>)
.ERR (2723,SCSIPS,<Invalid path spec>)
.ERR (2724,SCSIFL,<Invalid forward link in buffer chain>)
.ERR (2725,SCSIST,<Invalid SCS% interrupt type>)
.ERR (2726,SCSIDM,<Invalid DMA transmission mode>)
.ERR (2727,KLPX5,<KLIPA is not enabled>)
.ERR (2730,KLPX6,<KLIPA is in maintenance mode>)
.ERR (2731,KLPX7,<No KLIPA on system>)
.ERR (2732,KLPX8,<Packet is bad>)
.ERR (2733,KLPX9,<No virtual circuit>)
.ERR (2734,KLPX10,<Don't know our CI node number>)
.ERR (2735,KLPX11,<Queue is empty>)
.ERR (2736,CFGBFC,<Function code out of range>)
.ERR (2737,CFGBTS,<Argument block too short>)
.ERR (2740,CFGIAB,<Invalid argument block address>)
.ERR (2741,CFGAAB,<Error accessing argument block>)
.ERR (2742,CFGINA,<Information not available for this function>)
.ERR (2743,TTMSX2,<User is refusing messages and/or links>)
.ERR (2744,XPEK01,<Illegal system fork number specified>)
.ERR (2745,XPEK02,<Unassigned system fork number specified>)
.ERR (2746,KLPX12,<Virtual circuit is not closed>)
.ERR (2747,XPEK03,<Word count not positive>)
.ERR (2750,XPEK04,<Word count too large.  Can not cross section boundaries>)
.ERR (2751,NTMX2,<Event resource already in use>)
.ERR (2752,KLPX13,<Named Buffer transfer error>)
.ERR (2753,MTOX21,<Illegal two character escape sequence>)
.ERR (2754,KLPX14,<Timed out waiting for KLIPA disable to complete>)
.ERR (2755,KLPX15,<Timed out waiting for KLIPA enable to complete>)
.ERR (2756,NODX16,<DECnet has already initialized>)
.ERR (2757,DKOP01,<Illegal disk address>)
.ERR (2760,DKOP02,<Transfer too large>)
.ERR (2761,DKOP03,<Invalid unit specified>)
.ERR (2762,DKOP04,<Illegal address specified>)
.ERR (2763,DKOP05,<Size not sector size>)
.ERR (2764,SCSIBN,<Invalid buffer name>)
.ERR (2765,NTMX3,<DECnet is not initialized>)
.ERR (2766,NODX17,<Illegal parameter value>)
.ERR (2767,DIAG20,<DIAG% Illegal for Dual Ported Disks>)

.ERR (3033,MSTX43,<Illegal to dismount structure during initialization>)

; DEC TCP JSYS Interface Errors

.ERR (3400,TCPXX1,<No IP free space for TCB>)
.ERR (3401,TCPXX2,<Unable to decode local side TCP of specification>)
.ERR (3402,TCPXX3,<Unable to decode foreign side TCP of specification>)
.ERR (3403,TCPXX4,<Generation found in TCP specification>)
.ERR (3404,TCPXX5,<TCP specification atrribute not known to TCP>)
.ERR (3405,TCPXX6,<Unable to decode CONNECTION attribute in TCP specification>)
.ERR (3406,TCPXX7,<Unable to decode FOREIGN-HOST attribute in TCP specification>)
.ERR (3407,TCPXX8,<Unable to decode LOCAL-HOST attribute in TCP specification>)
.ERR (3410,TCPXX9,<Unable to decode PERSIST attribute in TCP specification>)
.ERR (3411,TCPX10,<Unable to decode TIMEOUT attribute in TCP specification>)
.ERR (3412,TCPX11,<Unable to decode TYPE-OF-SERVICE  attribute in TCP specification>)
.ERR (3413,TCPX12,<Unable to decode SECURITY attribute in TCP specification>)
.ERR (3414,TCPX13,<Unable to decode COMPARTMENTS attribute in TCP specification>)
.ERR (3415,TCPX14,<Unable to decode HANDLING-RESTRICTIONS attribute in TCP specification>)
.ERR (3416,TCPX15,<Unable to decode TRANSMISSION-CONTROL attribute in TCP specification>)
.ERR (3417,TCPX16,<TCP not initialized and available>)
.ERR (3420,TCPX17,<Illegal IO mode for TCP device>)
.ERR (3421,TCPX18,<Illegal byte size for TCP device>)
.ERR (3422,TCPX19,<TCP connection allready exists>)
.ERR (3423,TCPX20,<Maximum TCP connections exceeded>)
.ERR (3424,TCPX21,<Wheel, Operator, or Network Wizard needed for special TCOPR function>)
.ERR (3425,TCPX22,<Invalid TCOPR function requested>)
.ERR (3426,TCPX23,<Invalid IPOPR function requested>)
.ERR (3427,TCPX24,<Wheel, Operator, or Network Wizard needed for special IPOPR function>)
.ERR (3430,TCPX25,<Open failure>)
.ERR (3431,TCPX26,<Illegal Persist parameters>)
.ERR (3432,TCPX27,<Illegal TCOPR Function on an OPEN TCP JFN>)
.ERR (3433,TCPX28,<Invalid BBN TCP JSYS call>)
.ERR (3434,TCPX29,<Assigned JFN too large for TCPJFN>)
.ERR (3435,TCPX30,<Illegal TCP IO mode>)
.ERR (3436,TCPX31,<Connection error or connection rejected>)
.ERR (3437,TCPX32,<Retranmission timeout>)
.ERR (3440,TCPX33,<Connection closed or closing>)
.ERR (3441,TCPX34,<TCOPR Argument>)
.ERR (3442,TCPX35,<Illegal to reopen a TCP JFN>)
.ERR (3443,TCPX36,<Illegal TCOPR Function on an UNOPEN TCP JFN>)
.ERR (3444,TCPX37,<No free space for buffer>)
.ERR (3445,TCPX40,<TCOPR Function not yet implemented>)
.ERR (3446,TCPX41,<TCOPR DEC interrupt channels not off>)
.ERR (3447,TCPX42,<TCOPR Invalid TCB offset>)
.ERR (3450,TCPX43,<TCOPR Invalid argument block>)
.ERR (3451,IPHCHK,<Computed GHT checksum does not match>)
.ERR (3452,IPHCNT,<GHT entry count argument is not correct>)
.ERR (3453,IPHNSP,<Insufficient system resources (No free space for GHT)>)
.ERR (3454,IPHEMX,<Exceeded maximum number of GHT entries>)
.ERR (3455,IPHSEQ,<GHT Internet host numbers not in ascending order>)
.ERR (3456,IPFLAD,<Local Internet host number not in GHT>)
.ERR (3457,ARPNSP,<Insufficient system resources (No space for ARP buffers>)
.ERR (3460,IPARP1,<Cannot start ARP until TCPNI service is running>)
.ERR (3461,TCPX44,<Monitor does not support TCP over Ethernet>)

;6.0 Error codes for LLMOP% 

.ERR (4000,LLMX01,<Transmit Datagram Failed>) ;6.0
.ERR (4001,LLMX02,<LLMOP State is OFF>)	;6.0
.ERR (4002,LLMX03,<Invalid byte pointer>) ;6.0
.ERR (4003,LLMX04,<Nonexistent Request Number>) ;6.0
.ERR (4004,LLMX05,<Invalid KLNI channel specified>) ;6.0
.ERR (4005,LLMX06,<Configurator interrupts assigned to another process>) ;6.0
.ERR (4777,LLMX99,<LLMOP Internal Error>) ;6.0 Catch All

.ERR (5000,IPCF36,<PID not assigned on this LCS processor>)
.ERR (5001,MSTX44,<Mount type refused by other CFS processor>)

;6.0 Error codes for LATOP%

.ERR (5010,LATX01,<Buffer size too small for available data>)
.ERR (5011,LATX02,<LAT parameter value out of range>)
.ERR (5012,LATX03,<LAT is not operational>)
.ERR (5013,LATX04,<Invalid or unknown LAT server name>)
.ERR (5014,LATX05,<Invalid LAT parameter>)
.ERR (5015,LATX06,<Invalid LAT parameter value>)
.ERR (5016,LATX07,<Invalid or unknown LAT service name>)
.ERR (5017,LATX08,<Insufficient LAT Resources>)
.ERR (5020,LATX09,<LAT Host name already set>)
IFN STANSW,<
.ERR (5400,GTWAX1,<Invalid function code>)
.ERR (5401,GTWAX2,<Invalid argument block length>)
IFN PUPSW,<
.ERR (5402,PUPX1,<Block size error>)
.ERR (5403,PUPX2,<PUP address error>)
.ERR (5404,PUPX4,<JFN open for sequential I/O only>)
.ERR (5405,PUPX5,<Checksum incorrect>)
.ERR (5406,PUPX6,<Bad destination network>)
.ERR (5407,PUPX7,<Source address incorrect>)
.ERR (5410,PUPX8,<JFN does not refer to device PUP:>)
.ERR (5411,PUPNX1,<Name or address not found>)
.ERR (5412,PUPNX2,<Recognition invoked and name ambiguous>)
.ERR (5413,PUPNX3,<Syntax error or illegal address>)
.ERR (5414,PUPNX4,<Inconsistent values in name expression>)
.ERR (5415,PUPNX5,<Syntax error in attribute name string>)
.ERR (5416,PUPNX6,<Attribute name not found>)
.ERR (5417,ATNX16,<PUP JFN does not refer to BSP port>)
.ERR (5420,ATNX17,<PUP connection not open>)
.ERR (5421,PUPX20,<Network number out of range>)
.ERR (5422,PUPX21,<Destination host is inaccessible>)
.ERR (5423,PUPX22,<Invalid wildcard or multiple destination>)
.ERR (5424,PUPX23,<Broadcast packets not permitted>)
.ERR (5425,PUPX24,<Invalid source socket>)
.ERR (5426,PUPX25,<Invalid source host>)
.ERR (5427,PUPX26,<Invalid source net>)
.ERR (5430,ETHRX1,<PUP network service not available>)
.ERR (5431,PUPNX7,<Unable to contact name lookup server>)
.ERR (5432,PUPX3,<Operation not possible now>)
>;IFN PUPSW
>;IFN STANSW