Trailing-Edge
-
PDP-10 Archives
-
decuslib10-09
-
43,50466/bmd09s.sav
There are no other files named bmd09s.sav in the archive.
h '*x "W- Px -*p#x . $` /+ ;(39H1BMD09S - TRANSGENERATION - VERSION OF 14HMARCH 21, 1966/41H HEALTH SCIENCES COMPUTING FACILITY, UCLA//) $ D $ D -\ g4
" HB
" + M(2A6,I6,I3,I4,2I3,A3,I2,3A3,I2,17X,4I2)
3D 2F + " 0b . D " Xb
" + l(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.) , @ $ @ r @ "4d 4d 4d 4$ 5d v % @ g @ "$ 1. 5d "${h. "4d ,+ " {b + (48H0AN IMPROPER INPUT OR OUTPUT TAPE WAS SPECIFIED.) + , " b + (49H0NO METHOD OF INPUT OR OUTPUT HAS BEEN SPECIFIED.) + , " b + (82H0AN IMPROPER NUMBER OF FORMAT CARDS ARE CALLED FOR SOME INPUT OR OUTPUT OPERATION.) + , " b + (47H0CONTROL CARDS MISPUNCHED OR CARDS OUT OF ORDER) + , " b + !(16H0A PROGRAM ERROR) + ,"$ . 4D & X@ $ X@ & Z 1B )+ )1B ,+ , $ 2$ + , X@ + -\ "; 2D + 3 $ D Q @ @ + G 2D + ; ! " d @ x @ #
@ # 4D @+ 2D + $ " Q @ @ ) @ $ 2d g O 0F g O G 4$ y " Jb
+ N(17H0INPUT DATA FROM 2A6,9H ON TAPE I2) Z 1B Q+ Q1B d+ d-\ _4 $ $D ~ @ # @ # " YB : Z % 63: 9 V + [(18A4) " _b : Z % 63: 9 \ + d(21H THE INPUT FORMAT IS-/(1H ,18A4)) $ D %@@ &@@ & $ D ' 2D + p-\ _4 ' B ( C $ .D % $ D & $ $D 0 @ )+ q : @ ) 2D + ~-\ _4 %( @ %( *A $ .D % $ D & $ $D < @ + 5d D + B @ + 2D + %( !@ %( "A $ D ' L @ + 4D + 2D + -\ _4 %( $@ %( "A $ D ' $ $D E @ + $ 2d g O & 2F g O ( 2H g O * 2J g
O
0L g
O
G
G G G 4$ y+ # R @ +"$ .D % &. &4$ 4D + $-\ I4 4 " )b : Z % (
A3: %9 & + -(17H0DATA OUTPUT IS- 3(2A6,1X)) -\ 34 4 6b '0b 7 +04 24 24 : " 6b %(
@
A + :(16H OUTPUT TAPE IS 2A6,3HNO.I3) &4$ 4D K " =b + A(21H0THE PRINT FORMAT IS-) " YB : Z % H3: 9 B " Jb : Z % H3: 9 G + K(1H ,18A4) &4$ 4D \ " Nb + S(35H0THE PUNCHED CARD OUTPUT FORMAT IS-) " YB : Z % "3: 9 T " Jb : Z % "3: 9 Y 6b '0b 7 +]4 _4 n4 n " ab + e(31H0THE BCD OUTPUT TAPE FORMAT IS-) " YB : Z % V3: 9 g " Jb : Z % V3: 9 k @@ ,@@ ,Z 1B r+ r1B g+ g " sb + (1H06X21H TRANSGENERATOR CARDS/5H0CARD4X3HNEW5X5HTRANS4X 20HORIG. ORIG. VAR(B)10X,17HTYPE 40 CONSTANTS/45H NO. VARIABLE CODE VAR(A) OR CONSTANT) : Z % "
B
- hm hp h;h? . : Z .
01: 9 % + (A6,I3,I2,I3,F6.0,5X,I1,7F6.0) 3D -2F -+ "$ : , , % F %@@ % %@@?+ ["$ %.p4$ A4D $"$ %.p4$ [5d ? $ 2d .g O .0F g O G 4$ A: , : Z / $ $ ,. h
0 F
3: .9 * , . F" " 9b % % m % p % ; %? : Z / $ $ ,.
3: .9 5 + >(1H ,I3,I8,2I9,F15.5,5X5F14.5/50X,2F14.5) + _ $ %3Dp+ [ " Bb + O(112H0THE FOLLOWING TRANSGENERATION CARD HAS ILLEGAL CODE NUMBER OR NUMBER OF TYPE-40 CONSTANTS. IT WILL BE SKIPPED.) " Sb % % m p ;? + V(1H ,I3,I8,2I9,F15.5) " Xb + Y(1H0) % & Fp+ _ " Sb % % m p ;? %3: 9 " Xb $ 2$ ,+ m " eb + m(65H0MORE THAN 50 TYPE-40 TRANSGENERATIONS. PROGRAM CANNOT CONTINUE.)+ " ,4$ 4D g + @ / " D 0-\ "84 04
@ 0 05D u $ D 0 : Z %Z #1B x+ x1B ~+ ~ X@ y@ : Z / (
33: 9 z + X@ " 7Q" ZB : Z / (
33: 9 Z 1B + 1B + 1B
+
@ & @ /` : Z / (
33: 9 : Z 1 h D 1 1 ; D 2"$ 1.p4$ 4D 2(
3D
3
1 0 % * -\ "%4 @0 % 1 ? &
2(
(
3-\ "%4 @ ? 13: ,9 %3: 09 u" 0.D 0 05d qZ /1B &+ &1B ++ + $ D
@ # ) @ X@ * X@ , : Z 1 h D 1` " @ 2"$ 1.p4$ 5d 4 1 ? 2 D?+ <" 2 1 ? ? 2 % "F ? 1 $?XD ;-\ P4 ; @? 13: ,9 - : Z 3 : Z 3 h D 1 $ 32Dpg O 12h 3g O
m 13J;g
O
G G 4$ d " Nb 3 3 m 1 p 3 p + d(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.) 33: ,9 ? 33: 9 > T @ 4 @ 4 ' @ 5 @ 5"$ . " D 6 $ . D 6 64$ 5d r $ D % [ @ 4+ x 6 D 0-\ "84 04
@ 0 05D w $ D 0 : Z % 6 Z . $ $ ( @@y@Bz $ $ ( @@{@B| ( @@
3@B
43: 9 yZ #1B + 1B
+
X@ " 7Q" ZB : Z / (
33: 9 + X@ @ : Z / (
33: 9
Z 51B + 1B + Z 41B + 1B !+ ! : Z . $ $ ( (
3y3: 9 ! @ 4+ ! : Z . $ $ ( (
3{3: 9 Z 1B $+ $1B %+ %-\ 34 %Z 51B '+ '1B .+ . : Z . $ $ ( (
3z3: 9 ( . @ 5Z )1B 0+ 01B :+ : " 2b % + 4(9H CASE NO.I6) " HQ" Zb : Z . (
33: 9 6 Z +1B <+ <1B B+ B " "Q" Zb : Z . (
33: 9 > Z +1B E+ E1B L+ L1B R+ R X@ G " WQ" Zb : Z . (
33: 9 H + R X@ M` : Z . (
33: 9 N Z 41B T+ T1B [+ [ %3: 09 w" 0.D 0 05d s @ 5 [ @ 4 " D %+ x " ^b " " + y(62H1SAMPLE LISTING OF VARIABLES BEFORE AND AFTER TRANSGENERATION.//13H VARIABLE NO.7X,17H CASE 1 BEFORE4X,16H CASE 1 AFTER 12X,6H CASEI6,7H BEFORE4X,4HCASEI6,6H AFTER/ 23X,15HTRANSGENERATION5X,15HTRANSGENERATION14X,15HTRANSGENERATION5X,15HTRANSGENERATION/) : Z % " b $ $ D (
y
z
{ (
3 3: 9 z+ (1H I8,F26.6,F20.6,F30.6,F21.6) + >-\ ";+ + 0BMD09S p
0 0 PROBLM FINISH TRNGEN YES BCD BIN CRD pPUNCH p CARDS ` BINARY TAPE p# BCD `' PRINT , p)CARDS, |h ;4$ -5d " $ D ; ;/ ;4D ' $ 3D ;+ ' ;X@ & "$ . ;4D +"$ . ;4D - ;X@ + ; D ;+ 6 " /b -\ ";+ 2(25H ERROR ON TAPE ASSIGNMENT)+ 64 Z 9 \ : :,!p ,!p + 9 :\ ;,Ap ,Ap -|p }X< P/ Q4D H $ 2D Qg O Q0F g O G 4$ F QX@ D QX@ E PX@ G P D Q+ L4 Z O \ O P,!p ,!p + < O O\ Q,Ap -|p cQ+ _4 R 8Q * = Z > \ > >,!p ? $ "D A-\ P4 A ? F B-\ 54 B!8 8X8 *8 > >-|p @@ D : Z E h; D E hm D F F(
3-\ "%4 @ F hp D G E(
3-\ "%4 @ G h? D H@ H @ H $ 3D Gg O & 3F Gg O A 5$ s H(
3-\ "%4 @ I6b G0b 7 +u4 4 4 4 4 4 %4 >4 A4 C4 E4 I4 K4 M4 O4 R4 T4 V4 Y4 [4 ]4 54 a4 h4 l4 o4 q4 4 4 4 4 4 4 4 4 4 4 4 4 4 r4 4 r4 4 G4$ 5d @@ F+ -\ P4 G @ F+ G4$ 5d !$ D F+ !$ G D B-\ P4 B @ C-\ P4 G C @ F+ G4d -\ ![4 G @ F+ -\ !=4 G @ F+ G4$ 4D
4 G @ F+ -\ "4 G @ F+ " 73d Gg O 72& Gg O G 4$ -\ 54 G @ F+ G4d G I, o D F+ H4d H G, o D F+ G D F+ H D F+ : D D " D K : Z K G & $ D. 2D
+ -\ ".4 84 G @ L & $ D. $
XD ~-\ ".4 84 ~ @ L L L5D 3: K9 u+ G5D -\ ".4 84 G @ L!$ D L L L5D "$ . G D M6b M0b 7 +
4 q4 q4 " b + H D E " b E A " $b G F + F( F F
3@H
4 E3: 9 `+ (22H0THE VALUE OF VARIABLEI4,8H IN CASEI5) + $(26H0THE VALUE OF THE CONSTANT) + 2(54H VIOLATED THE RESTRICTIONS FOR TRANSGENERATION OF TYPEI3,1H./39H THE PROGRAM CONTINUED LEAVING VARIABLEI4,25H UNCHANGED FOR THIS CASE.) + 64 Z ? \ @ @,!p + R ? @-|p 9~j 0 } M $ 3$ fg O f1f g O A 4$ U " Ub $ D f+ b+ ^(1H023X71HNUMBER OF VARIABLE FORMAT CARDS INCORRECTLY SPECIFIED, ASSUMED TO BE 1.) + b4 Z d \ e e,!p + M d e\ f,Ap -|p f 4 O@ N+ j4 @@ NO "$ D O $ : INX |H m+
6@ N J
J Z + J z + K
z@ + #p & >
3L
+ }7@
/& 5f v7 + @@ : L
PL + R d. R d$ 2N + x: :
: N4@ R g+ R i3@ O,~ -|p kN
y1kN
y CB` x x
H JZ 0B + d
:` O+ + qx O4 }X PX\ 5 @ 5< =0< 0| + 1\ + ^,>p OZ p O+ p @ h @ p @( @0 $@ x @ @8 &@( @ P @ P @ h @ f@ f@ @ r8 [ (/< 0"` S<p X< 0 p 3@ >+ d*| `-< Jwx cZ` P+ !< @w+ b< >+ p 7~p + ,> ,> ,> Z&w p , |,& .< 7@p + y7 p , |" ?@ -.< +p ` ? w,& ,& 5 k.< p d @: ." Q ,& p ,& >` 9 v.< 9 l@@ ,^ ,^ ,^ + d @ @ & 0b ." ." )B}5@ },~ m< !< P\ 1< > p [ p l< 0@X + Z p .< / p Q \ 2+ @@ 2!< P\ 17@ 4+
& FU` eB + <@ )@ G
" + 8
& J+ o6$ 1 ,> "=. @
p .4 6$ u *.
.4 2. 1SEQIN}0 C @ BSEQOUT @ D@ $
%5 Source level error at user's loc
` Z (X^ . > S.~ (3~ + O ~ + ZZ . \x <x *<x .-> "@ez+ V!" b + " W b + Z . h + gg M?} Z
& \ b + J,
?NO CORE AVAILABLE - CAN NOT PROCEED
x `a.3@1 ,> "=O@ + egR~@1 ,> "=@@ ,> ,> @ 6 w+ r" 0B + m!"A`X#p 5@ j/#p !" X#p + r\p + ra.9'1 ,> "=,> ,> O@ + r,>
6 + _ 4` z"` Q@ ,> < , ,^ ,> < #,
,^ *b w+ ,> < %, ,^ 7@ + ,> < (,
,^ + ,> < ),
,^ Z 5" ,> < +,
,^ , 7@ ,
,> < ,, ,^ , ,> < /, ,^ ,> < 2,
,^ (@qd 1@ ,,
1@ #+ >0@ *+ ,> < 4, ,^ + ",^ ,^ ,^ ,~ ('eType G tohContinue, X to Exit,T To trace.'/2H *,$) (A1) (1H@14A5/)(1HA5,1X,O6) PAUSESTOP hF .p X ` ! ` p p`$X `Z& 7 p 0 p}(p j G p *p = p +X ` - X ~PB0 B p x |pB4CR b @ ,~ B @ B b ""X+ W4B a+P \0
b#p + R ,~ u battempt to take SQRT of negative arg Kc3@ p p + rKc3K , r
,~ Kc3J , r ,~ Kc3I , r ,~ Kc3H4B !5@ u5" !+D \0
tU ,~ ,> ,> # $ )D /$ @,> 4d X $ (F) + 5F 5" }"` , !+ !# ,> < ! , !b,^ @ ,> < !
, !=,^ 5& !" ,^ ,^ ,^ ,~ ! ,~ x x Kc#@ p p + !Kc#K , ! @ ,~ Kc#J , ! @ ,~ Kc#I , ! @ ,~ Kc#H4B !:5@ !5" !$+D \0
!U ,~ D !9!$ @ !8 B !95" !!#` + !6, !!!" B ,~ + !$(BdB + !$5B ! !9,~ +7` !9+ !-`d +D \0!(+D \0
!(U `d @ 6 !8+ !# !9`B "` + !#/ !;id + !/+D \0!(# !8,> < !<, !b,^ @ ` !9 @ ,> < !<, !=,^ + !*U", !! !8+ !$+ ! |!9! ,~ x Kc 1 ,> "= p 3" !X+ !B3b !X+ !D+D \0
!AU ,~ +D \0!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!ZC2|t(1 ,> "= p 4@ !r @ !a,> < !z, !b,^ !`,~ {e^b}!aC2|p 1 ,> "= p 5` !f4@ !r+P \0!{#p 3@ !u+ !t) r. !@ !y! n@ !y(|h" !u !v B !y !v !w !w !y !y !x,~ +D \0
!s !x,~ ,~ 0 _i/X3 6P'M 5( bB W
R `@ 8!yx !aATTEMPT TO TAKE LOGBOF!NEGATIVE"ARG{`!~G? @ 1 ,> "= p "" ""+" + " g&t@ 1 ,> "=*p ""+L + " G? 1 ,> "=Rp "#+ " g&p 1 ,> "= p pB "!#` 3b "`+ " D "# "#3b "$+ "%" (D?d$ " @($ )B g&=` 1 ,> "=#p 7!p "` ,~ SNL{@1 ,> "= p Fp 4 "5 p ,~ "p +" "6,~ U ,~ [> 1 ,> "= p &p ,~ KbN@ 1 ,> "=,
,~ ">Y\ "?Q< X\ "@* + !$h X$h @@h *% " "H Bh L " Bh M+ x eX2G iSH YC aS iSH ~"HINX 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 x"ViSH +