Trailing-Edge
-
PDP-10 Archives
-
decuslib10-09
-
43,50466/bmdx70.sav
There are no other files named bmdx70.sav in the archive.
h 'mPW >m- :bx -mH?x . *h /-\ 9z4
X!$ D !!$ D ! " ;B
_
` a a ! ! ! ! b b c c d + ?(2A6,I5,2I3,I4,3I3,I2,A3,27X,2I2) @@ ! @@ ! @@ ! ]3D _2F _7 + P \3D _2F _7 + V " Gb~
_ + O(' PROGRAM EXPECTED PROBLM OR FINISH CARD INSTEAD READ THEFOLLOWING'/1X,A6)-\ >Q@@ ! a. ! D ! : Z d@@h : Z e : Z e $ F$ d & #$ e. . @@i $ F$ d & #$ e. . @@ $ F$ d & #$ e. . @@'1: #9 U e1: 9 T d1: 9 R " eb + k('1BMDX70 T PROGRAM',' - REVISED JUNE 30, 1969') " lb + r(40H HEALTH SCIENCES COMPUTING FACILITY,UCLA ) " tb
` + v(9H0PROBLEM(,A6)NUMB" yb a !N + (26HHNUMBERTOFECASES.........., "I6,3X, 20HNO. OF SUB-PROBLEMS.R ,I2)ARI" b a b, + (29H NUMBERLOF)PUNCHEDVARIABLES.,I3,3X,20HTAPE(TOHWRITE.......,I2)L CA" ......,I3,3X,20HFORMAT CARDS........,I2) @@ !"$ d. a5d B"$ 2. !5d J"$ 2. a. !5d R"$ 2. !5d Z"$
. !5d b $ 3$ dg O & 2f dg O A 4$ @ " 7b~ + ?(' NUMBER OF VARIABLE FORMAT CARDS INCORRECTLY SPECIFIED, ASSUMED TO BE 1') $ D f"$ } . a4d x+ j " Cb~ + I(' NUMBER OF ORIGINAL VARIABLES IS GREATER THAN 200') + p " Kb~ + R(' NUMBER OF TRANSGENERATION CARDS IS GREATER THAN 100') + p " Tb~ + Z(' NUMBER OF VARIABLES OUTPUT IS GREATER THAN 100') + p " \b~ + a(' NUMBER OF MISVAL CARDS IS GREATER THAN 100') + p " cb~ + i(' NUMBER OF SUBPROBLM CARDS IS INCORRECTLY SPECIFIED')+ p " kb~ + p(' NUMBER OF CASES IS GREATER THAN 32,000') " rb + x(44H0PROBLEM CARD ERROR..PROGRAM CANNOT CONTINUE ) + V : Z e@@h "1: d9 y@@ f@@ ! !4d }-\ 'E !4d -\ 5 !4$ b4D -\ # " B : Z d f \3: !9 + (8(I3,F6.0)) $ D ! $ $ d D g " B : Z e x3: g9
+ (18A4) " b + (20H0 VARIABLE FORMAT ) " b : Z e x3: g9 + (1X,18A4) c4d , $ 2D c+ - " b~ + $(' INPUT TAPE CANNOT BE ON UNIT 6')+ p " &b~ + +(' IT IS ILLEGAL TO WRITE ON TAPE UNITS 5 OR 6') + p $ D c"$ . c4D 0 cX@ / $ 2D bg O & 2F bg O G 4$ $ b4d M bX@ 7 : Z e : Z d cX@ ; " ?B : Z e *1: 9 < d + A(16A5) bX@ B " ?b : Z e *1: 9 C d3: a9 9 e3: b9 8 bX@ J bX@ L b D c : Z g Z ! cX@ Q " yQ" ZB : Z e "3: a9 R !4d V-\ 'E !4d ] !4d \ $ . a D h h Z h@@h "3: !9 [-\ 5 !5D `!$ D !!$ D !+ c-\ # !5d c: f+ !$ !@ @ i+ f(10F7.2) : Z i!$ h!@ @ d d f D j d: j " d \4$ p $ D e+ q $ D e : Z e ^3Dh "+ $ F$ d & #$ e e. H [. : i e " & F$ d ( #$ e
e.
J [.
D( e " " & F$ d ( #$ e
e.
J [.
D(' e3: !9 q i3: i9 g- g3: a9 N : ,Z dOh5d I" H CASES,29X,59H* POOLED VARIANCE ESTIMATE * SEPARATE VARIANCE ESTIMATE ) + 8 $ D j : Z e $ F$ d.
` @ k $ F$ d. /` @ k@@ l@@ l@@ m@@ m@@ n@@ n k4d 7 & F$ d. & k D l!$ 2d k+ 7" Z k ( F$ d
.
(& (& k(J "F l Z & F$ d. J D o l2$ o+ 6@@ l l k D m k4d I & F$ d. e I k D m!$ 2d k+ I" Z k ( F$ d
e.
(I (I k(m "F n Z & F$ d. e m D o n2$ o+ H@@ n n k D n l n4$ T@@ o n4d N l n D o@@ !@@ ! k4d Q" Z k D ! k4d T" Z k D ! + ]@@ o l4d W n l D o@@ !@@ ! k4d [" Z k D ! k4d ]" Z k D ! -\ <b4 l @ p-\ <b4 n @ p-\ <b4 m @ q-\ <b4 n @ q ! ! D r@@ r r4d k" Z k l" Z k n r D r@@ s k4d n!$ k D s@@ s k4d q!$ k D s s s r D [-\ <b4 [ @ r@@ t r4d x l m r D t m n D [-\ <b4 [ @ r@@ t r4d ~ l m r D t"$ & F$ d e. .
. / D u & F$ d. e
5d "$ $& F$ d. e./ D u & F$ d. e /5d
D u & F$ d e. /0d g O
0j g
O
A 5$ @@ u@@ u n0d g O m0f g O A 4$ +@@ v m4d ! m n m " Z k!*
F v@@ v n4d ( m n n " Z k!*
F v v v!& F u ^2D c+ I` u @ ! u D ! "$ & F$ d. e.
D w"$ & F$ d. e./D w o5d 7!$ D ! + :-\ 1x4 o4 w4 wB @ "@ ! t5D =!$ SD ! + A-\ >@4 t @ [-\ 264 [4 uE @ "@ ! t5D D!$ DD ! + I@ u @ x-\ >@4 t @ [-\ 264 [4 x1 @ "@ ! : j"$ . j4d t " VIATION ERROR* VALUE VALUE * VALUE OF FREEDOM VALUE * VALUE OF FREEDOM VALUE ) " rb + t(1X,131(1H*)) " wb " wb + z(55X,1H*,16X,1H*,29X,1H*)-\ &A4 p @ p-\ &A4 q @ q " b $ F$ d. e
l p q +
(1H ,8X,1HX,2X,I5,1X,F12.4,1X,F10.3,1X,F10.3,3X,1H*,16X,1H*29X,1H*) -\ &A4 o @ o-\ &A4 t @ t-\ &A4 t @ t-\ &A4 u @ u ^3D c+ [ D ! " b e o ! t u ! t u ! + "(3X,I3,49X,2H* ,F6.2,2X, F5.3 ,2X,1H*,F7.2,5X,I5,5X, F5.3 ,2X,1H*,F7.2,4X,F8.2,5X, F5.3 ) -\ &A4 p @ p-\ &A4 q @ q " *b $ F$ d. e / m p q + 2(1H ,8X,1HY,2X,I5,1X,F12.4,1X,F10.3,1X,F10.3,3X,1H*,16X,1H*29X,1H*) " wb " 5b + 7(1X,131(1H-)) e3: !9 d3: !9 " <b f + C(57H1NUMBER OF CASES NOT INCLUDED IN DESIGNATED SUB-PROBLEMS= ,I5) !$ !@ @ x " Gb x + P(74H NUMBER OF INSTANCES IN WHICH TRANSGENERATION RESTRICTIONS WERE VIOLATED = ,I5) "$ . c4D S cX@ S b4d 3 bX@ U + 3-\ >Q+ + 0BMDX70 hY 0 |-19|3
P[FINISH PROBLM YES b0! "$ . !5$ "C : Z #@@ # $ D # $ D # " !2B # Z # $
$ #. $: $
$ #. %
$
$ #. (
# $
$ . #%Z3: #9 !& + !5(4(3X,I3,1X,A2, A6,1X,A2)) # Z # Z # &
$ #. # %Z3D &<+ !A &
$ #. # %Z3D &=+ !A # &
$ #. #3D%Z+ !T $ D # #3: #9 !6"$ . #5d !F $ D # $ D #+ !$ " !Hb # + !T(49H NO ** OPERATION WAS ENCOUNTERED FOR SUB-PROBLEM ,I2,51H...PROGRAM WILL READ TWO CARDS FOR THIS SUB-PROBLEM ) # # F$:"$ . #5d !Y # D #+ !Z $ D # " !hb # : Z # $
$ #. $: $
$ #. %
$
$ #. (
# $
$ . #%Z3: #9 !\ + !q(37H0CASE WILL BE INCLUDED IN SUB-PROBLEM ,I3,3H IF,4(2HV(,I3,1H)1X,A2,1X,A6,1X,A2,1X)) "$ . #4d " # D # " "b : Z # $
$ #. $: $
$ #. %
$
$ #. (
# $
$ . #%Z3: #9 !u + "(43X,4(2HV(,I3,1H),1X,A2, 1X,A6,1X,A2,1X)) : Z # " "
b $
$ . #(
# + " "B # + "(A1) #2D #+ " " "B $
$ #. #(
# + "(3X,F3.0) #
(
$ #. #( $ #4$ "1 #
$ #
#.
J #(
(#(#+ "& " "$B $
$ #. #(
# + "&(F6.0) "$ d &
$ #. #.$:5d "1 : Z # &
$ #. # %
3Dh&8+ ".1: 9 ")+ "1 #3: #9 " !4d "A : Z # $
$ . # &< F%
3: #9 "2 " "7b + "A(91H BOOLEAN SELECTION CARD(S) FOR ABOVE SUB-PROBLEM HAS ERROR(S)...SUB-PROBLEM WILL BE SKIPPED ) #3: !9 !!+ #
@@ # : Z # h$: D # : Z # &
$ . # $: D # : Z # &
$ #. # %
3Dh&8+ "O1: 9 "J+ # (
$ #. #( $ #XD "R-\ >74
"R#@ #" # # D #+ "Z # #@ @ # # " D #+ "[(2F15.2) 6b #0b 7 +"]4 "`4 "c4 "e4 "h4 "j4 "m" # # "4d "r+ "o" # # "5$ "o+ "r" # # "5$ "r+ "o" # # "4d "o+ "r" # # "4D "o+ "r" # # "4D "r # & F&4 # D #+ "t #@@&4 # D # #3: #9 "F #@@&4 &4 D # : Z # &
$ . # %Z3D &=+ "~ #5d # # &4 D #+ # # &4$D # #3: #9 "x #4d #: # #` # @! #3: !9 "D+ #(I3) ` # @ !+ #
4 Z # \ #+ ! # #-|p " x#
$85 x#V '**6H ABOVE~I&8GTG VGEUE LTRD LENTAEQS ANEERRERR..ORRD ANLL B &I5D &?@@ &I+ &@ &I D &I+ &D4 D &G5Z &G"\ &H. &H,!p + &= &G3 &G9 &H+ &I-|p p&I !5d '( " &Lb D + &P(20H0 MISSING NUMBEROF )(3 " &Qb + &^(111H9VARIABLEK DVALUES'G :VALUE 1L VALUED2!VALUE 3 'VALUE 4Z VALUE 5$VALUE 6L"VALUE7!VALUE58 'VALUEd9 VALUE'10)25 !/ !$D 'K.: Z 'LX" &gB h'N h(24: 5Z 'L $ d$ . 'L(21: 9 &c4 'L@ + &i(2I4,10F6.0) '>"$ 4 'L.(24d &v5 'L & 3F(29" &nb~ + &v('NUMBERLOF MISSING+VALUES IS INCORRECTLY SPECIFIED,'ASSUMED0TO BEx10') 'L@(2!D 'M " &b 7 'L 'N( 'L (2 : /Z 'L4$ d$ . 'L(23: 'M9 &{ + '(1H0,2X,I3,9X,I2,5X,10(F8.2,1X)) 2$ c 'L2$'N+ '4" 'b~\ + ' (' VARIABLE INDEX IS GREATER THAN 199') " '
27 .$ ( D 2
+ 1 ` 2 @ 2` 2 2 2 @ 2-\ <b4 2 @ 2-\ <G4 2 @ 2
27 .$ ( D 2
-\ > 4 2
@ 2 2 2 D 2 !$ 2 D 2
-\ <b4 2
@ 2
!$ 2D 2g O & 2F 2g O A 4$ 14 : Z 2
F 2 3: 2
9 1, 2 2 2
2
D 2$ "D 2 $ 2D 2+ 1:+ 1~" 2D 2 "` 2 $ 2D 2+ 1=+ 1~ 2 D 2!$ D 2 @@ 2"$ . 2 D 2 27 .$ ( D 2
!: Z 2 ( ` @ 2
9 1E` 2@ 2 2 2
2 2@ 2 "` 2 + 1~` 2 2 @ 2` 2 2 @ 2` 2 2 @ 2 27 .$ ( D 2
"$ . 2 D 2+ 1c` 2 2 @ 2` 2 2 2 D 2 27 .$ ( D 2
"$ . 2 D 2!$ 2 D 2 : Z 2
9 1e 27 .$ (( 2/ 5F 1u` 2@ 2 , = 2 $ "D 2 + 1~` 2@ 2 , = D 2 + 1~4 2Q * 2 Z 2 \ 2 2,!p ,!p ,!p + 1!, 2X, *, 2 2 2 -|p Y~> 0 z 2 2C5D 2!$ D 2E+ 2;-\ >@4 2C @ 2E` 2D @ 2F-\ <b4 2F 2E D 2D-\ <G4 2D @ 2F-\ > 4 2F @ 2G-\ >4 2F @ 2G 2G 2G D 2H@@ 2E $ 3D 2D+ 2/` 2D@ @ 2H $ . 2D 2D7 .& (( / D 2I 2GD 2E" 2?D 2H` 2I @ 2I` 2I 2G 2H 2I @ 2G $ .D 2I" 2@ 2H4$ 225d 2& 2E 2G 2F 2@ D 2E 2ED D 2D-\ >G4 2D4 2C @ 2E+ 2;4 D 2A F 2A Z 2B \ 2B 2C,!p ,!p + 2 2A 2A 2B 2B\ 2D/ ,Ap 2E-|p 0 9~_W02I+ 2W4 2J 5Q * 5 Z 5 \ 5 5,!p 5 $ "D 5-\ <b4 5 5 F 5-\ <G4 5!8 5X8 *8 5 5-|p !5d 3c " 2Yb + 2_(43H0 NEW OLD B VAR. NUMBER OF ) " 2`b + 2h(68H VAR. CODE VAR. OR CONST. CONSTANTS TYPE 40 CONSTANTS ) : Z 5 " 2rB
5 h9 h81 h9Gh7 h8c7: Z 5 3$ 2$ . 54o1: 9 2n 5 + 2v(A6,I3,I2,I3,F6.0,5X,I1,7F6.0)5 588c4d 3 3 538cD 5 " 3b I 5 9E 5 81E 5 9GT 570 5 8c3: 3Z 5 $ 2$ . 54o3: 5 9 2I + 3(2X,I3,2(4X,I3),5X,F8.2,7X,I1,8X,7(F8.2,1X)) + 3N" 3EROF CONSTANTS IS GREATER THAN57') 5+ 3Y"$ 5.815d 3O6 50817D 5 6b 5 0b 7 +314 3a4 3a4 3a4 3a4 3a4 3O4 3a4 3a4 3a4 3a4 3F4 3F4 3F4 3F4 3a4 3F4 3a4 3O4 3O4 3a4 3a4 3a4 3F4 3a4 3O4 3O4 3O4 3O4 3O4 3O4 3O4 3O4 3O4 3O4 3O4 3O4 3O4 3O4 3O4 3a4 3a" 5@@ 5 + 5-\ <b4 5 @ 5 + 5 5 4$ 4u5d 4
!$ 5D 5 + 5!$ 5 -D 5-\ <b4 5+@ 5-\ <b4 5 5+@ 5 + 5" 5 5$ 4u-\ =m4 5 +@ 5 + 5-\ =O4 5 @ 5 + 5" 5 4D 45d 4u" 5 + 5" 5 4D 45d 4uH 5 L 5 E7, =OD 5 + 5S 5R7@ E@ 5 ) 5 ! 5 !" D 5 + 4V 5 7@ @ 5 3 5 9 5 5"4D 5 + 4V 5+7@ @ 5 - 5 " 5 " D 5 + 4V 5 7@ @ 5 4 5 O:"4D 4t4 5 @ 5 ""D 5 + 4V 5 575$ 4 + 4 5 7@ @ 5 5 5 3D "+ 5 5 5 "5$ 4 + 4" 5 5$ 4u-\ =t4 5 @ 5 + 5+ 4t+ 4t-\ > 4 5 @ 5 + 5-\ >4 5 @ 5 + 5-\ <G4 5 @ 5 + 5 5 7@ @ 5 " 5 5$ 4u 5 5 ", = D 5 5 5 3D "+ 5+ 5 5 74d 4u 5 7 5 , = D 5 + 5 5 8c D 5 : Z 5 5 & 2$ . 54o5D 4j-\ >G4 5
:6@ :a J :
: J : Z :+ : J : z :+ :]
z@ + : #p & >
3L: + :7@: /& 5f : 7 + :@@ : : : L :
PL: + :R d. R: d$ 2N + : : : : kN
y1kN
y CB` x: x : H:]Z :0B + : d
:` :a+ :+ :x:a4 }X:b \ ;G @ ;H< ;O0< 0| + 1\ + :p,>p:aZ p:a+ p @ h;@ p;@(;-@0;7@ x;@ ;@8;9@(;'@ P;1@ P;2@ h;@:x@ :x@;@;4`;&[ (/< 0"` S<p X< 0 p 3@ ;P+ :w*| :s-< ;]wx:uZ` :b+ ;&! @w+ :t< ;Q p 7 p + ;,> ,> ,> &w p , ;,& .< 7@p + ;
p , ;" ;Q ;?.< p ` ;R w,& ,& 5 :~.< p d ;R: ." Q ,& p ,& >` 9 ; .< 9 :~@@ ,^ ,^ ,^ + ;d @ @ & 0b ." ." )B}5@ ;,~ m< !< P\ ;C< ;Q p [ p l< 0@X + ;Z p .< / p Q \ ;D+ ; @@ ;D!< P\ ;C7@ ;F+ ; < ;G \ ;E@@ ;F!< P\ ;CX X\ ;C ;S7@ ;ED<7@ ;FA< \ ;D < ;C[`x ;H, x ,^x ;G+ :b :bQ< \ ;C: :b \ ;D< ;S p;?| ;T < \ ;D@@ ;E+ ;#@@ ;D Q< \ ;C< ;S p;?| ;T+ ;#7 ;V ;W \ ;D @ ;6X Q< \ ;C ;X \ ;D+ ;#~x;6[`x ;H, x + ;>Z \ ;C@@ ;D@@ ;D< ;Q \ ;E+ ;#7 ;F ;EX\ :b@@ ;F@@ ;E+ ;%P;@ ~0;H>x ! Z @
& ;XU` eB + ;N@ )@ G
" + ;K
& ;\+ <6$ 1 ,> >S. @
p .4 6$ 7H;=.
.4 ;D. ;CSEQIN}0;U @ ;USEQOUT @ ;V@ ;6
%5 Source level error at user's loc
` Z (X^ . > S.~ (3~ + ;a ~ + ;mZ . \x <x *<x .-> >Vez+ ;h!" b + " ;j b + Z . h + gg M?} ;l
& ;o b + ;],
?NO CORE AVAILABLE - CAN NOT PROCEED
x ;sa.3@1 ,> >SO@ <1+ ;xgR~@1 ,> >S@@ <1,> ,> @ 6 w+ <" <20B + < !"A`X#p 5@ ;}/#p !" X#p + <\p + <a.9'1 ,> >S,> ,> O@ <1+ <,>
6 +Q 4` <<3, ,^ ,> < <6,
,^ *b <
+ <,> < <7, ,^ 7@ <1+ <,> < <:,
,^ + <,> < <<,
,^ Z 5" <,> < <=,
,^ , 7@ <1,
,> < <?, ,^ , ,> < <B, ,^ ,> < <E,
,^ (@qd 1@ ,,
1@ #+ <&0@ *+ <,> << <F, ,^ + <,^ ,^ ,^ ,~ ('eType G tohContinue, X to Exit,T To trace.'/2H *,$) (A1) (1H@14A5/)(1HA5,1X,O6) PAUSESTOP h<1.p X `<4 <. p p<6X `<8 </ p 0 <0p<;p j <1p<<p S p<>X `<@ <( X ~P<C <- p x |p<FCR <t @ ,~ B @ B <t ""X+ <j4B <s+P ;n0
<u#p + <d ,~ u <tattempt to take SQRT of negative arg Kc3@ p p + =Kc3K , =
,~ Kc3J , = ,~ Kc3I , = ,~ Kc3H4B =5@ =5" =+D ;n0
=U ,~ ,> ,> # $ )D /$ @,> 4d =X $ (F) + =5F =5" ="` , =)+ =# ,> < = , =t,^ @ ,> < = , =O,^ 5& =" ,^ ,^ ,^ ,~ ! ,~ x x Kc#@ p p + =)Kc#K , =) @ ,~ Kc#J , =) @ ,~ Kc#I , =) @ ,~ Kc#H4B =L5@ =,5" =6+D ;n0
=+U ,~ D =L!$ @ =K B =K5" =3#` + =H, =3!" B ,~ + =7(BdB + =75B =2 =L,~ +7` =K+ =?`d +D ;n0=;+D ;n0
=;U `d @ 6 =K+ =6 =K`B "` + =6/ =Mid + =B+D ;n0=;# =K,> < =N, =t,^ @ ` =K @ ,> < =N, =O,^ + =<U", =3 =K+ =7+ =0|=L! ,~ x Kc 1 ,> >S p 3" =k+ =U3b =j+ =W+D ;n0
=TUt,~ +D ;n0=V^b ,~ pD =k F =l@@ =l%" j" % =i)/;` : XD =e5f =^aF + =^.& @(|h& f =l =h =i =h =l =g D =j@ =k =l,~ !t0 ' "S'qf!um. .#Y% !v yO^ RX=lC2|t(1 ,> >S p 4@ > @ =s,> < >
> > >
>
> >
,~ +D ;n0
> > ,~ ,~ 0 _i/X3 6P'M 5( bB W
R `@ 8>
x =sATTEMPT TOhTAKEaLOG OF NEGATIVE`ARG{`>G? @ 1 ,> >Sp >4 >5+ + > g&t@ 1 ,> >S7p >5+~ + > G? 1 ,> >S p >5+ > g&p 1 ,> >S p gB >4#` 3b >3+ >0+D >6 >53b >6+ >(%" (D?d$ 2" @($ )B 4 >?l ,~ ?C 1 ,> >S#p ,~ S0 1 ,> >S#p +" >E,~ U ,~ g&=` 1 ,> >S#p 7!p "` ,~ SNL{@1 ,> >S p Fp 4 >N p ,~ "p +" >O,~ U ,~ KbN@ 1 ,> >S,
,~ >SY\ >UQ< X\ >U* + !$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>liSH + W