Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap1_198111 - decus/20-0002/rtran.exe
There is 1 other file named rtran.exe in the archive. Click here to see a list.
?p =  = ?hX?x " 
 
<++2	`(|~K>,dfe2,XH
`>\_
W00Z0`XP@68~h+1+1+11
,0STRING PDLSTRING SPACESYSTEM PDLSAI:T-6-SAISG8.EXE
H
	H
H
	H<SAIL>T-6-SAISG8.SAV
End of SAIL execution
SAIL segment loading error on segment:
\" S \"<+SOME FORTRAN ROUTINE HAS SEEN FIT TO COMPLAIN
ABOUT YOUR STYLE.  COMPLAIN TO DEC THAT THEIR ERROR MESSAGE
PROCEDURE IS NOT SUFFICIENTLY GENERAL TO ALLOW GRACEFUL INTERFACE
WITH SAIL.2{1@.7~|7@3HyG@DNpxNx
@K`N^~xnx\@\
x@B EO27HxOx`xASxF22669jg
@j`Q
_
SScm*u6u6X)R+PRB89889-ZG$Z@
hk
hf:2#]-(Io(Ig_&o}_&gu5$#l5$ P(U'H(U"D&G ^hLOx^hLA
hk
hf
hk
hd}]u]ktP>FtP:5\~S5\w8
'^A8
'[5i`5hyM\fOM\`mR-jHCfO+}	+}~ex
3-	P_gAZWr]ri5Y\{%
LMH[#	MOQMH
|27OtXO%n2XO%gXOU&Y0x:%S`_"	qIAKQk:U&S\U&A:,`_,`]9>+R\G<h	Wv]|r
?	n
?	eO	cmeFyYyxwv)u0tjHt<*osr
/jqpoP4jnM|$*|
{u6f^`f^ eRehxb	uBz5O*
5O`'@qJ.
7qJ*8YP
^8YPSOh6	{SOh06N"	6N
u	

uexVexWmRu^
OQu^
K/wlO8l
k49jVIihgf89[89bb]b\(Tg(T
{exVmeu^
N4u^
KdcZ@p=:a`
b	b
hfexUc#]2_
#]-]5$@exU^P(U"	]&G r:^I=w[\^hLA[r:^If3>H
<@
;@	:+vG9+#8Ke:	7>DD>CCT
9C>CB>BB>BA>AAH@a\@MN!MHS`~S`%@NS%@H0wi",0wi!rK^7rK^XG1;?SN:SN6%NJb%N?XNHYXNH[+H
]jn)"G<hbDw^:/w^Xw^5'w^N+w^g'
KyI(w]y8*w]y7w]m	&w]h.,w]BO.Kw]=NKw]=w]<{&Kw]<+Kw];Kw]:]
KwH(w]*w]!g
Kw0w]"-w]	+w],w]Gw]v*
Kuew]!+|@. `nv
_7Hu~J,Lz2GOwy
YMcG
P|tVRlM#M|
LCUVG`6
RuC0
^,,uu7~r@/9#	S*j?
&0_+1?t2
"am"U{
v$:;I1k
R,E, E
_IrG\T0LIH?
Br5'7V|WtK+^U
HM"qBS~+HMMO3]
m>r}'6F
n<OIT}z$>(@@*Yr6-;F|^1^}Ft{4)*U^gTrW^h*X
36yHJ<YFJ
FU;N
*eh
Mg3Y*X
*ci(2O.Hg"0tz"4U&{J'wd
@
r,I65
C~r=v\(I<;$5
K!?*NTiz@D4zhXd%k @w]Q J sw' .&`sw, 	KHY49j@W@YB Y@j`g
@P
/@4*X 'p+"c	K4d$7nwZ# ?vF (`rL`?|G z?V'Ob,s=qMJVF3N4Pc[tR+}K:SUVe
o
T%`pH/HpVL(B&z8u|(qU:/P(zC6UNLG%S>O5P
rj$'QA/W-6> PZL3S9	(W7:[Uq[yz6bGUU2jR];bvS^}yJPm"4yN[3rrszwxUHyO/V
6SNz9@eZq(gyJ826W-_+T;y@_.iBP>UUpO!T"8Uy[;L	yP7ro
2`S^}~k@T(Q(R804TgY*R
Y	
P8z13LCS_B@>(O
N\(q#9!QRF%:)P
R#GPocS_65P(P(@(
Qyz?GMhTAJRGUV`2H@P,NRgsq;TpCPP?ATYU:o(Prs2B
=#Kz%~yRPIRsP9n/(Qs6JPo'fu29,AW!z@4zhXUVEE.UMP6b(QV4cpe@sB`Z9t
1Is	aW':U4zc	Y(@**UVA[n#Qhr|H
Q`GEW2,W1ke9ybw	4d%k  @UNLC&V4cpc@R^X'WbUnKSTUMPI*PR U5TO	PUbG@UYi'6WD-*{Stdo=6bHu89(IUVS(ITjW
WE7)*E+s@
B/n

TPL>w]Q W)y^JRR}
]8]SX

6dWEW!(1P~_T(QJ4 J W7*wXPqCP78&s"^"qRS(yL#E[W'f{R_
GUKcg]U=G>bTW>[A~zE%U
}S T%
];	UNK%P4~-P'* W	z9V
pKJr&@Z6T(I|gW-e^SBUW$IP
\*P7/T+#zoPOf@P}tHS_BxS/$_z"4@r"7Es5'bWCCS7k P7[UU*s:'P7r-S.X\Pc"UV?8Tv
8tAP)S~T)5 W/l]WCMyO5%S):W@sw'TF]3		'\*0z5{JT+"jT8a_CPOQWI8*,"_vd\6pSJPP%N .&`Sr=+WSPu3sVHFUM6Y]PKS{SXOP7~P?y4W+IP)bUp^UqP%.gS_GIEE'KTpS(zz$A4yq1[?u8:#ETl/W[#Ug/VPKS|P>yPzX*WJ
6M t *(!Jr2MxM0HDPLSP
\*P=zRRHLyKFJ
!NP7P,g@owALS\!M	Pp?J
:lHMsw, T8DXT(E*NPNHUq&^'hj+p<Z5zbCP!@ UNL
'Uq&]q'9t|VPZ9zbBT^tSbEAT"7}P
83*PuGP/u^ q`z9SE[
?jcUV`E*R}oIP&-(PUYh|G(<.rru+?P
5tTYM'9jrUpzy(NR0tjHUpzyV4cS^v|P%B)@W@UV`$W7{CYR>d*u}qWVsr&d-DU5
ZJ?U=G>YTUV?QeDPR 5SbDQPHWJ5
T
W!r1qTzL2`UO{KR2\7)xzq!Sq(t'zwVJG92B
:w
V`
R9YB PP:+Sa|JOTY5z@2BW,igSa|IOW?S*z8vJ
7
"Pc*Sa|INS,mTR_4f`P+Vz9]	aT
).tY@S_GIP{h3Pz#UM7.$L(:o9%XUt]tSa8nQW7ZP?-,pH"GUVO$W77[ZS_J+p< z6kgA
JQJ
[Akcvb*:eTCE_pS>V"cq#EO)x,H@P$jWJ()*(:
2rpv2zZ7toycgR61/SUYi;/wa{&LShEgj`S>O?"R61=CSC
oUMPUS[|w	yMqeXT%
a		RPiz8b^#Rgs?x/g	PvG3P9vc)GOeym cW/<} P&KwW.O*P	z2G P19tv[O)yPZ6P
N2/ j`B/@R61a{TP
]2P	C:WJ A*sLpOg`
QS^},BU
*HR
Mrz[$wazGH
QtbHW5;  T8:=wUo"d/Ph	RHJUqWHY*v
7('V'bB-ssLCo9YP-/tf Ph	P
e:z?	L
R)Ix+yP1:TYRVzSbVa	Sr6(.z&W~k^Q3`'d!0
RVL=P-{PV}P4']
N5IyOs[#
S[gAPRUVTW3S\"7NQW7zOXP%]to;#)^yhe P+z
@P
/@RPU	T#=	y^x4(9.yMq^YS>/it4*X R617TSytS^}rvKS>N[;s[LyP&
3q&z;p[HS^o5Z5Pbr9U
)HWPXRlUp]Uq(OPMQo&+
NdR4OqUL\P)"(Px]
5fr&M
z6r8p[_{/@S^-{t'p+"W.r5CTCGO`P
S.PqPE%QTWI7*
T0!qk'	4P*TW
A5P77]UM:KQ
T0>z5+DcPe/P
-ts
'bJ,yO&r8yILJ5W-a~PDP
3	RKi_^P&
4q$rm&waIW&}W-vS^b@}SyaCW712[W7	P[ARK%v+zF|Me\d$7U3p
17U5BfSdeFP\["S^}zIPoIMP;eT8aq:SPIDDp;hXUt&UR61;Ral&+LS@jVgz0zrU6stVW717YT c}	
V3
TO#Kq#7
RPUl
DKP-=UL?}HS_,]T=?Df Wu:z9@*GpLCrR2
>LSR2]"U6`hUW/}#LP;Vn=}ZSeIDASy<,z$1z9M%ZzC6bDU55tL`W*4],W/sGS>O<V0Rt7,ba
T3z63R^2@Uh0:PUT{WS^~*oyU1z1@
fPW^PA!(Rms4P~;V4c-Gs8l <
61$1
61V.8"W#00z&0KS[0Q
Jl^0^}]I1
7n1$
jZ0
Tm0
DHg`019l1=zG0.70|G;0E
jI0i
M	bF0
(T-
_L06|Z0\Ei@1
M	60)}B0lb0V,0I c0/
[0yLu71!'on08
^KzO0z:L1
qxW1V.0
Lv0>^~[0zHCgRH0W* 4n^\'0]j0:P0q,0!0Hx5S03
}
?1
gis0N10a
veG0x]	0VF0cH=K0d
VRO0|
K(0*vJ01
)5U0aPw0q
61`h1~0^\'0Y(T[1L~1#P?0/iYD0

H0e/$A0)
	fG0f
G%Fz0x(T70%^\&~0Y+[I1d1*
_9q	0N
8DX0w
*7.&1&?&;R0od1'
u^v0[/$D0*H<)z0ysJF1$* [0n
Q8n0"2x0'7*v0&\!1J(NZ0
mA1
(a0(?9:0Z
)D1$u 1
wz1J0A
*7.!1&SAL0L FD0
kB0@e0d11
HfL0A408
Ma#1}
10
`Qy1+6w0#1lI1@\60L
61SF1

uh0B+50T(Tby1 ~[0
0F-gK?0sdY0`
_bWs0}
Qx1V0<'J0=-#M0yE0U*,qn0k
0dRS0@
Ks1)9%0 
2p0u
bx1/f0tMZ0
@o0,5-BH0A
r:^I02?i+1]!0bCo@1^~	;1
XH00*0s
D87z0w9~1KFUd0!O0
6%.0#

vc0C320XXp&?1*|W[0	^~)0G
l	0U)yLI0mz#01TOk05^}r|0|4Te0
|^H0G8L1L?C1!9g4kJ  %7,03uI0W:0T
Kt0^7;L0;

Wu0f
DJ-M0~~M17J0"d(07TUH09+/V0MIA1
hW3;0 g0
akH[18)0'^}.0)yLN0m
M
70u|0?|`)0X
D<F0
0rO0&
	lf0gc':0
M	T[0	
>JBg1
_~gH0{LR1"}RK[v60?
'0J&}JTPL{[1"
HF0D7H-0!iG0/^^047L0.
Ku[0{
u^0Z)y0l
T"Z0~x4I1
DGP0
:zO09@*0S0=(T$08(0M
HfK0	L0O*?0pT+0}
Q1#lk0+S0{dN0I6JKU#ll0:^|~0^
a8J1
d	h0`
l1	m2}1j7g1K/0o
HF0H
%
A0IE0l60P('(0vK00n
SN41L>O1 6Y*0!
l0;%LJ1(eR0^|{0\1Uz(l1
M&W41(Bn0k(l1eS0	Dz0(#lp0+
aoI1	x3Q1Ku5Z1(V'0
k[L05:x40<:	0iV'0\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[Qgr%0[Ms/[M"-[M	+[L,[FG[@v*r#eOD^w'`w]!+{ 0,d+,X(xeHeS@7O@2-b,>,>
[,>X4@@2Q82X82*82@@7Q87X87*86+^,>,>U,>Z4+! 0"0b+  $Q$,0!d!*A`X*  0F J 0F+Z'0f+  +
L=&g
L`j`+!X&@@2+ Of27" &$&  0D F'/
g+x/
f/
g+x,>7  [ 0XQ+&Q(,>,>Z4+a,>7
 
([(0X+,Q*Y,>,>Z4,>
i,<:,<:,<<,<<,<8,<9,0$,>,>
i,>P,0 ,\=,\< 
., L0,0lb6Z</.,<<,<=,>,>
k,0,0 B01Z<,<<,<=,>
k,>,0Zw4RCp/
f RB\ 5,@>,@= $ DCZ=4FI\&.F=> FD4FL B3HD+L C9F,<,<,>C,0,\,\Z
94JQ 
:
 J1J+T 
0L+WZ94NW\..N9: N P/
f+x+H`,_@@|@4WxSWTGET!0 PC,>,>
e,>P,0 \W,\H,\O 0@+n\W\W~,B,B\& FC,>,>
e,>P,0 \W,\ ,\'+z\
W,</,<(,<3,<4,05Bu\
W,<7,<0,<2,<2,04Bx\.4\W~,N@,NG+z\21\W~,R,R 0F-+
,>
i,</,</,<<,<<,<-,<.,0$\W,<',< ,<,,<,,0,>,>
i,>P,0 ,0\
W,\(,\/,>,>
e,>P,0 \
W,<7,<0,0\W,\8,\? 0P+,++
 0R+,+ 0@+Z94D\$.D9: D 6,0d P/
e+x:Y%H @@$Q@\W  x
FILENAME!& F\(<,H,H7@+%+>,>
e,<*,<*,<(,<),<',<',0$,>
d,<%,<&,<$,<$,<",<#,0$,>
i,</,</,<<,<<,<-,<.,0$,>
k,>
j,0,,>
j,>
j,0,6@2+7,<!,<!,0[7@2+9,<0,<1+:,<,< ,\;,\:6@+v!* J@\,<,L?,L>7@2+B,>
k,<=,<=,>P,Z>5N`,>
h,<:,<;,>
j,>
k,>
k,>O,>P\0 P@,>O,0'7@@+N,>
j,>
j,<,<,<,<,0,>
j,<,<,0,>,0,<,<,0Zw/2,>
j,>,0,<=,<=,0,<,<,0,\<,\;,>
h,<;,<<,>N,0(7@@+`,>
j,>
j,<,<,<,<,07@2+nZ>5Dn,>
h,<0,<1,>
j,>
k,>
j,>N,>M,>M,0',>
h,<;,<<,>N,0(,>
h,<<,<<,>
j,>N,0),>
h,>
j,0,,<:,<;,<,<,07@2+s,<;,<<+t,<<,<<,0,\8,\7\& F\(<,H:,H96@@+
Z
91j+Z
90,+
,<9,<:Z9/.,<,<,>,>
k,0,>
i,0,04B
Z>4P	,>P,>
d,>P,0 ,\:,\9Z>4Rg"$ D@+
,>
h,>
d,0E,\:,\9+x7@@+,>
j,<
,< BA,>M,>L,% 0F+',>
k,>
h,>
k,0c B? ,<:,<;,0! B  
?,<;,<< 
? ,0,> ? .8,>,0# B(6@C+  ? 
c R@7@2+" ? & F ? XA,>A,<,<,0 6Z,0d+R 1H/+* 
0J+N6@C+,Z
;4LM,<;,<<,>L,>K,0# BA6@A+5,>A,1,<	,<
,0,<<,<<,0,\<,\;\. NB7@+G,>
k,<:,<;,>
j,>
j,>
k,>K,>K,>J,0'7@B+@,>
j,>
j,<,<,<<,<<,0,>
k,<;,<<,>N,0(7@@+G,>
j,>
j,<,<,<,<,0,<:,<;,<,<,0,<;,<<,0,\,\+N!0 P+R,>
j,>
j,<,<,<,<,0 0R+u,>M,>L,%,<;,<<,>L,>K,0# BA6@A+^,>A,1,<	,<
,0,<<,<<,0,\<,\;7@+k,>
j,<:,<;,>
j,>
j,>
k,>J,>K,>K,0',>
j,<;,<<,>N,0(7@@+k,>
j,>
j,<|,<|,<{,<|,0,<:,<;,<,<,0,<;,<<,0,\9,\8 1@/+u,>
j,>
j,<,<,<,<,0+v!" B,>M,>L,%,>
k,<:,<;,>
j,>
k,>
j $d D,>I,>I,>H,0' 1F+ 1H+,>
j,>
j,<,<,<,<,0,>
k,>
j,0+,<;,<<,>K,>H,0# BB,>,0",<	,<
,0,<z,<z,07@C+,>C,0",\=,\<,<<,<=,>
j,>
k,0,<,,<,,0,<x,<y,0,<<,<=,>
j,>
h,0,0,</,</,0+,<<,<<,0,\=,\<\* J@6@B+!,>
k,<<,<=,>N,0(7@@+%,>
k,<;,<<,>N,0(7@@++,>
j,>
j,<;,<<,<v,<v,0,<u,<v,0,<:,<;,<,<,0,<;,<<,0,\,\7@2+<,<:,<;,<0,<1,04B5,<<,<<+6,<:,<;,<s,<t,0,<;,<<,0,>
d,0,>
i,0,0[\, LZ6W,0d+F 0N+C,>
j,>
j,<o,<p,<,<,0,>M,>L,%+~ 6W,0d P/
f+xCBBA<;A@@?
H\
W@:@\
W@DF
]xx5x5x5x5?xWx5COMMANDSCAN@7@@HQ8HX8H*8J@@NQ8NX8O*8Z@@_Q8_X8`*8;@@@Q8@X8A*8N@@SQ8SX8T*8A@@EQ8EX8F*8Y+\,>,>y,>Z4 .0 P,>
k P,<O,<H,<n,<n,0,0H/
f P/
f+xQkH|
{
{@>P@=L
W@=4r
]PUTOUT,>,>,>Z4#W,>,0+ P/
c+xt}H

	
	@@0@?l
W@?T
]
PRINTOCT,>,>,>Z4,<<,<<,k,<<,<<,k P/
f+xH
@B @AL
W@A4
]PRINTROOM,>,>|,>Z4+'!" B[,0- C,>,<0,<1,>
j,>
j,>
h,>',>',>',0',>,<w,<w,>',0(/
f/
f+x[,>
k,<l,<m,<k,<k,<i,<j,0$,>
k,<g,<h,<<,<<,<f,<f,0$,>
j,<d,<e,<<,<<,<c,<c,0$,>
h,<<,<<,<<,<<,<a,<b,0$,>
h,<`,<`,<<,<<,<^,<_,0$,>
g,<],<],<<,<<,<^,<_,0$!$ D\& F ( H\*[,JO,JN,
,<Y,<Y,>w,,<W,<W ,H,>,,<U,<U .H,>,,<S,<S 0I,>,,<Q,<Q 2I,>,,<O,<O  J,>,\"M,B\,B[,>H,<J,<J,1#,<[,<\,1#/
b,>H,<G,<H,1#,<[,<\,1#/
b,>I,<E,<E,1#,<[,<\,1#/
b,>I,<B,<C,1#,<[,<\,1#/
b,>J,<@,<@,1#,<[,<\,1#,<;,<;,1#/
b,>,<Y,<Y,0H!$ D\0d+q(D\&X,FA,F@ \9l!( H H H H * J 6~,0d P/
f+xH
~@O@C4
W@Cu
]xINITIALIZATION[Z , L]2l+
,<w,<w0,0lbU(L,<0M,<0N,04B	\"+ 
]9
!"+/
f,~!. N,>
k,>
k,0E,\,\7@+,
,>
k,>
k,0E,\,\6@+,D,\,\+,<,<+C,>
k,>
k,0E,\,\,<,<,<S,<T,04B*Z4P  1P+)Z,<,<,>
k,>,0Zw4D%p/
f1D+),D,\,\+,D,\,\ 0F-+=,>
k,>
h,0E/
f,<,<,4B2,D,\,\+= ( HP,>
k,>
g,0E/
f 
0J-+8 
P., LP 0N.+; P/0 PP6@P+3,D,\,\Z4R? 0R+A   @,<,<+C P/
c+x,>,>L,>,>
jZ4~+
wDHO
N@Y@Xd
W@QLC
]xxNGETWORD,>,>p,>Z4,D,\^,\] $ D6@+j 0&0fnbQ(F\(^,H_,H^ 
0*0jnbOZJ^,D,0 
^ B0S,D,\^,\]Z]4Nb ^0N!+h 000pnbO 020rnbO"HS @@S,D,\^,\] 9T P/
f+xGPHs
r@]H@Z$
W@Z
j
]xRESERVED],>,>,>Z4 .",>,0,<N,<N,0+{ P/
f+xluH
@_X@^t
W@^\{
]NXTSYM,>,>,>Z4 .$ D,>,0,<N,<N,0,\,\,<,<+
f+x}H
@ax@`l
W@`T
]GENSYM,>,>6,>Z4!& F_ ( H_0h+( 
PZ
73h+  _(N N_+' _(P P,<O,<H,>
k,>_,0Zw4D%p/
f. P_ _9 _(F F_ 
PZ
7F&& H_4h. _+/+/"_ +//
f P/
f+xH9

8
8@f @c
W@bt/
]xHASH,>,>
,>Z4\0X,Pa,Pa 2 Rb / 2r+t,<L,<M,k b0$0dnbQ(D,<^,<_, Bb (F\&A,F`,F` b(HZHc, 
c,\(A,\(@,<,<,<J,<K,0,<a,<a,0,<x,<y,0,<`,<`,0,k 
b(L\,0A,La,La b0.0nnbQ(NZ8^,>,},<I,<I,0,k,<F,<G,k b020rnbO6 HS+g b0$0dnbO"S,>,},<C,<D,0,k+l b0(0hnbO,> S,},<A,<B,0,k 
b0*0jnbQ(J,<?,<@,<(^,<(_,0,<>,<>,0,k b9>,<a,<a,k,<<,<<,k,,,<8,<8,k , Lb0l+(
/,(L,<6,<7,<0@,<0A,0,<x,<y,0 .$b/.(N,<8@,<8A,0,k 
b9
z P/
f+x1:H
@q@g<
W@g$
]xPRINTRESERVED`u,>,>(,>Z46@+"\0<,Pd,Pc!2 R 1@+6@+,D,\e,\d,<c,<d,<d,<e,0,\d,\c+6@+!,<c,<d,k+ P/
f+xH+
*@t@@r4
W@r"
]xASSIGNc,>,><,>Z4+[,>7 [0X8+0Q$Q,>,>Z46@l+7\&5,Ff,Fe+;,<e,<f,<x,<y,0,\f,\e7@W+@ W1H?+@ 
W1J+@ 
W0L+B,>W,0+E,<3,<3,>W,0,<3,<3,0,<e,<f,0,\f,\e l.. Nl1N+K6@W+O,<e,<f,<1,<2,0,k!0 Pl P/
c+x#/HYXW@z@vD8@u|O>
x
OUTBYTe,,<.,</,k6@+5,,D,\g,\f7@+a+5,D,\i,\h\2<,Rj,Ri!  @l,>
k,>
h,0E/
f,>
k,>
j,0E,<i,<j,0,\j,\i  Bl,>
k,>
h,0E/
f l0D+x,<i,<j,>,0 1F+t,<<,<<+v,>
k,>
h,0E,0,\j,\i+~ l0H+~,<i,<j,>
b,0 
/*,>,0,\j,\i 
l0L+g 0N+g,,\k,\j,<j,<k,<+,<+,0,kZi,>,},<I,<I,0,k,<(,<),k,<$,<$,kZi Rl $ Dk2dl+Zi4F\&.Fij,>,/ k9,,<f,<g, Bk (H\( A,Hh,Hg 
k(JZJm, 
m,\0A,\0@,<,<,<",<",0,<j,<k,0,<x,<y,0,<g,<h,0,<,< ,0,<f,<g,0,kZf,>,},<I,<I,0,k,<,<,k,<,<,<h,<i,0,<,<,0,k,<,<,<f,<g,0,<>,<>,0,k+\ 6>,0d P/
f+xQ-H@
>A@ul
W@uT6
]xx5x5MACROS(fZ,>,>T,>Z46@+N,D,\n,\m7@+H+N .0 P000pbU(P\2n,R@N,R@M+D P/
f+x8BHW
VA
AD
WA,N
]xCONDmB,>,>!,>Z4,<,<,k,<,<,k\ X,@r,@q6@+!" B},,D,\p,\o\$p,Dx,Dw6@+,D,\t,\s,D,\u,\tZt/&,<t,<u,>
g,>,0,<,<w,<x,<
,<
,0,\x,\w\(<,Hw,HvZ
w4J,>,>
h,>,0 ,<v,<w,0,\w,\v 
~1L+{ ~0N
+,<v,<w,<	,<
,0,\w,\v+s,<o,<p, B{ (P\0@A,Ps,Pr {(RZR, ,\A,\@\&,Fo,FnZo4H	 p0H+	,<
,<,<o,<p,0,<,<,0,kZ
o,<o,<p,>,>
k,0,\p,\o,D,\y,\xZ
x4L	 
y
0L,+	!,<,<	,<o,<p,0,k\. N}Zx,<x,<y,>,>
k,0,\y,\x,<x,<y,0 B|,D,0 B},D,0 B~,<,<,<,<,0,<r,<s,0,<,<,0,<o,<p,0,kZo,>,},<I,<I,0,k,<o,<p,<,<,04B	5,<,<+	9 |0`'+	8,<},<~+	9,<|,<|,<,<,0,k7@~+	^ ~0$0dbz,>G,<w,<xZD,1#,<v,<w,1#,<t,<t,1#,<v,<w,1#,<r,<s,1#Zo,>,0,1#,<o,<p,1#,<o,<p,1#,<l,<m,<s,<t,0,<j,<k,0,1#,>},0,1#,<x,<y,1# |/}.(,>,0,1#,<e,<f,1#,<v,<w,1#,<c,<d,1#,<v,<w,1#,<,<,1#/
b7@~+	y,>,<b,<b,1#,>~,1 ,<_,<`,1#Z
o.*&*,>,0,1#,<[,<\,1#,<s,<t,1#,<Z,<Z,1#,>~,1 ,<X,<X,1#,<o,<p,1#,<V,<V,1#,>~,1 ,<T,<U,1#,>~,1 ,<S,<S,1#,>|,0,1#,<Q,<R,1#/
b 
|1l'+
,<6,<7,<t,<u,0,<x,<y,0,<s,<t,0,k,<P,<P,k,<N,<N,<o,<p,0,<>,<>,0,kZo..&. N{/."`,>,},<L,<L,0,k+
x,<I,<J,<t,<u,0,<G,<G,0,<s,<t,0,k,<E,<F,k\0<,Pv,Pu 2 RZo2r+
%,<o,<p,>
k,>,0Zw4F
p/
f F0F
+
 ,<	,<
+
!,>,0,<u,<v,0,\v,\u 9
7@}+
.,<C,<D,<u,<v,0,<A,<A,0,<u,<v,0,<?,<@,0,k+
2,<=,<=,<u,<v,0,<?,<@,0,k\(;,H{,Hz\*<,J,J , L2l|+
p!. N,D,\s,\r,D,\s,\r,D,\
,\
Z
4P
? 
0P+
B 2 R,D,\
,\
,D,\z,\y,<y,<z,<x,<y,0,<
,<
,0,\	,\	Z
1d+
L\&9,F
,F
7@+
P,<6,<7,<
,<
,0,\
,\
7@~+
[ ~0(0hbz,> G,<5,<5ZH,1#,<
,<
,1#,<3,<4,1#,<y,<z,1#/
b!* J , L{2l+
d(L,<0D,<0E,<	,<	,04B
c { N+
d 
{9

\6@+
i .0 P P(P\2	,R@E,R@D .,>,0,<z,<{,0,<x,<y,0,\{,\z 
9

6,<z,<{,<W,<X,0,k |."&"/""`,>,0,<1,<2,0,k,u,\q,\p,<6,<7,<p,<q,0,<x,<y,0,<q,<r,0,<<,<=,0,k,<o,<p,<,<,04B,<E,<F,k |0$'+
,</,<0,<o,<p,0,<>,<>,0,k\&,Fr,Fq,+_,<-,<-,k ( H|2h+(H,<+,<,,< D,< E,0,k |9,u,<*,<*,0,k,,\q,\p P/
f+x~xOXH(
#A3XA$
WA

]xx5x5x
#x%x5x5x5x5FUNCTIONShnX,>,>W,>Z4,,D,\,\6@+Q * J 
/,2j+O,<,<0*0jnbQ(J,<(^,<(_,04BN,<,<,<(,<(,0,\,\ 0.0nnbO7 8S+@\0',P,P+A\2%,R,R,<,<,>
h,>
k,0,<#,<#,0,<!,<",0,<,<,0,<3,<4,0 0$0dnbO,>S,},0,k+O 
9
0,D,\,\+. P/
f+x*HZ
YA:8A5D
WA5,Q
]xDEFIN*,0!& F,,<,<,k,<,<,k,<,<,k,<,<,k,<,<,k6@+
,<,<,<,<,05B
6@+l,D,\,\+i!( H,<,<,<,<,04Bq,B,<,<,<,<
,04Bt,P,<,<,<	,<	,04Bx,X,<,<,<,<,04B{,-,<,<,<,<,04B,*,<,<,<,<,04B
,+e,:,>H,<
b,>,<
,J
\,
,<~,<w~,0,<
,<
,<
,<0,<w~,<w~,0,<
/
f,<p,<p,~7@2+
 20N+
!0 P+
 2 R+
 S @7@+
",<
,<
#,<
~,<
~,<0,<
{,<
|,0,>
d,0,>
i,0,0[,>H,<
,<
,1#,<
y,<
z,
,1#,<
b,>H,<
,<
,1#,<
w,<
x,
,1#,<
b,>I,<
,<
,1#,<
u,<
v,
,1#,<
b,>I,<
,<
,1#,<
s,<
t,
,1#,<
b,>J,<
,<
,1#,<
q,<
r,
,1#,<
b 6
^,0d,>H,>
j,0,,>H,>
j,0,,>I,>
j,0,,>I,>
j,0,,>J,>
j,0,,>,<
n,<
o,0H,>,>
j,0,,<
l,<
l,k+] 6
],0d P/
g,~S/H
_
]AJxxx
]x
^RTRANX[?(	0 H
mBEND	RESTAB	H
o
	-1
	END	START
H
rBAIPRCH
tBAIMSCH
vBAIIO2H
xBAIIO1H
zBAICLCH
| being producedH
TenexHHH
>;IFDEF GTJFN
HN,<
	1,,4
	ASCII	/<SAIL>H
	1,,3
	ASCIZ	/SAI:	H
>;IFNDEF GTJFN
H
IFNDEF GTJFN,<
	1,,1
	SIXBIT	/H
	-1
	END
H
	0
$DFLT$:	0

	0
	LINK	BALNK,.-1
	XWD	$BEGIN,$BEGIN
KH
			;FOR THE FAKE RUNTIMES
	2		;'MAJOR IO' FILE
	4		;PROCEDURE INFO COMING
	400000+1	;FLAG+ NUMBER OF WORDS IN NAME
	XWD	777777,0	;THIS WORD IGNORED BY BAIL'S LOADER
	XWD	BBLTPRC+INTEGR,PDA2	;TYPE BITS,,ADDR OF PDA IN BAIPDn FILE
	ASCII	/LDB/	;NAME
	0
PDA2__PDA2+14+1

	2
	4
	400000+1
	XWD	777777,0
	XWD	BBLTPRC+INTEGR,PDA2
	ASCII	/ILDB/
	0
PDA2__PDA2+14+1

	2
	4
	400000+1
	XWD	777777,0
	XWD	BBLTPRC,PDA2
	ASCII	/IBP/
	0
PDA2_PDA2+14+1

	2
	4
	400000+1
	XWD	777777,0
	XWD	BBLTPRC,PDA2
	ASCII	/DPB/
	0
PDA2__PDA2+14+2

	2
	4
	400000+1
	XWD	777777,0
	XWD	BBLTPRC,PDA2
	ASCII	/IDPB/
	0			;END OF FAKIRS
PDA2__PDA2+14+2
HCEDURES NOMRALLY COMPILED INLINE

	0		;WORD FOR PROCEDURE DESCRIPTOR LINK
	LINK	PDLNK,.-1
	..LDB		;ENTRY ADDRESS
	3		;SAIL STRING DESCRIPTOR FOR NAME
	POINT	7,[ASCII/LDB/]
	REFB+PROCB+INTEGR	;TYPE OF PROCEDURE
	XWD	0,2	;STRING PARAMS*2,,ARITH PARAMS+1
	0		;SS DISPL,,AS DISPL
	0		;LEX LEV,,LOCAL VAR INFO
	XWD	0,.+4	;DISPL LEV,,PNTR TO PARAM INFO
	XWD	.-10,0	;PDA,,0
	XWD	..LDB,0	;PCNT AT END OF MKSEMT,,PARENTS PDA
	XWD	..LDB,0	;PCNT AT PRDEC,,LOC FOR JRST EXIT
	0+INTEGR+VALUE	;TYPE BITS FOR PARAMETER

	0
	LINK	PDLNK,.-1
	..ILDB
	4
	POINT	7,[ASCII/ILDB/]
	REFB+PROCB+INTEGR
	XWD	0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	..ILDB,0
	XWD	..ILDB,0
	0+INTEGR+REFRNC


	0
	LINK	PDLNK,.-1
	..IBP
	3
	POINT	7,[ASCII/IBP/]
	REFB+PROCB
	XWD	0,2
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	..IBP,0
	XWD	..IBP,0
	0+INTEGR+REFRNC


	0
	LINK	PDLNK,.-1
	..DPB
	3
	POINT	7,[ASCII/DPB/]
	REFB+PROCB
	XWD	0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	..DPB,0
	XWD	..DPB,0
	0+INTEGR+VALUE
	0+INTEGR+REFRNC


	0
	LINK	PDLNK,.-1
	..IDPB
	4
	POINT	7,[ASCII/IDPB/]
	REFB+PROCB
	XWD	0,3
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	..IDPB,0
	XWD	..IDPB,0
	0+INTEGR+VALUE
	0+INTEGR+REFRNC
P__17
TEMP__14
	INTERNAL ..LDB,..ILDB,..DPB,..IDPB,..IBP
	EXTERNAL X22,X33
..LDB:	LDB	1,-1(P)
..RET2:	SUB	P,X22
	JRST	@2(P)
..ILDB:	ILDB	1,@-1(P)
	JRST	..RET2
..IBP:	IBP	1,@-1(P)
	JRST	..RET2
..DPB:	MOVE	TEMP,-2(P)
	DPB	TEMP,-1(P)
..RET3:	SUB	P,X33
	JRST	@3(P)
..IDPB:	MOVE	TEMP,-2(P)
	IDPB	TEMP,@-1(P)
	JRST	..RET3
H<ASSIGN>H<DEFINITIONS>H<MACROS>H
<FUNCTIONS>H
<RESERVED-WORDS>	H<TRUECONDITIONALS>H<END>HLSTON(SMTB)H^RESYM:
HIFNDEF	DCS,<DCSSYMB0>HBEGIN	RESTAB$^RH%CLASOPH'OPERH)      H+0H,XWD H.^BLTTBL.-1H0	ASCII /H2	BLOCK	H4+H6
	0+H7DEFLT+$DFLT$+H:UNTYPEH<	BYTE (6) H>	IFN DCS,<0+H@ ;>0 HB,IFN DCS,<0+HD	XWD 0+HF	0HH,PROCED+FORWRD+HJ	XWD	EXTRNL+HM	BLOCK HO	ASCII/HQ	00HR
	0HT+14+HU__PDAHW/
PDAHY
	ASCII	/H[,PDAH\
	XWD	777777,0
	XWD	BBLTPRC+H`
	4
	400000+Hc

	Hd,0
	XWD	Hf
	0
	0
	XWD	0,.+4
	XWD	.-10,0
	XWD	Hk
	XWD	2*Hm/]
	REFB+PROCB+	Hp
	POINT	7,[ASCII/Hs
	
Hu
	0
	LINK	PDLNK,.-1
	,Hx


	EXTERNALH{BCHPDH}4H~10H11HMH	POINTI7,.+H	;HEADER FOR H:	H	EXTERNAL H^H
H	XWDCDEFINE,0000XWD	H	POINTR7,.+6H?	;HEADERFORH#:	XWD	H%	XWDCNST,STRING0	;TBITS,,SBITSH)	POINT27.,.+3H,:	0	;MACRO:BODY STRINGH/;BUILT-INSMACROSH2;H4"H5BYTET(7)BH7	XWDVWORDHX0cHZ	TITLE PD8SM1
PDL:	BLOCK 20	;[clh]
^^START: RESET
A_4
B_5
C_6
D_7
F_11			;[clh]
P_17
	MOVE	P,[IOWD 10,PDL]
	MOVEI	D,5
GTNEXT:	MOVSI	1,1
	HRRO	2,-1+[	[ASCIZ/BAICLC.SM1/]
			[ASCIZ/BAIIO1.SM1/]
			[ASCIZ/BAIIO2.SM1/]
			[ASCIZ/BAIMSC.SM1/]
			[ASCIZ/BAIPRC.SM1/]	](D)
	GTJFN	
	 PUSHJ	P,ERR
	MOVEM	1,JFN-1(D)	;[clh]
	MOVE	2,[440000100000]
	OPENF
	 PUSHJ	P,ERR
	SOJG,	D,GTNEXT

	MOVE	A,[POINT 36,$BEGIN]
NEXT:	ILDB	F,A		;WHICH FILE IT GOES TO
	CAMN	F,[-1]
	 JRST	FIN
	MOVE	1,JFN-1(F)	;WHICH JFN
	ILDB	2,A		;FIRST DATA WORD
	BOUT
	ILDB	2,A		;SECOND DATA WORD
	MOVEI	D,-400000+3(2)	;[clh] NUMBER OF ADDITIONAL DATA WORDS
	BOUT
	ILDB	2,A
	BOUT
	SOJG	D,.-2
	JRST	NEXT

FIN:	MOVEI	D,5
FLOOP:	MOVE	1,JFN-1(D)	;[clh]
	MOVE	2,[-1]		;END-OF-FILE FLAG
	BOUT
	CLOSF
	 PUSHJ	P,ERR
	SOJG	D,FLOOP		;[clh] FOR EACH FILE

	HALTF
ERR:	HRROI	1,[ASCIZ /ERROR!/]
	PSOUT
	JRST	ERR-1
JFN:	BLOCK	5
$BEGIN:
PDA1__PDA2__PDA3__PDA4__PDA5__1
H<
ITMVAR_ITMVAR+UNTYPE	;TYPE KLUGE
HA	TITLE	BAIPRCHC	TITLE	BAIMSCHF	TITLE	BAIIO2HH	TITLE	BAIIO1HK	TITLE	BAICLCHM
$BEGIN__.+1
HPBAIPRC.FAIHRBAIMSC.FAIHTBAIIO2.FAIHVBAIIO1.FAIHXBAICLC.FAIHZBAISM1.FAIH\NOTYMSHAREH^[]HINSHa!HbXNAHdINHe?
]HjINRHl
Ho
D OF FILE ON SOURCE FILEHtRTRAN:	Hw FILE NOT FOUNDHy,H{QQQH}CAN'T ENTER  FILE	HRTRAN COMMAND ERRORHCANT ENTER  FILE
H DEVICE NOT AVAILABLEH
.H
SWAPH                       H:HCOMMAND FILE NOT FOUNDH.TMPHPJOBH000HCOMMAND DEVICE NOT AVAILABLEH TTYH"
*H#INAH%
H(IH)
H-[H.IAH0]H1DSKH3LPT.H4LPTH6XH7SWTVALH9XAKH;0123456789H>RTRANH.@(
a
aH
W@D