Google
 

Trailing-Edge - PDP-10 Archives - klad_sources - klad.sources/subkl.sav
There are no other files named subkl.sav in the archive.
p'1@x-x1x/`+0++ +`++
++*[pgV-+++++++++   @0
    @0O@01- 0+0@@0@@0@@0+0+0
DECSYSTEM DIAGNOSTIC KL10 SUBROUTINE'S
@-@a`@@07@0@@06@0+1pp@@
 @0 
 @0! 0a  0!,>,>,.6@0,3,9,v,
N,	M,d,U,{6@0,q,lO@0@@0'@@0+
@@0O@06@0+/  0 @06@0
+0+6@0
&

'0
+0 
7@1#l  @@!"H 
7@1#n
.
 @@*b7,~ 
 @ 
,@0@@1&+@1&a~~+Z`^N+Z,>Z1`0a+Z01"+Z[1`?+Z0+Z^(@r0`/ . R+++++g,^,>d
,^v`,^/ v`0Q+@0z6@
+  0!,>h
z6@1'+@1' 2@
+ 
 @0"p
0$p0#d
 
v@@+Z4@
[1@+
Y`@@+~0 +|,> (BtA"(@G)@. h+M/@
w6#08d@Xx]p~rX5x h	S#
"`
	O
A*HT02h`qj8QGpIJ*HHA0\K P*Hg ``+
t+ ``@+
`` +
``+
p~,^,~,~@@,+0,^@(@tA1@+1@+1@+
!+,^,~>`0&++@@0(:0,]Zx/&2F0+(7@
! 0zd
#  ld
$ 0v,6@1&+@1&Z0 0``@+=  
&[4B9x x  
'+:  
'Z 3B
$+=xZxO@0)(@.
( @
([5DE@@0)+MO@0'0d+J1D 
)Z5DO@@0)+WO@0(0d+T1D 
*7@0)+[`0(F0)x -
$+``0Q[x`0QZ,+@0 0af+o,+P7@
+* ? 
,*  G@G@G@ 
,,@1@5 @9 @=,~t7@+@@O@06@+@+
-,^+@@:t 7@+@@ ,~1@+@@4@3@
/+a`+ @  +  + B @  +  +t+1@+!pXpH@@
/+a`+" @
/7@&@@fA6@1"pHghpX,~pX,~:
!*"3B
!+O@0p`@O@1"a@O@1# ``O@06@0,~  S @!p*d_p)p*d 0@+p&
0p"d O`0@+,~,>@@
0*^7@/}+G,/}+DO@
0*z,^,~@@+D  +JO+J@,>7@
0*^,/}+D+Dhh
1,^b0Q6	0+W,]``+W,^+0O@
2 x>lb0Q6@0+,]a`+0O@
4+0,^+/~6 0+wa0
d
5[/|`Z/|d
6[|`Z|p
6!A |d
7(rA |d
8(zA |7@1"d
96@1"d
:`0Q,~,>d
;,^z,~h
<z 
> @ @ @ @ @ @ @ 
> @0" 
? @0+L,^d
?@+  
B+
  
C+
 0#+@0   
E+
 0#+@0p  
F,>bp
H,g,b,^6@xd
J 0$v` 0#v` 0"v`Zxl`0Q 0#+@0z @0#p
0$p0# 2@
++0#+97@0$!
0* h
O@@0p	0$p0#!
0*@+
Q+0 @0"p
0$p0#+   @0"p
0$p0#d
S  v+X @0"p
0$p0#  
W+! Z @ 
X @	 
Y @	  ` @
 @
 @ @ @ @,~p"0$p*0%p+@ 
0*0# @
Y+@,QO@`+
`@+`@+`@+H`@+I`@@+J`@ +K+
  
Z+
  
[+
  
\+
  
^+
M,TN@!,1p3p/p7@0+R 07@1$a` ,pp,~+[ A p0@`+*p+*: +  0$a@`++@ 
@@0'@@0,]``+a,e7@0
+d,~h
N(0zbb0Q:x,~7@0,~1F,,~@v,Sp(6@0+07@,+6@1#,~ 0``,~p,,~[
`p="x,Fp*lp),~ 9xh
azHH
>H
9H
3H
IH
.H
(H
H
#H
H

N.v)"OJr+k^npiL
9;|y[IQK2%|p)K^-y3H
;B.Y:N.pJ.)"HJ(kJn!KX
i8	[IRMR&	@*KR-	0H
;B.Y:Z.@2Lnv)"OJr+k^n~itMJ5;?}[u[%IK2%~)\ms'RJJ;kZn[:bNnpNvi&OZvke]piL:8|y[IQ{?}|qiA^x
H2a	B&I
N&pn)v-2oKr/>ip}l9#|xHK2%|p=J-y34
I2HMR&	@2J-	04
Je	(K2mKeI!KX"h	[IR$I	A
AR
H2a	B&I
Z&@n?vm6o[vop}l?8|xH{?}|q}@x	$A	$I	$pRHn)"HJ(kJn#K[
e;m[6e[%JMR&[6mZ*Tm#%RJJ;kZn[:bZn`2liv-2oKr/>i~}mO???}[}K2%~=|ms'S6M6[6k[.S.mp6OVvi&OZvke]~itMz5{?}[u[%I{?}i_<Irl{g[6m[lO6pp,,~/
!,~,> 
b,>,>,>,>p
A(l@p  
c 
c 
d (+7@+~,^,^,^,^,^,~,D,> 
d+G,D,> 
e+G " $b
epG$@(Ft0F+``DdpX$`X$pA
fGh&`fp`D+[S$b
ep="V,~,>d
f`"+
h="d,^,~,>,>,> " $b
ep&
j4Fm@b
epF
ep="i,^,^,^,~@@03 
j* 0G7@0+  ? 07@1$ab +w+!"x 
k7@1#n
.
 @*by! Z @7@01+ ( < ,5 
k,=<}+!"@ 
l7@1#n
.
 @@*b,   (@@01,+@@/" 0@z @03.$/"1c(+   .(3F=
 @030$+.$ F03=
  @03O@03+O@03h
l+[Dp
3dz2($+,>p*l p),^,~p 2222~p +/p /$ 0$+p/pZ
R90/$ 0$+)92,39),3.",S=,39$ ,z @,~6@0,~ B
n*~,$ l@7@1#l Q. !"@ @@.
*b?+97B01+q 
o0 +a+H 02,5 
k,1c02+[@@@ 
n* /" 5FN 02/" 3hz/.(`Hz(H{.
(F{l@7@1#l <(WF.&+U1C02+YO@
7@01,~,:x,~ d@  034 [3"+[  03.(2"+b7@01+{/. (@{0`   @ @@@@ 
n*  (@{l@7@1#l <&Y@. +o0 +y0 +[ (B 034 [ 034D[5@w 023dz 
Q
+[0`~+[+a 
Q
+[4@q0+y+[B
o*#+@ 022 03+
@034`.+*!03.$+	3:x@6 0+6@0+[00@+7@0O4H d
p0Dd
s`0Q@f7 03+-4H% 03p 03p` 03. /03& .
4H,z1D++` 03& z`0Q.&+! J02Z(. d @024H31D+3d
u02z`0Q`0Q,~,]a`,~ B
v,
+Vh
x-&G+8 @
z-&G+: @
|-Nh
~-Nb0Qh
~,
+7,B+7 0/0
SX0
+`@+U1`~1f+U1@(+Ul(@:+(Bd 
$(0vb0Qd6@1#+	 0``+	[
`Bd,~,6@+,@
$,0vh
1@+	(@ @
G+	1@)F+	1@,F+	1@'+	+	
@@+	h
+	!S@
+	#P@@	 
 @0+		0@+	  	3,	&+	0@+	 1*4@	,	&+	,>,>,> Q"w $@b0Q 4@	/bb,	?+	*+	0+	<G(D*b	*b0Q ,^,^,^,~C
~-eO$Zi?$]?ma;%LI&tpY>~	9KKKxad\Yee1ic%TS:F3[>$MQS:D<tC96G"
!7@+	<+	*b+	K0@,1@'+	F,~(@@Z0@0J,~@,~  ,A ?4@	P,	qz,~ H
+	f1@+	i0@,~6@1)+@1),	6@1)+@1),~h
,~hh0Q  ,~  ,A  @0L@@5@	w (,~ @0L,v:
0@+	w@@	w 0LA ?0 00`=+	z/  @0M0@+
@@0a` +	~`0Q 0M:x,~1@+a 0a` +	~ 0Mt+	~  	m @,+0  +
,DB
0@,1@'+
+
 (B,	S+
G3B
+
3B
+
+
:x0Q+
,F',F  +
  +
@D@B@@0M@@
,1@+
31@+
51@+
&1@+
&0 +@
/+
,O@1$:+@
0/ .+
+@
2+
,1F+
7"6@0B0M0(B$"(B0d0d0d6@+
,O@
0F+
,O@
+$@@6@
=bB
,(B)@=D
: +
(@@@@$&)@.=D
= +
( B,	S+
L1@+
L1@+
L0 0`-+
L0`0  +
I+
Lh`B+
L@+
C:x@@D @0H@@0K@@0N@@0N@@0O@@0O  0 @*7 0,~6@0,~+eO@0GO@
`O@0G@@
f,]a`@+
`,^+
e:6@+
l@@
@@0G,~,^6@0H+
eO@0H@BA$1D+A4DA1D+H1D+G1D+<1D+?+3,>   )@. t5B
x,^,~,>   )@. t5B
},^,~,>O
+,>@
,>,>,>,>Z &  @)"1D+1D+
,^,^,^,^,^,~,>O
+,>@
,>,>,>,>5$5J4B"O=B5J
b+@@+$O@
bA ? -&T+
bO@)4B
b-&T=DC:
b+BO@-&T",K+
b+0Z)@n(B'0YQBx>4@Q,K[x."-&T,~7@+j6@ C
C 
I2I2I2 8I2 :G2XG2Z YC *YC" NG$I',I' .a3 0a3" 2GH4GI6INX<INZ >I3PI3 RIBTIB VIB0XIB@Ze"\e"^IRhIR lISjIS ni6pi6 ti7ri7 vIOIO!INHINJ!e!0e!2e!4e!6e! 8e!(:e!0<e!8>+a+z
EXEC ONLY
X@ ,<+T}&eI3C0]7}W->M2
|~?Qwx0a|(Q"E}W-pY'@eH?}+y7.[`:xt+z+x+~+}R.=a0Vv@|}BP~}O=Q ~}+y&p`4p}|`}~,RGQP}M0Xh}N8yKAP0 -
~*
~"E}BezV5K{}|-0"++|(Q"E}Bez?4\SY?8
~}6-[yr+z~}:}c2pl[7egx}6-[yrTigx}Vu;Wo8ZKK\~}+y$LRgL)3tp} x
K
sx
Ldy0
wp}B~y9B~y9&vI9eW@C&dY~}B
y MM@e	9e?lOh4X=|Rx}S&.,We|- (- .+0}Ll-9~}$}pC(	PS3x}
:& CJNN?}Ll-9& CJNN?K: 
gLp
GO<Y8RMY7kSwpp2p
=H+Mp4p6>@}6-[yr{Ze>eI9g{xv`0Q+e0003X
tu}?`{O$Z&#u~i?$[m|\,P}DSJ$]TG;rKLgp2 	m&P( ~]8	m&P( ~G"
wkJP|]?X6M@Kc$\Wk;.92J`e$P|MVe@"="= "=@
0Y,ptJkxCxGxKxOx}S'o'$:G>vLWXx  3N _H`GIp ~}2@
{SR	9py}qPe =tiD\`8
|@>xh`- Y,N, <CR> OR ^,^Z - i@Fh`KK|@a
P+yR~H6fh`d|@\d<O4pD"DH
******
EXCEEDED ALLOWED PRINTOUTS
t+
b0Q+t+t+j+(p+*l+-t+.l+0\	x000gV;i7rq'P0	@0@0@0@0@0@0@0@0@0@0~h0P


,. 	-+*@()?/$p0[aJMma; p0_aJMma; x0awx0a+