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.
?p 0 0 0 ` ?h X ?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) H BMD09S + -< F $ D A $ D < , F < , < ,
3D D2F D7 + <3D 2F
+ 8 < #, , . } H B < &, < ),
< ,, " D B
" H B " n B S7` + 87` + 87` B+ 87$ + 85d . " I B " B S $ 13$ B+ 8 ${h2$ + E+ 8 < /, , + D < 2, , + D < 5, , + D < 8, , + D < ;, , + D $ 3D + ? < >, < @, Z
1B B+ B1B D+ D A1d + D < C, < , ` !2D
+ L = ! $ D " a B X " J B Z+ ] !2D z+ T " r B X " 8 B " . B 6@ + 6+ Y !2D B+ 4 " a B X " S B Z " B B
0D 0$ + 2 < E, < H,
Z X1B a+ a1B r+ r < , : $ $d " @ B " & B < K, " $ F D < N,
: ; + h, < O, " $ F D < R,
: ; + o, $ D W@d D y $ D T 2D + ~ < , : @ 7 " 8 $ .D W $ D $ $D " T B + " ] B y2D +
< , :+ W( =5( W( 6($ .D W$ D y $ $D " ~6B C6` A+ 2D B+ % < , : W( 5 W( 6 $ D T $ $D 5 " j B ~ 0D 1D + 20D 1D + 20$ + 2+ ) " x B ~"$ .D W . y4$ :4D 4+ * < , < T, " W $ F D ( < W,
: ; + -, < , s6b T0b + 6+44 64 64 9 < X, W( < [,
7$ + :4D I < ^, , < a, " $ F D < d,
: ; + ?, < e, " $ F D < h,
: ; + E, 7$ y+ :4D Y < j, , < m, " $ F D < p,
: ; + O, < q, " $ F D < t,
: ; + U, 6b T0b + \+Z4 \4 k4 k < v, , < y, " 5 $ F D < |,
: ; + a, < }, " 5 $ F D < ,
: ; + g, @d Y D Z S1B n+ n1B + < , , " $ F D < , < ,
_D ZD ~ ~ <
,
: ~;5 + u, U3D 2F + 8 C ( $ .
J
.$ 8&
, C F ,<
" C $ H D $$ . < ,
: ;+ + , + & < ,
l< , , & F %,
: ; + r+< (, , 1d + - < +, , + <7$ Y+ :4D " m B D &$ D 5D 4 & F " $ F
: ; + S < 2, " $ F
D ( < 5,
: ;
+ C, Z Z1B J+ J1B S+ S1B L+ L " L B Z " i B < 6, " $ F D ( < 8,
: ;4 + O, " Y $ 7D / /# D 7 7 H
! .
, ", L ! 7 (
.
: /, ", L: ; Z 1B i+ i1B m+ m $ D " . B " B B
l< :, :< <, " Y $ D # D 7h H
H" $ F D 5" Y $ # H 7
5
(h3L 72* +
(1L + < ?, < B,
.$ 8& : 5; + " { B " : B ? " K B # " 7 B S"$ . D E & . F 4$ 85d $ D " B + E D &$ D 5D & F " $ F D "& / B. ( $ @l Q@n R ( $
S (
/.$ 8& Z 1B &+ &1B .+ . < E, " $ F D ( < H,
: ; + ), + 5 < J, " $ F 6 D ( < L,
: ; 6+ 1, Z S1B 7+ 71B @+ @Z ?1B :+ :1B E+ E" $ ( $
(
0 /
Q.$ 8& ; " E B ?+ E" $ ( $
(
0 /
S.$ 8& AZ 1B H+ H1B I+ I <
, LZ #1B K+ K1B Q+ Q" B $ ( $
(
0 /
R.$ 8& L " Q B #Z 1B T+ T1B ]+ ] < M, < P,
< R, " B $ F X D ~ ~( < U,
: ~; X+ Y, Z C1B _+ _1B f+ f < V, " A $ F W D ~ ~( < Y,
: ~; W+ b, Z ~1B j+ j1B q+ q1B x+ x < [, " B $ F V D ~ ~( < ^,
: ~; V+ m, + x < _, " B $ F # D ~ ~( < a,
: ~; #+ t, Z 1B {+ {1B + : ; + " .d 5d " @ B S " B F + < c, < f,
" B $ < h, ( $
(
< k,
.$ 8& + < ,
x x p Ap x 5x x x x X ` 0 0 > $ $ $ } $ A $ ( ! $ ( ( y ( $ $ $ $ $ 5 X U X d 0 > $ $ $ B $ ` X w X | X X X ` ` ` A X 0 0 $ X (E X (E X 06 X 05 06 $ X # X (Z X & (Z X ' X ( X & ( X + X (z X & (z X / X > 0 U $h $
X F
X R $ $h $ R $ $h $ 0 / X F Z 0 / h 0 / ` ` X \ $ 5 $(h $ 0 / X r $ $ 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 ~4 4 4 4 4 4 04 34 54 74 :4 <4 >4 @4 C4 E4 G4 J4 L4 N4 P4 R4 V4 Y4 \4 ^4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 o4 4 o4 7$ ++ 5d @d )+ < , L @ )+ 7$ ++ 5d !$ D )+ !$ + D H < , 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 ++ <
, _ @ )+ 7d 0+ | < , _ @ )+ + 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 ^4 z4 z ' D )+ < ", , + . D & < %, < (,
< *, < -,
+ *( ) * /: 0; -+ Y G,~ p 0 +p + 'x +x +x +x +p + 0x ,x Ix (x Hx ,x Hx ,x Hx +x Hx +x +x +x Hx +x Hx GX 5 X 1 $ & $ ( X 9 $ & $ * (1H023X71HNUMBER OF VARIABLE FORMAT CARDS INCORRECTLY SPECIFIED, ASSUMED TO BE 1.) m u \ 8 p @ /0` 0` + =+ @ < B, , $ D / 8 / Ap ,~ X 0 kN
y1,~ ` Z (X^ . > X.~ (3~ + K ~ + VZ . \x <x *<x .ez+ R!" b + " S b + Z` .Z . h + gg M?}
& X b + F,
?NO CORE AVAILABLE - CAN NOT PROCEED
a.3@1 ,> "6O@ + agR~@1 ,> "6@@ ,> ,> @ 6 w+ n" 0B + i!"A`X#p 5@ f/#p !" X#p + n\p + na.9'1 ,> "6,> ,> O@ + n,>
6 + _ 4` v"` Q@ ,> < , ,^ ,> < ,
,^ *b s+ ,> < !, ,^ 7@ + |,> < $,
,^ + ~,> < %,
,^ Z 5" ,> < ',
,^ , 7@ ,
,> < (, ,^ , ,> < +, ,^ ,> < .,
,^ (@qd 1@ ,,
1@ #+ >0@ *+ ,> < 0, ,^ + ",^ ,^ ,^ ,~ ('eType G tohContinue, X to Exit,T To trace.'/2H *,$) (A1) (1H@14A5/)(1HA5,1X,O6) PAUSESTOP .p X p X p p j G p 6 X X ~ p x CR4B Y+P X0
Z#p + N ,~ > attempt to take SQRT of negative arg Kc3@ p p + jKc3K , j
,~ Kc3J , j ,~ Kc3I , j ,~ Kc3H4B ! 5@ m5" ! +D X0
lU ,~ ,> ,> # $ )D /$ @,> 4d wX $ (F) + w5F w5" u"` , !+ ~# ,> < !, !b,^ @ ,> < !, !=,^ 5& ~+P X0!,^ ,^ ,^ ,~ ! ,~ x x Attempt to raise negative single precision number to non-integer power Kc#@ p p + !Kc#K , ! @ ,~ Kc#J , ! @ ,~ Kc#I , ! @ ,~ Kc#H4B !:5@ !5" !$+D X0
!U ,~ D !9!$ @ !8 B !95" !!#` + !6, !!!" B ,~ + !$(BdB + !$5B ! !9,~ +7` !9+ !-`d +D X0!(+D X0
!(U `d @ 6 !8+ !# !9`B "` + !#/ !;id + !/+D X0!(# !8,> < !<, !b,^ @ ` !9 @ ,> < !<, !=,^ + !*U", !! !8+ !$+ ! ! ,~ x Kc 1 ,> "6 p 3" !X+ !B3b !X+ !D+D X0
!AU ,~ +D X0!C ,~ D !Y F !Z@@ !Y%" j" % !W)/;` : XD !S5f !KaF + !K.& @(|h& f !Y !U !V !V !Y !U D !W@ !Y !Z,~ !t0 _' "S'qf!um. .#Y% !v yO^ RX C2|t(1 ,> "6 p 4@ !w @ !a,> < ", !b,^ !`,~ {e^b C2|p 1 ,> "6 p 5` !f4@ !w+P X0"#p 3@ !z+ !y2 !+ !k3` !+ !k@@ " !z !z+ !q) r. ! " !~ @ " (|h" !{ !{ B " !| !| !} !} " " ,~ +D X0
!x" !~,~ ,~ 0 i/X3 6P'M s!hh yI^"*Vh P "`@ "6P'M P'M]ox x !aAttempt to"take log*of negativesarg G? @ 1 ,> "6 p ") "*+ + "g&t@ 1 ,> "6 p "*+ + "G? 1 ,> "6 p "*+ "g&p 1 ,> "6 p B ")#` 3b "(+ "% D "+ "*3b "++ " %" (D?d$ " @($ )B
"5
,~ , `n mL + "4" K
"6
,~ "
,~ ` "7Y\ "8Q< X\ "9* + 6 "9 6`"9 S YVBG 9 "9G 9 "8
G J "6GK/K "6 9jV "4 9jV "0 9jU "5 0 ", "( 9) "(v* " 9LR " 9%9 "* 7) "' 7( "' 7' "& 7& "& J "+ 5u "% 5b "$ E " E "
f ![ K| !Z !D ~Z != c !S b& !Z b% !Y b% !Y z !X 0 !X / !W / !W . !V . !V - !U - !U RMSQ v !K ~Z|p!<N X: G Y X pX2 !9pX2 !9pX1 !8
~J !$'G !#
~J !#
~I !!
~I ! S YVBSo&B WG ! . G ! P U7 RMSQ TE! /8d !/ ~IzP! NR: J Y X RMSQ TE ~J|0 ^ G
Yae NTvF VaZ RaY Qaj LP 3?K ~ K B J J I DA 2DR 1 I; D I: B ] E ] E DR|p 0ko YUlrBK Y X <: `
Y]@
Y? a
\! s{-^ n{-X i{-O |{-N {-N {-M ~{-M vVBSo&BTE ) | ]\6 . AwB P @ VK V4 PbXl VkBI
YPb K YY Yh[|gg MA
J TUR /}F
/|N @\: T(q5v X _<F
zR (TsT ` u6
(J" X
&*
R W J
>
_Bb
_2 v ^,6 RW `
K^
2b
2 RYmt L (bIz F ) G F [ F qG EZzR FZzR EPA 0
a = %a @ G @ [ ; o = B qG 00K 8 / $N : $N~@ 9h06 Ih05 H u
q PA 5 } z A 3 U 5
a 7 '
u : 3Y | ; O J 5 ) y m L !
Q Y
e \ + y ^ zA ? b ' o G S b [ M ? x o W S " N g % V { ( + P * {M ? # - {a S !
_ Y a
s Y qG 1 0/x 0 0 /
P4 -P5 - , , + +0K G
* *R!Pd )l{+ (M9 )Y3 + ( * ?
&
&|h iYU
h 7 N L Nnp K G ! [ o ! + # qG Y Y 0K \9 \9}` A
a w u o | ) Q 3 G ! [ v o
A D -m = - a O 2 ! L 0U U Q % . e )
+ o &o m J} 8 tA G ? ' ti N K%
? '+ t t} T g 'S a bU u% Y u9 ] ua b
P hU
jY U h 8? U k 4 / J {m 5 C 0tE n B | ? b E $ h} } # O 8g t 6 W 1 | S i i 7 n 8{ Z . k L
_ w i% { K o 9 v ; ; vE
s i9 ! ^ R 9# y ' ; A qG U ;o { ,~ zP] z 3|
N< ! z A mXd PH , PI 7 9 PI ;-9 PJ
Kg )TS PK
J~ 8~ a8
!&~
R
{+ P4 P5 P5 P6 REM P6 REM P7 Fi i
4o
Do ~
~Pp%j }p!s Td9%) Ta|o SR!Pd
) S&
!CG; !i3 g[ F /C
EQ E D~ Dl{+ Z|A AZ$~7Pp 6 u= 0Pq 6 09j
UTo 5
5Pq 4&rO Zd8c9 ZPr YV
YPr X^sQ[ XPs W /}: WPs V ;}` U\&
$|h i^{g #Pt #i s "gE ! |]) d h (. >~ YU
h 7 . lv P\ RM> 0ORM>m8 0 (RG \B: /\>X \>5 '\7N +\2g 'r'I (\)8 *\)7 \ \ )\+ ,\6 .\. ,[rO .O[mN O[m O[m O[l| [l{ &O[l+ O[k O[k O[j] O[jR O[i% r%H ([Z [X %[Qg r% 0[Ms /[M" -[M +[L ,[FG [@v *r#e OD^w'd w]!+{ 0