Google
 

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
_
`aa!!!!bbccd +?(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! : Zd@@h : Ze : Ze $F$d &#$e..@@i $F$d &#$e..@@ $F$d &#$e..@@'1:#9U e1:9T d1:9R "eb +k('1BMDX70 T PROGRAM',' - REVISED JUNE 30, 1969')   "lb +r(40H HEALTH SCIENCES COMPUTING FACILITY,UCLA  )    "tb
`+v(9H0PROBLEM(,A6)NUMB"yba!N+(26HHNUMBERTOFECASES..........,  "I6,3X,20HNO.OFSUB-PROBLEMS.R ,I2)ARI"bab,+(29H NUMBERLOF)PUNCHEDVARIABLES.,I3,3X,20HTAPE(TOHWRITE.......,I2)L CA"......,I3,3X,20HFORMAT CARDS........,I2)   @@!"$d.a5dB"$2.!5dJ"$2.a.!5dR"$2.!5dZ"$
.!5db $3$dgO &2fdgOA4$@ "7b~ +?(' NUMBER OF VARIABLE FORMAT CARDS INCORRECTLY SPECIFIED, ASSUMED TO BE 1') $ Df"$}.a4dx+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 : Ze@@h "1:d9y@@f@@! !4d}-\'E !4d-\5	 !4$b4D-\# "B : Zd f \3:!9 +(8(I3,F6.0))    $ D! $	$d Dg "B : Ze x3:g9
 +(18A4)     "b +(20H0    VARIABLE FORMAT  )    "b : Ze x3:g9 +(1X,18A4)  c4d, $2Dc+- " b~ +$(' INPUT TAPE CANNOT BE ON UNIT 6')+p "&b~ ++(' IT IS ILLEGAL TO WRITE ON TAPE UNITS 5 OR 6')  +p $ Dc"$.c4D0 cX@/ $2DbgO &2FbgOG4$$ b4dM bX@7 : Ze : Zd cX@; "?B : Ze *1:9< d +A(16A5)     bX@B "?b : Ze *1:9C  d3:a99 e3:b98 bX@J bX@L b Dc : Zg Z! cX@Q "yQ"ZB : Ze  "3:a9R  !4dV-\'E !4d] !4d\ $.a Dh h Zh@@h "3:!9[-\5	 !5D`!$ D!!$ D!+c-\# !5dc:f+!$!@ @i+f(10F7.2)   : Zi!$h!@ @d d f Dj d: j  " d\4$p $ De+q $ De : Ze ^3Dh "+ $F$d &#$e e. H[.: i e  " &F$d (#$e 
e.
 J[.
D( e  " " &F$d (#$e 
e.
 J[.
D('e3:!9qi3:i9g-g3:a9N :,ZdOh5dI"H CASES,29X,59H*  POOLED VARIANCE ESTIMATE   *  SEPARATE VARIANCE ESTIMATE  ) +8 $ Dj : Ze $F$d. 
` @k $F$d. /` @k@@l@@l@@m@@m@@n@@n k4d7 &F$d. &k Dl!$2dk+7"Zk (F$d 
.
 (&(&k(J"Fl Z &F$d.J Do l2$o+6@@l lk Dm k4dI &F$d.e Ik Dm!$2dk+I"Zk (F$d 
e.
 (I(Ik(m"Fn Z &F$d.em Do n2$o+H@@n nk Dn ln4$T@@o n4dN ln Do@@!@@! k4dQ"Zk D! k4dT"Zk D!+]@@o l4dW nl Do@@!@@! k4d["Zk D! k4d]"Zk D!-\<b4l @p-\<b4n @p-\<b4m @q-\<b4n @q !! Dr@@r r4dk"Zkl"Zknr Dr@@s k4dn!$k Ds@@s k4dq!$k Ds ssr D[-\<b4[ @r@@t r4dx lmr Dt mn D[-\<b4[ @r@@t r4d~ lmr Dt"$ &F$d e.. 
. / Du &F$d.e 
5d"$$&F$d.e./ Du &F$d.e /5d
 Du &F$d e.  /0dgO 
 
0jg
O
A5$@@u@@u n0dgO m0fgOA4$+@@v m4d! mn m"Zk!*

 Fv@@v n4d( mn n"Zk!*

 Fv vv!& Fu ^2Dc+I`u @! u D!"$ &F$d.e.
Dw"$ &F$d.e./Dwo5d7!$D!+:-\1x4o4w4wB@"@! t5D=!$SD!+A-\>@4t @[-\264[4uE@"@! t5DD!$DD!+I@u @x-\>@4t @[-\264[4x1@"@!:j"$.j4dt "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*)-\&A4p @p-\&A4q @q "b $F$d.e
lpq +
(1H ,8X,1HX,2X,I5,1X,F12.4,1X,F10.3,1X,F10.3,3X,1H*,16X,1H*29X,1H*)   -\&A4o @o-\&A4t @t-\&A4t @t-\&A4u @u ^3Dc+ [ D! "beo!tu!tu! +"(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 )   -\&A4p @p-\&A4q @q "*b $F$d.e/mpq +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 "<bf +C(57H1NUMBER OF CASES NOT INCLUDED IN DESIGNATED SUB-PROBLEMS= ,I5)    !$!@ @x "Gbx +P(74H NUMBER OF INSTANCES IN WHICH TRANSGENERATION RESTRICTIONS WERE VIOLATED =  ,I5) "$.c4DS cX@S b4d3 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#0b7+"]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#
$85x#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-|pp&I !5d'( "&LbD+&P(20H0 MISSINGNUMBEROF )(3 "&Qb+&^(111H9VARIABLEK DVALUES'G :VALUE1L VALUED2!VALUE 3'VALUE4ZVALUE5$VALUE6L"VALUE7!VALUE58'VALUEd9VALUE'10)25!/!$D'K.: Z'LX"&gBh'Nh(24:5Z'L $d$.'L(21:9&c4'L@+&i(2I4,10F6.0)'>"$4'L.(24d&v5'L &3F(29"&nb~+&v('NUMBERLOFMISSING+VALUESIS INCORRECTLYSPECIFIED,'ASSUMED0TOBEx10')   'L@(2!D'M "&b7'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 .$( D2
+1 `2 @2`222 @2-\<b42 @2-\<G42 @2
 27 .$( D2
-\>42
 @2 22 D2!$2 D2
-\<b42
 @2
!$2D2gO&2F2gOA4$14 : Z2
 F2	3:2
91, 2	22
2
D2$"D2	 $2D2+1:+1~"2D2	"`2	 $2D2+1=+1~ 2	 D2!$ D2	@@2"$.2 D2 27 .$( D2
!:Z2(` @2
91E`2@222
22@2	"`2	+1~`22 @2`22 @2`22 @2 27 .$( D2
"$.2 D2+1c`22 @2`22 2 D2 27 .$( D2
"$.2D2!$2 D2 : Z2
91e 27 .$(( 2/5F1u`2@ 2 ,=2	$"D2	+1~`2@ 2 ,=D2	+1~4  2Q * 2 Z2 \2  2,!p,!p,!p+1!,2X,*, 2 2 2	-|p Y~> 0z2 2C5D2!$ D2E+2;-\>@42C @2E`2D @2F-\<b42F 2E D2D-\<G42D @2F-\>42F @2G-\>42F @2G 2G2G D2H@@2E $3D2D+2/`2D@ @2H $.2D 2D7 .&((/ D2I 2GD2E"2?D2H`2I  @2I`2I2G2H2I @2G $.D2I"2@2H4$225d2& 2E2G2F2@ D2E 2ED D2D-\>G42D42C  @2E+2;4 D2A F2A Z2B \2B  2C,!p,!p+2 2A 2A 2B 2B\ 2D/ ,Ap 2E-|p 0  9~_W02I+2W42J  5Q * 5 Z5 \5  5,!p 5$"D5-\<b45 5 F5-\<G45!85X8*8 5 5-|p !5d3c "2Yb +2_(43H0 NEW           OLD     B VAR.    NUMBER OF  ) "2`b +2h(68H  VAR.   CODE   VAR.   OR CONST.  CONSTANTS        TYPE 40 CONSTANTS  ) : Z5 "2rB
5h9h81h9Gh7h8c7:Z53$2$.54o1:92n5+2v(A6,I3,I2,I3,F6.0,5X,I1,7F6.0)5588c4d3	3538cD5"3bI59E581E59GT57058c3:3Z5$2$.54o3:592I+3(2X,I3,2(4X,I3),5X,F8.2,7X,I1,8X,7(F8.2,1X))+3N"3EROFCONSTANTSIS GREATER THAN57')5+3Y"$ 5.815d3O650817D56b50b7+3143a43a43a43a43a43O43a43a43a43a43F43F43F43F43a43F43a43O43O43a43a43a43F43a43O43O43O43O43O43O43O43O43O43O43O43O43O43O43O43a43a"5@@5+5-\<b45 @5+5 54$4u5d4
!$5D5+5!$5-D5-\<b45+@5-\<b455+@5+5"55$4u-\=m45+@5+5-\=O45@5+5"54D45d4u"5+5"54D45d4uH5L5 E7,=OD5+5S5R7@E@5)5!5!" D5+4V 5 7@ @535955"4D5+4V 5+7@ @5-5"5" D5+4V5 7@@545O:"4D4t45@5""D5+4V 5575$4	+4 5 7@ @5 5 53D "+5 5 5 "5$4	+4"55$4u-\=t45 @5+5+4t+4t-\>45 @5+5-\>45 @5+5-\<G45 @5+5 5 7@ @5"55$4u 5 5   ",= D5 5 53D "+5+5 5 74d4u 5 7 5,= D5+5 5 8c D5  : Z5 5 &2$.54o5D4j-\>G45
:6@:a J: 
:J:Z:+: J:z:+:]
z@+: #p &> 
3L:+:7@: /&5f:	7 +:@@ :: : L : 
PL:+:Rd.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:aZp:a+p@h;@p;@(;-@0;7@x;@;@8;9@(;'@P;1@P;2@h;@:x@ :x@;@;4`;&[(/<0"`S<pX<0 p3@;P+:w*|:s-<;]wx:uZ`:b+;&!  @w+:t<;Q p7 p+;,>,>,> &w p,;,&.<7@p+;
 p,;";Q ;?.< p`;R w,&,&5 :~.< pd;R:." Q,& p,&>`9;	.<9:~@@,^,^,^+;d @@& 0b.".")B}5@;,~m<!<P\;C<;Q p[pl<0@X+;Zp.</ pQ \;D+;@@;D!<P\;C7@;F+; <;G \;E@@;F!<P\;CXX\;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 @;6XQ< \;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.46$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+ggM?} ;l
&;o	b+;],
?NO CORE AVAILABLE - CAN NOT PROCEED
x ;sa.3@1,>>SO@<1+;xgR~@1,>>S@@<1,>,>@6 w+<"<20B+<!"A`X#p5@;}/#p!"X#p+<\p+<a.9'1,>>S,>,>O@<1+<,>
6+Q4`<<3,,^,> <<6,
,^*b<
+<,> <<7,,^7@<1+<,> <<:,
,^+<,> <<<,
,^Z5"<,> <<=,
,^,7@<1,
,> <<?,,^,,> <<B,,^,> <<E,
,^(@qd1@,,
1@#+<&0@*+<,><<<F,,^+<,^,^,^,~('eTypeGtohContinue,Xto Exit,TTotrace.'/2H*,$)(A1)(1H@14A5/)(1HA5,1X,O6)PAUSESTOPh<1.pX`<4<.pp<6X`<8</p0<0p<;pj<1p<<pSp<>X`<@<(X~P<C<-px|p<FCR <t@,~B@ B<t""X+<j4B<s+P;n0
<u#p+<d  ,~u <tattempt to take SQRT of negative argKc3@ p p+=Kc3K  ,= 
,~Kc3J  ,= ,~Kc3I  ,= ,~Kc3H4B=5@=5"=+D;n0
=U ,~,>,># $)D/$@,>4d=X $(F) + =5F=5"="` ,=)+=#  ,> <=,=t,^@,> <=,=O,^5&=",^,^,^,~! ,~xxKc#@ 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! ,~xKc1,>>S p3"=k+=U3b=j+=W+D;n0
=TUt,~+D;n0=V^b,~pD=kF=l@@=l%"j"%=i)/;`:XD=e5f=^aF+=^.&@(|h&f=l =h=i =h =l=gD=j@ =k =l,~!t0'"S'qf!um.	.#Y% !vyO^	RX=lC2|t(1,>>S p4@> @=s,> <>
 >	>	>
>
>>
,~+D;n0
> >,~  ,~ 0_i/X3 6P'M 5( bB W
R `@8>
x=sATTEMPTTOhTAKEaLOGOFNEGATIVE`ARG{`>G?@1,>>Sp>4>5++>g&t@1,>>S7p>5+~+>G?1,>>Sp>5+>g&p1,>>S pgB>4#`3b>3+>0+D>6>53b>6+>(%"(D?d$2"@($)B4 >?l ,~?C1,>>S#p,~S01,>>S#p+">E,~U ,~g&=`1,>>S#p7!p"`,~SNL{@1,>>S pFp4 >N p,~"p+">O,~U ,~KbN@1,>>S,
,~>SY\>UQ<X\>U*+!$hX$h@@h*% ">] BhL " BhM+xeX2GiSHYC aSiSH~>]INXGYC GSHiSHaSaSI'IR
IR
 IR
0IR
@IR
PIR
`IR
p[R
[R
[R
 M?L@INXINXINXINXINXI2I2 I20I2@Gx>liSH+W