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+ 1p p @@
@ 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
.
@@*b 7,~
@
,@ 0 @@ 1&+@ 1&a~~ + Z`^N + Z,> Z 1` 0a+ Z0 1"+ Z[ 1`?+ Z0+ Z^ (@r0` / . R+ + + + + g,^ ,> d
,^ v ` ,^ / v ` 0Q+@ 0z 6@
+ 0!,> h
z 6@ 1'+@ 1' 2@
+
@ 0"p
0$p 0#d
v @@ + Z 4@
[1@ +
Y`@@+ ~0 + |,> (BtA" (@ G )@. h+ M/@
w6 # 08d@X x]p~ rX5x h S#
"`
O
A *HT0 2 h`q j8Q Gp IJ *HH A0\ K P *Hg `` +
t + `` @+
`` +
`` +
p~ ,^ ,~ ,~ @@ ,+ 0,^ @ (@tA 1@ + 1@ + 1@ +
!+ ,^ ,~ >` 0&+ + @@ 0(: 0, ]Zx /& 2F 0+ (7@
! 0z d
# l d
$ 0v , 6@ 1&+@ 1&Z 0 0`` @+ =
&[ 4B 9x x
'+ :
'Z 3B
$+ =x Z x O@ 0) (@ .
( @
([ 5D E@@ 0)+ MO@ 0'0d + J1D
)Z 5D O@@ 0)+ WO@ 0(0d + T1D
*7@ 0)+ [` 0(F 0)x -
$+ `` 0Q[ x ` 0QZ , +@ 0 0af + o, + P7@
+* ?
,* G@ G@ G@
,,@ 1@ 5 @ 9 @ =,~ t 7@ + @@ O@ 06@ +@ +
-,^ + @@ : t 7@ + @@ ,~ 1@ + @@ 4@ 3@
/+ a`+ @ + + B @ + + t + 1@ + !pX pH @@
/+ 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+ Dh h
1,^ b 0Q6 0+ W, ]`` + W,^ + 0O@
2 x > l b 0Q6@ 0+ , ]a` + 0O@
4+ 0,^ + /~6 0+ wa 0
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#+@ 0 p
F,> b p
H , g, b,^ 6@ x d
J 0$v ` 0#v ` 0"v ` Z x l ` 0Q 0#+@ 0 z @ 0#p
0$p 0# 2@
+ + 0#+ 97@ 0$!
0* h
O@@ 0 p 0$p 0#!
0*@ +
Q+ 0 @ 0"p
0$p 0#+ @ 0"p
0$p 0#d
S v + X @ 0"p
0$p 0#
W+ ! Z @
X @
Y @ ` @
@
@ @ @ @ ,~ p" 0$p* 0%p + @
0* 0# @
Y+@ , QO@ `+
`@ + `@ + `@ + H`@ + I`@ @+ J`@ + K+
Z+
[+
\+
^+
M, TN@ !, 1p 3 p/p7@ 0+ R 07@ 1$a` , p p ,~ + [ A p 0@` + *p + *: + 0$a@ `+ + @
@@ 0'@@ 0, ]`` + a, e7@ 0
+ d,~ h
N( 0z b b 0Q: x ,~ 7@ 0,~ 1F , ,~ @ v , Sp( 6@ 0+ 07@ , + 6@ 1#,~ 0`` ,~ p, ,~ [
`p =" x, Fp* l p) ,~ 9 xh
az H H
> H
9H
3H
IH
.H
(H
H
#H
H
N.v)"OJr+k^npiL
9;| y[IQK2%| p)K^-y3H
; B.Y:N.p J.)"HJ(kJn!KX
i8 [IRMR& @*KR- 0H
; B.Y:Z.@ 2Lnv)"OJr+k^n~itMJ5;?}[u[%IK2%~)\ms'RJJ ;kZn[:bNnp Nvi&OZvke]piL:8| y[IQ{?}| qiA^ x
H2a B&I
N&p n)v-2oKr/>ip}l9#| x HK2%| p=J -y34
I2 HMR& @2J- 04
Je (K2mKeI!KX"h [IR$I A
AR
H2a B&I
Z&@ n?vm6o[vop}l?8| x H{?}| q}@ x $A $I $p RHn)"HJ(kJn#K[
e;m[6e[%JMR&[6mZ*Tm#%RJJ ;kZn[:bZn` 2liv-2oKr/>i~}mO???}[}K2%~=|ms'S6M6[6k[.S.mp 6OVvi&OZvke]~itMz5{?}[u[%I{?}i_<Irl{g[6m[lO6p p, ,~ /
!,~ ,>
b,> ,> ,> ,> p
A( l @p
c
c
d (+ 7@ + ~,^ ,^ ,^ ,^ ,^ ,~ , D,>
d+ G, D,>
e+ G " $ b
ep G$ @(Ft0F + ``D d p X$ `X$ p A
fG h& `f p `D + [S$ b
ep =" V,~ ,> d
f`" +
h=" d,^ ,~ ,> ,> ,> " $ b
ep &
j4F m@ b
ep F
ep =" i,^ ,^ ,^ ,~ @@ 03
j* 0G7@ 0+ ? 07@ 1$ab + w+ !"x
k7@ 1#n
.
@ *b y! Z @ 7@ 01+ ( < , 5
k, =< }+ !"@
l7@ 1#n
.
@ @*b , (@@ 01, + @@ /" 0@ z @03.$ /" 1c (+ .( 3F =
@030$ + .$ F03=
@03O@03+ O@03h
l+ [D p
3d z 2( $ + ,> p* l p) ,^ ,~ p 2 2 2 2 ~p + /p /$ 0$ + p/pZ
R 9 0/$ 0$ + )9 2, 39 ), 3." , S= , 39 $ , z @ ,~ 6@ 0,~ B
n*~ , $ l @ 7@ 1#l Q . !"@ @ @.
*b ?+ 97B 01+ q
o0 + a+ H 02, 5
k, 1c 02+ [@@ @
n* /" 5F N 02/" 3h z / .( `H z (H{.
(F{l@ 7@ 1#l <( WF .& + U1C 02+ 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 023d z
Q
+ [0`~ + [+ a
Q
+ [4@ q0 + y+ [ B
o*# + @ 022 03+
@ 034` .+ *!03.$ + 3 : x @ 6 0+ 6@ 0+ [ 00@+ 7@ 0O 4H d
p0D d
s` 0Q@f 7 03+ -4H % 03p 03p ` 03. / 03& .
4H ,z 1D + +` 03& z ` 0Q.& + ! J 02Z (. d @ 024H 31D + 3d
u 02z ` 0Q` 0Q,~ , ]a` ,~ B
v,
+ Vh
x-& G+ 8 @
z-& G+ : @
|- Nh
~- Nb 0Qh
~,
+ 7, B+ 7 0 / 0
S X 0
+ `@ + U1` ~1f + U1@ (+ Ul (@: + (B d
$( 0v b 0Qd 6@ 1#+ 0`` + [
`B d ,~ , 6@ + , @
$, 0v h
1@ + (@ @
G + 1@ )F+ 1@ ,F+ 1@ '+ +
@@ + h
+ !S@
+ #P @@
@ 0+ 0@ + 3, &+ 0@ + 1*4@ , &+ ,> ,> ,> Q"w $ @ b 0Q 4@ /b b , ?+ *+ 0+ <G (D*b *b 0Q ,^ ,^ ,^ ,~ C
~- eO$ Zi?$]?m a;%LI&tp Y>~ 9KK Kxad\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
,~ h h 0Q ,~ , A @ 0L@@ 5@ w ( ,~ @ 0L, v:
0@ + w@@ w 0LA ?0 00` =+ z/ @ 0M0@ +
@@ 0a` + ~` 0Q 0M: x ,~ 1@ + a 0a` + ~ 0Mt + ~ m @ ,+ 0 +
,D B
0@ ,1@ '+
+
(B , S+
G 3B
+
3B
+
+
: x 0Q+
,F ' ,F +
+
@D @B @@ 0M@@
,1@ +
31@ +
51@ +
&1@ +
&0 +@
/+
,O@ 1$: +@
0/ . +
+@
2+
,1F +
7" 6@ 0B 0M0 (B $" (B 0d 0d 0d 6@ +
,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@B A$ 1D + A4D A1D + H1D + G1D + <1D + ?+ 3,> )@ . t 5B
x,^ ,~ ,> )@ . t 5B
},^ ,~ ,> O
+ ,> @
,> ,> ,> ,> Z & @ )" 1D + 1D +
,^ ,^ ,^ ,^ ,^ ,~ ,> O
+ ,> @
,> ,> ,> ,> 5$ 5J 4B "O =B 5J
b+ @@ +$ O@
bA ? -& T+
bO@ ) 4B
b-& T=D C:
b+ BO@ -& T" , K+
b+ 0Z)@n(B' 0YQBx > 4@ Q, K[x ." -& T,~ 7@ + j6@ C
C
I2 I2 I2 8I2 :G2X G2Z YC *YC" NG $I' ,I' .a3 0a3" 2GH 4GI 6INX <INZ >I3 PI3 RIB TIB VIB0XIB@Ze" \e" ^IR hIR lIS jIS ni6 pi6 ti7 ri7 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.[`:x t + z + x + ~ + }R.= a 0Vv@| }BP ~ }O= Q ~ }+y&p` 4p }| ` }~,RGQP } M0Xh }N8yKAP 0 -
~ *
~ "E}Be zV5K{}| - 0"+ + |(Q"E}Be z?4\SY?8
~ }6-[yr+z~ }:}c2pl[7egx }6-[yr Tigx }Vu;Wo8ZKK\~ }+y$LRgL)3 tp } x
K
sx
Ldy 0
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<Y8RMY7kSwp p2 p
=H + Mp4 p6 > @ }6-[yr {Ze>eI9g{x v ` 0Q+ e0 003X
tu}?`{O$ Z&#u~ i?$ [m|\ ,P }DSJ$]TG;rKLgp 2 m& P( ~ ]8 m& P( ~ G"
wkJ P| ]?X6M @ Kc$\Wk;.92 J`e$P| MVe@ "= "= "=@
0Y,p tJkx Cx Gx Kx Ox }S'o'$: G>vLWXx 3N _H`GIp ~ }2@
{SR 9 p y }qP e =tiD\`8
|@>xh`- Y,N, <CR> OR ^,^Z - i @Fh`KK|@a
P +yR~H6fh`d|@\d<O 4p D"DH
******
EXCEEDED ALLOWED PRINTOUTS
t +
b 0Q+ t + t + j + (p + *l + -t + .l + 0 \ x 0 0 0 gV; i7 rq'P0 @0 @0 @0 @0 @0 @0 @0 @0 @0 @0 ~h0P
, . - + * @ ( ) ? / $ p0[aJMm a; p0_aJMm a; x0awx0a+