Trailing-Edge
-
PDP-10 Archives
-
decuslib10-09
-
43,50466/bmdx93.sav
There are no other files named bmdx93.sav in the archive.
h '> A9- >1x -Ax .
@ C D 1!1 CD 1!1$ D 1*` C @ W@@ /|@@ X@@ 1@@ 1@@ /}@@ 1$ $ D /}$ D 1"$ D X$ D Y@@ 1$.: Z Y@@h/w : Z ZT$ $ Y. @@0M1: 9 @' Y1: 9 >': CZ Z!$ UDh0^1: 9 E@@ 1"@@ 0]S$ 2 D 1#@@ 1/'$ ED /} H3D W+ p/" PIS 4X@ ?B W$ / 4 + R(20A4){> " Pb W$ / 4 Z H3D W+ p E3D W+ $ 3D X+ K I5D ^ " ^b W$ / 4 + e(' FIRST PROBLEM, A CARD OTHER THAN A PROBLEM CARD=',20A4) N2D Wg O F2F Wg O G 4$ F3D W+ A G3D W+ G3D W+ O3D W+ / U3D W+ " tb W$ / 4 + (' THE FOLLOWING CARD WAS IMPROPERLY PUNCHED'//1X,20A4/ '0THE NEXT CARDS LISTED WERE NOT EXECUTED'/'0WE WILL CONTINUE AT THE NEXT PROBLEM') $ D X+ K: I@@ X " PX@ ?B W I .{ Z [ [ \ \ ] ] ^ ^ ` ` a a b + (2A4,F5.0,2I2,F5.0,6I2,A3,I5,3I2,A3) `4d ` ` @ T I T F/w $ 2D I+ " X D 1# P2D g O C2F g O G 5$ " Y D 1# a4D $ a D D Z4d & Z D 1) [4d ( [ D 1 [4d * [ D b \4d , \ D Q \4d . \ D Q@@ 1 W2D b+ 1O@ 1 ]4d 3 ] D M ]4d 5 ] D N `4D 7 ` D R a4D 9 a D S ^4d ; ^ D R+ H(' WARNING--COLS. 58-62 ON PROB CARD ARE ZERO AND INPUT DATA FROM CARDS, THIS MAY CAUSE TROUBLE'/' WILL READ UNTIL END OF FILE') ^4d J ^ D O 4d L D P C3D + O D P@@ /} P2D V+ R $ D /} P2D V+ T $ D /} N0d g O & 2F Qg O A 4$ $ 3D Qg O & 2F Rg O A 4$ J D c Q 1)@ @ c I J F/ 1$ c J. I F /
+ K!$ D d 14D 9 160^5D 7 1!& 4F0^4 1-0^ D d5: +Z Z h0^5D 3 dQDh0^1: 9 " 'B W d e e f f g 1% 1% 1& 1& 1' 1' 1( 1( 1) 0^ g h h 0] i + -(A4,2X,I3,I5,F5.0,2I3,F5.0,3I3,2F7.0,I3,3I2,A4,I1,2I2,A3,I5) 1% D i /}5D 1@ e @ j@ g @ j h4d 3+ h"D S /}D 0O: h4d 63 h+D /} $ 2D /}g O i0F g O ( 2H /}g O A A 5$ ?" ;b $ ` 1% @ B` 1& BO@ kG `5D E" A k D T I4D J : QZ Z 0^2Dh.{+ IXZ k+ U3: I9 F " Lb 0^" + T('1PARAMCARDFOUNDgWITHKFOLLOWINGNAME'A6,/+'0THE1CARD0WILL)BEEIGNORED')I+ KO TU k2$/w+ X, kH/w D T 15$ [+" [b 0 + i(1H.,10(1H*),104HNOTE--COMPLETEGPOSITIONING AND,TRACINGIPRINTOUTBREQUESTED (USE,THISLSPARINGLYETOCAVOIDIEXCESSIVETOUTPUT),'10(1H*))JUNE d4D k) d D 1" e4D m e D 1"$ e4D o e1D T9 j4D q+ j(D 1#, g4D sE g/D U1 f4D u f5D 1#! f4D w f D 1$ j4D y j D 1$ /}5D (" b 1" 1" 1# 1# 1$ 1$ 1% 1% 1& 1& 1' 1' 1( 1( 1) 0^ g + (11X,'LONG = ',I3,' BCODE = ',I5,' HCODE = ',I5,' LENGTH = ',I3/11X,'BPULSE = ',I3,' HPULSE = ',I5,' EXPNO = ',I3/11X,'PSTART = ',I3,' PEND = ',I3,' TSTART = ',F7.3,' TEND = ',F7.3/11X,'IDAY = ',I3,' IHR = ',I2,' IMIN = ',I2,' ISEC = ' ,I2,' PROBLEM 'A4,' END 'I2) @@ l@@ l 1) 1'@ @ m M D 1 T D 0^ T k3$/"+ : /}5D 3 1&0D g O 1%1f g O A 4$ 3 /}5D /-\ 4T m4d 0-\ A /| D l@@ 1& $ . 1/ D 1% 1%3D i+ F /} D 0O i1d g O & 2F /}g O ( . /|3h ig O A A 4$ : 1/3$ 1&g O 1&1f g O ( 2H Rg O A A 4$ :@@ 0] J D n /}5D H-\ 4T /}4D N-\ <4 b4 1%4 1&4 1)4 14 1#4 1 4 n n4$ :5d - G3D W+ K 1/2D i+ T " Tb i + [(1H ,10(1H*),'BEGINNING ANALYSIS ON PULSE NUMBER',I3,10(1H*)) 14D l5D ^ /| D l" /|. l. m D o /}0D g O o0f g O 1'1h g O A A 4$ : i1d g O /|. c3f ig O A 4$ : k / D o k /
0n 0^3: b9 t + ('0',T10,'CHAN NO',T20,'NAME',T30,'CALIBRATION FACTOR'/(T15,I2,T20,A8,T32,F7.2)) "
b X k .{ 1) b 1 Q Q M N R S R O P P ` D + A(//1)4 ST10,'NAMEDOF PROBLEM'T50,A4/T10,'SAMPLINGRATE'T47,F7.2/ T10,'NUMBER OF VARIABLES'T50,I4/T10,'NUMBER OF VARIABLES ANALYZED'T50,I4/T10,'TIME BASE'T48,F6.3/T10,'NUMBER OF PULSE CHANNELS'T50,I4/T20,'VARIABLES'I4,' AND'I4/T10,'OUTPUT UNIT FOR 05D CARDS'T50,I4/T10,'OUTPUT UNIT FOR DATA'T50,I4/T10,'METHOD OF ANALYSIS'T50,I4/T10,'DECIMATION FOR PRINTER'T50,I4/T10,'DECIMATION FOR PLOT'T50,I4/T10,'TYPE OF INPUT',T51,A3/T10,'MAX. NUMBER OF CASES IN ANY AVERAGE',T49,I5/T10,'NO. OF GROUPS THE AVERAGES SPLIT INTO',T50,I4) /}4D D " Db /} h + N(T10,'LOGICAL UNIT FOR INPUT DATA',T50,I4/T10,'NUMBER OF INPUT VARIABLE FORMAT CARDS',T50,I4) $ 2D /}g O /}1F g O A 5$ U " Ub i + \(T10,'NUMBER OF CARDS INPUT THIS PROBLEM', T50,I4) k / $sXD d /
0n3: b9
+ (6X,16A4) + " B : Z Z (
0n3: b9 + (6X,8A8) : Z Z@@h11: 9 @@ 1@@ Y : Z Z $ Dh1: Y K ( 3D 0n2F 0n7 g O
L3L 0n2N 0n7 g
O
L B
J3L 0n2N 0n7 g
O
L C
C3L 0n2N 0n7 g
O
A
CA
BA 4$ 0> Y@@h1 K ( 3D 0n2F 0n+ 0 Z 13: b9 -\ @4 14 Y @ 1+ K " 7b W$ / 4 + @(' END OF FILE ENCOUNTERED WHILE READING CONTROL CARDS, THE LAST CARD READ WAS'/1X,20A4) -\ A " G PX@ ?B W 0^ : Z Z .1: 9 D + I(20A4) : Z Z 0^2Dh.{+ ] : Z Y $ $ Z. h. F/ 1: 9 L+ K " Rb W + \(' END OF FILE ENCOUNTERED WHILE READING UNIT 1 FOR FORMATCONVERSION, LAST LABEL READ WAS',A5) -\ A Z3: I9 I " ab 0^$ / 4 + o('1THE FOLLOWING TITLES CARD DID NOT CORRESPOND TO ANYKNOWN PROBLEM'/'0NAME=',A6, ' TITLE IS',2X,18A4,/' THE CARDWILL BE IGNORED') + K I5d H2D P+ s-\ 4T " tb + y('1FINISH CARD READ,PROBLEM TERMINATED' /1X) RX@ { " |b + ~('FINISH',T80,'5') -\ A I D k+ J " B : Z Z 0^3: b9 + (6X,16F4.0) + K "
b I .{ + ('1',10X,'THE NUMBER OF PULSE CHANNELS FOR PROBLEM' A6, ' IS INCORRECT'/20X,'THIS PROBLEM WILL BE SKIPPED') > I+ K " b + -('1THE NUMBER OF CHANNELS TO BE ANALYSED IS ZERO,'/ '0CHECK THAT A CORRECT NAMC CARD PRECEDES THE PARA CARD OR THATNUMBER OF CHANNELS TO BE ANALYSED WAS SPECIFIED ON PROB CARD'/ '0THIS JOB IS TERMINATED') H2D P+ /-\ 4T-\ A $ D Z " G PX@ ?B W : Z Y $ $ Z. /t1: 9 3 " P 4X@ ?B W$ / 4 O2D W+ R: Z+ 0-\ A + + 0BMDX93 pA 0 (C 'PROB NAMC TITL PARA POSI FINI BRI HI NULL CODE STIM NNAME FORM BRI 0 #SC` `UCALI BCD BIN YES 8.{ }4? " 4Ab + 4S(' THIS IS THE SUBROUTINE THAT WAS MISSING FROM THE ' /'ORIGINAL LISTING. I THINK IT IS THE SAME AS THE SUBROUTINE '/'POSIT FROM BMDX92,WHICH IS MERELY AN ERROR ROUTINE.') + 4V4 Z 4W \ 4X+ 4@ 4W 4X-|p A@4Y-\ A4 4 8O4 8T4 8L4 8T4 8L-\ A4 4 8Q4 8T4 8L4 8T4 8L 8U5D 4b $ D 8U 8X4d 4} " 4b 8X : Z 8[ : Z 8\ 8[$ 8P $ 8O.
8S.
"
8P.
$0 XD 4m-\ @)4 4m @h8i3: 8T9 4g 8XX@ 4q " 4zb : Z 8\ 8[$ 8N $ 8M. 8S. "
8N.
(
(8i3: 8T9 4r + 4{(30A4) 8[3: 8T9 4f` 8U @ 8] 8W 8] D 8]+ 5( //' REQUEST FOR OUTPUT OF MEANS AND STANDARD DEVIATIONS TO BE WRITTEN ON LOGICAL UNIT',I3/' THIS DATA IS WRITTEN AS MEANAND ST. DEV. FOR EACH CHANNEL ANALYZED FOR EACH SCAN, USING (20A4) FORMAT') $ . 8T&$ D 8^ $ $ 8U3$ 8T+ 5 8U D 8^ : Z 8["$ . $ 8^` 8W @h9)1: 9 5@@ 8^ : Z 8_: 8^ 8^ 14D 5 " 5#b 8V + 5)('1',T20,'PRINTOUT OF MEANS FOR PROBLEM'2X,A4) " 5.b : Z 8[ . 8X1: 9 5* + 51(T20,'TITLE---'20A4 ) " 55b 8^ 8^(
0n 8V 8U + 5A(1T20,'VARIABLE',T49,I2,1X,A6/T20,'NUMBER OF SCANS PER AVERAGE',T52,F6.0/T20,'DECIMATION FOR PRINTER',T57,I2) " 5Eb : Z 8[ 9)1: 9 5B + 5H(/' TIME',T13,10F12.5/) 8] 8^ 0^ D 8_ : Z 8[@@ 8` Z 8\: 8` 8`@@8i : Z 8\"& . . 8\$ 8N 8_$ 8M.
8S.
"
8N.
0
8`D08i3: 8U9 5O 8` 8i 8_ D8i 8\. 8^ 8T/Z 7 8^" 4f 5L` 8U 8]"$ . 8[ @ 8Y` 8Y @ 8` " 5fb 8` : Z 8a 8i3: 8`9 5c + 5g(11F12.5) 8[. 8U 8^/Z 7 8U" 4d 5K 8_3: 8T9 5 !$@3d 8V+ 5n+ 8I@@ 8^ : Z 8_: 8^ 8^ 14D 5p " 5tb 8V + 5}('1', T20,'PRINTOUT OF STANDARD DEVIATIONS OF AN OBSERVATION FOR PROBLEM' 2X,A4) " 5.b : Z 8[ . 8X1: 9 5~ " 55b 8^ 8^(
0n 8V 8U " 5Eb : Z 8[ 9)1: 9 6 " 8L 8V 8^ 0^ 8] D 8_ : Z 8[@@ 8` Z 8\: 8` 8`@@8i : Z 8\"& . . 8\$ 8P 8_$ 8O.
8S.
"
8P.
0
8`D08i3: 8U9 6 8` 8i 8_ D8i 8` $8iXD 6 -\ @)4 6 @8i 8\. 8^ 8T/Z 7 8^" 4d 6` 8U 8]"$ . 8[ @ 8Y` 8Y @ 8` " 5fb 8` : Z 8a 8i3: 8`9 6* 8[. 8U 8^/Z 7 8U" 4d 6 8_3: 8T9 5o $ D 8a 8U4d 70 $ $ 8T & . F 8b 8T& 8W D 8b 8UX@ 6: " 6=b 8V 8b 8b 8T 8a + 6B('PROBLM' A4,T13,I3,I5,I3,T69,I2,' 1') + 6D('(16A4)',T80,'5') 8UX@ 6F " 6Bb ` 8W @ 8c" 8L 8V 8c 8V D 8c!$ 3d 8c+ 6M 8M D 8c 8b$ 8W D 8d : Z 8[@@ 8d : Z 8\: 8d 8d 14D 6Q 8d 0^ 8c D 8e 8c 8d 0^ D 8e 8\@@8i 8\@@8y : Z 8`"& . 8[. $ 8N 8\$ 8M.
8S.
"
8N.
0
8\D08i"& . 8[. $ 8P 8\$ 8O.
8S.
"
8P.
0
8\D08y3: 8W9 6Z 8\ 8i 8e D8i 8\ 8y 8e D 8Y-\ @)4 8Y @8y 8\ 8i8y D9 8\ 8i8y D9 8\3: 8T9 6P"$ . 8[` 8W @ 8` 8UX@ 6x " 6b 8` : Z 8\ 9 8i 93: 8T9 6z + 7 (16A4) 8[. 8W 8d/Z 7 8W" 4d 6O@@ 8` : Z 8_: 8` 8` 14D 7 $ $ 8_"& . F 8f $ . 8f D 8f $ . 8f D 8g 8UX@ 7 " 7b + 7('SELECT2003001-1' T80,'3') 8UX@ 7 " 7b : Z 8[ . 8X1: 9 7 + 7(2X,18A4,T80,'2') 8UX@ 7 " 7 b 8` 8`(
0n + 7%(T16,'VARIABLE NUMBER' I5,5X,'NAME' A6,T80,'2') 8UX@ 7' " 7)b 8f 8f 8g + 7/('CRSVAR' I3,'-',T16,I3,'*',T25,I3,'+',T80,'3') 8_3: 8T9 7 8Y4d 8? 8T& 8Y D 8g " 75b 8Y 8g + 7F('1 THE FOLLOWING ARE SUMMARY STATISTICS BASED ON THE AVERAGES.'/5X,'THE AVERAGES WERE SPLIT INTO' I5,2X,'GROUPS WITH ABOUT' I5,2X,'VALUES IN EACH GROUP') @@ 8` : Z 8[ : Z 8\@@h9L@@h9[@@h9.@@h9=3: 8Y9 7H: 8` 8` 14d 7K : Z 8\"$ . $ 8T& 8Y ( . H 8h 8T$ & 8Y D 8h 8h Z 8\ $ 8N 8[$ 8M.
8S.
"
8N.
0
8\D09L $ 8N 8[$ 8M H 8Y.
8S.
"
8N.
0 0
8\D09[ $ 8P 8[$ 8O.
8S.
"
8P.
$0 XD 7h-\ @e4 7h @ 8i 8i 8\D9. 8i 8i 8\D9=3: 8h9 7T $ / 8h. 8h` @ 8i 8i 8` 0^ 8\ 9L F 9L!$} 8i 8` 0^
8\ (9[ (9L 8i "F 8Y-\ A4 8Y @ 8Z-\ @)4 8Z @(9[!$} 8i 8\ 9. 8i 9= "F 8Y-\ A4 8Y @ 8Z-\ @)4 8Z@ @ 8Z-\ @@4 8Z @ 9=" 8L 8V D 8Y-\ @)4 8Y 8` 0^ @ 8Z 8\ 9.F 8i F 8Z-\ @@4 8Z 8Z @ 9. 8\3: 8Y9 7N " 8&b 8` 8`(
0n " 8*b : Z 8\ 9L3: 8Y9 8 " 8.b : Z 8\ 9[3: 8Y9 8 " 83b : Z 8\ 9.3: 8Y9 8 " 87b : Z 8\ 9=3: 8Y9 8# + 8*('0SUMMARY FOR CHANNEL',I4,2X,A8) + 8.(' PARTIAL MEANS',(T30,10F10.3)) + 83(' STD DEV OF EACH MEAN',(T30,10F10.3)) + 87(' PARTIAL STD DEVS',(T30,10F10.3))+ 8;(' SCALE FOR STD DEV',(T30,10F10.3)) 8[3: 8T9 7G " 8>b + 8?('1')+ 8I4 Z 8Q \ 8R 8R, p , p ,!p ,!p ,!p ,!p ,!p ,!p ,!p ,!p ,!p , p ,!p + 4Y 8Q 8R\ 8Y/ ,Ap -|p 0 % B Y09j@@ <$ $ 3D /}g O & 3F /}g O A 4$ <
0]4D : $ 2D /}+ 9t " ;rb /} /}3D 0O+ : : Z <& 0O & $ 3D0N+ :3: 0]9 9v: 0] $ $ 0] /| F0N $ $ 0] 0O F0N $ $ 0] 1/ F0O+ : $ $ <& /| F0N $ $ <& 1/ F0O : Z <& /} & $ 3D0N+ :3: 0]9 :: 0] $ $ 0] /} F0N@@ /|@@ 1/+ : & $ <& 0N D /| & $ <& 0O D 1/+ : /} D 0O: 0] 1/2d <!+ ;Q <%3D 0]+ ;R /|5d : " :b 0^ /} + :)(1H1//T40,'HEALTH SCIENCES COMPUTING FACILITY'/T40,34(1H-)///T20,'POSITIONING FOR INPUT FOR PROBLEM NAMED',A5,' ON UNIT', I5/T60,'----'////) <"5$ :E " :,b <" + :E(' A NEGATIVE VALUE OF TSTART=',F12.2,' THIS IS NOT ALLOWEDIN BCD/BINARY POSITIONING'/' RECOMMENDATION--POSITION ON AN EARLIER PULSE AND USE A POSITIVE TSTART'/' FOR THE TIME BEING, TSTART WILL BE SET EQUAL TO ZERO AND THE JOB WILL CONTINUE') @@ <" <$5$ :J " :Jb <# 0^ <# <! <" + :Z(' POSITIONING ON CHANNEL',I5,' USING A CUTOFF POINT OF',F12.3,' AND A MINIMUM LENGTH OF',I4,' SCANS.'/' POSITION ON PULSE', I3,', TSTART=',F12.3) <"1d g O 1/2F <!g O A 4$ ; $ D <& $ 2D /}+ :j /}X@ :e " /~Q" Q ;(X@ ? ;=X@ ?B : Z <' <&( . < 3: <!9 :f $ 2D /}+ :t /}X@ :o ;(X@ ? ;=X@ ?@ : Z <' <&( . < 3: <!9 :p : /| 0^ <&( . <#3$< g O 0^1& g O A 4$ :_ 0^ <&( . <#2$< g O 0^0& g O A 4$ :_ <&2$ <#+ ;: <&+ :`: 1/-\ A4 /| <" @ <' " ; b 1/ /| <' + ;(' PULSE',I5,', LEADING EDGE DETECTED AFTER READING',I6, ' SCANS(',F12.3,' SECONDS)') 1/3$ <!+ :_ <" <"$} @ @ <( <(5d ;+ < $ 3D /}+ ; : Z <&: /| /}X@ ; ;(X@ ? ;=X@ ?@ 3: <(9 ;+ < : Z <&: /| /}X@ ;& " /~Q" Q ;(X@ ? ;=X@ ?B 3: <(9 ;!+ < " ;+b~ /} 1/ /| + ;<(' AN I/O ERROR DETECTED ON INPUT TAPE ON LOGICAL UNIT', I4,' DURING OR AFTER DETECTION ON PULSE',I3,'. ',F12.2,' SCANS INTO TAPE'/' JOB WILL BE TERMINATED') $ D <$+ < " ;@b~ /} 1/ /| + ;P(' END OF FILE DETECTED ON INPUT TAPE ON LOGICAL UNIT',I4,' DURING OR AFTER DETECTION ON PULSE',I3,'. ',F12.2,' SCANS INTOTAPE'//' JOB WILL CONTINUE') O@ <$+ < <!4$ ; $ 3D /}+ <
<%3D 0]+ ;X " ;Xb /} 1/ <! + ;r(' INCONGRUENCY FOUND--FOR INPUT TAPE ON UNIT',I3, /' COLS. 72-73 SPECIFY NO REWIND ON PARAM CARD, YET PSTART IS LESSTHAN THE CURRENT POSITION ON TAPE'/10X,'CURRENT PULSE COUNT=',I4,3X,'PSTART=',I4/10X,'THIS IS A WARNING, THE TAPE WILL BE REWOUND') + ;|(' WARNING--THE INPUT TAPE IS ON UNIT',I3,' WHICH IS THE UNIT USED BY THIS PROGRAM FOR CONVERSION') @@ /|@@ 1/ /}X@ ;~ + : " <b <! + <
(' ERROR PSTART=',I5,' A NEGATIVE PSTART IS NOT ACCEPTABLE, JOB TERMINATED') + ;<@@ 1/@@ /|+ : " <b /} + <(' ERROR IN CALL TO FPULSE, KTYPE=',I3/' JOB IS TERMINATED')+ ;<+ < 4 Z < \ < < ,!p ,!p ,!p ,!p ,!p ,!p ,!p ,!p + 9j < < \ <$,Ap / ,Ap -|p x<%YES =H 4 O@ >0+ =K4 @@ >0O "$ D >0 $ : INX |H=N+ =c
=i6@ >0 J =i
=hkJ =kZ =i+ =c J =kz =i+ >,
z@ + =c #p & >
3L=l+ =_7@=l /& 5f =X7 + =c@@ =l: =l L =l
PL=l+ =bR d. R=ld$ 2N + =Z: =l: kN
y1kN
y CB` x=kx =lH>,Z =j0B + =c d
:` >0+ =c+ =Sx>04 }X>1+\ ?7@ ?< ? 0< 0| + 1\ + >?,>p>0Z p>0+ p @ h>b@ p>b@(>|@0?@ x>i@ >i@8?@(>v@ P? @ P?@ h>b@>G@ >G@>b@>bnP>u[ (/< 0"` S<p X< 0 p 3@ ? + >F*| >B-< ?,wx>DZ` >1+ >u! @w+ >C< ? p 7 p + >b,> ,> ,> &w p , >],& .< 7@p + >[ p , >]" ? ?.< p ` ?! w,& ,& 5 >M.< p d ?!: ." Q ,& p ,& >` 9 >X.< 9 >M@@ ,^ ,^ ,^ + >bd @ @ & 0b ." ." )B}5@ >^,~ m< !< P\ ?< ? p [ p l< 0@X + >hZ p .< / p Q \ ?+ >k@@ ?!< P\ ?7@ ?+ >n < ? \ ?@@ ?!< P\ ?X X\ ? ?"7@ ?D<7@ ?A< \ ? < ?[`x ?, x ,^x ?+ >1 >1Q< \ ?: >1 \ ?< ?" p?| ?# < \ ?@@ ?+ >r@@ ? Q< \ ?< ?" p?| ?#+ >r7 ?% ?& \ ? @ ?X Q< \ ? ?' \ ?+ >r~x?[`x ?, x + ?
& ?'U` eB + ? @ )@ G
" + ?
& ?++ ?P6$ 1 ,> A . @
p .4 6$ q8?
.
.4 ?. ?SEQIN}0?$ @ ?$SEQOUT @ ?%@ ?
%5 Source level error at user's loc
` Z (X^ . > S.~ (3~ + ?0 ~ + ?<Z . \x <x *<x .-> A"ez+ ?7!" b + " ?9 b + Z . h + gg M?} ?;
& ?> b + ?,,
?NO CORE AVAILABLE - CAN NOT PROCEED
x ?Ba.3@1 ,> A O@ @ + ?GgR~@1 ,> A @@ @ ,> ,> @ 6 w+ ?S" @0B + ?O!"A`X#p 5@ ?L/#p !" X#p + ?S\p + ?Sa.9'1 ,> A ,> ,> O@ @ + ?S,>
6 + _ 4` ?\"` Q@ ,> < @, ,^ ,> < @,
,^ *b ?Y+ ?f,> < @, ,^ 7@ @ + ?a,> < @ ,
,^ + ?c,> < @ ,
,^ Z 5" ?f,> < @
,
,^ , 7@ @ ,
,> < @, ,^ , ,> < @, ,^ ,> < @,
,^ (@qd 1@ ,,
1@ #+ ?u0@ *+ ?g,> < @, ,^ + ?g,^ ,^ ,^ ,~ (' Type G to Continue, X to Exit, T To trace.'/2H *,$) (A1) (1H 14A5/)(1H A5,1X,O6) PAUSESTOP h@ .p X `@ ?} p p@X `@ ?~ p ?p@
p @ p@ p p@ ~P@ ?| p x {0@C6Md 1 ,> A , @!,~ [&r 1 ,> A , @!,~ [&r 1 ,> A , @!@ ,~ C6Md 1 ,> A , @!` ,~ ,> e|P w+ @#2ap p *| @#a|+ @' p h" ab~ + @#,^ ,~ gG@ 1 ,> A 7cp + @7 )@ / @( X@ @4(B{4 @5B ? B @; "P" @; B @; @ ,~ B @ B @; ""X+ @04B @:+P ?=0
@;#p + @+ ,~ {x@;attempt to take SQRT of negative arg Kc 1 ,> A p 3" @[+ @E3b @[+ @G+D ?=0
@DU ,~ +D ?=0@F ,~ D @\ F @]@@ @\%" j" % @Z)/;` : XD @V5f @NaF + @N.& @(|h& f @\ @X @Y @Y @\ @X D @Z@ @\ @],~ !t0 _' "S'qf!um. .#Y% !v yO^ RX@]C2|t(1 ,> A p 4@ @u @ @d,> < @}, @e,^ @c,~ {e^b}@dC2|p 1 ,> A p 5` @i4@ @u+P ?=0@~#p 3@ @x+ @w) r. !@ @|! n@ @|(|h" @x @y B @| @y @z @z @| @| @{,~ +D ?=0
@v @{,~ ,~ 0 _i/X3 6P'M 5( bB W
R `@ 8@|x @dATTEMPT TO TAKE LOG OF NEGATIVE ARG}XAM2| 1 ,> A p + AM3!d ` ,~ CQ` 1 ,> A D A$ A/$ D A"%p #p ."Q @@ A @ .< $p .D A p /p $ *b A
A7@ A( D @ A,~ }@A0
p C 1 ,> A #p ,~ S0 1 ,> A #p +" A ,~ U ,~ KbN@ 1 ,> A ,
,~ A Y\ A!Q< X\ A"* + !$h X$h @@h *% " A* Bh L " Bh M+ x eX2G iSH YC aS iSH ~A*INX 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 xA8iSH + >