Google
 

Trailing-Edge - PDP-10 Archives - ks_diag_gs - diagnostics/subsm.sav
There is 1 other file named subsm.sav in the archive. Click here to see a list.
p'1@x-x1x/`+0++ +~x++
+++gV-+++++++++}@++
+++gV-+++++++++   @0
    @0O@01- 0+0@@0O@@@0@@0+0+0
DECSYSTEM 2020 (KS-10) DIAGNOSTIC SUBROUTINE'S
S` @ * O@0- a`@@07@0@@06@0+3pp[( @(+ 0 @%@@0@@&  @0  @0! 0a  0!,>,>,|,>1#O@1#,4,^1#,:,,	,M6@0,A,
O@0@@0'@@0@@+- ,``+2O@0
@@0O@06@0+0  0 @06@0
+0+6@0
&
'0
+0 7@1#l0 @@!"H,7@1#n.(@@*b8,~.a@Z`@0@@-,~6@1&+@1&/@Z1`0a+Y01"+Y[1`?+Y0^+Y,>,(@r0``0Q+@0z6@-+O@- ^ 0a2^
+  0!,>h
 vz6@1'+@1' 2@+ 
 @0"p
0$p0#d
 
v@@+^Z4@"1@+ `@@+0 +{,> (BtA"(@G)@. g+M8<>XhPx6Px0	
pV}@0) 
+8
I+
Z#8
"HJ@
98XG:hXJ@AJ@Tb8cXJ@Px5eX$J@> 3@+3@+``+t+ ``@+`` +``+~,^,~7`+,
+   @,+0,^ (@tA 1@+1@+1@+,^+TO@03Z22\3+Z/ 2@0+,	a`@@0'6 0'+,^/+,^,~>`0&++ @. B. D/ F/,~ . . / /,~  @2O@0',^6@1%+@1%,@@0'@@0(:0,	Zx/&2F0+,7@0++3Z22\3+,a`+l Z2 \3 F0``@+lb@@07 0+q7@0+3d 0z:d  ld 0v,6@1&+@1&Z0 0``@+B  [4B>x x  +>  Z 3B+BxZxO@0) 2( A 5@E  0`z(@. @  [5DJ@@0)+QO@0'0d+O1D .1D /1D /+O x - B0(  Z5DT@@0)+[O@0(0d+Y1D .1D /1D /+Y x - B0)  7@0)+` 0(F0)x - B0) 0``@+e[ 3B+e`0Q[x`0QZ, @14@j 0``@+j .,1 @. .+@0 ,,	,
+o+	o@,+00af+s,+$7@1hO@1+0af@@0':0`fb,6 0+y 0 +{ .6@1%+@1%,~h+0@@1"@@0@@0 *"3B+O@0O@1* ! @@@#p`@O@1"-	e6@0,~  ( @!p*dp)p*d 0@+p&!p"A 0@+,~ 0a`6@1#,~7@1$a` +,~,4p*d@l p),~,>@@ "* ,^7@/}+,/}+O@:x,>!"* ,^,~@@+  +O+@,>7@z7@/}z "* ,^,/}++hh",^,> >lb0Q6 0+,,	``+,,^+0,
d'[/|`Z/|d([|`Z|p$ $A ,Jd( $!`A |d) $(@rA |d* $(@xA |d+ 
v`0Q,~,>d,,^z,~h-z / @ @ @ @ @ @ @ / @0" 0 @0+! ^ 0a  0!,>d0 v@+^  3+^  4+^ 0#+@0   6+^ 0#+@0p  76@xd9 0$v` 0#v` 0">v`Zx>l`0Q 0#+@0z @0#p
0$p0# 2@+ 0#+p(p&y-vp&z-vp&z-vp&{-vp&{-vp&|-vp&|-vp&}-v7@#++/U(v!>x@@x*~w@@+vA`A@A A@`@@@ @!"* h>@@# +@0p	0$!"*  +@0+$- 0h@+0 @0"p
0$p0#+T  : @0"p
0$p0#dB  v+- @0"p
0$p0#  F+^! Z @ G @	 H @	  ` @
 @
 @ @ @ @,~p"0$p*0%p+ "*  0# @ 0" @$ ! @O@#+0 0$a@@+\`@+Y`@@+Z+\  ) @!,p3p#@p`87@0+' 07@1$a` ,spp,~+[ A p0@p+p+: +  0$a@@++ ,"p&0$ 0$ A [A"xG @0$ * +}:0>0
@@0'@@0,	``@@0
7 0+<hH 0zbb0Q7@0
:x,~,2@&+0+/~@@03 I* 0G7@0+U  ? 07@1$ab +G+Up(!"x J7@1#n. @*bI! Z @7@01+Q ( < , J,l=<N+]!"@ K,Wn. @@*bS,s   (@@01,l+]6@1#+06@1#+0,> 0``+\,^,~,^+0@@/" 0@z @03.$/"1c(+h   .(3F=a @030$+j.$ F03=`  @03O@03+sO@03hK+s D F HZ[ppp
,>!   @!3dz (!+w,>p*l d@p),^,~p 2222~p+
p /$ 0$+w,^!p#@ZA&p `F@p@   ,~[ A p0@`+): + 2222~p
9/$0$+99| ,gz @,~ B5 @@@ M* ,s ,~0 z$ l@,Wl Q. !"@ @@.*b+ B D F H J@j``xz7@01+K N0 +;+" 02, J,l1c02+5@@@ M* /" 5F( 02/" 3hz/.(`Hz(H{.
(F{l@,Wl <(1F.&+/1C02+3O@+&$*.*6@l*      
7@01,~,s:x,~ d@  034 53"+5  03.(2"+<7@01+U/. (@{0`   @ @@@@ M*  (@{l@,Wl <&3@. +I0 +S0 +5 (B 034 5 034D55@Q 023dz 
Q
+50`~+5+; 
Q
+5 B D7@01+_O.$0d+e ,z4@Yd @@ N*#+Y@ 022 03+e+b 034 e@AQ`. *!03.$+a  ,~ BZ1b+k 07@1$a` +n+m:x ,~ +k+```+ld ~`B`@+kA"G+kO`3@04 $@6 0+w[00@+x7@0O4H|7@01dOdP0DdS`0Q@f7 03+	4H	 03p 03p` 03. /03& .
4H	z1D+	` 03& z`0Q.&+| J02Z(. d @024H	1D+	dU 02z`0Q`0Q,~6@1(+	7@&+	+	7 0X0 @0,~ 0+	 0,~@@&,	O@&O@&,	``,7 0``,~7 0,~6@1(+	hV 0vb0Q,~,>6@1(+	47 0+	57@&+	6h 0vhW,
+	$1@+	,(@ @%,
+	$G%1@+	-1@)F+	31@,F+	.+	$@@+	2h[,
[+	8S@%h],
[+	;P% @0,^,~6@&+	2 %+	2  +	2 %4@	$ @0+	#0@+	.  	J,	>+	/0@+	0 1*4@	0,	>+	1,>,>,> Q"w $@b0Q 4@	Fbb,	W+	A+	G+	SG(D*b	Bb0Q ,^,^,^,~C
~-eO$Zi?$]?m(	LI&tpY>~	9KKKxad\Yee1ic%TS:F3[>$MQS:D<tC96G"
,~1@+	c1@+	b0@,1@'+	],~(@ @',
,~G'1@,F+	c1@'+	b,~:x:x:x:x,~8	e@@
``O@j+	j@	ko:a@+	o@@A?:	o:	o+	o0	t-	k+	w+	u:	t:	t+	t-	o+	t+	x+	v	y6@
l @
Alp	 
+
0
l @p
A lp	 `@+

+
P
 @-
6@
+
Z(
6@
-
+
-
+
,
6@+
.,
6,
.+
,~,
6 H' b<h
,
.+
:x H0J ',~,
,~0@>1@?+
0@
+01@+31@
+
&1@+
)0@,~6@1)+@1),	6@1)+@1),~hbZ0lb0Q  
,~hcZ0lhd 0zb0Q  ,~,
7,~ @0LA ?1@	+
.1@+
.:,
c1@+
F0@+
:@@  ,
c+
:-	t,~+
84@0+0,~ 0LA ?0 00`=+
=/  @0M0@+
B@@ 0a`+
A`0Q 0M:x,~1@+3 0a`+
A 0Mt+
A  
. @,6 0+0+   +
J   B( D( hf,
+
U0@,1@'+
O+
W (B,
+
UG3B
X+
T3B
X+
U+
W:x (  (,~b0Q+
L,F',F  +
\  +
\   B) D) F* @b@@0M@@@@@@1$,
+
p1@+
w1@+
y1@+
j1@+
j0 +@
r+
pO@1$:+@
t/ .+
`+@
u+
p1F+
{ * ) 6@" ):x,~ B0M * ) ),~0`0`0`(B$"(B0d0d0d6@+
pO@+
`0F+
pO@+
` $@@6@+bBg+
p(B)@=D
~ +
l@@@@$&)@.=D +
l B* D+ h ",
+1@+1@+00`-+0`0,+@@@@0K@@0H@@#@@0I@@@@0GO@0I" D @0H@@0K@@0N@@0N@@0O@@0O  0 @0@@
Lh@,0,~6@0,~+7O@0GO@ @@#+0O@0G@@ 6 0H+*,	a`@+0,^+)@@      
@@0G,~,^6@0H+)O@0H B D F H JO@   i+
,B@D F(HAJ6`,
4D
1D+
1D+
1D+
1D+
+x,>   )@. t5B=,^,~,>   )@. t5BB,^,~,>O
+H,>@
,>,>,>,>Z &  @)"1D+S1D+R1D $4  5Jmt=FK9J5Jn`0Q+Q,^,^,^,^,^,~,>O
+Y,>@
,>,>,>,> 5$^  5Jot"@@f4Db &@)B4BgO  5Jpt=f`,^,^,^,^,^,~4Hc+b B" " D" 7@01+p(@ud5Bqj d x5Brp " ",~[5Bsl  5BttZ5Bul+o B" u Bh "+i ( ~=Fx ") -&
=Dy B 7@0I+~ "-&
7@+&   $@@+y & $O@O@0I+x+&A ? -&
+&O@ @! $ !@) 4B&-&
=D
:!7@+&+
O@5 
 "-&
",
+& 0Z)@n(B'0YQBx>4@
,
[x."-&
,~7@+
<$
 0Y-&
+
 @ B! 0:1B@@#0B+
7@#:0H@@1B@@6@ +
!``@+
]Z0 B+
26@0N+
%1B+
^B0B+
] v B3@@@B h B 0``+
+7@
0-
=7`+
] v,
t+
/+
]6`+
.-
=+
]B "B "B w B3O@+
(,>,>,>,> 3@h+
:-&
2@@,^,^,^,^,~zH
= h6@0I+
J-	t+
J+
@1@+31@+
Z0@>1@?+
\1@
\0@+
I  /,
c  ',
cL@#+
J1@	O@4A
=1@7@+
M+
>1@7@+
O+
>1@,
R7@#,
c+
>7@,~-	t+
S+
T1@+31@+
Z0@+
R@@@@#  ,~ @,+0- 
Y+
> @,+0- 
[+
> +>/"5"
_"  @:=b
`+
] @, B, D-A ?7`+
g-
+
g-
 , , -,~nH
i,>,>,>,>,>+
i:}:},^,^,^,^,^,~-
i:
u-
i+*
u-
i@
 (5J
w,
x,,
~+/&2F
+
r@+
m=H
+}+
x+*
w1@ +
m1@-+
n1@'+
~  |+
~-
i 
w@@1@+
x"/" x,
i-R+
i 
-	y+0@+
Z  -
  -
Q*A`4@
+
n-
i,z@j+6@+
Z1@+30@+
4@+0jD+
m@@@ z1@+
@*(@A"G=j
m  +
n  +
n1@+
n  ~+
n  }+
n@@ C~b0Q+6@
i@@  C~+
n@@0@+
+
n@@0@ +
n6@
,~O@
-
i,(@@+
n=( +
n0@-+
i,
n7`,~-
i@@
n,
n-
i,
nEANCZT{"NOCRxH
EXEC ONLY
X@ ,=+T}&eI3C0]7}W->M2
|~?|wx0a|(Q"E}W-pY'@eH?}+y7.[`:xbbt+z+x+~+t+}R.=a0Vv@|}BP~}O=Q ~}+y&p`4p}|`}~,RGQP}M0Xh}N8yKAP}D92I 6Y?<YKK|Y}|+0>.,WdD `>4X+seh	9e?:|DDTm:7\xg?l=N~l;n~Ew?\{;|
~}6-[yr+z~}:}c2pl[7egx}6-[yrTigx}Vu;Wo8ZKK\~} x:
wp;dy0
wp}B~y9B~y9&vI9eW@C&dY~}B
y MM@e	9e?lOh4X=|Rx}S&.,We|- - K: 
gLp003X}R}pC;H0`YvK;&?@HH@@}ZN-C3x}6-[yrl;z6+v^Sj)z{O$Z&#u~i?$[m|\,Pg^NHtKLP}S'o'$:G>vLWXx  3ydHy<h`}2@
{SR	9py}p ~e =tiD\`8
|@>xP- Y,N, <CR> OR ^,^Z -  1@i@Fh`KK|@a
P+yR~H6fh`d|@\d<O4pD"DHH4
******
EXCEEDED ALLOWED PRINTOUTS
t+Qb0Q+St+]t+cj+mp+ol+rt+sl+u   O 3   Q RHR
HC:C@?}[0KK|M|x+/~+/++/~+/~+0+0+0+/~++/@000000gV;0i7rq'H0	00x0


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