Trailing-Edge
-
PDP-10 Archives
-
klad_sources
-
klad.sources/subusr.sav
There are 4 other files named subusr.sav in the archive. Click here to see a list.
p ' 1@x -x1x / `+ 0 + + + `+ +
+ + (Y(gV- + + + + + + + + + @ 0
@ 0O@ 01- 0+ 0@@ 0@@ 0@@ 0+ 0 + 0
DECSYSTEM DIAGNOSTIC USER SUBROUTINE'S
@
oO@ 0- a` + @@ 1' V ` 2 1@ @ O@ 1'[ ( @ (7@ 1' ` 6@ 1' 3+ 0 @ @@ 0@@ W @ 0 W @ 0! 0a 0!,> ,> , l, 6, Y, T, , 06@ 0, O@ 0@@ 0'@@ 0+
o- )`` + /O@ 0
@@ 0O@ 06@ 0+ - 0 @ 06@ 0
+ 0 + 6@ 02 1@ @ + 4
& X
' 0
+ 0\" X \# 0
+ 0 Y @ Z @ 0 @@
,~ 6@ 1&+@ 1&a~~ + W`^N + W,> Z 1` 0a+ W0> 1"+ W[ 1`?+ W0b+ W, (@r0` / . O+ + + |+ + ^,^ ,> d Z,^ v ` ,^ / v ` 0Q+@ 0z 6@
+ O@
^ 0a2^ ]+ 0!,> h ] v z Z 4@ j1@ + h`@@+ v0 + r,> (BtA" (@ G )@. ^+ J H78 Z t Qhx Up& /@| X| re t0 t" mU l L * }HX' /@ /@| ?0| @P * /@ Bp
* 3@ _+ {`` + `t + z `` @+ a`` + b`` + c~ ,^ ,~ , o+ z,~ @@ (@tA 1@ + 1@ + 1@ + ,^ + RO@ 3Z 2\ +
Z / 2@ 0+
, xa` @@ 0'6 0'+
,^ / d+ ,^ ,~ >` 0&+ +
@@ @F ,~ , Z@ O@ 0',^ 6@ 1%+@ 1%, 3Z 2\ + a` + ] Z \ F 0`` @ + ]b @@ 7 0+ b7@ 0+ $d d 0z d f l d g 0v , 6@ 1&+@ 1&Z 0 0`` @+ 2 i[ 4B .x x j+ / jZ 3B g+ 2x Z x O@ 0) ( A 5@ 5 0` z (@ . k @
TD k[ 5D :@@ 0)+ BO@ 0'0d + ?1D
TDB 0( lZ 5D D@@ 0)+ LO@ 0(0d + I1D
T B 0) m7@ 0)+ P 0(F 0)x -
T B 0)@ 0`` @+ U[ @ 3B g+ U` 0Q[ x ` 0QZ , @ 4@ [ 0`` @+ [
7@ h O@ + !af @@ 0': `f b , 6 0+ j7 00 + 0 + u o ` @ @
p7@ 0,~ 0` O@ 1*,~ O@ 0" *` y6@ @@ 0+ p,> @@
v o*
m,^ 7@ /}+ , /}+ O@
v: x ,> ! o* ,^ ,~ @@ + + O + @ ,> 7@
vz 7@ /}z o*
m,^ , /}+ + h h p,^
u,>
u> l b 0Q6 0+ , x`` + ,^ + 0,^ 6@ 1'+ b +
u <+
uh h q x > l b 0Q6 0+ , xa` + 0,> 2@ s+ 0,^ + /~6 0+ .a 0
d t[ /| ` Z /| d u[ | ` Z | 7@ 1'd u6@ 1'd v6@ 0+ z7@ 0+ }d ~7@
p+ .d
pz ` 0Q,~ h
z 6@ 1'+ 3 m @ * 8 ` ,~ "
* +
,
/,~ x8 9x: Lx> \hA _ ` baHK @
ta~~ + W`^N + WZ 1` 0a+ W0 1"+ W[ 1`?+ W0 + W
t6@ 1)+@ 1), X6@ 1)+@ 1) /
t /@@
n,
Z 90@ z+ [@@
n: 9
t,~ @ 0# c* 9 @ 0" / @ 0# h+ ] @ 0# k+ ] @ 0# l+ ] ^ 0a 0!,> d
v @ + xd
0"> v @ + x
+ x
+ x @ 0# + @ 0" +`@ + v`@ + c`@ + t`@ + u
+ x
+ x
+ x 0#+@ 0
+ x,> b ,^ 6@ x d
0"v ` Z x l ` 0Q 0#+@ 0 z : 0> 0
@@ 0'@@ 0, x`` + 7@ 0
+ ,~ h
0z b b 0Q: x ,~ 6@ 0+ 07@ 1' ` <+ 0 @@ 03Z @ 03O@ 04@@ 01+ @ B
q D
q F
r H
r J
s@j
x``xz 4@ 0 +
q
q
r
r
s,~ 0`~ + d @ 034 3" + 03.( 2" +
Q
+ (B 034 034D 5@ # 023d z
Q
+ B
{ D
{@ 022 03+ -+ * 034 -@A Q` . *!03.$ + )
{
{,~ B
zZ 1b + 9 07@ 1$a` + 3+ <6@ 0+ ?7@ 0+ <+` `@ + :d ` (@ A" G : x
z,~ `@ + 9+ 7 \ ` @ Z . + 9 + 9@ 6 0+ B+ C7@ 0O 4H Ed
` 0Q@f 4H H 03p 03p ` 03. / 03& .
4H Lz J 02Z (. d @ 024H O` 0Q,~ , xa` ,~ B
y D
y F
zh
, + rh
-& c+ T @
xh
-& c+ V @
wh
x-& jh
!
w-& jb 0Qh
", + S, ^+ S 0 / 0
S X 0
w
#3@
xb
#*d a,~ , #+ `@ + q1` ~1 + q1@ (+ ql (@: + (B d
$
$3@ + o*d k f + d b + nh
%+ T
z
y
y,~ (@G
'[@
xZ@
w B
y D
y F
z, ^+ r6@ 1(+ 7@ + 6@
+ + ~7 0X 0 @ 0,~ @ 7@ 1' ` @ 0 0+ | 0,~ @@
@@ ,
O@ O@ , x`` , 0`` ,~ 7 0,~ 6@ 1(+ h g 0v b 0Q,~ ,> 6@ 1(+ $7 0+ %7@ + &h g 0v h
(, e+ 1@ + (@ @ , e+ G 1@ + 1@ )F+ #1@ ,F+ 1@ '+ ", }+ @@ + h
,, #+ (S@ h
., #+ *P @ 0O@
,^ ,~ @@
+ !6@ + ! + + 4@ @ 0+ 0@ + :, -+ 0@ + 1*4@ , -+ ,> ,> ,> Q"w $ @ b 0Q 4@ 6b b , F+ 1+ 7+ CG (D*b 1b 0Q ,^ ,^ ,^ ,~ C
~- eO$ Zi?$]?m a;%LI&tp Y>~ 9KK Kxad\Yee1ic%Tx?[>$MQp@C96G"
0, e,~ 1@ 1@ + R0@ ,1@ '+ M,~ (@ @ , e,~ G 1@ ,F+ R1@ '+ R,~ : x : x : x : x ,~ @@
n,~ @ 7 0,~ 6@ 1'+ Y
$ 0L,~ + ,> ,> " !+ ],^ ,^ ,~ B 0L,^ ,^ + 6@ 1'+ b
+ + d,> B 0L,^ , + d,~ H , q+ f: x ( H 0J ,~ , U,~ 0@ >1@ ?+ m0@
6@ 1)+@ 1),~ 6@ 1'+ s
( 0L+ 7@
n+ v
n4@ v @ 0L+ ,> ,> ,>
3 B
n
3@ )+ 1,^ ,^ ,^ + q,> @@
n " 7@ 1'
2 6@ 1' ,^ ,~ 0LA ?0 00` =+ / @ 0M0@ +
@@
s7@ 1'
6@ 1'`
n 0a` +
` 0Q 0M: x ,~ 1@ + 0a` +
0Mt +
+ B D h
4, e+ 0@ ,1@ '+ + (B , e+ G 3B + 3B + + : x ,~ b 0Q, }+ ,F ' ,F + # + # B D
F
@b @@ 0M@@
|@@
t@@ 1$, e+ 71@ + >1@ + @1@ + 11@ + 10 +@:+ 7O@ 1$: +@;/ . + (+@=+ 71F + B
6@
|" : x ,~ B 0M
,~ 0` 0` 0` (B $" (B 0d 0d 0d 6@ + 7O@
|+ (0F + 7O@
t+ ( $ @@ 6@
t+ HbB
5+ 7(B )@ =D E + 3@@ @@ $& )@ . =D H + 3 B D
6 " , e+ W1@ + W1@ + W0 0` -+ W0` 0 + T+ Wh `B + W@ + N: x ,~ @@
w@@ 0K@@ 0H@@ @@ 0I@@
o@@ 0GO@ 0I" D @ 0H@@ 0K@@ 0N@@ 0N@@ 0O@@ 0O7@ 1'+ d " #d `l ` $ 0 @ *7 0,~ 6@ 0,~ + O@ 0GO@ @@ , o+ O@ 0G@@ 6 0H+ z, xa` @ + ,^ + y6@ 1'+ q
6 + ,~ ,> ,> " #d$ $,^ ,^ @@
n,~ @@
|
}
}
~
~@@ 0G,~ ,^ 6@ 0H+ yO@ 0H B
| D
} F
} H
~ J
~O@
6+ U B
| D
} F
} H
~ J
~,^ @@ ($ A$ 1D + U4D U1D + \1D + [1D + P1D + S+ G,> )@ . t 5B
,^ ,~ ,> )@ . t 5B ,^ ,~ ,> O
+ ,> @
,> ,> ,> ,> Z & @ )" 1D + "1D + !1D $ 4 5J
:t =F 9 5J
;` 0Q+ ,^ ,^ ,^ ,^ ,^ ,~ ,> O
+ (,> @
,> ,> ,> ,> 5$ - 5J
<t " @ @f 4D 1 & @ )B 4B 6O 5J
=t =f /,^ ,^ ,^ ,^ ,^ ,~ 4H 2+ 1 B " D 7@ 01+ ?(@ud 5B
>j d x5B
?p ,~ [ 5B
@l 5B
At Z 5B
Bl + > B D B 7 " + 8 ( ~=F G " ) -& h=D H B 7@ 0I+ M " -& h7@ + v $ @@ + H & $ O@ O@ 0I+ G+ vA ? -& h+ vO@ @ $ @ ) 4B v-& h=D W: 7@ + v+ VO@ 5 ^ " -& h" , _+ v 0Z)@n(B' 0YQBx > 4@ e, _[x ." -& h,~ 7@ + c<$ c 0Y-& h+ f @
B 0:
s1B @@ 0B + m7@ : 0H@@
s1B @@
s6@ + p`` @ + -( z6@ 0P+ u6@ 0P+ s+ y0B + y
0P+ w0B + y
0P<* y " -( z+ w
+ H
0`` + j
s1@ + 7@ 1'
" 6@ 1', +
6 0+ ~,> " 7@ 1'
" 6@ 1' ,^ + ~7@ 0K, , 7@ +
+ |0B ,> ,> B
p " %,> ,> d l %
p " ,^ ,^ %,^ ,^ ,^ ,~ ,~ 7@ 1'+ @,> ,>
n ,^ ,^ ,~ 0 @ 0\ 0 @ 0\ B D @@
v7@ 1'+ D
C
D B
U " 0\, 4S" \$
U 4 ' B
n
D + 1O@ 0K ,~ 6@
v+ 1\"
E
C
I B
UO@
v+ 7@ 0K,~ 7@ 1'+ O,>
n + 1,^ @@ 0K,~ " U$ @ < < <,> ,> ,> , = @ R 6@ , =B ,^ ,^ ,^ ,~ @` )@ . @ 5B =,~ 6@
u+ C?` 0[+ CB 0[,~ ~ + B @ 0\> I0 ( + K
u+ %7@
w
&
EO@
w> INX ( + T+ F
~@
&
I> @@ 0K,~
&
L6@ 1(+@ 1( b + 0
&
N+ R
&
P+ R P + + /
EXEC ONLY
, 9+ R}&eI3C0]7}W->M2
|~ ?_wx0a|(Q"E}W-pY' @eH?b t + zz + zx + z~ + z }R.= a 0_Vv@| }BP ~ }O= Q ~ }+y&p` 4p }| ` }~,RGQP } M0Xh }N8yKAP CC
fKK|@Qf@hx M$ aJ||PZ.,Wd@ DDT m:7\x g?%|Ep %|Ip ^4(~ d w+ +]D(~ 6@ 1*+ xd y+ +\(~ d |+ +](~
~ |(Q"E}&eI3C0YiK,=_8p }&eI3C0Y6_KH
RCx }&eI3C0Y6KKH\~ }6-[yr+z~ }:}c<6-[ys| }6-[yr Tigx }dy 0
_ wp K:
gLp }6-[yrl ;z6+v ^
tu}?`}DSJ$]TG;rKLgp 2 m& P( ~ ]8 m& P(:~ G"x 3@ ? @9`| }2@
{SR 9 p y }p ~ e =tiD\`8
|@>xP - Y,N,^ <CR> OR ^Z - H
W` Bd|@\d<O 4p D"DH
******
EXCEEDED ALLOWED PRINTOUTS
t + b 0Q+ "t + ,t + 2j + <p + >l + At + Bl + D
UDEV:
****
USING 'DSK' PRINT FILE
****
DSK:
%PRINT CLOSE ERROR
%PRINT OUTPUT ERROR
DSK INIT ERROR
NO DIR ROOM x
T+
T/~ + /+ + /~+ /~+ 0 + 0 + 0 + /~+ + /@0 0 0 0 0 0 gV-i7 rq'X0
Sx0
x0~`0t + 0| 0 0 : x ,~ + + + + + + + + + + + + + 0!0)@0 @0 @0 @0 @0 @0 @0 @0 @0 @0 @0 @0 @0 @0 ~h0P
, . - + * @ ( ) ? / $ p0[aJMm a; p0_aJMm a; x0awx0a+