Trailing-Edge
-
PDP-10 Archives
-
decuslib10-09
-
43,50466/bmdx84.sav
There are no other files named bmdx84.sav in the archive.
h 's8S ?- <:x -s0?x . K( /@@ ]-\ ;Q4
T@@ ^+ 9: ^ _ D ^ ` D _ a D ` b D a c D b d D c+ B " ?B
d$ 54 ^ _ ` a b c + B(A6,2A3,5I6,4X,A2) Y3D d2F e+ D-\ > [3D d2F e+ (@@ ^: ] $ 2D ag O & 2F ag O G 5$ N " ;b a5D P $ D a $ 2D a+ R X D c X3D c+ U Z D c X3D c+ X aX@ W $ 3$ bg O & 2f bg O A 4$ _ $ D b " 3b $ $D b a4$ f " fB : Z e {3: b9 c + g(18A4) " lb $ 54 ^ _ ` a c + ('1BMDX84 - ASYMMETRICAL CORRELATION WITH MISSING DATA', ' - REVISED MAY 10, 1968' /41H0HEALTH SCIENCES COMPUTING FACILITY, UCLA//31H0PROBLEM CODE 2A3/31H0NUMBER OF CASES I6/31H0NUMBER OF VARIABLES READ IN I6/31H0NUMBER OF VARIABLES ADDED I6/31H0INPUT TAPE NUMBER I6/35H0REWIND INPUT TAPE A4) " b : Z e {3: b9 + !(31H0INPUT FORMAT 18A4/(31X,18A4)) _. ` D ` $ . ` D f-\ >!4 `4 _ f. D f `. f D g `. g D g f $NXD 1 f $NXD 1 g $NXD 2 g $NXD 2-\ :=4 O4 14 14 24 24 _4 `4 ^4 a4 |4 ] ` D _@@ h " ?B
d$ 54 _ ` a b c d Z3D d2F e+ 2: h _ D h ` D i 5 D i Z3D i+ E X D i " Hb h i + Q(31H1SUBPROBLEM NUMBER I6/35H0BLANKS TREATED AS MISSING A4) $ D j-\ 8 4 i @ V-\ 8 4 hG V4 W _ D i@@ j $ ! D k@@ k $ . k D l k.D k " `B
d l Z l 3>3: k9 ] + b(A6,66A1) \3D d2F e+ ?: j l Z l X2Dh3>+ j6b j0b 7 +h4 k4 3: k9 e+ Y g $NXD m-\ ;'4 m4 m4 _4 3?4 j g. m D m $ D j m D n $ D n " yb : Z e 3>3: k9 v + (31H0VARIABLE SELECTION 100A1/(31X,100A1)) + W " b : Z e 3>3: k9 + (/(31X,100A1)) " b h i + (31H0LOWER DIAGONAL LIMIT I6/31H0UPPER DIAGONAL LIMIT I6) @@ o m $NXD -\ ;'4 4 o4 _4 3?4 j h. n D V-\ >!4 V4 V @ W-\ >44 W4 m @ p n Z p h. D V-\ >!4 V4 V @ W-\ >44 W4 m @ q i. D V-\ >!4 V4 V @ W-\ >44 W4 m @ q $ . o/ q. q D r $ / p. q D r $ / n. D s m. r & $ _. r( . * $
s. D s r. s. s & $ r. D t Z2D i+ < W3$ t+ A+ = W3$ s+ A r D o p3: o9 $ . o D p" n. p D s"$ . i. p D V-\ >!4 V4 V @ W-\ >44 W4 m @ q $ / p. q D r"$ . g. p D t h. n/ p D k i. n/ p D u p D n m D u : Z e u n N FN: u: n3: s9 T m. s D v r. v D v s. v D w r. w D w s. w D x r. x D x s. x D y o. y D y o. y D z o. z D z o. z D { o. { D { Z2D i+ f $NXD t $NXD m $NXD v $NXD v $NXD w $NXD w $NXD x $NXD x $NXD y $NXD y $NXD z $NXD z $NXD { $NXD
{ $NXD
-\ 7k4 O4 4 4 4 4 4 4 4 4 4 4 4 4 4
4
4 r4 s4 k4 u4 _4 ^4 o4 i+ & f $NXD f $NXD t $NXD m $NXD v $NXD v $NXD w $NXD w $NXD ! x $NXD !-\ 64 4 4 4 4 4 4 4 !4 !4 r4 s4 k4 u4 _4 ^4 o4 i n3d o+ + 7 ^5d H " +b
d + 3(' PROGRAM EXPECTED PROBLM CARD INSTEAD READ THE FOLLOWING'/1X,A6) + ;(' NUMBER OF VARIABLE FORMAT CARDS INCORRECTLY SPECIFIED,ASSUMED TO BE 1') + ?(' INPUT TAPE CANNOT EQUAL 1 OR 6')-\ > " Bb j
d + G(' VARSEL CARD',1X,I4,' READS AS FOLLOWS',1X,A6) -\ > " Jb
d + R(' PROGRAM EXPECTED SUBPRO OR PROBLM CARD INSTEAD READ THEFOLLOWING '/1X,A6) -\ >+ + 0BMDX84 xU W .p. NO FINISH YES SUBPRO PROBLM VARSEL }5 5! D 5# : Z 5$ . 5! 5" F1: 9 5
$ D 5$ : Z 5$-\ >|4 5#4 5 @ 5% 5$. 5! 5% 5% F 5#&$ D 5#> 5$ 5#4D 51: 9 5 5$. 5! 5# F+ 5 4 Z 5 \ 5 5 ,!p , p + 5 5 5 -|p p5" ( o(5%0 1 2 3 4 5 6 7 8 9 : Z 67 . 6/@@3: 619 5+ : Z 67 . 60@@3: 619 5/ : Z 68 . 60@@3: 649 52 : Z 68@ : Z 67 . 6-3: 639 57 68 + 5<( 20A4 ) : Z 67 . 6- D 69 66 69. 6-2D + 5C 69. 6-@@ 69. 6- 69. 6, . 6. D . 6. . 6/D 3: 619 5= $ D 68 : Z 67 . 62 D 65-\ >!4 6*4 65 @ 65-\ >44 654 61 @ 69 . 62 D 65-\ >!4 6*4 65 @ 65-\ >44 654 61 @ 6: . 6. D 6: 66 6:. 6-2D + 5_ 6:. 6-@@ 6:. 6- 6:. 6, . 6/ D . 6/ . 60D 69 Z 67 . 6. 67. 6/ 68. 60D : 683: 6:9 5h 673: 619 5N 683: 639 55 $ D 68 : Z 67 . 62 D 65-\ >!4 6*4 65 @ 65-\ >44 654 61 @ 69 . 62 D 65-\ >!4 6*4 65 @ 65-\ >44 654 61 @ 6: 69 Z 67@@ 6; . 6/ 67. 60 4d 6
. 6/ 67. 60 D 65-\ >D4 65 68. 60 ' F 6; 68. 60 6; F: 68 673: 6:9 5 673: 619 5s 60XD 6 6-XD 6 6.XD 6-\ 8s4 64 6;4 64 64 614 614 624 624 644 634 64+ 6$4 Z 6+ \ 6+ 6,, p , p , p , p , p , p , p , p , p ,!p ,!p ,!p ,!p ,!p ,!p ,!p ,!p + 5* 6+ 6+\ 64,Ap ,Ap ,Ap / ,Ap ,Ap ,Ap ,Ap -|p x66 g86; : Z 8 . 8@@ . 8@@3: 8
9 6= : Z 8 . 8@@ . 8@@3: 8
9 6B : Z 8 . 8 @@ . 8 @@3 . 8@@ . 8@@ . 8@@ . 8@@3: 8
9 6S 8 + 6X( 20A4 ) : Z 8 . 8 D 8 . 8 8. 8 ' F 8 . 83D + 6h 8. 8" . 8D . 8 . 8D + 6i 8. 8: 83: 8
9 6Y $ D 8 : Z 8 . 8 D 8-\ >!4 8 4 8 @ 8-\ >44 84 8
@ 8 . 8 D 8-\ >!4 8 4 8 @ 8-\ >44 84 8
@ 8 . 8 D 8 . 8 8. 8 ' F 8 . 83D + 7 8. 8" . 8D . 8 . 8D 8 Z 8 8 . 83D + 7 . 8 8. 8 8. 8 D + 7 8. 8 8. 8D 8. 8 8. 8D : 8 83: 89 7+ 7' 8. 8: 8 Z 8 8 . 83D + 7# . 8 8. 8D . 8 8. 8D + 7% 8. 8 : : 8 83: 89 7 83: 8
9 6l 83: 8
9 6Q $ D 8 : Z 8 . 8 D 8-\ >!4 8 4 8 @ 8-\ >44 84 8
@ 8 . 8 D 8-\ >!4 8 4 8 @ 8-\ >44 84 8
@ 8 8 Z 8 8
8. 8 . . 8/' 8. 8/' D 8. 8 ` @ 8 . 8 8. 8 D 8 8. 8 8. 8 D 8 8. 8 D 8 84d 7U 8. 8 8D 8"` 8 8. 8 8D 8"` 8 8. 8 8. 8 8D 8"` 8 8. 8 @@ 8 84d 7] 8 8 D 8-\ >D4 8 8 8. 8 F': 8 83: 89 77 83: 8
9 7+ 8 XD 7e 8 XD 7f 8XD 7f 8XD 7g-\ 8s4 7e4 7f4 7f4 7g4 8
4 8
4 8 4 8 4 8
4 8z4 Z 8 \ 8 8, p , p , p , p , p , p , p , p , p , p , p , p , p , p , p , p ,!p ,!p ,!p ,!p ,!p
,!p
,!p ,!p + 6< 8 8\ 8
/ ,Ap ,Ap ,Ap ,Ap -|p
x8@@ 9 ~8O@ 8' 8'0D g O -\ >r4 8$4 8'3@ 8$g O A 51 8 @@ 8'+ 8!4 ,D 8%2Z 8% \ 8&OU 8&,!p + 8. 8% 8% 8&\ 8',Ap 8'-|p 0 u8'@@ 9@@ 9
$ . 9 D 9-\ >44 94 9 @ 9 @@ 9
9
Z 9 : 9
: 92$ 9 9-D 9 4 9 . 9 D 9-\ >!4 84 9 @ 9-\ >44 94 9 @ 9
9. 9 9
9. 9 ' F9 9
9 . 9 ' F9 9 D 9
92D 9+ 8W 9 . 9 D 9
& $ 9
$9XD 8Z-\ 54 9
4 8Z 9 3: 9 9 8; " 8ab : Z 9 9 93: 9
9 8] + 8d(1H0,4X,10(I5,F7.3)) " 8mb : Z 9 9 : Z 9
$ $ 9 . 91: 9 8g 9 3: 9
9 8e + 8o(5X,10(I5,6A1,1H))) 9 3$ 9 + 85 9 3$ 9+ 8*+ 8{4 Z 8 \ 9 9 , p , p , p , p ,!p ,!p ,!p ,!p ,!p ,!p ,!p + 8( 8 9 \ 9/ ,Ap / ,Ap -|p x9YES n 9;!$ D :S :O5$ 9? :R D :S-\ >n4 :O @ :O : Z :S . :M@@ . :L@@ . :K@@3: :N9 9B@@ :T : Z :T!$ D :U :R2D :S+ 9Q :OX@ 9L@ : Z :S . :L3: :N9 9M :T :R3D :S+ 9Z :OX@ 9U :PQ" QB : Z :S . :L3: :N9 9V :T :LXD 9\ Z :Q-\ ;D4 9\4 :N4 :Q4 :P4 :U :U4D 9w: :T : Z :S . :L $ XD 9c-\ 8 4 9c4 9i!$ . :LD . :L :R F+ 9o :S. :L :S. :KD :S. :L :S. :MD :S3: :N9 9`` : Z :S . :L3: :N9 9r + 9w( 20A4 ) :T3: :O9 9H :T D :O` :O @ :U : Z :S . :K D :V :U . :L . :L D . :K@@ . :L 4d : :V . :L . :K D :V :U . :L D " :I :U :V . :L ' . :M' "F :Q-\ >D4 :Q . :M @" :I . :L :V . :K ' . :M' "F :Q-\ >D4 :Q @'3: :N9 9{ " :'b : Z :S . :L . :M :U . :K . :M . :L3: :N9 : + :;(76H1 BLANKS TREATED AS ZEROS BLANKS CONSIDERED MISSING/77H0VARIABLE MEAN STD. DEV. COUNT MEAN STD. DEV. COUNT/(I6,3X,2F13.5,F8.0,2F13.5,F8.0)) + :E4 Z :J \ :J :K, p , p , p , p , p ,!p ,!p ,!p ,!p , p ,!p + 9< :J :J\ :P,Ap / ,Ap ,Ap ,Ap -|p 0 p:QBIN tp:V@@ ;4@@ ;4@@ ;5@@ ;5 $ D ;6: ;4 : Z ;6 ;4. ;2 3Dh;7+ :o1: 9 :Z $ . ;4"& . ;3$& !/ D ;4 " :db ;4 + :i(' CHARACTER IN COLUMN',I2,' IS ILLEGAL') " :kb ;3 + :n(21H1ERROR ON VARSEL CARDI4) -\ > $ 3$ ;6+ :w-\ >|4 ;64 ;/ @ ;6 $ $ ;5 ;6. F ;5+ :Y ;5 D ;6@@ ;5+ :Y"$ .D ;66b ;60b 7 +:z4 ;4 ;4 ;4 :Y4 ;4 :u4 ;4 :u " ; b + ;(' INDEX OF VARIABLE SELECTED EXCEEDS TOTAL NUMBER OF VARIABLES')+ :i " ; b ;3 + ;(' INDICES ARE REVERSED ON VARSEL CARD',I4) -\ > ;52d ;2+ :~: ;4 ;4. ;1 ;5 F ;54D ; > ;4 ;6 ;4. ;1. D ;7 ;53$ ;7+ ; ;7 Z ;7: ;4 ;4. ;1 Z. ;6 ;5/Z 7 ;6" 4d ; $ D ;56b ;60b 7 +;!4 :W4 :X4 ;%4 :Y4 :X4 :u4 :X4 :u ;4 D ;1+ ;,4 Z ;/ \ ;0 ;0, p ,!p ,!p , p ,!p + :V ;/ ;0\ ;3/ ,Ap -|p }P;71 2 3 4 5 6 7 8 9 0 , - . ( ) ( ) -\ >[4 4 ;L4 ;N4 ;J+ ;I4 Z ;L \ ;M ;M, p ,!p ,!p ,!p ,!p + ;A ;L ;M-|p ;P 4 O@ <8+ ;T4 @@ <8O "$ D <9 $ : INX |H;W+ ;l
;q6@ <8 J ;r
;qtJ ;sZ ;r+ ;l J ;sz ;r+ <5
z@ + ;l #p & >
3L;t+ ;g7@;t /& 5f ;`7 + ;l@@ ;u: ;u L ;t
PL;u+ ;kR d. R;ud$ 2N + ;b: ;u: kN
y1kN
y CB` x;sx ;tH<4Z ;r0B + ;l d
:` <9+ ;l+ ;[x<94 }X<: \ = @ = < ='0< 0| + 1\ + <H,>p<9Z p<9+ p @ h<k@ p<k@(=@0=@ x<r@ <r@8=@(<~@ P= @ P= @ h<k@<P@ <P@<j@<jOX<}[ (/< 0"` S<p X< 0 p 3@ =(+ <N*| <J-< =4wx<MZ` <:+ <}! @w+ <L< =( p 7 p + <k,> ,> ,> &w p , <f,& .< 7@p + <c p , <f" =) =.< p ` =) w,& ,& 5 <U.< p d =*: ." Q ,& p ,& >` 9 <`.< 9 <V@@ ,^ ,^ ,^ + <kd @ @ & 0b ." ." )B}5@ <g,~ m< !< P\ =< =( p [ p l< 0@X + <qZ p .< / p Q \ = + <s@@ = !< P\ =7@ = + <w < = \ = @@ = !< P\ =X X\ = =*7@ = D<7@ = A< \ = < =[`x = , x ,^x = + <: <:Q< \ =: <: \ = < =+ p=| =+ < \ =@@ = + <{@@ = Q< \ =< =+ p=| =,+ <{7 =- =/ \ = @ =X Q< \ = =/ \ = + <{~x=[`x = , x + =Z \ =@@ =@@ = < =( \ = + <{7 = = X\ <:@@ = @@ = + <}P= ~0= >x ! Z @
& =0U` eB + =&@ )@ G
" + ="
& =4+ =Y6$ 1 ,> ?. @
p .4 6$ R@=.
.4 = . =SEQIN}0=- @ =,SEQOUT @ =.@ =
%5 Source level error at user's loc
` Z (X^ . > S.~ (3~ + =9 ~ + =DZ . \x <x *<x .-> ?ez+ =@!" b + " =A b + Z . h + gg M?} =D
& =F b + =4,
?NO CORE AVAILABLE - CAN NOT PROCEED
x =Ja.3@1 ,> ?O@ > + =OgR~@1 ,> ?@@ > ,> ,> @ 6 w+ =\" > 0B + =W!"A`X#p 5@ =T/#p !" X#p + =\\p + =\a.9'1 ,> ?,> ,> O@ > + =\,>
6 + _ 4` =d"` Q@ ,> < >
, ,^ ,> < >
,^ *b =a+ =o,> < >, ,^ 7@ > + =j,> < >,
,^ + =l,> < >,
,^ Z 5" =o,> < >,
,^ , 7@ > ,
,> < >, ,^ , ,> < >, ,^ ,> < > ,
,^ (@qd 1@ ,,
1@ #+ =}0@ *+ =o,> < > , ,^ + =o,^ ,^ ,^ ,~ (' Type G to Continue, X to Exit, T To trace.'/2H *,$) (A1) (1H 14A5/)(1H A5,1X,O6) PAUSESTOP h> .p X `> > p p>X `> > p >p>p >p>p p>X `> = X ~P> > p x y> C6 1 ,> ?, >),~ [B 1 ,> ?, >),~ [B 1 ,> ?, >)@ ,~ C6 1 ,> ?, >)` ,~ ,> e|P w+ >,3!p p *| >+a|+ >0 p h" ab~ + >+,^ ,~ C6Md 1 ,> ?, ><,~ [&r 1 ,> ?, ><,~ [&r 1 ,> ?, ><@ ,~ C6Md 1 ,> ?, ><` ,~ ,> e|P w+ >>2ap p *| >>a|+ >B p h" ab~ + >>,^ ,~ gG@ 1 ,> ?7cp + >R )@ / @( X@ >O(B{4 >PB ? B >V "P" >V B >V @ ,~ B @ B >V ""X+ >K4B >U+P =F0
>V#p + >F ,~ }X>Vattempt to take SQRT of negative arg CQ` 1 ,> ? D >j$ >j/$ D >i"%p #p ."Q @@ >i @ .< $p .D >i p /p $ *b >a >i7@ >i( D @ >j,~ {h>j0
p C 1 ,> ?#p ,~ S0 1 ,> ?#p +" >p,~ U ,~ g&=` 1 ,> ?#p 7!p "` ,~ SNL{@1 ,> ? p Fp 4 >y p ,~ "p +" >z,~ U ,~ [> 1 ,> ? p &p ,~ KbN@ 1 ,> ?,
,~ ?Y\ ?Q< X\ ?* + !$h X$h @@h *% " ?
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 x?iSH + S