Trailing-Edge
-
PDP-10 Archives
-
decuslib10-09
-
43,50466/bmd08d.sav
There are no other files named bmd08d.sav in the archive.
h ' p% Ao- ?x - hAx . ! /+ N('1BMD08D - CROSS TABULATION WITH VARIABLE STACKING - REVISED JUNE 26, 1969'/40H HEALTH SCIENCES COMPUTING FACILITY,UCLA/14H PROBLEM CODE 7(2H. ),A6,/18H NO. OF VARIABLES 6(2H. ),I4,/14H NO. OF CASES 8(2H. ),I4,/24H NO. OF TRNGEN CARD(S) 3(2H. ),I4,/32H NO. OF VARIABLE FORMAT CARD(S) ,I2,//) + T(9H0VARIABLEI3,33H IS CROSS TABULATED WITH VARIABLEI3//) + Z(2H0(I2,1H)13X34H(EXTREME RIGHT VALUE IS ROW TOTAL)) + \(6H RANGE)+ ^(3H (I2,1H)I5,17I6)+ a(8H RANGE 18I6//) + c(7H0COLUMNI4,17I6) + f(8H TOTAL 18I6//) + i(13H0GRAND TOTAL=I6//) + k(3X,I5,9X,I6,10X,I6)+ o(19H0VALUES NOT ENTEREDI4) + t(11H CASE NO.5X,8HVARIABLEI3,5X,8HVARIABLEI3) + x(2A6,I3,I4,I3,I3,I2,I3,I2,34X,3I2) + z(A6,10I6) + {(18A4) + }(2I2,4I5) + (61H0(THE FOLLOWING COMPUTATIONS ARE BASED ON ALL DATA AS ENTERED/49H EVEN IF SOME ARE EXCLUDED FROM THE ABOVE TABLE).//25H CORRELATION COEFFICIENT F7.4,/2(6H MEAN(,I3,2H)=,F15.5,3X,3HSD(,I3,2H)=,F15.5,/),//) + (10H SELECTIONI4,1H-I2//)+ (1H0)+ (A6,I3,I2,20I3)+ (12I6) + (22H0NO ENTRY IN THE TABLE//) + #(45H0CONTROL CARDS INCORRECTLY ORDERED OR PUNCHED)+ ((23H CHI-SQUARE (OF TABLE) F15.5,/4H DF=I5) + ,(26H0CHI-SQUARE NOT COMPUTABLE) + 1(' NUMBER OF VARIABLES INCORRECTLY SPECIFIED') + 9(' TOTAL DATA INPUT CANNOT EXCEED 8000 BEFORE OR AFTER TRANSGENERATION') + ?(' NUMBER OF SELECTION CARDS INCORRECTLY SPECIFIED') + F(' NUMBER OF VARIABLES AFTER TRANSGENERATION CANNOT EXCEED 100') + K(' NUMBER OF CASES INCORRECTLY SPECIFIED') + W(' NUMBER OF VARIABLES TO BE CROSS TABULATED WITH BASE VARIABLE ON SELECT CARD',1X,I6,' IS GREATER THAN 20') + ^(' PROGRAM EXPECTED RANGES CARD INSTEAD READ THE FOLLOWING'/1X,A6) + d(' NUMBER OF TRANSGENERATION CARDS CANNOT BE NEGATIVE')+ l(' PROGRAM EXPECTED SELECT CARD INSTEAD READ THE FOLLOWING'/1X,A6) + o(' CHI-SQUARE IS NEGATIVE') + x(' PROGRAM EXPECTED PROBLM OR FINISH CARD INSTEAD READ THE FOLLOWING'/1X,A6) + (' THE MAXIMUM AND MINIMUM FOR VARIABLE',1X,I6,' APPEARS TO BE REVERSED, PROGRAM CANNOT CONTINUE') + (24H NUMBER OF REPLICATIONS=I5//) +
(41H VARIABLE MAXIMUM MINIMUM (AS SPECIFIED)) + (1H I6,2I8) + (7X,112A1)+ (1H023X71HNUMBER OF VARIABLE FORMAT CARDS INCORRECTLY SPECIFIED, ASSUMED TO BE 1.) + (10H0VARIABLE I3,4H OR I3,31H HAVE RANGE GREATER THAN LIMITS//) + #(10H0ERROR IN A6,6H CARD.) + )(1H05X,A6,24H IS CROSS TABULATED WITH6X,A6,3X,3HOR,) + *(1H A6) + -(1H A6,1X,18I6,//) @@ . $ D /-\ >-4
' " tB
/
0 1 :G 2 2 3 3 4 4 5 5 H @ 6 *3D /2F 07 + @ +3D /2F 07 + Y " ob
/ " b $ 2$ /+ C /X@ C -\ AS " ,b + ? " 1b + ? " 9b + ? " ?b + ? " Fb + ? " Wb
/ + ? " ^b + ? " db
/ + ? " lb + ? " xb 6 + i-\ <4 54 /"$ 2. 1"& . 1$ 5$ D 25d _"$ 1. 25d H 1. 2 D 7"$ 2. 75$ J"$ n. :G$ :G5$ L :G$ 7"& . 5f F $ 3$ 5g O 51f g O A 4$ o " b $ D 5 " 0b
0 1 :G 4 5 : Z 7@@h*1: 9 t@@ 8 $ . 7&$ D 8 : Z 9 $ . 8 D 9 $ .D 8 " xB
/ 9 Z 7 9J 9|3: 89 ~ 9 ,3D /2F 0+ N3: 89 y-\ ;]4 34 74
Q $ $D 5 " zB : Z 7 U3: 59
" b + (' VARIABLE FORMAT CARD(S)') " b : Z 7 U3: 59 + (1X,18A4) : Z : /X@ " UQ" ZB : Z 7 3: 19 : : Z 7" :G. : :G$ . D : : h F*3: 19 :3: :G9 ; D : Z 7 Dh1: <9 ) 44$ P4D 9-\ >4 44 1 15d 5" 25$ / : Z 7 " B ; 3: 29 1+ /"$ 2. 7"& . 7$ 5$ D 7 D 1 $ 3D 4+ E $ D < 23$ <+ / " B
/ < = : Z 7 3: =9 @ -3D /2F 0+ R+ J"$ . 1 D =@@ = $ D < </ =5d / < 9J D :I < 9| D :J"$
. =5d k :G$ < D * $ / :G. * D ) < D :K"$ . 44D W $ D >" =. >4d \+ " $ . < D > > D 6" 1. 64d ]+ $ > D 6 :G$ 6 D :N $ / :G. :N D :M 6 9J D :I 6 9| D :J 6 D :K :I/ :J D ? ?5$ p " xb < , /+ n " Kb < - / " b
/ + ?"$ . ?4d :I/ :J D ?" ?5d W"$ . ?4d y " b :K :K + P"$ D . :K D ? :K D :K ? D :K :I D ? :I D :I ? D :I :J D ? :J D :J ? D :J ) D ? :M D ) ? D :M * D ? :N D * ? D :N-\ ; " :M5d v" 35$ " #b :K(
P :K(
P " Nb :K :K " b :G " b "
b :K :I :J "
b :K :I :J " b @@ @ : Z 7 h.D @3: :H9 @5d $ " b + P " Tb :K " 35$ * " )b :K(
P + , " Zb "$ . 34D L@@ @ : Z 7 hc4d :: @ @ 7 / F / : Z : $ 2$ @. . 7 a H a3: :H9 3 @ 7 c Fc 73: :H9 . @ D :H@@ @ : Z 7 h4d I: @ @ 7 n Fn : Z : $ 2$ @. ( 2$ 7. a F a3: :H9 B @ 7 F 73: :H9 = @ D :H :H D @ $ . :H D A : Z 7 A DhU1: 9 O B D U B D V C D V C D W $ .D @ @ B FU: @ @ D FU` @ @ D@@ E : Z 7 : Z : h 7$c D )-\ AE4 ) D @ E E4$ U4D $ 2$ :. 7 a` @ F" E F ED E :3: :H9 ] 73: :H9 \ : Z :" . A D F : Z :"$ & 2$ . F. a5$ t : * FW+ u : ) FW :3: :H9 n@@ @ : Z :"$ & 2$ . F. a4$ : @ $ 2$ @. F ( 2$ :. F a F a :3: :H9 x @5d " UQ" Zb F / c + " UQ" Zb F / : Z : & 2$ . F a3: @9 F c :3: :H9 l $ $ :H & . F G " b : Z 7 3: G9 :H D G :H7 .$ (( D H G/ H5d " :H7 .$ ( D H H D I+ ' N @ 6+ k :H7 .$ ( & . F H"$ . H D I " \b :K : Z 7 ( m3: H9 ) " 35$ 4 " *b :K(
P: Z 7 ( n3: I9 0K + 9" ^b : Z 7 ( n3: I9 6 " ab : Z 7A ( 3: H9 ; " cb : :Z 7 ( 3: I9 @K " fb @ Z 61B H+ H1B N+ N"$ . :H"& . :H$ :D I" #b E IJ + P" (b ) ? H:@ 6@@ J@@ J@@ K@@ K@@ L: :MD : ):Z 7 h*` @ L :*` @ M LD J MD JA L D K L MD L M D K: :3: *9 U` :GB@ M J M D NE J MD N" ( M J M K "F )-\ A :J D n :J D /"$ . :J D ;$"$ . :J D ;% $ / :J. :I D :H $ / :J. :I D :H@@ :M@@ :L"$ 2. :H5d :w : Z ;% $ .hm Dhn3: :H9 :[ : Z ;% $ .h . Dh /3: :H9 :^ : Z ;& : Z ;& $ 2$ ;&. @@ a3: :H9 :c ;&3: :H9 :a :M D ;' ) Z ;'" :I.h*4D :x5d :m" :J ;'.*5$ :x: :M"$ . :M5d ;: :L :L ;' * F a :L ;' * F z $ . ;'/ ) :L D:.+ ;"$ D :M+ ; " :I ;'.*4D :}5d :m :J ;'/*5d :m" ;$ ;'.* D ;(" ;% ;'.* D ;( $ 2$ ;( ;(. : a: ;' ;'3: *9 :i : Z ;) : Z ;) & 2$ ;). $ aXD ; -\ @}4 ; 4 ;" @ a3: :H9 ; ;)3: :H9 ; : Z ;%@@hc3: :H9 ; : Z ;%@@h3: :H9 ; : Z ;% : Z ;' & 2$ . ;% a ;%.Dc & 2$ . ;% a.Dh3: :H9 ; ;%3: :H9 ;+ ; 4 Z ;" \ ;#+ :N ;" ;#-|p sxp;) : Z ;g ( ;e. X@ ?x " ;1 3: ;e9 ;++ ;2(I6) ;d4d ;]@@ ;g " ;:B ;h : Z ;h ;i (
;l1: 9 ;5 + ;<(A3,3X,7(I4,A6)) ;f3D ;h+ ;E " ;?b + ;D(36H0LABELS CARD NOT FOUND WHEN EXPECTED) -\ AS : Z ;h h;i D ;i ;i4$ ;J4D ;[" ;e. ;i4d ;U " ;Mb ;i ;h(
;l + ;T(18H0LABELS CARD INDEX,I7,18H INCORRECT. LABEL ,A6,9H IGNORED.) + ;Y ;i( ;e.
;h(
0;l : ;g" ;d. ;g5$ ;] ;h1: 9 ;E+ ;3+ ;a4 Z ;c \ ;c ;d,!p ,!p , p + ;* ;c ;c-|p x;fLAB |h;s <4$ <5d ;v $ D < </ <4D ;{ $ 3D <+ ;{ <X@ ;z "$ . <4D ;"$ . <4D < <X@ ; < D <+ <
" <b -\ AS+ <(25H ERROR ON TAPE ASSIGNMENT)+ <
4 \Z <,!p ,!p + ;t < " =sb : Z > " =mB
> > > > > > >! >! : Z >" >'1: 9 < > > 3D > 2F > 7 + < "` >+ > " =ob > > > > > > >! >! : Z >" >'1: 9 <% > D >" > $ :G" :G. F ># > $ :G D ># $ / :G. ># D >$ > $ :G" :G. F >$ $ )/ > 5d <H > & F9| $ > .9J/9| & > . 9J/ 9|$ > D9J $ )/ > 5d <P $ > .9J/9| > $D9J $ */ > 5d <P $ >!.9J/9| > $D9J $ */ > 4$ =i5d <P $ >!.9J/9| > $D9J+ <P"$ . > 5d <K"$ .D > + <Z"$ . > 5d =i"$ .D > "$ . > 5$ <Z+ =i"$ #.D > $ / > 5d =i > $ :G" :G. F >% >!$ :G" :G. F >% >!$ :G" :G. F >& >$ Z >&: >#"$ . > $ > 5$ =i6b > 0b 7 +<_4 <g4 <j4 <m4 <s4 <w4 <{4 =i4 <4 =4 =4 =4 =4 =$4 =34 =I > >&.* ># D*+ =g > >&$* ># D*+ =g >& *5D <p >#@@*+ =g >& * > , A, ># D*+ =g: >$ >& * >$.* ># D*+ =g: >$ >& * >$/* ># D*+ =g: >$ >& * >$$* ># D*+ =g" > >&.*4$ <n ># & F*+ =g: >$ >& * >$/*5$ =+ <n" >! >&.*4D ="$ . > 4$ =g" >! >&.*4D ="$ . > 4$ =g : Z >' >& */h>'4D =3: > 9 =+ =g ># > F*+ =g >& *5D =g >& $*XD =-\ AL4 >4 =5 =g ># > F*+ =g: >$ $ > /9| >$. *
>& (*
>"/(9| * .
9J/
9|$ . ># D*+ =g: >$: >% $ > /9| >%. *
>& (*
>"/(9| *
> .
09J/
09| . .9J"9|. $
$ . "
09|
>$.
0*$
.
># D0*+ =g: >$: >%: >% $ >!/9| >%. *
>& (*
>"/(9| *
> /
09|.
09J . > .@9J"@9|. 4 .9J"9|. V >$ $
$ . "
09|
>$.
0*$
. "
@9| >%.
X*$
>. ># DX*+ =g: >$: >%: >%: >& $ >!/9| >&. *
>& (*
>"/(9| *
> /
09|.
09J . > /@9| @9J. 4 >!.X9J"X9|. X > 8 .9J X >"9|. > X >$ > X >$ $
$ . "
09|
>$.
0*$
. "
@9| >%.
`*$
>. "X9| X > >% >.p*$ >. X > ># D`* >&3: >#9 <Z+ =k " >b "` > > 3: >9 <+ =o(A6,I3,I2,I3,9I6) + =s(2H I2,2I8,I10,I13,3I10,I5,7I6) + >(46H0CARD K TRANS ORIG. ORIG. VAR(J)/74H NO. VARIABLE CODE VAR(I) OR CONSTANT VAR(L) VAR(M) VAR(N)) + >(129H0ILLEGAL TRANSGENERATION CODE SPECIFIED ON THE CARD LISTED ABOVE. PROGRAM WILL PROCEED TO NEXT PROBLEM CARD (IF ANY) OR TERMINATE)+ >4 Z > \ > >,!p ,!p + < > >\ >,Ap -|p p>TRNGEN >, 4 O@ ?+ >/4 @@ ?O "$ D ? $ : INX |H>2+ >G
>M6@ ? J >M
>LOJ >OZ >M+ >G J >Oz >M+ ?
z@ + >G #p & >
3L>P+ >C7@>P /& 5f ><7 + >G@@ >P: >P L >P
PL>P+ >FR d. R>Pd$ 2N + >>: >P: kN
y1kN
y CB` x>Ox >PH?Z >N0B + >G d
:` ?+ >G+ >7x?4 }X? \ ?z @ ?{< @0< 0| + 1\ + ?#,>p?Z p?+ p @ h?F@ p?F@(?`@0?j@ x?M@ ?M@8?l@(?Z@ P?d@ P?e@ h?F@?+@ ?+@?F@?F{?Y[ (/< 0"` S<p X< 0 p 3@ @+ ?**| ?&-< @wx?(Z` ?+ ?Y! @w+ ?'< @ p 7 p + ?F,> ,> ,> &w p , ?A,& .< 7@p + ?? p , ?A" @ ?r.< p ` @ w,& ,& 5 ?1.< p d @: ." Q ,& p ,& >` 9 ?<.< 9 ?1@@ ,^ ,^ ,^ + ?Fd @ @ & 0b ." ." )B}5@ ?B,~ m< !< P\ ?v< @ p [ p l< 0@X + ?LZ p .< / p Q \ ?w+ ?O@@ ?w!< P\ ?v7@ ?y+ ?R < ?z \ ?x@@ ?y!< P\ ?vX X\ ?v @7@ ?xD<7@ ?yA< \ ?w < ?v[`x ?{, x ,^x ?z+ ? ?Q< \ ?v: ? \ ?w< @ p?r| @ < \ ?w@@ ?x+ ?V@@ ?w Q< \ ?v< @ p?r| @+ ?V7 @ @
\ ?w @ ?iX Q< \ ?v @ \ ?w+ ?V~x?i[`x ?{, x + ?qZ \ ?v@@ ?w@@ ?w< @ \ ?x+ ?V7 ?y ?xX\ ?@@ ?y@@ ?x+ ?XP?s ~0?{>x ! Z @
& @ U` eB + @@ )@ G
" + ?~
& @+ @46$ 1 ,> AU. @
p .4 6$ }x?p.
.4 ?w. ?vSEQIN}0@ @ @SEQOUT @ @ @ ?i
%5 Source level error at user's loc
` Z (X^ . > S.~ (3~ + @ ~ + @ Z . \x <x *<x .-> AXez+ @!" b + " @ b + Z . h + gg M?} @
& @" b + @,
?NO CORE AVAILABLE - CAN NOT PROCEED
x @&a.3@1 ,> AUO@ @d+ @+gR~@1 ,> AU@@ @d,> ,> @ 6 w+ @7" @e0B + @3!"A`X#p 5@ @0/#p !" X#p + @7\p + @7a.9'1 ,> AU,> ,> O@ @d+ @7,>
6 + _ 4` @@"` Q@ ,> < @f, ,^ ,> < @i,
,^ *b @=+ @J,> < @j, ,^ 7@ @d+ @E,> < @m,
,^ + @G,> < @o,
,^ Z 5" @J,> < @p,
,^ , 7@ @d,
,> < @r, ,^ , ,> < @u, ,^ ,> < @x,
,^ (@qd 1@ ,,
1@ #+ @Y0@ *+ @K,> < @y, ,^ + @K,^ ,^ ,^ ,~ (' Type G to Continue, X to Exit, T To trace.'/2H *,$) (A1) (1H 14A5/)(1H A5,1X,O6) PAUSESTOP h@d.p X `@g @a p p@iX `@k @b p @cp@np @dp@op p@qX `@s @[ X ~P@v @` p x {0@yC6Md 1 ,> AU, A,~ [&r 1 ,> AU, A,~ [&r 1 ,> AU, A@ ,~ C6Md 1 ,> AU, A` ,~ ,> e|P w+ A2ap p *| Aa|+ A p h" ab~ + A,^ ,~ gG@ 1 ,> AU7cp + A )@ / @( X@ A(B{4 AB ? B A "P" A B A @ ,~ B @ B A ""X+ A4B A +P @!0
A #p + A ,~ |A attempt to take SQRT of negative arg Kc@ p p + A/KcK , A/ @ ,~ KcJ , A/ @ ,~ KcI , A/ @ ,~ KcH4B A?5@ A25" A;+D @!0
A1U ,~ 4" AA,> $ D A?5` A8aB + A8L@ A?+ A8$ +" A<(BdB $ +" A<5b A7 ,^ ,~ , A06 A?+ A;"` / + A;| A? ,~ aB #` 0@ 3@ A@,~ ,~ M2| 1 ,> AU p + AGM3!d ` ,~ g&=` 1 ,> AU#p 7!p "` ,~ SNL{@1 ,> AU p Fp 4 AP p ,~ "p +" AQ,~ U ,~ KbN@ 1 ,> AU,
,~ AUY\ AWQ< X\ AW* + !$h X$h @@h *% " A_ Bh L " Bh M+ x eX2G iSH YC aS iSH ~A_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 xAniSH + %