Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-05 - decus/20-0137/bmd/bmd09s.exe
There is 1 other file named bmd09s.exe in the archive. Click here to see a list.
?p0 0 0`?hX?x " 
 
<+++2	` "Y%x*/2%p(TRNGEN    CARDS     ,         PUNCH      PRINT    BCD  FINISH       BCD     TAPE     CRD  YES  PROBLM    BINARY    CARDS,    BIN  (39H1BMD09S - TRANSGENERATION - VERSION OF 14HMARCH 21, 1966/41H HEALTH SCIENCES COMPUTING FACILITY, UCLA//)(2A6,I6,I3,I4,2I3,A3,I2,3A3,I2,17X,4I2)(1H 18X,12HPROBLEM NO. A6/22H0THIS PROBLEM CONTAINSI6,29H CASES.  INITIALLY THERE ARE I3,34H VARIABLES, AFTER TRANSGENERATION-I3,11H VARIABLES./1H I3,33H TRANSGENERATIONS ARE TO BE MADE.)(48H0AN IMPROPER INPUT OR OUTPUT TAPE WAS SPECIFIED.)(49H0NO METHOD OF INPUT OR OUTPUT HAS BEEN SPECIFIED.)(82H0AN IMPROPER NUMBER OF FORMAT CARDS ARE CALLED FOR SOME INPUT OR OUTPUT OPERATION.)(47H0CONTROL CARDS MISPUNCHED OR CARDS OUT OF ORDER)(16H0A PROGRAM ERROR)(17H0INPUT DATA FROM 2A6,9H ON TAPE I2)(18A4)(21H THE INPUT FORMAT IS-/(1H ,18A4))(17H0DATA OUTPUT IS- 3(2A6,1X))(16H OUTPUT TAPE IS 2A6,3HNO.I3)(21H0THE PRINT FORMAT IS-)(1H ,18A4)(35H0THE PUNCHED CARD OUTPUT FORMAT IS-)(31H0THE BCD OUTPUT TAPE FORMAT IS-)(1H06X21H TRANSGENERATOR CARDS/5H0CARD4X3HNEW5X5HTRANS4X20HORIG.   ORIG. VAR(B)10X,17HTYPE 40 CONSTANTS/45H  NO. VARIABLE   CODE    VAR(A)   OR CONSTANT)(A6,I3,I2,I3,F6.0,5X,I1,7F6.0)(1H ,I3,I8,2I9,F15.5,5X5F14.5/50X,2F14.5)(112H0THE FOLLOWING TRANSGENERATION CARD HAS ILLEGAL CODE NUMBER OR NUMBER OF TYPE-40 CONSTANTS.  IT WILL BE SKIPPED.)(1H ,I3,I8,2I9,F15.5)(1H0)(65H0MORE THAN 50 TYPE-40 TRANSGENERATIONS.  PROGRAM CANNOT CONTINUE.)(25H0TRANSGENERATION CARD NO.I4,17H CHANGES VARIABLEI4,39H BEFORE THAT VARIABLE IS USED IN A TYPEI3/44H TRANSGENERATION ON TRANSGENERATION CARD NO.I4,12H.  THIS TYPEI3,37H TRANSGENERATION WILL BECOME INVALID.)(9H CASE NO.I6)(62H1SAMPLE LISTING OF VARIABLES BEFORE AND AFTER TRANSGENERATION.//13H VARIABLE NO.7X,17H   CASE  1 BEFORE4X,16H   CASE  1 AFTER12X,6H  CASEI6,7H BEFORE4X,4HCASEI6,6H AFTER/23X,15HTRANSGENERATION5X,15HTRANSGENERATION14X,15HTRANSGENERATION5X,15HTRANSGENERATION/)(1H I8,F26.6,F20.6,F30.6,F21.6)HBMD09S    + -<F $ DA $ D <,F <, <,
3DD2FD7+<3D2F
+8 <#,, .} HB <&, <),
 <,, "D B
 "H B "n BS7`+87`+87`B+87$+85d. "I B " BS $13$B+8 ${h2$+E+8 </,,+D <2,,+D <5,,+D <8,,+D <;,,+D $3D+? <>, <@,Z
1BB+B1BD+D A1d+D <C, <,` !2D
+L=! $ D "a BX "J BZ+] !2Dz+T "r BX "8 B ". B 6@ +6+Y !2DB+4  "a BX "S BZ "B B
 0D0$+2 <E, <H,
ZX1Ba+a1Br+r <,: $	$d  "@ B "& B  <K,"  $ F	 D  <N,
:; 	+h, <O,"  $ F D  <R,
:; +o, $ DW@d Dy $ DT 2D+~ <,:@7"8 $.DW $ D $	$D "T B+ "] B y2D+
 <,:+W(=5(W(6($.DW$ Dy $	$D "~6BC6`A+  2DB+% <,: W( 5 W(6 $ DT $	$D5 "j B~ 0D1D+20D1D+20$+2+) "x B~"$.DW .y4$:4D4+* <, <T,"W $ F D ( <W,
:; +-, <,s6bT0b+6+4464649 <X, W( <[,
7$+:4DI <^,, <a," $ F D  <d,
:; +?, <e," $ F D  <h,
:; +E,7$y+:4DY <j,, <m," $ F D  <p,
:; +O, <q," $ F D  <t,
:; +U,6bT0b+\+Z4\4k4k <v,, <y,"5 $ F D  <|,
:; +a, <},"5 $ F D  <,
:; +g,@dY DZS1Bn+n1B+ <,," $ F D <, <,
 _DZD~ ~ <
,
:~;5+u,U3D2F+8C ($. 
 J 
.$8&
, C F,<
"C $ H D $$. <,
:;++,+&  <,
l<,,&F%,
:;+r+<(,, 1d+- <+,,+<7$Y+:4D "m B  D &$  D5D4 & F" $ F
:;+S <2," $ F
 D ( <5,
:; 
+C,ZZ1BJ+J1BS+S1BL+L "L BZ "i B <6," $ F D ( <8,
:;4+O,"Y$7D//# D7 7 H 
 ! .
,", L ! 7 ( 
 .
:/,",L:;Z1Bi+i1Bm+m $ D ". B  "B B
l<:,:<<,"Y $ D  # D7h H	 
	H" $ F D5"Y $ # H7 
5 
(h3L 72*+ 
(1L	+ <?, <B,
.$8&:5; + "{ B ": B? "K B# "7 BS"$. DE &. F4$85d $ D " B+ E D &$  D5D & F" $ F D"&/B.  ($@l Q@n R ($
 S (
 /.$8&Z 1B&+&1B.+. <E," $ F D ( <H,
:; +),+5 <J," $ F6 D ( <L,
:; 6+1,ZS1B7+71B@+@Z?1B:+:1BE+E" $ ($ 
(

0/
 Q.$8&; "E B?+E" $ ($ 
(

0/
 S.$8&AZ1BH+H1BI+I <
,LZ#1BK+K1BQ+Q"B $ ($ 
(

0/
 R.$8&L "Q B#Z1BT+T1B]+] <M, <P,
 <R,"B $ FX D~ ~( <U,
:~; X+Y,ZC1B_+_1Bf+f <V,"A $ FW D~ ~( <Y,
:~; W+b,Z~1Bj+j1Bq+q1Bx+x <[,"B $ FV D~ ~( <^,
:~; V+m,+x <_,"B $ F# D~ ~( <a,
:~; #+t,Z1B{+{1B+:; +".d5d "@ BS " B  F+ <c, <f,
"B $ <h, ($ 
(
 <k,
.$8&+ <,
xx	pApx5xxx xX`00>$$$}$A$(!$((y($$ $$$5XUXd0>$$$B$`XwX|X	XX```AX00$X(EX(EX06X0506$X#X(ZX&(ZX'X(X&(X+X(zX&(zX/X>0U$h$
XF
XR$$h$R$$h$0/XFZ0/h0/``X\$5$(h$0/Xr$$X(22H0THE VALUE OF VARIABLEI4,8H IN CASEI5)(26H0THE VALUE OF THE CONSTANT)(54H VIOLATED THE RESTRICTIONS FOR TRANSGENERATION OF TYPEI3,1H./39H THE PROGRAM CONTINUED LEAVING VARIABLEI4,25H UNCHANGED FOR THIS CASE.)Fo 9~j 9~jiJ
l/,",L) 
/,",L+0H	1H	+f(
/,",L'6b&0b+~+g4~44444404345474:4<4>4@4C4E4G4J4L4N4P4R4V4Y4\4^444444444444444o44o47$++5d@d)+ <, L @)+7$++5d!$ D)+!$+ DH <, L @ <, L @)+7d++ <,![ @)+ <,!= @)+7$++4D!$3d++ <, L @H <,N @)+ J D)+d D.$ + F, .(!$, D(4&5f$7$(+4D <, L @H <,N @)+7$(+5d) <, L @H <,N @)+ <, L @H <,N @ <, L @I <,N @)+7D++!$+ D)+ +0 D)+ +0 D)+7$++4D <,  @)+ +' D)+ +' D)+ +' D)+7D'+~ +' D)+ +2$0++ +2$'++7d++ <,!b @)+ +0 D)+ +0 D)+ <," @)+ <
, 1 @)+7d++ <
, _ @)+7d0+| <	, _ @)+ + D)+ 0 D)+:,  F/"/ $ D* *$
,.
* 
(
2J++m!*#
7 +"j J' $$,.*!&#7 
"f F+"'2D++u:*8(b+6D++!$#7 +"d D'!& F+"'2F++"$.& D)6b)0b+z+x4^4^4z4z ' D)+ <",,+ . D& <%, <(,
 <*, <-,
+ *( ) */:0; -+Y G,~p0+p+'x+x+x+x+p+0x,xIx(xHx,xHx,xHx+xHx+x+x+xHx+xHxGX5X1$&$(X9$&$*(1H023X71HNUMBER OF VARIABLE FORMAT CARDS INCORRECTLY SPECIFIED, ASSUMED TO BE 1.)mu \8 p @/0`0`+=+@ <B,, $ D/ 8 / Ap,~X0kN
y1,~	`Z(X^. >X.~(3~+K	~+VZ. \x <x*<x .ez+R!"	b+  "S	b+Z`.Z. h+ggM?}
&X	b+F,
?NO CORE AVAILABLE - CAN NOT PROCEED
a.3@1,>"6O@ +agR~@1,>"6@@ ,>,>@6 w+n" 0B+i!"A`X#p5@f/#p!"X#p+n\p+na.9'1,>"6,>,>O@ +n,>
6+ _4`v"`Q@,> < ,,^,> < ,
,^*bs+ ,> < !,,^7@ +|,> < $,
,^+~,> < %,
,^Z5" ,> < ',
,^,7@ ,
,> < (,,^,,> < +,,^,> < .,
,^(@qd1@,,
1@#+>0@*+,> <0,,^+",^,^,^,~('eTypeGtohContinue,Xto Exit,TTotrace.'/2H*,$)(A1)(1H@14A5/)(1HA5,1X,O6)PAUSESTOP.pXpXppjGp6XX~pxCR4B Y+PX0
 Z#p+ N  ,~>attempt to take SQRT of negative argKc3@ p p+ jKc3K  , j 
,~Kc3J  , j ,~Kc3I  , j ,~Kc3H4B!5@ m5"!+DX0
 lU ,~,>,># $)D/$@,>4d wX $(F) +  w5F w5" u"` ,!+ ~#  ,> <!,!b,^@,> <!,!=,^5& ~+PX0!,^,^,^,~! ,~xxAttempt to raise negative single precision number to non-integer powerKc#@ p p+!Kc#K  ,! @,~Kc#J  ,! @,~Kc#I  ,! @,~Kc#H4B!:5@!5"!$+DX0
!U ,~ D!9!$ @!8 B!95"!!#`+ !6,!!!"B,~+ !$(BdB+ !$5B!  !9,~ +7`!9+!-`d +DX0!(+DX0
!(U `d @6 !8+!# !9`B"`+!#/!;id +!/+DX0!(#!8,> <!<,!b,^ @`!9@,> <!<,!=,^+!*U",!!!8+ !$+!! ,~xKc1,>"6 p3"!X+!B3b!X+!D+DX0
!AU ,~+DX0!C  ,~ D!Y F!Z@@!Y%"j"%!W)/;`:XD!S5f!KaF+!K.&@(|h&f!Y !U!V !V !Y!UD!W@ !Y !Z,~!t0_'"S'qf!um.	.#Y% !vyO^	RXC2|t(1,>"6 p4@!w @!a,> <",!b,^!`,~{e^bC2|p1,>"6 p5`!f4@!w+PX0"#p3@!z+!y2 !+!k3`!+!k@@" !z!z+!q)r. !"!~ @"(|h"!{ !{ B" !|!|!}!}"",~+DX0
!x"!~,~,~0i/X36P'Ms!hhyI^"*VhP"`@"6P'MP'M]oxx!aAttempt to"takelog*ofnegativesargG?@1,>"6p")"*++"g&t@1,>"6p"*++"G?1,>"6 p"*+"g&p1,>"6 p B")#`3b"(+"% D"+"*3b"++"%"(D?d$ "@($)B
"5
,~,`nmL+"4"K
"6
,~"
,~`"7Y\"8Q<X\"9*+6"96`"9S	YVBG9"9G9"8
GJ"6GK/K"69jV"49jV"09jU"5	0","(9)"(v*"9LR"9%9"*7)"'7("'7'"&7&"&J"+5u"%5b"$E"E"
f![K|!Z!D~Z!=c	!Sb&!Zb%!Yb%!Yz!X0!X/!W/!W.!V.!V-!U-!URMSQv!K~Z|p!<NX:GYXpX2!9pX2!9pX1!8
~J!$'G!#
~J!#
~I!!
~I!S	YVBSo&B	WG!.G!PU7RMSQTE!/8d!/~IzP!NR:JYXRMSQTE~J|0 ^G
YaeNTvFVaZRaYQajLP3?K~ KB J J IDA 2DR 1I; DI: B] E] EDR|p 0koYUlrBKYX<:`
Y]@ 
Y?a
\!s{-^n{-Xi{-O|{-N{-N{-M~{-MvVBSo&BTE)|]\6.AwBP@VKV4PbXlVkBI
YPbKYYYh[|ggMA
JTUR/}F
/|N	@\:T(q5vX_<F

zR(TsT	`u6
(J"X
&*
 R	WJ
>
_Bb
_2v	^,6RW	`
K^
2b
2RYmtL(bIzF)	GF[F	qGEZzRFZzR EPA0
a=%a@G@[;o=B	qG00K8/$N:$N~@9h06Ih05Hu
qPA5}zA3U5
a7'
u:3Y|;OJ5) ymL!
QY
e\+	y^zA?b'oGSb[M?xoWS"Ng%V{(+P *{M?  #-{aS!
_Ya
sY	qG10/x0	0/
P4-P5-,,++0KG
**R!Pd)l{+(M9)Y3+(* ?
&
&|hiYU
h7NLNnpKG![o!+#	qGYY0K\9\9}`A
awuo|)Q3G![vo 
AD-m=-aO2!L0UUQ%.e)
+o&omJ}8tAG?'tiNK%
?'+tt}Tg'SabUu%Yu9]uab
P	hU
jYUh8?Uk4/J{m5C0tEnB|?bE$	h}} #O8gt6W1|Si	i 7n8{Z.kL
_w	i%{ Ko9v;;vE
s	i9!^R9#y';A	qGU;o{,~zP]z3|
N<!z A	mXdPH,PI7 9PI;-9PJ
Kg)TSPK
J~8~a8
!&~
R
{+	P4	P5P5P6REMP6REMP7Fii
4o
Do~
~Pp%j}p!sTd9%)Ta|oSR!Pd
)S&
!CG;!i3 g[F/C
EQED~Dl{+Z|AAZ$~7Pp6u=0Pq609j
UTo5
5Pq4&rOZd8c9ZPrYV
YPrX^sQ[XPsW/}:WPsV;}`U\&
$|hi^{g#Pt#is"gE! |]) dh(.>~YU
h7.lvP\RM>0ORM>m80(RG\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