Google
 

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*+