Google
 

Trailing-Edge - PDP-10 Archives - klad_sources - klad.sources/subrtn.sav
There are 3 other files named subrtn.sav in the archive. Click here to see a list.
p'1@x-x1x/`+0++ +`++
++*ZgV-+++++++++   @0
    @0O@01- 0+0@@0@@0@@0+0+0
DECSYSTEM DIAGNOSTIC SUBROUTINE'S
 @NO@0- a`@@07@0@@06@0+pp@@A@@B[( @(6@0	`+ 0 @h@@0@@i  @0  @0! 0a  0!,>,>,<6@0,3,:,,K,
A,	,#6@0,h6@0,{O@0@@0'@@0+N- +``+1O@0
@@0O@06@0+/  0 @06@0
+0+6@0
&
'0
+06@0,~ 7@1#l0,@@!"H,7@1#n.)@@*b8,~Z`@[,@0@@o,~6@1&+@1&a~~+a`^N+a,>Z1`0a+a0 1"+a[1`?+a0 +a (@r1@+W0`+W0`
+ +n,^ @X,^
  @
 X+g,^,>d,^v`,^/ v`0Q+@0z6@o+O@o ^b 0a2^+  0!,>h bvz6@1'+@1' 2@+ 
 @0"p
0$p0#d 
v@@+GZ4@\1@+X`@@+0 +,> (BtA"(@G)@. o+P?HxF
#^(8	p		t	@;pN0(
Q2P20*`
B)>+8[@
B 
zxh|hdKh#Mi+8gCcO0o+8q ``+t+	 ``@+ `` +!``+"~,^,~@@s (@tA 1@+1@+1@+,^+[O@s3Zu2\u+Z/ 2@0+,	ta`@@0'6 0'+,^/#+,^,~>`0&++ @p Bq Dq Fr,~ p q q r,~  @tO@0'6@06@0+$6@0p#,^6@1%+@1%,@@0'@@0(:0,	tZx/&2F0+-7@s+,3Zu2\u+-a`+n Zu \u F0``@+nb@@r7 0+s7@0+4d$ 0zd&  ld' 0v,6@1&+@1&Z0 0``@+C  ([4B?x x  )+?  *Z 3B&+CxZxO@0) t( A 5@F  0`z(@.* @D  +[5DK@@0)+RO@0'0d+P1D q1D q1D r+P x -C B0(  ,Z5DU@@0)+\O@0(0d+Z1D q1D q1D r+Z x -C B0)  -7@0)+a 0(F0)x -C B0) 0``@+f[ 3B&+f`0Q[x`0QZ, @t4@k 0``@+k p,t @p p+@0 ,,N,	t,
V+p  p @,+0 0af+u,+o7@shO@s+2af@@0':rQ07@06@0+yp`fb,6 0+} 00 +0 p6@1%+@1%6@06@0+6@0p0,~6@06@0,~@@U@@0@@ .* ? .*  G@G@G@" / @1 @5 @9 @=,~t7@+@@O@06@+@+@,>h/,^+@6@06@0,~6@:U@@ @@@:t 7@+@@ ,~1@+!@@4@3@1+a`+ @  +"  + B @  +"  +t+1@+/pXpH@@A@@B4@.3@1+)a`+0 @A 2 @&@@B7@1"pHfA6@1"pHghpX,~pX,~ B,~ BA @B+)T(1pX7@1"pHfA6@1"pHghpX:B6@B+8O@06@A+@A+1 @C B2 B+; C+1 C+6@@1"@@0@@0 #*"3B#+OO@06@0,~7@0+Tp?p`@O@1"a@O@1# ``O@06@0,~  F @!p*d_p)p*d 0@+p&2p"d O`0@+,~O@0+>P+Q+"SO@0" *`S6@@@0+@7@0+Zp
``O@1"6@0,~p&3p"0@++]p``O@1"6@0,~@p,~,>@@V 3* L,^7@/}+f,/}+dO@V:x,>!3* ,^,~@@+d  +jO+j@,>7@Vz7@/}z 3* L,^,/}+d+chh4,^V,> V>lb0Q6 0+w,	t``+w,^+0O@M  ,,^7@0+	V	b+Vhh5 x>lb0Q6 0+,	ta`+0O@M  ,,> 2@7+0,^+/~6 0+a0
d8[/|`Z/|d9[|`Z|6@0+6@0+7@0+p*W W(@s1`. ,+pX XA ,d9 X!`A |d: X(@rA |d; X(@zA |7@1"d<6@1"d=`0Q,~,>d>,^z,~h?z6@0+, A @ @ @ @ @ @ @ A @0" B @06@0+?7@0+u+  / @*  8	`,~ @0# + @0" + @0$@@0#`@+>`@+7`@ +<`@+= 0#+@0+A ^b 0a  0!,>dB bv@+G  E+B  F+B 0#+@0   H+B 0#+@0p  I7@07@0+G,>dK >vdM ?v,^6@xdN 0$v` 0#v` 0"v`Zxl`0Q 0#+@0z @0#p
0$p0# 2@+ 0#6@0+*7@0+f+x7@g+d6@0+L7@0+o+ZB0#ZF0$!3* hS@@g E+@06@0+app+_pp	0$p0#!3*  E+@0+g- 0hU+0p+k 3* L 0# @E 0" @gO@g+0p+>p
+7p
 +<p
+=+@p{4p 0$d{4 0#d 0#`Dl@l+Zp{4p@@gppD,~p"0$p + 3* L 0# @E 0" @g W @ppO@g+0p++>p
 +=+@ @0"p
0$p0#+76@0   @0"p
0$p0#dX 6@0  v6@0+J@@+G @0"p
0$p0#  [+Gp*`p3p(p# 0$l lp& 0#dl 0$`Dl@ d!``D@l@@@i+Z ] @,"p36 0p*`7 0p
 p(6 0p#7@0+  07@1$a` p&]ppD,~! Z @ ^ @	 ^ @	  g @
 @
 @ @ @ @,~p"0$p*0%p+1 3* L 0# @E 0" @g W @,dO@g+0p>p>p? 0$a@`+@`@+=`@+>`@+;`@+<`@@+=`@ +>+@  +B  `+B  a+B  c+B  F @!,"p3p/p7@0+D 07@1$a` ,pp,~+[ A p0@`+p+: +  0$a@`+H+1 L,@,{+Z7@0,~ Bbddv 0a@+^de[0(B~A"  tdf[0A" f`="W . tdM 0A / 
$ 
". Dzdg 0`Bdh`0Q b,~C
I3Q*]K7aK@:0>0
@@0'@@0,	t``+i7@0,l7@0
+k,~hi 0zbb0Q:x,~6@0+np0
,~70,~f,,~7@07@0+w@v,fp(6@0+0,+7@0+y6@0+0	`6@0+0+06@0,~6@1#,~ 0``,~p,,~[M(FyA&7@,~\ ~ "@@@ 1F+
NH
IH
CH
"PH
>H
8H
(H
3H
-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[lO6p7@07@0+Vp,,~/#,~7@07@0,~,> l,>,>,>,>p
A(l@p  l m m (+7@+,^,^,^,^,^,~,T,> n+Z,T,> n+Z7@0+l@@03Z @03O@04@@01+	/@@03 o* 0G6@0+p7@0+7@0+  ? 07@1$ab +t+!"x o7@1#n. @*bv! Z @7@01+} ( < ,; p,=<z+!"@ p7@1#n. @@*b6@0,7@0p&q   (@@01,+@@/" 0@z @03.$/"1c(+   .(3F=	 @030$+.$ F03=  @03O@03+	/O@03hq+	/ DO FP HPZ[p\pp
\3dz (6@0 ( 6@0 ($+,>p*l p),^,~p 2222~p +5p /$ 0$+6@0+)Z\7@0d{46@0d!`p++p/pZ\A&p \`F@p@ O P P,~2222~7@0+2 (p
 96/$ 0$+.98,99.,9.",f=,99$ ,	z @,~6@0,~ BQ5 B@@@ s* 6@0,6@0p&q Q,~0 z$ l@7@1#l Q. !"@ @@.*bF+? BQ DR FR HS JS@jZ``xz6@0+	7@01+{ t0 +k+P 02,; p,1c02+d@@@ s* /" 5FW 02/" 3hz/.(`Hz(H{.
(F{l@7@1#l <(`F.&+^1C02+bO@Z+U$*.*6@Zl*  Q R R S 
S7@01,~6@0,7@0p&q:x,~ d@  034 d3"+d  03.(2"+l7@01+	/. (@{0`   @ @@@@ s*  (@{l@7@1#l <&b@. +y0 +	0 +d (B 034 d 034Dd5@	 023dz 
Q
+d0`~+d+k 
Q
+d4@{0 +	+d B] D]7@01+	O.$0d+	 ,Hz4@	d @@ t*#+	@ 022 03+	+	 034 	@AQ`. *!03.$+	 ] ],~ BOZ1b+	# 07@1$a` +	+	&6@0+	*7@0+	&+``@+	$d`(@A"G:x O,~`@ +	#+	! 7@0+	#\ 	`@Z.+	#7@0+	, +	#+```+	#d ~+	#O`3@04 $@6 0+	46@0+	5[00@+	57@0O4H	8du0Ddx`0Q@f7 03+	D4H	< 03p 03p` 03. /03& .
4H	Cz1D+	C` 03& z`0Q.&+	8 J02Z(. d @024H	K1D+	Jdz 02z`0Q`0Q,~,	ta`,~ BZ D[ F[h{,+	mh}-&	_+	P @Yh-&	_+	R @Yh Y-&	eh Y-&	eb0Qh,+	N,	Z+	N 0/0
SX0 Y 3@Yb*d	\,~,+`@+	l1`~1 +	l1@(+	ll(@:+(Bd  3@+	j*d	g f+ db+	jh+	P,d [ [ Z,~(@G	[@YZ@Y BZ D[ F[,	Z+	m6@1(+	~7@i+	}6@p+	}6@0+	|6@0,
!7@0p7 0X0 @0,~	` @0 0+	z 0,~@@p@@i,
#O@iO@i,
,	t`` , 0``,~7 0,~6@1(+
	h'"0vb0Q7@07@0,~d	bM(BA" `d
 0``+
[M(ByA"7@+
d`Bd`Bd`Bd`Bd`0Q,~  , @  , @M@@M,~6@M,
 ,~,>6@1(+
=7@0+
:7 0+
>7@i+
?h' 0vh,
Q+
)1@+
2(@ @h,
Q+
)Gh1@+
41@)F+
<1@,F+
51@'+
;6@0
2+
)@@+
9h,+
5S@hh,+
7Ph @0O@p,^,~@@p+
:6@i+
: h+
9  +
9 h4@
) @0+
(  Z @0J,~@6@0+
E6@0,~+
f7 0,~
$0L,~+
r6@0+
O7@0+
M  ,A ?4@
J,
gz,~,
d+
M,~
 0L,
r+
O,~ Hj 0J$(O<h
T,
d+
R:x H0J j,~7@07@0+
X+
`,
B,~0@>1@?+
[0@
\+00@,~6@1)+@1),
#6@1)+@1),~ A ?0 00`=+
c/ @@+
Y6@0+
q6@0+
mrN,~rB+@0L,+
r@@T  ,
r  ,A  @0L@@5@
r (,~
(0L+
r 0LA ?0 00`=+
u/  @0M0@+
|@@T6@0
  0a` +
z`0Q 0M:x,~1@+ 0a` +
z 0Mt+
z  
d @,+0  +   Bj Dk h,
Q+1@'++ (B,
Q+3B+k  j,~b0Q6@0
2+,F',F  +  +   Bk Dl Fl @b@@0M@@^@@T@@1$,
Q+)1@+01@+21@+#1@+#0 +@,+)O@1$:+@-/ .++@/+)1F+4 l l 6@^" k:x,~ B0M l l k,~0`0`0`(B$"(B0d0d0d6@+)O@^+0F+)O@T+ $@@6@T+:bB+)(B)@=D7 +%@@@@$&)@.=D: +% Bm Dm  ",
Q+I1@+I1@+I0~0`-+I0`0@+F+Ih`B+I@+@:x  m m,~@@W@@0K@@0H@@f@@0I@@N@@0GO@0I" D @0H@@0K@@0N@@0N@@0O@@0O7@06@0+U+
6+ @@f+`O@0G@@d6 0H+g,	ta`@+`,^+f  6@d:,+m@@d ^ _ _ ` 
`@@0G,~,^6@0H+fO@0H B^ D_ F_ H` J`O@d  +
A B^ D_ F_ H` J`,^@@c ($A$1D+
A4D
B1D+
H1D+
H1D+
<1D+
?+
3,>   )@. t5By,^,~,>   )@. t5B},^,~,>O
+
,>@
,>,>,>,>Z &  @)"1D+
1D+
1D $4  5J"t=F
9
5J#`0Q+
,^,^,^,^,^,~,>O
+
,>@
,>,>,>,> 5$
  5J$t"@@f4D
 &@)B4B
"O  5J%t=f
,^,^,^,^,^,~4H
+
 Be " Df 7@01+
,(@ud5B&j d x5B'p f e,~[5B(l  5B)tZ5B*l+
* Be 
1 B
# "+
$ ( ~=F
4 ") -&
T=D
5 Bc7@0I+
9 "-&
T7@c+c c $@@c+
5 & $O@cO@0I+
4+cA ? -&
T+cO@c @e $ e@) 4Bc-&
T=D
C:e7@c+c+
BO@c5 
J "-&
T",
K+c 0Z)@n(B'0YQBx>4@
Q,
L[x."-&
T,~7@c+
O<$
O 0Y-&
T+
R @a Bd6@0+
c6@0+
c6@0I+
crN+
crBA ?1@+1@+
|,
Y+
^+
~0@+
bL@/,
c0@	+
cO@N 0:T1B@@f0B+
i6@N,
p7@f:0H@@T1B@@T6@d+
l``@+7@0+
-(0P+
w6@0P+
u++
prBA ?1@+
|0@+
p@@N@@f,~0B+
0P+
y0B+
0P<*-(
y @,+0- 
{+
c @,+0- 
}+
c``+$+06@0N+
1@+1B++r^=b?,,^,~rFrN+0L B+U 4"
"+a6 0+
&0W+a++0\>I0(+
&,O@W>INX(+
~@
&0>@@0K,~
&26@1(+@1(	b+0
&5+
&7+J 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>++"
EXEC ONLY
X@ ,=+[}&eI3C0]7}W->M2
|~?_wx0a|(Q"E}W-pY'@eH?}+y7.[`:xt+	z+	x+	~+	@}R.=a0_Vv@|}BP~}O=Q ~}+y&p`4p}|`}~,RGQP}M0Xh}N8yKAP0 -@}O\T_W	JMm~-10@EKK|@Qf@hxM$aJ||PZ.,Wd@DDTm:7\xg?l=N~l;n~Ew?2
~*
~"E}BezV5K{}|-0"+P+V|(Q"E}Bez?4\SY?8
~}6-[yr+z~}:}c2pl[7egx}6-[yrTigx}Vu;Wo8ZKK\~}+y$LRgL)3tpI6 ~} xO
sPdy0
wp}B~y9B~y9&vI9eW@C&dY~+0}B
y MM@e	9e?lOh4X=|Rx}S&.,We|- @ - - }Ll-9~}$}pC(	PS3x}
:& CJNN?}Ll-9& CJNN?}6=`|EH`J~pHa75{g|	2I|K: 
gLp
GO<Y8RMY7kSwpp2p
=H+`p4p6003XYvK;&?@HH@@}6-[yrl;z6+v^
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	94pe =tiD\`xd|@\d<O4pD"DH
******
EXCEEDED ALLOWED PRINTOUTS
t+
b0Q+
t+
t+
j+
(p+
*l+
-t+
/l+
0\	
****
USING 'DSK' PRINT FILE
****

%PRINT CLOSE ERROR

%PRINT OUTPUT ERROR

DSK INIT ERROR
NODIRROOMx>x?x@+xD+C/~+/++/~+/~+0+0+0+/~++/@000000gV-i7rq'H0	=x0


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