Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-01 - 43,50126/alg634.shr
There are no other files named alg634.shr in the archive.
+x<xNC2:dj++++o+++\+i+++
+&+C+	/+	1+++	6+	B+	M+	+	M+
+
+!+#+
%+*+
7+
;+
I+
I+0+C+E	`[(Zp1((B8.8 PpU *`!l8  * 6@l8 X. >`h $-XD( $x3d+&	d+.S$X$@@*%SH F`S" B7*H." B`.&/(Q&  FP BO@` \`
X"`KPB`ZpZ[<d<@@<D<S X .$* Z5@7 p D`	d D`	`	 @` "	b B`%(" B`S wX ` @` 0 @`S hX ` @  R @*  0$	`  C @*4<,E0 :`,p<@ X 3 @`= @`= ",
+ R "i,  	`/@`	`	/`	b/`4BX$4. @`,
""	b+[7 	b,]	b+\ (@{. ,0 "k, `,u "n, `,u "p,  `/`,0 "s, `,0,+

End of execution.
K core

Execution time:
elapsed time:  
maximum heap size: , stack-shifts: . & & 84@},>& 4@{,>,0 ",,^ ,0 ",,^ Q 6 H $ & (,* "+ hrs. mins. secs.
,"g"$*`Q"A`7 d" 4V
+  D`,~
"+""*`,1V+060v1V`,~ "%, "(,,1@#+J1@*+$0@ 1@$+> "+,+ +l8+
ALGOL diagnostic system

Facilities (H for Help)? 
Facilities:

G	Start program
H	Help
T	dynamic Trace print
%ALGNTL No trace list entries


 ALGOL post-mortem trace


Profile Print.

Count	Name
-----	----

0@ +Ad8 "4+lx7: ";+ @`S X `* `
,
+ F@@` "%,, "],,1@!+U1@(+[1@*+Z1@)+\1@#+M1@-7B+S*`S `X *  `Z``+` "_,+G6@`+XS `X *  `+, "m,+H,Z+G,u+G,]+GAction (H for Help)? 
Actions:


C	Continue
F	Finish (terminates I/O)
H	Help (this message)
P	Profile print
S	Statistics print
T	Trace print

Can't continue after this error

D!@D!@ I$@p @
0D  @g "ZxZ0f`0fx+/&`Q& Fx:`K.@x,>pZp+@
@P/:`,>,>0R
p,>  :x[
`h[.(`<* ,> 9 (h/(`l(,>[A*~(J{S
,q[
pA,~(L{5J&S
4qA
4q(j(N7J4T+',>Z
p.>/ 
1jx@( *x/
Q>( /6`,>*v/,>*v0 Vo"S6XX6p.$p.&Q4B5 Aw*V\Z X.(hR@l)**
)*(*A*[ZA2(RxA.~(N{1L0P+@4J@ 0 ,S
4qA
<q(mDBN+LO+L++Lz+L+L]+L+'+'+LA@4dY@4|[@5g@5Do@4dY@5d{@6@64@6d@4dY@7@9dNQ'''1J+]0J1N+V[
o~.,`.07L<G+'`h@!
+0l$ D l$ D 9548d 
^ 
_ J  L +f,_,bZx %  -<,~-<> G,~l$. D  
A J  D 95 
j 
j J  L  D 95,k,nZx %  -<,~-<C G,~48x 
r 
s J  L +z,s,vZx %  -<,~-<4 G,~l$, D  
A J  D 95 
~ 
~ J  L  D 95,,Zx %   ",~-<N G,~ 
 
 J  L  D 95,,
Zx %  .$ /$-<#,~-<9 % F H,~ 
 
 J  L  D 95,,Zx %  .$ /$-<,,~ % @@@,~5xl$  D l$( D 95 
 
 J  L  D 95, ,$Zx %  .$ /$,~ % @ B,~  @ 95 -< @ 95 -< @  B 95 -< @ 95  @ @@ 95 %  -<# @ 95 %  -<, @ 95 %   @  B 95 %  ,>/(`,>,> $` @ B B5@B,^,^.$`,^@+L*B (&((,>&  4BE. ,	/,^,^,^.$`,^ ( .*x,> /"` Bo ` `-<%95 
C J ZD Z
o~SJ 95Zx =7Dp,~/<`S$pX$,~@4l@5@5$@5L@4l@5l@6@ad@6|@4l@7,@9d[A".o~."`.7L<U+'ah@+m7
 *C!
,>,>/(`,>,> "h/:`,>Z~.:`+A,^.:`,^,^.(`,^,^+0Q D  
0 
0 J  L 95   % /:`,>[.:`.<```+x+@p,^.:`,~+Bp,^.:`,^,~7x  ' /:`,>[.:`.<`+@p,^.:`,~,,z,p,~,,,p-<,~,>-<,{,^,~,	,
,p-<,~,>,>-<#,{,^,^,~,,,p-<,~,>-<,{,^,~,,,p ",~,>,>-<,,{,^,^,~,,,p-<#,~,>-<,{,^,~,, ,p-<,,~,> ",{,^,~@L$1@LD:@Lt<@M,O@M\Q@M|S@6U@64W@6dY@L$1@7Y-'''7L<#+'`h@!
`J+0+07Z"  @  
5 
6 J  L 95,6RZx ``R % ,~7Z" -<+2+FZ @M @  
A 
A J  L 95,BRZx ``R %  ",~ -<4B> D  
J 
J J  L ,KRZx ``R % -<,~7!" -<+27!" +27!" +>  -<#+2  -<,+2 D  
\ 
]AJ.L 95,]RZx ``R %Z  ,~7Z" B 957Z" -< @ 957Z" -< @  B 957!" -< @ 957!" B 957!" B @@ 95@P,6@P(@P(@P(@P,6@P(@P(@P(@P,6@P,6@P,6''|'1J+[
o~.,`.0Z
<r`h@[
<r5L0+' #,>,>,> ,>,>."*b[D"`"&* ) -<,^ #/$,C,^,^,^*x,>95''0J+[
o~.,(.,`.0Q$\+Q$ap4R* D 0N7
D 
D J  
o~ J 95Zx %Z .0f`0fx+ /&`Q& Fx /&`,>Q,>0,> &x,>."=`$,>E+,^5D',^.:`,^+`h@+< D R
d,`l,X
o~ L  
E J 95Zx ``R0d`0dx+4/$`Q$ Dx % /&`,>,> QX ,>,>F+/F,^.:`,^+,>/(`,>,> / `,>Zo~.:`,>d(`l(X(,>,>G+/F,^.:`,^,^.(`,^ @  B 95,>Z #0d`0d+N/$`Q$ D,^/:`,>Z.:`,>,>G+/H,^.:`,^+@4di@4|l@5o@5Dr@4di@5du@6x@aT{@6d@4di@7_'''7L<T+'`h@+Qo~+m ,> #x /:`,>[.:`,,^.:`,^`b,^,~,j @,b ,~,m,b,b -<,~,p,n,b -<,~,s,v,b -<,~,v,,b  ",~,y,
,b  -<#,~,|,,b  -<,,~,,$,b  ,~[
,>,>/(`,>,> 
/*`,>Zo~.:`,,^.:`,^,^.(`,^,^1,Qd$+0  -<, @ 95@4l'@5'@5$)@5L+@4l'@5l-@6/@ad1@6|'@4l'@7,3@9d5'''7L<+'`h@+bQo~ D  
H J  
0 J 957x  ``R % /:`,>[.:`,,^.:`,~,,(, -<,~,*, -<,~,,, -<,~,.,  ",~,0, -<#,~,2, -<,,~,4,  $,~,6Zx = p/:`,>[.:`,p,^.:`Zx =w Dp`D`d,~/<`S$pX$,~@jD@j$H@j4LC''' 
<@+`,E,G,b ,~`,~,I,K,b -<,~-<>f,~,M,O,b -<,~-<Cf,~ +& +( +*-<e-<^-<_-<`-<e-<a-<c-<d-<e-<e-<e-<e,L[ :h+p 6+e 6+e 6+e-6e "+ 6#+e 6,+e 6n  ,^>`K,^4"i,	/+g >o}Zo~.:` "x/Q> p p,^ $+X+Zp.6`  1Vh+yZo,^>`K<4Tv,^4"r,	/+s7o~+s:`K.:` o.>`+p[p(V}ZoXVo/4X4Tp,^>`K,^4",	/+}=t|,> /"` Bo+p[.$` [.:` Zp.6` 9p:o:`K,>o / ` @o+p>o>`K,^o  ,^4",	/+
,>+pg 2"Q$S& ("X&x/&X5R>S @j .# ``Hp# ``Hp  / 9`Fp 
%
5L`nHp.
.(*hab.
`jHp+E.6 
 (/(.( /(X"8.**j*`b+4( //+4 .0  
(/
(., /(.**j0`b+0//(
 NX..0.60V@+0$(0`j+*.6  B F.$*d"5RT `.>g "x/Q>5RpZ*x,> /"` Bo+p7H+ 
(2@0+(2@++.*.(*h?/>X+85RF$*@.*XJ`V`B`ab@/$`D`/&`F``,	1`.&`Q(X&P`.6'*(X ` `ab@.$`4R",>0,>0\$+" `7@+Y $,C 2 `Z  ,	/ `,^,^.$*D7 D`+J F` H`  / &x/Q> &x 2(2hLp.."*Bf<@iX9a=@iad. ` `+pJp,>,>@|d"p,>,>d&p,>"I&I1B+w~?  "? x &2B+v7 6 x+o/J,~2"9u=u"$&$ <6` ~ &6`x 2\+.Dx.D:~:7`x6`+x+u"I1B+2<9u=u7` J7`x J3\+6`x7`+@@b> ~> x4D
A*`(J} &&&(*&$X.$3d+!Z&0d jjI$* (/((hK ` 
`+pe"l" 
l* JpB4P/P H 
 d"`+.
=n,L<Pp=",[@@+p,^,^3@+?,>4@5ab+5Z@,	/ `d+?$K "&" d `& 6@. 4@?,>,	/,^.$QXB*",^,^l"d",^cBL@+pS<p  R
X*x  
3,  
  2.   3.+U,>,>.&.(*hFR
X,x ,>8..*nN  [A.~(N{S<q[A0~(P{ADq(nV[ ,~(050X7D]!D] ZZ.8.8*N@ H P+ZA
cA
LfA
gA
TUA
TaA
PH@P+qH-<+bH-<+oH-<+bH"+o.?HH-<#+b.?	HH-<,+b.?HH.?	@PBP	20:?3tO+XO	T?/21rX+U=q,>4	#4@	.\&[/4"~5B|*R`+	.0"+~	&Q&*dx6D+x5&	,>`,^S@+	.!ZS@.`PDZD+	.d8@[./"7F+	0@+	
.$**,~@`,
!1V+	9[`-<
0606+	>``f(@. h+0	<9	94B	8,~" *`,	B @`,~ L &.6-<!=F	C,~/0`S4\pM+@+	K MpM+@@:x+	L7@H+	I.0`,~gS0Y` 6@.0`7R@X`r ,~`r+	e5r	u`r+	ZarXar+	War@X,	E+	Yl2  R@,~l2 R@5p	] H:x,~H?@H+	bar@+	\ H5T	\`H>@H+	,	E+	\l2  R@+	\`r+	p`r+	i,	E+	o 6
(V060v02(+	n9	k R`L @l2 R@40	[H?@H+	t H5T	\d2 R@+	\40	[H>@H+	\+	c/0`S4^pM+@+	} NpM+@@:x+	~7@H+	|.0`,~gS0X` 4@.0`7R@P`r,~5r
`r.2`r+
arPar+
	arP`r,
,	x+
l2 R@Z`,~l2PR@40
VH?@H+
:x,~`r+
,	x+
l2PR@+
 6V`M
&`WS4A`X4`W T`M 4) T`N+
40
VH>@H+
l2 R@+
 6? H+
VH+
,	M
X+p-<
0V1V+
!060v,~+
![`."` ab@+@`@fQD$,
!1V+
,0V+
-l$ -<
0606+
K`d+
Cl$[
X+p $"+0
4."_h+0
4+
,G$     
%*$ *
.l"."_heb. ``~+
<5$
,=
,l$  16+
Cl"."eb. a`~+
C).(4$
,9
, $"."_hab~+
;l$ 16+
C."ab~+
C(9
C0V+
Qld+ <
,`D+pab~mG$  +p0V1V +
\0V"1V"+
_0V1V+ad+ 
 
Z
X+pA&
ZA(D
wA&\ `d "+-<
0V1V +
_,
!+
_,
!-<
Mad " 
 
@`1V+
e0V+
fm$l$-<
0606+
m`d+
l$@% 5@
e*l . _he`+
e+
e0V1V+0V1V +0V"1V"+0Vad@+`d+ad"/0f+aD`d+ 4@l 6 @ `d "4F#1h+5&k4@/(+
|4&$X+"+$X+[`@[`@5J4L`j+)
=.(_hN48(L|4L
/(
g
hO`d *+`d *4F#1h+5& 0-<
.4J/(+ 4&-<
(++-<
.+  &OA$,^+@+p4F4F#,	M
X 0D,~,	M
X ,~7P 6,	
X+p,

X+p 6dd 6+! 6`d+!.8=L)l$9!Z
`.*` 
(aj@+
%5F;5H;+@.+; & ( ( &@d5 3l$"+0Q *& ,>4@59
3`d:x2*+8-<!=6-<$,^.6-<!=J9,~ 65dE4H14F@,1-<  6=(!,~5 Bl$"+0R2 S+D-<+H-<l$ +^=dY +"T5 Hl$"4@S 
2 X+Nl$2 X+U3 U+T!*
S6m2*\Y*vN46R4$TkY9UA64$T\Y9U 6\X" *4@x.Ud ~(?D+0V+x48\ 5 ^l$ +^5 ^l$ l$@*U1*
 
3@l3"2 l+il$ 48e 3@l3"2 l+s3*U+q! S6m2 \m*vj46n4$q 0-<
. 0-<
.9sA64$q 0X-<
.9s 6 -<
(+r"   *	48v/*(B.Ud ~)?D+0X , 4F{.
=,{ ,0l( ,( 
,> .0`d +
% ,> =N~+
 %0  %2l4.et.2 ,>=N
 0 @14+
:@0T+
@@@=
	 .(6@89
.. 4F
5`
4$
 <
3 =!-<$-<&=@&4H
-< -<&=H& ,~-<!=F
-<$ 6-<!4H
-< 9`
 6-<!=H
+
-<$-<&-< -<&=H&<@
" 6-<!dd@+
 & +1 &dd@ & <
$=&!+
 -<!0D,~ -<!,~48
3 D+2p
Dl+2p
*Dl+"p
*+p48
5*Dl"D+2
0
Dl*+p Dl DJ+"p+p Dl Dj+p4"
: $.$`6DadQB`,~4"
>+$.$`6DadXB`,~`1A@0@@`!@A@@@@@0`1AB@D1AP1	`!@AD!@AP!@	P1@m$l$ (.(`  3HZ,
MaB+
_,>,>,>  ,	/,^,^.$`,^ F 'RQ"`h+
Wa`^Q"
[dp(H}0Hl"@  @ d ` @5`
]l" B ",~ @` 	f4F
jLA`f`h+
jZ0(+
k *(J A
4J
kR
d*:(j
laf+
j ,+
}oZn[d",~`f,+
paf+
}`f.,+
}`d.,af +
}7F`+[`d!`f+
j* .`dh,p N adQB``dXB`7F4
?+
j1(l&@`H`	`5@``l&[.*`	j+ B` F`,	/ `X `[Z
Q*`d+
S
add**
`S,PX,`f]*+@+
jQ`.+H(Zad++O@( ",~ `1B R``!1B Z`` (.(`7F ,~3FZ+
+@@af+++D`,F`Z:,	/.`7`.`7`:xaf,~af+ H0,J0`lB+ 6F1$+/$[/ 4 /p4 QDQD5d
@@4@@ p.pS@`x 7` `:,v+@[. 0@`+7@@@QDQD p.p/"``+@ p*b6B+ `mx ++ "+A/$4dQDQD7@@. S@+@6D`+#  ,	1 $Q$| D` p,v+@ p   pSD: `,v+@7F`+@@`*4B,RB ",	/*f)7F+@*` ",	/ `+) p,	/ Cp+@ p  ,	/+@ "`7@+80b`=5 "+AO@/"`+@ p."`@@+@ `+@ ` Cp ` Cp ` Cp+@ Cp@Ap7 Cp!&`*&,~ax,M+p`x+K,>,>,>:`K ~,M>`K,^,^,^:x,~ <o~`x,~6F`J+QZ`J,	1S`J"X7Dp+U1d`:*fT/`JQ`K D F`J4DVax,~"$*`,b,
+ Y D`,~d86F`J+] "2+ "6,"$*`,a3F`J+X+_*fb/`J7B,~,r[(@& 4@i,>,>,>,0,^,^,^`x7_ 6,	+ k=biZ.`4Vp.6,	+ o+m 6,	+ q,~ 6,	+ s 6,	+ u,~7@`J+\ "9, .0",*
`,>3N`+[80@kh1@ax+}9yZ80@1@+0@1@+9y7L89y 0,0 6,	+  "0Q"A@,m,r9y,
+ ,^`,~ @` B`"`0"++
qu 
 aQ.5b7 *` ` @`S X `* `
 ` `[A$.$`7B*+6 `+f, "a,6 `+ "+, ",,Z[d0@=b$Zo}/"[A p0@ap=b",	?,,>7@o~+07Fo~+) "@,<+* "B, o~.:`7@o~+07Fo~+.,<+* "G,+*7b "K,,^Z`,[d0@+`Z."` `7F+P@
ah+Taf7
 
`fS*M+R "E,Z.`"$*`,m D`,~
In procedure 
In un-traced procedure
Called from procedure 
Called from un-traced procedure
Called from main program

In main program

*a=jY 
` ", "b,`fah+Y 
 ", "c,R
 ",ah@+][d@(B}." , "c,^""*`,0*`,@@.""	b+c4"d,Z+MZ` B,+HZ[ &.& ' 6 .&."3H=Di5Dm o.>`9p, "a,  ,,+Z	`+t ` `+` +Z. x3`+x	`+t ` ` X`d8 F` &`*&`:`  xZQ". $x/Q>S$`.8X$`0 `+	*$xZ..@`L.@`M.@`.@.@..@.X `_X@`!&`*&P`+` $xQ$/$!/ &x * //&18+
 "`/"Q".*$+<!L(@2@
4@8@<@$A@,D@4G@<J@DO@LT@TZ@\_@d_@lc@te@|h@l@
nqs@$v@,x@4{@<~@D((&
$8
,040<"0D&0L*0T-0\1d4l6:
<?B$F,I@4NFATAL RUN-TIME ERROR AT ADDRESS ?DUMP ROUTINE NOT LOADED
ILLEGAL UUOMORE CORE REQUIRED TO START PROGRAMMORE CORE REQUIRED TO CONTINUE PROGRAMLOWER BOUND > UPPER BOUND IN ARRAY DECLARATIONARRAY TOO LARGE FOR A PDP-10WRONG NUMBER OF ARRAY SUBSCRIPTSARRAY SUBSCRIPT OUT OF RANGEINVALID ACTUAL PARAMETER IN PROCEDURE CALLWRONG NUMBER OF ACTUAL PARAMETERS IN PROCEDURE CALLEXPRESSION-TYPE ACTUAL PARAMETER USED ON LHS OF ASSIGNMENTATTEMPT TO DELETE NON-EXISTENT BYTE STRINGBYTESIZE CONFLICTION IN STRING COMPAREILLEGAL BYTE SIZEBYTE SUBSCRIPT OUT OF RANGEATTEMPT TO MODIFY STRING CONSTANTSOURCE LEVEL ERRORJUMP TO NON-EXISTENT LABELFLOATING POINT OVERFLOWFIXED POINT OVERFLOWILLEGAL INSTRUCTION?ALGIMR ILLEGAL MEMORY REFERENCEUNTRAPPED CLOCK INTERRUPTTRAP LABEL OUT OF SCOPEOVERLAYS NOT IMPLEMENTEDInput or output device  unavailable onIllegal mode for input or output device  onInput or output on undefinedAttempt to read or write on directory device  without file open, onFile  not available or rename failure onAttempt to read or write over end-of-file on Error condition on input or output on Illegal character in numeric data on Overflow in numeric input data on Error condition on closing file Illegal input-output operation on Out of range I-OAttempt to use overlay handler's SQRT ARGUMENT NEGATIVELN ARGUMENT ZERO OR NEGATIVEEXP ARGUMENT TOO LARGEINVERSE MATHS FUNCTION ARGUMENT OUT OF RANGETAN ARGUMENT TOO LARGEMonitor call (GETTAB) to get date/time failedF10 subprogram moved the ALGOL stack B` +eb +wd"@ B+ D` F` [(F{0FW+[ ` ` D` ` `+V[+(B}0B
l+h:+[(B}A" ` `1B "` B` _({jdm"~d"~3$eg( ` C` `++[(B}A"5xk1f% &1F-gA&Ps^s5&p .$efe*`*` `+@`+@`++@@`@@0@@@@`@@`0@@ab@+}  B`(BtA"{0B
h+| `+` `e+ab+  B`(Bt0B
l+ `+` `g+ +aB0+
6 ?+Z+A"1Bb2b+[A"~0B+ + `k+`B+ `m+ 0bx+."*`A` B` "x/Q> `++ "/,+`48& 4@h Fh"6+`+& 4@h Fh"6 5yd"~(B+48" % *j"(.+@+48&  f +'f[(D{A$d ~5 *hl ~48+(B)2+48.+5 / e"l"ab+33@gd. l 4#"+488 &&4F7h&Xh(6+pf+p &&4F;h&Xh(6&48pd(~(H+p48B &%&*j(('.+pF+p48G   
&f&+I  f[
(J{A*d&~5&Lh
l&~48M(H)/2+p48P+p  5&S&e(l(ah+V3Fgd.&l&4(p"+p9Lf3 0!!y" #SD$85%B &	4&wka']fY (RPd)7$]*
0uWG/1[35@Y4<o5EJE5tV}6Yl\<7Pyf84x9'9F{q:s\-6;XS8d<>h&}=3!.>	>:>~n?rg4e9Lf3 0!!y" #SD$85%B &	4&wka']fY (RPd)7$]*
0uWG/1[35@X4<o5EJE5tV}6Yl\<7Pye84x9'9F{q:s\-6;XS8d<>h&}=3!.>	>9>~n?rg4eLf3#0$*%@%qP&'Nb@(:;)$Dz*V@*w^P+r7+,v-.f;4.! /H4/gz0x|%1W.!2-j3"`$4\4r5Vax6V7;dAb8]R9ZC1Lf3 )# >E4v 		t,1.= $nV$>
+mLvh @
!3
i9tg1xJ0.6\B|3S\E@HS+8-3$6&8`-Cpy,:6+7IE65;$6d!5b
?ALGNSS ALGOL programs cannot be STARTed twice.

&(	`
&4	b+"+	[McXe>>(6,
Now (simulating) a KA10

Now (simulating) a KI10
7
Now simulating a KI10 on a KA - Good Luck!
0@0`,b,v`0,Q,,,I+',/+:+D+RR0~0      <0$
.
`@
`6$6$$
-/hl$ P+3! I+Hka  +S[>s6$3Lf V9x3Lf3Lf3 W X9x ,	+
{8J
j+
k....H6$.?N:. channel # 0s6$ ?