Trailing-Edge
-
PDP-10 Archives
-
decuslib20-01
-
decus/20-0002/rtran.exe
There is 1 other file named rtran.exe in the archive. Click here to see a list.
?p = = ?h X ?x "
<+ + 2 ` (|~K > ,d f e 2 ,X H
` > \ _
W 0 0 Z 0 ` XP @ 6 8 ~ h + 1 + 1 + 1 1
, 0STRING PDL STRING SPACE SYSTEM PDL SAI: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 @ 3 Hy G @ D NpxN x
@ K `N ^ ~ x n x\ @ \
x @ B E O 2 7 HxOx`xA SxF 2 2 6 6 9j g
@ j ` Q
_
S Scm *u6 u6 X)R+ P R B89 889 - ZG $ Z@
hk
hf : 2 #]- (Io (Ig _&o }_&g u5$# l5$ P(U' H(U" D &G ^hLO x^hLA
hk
hf
hk
hd }] u] ktP> FtP: 5\~ S5\w 8
'^ A8
'[ 5i `5hy M\f OM\` mR -j HCfO +} +}~ ex
3- P_g AZW r] ri 5 Y\{ %
L M H [# M O QM H
|2 7 Ot XO%n 2XO%g XO U&Y 0x :% S` _" qIA KQk: U&S\ U&A: ,`_ ,`]9 >+ R \G<h Wv ] |r
? n
? e O cm eF y Yy x w v ) u0tjH t <*o s r
/j q p oP4j n M | $* |
{u6 f^ `f^ eR e hx b uB z5O*
5O `'@ q J.
7 q J* 8YP
^ 8YP SOh6 { SOh0 6N" 6N
u
u exV exW m R u^
O Qu^
K / w l O8 l
k49 j VI i h g f89 [ 89 bb ]b\ (T g(T
{ exV m eu^
N 4 u^
K d c Z@ p =: a `
b b
hf exU c #]2 _
#]- ] 5$@ exU ^P (U" ] &G r:^I =w [ \^hLA [ r:^I f3 >H
< @
; @ : +vG 9+# 8Ke: 7 >D D >C CT
9 C >C B >B B >B A >A A H @ a\ @M N !M H S` ~ S` %@N S %@H 0wi" ,0wi! rK^ 7 rK^ XG1; ?SN: SN6 %NJ b%N? XNH YXNH[ +H
] jn)" G<hbD w^: / w^X w^5 ' w^N + w^g '
KyI ( w]y8 * w]y7 w]m & w]h. , w]BO .Kw]=N Kw]= w]<{ &Kw]<+ Kw]; Kw]:]
KwH ( w]* w]!g
Kw 0 w] " - w] + w] , w]G w]v *
Kue w]!+|@. `n v
_7 Hu~ J,Lz 2GOw y
YMc G
P|t VRl M#M |
LC UVG` 6
R uC 0
^,, uu 7~r @/9# S*j ?
&0_+ 1?t 2
"am" U {
v$:; I1k
R ,E , E
_Ir G\T0 L IH ?
Br 5'7 V| Wt K +^ U
HM" qB S~+H M MO3 ]
m>r }'6 F
n<O I T} z$>( @@ * Y r6-; F |^ 1 ^} Ft{ 4)* U ^gTr W ^h* X
36y HJ<YF J
FU; N
* e h
Mg 3 Y* X
* c i(2 O .Hg" 0tz" 4 U& {J'w d
@
r ,I6 5
C~r = v\( I<;$ 5
K!?* N Ti z @D 4zhX d %k @ w]Q J sw' .&` sw, KHY4 9j @W@ YB Y@ j ` g
@ P
/@ 4*X 'p+" c K4 d $7 nwZ# ?vF (` r L` ?|G z ?V 'Ob ,s =qM JVF3N4 Pc[t R+}K: SUVe
o
T%` pH/H pV L (B &z8u| (qU: /P( zC6 UNL G %S>O5 P
rj$ 'QA /W -6> PZL3 S9 ( W7: [Uq[y z 6b GUU2j R];bv S^}y JPm"4 yN [ 3rrsz wxUH yO/V
6S Nz9@e Zq( gyJ82 6W -_+ T;y @_.iB P > U UpO! T"8U y[;L yP 7ro
2 `S^}~k @ T(Q( R804 TgY* R
Y
P 8 z13L CS_B@> ( O
N\( q#9! QRF%: )P
R# GPoc S_65 P ( P (@(
Qy z?GM hTAJRG UV`2H @P,N Rgsq; Tp C P P ?A TYU:o ( Prs 2 B
=# Kz%~y RPIRs P9n/ ( Qs6J Po ' fu29, AW !z @ 4zhX UVEE. UMP6b ( QV4cpe @ sB`Z 9t
1 Is aW ': U4zc Y (@* *UVA[n #Q hr|H
Q`G EW2, W1ke9 ybw 4d %k @ UNLC &V4cpc @ R^X 'W bUnKST UMPI* PR U5TO PUbG @UYi'6 WD-* {St do=6b Hu89( IUVS( ITjW
WE7)* E+s@
B/n
TPL >w]Q W)y^J RR}
]8 ]SX
6dW EW !(1 P~_ T(QJ4 J W7*w XPqC P 78& s"^ "qRS (yL#E [W 'f{ R_
G UKcg] U=G>b TW>[A~z E %U
}S T%
]; UNK %P 4~ -P'* W z9V
pKJ r&@Z 6T(I|g W -e^ S BUW$I P
\* P 7/ T+#zo POf @ P }tH S_B x S/$_ z "4 @r"7 Es5' bW CC S7 k P 7[ UU*s: 'P 7 r -S.X \Pc" UV?8T v
8t AP)S~ T)5 W/l] WCM yO5 %S):W @ sw' TF]3 '\* 0z 5{ JT+"j T8a_C POQ WI8* ," _vd\6 pSJ PP%N .&` Sr=+W SPu3 sVH FUM6Y ]P KS{ SXO P 7~P?y4 W +I P )b Up^ Uq P%.g S_GIE E'K TpS(z z$A4 yq1[ ?u8:# ETl/W[ #Ug / VP KS| P>y PzX* WJ
6M t * (! Jr2 MxM0H DP LS P
\* P =z RRH LyKFJ
! NP 7 P,g @ owAL S\!M P p?J
:lH Msw, T8DX T(E*N PN HUq&^ 'hj +p<Z 5zb CP !@ UNL
'Uq&] q'9t |VPZ 9zb BT^t SbEA T"7} P
83 *PuG P/u^ q` z9SE [
?j cUV`E* R}oI P &-( P UYh|G (< .rru+ ?P
5t TYM' 9jr Upzy ( NR0tjH Upzy V4c S^v| P %B ) @W@ UV` $W7{C YR>d* u} qWVs r&d- DU5
ZJ ?U=G>Y TUV?Qe DPR 5 SbD Q P H WJ 5
T
W !r1q TzL2 `UO{K R2\7 )xz q!S q(t 'zwVJ G 92B
:w
V `
R9 YB P P: +Sa|J OTY5 z @2 BW ,ig Sa|I OW?S * z8vJ
7
"P c *Sa|I N S,mT R_4f `P+V z9] aT
).t Y@ S_GI P {h3 Pz#UM7.$ L (: o9% XUt]t Sa8 n QW7 ZP?-, pH " GUVO $W77[ ZS_J + p< z6kg A
JQ J
[Ak cvb*: eTCE_ p S> V"c q#EO )x,H @P $j WJ()* (:
2rpv 2z Z 7toyc gR61/ SUYi;/ wa{& LShEg j ` S>O?" R61=C SC
o UMP US[|w yMqe XT%
a RPi z8b^ #Rgs?x / g PvG3P 9vc )GO eym c W /<} P &Kw W. O* P z2G P 19t v[ O )yP Z 6P
N2 / j`B/@ R61a{ TP
]2 P C: WJ A* sL pOg`
QS^},B U
*H R
Mr z [ $wazG H
Qtb HW 5; T8:=w Uo"d/ P h R HJ Uq WH Y* v
7( 'V 'bB -ssL Co9 YP-/t f P h P
e: z? L
R)I x+y P 1: TYRVz SbVa Sr6(. z & W ~k ^Q3` 'd! 0
RVL =P -{ P V} P 4']
N5I yOs[ #
S[g AP R UVTW3 S\"7N QW7zO XP %]t o;#) ^yhe P+z
@ P
/@ RP U T# = y^x4 (9 .yMq^ YS>/it 4*X R61 7 TSyt S^}rv KS>N[; s[L yP&
3 q&z ;p[HS ^o5Z 5Pbr 9U
)H WPXRl Up] Uq(O PMQo &+
N dR4Oq UL\ P)" (P x]
5 fr&M
z 6r 8p[ _{/ @S^-{t 'p+" W.r5C TCGO `P
S.Pq PE%Q TWI7*
T0 !qk' 4P* T W
A5 P 77] UM:K Q
T0 >z 5+ D c P e/ P
-t s
'bJ ,yO&r 8yILJ 5W -a~ P D P
3 RKi_^ P&
4 q$rm &wa IW &} W -v S^b@} SyaC W712 [W7 P[A RK% v+z F|M e \d $7 U3p
17 U5 Bf SdeF P\[" S^}z IP oI MP ;e T8aq: SPIDD p;hX Ut& UR61; Ral&+ LS@jVg z0zr U6st VW717 YT c}
V3
TO# Kq#7
RP Ul
DK P-= UL ?} HS_,] T=?Df Wu: z9@* GpL C r R2
>L SR2] " U6`h UW/}#L P ;Vn =}Z SeIDA Sy<, z$ 1z9M% ZzC6b DU55t L` W*4], W/sG S>O< V0R t7,b a
T3 z6 3R^2 @Uh0: PUT{ WS^~*o yU 1z1@
fPW^ P A! (R ms4 P ~; V4c-G s8l <
61$ 1
61V. 8 "W# 00z& 0KS [ 0Q
Jl^ 0 ^}]I 1
7n 1$
jZ 0
Tm 0
DHg` 019l 1 =zG 0.7 0 |G; 0E
jI 0i
M bF 0
(T-
_L 06 |Z 0\ Ei@ 1
M 6 0 )}B 0l b 0 V, 0 I c 0/
[ 0yLu7 1! 'on 08
^KzO 0z :L 1
q xW 1 V. 0
Lv 0> ^~[ 0z HCg R H 0W* 4n ^\' 0]j 0:P 0q , 0 ! 0Hx5S 03
}
? 1
gis 0N1 0a
veG 0x] 0VF 0cH=K 0d
VRO 0|
K( 0*vJ 01
)5U 0aPw 0q
61`h 1 ~ 0 ^\' 0Y (T[ 1L~ 1# P? 0/iYD 0
H 0e/$A 0)
fG 0f
G%Fz 0x (T 7 0% ^\&~ 0Y +[I 1d 1*
_9q 0N
8DX 0w
*7.& 1&?&;R 0od 1'
u^v 0[/$D 0*H<)z 0ysJF 1$* [ 0n
Q8n 0" 2x 0'7*v 0& \! 1J(NZ 0
mA 1
(a 0(?9: 0Z
)D 1$u 1
w z 1 J 0A
*7.! 1&SAL 0L FD 0
kB 0@e 0d1 1
HfL 0 A4 08
Ma# 1 }
1 0
`Qy 1+6w 0#1lI 1 @\6 0L
61SF 1
uh 0B+5 0T (Tby 1 ~[ 0
0F-gK? 0sd Y 0`
_bWs 0}
Q x 1 V 0<'J 0=-#M 0yE 0U*,qn 0k
0dRS 0@
Ks 1) 9% 0
2 p 0u
bx 1 /f 0tMZ 0
@o 0,5-BH 0A
r:^I 02?i+ 1]! 0b Co@ 1 ^~ ; 1
XH 00* 0s
D87z 0w9~ 1KFUd 0!O 0
6%. 0#
vc 0C 32 0X Xp&? 1* |W[ 0 ^~) 0G
l 0U)yLI 0m z# 0 1TOk 05 ^}r| 0|4Te 0
|^H 0G 8L 1L?C 1! 9g 4kJ % 7 , 0 3uI 0W : 0T
K t 0^7;L 0;
Wu 0f
DJ-M 0~ ~M 17J 0"d( 07TUH 09+/V 0M IA 1
hW3; 0 g 0
akH[ 18) 0' ^}. 0)yLN 0m
M
7 0 u| 0? |`) 0X
D<F 0
0rO 0&
lf 0gc': 0
M T[ 0
>JBg 1
_~gH 0{LR 1"}R K[v6 0?
' 0J &}J TPL{[ 1"
HF 0D7H- 0! iG 0/ ^^ 047L 0.
Ku[ 0{
u^ 0Z)y 0l
T"Z 0~x4I 1
DGP 0
:zO 09@* 0S0= (T$ 0 8( 0M
HfK 0 L 0O*? 0pT+ 0}
Q 1#lk 0+ S 0{dN 0 I6J KU#ll 0: ^|~ 0^
a8J 1
d h 0`
l 1 m2} 1j7g 1 K/ 0o
HF 0H
%
A 0IE 0 l6 0P ('( 0v K0 0n
SN4 1L>O 1 6Y* 0!
l 0;%LJ 1(eR 0 ^|{ 0\1 Uz(l 1
M&W4 1(Bn 0k(l 1eS 0 D z 0(#lp 0+
aoI 1 x3Q 1 Ku5Z 1( V' 0
k[L 05:x4 0<: 0i V' 0\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 [Qg r% 0[Ms /[M" -[M +[L ,[FG [@v *r#e OD^w'` w]!+{ 0 ,d + ,X (xeH eS@ 7 O@ 2- b,> ,>
[,> X4@@ 2Q8 2X8 2*8 2@@ 7Q8 7X8 7*8 6+ ^,> ,>U,> Z4+ ! 0" 0b + $Q$ , 0!d!*A`X* 0F J 0F + Z'0f + +
L =& g
L `j` + !X& @@ 2+ Of 27" & $& 0D F'/
g+x /
f/
g+x ,> 7 [ 0XQ+ &Q(,> ,> Z4+ a,> 7
( [( 0X+ ,Q* Y,> ,> Z4,>
i,<:,<:,<<,<<,<8,<9, 0$,>,>
i,>P, 0 ,\ =,\ <
., L 0, 0l b6Z </. ,< <,< =,> ,>
k, 0, 0 B01Z <,< <,< =,>
k,> , 0 Zw4R Cp /
f R B\ 5,@ >,@ = $ D CZ =4F I\&.F = > F D4F L B3H D+ L C9 F,< ,< ,> C, 0,\ ,\ Z
94J Q
:
J 1J + T
0L + WZ 94N W\..N 9 : N P /
f+x + H ` , _ @ @|@4 W x SWTGET !0 P C,>,>
e,>P, 0 \W,\H ,\O 0@ + n\W\W~,B ,B\& F C,>,>
e,>P, 0 \W,\ ,\'+ z\
W,</,<( ,<3,<4, 0 5B u\
W,<7,<0 ,<2,<2, 0 4B x\.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@ + Z 94D\$.D 9 : D 6 , 0d P /
e+x : Y % H @ @$Q@\ W x
FILENAME !& F \(<,H ,H 7@ + %+ >,>
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 :,H 96@ @+
Z
91j + Z
90, +
,< 9,< :Z 9/. ,<,<,> ,>
k, 0 ,>
i, 0, 0 4B
Z >4P ,>P,>
d,>P, 0 ,\ :,\ 9Z >4Rg "$ D @+
,>
h,>
d, 0E,\ :,\ 9+ x7@ @+ ,>
j,<
,< B A,>M,>L, % 0F + ',>
k,>
h,>
k, 0c B ? ,< :,< ;, 0! B
?,< ;,< <
? ,0 ,> ? .8 ,> , 0# B( 6@ C+ ?
c R@ 7@ 2+ " ? & F ? X A,> A,< ,< , 0 6Z, 0d+ R 1H /+ *
0J + N6@ C+ ,Z
;4LM,< ;,< <,>L,>K, 0# B A6@ A+ 5,> A, 1,< ,<
, 0,<<,<<, 0,\ <,\ ;\. N B7@ + 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# B A6@ 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# B B,> , 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, 0 4B5,<<,<<+ 6,< :,< ;,<s,<t, 0,< ;,< <, 0,>
d, 0,>
i, 0, 0[\, L Z6W, 0d+ F 0N + C,>
j,>
j,<o,<p,<,<, 0,>M,>L, %+ ~ 6W, 0d P /
f+x C B B A < ; A @ @ ?
H \
W @: @\
W@DF
]x x 5x 5x 5x 5 ?xWx 5 COMMANDSCAN @7 @@ HQ8 HX8 H*8 J@@ NQ8 NX8 O*8 Z@@ _Q8 _X8 `*8 ;@@ @Q8 @X8 A*8 N@@ SQ8 SX8 T*8 A@@ EQ8 EX8 F*8 Y+ \,> ,>y,> Z4 .0 P ,>
k P ,<O,<H ,<n,<n, 0, 0H/
f P /
f+x Q k H |
{
{@>P @=L
W@=4r
] PUTOUT ,> ,>,> Z4# W,> , 0 + P /
c+x t } H
@@0 @?l
W@?T
]
PRINTOCT ,> ,>,> Z4,<<,<<, k,<<,<<, k P /
f+x H
@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 \*[,J O,J N,
,<Y,<Y,>w, ,<W,<W , H,> , ,<U,<U . H,> , ,<S,<S 0 I,> , ,<Q,<Q 2 I,> , ,<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+x H
~ @O @C4
W@C u
]x INITIALIZATION [ Z , L ]2l +
,<w,<w0, 0l bU(L ,<0M,<0N, 0 4B \"+
]9
!" + /
f,~ !. N ,>
k,>
k, 0E,\ ,\ 7@ + ,
,>
k,>
k, 0E,\ ,\ 6@ + , D,\ ,\ + ,< ,< + C,>
k,>
k, 0E,\ ,\ ,< ,< ,<S,<T, 0 4B*Z 4P 1P + )Z ,< ,< ,>
k,> , 0 Zw4D%p /
f1D + ), D,\ ,\ + , D,\ ,\ 0F -+ =,>
k,>
h, 0E/
f,< ,< , 4B2, D,\ ,\ + = ( HP ,>
k,>
g, 0E/
f
0J -+ 8
P ., LP 0N .+ ; P /0 PP 6@P + 3, D,\ ,\ Z 4R? 0R + A @ ,< ,< + C P /
c+x ,> ,>L,> ,>
jZ4~+
w D H O
N @Y @Xd
W@QLC
]x xN GETWORD ,> ,>p,> Z4, D,\ ^,\ ] $ D 6@ + j 0& 0f nbQ(F \( ^,H_,H^
0* 0j nbOZJ ^, D, 0
^ B0S, D,\ ^,\ ]Z ]4Nb ^ 0N !+ h 00 0p nbO 02 0r nbO" HS @@S, D,\ ^,\ ] 9T P /
f+x G P H s
r @]H @Z$
W@Z
j
]x RESERVED ] ,> ,>,> Z4 ." ,> , 0 ,<N,<N, 0+ { P /
f+x l u H
@_X @^t
W@^\{
] NXTSYM ,> ,>,> Z4 .$ D ,> , 0 ,<N,<N, 0,\ ,\ ,< ,< +
f+x } H
@ax @`l
W@`T
] GENSYM ,> ,>6,> Z4!& F _ ( H _0h + (
P Z
73h + _(N N _+ ' _(P P ,<O,<H ,>
k,> _, 0 Zw4D%p /
f. P _ _9 _(F F _
P Z
7F && H _4h. _+ /+ /" _ + //
f P /
f+x H 9
8
8@f @c
W@bt/
] x HASH ,> ,>
,> Z4\0X,P a,P a 2 R b / 2r + t,<L,<M, k b0$ 0d nbQ(D ,<^,<_, B b (F \&A,F `,F ` b(H ZH c,
c,\(A,\(@,< ,< ,<J,<K, 0,< a,< a, 0,<x,<y, 0,< `,< `, 0, k
b(L \,0A,L a,L a b0. 0n nbQ(N Z8^,> , },<I,<I, 0, k,<F,<G, k b02 0r nbO6 HS+ g b0$ 0d nbO"S,> , },<C,<D, 0, k+ l b0( 0h nbO,> S, },<A,<B, 0, k
b0* 0j nbQ(J ,<?,<@,<(^,<(_, 0,<>,<>, 0, k b9>,< a,< a, k,<<,<<, k, , ,<8,<8, k , L b0l + (
/, (L ,<6,<7,<0@,<0A, 0,<x,<y, 0 . $ b/. (N ,<8@,<8A, 0, k
b9
z P /
f+x 1 : H
@q @g<
W@g$
]x PRINTRESERVED ` u,> ,>(,> Z46@ + "\0<,P d,P c!2 R 1@ + 6@ + , D,\ e,\ d,< c,< d,< d,< e, 0,\ d,\ c+ 6@ + !,< c,< d, k+ P /
f+x H +
* @t@ @r4
W@r "
]x ASSIGN c ,> ,><,> Z4+ [,> 7 [ 0X8+ 0Q$Q,> ,> Z46@ l+ 7\&5,F f,F e+ ;,< 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.. N l1N + K6@W+ O,< e,< f,<1,<2, 0, k!0 P l P /
c+x # / H Y X W@z @vD8@u|O >
x
OUTBYT e ,,<.,</, k6@ + 5, , D,\ g,\ f7@ + a+ 5, D,\ i,\ h\2<,R j,R i! @ l,>
k,>
h, 0E/
f,>
k,>
j, 0E,< i,< j, 0,\ j,\ i B l,>
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, kZ i,> , },<I,<I, 0, k,<(,<), k,<$,<$, kZ i R l $ D k2d l+ Z i4F\&.F i j,> , / k9, ,< f,< g, B k (H \( A,H h,H g
k(J ZJ m,
m,\0A,\0@,< ,< ,<",<", 0,< j,< k, 0,<x,<y, 0,< g,< h, 0,< ,< , 0,< f,< g, 0, kZ f,> , },<I,<I, 0, k,< ,< , k,<,<,< h,< i, 0,<,<, 0, k,<,<,< f,< g, 0,<>,<>, 0, k+ \ 6>, 0d P /
f+x Q - H @
> A @ul
W@uT6
]x x 5x 5 MACROS (f Z,> ,>T,> Z46@ + N, D,\ n,\ m7@ + H+ N .0 P 00 0p bU(P \2 n,R@N,R@M+ D P /
f+x 8 B H W
V A
AD
WA,N
]x COND m B,> ,> !,> Z4,<,<, k,<,<, k\ X,@ r,@ q6@ + !" B }, , D,\ p,\ o\$ p,D x,D w6@ + , D,\ t,\ s, D,\ u,\ tZ t/& ,< t,< u,>
g,> , 0 ,<,< w,< x,<
,<
, 0,\ x,\ w\(<,H w,H vZ
w4J,> ,>
h,> , 0 ,< v,< w, 0,\ w,\ v
~1L + { ~0N
+ ,< v,< w,< ,<
, 0,\ w,\ v+ s,< o,< p, B { (P \0@A,P s,P r {(R ZR , ,\A,\@\& ,F o,F nZ o4H p 0H + ,<
,< ,< o,< p, 0,<,<, 0, kZ
o,< o,< p,> ,>
k, 0,\ p,\ o, D,\ y,\ xZ
x4L
y
0L ,+ !,<,< ,< o,< p, 0, k\. N }Z x,< x,< y,> ,>
k, 0,\ y,\ x,< x,< y, 0 B |, D, 0 B }, D, 0 B ~,< ,< ,<,<, 0,< r,< s, 0,<,<, 0,< o,< p, 0, kZ o,> , },<I,<I, 0, k,< o,< p,< ,<, 0 4B 5,<,<+ 9 |0` '+ 8,<},<~+ 9,<|,<|,<,<, 0, k7@ ~+ ^ ~0$ 0d bz,>G,<w,<xZD , 1#,< v,< w, 1#,<t,<t, 1#,< v,< w, 1#,<r,<s, 1#Z o,> , 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, kZ o.. &. N {/. "` ,> , },<L,<L, 0, k+
x,<I,<J,< t,< u, 0,<G,<G, 0,< s,< t, 0, k,<E,<F, k\0<,P v,P u 2 R Z o2r +
%,< o,< p,>
k,> , 0 Zw4F
p /
f F 0F
+
,< ,<
+
!,> , 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 {,H z\*<,J ,J , L 2l |+
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( 0h bz,> G,<5,<5ZH , 1#,<
,<
, 1#,<3,<4, 1#,< y,< z, 1#/
b!* J , L {2l +
d(L ,<0D,<0E,< ,< , 0 4B
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,< ,<, 0 4B ,<E,<F, k |0$ '+
,</,<0,< o,< p, 0,<>,<>, 0, k\& ,F r,F q, + _,<-,<-, k ( H |2h + (H ,<+,<,,< D,< E, 0, k |9 , u,<*,<*, 0, k, ,\ q,\ p P /
f+x ~ x O X H (
# A3X A $
WA
]x x 5x 5x
#x %x 5x 5x 5x 5 FUNCTIONS hn X,> ,> W,> Z4, , D,\ ,\ 6@ + Q * J
/, 2j + O,< ,< 0* 0j nbQ(J ,<(^,<(_, 0 4B N,< ,< ,<(,<(, 0,\ ,\ 0. 0n nbO7 8S+ @\0',P ,P + A\2%,R ,R ,< ,< ,>
h,>
k, 0 ,<#,<#, 0,<!,<", 0,< ,< , 0,<3,<4, 0 0$ 0d nbO,>S, }, 0, k+ O
9
0, D,\ ,\ + . P /
f+x * H Z
Y A:8 A5D
WA5, Q
]x DEFIN *, 0!& F , ,< ,< , k,<,<, k,<,<, k,<,<, k,<,<, k6@ +
,< ,< ,<,<, 0 5B
6@ + l, D,\ ,\ + i!( H ,< ,< ,<,<, 0 4B q, B,< ,< ,< ,<
, 0 4B t, P,< ,< ,< ,< , 0 4B x, X,< ,< ,<,<, 0 4B {, -,< ,< ,<,<, 0 4B , *,< ,< ,<,<, 0 4B
, + 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
_
] AJx x x
]x
^ RTRAN X [ ? ( 0 H
mBEND RESTAB H
o
-1
END START
H
rBAIPRC H
tBAIMSC H
vBAIIO2 H
xBAIIO1 H
zBAICLC H
| being produced H
Tenex H H H
>;IFDEF GTJFN
H N,<
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
H CEDURES 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> H LSTON(SMTB) H ^RESYM:
H IFNDEF DCS,<DCSSYMB0> H BEGIN RESTAB $^R H %CLASOP H 'OPER H ) H +0 H ,XWD H .^BLTTBL.-1 H 0 ASCII / H 2 BLOCK H 4+ H 6
0+ H 7DEFLT+$DFLT$+ H :UNTYPE H < BYTE (6) H > IFN DCS,<0+ H @ ;>0 H B,IFN DCS,<0+ H D XWD 0+ H F 0 H H,PROCED+FORWRD+ H J XWD EXTRNL+ H M BLOCK H O ASCII/ H Q 00 H R
0 H T+14+ H U__PDA H W/
PDA H Y
ASCII / H [,PDA H \
XWD 777777,0
XWD BBLTPRC+ H `
4
400000+ H c
H d,0
XWD H f
0
0
XWD 0,.+4
XWD .-10,0
XWD H k
XWD 2* H m/]
REFB+PROCB+ H p
POINT 7,[ASCII/ H s
H u
0
LINK PDLNK,.-1
, H x
EXTERNAL H {BCHPD H }4 H ~10 H 11 H M H POINTI7,.+ H ;HEADER FOR H : H EXTERNAL H ^ H
H XWDCDEFINE,0000XWD H POINTR7,.+6 H ? ; HEADERFOR H #: XWD H % XWDCNST,STRING0 ;TBITS,,SBITS H ) POINT27.,.+3 H ,: 0 ;MACRO:BODY STRING H /; BUILT-INSMACROS H 2; H 4" H 5BYTET(7)B H 7 XWDV WORD H X0 cH Z 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
H A TITLE BAIPRC H C TITLE BAIMSC H F TITLE BAIIO2 H H TITLE BAIIO1 H K TITLE BAICLC H M
$BEGIN__.+1
H PBAIPRC.FAI H RBAIMSC.FAI H TBAIIO2.FAI H VBAIIO1.FAI H XBAICLC.FAI H ZBAISM1.FAI H \NOTYMSHARE H ^[] H INS H a! H bXNA H dIN H e?
] H jINR H l
H o
D OF FILE ON SOURCE FILE H tRTRAN: H w FILE NOT FOUND H y, H {QQQ H }CAN'T ENTER FILE H RTRAN COMMAND ERROR H CANT ENTER FILE
H DEVICE NOT AVAILABLE H
. H
SWAP H H : H COMMAND FILE NOT FOUND H .TMP H PJOB H 000 H COMMAND DEVICE NOT AVAILABLE H TTY H "
* H #INA H %
H (I H )
H -[ H .IA H 0] H 1DSK H 3LPT. H 4LPT H 6X H 7SWTVAL H 9XAK H ;0123456789 H >RTRAN H . @(
a
aH
W @ D