Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

?p
@

?xG6Mm@Kb)C}*tC`INXQF:{A)'[?{BE@
M(#
>'C

p-a#*>	`>#p=x#  $
 D"O@! $ D!-\ Z4$ $ D" !X@6 "7b +;(1X,'WMU COMPLEX MATRIX INVERSION',/)   -\z4-\z4 $ D !X@@ "Ab +L(' IF YOU DESIRE OUTPUT IDENTIFICATION,ENTER UP TO 80'/' CHARACTERS. OTHERWISE, JUST RETURN CARRIAGE'/)   !X@M "QB : Z  1:9N +S(16A5)     !X@T "Ub +Y(' ENTER THE NUMBER OF UNKNOWNS'/)  !X@[ "nB   !X@^ "b +c(' ENTER THE NUMBER OF SYSTEMS'/)   !X@d "nB!  !X@g "hb +k(' ENTER TOLERANCE'/)     !X@m "yB! +o(2I) -\$4!4!4i4"44 $.  D"  .! D#@@#@@$@@$ 2D#++z(8G)  !X@{ "|b +
(' ENTER DATA'/,	' NOTE: USE COMMA(,) INSTEAD OF SEMICOLON(;) TO SEPARATE PAIRS'/	' OF COMPLEX NUMBERS',/)    "$."5D
 "X@
 "yB : Z  : Z% $$  .
 $$. n3:#9

 +
" "X@
 "iQ"0B : Z  : Z% $$  .
 $$. n3:#9
  3: 9
 +
"(1H0) "X@
$ "
(b : Z  1:9
% +
*(1H-,16A5/)     "X@
+ "
,b +
0(1H1,23X,13H INPUT MATRIX /)   : Z  "X@
2 "
;b : Z% $$  .
 $$. n3:#9
3   3: 9
0+
?(1H ,2E12.4,2X,2E12.4,2X,2E12.4)   -\	4&4~4V44!4 4!4$4$4#44Z $5D
H $4D
z "X@
I "
Kb$$ +
U(//,' REAL PART OF DETERMINANT=',E15.8,20X/ ,' IMAGINARY', ' PART OF DETERMINANT=',E15.8//)     "X@
W "
Xb +
\(23X,23HINVERSE OF INPUT MATRIX/)   : Z  "X@
^ "
;b : Z% $$  .
F $$. 3: 9
_   3: 9
\ "X@
i "
jb +
n( //23X,17H SOLUTION VECTORS /)     " Z% "X@
p "
;b : Z  $$% .
 $$%.n3: 9
q % 3:#9
n+<"$.# D% "X@
} "
~b% +(//37H INPUT MATRIX IS SINGULAR AND OF RANK I4 /  31H SOLUTION TO HOMOGENEOUS SYSTEM /)    # Z% "X@
 "
;b : Z  $$% .
 $$%.n3: 9 % 3: 9+< !X@ "b +(1X,'DATA BEING PROCESSED'/)  +
-\#k+  +00TTY  -\ *4 @ . D  $. D!"$. D!!$ D"!$ D@@ : Z" : Z#"$.$ ".
 F# "/4D7 #.@@+9 #.!& F #3:90 "3:9/ : Z" : Z#"$.$ ".
 F# #.@@3:9> "3:9< : Z  D$  Z"  Z#"$.$ ".
 F# #.  #. ''
 D"$4dU " D$ # D%  D$ #3:9H "3:9G"$5d@@@@"$. D% : Z"  Z#"$.$ ".
 F# #."` #."`3:9^ "3:%9]  Z"  Z#"$.$ ".
 F# "/4Do #.@@+q #.!& F #3:9h "3:9g"$. D""" "..4D ".  D&  Z#"$.$ ".
 F#"$.$ &.
 F #.  D #. . ' F .  F #.  D #. . ' F .  F3:9{>""$."5$v+  D  D"$.%$ $.
 F# #. $XD #. $XD-\1444444".$4DN"D"  Z#"$.$ $.
 F#"$.$ .
 F #.  D #. . ' F .  F #.  D #. . ' F .  F3: 9# : Z#"$.$ $.
 F#"$.$ .
 F #.  D #. . ' F .  F #.  D #. . ' F .  F3:99 . % F".%4Dh"D" : Z""$.$ .
 F#"$.%$ .
 F #.  D #. . ' F .  F #.  D #. . ' F .  F3:9S"$.$ .
 F#" #.5Dp #. 4D #.  D& #.  D'  Z#"$.$ .
 F# #.  D #.  D #. $XD #. $XD-\J444&4'443: 9t : Z#"$.$ .
 F# #.  D #.  D #. $XD #. $XD-\J444&4'443:9 : Z" /4DI"$.$ ".
 F# #. 5D #. 4DI #.  D #.  D  Z#"$.$ .
 F#"$.$ ".
 F #. $XD/ #. $XD/-\1444/4/4'4("' .D"( .D3: 9# : Z#"$.$ .
 F#"$.$ ".
 F #. $XDB #. $XDC-\1444B4C4'4("' .D"( .D3:96 "3:9 3:9E "D "D" ..4Di .  D( ! Z#"$.$ .
 F#"$.$ (.
 F #.  D #. . ' F .  F #.  D #. . ' F .  F3: 9T>"$.5$N  D" ..4D .  D( : Z#"$.$ .
 F#"$.$ (.
 F #.  D #. . ' F .  F #.  D #. . ' F .  F3:9q>"$.5$l+4 Z \  , p, p, p
, p
,!p,!p,!p,!p,!p,!p,!p, p+&  \ / 
,Ap,Ap,Ap,Ap-|p 0 $ D? $ D? ;< <=
 D= ;= <<
 D>+74 Z: \:  ;,!p,!p,!p
,!p
,!p,!p+) : :\ >,Ap,Ap-|p UU VV
 DX UT VU
X DV UU VT
X DW+P4 ZS \S  T,!p,!p,!p
,!p
,!p,!p+@ S S\ W,Ap,Ap-|p 5DZ " D  D" $A5D^ # D $A &2F
+a # D $.6b
0b7+
d4f4o4m4v !X@h "ib +m(' INPUT? (TYPE HELP IF NEEDED)--',$)    " D+w !X@p "qb +v(' OUTPUT? (TYPE HELP IF NEEDED)--',$)   " D !X@y "{  
X@DB %4 +}(50A1)     ~2D(g
O 2F(g
O 2H'gO 
2J'g
O
 

2L&g

O

 2N&gO 
2P%gOAA

A
AAA
4$
 ~2D(g
O ~2F(g
O ~2H'gO 

2J'g
O
 

2L&g

O

 2N&gO 2P%gOAA

A
AAA
4$ 2D(g
O 2F(g
O 2H'gO 
2J'g
O
 

2L&g

O

 2N&gO 2P%gOAA

A
AAA
5$2+} ~2D(g
O ~2F(g
O ~2H'gO 
2J'g
O
 

2L&g

O

 
2N&gO 2P%gOAA

A
AAA
5$G $.6b
0b
7+
F474{@@-\4 $A &3F
g
O (3HgOG4&R-\!_4C444F@@@@$@@@@@@@@@@@@ ~ D ~ D ~ D@@ @@ :  $3$ +~   2D%+^ $ D    3D%+e   3D%+p   3D%+|+Y $.  D $.  D : Z! h# Dh%2z=i!: Z!  . ~ F%1:
9l $.D +Y $.  D $.  D : Z! h  Dh%2z=t $.  D   Z! ~ Dh%3:9y $.D +Y   D+Y 4D  >X@C "{ $. D &. 
 Z!  %3:9   >X@C "
b +(2O)   5D $. D &. 
 Z! ~2Dh%+2z= $ D! !  F%  X@C "{ $. D &. 
 Z!  %3:9  4D#  X@C "{ : Z! %1:9   4D0  >X@C "{ $. D &. 
 Z!  %3:9)   >X@C "/bF +0(I)   ~2D+> ~3D+5 	 D+>"$3D$+8 	 D+> $A5D: 
 D $A &2F
+> 
 D-\ G44 	3D+Z 
3D+M 2dg
O 3&g
OA
4$Z $A0Dg
O 	2Fg
OA
4$+& 

 D 

 D $ D  D!-\ G4
-\ c444" $3D"+X $
.D+S  DC  DD@@$  X@C "{b : Z" %1:9]  : Z# ~2Dh%+c0z
=`  #2D%g
O 2H$gO 
2J$g
O
AA5$l $ D$ ~2D+u $A5Dp  D $A &2F
+t  D  D $A &3F
+-\ c444"44 "4D !X@} "~b +
(' FILE DOES NOT EXIST'/)"$2D$+-\#k+a@@# $2D$+ $? D#-\!44#44

44+G$2D+C444F-\#k $3D+4 $A5D X@+& $2dG+& $3D$+-\ G4
G $ D$ $3D+4 $ D-\4G@@# $2D$+" $? D#-\!4G4#4$4
4 D% $3D%+/  DE  DF  D#  D"  D%  D%+2  DD  DE  D# $ D+} GX@5 G D+& !X@8 "9b +4('-THIS ANSWER DEFINES WHERE THE PROGRAM IS TO FIND THE INPUT DATA.  IT'/' USUALLY CONSISTS OF A DEVICE, POSSIBLY A FILENAME WITH OR WITHOUT AN'/' EXTENSION, AND A PROJECT-PROGRAMMER NUMBER.'//' POSSIBLE DEVICES ARE:'//6X,'DEVICES',3X, 'DESCRIPTION'/6X,7('-'),3X,11('-')/6X,'TTY:',6X,'TERMINAL'/ 6X,'DSK:',6X,'DISK (FILENAME AND EXTENSION, PROJECT-PROGRAMMER NUMBER'/22X,'MAY BE USED)'/6X,'CDR:',6X,'CARD READER  (THIS DEVICE IS NOT APPLICABLE ON TERMINAL'/30X,'JOBS)'/6X,'DTA#:',5X, 'DECTAPE UNIT (USER''S DECTAPE SHOULD ALREADY BE MOUNTED)'/6X, 'MTA#:',5X,'MAGTAPE UNIT (USER''S MAGTAPE SHOULD ALREADY BE MOUNTED'/30X,'AND POSITIONED)'///' DEFAULTS:'//' (1)  IF NO INPUT DEVICE IS SPECIFIED BUT A FILENAME IS GIVEN, THE'/6X,'DEFAULT DEVICE WILL BE DSK:'//' (2)  IF A DEVICE WHICH REQUIRES A FILENAME AND EXTENSION IS SPECIFIED,'/6X,'BUT NO FILENAME IS GIVEN, THE DEFAULT NAME WILL BE INPUT.DAT'//' (3)  IF NO RESPONSE IS GIVEN, I.E. A CARRIAGE RETURN <CR> IS ENTERED,'/6X,'THE DEFAULT DEVICE IS TTY: ON JOBS RUN FROM TERMINALS; AND'/28X,'CDR: ON BATCH JOBS'//' (4)  IF DSK: IS SPECIFIED AS THE INPUT DEVICE AND NO PROJECT-PROGRAMMER'/6X,'NUMBER IS GIVEN, THE USER''S PROJECT-PROGRAMMER NUMBER WILL BE'/6X,'ASSUMED.'///)     !X@6 "8b +u(' EXAMPLES:    DATA.DAT'/14X,'TEST.DAT',A1,'420,420',A1/ 14X,'MTA0:'/14X,'DTA2:FILE1'//' NOTE:  THE FOLLOWING RESPONSES ARE VALID AFTER THE FIRST "INPUT?"'//' (1)  SAME COMMAND.  IF THE DATA FILE TO BE USED IS THE SAME AS THE'/6X,'PRECEEDING ONE, THE USER MAY SIMPLY ENTER "SAME"'//' (2)  FINISH COMMAND.  THE USER MUST ENTER "FINISH" TO EXIT FROM THE'/6X,'PROGRAM.  THIS ENSURES THAT OUTPUT ASSIGNED TO LPT: WILL BE'/6X,'PRINTED.  FAILURE TO USE THE "FINISH" COMMAND MAY RESULT IN'/6X,'LOSING THE ENTIRE OUTPUT FILE.'//' (3)  A ^Z (CONTROL Z) WILL RESULT IN THE SAME ACTION AS THE "FINISH"'/6X,'COMMAND.'///)-\4! $.6b
0b7+
y4f4o4f4o !X@} "~b +y('-THE ANSWER DEFINES WHERE THE OUTPUT FROM THE PROGRAM IS TO BE PLACED.'/' IT USUALLY CONSISTS OF A DEVICE AND POSSIBLY A FILENAME WITH OR WITH-'/' OUT AN EXTENSION.'//' POSSIBLE DEVICES ARE:'//6X,'DEVICE',3X,'DESCRIPTION'/6X,6('-'),3X, 11('-')/6X,'TTY:',5X,'TERMINAL'/6X,'DSK:',5X,'DISK (FILENAME AND EXTENSION MAY BE USED)'/6X,'LPT:',5X,'LINEPRINTER  (MULTIPLE COPIES MAY BE REQUESTED BY USE OF'/29X,'THE "/COPIES" COMMAND)'/ 6X,'DTA#:',4X,'DECTAPE UNIT (USER''S DECTAPE SHOULD ALREADY BE MOUNTED;'/29X,'FILENAME AND EXTENSION MAY BE USED.)'/ 6X,'MTA#:',4X,'MAGTAPE UNIT (USER''S MAGTAPE SHOULD ALREADY BE MOUNTED'/29X,'AND POSITIONED)'///' DEFAULTS:'//' (1)  IF NO OUTPUT DEVICE IS SPECIFIED BUT A FILENAME IS GIVEN, THE'/6X, 'DEFAULT DEVICE WILL BE DSK:'//' (2)  IF A DEVICE WHICH REQUIRES A FILENAME AND EXTENSION IS SPECIFIED,'/6X,'BUT NO FILENAME IS GIVEN, THE DEFAULT NAME WILL BE OUTPT.DAT'//' (3)  IF NO RESPONSE IS GIVEN, I.E. A CARRIAGE RETURN <CR> IS ENTERED,'/6X,'THE DEFAULT DEVICE IS TTY: ON JOBS RUN FROM TERMINALS; AND'/28X,'LPT: ON BATCH JOBS'//' (4)  IF LPT: IS LISTED AS THE OUTPUT DEVICE, THE NUMBER OF COPIES WILL'/6X,'DEFAULT TO 1.'/// ' EXAMPLES:    LPT:/2'/14X,'RPT.DAT'/14X,'DTA0:NAME.DAT'///)    +u+}4 Z \  ,!p+X  -|p     H    S    I    N    F    E    M    A    U    T    O    C    P    L    
.    :    [    /    DSK  TTY  CDR  LPT  DTA0 DTA9 OUTAAA.AAADSK  K    B    INPUTOUTPT.DAT TTYDAT.TMP[    ]    @@4@@2@@5 $( D5@@6 35DL-\#k $2D3+P 1X@O "Pb +R(' FORMAT'/)    $
3$3+W 1X@U "Wb 3 +[(' FORMAT: (',A1,'-TYPE ONLY)'/)    1X@\ "`B : Z6 71:(9] +b(80A1)     $3D5+p ,2D8g
O -2F8g
O -2H7gOAA
5$k+) : Z6 .2 . F3:39l $ D5 $3d3+s $$3 D5 : Z6 .2Dh7+x3:59t $ D2+) . 62D7+w $ D7 5X@ 7.2  X@C " : Z6 73:59 +(80A1)     : Z6 .2Dh7+:6 /2Dh7+	>63:59 $3d6+

+).$.D7+$.73d3+ $.3/7$$ D5 $2d5+ 1X@ "`B : Z6 71:(9 +{ $2D4+-\#k 1X@ "b +"(' ERROR IN FORMAT, TRY AGAIN.'/)   $ D4+H+)4 Z/ \0  0,!p,!p, p
,!p
,!p,!p+G / 0\ 3/ 
,Ap
-|pM    A    S         (    )    I    F    A     \F @F<N0<0|+1\+o,>p`Zp`+p@h@p@
(,@
05@x@
@
87@
(%@P0@P0@h@
w@
 w@
@
dH$[(/<0"`S<pX<0 p3@O+u*|q-<[Z`a+$!  @w+s<O p7 p+,>,>
,>
 &w p,
p,>.< p`P w,&
,&5 |.< pdQ:." Q,& p,&>`
9.<
9}@@,^
,^
,^+d @@& 0b.".")B}5@,~m<!<P\B<O p[pl<0@X+Zp.</ pQ \C+@@C!<P\B7@E+ <E \C@@E!<P\BXX\B Q7@DD<7@DA< \B <B[`x F,x,^x F+a aQ< \B:a  \C<R p>|R < \B@@C+"@@B Q< \B<R p>|S+"7T V \B @5XQ< \B V \C+"[`x F,x+<Z \B@@B@@C<O \C+"7D DX\a@@D@@D+$>x! Z @
&WU`eB+M@)@
G 
"+I
&[+d6$1,>#m.@

p.46$g0;.

.4C.BSEQIN@SSEQOUT@U
@5
%5 Source level error at user's loc	
	`Z(X^. >[.~(3~+`	~+kZ. \x <x*<x .-> 0ez+g!"	b+  "h	b+Z. h+ggM?Th
&m	b+[,
?NO CORE AVAILABLE - CAN NOT PROCEED
!***,^,~*x,> <*<  
pZ@@@@@ H`|+{Pw,~ "p h a`~+h  ``~+
$H!dI/"+{P,~
@
@
@ 
@
@0
@x
@@
@`edX91,>#m,>Z
p @\` <,,^,~SMI 1,>#m,t J B++_MI 1,>#m,t L B++I5R1,>#m,t M B*\57ApX"N B/& pd"~l" B*\5/& pd"~l"$ B*\5/& pd"~l"

 B*\5Sp*\5/&Xp B@@ O B*\5/& pd"~l" BRF <,+rEV4i91,>#m+CS,i@1,>#m+C_,i@1,>#m+CK>21,>#m+CK>401,>#m+C[<I71,>#m
&O w @)@. 
"5BD
&U,~`
.

.4SEQIN^ISEQOUT^KRANDOM^LSEQINOUT
%0 THE FOLLOWING ROUTINE IS NOT IMPLEMENTED IN FOROTS: 
a.3@1,>#mO@ +ZgR~@1,>#m@@ ,>,>@6 w+g" 0B+b!"A`X#p5@_/#p!"X#p+g\p+ga.9'1,>#m,>,>O@ +g,>
6+ _4`o"`Q@,> < ,,^,> < ,
,^*bl+z,> < ,,^7@ +u,> < ,
,^+w,> < ,
,^Z5"z,> <  ,
,^,7@ ,

,> < !,,^,,> < $,,^,> < ',
,^(@qd1@,,

1@#+ 0@*+z,> < ),,^+z,^,^,^,~(' Type G to Continue, X to Exit, T To trace.'/2H *,$)(A1)(1H 14A5/)(1H A5,1X,O6)PAUSESTOP .pX 
p X 
p  p  p X 
X~ p 
xC1,>#m#
p,~S01,>#m#
p+" /,~U ,~!$hX$h@@h*% " 7 BhL " BhM+xeX2GiSHYC aSiSHINXGYC GSHiSHaSaSI'IR
IR
 IR
0IR
@IR
PIR
`IR
p[R
[R
[R
 M?L@INXINXINXINXINXI2I2 I20I2@GiSHI4:1,>#mZ.@6kp2j8M+ X !pQ A`  Q\$}

4L O/,L8$ M.
8L F(,~H
?FRSDVC - ILLEGAL DEVICE NUMBER IN CALL TO DEVCHG

& Q < W,

iSN,>#m@ApO
,7 OAp,~44 _4!KbN=1,>#mO@!

 p4B g,!/4@ g9 k9 jKbN=1,>#m@@!

!$Lu 
	`@Ap``a`
+!	a`+! D bA 
(` p/"#B a@@ b !pX@ ^,> < ^,!,^7@!+ vOAp+!
 #pQ"A` $1@+ {0`=d x! H: @ `@@ aa|+!
[p
d
0@ +![p
d
0@ +!+!_w6@!

_w#`1 +!S
p
X
p
 @ a
 a+!@ _+!	+!

&!

+!
   Ap ,~
 ERROR ON OPEN!
HH!H!G.t21,>#m@@Ap
! A`.!p @! ! @!@@!@@! & "!<1D+!-!(=b!!<0D+!&O "
 ! @!!<-!(=b!7@!OAp
 !p<, !, !,~
<&!!!1D+!%   Ap
+!!1D+!%1$+!"1d+!-0$ 0d-+!" $D!+
!("!K,!X0@+!G p4B!ILad+!F`b+!G $0d"+!I&$$&(&}Z.G!K.&$
.$ 7F+!< 
 ,~ A$&$(DG$1$((D(D

 
	`5@!I .2bM+!E L.&7D!$Lu+!H2"!L+!B &p,!P 
	`,~
&!L <!O,

.p M}ILLEGAL DEVICE NUMBER!
"!W,!X 'Q&A` !W@
1x,~180.8X=`!S,~.H
  a|+![0"0b/ ,~0B1B,~0B/ ,~aJMm1,>#m,#&+!{@,"P,#"+!{Z"
6Ep
 "
 B` "b" $
7cp $1B
 $
d",!},"o+!|6cp
0b "b"$"1 ({."XB`&$@6@
.$.$
a|+!t[pd
p0B +!x+!v_w#`1"+!x6cp 0d $QD`,":+ ,#- ,~
&"+!z
&"+!z@b
 -p .Q,A` 
"
4P"1P+"/0P=n",~`

``
CANNOT INIT DISK!

FILE NOT FOUND!
HH
 .
 
"
+"YC GaSa3 S;YC&<G<aS<a3&<E$;w|x" P"

 B`
1T!"L	b@XB`
O@", #> ",@,#-
+#6!,2,#@!.
~,#-`+#?""1T""QB"*,#-	f+ 1$9"J+#% 8"@`" #A*("* #A	n@`N+#F 6`
 #G1T #H B`
 " B`\"

	b@ B`\"H	b!"Z(Brb#I	b

 B"-	b
+"`B`!"2	b`b`b+"j!"2	b!`2B`+"j!$2	d!$Lu+"m #I	b@#J,#J	d!$Lu B"+ D",,~@@"/ #K*("5 B"/ D"0 BX B` DXZ"-(D}	d ` D"/ DX "2D`b#Kd  "b#L,#-@".+#L "5 BX@@"6 #O	b$+"!""7X"X*"X!"`
+#!,2,#B,#-"X

"0 "0,#- +# JX,#- +#%
&#P "
b#Ka`+#+"ya`+#,#- ".+ +# 	x H# 	h	&(2 
P"

 #V."- &..0P`bp+#d

@ "+,#-+# `L+# "++#% (!*Lu@

,#-
,~:x,~ " B#>O@"-O@".g "?$#>+#5	d5D#) #>(D D"-+#%,> 
e`
p+#17 ".+#4l!".+#37 "-+#4l!"-:+@>,^+#%
&#V,~ "
&#X,~ "
&#^,~,#=
&#f
& ,#=	b (#f+#9
&#j,~@;`",+">+#8
""0CMQ Cannot do MPB QUEUE on GALAXY system. (#B+#9`` `
P$` 
h%p"/

XHXa`
,~!"
GB`+#@"66$"0
% Cannot do DISPOSE:RENAME. DISPOSE:DELETE assumed.
0NO FREE CHANNELS!

% CANNOT OPEN QUEUE DEVICE!
% PLEASE NOTIFY OPERATOR!

% CANNOT ENTER QUEUE REQUEST IN QUE UFD!
% PLEASE NOTIFY OPERATOR!
?QMRCNC Can't CONTINUE -- try REENTER
KbN@1,>#m,

,~#mY\#oQ<X\#o*+