P

%&P+/n3.7@?  GN K((@&&U-}VW^U@0V2GU

UszU
&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U
%A B@INAGEb0oK 
P(jE6EO,E
aLoEd,xPJ	K0O0&,{FNDMbl2{:lD
2
0Hp
@
SICOD
SICOH
SQDSNCSTN
+D+G/+$+t+C-G-0 1+'-
L.K
&2

l/B))t+)')&B)
|
J

4
C{	4K2
22*22*22*22*22*22*2 X
HH4jjrj0@1h$hktHT2IHkKI&
/BfhrffGf&Bf|I 
n
u{nKl
ll*ll*l E@Q2!
>


@
Q2!
G
!

~%
v
fQQ2!
_


|
XQ2
P
w!Ax
@
2!fnhf {L>0G>&aLO
@J{xXXPnaL1
{lP0n(gla@
N_K{p{f{drn+p3
101"IERHRAN2 AIPTNI4NB4PUE@R
PYC ! 	0	ES
@`P@
PPPxp	/%k.g/Ep/Bp?%)@5/`B"A +sp &M&;IA>P
D`^`F!4"`A"' (A3T0lP,5Fl	)F_&
Af;
Gf
Jf
Mfg	*,(MXKs4Ki["G[BKAd
<"[C$|"=!,,2%.[C$"@!8/ (.[S$"D"P&,,2%.[W$ "F! :![O$[S$0"+>)8/ (
.[W$:"F! :![O$
D)BgX"XGCH@<=25)uvpldpe\p`YpTVpKLpIFpLDpDGpELpHGpNLpTOpINpIQpJBpD<pB<p7;p36p.(p0'p**p(-p#p!p'"p"p&p pp!p
ppppppppppp{p~"F6 N$6%FQ%J$:$ N%$c

n
|`(!z{| {K(Q( 	~G}
&06z
|0b!{if>f;<"
FnziQ@p	@
&!LM.K0yK(xK(Q0
zI
]AyY4TMAR0 X
  ES3   z
lb"H~Fna	#'
)W3K<_lra&N,[_b(ze[
^6	^Cx(w_e`Fnx`cVdW6Ca.^	L^0?/.E"`9z^c(:z f[&V VbJ
n
VbV n^d	^C`Xc'LU,~(/y]9c
@0`v9=	_B}]&]]6] /e|2v_b

L
w	v]&e3
&o}?x"""Bu(~""ts"&x0 t$k;CM(&"@"z6"bc70~"0CjMG
0r }0&@/3~"66&C|%{q)~0"
~p'&@>uo %u&sr&4H/Cz)< hhC(M{<<b!;f@/zMM0yh&h<6<!.;xbwgv[{@A"?X"rJA6)b6mgfD}
LG(*A	C

n
|`
&
(?4
.fnb""cac 0z"DJ"Cx$
"bt"

n~}'cx!"n0"{4z
	:
7
'"&ff"7"D<$&Dn"Mh/v)8d"
"b#Nkn&M"@T{ ?TTK>>|9>>4| bm)m`U((/g;2_Ugu.!xJ&NW?
(?R})
<Gi#x	~~rb!g
'}(&|+&f,f{=&z2&yx)wx)(6 /T($+&J6J +f(/&.>&.v"W/utxsrbq= py
oCPc
IG
w		Kn' b

n
aha(W0| {| {)am7vF*
:&3 0N)C0C`7$n^t`FA,&d=b=fn,h==t==2D 8%=&2&0.fo =;
}`	 0V>b
VbnVVbn`~)
-J})	ff	}9>J	!6	j8W!|{
l	<}!Hzr{)d: >f!.)d>!by`)Wxwdnv})>&	)8jS0T0
@
c
W0	T`OLATO O0F	IN
lYo ;XKu'K gOx<u<6;y'K2=Hl4lqAn,]6,\SmS g {7,\qn,o[lX<p<'U3P28GSOB O0F	l'IN
lYo1;,1elCYE'1x<'E4l5,Fill4/
XKpKu6Kp<u<6;p[u6Ki#n 2n





	JA	#RTN#NE1731,7
2
.A2
6
L~T/r}]	Bt.B{G(.|91!. /=2"({{zi"A
lTb	,c]{2e0(G{|d6
TIq	L	6	c),r)		Cifr	i(]	y){b4lgg"&
<osi1H@
@>_`5$n@
^6q~&$}"H|r~H. f0!b{b

l
	<&Jnk
56g08f))f))f
n;"<=&
0b,dz0'
y2ti%'xy
0ki?Neimi?ki?mi?mi?m)?EiFf~w ?v|3H td"fuP"
(ZU#8CVR1R@VR	A@18I<kr+PU	p>vy!fn$(/]"@zr0!f0r (z(/$X!f$"k><*]#*|y\Z*X0"r(]g#fc
@n#
2f~"2gr"
r#r
'gp'&0b*0r (<z'h9 'bfn(?<"(bz@&c##7%cn"":z]J]JB
'g~'&$!"iy'c}"@Oi .F."c%#s&v{lqz;%q*a:jGOt)~}|N(/{2bziz)m&Ykf+(f#	"y	xin$J /P("fnl		< (o
. ?$)x) bwc(rvs+'1Bk~i0}is"kbld{+
$r dz
}IzEY!.k&u$^o&Yk&on& Xb		lP|6k
pek%@/|zLerP&[R(/"q~tBFg~lif.H>(}
 ..r|/r{/r@ubo./F
2fzy'x&
gw' .bH/bnf
g'2"2yevV$qW}!>cnFd72'5'5$R;*&lui%j(Z"&"J.x"btt)#@>&&7%cn"%Zzm X(@*d0;)9#.'/~',(/0&
}C<	lv_|q)zvn /&
{Cz	|Cytx7 w'
vC}2FXon~v
<x"_u22P3b8<zvi2t's&v	<x2'2'
}IcH
`	rB	qbjbc66bJnn	6o 	s	s	tUJp6& fk4	c
lnbd&iCA
n5T32=Fn x(/	 .({j&
h9j(&&l(# zi&~ &}y."hzvdyCxi&oD%>5f&@>/>&/&'>/&%c.>&>j  &z.%'>.&)L2g02fsgrtphU#"wGR9"a>% ?^##a&cU{
%7#&7U67	C	(Oe6(+"+b(ekly|3xJ szrC2)	p9"`8b|'
!~\ 
$P
@@^_6R3#`)W	q(q`rYJrUU/
Fg
pz?pgfD*%xDuTd#hBpN &W ?
|K
i- &  C! d h?#"@~~J.

n
,~}28b }ic@	N0
b*%%
%b&*kL#A RG2N VR1MDR
	OR0Sx;RRC
&sK*!VJ"L*p'+o',+0vf

hzzfn 
bDf.Hs{b lJ

"d*n &
#Q6U;`!,(X)&!E%$[bA"rgU3'-`ar`;eAr`;AP!1%:
of:o^!E15p%.:mo!`A4X% :o@Bp%:o^!7Bp%%2o:o:mo`!,7
k'!E4Rqr!br^"X&!:;
e\;@;!V +8'% 2o:I_!E: pA!L!=!,A@X;!3!Vo';!@3
!;m!`;!V!@!,@XP'!E=Ip"SbE"B

P (`&!C!AFX;e@;
l% 2o;?V!EF!AIX% 3?:o^!EI:!,CX(!L!AOX;e@;
l% 2o;?V!EO\!ARX% 3?:o^!ER|!,LXW(`& (' ( 5`	0g@`&E@R
PYCLC@ C	0	ESD@TC
C@L0CL@@DS@


20TN@HEF0APC0L@PDpo:mo`3
5:o:mo`4
4:o:mo`4
@S!4:o:mo`4
5:o:mo`4
@S!4A@S!:o:mo`4
@S!@5:o:mo`5
5:o:mo`,4X[&L  +#`2o>:o^  2
:o^Dz' 2o;P 2o:k_Dv' <@S!`:-o`:
om{`!L :o:mFp,BZp*{W[	}r{:}wp,BXp@@2
w*yw|:F:mp,B	,Bu^D%D%	JLE	#G0013
	FLDA	A22
	EXTERN	#RSVO
	TRAP3	#RSVO
	EXTERN	#RENDO
	TRAP3	#RENDO

#165,	JA	.+0014
	5047
	4040
	0250
	1154
	0451
	7547
	5465
	0561
	6556
	6651
	EXTERN	#WRITO
	TRAP3	#WRITO
	JA	#LIT+0011
	JA	#170+2
	FLDA	#LIT+0003
	FSTA	I

#G0014,	FLDA	I
	ATX	7
	FLDA	COEF-0003,7
	EXTERN	#RSVOQ2!
>


@
Q2!
G
!

~%
v
fQQ2!
_


|
XQ2
P
w!Ax
@
2!fnhf {L>0G>&aLO
@J{xXXPnaL1
{lP0n(gla@
N_K{p{f{drn+p3
101"IERHRAN2 AIPTNI4NB4PUE@R
PYC ! 	0	ES
@`P@
PPPxp	0%l.h/Fp/Cp@%*@6/`C"B +tp 'N&<IA
EVfF1&>'* A;Tl
P,FPl)`F!\"`
BV`<P`
HV`
KV`
NV`d"	,,(X\s<4i:[E$[I$
B=["ABy"=-B3R[bAB"@9r![bUB"E"Qb-B3R[bYB"F:[M[BQ[BUB/"2?
9r![bYB9"F:[M[BQ
AEd)d"X X 
	CALL ACCEL(2,FLOX,ACCX,IDIM)
	CALL REGRS(PRSN,VOLN,FLON,ACCN,ITMP)
	CALL SIMUL(4,EPS,0)
	CALL PRIN
	CALL REGRS(PRSX,VOLX,FLOX,ACCX,IDIM)
	CALL SIMUL(4,EPS,0)
	CALL PRIN
  100	IF(IBLK.LT.16)GO TO 40
        STOP
        END
	5757
	5754
	4047
	4040
	4003
	1722
	2205
	1401
	2411
	1716
	4015
	0124
	4754
	5754
	6550
	2465
	5465
	0561
	6556
	6654
	5751
	5100
	EXTERN	#NE
	JA	#RTN
	EXTERN	#NE
	JA	#RTN
1
	3054
	0561
	6556
	6651

#190,	JA	.+0053
	5047
	4040
	0317
	2601
	2211
	0116
	2440
	1501
	2447
	5457
	5465
	5024
	6554
	6505
	6165
	5666
	5457
	5154
	5757
\&`NB@CBKRR^```` % ```E+ME
@@`PPPxp	
@3P!(o` kpG%Ip/FpG%wPC%-@9/3`.F E"0w/?` *K&Q`?))P%L
K<WK| AG BWSWA


HAHAHA@
A\
@l
lbBEQD CK
@= !7` WzO@v7C!K!A
A@7+/%/UCKRPuA{l :I;,Dp&"!Ll  2	o;mwP*
o"iol[	!2&I%2Aof;GUD
&D&`X%' ;w`DN&DL&``X%' ;G`Dn&Dl&`'/t+4q!n,]i@:@;
:I0PD'<e@ ;GU 9CP,B-p!Lu^ 2o+9C59CUDF'DD'Z&Z&e(e"eRCLK"
A 
H
g"3"3
 AF;g"$ e"SW A
H
HH

BR@A
)P-M
K,"O#Q
,



O"|(X
3 HCa"K^" 
   Z z"zRCaK"^A 
H
z"A&#@+U"[)##d"[H#z"d"z"v0
Hmg_#_#LG 
@b C#_?@OuH~K	~]uA}ofy|tDyd]_SCFK2CA0

8#+<#@D_##@@
02s.S+=/1-2/P/PC%K%[S9BaRQ	cl[h D,7%{^	^u`9
Qmx`[e d,j%7%{.s%[w n,C%u.x.9-x^![BeRjR7RlX2E"27
@lX2O"2d	
@@#	7n,P 
8=i	81H8iq P 8=]"D2R#`
v#@#8f6
"D2{
!`6#
' (l)!g5{qn)S`2v$@	8H6
"D2"181i`,"C0#@8]6
"D2>1
?1}s`,#CL#
1`
1`
6

`
6

`
6`

6v 2
A`
6

`
6

`6`2vV$@@#	8E6
#D21#D21# 	81`,#C*#,#C(#6`2v$@@"8!6
"D2J1"D2H3`6v 2A
" 81q`,"Cj#,"Ch#6
$/o(=u\6/;i#$+''1,CIE1llu\6/;p<'T4N 
R',lu\6/;p<'1LEg/K4q1n,]l/8u<b&TRAP3	#RSVOIUCC2KRRDT	#LIT+0003
	FSTA	I
	FSUB	#LIT+00 0% #0014
	FLDA	#LIT+0003
@@`PPPxp	
d@
V

@
@@`pPPpx	@
@o`3%! kpI/pF/CP-,9p.F e%`!&E +wp *Q&??&I
	FADD	#LIT+0003
	FSTA	I
	FSUB	#LIT+0014
	JLE	#G0016
	FLDA	#LIT+0003
	FSTA	I

#G0017,	FLDA	I
	ATX	7
	FLDA	SD-0003,7
	EXTERN	#RSVO
	TRAP3	#RSVO
	FLDA	I
	FADD	#LIT+000/%/UCKRAP
HAHAHA@ +&!A'BfR-P`&.!r^"
r!d-@!@A%X!(
r!dT&!+!@.X;eRp;V'!E.8`!,+X3&% #/-d`[A"f&d&[BA"mbgT'% :oAr`;eQr`;`!,(X)&!E%$[bA"rgU3'-`ar`;
Ar`;AP!1%:
of:o^!E15p%.:mo!`A4X% :o@Bp%:o^!7Bp%%2o:o:mo`!,7Xk'!E4Rqr!br^"X&!:;
e\;@;!V +8'% 2o:I_!E: pA!L!=!,A@X;!3!Vo'
;!@3
!;m!`;!V!@!,@XP'!E=Ip"SbE"B

P (`&!C!AFX;e@;
l% 2o;?V!EF!AIX% 3?:o^!EI:!,CX(!L!AOX;e@;
l% 2o;?V!EO\!ARX% 3?:o^!ER|!,LXW(`& (' ( 5`	0g@`&E@R
PYCLC@ C	0	ESD@TC
C@L0CL@@DS@


20TN@HEF0APC0L@PDp&m[RwRCRNBCBKRRRubx`:
E-x`[e ,-j%7%{.  % Cu.g%[w @-C%u.x.EbL@Ama	bu^9?x^[BegRjR7R
@@`PPPxp	@3P!(o` kpS%Ip/FpC%-@9/_P.
 E"0w/kP *w%Q`?)d3\-F,YbgR@Rad3y-[bSwRaRR%@^[S .a%%%,/%/UCKRPuA{l&9C:k,D&[B	3b[\@L@L(ll[	!J&7%@l[	!T&[%@@2
ol'Sh;kU:I;ku@S!;_UDW&
`j%&9C`D&'j (l)!g5{qn)VjROp@:
Iv,B%`@;
kV,B3`@;
_V,BA`@:
wv,BOa
`````j%['`xpzpswprzpyxp{pp}pvxpsopsipgA+IAASS
A

HA
MF
2 oPq0

A
@
(T 8	xxp x 	 	xxp
SS A
H
H
B[>@C R@A
%P%L
K8SKx AG BSSSA


HAHAHA@
A\
@l
lbBAQD CK
@014 !3` WzO@v3C!K!A
A@3+
	!lHk!@QA
5;1@bl-
	1

3@k!![Q!
aAiqRX
<!Uq^QU
+BMa^
K(Aa
[+GXRXXq6!
@d!xQu[O"suxd
6 ~!{!}"!6 "6" "6" "6%3"" $"6/+", ."
h"MD CHK"E 
	*+
;<0;<;
< 0A"a(a"aRCHK"EA 
H
c"3"3 AF;c"$ a"SS A
H
HH

BR@A
%P-M
K("K#M
,



K"x(X
3 HC]"KZ" 
<	
"""w V v"vRC]K"ZA 
H
v"A"#@+Q"[%##`"[D#v"`"v"r0
Hmg[#[#LG 
@b ?#[?@OuH~K	~]uA}ofy|tDyd][SCBK2?A0

4#+8#@D[##@@
0.s*S'=+1)0*1/=(1*4H(((((
(($[0[#$X  CVK2S0
@ O#o0zC|oto
 ,c0va
 EUoSCVK2SA0

@$@;BJ0@HB@d
, h-G0F0?DG2o1G2o6V5f
VVV1]
	FADD	I
	ATX	7
	FLDA	L
	FMUL	#LIT+0014
	FADD	I
	ATX	6
	FLDA	SSQ
	FMUL	AMAT-0022,6
	FSTA	CV2-0
]^=UUP]^U
UP"""** DD1;
<0UV"	" """U	VP	(;<;
*
*/;<;	]^L
M@	*
* ***UUPUVU	www*+ZW%`EC2KRR^```` % ``
` P	l?%B"/P/PC%K%e@@@@U@PUT
@3P!(@n#.*b`@/b'$b(&b)+b))t@(c))t))t('D,"0
B
PE 
@

l<&0w/?`NP@CB4KRERFRQ`?))P%L
K<
W ?% WSWA


HAHAHA@
@P@PPPxp	
4P@p/%?%)@5/`B"A +M`;)a%aUC4KREP`{%&&.`@9B ,BU
aDb
DV
	A
cDmf{R`@9?P,Buf[P@9B#"b:[bh"bfRxT&&@9B9BR-`,Bb:b:bfGuD
& XC7&KH&I&' ;w`DN&D B `X%' ;G`
@@``p@pPPpx	@/P(k` gpE/pB/?P),5p.B A"0s/& M`;)d&dVC7KbH`B#p|^`^zBp^:SA 9BRD'z^@'z
zb@p^|`^[2%9B:^D0'z^z-ze+bQpz[b2R@qz`9BB
|b|^2
:m`,B`p
zd1
B:-`
z`1B:^z 1B:^@'|B|^@'^-`
`29)\D(-a`z@1B9MV z1
B9-)A
z 1B:ARz-ze+biz[b2RX
z`9BB2
m`@
d 1)95_Dw(ab^2
:m`,B
zd1
B:-`
z`1B:^z 1B:^
zd1
B9-;b
z`1B95_
zb1
B:-1zbz^^+p(z^[2%_(z9
B$+(-`
^-b
z`1B95_-a`z@1B:^ z1
B:-ab
zb1
B:-aebLzbz^^+)z^[2%;)`^M`Am 1)9)\E]Am
 1595_E
sdrds$@	8H6
"D2"181i`,"C0#@8]6
"D2>1
?1}s`,#CL#
1`
1`
6

`
6

`
6`

6v 2
A`
6

`
6

`6`2vV$@@#	8E6
#D21#D21# 	81`,#C*#,#C(#6`2v$@@"8!6
"D2J1"D2H3`6v 2A
" 81q`,"Cj#,"Ch#6
$/o(=u\6/;i#$+''1,CIE1llu\6/;p<'T4N 
R',lu\6/;p<'1LEg/K4q1n,]l/8u<b&TRAP3	#RSVOIUCC2KRRDT	#LIT+0003
	FSTA	I
	FSUB	#LIT+00 0% #0014
	FLDA	#LIT+0003
@@`PPPxp	
d@
V

@
@@`pPPpx	@
@o`3%! kpI/pF/CP-,9p.F e%`!&E +wp *Q&??&I
	FADD	#LIT+0003
	FSTA	I
	FSUB	#LIT+0014
	JLE	#G0016
	FLDA	#LIT+0003
	FSTA	I

#G0017,	FLDA	I
	ATX	7
	FLDA	SD-0003,7
	EXTERN	#RSVO
	TRAP3	#RSVO
	FLDA	I
	FADD	#LIT+000/%/UCKRAP
HAHAHA@ +&!A'BfR-P`&.!r^"
r!d-@!@A%X!(
r!dT&!+!@.X;eRp;V'!E.8`!,+X3&% #/-d`[A"f&d&[BA"mbgT'% :oAr`;eQr`B+`!,(X)& CKRRRrgU3'-`ar`
eAr`; @% 1%:
of:o^!
@PppPPpx	@		p
@
@P/P(P?%)@5/`B"A +M`;);@;!V +8'% 2o:I_!E: pA!L!=!,A@X;!3!Vo';!@3
!;m!`;!V!@!,@XP'!E=Ip"SbE"B

P (`&!C!AFX;e@;
l% 2o;?V!EF!AIX% 3?:o^!EI:!,CX(!L!AOX;e@;
l% 2o;?V!EO\!ARX% 3?:o^!ER|!,LXW(`& (' ( 5`	0g@`&E@R
PYCLC@ C	0	ESD@TC
C@L0CL@@DS@


20TN@HEF0APC0L@PDp&m[RwRCRNBCBKRRRubx`:
E-x`[e ,-j%7%{.  % Cu.g%[w @-C%u.x.EbL@Ama	bu^9?x^[BegRjR7R
@@`PPPxp	@3P!(o` kpS%Ip/FpC%-@9/_P.
 E"0w/kP *w%Q`?)d3\-F,YbgR@Rad3y-[bSwRaRR%@^[S .a%%%,/%/UCKRPuA{l&9C:k,D&[B	3b[\@L@L(ll[	!J&7%@l[	!T&[%@@2
ol'Sh;kU:I;ku@S!;_UDW&
`j%&9C`D&'j (l)!g5{qn)VjROp@:
Iv,B%`@;
kV,B3`@;
_V,BA`@:
wv,BOa
`````j%['`xpzpswprzpyxp{pp}pvxpsopsipgA+IAASS
A

HA
MF
2 oPq0

A
@
(T 8	xxp x 	 	xxp
SS A
H
H
B[>@C R@A
%P%L
K8SKx AG BSSSA


HAHAHA@
A\
@l
lbBAQD CK
@014 !3` WzO@v3C!K!A
A@3+
	!lHk!@QA
5;1@bl-
	1

3@k!![Q!
aAiqRX
<!Uq^QU
+BMa^
K(Aa
[+GXRXXq6!
@d!xQu[O"suxd
6 ~!{!}"!6 "6" "6" "6%3"" $"6/+", ."
h"MD/%/UCKRP[O T+d% %>
Bd_27]w`Am4@q^9Mt^ [Ba2mR7Rwbv[Rs	2CRqbt`9
)Mt"`[a +m%7%w.p%[s (+C%q.t.:At^[Ba=2mR7Rwby[RsG2CRqbt`,4\g+7\-q`9
;t `[a n+m%7%w.v%[s x+C%q.t.95t^"[BaBmR7Rwbp[Rs
BCRqbt`:
=t`[a ,,m%7%w.y%[s 6,C%q.t.E7BT1cm`Am:@q^[Ba[BCR7Rwby[RseBCRqbj[RsoBCRqbvP,:\I,Yb
BIRad3,a+YbB@Rad3%,[bO#BdR R@0^[O 0,d% %@+@+(((
(($[0[#$X  CVK2S0
@ O#o0zC|oto
 ,c0va
 EUR%%A B@CEC2KRRR0oK .P(jE6EO,E
aLoEd,xPJ	 @% ,FNDMbl2{:lD
2
0Hp

@`PpPPpx	@`P@@``/P(k` gpE/pB/?P),5p.B A"0s/& M`;)/%/UCKRAP
HAHA=LH>HA@;#l:
&@:	@(2@'*,$"	,	@:"2	@%*@ ",5`@@@:2@@*
"!X(@@;E5b=` :A@%2	A@"*	,"	(A$2,'*A
("	&@:;;Q@;;RPRPES
@`P@PPPxp	/%k.g/Ep/Bp?%)@5/`B"A +sp &M&;IA>P
D`^`F!4"`A"' (A3T0lP,5Fl	)F_&
Af;
Gf
Jf
Mfg	*,(MXKs4Ki["G[BKAd
<"[C$|"=!,,2%.[C$"@!8
 (.[S$"D"P&,,2%.[W$ "F! :![O$[S$0"+>)8/ (.[W$:"F! :![O$
D)BgX"XGCH@<=25)uvpldpe\p`YpTVpKLpIFpLDpDGpELpHGpNLpTOpINpIQpJBpD<pB<p7;p36p.(p0'p**
(-p#p!p'"p"p&p pp!pppppppppppp{p~gO1,6qn,o[l=ML OP O@Fl1,qn)RB'
 O
	TN A'5/5;l-Eu\6/;lo+ol;' R
C	NSTllh5U5q1n,]i@:&&3
#BASE,	ORG	.+6
	ORG	#BASE+30
	FNOP
	JA	#RET
	FNOP
#GOBAK,	0;0
CF,	ORG	.+0003
CP,	ORG	.+0003
CV,	ORG	.+0003
RATE,	ORG	.+0003
#TMP,	ORG	.+0011
#LIT,	0000
	0000
	0000
	0001
	2000
	0000
	0002
	3000
	0000
	0003
	2000
	0000
	0003
	3000
	0000
	0005
	2000
0003
J,	ORG	.+0003
	COMMON	BLK5
AMAT,	ORG	.+0113
COEF,	ORG	.+0014
COV,	ORG	.+0113
COR,	ORG	.+0113
A21,	ORG	.+0014
	COMMON	BLK6
SD,	ORG	.+0017
A12,	ORG	.+0014
CEPT,	ORG	.+0003
DET,	ORG	.+0003
EPS,	ORG	.+0003
SX,	ORG	.+0017
SXY,	ORG	.+0017
SY,	ORG	.+0003
RATE,	ORG	.+0003
IBR,	ORG	.+0003
	ORG	#LBL
#ST,	BASE	#BASE
	SETB	#BASE
	SETX	#XR
	FLDA	#LIT+0000
	FSTA	IBR
	FLDA	#LIT+0000
	FSTA	IBLK
	FLDA	#LIT+0000
	FSTA	IPAS

#10,	EXTERN	#WRITO
	TRAP3	#WRITO
	JA	#LIT+0014
	JA	#20+2
	EXTERN	#RENDO
	TRAP3	#RENDO

#20,	JA	.+0017
	5047
	4040
	1501
	1625
	5422
	0124
	0554
	0320
	5403
	2654
	0306
	4754
	4451
	EXTERN	#READO
	TRAP3	#READO
	JA	#LIT+0014
	JA	#30+2
	EXTERN	#RSVO
	TRAP3	#RSVO
	FSTA	MANU
	EXTERN	#RSVO
	TRAP3	#RSVO
	FSTA	RATE
	EXTERN	#RSVO
	TRAP3	#RSVO
	FSTA	CP
	EXTERN	#RSVO
	TRAP3	#RSVO
	FSTA	CV
	EXTERN	#RSVO
	TRAP3	#RSVO
	FSTA	CF
	EXTERN	#RENDO
	TRAP3	#RENDO

#30,	JA	.+0012
	5011
	6254
	6450
	6130
	5405
	6163
	5664
	5151

#40,	JSR	BRTH
	FLDA	IBR
	FADD	#LIT+0003
	FSTA	IBR
	EXTERN	#WRITO
	TRAP3	#WRITO
	JA	#LIT+0014
	JA	#50+2
	FLDA	IBR
	EXTERN	#RSVO
	TRAP3F%`RA@CBKRR^```` % ``
` P	l
@@`PPPxp	
>gR/P(k` gpE/pB/?P),5p.B A"0s/& M`;)/%/UCKRAP
HA7LH8HA9LH:HA@" 8P  ; ;&PDl%.;

J;P:

G:P<

M<P=

M=P,.X
&  :k`,B$`,B"`A1X::,8:=8;
3;P;4;=4
@S!;0;P;5;=3
2;&;&4
2;&;&4
@S!@2;
;&5
2;&;&,1X<&/V[d1b/l 38`3&0:k^  2k:k^D4&43
3:k:mk`3
4:k:mk`4
@S!3:k:mk`3
5:k:mk`4
4:k:mk`4
@S!4:k:mk`4
5:k:mk`4
@S!4A@S!:
:mk`4
@S!@5:k:mk`5
5:k:mk`,4X[&L  +#`2k>:k^  2k:k^Dz' 2k;P 2k:g_Dv' 8@S!`:-k`:
kmw`!L :k:mBp,BZp*{W[}r{:}sp
BXp@@2
s*ys|:B:mp,B	,Bq^D%D%D(-a`z@1B9MV z1
B9-)A`z 1B:ARz-ze+biz[b2RX
z`9BB2
m`@
d 1)95_Dw(ab^2
:m`,B
zd1
B:-`
z`1B:
^z 1B:^
zd1
B9-;b
z`1B95_
zb1
B:-1zbz^^+p(z^[2%_(z9
B$+(-`^F%0014
	JLE	#RA@CBKRRNY#RENDO
	TRAP3	#RENDO

#997,	JA	  % 547
	4040
	5656
	56
@P
@@`PPPxp	
>gR3P!(o` kpI/pF/CP-,9p.F E"0w/* Q`?)/%/UCKRAP
HA7LH8HA9LH:HA@" <P  ; ;*PDl%.;

N;P:

K:P<

Q<P=

Q=P,.X
&  :o`,B$`,B"`A1X::,<:=<;
3;P;4;=4
@S!;0;P;5;=3
2;*;*4
2;*;*4
@S!@2;*;
5
2;*;*,1X<&/V[h1b/l 3<`3*0:o^  2o:o^D4&43
3:o:mo`3
4:o:mo`4
@S!3:o:mo`3
5:o:mo`4
4:o:mo`4
@S!4:o:mo`4
5:o:mo`4
@S!4A@S!:o:mo`
4
@S!@5:o:mo`5
5:o:mo`,4X[&L  +#`2o>:o^  2o:o^Dz' 2o;P 2o:k_Dv' <@S!`:-o`:
om{`!L :o:mFp,BZp*{W[	}r{:}wp
 

%
&P+/n3.7@?  GN K((@&&U-V^eUG7V9NUUzzU
U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&Ub&-b
z`IUCC2KRRQ`z
@1B:^ z1
B:-a `% 1
B:-aebLzbz^^+)z^[2%;)`^M`Am 1)9)\E]Am

@@`pPPpx	@
@k`/% gpE/pB/?P),5p.B e%`!&A +sp &M&;?&`
6

`
6`

6v 2
A`
6

`
6

`6`2vV$@@#	8E6
#D21#D21# 	81`,/%/
CKRAP
HAHAHA@ +&!A'BfR-P`&.!n^"
n!d-@!@A%X!(
n!dT&!+!@.X;eRp;V'!E.8`!,+X3&% #/-d`[="f&d&[B="mbgT'% :kAn`;eQn`;`!,(X)&!E%$[b="rgU3'-`an`;
An`;AP!1%:
kf:k^!E15p%.:mk!`A4X% :k@Bp%:k^!7Bp%%2k:k:mk`!,7Xk'!E4Rqn!bn^"X&!:;
e\;@;!V +8'% 2k:E_!E: pA!L!=!,A@X;!3!Vo'
;!@3
!;m!`;!V!@!,@XP'!E=Ip"SbA"B

P (`&!C!AFX;e@;
l% 2k;?V!EF!AIX% 3?:k^!EI:!,CX(!L!AOX;e@;
l% 2k;?V!EO\!ARX% 3?:k^!ER|!,LXW(`& (' ( 5`	0g@`&%X!(
r!dT&!+!@.X
eRp;V'!E.8`!,+X3&% #/-d`[A"f&d&[BA"mbgT'% :oAr`;eQr`"F6 N$6%FQ%J$:$ N%$c

n
|`(!z{| {K(Q( 	~G}
&06z
|0b!{if>f;<"
FnziQ@p	@
	0&!LM.K0yK(xK(Q0
zI
]AyY4TMAR0 X
  ES3   z
lb"H~Fna	#'
)W3K<_lra&N,[_b(ze[
^6	^Cx(w_e`Fnx`cVdW6Ca.^	L^0?/.E"`9z^c(:z f[&V VbJ
n
VbV n^d	^C`Xc'LU,~(/y]9c
@0`v9=	_B}]&]]6] /e|2v_b

L
w	v]&e3
&o}?x"""Bu(~""ts"&x0 t$k;CM(&"@"z6"bc70~"0CjMG
0r }0&@/3~"66&C|%{q)~0"
~p'&@>uo %u&sr&4H/Cz)< hhC(M{<<b!;f@/zMM0yh&h<6<!.;xbwgv[{@A"?X"rJA6)b6mgfD}
LG(*A	C

n
|`
&
(?4
.fnb""cac 0z"DJ"Cx$
"bt"

n~}'cx!"n0"{4z
	:
7
'"&ff"7"D<$&Dn"Mh/v)8d"
"b#Nkn&M"@T{ ?TTK>>|9>>4| bm)m`U((/g;2_Ugu.!xJ&NW?
(?R})
<Gi#x	~~rb!g
'}(&|+&f,f{=&z2&yx)wx)(6 /T($+&J6J +f(/&.>&.v"W/utxsrbq= py
oCPc
IG
w		Kn' b

n
aha(W0| {| {)am7vF*
:&3 0N)C0C`7$n^t`FA,&d=b=fn,h==t==2D 8%=&2&0.fo =;
}`	 0V>b
VbnVVbn`~)
-J})	ff	}9>J	!6	j8W!|{
l	<}!Hzr{)d: >f!.)d>!by`)Wxwdnv})>&	)8jS0T0
@
c
W0































































































































#DOTMP,	ORG	.+000634
&.6'6
L~T/r}]	Bt.B{G(.|91!. /=2"({{zi"A
lTb	,c]{2e0(G{|d6
TIq	L	6	c
,r)		Cifr	i(]	y){b4lgg"&
<osi1H@
@>_`5$n@p%`!,(X)&NB@CBKRRRrgU3'-`ar`;eAr`; @% 1%:
of:o^!
@PppPPpx	@	
@`PpPPpx	@@
@/P(k` gpE/pB/?P),5pS%`B"A +sp_%
& M`;)3!Vo';!@3
!;m!`;!V!/%/UCKRPqAwl*'@q^':Ep@ 2
k+i:E:}Ep,B`:
E:ygsqmq`,B`q^@L@l[BKb^\[!R&7%@@ 2
kl(Sd;_U:E;_u@S!;SUDU&)*@@Mqfm
R%````
qf`C/zoo;oo;XKp'K` ` ``d``$  ` 1   gP `9 `B` ``
  ``E``3` ` h  `  g1o`;XKp'KOREEl	3l]D'p='S4l6lMYgK0'k' o1;,1e,TITL0l2,qan,]4l\qn,o[1,61l\RG' KESO'#8<u<6;3[u6Kx=u<6;s[u6K/l;1,1l\DVA	%Ng48<u<6
3[u6Kx=u<6/;i0@S!q^`m%t'
qf`:E`;_`;S`D\'`m'1,&1,\ML	T`OLATO O0F	IN
lYo ;XKu'K gOx<u<6;y'K2=Hl4lqAn,]6,\SmS g {7,\qn,o[lX<p<'U3P28GSOB O0F	l'IN
lYo1;,1elCYE'1x<'E4l5,Fill4/
XKpKu6Kp<u<6;p[u6Ki"nRnRwRaRR%@^[S .a%%%,/%/UCKRPuA{l&9C:k,D&[B	3b[\@L@L(ll[	!J&7%@l[	!T&[%@@2
ol'Sh;kU:I;ku@S!;_UDW&`j%&9C`D&'
 (l)!g5{qn)VjROp@:
Iv,B%`@;
kV,B3`@;
_V,BA`@:
wv,BOa
`````j%['`"""Bu(~""ts"&x0 t$k;CM(&"@"z6"bc70~"0CjMG
0r }0&@/3~"66&C|%{q)~0"
~p'&@>uo %u&sr&4H/Cz)< hhC(M{<<b!;f@/zMM0yh&h<6<!.;xbwgv[{@A"?X"rJA6)b6mgfD}
LG(*A	C

n
|`
&
(?4
.fnb""cac 0z"DJ"Cx$
"bt"

n~}'cx!"n0"{4z
	:
7
'"&ff"7"D<$&Dn"Mh/v)8d"
"b#Nkn&M"@T{ ?TTK>>|9>>4| bm)m`U((/g;2_Ugu.!xJ&NW?
(?R})
<Gi#x	~~rb!g
'}(&|+&f,f{=&z2&yx)wx)(6 /T($+&J6J +f(/&.>&.v"W/utxsrbq= py
oCPc
IG
w		Kn' b

n
aha(W0| {| {)am7vF*
:&3 0N)C0C`7$n^t`FA,&d=b=fn,h==t==2D 8%=&2&0.fo =;
}`	 0V>b
VbnVVbn`~)
-J})	ff	}9>J	!6	j8W!|{
l	<}!Hzr{)d: >f!.)d>!by`)Wxwdnv})>&	)8jS0T0
@
c
W0































































































































#DOTMP,	ORG	.+00063
&.6'6
L~T/r}]	Bt.B{G(.|91!. /=2"({{zi"A
lTb	,c]{2e0(G{|d6
TIq	L	6	c
,r)		Cifr	i(]	y){b4lgg"&
<osi1H@
@>_`5$n@b&TRAP3	#RSVOIUCC2KRRDT	#LIT+0003
	FSTA	I
	FSUB	#LIT+00 0% #0014
	FLDA	#LIT+0003
@`P`p@pPPPxp	
@@`pPPpx	@
@o`3%! kpI/pF/CP-,9p.F e%`!&E +wp *Q&??&~d~^&`^f@9
F:-

Note: Lines longer than 256 characters were wrapped