Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0002/ptran.exe
There is 1 other file named ptran.exe in the archive. Click here to see a list.
?p@    `@
@?hX?x " 
 
<++72	`L~:`+xL7De2x@HxX\l00Z0+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
WITHSAIL.2{1@.7~|7@3HXG$$@DpXo$$@lzw@	!~	 aa@	<?@@JwI@FSmR@Ofzvf@bpzvp@lzzvz@vzv@ ^x 
p ^ 1upx 2x
@ -P` 1 -27Hp	!JSzpfx x 1226*z6*z9jg
@j`Q



/%B
%
->{|IpM+OeM+GN(U&F(U&>(U'6(U",3I++$
qjWM+	vM+88Hlo/8Hlg	>A~'>A~"n
hkg
hf`+	W4#6L+	D4#6:+o24#5*]"]T	~s6T	}~s6tTol~s5cT[\~s5S+K4#FC}).#;}).)(a (al^hLOd^hLAW
W
y:0> 1:g*b'J 4{*b]3>f]3:*aJ~WvpJ~We*aJ~Wvz#2*`m2~<*o*`
NS'A*__%f>J_%f:*_
:03*^]I	!X*^] n] g*]]:jp]:f*]S\jHS\f*\Kx*Y7*Xf*W>Af*VAZW*U"*TI"*S]#z*t0jm*soXj*s*r*rMd^*qf
Z3*qyd2*pf*p*o	Vy*o?*n%
L*n
/G*mSOb*mY\t*lJ~Ws*lMH*ksJG*kW}*j*
*j]=*i =*i*h_%f:*hP^!w*gMOQMH
|27Ot*\XO%n2XO%g*[XO*RU&Y*Q0x*P:%*gS`*f"	*fqIA*eKQk:*eU&S\*dU&A:*d,`*c,`]9*c
XU8DU6(C8DT:D(AK!+aK!*}G3zo*w	*vo_*v1u^*u*u8DTNi(A8DTb	8DTS8DTbk(B5~5zK!+
IK!*}^^
X}

O}

2Y5G*P,c$*Or*O	Wcu*N*Hc*N*M*M
*L
*L	*KWuS*KX*J7:?*J"BMx*I


Y/J7KY.fG7HY/S7ImGzymGv86wf0)V
]Z27Z
iwe8

6MR	*G,d6
|wWHEWR
vGL(V
rL(Kv
ok7:?*
l7:?}

7}
HMV
?HMI
*F	*F%B
,1Z
	*E->zrI.zri.tia*DM+NPM+G%hzPEi%iSEi(U&@(U&(U&.(U"
}_
*
}Z
P3I+*
3
qjW"i*o6
}^

}Z"hZ
o5	*C*C$**BM+	M+
U&bz	#|	J~WwPJ~Wp;*B	*AZFYZ@*no7:%lZZ9)}
)}lZzuuJ~WvCJ~Wp*A*@8Hln8Hlg>A~&p>A~"})."+}).
eZ*>^hLAf3>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)"+hRTw^:/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%PyU
}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 5SbDQPHWnA}WJ5
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[Zp< 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[gAxJA2PRUVTW3S\"7NQW7zOXP%]to;#)^yhe P+z
@P
/@RPU	T#=	S_.i=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>^~[0zHCgR8H0W* 4s^\'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!9g4pJ  %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"}RKtv60?
'0J&}JTkL{[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{dN0I6JKn#ll0:^|~0^
a8J1
d	h0`
l1	m2}1j7g1K/0o
HF0H
%
A0IE0l60P('(0vK00n
SN41L>O1 6Y*0!
l0;%LJ1(eR0^|{0\1V(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]!+{ 0xL+x@LeHaS@7O@2-b,>,>q,>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'/+x//+x,>7 [0XQ+&Q&,>,>Z4+a,>7  [ 0X+,Q(Y,>,>Z4,>,<T,<T,<V,<V,<R,<S,0$,>,>,>P,0 ,\=,\< 
*g.* J*g0*0jbPZ
</,,<<,<=,>,>,0,0 B(1Z<,<<,<=,>,>,0Zw4PCp/ PB\2V,R>,R= $ DCZ=4FI\&.F=> FD4FL B3HD+L C9F,<*R,<*S,>C,0,\*S,\*RZ
94JQ 
:
 J*e1J+T 
*e0L+WZ94NW\..N9: N*e P/~+x+H`,_@@|@4WxSWTGET!0 PC,>,>~,>P,0 \W,\H,\O *e0@+n\W\W~,B,B\& FC,>,>~,>P,0 \W,\ ,\'+z\
W,</,<(,<O,<O,05Bu\
W,<7,<0,<M,<N,04Bx\.O\W~,N@,NG+z\2L\W~,R,R *e0F-+
,>,<J,<K,<V,<V,<I,<I,0$\W,<',< ,<G,<H,0,>,>,>P,0 ,0\
W,\(,\/,>,>~,>P,0 \
W,<7,<0,0\W,\8,\? *e0P+,++
 *e0R+,+ *e0@+Z94D\$.D9: D*e 6,0d P/}+x:Y%H @@$Q@\W  x
FILENAME!& F*g\(V,H*S,H*R7@*f+%+>,>~,<E,<F,<D,<D,<B,<C,0$,>|,<A,<A,<?,<@,<>,<>,0$,>,<J,<K,<V,<V,<I,<I,0$,>,>,0,,>,>,0,6@2+7,<<,<=,0[7@2+9,<L,<L+:,<;,<;,\;,\:6@*e+v!* J@\,V,L?,L>7@2+B,>,<W,<W,>P,Z>5N`,>,<:,<;,>,>,>,>O,>P\0 P@,>O,0'7@@+N,>,>,<7,<7,<6,<7,0,>,<3,<4,0,>,0,<5,<5,0Zw/2,>,>,0,<W,<W,0,<2,<2,0,\<,\;,>,<;,<<,>N,0(7@@+`,>,>,<.,</,<6,<7,07@2+nZ>5Dn,>,<L,<L,>,>,>,>N,>M,>M,0',>,<;,<<,>N,0(,>,<V,<V,>,>N,0),>,>,0,,<:,<;,<-,<-,07@2+s,<;,<<+t,<V,<V,0,\8,\7\& F*e\(V,H:,H96@@+
Z
91j+Z
90,+
,<9,<:Z9/.,<),<*,>,>,0,>,0,04B
Z>4P	,>P,>|,>P,0 ,\:,\9Z>4Rg"$ D@+
,>,>|,0E,\:,\9+x7@@+,>,<(,<(,0 BA,>M,>L,% *e0F+',>,>,>,0c B? ,<:,<;,0! B  
?,<;,<< 
? ,0,> ? .8,>,0# B(6@C+  ? | R@7@2+" ? & F ? XA,>A,<&,<',0 6Z,0d+R *e1H/+* 
*e0J+N6@C+,Z
;4LM,<;,<<,>L,>K,0# BA6@A+5,>A,1,<%,<%,0,<V,<V,0,\<,\;\. NB7@*c+G,>,<:,<;,>,>,>,>K,>K,>J,0'7@B+@,>,>,<!,<",<V,<V,0,>,<;,<<,>N,0(7@@+G,>,>,<,<,<,<,0,<:,<;,<-,<-,0,<;,<<,0,\*Q,\*P+N!0 P*c+R,>,>,<,<,<,<,0 *e0R+u,>M,>L,%,<;,<<,>L,>K,0# BA6@A+^,>A,1,<%,<%,0,<V,<V,0,\<,\;7@*c+k,>,<:,<;,>,>,>,>J,>K,>K,0',>,<;,<<,>N,0(7@@+k,>,>,<,<,<,<,0,<:,<;,<-,<-,0,<;,<<,0,\9,\8 *e1@/+u,>,>,<,<,<,<,0+v!" B*c,>M,>L,%,>,<:,<;,>,>,> $d D*f,>I,>I,>H,0' *e1F+ *e1H+,>,>,<,<,<,<,0,>,>,0+,<;,<<,>K,>H,0# BB,>,0",<%,<%,0,<,<,07@C+,>C,0",\=,\<,<<,<=,>,>,0,<G,<H,0,<,<,0,<<,<=,>,>,0,0,<J,<K,0+,<V,<V,0,\=,\<\* J@6@B+!,>,<<,<=,>N,0(7@@+%,>,<;,<<,>N,0(7@@++,>,>,<;,<<,<,<,0,<,<,0,<:,<;,<-,<-,0,<;,<<,0,\*R,\*Q7@2+<,<:,<;,<L,<L,04B5,<V,<V+6,<:,<;,<,<,0,<;,<<,0,>},0,>,0,0[\, L*fZ6W,0d+F *e0N+C,>,>,<,<
,<,<,0,>M,>L,%+~ 6W,0d P/~+xC*d*d*f*xB*yBA<;A*y@@*z?*e
H\
W@:@\m@DFsxx5x5x5x5?xWx5COMMANDSCAN@7@@HQ8HX8H*8k@@pQ8pX8p*8@@Q8X8*8	@@	!Q8	!X8	!*8@@Q8X8*8E@@JQ8JX8J*8N@@SQ8SX8S*8a@@fQ8fX8f*8k@@pQ8pX8p*8u@@zQ8zX8z*8@@Q8X8*8 	@@ Q8 X8 *8 +@@ 1Q8 1X8 1*8*<+,>,>,>Z4 PZOZO~30+ P,<~,<Z~,<,<,>,>,0,05Bg
"* +/~ P/~+xQyH
 

@x@?,m@?sSUBEQU,>,>h,>Z4,>,<
,<
,<,<	,<,<,0$,>,<,<,<,<	,<,<,0$,>,<,<,<V,<V,<,<,0$,>,<,<,<V,<V,<,<,0$!, L*f\. N*c,
,>,<L,<L,>,>,>,>c,>b,>b,0' *>1P+.Z*P4R-\2.R*P*Q R*>+),>,<*P,<*Q,<,<,0,>b,0(7@*c+47@*>+8,>,>,<|,<},<,<,0+I,>{,<L,<L,>,>,>,>b,>b,>b,0',>{,<*P,<*Q,<{,<{,0,>b,0(7@*>+F,>,>,<|,<},<,<,0,>{,<x,<y,0H\ w,@*Z,@*Y,>,>,0E,\*X,\*W,<t,<u,<*W,<*X,y4BS *d1B+S,>,>,0E,\*X,\*W+O $ D*n D*o D*h!& F*d F*k F*g F*h F*i+Z (+Z!( H*j * J*m , L*n L*j\.r,N 2,N 2\0o,P*W,P*V P/~+x*w*>*xHk
j@L@@Bm@B`sxINITIALIZATION,>,>$,>Z4 P,<O,<H,0!ZO(D. B*?(BF*?# B*?&" D*l D*r *l(F,< 2,< 2,<O,<H,04B|\"Z6&,0d+ *l(HZ
  25J!"Z6&,0d+ *?&0&0 R*?.2 R*?12+ *?/2 R*? *l.*? @*l1`+
 *l/" B*l+
 *l3B*r+ *l(D,< 2,< 2 P,<,<,04B\"Z6&,0d+ *l(HZ
  25J!"Z6&,0d+ 
*?.
*? L*?1l+ *?/. N*?+\0 P*l!"Z6&,0d+/ P/~+xclH(

&
&@T@Mdm@MLsxx5LOOKUP,>,>?,>Z4 *l(RZH 25D.6 *l+6 & F*i7 *l+5,<l,<l,<*U,<*V,0,<j,<k,0,0[+6,<g,<h,0[ *l(H\**V,J  2,J  2 P/~+x)HB
A@W0@U,m@U9sxENTERSYM,>,>O,>Z4 
*n., L*n,> P,<?,<8,0H/ P/~+x:CHR
R
Q@Y8@XLm@X4IsPTO,>,>`,>Z4,> P,<G,<@,0H,>,<j,<k,0H/ P/~+xKSHc
b
b@[@@ZLm@Z4YsPTO1,>,>p,>Z4,> P,<O~,<O,0H,<O,<H,S/~ P/~+x[cHs 
s
r@]@@\Tm@\<isPTO2,>,>,>Z4,> P,<},<~,0H,<~,<,<,<,c/} P/~+xktH0

@_X@^\m@^D{sPTO3,>,>,>Z4,> P,<|,<},0H,<},<~,<~,<,<,<,t/{ P/~+x}H@

@b@`|m@`dsPTO4,>,>&,>Z4 P,<',< ,C,>,<j,<k,0H/ P/~+xH)
(
(@d @c4m@csPUTOUT,>,>6,>Z4 
P,</~,</,C 
P,<7,<0,S/~ P/~+x!*H: 
9
8@f(@e<m@e$0sPTO2,>,>H,>Z4 P,<?},<?~,C P,<G~,<G,<G,<@,c/} P/~+x2:HL0
K
J@h@@gDm@g,AsPTO3,>,>[,>Z4 P,<O|,<O},C P,<},<~,<~,<,<,<,t/{ P/~+xCLH_@
_
]@jp@idm@iLTsPTO4,>,>k,>Z4,<V,<V,,<V,<V, P/~+xV`Hm
m@lp@lm@lesPRINTROOM,>,>,>Z4 *n0F+s,<*V,<*W,C,> P,<',< ,0H 
*n.* J*n0j+{,>,<f,<f,0H+~,>,<j,<k,0H , L*n/ P/~+xfnH

@p@nm@ml~sxHALWORD,>,>3,>Z4 W(N,<8 2,<8 2,\*@,\*@Z*@4P *@0P +Z*@4R\2.R*@*@ R*A,> W 0$0$+!+,<V,<W+",<d,<e+",<c,<c+",<a,<b+",<`,<`+".$,0aZw4F$p/ FW,>,0,0H,>,<*@,<*@,>,>,0,0H,>,<*@,<*@,0,\*Y,\*X P/z+x	H6
5
5@up@q,m@q-s
xMAKSYM*@*>,>,>	,>Z4+Y,>7  [ 0X	+<Q(P,>,>Z4+A *+B * J*B2j*j+N 
( J*A,<^,<_7@W+H 
*A 
0z+I *A 
8p,>,0,<],<] *A(P,<@ 2,<@ 2,L 
*B9
B P/z+x.;HXWV@z@w|	@w4N	
xCLASSOUT,<Z,<[, 2 R*B2r*q+m,>,0,<Y,<Y,0,<^,<_,0 Ho(R,<H 2,<H 2,0,<^,<_,0 *B0`+g "+g "/*B" $ (D,>,0,0, *B9[,`,`,<V,<V,,<T,<T,+s,<Q,<R,,>,;+v,<P,<P+w,<V,<V,<M,<M,0, *q1h+},<K,<K,,>,; * J*A0j+	(JZ
( 24L *A6@8f+ *A @4p00+ *j.2 R*j *A Rf *j *A H 
*A9
},<G,<H,+
 *+B2j*j+R 
( J*A 
(0J+3 
*A 
0f L*t,<P,<P,C,>*A,	,<F,<F *A6@8z+ *A7@@p+,<D,<D+,<B,<C,<A,<A *A,>Hf,0,+3,>{,<?,<@,<*X,<*Y,0,<,<,0,<j,<k,0,0H,<*Y,<*Z,<>,<>,0Z*X,<*X,<*Y,>,>,0,0,<<,<=,0 *A,>f,0,0,<;,<;,0,<j,<k,0,\*Z,\*Y+Q *A  f H*t+7,<P,<P+8,<V,<V,C,>*A,	,<F,<F 
*A,>(f,0,c+Q,>{,<?,<@,<*X,<*Y,0,<,<,0,<j,<k,0,0H,<*Y,<*Z,<>,<>,0Z
*X,<*X,<*Y,>,>,0,0,<<,<=,0 *A,>8f,0,0,<;,<;,0,<j,<k,0,\*Z,\*Y 
*B9
`,>,<8,<9,0H 0 P*B0p?+h @ P*A4Pg *A H0R+g,>,>*B,0,<7,<7,0 *A,>f,0,0,0H,> *A6@z+c *A7@ p+d,<5,<6+e,<4,<4,<j,<k,0,0H *B9U,>,<1,<1,0H,<-,<., * J*A0j+	 
(0J+	,<,,<,,C,>*A,	,<7,<7 
*A,>0f,0,<^,<_ *A(N,<8 2,<8 2,,> *A(P,<@ 2,<@ 2,<^,<_,0 *A,>Hf,0,0,<^,<_,0 *A6@z+	 *A7@p+	,<`,<`+	,<c,<c,0,<j,<k,0,0H 
*A9
l,<),<*,,>,>,0, 6	,0d P/~+xP8H	
	Ah@w$m@w
	
sxx5x5x5x5ASSIGN,>,>	z,>Z4!( H*m H*l H*k 
PZ
/4L	 
(
 L*BZ/ N*C0N+	, *B @ P*C4P	, *C R*l *C(D,< 2,< 2,\*V,\*U\&*V P,F ,F'\* J*mZ6	},0d+	t PZ
?0l+	.g"0 P*C4P	g *B0R +	3   @*l+	g *B0B
+	6 $ D*m+	g *B0F+	9 ( H*m+	g 
*B0J+	< , L*m+	g P,<?,<8,<(,<(,04B	A 0 P*m+	g P,<O,<H,<&,<',04B	F   @*m+	g P,<,<,<$,<%,04B	K & F*m+	g *B0H/+	N * J*m+	g 
*B0L+	Q . N*m+	g *B0P+	T 2 R*k+	g *B1@+	W *B0B+	X $ D*m+	g+	g,<#,<# P,<,<,y4B	^ ( H*m+	g 
P,</,<(,<!,<!,04B	c , L*m+	g P,<?,<8,<,< ,04B	g 0 P*m6@*m+	t6@*k+	t *C1r+	q P,<,<,>,>,0,<,<,04B	qZ6	},0d+	t P,<,<,l B*m/ P/~+x		H	
	}
	|AhA$mA
	tsxx5x5SEARCHIT+
3,>7  [ 0X$+
Q(
*,>,>Z4,,	7@*m+
	 
*l 
(1J+
,<,<,0[!, L*o+
 *l 8f N*o *h.0 P*h *g R@I,Zw4D
p/ D*g7@W+
7@*o+
6@*h+
6@W+
6@*o+
7@*h+
 &+
!& F*h5F
(, P 
 ,\(,\(Z
(0L+
 P 8Z@4R
# @2R*g+
 *h I D*g *h/& F*h ( H*h P/z+x	v
H
2
0
0A% A T$A 
(*
xx5PROCESS,>,>,0E,\*V,\*U 
*d0J+
<,>,>,0E,\*V,\*U,<V,<VZ6*,0d+,>,>,0E,\*V,\*U\,*V P,L8,L8Z*U0P+
R,<*U,<*V,<,<,04B
RZ*U4R
G *V1R+
PZ*U,<*U,<*V,>,>,0,<,<,05B
P, P,\,\Z4H
M+
E, 
P,\(,\(Z
*U4L
T 
*V
0L+
{ P,<8,<8,<,<,04B
_,>,>,0E/, P,\@,\@,Z6*,0d++
{ P,<H,<H,<,<,04B
n,,	6@*m+
g,) *l & F *l  1H+
j,<,<,0[ 
*lZJP,,0 
P B0f+
{ P,<8,<8,<,<,04B
u,>,
,Z6*,0d++
{ P,<@,<@,<
,<4B
{,>,
,Z6*,0d+7@*h+Z*U0R+Z*U4D *V2D*g+ *h I F*g *h/( H*h,Z6*,0d+Z
*U1j+Z
*U,<*U,<*V,>,>,0Zw4N
p/0N+Z*U/0,<*U,<*V,>,>,0,\*U,\*T,<*T,<*U,<
,<,*!2 R*i\ V,@*T,@*S,Z6*,0d+,<*U,<*VZ6*,0d+ 6*,0d/~,<p,<p P/z+x,>,>(,>,>,<,<Z4~+

)H,
*A4@A4mA sxxxGWORD,>,>:,>Z4,,\*V,\*UZ*U4D2,<*U,<*V,	,<*U,<*V+4 P/~+x#,H=
<A6`A5dmA5L4sxGETWORD,>,>J,>Z4,,,\*V,\*UZ*U4F@,<*U,<*V+D P/~+x5>HM
LA8`A7|mA7dDsxGETGOODWORD,>,>i,>Z4,>,\*D,\*D6@*k+b6 *m+Z *l7@ +Z,<l,<l,<*D,<*D,0,<j,<k,0,0[7`*m+_,<,<,<*D,<*D,0,<j,<k,0,0[6@*m+a,) 
*l 
W L(7@*k+P P/z+xENHn
l
kA<XA:mA9lcs
xx5x5COMPILE*D8,>,>
,>Z4,>,\*E,\*E6@*k+y,>/,)Z*E4Nx *E *l P87@*k+r P/~+xepH

A?@A>mA>zsxx5x5MAP*Eo,>,>
),>Z4 2 R*F2rW~+
# W~22~2r~b.} H R*F P,<,<,C W0H+
,>*F,	+
 
W0J+
,> 
*F(L,<0 2,<0 2,<,<,0,>,>,0,0H+
,> *F(N,<8 2,<8 2,0H6@W+
 ,>,<j,<k,0H+
",<,<,S *F9
/ P/z+x{
H
/
-
+ADXA@tmA@\
#s 2

xx5LISTR,>,>,>Z4+
3Q0
O,>,>Z46@*I+
9 *L R*I6@*J+
; *L @*J6@*O+
G *I2B*J+
G $ D*r2d*I+
GD*L.& F*L F*J(F(D\$ 
*r 
(R J R *r9
>7`W+
J6@*P+
J 
*L L*P W1n+
M6@*J+
M *L P*J P/z+x
%
2H
W
V
UAIxAFlAF$
M
xx5ENDCHECK,>7 H[H0X+
YQ2,>Z4+ @*N\"*V,B*H,B*H!$ D*q D*s D*P D*O D*k D*K D*J D*J D*I D*I D*O D*N D*L D*p D*pZ*H4F
*LL*I+,>,
2+ P*k P*N,>,
2+ R*N,>,
2,*L." @*K+
2,*L.$ D*p *N.& F*N+
2 ( H*p+
*N/*J*N+,
2 *L.. N*O,<*H,<*H,>,>,0Zw4P
p/!P*G5P*s,,,\*H,\*H *N.$ D*N+
2* J*q+
l
v
z
o
r
|,0a 
*L.,L*L6@*N++*l *o Ff *o 
*l J 	  
*o.,L*o+,>,0Zw4N,05Bk,0,0[ " B*i *L(D\&*H,F 
*l J R,,,\*H,\*H+
h P/~+x
O
XH
Rx
x5x5x5x5x5x5xASSEMBLE,>7
 
0[00X+(.,N*G2nW+

x
INDEX,
X+,<*T,<*U,<*S,<*T,0,0[,`6@*I+
 2 R*I,<},<~,<*T,<*U,0,<j,<k,0,0[   @*i6@*p+6@*p+6@*K+ " B*K,<z,<{,<*T,<*U,0,<j,<k,0,0[ $ D*i,<w,<w,<*T,<*U,<*S,<*T,0,>,>,0,<u,<v,: *i.& F*i.& ,>,0,\*T,\*S,<t,<t,C7@*I+&,> *I(HZ
,<,>,0,0H+,,>,<r,<r,0H,> 
*N.
*J.,&,,>,0,0H,<f,<f7@*K+2*K(NZ82H0,<,<,04BA,<p,<q,n+ *M,> f,0 
*M 
*M 
(z.
0p4JG,<n,<o+P*M80N+O**M*@f1p+L,<k,<k+M,<V,<V,<l,<m,0+P,<V,<V,0,\*H,\*H *L1r+],<i,<j *L/  (D,< 
*I.*J*L2j*J+x(J,<( 
*M1l+p*M/.(NZ8>,0,<d,<d,0,n+w *L R,>f,0,n 
*L9
e7@*O+37@*s+|,<b,<b+},<p,<q,\*X,\*W*O(F,<+,<*W,<*X,<],<^,0 
*O 
(R,>(f,0,0,n\,V,L*H,L*H!.N*K*O.0P*L2p*P+&,<i,<j(P,<@ 
*KG
*s,>,0,n*O..N*L2n*P+3(N,<8n *L9) *P.2 R*L2r*J+m(RZH 
*L(JZ
(<(,>,0,<d,<d,0,n+i*L(N,<8(PZ@L.& F*L.&(FZ 
*L 
(R,>(f,0,n *L9X 
*L 
0R,>0f,0,<d,<d,0,n0*L..N*L+i**L@R@f,>@G,0,n+l0*L*HR,>Hf,0,n*L947@*k+s**J.(D,<<V,<W,0,n *n1F+,<p,<q,n+7@*p+
,<,>,0,*,` 6,0d P/~+x
/H
BAFmAE|sxx5x5x5x5x5x5PRODSCAN*H
,0!, L*e,,<Y,<Y,!. N*q6@*k+$,,,\*[,\*Z+!,<*U,<*V,<W,<W,04B',p,<*U,<*V,<T,<U,05B/,>,>,<P,<Q,<P,<P,0+S+0,>,N,<*U,<*V,<M,<M,05B7,>,>,<H,<I,<P,<P,0+S+8,>,N,<*U,<*V,<E,<E,05B@,>,>,<?,<@,<P,<P,0+S+A,>,N,<*U,<*V,<=,<>,04B,,>,\*[,\*Z6@*k+++i,>,>e,>Z4 *l6@@f+N *l *j.  @*j @Hf *j *l F7@*t+R *q 
*l 
(f J G!, L*t *q1n+\ *q1p$+Y,>,>,<:,<;,<:,<:,0+\ *l *l pG*u DHp+_ *l *l  zG*u Hz P/~+xGHh,gB
B	
mBt_uxCLSIDASSIGN7@*l+6@*m+,) 
*l , L( *q.. N*q0n+q 0+q 0/*q" 2(R@ R*u   @*t *l *q Ff *q 
*l J o 
*l(L,<02,<0 2,<8,<8,04B} . N*w5N *l(P,<@ 2,<@ 2,<6,<6,04B 2 R*w4R $ D*l0d+ 2D*w+,G *l9+*7@*l+# *l f F*u1f+
*u/*  ,(L  L*v . N*v2n*j+" 8 N*l *u0p+ *l HzA*v5R *u1`+! *l pA*v4D! *q0f+ *l 
*l 
(zG
*u J z+! 
*l *l 8pG*u N0p *v9+*7@*m+%,G+* 0 P*i,<3,<3,<*U,<*V,0,<j,<k,0,0[ 6u,0d7@*k+D,`,8,<1,<1,,<*U,<*V,<.,</,05B6,>,>,<*,<*,<P,<P,0+S+:,>,\*[,\*Z6@*k+9,
/7@*k+6,`,<',<(,,<%,<&,,>*^ *o/2,>,<#,<$,>,
,<!,<!,,<,<,,>*^ *o/ ,>,<,<,>,
,<,<,,>*],>*j,<,<,>,
,<,<,,<,<,,<,<,7@*i+U " B*i,<,<,0[7@*i+XZ6s,0d+j,>,>,0,+i,>{,<
,<Y,<*Z,0,<j,<k,0,<	,<
,0,<j,<k,0,<,<,0,>*t,0,0,<,<,0,<j,<k,0,0H,>{,>,0,+ 6s,0d P/,~`/HwsBPxxsxrxrx
sxrxrxrPTRANX*P8(@	0 H";HDEFINE NUMTRM="'H
ENOUGH="ENOUGH";	H

HERROR RETURN
HBEND PARSEH	}HSYMNO_ .-SYMNAM
HSYMNAM:	SIXBIT/SYMNM/H	SIXBIT/
HEXCNAM:	SIXBIT/EXCNM/H"	IFN FTDEBUG {H$	SUBR H&EXCTAB:	H(LSTON(SUBRS)H+PSEUDO OP <PRODUCTIONS> MISSING H/<PRODUCTIONS>H2PRBG%:	H4UNDECLARED SYMBOL H7@TERMINALH9@RESERVED
H;CLASS TABLE OVERFLOWH><CLASSES>H@PSEUDO OP <NON-TERMINAL-SYMBOLS> MISSING HF<NON-TERMINAL-SYMBOLS>HIPSEUDO OP <RESERVED-WORDS> MISSING HN<RESERVED-WORDS>HQPSEUDO OP <TERMINALS> MISSING HU<TERMINALS>HX<SYMBOLS>HZLSTON(PDEFS)H\+BPRESUMEH^+BINF+H`+BINF+BTEMP+HcBCLASSHe+BTEMPHg+BDONEHi+BINFHjHl+334Hm+BCLASSHo+BCAREHq0Hs.+FTDEBUG+Hu	XWD Hv/>
HxIFN FTDEBUG <	SIXBIT/
H{NOSUCCESSLOCATIONH~NO LEFTIPARTA	HUNDEFINED SYMBOL ? H/H      HAAH	IMMORAL SYMBOL H.+FTDEBUGH
HASGHH;HMUMBLEHINVALID CONDITIONAL SWITCH
HSGH NODESH"OLDBASEH$BASEH%PRESUMEH'SCANH)EXECH*	LSTON(PRODS)H-;	H.;	SYMBOL TABLE ENTRIES	H2	<RESERVED-WORDS>
H5  NH6  CH8  H9	<SCAN TABLE>
H<",H= = "'H?  OPH@   HB+HCOPERHECLASOPHG__HH;	SYMBOLIC ASSIGNMENTSHLCLSTA2:	0	HNCLASSNO _ .-CLSTABHQ^HR00000000HUCLSTAB:	0	HW;	CLASS INDEX TABLEHZ; H[;CLASSES, BITSH^	;H_	HaCHbTHdNHeRHg, 	HhSYMBOL TABLE FULL
Hk
HmDUPLICATE SYMBOL Hp	BYTE (12) Hr                 HuCOMMENT HwDEFINE 
HyINTEGER ITEM 
H|SAI	H}OUTPUT ENTRY ERRORHQQQHINH
HXRNH 	HIRNH	
H 	

END OF FILE ON SOURCE FILEHPTRAN:	H FILE NOT FOUNDH,HPTRHCAN'T ENTER  FILE	HPTRAN COMMAND ERRORHCANT ENTER  FILE
H" DEVICE NOT AVAILABLEH&.H'SWAPH)EXITH*                       H.:H/COMMAND FILE NOT FOUNDH3.TMPH4PJOBH6000H8COMMAND DEVICE NOT AVAILABLEH<TTYH=
*H?INAH@
HCIHE
HH[HJIAHK]HMDSKHNLPT.HPLPTHQSWTVALHSXAKHU0123456789HXPTRANH.@(yyHm@,