Trailing-Edge
-
PDP-10 Archives
-
decuslib10-09
-
43,50466/matrix.exe
There are 2 other files named matrix.exe in the archive. Click here to see a list.
?p ` ` ` ?x [&*<Kb)C}-dC` INX Q F: { A) '[{B E@W (# > 'C
L2J Ag
O
A A A 4$ a2D Cg O L2F Bg O M2H Bg O
K2J Ag
O
M2L Ag
O
A
A A A 4$ a2D Cg O K2F Bg O J2H Bg O
N2J Ag
O
N2L Ag
O
A
A A A 4$ N a2D Cg O N2F Bg O K2H Ag O
L2J Ag
O
A A A 4$ j O3D A+ a2D Cg O M2F Bg O N2H Bg O
M2J Ag
O
L2L Ag
O
A
A A A 4$ : J2D Dg O K2F Cg O O2H Bg O
M2J Bg
O
M2L Ag
O
N2N Ag O A
A
A A A 4$ e " b + (' ILLEGAL STATEMENT') + : b4D : Z c C3Dh+ $3: b9 : b $ 3$ b+ b C F b D c " &b + ((' DIMENSIONS--',$) " .B : Z b c( . 51: 9 * + /(2I) $
c( 2$6g O (
2(6g O G 4$ G " 6b + 8(' MATRIX?'/) c( 6 D W : Z d " FB c( 6 D X : Z c & d$ ( $ d. c. }3: X9 ? d 3: W9 ;+ G(20F)+ : " Ib + M(' DIMENSIONS MUST BE LESS THAN 20') + : : Z b C3Dh+ W3: b9 N " Sb C + W(' MATRIX ',A1,' NOT FOUND') + : b( 6 D X : Z d " db b( 6 D Y : Z c & d$ ( $ d. b. }3: Y9 ^ d + f(' ',5F14.6) " ib d3: X9 Z+ j(' ')+ : : Z b B3Dh+ p3: b9 k " Sb B + : b( 62D6+ b( 6 D Y : Z d b( 6 D Z : Z c $
$ . d ( d$ * $
d.
b. }F 3: Z9 yD d3: Y9 u' b( G$6XD -\ 4 4 4 P4 S4 ]4 P4 Q4 Q4 d4 e!$ e, #G D d " R2F Dg O R2H Cg O
M2J Cg
O
M2L Bg
O
N2N Bg O A
A
A A A 4$ A a2D Dg O S2F Cg O R2H Bg O
S2J Bg
O
A A A 4$ s a2D Cg O T2F Bg O A 4$ 2 a2D Cg O T2F Bg O A 4$ s a2D Cg O U2F Bg O A 4$ q " b + : : Z c h3D D+ G3: b9 A " Sb D + : : Z e A3Dh+ O3: b9 G: b $ 3$ b+ b A F b D e c( 6 D Z : Z b c( 6 D [ : Z d $
$ . b ( d$ b * $
.
c. } F 3: [9 U b3: Z9 Q c( 6 D [ : Z b c( 6 D \ : Z d $ d$ & $ b. e. *
$
.
b ( H}3: \9 c b3: [9 _ c( 6 D f e( c( 6 F6 e( f F6+ :@@ f : Z c C3Dh+ y3: b9 s " Sb C + : : Z e A3Dh+ 3: b9 y: b $ 3$ b+ $ D f b A F b D e c( 62D6+ . c( 6 D \ : Z b c( 6 D ] : Z d $
$ . b ( d$ * $
b.
c. } F 3: ]9
b3: \9 c( $6XD -\ 4 4 4 P4 S4 ]4 P4 Q4 Q4 d4 e c( 6 D ] : Z b c( 6 D ^ : Z d $ d$ & $ b. e. *
$
.
b ( H}3: ^9 b3: ]9 e( c( 6 F6 e( c( 6 F6+ : " b f4D 1> b+ :@@ f!$ D g : Z c B3Dh+ 93: b9 4 " Sb B + : : Z g C3Dh+ ?3: b9 : " Sb C + : c( 6 g( 3D 6g O
63J 6g
O
G 4$ h : Z e A3Dh+ O3: b9 G: b $ 3$ b+ $ D f b A F b D e c( 6 D ^ : Z b c( 6 D _ : Z d g & $ b g. * d$
J `.
(}
c.
`.
0}. e F a. ` D}3: _9 U b3: ^9 R e( c( 6 F6 e( c( 6 F6+ : " jb B C + p(' DIMENSIONS OF ',A1,' AND ',A1,' ARE NOT THE SAME') + :!$} D g@@ f+ 3@@ f : Z c B3Dh+ y3: b9 t " Sb B + : : Z g C3Dh+ 3: b9 z " Sb C + : c( 6 g( 2D6+ 3 : Z e A3Dh+
3: b9 : b $ 3$ b+ $ D f b A F b D e c( 6 D h g( 6 D h : Z b : Z d $
$ . b@@ c( 6 D _ : Z c & d$ ( $ b. c. } & d$ d * $
.
g. } &
$ d
b.
D0 3: _9 d3: h9 b3: h9 : Z b : Z d $ d$ & $ b. e. *
$
.
b ( H}3: h9 & b3: h9 % e( h F6 e( h F6+ : " 5b B C + :(' ILLEGAL DIMENSIONS ON ',A1,' OR ',A1)+ :"$ D `"& F a-\ 4 U4 i4 `4 a4 Q4 Q"$ D `"& F a-\ &4 `4 a4 v4 i4 V4 U $ 2D i+ H V D v " Ib + [(' ENTER TYPE OF MATRIX'/3X,'1 - RAW SUMS OF SQUARES AND CROSS PRODUCTS'/3X,'2 - STANDARDIZED SUMS OF SQUARES AND CROSS PRODUCTS'/3X,'3 - COVARIANCES'/3X,'4 - CORRELATIONS'/) " ]B j + ^(I) " `b + d(' ENTER NUMBER OF VARIABLES'/) " ]B j $ 3d jg O &
2& jg O G 4$ ^ " lb + o(' ENTER MATRIX NAME'/) " qB k + r(A1) : Z c k3Dh+ y3: b9 s: b $ 3$ b+ b D c c k F c( j F6 c( j F6@@ c : Z b@@hk : Z d $ d$ & $ b. c. @@}3: j9 b3: j9 W2D i+
"
bE + /) W3D i+ " b + (' YOUR DATA IS BEING READ'/) $ 2D i+ " b + (' (10 PER LINE)'/) " vQ" ,X@ !FB : Z b @3: j9 + (10F): c : Z b h@Dhk : Z d h@ b @ & d$ ( $ b
c.
J `.
D(}3: j9 # b3: j9 !+ 6b j0b 7 +.4 :4 14 14 1+ } : Z b : Z d-\ $34 c hk b k & d$ ( $ b
c.
J `.
D(}"`(}3: j9 2 b3: j9 16b j0b 7 +?4 :4 :4 A4 A : Z b : Z d"$ . c D `-\ $34 ` ( d$ * $
b
c.
L a.
0} F0}3: j9 C b3: j9 B6b j0b 7 +O4 :4 :4 :4 R : Z b & d$ ( $ . c. $}XD W-\ #,4 W @hk3: j9 R : Z b : Z d hk b k ( d$ * $
b
c.
L `.
0} F0}3: j9 [ b3: j9 Z+ : : Z b C3Dh+ k3: b9 f " Sb C + : b( 62D6+ @@ k b( 6 D ` : Z d & d$ ( $ . b. }D k3: `9 q " yb b k + }(' TRACE OF ',A1,' IS ',G) + : " b + (' NO SUCH OPTION') + : " b + (' MORE THAN 10 MATRICES IN USE!'/) $ D b+ : "
b + G(//7X,'COMMANDS:'//' READ A -- READ IN A MATRIX AND CALL IT A'/' TYPE A -- TYPE OUT MATRIX A'/' DET A --- CALCULATE THE DETERMINANT OF A'/' TRACE A - TYPE OUT THE TRACE OF SQUARE MATRIX A'/' B=TRANS A LET MATRIX B BE THE TRANSPOSE OF MATRIX A'/' B=INV A - LET MATRIX B BE THE INVERSE OF MATRIX A'/' C=A+B --- LET MATRIX C BE THE SUM OF MATRICES A AND B'/' C=A-B --- LET MATRIX C BE THE DIFFERENCE OF MATRICES A AND B'/' C=A*B --- LET MATRIX C BE THE PRODUCT OF MATRICES A AND B'/' DATA ---- ENTER DATA FROM WHICH A MATRIX WILL BE GENERATED'/' HELP ---- TYPE OUT THIS COMMAND LIST'//)+ :-\ 's+ + 0 P L E H D A R Y T = C 9Lf3
S N V I + * - (10F)TTY ( , D 0!$ D /@@ / : Z 1 . - Z . , Z3: +9 h $ D 1" - D 2 : Z 2 -.D 2 + D 3"$ . .4$ 5d t 2 D 3@@ 3 2/ - D 4 2 Z 4 -.D 4 2 Z 1 . 4 D 5 5. + $ XD }-\ $74 }3` 3+ 5. + $ XD -\ $74 @ 3 Z 5 4 D 63: 39 x 43: +9 v+ 2/ - D 6 2 Z 1 -.D 6 2. 6 D 7 7. + $ XD -\ $74 2` 0+ 3: +9 .X@ " b + (1X,'INVERSE DOES NOT EXIST') @@ /@@ /+ % 7. + D 3 2 D 5 1 D 6-\ $74 33` 0+ 23D 5+ 0"` 1 2. - 5 F" - D 4 : Z 4 -.D 4 2. 4 D 7 4. 5 D 8 7. + D 8 7. + 8. + ' F 8. + 8 F3: +9 $ 23D 6+ B"` 1 2. , 6 F"$ . 6$ - D 9 : Z 4 2. D 9 . 9 D : 9. + D 8 9. + :. + ' F :. + 8 F3: +9 7 2. 2 D : :. + D ; ; D /-\ $74 /3 (+ K / ( D /: /+ F-\ $74 /2 )+ P!$ D /> /"$ . /5$ + K /4D : Z 1 . 2 D ; ;. + ; D 3: +9 R!$ ; :. + D " - D 6 : Z 1 -.D 6 2. 6 D 7 7. + D < / 24D n <4D n : Z 4 . 6 D < 2. D 9 < 9. + <. +D "` 3: +9 d < ; 7. +"D 13: +9 [ 23: +9 n-\ $34 1 @ / + Z 2 . , D = / =4D + Z 1"$ . $ - D 6 6. = D = 2. 6 D 7 =. + D 8 =. + 7. + ' F 7. + 8 F0z = x 20z = s + Z 2 . - D = / =4D "$ . =$ - D >"$ . 2$ - D 2 : Z 1 . > D > . 2 D ; >. + D 8 >. + ;. + ' F ;. + 8 F3: +9 20z = + %4 Z ) \ * *, p ,!p ,!p , p , p ,!p ,!p ,!p ,!p ,!p + d ) *\ /,Ap ,Ap -|p 0c=t! 0 5D B X@ A " Bb + G(' INPUT? (TYPE HELP IF NEEDED)--',$) $ 2D + K X@ J " Kb + O(' OUTPUT? (TYPE HELP IF NEEDED)--',$) X@ S " U 6X@ !F 6X@ !FB *4 + V(50A1)
2D -g O 2F -g O 2H ,g O
2J ,g
O
2L +g
O
2N +g O A A
A
A A A 4$ 6
2D -g O
2F -g O
2H ,g O
,g
O
2L +g
O
2N +g O 2P *g O A A
A
A A A 4$ =
2D -g O
2F -g O
2H ,g O
2J ,g
O
2L +g
O
O 2P *g O A A
A
A A A 5$ $ . 6b 0b 7 + 3H $g O G 4& -\ %g4 H4 4 4 $@@ $@@ %@@ %@@ &@@ &@@ '@@ '
D !
D "
D @@ (@@ (: ( $ 3$ (+ D (2D *+ % $ D ( (3D *+ + (3D *+ 7 (3D *+ C+ $ . ( D % $ . ( D : Z ) h ( Dh *2z = /!: Z ) (.
F *1: 9 2 $ .D (+ $ . ( D & $ . ( D : Z ) h % Dh *2z = ; $ . ( D ( Z )
Dh *3: 9 ? $ .D (+ ( D &+ &4D R CX@ !E " U $ . & D & . & Z ) *3: 9 J CX@ !E " Qb ' ' + R(2O) (5D [ $ . % D & . % Z )
2Dh *+ Z2z = V $ D ) ) F * !X@ !E " U $ . % D & . % Z ) *3: 9 ` %4D j X@ !E " U : Z ) *1: 9 g &4D w CX@ !E " U $ . & D & . & Z ) *3: 9 p CX@ !E " vb $ + w(I)
2D +
3D !+ { D + "$ 3D !+ ~ D + $ A 5D D $ A & 2F + D -\ $T4 4 3D + 3D + 2d g O 3& g O A 4$ + D ! D " $ D $ D )-\ $T4
4 -\ $l4 4 !4 * $ 3D *+ $ .D "+ ! D H " D I
2D !+ # $ A 5D D ! $ A & 2F + " D ! D " $ A & 3F + 2-\ $l4 4 !4 *4 '4 ' *4D 2 X@ + " ,b + /(' FILE DOES NOT EXIST'/)"$ 2D !+ 1-\ 's+ ?-\ "#4 4 4 %4
!4 '4 '+ $ 2D $+ 8-\ "4 ) $ 2D $+ <-\ %g4 H4 4 4 $-\ 's X@ > + X@ @ " Ab + <('-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@ > " @b # # + }(' 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 0b 7 + 4 ?4 G X@ " b + ('-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'///) + }+ 4 Z \ ,!p ,!p ,!p ,!p ,!p ,!p + ? \ !/ ,Ap ,Ap ,Ap -|p H S I N F E M A P L . : [ / DSK TTY CDR LPT DTA0 DTA9 OUTAAA.AAADSK INPUTOUTPT.DAT [ ] @@ 6@@ 4@@ 7 $ ( D 7@@ 8 55D N-\ 's $ 2D 5+ R 3X@ Q " Rb + T(' FORMAT'/) $ 3$ 5+ Y 3X@ W " Yb 5 a + ](' FORMAT: (',A1,'-TYPE ONLY)'/) 3X@ ^ " bB : Z 8 91: (9 _ + d(80A1) $ 3D 7+ r .2D :g O /2F :g O /2H 9g O A A 5$ m+ + : Z 8 . 4 0 F3: 59 n $ D 7 $ 3d 5+ u $ $ 5 D 7 : Z 8 02Dh 9+ z3: 79 v $ D 4+ + 0 82D 9+ y $ D 9 7X@ 9. 4 X@ !E " : Z 8 93: 79 + (80A1) : Z 8 02Dh 9+ : 8 12Dh 9+ > 83: 79 $ 3d 8+ + + $ .D 9 $ . 93d 5+ $ . 5/ 9$$ D 7 $ 2d 7+ 3X@ " bB : Z 8 91: (9 + } $ 2D 6+ -\ 's 3X@ " b + $(' ERROR IN FORMAT, TRY AGAIN.'/) $ D 6+ J+ +4 Z 1 \ 2 2,!p ,!p , p ,!p ,!p ,!p + I 1 2\ 5/ ,Ap -|p M A S ( ) I F A \ !H @ !H< !P0< 0| + 1\ + q,>p bZ p b+ p @ h!@ p!@(!.@0!7@ x!@ !@8!9@(!'@ P!2@ P!2@ h!@ y@ y@!@!h!&[ (/< 0"` S<p X< 0 p 3@ !Q+ w*| s-< !] Z` c+ !&! @w+ u< !Q p 7 p + !,> ,> ,> &w p , !,& .< 7@p + !
p , !" !R !@.< p ` !R w,& ,& 5 ~.< p d !S: ." Q ,& p ,& >` 9 ! .< 9 @@ ,^ ,^ ,^ + !d @ @ & 0b ." ." )B}5@ !,~ m< !< P\ !D< !Q p [ p l< 0@X + !Z p .< / p Q \ !E+ ! @@ !E!< P\ !D7@ !G+ ! < !G \ !E@@ !G!< P\ !DX X\ !D !S7@ !FD<7@ !FA< \ !D < !D[`x !H, x ,^x !H+ c cQ< \ !D: c \ !E< !T p!@| !T < \ !D@@ !E+ !$@@ !D Q< \ !D< !T p!@| !U+ !$7 !V !X \ !D @ !7X Q< \ !D !X \ !E+ !$ [`x !H, x + !>Z \ !D@@ !D@@ !E< !Q \ !E+ !$7 !F !FX\ c@@ !F@@ !F+ !& >x ! Z @
& !YU` eB + !O@ )@ G
" + !K
& !]+ "f6$ 1 ,> 'u. @
p .4 6$ P!=.
.4 !E. !DSEQIN @ !USEQOUT @ !W@ !7
%5 Source level error at user's loc
` Z (X^ . > [.~ (3~ + !b ~ + !mZ . \x <x *<x .-> $=ez+ !i!" b + " !j b + Z . h + gg M?Th
& !o b + !],
?NO CORE AVAILABLE - CAN NOT PROCEED
!* "** ,^ ,~ * x ,> < "*< " p Z@ " @@ " @@ "
"J`|+ !}P w,~ "p h a`~ + "h ``~ + "$ "J!"d "K/"+ !}P ,~ @ @ @ @ @0 @x @@ @` edX91 ,> 'u,> Zp @ " \` " < " , ,^ ,~ SMI 1 ,> 'u, !v "L B" + "-_MI 1 ,> 'u, !v "N B" + "-I5R1 ,> 'u, !v "O B" *\ "77Ap X" "P B" /& p d"~ l" B" *\ "7/& p d"~ l" $ B" *\ "7/& p d"~ l"
B" *\ "7Sp *\ "7/&Xp B "@@ " "Q B" *\ "7/& p d"~ l" B" RF " < " , + !tEV4i91 ,> 'u+ "ES ,i@1 ,> 'u+ "E_ ,i@1 ,> 'u+ "EK>2 1 ,> 'u+ "EK>40 1 ,> 'u+ "E[<I71 ,> 'u
& "Q w @ )@ .
" 5B "F
& "W,~ ` .
.4 SEQIN ^ "KSEQOUT ^ "MRANDOM ^ "NSEQINOUT "
%0 THE FOLLOWING ROUTINE IS NOT IMPLEMENTED IN FOROTS:
a.3@1 ,> 'uO@ #+ "\gR~@1 ,> 'u@@ #,> ,> @ 6 w+ "i" #0B + "d!"A`X#p 5@ "a/#p !" X#p + "i\p + "ia.9'1 ,> 'u,> ,> O@ #+ "i,>
6 + _ 4` "q"` Q@ ,> < #, ,^ ,> < #,
,^ *b "n+ "|,> < # , ,^ 7@ #+ "w,> < # ,
,^ + "y,> < # ,
,^ Z 5" "|,> < #",
,^ , 7@ #,
,> < ##, ,^ , ,> < #&, ,^ ,> < #),
,^ (@qd 1@ ,,
1@ #+ #
0@ *+ "|,> < #+, ,^ + "|,^ ,^ ,^ ,~ (' Type G to Continue, X to Exit, T To trace.'/2H *,$) (A1) (1H 14A5/)(1H A5,1X,O6) PAUSESTOP .p X # p X # p # p # p X #
X ~ # p x gG@ 1 ,> 'u7cp + #6 (Bdb + #1. #: "+ #2. #: "T B#p @,~ 4B #9+P !o0
#:#p + #. ,~ > attempt to take SQRT of negative arg Kc#@ p p + #JKc#K , #J @ ,~ Kc#J , #J @ ,~ Kc#I , #J @ ,~ Kc#H4B #m5@ #M5" #W+D !o0
#LU ,~ D #m!$ @ #l B #l5" #T#` + #i, #T!" B ,~ + #X(BdB + #X5B #S #m,~ +7` #l+ #``d +D !o0#\+D !o0
#\U `d @ 6 #l+ #W #l`B "` + #W/ #nid + #c+D !o0#\# #l,> < #o, $,^ @ ` #l @ ,> < #o, #p,^ + #]U", #T #l+ #X+ #Q ! ,~ x Kc 1 ,> 'u p 3" $
+ #v3b $ + #x+D !o0
#uU ,~ +D !o0#w ,~ D $
@F $ j" % $
)/;` : XD $5f #aF + #.& @(|h& f $
$ $ @ $
, $ !t0 ' "S'qf!um. .#Y% !v yO^ RX C2|t(1 ,> 'u p 4@ $% @ $,> < $., $,^ $,~ {e^b C2|p 1 ,> 'u p 5` $4@ $%+P !o0$.#p 3@ $(+ $') r. !@ $,! n@ $,(|h" $) $) B $- $* $* $+ $- $, $+,~ +D !o0
$& $,,~ ,~ 0 _i/X3 6P'M 5( bB W
R `@ x $ATTEMPT TO TAKE LOG OF NEGATIVE ARG M2| 1 ,> 'u p + $5M3!d ` ,~ C 1 ,> 'u#p ,~ S0 1 ,> 'u#p +" $<,~ U ,~ !$h X$h @@h *% " $D Bh L " Bh M+ x eX2G iSH YC aS iSH INX G YC GSH iSH aS aS I' IR
IR
IR
0 IR
@ IR
P IR
` IR
p [R
[R
[R
M?L@INX INX INX INX INX I2 I2 I20 I2@ G iSH I4:1 ,> 'uZ .@ 6kp 2j8 M+ $e !p Q A` $^\$}
4L $\/, L 8$ $Z.
8 L F( ,~ H ?FRSDVC - ILLEGAL DEVICE NUMBER IN CALL TO DEVCHG
& $^ < $d,
4 4 $h4 % KbN=1 ,> 'uO@ % p 4B $p, %74@ $p9 $t9 $rKbN= 1 ,> 'u@@ %!$Lu ` @Ap `` a` + %a` + % D $jA (` $x/" #B $j@@ $k !p X@ $f,> < $f, %,^ 7@ %+ $OAp + % #p Q"A` $ 1@ + %0` =d % ! H: @ $h@@ $ia|+ %
[ p d 0@ + %[ p d 0@ + %+ %i
$j+ %@ $h+ %+ %
& %+ % Ap ,~ ERROR ON OPEN!
H H %H % G.t21 ,> 'u@ @Ap ! A`.!p @ % % @ %@@ %@@ % & " %< 1D + %&- %1=b %! %< 0D + %.O " % @ % %< - %1=b %(7@ %OAp !p < , %, %,~ <& %* %1D + %- Ap + %* 1D + %-1$ + %*1d + %60$ 0d -+ %* $ D %+ %1" %S, %`0@ + %O p 4B %RL ad+ %N`b+ %O $ 0d "+ %R&$ $& (&}Z .G %T.& $ .$ 7F + %E ,~ A$ &$ (D G$1$ ((D (D
` 5@ %Q .2b M+ %M L.& 7D !$Lu+ %P2" %T+ %J &p , %X ` ,~
& %U < %X,
.p M}ILLEGAL DEVICE NUMBER!
" %_, %` ' Q&A` %`@ 1x ,~ 18 0.8 X =` %[,~ . H a|+ %d0" 0b / ,~ 0B 1B ,~ 0B / ,~ aJMm1 ,> 'u, '/+ &@ , &Y, '++ &Z" 6Ep " B` " b &
,$ 7cp +$ 1B 0$ d & b &.$ .$
a|+ %}[p d p0B + &+ %_w#` 1" + &6cp 0d $QD` , &B+ , '6 ,~
& &+ &
& &+ &@b -p . Q,A`
& 4P &
1P + &/0 P =n &,~ `
` `
CANNOT INIT DISK!
FILE NOT FOUND!
H H .
&+ &YC G aS a3 S; YC&<G<aS<a3&<E$;w |x& P& B` 1T !"L b @ XB` O@ &5 'G &4@ , '6
+ '?!, 2, 'I@ !.~ , '6` + 'G"" 1T "" QB &3, '6 f + 1$ 9 &S+ '. 8 &@` & 'I*( &2 'J n @ `N + 'O 6`
'P1T 'P B` " B` \"
b @ B` \" Q b !" Z (Brb 'Q b
B &5 b
+" `B` !" 2 b `b `b + &s!" 2 b ` 2B` + &s!$ 2 d !$Lu+ &v 'R b 'R 'S d !$Lu B &4 D &4,~ @@ &7 'S*( &> B &8 D &8 BX B` DX Z &6(D} d ` D &7 DX " 2D` b 'Td " b 'T, '6@ &7+ 'U &> BX @@ &> 'W b $+ '!" &?X"X *"X !"`
+ '!, 2, ' B , '6" X
&8 &9, '6 + ' JX , '6 + '.
& 'X " b 'Ta` + '+ 'a` + ', '6 &7+ + ' x H '( h &( 2
P& '^. &5 &. .0 P `bp + '$d
@ &4, '6+ '(`L+ '" &4+ '. ( !*Lu@
, '6
,~ : x ,~ " B 'FO@ &6O@ &6g " ?$ 'F+ '> d 5D '2 'F(D D&6+ '.,> e` p+ ':7 &6+ '=l! &6+ ';7 &6+ '=l! &6: +@ > ,^ + '.
& '_,~ "
& 'a,~ "
& 'g,~ , 'E
& 'n
& , 'E b ( 'o+ 'B
& 'r,~ @ ;` &5+ &F+ '@ c & 0 CMQ Cannot do MPB QUEUE on GALAXY system. ( 'J+ 'B`` ` P $` h fx&8
X HX a` ,~ !" GB` + ' @&>6$ &9
% Cannot do DISPOSE:RENAME. DISPOSE:DELETE assumed.
0 NO FREE CHANNELS!
% CANNOT OPEN QUEUE DEVICE!
% PLEASE NOTIFY OPERATOR!
% CANNOT ENTER QUEUE REQUEST IN QUE UFD!
% PLEASE NOTIFY OPERATOR!
?QMR CNC Can't CONTINUE -- try REENTER
KbN@ 1 ,> 'u,
,~ 'vY\ 'wQ< X\ 'x* +