Trailing-Edge
-
PDP-10 Archives
-
klad_sources
-
klad.sources/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+ 3p p [ ( @ (+ 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#l 0 @ @!"H, 7@ 1#n . (@@*b 8,~ . a@ Z `@ 0 @@ -,~ 6@ 1&+@ 1&/@ Z 1` 0a+ Y0 1"+ Y[ 1`?+ Y0^+ Y,> , (@r0` ` 0Q+@ 0z 6@ -+ O@ - ^ 0a2^
+ 0!,> h
v z 6@ 1'+@ 1' 2@ +
@ 0"p
0$p 0#d
v @@ + ^Z 4@ "1@ + `@@+ 0 + {,> (BtA" (@ G )@. g+ M8 <>X h Px6 Px0
pV }@0)
+8
I+
Z#8
"H J@
98X G:h X J@A J@T b8 cX J@ Px5 eX$ J@> 3@ + 3@ + `` + t + `` @+ `` + `` + ~ ,^ ,~ 7` + ,
+ @ ,+ 0,^ (@tA 1@ + 1@ + 1@ + ,^ + TO@ 03Z 22\ 3+ Z / 2@ 0+ , a` @@ 0'6 0'+ ,^ / + ,^ ,~ >` 0&+ + @ . B . D / F /,~ . . / /,~ @ 2O@ 0',^ 6@ 1%+@ 1%, @@ 0'@@ 0(: 0, Zx /& 2F 0+ ,7@ 0+ +3Z 22\ 3+ ,a` + l Z 2 \ 3 F 0`` @ + lb @@ 07 0+ q7@ 0+ 3d 0z : d l d 0v , 6@ 1&+@ 1&Z 0 0`` @+ B [ 4B >x x + > Z 3B + Bx Z x O@ 0) 2( A 5@ E 0` z (@ . @ [ 5D J@@ 0)+ QO@ 0'0d + O1D .1D /1D /+ O x - B 0( Z 5D T@@ 0)+ [O@ 0(0d + Y1D .1D /1D /+ Y x - B 0) 7@ 0)+ ` 0(F 0)x - B 0) 0`` @+ e[ 3B + e` 0Q[ x ` 0QZ , @ 14@ j 0`` @+ j ., 1 @ . .+@ 0 , , ,
+ o+ o@ ,+ 0 0af + s, + $7@ 1h O@ 1+ 0af @@ 0': 0`f b , 6 0+ y 0 + { .6@ 1%+@ 1%,~ h + 0@@ 1"@@ 0@@ 0 *" 3B + O@ 0O@ 1* ! @ @@ #p `@ O@ 1"- e6@ 0,~ ( @ !p* d p) p* d 0@ + p& !p" A 0@ + ,~ 0a` 6@ 1#,~ 7@ 1$a` + ,~ , 4p* d @ l p) ,~ ,> @@ "* ,^ 7@ /}+ , /}+ O@ : x ,> ! "* ,^ ,~ @@ + + O + @ ,> 7@ z 7@ /}z "* ,^ , /}+ + h h ",^ ,> > l b 0Q6 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!,> d 0 v @ + ^ 3+ ^ 4+ ^ 0#+@ 0 6+ ^ 0#+@ 0 p 76@ x d 9 0$v ` 0#v ` 0"> v ` Z x > l ` 0Q 0#+@ 0 z @ 0#p
0$p 0# 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 >@@ # +@ 0 p 0$! "* +@ 0 + $- 0h @+ 0 @ 0"p
0$p 0#+ T : @ 0"p
0$p 0#d B v + - @ 0"p
0$p 0# F+ ^! Z @ G @ H @ ` @
@
@ @ @ @ ,~ p" 0$p* 0%p + "* 0# @ 0" @ $ ! @ O@ #+ 0 0$a@ @+ \`@ + Y`@ @+ Z+ \ ) @ !, p 3 p#@p `87@ 0+ ' 07@ 1$a` , sp p ,~ + [ A p 0@p + p + : + 0$a@ @+ + , "p& 0$ 0$ A [ A" xG @ 0$ * + }: 0> 0
@@ 0'@@ 0, `` @@ 0
7 0+ <h H 0z b b 0Q7@ 0
: x ,~ , 2@ &+ 0 + /~@@ 03 I* 0G7@ 0+ U ? 07@ 1$ab + G+ Up( !"x J7@ 1#n . @ *b I! Z @ 7@ 01+ Q ( < , J, l=< N+ ]!"@ K, Wn . @ @*b S, s (@@ 01, l+ ]6@ 1#+ 06@ 1#+ 0,> 0`` + \,^ ,~ ,^ + 0@@ /" 0@ z @03.$ /" 1c (+ h .( 3F = a @030$ + j.$ F03= ` @03O@03+ sO@03h K+ s D F H Z [ p p p
,> ! @ !3d z ( ! + w,> p* l d @ p) ,^ ,~ p 2 2 2 2 ~p +
p /$ 0$ + w,^ !p#@Z A& p `F @p @ ,~ [ A p 0@` + ): + 2 2 2 2 ~p
9 /$ 0$ + 9 9 | , gz @ ,~ B 5 @@ @ M* , s ,~ 0 z $ l @ , Wl Q . !"@ @ @. *b + B D F H J @j ``xz 7@ 01+ K N0 + ;+ " 02, J, l1c 02+ 5@@ @ M* /" 5F ( 02/" 3h z / .( `H z (H{.
(F{l@ , Wl <( 1F .& + /1C 02+ 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 034D 55@ Q 023d z
Q
+ 50`~ + 5+ ;
Q
+ 5 B D 7@ 01+ _O .$ 0d + e , z 4@ Yd @@ N*# + Y@ 022 03+ e+ b 034 e@A Q` . *!03.$ + a ,~ B Z 1b + k 07@ 1$a` + n+ m: x ,~ + k+` `` + ld ~ `B `@ + kA" G + kO` 3@ 04 $ @ 6 0+ w[ 00@+ x7@ 0O 4H |7@ 01d Od P0D d S` 0Q@f 7 03+ 4H 03p 03p ` 03. / 03& .
4H z 1D + ` 03& z ` 0Q.& + | J 02Z (. d @ 024H 1D + d U 02z ` 0Q` 0Q,~ 6@ 1(+ 7@ &+ + 7 0X 0 @ 0,~ 0+ 0,~ @@ &, O@ &O@ &, `` , 7 0`` ,~ 7 0,~ 6@ 1(+ h V 0v b 0Q,~ ,> 6@ 1(+ 47 0+ 57@ &+ 6h 0v h W,
+ $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 $ @ b 0Q 4@ Fb b , W+ A+ G+ SG (D*b Bb 0Q ,^ ,^ ,^ ,~ C
~- eO$ Zi?$]?m ( LI&tp Y>~ 9KK Kxad\Yee1ic%TS:F3[>$MQS:D<tC96G"
,~ 1@ + c1@ + b0@ ,1@ '+ ],~ (@ @ ',
,~ G '1@ ,F+ c1@ '+ b,~ : x : x : x : x ,~ 8 e@@
`` O@ j+ j@ k o: a@ + o@@ A ?: o: o+ o0 t- k+ w+ u: t: t+ t- o+ t+ x+ v y6@
l @
A l p
+
0
l @ p
A l p `@ +
+
P
@ -
6@
+
Z(
6@
-
+
-
+
,
6@ +
.,
6,
.+
,~ ,
6 H ' b<h
,
.+
: x H 0J ',~ ,
,~ 0@ >1@ ?+
0@
+ 01@ + 31@
+
&1@ +
)0@ ,~ 6@ 1)+@ 1), 6@ 1)+@ 1),~ h bZ 0l b 0Q
,~ h cZ 0l h d 0z b 0Q ,~ ,
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 ( h f,
+
U0@ ,1@ '+
O+
W (B ,
+
UG 3B
X+
T3B
X+
U+
W: x ( (,~ b 0Q+
L ,F ' ,F +
\ +
\ B ) D ) F * @b @@ 0M@@ @@ @@ 1$,
+
p1@ +
w1@ +
y1@ +
j1@ +
j0 +@
r+
pO@ 1$: +@
t/ . +
`+@
u+
p1F +
{ * ) 6@ " ): x ,~ B 0M * ) ),~ 0` 0` 0` (B $" (B 0d 0d 0d 6@ +
pO@ +
`0F +
pO@ +
` $ @@ 6@ + bB g+
p(B )@ =D
~ +
l@@ @@ $& )@ . =D +
l B * D + h " ,
+ 1@ + 1@ + 0 0` -+ 0` 0 ,+ @@ @@ 0K@@ 0H@@ #@@ 0I@@ @@ 0GO@ 0I" D @ 0H@@ 0K@@ 0N@@ 0N@@ 0O@@ 0O 0 @ 0@@
L h@ , 0,~ 6@ 0,~ + 7O@ 0GO@ @@ #+ 0O@ 0G@@ 6 0H+ *, a` @ + 0,^ + )@@
@@ 0G,~ ,^ 6@ 0H+ )O@ 0H B D F H J O@ i+
,B @D F (H AJ 6` ,
4D
1D +
1D +
1D +
1D +
+ x,> )@ . t 5B =,^ ,~ ,> )@ . t 5B B,^ ,~ ,> O
+ H,> @
,> ,> ,> ,> Z & @ )" 1D + S1D + R1D $ 4 5J mt =F K9 J5J n` 0Q+ Q,^ ,^ ,^ ,^ ,^ ,~ ,> O
+ Y,> @
,> ,> ,> ,> 5$ ^ 5J ot " @ @f 4D b & @ )B 4B gO 5J pt =f `,^ ,^ ,^ ,^ ,^ ,~ 4H c+ b B " " D " 7@ 01+ p(@ud 5B qj d x5B rp " ",~ [ 5B sl 5B tt Z 5B ul + o B " u B h " + i ( ~=F x " ) -&
=D y 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@ +
!`` @ +
]Z 0 B+
26@ 0N+
%1B +
^B 0B +
] v B 3@@ @ B h B 0`` +
+7@
0-
=7` +
] v,
t+
/+
]6` +
.-
=+
]B " B " B w B 3O@ +
(,> ,> ,> ,> 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@ + 0j D+
m@ @ @ z 1@ +
@ * (@ A" G =j
m +
n +
n1@ +
n ~+
n }+
n@@ C~ b 0Q+ 6@
i@@ C~ +
n@@ 0@+
+
n@@ 0@ +
n6@
,~ O@
-
i,( @@ +
n=( +
n0@ -+
i,
n7` ,~ -
i@@
n,
n-
i,
n E A N C Z T{" NO CRxH
EXEC ONLY
X @ , =+ T}&eI3C0]7}W->M2
|~ ?|wx0a|(Q"E}W-pY' @eH?}+y7.[`:x b b t + z + x + ~ + t + }R.= a 0Vv@| }BP ~ }O= Q ~ }+y&p` 4p }| ` }~,RGQP } M0Xh }N8yKAP }D92I 6Y?<Y KK|Y}| + 0 >.,WdD `>4 X+seh 9e?:| DDT m:7\x g?l=N~ l;n~ Ew?\ {;|
~ }6-[yr+z~ }:}c2pl[7egx }6-[yr Tigx }Vu;Wo8ZKK\~ } x:
wp;dy 0
wp }B~y9B~y9&vI9eW@C&dY ~ }B
y MM@e 9e?lOh4X=|Rx }S &.,We| - - K:
gLp 003X}R}pC;H 0` YvK;&? @HH @@ }ZN-C3x }6-[yrl ;z6+v ^ Sj)z{O$ Z&#u~ i?$ [m|\ ,P g^NHtKLP }S'o'$: G>vLWXx 3 ydHy< h`}2@
{SR 9 p y }p ~ e =tiD\`8
|@>xP - Y,N, <CR> OR ^,^Z - 1@i @Fh`KK|@a
P +yR~H6fh`d|@\d<O 4p D"DH H 4
******
EXCEEDED ALLOWED PRINTOUTS
t + Qb 0Q+ St + ]t + cj + mp + ol + rt + sl + u O 3 Q RH R
H C: C @ ?}[0KK|M| x+ /~ + /+ + /~+ /~+ 0 + 0 + 0 + /~+ + /@0 0 0 0 0 0 gV;0i7 rq'H0 0 0 x0
, . - + * @ ( ) ? / $ p0[aJMm a; p0_aJMm a; x0awx0a+