.yXLL@~@p@.%@K.@oM[M@. H Ai&} ppoTd(p.  E  w! Jp$pk.07a`DF^$pLL$e%=.VW!@W  mՕ Օ "yKe% N.r D ! ҕ^e@ |. eF <Se%e%." W0Օ 7 7  ie% "e% >. H Ai&} ppoTd(p.  E  w! Jp$pk.07a`DF^$pLL$e%=.VW!@W  mՕ Օ #m N!$z (ay.w  a &  UaPM aL^!x. D  a w .e =.+ .EVEN .CSECaPMaOM!T .=.+.$$$$. ...&f P  *e.T   mmxz g$z .zD D D EE <ܟ<S&BxC.&fm& &$#䒰",,.LvA #wB P##H.r# ,#)¥'C CV  T[. D& wE#< ADp< 9w\.  7   .$T[ YZ,YZ.L w $ S J& L\gWa ax$S(aOMR. R\ E%   R,.0 - % , "T[%s" e%@p.| >el-h-` $e%""""t!"""v$"".   f e% e%$/d)  [] ERROR  a\ga\g4  @vLGi+ vL$G.t!f>Lg'@g@./@/D@ @Q@k<@Ba@.z@ @dy@@!S@.!ܟ@!&s" e%@p.| >el-h-` $e%""""t!"""v$"".   f e% e%$/d)  [] ERROR  a\ga\g4  @vLGi+ vL$G.t!f>Lg'@g@./@/D@ @Q@k<@Ba@.z@ @dy@@!S@.!ܟ@!'f& *Fgz .  <m  @gz . `%` @A L @%.` l .  .8       f a.^@a   1/D"e3l. & $   ‹¥,!2T[. <l ¥(! J" & o T[.¥, 6 ¥,¥)  T[T[(.V U •)/ )),&F T[.|u ,  "t" T[,$ @Q&RP w, @Q R\gW @QB./w' W!ݦ,R @Q R @QR. C ` ` C V 3  @QR$V(\gW ww A. @QR @QRa-!X. )w )@#@ #}@a'`@.,*K@.L@vL@vL!@R@.Ww@a@a @a$@a&@.aOM@aPM@a N@aL^@aw@.ay@a*}@:dS@:d`@:d@+.gS@g`@\q@ar @rv~@C.s@wr @wt8@w`@z @.z\@z@Bx@I@@<(0t!fh.f     `A  w 0 &a .&#& *@#@ #}@a'`@.,*K@.L@vL@vL!@R@.Ww@a@a @a$@a&@.aOM@aPM@a N@aL^@aw@.ay@a*}@:dS@:d`@:d@+.gS@g`@\q@ar @rv~@C.s@wr @wt8@w`@z @.z\@z@Bx@I@@<(0t!fh.f     `A  w 0 &a .&#& +?. <0  =<  &"[M& Nm; *<"5 *`S:dS:d`z [M3.>C C C Ee & [M [M.d>%  */D!2 !2&.2DmC f aD f   z .11 7 `/D!2$! .0 7 7  :B  !6!,   "aWa%aPM.B wH< *w . " <9w\a $axZ.h )w 0 ,< (a%T[a !$<(9w\. w .  )Gw 0 a axT[&a , 7L 5P .a% NazL\gW:dS:d` q,\g @Q R @QR* E -7 5 $zg'gSg`$g',LA 5@w + ,*aw a$a*}w`a $ayO(pEm @   |*!g z g'a*} aL^.@ @ @ EC X 5&  !$g'~.  05S*a*}aL^ !Bx"z(w`. f w  !(aya$!aPM &aL^v.5w .7 5 $zg'gSg`$g',LA 5@w + ,*aw a$a*}w`a $ayO(pEm @   |*!g z g'a*} aL^.@ @ @ EC X 5&  !$g'~.  05S*a*}aL^ !Bx"z(w`. f w  !(aya$!aPM &aL^v.5w /7&!7.D b  Dl7!7!7 !6&!6." e  J"&  !2.HeLlL p PD p$!G.n DB <J"@  U.f ?w ;@ 7 E$a ay!"!%&!. /Bm<  .z %`%S!%$z (!%.f @w ; w , ;$0 1*a-! aWa%:daL^    .ay! @QR @QR.$ BLIRDCXADHLEND=ERK*a-! aWa%DH L .JR= $PSH0 dkrx $FIND $INR"dkrx.pI $INI $INFI $OUTRI $OUTI $OUTFI $ENCD $DECD0,0 .:L;gL) O@ @Q@.@-Z@a@z@\_@.fH@l16X (!aPMBa"#(/D.(   r q*/ rv~k<dy"z&k< .N &  w0 $vL! .Lrv~\q(,*KN.tw m7 7 t-7  .aPMm .Lwt8rv~"Ww(wr ,. k&5-P w zgSg`&aw\.*  ZV M B 3aPM*z(a;( 26X (!aPMBa"#(/D.(   r q*/ rv~k<dy"z&k< .N &  w0 $vL! .Lrv~\q(,*KN.tw m7 7 t-7  .aPMm .Lwt8rv~"Ww(wr ,. k&5-P w zgSg`&aw\.*  ZV M B 3aPM*z(a;( 3a aya "!%&ay.D7 m*! z !%! !%&z .,@  wBmU2.%[! @z  %S"%`&%[.RE   ` f ' %2!%0*x7 4w 0 w ,!(7 !aPM0!%"ayY.+ f  "(a  !6!aL^"!&L, wD7!,m54S@t!@!@#,@.,*K@,@-@:@vL!@Q. NS@ Na@R@T[@a%@.a-@aOM@aPM@aW@aL^@O.aw@ay@:d@:dS@:d`@.:d@gS@g`@\g@\gW@.y@e3l@(r:L;h{L?h.@ . j ~.fHj\gW @Q"R( @Q_.&  7 ,55 & w w .a*} :dS :d`ayaPM"aPM. > ;E& Fz,,  e  C* aya$za*}$aL^0.P  w, ?!a*}aL^!.v<w A | 5A*a*}a*}a*}wr "z(w`.&5"    :dS :d`ay'.65 & w w .a*} :dS :d`ayaPM"aPM. > ;E& Fz,,  e  C* aya$za*}$aL^0.P  w, ?!a*}aL^!.v<w A | 5A*a*}a*}a*}wr "z(w`.&5"    :dS :d`ay'.7&U*a0M !!%z  ,S",\a. ~w 1 pw +C.,S,\a z aPM1!% a w.   f b!aL^!!(7.0. = t zw m , .t!taPM !6$!7.Vf  w  wRCm5(aL^!aPM.KO&z .|U Cm f $,S,\a ,S,\a!79#HRa- aW NS Na&a.L /( w + -ZT[$,.r);Cנ נ=7  :  Na(aw<. 7 , ) ! :T[T[j(7 H T ,:d :dT\gW @Q-#.  Cנ נ(" @Q- a-aWE.  w ^UA( NaaPM^zE   Bx$aOM.dwew # w a aL^$ C$ 5.a'`  a'`z:dS".* w    w C$:d`aPM$aPM&.PF w  w #  CF?( awaPMa ay"aOM (v w   *aw !ar a'`ar a'`J.z F   Bx$aOM.dwew # w a aL^$ C$ 5.a'`  a'`z:dS".* w    w C$:d`aPM$aPM&.PF w  w #  CF?( awaPMa ay"aOM (v w   *aw !ar a'`ar a'`J.z G . =.+ .EVEN aL^ !.&eAf& Q.e& &AmC g$z . l!ee R$ .0  < "i !&!2,V&@ w & 4ayaPM"ay.#"Lz@!U@!ܟ@.!@,@WS@W`@T[@.aPM@ay@:dS@:d`@(f""""""" """"""""""""""""""""""""""""DDDDDDD@DDDDDDDDDDDDDDDDDDDDDDDDDDDD """""""""""""""""""""3333333333333@DDDDDDDDDDDDDDDDDDDDDDDDDDADDB B C'^.H)Na^.H*Oa^. RSPa^.fQa^.-_(Ra^.Z./%&y.W'&(.'%&.&'jL .'xd .mjL .mxd . jL . xd .&jL .&xd .(jL .(xd ."K LF$D73333333KFj b8a ͋,L  Bw(B ` % & ~&*C$$Βe E%>l  aʋaՀ$ & * P$ ΋Ί   ΋   d Ί  ( 1'u  Q$f $5@ U C΋ Cb M΋U@ U &  B" .&0 I 7 d(s dydyvL"a N. ͵c)͵`w "ͽ$ RaPM"" @Q( @Q.w +H F͵@@ ͽaPM+ H( @Q], w 3L  w Vw , @Q aPM3Lk<"aPM$V$,P  w f U,aPMP rv~k<aPMf!o.Hw D7aA&& 7 w (a& #}  &aPM(&nF J 7 d(s dydyvL"a N. ͵c)͵`w "ͽ$ RaPM"" @Q( @Q.w +H F͵@@ ͽaPM+ H( @Q], w 3L  w Vw , @Q aPM3Lk<"aPM$V$,P  w f U,aPMP rv~k<aPMf!o.Hw D7aA&& 7 w (a& #}  &aPM(&nF K#"h. % # "5EUx*,zWSW`"!U$!ܟ"&5w \ .!ܟ:dS :d`aPM\ay!-@,  :Wt .GLOBL 4 T[$. z(Lz@<U@<ܟ@g.!U@!ܟ@,@2@2,@r.WS@Ww@W`@T[@:d@.:dS@:d`@:d@rv~@wS@.w`@zw@z\@LgS g`y.* wZ f& u$ Na:y) O(T['.P( , )   (:d .v w  f   -Z,(T[.= ӝ 7 0,:fHlSfH"t!(:.N j T7 -Z" NS&vL! 7 7 0,fHvL! fHvL!:\_f.=[ M w w  , awa$aPMaPM. F 7 7 *ar ar awa$ ar &sT"w w w ,  aPMaPMaPM".e B 7a& & *ar s,.7 $w F 7 P. aPM ar awa$ ar &s,w @E w * a :daL^aPM$ @Q(<J N w w  , awa$aPMaPM. F 7 7 *ar ar awa$ ar &sT"w w w ,  aPMaPMaPM".e B 7a& & *ar s,.7 $w F 7 P. aPM ar awa$ ar &s,w @E w * a :daL^aPM$ @Q(<J O((h(h zrh,Y7 y 7e* rv~:d2, Ww$z($  fU E*z\ 2,zWSW`:d$D PE*<U<ܟ :d<ܟwSw`.` -~ "(zwrv~zw"zw&T[_*( 7 :Ue-3* :d,z:dS:d`":dP)wZw, -:vL!T[,$ 831* NS NS-Z NSa Na.H0-,N . Na -Z NS NSN \gW(-Z*n  e F k,aL^-Z!e\gWF"\g . @QR @QRa-!b( &  *aW! Naay#,,w7Qw "w < Jw X.R aPM"aPM<aOM"aPM*\"w @ J w "w D ."aPM @aOMaPM"aPM D.~JJ&E5@2 zIaOMz!ܟ!SQ.   f7 deVW ~" a Ndyz"z\.ѕ,ѕ B-> .dyI"dy&dy.E 7 "wwv ROUTINES ndy a N CALLED: Rw "w < Jw X.R aPM"aPM<aOM"aPM*\"w @ J w "w D ."aPM @aOMaPM"aPM D.~JJ&E5@2 zIaOMz!ܟ!SQ.   f7 deVW ~" a Ndyz"z\.ѕ,ѕ B-> .dyI"dy&dy.E 7 "wwv ROUTINES ndy a N CALLED: S.( ,) :d :d:dT[* EUU7 U7*!U !ܟ!ܟWSW`:dl.Ʃ 9678 ,:d rv~"T[).u:L@z@.!@,*K@,@,Xz@.t@.a%@a0M@ay@9w\@@&e3l@(u:hI. Z  TN 5P `.y NazN\gW:dS:d` _,\g @Q R @QR* E  *a-! aWa%:daL^   .ay! @QR @QR.6 BLIRDCXA $PSH $PSHR1 a-! aWa%V\ $PSH, $IO $IOF J.XL? %@@z@c.] X@dy@lSU  "." .GLOBL $READ $WRITE $DC$IC$LC.HI O .END .GLOBL $OTSV MAIN. .n.GLOBL $EXIT $EXIT : MOV MOV -(%.0),-(%6) JMP @(%4)+ .EVEN +10,f.%0 BR +4,%0 BR MOV -(%0),-(%6) v. (%5)-4,%0 ADD #10,%0 ADD #4,%0. . = .+: 0 : 0,0 : 0,0,0,0 :  ,MOV.t!y뀻Lt!&@t!'@.#@T[@9w\@e3l@(8it!hV  "." .GLOBL $READ $WRITE $DC$IC$LC.HI O .END .GLOBL $OTSV MAIN. .n.GLOBL $EXIT $EXIT : MOV MOV -(%.0),-(%6) JMP @(%4)+ .EVEN +10,f.%0 BR +4,%0 BR MOV -(%0),-(%6) v. (%5)-4,%0 ADD #10,%0 ADD #4,%0. . = .+: 0 : 0,0 : 0,0,0,0 :  ,MOV.t!y뀻Lt!&@t!'@.#@T[@9w\@e3l@(8it!hW G.e3l ,*K,Xz,Xz.t&a0M.& V DL I a0M,,Xz<.L nW(F C @ TW,; 2,).r 8 5 : 0 / o",9w\",n., W)' W,  !"6.    z{$a% zayza.|}~ .GLOBL $DEFIL   ,X@!@'&@@.a'`@,*K@,@:@T[@.a$@aw@a*}@+dI@:dS@.:d`@:d@gS@g`@w`@&(Xht!h*. ! 0-"lS T[lS .& f&   [ lS+dI$a'`(a'`u.L@ T =L ,DT[T[ .r D B ?W=:Y.   . ""e3lT[t!' .$9w\&w48FILE# t!& 48.y:}?L/D@) @.E M@p:@@%@%p@v.0M@L@{d@dy@p@'.}@t!@!2@""@""g'@\.""v@a'`@'Q@X(`9@\(Xa@.%,%@2@3؁@X:*}@x:@.:k@O;@o;@@A@@vL@.vL@Z.   . ""e3lT[t!' .$9w\&w48FILE# t!& 48.y:}?L/D@) @.E M@p:@@%@%p@v.0M@L@{d@dy@p@'.}@t!@!2@""@""g'@\.""v@a'`@'Q@X(`9@\(Xa@.%,%@2@3؁@X:*}@x:@.:k@O;@o;@@A@@vL@.vL@[U,9     .X:kLL@z@<S@.<U@<ܟ@dy@#S@#`@.X:*}@Ww@T[@wr @wt8@.z\@I@( X:kLh.  9(/  T[T[ (T[i.&-   N ) " T[T[(T[y.L ,M ,) T[.r \ B @6,z",. =W,8 5 3 0 ɋ z,.W,%   "ɋ,": .1f )./BF '&@,S. = 0  BM:,*K lS$a*}.0EUP  Lf!$w`gSg`aw!.V CF !*? %awa$!"dy&] X)| ]vLD@vL(F@vLxF@vLF@l.vL$G@vLG@oM*@ Nk@ N"@(. N#@ N@N@oTd@^k@.^"@^#@^M@_ 3@_oM@Q.T`K@T`|N@`@a\g@>aH@F./d@/dZ@4d(@s@s"@.s&@s;M@9wY@wz@wt8@z.y""@y#@yp:@yK@yvL@?.yM@ys@yM@nz @z @?.z@zt!@z""@u~@~@.t!@ D@,@Bx@(^vLD@vL(F@vLxF@vLF@l.vL$G@vLG@oM*@ Nk@ N"@(. N#@ N@N@oTd@^k@.^"@^#@^M@_ 3@_oM@Q.T`K@T`|N@`@a\g@>aH@F./d@/dZ@4d(@s@s"@.s&@s;M@9wY@wz@wt8@z.y""@y#@yp:@yK@yvL@?.yM@ys@yM@nz @z @?.z@zt!@z""@u~@~@.t!@ D@,@Bx@(_   3  X:*}. 7 2 &ef wt8wr z&z\u. B  5/*dy Idy"#S$#`^. E EP,X:*}<ܟ<S<U<ܟ <ܟQ.E,eL@&S@z@.<U@<ܟ@@,@,s@.K`@YZ@`@@+dI@\gz@b.wt8@z|@z&@zT[@`eTTTTTTT $POP2 J*Da5ÜE$ zz:dS:d`:dT.^p:L @Q@] X@dy@.lS@!@:@vL!@R@.a%@a-@aW@aL^@aw@=.ay@+dI@\g@\gW@( ~\_hQ.(  & !$ vL!lS+dI dy$lS.& e$$ ! a(.E U(h!E =hU(h=h#U(h.#=h #}h}s}h\z8whf 7 7 7 77*>aH {dt! D0Mwz&s,) T`K T`|Nnz vLBx.6!! s&Bxz""ys oM*$vLF.\   ` vLxF",(,y" 7 *3؁ 2 %b(.E U(h!E =hU(h=h#U(h.#=h #}h}s}h\z8whf 7 7 7 77*>aH {dt! D0Mwz&s,) T`K T`|Nnz vLBx.6!! s&Bxz""ys oM*$vLF.\   ` vLxF",(,y" 7 *3؁ 2 %c(*E,ehO.f& W- ~ |%YZ YZ ,.&y ѥ,t e&&& & zz|"z|&z|.L W- W U%Rѥ)Oo,.r&f&& e   YZzz|z|.( (&  z&"&k.$Cfe e&  `@d] X ] X.L ( ,,:\gW.r , ,ĕO ĕP \g&\g"77 +. @Q R @QRa-!N.  H  <  0aWa%a% a%. CF 5 5      a%aw! $ENDD!     ayaL^.; e,%a\g'Q&7 7  ^.N` O;%,%a\gQ.5`׭ .,x:vLxFvLxFx:p:$q.  ѕ?ѕ ѕ ѕ w p:x:"x:&vLF.0& f$(^k.,/EW 7 /EvLG" Nk.R ~W 7 /E  N# N# :kf,%a\g'Q&7 7  ^.N` O;%,%a\gQ.5`׭ .,x:vLxFvLxFx:p:$q.  ѕ?ѕ ѕ ѕ w p:x:"x:&vLF.0& f$(^k.,/EW 7 /EvLG" Nk.R ~W 7 /E  N# N# :kg+dI"wt8&wt8.(e e e ] &S(\gzz,s( e YZYZ.<@?LS@`@.,S@,\a@/@ @Q@k<@R. 2@ L^@@@%2@.%[@z@<@<L@<@C.<*K@<@< @<@<@.<S@<U@<ܟ@uS@u`@.!@%z@a'`@E,e@,@$.hL) ? @ @Q@.z@!@-@:@a%@.a-@aW@aL^@ay@:dS@.:d`@:d@\g@\gY@(? %h.7  5ĕP .) ?  \gYz:dS:d`$\g.& I e0 *:\ga-!$\g( @Q L *- @Q -a-!aW_"d5im.x VW E@*vL(F y#y#y""(nz B. -ASU -Y,` `nz  N N&Nj.-LIU0-. NNnz N N$ N. *  B8 N O;*q. @ H$P  wASLIERONCKSU nz *6COOPGOdP\v * dP\vF.jm.x VW E@*vL(F y#y#y""(nz B. -ASU -Y,` `nz  N N&Nj.-LIU0-. NNnz N N$ N. *  B8 N O;*q. @ H$P  wASLIERONCKSU nz *6COOPGOdP\v * dP\vF.k,W@,Xz@.KO@.t@KR@.K`@[M@ Nm;@R@YZ@.`@@a@a@aOM@aPM@.aL^@aw@ay@+dI@BxE"@j.BxF"@BxI"@Bx}@z @z|@M.zT[@Bx@@e3l@(#<@ha&h. f  @B#$e3l/,Xzk<".t.&¥/ @ɋ  ɋɥ, w b3&aPM(b.Ll  *a%z :dS:d`:daL^~ $POPay!:.? S>@L,@@.z@!U@!ܟ@#@#,@v.,*K@,@SLdf@W,@T[@~.wS@w`@ z#@e3l@( +? WhKh.fB= & W)#,*K z#".& ɥ( ( z#.LmX 7()  wzBxBx&s&.~7  wr  Ĕ{ss"""g',.0! ”0   . ``ע,ע/ע 7  "vL.  Ĕ0 7ע,ע/ T`|NO.ע $vLFvLxFvL(F"yp:&vL(F(< w F7 d*vLG vLG N"yM N"Q*nX 7()  wzBxBx&s&.~7  wr  Ĕ{ss"""g',.0! ”0   . ``ע,ע/ע 7  "vL.  Ĕ0 7ע,ע/ T`|NO.ע $vLFvLxFvL(F"yp:&vL(F(< w F7 d*vLG vLG N"yM N"Q*o 77 .CSECT c&k< .KO,Xz%z\.rf7 7 7  : v$< < <L&z. R+ N  ,<ܟ<< .  , /   <L+./ ed ɥ//I. 7 v H  mK*<  <  < $<&z$07 &*z z[M,Xz Nm;p7EpEP   SLdf #,].r = )( T[$e3lL. f     #,*K,$T[.(  ɥ  ɋ  z#,F&&5EU* zwSw`!U!ܟ!ܟ zW,.09L? W@L"@.@@!@#,@a'`@.,q\7    Z,yMvLG N"vL$G^#`,~Xw 7 .^# ^#vL$G^"^M$^"$7 (^MvL$G^"`vLD 7 7 *E ME M vLDvLDE M.B!H y$E MvLDoM*oTdvL.`wFed- @!  yKoTdyvLp.r\7    Z,yMvLG N"vL$G^#`,~Xw 7 .^# ^#vL$G^"^M$^"$7 (^MvL$G^"`vLD 7 7 *E ME M vLDvLDE M.B!H y$E MvLDoM*oTdvL.`wFed- @!  yKoTdyvLp.s,XzD.L<ĜE%{ &*<` Sk<%[$%2E.r   r dww"a aOMz!*e<U  M.%[ ,\a,S,S,\aay". 8 G    F(aOM!aOM z(!#! 5 =. . =. =|a'`<*K a'`  5*ay z <z <<t*K@.L@49@y@D9@x:*K@5.`@@a@a0M@aPM@aw@.a*}@9w\@ z#@(09hB9`"h~.wt & W) W= z# ).& E V %Ep L",*K.LU    & #,a0M!$(a0M(r F [*! a*}a'`aw! a'`.u" ? _ee!PwwFZX(`9"\(Xa&_oM\$H  e*yM t!\(Xaz z zt!de /*zt!zt! \(Xaz zz*z 7 <6 *wt8a'` /dZvLu~ /d7 7 7 7 &*'Q/D %%p!2X(`9g(Е Е *_ 3X:*}X:*}X:*}X:*}*w7 7 wv" ? _ee!PwwFZX(`9"\(Xa&_oM\$H  e*yM t!\(Xaz z zt!de /*zt!zt! \(Xaz zz*z 7 <6 *wt8a'` /dZvLu~ /d7 7 7 7 &*'Q/D %%p!2X(`9g(Е Е *_ 3X:*}X:*}X:*}X:*}*w7 7 ww. f &+ GuSu`z$a'.8 aC 7gBx}aL^BxI"< .^h ' Vm. <  @QR <$z (%[. +   . aOMaya< BxF"(aL^&  w . =w (!aPMaPM @Q.w $PC=. .=$PC .EV{(R aPM  @Qx  w77   p*D99w\x:*K49@y.Lx:*K.$F:   k`@a0M&x:*K(7 f w e1.? Wx:*K,*K.L#,aPM C.E&ȋ w  &a!aPM &a.$     . : m !".J e W, e  a0M.pS C ! WyD7 *""v"" 9wYy""y#" N"},wZ7 ww@*yMvLG^"^MvL$G$dy. 3*  70"%,%nz *(nz e.> Օ/P OՕ:ĝ (T`|NE.de0Օ, Օ Օ  dy $a\g(`M. D ! %,&vLD4d(A@!"A@.  w J7 +*zD7 *""v"" 9wYy""y#" N"},wZ7 ww@*yMvLG^"^MvL$G$dy. 3*  70"%,%nz *(nz e.> Օ/P OՕ:ĝ (T`|NE.de0Օ, Օ Օ  dy $a\g(`M. D ! %,&vLD4d(A@!"A@.  w J7 +*{R EN U .  mP ɥ(]ɥOt*<L <L<z YZ.Pɥ"MɥZMɥRMɥ-@ɥ+ Q (,.@L Jɥ*&%I C7 7 zz|$<L.fɥ(1ɥ- ɥO!ɥZ!ɥR!ɥ+ YZ* # ! <7G*,z<z <zO.     QYZ,W,i7 j|  L"5.0 U  .GLOBL $TSI -IRD .GLOBL $TRTST .E,eL@&S@z@.<U@<ܟ@@,@,s@.K`@YZ@`@@+dI@\gz@b.wt8@z|@z&@zT[@(*E,ehO.f& W- ~ |%YZ YZ ,.&y ѥ,t e&&& & z}""v"" 0Ms0M&vLxFK.7 • !•SvLF }}(L,   % 6.o;@%,%a\g""v""y(   ,%,% a\gs&s""(@ =*%,% a\gvLxFvLF~,`wwl  .L s;MvL(FvLGvL$GvLDl.f1 f~""v"" 0Ms0M&vLxFK.7 • !•SvLF }}(L,   % 6.o;@%,%a\g""v""y(   ,%,% a\gs&s""(@ =*%,% a\gvLxFvLF~,`wwl  .L s;MvL(FvLGvL$GvLDl.f1 fEE*E,e<L<ܟ<S"<S$<.   0w^ - << <2.kÜ " x nn Bx$BxK-Dd %% 0  daOM<<j .j Ü  E | Bx K`$KR.&&  )&w T"K` K`K`&aPM(T.E%0 EC E<ܟ <z|"z|&z|.L W- W U%Rѥ)Oo,.r&f&& e   YZzz|z|.( (&  z&"&k.$Cfe e&  `@+dI"wt8&wt8.(e e e ] &S(\gzz,s( e YZYZ.:dw>L) ? @A$$$yp:! OPTIONS =  %,%vLG2# 0000 ERRORS %,%vLFS.4d N(^EXECUTION DELETED FATAL ERROR. IN ASSEMBLY PHASE e mfvL /d[.$  D  DaoM*oTdX(`9\(Xa.J D  D  DS"A@A@_ 3_oM,p D  e,A@A@%,%A$$$yp:! OPTIONS =  %,%vLG2# 0000 ERRORS %,%vLFS.4d N(^EXECUTION DELETED FATAL ERROR. IN ASSEMBLY PHASE e mfvL /d[.$  D  DaoM*oTdX(`9\(Xa.J D  D  DS"A@A@_ 3_oM,p D  e,A@A@%,%Sz|.E& & & &   %%"&z|`@ aOM6.w LE  e  aPM Lz|(aL^/.(  J&,  .4Ja"!.NWORD .BYTE 377& # @ /" L^.t@ @ @a &  @ 5" 2.@ @ @ @a  5$%z(.w7e z$ z%zz) @.? S@? `@ @Q@L"@d@u.@%kQ@z@O@@~@$.uR@u`@!ܟ@!@""g'@m.#,@#xQ@%@@a'`@'~@>.E,e@,@,@-@-@Y.:@{L?@ N@R8@R@.oTd@Y@Z @T[@a@\.a @a%@a-@aOM@aPM@.aW@aL^@aw@ay@a*}@D.:dS@:d`@:d@ev@gS@`.g`@\g a\gA.  **COMPILER ----- CORE**vL/d. PHASE USED FREE DECLARATi.IVES XXXXX XXXXX EXECUTABLES XXXXX *XXXXX ASSEMBLY XXXXX XXXXX E.s;MLa@vL$G@oM[M@.^M@s@I@(s;Mh.!   ?&oM[MoM[Ma^M(^M.& ѕ< W  E."IvL a\gA.  **COMPILER ----- CORE**vL/d. PHASE USED FREE DECLARATi.IVES XXXXX XXXXX EXECUTABLES XXXXX *XXXXX ASSEMBLY XXXXX XXXXX E.s;MLa@vL$G@oM[M@.^M@s@I@(s;Mh.!   ?&oM[MoM[Ma^M(^M.& ѕ< W  E."IvL"&+dIQ .Cy NL@g@Z./D@@@z@<S@.<U@<ܟ@uR@uS@u`@%.!@#S@#`@&K@,*K@m.,@,R@.t@S@@a%@.a0M@aL^@aw@a*}@:dS@.:d`@:d@:d@gS@g`@.9wY@wr @wR@w`@y @.z @zt!@zT[@Bx@؁@Y.@@@@@@\gW@g@9w@[@.wr @wS@w`@y @y@J.y) @y'@}d@~W@(.) Ohd) RhP(NhH z#hv.e!_0$ oTdy 9w@[ .& 4'1'* $*&f$ydevR8&y*.L ߊ W  W) @~ @~y.r  ?_' y:{L?"$GI"vL$Gb.LU0ѐѕ:  ѕ. r ^MI^M$I6.r EFs a.5& /CC,SY:FTNLIB[1,1]/L/G  &.O @vLDzz  -.axLL"@@a@(@axh. ɥ0   D L"#"&%ɋ$GI"vL$Gb.LU0ѐѕ:  ѕ. r ^MI^M$I6.r EFs a.5& /CC,SY:FTNLIB[1,1]/L/G  &.O @vLDzz  -.axLL"@@a@(@axh. ɥ0   D L"#"&%ɋ.@@@@@.@@(@P@x@.@Ȃ@@@(=.u!h Nm;hljh@h2.N e 6 6 * &K"&,&& %E*zzw` wR\.D5 W( e *:dS :d`(z.jeҌYF.(  ʆo g& T[E,e"k.ߋ 5x5nK.z ""g'wSw` ? S"? `k. Q&E Pl  yd.  = O$46  1 dY.04 &*U* eu# gY|.VCEEBPBe៣*y N&,.|P(0>HNBCCBE.3, aD.2,Lk<@d@!@(.,*K@2@2H 2@3}@.`@@a @a0M@aPM@aL^@.ay@9w\@wz@z\@(n2,h\2h . .TITLE .CSECT .GLOBL : JSR %4,$Ph.&OLSH .GLOBL $POLSH,$NAM $NAM,0,0,L .GLOBL $SEQ  \$\ w .2 aPM z\ay!2G(x3, aD.2,Lk<@d@!@(.,*K@2@2H 2@3}@.`@@a @a0M@aPM@aL^@.ay@9w\@wz@z\@(n2,h\2h . .TITLE .CSECT .GLOBL : JSR %4,$Ph.&OLSH .GLOBL $POLSH,$NAM $NAM,0,0,L .GLOBL $SEQ  \$\ w .2 aPM z\ay!2G(x   E <ܟ"  e6 *Bx.6 6 ! t w  I$ ,.m k  eW,W)c  &.  E?E2Q G .t",*KX(   ^,a0Ma0Ma% wr >"<UA *zgSE P  @  0R yZ.Q PRT!f _ %@ &.) W( H _ _ 0/ ~WH$.Q P_(_BE@Cy(.:%FK    ( y) ? T[,`_  &&f&. ::) ? ) ?  y$}dk.&E  ,)C,zu`   w  ,3}a0M a0Mk<aPM $ w e w .ay! ayaPMz\aL^-$, w L(a  aL^!wzaPML.i9N?L @Q@k<@.z@!U@!ܟ@!@a'`@.,@.L@2@2@3}@u.x:*K@vL!@R@a@a @.a0M@aOM@aPM@\g@@\gx@z.wY@w   w  ,3}a0M a0Mk<aPM $ w e w .ay! ayaPMz\aL^-$, w L(a  aL^!wzaPML.i9N?L @Q@k<@.z@!U@!ܟ@!@a'`@.,@.L@2@2@3}@u.x:*K@vL!@R@a@a @.a0M@aOM@aPM@\g@@\gx@z.wY@w g`awa%.VE & )& *:d :daL^a%&|E   `*wr z :d:daL^!p.es* z"&/.e&  5*zaL^ z$:dS&:d`M 5 E* :dS :d`zw`. w .GLOBL $ADJ G uR}d@~ ,."  ,)"   ,. ,)" ߊ U,@~(}d.p & }dy) ? ":. & _tEpU  :y) t%kQ(T[.B, &fK" @~y'"y&}di.h& ( #F $}d@~T[$}d(y.z@x`@z @z\@.(pthh 2h L^hhL"h.hdhhh~hd.!hp&Kh,,hv,*Kh,8hxC..KOhj.th6.th~.hnKht._MTqh NhlR8h^ThbHXhr.YhjT[h`hf`@h(a$h.a%ha-haWhaL^hawh8.ayhayha*}h+dIhevh\5.\gh\gWh\gYhgh`9w\h@Ihre3lhz@x`@z @z\@.(pthh 2h L^hhL"h.hdhhh~hd.!hp&Kh,,hv,*Kh,8hxC..KOhj.th6.th~.hnKht._MTqh NhlR8h^ThbHXhr.YhjT[h`hf`@h(a$h.a%ha-haWhaL^hawh8.ayhayha*}h+dIhevh\5.\gh\gWh\gYhgh`9w\h@Ihre3lhwR $/D,$ l6 v6* (/D($,Hve 4 5*Px uS"u`,lm 2 EE:*gz  (PBx$<S.2Q l3 $E ~$<U(<U<ܟ P. E3QU W, ɋ *<S <ܟ#S#`$.W, ߊ K /¥,¥) d @~T[Q.  %)Xf  2 Z . 5$ ,)< z:dS:d`T[.‹% 7  EP—i(@~;.& P   ` a'`.L )!  Un oTd"a'`&a'`x.r&   }d}dy.& ߊH_.B09AZ6.&!w  4, @QRaPM $a'`(a'`"LS  *x`! @QR @Q.fS w  .GLOB,Rx`aPM @Q RL $TR $TR, =.  I.ĕ:ĕ,ĕ fa\g@\gx$\gx. wf w7 0$\gx\gx.B09AZ6.&!w  4, @QRaPM $a'`(a'`"LS  *x`! @QR @Q.fS w  .GLOB,Rx`aPM @Q RL $TR $TR, =.  I.ĕ:ĕ,ĕ fa\g@\gx$\gx. wf w7 0$\gx\gxe"&.& 4m$g&z .(" C C C E$  Nv3 *x zT[gz g?.f7E E E Eve $ g "Pv&wa- wE*zT[ zT[ zt!,Ry 9wY$  EE~*( S@(PuRuSsQfeF  @~oTdfeF 솁, oTd.,?L) @) @.O @ @Q@%kQH&S@&d@.&`@R`@z@@O@.@~@g'@q@`^@t! @}.!ܟ@!@""g'@# @#xQ@.#g'@%N@'~@,@-@.-@:@SLdf@ N@!Nq@b.#N`^@R@S @WD,@Z H.T`|N@a@\gx"\g@&\gx.w  .GLOBL 8\0o"aOM aPM $\(012456:?DHLp.124 5 6:?DHL.&PTX\+-***/.OR..AND..NOT..LT..GT.PTX \i.L.EQ..NE..LE..GE.   b.r  U t  >.&  &Cå å$ נAQ.  :  f.e`    å.נ0|. נ9\gx"\g@&\gx.w  .GLOBL 8\0o"aOM aPM $\(012456:?DHLp.124 5 6:?DHL.&PTX\+-***/.OR..AND..NOT..LT..GT.PTX \i.L.EQ..NE..LE..GE.   b.r  U t  >.&  &Cå å$ נAQ.  :  f.e`    å.נ0|. נ9eu`u` x1.> Lg@ @Q@.L"@@@%[@%`@P.z@<S@<ܟ@!U@!ܟ@O.!@#,@a'`@'@,@.,Xz@-@.KO@.t@YZ@.a-@aOM@aPM@aW@aw@.ay@:dS@:d`@\g@\gW@j.\gz@wt8@w`@wS@w`@. z#@z @z\@z@e3l@A(> h a @a%@a-@.a0M@aOM@aPM@aW@aL^@.aw@ay@a*}@:dS@:d`@p.:d@:d@df2g@gS@g`@.\g@\gW@^q @sq@s`^@.wr @w`@y}@y@yO @,.y(@yt!@y2g@yp@yBx@ .y) Hy'H}@Bx@@.*(F@(,h(#,hW,hD.&fv  X $XB¥  ɥ ɋ DN.0 &f DW .VR &&f.|  Ëנ@ .e ee e ѐ  l.@(&fe B y.em&ff&ea0Mz "z\_. Z  e a0M.:&f $2 e $a0M.`W0W7B¥  ɥ ɋ DN.0 &f DW .VR &&f.|  Ëנ@ .e ee e ѐ  l.@(&fe B y.em&ff&ea0Mz "z\_. Z  e a0M.:&f $2 e $a0M.`W0W7. 77f& ѥ(ɋ ,XzYZL"a.&ѥ)(  ɥ=  .L ׅ%5E` *,Xz ,z%`"!U$!ܟ(rU@EB   %*!ܟ <ܟ<S'.t z,w & =0.ayaPM ,z w`"wSZ. 5ɥ,$ɥ)! Ez\gz(.&G X  %9,X  #N`^}$w`&WD,$L X /_ ߷ .WD,X df2g}#g' @Q&h   .R @Q RO t! .$ e9.&d df2g%Nyyt!. J  .yBxy2gyO yp} SLdf&. B l    E0W0m. W9WAWFE7 e (x:*K.&̋ 7w .w '* vL!.La aPM vL!$wzB.  w :: $SEQv"aOM wY!a .,7mf& ɋ ɥ'.L.Lwz.!ɥ,ɥ/ɥ= ɥ(ɥ)  .D      ɥ'jɋ:.#q@8L(c@8h@8hE0W0m. W9WAWFE7 e (x:*K.&̋ 7w .w '* vL!.La aPM vL!$wzB.  w :: $SEQv"aOM wY!a .,7mf& ɋ ɥ'.L.Lwz.!ɥ,ɥ/ɥ= ɥ(ɥ)  .D      ɥ'jɋ:.#q@8L(c@8h@8h$z"  U*<ܟ<ܟwt8w`wt8:dSD.0 0  6ɥ,ɥ)P N:d`%[ gz .ɥ=M W ]Ep] z#&'.B&       Ee#,\gW'&h0 077 G.\g @Q- @Q-a-, w  m2 2  K.!aW aPMz z\ zl#g'$#g'.e _ %A._"yO y2gy(".&y}',&   _ b .yO  y2gy2gyO g'"aPM$bl.8 _ } '^,g'aPM}yO y2g&y2gl.^;CONTROL STACK PUSH DOWN ;CONTRO yO ).L STACK POP   &d*(F(df2g.@    E#".& & &f&f& & & A& & .&$m"$    DE v!$w.L+--  'DE 0.r0L    9Q  X. 0 $ FaB A @ v!$N  .  /#   .cw& 23   w e. . vv    w(.0EDN " v!$DE+Q.V- v!$DE 0.& & &f&f& & & A& & .&$m"$    DE v!$w.L+--  'DE 0.r0L    9Q  X. 0 $ FaB A @ v!$N  .  /#   .cw& 23   w e. . vv    w(.0EDN " v!$DE+Q.V- v!$DE 0.7^_: JSR %4,$POLS.KO,Xzo-H $POPR .GLOBL $RETA $RETA .:KfL> @d@.k@k<@t!'@t!f@""@^.""v@#@(@,0M@,Xz@.2@2,@X:kL@vL!@qQW@.SW@`X@@+dI@rv~@9w\@.wY@z@@@(o|h9wYh9w~\hP, w7 ' w7-&df2g._5%#*(F z:dS:d`.%%E%?. %   E8df2g"&df2g.B%%  %Z*(F R`"T`|N.h%%%W % 1. %  T`|NT`|Ndf2g$&d.  EG&d$(&du.0.|90 ` av!$  `. "w   4 4f.& ( " mB A @ mA 3.@ m@ c  e  =. e=-9B.:6 C B A @ #"B .`A @ C6v "$e.΋V w  Jf. &f 8 2&f . eB A @ eA @ e@ e B A @    A0.|90 ` av!$  `. "w   4 4f.& ( " mB A @ mA 3.@ m@ c  e  =. e=-9B.:6 C B A @ #"B .`A @ C6v "$e.΋V w  Jf. &f 8 2&f . eB A @ eA @ e@ e B A @    A * #vL!t!f,Xz """""v,$   ,zt!'wY,0Mk< $.H  3 4 ڄ  eG9w\ k<`X@(d.n Ԅ  +    k<> * &f  7 *2qQWSW+dISW"2,.&   rv~9w\& .  ,   1H H   ѕ$H  H &d&#N`^x,j jjjvc,j js`^j`^j R`$v+*$ |   P,|a*}aOM#N`^"!Nq$F   0*s`^ sq`^q+.be %#% (!s`^$sq(wr P,5% %*z &S &`sq.z*}fL@g@1.R@S@`@,R@,S@.,\a@? R@? S@? `@L"@.@@%R@%S@%[@.%`@&R@&S@&`@z@.<S@<U@<ܟ@@uR@o.uS@u`@!S@!U@!ܟ@.!@!@!@#R@#S@3.#`@&K@X(`9@\(Xa@,8@.,Xz@9@8@X:*}@KR@KS@c.K`@_MTq@ N@.z*}fL@g@1.R@S@`@,R@,S@.,\a@? R@? S@? `@L"@.@@%R@%S@%[@.%`@&R@&S@&`@z@.<S@<U@<ܟ@@uR@o.uS@u`@!S@!U@!ܟ@.!@!@!@#R@#S@3.#`@&K@X(`9@\(Xa@,8@.,Xz@9@8@X:*}@KR@KS@c.K`@_MTq@ N@@ (,9w\  0 X:kLcFPXais|x.FPX a is|*|.  .>SUBROUTINEFUNCTIONBLOCKDATAEXT.dERNALDEFINEFILEDIMENSIONCOMMONEQUIVALEa.NCEDATAIMPLICITENDLOGICAL*1LOGICALBYTE.INTEGER*2INTEGERDOUBLEPRECISIONDOUBLEC@.OMPLEXREAL*8REAL*4REALPXW PX &s`^,% y,R` R`s`^ "$&"(4  * ( 4x&   i*a%wr  zaya%aL^*&A  U s*a%awwr zgS g`,* _ + F ,wr za sqaL^$F.N& (  r z.&  S0@WR@0.WS@Ww@W`@YZ@S[ܟ@.T[@_oM@`@@+dI@:dR@.:dS@:d`@:d@:d@:d@.gR@gS@g`@bsp@9wY@%.9w\@wt8@wR@wS@w`@m.wR@wS@w`@y @z @.z|@z@zt!@zT[@zw@.zBx@z\@z@؁@@.@@@@@.@@@@@.@S0@WR@0.WS@Ww@W`@YZ@S[ܟ@.T[@_oM@`@@+dI@:dR@.:dS@:d`@:d@:d@:d@.gR@gS@g`@bsp@9wY@%.9w\@wt8@wR@wS@w`@m.wR@wS@w`@y @z @.z|@z@zt!@zT[@zw@.zBx@z\@z@؁@@.@@@@@.@@@@@.@   *k< kSW+dISW2,.axLL"@@a@(@axh. ɥ0   D L"#"&%ɋ3, aD.2,Lk<@d@!@(.,*K@2@2H 2@3}@.`@@a @a0M@aPM@aL^@.ay@9w\@wz@z\@( `^($df2g(r *t'  H  .yO  ypSLdfH#g' SLdf"df2go. H   F &  ,H  F& $ (#N`^*  &  .!Nq s`^sqR`&" 7*!Nqq #N`^ `^R`sq.%%.s`^!Nq #N`^`^}"`^.% %'@ @!@"@R.#@$@%@&@'@9.(@F@P@x@@.Ȃ@@@@R@.S@`@c@8@@8@( .&:h,h,Rh,Wh,sh8.,zhS@hd\gzhwr hFz&h:. 0   CaCa$ L"M.&` 7! h  zt!-.L @ @!@"@R.#@$@%@&@'@9.(@F@P@x@@.Ȃ@@@@R@.S@`@c@8@@8@( .&:h,h,Rh,Wh,sh8.,zhS@hd\gzhwr hFz&h:. 0   CaCa$ L"M.&` 7! h  zt!-.L n2,h\2h . .TITLE .CSECT .GLOBL : JSR %4,$Ph.&OLSH .GLOBL $POLSH,$NAM $NAM,0,0,L .GLOBL $SEQ  \$\ w .2 aPM z\ay!2G(x   w  ,3}a0M a0Mk<aPM $ w e w .ay! ayaPMz\aL^-$, w L(a  aL ([.#N`^ R`!Nqq$#N`^((e.>  @  ( #g'df2g}$wr (}.d %%%%.%  5df2g"wr &z-.'    .:dS:d`yO ypSLdf":( /.    H  & 3, #g'SLdfdf2gH$&*    & ,  T&5  L"g&rEEV!3*&S&` <ܟ<S<SK`D.`&$  z|.*w6 6v*F F"x$ea vA*Ȃ z|&K.6 ߁W"W. W'4E؁x L".ewPwev N*  T&5  L"g&rEEV!3*&S&` <ܟ<S<SK`D.`&$  z|.*w6 6v*F F"x$ea vA*Ȃ z|&K.6 ߁W"W. W'4E؁x L".ewPwev N*^!wzaPML.i9N?L @Q@k<@.z@!U@!ܟ@!@a'`@.,@.L@2@2@3}@u.x:*K@vL!@R@a@a @.a0M@aOM@aPM@\g@@\gx@z.wY@wz@x`@z @z\@.(pthh 2h L^hhL"h.hdhhh~hd.!hp&Kh,,hv,*Kh,8hxC..KOhj.th6.th~.hnKht   T`|N#N`^!Nq"&  &,  #N`^`^!NqqsqT*6  6 ,s`^#N`^R``^}"6,X  %  ).T`|N #g'`^q -$h,|    W.!q- $q=.  $POP $PUT %p"!  " (#N`^[. %   F"&,8.@v  E%=* w`wR"Ww(zw.f ^ew*zF$(r60Z* X:*}<ܟG,S0z\ S0 zwt8w`, W(U5%$*,Xz !ܟ&S&`"YZ*E R   *K`< F"&,8.@v  E%=* w`wR"Ww(zw.f ^ew*zF$(r60Z* X:*}<ܟG,S0z\ S0 zwt8w`, W(U5%$*,Xz !ܟ&S&`"YZ*E R   *K`<._MTqh NhlR8h^ThbHXhr.YhjT[h`hf`@h(a$h.a%ha-haWhaL^hawh8.ayhayha*}h+dIhevh\5.\gh\gWh\gYhgh`9w\h@Ihre3lh.B09AZ6.&!w  4, @QRaPM $a'`(a'`"LS  *x`! @QR   ~ r $ s`^ $~(r .` % h "R` `h R`$A& x  *sq!Nq!Nqx\gW>"0D pp .\g \g @Q^q  @Q^q .J    "a-! aW!L.p  $REV & $df2gR` sq& Nl.cĕ ĕ$ܟ KR"EE<*wt8zz<ܟ<SS(E! !*<ܟ<S N" NH.2 wT 61(z Nz $9w\ &X v ve . F&v $I UU*9@8`@9@8K`(wve .*<ܟ KR"EE<*wt8zz<ܟ<SS(E! !*<ܟ<S N" NH.2 wT 61(z Nz $9w\ &X v ve . F&v $I UU*9@8`@9@8K`(wve .*< @Q.fS w  .GLOB,Rx`aPM @Q RL $TR $TR, =.  I.ĕ:ĕ,ĕ fa\g@\gx$\gx. wf w7 0$\gx\gx\gx"\g@&\gx.w  .GLOBL 8\0o"aOM aPM $\(012456:?DHLp.124 5 6:?DHL.&PTX\+-***/.OR..AND..NOT.  S(,\g\g $\g(u,  & ĜH H ,\g!NqH \gH "\g& @Q  *#xQ @Q #xQa-!aWE. B  _   !df2g. H (}H \g @Q"-( @Q"D y*-a- !aW!(^  H # 9@8P $I  ~*`@ 9@8wt8w`"U0e *wt8 <ܟz\+dI&  ?De* N #z.ыW', &TN 5!K`K`&K`.*ԕ u 7BU w"X$ K`zT[YZ&S&`.PW'ы  Nz # 9@8P $I  ~*`@ 9@8wt8w`"U0e *wt8 <ܟz\+dI&  ?De* N #z.ыW', &TN 5!K`K`&K`.*ԕ u 7BU w"X$ K`zT[YZ&S&`.PW'ы  Nz .LT..GT.PTX \i.L.EQ..NE..LE..GE.   b.r  U t  >.&  &Cå å$ נAQ.  :  f.e`    å.נ0|. נ9B¥  ɥ ɋ DN.0 &f DW .VR &&f.|  Ëנ@ .e ee e ѐ ܩ.df2g \gWH \g @Q-~ _J, @Q- a-!aW!- $CMORANNTADSBMLDVPWNGLTGTEQNELEGE{,  ~ r ` *  sq~r "` .  ߋP *df2g    ""g'(P & H ĜH ,\gW *(FH \gH \g0"  c* N.vыDeT N$zK`&K`.  6 6 6 6 @* (Pz"x.6 6Da WHw$xxL".B w(W.BWEoWDl 0/ &,Xz,  ve $Io*9@8"`@"2 UUUe*9@8 <ܟK`& N.vыDeT N$zK`&K`.  6 6 6 6 @* (Pz"x.6 6Da WHw$xxL".B w(W.BWEoWDl 0/ &,Xz,  ve $Io*9@8"`@"2 UUUe*9@8 <ܟK`& l.@(&fe B y.em&ff&ea0Mz "z\_. Z  e a0M.:&f $2 e $a0M.`W0W7E0W0m. W9WAWFE7 e (x:*K.&̋ 7w .w '* vL!.La aPM vL!$wzB.  w :: $SEQ @QO @QOa-!l#8  r BIIRDCJX $W aW! r T .T   N @E%_?df2g N df2g.z ߋߋ@E _ $df2g  ) T`|N( (.  B &5&,  R`s`^z :dS":d`* _ J e_Z *`^q J BxZ". B  _ B.S.LE0Q @<w$&`wt8 wRw`.rw] 6 6 6 6   $(P $. 0     P   T[".   6 N"("e e*$ z\+dI.ewww$$ .$whwl6 wjf S.LE0Q @<w$&`wt8 wRw`.rw] 6 6 6 6   $(P $. 0     P   T[".   6 N"("e e*$ z\+dI.ewww$$ .$whwl6 wjf v"aOM wY!a .,7mf& ɋ ɥ'.L.Lwz.!ɥ,ɥ/ɥ= ɥ(ɥ)  .D      ɥ'jɋ:.#q@8L(c@8h@8h.& & &f&f& & & A& & .&$m"$    DE v!$w.L+--  'DE 0.r0L    9Q  df2g#g'!Nq #N`^&O. J  _  (J `^qBxsq(`^.4 _   &%(sq q#N`^!Nq"#N`^B*Z  5.!Nq z&S&`Bx .| `  ߋ} "& S.  BE @  $)  - &*. @  _ $SBS j#_MTq 9w\.J T 6 6Da6z*xxx x(.pWEWDv T W+A(x"!.W-~6 \6Da xxx$z*.& -ER  -  (@8* ee8,   $&ve-DF *j#_MTq 9w\.J T 6 6Da6z*xxx x(.pWEWDv T W+A(x"!.W-~6 \6Da xxx$z*.& -ER  -  (@8* ee8,   $&ve-DF * X. 0 $ FaB A @ v!$N  .  /#   .cw& 23   w e. . vv    w(.0EDN " v!$DE+Q.V- v!$DE 00.|90 ` av!$  `. "w   4 4f.& ( " mB A @ mA 3.@ m@ c  e  =. e=-$SBXL" !df2g#g',   <   y ,df2g < df2g  #N`^& R" ttX L X *  f_ ~,ttX  L  X  * !Nqf,    . R @Qa%!Nqwr .B Ò _  @E !(*z aL^ R @Q,h E 4`_  CF * '~ R @Qa%. _(bspT&"$R UUU*`@ bsp<ܟK`!@E0Qej*&S&` wt8wRw`"V w h*z\+dI $p 1*c@8 !"f.eE T w ("& $D U U*`@<ܟO"(bspT&"$R UUU*`@ bsp<ܟK`!@E0Qej*&S&` wt8wRw`"V w h*z\+dI $p 1*c@8 !"f.eE T w ("& $D U U*`@<ܟO"9B.:6 C B A @ #"B .`A @ C6v "$e.΋V w  Jf. &f 8 2&f . eB A @ eA @ e@ e B A @    A.z*}fL@g@1.R@S@`@,R@,S@.,\a@? R@? S@? `@L"@.@@%R@%S@%[@.%`@&R@&S@ $SVSP $SVPA $aw!df2g}&. SVE@B &5@O"df2g@~"z(!ܟ$ 5_ 3 _ ,:dS :d`aPM3 ay!  _  . R @Q a%ay   E _ ^.R @Q a%:d:daL^. ß e ߋ=@E%(aPM  df2gaL^!@~c.F %@5 _ + E 55F*K` w`wR!U!ܟ&S.5   E $&` uS u`"<ܟ&<S. & f Br NS0$+dI..e`) `)  E @(S0 zz wS"w`b.TEm  5 z ",Xz(uS z555*u` :dS :d`wSw`#S&  W(EUEE 55F*K` w`wR!U!ܟ&S.5   E $&` uS u`"<ܟ&<S. & f Br NS0$+dI..e`) `)  E @(S0 zz wS"w`b.TEm  5 z ",Xz(uS z555*u` :dS :d`wSw`#S&  W(EUE&`@z@.<S@<U@<ܟ@@uR@o.uS@u`@!S@!U@!ܟ@.!@!@!@#R@#S@3.#`@&K@X(`9@\(Xa@,8@.,Xz@9@8@X:*}@KR@KS@c.K`@_MTq@ N@S0@WR@0.WS@Ww@W`@YZ@S[ܟ@.T[@_oM@`@@+dI@:dR@.:dS@:d`@:d@:d@:d@.gR@gS@g`@bsp@9wY@%.9w\@ }a*}a "wr &z.l _ CEF _ B &ay aPM aw aPM" ( ×  3 _  ,@~'~'~aPM  aL^W. _  _ -1 $CA.! aPM  df2g@~#g'. LL $CALLP BR .+: 0 .GLOBL $RPOLN. JSR %4,$RPOLN .GLOBL $RPOL0 J.$ SR %4,$RPOL0 .GLOBL   &Y.J    &*#` !U!ܟ!ܟ wS.f 5E fE`m*w` zBx&S&`K`KR.w! w _$zT[zt!y 9wY"zT[.fE \1$zT[S[ܟ N"z &S[ܟ."ww7Uff&E*zT[z NzT[wSw`.Hff&& 7 m  Ww Nz .nE%  *#` !U!ܟ!ܟ wS.f 5E fE`m*w` zBx&S&`K`KR.w! w _$zT[zt!y 9wY"zT[.fE \1$zT[S[ܟ N"z &S[ܟ."ww7Uff&E*zT[z NzT[wSw`.Hff&& 7 m  Ww Nz .nE%  wt8@wR@wS@w`@m.wR@wS@w`@y @z @.z|@z@zt!@zT[@zw@.zBx@z\@z@؁@@.@@@@@.@@@@@.@@ @!@"@R.#@$@%@&@'@9.(@F@P@x@@.Ȃ@@@@R@.S@`@c@8@@8@ ,& &$*(F(!.p    g" "*(F&". F _ & O*  F$!Nq&sq. _%%  (#N`^s`^ !Nq#N`^".  ~ W   h y2g ~ h$. ~ %  h ~"y2g~h$y2g(~..% @ h w`wRS[ܟ(zw. . &f=z zt!$X(`9O. e w7e7bzt!zt! \(Xa.TRUE..FALSE. .2L G@{d@A.t!@t!&@t!f@i@y@_qt:@.z@~W@(/h h.y2gyt! $y2g. h | ~e*yt! y2gh|y2g~$y2g* P UW, a*}aw! z$gSq.   E g` wr , t! t!fz~W G(  w*_qt:t!&{d{d{d"i@y).aHhDahFNahhyshk&~h:t!h* Dh 3?   ***.*7 f&7 f e>, t! t!fz~W G(  w*_qt:t!&{d{d{d"i@y).aHhDahFNahhyshk&~h:t!h* Dh 3?   ***.*7 f&7 f e>6 6v*F F"x$ea vA*Ȃ z|&K.6 ߁W"W. W'4E؁x L".ewPwev N* F"&,8.@v  E%=* w`wR"Ww(zw.f ^ew*zF$(rz`(4_x _ ~ ,x~R @Q a%(T  ,zaL^!- S.t  $PA $PSHR $GET Z!"(,   ,- #N`^#N`^"!Nqhf(,!Nq hf*hhhh  ,hhh hs`^s`^ .PaD7 wE7F7H7@"|.`hahJa2hF/dZhLEf@QhD.y""hy#hyp:hyKhpyvLhn.yMhy h|z h~zhzt!h3.zT[hu~h)|~KhZh Zh 3C.; FORTRAN ........ FORTRAN .......-&. 00:00:00 00-XXX-70 PAGE 0000  L.L<Ex* x".rE= z. Nzb|.`hahJa2hF/dZhLEf@QhD.y""hy#hyp:hyKhpyvLhn.yMhy h|z h~zhzt!h3.zT[hu~h)|~KhZh Zh 3C.; FORTRAN ........ FORTRAN .......-&. 00:00:00 00-XXX-70 PAGE 0000  L.L<Ex* x".rE= z. NzbDe* N #z.ыW', &TN 5!K`K`&K`.*ԕ u 7BU w"X$ K`zT[YZ&S&`.PW'ы  Nz  N.vыDeT N$zK`&K`.  6 6 6 6 @* (Pz"x.6 6DaaL^&!.  ;POLPTR: ;@POLPTR: ! #g'#g'df2g  ;STK DEPTH: df2g X ;POL CLASS: y( .;T.O.S.: ;CURTYP: ;CVT:SER:OPR#g'y2g= @: \ D+D;CONVRT: ;INTERNAL ERROR *(F&dh"h _ *#g' #g'#g'#g'#g'#g'*Te   ",aPMTzE z&' .&z'y' NQ'^; Z Q;QP F.FdePQP "c l ru ry.*}*>@L( 3(@ .hng'h/Dh6) ? hn) h . @Qhkhk<hPkWh;hxU.%h$%2h%Zh(%ph-ZhzE z&' .&z'y' NQ'^; Z Q;QP F.FdePQP "c l ru ry.*}*>@L( 3(@ .hng'h/Dh6) ? hn) h . @Qhkhk<hPkWh;hxU.%h$%2h%Zh(%ph-Zh WHw$xxL".B w(W.BWEoWDl 0/ &,Xz,  ve $Io*9@8"`@"2 UUUe*9@8 <ܟK`&S.LE0Q @<w$&`wt8 wRw`.rw] 6 6 6 6   $(P $. 0     P   #g'aL^!g'"* _ % *g' %NT`|N"T`|N,   ;  *g'g'!df2ga$aL^ ! !M.#gL/@/D@%.? W@k@k<@\_@t!'@.t!f@""@""v@#@y@#@.X(`9@\(Xa@,0M@,Xz@2@c.49@y@x:*K@vL!@qQW@_ 3@._oM@`.0MhahzhjOh<h*;.<Lh4<h2<*Kh,<h< h0.<h<h.hv@~h h.] XhVdyhfHhlShVht.}h t!ht!'h!h<!%h>=.!h~!2h&!6h8!7h:!(7h|.""h&""t!hH""g'h""vh(#hR7.#xQh%@h%zh'&@ha'`hh.a'.hf'h'~h,Xzhp-h.-h.Lh2hT9@8hrX:*}h.x:*Kh:hvL`.0MhahzhjOh<h*;.<Lh4<h2<*Kh,<h< h0.<h<h.hv@~h h.] XhVdyhfHhlShVht.}h t!ht!'h!h<!%h>=.!h~!2h&!6h8!7h:!(7h|.""h&""t!hH""g'h""vh(#hR7.#xQh%@h%zh'&@ha'`hh.a'.hf'h'~h,Xzhp-h.-h.Lh2hT9@8hrX:*}h.x:*Kh:hvL T[".   6 N"("e e*$ z\+dI.ewww$$ .$whwl6 wjf 焃j#_MTq 9w\.J T 6 6Da6z*xxx x(.pWEWDv T W+A(x"!.W-~6 9wY@9w\@wY@yvL@V.z@(,#hZ#`"hrD9hG:aSh9w@[h&( w7 'w M*# 9wYvL!t!f/D /" w*# #_ 3X(`9_ 3X(`9 :-  t*\(Xa_oM "" ""vzt!',R ؅ w.wY,0MyvL,Xz9w\"#@y?*v   !hV[Mh Nhd. NSh Nah NhqQWhRh7.US@QhzSWhLS0hfWwhrYZhq=.T`|Nh:dh=dyhb\g@h\gxh,.$q"har hrv~hpshbspht.sh$s"h%s&h#wYhlwzh5.wt8hlx`hjyMhLyhdnz h .zwht}dh~HXh\,hBxhQ䒰"h! 3C+MAIN.DATA.145 & & H.Hy!hV[Mh Nhd. NSh Nah NhqQWhRh7.US@QhzSWhLS0hfWwhrYZhq=.T`|Nh:dh=dyhb\g@h\gxh,.$q"har hrv~hpshbspht.sh$s"h%s&h#wYhlwzh5.wt8hlx`hjyMhLyhdnz h .zwht}dh~HXh\,hBxhQ䒰"h! 3C+MAIN.DATA.145 & & H.Hy\6Da xxx$z*.& -ER  -  (@8* ee8,   $&ve-DF *(bspT&"$R UUU*`@ bsp<ܟK`!@E0Qej*&S&` wt8wRw`"V w hw.yvL? WvL!\_x:*K"49@y$.  . (,ENDFORMATDODEFIN.  (,.EFILEASSIGNCALLCONTINUERETURNGOTOIF(PA.USESTOPREADPRINTWRITEENCODEDECODEREWINDBACKSPACEFIND.axLL"@@a@(@axh. ɥ0   D   nn 9 A 56 )* V.Vw |s L+4  @7 ..$$$$. $$.T`*}>LyBxHd(7. 3(^)   nn 9 A 56 )* V.Vw |s L+4  @7 ..$$$$. $$.T`*}>LyBxHd(7. 3(^) *z\+dI $p 1*c@8 !"f.eE T w ("& $D U U*`@<ܟO"E 55F*K` w`wR!U!ܟ&S.5   E $&` uS u`"<ܟ&<S. & f Br NSL"#"&%ɋ3, aD.2,Lk<@d@!@(.,*K@2@2H 2@3}@.`@@a @a0M@aPM@aL^@.ay@9w\@wz@z\@(n2,h\2h . .TITLE .CSECT .GLOBL : JSR %4,$Ph.&OLSH .GLOBL $POLSH,$NAM $NAM,0,0,L .GLOBL $SEQ  \$\ w . hMO h&dhR`h@.hg'hqh|`^ht! h^5.# h#g'h%NhSL h~SLh4.SLdfh!Nqhx#N`^hS hDWD,h.df2ghr^q hUsqhzs`^hy}h.yhyO hjy(hpyt!hly2ghhD&yphn}hv*(Fht1 3h.hf.:?Lp:@a@.@t!@L@Df@%2@ hMO h&dhR`h@.hg'hqh|`^ht! h^5.# h#g'h%NhSL h~SLh4.SLdfh!Nqhx#N`^hS hDWD,h.df2ghr^q hUsqhzs`^hy}h.yhyO hjy(hpyt!hly2ghhD&yphn}hv*(Fht1 3h.hf.:?Lp:@a@.@t!@L@Df@%2@ 0$+dI..e`) `)  E @(S0 zz wS"w`b.TEm  5 z ",Xz(uS z555*u` :dS :d`wSw`#S&  W(EUE*#` !U!ܟ!ܟ wS.f 5E fE`m*w` zBx&S&`K`KR.w! w _$zT[zt!y 9wY"z 2 aPM z\ay!2G(x   w  ,3}a0M a0Mk<aPM $ w e w .ay! ayaPMz\aL^-$, w L(a  aL^!wzaPML.i9N?L @Q@k<@.z@!U@!ܟ@!@a'`@.,@.L@2@2@3}@u.x:*K@vL!@R@a@a @.a0M@ X.0M@%,%@x:@vL@vL!@.vLD@vL(F@vL$G@vLG@ N@.`@a2@/dZ@Ef@Q@wY@.wz@yK@yvL@|~K@~}@.~HX@( 3( !h,0Mh.o;@hNA@hH NvLhaha h?.a&hra0MhVaOMhaPMha Nh.a\gh/dhk 3C. @ $ yvL0M0M x:$vL(F2.&5` X.0M@%,%@x:@vL@vL!@.vLD@vL(F@vL$G@vLG@ N@.`@a2@/dZ@Ef@Q@wY@.wz@yK@yvL@|~K@~}@.~HX@( 3( !h,0Mh.o;@hNA@hH NvLhaha h?.a&hra0MhVaOMhaPMha Nh.a\gh/dhk 3C. @ $ yvL0M0M x:$vL(F2.&5` T[.fE \1$zT[S[ܟ N"z &S[ܟ."ww7Uff&E*zT[z NzT[wSw`.Hff&& 7 m  Ww Nz .nE%   w`wRS[ܟ(zw. . &f=z zt!$X(`9O. e w7e7bzt!zt! \(Xa.TRUE..FALSEaOM@aPM@\g@@\gx@z.wY@wz@x`@z @z\@.(pthh 2h L^hhL"h.hdhhh~hd.!hp&Kh,,hv,*Kh,8hxC..KOhj.th6.th~.hnKht._MTqh NhlR8h^ThbHXhr.YhjT[h`hf`@h(a$h.a%ha-haWhaL^hawh8.ayhayha*}h+dIhevh\5.\gh\gWh\gYhgh`9w\h@ H (vL(F x:p:ap:H.L   ! Օ^e@ m.r\ Օ ĕ  7 7 a"0M.C? )נ נ0~0Mp:~HX.נ9נ  Ԑ7 -נ~HX yvL. נ  !-&"p:p:~HX&yvLr. Eנ 9נ -Dw~HXyvL.0w >w + 0)נ 7 H (vL(F x:p:ap:H.L   ! Օ^e@ m.r\ Օ ĕ  7 7 a"0M.C? )נ נ0~0Mp:~HX.נ9נ  Ԑ7 -נ~HX yvL. נ  !-&"p:p:~HX&yvLr. Eנ 9נ -Dw~HXyvL.0w >w + 0)נ 7. .2L/@o|@.%S@<@@u:@u!@{d@.!;@#"@(@i@y@9wY@2.9w~\@ zr@(dhh .t!hBt!fh>#h:#,h6`X@h l.aHhDahFNahhyshk&~h:t!h* Dh 3?   ***.*7 f&7 f e> .f w7 0$\gx\gx\gx"\g@&\gx.w  .GLOBL 8\0o"aOM aPM $\(012456:?DHLp.124 5 6:?DHL.&PTX\+-***/.OR..AND..NOT..LT..GT.PTX \i.L.EQ..NE..LE..GE.   b.r  U t  >.&  &Cå å$ נAQ.  :  f.e`.80000 fh˕/DDevLGfh.^ 'd &f-Df &Df( -* %,%Df. s   vL$G` vL$G&vLD..  ,@ @ vL$GvLD. > ?& #`vL$G$vLD$.@  7R "%.80000 fh˕/DDevLGfh.^ 'd &f-Df &Df( -* %,%Df. s   vL$G` vL$G&vLD..  ,@ @ vL$GvLD. > ?& #`vL$G$vLD$.@  7R "%PaD7 wE7F7H7@L/D@""@G.""t!@""v@( 3(8z""h 3C.&fW!UE!+  """"t!(/D&5!w ""i.L( 3(d.zLgH RH.SH`H,RH,SH@,\aH-.? RH? SH@? `H %RH%S"  vLG.""[M>L/D@""@G.""t!@""v@( 3(8z""h 3C.&fW!UE!+  """"t!(/D&5!w ""i.L( 3(d.zLgH RH.SH`H,RH,SH@,\aH-.? RH? SH@? `H %RH%S#ahJa2hF/dZhLEf@QhD.y""hy#hyp:hyKhpyvLhn.yMhy h|z h~zhzt!h3.zT[hu~h)|~KhZh Zh 3C.; FORTRAN ........ FORTRAN .......-&. 00:00:00 00-XXX-70 PAGE 0000  L.L<Ex* x".rE= z. NzbzE $#q@8L(c@8h@8h.& & &f&f& & & A& & .&$m"$    DE v!$w.L+--  'DE 0.r0L    9Q  X. 0 $ FaB A @ v!$N  .  /#   .cw& 23   w e. . vv    w(.0EDN " v!$DE%H.%[H %`H&RH&SH&`H,.<SH<UH8<ܟHuRHuSH:.u`H !SH?!UH!ܟH!He.!H !H#RH#SH #`H .KRHKSHK`HWRHWSH.W`HS[ܟH:dRH:dSH:d`H.:dH:dH:dHgRHgSH.g`H wRHwSHw`HwRH .wSHw`H z|HzBxHz\H.zH؁HHHH.HH&H.%[H %`H&RH&SH&`H,.<SH<UH8<ܟHuRHuSH:.u`H !SH?!UH!ܟH!He.!H !H#RH#SH #`H .KRHKSHK`HWRHWSH.W`HS[ܟH:dRH:dSH:d`H.:dH:dH:dHgRHgSH.g`H wRHwSHw`HwRH .wSHw`H z|HzBxHz\H.zH؁HHHH.HH'z&' .&z'y' NQ'^; Z Q;QP F.FdePQP "c l ru ry.*}*>@L( 3(@ .hng'h/Dh6) ? hn) h . @Qhkhk<hPkWh;hxU.%h$%2h%Zh(%ph-Zh`.0Mh(+Q.V- v!$DE 00.|90 ` av!$  `. "w   4 4f.& ( " mB A @ mA 3.@ m@ c  e  =. e=-9B.:6 C B A @ #"B .`A @ C6v "$e.΋V w  Jf. &f 8 2&f . eB A @ eA )HHH \.H"H$HH&H(. H*!H,"H.#H0$H2:.%H4&H6'H8(HFH: .PHxHH ȂH Hx.HHRHSH`H (\*HHH \.H"H$HH&H(. H*!H,"H.#H0$H2:.%H4&H6'H8(HFH: .PHxHH ȂH Hx.HHRHSH`H (\+ahzhjOh<h*;.<Lh4<h2<*Kh,<h< h0.<h<h.hv@~h h.] XhVdyhfHhlShVht.}h t!ht!'h!h<!%h>=.!h~!2h&!6h8!7h:!(7h|.""h&""t!hH""g'h""vh(#hR7.#xQh%@h%zh'&@ha'`hh.a'.hf'h'~h,Xzhp-h.-h.Lh2hT9@8hrX:*}h.x:*Kh:hvL!hV[Mh N,@ e@ e B A @    A.z*}fL@g@1.R@S@`@,R@,S@.,\a@? R@? S@? `@L"@.@@%R@%S@%[@.%`@&R@&S@&`@z@.<S@<U@<ܟ@@uR@o.uS@u`@!S@!U@!ܟ@.!@!@!@#R@#S@3.#`@&K@X(`9@\(Xa@,8@.,Xz@9@8@X:*}@/hd. NSh Nah NhqQWhRh7.US@QhzSWhLS0hfWwhrYZhq=.T`|Nh:dh=dyhb\g@h\gxh,.$q"har hrv~hpshbspht.sh$s"h%s&h#wYhlwzh5.wt8hlx`hjyMhLyhdnz h .zwht}dh~HXh\,hBxhQ䒰"h! 3C+MAIN.DATA.145 & & H.Hy0KR@KS@c.K`@_MTq@ N@S0@WR@0.WS@Ww@W`@YZ@S[ܟ@.T[@_oM@`@@+dI@:dR@.:dS@:d`@:d@:d@:d@.gR@gS@g`@bsp@9wY@%.9w\@wt8@wR@wS@w`@m.wR@wS@w`@y @z @.z|@z@zt!@zT[@zw@.zBx@z\@z@؁@@.@@@@@.@1.,LyBxHd(7. 3(^) hMO h&dh4@@@@.@@ @!@"@R.#@$@%@&@'@9.(@F@P@x@@.Ȃ@@@@R@.S@`@c@8@@8@( .&:h,h,Rh,Wh,sh8.,zhS@hd\gzhwr hFz&h:. 0   CaCa$ L"M.&` 7! h5  55@& 7%~\. v "#qZK.v"~(~*. @ @`e-v Q Da. `h7"77X PwL& O oM*oM*. C`e  %d)LL?. &  P  E?%C&  Lppp:.6 w7 $%Z&yZZ&}s}) 7 'Bapph'%&: .Z&yL(Z&yh&V06.13 ^./!L(O hoM[MhE?(vL(F x:p:ap:H.L   ! Օ^e@ m.r\ Օ ĕ  7 7 a"0M.C? )נ נ0~0Mp:~HX.נ9נ  Ԑ7 -נ~HX yvL. נ  !-&"p:p:~HX&yvLr. Eנ 9נ -Dw~HXyvL.0w >w + 0)נ 7נ`4-~@E R   *K`<ܟ KR"EE<*wt8zz<ܟ<SS(E! !*<ܟ<S N" NH.2 wT 61(z Nz $9w\ &X v ve . F&v $I UU*9@8`@9@8K`(A.,.]gL? S@? `@. @Q@L"@@@z@2.uS@u`@!@,*K@,@R..L@R@a@a @a%@.a-@aPM@aW@aL^@aw@.ax@ay@a*}@:dS@:d`@i.:d@:d@gS@g`@\gW@{.wR@w`@e3l@(K f9h|,.]h. 1  ɥ(? !$ e3lB. g(@L; 9@|@@`.@H g,H@,HkQH8.sH"W@-`@C`O@C`O@M.C`O@C`O@C`O@|~K@*@N.@( g(lx g h ghhxzhpX g(.`P@@AS. C`OC`OC`O!C`O)C`Oi.&S s;1@i}@" C`OC`O; 9$|@.L֯ޯp!$^C0MyvLp:.V- b l wѐ/yvL yvL5.|m C å1å9 -yvLyK$yvL.w7 $~HXvL!0MyvL$0M.fvppl f@ `Vwz wY$@].  6 . - N6 .( N,  2 x:, `2a2 vLG"%2$vL$G&:.8Dwve .*<ܟ# 9@8P $I  ~*`@ 9@8wt8w`"U0e *wt8 <ܟz\+dI&  ?De* N #z.ыW', &TN 5!K`K`&K`.*ԕ u 7BU w"X$ K`zT[YZ&S&`.PE,*K .L$L"C.&w f r  S,r\gW @QR$ @Q&R.L w w  4 W.a-! aWaPMwax$!-r $TR . $TRX . $TRA 0 $TRAL Q. f > B,)& ɥ, ". *υɋ :| ,|\gW @Q R& @Q(R.   ,wb*a- !aWa%aL^!F)~$"W-`&|~K;r q+ *.kQ(>LE M@E S@.@g,@,@kQ@s@k.}@vL@vLD@vL$G@vLG@h.oM[M@ N@oTd@^M@C`OH.C`OHC`OHC`OHC`OH/d@. g @ gh@s"@yM@z@.(; 9h|@hhF"Whb.-`h4d(h|~Kh*hh".X:lX:;dl X:vLlRlG0000 fh˕/DDevLGfh.^ 'd &f-Df &Df( -* %,%Df. s   vL$G` vL$G&vLD..  ,@ @ vL$GvLD. > ?& #`vL$G$vLD$.@  7R "%,%&RI.HW'ы  Nz  N.vыDeT N$zK`&K`.  6 6 6 6 @* (Pz"x.6 6Da WHw$xxL".B w(W.BWEoWDl 0/ &,Xz,  ve $Io*9@8"`@"2 UUI  UE*za*} zgSg`w`v. P w ѥ,J.wR aw!aPMax"!.F Uɋ'ɥ,9 z? S? `(`*lɥ(3   ,\gW @QR @Q"R. ɥ)w we,a-! aW!aPM (   .\gW @Q R @QJr lrhlrBxl.ABEMNOPQRTUr  rh rBx r  rh rBx r  rh rBx r  rh rBx  r  rh rBx K<bR P 8. %,%R%,%vLG"Df&t!.b   f$ t!DfDf"%,%$vL$G+Ջ D w   j.7w ww  ' -  N&vL.8!&f  `ע0$vL/dZ/dZEf@Q"Ef@Q.ӕ  7 J* |~K%,%~}vL(%,%H  LUe*9@8 <ܟK`&S.LE0Q @<w$&`wt8 wRw`.rw] 6 6 6 6   $(P $. 0     P   T[".   6 N"("e e*$ z\+dI.ewww$$ MRa->. ww ɋ *!aW !L"(,.%  < zu`uS. f ѥT ѥO)e3l,*K".> 4 ɋU<* !z ? S"? `&:d`(:dS*dÝÝ i* @Q @Q"\gW  w .R Ra-!Nr   rh   rBx   r   rh   rBx   r  rh rBx r   g rhS  ghrBx` . (1;( E SvLDoM[M "r &rh7.4 & -;ee* OvLG.""[M>L/D@""@G.""t!@""v@( 3(8z""h 3C.&fW!UE!+  """"t!(/D&5!w ""i.L( 3(d.zLgH RH.SH`H,RH,SH@,\aH-.? RH? SH@? `H %RH%SH.%[HP.$whwl6 wjf 焃j#_MTq 9w\.J T 6 6Da6z*xxx x(.pWEWDv T W+A(x"!.W-~6 \6Da xxx$z*.& -ER  -  (@8* ee8,   $&vQaWaPM. ̅ w JE . ax!a z :d$:d"  $ASP $AS .{aL^ ay.y=dgL L^@@4.!@,*K@.L@a@a0M@3.aOM@=dy@e3l@(=dwh!ydhQ. B 7¥O& e3l.L$=dy.&¥" w ` 2 RrBxX:oTd N$X:;.ZE ^-\  X: NvLG$vLD$m@ݴ,E MvLDvLDE SX:@}@ F(X:@s" oM[MoTdr . N  @z(v*0.X:X:@X:($X:*(X:0`.2 20     \&X:2X:2X:0X:.w L b $  S %`H&RH&SH&`H,.<SH<UH8<ܟHuRHuSH:.u`H !SH?!UH!ܟH!He.!H !H#RH#SH #`H .KRHKSHK`HWRHWSH.W`HS[ܟH:dRH:dSH:d`H.:dH:dH:dHgRHgSH.g`H wRHwSHw`HwRH .wSHw`H z|HzBxHz\H.zH؁HHHH.HHHHTe-DF *(bspT&"$R UUU*`@ bsp<ܟK`!@E0Qej*&S&` wt8wRw`"V w h*z\+dI $p 1*c@8 !"f.eE T w ("& $D U U*U! =dy(.L w < 1$aOM L^.r B ܅ ځD  } a .! D .GLOBL $PAUSE",*K.LaOMaOM. $PAUSE .GLOBL $STOP $STOP .AS$CII ^^ .BYTE 0 .EVEN .u:L@z@.!@,*K@,@,Xz@.t@.a%@a0M@ay@9w\@@&e3l@(VX:;d X: &X: .$(7 7 w :&X:  X: X:;dX:;dv(J W  W  W s. X: X: X:;d X:;d X:vLJ.j f! ! ?( X:vL vLDE MvLD "X:,f D   , vLD X:X:vL "X:$X:vL r. 0 < !, X:vLDX:X: X: . < H \.H"H$HH&H(. H*!H,"H.#H0$H2:.%H4&H6'H8(HFH: .PHxHH ȂH Hx.HHRHSH`H (\X`@<ܟO"E 55F*K` w`wR!U!ܟ&S.5   E $&` uS u`"<ܟ&<S. & f Br NS0$+dI..e`) `)  E @(S0 zz wS"w`b.TEm  5 z ",Xz(uS z555*u` :dS :d`wSYu:hI. Z   G.e3l ,*K,Xz,Xz.t&a0M.& V DL I a0M,,Xz<.L nW(F C @ TW,; 2,).r 8 5 : 0 / o",9w\",n., W)' W,  !"6.    z{$a% zZҋ  4" vL/d X: X:;d. % 7 7 < W!;U& X: X:X:X:<r,& & - 2 ,X:vL X:X:vL NX:2lJ@<"< *X:@X:< X:"X:< \ы7 R. X: X:vL X:X:vL X: t ;=  < ? i.X:vL X:; X:=X:<X:vL P.B Rw @  Z [160FORCOM.DGN 000I REDUNDANT CONTINUATION MARK; IT IS IGNORED 001I CONTINUATION MARK NOT IN RANGE 1 TO 9; IT IS IGNORED 002I ILLEGAL STMT. NUMBER, NON-NUMERIC CHAR. IN COLS. 1-5 003W ILLEGAL TYPE OR IMPLICIT STATEMENT, INTEGER IS ASSUMED. 004W NON-DECLARATIVE STATEMENT IN BLOCK DATA. 005F SYMBOL TABLE FULL. 006W TOO MANY CONTINUATION LINES, REMAINDER IGNORED. 007S MIXED MODE IS USED IN AN EXPRESSION. 008F ILLEGAL UNARY OP., ONLY +, -, OR .NOT. ARE ALLOWED. 009F CLOSING "/" MISSING ON BLOCK NAME.\w`#S&  W(EUE*#` !U!ܟ!ܟ wS.f 5E fE`m*w` zBx&S&`K`KR.w! w _$zT[zt!y 9wY"zT[.fE \1$zT[S[ܟ N"z &S[ܟ."ww7Uff&E*zT[z NzT[wSw`.Hff&& 7 m  ]ayza.|}~ .GLOBL $DEFIL   ,U,9     .'|QL @Q@@ .!@#,@a'`@,*K@.L@.vL!@R@T[@a@a @$.a$@a%@a-@a0M@aPM@.aW@aw@\gW@ z#@(4'|Qh?"  ݗ*.L ,*K\gW @QR^? &X:vL X: X:$X:vLT.  4%W!:UW!=Q ,5 &X:o.5 U  '5K,,X:X:vLX:$g,k.&  | W!$ W!:RX: X:A.$ D+ W!; w z X: .J W!= W!:   98 X:.p- +  5 EU 7P&X: X:;dX:X:K_ 010W ALL PORTIONS OF FORMAT MUST BE WITHIN OUTER LEVEL PARENS. 011W TOO MANY RIGHT PARENTHESES IN FORMAT. 012W ILLEGAL CHARACTER(S) TERMINATING A STATEMENT. 013F ILLEGAL FORM FOR A NUMERIC CONSTANT. 014F INSUFFICIENT COMPILER SPACE TO EVALUATE THIS CONSTANT. 015W INTEGER CONSTANT TOO BIG. LARGEST POS. VALUE ASSUMED. 016F ILLEGAL SYNTAX IN LIST ITEM. 017F ILLEGAL LIST TERMINATION. 018W ILLEGAL CHARACTER IN FORMAT STATEMENT. 019F DIMENSIONS MUST BE SPECIFIED FOR EACH VAR. IN THE LIST. 020F DIMS`Ww Nz .nE%   w`wRS[ܟ(zw. . &f=z zt!$X(`9O. e w7e7bzt!zt! \(Xa.TRUE..FALSE. .2L? W@K@.&v~@e^@{d@X@s!e^@.#@#,@#`"@&@09@.B9`"@i@y@:aS@fa , @QR a-!aWa%&0 F w $w *a'` a'`aw!a  aPM?.N ( w B 44 vL!a$aPM .t/$" wt> #.?    7.   H    @QRa. ;w w F }&aPMaPM"aw&a$i. b5-Y.X:X: X:X:X:.U@U  U;.X: X: X:X:vLX:. T w Fff T tg&X:vL X:;dX:vL X:4.5- : Uff 8EU X:vLX: $. >ыwwU E7 `X:X:X:vL,D 7 $ b1PprxY.X:X:$br "p$r&xr.c. CONFLICT WITH THOSE OF AN EARLIER STATEMENT. 021W UNRECOGNIZED STATEMENT. 022F ADJUSTABLE ARRAY NAME OR INDEX NOT A SUBPROGRAM PARAMETER. 023W MISSING EXPONENT IN CONSTANT. 024F MAXIMUM FUNCTION DEPTH (20) EXCEEDED. 025F MISMATCHED PARENTHESIS. 026F NON-ARRAY REFERENCE TO ARRAY ITEM. 027F CANNOT ASSIGN TO A CONSTANT. 028F CANNOT ASSIGN TO A FUNCTION. 029W ILLEGAL CHAR. TERMINATING A STMT. OR POSS. BAD OPERATOR. 030F SUBSCRIPT ON NON-ARRAY VARIABLE. 031W NAME MUST BE 1-6 ALPHANUMERICS, THE FIdZ@Iq@.\q@ z#@}@(/hl.hLt!ht!&hvt!fh~#@yhQ.49@yh wJ% . w w  EpU && aaPfh & xU r.   5e5 X:X:X:.U X   :׭ X:vLX:&X:.     X:X:$X:. & W!@ 5UU  n X:vLX:vL.&W!# USW!-  W! X:;d"X:;d.L( U JW!( W!+ U.r=gRST ALPHABETIC. 032F ILL. SUBSCRIPT IN AN ARRAY ASSIGNMENT OR MISSING SUBSCRIPT. 033F ILLEGAL OPERAND OR POSSIBLE ADJACENT OPERATORS. 034F TOO MANY SUBSCRIPTS OR NO CLOSING PAREN FOR SUBSCRIPT. 035F NO FUNCTION ARGUMENTS PRESENT. 036F UNRECOGNIZABLE PARAMETER IN FUNCTION CALL. 037F FUNCTION CALL MISSING A ")". 038F ILLEGAL ROUTINE NAME. 039W MISSING END STATEMENT, END IS ASSUMED. 040W IMPROPERLY NESTED DO STATEMENT. 041W DO LIST OVERFLOW, NO MORE THAN 10 NESTED DO'S ARE ALLOWED. 042W ILLEGAL SYhj  ae^nj & "j )*{d {d{d{d{d{d wi{d{d {di@y.aHhDahFNahhyshk&~h:t!h* Dh 3?   **iMaPM z#.<  w xw  ɥ> &#,aPMxaPM0.b( ɥH w .GLOBL $FMTRT w  . $FMTRT $TR .ASCII ^^ .EVEN ()'.,/- .PaD7 wE7F7H7@255) IN ROUTINE LIST. 058W CONSTANT MAY NOT BE DECLARED IN EXTERNAL. 059W TOO MANY LEFT PARENTHESES IN FORMAT. 060W MISSING COMMA OR ) IN COMMON/EQUIVALENCE. 061W MISSING ( IN COMMON/EQUIVALENCE. 062W DUMMY ARGUMENT OR ADJUSTpz nz n}.*}z?LLH<3}H.3؁H~}H6( 3(E MhV.E Shp:h^hahhQ2.t!hDfhh@hVhZ .%hR%2hNe%hLhi+h^(.iL,hb%h5'QhX(`9hv\(Xahx_.%,%hf2h2hx:h:khf.O;hvLhrvLhNvLDhvL(Fhx.vLxFhRvLFhnvL$GhvLGh NkhZe. N"h N#hNhoTdht^q! $ENDD!     ayaL^.09L? W@L"@.@@!@#,@a'`@.,*K@.L@49@y@D9@x:*K@5.`@@a@a0M@aPM@aw@.a*}@9w\@ z#@(09hB9`"h~.wt & W) W= z# ).& E V %Ep r4 X:;d.R &U   w. X:&X:X: "X: &X:"x f -  T. X:X: X:X: X:. r  l d D  ( X: $X: &X:(. *U E l  l&X: X:*X:vL (. 0 >& " E7 7r >&X:.    W!;W!< X:.*sABLE ARRAY USED IN EQUIVALENCE. 063W INCONSISTENT EQUIVALENCE. 064F TWO OR MORE COMMON ITEMS ARE EQUIVALENCED. 065F I/O UNIT IS NOT SIMPLE INTEGER VARIABLE OR CONSTANT. 066F ARRAY OR FUNCTION NAME NOT ALLOWED AS UNIT IN I/O STMT. 067F ILLEGAL SYNTAX IN I/O OR ENCODE/DECODE. 068F MISSING ARGUMENT IN FIND. 069F ILLEGAL RECORD DESIGNATOR IN RANDOM ACCESS READ/WRITE. 070F MISSING RIGHT PARENTHESIS IN I/O OR ENCODE/DECODE. 071W ILLEGAL FORM FOR END= AND/OR ERR= . 072W ILLEGAL FORM FOR LIST ITEM. 073tkh`.^"h^#h^Mh_ 3hz_oMh|.`hahJa2hF/dZhLEf@QhD.y""hy#hyp:hyKhpyvLhn.yMhy h|z h~zhzt!h3.zT[hu~h)|~KhZh Zh 3C.; FORTRAN ........ FORTRAN .......-&. 00:00:00 00-XXX-70 PAGE 0000  L.L<Ex* x".rE= zuL",*K.LU    & #,a0M!$(a0M(r F [*! a*}a'`aw! a'`.  w77   p*D99w\x:*K49@y.Lx:*K.$F:   k`@a0M&x:*K(7 f w e1.? Wx:*K,*K.L#,aPM C.E&ȋ w  &vC  @       UK.P   t &X:vL X: X: &X:H.v 5`ʕ'5@ʕGfAʕ X: "t. R fA  .eʕ Jҋ  1(X:.b -< S8 & NvL/dvL$G&X:8. (6 6&  (. X:( X:6X:$X: (X:.4wF ILLEGAL SYNTAX FOR REWIND, BACKSPACE OR ENDFILE. 074F NON-INTEGER PARAMETER IN REWIND, BACKSPACE, OR ENDFILE. 075W ILLEGAL H CONSTANT IN FORMAT. 076W HOLLERITH CONSTANT COUNT TOO BIG. 077W SYNTAX ERROR IN IMPLICIT STATEMENT. 078W HOLLERITH CONSTANT IMPROPERLY TERMINATED BY END OF LINE. 079W .NOT. MAY BE USED AS A UNARY OPERATOR ONLY. 080W EXPONENT MAY NOT BE LOGICAL*1, LOGICAL*2 OR COMPLEX. 081W INTEGER**REAL OR INTEGER**COMPLEX NOT ALLOWED. 082W COMPLEX**REAL OR COMPLEX**DOUBLE NOT ALLOWED. 0x. NzbzE z&' .&z'y' NQ'^; Z Q;QP F.FdePQP "c l ru ry.*}*>@L( 3(@ .hng'h/Dh6) ? hn) h . @Qhkhk<hPkWh;ya!aPM &a.$     . : m !".J e W, e  a0M.pS C ! W  L"5.0 U  .GLOBL $TSI -IRD .GLOBL $TRTST .E,eL@&S@z@.<U@<ܟ@@,@,s@.K`@YZ@`@@+dI@\gz@b.wt8@z|@z&@zT[@z EEEUQa7  X: X: $.Z ~ 5@ŭEU &X:X:X:"X:P. X EU  8 & X:X: X: $X:84. 8w Zn  7 }*X:8vLGn vLG"vL&/d].   J  **(a&X: X: $X:*(X:(&.  ^ʕ  ʕ) ҕ. X: " A. {83F IMPROPER LABEL SYNTAX IN IF STATEMENT. 084W ANYTHING **COMPLEX NOT ALLOWED. 085F MISSING COMMA IN READ, PRINT, OR PUNCH. 086F INCORRECT SYNTAX IN DEFINE FILE STATEMENT. 087W ARRAY MAY NOT BE DECLARED AS EXTERNAL. 088F ARRAY IS TOO LARGE. 089F ILLEGAL ROUTINE NAME. 090F ILLEGAL DO SPECIFICATION IN I/O OR ENCODE/DECODE. 091F ILLEGAL LIST IN IMPLIED DO. 092F ILLEGAL FORMAT SPEC. IN I/O OR ENCODE/DECODE. 093W SYNTAX ERROR IN THE EXPRESSION OF AN ASF. 094W MISSING "," OR ")" IN ASF. 095W MISPLA|hxU.%h$%2h%Zh(%ph-Zh`.0MhahzhjOh<h*;.<Lh4<h2<*Kh,<h< h0.<h<h.hv@~h h.] XhVdyhfHhlShVht.}h t!ht!'h!h<!%h>=.!h~!2h&!6h8!7h:!(7h|.""h&""t!hH""g'h""vh(#hR7.#xQh%@h%zh'&@ha'`hh.a'.hf'h'~h,Xzhp-h.-h.Lh}(*E,ehO.f& W- ~ |%YZ YZ ,.&y ѥ,t e&&& & zz|"z|&z|.L W- W U%Rѥ)Oo,.r&f&& e   YZzz|z|.( (&  z&"&k.$Cfe e&  `@+d~  ʕ ׭c.׭\ X: .> $   R $ vLGvLG/d" ( .d wF BLOCK . LENGTH  XXXXXX (000000)    +. 8 8 -1< ^(X:8X:8 N$vL(/d. 7   hB < 8"X: X:B (X:p. , ( ҕ 2"w  X:2_.& CED "=" IN ASF. 096F ASF NAME HAS BEEN PREVIOUSLY USED. 097W SUBSCRIPTS OUT OF BOUNDS IN DATA OR EQUIVALENCE. 098F ILLEGAL EXTENSION OF COMMON ORIGIN BY EQUIVALENCE. 099F OPENING "/" MISSING FROM DATA GROUP. 100W UNEQUAL NUMBER OF VARIABLES AND CONSTANTS. 101W DATA NOT ALLOWED IN COMMON EXCEPT IN "BLOCKDATA". 102F SUBSCRIPTS ON UNDIMENSIONED ELEMENT IN DATA. 103F ADJUSTABLE ARRAY NOT ALLOWED IN DATA. 104F PRESETTING NAMED COMMON ALLOWED ONLY IN "BLOCKDATA". 105F ILLEGAL FORM FOR CONSTANT IN DATA2hT9@8hrX:*}h.x:*Kh:hvL!hV[Mh Nhd. NSh Nah NhqQWhRh7.US@QhzSWhLS0hfWwhrYZhq=.T`|Nh:dh=dyhb\g@h\gxh,.$q"har hrv~hpshbspht.sh$s"h%s&h#wYhlwzh5.wt8hlx`hjyMhLyhdnz h .zwht}dh~HXh\,hBxhQ䒰"h! 3C+MAIN.DATA.145 I"wt8&wt8.(e e e ] &S(\gzz,s( e YZYZ.:dw>L) ? @) @.? S@? `@ @Q@L"@d@u.@%kQ@z@O@@~@$.uR@u`@!ܟ@!@""g'@m.#,@#xQ@%@@a'`@'~@>.E,e@,@,@-@-@Y.:@{L?@ N@R8@R@.o w 4 =% R d X: X:X:.L G @  w tr ĝ X:&X:.r c @ 8XE^ X:X:8(^ r( 6  .X:6 X: X:;d X: X:9  -  <.X:X: X:;dX:X:;d.  | p4@a ` & X:X:X:4 X:* 4W  ҝ. 106F ILLEGAL REPEAT COUNT. 107W MISMATCHED DATA TYPES. 108W DATA MUST FOLLOW ALL OTHER DECLARATIVES. 109I NO PATH TO THIS STATEMENT. 110W VARIABLE MAY NOT HAVE BEEN REDEFINED AFTER USE IN "ASSIGN". 111F ILLEGAL FORM FOR COMPLEX CONSTANT. 112W NUMBER OF DIMENSIONS NOT THE SAME AS DECLARED. 113W RETURN IS ILLEGAL IN MAIN PROGRAM. 114W MISSING DO LOOP TERMINATION(S). 115F DIMENS. NOT TERM. BY RIGHT PAREN OR TOO MANY DIMENSIONS. 116W ROUTINE NAME CANNOT BE DECLARED EXTERNAL. 117F ENCODE/DECODE L& & H.Hy  nn 9 A 56 )* V.Vw |s L+4  @7 ..$$$$. $$.T`*}Td@Y@Z @T[@a@\.a @a%@a-@aOM@aPM@.aW@aL^@aw@ay@a*}@D.:dS@:d`@:d@ev@gS@`.g`@\g@\gW@g@9w@[@.wr @wS@w`@y @y@J.y) @y'@}d@~W@(.) Ohd) RhP(NhH z#hv.e!_0$ oTdy 9w@[ .& 4'1'* $*@. X: X:4 X:X: X:t&    6ѝ=. X:X: X: X:X:6( 2  ѝw4 wa.X: X:X:4X:X:.J 6 $6X:;d X:6X:6.p 4) c& X:X:4 X: (X:" -6*vL$G vL$GX:6 X: X:$ 86݇ACKS LEGAL BUFFER DESCRIPTOR. 118F ENCODE/DECODE BUFFER SIZE NOT SIMPLE INTEGER. 119F ARRAY OR FUNCTION CANNOT DESCRIBE BUFFER SIZE. 120S VARIABLE USED BUT NOT PREVIOUSLY DEFINED. 121F DIAGNOSTIC TABLE OVERFLOW. 122F ILLEGAL FORM FOR UNIT NUMBER IN DEFINE FILE. 123F MISSING "(" IN DEFINE FILE. 124F ILLEGAL RECORD COUNT (M) IN DEFINE FILE. 125F ILLEGAL RECORD LENGTH (L) IN DEFINE FILE. 126F DEFINE FILE ONLY ALLOWS UNFORMATTED (U) MODE. 127F DEFINE FILE ASSOCIATED VARIABLE NOT SIMPLE INTEGER. 128>LyBxHd(7. 3(^) hMO h&dhR`h@.hg'hqh|`^ht! h^5.# h#g'h%NhSL h~SLh4.SLdfh!Nqhx#N`^hS hDWD,h.df2ghr^q hUsqhzs`^hy}h.yhyO hjy(hpyt!hly2ghhD&yphn}hv*(Fht1 3h.hf.:?Lp:@Ή&f$ydevR8&y*.L ߊ W  W) @~ @~y.r  ?_' y:{L?"YF.(  ʆo g& T[E,e"k.ߋ 5x5nK.z ""g'wSw` ? S"? `k. Q&E Pl  yd.  = O$46  1 dY.,X:8X:6 X: X:vL$G  46f,vL$G X: X:4 X:X:6. ?A,R* ʥ $X:? vLG X:, X:*. ҋҕ ҕ B! & /dvLG "X:&&vLG.0 ? f e0R X:?m.V & @ ( @ ! X: &X:).|  `  e ee e D. : & ]4W MISSING ")" IN DEFINE FILE. 129F EXPRESSION STACK OVERFLOW 130W ILLEGAL FORM FOR OCTAL CONSTANT. 131W OCTAL CONSTANT TOO LARGE. 132W OCTAL CONSTANT MUST HAVE AT LEAST ONE CHARACTER. 133W IMPROPER FORM FOR REAL CONSTANT. 134I NO EXECUTABLE STATEMENTS IN A MAIN PROGRAM. 135W MISSING COMMA. 136W REDUNDANT COMMA. 137W IMPLICIT STATEMENT APPEARS AFTER STATEMENT IT AFFECTS. 138W LOGICAL OP. MEANINGFUL ONLY ON BYTE, LOGICAL, OR INTEGER. 139F EQUIVALENCE GROUP TOO LARGE FOR ADDRESS SPACE. 140W ATTEMa@.@t!@L@Df@%2@X.0M@%,%@x:@vL@vL!@.vLD@vL(F@vL$G@vLG@ N@.`@a2@/dZ@Ef@Q@wY@.wz@yK@yvL@|~K@~}@.~HX@( 3( !h,0Mh.o;@hNA@hH NvLhaha h?.a&hra0MhVaOMhaPMha Nh.a\gh/dhk 3C. @ $ yvL04 &*U* eu# gY|.VCEEBPBe៣*y N&,.|P(0>HNBCCBE.E P  @  0R yZ.Q PRT!f _ %@ &.) W( H _ _ 0/ ~WH$.Q P_(_BE@Cy(.:%FK    E$ E ,X:4-.  UUUf E.X:X:vLX:vLX: (X: . &&&&& 0 xU &X:vL X: $X: (X:;d.%dX *T$ +^-&^.:P*/&! 7 & Lb"P X:.`d(b5`5`5@5@1 *X:.U E TwI LBLRdX X:.@&PTED EQUIVALENCE TO MISALIGNED BYTE ITEM. 141W ILLEGAL EXPRESSION MODE IN IF STATEMENT 142W DATA VALUE EXCEEDS BYTE MAGNITUDE 143F DELIMITER > MISSING FROM VARIABLE FORMAT EXPRESSION 144W EMPTY VARIABLE FORMAT EXPRESSION 145F VARIABLE FORMAT EXPRESSION NOT ALLOWED WITH H FORMAT 146W NEGATIVE OR ZERO CONSTANT AS SUBSCRIPT 147F INTERNAL ERROR DURING CODE GENERATION -01****TERMINATING LINE**** 0M0M x:$vL(F2.&5`  H (vL(F x:p:ap:H.L   ! Օ^e@ m.r\ Օ ĕ  7 7 a"0M.C? )נ נ0~0Mp:~HX.נ9נ  Ԑ7 -נ~HX yvL. נ  !-&"p:p:~HX&yvLr. Eנ 9נ -Dw( y) ? T[,`_  &&f&. ::) ? ) ?  y$}dk.&E  ,)C,zu` uR}d@~ ,."  ,)"   ,. ,)" ߊ U,@~(}d.p & }dy) ? ":. & _tEpU  :  N F@  Aj. N  & @  n.  &   `@ 2. 25UE d& X:X:vLX: X::.D 5@ 5` U7 &X:X:$X:vL(X:"$j7 7  h W.X: X:X:X:vL X:. 7  ^;-  &5U X: X:X: .55@UE@E~HXyvL.0w >w + 0)נ 7נ`4-~0MyvLp:.V- b l wѐ/yvL yvL5.|m C å1å9 -yvLyK$yvL.w7 $~HXvL!0MyvL$0M.fvppl f@ `Vwz wY$@].  6 . - N6 .( N,  2 xy) t%kQ(T[.B, &fK" @~y'"y&}di.h& ( #F $}d@~T[$}d(y.ߊ K /¥,¥) d @~T[Q.  %)Xf  2 Z . 5$ ,)< z:dS:d`T[.‹% 7  EP—i(@~;.& P   5  X:vLX:vL. " U  d X: X: X: .  N \U z'UX:vLX:;d(X:vLt.W!. W!$U   X:vLs.DW!. U  ~E$X:vL&~.j@ +-'"%"&{.<  w   T. T hU U͗C FORTRAN SYSTEM DIAGNOSTIC MESSAGE FILE BUILDER C THIS PROGRAM CAN BE USED TO BUILD FILES FOR C EITHER DOS-11 OR RSX-11D AND IT CAN BE C RUN UNDER EITHER SYSTEM BY MAKING THE APPROPRIATE C CHOICE OF "ASSIGN" OR "SETFIL" BELOW C C CREATES AND THEN PRINTS A FILE OF MESSAGES C FOR ACCESS BY THE FORTRAN COMPILER OR OTS C INPUT: C FILE - AS SPECIFIED BY KEYBOARD TYPE-IN C LUN - 4 C 1ST RECORD-- I3,40A1 I3=#OF 64 CHARACTER MESSAGES C TO BE ALLOCATED. 40A1=FILE SPECIFICATION C OTHER RECO:, `2a2 vLG"%2$vL$G&:.80000 fh˕/DDevLGfh.^ 'd &f-Df &Df( -* %,%Df. s   vL$G` vL$G&vLD..  ,@ @ vL$GvLD. > ?& #`vL$G$vLD$.` a'`.L )!  Un oTd"a'`&a'`x.r&   }d}dy.& ߊH_feF  @~oTdfeF 솁, oTd.,?L) @) @.O @ @Q@%kQH&S@&d@.&`@R`@z@@O@.@~@g'@q@`^@t! @}.!ܟX:vLs. L ZW!> " ! c X:;d"X:;d &X:.! -- @  ` & .(   & e @uX: .N A Z 0 9 .  $ ;.t  @ R  (X:;dt.C0   & N`U X:;d. ` vew W!;$X:.  W!, U ( 7 &X:vLRDS- I3,64A1 I3=POSITION OF CURRENT C MESSAGE IN THIS FILE. 64A1=CURRENT MESSAGE C LAST RECORD-- I3,64A1 I3=NEGATIVE INTEGER. 64A1=IGNORED C OUTPUT: C FILE - FILE SPECIFICATION READ INTO FILSPC C LUN - 1 C 64 CHARACTER FIXED LENGTH RECORDS C C LUN - 5 (NORMALLY LP:) C PRINTED OUTPUT C INTEGER COUNT,INDEX BYTE TODAY(9),FILSPC(40),A(64),NULL(64) DATA NULL / 64 * 0 / COUNT=0 WRITE (6,1000) 1000 FORMAT('$SPECIFY INPUT FILE>') READ(6,10001) I0,FILSPC 10001 FORMAT(Q,4@  7R "%,%&RI.<bR P 8. %,%R%,%vLG"Df&t!.b   f$ t!DfDf"%,%$vL$G+Ջ D w   j.7w ww  ' -  N&vL.8!&f  `ע0$vL/dZ/dZEf@Q"Ef@Q.ӕ  7 @!@""g'@# @#xQ@.#g'@%N@'~@,@-@.-@:@SLdf@ N@!Nq@b.#N`^@R@S @WD,@Z H.T`|N@a@a @a%@a-@.a0M@aOM@aPM@aW@aL^@.aw@ay@a*}@:dS@:d`@p.:d@:d@df2g@gS@g`@.\g@\gW@^q @sq@s`^@.wr @w`@y}@y@yO @,.y(@yt!@y2g@yp@yX:vLX:vL&X:vL.  W!,    YX:vLX:;d X:;d.2W! W!  ş JX:;dX:;d.X @ 6f   X:;d X: .~ ыɋU  w X:X:vL.C @ @   #1- ;.` Ee) ``B ! LX:. #`B  s  . #10A1) C C SET UP THE INPUT FILE NAME ASSIGNMENT C C CALL ASSIGN(4,FILSPC,I0) CALL SETFIL(4,FILSPC,IERR,'SY',0) C ENDFILE 6 C C READ FIRST RECORD AND ALLOCATE CONTIGUOUS FILE READ(4,1001) IBLOK,FILSPC 1001 FORMAT(I3,40A1) C C SET UP THE OUTPUT FILE NAME ASSIGNMENT C C CALL ASSIGN(1,FILSPC,40) CALL SETFIL(1,FILSPC,IERR,'SY',0) C DEFINE FILE 1(IBLOK, 32, U, INDEX) C C INITIALIZE ALL RECORDS OF OUTPUT FILE TO ZEROS DO 10 I=1,IBLOK 10 WRITE (1'I)NULL C C READ INPUT AND WRITE EACH RJ* |~K%,%~}vL(%,%H  vLG.""[M>L/D@""@G.""t!@""v@( 3(8z""h 3C.&fW!UE!+  """"t!(/D&5!w ""i.L( 3(d.zLgH RH.SH`H,RH,SH@Bx@ .y) Hy'H}@Bx@@.*(F@(,h(#,hW,hD.&fv  X $X(.&G X  %9,X  #N`^}$w`&WD,$L X /_ ߷ .WD,X df2g}#g' @Q&h   .R @Q RO t! .$ -`7& wCa7&X:&X: "rBx(X:W.<%LT! h7   L X:$X:&b^ ` .X: X: rBx rh r c.B w .R p&r  X: r "rh.   u57 f rh rBxX:.ABC f6A.X: r rh rBx X: .ޣECORD OF OUTPUT FILE 40 READ (4,1002,END=50)I0,I1,A 1002 FORMAT(Q,I3,64A1) IF (I1 .LT. 0) GO TO 50 COUNT=COUNT+1 C I0=I0-3 IF (I0 .LE. 0) GO TO 40 IF (I0 .LT. 64)A(I0+1)=0 C I1=I1+1 WRITE (1'I1)A GOTO 40 C C READ THE CONTIGUOUS FILE AND C PRINT A LISTING OF THE COMPLETED FILE 50 ENDFILE 4 CALL DATE(TODAY) WRITE (5,1003) FILSPC, TODAY 1003 FORMAT(1H1,28X,40A1/1H0,'MSG MESSAGE',17X,9A1/' NUM'/) C DO 51 I1=1,IBLOK READ(1'I1)A I2=I1-1 51 WRITE (5,1004) I2,A 1004 FORMAT(X,,\aH-.? RH? SH@? `H %RH%SH.%[H %`H&RH&SH&`H,.<SH<UH8<ܟHuRHuSH:.u`H !SH?!UH!ܟH!He.!H !H#RH#SH #`H .KRHKSHK`HWRHWSH.W`HS[ܟH:dRH:dSH:d`H.:dH:dH:dHgRHgSH.g`H wRHwSHw`HwRH .wSHw`H z|HzBxHz\H.zH؁He9.&d df2g%Nyyt!. J  .yBxy2gyO yp} SLdf&. B l    l#g'$#g'.e _ %A._"yO y2gy(".&y}',&   _ b .yO  y2gy2gyO g'"aPM$bl.8 _ } '^,g'aPM}yO y2g&y2gl.^  RRRRRRRR⋇.2?L{d@i@y@~.4d(@(i(haHhDahFNahhyshk&~h:t!h* Dh 3?  I3,X,64A1) WRITE (5,1005) IBLOK,COUNT 1005 FORMAT(/X,I3,' MESSAGES ALLOCATED.',I6,' MESSAGES INPUT.') ENDFILE 1 ENDFILE 5 END HHH.HHHHH \.H"H$HH&H(. H*!H,"H.#H0$H2:.%H4&H6'H8(HFH: .PHxHH ȂH Hx.HHRHSH`H (\;CONTROL STACK PUSH DOWN ;CONTRO yO ).L STACK POP   &d*(F(df2g.@    E#"&df2g._5%#*(F z:dS:d`.%%E%?. %   E8df2g"&df2g.B%%  %Z*(F R`"T`|N.h% ***.*7 f&7 f e> .PaD7 wE7F7H7@@L( 3(@ .hng'h/Dh6) ? hn) h . @ F ILLEGAL SYNTAX IN LIST ITEM. F ILLEGAL LIST TERMINATION. W ILLEGAL CHARACTER IN FORMAT STATEMENT. F DIMENSIONS MUST BE SPECIFIED FOR EACH VAR. IN THE LIST. F DIMS. CONFLICT WITH THOSE OF AN EARLIER STATEMENT. W UNRECOGNIZED STATEMENT. F ADJUSTABLE ARRAY NAME OR INDEX NOT A SUBPROGRAM PARAMETER. W MISSING EXPONENT IN CONSTANT. $RU LIBR #FTNLIB.OBJ  @  ( #g'df2g}$wr (}.d %%%%.%  5df2g"wr &z-.'  Qhkhk<hPkWh;hxU.%h$%2h%Zh(%ph-Zh`.0MhahzhjOh<h*;.<Lh4<h2<*Kh,<h< h0.<h<h.hv@~h h.] XhVdyhfHhlShVht.}h t!ht!'h!h<!%h>=.!h~!2h&!6h8!7h:!(7h|.""h&""t!hH""g'h""vh(#hR7.#xQh%@h%zh'&@ha'`hh.a'.hf'h'~h,Xzhp F MAXIMUM FUNCTION DEPTH (20) EXCEEDED. F MISMATCHED PARENTHESIS. F NON-ARRAY REFERENCE TO ARRAY ITEM. F CANNOT ASSIGN TO A CONSTANT. F CANNOT ASSIGN TO A FUNCTION. W ILLEGAL CHAR. TERMINATING A STMT. OR POSS. BAD OPERATOR. F SUBSCRIPT ON NON-ARRAY VARIABLE. W NAME MUST BE 1-6 ALPHANUMERICS, THE FIRST ALPHABETIC.$RU LIBR #TMPLIB.OBJ"0D pp .\g \g @Q^q  @QMAIN.DATA.145 & & H.Hy  nn 9 A 56 )* V.Vw |s L+4  @7 ..$$$$. $$ W IMPROPERLY NESTED DO STATEMENT. W DO LIST OVERFLOW, NO MORE THAN 10 NESTED DO'S ARE ALLOWED. W ILLEGAL SYNTAX IN COMMON/EQUIVALENCE. W TABLE OVERFLOW IN COMMON/EQUIVALENCE. W DUMMY VARIABLE OR ADJUSTABLE ARRAY USED IN COMMON. W VARIABLE ALREADY IN COMMON, CANNOT BE RE-DEFINED. F ILLEGAL DO STATEMENT SYNTAX. F DO CONTROL VARIABLE IS NOT A SIMPLE INTEGER VARIAB$RU LIBR #TMPLIB.OBJLyBxHd(7. 3(^) hMO h&dhR`h@.hg'hqh|`^ht! h^5.# h#g'h%NhSL h~SLh4.SLdfh!Nqhx#N`^hS hDWD,h.df2ghr^q hUsqhzs`^hy}h.yhyO hjy(hpyt!hly2ghhD&yphn}hv*(Fht1 3h.hf.:LE. F DO PARAMETER IS NOT A SIMPLE INTEGER VARIABLE OR CONSTANT. W BAD STEP VALUE IN DO, IT IS ASSUMED TO BE 1. W ILLEGAL CONSTANT IN PAUSE/STOP. W ILLEGAL OR MISSING STATEMENT LABEL, IT MUST BE NUMERIC. F ILLEGAL SYNTAX IN GOTO/ASSIGN STATEMENT. W ILLEGAL PARAMETER IN STATEMENT FUNCTION LIST. F ROUTINE NAME CANNOT BE A NUMERIC CONSTANT. W "SUBROUTINE" OR "FUNCTION" NOT FIRST STMT. OF RO$RU LIBR #TMPLIB.OBJ255) IN ROUTINE LIST. W CONSTANT MAY NOT BE DECLARED IN EXTERNAL. W TOO MANY LEFT PARENTHESES IN FORMAT. W MISSING COMMA OR ) IN COMMON/EQUIVALENCE. W MISSING ( IN COMMON/EQUIVALENCE. W DUMMY ARGUMENT OR ADJUSTABLE ARRAY USED IN EQUIVALENCE. W INCONSISTENT EQUIVALENCE. $RU LIBR #TMPLB1.OBJw + 0)נ 7נ`4-~0MyvLp:.V- b l wѐ/yvL yvL5.|m C å1å9 -yvLyK$yvL.w7 $~HXvL!0MyvL$0M.fvppl f@ `Vwz wY$@].  6 . - N6 .( N, W ILLEGAL FORM FOR LIST ITEM. F ILLEGAL SYNTAX FOR REWIND, BACKSPACE OR ENDFILE. F NON-INTEGER PARAMETER IN REWIND, BACKSPACE, OR ENDFILE. W ILLEGAL H CONSTANT IN FORMAT. W HOLLERITH CONSTANT COUNT TOO BIG. W SYNTAX ERROR IN IMPLICIT STATEMENT. W HOLLERITH CONSTANT IMPROPERLY TERMINATED BY END OF LINE. W .NOT. MAY BE USED AS A UNARY OPERATOR ONLY$RU LIBR #TMPLIB.OBJ ?& #. W EXPONENT MAY NOT BE LOGICAL*1, LOGICAL*2 OR COMPLEX. W INTEGER**REAL OR INTEGER**COMPLEX NOT ALLOWED. W COMPLEX**REAL OR COMPLEX**DOUBLE NOT ALLOWED. F IMPROPER LABEL SYNTAX IN IF STATEMENT. W ANYTHING **COMPLEX NOT ALLOWED. F MISSING COMMA IN READ, PRINT, OR PUNCH. F INCORRECT SYNTAX IN DEFINE FILE STATEMENT. W ARRAY MAY NOT BE DECLARED AS EXTERNAL. $JOB DTBLDF TO BUILD FORTRAN[1,1] $; EDIT 11 $ME THIS BATCH STREAM WILL BUILD THE FORTRAN COMPILER AND OTS $ME ON YOUR SYSTEM. $ME $ME THE SYSTEM MANAGERS GUIDE, PAGES H-5 AND H-7, THE FORTRAN $ME PROGRAMMERS MANUAL ,PAGE 9-7, AND THE V9-20 INSTALLATION NOTES $ME DESCRIBE THE OPTIMISATION LEVELS AND THE APPROPRIATE LIBRARIES. $ME $ME COPY ONE OF THE LIBRARY BATCH STREAMS TO THE FILE 'LIBBLD.BAT[1,1]' $ME IF LIBBLD.BAT IS ONE OF THE FOLLOWING: $ME . EAEPC.BAT EISPC.BAT FISLIB.BAT $ME . FISPC.Ò _  @E !(*z aL^ R @Q,h E 4`_  CF * '~ R @Qa%. _ $SVSP $SVPA $aw!df2g}&. SVE@B &5@O"df2g@~"z(!ܟ$ 5_ 3 _ ,:dS :d`aPM3 ay!  _  . R @Q a%ay  `vL$G$vLD$.@  7R "%,%&RI.<bR P 8. %,%R%,%vLG"Df&t!.b   f$ t!DfDf"%,%$vL$G+Ջ D w   j.7w ww  ' -  N&vL.8!&f  `ע0$vL/dZ/dZEf@Q"Ef@Q. F ARRAY IS TOO LARGE. F ILLEGAL ROUTINE NAME. F ILLEGAL DO SPECIFICATION IN I/O OR ENCODE/DECODE. F ILLEGAL LIST IN IMPLIED DO. F ILLEGAL FORMAT SPEC. IN I/O OR ENCODE/DECODE. W SYNTAX ERROR IN THE EXPRESSION OF AN ASF. W MISSING "," OR ")" IN ASF. W MISPLACED "=" IN ASF.  E _ ^.R @Q a%:d:daL^. ß e ߋ=@E%(aPM  df2gaL^!@~c.F %@5 _ +  }a*}a "wr &z.l _ CEF _ B &ay aPM aw aPM" ( ×  3 _  ,@~'~'~aPM  aL^W. _  _ -1 $CA.! aPM  df2g@~#  7 J* |~K%,%~}vL(%,%H  vLG.""[M>L/D@""@G.""t!@""v@( 3(8z""h 3C.&fW!UE!+  """"t!(/D&5!w ""i.L( 3(d.zLgH RH. F ASF NAME HAS BEEN PREVIOUSLY USED. W SUBSCRIPTS OUT OF BOUNDS IN DATA OR EQUIVALENCE. F ILLEGAL EXTENSION OF COMMON ORIGIN BY EQUIVALENCE. F OPENING "/" MISSING FROM DATA GROUP. W UNEQUAL NUMBER OF VARIABLES AND CONSTANTS. W DATA NOT ALLOWED IN COMMON EXCEPT IN "BLOCKDATA". F SUBSCRIPTS ON UNDIMENSIONED ELEMENT IN DATA. F ADJUSTABLE ARRAY NOT ALLOWED IN DATA\( H`SHRHHH.xH H HHxHP. :HFH(8H'6H&4H%.:2H$0H#.H",H!*H .(H&HH$H"H.\ HHHHH.HHHHHz.Hz\xHzBHz| Hw`SHw. RHwHw`SH(g'. LL $CALLP BR .+: 0 .GLOBL $RPOLN. JSR %4,$RPOLN .GLOBL $RPOL0 J.$ SR %4,$RPOL0 .GLOBL   &Y.J    & ,& &$*(F(!.p    g" "*(F&". F _ & O*  F$!Nq&sq. _%%  (#N`^s`^ !Nq#N`^SH`H,RH,SH@,\aH-.? RH? SH@? `H %RH%SH.%[H %`H&RH&SH&`H,.<SH<UH8<ܟHuRHuSH:.u`H !SH?!UH!ܟH!He.!H !H#RH#SH #`H .KRHKSHK`HWRHWSH.W`HS[ܟH:dRH:dSH:d`H.:dH:dH:dHgRHgSH.g`H wRHwSHw`HwRH .wSHw`H z|HzBxH. F PRESETTING NAMED COMMON ALLOWED ONLY IN "BLOCKDATA". F ILLEGAL FORM FOR CONSTANT IN DATA. F ILLEGAL REPEAT COUNT. W MISMATCHED DATA TYPES. W DATA MUST FOLLOW ALL OTHER DECLARATIVES. I NO PATH TO THIS STATEMENT. W VARIABLE MAY NOT HAVE BEEN REDEFINED AFTER USE IN "ASSIGN". F ILLEGAL FORM FOR COMPLEX CONSTANT.wRHw Hg`.SHgRHgHd:Hd:Hd:.Hd`:SHd:RHd:H[SHW`.SHWRHWHK`SHKRHK. H#` SH#RH#H! H!.eH!H!H!U?H!S H`u.:SHuRHuH8<HU<HS<.,H`&SH&RH&H`% [H%.SH%RH% H `@?SH ?RH ?.-aH\@,SH,RH,H`SH.RH gHLz.$".  ~ W   h y2g ~ h$. ~ %  h ~"y2g~h$y2g(~..% @ h ~ %Z@hy2g"~*.T  h f  Phf.zK  E E t (yO L.   _ >y2gyt! $y2g. h | ~e*z\H.zH؁HHHH.HHHHH \.H"H$HH&H(. H*!H,"H.#H0$H2:.%H4&H6'H8(HFH: .PHxHH ȂH Hx.HHRHSH`H (\ W NUMBER OF DIMENSIONS NOT THE SAME AS DECLARED. W RETURN IS ILLEGAL IN MAIN PROGRAM. W MISSING DO LOOP TERMINATION(S). F DIMENS. NOT TERM. BY RIGHT PAREN OR TOO MANY DIMENSIONS. W ROUTINE NAME CANNOT BE DECLARED EXTERNAL. F ENCODE/DECODE LACKS LEGAL BUFFER DESCRIPTOR. F ENCODE/DECODE BUFFER SIZE NOT SIMPLE INTEGER. F ARRAY OR FUNCTION CANNOT DESCRIBd( 3(L>M"[".GvL  H%%,(vL}~%%,K|~ *J7  ӕ.@QEf"@QEfZ/dZ/dvL$0ע yt! y2gh|y2g~$y2g* P UW, a*}aw! z$gSq.   E g` wr z`(4_x _ ~ ,x~R @Q a%(T  ,zaL^!- S.t  $PA $PSHR $GET Z!"(,   ,E BUFFER SIZE. S VARIABLE USED BUT NOT PREVIOUSLY DEFINED. F DIAGNOSTIC TABLE OVERFLOW. F ILLEGAL FORM FOR UNIT NUMBER IN DEFINE FILE. F MISSING "(" IN DEFINE FILE. F ILLEGAL RECORD COUNT (M) IN DEFINE FILE. F ILLEGAL RECORD LENGTH (L) IN DEFINE FILE. F DEFINE FILE ONLY ALLOWS UNFORMATTED (U) MODE. F DEFINE FILE ASSOCIATED VARIABL`  f&!8.vL& N  - ' w ww 7.j  w D Ջ+$GvL$%%,"DfDft! $f   b.t!&Df"GvL%%,R%%, .8 P Rb<.IR&%%," R7  @.$DvL$$GvL`# &? > .DvL$GvL- #N`^#N`^"!Nqhf(,!Nq hf*hhhh  ,hhh hs`^s`^ sq. .GLOBL CSRFDGCSRK1GCSR3sqASMDIRD (("BJA.#   "S BJ%<NQCRSK1GCRVBLIRDCwNQZ.ZfnruCRSPGKCAX01248  ) fBAT FPUPC.BAT $ME THEN MOUNT A SCRATCH DECTAPE ON UNIT 0. ZERO THE TAPE UNDER $ME UIC [1,1]; THEN DISMOUNT THE TAPE. SEE THE PIP MANUAL FOR $ME DETAILS OF ZEROING DECTAPE. $ME $ME IF THE OPTIMISATION LEVEL OF 1 IS NOT ACCEPTABLE THEN EDIT THE $ME FILE 'DTBLDF.BAT' WITH THE FOLLOWING COMMAND STRING:- $ME $R EDIT $ME #DTBLDF.BAT MISSING FROM V6  .]@$Yw zwV` @f lppvf.0M$vLy0M!vLHX~$7 w.vLy$KyvLy- 9å1åC m|.5vLy vLy/ѐw l b -V.p:vLy0M~-4`נ7 נ)0 + w>w 0.vLyHX~wD- נ9 נE .rvLy&HX~p:p:"&` ?CSRFGPAK1CD????ASMDX?VBIIRD 6.C012?4???8 #  &g'!#g'"(aOM.ҋ5 5E >"aL^&!.  ;POLPTR: ;@POLPTR: ! #g'#g'df2g  ;STK DEPTH: df2g X ;POL CLASS: y( .;T.O.S.: ;CURTYP: ;CVT:SER:OPR#g'y2g= @: \ D+,6],OV0.OBJ[1,6] $R LINK $; LINK THE COMPILER #FORTRN}`*T.$$ $.$$.$:-  t*\(Xa_oM "" ""vzt!',R ؅ w.wY,0MyvL,Xz9w\"#@y?*v   w.yvL? WvL!\_x:*K"49@y$.  . (,ENDFORMATDODEFIN.  (,.EFILEASSIGNCALLCONTINUERETURNGOTOIF(PA.USESTOPREADPRINTWRIMOD.OBJ,EISPC.OBJ #FORPC.OBJ,FPUMOD.OBJ,FPUPC.OBJ/DE $; GET THE TRACE LIBRARY #SY:h%!<h!h't!ht! h}.thVhSlhHfhydVh X].h h@~vh.h<h<.0h <h<,h*K<2h<4hL<.;*h<hOjhzhah0M.`hZ-hp%(hZ%h2%$h%.Uxh;hWkPh<khkh@Q . h ) nh? ) 6hD/hg'nh. @ i9N?L @Q@k<@.z@!U@!ܟ@!@a'`@.,@.L@2@2@3}@u.x:*K@vL!@R@a@a @.a0M@aOM@aPM@\g@@\gx@z.wY@wz@x`@z @z\@.(pthh 2h L^hhL"h.hdhhh~hd.!hp&Kh,,hv,*Kh,8hxC..KOhj.th6.th~.hnKht._MTqh NhlR8h^T( 3(L@>**}.yr ur l c" PQPedF.F PQ;Q Z ;^'QN 'y'z&. 'z& EzbzN .z= Er." x*xhbHXhr.YhjT[h`hf`@h(a$h.a%ha-haWhaL^hawh8.ayhayha*}h+dIhevh\5.\gh\gWh\gYhgh`9w\h@Ihre3lh.B09AZ6.&!w  4, @QRaPM $a'`(a'`"LS  *x`! @QR @Q.fS w E<L.L  0 00 0GEPA0 -7XX-X00 000::000 .&-.......N RARTFO ........ ANTROR F;.C3 hZ hZKh~|)h~u[hzT.3!hzthz~ hz| hyMhy.nLhyvpKhy:hyp#hy"hy".DQhf@ELZhd/F2haJhah`.|Mh_oz3h_ Mh^#h^"h^.`h^ktdhTohN#hN "hN .eZhNk GhLvGhL$vnFhLvRFhLxv. .GLOB,Rx`aPM @Q RL $TR $TR, =.  I.ĕ:ĕ,ĕ fa\g@\gx$\gx. wf w7 0$\gx\gx\gx"\g@&\gx.w  .GLOBL 8\0o"aOM aPM $\(012456:?DHLp.124 5 6:?DHL.&PTX\+-***/.OR..AND..NOT..LT..GT.PTX \ixFhL(vDhLvNhLvrhLvh;O.fh:kh:xh2h2f%h,%._xah(X\v9h(`XQh'5h%b,hLi.(^+hiLh%heN2h%Rh%. ZhVh@hfhD!ht.2Qhah^h:hpSh E.VMh E3( (6}H~H3.}H3.&  &Cå å$ נAQ.  :  f.e`    å.נ0|. נ9B¥  ɥ ɋ DN.0 &f DW .VR &&f.|  Ëנ@ .e ee e ѐ  l.@(F. L 7  7 7$.     &f4:7@@ .(L;e f7 &f 7*.***   ? 3hD *&fe B y.em&ff&ea0Mz "z\_. Z  e a0M.:&f $2 e $a0M.`W0W7E0W0m. W9WAWFE7 e (x:*K.&̋ 7w .w '* vL!.La aPM vL!$wzB.  w :: $SEQv"aOM wY!a ht!:h~&khsyhhNaFhDahH>ah(