Trailing-Edge
-
PDP-10 Archives
-
decuslib10-09
-
43,50466/cminv.exe
There are 2 other files named cminv.exe in the archive. Click here to see a list.
?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:#93 3: 90+?(1H ,2E12.4,2X,2E12.4,2X,2E12.4) -\ 4&4~4V44!4 4!4$4$4#44Z $5DH $4Dz "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: 9q % 3:#9n+<"$.# 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 VUX DV UU VTX 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 $.6b0b7+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(gO 2F(gO 2H'gO
2J'g
O
2L&g
O
2N&gO 2P%gOAA
A
AAA4$
~2D(gO ~2F(gO ~2H'gO
2J'g
O
2L&g
O
2N&gO 2P%gOAA
A
AAA4$ 2D(gO 2F(gO 2H'gO
2J'g
O
2L&g
O
2N&gO 2P%gOAA
A
AAA5$2+} ~2D(gO ~2F(gO ~2H'gO
2J'g
O
2L&g
O
2N&gO 2P%gOAA
A
AAA5$G $.6b0b7+F474{@@-\4 $A &3FgO (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 2dgO 3&gOA4$Z $A0DgO 2FgOA4$+&
D
D $ D D!-\ G4
-\ c444" $3D"+X $.D+S DC DD@@$ X@C "{b : Z" %1:9] : Z# ~2Dh%+c0z=` #2D%gO 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! $.6b0b7+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 ,2D8gO -2F8gO -2H7gOAA5$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,>Zp @\` <,,^,~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|+![pd0@ +![pd0@ +!+!_w6@!
_w#`1 +!SpXp @ 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+!|6cp0b "b"$"1 ({."XB`&$@6@.$.$
a|+!t[pdp0B +!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*+