PDP-10 Archive: 43,50466/bmd10s.sav from decuslib10-09

Trailing-Edge - PDP-10 Archives - decuslib10-09 - 43,50466/bmd10s.sav

There are no other files named bmd10s.sav in the archive.

h'B!D-Apx-BEx. !@/ $' D*-\A4
#-\Ch4& @*+@('1BMD10S - TRANSPOSITION OF LARGE MATRICES - REVISED ','SEPTEMBER 19, 1968'/41H HEALTH SCIENCES COMPUTING FACILITY, UCLA//)  "JB

,.:.0-.9-../. : Z/ C1:9G/ +M(2A6, 4I5, 2I3, 17I2, A3) D D.8&3D+2F+7+v'3D+2F+7+! "Vb*

, +t(///// 18H PROGRAM EXPECTS  , A6, 21H  CARD HERE.  INSTEAD 29H IT FINDS THE CARD BEGINNING , / 6X, 2A6 / 55H THIS CARD IS INCORRECTLY PUNCHED AND/OR OUT OF ORDER. 60H SEE BMD MANUAL, 2ND EDITION, FOR INSTRUCTIONS ON THE PROPER / 58H PREPARATION AND ARRANGEMENT OF CONTROL CARDS FOR  BMD10S. )    .8X@u+! ./5dx $ D./ *&.0 D%-\CX4.:4% @/ "3b  $3$-gO -1fgOA4$ "

b  $ D- $3$.gO .1fgOA4$ "

b  $ D.+(1H023X71HNUMBER OF VARIABLE FORMAT CARDS INCORRECTLY SPECIFIED, ASSUMED TO BE 1.)    $ D0 )3D/+ $ D0".:./5$k "b

,.:.0./ +.(///// 16H PROBLEM CODED  , A6, // 20H ENTERING MATRIX HAS I7, 9H  ROWS OF , I7, 35H  ELEMENTS EACH.  MATRIX IS READ IN 18H FROM LOGICAL TAPE , I4, 2H . )  *&.: D0".9.05$E "3b0/ +C(52H EITHER THE INPUT OR OUTPUT FORMAT CONTROLS TOO MANY 41H ROWS.  THE MAXIMUM VALUES ALLOWABLE ARE  , I4, 17H  FOR OUTPUT AND  , I4, 12H  FOR INPUT.  )   .8X@D+!-\>~4/4-41414$ 14d1"1.D/-\>~4.04.94.84.94$ -$D1"$../4Do6b00b7+Q4a4S "Ub././ +`(///// 32H THIS PROGRAM READS LOGICAL TAPE ,  I4, 15H.  LOGICAL TAPE ,  I4,  18H  SHOULD BE SAVED.  )    +n "cb./ +n(///// 32H THIS PROGRAM READS LOGICAL TAPE , I4,50H. OUTPUT IS PUNCHED. OTHER TAPES MAY BE SCRATCHED. )   ./X@o $	$- &. F- $	$. &. F.-\>~4.:4/42424$ $.2 D3 .0$2 D3 .0$/ D4 D D.8 : Z/ / Dh.03:.9~ "6B : Z/ -T1:	9  $	2$-+
 "8B :
 Z/ -T3:-9  ) D+@F+-\Ch4( @* -U &3D+2F+7+ -U D+@F+ -U D,@F,+S "b1 : Z/ -T3:-9 +%(18H MATRIX IS READ IN,I7,27H ROWS AT A TIME, ACCORDING ,30H TO THE FOLLOWING INPUT FORMAT,3X/3X,A1,A3,17A4/(3X,18A4))   "6B : Z/ .:1:	9'  $	2$.+0 "8B :
 Z/ .:3:.9-  .: &3D+2F+7+: .: D+@F+ .; D,@F,+S+8(A1,A3,17A4)   +:(18A4)    "$..4du"..34$54Df"$.. D4 "Cb : Z/ C3:.9@ +J(39H1THIS PROGRAM WRITES ON LOGICAL TAPES  , 29(I2,2H, ))   6b00b7+K4M4T "Nb +T(43H PUNCH OUTPUT ONLY. TAPES MAY BE SCRATCHED. ) +c "Vb.8 +_(15H LOGICAL TAPE  , I2, 29H  IS TO BE SAVED.  ALL OTHERS 18H CAN BE SCRATCHED.  )   +c(15H LOGICAL TAPES   29(I2,2H, ))   "eb. +r(// 11H A TOTAL OF , I3, 27H  TAPES WILL BE USED IN THE 60H TRANSPOSITION (NOT COUNTING THE DATA INPUT TAPE).  THEY ARE )     "_b : Z/ C3:.9t 6b00b7+x4z4 "b.0.:.9 : Z/ .:3:.9} +(//26H THE TRANSPOSED MATRIX HAS,I7,9H ROWS OF ,I7,42H ELEMENTS EACH. THE MATRIX IS PUNCHED OUT ,I7,17H ROWS AT A TIME, / 42H ACCORDING TO THE FOLLOWING OUTPUT FORMAT /3X,A1,A3,17A4/(3X,18A4))   +5 "b.0.:.8.9 : Z/ .:3:.9 +5(// 26H THE TRANSPOSED MATRIX HAS , I7, 9H  ROWS OF , I7, 59H  ELEMENTS EACH.  THE MATRIX IS WRITTEN OUT ON LOGICAL TAPE , I4, 2H . / 22H MATRIX IS WRITTEN OUT , I7, 17H  ROWS AT A TIME,, 42H ACCORDING TO THE FOLLOWING OUTPUT FORMAT /3X,A1,A3,17A4/(3X,18A4))  "$.. D5 5 D5-\>~424546464$ 5/65d>>6 4 D5 . C D7 4 C D7 : Z/ $hCXDC-\@!4C443:59A-\?r47454D48 : Z/ hC Dh<3:59I"$.64dZ : Z8 7 D< 8 D.0 7 D7 < D7 : Z/ $hCXDT-\@!4T443:59R-\?r47444<48 83:69M : Z/ $hCXD\-\@!4\443:69Z $.D6 6 $CXDa-\@!4a43 7 D< 8 D.0 6 C F< 6 2 F.0 7 D7-\?r47464<48+ "b

,.:.0./ "$../4Dt "Ub././  ./X@t .:$.0 D46b00b7+w4y4{ "Nb +} "Vb.8  "6B : Z/ -T1:	9~  $3$-+ $	 D- "6B : Z/ .:1:	9  $3D.+ $	$. &. F. "8B :
 Z/ .:3:.9 + $	$- &. F- "8B :
4Z/ -T3:-9+ $	 D."b-:+Z/ -T3:-96b00b7+4"4(9"b.0.:.94:4Z/ .:3:.9%:+/ "b.0.:.8.94:4Z/ .:3:.9, "0b+@(//?49HNO4EXTRATAPESARE:NEEDED(EXCEPTDDATAINPUTAND,57H OUTPUTTAPES)8BECAUSEMATRIX1ISSUFFICIENTLY4SMALLTO8BE/30HENTIRELY$CONTAINEDDIN.MEMORY.) .8X@A.0$-9D94&90D6@@9+:4Z/4$.9D:9.D9 ./X@K"-UQ"ZB:Z:K3:99L /3:69F9.:$.96D;04&;+D6@@94: Z/$.9D:.9.D96b00b7+Y4Z4d+".:Q"Zb:Z;;Z: K..04/Z7.0"4d] ;3:99\\+o4.8X@f9".:Q"ZbX:-Z;4;4Z: K..0 4/Z7D.0"4dh4;3:99g /3:69T6b00b7+r424s6.8X@t+2"$.34d5$D4+"Cb:Z/C1:9y 6b00b7+~443"Nb +0"Vb.84"eb.":b : Z/ C3:.9 6b00b7+4:.8.9 : Z/ .:3:.9  : Z/ hD Dh< $h<XD-\@!4441:9-\?r4.84%4<48 : Z/ $hCXD-\@!4443:29 2 $CXD-\@!443 2 2 F.0 8 D.0 . C D7-\?r47424D48-\?>47 .8X@ +2-\Ct+  +0BMD10S    p$@%PROBLM    FINISH    FORMAT    PCH  (    u0/ $ D/m /l >o D/n6b/l0b7+/4/34/34/4/4/4/"$ /l.>g5D/( /n4D/a /lX@/! "/&b : Z/n $$./l/g3:/m9/" +/((20A4)    @@/n6b/l0b7+/*4/-4/-4/-4//4/14/a /lX@/.+/a /lX@/0+/a /lX@/2+/a"/l /l.>g4D/?"$ /l.>g5D/? /n4D/? /lX@/: "/&b : Z/o $$./l/g3:/m9/; @@/n -S Z/n6b/l0b7+/B4/C4/Q"/m./n4$/F@@/n+/G /n5D/M /lX@/H "/&B : Z/o $$./l/g3:/m9/I :/n /n ($/n./l  /g FK+/]:/n $$/n./l /n  K F/g"/m./n4$/] /lX@/X "/&b : Z/o $$./l/g3:/m9/Y @@/n /n.-T -T/Z7 -T"4d/@ /l /l F>g /l /n F>o+/h4 Z/j \/k  /k,!p,!p+/ /j /k\ /l,Ap-|p~>v ? D? ?
4d>y>? ?&? D?	 ?	$? ?/ F?	+?4 Z? \?  ?,!p,!p,!p,!p,!p+>w ? ?\ ?
/ ,Ap,Ap-|pxh?-\/d4?C4?F $ D-T-\/d4?C4.8 : Z?H@@-T : Z?H $.-T D-S .:.D-T-\/d4?D4?F3:.99? ?G2D/+? ".:Q"Zb : Z?I K3:-T9? +?$ .8X@?  ".:Q"Zb : Z?I K3:-T9?!  ?H3:.89?@@-T : Z?H $.-T D-S .:.D-T-\/d4?D4?F3:.99?& ?G2D/+?3 ".:Q"Zb : Z?I K3:-T9?/ +?9 .8X@?5 ".:Q"Zb : Z?I K3:-T9?6 -\/d4?D4.8-\/d4?C4?F-\/d4?C4.8+?A4 Z?E \?E  ?F,!p+? ?E ?E\ ?F,Ap-|px?GPCH  zH?P $ D-T@@? : Z@ .? $XD?V-\/d4?z4?V $.? Dh@ h.0.D? ? Dh@3:?~9?S-\/d4?z4?~ : Z@ : Z@ h@ D-S h@ D-T .? $XD?d-\/d4?{4?d3:?~9?^ $ D-S-\/d4?{4?~ @3:.09?] : Z@ .? $XD?m-\/d4?z4?m3:?~9?j-\/d4?|4?~-\/d4?z4?~+?w4 Z?| \?}  ?},!p,!p, p,!p+?Q ?| ?}\ ?,Ap/ ,Ap-|p|p@ ./X@@ "-UQ"ZB : Z@, K3:@+9@  .0 D-T @+ D-T-\/d4@(4@+ : Z@, Z-S-\/d4@(4@+3:-T9@-\/d4@)4@+-\/d4@(4@++@%4 Z@) \@*  @*,!p,!p+@ @) @*\ @+/ ,Ap-|p A4O@Ao+A
4@@AoO"$ DAo $:INX|HA
A(6@Ao JA( 
A'*JA*ZA(+A" JA*zA(+Ak

z@+A" #p &>

3LA++A7@A+ /&5fA7 +A"@@ A+: A+ L A+

PLA++A!Rd.RA+d$2N+A:A+:kN

y1kN

y CB`xA*xA+HAkZA)0B+A"	d

:`Ao+A"+AxAo4}XAp \BU @BV<B]0<0|+1\+A~,>pAoZpAo+p@hB!@pB!@(B;@0BE@xB(@B(@8BG@(B5@PB?@PB@@hB!@B@ B@B!@B!&@B4[(/<0"`S<pX<0 p3@B^+B*|B-<BkwxBZ`Ap+B4!  @w+B<B_ p7 p+B!,>,>,> &w p,B,&.<7@p+B p,B"B_ BM.< p`B` w,&,&5 B

.< pdB`:." Q,& p,&>`9B.<9B

@@,^,^,^+B!d @@& 0b.".")B}5@B,~m<!<P\BQ<B_ p[pl<0@X+B'Zp.</ pQ \BR+B*@@BR!<P\BQ7@BT+B- <BU \BS@@BT!<P\BQXX\BQ Ba7@BSD<7@BTA< \BR <BQ[`x BV,x,^x BU+Ap ApQ< \BQ:Ap  \BR<Ba pBM|Bb < \BR@@BS+B1@@BR Q< \BQ<Ba pBM|Bb+B17Bd Be \BR @BDXQ< \BQ Bf \BR+B1~xBD[`x BV,x+BLZ \BQ@@BR@@BR<B_ \BS+B17BT BSX\Ap@@BT@@BS+B3PBN~0BV>x! Z @
&BfU`eB+B\@)@G 
"+BY
&Bj+C6$1,>Cv.@

p.46$)(BK.

.4BR.BQSEQIN}0Bc@BcSEQOUT@Bd@BD
%5 Source level error at user's loc	
	`Z(X^. >S.~(3~+Bo	~+B{Z. \x <x*<x .->Cyez+Bv!"	b+  "Bx	b+Z. h+ggM?} Bz
&B}	b+Bk,
?NO CORE AVAILABLE - CAN NOT PROCEED
x Ca.3@1,>CvO@C?+CgR~@1,>Cv@@C?,>,>@6 w+C"C@0B+C!"A`X#p5@C/#p!"X#p+C\p+Ca.9'1,>Cv,>,>O@C?+C,>
6+ _4`C"`Q@,> <CA,,^,> <CD,
,^*bC+C%,> <CE,,^7@C?+C ,> <CH,
,^+C",> <CJ,
,^Z5"C%,> <CK,
,^,7@C?,

,> <CM,,^,,> <CP,,^,> <CS,
,^(@qd1@,,

1@#+C40@*+C&,> <CT,,^+C&,^,^,^,~(' Type G to Continue, X to Exit, T To trace.'/2H *,$)(A1)(1H 14A5/)(1H A5,1X,O6)PAUSESTOP hC?.pX`CBC<p pCDX`CFC=p C>pCIp C?pCJp pCLX`CNC6X~PCQC;p xz@CTC6Md 1,>Cv,C`,~[&r1,>Cv,C`,~[&r1,>Cv,C`@,~C6Md1,>Cv,C``,~,>e|Pw+Cb2ap p*|Cba|+Cf ph" ab~+Cb,^,~g:=@1,>Cvp+Cjg:9d5`Cl4BCo/"ab+Co2@Cp;@4 Col ,~?[> 1,>Cv p&p ,~KbN@1,>Cv,

,~CwY\CxQ<X\Cy*+!$hX$h@@h*% "D BhL " BhM+xeX2GiSHYC aSiSH~DINXGYC GSHiSHaSaSI'IR
IR
 IR
0IR
@IR
PIR
`IR
p[R
[R
[R
 M?L@INXINXINXINXINXI2I2 I20I2@GxDiSH+!