Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-05 - decus/20-0137/bmd/bmd10s.exe
There is 1 other file named bmd10s.exe in the archive. Click here to see a list.
?p0@0 
 ?hX+?x " 
 
<++K2	`PE
	?P+K}2	?H(PCH  FORMAT    FINISH    PROBLM    (    ('1BMD10S - TRANSPOSITION OF LARGE MATRICES - REVISED ','SEPTEMBER 19, 1968'/41H HEALTH SCIENCES COMPUTING FACILITY, UCLA//)(2A6,4I5,2I3,17I2,A3)(/////18H PROGRAM EXPECTS  ,A6,21H  CARD HERE.  INSTEAD29H 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.)(1H023X71HNUMBER OF VARIABLE FORMAT CARDS INCORRECTLY SPECIFIED, ASSUMED TO BE 1.)(/////16H PROBLEM CODED  ,A6,//20H ENTERING MATRIX HASI7,9H  ROWS OF,I7,35H  ELEMENTS EACH.  MATRIX IS READ IN18H FROM LOGICAL TAPE,I4,2H .)(52H EITHER THE INPUT OR OUTPUT FORMAT CONTROLS TOO MANY41H ROWS.  THE MAXIMUM VALUES ALLOWABLE ARE ,I4,17H  FOR OUTPUT AND ,I4,12H  FOR INPUT.)(/////32H THIS PROGRAM READS LOGICAL TAPE,I4,15H.  LOGICAL TAPE,I4,18H  SHOULD BE SAVED.)(/////32H THIS PROGRAM READS LOGICAL TAPE,I4,50H. OUTPUT IS PUNCHED. OTHER TAPES MAY BE SCRATCHED.)(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))(A1,A3,17A4)(18A4)(39H1THIS PROGRAM WRITES ON LOGICAL TAPES  ,29(I2,2H, ))(43H PUNCH OUTPUT ONLY. TAPES MAY BE SCRATCHED.)(15H LOGICAL TAPE  ,I2,29H  IS TO BE SAVED.  ALL OTHERS18H CAN BE SCRATCHED.)(15H LOGICAL TAPES 29(I2,2H, ))(//11H A TOTAL OF,I3,27H  TAPES WILL BE USED IN THE60H TRANSPOSITION (NOT COUNTING THE DATA INPUT TAPE).  THEY ARE)(//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))(//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))(//49H NO EXTRA TAPES ARE NEEDED (EXCEPT DATA INPUT AND,57H OUTPUT TAPES) BECAUSE MATRIX IS SUFFICIENTLY SMALL TO BE/30H ENTIRELY CONTAINED IN MEMORY.)~hhpBMD10S    + -<Cr $' D)	 </f,Cr),D] D) </g, </j,
 +_D)ZD)0 )0 </p,
:)0; )++ </q,
 )& D()!3D)2F)7++!3D)2F)7+// </s, </v,
 </x,+//6`(++# $ D( )	&( (2d  D)0 </{,, )20d0d++*++, </~,, $ D)2 )0d0d++/++1 <0,, $ D) $ D)" (y3D)++5 $ D)" (3d)0+,o <0, <0,
 )	&( D)2$(++> <0
, <0
 <0,+// </c,B7`)
++;")%.D)0 </`,B )$D)
 $3D(++M6b)"0b++H++F4+J4+H <0, <0,
++L <0, <0,
 <0,"$	$)2.$ D)2.$	$).$,D) </],BZ$.) D),($)	 D) ($)0 D)
:)0; )++], $	2$)2++i <0", &	/)2 $
 F) D)0 )0 <0%,
:)0; )++f, )$ &)!),D] D) '9 &3D)!2F)!7++s '9 &)! ': &)5++ <0&, <0),
")2 $ F) D)0 )0 <0+,
:)0; )++w, <0,, +_D)ZD)0 )0 <0/,
:)0; )++}, $	2$)+,	 <01, &	/) $
 F) D)0 )0 <04,
:)0; )+,, ( &3D)!2F)!7+, ( &)! ( &)5++ $2$(+-x"(.)4$.94D.o"$.( D)/ <05,"( $ F) D)0 )0 <08,
:)0; )+,,6b)"0b+,+,4,4,  <0:,,+," <0=, <0@,
 <0A, <0D,
 <0F,"( $ F). D)0 )0 <0I,
:)0; ).+,',6b)"0b+,-+,,4,-4,5 <0J, <0M,
") $ F)% D)0 )0 <0P,
:)0; )%+,1,+,= <0Q, <0T,
") $ F)$ D)0 )0 <0W,
:)0; )$+,9,"$.( D(~ D)1 </Z,B (~2d)+,C"$.D) )/ D)1 ( )% D) )/ )% D)
")1 $ F)# D)0 $)% D+ </X,CQ:)0; )#+,H </V,C"(~ $ )% H).$8&,N $2$(}+,` &/(} $ F)  D)/ ) D) ) D( )
 D) ) D)
"(~ $ F)  D)0 $)% D+ </T,CQ:)0; ) +,Z </R,C:)/; ) +,T") $ F) D)0 $)% D+ </P,CQ:)0; )+,b $.d) $)% D+ </O,CQ ) D) ) D( ) )% F) )	 F( )
 F) </L,C+/- <0Y, <0\,
 $3D(+,v <0_, <0b,
6<0d,+($(4D)z4,| <0f,,+,~ <0i, <0l,
 <0n, +_D(zZD)0 )0 <0q,
:)0; (z+-, )20d+- $	 D)2 <0r, +_D)6ZD)0 )0 <0u,
:)0; )6+-	, )1D+-!$$	.$ D) <0w,").&	 $
 F)4 D)0 )0 <0z,
:)0; )4+-,+-" $	$)2.$ D)2 <0{,")2.&	 $
 F)4 D)0 )0 <0~,
:)0; )4+-,+- $	 D) <1, <1,
")2 $ F)3 D)0 )0 <1,
:)0; )3+-&,6b)"0b+-,+-+4-,4-4 <1, <1	,
") $ F)3 D)0 )0 <1,
:)0;<)3+-0,+-< <1
") $ F)2 D)0 )0 <1,
:)0;D)2+-8, <1,, <1,.($),D)")
)-/,.
)6 
)6 L) J). ). <1,
:
).;#)+-I,.$8&-C($()D)#())-6b)"0b+-X+-V4-X4-e <1,"*/
)-.
)6 )6 J) H({"
)
({&
(/* ({ J( H). ). <1!,
 (.h).; (+-_:({; )+-\,+-r <1#,"*/
)-.
)6 )6 J(~ H({"
)
({&
(/* ({ J(} H). ). <1&,
 (.h).; (}+-m:({; (~+-i,.$8&-R6b)"0b+-v+-u4+4-v <1',++ $2$)+.9 $ D)/ <1*, +	_D(|ZD)0 )0 <1-,
:)0; (|+-},6b)"0b+.+.4.4. <1.,,+. <11, <14,
 <16, <19,
 <1:,"( $ F(| D)0 )0 <1=,
:)0; (|+.
,6b)"0b+.+.4.4. <1?, <1B,
") $ F) D)0 )0 <1D,
:)0; )+.,+." <1F, <1I,
") $ F) D)0 )0 <1L,
:)0; )+., )' D) </K,CQ ( D) )0 D) &/) $ F) D)0 ) F) ) F(&$ .$ D({ )% F) </I,CQ </G,C:)0; )+.) ) D)
 ) D) ) D( </E,CQ )	 D( </C,C )
 D)+/- $.) D( <1M,"( $ F)
:)0;)6b)"0b+.D+.B4.D4.F <1R,,+.H <1U, <1X,
 <1Y, <1\,
 <1^,"( $ F)
 D)0 )0 <1a,
:)0; )
+.M,6b)"0b+.S+.R4.S4.[ <1b, <1e,
") $ F)
 D)0 )0 <1h,
:)0; )
+.W,+.c <1i, <1l,
") $ F) D)0 )0 <1o,
:)0; )+._,") $ F) D)0 $)% D+ </A,CQ:)0; )+.e ) $)% D+ </@,CQ ) )	 F( ( )% D) </=,C+/- <1q,"( $ F) D)0 )0 <1t,
:)0; )+.r,6b)"0b+.y+.w4.y4.{ <1u,,+.} <1x, <1{,
 <1}, <2,
 <2,"( $ F) D)0 )0 <2,
:)0; )+/,6b)"0b+/+/4/4/ <2, <2	,
") $ F) D)0 )0 <2,
:)0; )+/
,+/,<2
") $ F) D)0 )0 <2,
:)0; )+/,"& $ F) D)0 )& F) $) D+ </<,CQ:)0; )+/ </9,C &/) $ F) D)0 $)% D+ </8,CQ:)0; )+/" ) $)% D+ </6,CQ ) )	 F( ) D( ( )% D) </4,C </3,B) <2,++ </2,D
 </2,
x)`)))&)p+)p+)
+))p()`)+))p()(((+X)0))
)%+x+
X)C0)!0)5$($($)$($)2$)$($($)%((yX)F()0)!0)5`(X)7
X)bX)bX)j0)5$($($(X)x$)$)0`(X*	$($(X*
$(`(X*&('9X*'('9X*
$)
('9X*&((X*'((X*($)%X*.X*3$(X*?$(X*;$)%X*J$($($(((X*^$($($($(((X)j0)5$($($(X*	$($(`(X*.X*3$(X*&('9X*&((X*'((X*'('9X*
$)('9X*J$($($(((X*^$($($($(((X*v`(X('9Z( /X(Z( /X((Z( /`(X*($)%X*.X*3$(X*?$(X*;$)%X*J$($($(((X*^$($($($(((X*($)%X*.X*3$(X*?$(X*;$)%X*J$($($(((X*^$($($($(((X*($)%X*.X*3$(X*?$(X*;$)%X*J$($($(((X*^$($($($(((`((20A4)E2}:7 \A% p @A# p @2& $ DA# 2& 2 D26bA#0b+A0+A-4AE4AE4A04A04A04A0 2& 20D+A;7@2+Ar <Av,"A# $ F2) D2* $$2*.2& <Ay,
:2*; 2)+A6,@d26bA#0b+A@+A=4A@4A@4A@4AB4AC4Ar <A{,+Ar <A},+Ar <B,+Ar 2& 23DA#+AR 2& 20D+AQ7@2+AR <B,"A# $ F2) D2' $$2'.2& <B,
:2'; 2)+AM,@d2 '8/'8&'9/& '86bA#0b+AW+AV4AW4Ae A#2h2+AZ@h2+A[6@2+Ab <B,"
A# ( J2( H2' ($2'.2& <B
,
:2'; 2(+A^,:2$(.2& 
 2" J/+Aq:2$(.2& 
/ J 2" 23(A#+Aq <B,"
A# ( J2' H2' ($2'.2& <B,
:2'; 2'+Al,@h2.'98&AT 2& A# F2 2 F2 A%,~X2&A$(2"`2&`2&`2&X2&A$(2"X2&A$( 2"X2&A$( 2"I'4 p @B p BB p BB p BB p BB @B4bB"$.DB B&B DB"$B.B DB B Ap B Ap,~PCH  _W  \B' p @B% <Bm,A& $ D'9 <Bk,A&"( $ FB% DB&@d'8"( $ FB$ DB& $.'8 D'8 (.D'8 <Bj,A&:B&; B$+B2 (y2DB!+B@ <Bn,"'8 $ FB$ DB! B! <Bq,
:B!; B$+B<,+BF <Bs,"'8 $ FB# DB! B! <Bv,
:B!; B#+BC,:B&; B%+B0@d'8"( $ FB# DB& $.'8 D'8 (.D'8 <Bh,A&:B&; B#+BJ (y2DB!+BX <Bw,"'8 $ FB" DB! B! <Bz,
:B!; B"+BT,+B^ <B|,"'8 $ FB" DB! B! <B,
:B!; B"+B[, <Bg,A& <Be,A& <Bd,A& B' B% Ap,~pB((pB(B%pB((pB'B%pB'B%pB((pB(B%X(Z(/X((Z(/X(Z(/X((Z(/gR
:` \C p @C p @C #p BC p BC $ D'9@dC"C $ FC
 DC
.C $ DC <CJ,A& C
 &.C FC (.fC FC
:C
; C
+C  <CI,A&"( $ FC
 DC
"C $ FC	 DC
 C F'8 C
 F'8.C $ DC <CG,A&:C
; C	+C, $ D'8 <CF,A&:C
; C
+C*"C $ FC	 DC
.C $ DC <CD,A&:C
; C	+C8 <CC,A& <CA,A& C C Ap C Ap,~pCCpCCpCCpCCpCCpCCpCCiJv|Z \CN p @CL p @CN <Cm,"CN $ FCM DCM CM <Cp,
:CM; CM+CW, ( D'9 CN D'8 <Ck,A&"'9 $ FCL DCM D'8 <Cj,A&:CM; CL+C_ <Ch,A& <Cg,A& CN CL Ap,~pCPCLpCPCLpCOCLpCPCLX('9Z(/kN
y1,~	`Z(X^. >X.~(3~+Cw	~+DZ. \x <x*<x .ez+C~!"	b+  "C	b+Z`.Z. h+ggM?}
&D	b+Cr,
?NO CORE AVAILABLE - CAN NOT PROCEED
a.3@1,>DgO@DG+D@6 w+D"DG0B+D!"A`X#p5@D/#p!"X#p+D\p+Da.9'1,>Dg,>,>O@DG+D,>
6+ _4`D""`Q@,> <DH,,^,> <DK,
,^*bD+D-,> <DM,,^7@DG+D(,> <DP,
,^+D*,> <DQ,
,^Z5"D-,> <DS,
,^,7@DG,
,> <DT,,^,,> <DW,,^,> <DZ,
,^(@qd1@,,
1@#+D;0@*+D-,> <D\,,^+D-,^,^,^,~(' Type G to Continue, X to Exit, T To trace.'/2H *,$)(A1)(1H 14A5/)(1H A5,1X,O6)PAUSESTOP .pXDCp XDDp DFp DFp XD=X~DCp xg:9d@4$Da`fmD+De ADf,~$`fmD+De"KDf,~",~`DgY\DiQ<X\Di*+6Dj6`DjS	YVBG9DiG9Di
GJDgGK/KDg9jVDe9jVDa9jUDe	0D]YX<:D

Y]@DG
Y?D
\!D{-^D{-XD{-OD({-ND;{-ND-{-MD*{-MD"VBSo&BTE)|D	\6.AwBP@VKV4PbXlVkBI
YPbKYYYh[|ggMA
JTUR/}F
/|N	@\:T(q5vX_<F

zR(TsT	`u6
(J"D
&*
 R	WJ
>
_Bb
_2v	^,6RW	`
K^
2b
2RYmtL(bIzCr)	GCr[Cr	qGCqZzRCrZzR Cq
aC`3CX[CdoCTCmCV+CW?CpSCk
_C_
sC_	qGCN/8#CN&&'9	CM0(P4CMP5CL^\Qf(0KCNbe'8go'9
AA'8CCLQh04CCC CJ+CI?C*SC*
_C,
sC,	qGC(( )C
C
]#)C0(CP4C
P5C
^\Qf(P5C	P6C	0KC\
bnCbe'8&&)Cgo'9
UToC
AA'8bnCbnzsCBXBBUB^BC'Bv
uBF;BJOBJcBhwBwBSBT3BzB|3BZGB[[BoBgBeBd3B=GBD[BUoB\Ba+B+?BmSBk
_B/
sB0	qGB'(&&'9	B&B&@B%P5B$^\Qf(P5B$P6B#P6B#P7B"P7B"0KB'
B!be'8$MB!g[(go'9rWf`(y'(
AA'8!B)!vPB)5BGB[B	qGBlBmP?BmBeBnBfB
aq8Baq8~@BA$BAT
aAE'AV
uAG;BcA^
BAl3AlBARzAAr3A9GAO[A`oAo!AW5AYAuIAZ+A)]A[?A-qAbSAv
_A6
sA6	qGA$WUm]A#zaA#2*&&'9	2*0P42)P52)P52(P62(P62'0KA%
2'be'8b-D,2&rWf`'9&4A2
AA'8xU2WUkc2
2dP(A&2dP(vPA&(R+h04+)*.V},=
-E
E-eu.Fss+/97,;,Z13k-}o1XG3/aA+5,o=,"3*;W*J
	*'q,3A*(
>_,,b O-0tS11?.L!/
.9.y&/0-0tg14S.M!2.o8A,A
1e&?/'-n/'0?W0@
.W&S2$q%+50?k0A0d&G1us.71h&{/.N,c+Yzg0IS0l'-I{.,.-'K/"3.Y,w0z{,,?0n'+-I{/1Ds1o'/8-#-'.).r3+y+@}a-"?/j30&,9s--71!;/I1tG+zU-,/q1/.S+30)0W--K1#O/G.w{+H!+Y[+gzi-4/qE//?+3++v//Zs0z--ic/E'1u/qY//{1+Jo+xA,Nz}-<S/p3?+wC,H0{-s-iw/C;1x{E*+~!-y{.g/q3S0+W,H-2-l1MO1{{Y+L,{%.{/s8?0,k/X/-2s-m.=c1}+,{9.I./ /v8S+|/VC0~31&3.=w2?,(/-{M. #/x8g+},NW13-u1P2S,3{a. 7/{8{0/,Sk13/1'3.B/, VU,5
_,;{u." K+*9,	,T-%3C1*G1R3/,Vi,-
s-a.D/~9#01',Y-&3W-|[1U2	qG)7(P])68)6P?)5P])4P^)4P^)3P)3s^H)2P)2,')1P`)1&&'9	)0
S?)#PJ)")m)!PK) PK) 
7C)0PL)J~)(^yyB(8b),)0(,A9)S&2)W=) @[)P4))b))P5)^\Qf(P5)P6)P6)Q)P7)Q)P7)Q)P8)Q)Q)Q)V#u)be'8\R')$M)g[(Q)Q)D~)Q)Tm)Q)
Q)
Q)Q)+E3)
&'~)
M)	go'9rWf`(ySOcu)	Pp)Pq)
UTo)Pq)'(b-Bz(Pr(Pr(~+LBz(~\F(}Ps(}Ps(|Pt(|({
AA'8C({P\(zRM>0ORM>	 0(R@p+\B:/\>X\>5'\7N+\2g'r'I(\)8*\)7\	\	)\+,\6.\.,[rO.O[mNO[mO[m	O[l|[l{&O[l+O[kO[kO[j]O[jRO[i%r%H([Z[X%[Qgr%0[Ms/[M"-[M	+[L,[FG[@v*r#eOD^w'dw]!+{0