Google
 

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	`21@@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@021@@+4
&	X
'0
+0\"	X\#0
+0 	Y @ 	Z @0@@
,~6@1&+@1&a~~+W`^N+W,>Z1`0a+W0>1"+W[1`?+W0b+W,(@r0`/ . O+++|++^,^,>d	Z,^v`,^/ v`0Q+@0z6@
+O@
 ^ 0a2^	]+  0!,>h	] vzZ4@j1@+h`@@+v0 +r,> (BtA"(@G)@. ^+JH78ZtQhxUp&/@|X|ret0t"mUlL* }HX'/@/@|?0|@P* /@Bp
*  3@	_+{``+	`t+z ``@+	a`` +	b``+	c~,^,~,o+z,~@@ (@tA 1@+1@+1@+,^+RO@3Z2\+
Z/ 2@0+
,xa`@@0'6 0'+
,^/	d+,^,~>`0&+	+
@@@F,~,Z@O@0',^6@1%+@1%,3Z2\+a`+] Z \ F0``@+]b@@7 0+b7@0+$d	d 0zd	f  ld	g 0v,6@1&+@1&Z0 0``@+2  	i[4B.x x  	j+/  	jZ 3B	g+2xZxO@0) ( A 5@5  0`z(@.	k @
TD	k[5D:@@0)+BO@0'0d+?1D 
TDB0(	lZ5DD@@0)+LO@0(0d+I1D 
T B0)  	m7@0)+P 0(F0)x -
TB0)@0``@+U[@3B	g+U`0Q[x`0QZ, @4@[ 0``@+[ 
7@hO@+!af@@0':`fb,60+j700+0 +u 	o	`@ @
p7@0,~0`O@1*,~O@0" *`y6@@@0+p,>@@
v 	o* 
m,^7@/}+,/}+O@
v:x,>!	o* ,^,~@@+  +O+@,>7@
vz7@/}z 	o* 
m,^,/}++hh	p,^
u,> 
u>lb0Q6 0+,x``+,^+0,^6@1'+	b+
u<+
uhh	q x>lb0Q6 0+,xa`+0,> 2@	s+0,^+/~6 0+.a0
d	t[/|`Z/|d	u[|`Z|7@1'd	u6@1'd	v6@0+	z7@0+	}d	~7@
p+.d	 
pz`0Q,~h
z6@1'+3  m @*  8	`,~ " 
*+ 
, 
/,~x89x:Lx>\hA_`baHK @
ta~~+W`^N+WZ1`0a+W0 1"+W[1`?+W0 +W 
t6@1)+@1),X6@1)+@1)/ 
t/@@
n,
Z90@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@xd
 0"v`Zxl`0Q 0#+@0z:0>0
@@0'@@0,x``+7@0
+,~h
 0zbb0Q:x,~6@0+07@1'	`<+0@@03Z @03O@04@@01+@ B
q D
q F
r H
r J
s@j
x``xz4@0 +  
q 
q 
r 
r 

s,~0`~+ d@  034 3"+  03.(2"+ 
Q
+ (B 034  034D5@# 023dz 
Q
+ B
{ D
{@ 022 03+-+* 034 -@AQ`. *!03.$+) 
{ 
{,~ B
zZ1b+9 07@1$a` +3+<6@0+?7@0+<+``@+:d`(@A"G:x 
z,~`@ +9+7 \ 	`@Z.+9 +9@6 0+B+C7@0O4HEd
`0Q@f4HH 03p 03p` 03. /03& .
4HLz J02Z(. d @024HO`0Q,~,xa`,~ B
y D
y F
zh
,+rh
-&c+T @
xh
-&c+V @
wh
  
x-&jh
! 
w-&jb0Qh
",+S,^+S 0/0
SX0 
w 
#3@
xb
#*da,~,#+`@+q1`~1 +q1@(+ql(@:+(Bd 
$ 
$3@+o*dk f+ db+nh
%+T 
z 
y 
y,~(@G
'[@
xZ@
w B
y D
y F
z,^+r6@1(+7@+6@
++~7 0X0 @0,~@7@1'	` @0 0+| 0,~@@
@@,
O@O@,x`` ,  0``,~7 0,~6@1(+h	g 0vb0Q,~,>6@1(+$7 0+%7@+&h	g 0vh
(,e+1@+(@ @,e+G1@+1@)F+#1@,F+1@'+",}+@@+ h
,,#+(S@h
.,#+*P @0O@
,^,~@@
+!6@+! +   +  4@ @0+0@+  :,-+0@+ 1*4@,-+,>,>,> Q"w $@b0Q 4@6bb,F+1+7+CG(D*b1b0Q ,^,^,^,~C
~-eO$Zi?$]?ma;%LI&tpY>~	9KKKxad\Yee1ic%Tx?[>$MQp@C96G"
0,e,~1@1@+R0@,1@'+M,~(@ @,e,~G1@,F+R1@'+R,~:x:x:x:x,~@@
n,~@7 0,~6@1'+Y
$0L,~+,>,> " !+],^,^,~ B0L,^,^+6@1'+b
++d,>B0L,^,+d,~ H,q+f:x ( H0J ,~,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'
26@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+G3B+3B ++:x 	  ,~b0Q,}+,F',F  +#  +#   B	 D
 F
 @b@@0M@@
|@@
t@@1$,e+71@+>1@+@1@+11@+10 +@:+7O@1$:+@;/ .+(+@=+71F+B 
 
 6@
|" 	:x,~ B0M 
 
 	,~0`0`0`(B$"(B0d0d0d6@+7O@
|+(0F+7O@
t+( $@@6@
t+HbB
5+7(B)@=DE +3@@@@$&)@.=DH +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+U4DU1D+\1D+[1D+P1D+S+G,>   )@. t5B
,^,~,>   )@. t5B,^,~,>O
+,>@
,>,>,>,>Z &  @)"1D+"1D+!1D $4  5J
:t=F95J
;`0Q+ ,^,^,^,^,^,~,>O
+(,>@
,>,>,>,> 5$-  5J
<t"@@f4D1 &@)B4B6O  5J
=t=f/,^,^,^,^,^,~4H2+1 B " D 7@01+?(@ud5B
>j d x5B
?p  ,~[5B
@l  5B
AtZ5B
Bl+> B D B7 "+8 ( ~=FG ") -&h=DH B7@0I+M "-&h7@+v  $@@+H & $O@O@0I+G+vA ? -&h+vO@ @ $ @) 4Bv-&h=DW: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 " %,>,>dl% 
p " ,^,^%,^,^,^,~,~7@1'+	@,>,>  
n,^,^,~ 0 @0\ 0 @0\ B D@@
v7@1'+	D 
C 
D B
U "0\,	4S"\$
U4	' 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[+	CB0[,~~+	B@0\>I0(+	K
u+	%7@
w
&
EO@
w>INX(+	T+	F
~@
&
I>@@0K,~
&
L6@1(+@1(	b+0
&
N+	R
&
P+	RP++/
EXEC ONLY
,9+R}&eI3C0]7}W->M2
|~?_wx0a|(Q"E}W-pY'@eH?bt+zz+zx+z~+z}R.=a0_Vv@|}BP~}O=Q ~}+y&p`4p}|`}~,RGQP}M0Xh}N8yKAPCC
fKK|@Qf@hxM$aJ||PZ.,Wd@DDTm:7\xg?%|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-[yrTigx}dy0
_wpK: 
gLp}6-[yrl;z6+v^
tu}?`}DSJ$]TG;rKLgp2	m&P(~]8	m&P(:~G"x  3@?@9`|}2@
{SR	9py}p ~e =tiD\`8
|@>xP- Y,N,^ <CR> OR ^Z - H
W`Bd|@\d<O4pD"DH
******
EXCEEDED ALLOWED PRINTOUTS
t+ b0Q+"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 ROOMx
T+
T/~+/++/~+/~+0+0+0+/~++/@000000gV-i7rq'X0	
Sx0
x0~`0t+0|00:x,~+ + + + + + + + + + + + +0!0)@0@0@0@0@0@0@0@0@0@0@0@0@0@0~h0P


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