TDO>CtQ]  !PRO178 Tool Kit disk 1 mmmmmmm m m "e!7F ***THIS VOLUME DOES NOT CONTAIN A HARDWARE BOOTABLE SYSTEM *** ߋtv "*2:Bt:#z xQz kzNNz*O:zt:#zt:#z kz U%.U U` .U7 Lf.Ft\.<0+ ^mV"w %. . Z& 0, 8 e   -- ---S ee@ 7w   4 - - |-t-et *E . kz 26JUN87094238n=]qPROTK5Zc26JUN87094238)PROTK5 [128,128] DECFILE11A pU. NNz 26JUN870942380Y@ !I . *O:z 26JUN870942383hogM . t:#z 26JUN87094238-e.'OSz26JUN8709424526JUN870942444 I . xQz 26JUN87094238 12 [e .()&8[q26JUN8709425306MAR87145126'5 a. z. ''[qy26JUN8709433606MAR87145201va.55 ' &!_X26JUN8709442526JUN870831404I:da.b &8[qy26JUN8709430106MAR87145125]oog!. I:'';d26JUN8709434506MAR87145155|na. Ij '8xrl^26JUN8709431006MAR87145128_Ye .//&6&_26JUN8709435606MAR87145150.!fe . &,-_26JUN8709431925JUN87104727ae7e .&'W26JUN8709440406MAR871451580 &e . &'[q26JUN8709432706MAR87145202ut >a.z> ''Wy26JUN8709441306MAR87145157+ ta.H;; & &kQ_X26JUN8709450526JUN87085348:0{Bi .@A&zjL_26JUN8709461305JUN87134357 ?QGa.H88 & &kQ_26JUN8709451726JUN870853347k|a.22^ & &!_26JUN8709443626JUN870831171 ̋ e@`eJleZBb& " w@ e"   ``Je $   e@`eleBb& ef.@W,Tw.AB & NSR D`  Ut$ ̕T4 w.AB & NS& N  D` Ut̕$ \̕ T4 w&.@` E W,Tʕ w.A1@ & 2 T1 w)v& 0 cfp 5   70   @E ,@E 0$ TewDf 0 0 LNa> 5 N5 5 4Ca`em  t`&E& e      t   g0 0 em & p J ej ` Wt`N&E& e *  &1 1        E 55 w$ `$ B $ 0$  $ $0 Dz $2     (`Z        &   `@ ` B   & A @    wwwwwww w wX w ww,wJAB 6 %  JL  @4e$  wB E ] D! 1 0 0&   1  0 5 L& LAa  51 e!  N  51 0 0e h Ba  rl 6 yp  APppp0)p1(e   K / 5 L H 6 L * a  !  5NUpN>!    0,  >$ n@E < E  L%w>)@ "6mN BcCmʒ p %"mN6 BmCcʒ p  "mp0"4l)"6 BmCaʒ p " 6 BmCaʒ p %wTBW r&W W W f W W =`-  f d/ ! Lf @ L   2    L fA-Z  $ 0 eB E`1e f Ie$W@ W1 @1t  e$W @0@b W"w)v e"De4 `e `K  2  0 5 L   w& r 66-    @-wj & $>  "   5N5O~ 5q&@ e  @6 @ w`.5 L5 Nef0   C LW W   W  W W W   W  >%w .eAAB  4Rt4 aa e     H      > 4  $       ,N5OUN^  5 N5OU NH ! 5!N5OU0N. , A W W    @N   Lew.@ Te 5 ȕ5ȕ ȕ  wXf0 0 5 L5 N5 5  0 4Na:Nae m>  9@E (     @E ,   G ! "3    .    1 0  (   2\ ((  ) 8  v4()      *    tmE& e w0 5 L5 N  9DeLe< `5( # eH @`el N DeL5  =wF   p   e `E e @`e$l N   n ^ w N Ye m> *0   >e  @` WtmN&E& |e       L .3256 5      EA) (.V(`'1PH ?1[ $?1.@ 0@` $ a me  @`  ȋ @`":6B  ` `>  `"  UB v ` " `B >  66  E(>& &&(ew(C6o N`N` )m # m6a e m a l  >e fɕ [N`e z ,N` b ]  e w0   tEm  e%w@ ɵ B`v6'D`N`ɵ ӂo  Bm l6ɵ lv6 @ a& a& N n' eebe6e e e eFa& a& N  a ew & 6   r@! Wp@@ r! Wp@BWp@` me0H !%wl f  C@@&^_  `ʕ  1e 75ENUme ! f & 6 fE@E U5@5 a ew\B e@`elf    % f5 La  "a "6  6 a ra  @6av e a XefA (   fAa aea N e6v ` !? 6` E  m" : |`  tm:`Wm6 Ce      m P L :y "=m66 -: am&6V E U@ sm 6U-"  v ` m> e 8@` am @ (s` `e -    ":E U@  eWtEErPew0̦)@=C5 FCU @0 2  1 w@  l @CU @0 2  f@ @f 1  wl  e@`elv6  6 U  eP@`el @-w-   6 9   a e6 aa a 4e -tm&&E& e  4%   `6eaa  ea ewABa Ja ^ @6           &        T5 v6 6    W      vvW    ve W   ve& a  a  5 a  a a 5%etc6e5 wew  y t B tm&E& Be N C  6  6 = B`tm&E& t P@` 6 ee W  U> 6m>e  :   @mCm B !  mmʒ  ~  C B`m  e wT @ a ` afNlaa a  a e5v e  a r5<6  @ Bt @ ex`6R W a 0aa a l a ea  KefA N  a Neaea  66aa > ea "eff@ @)@m&fe  N %w  ,   a 6  B t v  W e  a ~ewCe" t 'ep`&  e` WtmN&E& e t @  w,@    ɵ   w f&c& &a @`": @`"" C`D$ @ @`"6x$ $ @`:  @`:@` @ >m(6  m666m  @ 5  W-  fL w6 6 aa v@+5 '@"6  a a < @)  6v)6a vva 4 2@@m       aa ewADe4aem&6#$#! em C` & KE- & # 6 tme`e`&  I a,*@,,e,e wZ 5Ct"a@` !&&E& e )E&&E& e UU EU  %b %tc&&E& Z t*a@`&E& 6$6P$eE EU EE  EU6   N %UE    @@`6 e etm6 e 5  w5  - Le&w @6 veL a $>,xa @E  Aa af a pa ea >,Z@E &Aa af a  a Fea 2>,"afeN a a eew @ a @   `ɋ  ea ze w D&& &65  u >  `5 @t> 6 m @tm&fE"m Et&E e cȋ e   oet6 /a mm  Q < 20- v`@a> v  v`@a> J  b`      `m > ew٦)@ `> `> ``oʒ`a`a e  W-  pL w E   6      a   afe&a Ta @ 5 (m@B" a J v @@l6Ba@a  gL 65 N5 `   a ua ew@ ɵ N6o D6ɵ 6` e  t C @   o     o    o     o   5 EUE !ew A  o6e I @ a D o" ! @`6a e ma  me w A@&? < 9e N`tE` ! (L tEB`mDm  C @&eWt (5z5rlv65 6 5v6 @  a a& N 4 eeb e0ee8eex eJee a a& N a be)5 C`v6  Cb6v6   a ewB & 6   Cmע0ע9 `60  Wp@ p` `L%w @:DC E    W-&  Z iLX@ E  I6 ` 5 L  L 3 U - E (D@ E6   L 5 L L %   $ww~ w^w w wwXwwdwZ5’6t @ vtB@A  6t@@P5 wfCe6    d  @LE  `  e`Etm e(`Ke ` E`H>   wt>  e `,  D` e eb & e`6  m]   e^ eb f e@6      e w֦)@6*>  Wta`fE& e . 6 Uee EN6 EP t>P %f   f  6Ee wf@mBm W    5s % wd@ I,f 1  @`  A U @0 @0 w$6 6 @6 &` e&@`elf&  & &`E5  6e> e@`e*lv6eE  6 6  6 6   v - 6 wH5   6  = 6    fla(aa  &""a V@ fDee@mCm D  e e &  TLef   f  xEe fA ~  w f 6   e@`ePlAE5 LW W W W   pf& %W W 0 0 f W    e 6E a N& eW  0 L5 L5LE6Ua W-LW-L ef Wp`P@0 p`P@0 p`XP@0 p`P@0 p`P@0 p`P@0 p`P@0 0((Xdd Ph@@@ (  xX @H dH *ODL files, and will generate!; no overhead if not referred to.; .NAME DUMCOTRMSALL: .FCTR DUMCOTROFESSIONAL environment;D; Note: The entry ':RMSSYM' in the factor below globally defines all>; user-visible RMS symbols. It may be deleted if any required>; RMS symbols are defined using the RMS macros from RMSMAC.MLB;;RMSROT: .FCTR LB:[1,1]SYSLIB/LB:R0AULL:R0EXSY:R0IMPA:RMSSYM;D; The in-task RMS co-tree below is no longer required; the factor isB; retained for compatibility with old '  $,4< 5.<0W +!@-@:Ĥ< 8NE8b lS~x xR~xbsN0lS~hxR~h s, t ~, ,Z ,3XPɪJr@1o@?y@ sN  B<@1o  , sN  B<@1o  ,   ,8ƪ& ,   ,   s,8[q8[q  ,@IqM& ,$ ,  ,H 3X 3X   & #&y:&(&+-kM ,-+ .-`7-d 8-AK:-l ?-q C-> Nxh: xh` 9Lhijk   s,  ,$@IqM&  ,  ,6 3X 3X     s,  ,6@IqM&  ,  ,$ 3X( 3X(     s,  ,HU(U&  ,  , 3X< 3X<    s,   70|(|v=,'N>,`L,+ 8-AK     H   & ' $C@ E  W- b R #   L < w@tE5    ALW  uNh uLx @h5  uL )LAaW"g@E h@E 8@t @ e@`55  @NE  huN =LBaE    H   @  P ` p E e@`5 ;I; DAPRLX.ODL - ODL file for use with memory-resident libraries RMSRES and/; DAPRES in the PROFESSIONAL environment;D; Note: The entry ':RMSSYM' in the factor below globally defines all>; user-visible RMS symbols. It may be deleted if any required>; RMS symbols are defined using the RMS macros from RMSMAC.MLB;;RMSROT: .FCTR LB:[1,1]SYSLIB/LB:R0AULL:R0EXSY:R0IMPA:RMSSYM;D; The in-task RMS co-tree below is no longer required; the factor isB; retained for compatibility with old [ WĎB|(ĎDk@ {09Lh {we~kWĎR|vĎD {0Fkh*hhjhih  {Jf f &f &ff fWY@=,'Y@L GCEFN GI$EFN C-> H WY@>,`Y@L /[, Z^9L GFF_WRITEr0z %z   6 & 7z/[0/[ /[ /[z&9L"/[$/[(/[ ./[z0/[>/[`d9Lh/[n/[v B RAB$C_SEQ RAB$C_BIDP $RMS_VARIABLE FAB$C_UDF FAB$M_BLK FAB$C_SEQ FAB$M_SUPj FAB$M_DLK FAB$M_CTG FAB$M_NON! FAB$M_WRT FAB$C_BIDP FAB$C_BLN +( GCFONTGGIFONTx zL_ROB yL_LUN xL_BLK wL_HRB tL_XFR L_DAT2 L_DAT1 L_DAT0 L_FLG L_SEG L_WND Gwf@ t 77 "7 $9  w u w~B B~a=@Zj/[ "/[&/["*/[$ ./[8s>/[@/[ F/[ J/[Ts|~e?7 ` r@ t2  2   $RMS_POOLNUMx$RMS_PSECTS_DEFINED yMAP$_ =GTIM$_ TRUE uCRAW$_ 9ATRG$_ WS_MAP WS_RED WS_WRT WS_DEL./[WDB/[ ST4 RS_RED RS_WRT RS_DEL RS_ATT/[RDBP RAB$C_BLNN/[PRABPTR/[DIVID/[ALPHzs@xh`@&y:@&(@&@& #@@v:@)x@@&@@j@9L@/[ @0 /[ /[/[/[ /[*/[e7  r2we W#vff  B~SY TICL</[/[/[/[*/[4&y:P&(Z&t 77  rw ( D  e"7 $ye  e l& /[/[/[ /[,/[ 4/[<&D/[L/["P/[$ T/[bs 6e /[ C_BLKSIZ CS_DSWZG8B.-`h& #h"&y:hV&(hh&h{{ {0 YTL{;WY@L,+Y@L /[`( GCTALKGP_XIOF` G GP_XOSF L{; HGGICLOSL{; P.AABL{; P.AAA G|wAafW!@ hxh`ts\ L_MXZ L_LDZ L_MXV L_HGV L_PAR0 L_TSK1 L_TSK0 "G"FF_EXIT 4jGVFF_INIT YT$RMS13{0$RMS12{ $RMS11{$RMS10| D  T~ e e&$ %$77  7 &  %l/[ /[$&*& #8/[FJ9LP/[Z/[^/[d/[l/[r 3 l@!@ ,laf e @0  0 l Bk "/[l $@(G||wAavf fv-@y -@j l` @Z k f/[l- @KE  !, eT   & 0&  @@`& & && 0L &S_FRAN/[`FRASIX/[@ESB/[@DIFNAMzs@C-> @?-q@,-+@k@j@i@9L@/[G8 xh:hxh`h+-kMh7-dh|:-lhF\-B@ 5Ð    "s s /[@BsVsD C_RBUFC_MAXLUN CS_DSW CS_IO CS_INTERN?-qhV,-+hnL{;r|WdOj8-AKdOD$9s;@s@ Hl~<~<`H~OHDOXHJOH"H)04H)SH)BxH)H(s:H( zH; BxH0HPH8TH SH gHz@H@H+"kH+"HL+"&H2+"KH'KHJk(H$k(KH,k(AyH3=fH4kH8KH8yHSTKHzyb H.:BxH !{;, 8/[hs p/[@ v/[@tTT   f@J  lX@)RFaf VT<$s6s JL{;X ^L{;R bL{;Fr?-q xL{;V |L{;TZaf e -``aaf e e 2?-q9L(/[` ,/[`J?-qN9LL{;X GFGIREADX*LbLbbLbbbbb GFFwBfAC`   l @T;w@T; z@?-q@ @p8-AKh" @      "" %w0DwwAW'<w& & & e %f7 & & e :TT; zVs`h%O7 \j G@R~ @ 7L =@ * '& e% ,T; zsTXrT;wtszs    i ,lf %[ ݔ %H& & & & 6j 0/[l D/[lP,-+^/[ v/[ |/[  $ ݔ & & & &&     &    ePC-> s/["/[ 4/[ :/[>C-> Ns\sb/[r/[ GVGIWRIT>#A~ wDCfB`>  n ! l^ MG-   & & & eG%8& ?-q4s\vT; zxs~te%%## >& e%  <4T; zs$$9s;&s>B\T;w^sdsb  \ W,l  /[k d/[l ~/[l* T@l& & f&  &&G '@ m6& %.%& & &   & & $ /[l8sN,-+ r/[vC->  GnGID_ACK6    & > %w @l& &&K-*1@l&&/-B ss /[0/[>i H/[l R/[bs p/[l|  IE_ABO IE_INS IE_AC }='[q @U d T /RSUM$_ 1WSIG$_ IE_ITS KVRCD$_  IO_WSD GVSDA$_|S_CMDBUF  QIOW$_ SD_GDS  IO_RSD CS_SUC C_DEVLN03 C_DEVLA100 C_DEVLA50 C_DEVFILEr C_DEVPRO350 C_IEDEVCAS ALUN$_ CNCT$_ RQST$_ CGS_DEVTYP L_DEV CGS_LUNOPEX CGS_MSGLEN H_DEVS_ENDLEN C_ENDWORD CGS_BADLUN CS_GIDCALL/[RBUF/[IOSB/[lGITAB" FALSE TRUE ,z6&zOϳD)BxH)WH)p!H )HH)HH)!H)rH) H 9?H 9@H;MH >8Hz>HDXHH8HHKHJKHNt H Xt H &,H&H&H&H&<H&'H(&'H&&,Hz&.H& NH&N`H&4dH &fH&\gH &pH&sH&xH&xH$&FyH &NyH"&Hy<HyPH>dH >8H>KYH>rHJHK<}HKօHL HLsH LyHzNxH+H+^qH+ H+HdHkHWH H.H@^qHtH.H0H) H z%HRHZHJwH@xHH {H(HKXHYqHsHOyH *}HdH|H@zc& Hc&Hc&=Hc&Hc&%Hc&&Hc&b'Hc&d'Hc&'Hc&](Hc&(Hc&8Hc&>9Hc&X:Hc&y:Hzc&:Hc&:Hc&vLHc&YHc&{ZHc&y _Name_Prm = [UNSAFE] Packed Array [0..MAX_FMS_NAM_LEN] Of Char;F FMS_Term_Length = [UNSAFE] Packed Array [0..MAX_FMS_LIN_LEN] Of Char;I FMS_Impure_Area = [UNSAFE] Packed Array [0..MAX_FMS_PAR_LEN] Of Integer;C{ ** PRO/FMS Procedure Calls ** }PROCEDURE FCLRSH(# VAR FORM_NAME : FMS_Name_PRM; VAR STARTING_LINE : INTEGER ); SEQ11;Procedure FGCF(# Var Field_Name : FMS_Name_Prm; Var Field_Index : Integer ); SEQ11;Procedur Hc&rH(H:(b H([H.(H3(0HD(cH=( #H5('H!z(w*H7(x*H8(y*H9(}*H?(~*H@(*HA(*HB(+H0(3H0(:H"(:H1(DGHl(;TH4(ZH(S[H&z(T[H(fH%(fH(rH#(sH2(wH (wH$(wH/(wH(yH(RyH(HC([H(HS;4HzS;HS;HS;HS;""H@S;2HS;3HS;:HS; NH S; RHS;YHS;JwHS;wHS; zH HDpHɪJr@1o@?y@6&zJ e FGET(" Var Field_Value : FMS_STR_PRM; Var Terinator : Integer;# Var Field_Name : FMS_Name_Prm; Var Field_Index : Integer ); SEQ11;Procedure FGETAF(" Var Field_Value : FMS_Str_Prm; Var Terminator : Integer;% Var Field_Name : FMS_Name_Prm;  Var Field_Index : Integer ); SEQ11;Procedure FGETAL(" Var Field_Value : FMS_Str_Prm; Var Terminator : Integer ); SEQ11;Procedure FIDATA( Var Field_Index : Integer;! Var Fiel XRsN0h s, t ~, ,6 ,3X(~8>DXH8HKJKNt Xt .0) %RZJwx{(KXYqsOy*}d|+"k,h+",h+"&,h+"K,h&s(&,&&&&<&,&.& N&Z(&N`&4d&f&\g&p&s&x&x&Fy&Ny&c& c&c&=c&c&%c&&c&b'c&d'c&'c&](c&(c&8c&>9c&X:c&y:c&:c&:c&vLc&Yc&{Zc&yc&r&%(&}(&.}(&4}(&a (&0M('K,hc'kM(e'W(o'd('a ('~((}((}((4}((~(U(4}(U(0(k(,hk(K,hk(Ay,h(Xa((^((_((` ((s:( z(b (DG(Z(T[(f(w(w(y(Ry([()Bx)04)W)S)p!)H)H)!)Bx))r) 3=f,h4k,h8K,h8y,hS;4S;S;S;S;""S;2S;3S;:S; NS; RS;YS;JwS;wy<yODOXJOH"STK,hyb ,h=',hA> ,hDp,h:Bx,h,h>P,h>d,h>8,h>KY,h>r,hJ,hK<},hKօ,hL ,hLs,hLy,hNx,h.(@q%@r%r'Tw%Ry'T("Ǝ("(", K7-<0V/(  </  Hc&>9HS;2HRy@ bp @+"'@( )!H)BxH) H )WH)rH)HHz)p!H )HH )04H)SH)H)BxH&&fH&\gH &sH&H&<H& NH&xHz&N`H&xH$&,H&NyH"&FyH &.H&,H&4dH &H&pH&H&Hͫ( zH(s:Hz$;ONHDOXH>OHJOH"HXt H JKH>HNt H H8H>8HDXH9@H9?H zHKH;MH 5De~<~<HJd@>P@c&:H|H@([HHd8T@>r@KXH+^qHS; NH c&vLHS; RH(HaG@zp&@*}Hc& H:Bx@H WH dHkHa@`@ b@`@YqHc&%Hc&YHS;JwHc&&Hz8T@+ H{HS;wHZHc&{ZH8@c&HS;Hc&d'HH-qw@c&=H2d@$F|`F~RF~124'F~F~F~ F~Fn" D j ~FR F' F$(F,0F4 8F<@FBDFnHJL"NP RTVD XZj \ ^ TX  w EuB AeueOu%UU"wMe Z5 %& 6 & lX  t65 :ue  5  Aej~UU BeXPCeL e 706&6&<,h6&f'T6&w~%'v("3( zc&b'HsH>@J@(ZHc&'H@(fHc&HƎ@0@(T[Hc&(H(H@zKօ@+"Z@tHb(x@dH(wH c&](HS;""H@@q@(wHS;:HaW@+"iK@E`@Ly@zP@+"K@.H@@@r@(yHRH(RyH&@JwH@b@S;4H bz@; Bx@axZ@zK<}@.H0HS;YH+"@^qH+"z@S;H+H 6E~  w@0  eC~L=l f5@ &- @ v- \;  Nr 5 : @ w J 2 L=6  w  C~ D-6L=.^ 66  h  wB@ʢ    1w l ^ w bzx V f #N XB` e~ 2 C6"    e a~ .  ` Ce2`54 `  E<@t0  t0 5 6U& t0 5NB& E% W @&  &D5@  $D  K se~ ~ e 4w D4 %56 9 (   LƎ4~fe &4~ 5 U5@  eP ~  E  ҁ B~e•vƎ D`~ E5@  w 0  e  l  D4 R |D-65@  5   E  C` \p  w ” B  ~az  5@0!0 :A  w B5  :DV , 5B~mB`B~  z~5>5 RƎhƎh ѥ ~eB'@ >~! X e KmB3eC-4  wB6 % RR, D~ D~ 80 C2 4QA8B 5@  ` ` VD45@ +  b  &f  m ~ 8C~meI~ ~ 5!6̇U DE5`u-T $  t   4 5@ & B2   nꆇe B` X : 2`Ǝ@    @ T ~ h 5@  14575+5õ@  - < 0 ;BC m õ<  f @ Ǝ6->l<`^  5   :  RE BVfP  %l!"t-<%%  <%Plfl# t-<., C@%C@ &C@  wHe B ɥ.ѥ, 2dƎX~A@ .B` 톇   ҋ  %UU V% P u A `˥*  :0e L=  0  1  hL= l <   l  P1@ "B8  5C2 4 C@ xL=wd P l5 C@  1e1 1  0  > " J W W C@& V .F HYPBV1 2 UE U@E122A& `1e2S Q$ A5 bSh@qW RW W 5W  W RW F Zh &5-5 r'm!WB< q,R  (.R4:@FFP~ ,& FB<C Q~f:  Nt-<0Am< 85 z 5t-<5 /5@  %6U ('5  JLN P R> T" VJ X zV  L=@0e  <@2"e $5@  | > &  L=eH~ l     4&@`  L ~L  4  lw `ҔD~ &    .&@`  O f r t  hO w C`~ D~   E 05  P @ yw 5@  25@ $L=%5@ & l X6 6 Yw "5@  65@ L=6 68 #5@   ~#5@   (!( 5@  fFGF    @t-<   @r@q, H X: `w  d 8-p1 0 C    e0 e0 ;= u- @e5 5 f@ hRyl B     ? Br55 f1A% & C ,$%%& +"iKL:BxR>r\P`Pd0b'   1 x ` 1  BrPJA1:4w AHCCHe P*PN  >L L L "}V}(r@A> DDpHwxf5 j8TTOγz6&fOγLs@:G@='@$9Y@ ~@@$9΅@Dp@((rhRyh  w ѰB   f& & & & && f& Ε `  ,& & & & f& f& Ε.<='@DpD:G ~ x='|DpH| f& &  ׭W1 "Yw B> <t-< e `  w B> <e `   >`  <  < T < 6  <E Bm< 5#5A< C~ f:  % R A<C~ H5 , 45 Ǝ!f: B  6Uv`!~B-<  UU `5 R w 5 Ue B` B` Ǝ$ƎBp&VK<}`h>PdEA& fD  ؇%FuJ `Dw E) ȇB ",e$FFJ%8N>8 4 C-C`AleC ",e%uDH UBE`JF Q5H >P:Bx :Bx\&   5   @,e fe N,NvD5 8T>d@*Kօ:KօRKօb+"zd+"f+"'h+"Zj+"iKl+"Kz>L0 B<w ! u :u ; dw f: 5  0E  &f@ >!X D~ U   05 :AC9N6X `Am< U E.5." 28>D6JPTxƎ|.Q   4  eыAm> e$ ZERROR002 C AZ az ERROR003+09  ERROR0046O6FH11 ff eA.$ $$$$$3 f eH aWaxZba@`(E`2 b8.`>db&jJn b@`|&22 0 f e&&pf& e^ bb(x> b&$a@`6B bLVJ\b(x` bp daGhaGl bzzIqD<  b K<}TOγz6&w~OγL -+ +- . Ѡ~ ERROR005 Ǝ% ERROR006 I   ~5 5  >ERROR007 Ǝ0ERROR0088C2L=  5%f &f&ft -p. t . JtR-qw`hp l.t  F5 : b ue5 :&- *; j   :G@5 @wx@Ls@='@8T@ ~r@r@ ~@L @}V}@:s@BA> @Dp@((@qh:@rhwh &  & & f& Ε   & & && && f& Ε EZr&='*Dp.:G ~ DL JrRLs\L fA> jDpn:s ~r zL z|<  << & 8& f& Ε &f M WT"{P{{ YT 8T$"">  WT WT WT$ WT WT" WT"F.HELP. WTF WT,,22SYSDISK:[1,2]FMSERR.MSG&JJ @&.2JL.$,BW.2 J L.$,@ %WT$5  WT$0$.4:@='W @U d P&.4: @VV"DP Pll %PL F F SY:.FLB  WT ($ Db G]\  i{WT \VOϳz6&<OϳD~ H($@DpHDb@z ,z6&zOϳD)BxH)WH)p!H )HH)HH)!H)rH) H 9?H 9@H;MH >8Hz>HDXHH8HHKHJKHNt H Xt H &,H&H&H&H&<H&'H(&'H&&,Hz&.H& NH&N`H&4dH &fH&\gH &pH&sH&xH&xH$&FyH &NyH"&Hy<HyKYH>PHLsH >dH yb H.>rH SHL H:BxH4kH>8H8yHz>HJH@H@HKօHk(H$ gHLyH+"KHNxHk(AyHSTKHK<}H'KHJ+"kHz  WT WT WT$ WT WT" WT"hc'kMh(~he'WhU(0h8'a h(XahJ(` h&%h&a h`&}h*&.}h<&4}hN&sh"&0Mhr(^h\(}h   7 7 7 7 7 7 7 P3 &3*3-&,<3?&N3Q&,`3c&<r3u&.7 7 7 7 7 7 7 F.HELP. WTF WT,,22SYSDISK:[1,2]FMSERR.MSGJJ @&.2JL.$,B.2 J L.$,@ %WT$/  WT$0$.4:@ P&.4: @VV"DP Pll %P  V3 &3&s,3/&N`>3A&<P3S&fb3e&t3w&\g7 7 7 7 7 7 7 V 3 &4d3& N.31&p@3C&sR3U&xd3g&Fyv3y&Nyz7  3U Oϳz6&<OϳD~D  D"0yuhzE`W ӵDb@mlE@eZ@s@r"&@r@q:@i@o@d?!@rS@r,}@R@    s, ,6 ,3X(~~<`H~OHDOXHJOH"H)04H)SH)BxH)H(s:H( zH; BxH0HPH8TH SH gHz@H@Hk&HLkKH^+"kH+"H`+"&H2+"KH'KHJk(H$k(KH,k(AyH3=fH4kH8KHz8yHSTKHyb H.:BxcR0!# eD  D"0eMheMheMheMh  D" J#L?WDp &@s@  D"00eh  D"4&ff  'p &"sz &, D)HN<&`H)H>[XH)^H<&%H WWH&CyH\)KH<&H(yH)nEHz)sEH<&KqHTH )EH( HL[;H&{PH`[8HHWH&{Hd6&H%kfH HH>PH>dH >8H>KYH>rHJHK<}HKօHL HzLsH LyHNxH+H+^qH+ H+HdHkHWH H.H@^qHtH.Hz0H) H %HRHZHJwH@xHH {H(HKXHYqHsHOyH *}HzdH|H@c& Hc&Hc&=Hc&Hc&%Hc&&Hc&b'Hc&d'Hc&'Hc&](Hc&(Hc&8Hc&>9Hzc&X:Hc&y:Hc&:Hc&:Hc&vLHc&Y %ZH@d&Hz qH'ąH |H)H#)H4)H%H PdH :H )_GH))HWH)TyH$'IRH&{ZHzWzH@'H)H0)GH%wH@%xH [#H%CH )2HH4) H,)BxH) H-<&%tH<&9H `H$z)[MH &H %HB)pH<&pH<&pHWwH (H 2&H(d(HWwH i^HV v^HPt!H)w H.z)H)PH8)KqH'HF xsH[YHt  # BĥۇAĥĊ  000 0 @0 &*0 @ bbr,}lu #eB * eBe>  # #D &iq:"rS&mlE*r"&6ix#&0 #   0@e 6@#040 6w!p28q:bfzF`8 ӵDb@s@r"&@r@q:@i@o@r,}@a=#D #&0  rSmlEr"& ib#   0@e 6@#040 6w!p2"q:LfR:dh4-Ds@; @d;@  D"0phh  D"e( %e$2e (%[]%<>  1  ^((sP; d|   <:VN@f@@fy:@"  D"0h&h  D"w  D 8#"#)%ĥ ĥ w 0 o sfy:|*0 @Q$    0 40 60))eB &*   w6 . 2358e$8aVNxs8w22&e %p8q #) *R*)@#0l C~5 eCe d;b:diw4-Dph@o@d;@  D"0d)&hpiwhiwh  D"*95#1w ($ %:T~U@% DD%][%><w  $oxd;\|w1  %,,:4 phj:dvw4εDs@s@o@aVN@\D@  D"0Vpvwh vwh H2&e  d?!,eZPsnsvt%p8q #) *R*)@#0l C# 028 0&r|b0ĥۇAĥĊ  000 0 @0 &*0 @ u #eBFr,}dipq:l * eBe>  # #D #&0 #rS mlEr"& s"Nr돀t# 028 00ĥۇAĥĊ  000 0 @0 (bnr,}&*0 @ u * eBe>  # #D #iq: r"&,inl&0 #   0@e 6@#040 6w!p2.q:XfzF`W ӵDb@mlE@eZ@s ">  D"w *D Bw fe<ӕ_ S:ӕ: & "& Εg'o2s|s| *'*]U1evS~:ӕ: ͥ_ 5e&  T ee ss&sbqqC ӥ: ~ Ce   *:\DRaVNz:dw D&p &@s@piw@pvw@p  ,N&  +e wee & H;PPs^; hd8psh|  e 8*ʥ[ʥ<`E *r &( =Dp@s@  D"0yyph &hByy y p y((  BBFF y J; f =Dw@o@aVN@  D"0}sh p# h*s}h   D"eB  8 $&w *<O1   G U U@  f&" aVN&ofpwxp &j|'%'* *%0*ND B     ,sssHaVNZpvw`piwfpwJdv?WD&s@s@  D"0p &h  D"eo@\D@  D"0f;Ph  D"jw  $ҥ[֥< , (e  5 sC~ D woh\DB; v D  D"0vs.hsh  D"z&fe ~  2 $ L La Ta Wq(W!ZW!AW!9W!0@:" Kq D  D"02bh  D"6141612ep_f  EeP UfD ԔB%:ԕ:P~f& f&sR|f& & Ε lle  JsB,h DaVN@  D"0fg}h  D"j* )fff f f1    1  aVNR,z Dg}@o@d;@  D"0,zhl2l0p:J+ D  D"0bGh  D"8e2 jy[M Dq:@i@o@  D"0e$h<e?hhaKh(a[Mh  D"0,0, f 톇,, w      .% eB UBoniN|5UU plp & NeՀ)*$q:B%S -  D"w ewew.o d; g}d; g}R,l Dpl@g}@o@  D"0,lh  D"w ewo pl g}J:dl Dph@d8@  D"0 plh  D"ewd8  phJl' D; @d8@  D"00d8h  D"41 e:D  D"0 4}h fh  D"*R DmlE@eZ@rS@  D"0 d?!h  D"$ f &* *rSmlEeZbe" D`@o@d?!@f@s}@  D"0:Kh  D">w * 8B pB  0 B o`$s}2d?!:fZW D`@o@  w(; 2d8bn X Ds.@ft:@  D"0d8hd8hmKhfm&h  D"Dez$ $ $ %  . e   ҥ. *V    e    1 .s.^ft: |DEe $ $ Zz' Ds@; @;P@d8@  D"0d;h  D"1  & U ʥ. N 6d?!@aVN@  D"04'h  D"8w *eB 8  oaVN"`0d?!R!  D  D"0le&he&hc2 h\s2 h.  D"p *) l0, *) $ )*)0,40,6 Z#t! -De?@o@ft:@s}@  D"0H4h  D"Lw *f f * w46l0o pZ.r,}2fBkf`; D  D"0po sJRK Dq:@i@  D"0mlEh  D" Mwiq::SKq D  D"0"moh  D"&  DP5R~RRR~RT DmlE@o@aVN@  D"0*lEh  D"  D"0&ձh  D"*w 0,0w  o rCr s2 &wrVqM D`@eZ@o@rS@f@ft:@s}@  D"0ձWh  D"w *&fB IB D  ? 5   ,*+*1,\\1,^^pBBpDDpFFeB &o`"s},ft:4s}@ft:B|eB **p**0 B1 BweZrS S.w *eB 8  oaVN*mlE:ep D  D"0:pJ,h  D"> 8   ***Bev D  D"02pK,hskh(  D"6 8  ***bDfT DpZ@o@r,}@f@  D"0F 8rh0:h  D"Jw *)  @fzty Ds@  D"0fahX2&h&h<ֱfahL(htԱ2&hԱ&h0Ա(hh  D"e(BA &e(H0 A f AfAD&2ss6sDsRs`sns|s|pD0 >(:vXu D  D"0oh  D" &ff J D`@f 0o `h  D"w *8I *=)98 eB &&  U **o"w8ihq:|e *Nlv ΋*.)  & #!)&ePe && 2i^s~q:p* wr"&fZ& 'Dq:@i@o@  D"06ch `rh  D":w Ĕ%.%%;C~ 5)5@DD ͥ*Ce a%wUX5@ o\D|5U U*U  5@XU@5 U*U  ʥ*%C!.D` *weC5U5  5 5@e*s.tjafZ De&@e&@r@c2 @w@aK@  D"0`pZh  )*  U o&i6q:Ze ӧDs@q:@i@f@  D"0vcIqh  D"z0f& e %&&eH U   Ef p  ws8i`q:xfZz Dq:@i@  D"06eZhrShft:h   D":    f u    i D"d 6 p 4 0`p f 64 46 e*w & e&,w:c2 HaKNr\e&z\g4De&@py@r@r@w@w@pJ,@o@mo@r,}@f@  D"0}h  D"w o832de& & & B  2PΕ   N Υ$Ε  2o pJ,|2Υ   v  %p*w f( f)f sxk"s.f\4}RH Dw@w@o@  D"0`;h  D"w wwoww:Y D  D"0wth  D",*1j} DrC@w@r@aK@o@s2 @  D"0Te;h  D"Xw $1(q:: & D  D"0h  D" z, 'De&@py@r@r@pJ,@o@mo@f@  D"0}h  D"w ) 8C * ) *w*  ep p &o pJ, rNfbpyje&| C  =  0* =E&0,0w 46  )0406 0 *&o rCr s2 .aK4wZ(_ Ds@s@  D"0Txkhxkhih>  D"X8Ae f"( UCɗ+e$&% 8sDsRa Dq:@i@o@  D"0Ѳ:h  D" w *D ~woiq:2,d ե^A e@ v Ep |p  , J *` zr8tC#   D mor,hy 'De&@r@pK,@o@mo@sk@f@  D"0 h  D"w ) 8C * ) *w* ep p   o D  D"0bK VN Ds@s@o@f@  D"0;VNhaVNh  D"w BC "& <SY*p0p21E%0*w*e "fo6sbffs"| D CB.E2  D  D"0rw4'Ds@r"&@q:@w@i@o@f@  D"0  pK, rNfZe&|C  =  0* =Eե^A e@   Ep p  8 V *`)w pskvr4tC#   D moZ:dw =Ds.@D@o@  D"0xpwh wh  D"w *  ( *e*w0, mo>wTr,}rf~r H  )*)   l 0l   e&t  ee@ t. f' E ep )w ,  w  LwB # f  `**w)0406 r,}w"skD&p &@s@@$9pw@@=@ Cx0,=h Cx eeȵe ~  DE  ȵPe &e  %'@^e5  r7q Db@wt@rk@wL @bG@s2 @  D"0<rhrh  D"@e6p 4 8  &s2 "b*bG.rk2wL :wt:\q D  D"0hr,}h  D"l. 00l  0 *Js"& Ds@@  D"0Nr"&hJ; f =Do@\D@  D"0f;Ph  D"jw  $ҥ[֥< , (e  5 sC~ D woh\DB; v D  D"0vs.hsh  D"z&fe ~  2 $ L La Ta Wq(W!ZW!AW!9W!0@:" Kq D  D"02bh  D"6  D"R82e& 0 0 0 80 B0 0 0 0)#0.s"RtL 'Dq:@i@  D"0 rkhwkh  D"$ U4 6wi"q:R$t_ Dw@aK@s2 @  D"0rh  D"&4&6 64 wr%64 2 6  l0 & Z46 64Z141612epl2l0p:J+ D  D"0bGh  D"8e2 jy[M Dq:@i@o@  D"0e$h<e?hhaKh(a[Mh  D"0,0, f 톇,, w      .% eB UBoniN|5UU plp & NeՀ)*- Ε f e * *e*w mo>wTr,}rf~py*0, L  )*)   l 0l  r,e&t   ee@ x0 j) E ep )w ,  N w  L B # f  `J :s2 6s2 paKH|)0406 0 *0e6p 4 @wJw Dw@f@  D"0wL h  D"" Bfep`pww fr4ΧDb@wt@bG@wk@a[M@f@  D"0`whwh  D"d ) !f  e) . e6p 4 08*w&bGa /**r,}2w>rXmo2l*w)0406 l0 fz\ghy4De&@r@w@w@pK,@o@mo@sk@r,}@f@  D"0~ h  D"w o832de& & & B  2PΕ   N Υ$Ε  2o pK,|2Υ   v Ε f e *  [M&wk2wtXbbfBd Dw@  D"0wh  D" ) . .wZ(#>ƭD  D"0yyphyyb=>D&p &@s@@$9pw@@=@ Cx0,=h Cx eeȵe ~  DE  ȵPe &e  %'@^e5  ND; @d8@  D"00d8h  D"41 e w(; 2d8bn X Ds.@ft:@  D"0d8hd8hmKhfm&h  D"Dez$ $ $ %  . e   ҥ. *V    e    1 .s.^ft: |DEe $ $ Zz' Ds@; @;P@d8@q:@w@i@o@  D"06@h  D":w *! & &  eow&i2q:R&`; ӭDs@o@  D"0FXhfy:h   D"Jw B C DBe ?D(1 >o sB,h DaVN@  D"0fg}h  D"j* )fff f f1   D"0d;h  D"1  & U ʥ. N ,N&  +et wete & H;PPs^; hd8psh| * e 8*ʥ[ʥ<`E *ZW D`@o@d?!@aVN@  D"04'h  D"8w *eB 8  oaVN"`0-   1  aVNR,l Dpl@g}@o@  D"0,lh  D"w ewo pl g}R,z Dg}@o@d;@  D"0,zh  D"w ewew.o d; g}d; g}JRK Dq:@i@  D"0mlEh  D" Mwxd?!R0!# =D  D"0eMheMheMheMh  D" R!  D  D"0le&he&hc2 h\s2 h.  D"p *) l0, *) $ )*)0,40,6 Z#t! -De?@o@ft:@s}@  D"0H4h  D"Lw *f f ! fP iq::SKq D  D"0"moh  D"&  DP5R~RRR~RT DmlE@o@aVN@  D"0*lEh  D".w *eB 8  oaVN*mlEJ:dh =Ds@; @  D"0phh  D"*Xe( - 1 Je$e (  & ŀ)Bos}ft::e?j &( =Ds@  D"0yyph &hByy y y((  BBFF y z &@ mD@`@:@}s@ձS@}@@@e;@h&@ձ@h'@ X@zձW@X@e@,l@,z@}@4@ 8r@֯}@'@w * 8B pB  0 B o`$s}2d?!:fJl'  lE@@=@K@z=@;VN@y@`;@:@iw@vw@hp!@w@2X@  D"0yJdxh y.`=@= ' X},llEh'}s:y:} ձ"`;$K& X(;VN*֯},4$*b@,z 8r hp!h& 8   ***Bev D  D"02pK,hskh(  D"6 85   ,*+*1,\\1,^^pBBpDDpFFeB &o`"s},ft:4s}@ft:B|eB **p**0 B1 BweZrS@fzty Ds@  D"0fahX2&h&h<ֱfahL(htԱ2&hԱ&h0Ա(hh  D"e(BA &e(H0 A f AfAD&2ss6sDsRI  ***bDfT DpZ@o@r,}@f@  D"0F 8rh0:h  D"Jw *) * w46l0o pZ.r,}2fBkf`; D  D"0p(:vXu D  D"0oh  D" &ff J D`@f@  D"0"2Xh  D"& 8 !Հ)w*w`$frKq DeZ@o@rS@aVN@ft:@  D"0,ձSh Xh֯}h  D"0w ww ww w8o aVNGr D wC r UeeA e* 0s rp v & sBvrp   zkfKq DpZ@p  D"X8Ae f"( UCɗ+e$&%  \*w*  ep p &o pJ, rNfbpyje&| C  =  0* =Eե^A e@ v Ep |p  , J *` zr8tC#   D mor,hy 'De&@r@pK,@o@mo@skh  D"w & w  D  8#"#)%ĥ ĥ oos fy:|w 0 *0 @Q$    0 40 60))  eB z :# 3&*w #(Bs}NaVNfft:tcIq P) @#**fff  &*wD. H358e$8w2eZ8d?!HeZlst,8sDsRa Dq:@i@o@  D"0Ѳ:h  D" w *D ~woiq:2,d D  D"0bK VN Ds@s@o@f@  D"0;VNhaVNh  D"w BC "& <SY*p0p21E%0*w*e "fo6sbff@f@  D"0 h  D"w ) 8C * ) *w* ep p   o pK, rNfZe&|C  =  0* =Eե^A e@   Ep p  8 V *`)w pskvr4ts"| D CB.E2  D  D"0rw4'Ds@r"&@q:@w@i@o@f@  D"0 `h  D"w *8I *=)98 eB &&  U **o"w8ihq:|e *Nlv ΋*.)  & #!)&ePe &C#   D mozE`W =Db@mlE@eZ@s@r"&@r@q:@i@o@d?!@rS@r,}@Rf@@ft:@fy:@cIq@s}@  D"0@hp!h  D"w  D 8#"#)%ĥ ĥ w 0 o sfy:|*0 @Q$    0 40 60)) z :# 3& 2i^s~q:p* wr"&fZ& 'Dq:@i@o@  D"06ch `rh  D":w  )*  U o&i6q:Ze ӧDs@q:@i@f@  D"0vcIqh  D"z0f& e %&&eH U   Ef p  wsZ&*w #( P) @#2s}Jft:XcIqreZ**fff  &*wD. H358e$8w22&e  d?!,eZPsnsvt%p8q #) *R*)@#0l C# 028 0&r|b0ĥۇAĥĊ  000 0 @0 &*0 @ u # $8i`q:xfZz Dq:@i@  D"06eZhrShft:h   D":    f u    i(q:: & D  D"0h  D" z, 'De&@py@r@r@pJ,@o@mo@f@  D"0}h  D"w ) 8C * )  \eBFr,}dipq:l * eBe>  # #D #&0 #rS mlEr"&i\   0@e 6@#040 6w!p2q:FfzE`PZ =Db@mlE@eZ@s@r"&@r@q:@i@o@d?!@rS@r,}@baVN@f@@ft:@fy:@cIq@s}@  D"0\^Whh! %&0 #   0@e 6@#040 6w!p2.q:XfzF`W =Db@mlE@eZ@s@r"&@r@q:@i@o@d?!@rS@r,}@RaVN@f@@ft:@fy:@cIq@  D"0Fh'h  D"w  D 8#"#)%ĥ ĥ w  0 o sfy:|< Ε f e * *e*w mo>wTr,}rf~py*0, L  )*)   l 0l  r,e&t   ee@ x0 j) E ep )w ,  N w  L B # f }*0 @Q$    0 40 60))eB z :# 3&*w #( P) @8aVNPft:^cIqxeZ#**fff  &*wD. H358e$8w22&e  "d?!2eZVsts|t%p8q #) *R*)@#0l C# 028,r돀 00ĥۇAĥĊ    `**r,}2w>rXmo2l*w)0406 l0 fz\ghy4De&@r@w@w@pK,@o@mo@sk@r,}@f@  D"0~ h  D"w o832de& & & B  2PΕ   N Υ$Ε  2o pK,|2Υ   v Ε f e 2&e %p8q #) *R*)@#0l C# 02sBr돀8 00ĥۇAĥĊ  000 0 @0 &*0 @ bbr,}lu #eB * eBe>  # #D &iq:"rS&mlE*r"&6ix#&0 #  >000 0 @0 &*0 @ u #bLr,}jivq:leB * eBe>  # #D #&0  rSmlEr"& ib#   0@e 6@#040 6w!p2"q:LfZ:dw =Ds.@D@o@  D"0xpwh wh  D"w *   0@e 6@#040 6w!p28q:bfzF`8 =Db@s@r"&@r@q:@i@o@r,}@aVN@f@@fy:@"  D"0h&h  D"w  D 8#"#)%ĥ ĥ w 0 o sfy:|*0 @Q$    0 40 60))eB &*   w6 V(Ĕ%.%%;C~ 5)5@DD ͥ*Ce a%wUX5@ o\D|5U U*U  5@XU@5 U*U  ʥ*%C!.D` *weC5U5  5 5@e*s.tjafZ De&@e&@r@c2 @w@aK@  D"0`pZh . 2358e$8aVNxs8w22&e %p8q #) *R*)@#0l Cs"Nr돀t# 028 00ĥۇAĥĊ  000 0 @0 (bnr,}&*0 @ u * eBe>  # #D #iq: r"&,inl z  D"d 6 p 4 0`p f 64 46 e*w & e&,w:c2 HaKNr\e&z\g4De&@py@r@r@w@w@pJ,@o@mo@r,}@f@  D"0}h  D"w o832de& & & B  2PΕ   N Υ$Ε  2o pJ,|2Υ   v jNr"&h  D"R82e& 0 0 0 80 B0 0 0 0)#0.s"RtL 'Dq:@i@  D"0 rkhwkh  D"$ U4 6wi"q:R$t_ Dw@aK@s2 @  D"0rh  D"&4&6 64 wr%64 2 6  l0 & Z46 8WZH<&DH<&H;HtH<&SH%tH),H/)VgH<[8H)XH^&{WH&{WH"&{WH%LH *#LZKD *dvZKD *(ZKD *=ZKD %HzWH)PsH*)%H [H ' qH[YH&{t H<&w*H@<&:H)'H(t H&ZH%H%#H% #Hz%#H(QH)pHK64 :s2 6s2 paKH|)0406 0 *0e6p 4 @wJw Dw@f@  D"0wL h  D"" Bfep`pww fr4ΧDb@wt@bG@wk@a[M@f@  D"0`whwh  D"d ) !f  e) . e6p 4 08*w&ZN`@ D^W@h!@  D"0h&hh'hhp!h  D" wwh! ^WRT.@ D}@}@  D"0 h h  D" ww} }z &K mDs@  D"0Jh`h:h`}shHձSh}h(@he;hh&hzձhph'h@ Xh h(ձWhXh eh ,lh0,zh}hh4h 8rh֯}h'7bGa[M&wk2wtXbbfBd Dw@  D"0wh  D" ) . .wZ(#>ƭD  D"0yyphyyz &, D)HN<&`H)H>[XH)^H<&%H WWH&CyH<&H(yH)nEH)sEHz<&KqHTH )EH( HL[;H&{PH`[8HHWH&{Hd6&H%kfH%ZH@d&H'hw(@w BwDwFwHw&-H 6lF* *e*w0, mo>wTr,}rf~r H  )*)   l 0l   e&t  ee@ t. f' E ep )w ,  w  LwB # f  `**w)0406 r,}w"sk=B@=F\JN:R 8rV@Z`;^Ѳ:X^wwwwwwwwwwwwwwwwwwwwwԱ2&Ա& Ա(ֱfa2&&( fa$y(?T,GP}0w(@w BwDwFwHw&-H 6lF@wwhp!h'h&;P; "X&`*.2}s6iw:vw>wBvF;VNJ,lN,zR4V֯}Z X^ձS"^wwwwwww22XlE K'ձW:s=B@=F\JN:R 8rV@Z`;^Ѳ:X^wwwwwwwwwwwwwwwwwwwwwԱ2&Ա& Ա(ֱfa2&&( fa$y(?T,GP}0wBvF;VNJ,lN,zR4V֯}Z X^ձS^wwwwww,2XlE K'ձW:s; FILE SHOULD BE DELETED BEFORE THE PROGRAM EXITS OTHERWISE IT7; WILL REMAIN IN THE INDEX FILE WITH NO DIRECTORY ENTRYE. .MACRO OPNT$W FDB,LUN,FNPT,RACC,URBA,URBS,ERR .MCALL OPEN$F6 OPEN$ FDB,#FA.TMP!FO.WRT,LUN,FNPT,,RACC,URBA,URBS,ERR .ENDM OPNT$WU ; OPEN FILE.7 .MA OCKL. .MACRO OFNB$A FDB,LUN,FNPT,RACC,URBA,URBS,ERR .MCALL OFNB$L/ OFNB$ FDB,#FO.APD,LUN,FNPT,,RACC,URBA,URBS,ERR .ENDM OFNB$AO ; OPEN FILE - BY FILE NAME BLOCK7 .MACRO OFNB$ FDB,FACC,LUN,FNPT,DFNB,RACC,URBA,URBS,ERRO! .MCALL FDOP$R,FDRC$R,ERR$,CMOV$BA FDOP$R FDB,LUN,FNPT,DFNB,FACC FDRC$R ,RACC,URBA,URBS  .GLOBL .OPFNB JSR PC,.OPFNB ERR$ ERRP .ENDM OFNB$ E; CLOSE THE FILE .MACRO CLOSE$ FDB,ERR .MCALL LDFDB$,ERR$R LDFDB$ FDBN .GLOBL .CLOSE JSR PC,.CLOSE ERR$ ERRM . >CRO OPEN$ FDB,FACC,LUN,FNPT,DFNB,RACC,URBA,URBS,ERR.! .MCALL FDOP$R,FDRC$R,ERR$,CMOV$BN FDOP$R FDB,LUN,FNPT,DFNB,FACC FDRC$R ,RACC,URBA,URBS .GLOBL .OPEN JSR PC,.OPENI ERR$ ERR .ENDM OPEN$ D$; OPEN FILE FOR READING - BY FILE ID. .MACRO OFID$R FDB,LUN,FNPT,RACC,URBA,URBS,ERR .MCALL OFID$I. OFID$ FDB,#FO.RD,LUN,FNPT,,RACC,URBA,URBS,ERR .ENDM OFID$RB$; OPEN FILE FOR WRITING - BY FILE ID. .MACRO OFID$W FDB,LUN,FNPT,RACC,URBA,URBS,ERR .MCALL OFID$./ OFID$ FDB,#FO.UPD,LUN,FNPT,,RAC ENDM CLOSE$R; READ A VIRTUAL BLOCK3 .MACRO READ$ FDB,BKAD,BKSZ,BKVB,BKEF,BKST,BKDN,ERRF .MCALL FDBK$R,ERR$R) FDBK$R FDB,BKAD,BKSZ,BKVB,BKEF,BKST,BKDN .GLOBL .READA JSR PC,.READA ERR$ ERR, .ENDM READ$; WRITE VIRTUAL BLOCKP4 .MACRO WRITE$ FDB,BKAD,BKSZ,BKVB,BKEF,BKST,BKDN,ERR .MCALL FDBK$R,ERR$B) FDBK$R FDB,BKAD,BKSZ,BKVB,BKEF,BKST,BKDNR .GLOBL .WRITE JSR PC,.WRITE ERR$ ERR. .ENDM WRITE$B;R/; WAIT FOR I/O COMPLETION AFTER READ$ OR WRITE$O; .MACRO WAIT$ FDB,EFN,BKST,E vC,URBA,URBS,ERRA .ENDM OFID$WB#; OPEN FILE FOR MODIFY - BY FILE IDR. .MACRO OFID$M FDB,LUN,FNPT,RACC,URBA,URBS,ERR .MCALL OFID$,/ OFID$ FDB,#FO.MFY,LUN,FNPT,,RACC,URBA,URBS,ERR .ENDM OFID$ME#; OPEN FILE FOR UPDATE - BY FILE IDL. .MACRO OFID$U FDB,LUN,FNPT,RACC,URBA,URBS,ERR .MCALL OFID$F/ OFID$ FDB,#FO.UPD,LUN,FNPT,,RACC,URBA,URBS,ERRE .ENDM OFID$U$#; OPEN FILE FOR APPEND - BY FILE ID . .MACRO OFID$A FDB,LUN,FNPT,RACC,URBA,URBS,ERR .MCALL OFID$D/ OFID$ FDB,#FO.APD,LUN,FNPT,,RACC, RR! .MCALL LDFDB$,CMOV$W,CMOV$B,ERR$K LDFDB$ FDBE CMOV$B EFN,F.EFNK CMOV$W BKST,F.BKSTF .GLOBL .WAITR JSR PC,.WAIT ERR$ ERRS .ENDM WAIT$ B; GET A RECORD! .MACRO GET$ FDB,INADR,MAXCNT,ERRN .MCALL LDFDB$,CMOV$W,ERR$ LDFDB$ FDBR2 CMOV$W INADR,F.URBD+2 ;USER RECORD BUFFER ADDRESS. CMOV$W MAXCNT,F.URBD ;USER RECORD BUFFER SIZE .GLOBL .GET JSR PC,.GET ERR$ ERRW .ENDM GET$R; GET A RECORD - IN RANDOM MODER. .MACRO GET$R FDB,INADR,MAXCNT,LRCNM,HRCNM,ERR .MCALL LDFDB$,CMOV$ 2URBA,URBS,ERRR .ENDM OFID$A$; OPEN FILE - BY FILE ID7 .MACRO OFID$ FDB,FACC,LUN,FNPT,DFNB,RACC,URBA,URBS,ERRS! .MCALL FDOP$R,FDRC$R,ERR$,CMOV$BO FDOP$R FDB,LUN,FNPT,DFNB,FACC FDRC$R ,RACC,URBA,URBSP .GLOBL .OPFID JSR PC,.OPFID ERR$ ERRF .ENDM OFID$ ,,; OPEN FILE FOR READING - BY FILE NAME BLOCK. .MACRO OFNB$R FDB,LUN,FNPT,RACC,URBA,URBS,ERR .MCALL OFNB$N. OFNB$ FDB,#FO.RD,LUN,FNPT,,RACC,URBA,URBS,ERR .ENDM OFNB$RC,; OPEN FILE FOR WRITING - BY FILE NAME BLOCK. .MACRO OFNB$W F 4W,ERR$ LDFDB$ FDBC2 CMOV$W INADR,F.URBD+2 ;USER RECORD BUFFER ADDRESS. CMOV$W MAXCNT,F.URBD ;USER RECORD BUFFER SIZE/ CMOV$W LRCNM,F.RCNM+2 ;LOW ORDER RECORD NUMBERO. CMOV$W HRCNM,F.RCNM ;HIGH ORDER RECORD NUMBER .GLOBL .GET JSR PC,.GET ERR$ ERRO .ENDM GET$R*; GET A RECORD - SEQUENTIAL MODE STRICTLY" .MACRO GET$S FDB,INADR,MAXCNT,ERR .MCALL LDFDB$,CMOV$W,ERR$ LDFDB$ FDB.2 CMOV$W INADR,F.URBD+2 ;USER RECORD BUFFER ADDRESS. CMOV$W MAXCNT,F.URBD ;USER RECORD BUFFER SIZE .GLOBL .GETSQ !!SIZ>,F.RSIZR CWORD$ ,F.CNTG. CWORD$ ,F.ALOCP .ENDM FDAT$A.;; RECORD ACCESS SECTION OF FDB-ASSEMBLY TIME INITIALIZATIONR .MACRO FDRC$A RACC,URBA,URBS  .MCALL FDOFF$,CBYTE$,CWORD$ FDOFF$ DEF$LR CBYTE$ ,F.RACC$ CWORD$ ,F.URBD+2. CWORD$ ,F.URBDF .ENDM FDRC$AA7; FILE OPEN SECTION OF FDB-ASSEMBLY TIME INITIALIZATIONA( .MACRO FDOP$A LUN,FNPT,DFNB,FACC,FACTRL .MCALL FDOFF$,CBYTE$,CWORD$ FDOFF$ DEF$LY CBYTE$ ,F.LUNC CWORD$ ,F.DSPTC CWORD!E OF TRANSFER IN BYTES. CMOV$2 BKVB,F.BKVB ;ADDRESS OF 2 WORD VIRTUAL" ;BLOCK NUMBER, MOVE BOTH WORDS CMOV$B BKEF,F.BKEF ;EVENT FLAGS, CMOV$W BKST,F.BKST ;ADR OF I/O STATUS BLOCK( CMOV$W BKDN,F.BKDN ;ADR OF I/O DONE AST .ENDM FDBK$RR I6; DEFINE THE SIZE OF THE FDB AS A LOCAL SYMBOL (S.FDB), .MACRO FDBSZ$ ;DEFINE S.FDB AS SIZE OF FDB .IIF DF,S.FDB,.MEXITB .MCALL FDOFF$,DEF$L3 FDOFF$ DEF$N ;INVOKE OFFSET DEFINITIONS BUT DON'TF% ;ACTUALLY DEFINE THE OFFSET NAMESC DEF$L S.FDB ;NOW D!$ ,F.DFNBC CBYTE$ ,F.FACCC CWORD$ ,F.ACTLN .ENDM FDOP$A >; BUFFER DECRIPTOR SECTION OF FDB-ASSEMBLY TIME INITIALIZATION! .MACRO FDBF$A EFN,OVBS,MBCT,MBFGD .MCALL FDOFF$,CBYTE$,CWORD$ FDOFF$ DEF$LR CBYTE$ ,F.EFN  CWORD$ ,F.OVBSD CBYTE$ ,F.MBCTM CBYTE$ ,F.MBFG .ENDM FDBF$AA:; BLOCK ACCESS SECTION OF FDB ASSEMBLY TIME INITIALIZATION, .MACRO FDBK$A BKAD,BKSZ,BKVB,BKEF,BKST,BKDN .MCALL FDOFF$,CBYTE$,CWORD$ FDOFF$ DEF$L> CWORD$ !EFINE S.FDBE .ENDM FDBSZ$O<; INVOKE FDOFF$ TO DEFINE OFFSETS AS LOCAL - DO IT ONCE ONLY .MACRO FDOF$L .MCALL FDOFF$ FDOFF$ DEF$LS .ENDM FDOF$LF;S(; DEFINE FILE NAME BLOCK AT ASEMBLY TIME+ .MACRO NMBLK$ FNAME,FTYPE,VERS,DEVNAM,UNITI .MCALL RAD50$,CWORD$,NBOFF$1 NBOFF$ DEF$L ;DEFINE NAME BLOCK OFFSETS LOCALLY  .IIF NDF,...PC1,...PC1=0 ...PC3=...PC1 ;PRESERVE ...PC1 ...PC1=.F .=...PC1+N.FNAM RAD50$ ,S.FNAM/2 .=...PC1+N.FTYP RAD50$ ,S.FTYP/2 CWORD$ ,N.F!sOUTCNT,F.NRBD ;NEXT RECORD BUFFER SIZE/ CMOV$W LRCNM,F.RCNM+2 ;LOW ORDER RECORD NUMBER. CMOV$W HRCNM,F.RCNM ;HIGH ORDER RECORD NUMBER .GLOBL .PUT JSR PC,.PUT ERR$ ERR .ENDM PUT$R); PUT A RECORD - SEQUENTIAL MODE STRICTLYT# .MACRO PUT$S FDB,OUTADR,OUTCNT,ERRB .MCALL LDFDB$,CMOV$W,ERR$ LDFDB$ FDBP3 CMOV$W OUTADR,F.NRBD+2 ;NEXT RECORD BUFFER ADDRESS . CMOV$W OUTCNT,F.NRBD ;NEXT RECORD BUFFER SIZE .GLOBL .PUTSQ JSR PC,.PUTSQ ERR$ ERRR .ENDM PUT$S E; DELETE A FILES .MACRO DE!,F.BKDS+2F CWORD$ ,F.BKDSF- CWORD$ ,F.BKVB+2 ;STORE LOW ORDER ONLY  CBYTE$ ,F.BKEFS CWORD$ ,F.BKSTT CWORD$ ,F.BKDN. .ENDM FDBK$AN B6; FILE ATTRIBUTE SECTION OF FDB-RUNTIME INITIALIZATION+ .MACRO FDAT$R FDB,RTYP,RATT,RSIZ,CNTG,ALOCD .MCALL LDFDB$,CMOV$W,CMOV$B" LDFDB$ FDB ;SAVE R0 AND LOAD FDB CMOV$B RTYP,F.RTYPN CMOV$B RATT,F.RATT  CMOV$W RSIZ,F.RSIZR CMOV$W CNTG,F.CNTGV CMOV$W ALOC,F.ALOCC .ENDM FDAT$RE5; RECORD ACCESS SECTION OF FDB-RUNTI!ULET$ FDB,ERR .MCALL LDFDB$,ERR$ LDFDB$ FDB  .GLOBL .DELET JSR PC,.DELET ERR$ ERRC .ENDM DELET$C; TRUNCATE A FILE  .MACRO TRUNC$ FDB,ERR .MCALL LDFDB$,ERR$ LDFDB$ FDBR .GLOBL .TRUNC JSR PC,.TRUNC ERR$ ERRL .ENDM TRUNC$U; &; INITIALIZE THE FILE CONTROL SERVICES .MACRO FINIT$ .GLOBL .FINIT JSR PC,.FINIT .ENDM FINIT$B; ;R" .MACRO FSRSZ$ NFILES,BFSPAC,PSECT .MCALL BDOFF$,DEF$L .IF NDF,S.BFHDP BDOFF$ DEF$N DEF$L S.BFHDT .ENDC .GLOBL .FSRCB .PSECT $$!mME INITIALIZATIOND! .MACRO FDRC$R FDB,RACC,URBA,URBSV .MCALL LDFDB$,CMOV$W,CMOV$B LDFDB$ FDBF CMOV$B RACC,F.RACC> CMOV$W URBA,F.URBD+2> CMOV$W URBS,F.URBD$ .ENDM FDRC$RA1; FILE OPEN SECTION OF FDB-RUNTIME INITIALIZATIONA, .MACRO FDOP$R FDB,LUN,FNPT,DFNB,FACC,FACTRL .MCALL LDFDB$,CMOV$W,CMOV$B LDFDB$ FDBE CMOV$B LUN,F.LUNC CMOV$W FNPT,F.DSPTC CMOV$W DFNB,F.DFNBC CMOV$B FACC,F.FACCC CMOV$W FACTRL,F.ACTLO .ENDM FDOP$RC5; BLOCK BUFFER SECTION OF FDB-RUNTIME INITIALIZATION! LFSR1,GBL,OVR,D .IF NB, .BLKB NFILES*S.BFHD+T .IFFP .BLKB NFILES*D .ENDC .PSECT PSECTL .ENDM FSRSZ$N>; FILE DESCRIPTOR BLOCK - ALLOCATION OF SPACE AT ASSEMBLY TIME .MACRO FDBDF$ .MCALL FDBSZ$ FDBSZ$ ...PC1=.I .BLKB S.FDB .ENDM FDBDF$ A;; FILE ATTRIBUTE SECTION OF FDB-ASSEMBLY TIME INITIALIATION' .MACRO FDAT$A RTYP,RATT,RSIZ,CNTG,ALOC .MCALL FDOFF$,CBYTE$,CWORD$ FDOFF$ DEF$LF CBYTE$ ,F.RTYPT CBYTE$ ,F.RATTB CWORD$ ; IF THE STRING TO INSERT IS NON NULL, .NCHR ...PC3, ; PICK UP STRING LENGTH1 .IF GE MAXLG-...PC3 ; VERIFY IT IS NOT TOO LONGT ...PC2=. ; SAVE CURRENT PC+ .=...PC1+OFFSET ; ADDRESS DESIRED OFFSETI) .ASCII ^VAR^ ; INSERT VALUE AT OFFSET.- .REPT MAXLG-...PC3 ; PAD TO MAXIMUM LENGTHS .BYTE FILLA .ENDR$ .=...PC2 ; RETURN TO PREVIOUS PC .IFF .ERROR ; ARGUMENT TOO LONGS .ENDCC .ENDC .ENDM CSTRG$O;E?; MACROS TO ACCESS FIELDS "00 ;SET IF * IN PROJECT NUMBER OF PPN9 DEFIN$ NB.SD2,1000 ;SET IF * IN PROGRAMMER NUMBER OF PPN- DEFIN$ NB.ANS,2000 ;SET IF QUOTED NAME FOUNDC7 DEFIN$ NB.WCH,4000 ;WILD CHARACTER PROCESSING REQUIREDF>; ***** BEWARE MORE BITS IN N.STAT USED BY FCS AND PIP LOCALLY$; CHECK DEFINITION SECTION IN FCSPRE;PH; F.RTYP VALUES - RECORD TYPE BYTE - ***** NOTE THESE ARE VALUES, NOT BI& DEFIN$ R.FIX,1 ;FIXED LENGTH RECORDS) DEFIN$ R.VAR,2 ;VARIABLE LENGTH RECORDSF# DEFIN$ R.SEQ,3 ;SEQUENCED RECORDSB& DEF"VERN .IF NB,DEVNAM .=...PC1+N.DVNM .WORD "DEVNAM .ENDC CWORD$ ,N.UNITC .=...PC1+S.FNBD ...PC1=...PC3 ;RESTORE ...PC1$ .ENDM NMBLK$$;<; INVOKE NBOFF$ TO DEFINE OFFSETS AS LOCAL - DO IT ONCE ONLY .MACRO NBOF$L .MCALL NBOFF$ NBOFF$ DEF$LO .ENDM NBOF$LO,; IF THE FDB PARAM IS NULL OR R0, THEN DON'T*; GENERATE A MOVE OF FDB TO R0. OTHERWISE; GENERATE THE MOVEC .MACRO LDFDB$ FDB% .IIF B,FDB,.MEXIT ;IF NULL THEN EXIT. .NTYPE PAR$$$,FDB' .IIF EQ,PAR$$$,.MEXIT ;IF R"IN THE STRUCTURE CURRENTLY POINTED TOI; BY R0.;T .MACRO CGET$B OFFSET,VARH" .IIF NB MOVB OFFSET(R0),VAR .ENDM .MACRO CGET$W OFFSET,VAR ! .IIF NB MOV OFFSET(R0),VARV .ENDM 0; DEFINE FCS BITS AND VALUES LOCALLY OR GLOBALLY8; CALL WITH DEF$G FOR GLOBAL DEFINITIONS, CONVENTIONALLY>; CALLED WITH DEF$L FOR LOCAL, BUT ANYTHING NOT EQUAL TO DEF$G ; WILL DOR .MACRO FCSBT$ GLOBL .MCALL DEFIN$ ...GBL=0T" .IIF IDN,,,...GBL=1;G;%; F.RATT BITS - RECORD ATTRI" "0 THEN EXITN$ MOV FDB,R0 ;ELSE GENERATE THE MOVE .ENDM LDFDB$C D9; CONDITIONALLY MOVE A WORD TO THE SPECIFIED OFFSET OF R0E .MACRO CMOV$W VAR,OFFSET .IF IDN,<#0>,F CLR OFFSET(R0)C .MEXITT .ENDC .IIF NB,VAR, MOV VAR,OFFSET(R0) .ENDM CMOV$WOB; CONDITIONALLY GENERATE A MOVE BYTE TO THE SPECIFIED OFFSET OF R0 .MACRO CMOV$B VAR,OFFSET  .IF IDN,<#0>,E CLRB OFFSET(R0) .MEXIT$ .ENDC! .IIF NB,VAR, MOVB VAR,OFFSET(R0). .ENDM CMOV$B$C; CONDITIONALLY MOVE 2 WORDS F" BUTE BYTER. DEFIN$ FD.FTN,1 ;FORTRAN CARRIAGE CONTROL BIT9 DEFIN$ FD.CR,2 ;INSERT CARRIAGE RETURNS BETWEEN RECORDS' DEFIN$ FD.PRN,4 ; R.SEQ/VFC PRINT FILEI: DEFIN$ FD.BLK,10 ;1 IF RECORDS CANNOT CROSS BLOCK BOUNDAR"; F.RACC BITS - RECORD ACCESS BYTE1 DEFIN$ FD.RWM,1 ;ON IF READ/WRITE,OFF IF GET/PUTN0 DEFIN$ FD.RAN,2 ;ON IF RANDOM,OFF IF SEQUENTIAL8 DEFIN$ FD.PLC,4 ;ON IF PARTIAL LOCATE,OFF IF SEQUENTIAL3 DEFIN$ FD.INS,10 ;ON IF PUT SEQUENTIAL INSERT MODEG ;OFF IF TRUNCATE MODE <; F.RCTL BIT ##NG CREATED (FA.CRE=1)A;IH; BIT VALUE 200 IN F.FACC IS RESERVED FOR USE BY RSTS/E, FOR THEIR FO.TS; TASK IMAGE FILE ACCESS.;; 3 DEFIN$ FA.APD,100 ;SET IF APPENDING (POSIT TO EOF)S; DEFIN$ FA.NSP,100 ;SET IF INHIBITING SUPERSEDE ON FILE CRED;N" DEFIN$ FO.RD,FA.RD ;OPEN FOR READ< DEFIN$ FO.WRT,FA.WRT!FA.EXT!FA.CRE ;OPEN FOR WRITE (CREATE)4 DEFIN$ FO.APD,FA.WRT!FA.EXT!FA.APD ;OPEN FOR APPEND& DEFIN$ FO.MFY,FA.WRT ;OPEN FOR MODIFY- DEFIN$ FO.UPD,FA.WRT!FA.EXT ;OPEN FOR UPDATEE;F*; DEFINE THE N#4INE TOTAL OFFSETS,2; OR DEFINE NO OFFSETS. THE LATTER SETS THINGS UP); SO THAT ONLY THE SIZE OF THE FDB CAN BE) ; DEFINED. .MACRO FDOFF$ OFFSETF .MCALL OFFSET,DEF$I,NBOFF$  NBOFF$ OFFSET$ DEF$I 0 ;INIT THE DEFINITION MACRO; FILE ATTRIBUTE SECTION OFFSET F.RTYP,1 ;RECORD TYPE$# OFFSET F.RATT,1 ;RECORD ATTRIBUTESM OFFSET F.RSIZ,2 ;RECORD SIZE5 OFFSET F.HIBK,4 ;HIGHEST VIRTUAL BLOCK NO. ALLOCATED * OFFSET F.EFBK,4 ;END OF FILE BLOCK NUMBER/ OFFSET F.FFBY,2 ;FIRST FREE BYTE IN LAST BLOC#EW BITS IN F.ACTL IN THE FDB'; SEVERAL OF THESE BITS ALSO HAVE LOCAL (; DEFINITIONS IN FCSPRE.MAC. HOWEVER ALL$; DEFINITONS ARE MUTUALLY EXCLUSIVE.;;1 DEFIN$ FA.ENB,100000 ; ENABLE USE OF F.ACTL WORD0= DEFIN$ FA.SEQ,40000 ;ENABLE SEQUENTIAL PROCESSING ONLY (NON-A( DEFIN$ FA.WCK,20000 ;ENABLE WRITE CHECK: DEFIN$ FA.POS,10000 ; FILE CREATION POS. CTRL FOR MAGTAPE7 DEFIN$ FA.RWD,4000 ; ENABLE REWIND CONTROL FOR MAGTAPEO0 DEFIN$ FA.EXL,4000 ;ENABLE MANUAL BLOCK LOCKING* DEFIN$ FA.LKL,2000 ;ENABLE BL#IKN/ OFFSET S.FATT ;SIZE OF FILE ATTRIBUTE SECTIONT; RECORD ACCESS SECTIONA OFFSET F.RACC,1 ;RECORD ACCESS OFFSET F.RCTL,1 ;RECORD CONTROL. OFFSET F.BKDS ;BLOCK I/O - BUFFER DESCRIPTOR1 OFFSET F.URBD,4 ;USER'S RECORD BUFFER DESCRIPTORI5 OFFSET F.BKST ;BLOCK I/O - I/O STATUS BLOCK ADDRESS./ OFFSET F.NRBD,2 ;NEXT RECORD BUFFER DESCRIPTORO1 OFFSET F.BKDN ;BLOCK I/O - I/O DONE AST ADDRESSO OFFSET ,2 ;2ND WORD OF NRBD;+ OFFSET F.OVBS ;OVERRIDE BLOCK BUFFER SIZEI5 OFFSET F.NREC,2 ;NEXT R#!OCK BLOCKING& DEFIN$ FA.EXC,2000 ;EXCLUSIVE USE BIT6 DEFIN$ FA.DLK,1000 ; ENABLE NO LOCK ON ABNORMAL CLOSE9 DEFIN$ CH.AND,1 ;ANSI FORMAT MAG TAPE: 'D' (VARIABLE LENE, ;OR 'F' (FIXED LENGTH, INCLUDING BLOCK I;AH; F.MBFG BITS - MULTIPLE BUFFERING FLAG WORD - USER CONTROLLED AND SET B9 DEFIN$ FD.RAH,1 ;READ AHEAD IF SET - THIS OR WRITE BEHINP0 DEFIN$ FD.WBH,2 ;WRITE BEHIND IF SET - NOT BOTH6; ***** BEWARE MORE BITS IN F.MBFG USED IN FCS LOCALLY;A0; F.FLG BITS - GENERAL PURPOSE FLAGS ;PKW065#ECORD ADDRESS IN BLOCK BUFFERF% OFFSET F.EOBB,2 ;END OF BLOCK BUFFERS2 OFFSET F.CNTG ;SIZE IN BLOCKS OF CONTIGUOUS FILE2 OFFSET F.RCNM,2 ;RECORD NUMBER FOR RANDOM RECORDS4 OFFSET F.STBK ;ADDRESS TO READ IN STATISTICS BLOCK OFFSET ,2 ;2ND WORD OF RCNM 4 OFFSET F.ALOC,2 ;ALLOCATE THIS MUCH SPACE WHEN NEED# ;TO EXTEND, + = CONTIG, - = NOTP; FILE OPEN SECTIONB% OFFSET F.LUN,1 ;LOGICAL UNIT NUMBERE OFFSET F.FACC,1 ;FILE ACCESSE) OFFSET F.DSPT,2 ;FILE DESCRIPTOR POINTERF1 OFFSET F.DFNB,2 ;#@ DEFIN$ FL.AEX,1 ;STRING TO BE PARSED HAS ALREADY BEEN EX;PKW065!; ;FOR LOGICAL NAMES ;PKW065L; ;PKW065A!; DEFINE THE .CTRL FUNCTION CODESR;L DEFIN$ FF.RWD,1 ; REWINDL2 DEFIN$ FF.POE,2 ; POSITION TO END OF VOLUME (SET) DEFIN$ FF.NV,3 ; NEXT VOLUME DEFIN$ FF.SPC,4 ; SPACE* DEFIN$ FF.CHR,5 ; GET APC CHARACTERISTICS! DEFIN$ FF.RWF,6 ;ERS REWIND FILEE;DH; DEFINE BITS USED IN .FCTYP TO DESCRIBE FCS CONDITIONAL ASSEMBLY OPTION;A; 8 DEFIN$ FT.ANI,1 ; ANSI MAG TAPE FCS (CONDIT#5DEFAULT FILE NAME BLOCK ADDRESS; BLOCK BUFFER SECTION. OFFSET F.BKEF ;BLOCK I/O - EVENT FLAG NUMBER( OFFSET F.EFN,1 ;EVENT FLAG USED IN QIO" OFFSET F.BKP1,1 ;BOOKKEEPING BITS, OFFSET F.ERR,2 ;1ST BYTE ERROR RETURN CODE& ;2ND BYTE FOR QI/O ERROR INDICATOR4 OFFSET F.MBCT,1 ;NUMBER OF BUFFERS TO USE (DESIRED)' OFFSET F.MBC1,1 ;NO. OF BUFFERS IN USEE2 OFFSET F.MBFG,1 ;MULTIPLE BUFFERING CONTROL FLAGS9 OFFSET F.BGBC,1 ;BIG BUFFER BLOCK COUNT (SIZE IN BLOCKS)R, ;ALSO USED FOR ANSI TAPE INP# IN$ R.STM,4 ;STREAM ASCII RECORDS; ; F.FACC BITS - FILE ACCESS BYTE" DEFIN$ FA.RD,1 ;SET IF READ ONLY+ DEFIN$ FA.WRT,2 ;SET IF ACCESSED FOR WRITEN* DEFIN$ FA.EXT,4 ;SET IF ACCESS FOR EXTEND+ DEFIN$ FA.CRE,10 ;SET IF CREATING NEW FILEE, DEFIN$ FA.TMP,20 ;SET IF CREATING TEMP FILE' DEFIN$ FA.SHR,40 ;SET IF SHARED ACCESSE;DA; THE FOLLOWING TWO NAMES APPLY TO THE SAME CONTROL BIT IN F.FACC;@; FA.APD IS ONLY USED IF THE FILE IS AN EXISTING FILE (FA.CRE=0)=; FA.NSP IS ONLY USED IF THE FILE IS BEI# 7IONAL R$$ANI0 DEFIN$ FT.BBF,2 ; BIG BUFFERED FCS (R$$BBF > 1)2 DEFIN$ FT.MBF,4 ; MULTI BUFFERED FCS (R$$MBF > 1);W;A .MACRO FCSBT$ ARG .ENDM FCSBT$R .ENDM FCSBT$F;D,; EQUATE THE SYMBOL WITH ITS SPECIFIED VALUE3; DEFINE IT GLOBALLY IF ...GBL=1, OTHERWISE LOCALLYD .MACRO DEFIN$ SYM,VAL .IIF EQ,...GBL-1,.GLOBL SYM SYM=^O .ENDM DEFIN$6 R0; FILE DESCRIPTOR BLOCK OFFSETS DEFINITION MACRO>; CALL WITH ONE OF THE FOLLOWING MACRO NAMES DEF$L,DEF$G,DEF$N0; TO DEFINE LOCAL OFFSETS, DEF $5$UT BUFFER OF- OFFSET F.VBSZ,2 ;VIRTUAL BLOCK SIZE IN BYTES# OFFSET F.BBFS,2 ;BLOCK BUFFER SIZEA1 OFFSET F.BKVB ;BLOCK I/O - VIRTUAL BLOCK NUMBER& OFFSET F.VBN,4 ;VIRTUAL BLOCK NUMBER/ OFFSET F.BDB,2 ;BLOCK BUFFER DESCRIPTOR BLOCKD( OFFSET F.EXT ;FDB EXTENSION ;PKW0652 OFFSET F.SPDV,2 ;SPOOL DEVICE INDICATOR ;PKW065( OFFSET F.FLG ;FDB FLAG BYTE ;PKW065/ OFFSET F.SPUN,1 ;SPOOL UNIT DESIGNATOR ;**-1E9 OFFSET F.CHR,1 ;ACP VOLUME CHARACTERISTICS SUMMARY BYTEA% OFFSET F.ACTL,2 ;ACCESS$E AT LEAST A LOCAL DEFINITIONO OFFSET N.STAT,2 ;STATUS) OFFSET N.NEXT,2 ;TEMP CELL FOR FIND NEXT=) OFFSET N.ANM2 ;ANSI NAME 2 OVERLAYS DID. OFFSET N.DID,6 ;DIRECTORY ID& OFFSET N.DVNM,2 ;DEVICE NAME IN ASCII OFFSET N.UNIT,2 ;UNIT NUMBERI$ OFFSET S.FNB ;SIZE OF FNB IN BYTES. DEF$L S.FNB ;FORCE LOCAL DEFINITION AT LEAST& S.FNBW=S.FNB/2 ;SIZE OF FNB IN WORDS; .IIF IDN,,,.MEXIT ;DON'T REDEFINE THE MACROO .MACRO NBOFF$ ARG .ENDM NBOFF$I .ENDM NBOFF$E ;F*; FILE STORAGE$] CONTROL WORD5 OFFSET F.SEQN,2 ;SEQUENCE NUMBER FOR SEQUENCED FILES ; FILE NAME BLOCK SECTION1 OFFSET F.FNB,S.FNB ;BEGINNING OF FILE NAME BLOCK! .IIF IDN,,,.MEXITB .IF IDN,, * .GLOBL F.FNAM,F.FTYP,F.FVER,F.DVNM,F.UNIT .ENDC F.FNAM=N.FNAM+F.FNB F.FTYP=N.FTYP+F.FNB F.FVER=N.FVER+F.FNB F.DVNM=N.DVNM+F.FNB F.UNIT=N.UNIT+F.FNB OFFSET S.FDB ;SIZE OF FDBD; ;PKW0651; DEFINE OFFSETS IN THE FDB EXTENSION ;PKW065Y; ;PKW065C6 DEF$I 0 $ REGION OFFSETS - LIKE FDOFF .MACRO FSROF$ OFFSETT .MCALL OFFSET,DEF$I,DEF$L;L; DEFINE THE OFFSETS FOR $$FSR2  DEF$I 0% OFFSET ,4 ;LIST HEAD FOR ALLOCATIONT' OFFSET A.BFSR,2 ;FIRST ADDRESS IN FSR1A& OFFSET A.EFSR,2 ;LAST ADDRESS IN FSR1;E3; ***** DO NOT SEPARATE THE FOLLOWING 2 DEFINITIONSL;L1 OFFSET A.OWUI,2 ;UIC OF OWNER (FROM TASK HEADER) . OFFSET A.FIPR,2 ;DEFAULT FILE PROTECTION WORD;R.; DO NOT SEPARATE THE PRECEEDING 2 DEFINITIONS;F2; ***** DO NOT SEPARATE THE FOLLOWING 3 $];REINITIALIZE THE OFFSET DEFINITIONS ;PKW0650 OFFSET FX.LEN,2 ;LENGTH OF EXTENSION ;PKW065: OFFSET FX.DMX,1 ;MAXIMUM SIZE OF DIRECTORY STRING ;PKW0655 OFFSET FX.DLN,1 ;LENGTH OF DIRECTORY STRING ;PKW065D, OFFSET FX.DIR,2 ;DIRECTORY STRING ;PKW065 .MACRO FDOFF$ ARG .ENDM FDOFF$ .ENDM FDOFF$F BH; BUFFER DESCRIPTOR OFFSETS-SAME TYPE OF CALL AS FOR FILE DESCRIPTOR OFF .MACRO BDOFF$ OFFSET .MCALL OFFSET,DEF$I DEF$I 0 OFFSET ,46 OFFSET B.VBN,4 ;VIRTUAL BLOCK NUMBER FOR THIS BUFFER1$DEFINTIONS;T, OFFSET A.DPB,24. ;QI/O DPB AND SCRATCH AREA* OFFSET A.IOST,4 ;SCRATCH I/O STATUS BLOCK1 OFFSET A.DFDR,26. ;DEFAULT DIRECTORY INFORMATIONF;A.; DO NOT SEPARATE THE PRECEEDING 3 DEFINITIONS;A9 OFFSET A.DFBC,2 ;DEFAULT BUFFER CNT (MULTIPLE BUFFERING)T( OFFSET A.DFUI,2 ;DEFAULT UIC (TASK UIC);O5; DEFINE POINTER TO INDIRECT JUMP TABLE FOR LIBRARIESE;.0 OFFSET A.JUMP,4 ;ADDRESS OF JUMP TABLE AND SIZE;P1; DEFINE M-PLUS SUPERVISOR MODE LIBRARY FLAG WORDN;S5 OFFSET A.MODE,2 ; 0 =$M OFFSET B.BBFS,2 ;NUMBER OF BYTES READ OR WRITTENF3 OFFSET B.NXBD,2 ;POINTER TO NEXT BUFFER DESCRIPTOR  OFFSET ,1 ;SPARE BYTE $ OFFSET B.BFST,1 ;BUFFER STATUS BYTE OFFSET ,2 OFFSET S.BFHD! .IIF IDN,,,.MEXITI .MACRO BDOFF$ ARG .ENDM BDOFF$D .ENDM BDOFF$M ; NAME BLOCK OFFSET - LIKE FDOFF .MACRO NBOFF$ OFFSETA .MCALL OFFSET,DEF$I,DEF$L DEF$I 0. OFFSET S.FNAM ;DEFINE AS GLOBAL IF PARAMETER OFFSET S.FTYP ;IS DEF$GO OFFSET S.FNTY OFFSET S.FNBW OFFSET S.ANM1 OFF$s USER MODE, 1 = SUPERVISOR MODE4A OFFSET A.EXDS,42. ; AREA FOR STORAGE OF DIRECTORY STRING ;PKW086O7 OFFSET A.LGBK,80. ;LOGICAL NAME STORAGE BLOCK ;PKW086A' S.LGBK=80. ;LENGTH OF BLOCK ;PKW086N4 OFFSET A.PRS,28. ;LOGICAL NAME PARSE BLOCK ;PKW086, S.PRS=28. ;LENGTH OF PARSE BLOCK ;PKW086. OFFSET S.FSR2 ;SIZE OF FILE STORAGE REGION 2 DEF$L S.FSR2I7 DEF$I 0 ;REINITIALIZE FOR CSI OFFSETS IN FSR5 ;PKW086 / OFFSET A.OUBK,80. ;CSI OUTPUT BUFFER ;PKW086 . OFFSET A.LODV,6 ;LAST OUTPUT DEVICE$ SET S.ANM2% S.FNAM=6 ;SIZE OF FILENAME IN BYTESF& S.FTYP=2 ;SIZE OF FILE TYPE IN BYTES' S.ANM1=12. ;SIZE OF ANSI NAME FIELD 1& S.ANM2=5. ;SIZE OF ANSI NAME FIELD 2< S.FNTY=/2 ;SIZE OF FILENAME + TYPE IN WORDS4 OFFSET N.FID,2 ;FILE ID (REALLY 6 BYTES, FOR DISK)8 OFFSET N.ANM1,4 ;ANM1 OVERLAYS FID WORDS 2 AND 3, FNAM, OFFSET N.FNAM,S.FNAM ;FILENAMEI OFFSET N.FTYP,S.FTYP ;TYPES OFFSET N.FVER,2 ;VERSIONE1 OFFSET S.NFEN ;SIZE OF NAME FILE ENTRY IN BYTESW1 DEF$L S.NFEN ;FORC$ J ;PKW0863 OFFSET A.LODI,42. ;LAST OUTPUT DIRECTORY ;PKW086O- OFFSET A.LIDV,6 ;LAST INPUT DEVICE ;PKW086 2 OFFSET A.LIDI,42. ;LAST INPUT DIRECTORY ;PKW086+ S.LDV=6 ;LENGTH OF LAST DEVICE ;PKW086E. S.LDI=42. ;LENGTH OF LAST DIRECTORY ;PKW086. OFFSET A.LDVL,2 ;LAST DEVICE LENGTH ;PKW070/ OFFSET A.LDVA,2 ;LAST DEVICE ADDRESS ;PKW070F1 OFFSET A.LDIL,2 ;LAST DIRECTORY LENGTH ;PKW070 2 OFFSET A.LDIA,2 ;LAST DIRECTORY ADDRESS ;PKW070* OFFSET S.FSR5 ;LENGTH OF FSR5 ;PKW070;ED; %% 0-APR-83;CA; SMT033 - NAMED DIRECTORY SUPPORT BASED ON SIMON SZETO'S CHANGES ;S-; MCALL ALL THE FCS MACROS USED AT TOP LEVEL.Y .MACRO FCSMC$1 .MCALL OPEN$R,OPEN$W,OPEN$M,OPEN$U,OPEN$A,CLOSE$ * .MCALL OPNS$R,OPNS$W,OPNS$M,OPNS$U,OPNS$A2 .MCALL READ$,WRITE$,WAIT$,GET$,PUT$,DELET$,FINIT$8 .MCALL FSRSZ$,FDBDF$,FDAT$A,FDRC$A,FDOP$A,FDBF$A,FDBK$A1 .MCALL FDAT$R,FDRC$R,FDOP$R,FDBF$R,FDBK$R,NMBLK$  .MACRO FCSMC$ .ENDM FCSMC$P .ENDM FCSMC$B;N; OPEN FILE FOR READING. .MACRO OPEN$R FDB,LUN%3FILE, DON'T ENTER IT IN A DIRECTORYB,; FILE MAY BE CLOSED AND REOPENED BY FILE ID>; FILE SHOULD BE DELETED BEFORE THE PROGRAM EXITS OTHERWISE IT7; WILL REMAIN IN THE INDEX FILE WITH NO DIRECTORY ENTRYE. .MACRO OPNT$W FDB,LUN,FNPT,RACC,URBA,URBS,ERR .MCALL OPEN$F6 OPEN$ FDB,#FA.TMP!FO.WRT,LUN,FNPT,,RACC,URBA,URBS,ERR .ENDM OPNT$WU ; OPEN FILE.7 .MACRO OPEN$ FDB,FACC,LUN,FNPT,DFNB,RACC,URBA,URBS,ERR.! .MCALL FDOP$R,FDRC$R,ERR$,CMOV$BN FDOP$R FDB,LUN,FNPT,DFNB,FACC FDRC$R ,RACC,URBA,URBS .%}DEFINE OFFSETS RELATIVE TO BEGINNING OF THE DEFAULT DIRECTORY INFO DEF$I 0 OFFSET ,16.& OFFSET D.DFID,6 ;DEFAULT DIRECTORY ID* OFFSET D.DFDV,2 ;DEV NAME FOR DFLT DIR ID- OFFSET D.DFUN,2 ;UNIT NUMBER FOR DFLT DIR IDL;T! .IIF IDN,,,.MEXITE .MACRO FSROF$ ARG .ENDM FSROF$K .ENDM FSROF$.;A@; DEFINE OFFSETS RELATIVE TO THE FILE DESCRIPTOR POINTER, F.DSPT .MACRO FDSOF$ OFFSETO .MCALL OFFSET,DEF$I,DEF$L DEF$I 0;;* OFFSET N.DEVD,4 ;DEVICE STRING DESCRIPTOR- OFFSET N.DI%,FNPT,RACC,URBA,URBS,ERR .MCALL OPEN$Y. OPEN$ FDB,#FO.RD,LUN,FNPT,,RACC,URBA,URBS,ERR .ENDM OPEN$RC; OPEN FILE FOR WRITINGY. .MACRO OPEN$W FDB,LUN,FNPT,RACC,URBA,URBS,ERR .MCALL OPEN$O/ OPEN$ FDB,#FO.WRT,LUN,FNPT,,RACC,URBA,URBS,ERR .ENDM OPEN$WR; OPEN FILE FOR MODIFY. .MACRO OPEN$M FDB,LUN,FNPT,RACC,URBA,URBS,ERR .MCALL OPEN$K/ OPEN$ FDB,#FO.MFY,LUN,FNPT,,RACC,URBA,URBS,ERRB .ENDM OPEN$MC; OPEN FILE FOR UPDATE. .MACRO OPEN$U FDB,LUN,FNPT,RACC,URBA,URBS,ERR .MCALL OPEN$B/ O%RD,4 ;DIRECTORY STRING DESCRIPTORI- OFFSET N.FNMD,4 ;FILE NAME STRING DESCRIPTOR OFFSET S.FIDS .IF IDN,,E DEF$L S.FIDSE .MEXIT2 .ENDC .MACRO FDSOF$ ARG .ENDM FDSOF$2 .ENDM FDSOF$O F+ .MACRO DEF$G VAR,SIZ ;DEFINE GLOBAL OFFSETE .MCALL DEF$LS .IIF NB,VAR,.GLOBL VAR DEF$L VAR,SIZ .ENDM DEF$G: .MACRO DEF$N VAR,SIZ ;DEFINE NO OFFSET-CALCULATE THE SIZE .MCALL DEF$LO DEF$L ,SIZS .ENDM DEF$N) .MACRO DEF$I IVAL ;INITIALIZE DEFINITIONN) ...TPC=^O ;MACRO%PEN$ FDB,#FO.UPD,LUN,FNPT,,RACC,URBA,URBS,ERRE .ENDM OPEN$UU; OPEN FILE FOR APPEND. .MACRO OPEN$A FDB,LUN,FNPT,RACC,URBA,URBS,ERR .MCALL OPEN$B/ OPEN$ FDB,#FO.APD,LUN,FNPT,,RACC,URBA,URBS,ERRE .ENDM OPEN$AL P!; OPEN FILE FOR READING - SHARED$. .MACRO OPNS$R FDB,LUN,FNPT,RACC,URBA,URBS,ERR .MCALL OPEN$B5 OPEN$ FDB,#FA.SHR!FO.RD,LUN,FNPT,,RACC,URBA,URBS,ERR, .ENDM OPNS$R, ; OPEN FILE FOR WRITING - SHARED. .MACRO OPNS$W FDB,LUN,FNPT,RACC,URBA,URBS,ERR .MCALL OPEN$C6 OPEN$ FDB,#%4S PROGRAM COUNTERT .ENDM DEF$I .MACRO DEF$L SYM,SIZE .IF NB,SYMD SYM=^O<...TPC>E .ENDC .IF NB,SIZE ...TPC=^O<...TPC+SIZ> .ENDC .ENDM DEF$L; .MACRO RAD50$ STRING,MAXWRD ...PC2=.M .RAD50 /STRING/ .IF GT,<.-...PC2>-^O<2*MAXWRD>O4 .ERROR ;STRING RAD50 - STRING TOO LONG, TRUNCATED; .=^O<...PC2+<2*MAXWRD>> .MEXIT  .ENDC .REPT ^O/2>> .WORD 0 .ENDR .ENDM RAD50$,ZS .ENDM DEF$N) .MACRO DEF$I IVAL ;INITIALIZE DEFINITIONN) ...TPC=^O ;MACRO%kFA.SHR!FO.WRT,LUN,FNPT,,RACC,URBA,URBS,ERR .ENDM OPNS$WE; OPEN FILE FOR MODIFY - SHAREDA. .MACRO OPNS$M FDB,LUN,FNPT,RACC,URBA,URBS,ERR .MCALL OPEN$E6 OPEN$ FDB,#FA.SHR!FO.MFY,LUN,FNPT,,RACC,URBA,URBS,ERR .ENDM OPNS$MO; OPEN FILE FOR UPDATE - SHARED.. .MACRO OPNS$U FDB,LUN,FNPT,RACC,URBA,URBS,ERR .MCALL OPEN$O6 OPEN$ FDB,#FA.SHR!FO.UPD,LUN,FNPT,,RACC,URBA,URBS,ERR .ENDM OPNS$U; OPEN FILE FOR APPEND - SHARED.. .MACRO OPNS$A FDB,LUN,FNPT,RACC,URBA,URBS,ERR .MCALL OPEN$O6 OPEN$ F% Z6 .TITLE FCSMAC-FILE CONTROL SERVICES MACRO DEFINITIONS .IDENT /30.0/;6; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY6; BE USED OR COPIED ONLY IN ACCORDANCE WITH THE TERMS; OF SUCH LICENSE.;6; COPYRIGHT (c) 1982 BY DIGITAL EQUIPMENT CORPORATION.; ALL RIGHTS RESERVED.;; PETER H LIPMAN 5-DEC-72;; PREVIOUSLY MODIFIED BY;; ELLEN R. SIMICH; ANDREW C. GOLDSTEIN ; B. LEAVITT ; S. RUZICH ; E. POLLACK ; LONI BROWN ; S. RUZICH; ; MODIFIED:;; S. M. THOMAS 3% _DB,#FA.SHR!FO.APD,LUN,FNPT,,RACC,URBA,URBS,ERR .ENDM OPNS$A); OPEN A TEMP FILE AND MARK IT FOR DELETES0; CREATE, ACCESS, AND MARK FOR DELETE A NEW FILE; NOT ENTERED IN A DIRECTORY*; WILL BE DELETED WHEN CLOSED (DEACCESSED)F; WILL EVEN BE PROPERLY DELETED IF PROGRAM SHOULD TERMINATE ABNORMALLY. .MACRO OPNT$D FDB,LUN,FNPT,RACC,URBA,URBS,ERR .MCALL OPNT$W# OPNT$W FDB,LUN,FNPT,RACC,URBA,URBS BCS .+6 JSR PC,.MRKDL ERR$ ERRA .ENDM OPNT$DL;F; OPEN A TEMP FILE=; CREATE AND ACCESS A NEW &'&SAME BLOCK$. .MACRO OFNB$M FDB,LUN,FNPT,RACC,URBA,URBS,ERR .MCALL OFNB$F/ OFNB$ FDB,#FO.MFY,LUN,FNPT,,RACC,URBA,URBS,ERR .ENDM OFNB$M +; OPEN FILE FOR UPDATE - BY FILE NAME BLOCKB. .MACRO OFNB$U FDB,LUN,FNPT,RACC,URBA,URBS,ERR .MCALL OFNB$,/ OFNB$ FDB,#FO.UPD,LUN,FNPT,,RACC,URBA,URBS,ERR .ENDM OFNB$UR+; OPEN FILE FOR APPEND - BY FILE NAME BLOCKL. .MACRO OFNB$A FDB,LUN,FNPT,RACC,URBA,URBS,ERR .MCALL OFNB$L/ OFNB$ FDB,#FO.APD,LUN,FNPT,,RACC,URBA,URBS,ERR .ENDM OFNB$AO ; OPEN FILE &R$ LDFDB$ FDBM3 CMOV$W OUTADR,F.NRBD+2 ;NEXT RECORD BUFFER ADDRESS. CMOV$W OUTCNT,F.NRBD ;NEXT RECORD BUFFER SIZE .GLOBL .PUT JSR PC,.PUT ERR$ ERR .ENDM PUT$.; PUT A RECORD - RANDOM MODE/ .MACRO PUT$R FDB,OUTADR,OUTCNT,LRCNM,HRCNM,ERR  .MCALL LDFDB$,CMOV$W,ERR$ LDFDB$ FDBS3 CMOV$W OUTADR,F.NRBD+2 ;NEXT RECORD BUFFER ADDRESSL. CMOV$W OUTCNT,F.NRBD ;NEXT RECORD BUFFER SIZE/ CMOV$W LRCNM,F.RCNM+2 ;LOW ORDER RECORD NUMBER. CMOV$W HRCNM,F.RCNM ;HIGH ORDER RECORD NUMBER .GLOBL .PUT&- BY FILE NAME BLOCK7 .MACRO OFNB$ FDB,FACC,LUN,FNPT,DFNB,RACC,URBA,URBS,ERRO! .MCALL FDOP$R,FDRC$R,ERR$,CMOV$BA FDOP$R FDB,LUN,FNPT,DFNB,FACC FDRC$R ,RACC,URBA,URBS  .GLOBL .OPFNB JSR PC,.OPFNB ERR$ ERRP .ENDM OFNB$ E; CLOSE THE FILE .MACRO CLOSE$ FDB,ERR .MCALL LDFDB$,ERR$R LDFDB$ FDBN .GLOBL .CLOSE JSR PC,.CLOSE ERR$ ERRM .ENDM CLOSE$R; READ A VIRTUAL BLOCK3 .MACRO READ$ FDB,BKAD,BKSZ,BKVB,BKEF,BKST,BKDN,ERRF .MCALL FDBK$R,ERR$R) FDBK$R FDB,BKAD,BKSZ,BKVB,BKEF,& JSR PC,.PUT ERR$ ERR .ENDM PUT$R); PUT A RECORD - SEQUENTIAL MODE STRICTLYT# .MACRO PUT$S FDB,OUTADR,OUTCNT,ERRB .MCALL LDFDB$,CMOV$W,ERR$ LDFDB$ FDBP3 CMOV$W OUTADR,F.NRBD+2 ;NEXT RECORD BUFFER ADDRESS . CMOV$W OUTCNT,F.NRBD ;NEXT RECORD BUFFER SIZE .GLOBL .PUTSQ JSR PC,.PUTSQ ERR$ ERRR .ENDM PUT$S E; DELETE A FILES .MACRO DELET$ FDB,ERR .MCALL LDFDB$,ERR$ LDFDB$ FDB  .GLOBL .DELET JSR PC,.DELET ERR$ ERRC .ENDM DELET$C; TRUNCATE A FILE  .MACRO TRUNC$ FDB&GLOBL .OPEN JSR PC,.OPENI ERR$ ERR .ENDM OPEN$ D$; OPEN FILE FOR READING - BY FILE ID. .MACRO OFID$R FDB,LUN,FNPT,RACC,URBA,URBS,ERR .MCALL OFID$I. OFID$ FDB,#FO.RD,LUN,FNPT,,RACC,URBA,URBS,ERR .ENDM OFID$RB$; OPEN FILE FOR WRITING - BY FILE ID. .MACRO OFID$W FDB,LUN,FNPT,RACC,URBA,URBS,ERR .MCALL OFID$./ OFID$ FDB,#FO.UPD,LUN,FNPT,,RACC,URBA,URBS,ERRA .ENDM OFID$WB#; OPEN FILE FOR MODIFY - BY FILE IDR. .MACRO OFID$M FDB,LUN,FNPT,RACC,URBA,URBS,ERR .MCALL OFID$,/ OFID$ FDB,#&BKST,BKDN .GLOBL .READA JSR PC,.READA ERR$ ERR, .ENDM READ$; WRITE VIRTUAL BLOCKP4 .MACRO WRITE$ FDB,BKAD,BKSZ,BKVB,BKEF,BKST,BKDN,ERR .MCALL FDBK$R,ERR$B) FDBK$R FDB,BKAD,BKSZ,BKVB,BKEF,BKST,BKDNR .GLOBL .WRITE JSR PC,.WRITE ERR$ ERR. .ENDM WRITE$B;R/; WAIT FOR I/O COMPLETION AFTER READ$ OR WRITE$O; .MACRO WAIT$ FDB,EFN,BKST,ERR! .MCALL LDFDB$,CMOV$W,CMOV$B,ERR$K LDFDB$ FDBE CMOV$B EFN,F.EFNK CMOV$W BKST,F.BKSTF .GLOBL .WAITR JSR PC,.WAIT ERR$ ERRS .ENDM WAI&|FO.MFY,LUN,FNPT,,RACC,URBA,URBS,ERR .ENDM OFID$ME#; OPEN FILE FOR UPDATE - BY FILE IDL. .MACRO OFID$U FDB,LUN,FNPT,RACC,URBA,URBS,ERR .MCALL OFID$F/ OFID$ FDB,#FO.UPD,LUN,FNPT,,RACC,URBA,URBS,ERRE .ENDM OFID$U$#; OPEN FILE FOR APPEND - BY FILE ID . .MACRO OFID$A FDB,LUN,FNPT,RACC,URBA,URBS,ERR .MCALL OFID$D/ OFID$ FDB,#FO.APD,LUN,FNPT,,RACC,URBA,URBS,ERRR .ENDM OFID$A$; OPEN FILE - BY FILE ID7 .MACRO OFID$ FDB,FACC,LUN,FNPT,DFNB,RACC,URBA,URBS,ERRS! .MCALL FDOP$R,FDRC$R,ERR$,CMOV$&&T$ B; GET A RECORD! .MACRO GET$ FDB,INADR,MAXCNT,ERRN .MCALL LDFDB$,CMOV$W,ERR$ LDFDB$ FDBR2 CMOV$W INADR,F.URBD+2 ;USER RECORD BUFFER ADDRESS. CMOV$W MAXCNT,F.URBD ;USER RECORD BUFFER SIZE .GLOBL .GET JSR PC,.GET ERR$ ERRW .ENDM GET$R; GET A RECORD - IN RANDOM MODER. .MACRO GET$R FDB,INADR,MAXCNT,LRCNM,HRCNM,ERR .MCALL LDFDB$,CMOV$W,ERR$ LDFDB$ FDBC2 CMOV$W INADR,F.URBD+2 ;USER RECORD BUFFER ADDRESS. CMOV$W MAXCNT,F.URBD ;USER RECORD BUFFER SIZE/ CMOV$W LRCNM,F.RCNM+2 ;LOW & aBO FDOP$R FDB,LUN,FNPT,DFNB,FACC FDRC$R ,RACC,URBA,URBSP .GLOBL .OPFID JSR PC,.OPFID ERR$ ERRF .ENDM OFID$ ,,; OPEN FILE FOR READING - BY FILE NAME BLOCK. .MACRO OFNB$R FDB,LUN,FNPT,RACC,URBA,URBS,ERR .MCALL OFNB$N. OFNB$ FDB,#FO.RD,LUN,FNPT,,RACC,URBA,URBS,ERR .ENDM OFNB$RC,; OPEN FILE FOR WRITING - BY FILE NAME BLOCK. .MACRO OFNB$W FDB,LUN,FNPT,RACC,URBA,URBS,ERR .MCALL OFNB$ / OFNB$ FDB,#FO.WRT,LUN,FNPT,,RACC,URBA,URBS,ERRB .ENDM OFNB$W,+; OPEN FILE FOR MODIFY - BY FILE N&  ORDER RECORD NUMBERO. CMOV$W HRCNM,F.RCNM ;HIGH ORDER RECORD NUMBER .GLOBL .GET JSR PC,.GET ERR$ ERRO .ENDM GET$R*; GET A RECORD - SEQUENTIAL MODE STRICTLY" .MACRO GET$S FDB,INADR,MAXCNT,ERR .MCALL LDFDB$,CMOV$W,ERR$ LDFDB$ FDB.2 CMOV$W INADR,F.URBD+2 ;USER RECORD BUFFER ADDRESS. CMOV$W MAXCNT,F.URBD ;USER RECORD BUFFER SIZE .GLOBL .GETSQ JSR PC,.GETSQ ERR$ ERR$ .ENDM GET$S ;%; PUT A RECORD - RANDOM OR SEQUENTIALC" .MACRO PUT$ FDB,OUTADR,OUTCNT,ERR .MCALL LDFDB$,CMOV$W,ER ''O FDRC$A RACC,URBA,URBS  .MCALL FDOFF$,CBYTE$,CWORD$ FDOFF$ DEF$LR CBYTE$ ,F.RACC$ CWORD$ ,F.URBD+2. CWORD$ ,F.URBDF .ENDM FDRC$AA7; FILE OPEN SECTION OF FDB-ASSEMBLY TIME INITIALIZATIONA( .MACRO FDOP$A LUN,FNPT,DFNB,FACC,FACTRL .MCALL FDOFF$,CBYTE$,CWORD$ FDOFF$ DEF$LY CBYTE$ ,F.LUNC CWORD$ ,F.DSPTC CWORD$ ,F.DFNBC CBYTE$ ,F.FACCC CWORD$ ,F.ACTLN .ENDM FDOP$A >; BUFFER DECRIPTOR SECTION OF FDB-ASSEMBLY TIME INITIALIZATION'BKST,F.BKST ;ADR OF I/O STATUS BLOCK( CMOV$W BKDN,F.BKDN ;ADR OF I/O DONE AST .ENDM FDBK$RR I6; DEFINE THE SIZE OF THE FDB AS A LOCAL SYMBOL (S.FDB), .MACRO FDBSZ$ ;DEFINE S.FDB AS SIZE OF FDB .IIF DF,S.FDB,.MEXITB .MCALL FDOFF$,DEF$L3 FDOFF$ DEF$N ;INVOKE OFFSET DEFINITIONS BUT DON'TF% ;ACTUALLY DEFINE THE OFFSET NAMESC DEF$L S.FDB ;NOW DEFINE S.FDBE .ENDM FDBSZ$O<; INVOKE FDOFF$ TO DEFINE OFFSETS AS LOCAL - DO IT ONCE ONLY .MACRO FDOF$L .MCALL FDOFF$ FDOFF$ DEF$LS .ENDM F'a! .MACRO FDBF$A EFN,OVBS,MBCT,MBFGD .MCALL FDOFF$,CBYTE$,CWORD$ FDOFF$ DEF$LR CBYTE$ ,F.EFN  CWORD$ ,F.OVBSD CBYTE$ ,F.MBCTM CBYTE$ ,F.MBFG .ENDM FDBF$AA:; BLOCK ACCESS SECTION OF FDB ASSEMBLY TIME INITIALIZATION, .MACRO FDBK$A BKAD,BKSZ,BKVB,BKEF,BKST,BKDN .MCALL FDOFF$,CBYTE$,CWORD$ FDOFF$ DEF$L> CWORD$ ,F.BKDS+2F CWORD$ ,F.BKDSF- CWORD$ ,F.BKVB+2 ;STORE LOW ORDER ONLY  CBYTE$ ,F.BKEFS CWORD$ ,F.BKSTT CWORD$ ,F.B'DOF$LF;S(; DEFINE FILE NAME BLOCK AT ASEMBLY TIME+ .MACRO NMBLK$ FNAME,FTYPE,VERS,DEVNAM,UNITI .MCALL RAD50$,CWORD$,NBOFF$1 NBOFF$ DEF$L ;DEFINE NAME BLOCK OFFSETS LOCALLY  .IIF NDF,...PC1,...PC1=0 ...PC3=...PC1 ;PRESERVE ...PC1 ...PC1=.F .=...PC1+N.FNAM RAD50$ ,S.FNAM/2 .=...PC1+N.FTYP RAD50$ ,S.FTYP/2 CWORD$ ,N.FVERN .IF NB,DEVNAM .=...PC1+N.DVNM .WORD "DEVNAM .ENDC CWORD$ ,N.UNITC .=...PC1+S.FNBD ...PC1=...PC3 ;RESTORE ...PC1$ .ENDM NMB'lKDN. .ENDM FDBK$AN B6; FILE ATTRIBUTE SECTION OF FDB-RUNTIME INITIALIZATION+ .MACRO FDAT$R FDB,RTYP,RATT,RSIZ,CNTG,ALOCD .MCALL LDFDB$,CMOV$W,CMOV$B" LDFDB$ FDB ;SAVE R0 AND LOAD FDB CMOV$B RTYP,F.RTYPN CMOV$B RATT,F.RATT  CMOV$W RSIZ,F.RSIZR CMOV$W CNTG,F.CNTGV CMOV$W ALOC,F.ALOCC .ENDM FDAT$RE5; RECORD ACCESS SECTION OF FDB-RUNTIME INITIALIZATIOND! .MACRO FDRC$R FDB,RACC,URBA,URBSV .MCALL LDFDB$,CMOV$W,CMOV$B LDFDB$ FDBF CMOV$B RACC,F.RACC> CMOV$W URBA,F.URBD+2> C'tLK$$;<; INVOKE NBOFF$ TO DEFINE OFFSETS AS LOCAL - DO IT ONCE ONLY .MACRO NBOF$L .MCALL NBOFF$ NBOFF$ DEF$LO .ENDM NBOF$LO,; IF THE FDB PARAM IS NULL OR R0, THEN DON'T*; GENERATE A MOVE OF FDB TO R0. OTHERWISE; GENERATE THE MOVEC .MACRO LDFDB$ FDB% .IIF B,FDB,.MEXIT ;IF NULL THEN EXIT. .NTYPE PAR$$$,FDB' .IIF EQ,PAR$$$,.MEXIT ;IF R0 THEN EXITN$ MOV FDB,R0 ;ELSE GENERATE THE MOVE .ENDM LDFDB$C D9; CONDITIONALLY MOVE A WORD TO THE SPECIFIED OFFSET OF R0E .MACRO CMOV$W V'h,ERR .MCALL LDFDB$,ERR$ LDFDB$ FDBR .GLOBL .TRUNC JSR PC,.TRUNC ERR$ ERRL .ENDM TRUNC$U; &; INITIALIZE THE FILE CONTROL SERVICES .MACRO FINIT$ .GLOBL .FINIT JSR PC,.FINIT .ENDM FINIT$B; ;R" .MACRO FSRSZ$ NFILES,BFSPAC,PSECT .MCALL BDOFF$,DEF$L .IF NDF,S.BFHDP BDOFF$ DEF$N DEF$L S.BFHDT .ENDC .GLOBL .FSRCB .PSECT $$FSR1,GBL,OVR,D .IF NB, .BLKB NFILES*S.BFHD+T .IFFP .BLKB NFILES*D .ENDC .PSECT PSECTL .ENDM FSRSZ$N>; 'MOV$W URBS,F.URBD$ .ENDM FDRC$RA1; FILE OPEN SECTION OF FDB-RUNTIME INITIALIZATIONA, .MACRO FDOP$R FDB,LUN,FNPT,DFNB,FACC,FACTRL .MCALL LDFDB$,CMOV$W,CMOV$B LDFDB$ FDBE CMOV$B LUN,F.LUNC CMOV$W FNPT,F.DSPTC CMOV$W DFNB,F.DFNBC CMOV$B FACC,F.FACCC CMOV$W FACTRL,F.ACTLO .ENDM FDOP$RC5; BLOCK BUFFER SECTION OF FDB-RUNTIME INITIALIZATION.E% .MACRO FDBF$R FDB,EFN,OVBS,MBCT,MBFGC .MCALL LDFDB$,CMOV$W,CMOV$B LDFDB$ FDB$ CMOV$B EFN,F.EFN ;EVENT FLAG TO USE) CMOV$W OVBS,F.OVBS ;S' FILE DESCRIPTOR BLOCK - ALLOCATION OF SPACE AT ASSEMBLY TIME .MACRO FDBDF$ .MCALL FDBSZ$ FDBSZ$ ...PC1=.I .BLKB S.FDB .ENDM FDBDF$ A;; FILE ATTRIBUTE SECTION OF FDB-ASSEMBLY TIME INITIALIATION' .MACRO FDAT$A RTYP,RATT,RSIZ,CNTG,ALOC .MCALL FDOFF$,CBYTE$,CWORD$ FDOFF$ DEF$LF CBYTE$ ,F.RTYPT CBYTE$ ,F.RATTB CWORD$ ,F.RSIZR CWORD$ ,F.CNTG. CWORD$ ,F.ALOCP .ENDM FDAT$A.;; RECORD ACCESS SECTION OF FDB-ASSEMBLY TIME INITIALIZATIONR .MACR' ;IZE OF BLOCK BUFFER# CMOV$B MBCT,F.MBCT ;NO. OF BUFFERS / CMOV$B MBFG,F.MBFG ;READ AHEAD OR WRITE BEHINDF .ENDM FDBF$RB4; BLOCK ACCESS SECTION OF FDB-RUNTIME INITIALIZATION0 .MACRO FDBK$R FDB,BKAD,BKSZ,BKVB,BKEF,BKST,BKDN# .MCALL LDFDB$,CMOV$B,CMOV$W,CMOV$2C LDFDB$ FDBF2 CMOV$W BKAD,F.BKDS+2 ;BLOCK ADDRESS-MEMORY BUFFER. CMOV$W BKSZ,F.BKDS ;SIZE OF TRANSFER IN BYTES. CMOV$2 BKVB,F.BKVB ;ADDRESS OF 2 WORD VIRTUAL" ;BLOCK NUMBER, MOVE BOTH WORDS CMOV$B BKEF,F.BKEF ;EVENT FLAGS, CMOV$W (Y(/T(R0) ;FIRST WORD TO FDB( ADD #2,(SP) ;CALCULATE ADR OF 2ND WORD) MOV @(SP)+,OFFSET+2(R0) ;2ND WORD TO FDBM .ENDM CMOV$2O0; CONDITIONALLY ASSEMBLE .BYTE DIRECTIVE FOR VAR7; AT THE SPECIFIED OFFSET FROM THE BEGINNING OF THE FDBV .MACRO CBYTE$ VAR,OFFSETI .IF NB,VAR ;IF NON NULLO ...PC2=. ;SAVE PC.- .=...PC1+OFFSET ;SET PC TO SPECIFIED OFFSETO .BYTE VAR ;ASSEMBLE THE BYTE .=...PC2 ;RESTORE PC .ENDC .ENDM CBYTE$M/; CONDITIONALLY ASSEMBLE WORD DIRECTIVE FOR VARM7; AT THE SPE(  OUTPUT DEVICE ;OFF IF NOT1, DEFIN$ FD.TTY,4 ;ON IF THIS DEVICE IS A TTY5 DEFIN$ FD.DIR,10 ;ON IF DIRECTORY DEVICE, OFF IF NOTE0 DEFIN$ FD.SDI,20 ;ON IF SINGLE DIRECTORY DEVICE* DEFIN$ FD.SQD,40 ;ON IF SEQUENTIAL DEVICE# DEFIN$ FD.ISP,2000 ;INPUT SPOOLINGL$ DEFIN$ FD.OSP,4000 ;OUTPUT SPOOLING DEFIN$ FD.PSE,10000 DEFIN$ FD.COM,20000 DEFIN$ FD.F11,40000 DEFIN$ FD.MNT,100000E;A:; N.STAT BITS - FILE NAME BLOCK STATUS WORD - SET BY PARSE2 DEFIN$ NB.VER,1 ;SET IF FILE VERSION WAS EXPLICIT/(]CIFIED OFFSET FROM THE BEGINNING OF THE FDBL .MACRO CWORD$ VAR,OFFSET@ .IF NB,VAR ;IF VAR IS NOT NULL ...PC2=. ;SAVE THE PCO5 .=...PC1+OFFSET ;SET THE PC TO THE SPECIFIED OFFSETS .WORD VAR ;ASSEMBLE THE WORD .=...PC2 ;RESTORE THE PC .ENDC .ENDM CWORD$N; 5; MACRO TO INSERT AN ASCII STRING AT SPECIFIED OFFSET ;T& .MACRO CSTRG$ VAR,OFFSET,MAXLG,FILL=04 .IF NB, ; IF THE STRING TO INSERT IS NON NULL, .NCHR ...PC3, ; PICK UP STRING LENGTH1 .IF GE MAXLG-...PC3 ; VERIFY(I DEFIN$ NB.TYP,2 ;SET IF FILE TYPE WAS EXPLICITY/ DEFIN$ NB.NAM,4 ;SET IF FILE NAME WAS EXPLICIT , DEFIN$ NB.SVR,10 ;SET IF * IN VERSION FIELD) DEFIN$ NB.STP,20 ;SET IF * IN TYPE FIELDD) DEFIN$ NB.SNM,40 ;SET IF * IN NAME FILEDD7 DEFIN$ NB.DIR,100 ;SET IF EXPLICIT DIRECTORY SPECIFIEDO3 DEFIN$ NB.DEV,200 ;SET IF DEVICE NAME WAS EXPLICIT25 DEFIN$ NB.SD1,400 ;SET IF * IN PROJECT NUMBER OF PPN9 DEFIN$ NB.SD2,1000 ;SET IF * IN PROGRAMMER NUMBER OF PPN- DEFIN$ NB.ANS,2000 ;SET IF QUOTED NAME FOUNDC7 D( IT IS NOT TOO LONGT ...PC2=. ; SAVE CURRENT PC+ .=...PC1+OFFSET ; ADDRESS DESIRED OFFSETI) .ASCII ^VAR^ ; INSERT VALUE AT OFFSET.- .REPT MAXLG-...PC3 ; PAD TO MAXIMUM LENGTHS .BYTE FILLA .ENDR$ .=...PC2 ; RETURN TO PREVIOUS PC .IFF .ERROR ; ARGUMENT TOO LONGS .ENDCC .ENDC .ENDM CSTRG$O;E?; MACROS TO ACCESS FIELDS IN THE STRUCTURE CURRENTLY POINTED TOI; BY R0.;T .MACRO CGET$B OFFSET,VARH" .IIF NB MOVB OFFSET(R0),VAR .ENDM .MACRO CGET$W OFFSET,(TEFIN$ NB.WCH,4000 ;WILD CHARACTER PROCESSING REQUIREDF>; ***** BEWARE MORE BITS IN N.STAT USED BY FCS AND PIP LOCALLY$; CHECK DEFINITION SECTION IN FCSPRE;PH; F.RTYP VALUES - RECORD TYPE BYTE - ***** NOTE THESE ARE VALUES, NOT BI& DEFIN$ R.FIX,1 ;FIXED LENGTH RECORDS) DEFIN$ R.VAR,2 ;VARIABLE LENGTH RECORDSF# DEFIN$ R.SEQ,3 ;SEQUENCED RECORDSB& DEFIN$ R.STM,4 ;STREAM ASCII RECORDS; ; F.FACC BITS - FILE ACCESS BYTE" DEFIN$ FA.RD,1 ;SET IF READ ONLY+ DEFIN$ FA.WRT,2 ;SET IF ACCESSED FOR WR(TVAR ! .IIF NB MOV OFFSET(R0),VARV .ENDM 0; DEFINE FCS BITS AND VALUES LOCALLY OR GLOBALLY8; CALL WITH DEF$G FOR GLOBAL DEFINITIONS, CONVENTIONALLY>; CALLED WITH DEF$L FOR LOCAL, BUT ANYTHING NOT EQUAL TO DEF$G ; WILL DOR .MACRO FCSBT$ GLOBL .MCALL DEFIN$ ...GBL=0T" .IIF IDN,,,...GBL=1;G;%; F.RATT BITS - RECORD ATTRIBUTE BYTER. DEFIN$ FD.FTN,1 ;FORTRAN CARRIAGE CONTROL BIT9 DEFIN$ FD.CR,2 ;INSERT CARRIAGE RETURNS BETWEEN RECORDS' DEFIN$ FD.PRN,4 ; R.SEQ/VFC P(\ITEN* DEFIN$ FA.EXT,4 ;SET IF ACCESS FOR EXTEND+ DEFIN$ FA.CRE,10 ;SET IF CREATING NEW FILEE, DEFIN$ FA.TMP,20 ;SET IF CREATING TEMP FILE' DEFIN$ FA.SHR,40 ;SET IF SHARED ACCESSE;DA; THE FOLLOWING TWO NAMES APPLY TO THE SAME CONTROL BIT IN F.FACC;@; FA.APD IS ONLY USED IF THE FILE IS AN EXISTING FILE (FA.CRE=0)=; FA.NSP IS ONLY USED IF THE FILE IS BEING CREATED (FA.CRE=1)A;IH; BIT VALUE 200 IN F.FACC IS RESERVED FOR USE BY RSTS/E, FOR THEIR FO.TS; TASK IMAGE FILE ACCESS.;; 3 DEFIN$ FA.APD,1( 6AR,OFFSET .IF IDN,<#0>,F CLR OFFSET(R0)C .MEXITT .ENDC .IIF NB,VAR, MOV VAR,OFFSET(R0) .ENDM CMOV$WOB; CONDITIONALLY GENERATE A MOVE BYTE TO THE SPECIFIED OFFSET OF R0 .MACRO CMOV$B VAR,OFFSET  .IF IDN,<#0>,E CLRB OFFSET(R0) .MEXIT$ .ENDC! .IIF NB,VAR, MOVB VAR,OFFSET(R0). .ENDM CMOV$B$C; CONDITIONALLY MOVE 2 WORDS FROM VAR TO THE SPECIFIED OFFSET OF R0R .MACRO CMOV$2 VAR,OFFSETC .IIF B,VAR,.MEXIT+ MOV VAR,-(SP) ;ADDRESS OF 2 WORDS TO STATE( MOV @(SP),OFFSE( RINT FILEI: DEFIN$ FD.BLK,10 ;1 IF RECORDS CANNOT CROSS BLOCK BOUNDAR"; F.RACC BITS - RECORD ACCESS BYTE1 DEFIN$ FD.RWM,1 ;ON IF READ/WRITE,OFF IF GET/PUTN0 DEFIN$ FD.RAN,2 ;ON IF RANDOM,OFF IF SEQUENTIAL8 DEFIN$ FD.PLC,4 ;ON IF PARTIAL LOCATE,OFF IF SEQUENTIAL3 DEFIN$ FD.INS,10 ;ON IF PUT SEQUENTIAL INSERT MODEG ;OFF IF TRUNCATE MODE <; F.RCTL BITS - RECORD CONTROL BYTE - DEVICE CHARACTERISTICS9 DEFIN$ FD.REC,1 ;ON IF RECORD ORIENTED DEV, OFF IF BLK OE6 DEFIN$ FD.CCL,2 ;ON IF CARRIAGE CONTROL ))L00 ;SET IF APPENDING (POSIT TO EOF)S; DEFIN$ FA.NSP,100 ;SET IF INHIBITING SUPERSEDE ON FILE CRED;N" DEFIN$ FO.RD,FA.RD ;OPEN FOR READ< DEFIN$ FO.WRT,FA.WRT!FA.EXT!FA.CRE ;OPEN FOR WRITE (CREATE)4 DEFIN$ FO.APD,FA.WRT!FA.EXT!FA.APD ;OPEN FOR APPEND& DEFIN$ FO.MFY,FA.WRT ;OPEN FOR MODIFY- DEFIN$ FO.UPD,FA.WRT!FA.EXT ;OPEN FOR UPDATEE;F*; DEFINE THE NEW BITS IN F.ACTL IN THE FDB'; SEVERAL OF THESE BITS ALSO HAVE LOCAL (; DEFINITIONS IN FCSPRE.MAC. HOWEVER ALL$; DEFINITONS ARE MUTUALLY EXCLUSIVE.)bTTRIBUTESM OFFSET F.RSIZ,2 ;RECORD SIZE5 OFFSET F.HIBK,4 ;HIGHEST VIRTUAL BLOCK NO. ALLOCATED * OFFSET F.EFBK,4 ;END OF FILE BLOCK NUMBER/ OFFSET F.FFBY,2 ;FIRST FREE BYTE IN LAST BLOCKN/ OFFSET S.FATT ;SIZE OF FILE ATTRIBUTE SECTIONT; RECORD ACCESS SECTIONA OFFSET F.RACC,1 ;RECORD ACCESS OFFSET F.RCTL,1 ;RECORD CONTROL. OFFSET F.BKDS ;BLOCK I/O - BUFFER DESCRIPTOR1 OFFSET F.URBD,4 ;USER'S RECORD BUFFER DESCRIPTORI5 OFFSET F.BKST ;BLOCK I/O - I/O STATUS BLOCK ADDRESS./ OFFSET F.NRBD)H;;1 DEFIN$ FA.ENB,100000 ; ENABLE USE OF F.ACTL WORD0= DEFIN$ FA.SEQ,40000 ;ENABLE SEQUENTIAL PROCESSING ONLY (NON-A( DEFIN$ FA.WCK,20000 ;ENABLE WRITE CHECK: DEFIN$ FA.POS,10000 ; FILE CREATION POS. CTRL FOR MAGTAPE7 DEFIN$ FA.RWD,4000 ; ENABLE REWIND CONTROL FOR MAGTAPEO0 DEFIN$ FA.EXL,4000 ;ENABLE MANUAL BLOCK LOCKING* DEFIN$ FA.LKL,2000 ;ENABLE BLOCK BLOCKING& DEFIN$ FA.EXC,2000 ;EXCLUSIVE USE BIT6 DEFIN$ FA.DLK,1000 ; ENABLE NO LOCK ON ABNORMAL CLOSE9 DEFIN$ CH.AND,1 ;ANSI FORMAT MAG TAPE: ),2 ;NEXT RECORD BUFFER DESCRIPTORO1 OFFSET F.BKDN ;BLOCK I/O - I/O DONE AST ADDRESSO OFFSET ,2 ;2ND WORD OF NRBD;+ OFFSET F.OVBS ;OVERRIDE BLOCK BUFFER SIZEI5 OFFSET F.NREC,2 ;NEXT RECORD ADDRESS IN BLOCK BUFFERF% OFFSET F.EOBB,2 ;END OF BLOCK BUFFERS2 OFFSET F.CNTG ;SIZE IN BLOCKS OF CONTIGUOUS FILE2 OFFSET F.RCNM,2 ;RECORD NUMBER FOR RANDOM RECORDS4 OFFSET F.STBK ;ADDRESS TO READ IN STATISTICS BLOCK OFFSET ,2 ;2ND WORD OF RCNM 4 OFFSET F.ALOC,2 ;ALLOCATE THIS MUCH SPACE WHEN NEED# ;T)'D' (VARIABLE LENE, ;OR 'F' (FIXED LENGTH, INCLUDING BLOCK I;AH; F.MBFG BITS - MULTIPLE BUFFERING FLAG WORD - USER CONTROLLED AND SET B9 DEFIN$ FD.RAH,1 ;READ AHEAD IF SET - THIS OR WRITE BEHINP0 DEFIN$ FD.WBH,2 ;WRITE BEHIND IF SET - NOT BOTH6; ***** BEWARE MORE BITS IN F.MBFG USED IN FCS LOCALLY;A!; DEFINE THE .CTRL FUNCTION CODES2;  DEFIN$ FF.RWD,1 ; REWINDF2 DEFIN$ FF.POE,2 ; POSITION TO END OF VOLUME (SET) DEFIN$ FF.NV,3 ; NEXT VOLUME DEFIN$ FF.SPC,4 ; SPACE* DEFIN$ FF.CHR,5 ; G)>O EXTEND, + = CONTIG, - = NOTP; FILE OPEN SECTIONB% OFFSET F.LUN,1 ;LOGICAL UNIT NUMBERE OFFSET F.FACC,1 ;FILE ACCESSE) OFFSET F.DSPT,2 ;FILE DESCRIPTOR POINTERF1 OFFSET F.DFNB,2 ;DEFAULT FILE NAME BLOCK ADDRESS; BLOCK BUFFER SECTION. OFFSET F.BKEF ;BLOCK I/O - EVENT FLAG NUMBER( OFFSET F.EFN,1 ;EVENT FLAG USED IN QIO" OFFSET F.BKP1,1 ;BOOKKEEPING BITS, OFFSET F.ERR,2 ;1ST BYTE ERROR RETURN CODE& ;2ND BYTE FOR QI/O ERROR INDICATOR4 OFFSET F.MBCT,1 ;NUMBER OF BUFFERS TO USE (DESIRE)ET APC CHARACTERISTICS! DEFIN$ FF.RWF,6 ;ERS REWIND FILEB;KH; DEFINE BITS USED IN .FCTYP TO DESCRIBE FCS CONDITIONAL ASSEMBLY OPTION;T;8 DEFIN$ FT.ANI,1 ; ANSI MAG TAPE FCS (CONDITIONAL R$$ANI0 DEFIN$ FT.BBF,2 ; BIG BUFFERED FCS (R$$BBF > 1)2 DEFIN$ FT.MBF,4 ; MULTI BUFFERED FCS (R$$MBF > 1);Y;A .MACRO FCSBT$ ARG .ENDM FCSBT$2 .ENDM FCSBT$F;D,; EQUATE THE SYMBOL WITH ITS SPECIFIED VALUE3; DEFINE IT GLOBALLY IF ...GBL=1, OTHERWISE LOCALLYD .MACRO DEFIN$ SYM,VAL .IIF EQ,...GBL-1,)D)' OFFSET F.MBC1,1 ;NO. OF BUFFERS IN USEE2 OFFSET F.MBFG,1 ;MULTIPLE BUFFERING CONTROL FLAGS9 OFFSET F.BGBC,1 ;BIG BUFFER BLOCK COUNT (SIZE IN BLOCKS)R, ;ALSO USED FOR ANSI TAPE INPUT BUFFER OF- OFFSET F.VBSZ,2 ;VIRTUAL BLOCK SIZE IN BYTES# OFFSET F.BBFS,2 ;BLOCK BUFFER SIZEA1 OFFSET F.BKVB ;BLOCK I/O - VIRTUAL BLOCK NUMBER& OFFSET F.VBN,4 ;VIRTUAL BLOCK NUMBER/ OFFSET F.BDB,2 ;BLOCK BUFFER DESCRIPTOR BLOCKD( OFFSET F.SPDV,2 ;SPOOL DEVICE INDICATOR' OFFSET F.SPUN,1 ;SPOOL UNIT DESIGNATO) .GLOBL SYM SYM=^O .ENDM DEFIN$6 R0; FILE DESCRIPTOR BLOCK OFFSETS DEFINITION MACRO>; CALL WITH ONE OF THE FOLLOWING MACRO NAMES DEF$L,DEF$G,DEF$N0; TO DEFINE LOCAL OFFSETS, DEFINE TOTAL OFFSETS,2; OR DEFINE NO OFFSETS. THE LATTER SETS THINGS UP); SO THAT ONLY THE SIZE OF THE FDB CAN BE) ; DEFINED. .MACRO FDOFF$ OFFSETF .MCALL OFFSET,DEF$I,NBOFF$  NBOFF$ OFFSET$ DEF$I 0 ;INIT THE DEFINITION MACRO; FILE ATTRIBUTE SECTION OFFSET F.RTYP,1 ;RECORD TYPE$# OFFSET F.RATT,1 ;RECORD A) R)9 OFFSET F.CHR,1 ;ACP VOLUME CHARACTERISTICS SUMMARY BYTE1% OFFSET F.ACTL,2 ;ACCESS CONTROL WORDF5 OFFSET F.SEQN,2 ;SEQUENCE NUMBER FOR SEQUENCED FILES; FILE NAME BLOCK SECTIONI1 OFFSET F.FNB,S.FNB ;BEGINNING OF FILE NAME BLOCKE! .IIF IDN,,,.MEXIT  .IF IDN,,B* .GLOBL F.FNAM,F.FTYP,F.FVER,F.DVNM,F.UNIT .ENDC F.FNAM=N.FNAM+F.FNB F.FTYP=N.FTYP+F.FNB F.FVER=N.FVER+F.FNB F.DVNM=N.DVNM+F.FNB F.UNIT=N.UNIT+F.FNB OFFSET S.FDB ;SIZE OF FDBO .MACRO FDOFF$ *K* SEPARATE THE FOLLOWING 2 DEFINITIONSL;L1 OFFSET A.OWUI,2 ;UIC OF OWNER (FROM TASK HEADER) . OFFSET A.FIPR,2 ;DEFAULT FILE PROTECTION WORD;R.; DO NOT SEPARATE THE PRECEEDING 2 DEFINITIONS;F2; ***** DO NOT SEPARATE THE FOLLOWING 3 DEFINTIONS;T, OFFSET A.DPB,24. ;QI/O DPB AND SCRATCH AREA* OFFSET A.IOST,4 ;SCRATCH I/O STATUS BLOCK1 OFFSET A.DFDR,26. ;DEFAULT DIRECTORY INFORMATIONF;A.; DO NOT SEPARATE THE PRECEEDING 3 DEFINITIONS;A9 OFFSET A.DFBC,2 ;DEFAULT BUFFER CNT (MULTIPLE BUFFERING)T*?dd!Wd* ARG .ENDM FDOFF$ .ENDM FDOFF$A TH; BUFFER DESCRIPTOR OFFSETS-SAME TYPE OF CALL AS FOR FILE DESCRIPTOR OFF .MACRO BDOFF$ OFFSET  .MCALL OFFSET,DEF$I DEF$I 0 OFFSET ,46 OFFSET B.VBN,4 ;VIRTUAL BLOCK NUMBER FOR THIS BUFFER1 OFFSET B.BBFS,2 ;NUMBER OF BYTES READ OR WRITTENF3 OFFSET B.NXBD,2 ;POINTER TO NEXT BUFFER DESCRIPTOR. OFFSET ,1 ;SPARE BYTEN$ OFFSET B.BFST,1 ;BUFFER STATUS BYTE OFFSET ,2 OFFSET S.BFHD! .IIF IDN,,,.MEXITF .MACRO BDOFF$ ARG .ENDM BDOFF$D .*,( OFFSET A.DFUI,2 ;DEFAULT UIC (TASK UIC);O5; DEFINE POINTER TO INDIRECT JUMP TABLE FOR LIBRARIESE;.0 OFFSET A.JUMP,4 ;ADDRESS OF JUMP TABLE AND SIZE;P1; DEFINE M-PLUS SUPERVISOR MODE LIBRARY FLAG WORDN;S5 OFFSET A.MODE,2 ; 0 = USER MODE, 1 = SUPERVISOR MODE4 .IF DF,R$$NAM ; SMT033- .IF GT,R$$NAM ; NAMED DIRECTORIES ; SMT033EB OFFSET A.EXDS,82. ; AREA FOR STORAGE OF DIRECTORY STRING ; SMT033 .ENDC ; SMT033 .ENDC ; SMT033. OFFSET S.FSR2 ;SIZE OF FILE STORAGE REGI*ENDM BDOFF$M ; NAME BLOCK OFFSET - LIKE FDOFF .MACRO NBOFF$ OFFSETA .MCALL OFFSET,DEF$I,DEF$L DEF$I 0. OFFSET S.FNAM ;DEFINE AS GLOBAL IF PARAMETER OFFSET S.FTYP ;IS DEF$GO OFFSET S.FNTY OFFSET S.FNBW OFFSET S.ANM1 OFFSET S.ANM2% S.FNAM=6 ;SIZE OF FILENAME IN BYTESF& S.FTYP=2 ;SIZE OF FILE TYPE IN BYTES' S.ANM1=12. ;SIZE OF ANSI NAME FIELD 1& S.ANM2=5. ;SIZE OF ANSI NAME FIELD 2< S.FNTY=/2 ;SIZE OF FILENAME + TYPE IN WORDS4 OFFSET N.FID,2 ;FILE ID (REALLY 6 *ON 2 DEF$L S.FSR2;;AD; DEFINE OFFSETS RELATIVE TO BEGINNING OF THE DEFAULT DIRECTORY INFO DEF$I 0 OFFSET ,16.& OFFSET D.DFID,6 ;DEFAULT DIRECTORY ID* OFFSET D.DFDV,2 ;DEV NAME FOR DFLT DIR ID- OFFSET D.DFUN,2 ;UNIT NUMBER FOR DFLT DIR ID ;U! .IIF IDN,,,.MEXIT  .MACRO FSROF$ ARG .ENDM FSROF$D .ENDM FSROF$S;3@; DEFINE OFFSETS RELATIVE TO THE FILE DESCRIPTOR POINTER, F.DSPT .MACRO FDSOF$ OFFSETM .MCALL OFFSET,DEF$I,DEF$L DEF$I 0;S* OFFSET N.DEVD,4 ;DEVICE STR*lBYTES, FOR DISK)8 OFFSET N.ANM1,4 ;ANM1 OVERLAYS FID WORDS 2 AND 3, FNAM, OFFSET N.FNAM,S.FNAM ;FILENAMEI OFFSET N.FTYP,S.FTYP ;TYPES OFFSET N.FVER,2 ;VERSIONE1 OFFSET S.NFEN ;SIZE OF NAME FILE ENTRY IN BYTESW1 DEF$L S.NFEN ;FORCE AT LEAST A LOCAL DEFINITIONO OFFSET N.STAT,2 ;STATUS) OFFSET N.NEXT,2 ;TEMP CELL FOR FIND NEXT=) OFFSET N.ANM2 ;ANSI NAME 2 OVERLAYS DID. OFFSET N.DID,6 ;DIRECTORY ID& OFFSET N.DVNM,2 ;DEVICE NAME IN ASCII OFFSET N.UNIT,2 ;UNIT NUMBERI$ OFFSET S.FNB ;SIZE O*ING DESCRIPTOR- OFFSET N.DIRD,4 ;DIRECTORY STRING DESCRIPTORI- OFFSET N.FNMD,4 ;FILE NAME STRING DESCRIPTOR OFFSET S.FIDS .IF IDN,,E DEF$L S.FIDSE .MEXIT2 .ENDC .MACRO FDSOF$ ARG .ENDM FDSOF$2 .ENDM FDSOF$O F+ .MACRO DEF$G VAR,SIZ ;DEFINE GLOBAL OFFSETE .MCALL DEF$LS .IIF NB,VAR,.GLOBL VAR DEF$L VAR,SIZ .ENDM DEF$G: .MACRO DEF$N VAR,SIZ ;DEFINE NO OFFSET-CALCULATE THE SIZE .MCALL DEF$LM DEF$L ,SIZS .ENDM DEF$N) .MACRO DEF$I IVAL ;INITIALIZE DEFINITIO* F FNB IN BYTES. DEF$L S.FNB ;FORCE LOCAL DEFINITION AT LEAST& S.FNBW=S.FNB/2 ;SIZE OF FNB IN WORDS; .IIF IDN,,,.MEXIT ;DON'T REDEFINE THE MACROO .MACRO NBOFF$ ARG .ENDM NBOFF$I .ENDM NBOFF$E ;F*; FILE STORAGE REGION OFFSETS - LIKE FDOFF .MACRO FSROF$ OFFSETT .MCALL OFFSET,DEF$I,DEF$L;L; DEFINE THE OFFSETS FOR $$FSR2  DEF$I 0% OFFSET ,4 ;LIST HEAD FOR ALLOCATIONT' OFFSET A.BFSR,2 ;FIRST ADDRESS IN FSR1A& OFFSET A.EFSR,2 ;LAST ADDRESS IN FSR1;E3; ***** DO NOT* NN) ...TPC=^O ;MACROS PROGRAM COUNTERT .ENDM DEF$I .MACRO DEF$L SYM,SIZE .IF NB,SYMD SYM=^O<...TPC>E .ENDC .IF NB,SIZE ...TPC=^O<...TPC+SIZ> .ENDC .ENDM DEF$L; .MACRO RAD50$ STRING,MAXWRD ...PC2=.M .RAD50 /STRING/ .IF GT,<.-...PC2>-^O<2*MAXWRD>O4 .ERROR ;STRING RAD50 - STRING TOO LONG, TRUNCATED; .=^O<...PC2+<2*MAXWRD>> .MEXIT  .ENDC .REPT ^O/2>> .WORD 0 .ENDR .ENDM RAD50$,ZS .ENDM DEF$N) .MACRO DEF$I IVAL ;INITIALIZE DEFINITIO ++o    s,sN h 1o  , 0 sN p 1o  , 4  ,dZ& ,   ,   s,dd  , d2&  ,  ,$ 3X 3XHX    s,  ,$ZK&  ,  , 3X 3XHX+f sWw$eD& & Nw-`&&ff& && Μ ww sWweD& & &&ff& && Μ ":s:x:`ww ,sWwxee   Bs 3 3 3 s  s  s  &f& && Μ ww sWwe   B& && & & && Μ$:p<lX+!zdPѳDdVN@wx@d> @:p@:&@:t @:br@:s@:s@w-@:@T; z@z:{@:@:4F@ BdhLqh&,shNLq"h"L hBt dhLqh.dh:,h6MyL h>h**wh2Lqsh,WhF"hJ dVNd> wwwwjwwww wrww(wwww W#fff&e2@M    %$eeH+Y ww  %D w&f& v & DT& & &  :pr& & & & && Μ  D5 :t Z  Bs 3 3 3 s  s  s  &f& && Μ ww sWwe   B& && & & && Μ$:p<lX+dZPγdZr| dx Lqx ,sx8 Lq"x  L x, t dx Lqx dx$ ,x  MyL x(@ x wx Lqsx ,Wx0 "x4zsN0xt dh(L h dh"hp,h@,sh,Whhdh8LqhLqh0Lq"hLqsh`whXMyL hHZhP s, t ~, ,6 ,3X(ɪJr@1o@?y@dX:@ sN  1o  ,  sN  +  sWw8 wDeW  B & & && & & && Μ $~:&  w w zsWweeW#  B & & &f& && Μ w%l:br|T; zww sWwRe@D wB  && f& & & Μ w w(wr A b:sA%0 ~B NE  && f& & & +f1o  ,  sN  1o  , 8 sN  1o  , sN  1o  , , sN ( 1o  , sN 0 1o  ,  sN 8 1o  , $ sN @ 1o  , sN H 1o  , ( sN P 1o  ,  sN X 1o  ,  +v www3 3 3 3 Z:s3 W3 s W* sW ! s W  sW  s |sWwe& 8&& Μ w ^sWwe& x&& Μ 4:4FFz:4FxW!D  & & &&f& && Μ wfwP& L&& Μ  s<:{j:zWw+  sN ` 1o  ,  sN h 1o  , 0 sN p 1o  , 4  ,dZ& ,   ,   s,dd  , d2&  ,  ,$ 3X 3XHX    s,  ,$ZK&  ,  , 3X 3XHX+ W we & & & & (f& && Μ w Vse dw lWw Dw-Vp B& f&f& && Μ wx sWw6eD& f&&f& && Μ 4wxF w& sWweD w & &&f& && Μ w 8 w-jw-|hsWweD 8w @& &&f& && Μ w ,},9;zjL;z5R;z;T;zY;zZ*d*f;zEk*vl*m*Rq;zr;zy;z;zS*X:6.xtGjBx 0 `%.@.}tt%r.hCpRZZR[*\'*\'*\@*\X*\De*\f*\f*\Yq*\w*\Bx*\y*_M%+}H (;zZ;z z;zV#@ Fw )W)W))X)X)Z)Z, ,!,R",<%%&%'%'%(%,%5%8%@%Q%R%NX%X%kf%f%\g%Iq%Kq%Tq%t%'t%iw%w%ly%y%z% %%%%惕%ą%Ʌ%%s%%%&s4P&Z4P<&kGj<&DGj<&%Gj<&Gj<&zGj<&(Gj<&w*Gj<&:Gj<&H;Gj<&SGj<&`Gj<&eGj<&fGj<&fGj<&pGj<&pGj<&KqGj<&%tGj<&iwGj<&lyGj<&9Gj<&GjI&}c&,,(,CM,N,S,\}-D-E....22.2p2222ً3^s3s ;z;z{;z(;zk8;z8;z:;zW;zv;zj;zBx :K`Bx _M|4 zBx { Z# # x*yze 2+9d d6&Gjd&Gjd(Gjl(lCMlNlSl\}tpS` !!'!%6!}[!}q!q!y,+"+",c&c&c&L c&c&c&c&c&c&c&;c&c&c&c&c&~c&c& c&"c&"c&#c&#c&#c&4&c&'c&,c&";c&|Kc&jLc&_Mc&Mc&Nc&Sc&Tc&Uc&Wc& Xc&Xc&gYc&^c&dc&ec&ec&fc&dfc&kfc&fc&9gc&pc&pc&krc&wwc&xc&yc&yc&hzc&}c&c&c&c&c&Rc& c&#c&,++"+"+".+"1+"y+"+"L +"r +"w +"Y +"K+"R+"n+"+"+"+"+"J+"+" +"+"+"B+"+"+"++"6+"+"+"+"z+" +"1+"6+"B+"+"0+"X+"!+"!+"!+"9"+"D"+"K"+"#+"#+"%+"%+"%+"`&+"&+"g'+"k'+"'+"'+"'+"'+"'+"(+"(+"(+"v8+"8+"99,p&&Gj&ZGj&]fGj&tGj&tGj&CyGj&%4P&}4P&.}4P&4}4P&a 4P&0M4Pc'kM4Pe'W4Pf'i' X m'p o'd4P{' {' |' |'z |'% |'K |'VN |'Q |'9R |'Y |'G[ |'Jw |'z |' |' 'a 4P'^4P'_4P'~4P'Gj'IRGj' qGj'ąGj'Gj(}4P(}4P(4}4P(~4PU(4}4PU(04P(Xa4P(^4P(_4P(f(` 4P((z(W(&X(Y(Z(m((Z(@,;7-<0W ; 1L @,+"`:+"y:+":+";+"A;+"E+"E+"G+"G+"6K+"\K+"iK+"K+"K+"jL+"[M+"xQ+"R+"R+"T+"#T+"W+"W+"NX+"\X+"X+"Y+"Y+" Z+"N`+"`+"`+"e+"e+"kf+"f+"f+"p+"p+"p+"p+"Zq+"`q+"qq+"}q+"kr+"r+"r+"r+"r+" s+"fs+"ys+"s+"s+"s+"s+"s+"t+"w+"x+"Bx+"y+"z, sW"Z T` 34f k  2g F VNr + (Gj . %Gj 2&Gj (Gj PdGj (Gj Gj :Gj `Gj XGj  . 5 q  e^Gj Gj pM d a8Y x 2g  Gj(GjTGjGj,h`T>%:/D/DE/D/D/-X***! * *| *~ **4*6*`*Y*;z;zz;z6*#*(* 9;z, +"z+"+"+"+"+"+"R+"Z+"䋕+"<+"+"+"L+"*+"2;"  #n~`#}`#Oqr##""#w# z###.##y#y#N&#y#v~%K%Gj%%Gj%Gj%r!Gj%#Gj% #Gj%#Gj%LGj%VN%ZGj%kfGj%p% qGj%tGj%wGj%xGj%Gj%CGj%Gj%% % %k%n%D%%%]%% --)XGj)pGj)Gj)Gjt*=t*=t*=t*G=t*I"=t*3=t*N=t*r=t*s=t*s=t*s=t*z=t*=t*=t*b=t*։=*4=*=*=*=* =*8&=*@,=* X=*@w=*w=T,KT,T,T,,P,1,,E,VN,Qr,:d0,Oq,u~,-M -'..Q/'.#0#0#0#0#09#0D#0L#0M#0v#0#0)#04#0#0#0T-:=:=:=:&=:R=:W=:=:=:=:=:=:=:=:=:=:=:=:+=:=:=:=:&=:{=:=:=:=:=:=:)=:9=:q!=:!=:#"=:#=:8&=:n'=:'=:-=:-=:-=:.=:.=:.=:.=:2=:{3=:3=:4=:74=:y:=:|:=:i;=:4F=:[K=:K=:K=:K=:K=:L=:\M=:nM=:M=:N=:)N=-#0U#0#0#0x#08#08#08#08#08#08#08#08#0:#0k;#0;#0;$0!$0R"$0($0S$0s,0,0,0σ,02,05,0q,0-0-0100p00q00s00s00s20,20,20,-20.20.40840840840840940Q:40W:40;;40:<40w40uw40w40w40x40x40Cy40Ny40Ry40y40y40y40y401z40w=:Kw=:iw=:ow=-92`&2d2le 2K :3M  3W 3; 3 3 3  3( 3x( 3: 3f; 3[ 3f 3j 3 33]( 3 3 3ph4}  585} <5s=v88 & 8p& 8( 9p$9=$9=$9=$9#=$9'=$9.=$9L =$9 =$9 =$9 =$9) =$92 =$96 =$9 =$9b=$9k=$9=$9=$9=$9=$9|=$9=$9=$9=$9=$9&=$9)=$97=$9=$9{=$91=$9B=-:w=:w=:x=:x=:x=:By=:Fy=:Wy=:y=:y=:y=:y=:az=:z=:}=:=:=:=:=:+=:|=:A=:i=:y=:=:=:$=:C=:d=:h=:=:=:=:=:=:ۑ=:=:B=:D=:=:=:2=:=:1=:;K=;@j=;v=;L=;=;=@;(T;=T;8=T;=T;=T;=T;=T;7=T;!=T;;"=T;I"=T;d=T;4f=-$9 =$9V=$9X=$9!=$9!=$9!=$9#=$9`&=$9&=$9'=$9g'=$9n'=$9'=$93=$95=$98=$98=$98=$99=$99=$939=$9E9=$9,:=$95:=$96:=$9:=$9:=$9:=$9:=$9I;=$9i;=$9n;=$9p;=$9s;=$9;=$9K=$96M=$9;6.~;6.dVSdSd:Td?Td*df*dreMve\ge e. a? a8a:a:a/KaLaWaWaxZa@`a  b?  bp  b  b0  b% b& b' b' b' b' bP2 b: b: bK b@` b۩ Spܩu~ݩ%M7sHɪ#q\ɪ2qtɪ3qɪ;rXɪJrɪKr\תZݪKXݪM,0z.D,BR&@^{R!"#>&u'U(,v:T[E`n:d0\gIqKq(TqUq$Vq!tlw)x/w:d=wDy=wLy=w}=w΅=w=w=w+=w-=w.=w&q=wv=wx=wy=wy=wy=xwyAy(Ay(\yy@"y%hy"y}y%ys0y} y]*y`y`ydye`y} y@z4fZ#zX#z8#zkr#zfs#z zjz!{YGj!{YGj"{&Gj#{m#{8#{8#{;${${${${H ${i ${n ${0 ${!${R"${(${S${p${p${p${Iq/l=l=s=uVY=uy=uy=uy=uy=uy=vӁ=v=v=v=v=v=v=v=v=v=v=v=v=6L   `qw7xAyNyyyCCCCC,CQCSC\XC|ZC fCfCUqCrCsCxCkzkkk'kKkTkfkfkx'%@}ą_MLd/${Nq${[q${|q${r${s${s${s%{}%{!=%{"=&{t Gj&{PGj&{8Gj&{WGj&{WGj&{WGj&{ZGj&{-d&{yGj&{Gj-{Q-{\-{f-{,~.{V&Gj.{.{V0{m0{p0{90{D0{n0{0{0{0{0{0{0{D0{2{-2{m2{2{ 2{n"2{p3{<L4{84{84{84{84{84{94{Q:4{W:4{;;4{:<4{*L4{M4{w5{yL6{!6{,6{!/0 .Bx SLSvLSL|@>i` 8Tō,ōwȍ8 ȍȍ`ʍ8TˍsˍH}~```ÐHX@5d2ԒԒԒԒ7!Ԓ#ԒxQԒWԒWԒqԒLqԒ[qԒVsԒ;xԒԒ}ԒԒR:(8"$$0 )~Z)h)h)h)h)h)h.. .8.K. L.^.q/Z6{,7{7{ 7{{=?{0=?{p=?{=?{=?{p=?{N=?{@=@{0=@{N=@{N=A{0=A{=A{=B{N=C{=D{0=E{=E{=G{=*} }=}=}=}4=}y=}=} =}H =} =} =}k=}=}>=}=}=}=}=}=}=}=}=}=}!=}I"=}8&=}](=}(=}2=}2=}T3=}3=}5=}8=/5.Bx.y.y4wkk,kkkkkk<k,kXk%k2k4ky:k:k:kEkHk4Kk^KkWkZk+dkfkfkyqkxkykzk"kJkމ#=#֯=#=#=-=-'=-(=-?=-=-[=-=5|=5=5=5^=5f=5ٱ=5$=55=5Q='@.'zY(S](z(#{(f(z,&X.,fN,,hS,lT,zTN,Oq,hyg-T.@|&.z2z&2d2z2z :3z 34PX:<6.:z:;>VYMQz F9Rz BRz!RRKUMSz!0C6xAyvą HWD,BWhʫh~.ͫe@Q@Z4h5 5!Q(> WT XT;PJ;VNb`c.=@=,`rd&DKM'O֯}_Nd4PN4}L`dxQ<e X_NXS@Sp{pQ:s \qv Pwv xv zv v?SZ@SZASZ}fN g,lT,zTN4u~ 8rYn &Q: VN00lEU61K1o1p.1q.1r.1s.1t.1u.1v.1w.4}6L 9`=Kr?y?BC\}C\D\^Wkhp!h~h!kh&mh'o}sX,:2/KJP:Ynh~`TH`pYawz5d2}az$zRd {z(_aab9}lepY*evYeDfTYnafZs2kf`;Z`kfKqZkfNqkfK,f; [ fv[f]fy:hfz#Lf:Z$gpS$gH&gK~'g~(gM)gS )gS *gS-gpS-gZ`\gtR\ghyv6kz= q}-qz#11 y2qW\|7qw7qq\,Iq]:VqM]\qxsrr%rzs@824sUs%ds"&xs"")tLyty^$t_yF1u,J1ul(3ukM3u^3u_@3uIq4u%!^4u;;4uH;R5uZ5up5u5u%>6u" 6ut:7u`"9uS9uX?udn@u# 0@u`BuW!$Buq!Bu"lBu;TjBuCuzDusvEudGuv vqhvXu_ vP9wKLrwrwdw*7xsHyAy(SyTy`Dy%hy%y]*yd1  22z:H ~ qHt*sH ~)qH:HH:H:/SH :2H:AH$9XH<-H}yH<4HJ,w9qH$9pHz$9 H}yHbwxH t*H}H7t*H<$H:H:SH:H}iH8t*sHT;3Hw8Ht*3H@zA{H ~YHlH%?{0H$9yXH ~ H5H$9) HvH vH:6H@}:HW}zHh:GTH $9pHz}H?}RHe$9 H$9pH$9dH5H$9pHT;HT;sH$9 H ~urHvH$9qHwDyH5|HzwLyH$92H$9+H:sH*@,H}I"Hw}Hza |H$9xQH$9H<3}HNa |HH}D;H:qH:H:qH,wfH:"qHz:&qHH:&H:$qH:23H$-H$9H;Hz}KXH':9NHT; zHT;zH}:dH#H*H@:NHt*I"H :)NHT;!H:+NH(:8&H;HwH-[H}`YH :vH$9H$9H:n'Hl+ H#$98H$9H:owHvӁH:2 .qH:(qH:3qH8$9YH}H&$9 H$9YH:WHP:a H$9YH,w{H ~sHz:TqH:RH$9H}HU:H :H:t H:qH:H8:H$9CfH ~H:H:H ~sHz$9ZZH$9bH$9`&H ~H$9kH$9{H<H$9~ZH,wH:q!H $9ZH$9ZH}`H`:-HA{0H z$9ZH:x HvH;LH}4H ~sH:H:H wvH:!H:-H:}H`}Hj$9[H$9'Hz$93H$9[H$9H$9H,wWH:2eH}HTz:wHP:H:wHt*H }ZH{H$9KH}xH$9;H%{!H:GH :sH :sHx}]}HA}UqH6z: sH:#H:sH }c}H@*@wH5QHw:dH:KH?{@H:KH$9H}H:} HS:3H@:{3Hz:|sH }H<:sH`:sH*wH }H=:sH:sH:sH:sH0:sH ~HT;8H:sH:KHzlH $9CH:KHH}!H :H$9VH$9XH ~ۑH:sHP$9|H:4H:tHT;wH$9.H:-tH`z:,dH:1H}|H :74HwH[XH)^H<&%H WWH&CyH<&H(yH)nEH)sEHz<&Kq3( Dq:@i@o@  D"0e$h<e?hhaKh(a[Mh  D"0,0, f 톇,, w      .% eB UBoniN|5UU plp & NeՀ)*$q:|W B%S D  D"0 4}h fh  D"*W R 3/HTH )EH( HL[;H&{PH`[8HHWH&{Hd6&H%kfH%ZH@d&H'ąHz)H#)H4)H%H PdH :H )_GH))HWH)TyH$'IRH&{ZHWzH@'H)H0z)GH%wH@%xH [#H%CH )2HH4) H,)BxH) H-<&%tH<&9H `H$)[MH &H %HBz)pH<&pH<&pHWwH (H 2&H(d(HWwHt!H)w H.)H)PH8)KqH'HF[YHztw * 8B pB  0 B o`$s}2d?!:fW Jl' D; @d8@  D"00d8h  D"43H[YH e^HJ)H\) H2)t H)ZHPWxH )H["H<&eH)[}H&{8H z( H%H<&kH<&zH&]fH&{yH)8H<&fH)!H@.{V&HWyH (HD[H<&fH"{&HzWBzH[ZH (H)ZH<&iwH)WHH)WHB[<}H)pH"<&H H(H <&(H)%H&tHz&tH%H@% qH)H%r!H H[WH)dH:)4H=<&lyH tH!{YH )'H&!{YH%HzWH)PsH*)%H [H ' q31 e w(; 2d8>W bn X Ds.@ft:@  D"0d8hd8hmKhfm&h  D"Dez$ $ $ %  . e   ҥ. *V    e    1 .s.^ft: |DEe $ $ W Zz' Ds@; @;P@d8@  D"0d;h  D"3H[YH&{t H<&w*H@<&:H)'H(t H&ZH%H%#H% #Hz%#H(QH)pHWZH<&DH<&H;HtH<&SH%tH),H/)VgH<[8H)XH^&{WH&{WH"&{WH%LH W =J; f =Do@\D@  D"0f;Ph  D"jw  $ҥ[֥< , (e  5 sC~ D woh\DW B3?1  & U ʥ. N ,N&  +et wete & H;PPs^; hd8psh| * e 8*ʥ[ʥ<`E *W ZW D`@o@d?!@aVN@  D"04'h  D"8w *eB 8  oaVN"`0d?!W =R0!# =3 i; v D  D"0vs.hsh  D"z&fe ~  2 $ L La Ta Wq(W!ZW!AW!9W!0@W :" Kq D  D"02bh  D"6141612epl2l0pxW :J+ D  D"0bGh  D"8e2 ~W jy[M3 D  D"0eMheMheMheMh  D" W R!  D  D"0le&he&hc2 h\s2 h.  D"p *) l0, *) $ )*)0,40,6 W -Z#t! -De?@o@ft:@s}@  D"0H4h  D"Lw *f f !  424 d; g}W JRK Dq:@i@  D"0mlEh  D" Mwiq:W :SKq D  D"0"moh  D"&  DP5R~RRR~W RT DmlE@o@aVN@  D"0*lEh  D".w *eB 8  oaVN*mlERW4r*) * w46l0o pZ.r,}2fW Bkf`; D  D"0po sW B,h DaVN@ 4  D"w *D BTOU1etS~:ӕ: ͥ_ 5e&  T eo0sl|e qqC ӥ: ~ Ce   *D\D\aVNW =r:dw =Dpiw@pvw@pw@o@aVN@  D"0<}sh p# h*s}h  D"@eB  8 $&w *   4 D D"0fg}h  D"j* )fff f f1    1  aVNW R,l Dpl@g}@o@  D"0,lh  D"w ewo pl g}W R,z Dg}@o@d;@  D"0,zh  D"w ewew.o d; g}4  aVN&o0pvw6piw 8   ***W Bev D  D"02pK,hskh(  D"6 8  ***W bDfT DpZ@o@r,}@f@  D"0F 8rh0:h  D"Jw  551,\\1,^^pBBpDDpFFeB &o`"s},ft:4s}@ft:B|eB **p**0 B1 BweZrS@fpW zty Ds@  D"0fahX2&h&h<ֱfahL(htԱ2&hԱ&h0Ա(hh  D"e(BA &e(H0 A f AfAD&2ss6sDsRs`sns|5J  D"w BC "& <SY*p0p21E%0*w*e "fo6sbffs"| D CB.ENW 2  D  D"0W4'rw4'Ds@r"&@q:@w@i@o@f@  D"0 `h  D"w *8I *=)98 5s|pD0 >(W :vXu D  D"0oh  D" &ff W J D`@f@  D"0"2Xh  D"& 8 !Հ)w*w`$fW rKq DeZ@o@rS@aVN@ft:@  D"0,ձSh Xh֯}h  D"0w ww 5 eB &&  U **o"w8ihq:|e *Nlv ΋*.)  & #!)&ePe && 2i^s~q:p* wr"&fW 'Z& 'Dq:@i@o@  D"06ch `rh  D":w  )*  U o&i6q:5\zkfKq DpZ@p  D"X8Ae f"( UCɗ+e$&% 8sDsW Ra Dq:@i@o@  D"0Ѳ:h  D" w *D ~woiq:NW 2,d D  D"0LW bK VN Ds@s@o@f@  D"0;VNhaVNh 6 6 A e@ v Ep |p  , J *` zr8tC#   D moW 'r,hy 'De&@r@pK,@o@mo@sk@f@  D"0 h  D"w ) 8C * ) *w* ep p  6oos fy:|w 0 *0 @Q$    0 40 60))  eB z :# 3&*w #(Bs}NaVNfft:tcIq P) @#**fff  &*wD. H358e$8w2eZ8d?!HeZlst2&e %p8q #) *R*)@#0l C# 02sBr돀6 o pK, rNfZe&|C  =  0* =Eե^A e@   Ep p  8 V *`)w pskvr4tC#   D moW =zE`W =Db@mlE@eZ@s@r"&@r@q:@i@o@d?!@rS68 00ĥۇAĥĊ  000 0 @0 &*0 @ bbr,}lu #eB * eBe>  # #D &iq:"rS&mlE*r"&6ix#&0 #   0@e 6@#040 6w!p28q:bf8W =zF`8 =Db@s@6@r,}@Rf@@ft:@fy:@cIq@s}@  D"0@hp!h  D"w  D 8#"#)%ĥ ĥ w 0 o sfy:|*0 @Q$    0 40 60)) z :# 3&*w #( P) @#2s}Jft:XcIqreZ**fff  &*wD. H358e$6Gr"&@r@q:@i@o@r,}@aVN@f@@fy:@"  D"0h&h  D"w  D 8#"#)%ĥ ĥ w 0 o sfy:|*0 @Q$    0 40 60))eB &*   w6 . 2358e$8aVNxs8w22&e %p8q #) 6W ӧZe ӧDs@q:@i@f@  D"0vcIqh  D"z0f& e %&&eH U   Ef p  ws8i`q:xfW Zz Dq:@i@  D"06eZhrShft:h   D":    f u    i(q:lW : &6h8w22&e  d?!,eZPsnsvt%p8q #) *R*)@#0l C# 028 0&r|b0ĥۇAĥĊ  000 0 @0 &*0 @ u #eBFr,}dipq:l * eBe>  # #D #&0 #rS6 I D  D"0h  D" W 'z, 'De&@py@r@r@pJ,@o@mo@f@  D"0}h  D"w ) 8C * ) *w*  ep p &o pJ, rNfbpyje&| C  =  0* =Eե^6  mlEr"&i\   0@e 6@#040 6w!p2q:Ff>W =zE`PZ =Db@mlE@eZ@s@r"&@r@q:@i@o@d?!@rS@r,}@baVN@f@@ft:@fy:@cIq@s}@  D"0\^Whh!h  D"w & w  D  8#"#)%ĥ ĥ  77 W =zF`W =Db@mlE@eZ@s@r"&@r@q:@i@o@d?!@rS@r,}@RaVN@f@@ft:@fy:@cIq@  D"0Fh'h  D"w  D 8#"#)%ĥ ĥ w  0 o sfy:|*0 @Q$    0 40 60))eB z :# 3&*w #( P) 7*e*w mo>wTr,}rf~py*0, L  )*)   l 0l  r,e&t   ee@ x0 j) E ep )w ,  N w  L B # f  `**r,}2w>rXmo2l*w7@8aVNPft:^cIqxeZ#**fff  &*wD. H358e$8w22&e  "d?!2eZVsts|t%p8q #) *R*)@#0l C# 028,r돀 00ĥۇAĥĊ  000 0 @0 &*0 @ u #bLr,}jivq:leB 7)0406 l0 fW4z\ghy4De&@r@w@w@pK,@o@mo@sk@r,}@f@  D"0~ h  D"w o832de& & & B  2PΕ   N Υ$Ε  2o pK,|2Υ   v Ε f e * *e*w0, 70 * eBe>  # #D #&0  rSmlEr"& ib#   0@e 6@#040 6w!p2"q:Lf,W =Z:dw =Ds.@D@o@  D"0xpwh wh  D"w *  (Ĕ%.%%;C~ 5)5@DD ͥ*Ce a%wUX5@7nmo>wTr,}rf~r H  )*)   l 0l   e&t  ee@ t. f' E ep )w ,  w  LwB # f  `**w)0406 r,}w"sk  # #D #iq: r"&,inl&0 #   0@e 6@#040 6w!p2.q:Xf7 46 e*w & e&,w:c2 HaKNr\e&W4z\g4De&@py@r@r@w@w@pJ,@o@mo@r,}@f@  D"0}h  D"w o832de& & & B  2PΕ   N Υ$Ε  2o pJ,|2Υ   v Ε f e *  8^8`  D"0Nr"&h  D"R82e& 0 0 0 80 B0 0 0 0)#0.s"W 'RtL 'Dq:@i@  D"0 rkhwkh  D"$ U4 6wi"q:fW R$t_ Dw@aK@s2 @  D"0rh  D"&4&6 64 wr%64 2 68K@  D"0'h  D" 8eB   XKWz &oKD:(}@:`@@fa@GP}@\@Ѳ:@:Z@:@}@@@=B@=F\JN:R 8rV@Z`;^Ѳ:X^wwwwwwwwwwwwwwwwwwwwwԱ2&Ա& Ա(ֱfa2&&( fa$y(?T,GP}0ƭZ(#>ƭD  D"0yyphyyW ZN`@ D^W@h!@  D"0h&hh'hhp!h  8*ww% N a @Q<`rnWz &pKD`@:@}s@ձS@; @h&@;P@h'@@ X@ձW@X@z,l@,z@4@v@֯}@'@swBvF;VNJ,lN,zR4V֯}Z X^ձS^wwwwww,2XlE K'ձW:sw(@w BwDwFwHw&-H 6lF8sW4=J@4=D X@8 WXz9aXDs@[@[`@ Kr4ɪ3qhɪ2qhɪJrhɪKrh 4Bwh49ys@[@[`@ Kr4ɪJrhɪKrh 4wh4 K0 Kr5  (5(UW      wE5 E  8[$|W͇5  ,E [ E U &W)& #  4 &9U3uE uU.5`.[b|U & E& & f&ËDef9L WƀzYMƀDs@[@[Kr@[}@[@[\}@[@o@$9Ba@ ]0h*K0o0 hXh ]Lw DB A, ,5eaE5 EE f& &   o[[[\}n[2|1   w6[}[Kr[}*$9Ba ,s0Ko9 K0 Kr5  <5<UW) ' !  wE5   8[L|wE5 E  W5  ,E 0[ EWO ,) &  4 &9U3uE uUw5  [|  uE uU5`AU & E& & E& De9Rw$9Ba  sKWƨz `ƨD[@[Kr@[K@[}@[@[L @o@ o0Z h,h hL2Xh4 t t t o^ 5ew  Bv    5Bww F o [.[Kr8[L[}R VZ[K &cp[ [L [L   feq9&f $̋"5`[`N & & & & De&fH ̋E U$[`ws KWXj9aXD[`@ Kr4>ɪ3qhɪKrh 4wh4K0 KrB5  5U   E5@? & E& & E& De&f $̋"5 & & & & 9[ [L [L >Wƨz ]ƨD[@[Kr@[K@[}@[@o@ o0R h&h hFXh4 oV5ew  Bv    5Bw .o[([Kr2[F[}NR[KWXz9axXD @[Kr@[}@[@[@o@[`@ Kr4ɪ3qhɪ2qhɪ#qhZɪ;rhɪJrhɪ9De&fH2[`r[`| ̋U zWTz3ax}TD @[Kr@[}@[@[@o@[`@ Kr4ɪ;rhɪJrhɪKrhB 4wh4P t t tK0 Kr1 5  .5.UW  ,   wE5 E [}<[\[}4|  WLJ5  ,9 Krh 4Rwh4P t t tK0 Kr1 5  B5BUW/ - ',  wE5  [}<[\[}\|  wE5 E  W5  ,E @[ EWW 41 . 4 &9U &9U3uE uUw5 [| 9 E [ E U &W96 3  4 &9U &9E &9U3uE[| uU.5`.U & E& & f&ËDefS Ë )̋E UJ[` T)aw 6  w  e 1 w 0" , 0o4[F[KrJ[}N WTz3aTD :L: WTlli5u w S~WNEJ5u%NELS~@@(#h WTf  WTdd (w S~,WNEz6u" NEL@S~@ȫ @@©#@( T[hu'h U(hAyhTqh WT^   WTRR ©#VV ZZȫ $P TX`dw: S~:WNEz3u^NEL5 @@@(dhPhHh hHh Wh hRWh  h  @ &e6% 4% 4%04 f   w eF w 5 >RX5 fWN:7xsNL5 @($7sh (e6@a "H5 JWPzrzP:2"S~zWNE:6ut:NELS~@(&h  Hw S~zWNE:7u`"NELS~@(,h  8w S~lWNE:9uXNEL(6xhv:h WNER?udNELS~@(X@pŜ@(E`h WTj  WThh (Xbb:LkEH+"H+"Hp+" HB bpH%HpYMHp[MH@b&HavHpcMH ky:H%\gHzk:HkJH bفH!k:H b4H%&H+"(HkH%'HaH8+"H`WYH bH,(YH(HzpYYH% H a؁H: b: Ë )̋E U*[`ws KjWTb3a~TD[`@ Kr4>ɪKrh 4pwh4K0 KrB5  5U   tE U *5@*& E& & f&ËDef Ë )̋U@[`zWNE:3ukMNELS~@:pŜ w S~zWNE:@u# NELS~@(:dh  w S~zWNE:@u`NELS~@(\gh  <w S~WNEJBuW!NELi5u@S~@(Uqh WTn  WTlli5u w S~WNEJBuq!NELi5u@:(h  ,w S~zWNE:3u_NELS~@(&h  0w S~WNEJ3uIqNELJ@S~@(h WTl  WTjjJ w S~zWNE:4u%!NELS~@(h  Dw S~zWNE:4u;;NE:ZS~@(Vqh WTn  WTlli5u  w S~WNEJBu"NELS~@<@(!th WTZ  WTXX< \w S~WNEZBuNELj<@S~@ @(Iqhh WTb  WT^^ j<hlwS~WNEJCuzNEL: LS~@({h  4w S~WNEJ4uH;NELS~@pŜ@(h WTd  WTbbpŜ $w S~WNEJ5uZNELi5u@S~@(!h WTn  WTlli5u w S~WNEJ5upNELi5u@S~@("h WTn : ti5u@S~@(wh WTn  WTlli5u  w S~WNEJDusNELS~@@(h WTR  WTPP Lw S~zWNE:EudNELS~@(ąh  @w S~zWNE:GuNELS~@(h  pw ;;HpH b` Ha#;H %H b`rH6%H!+"Hzk%H+"v8H%H@WmHb H+"`H0+"yH+"N`HPa 1uo>\\ WT XT WT WNEz5uNELt!@5!@Kq@R'@DMw@Ӫ@(5u˖(S~h WTt WTh XTz XTh YT ZTd)xh HT{{{{{{;Ha:HNa:HL+"zHaH b:HNzazH0 b:HL+"*H+"H bzHWH+"K"Hk,H&W5H+"y:HbqH+"ZH0+"`:Hb(xHb,xHz+":H#zkrH%,H+"zH bKH bHaWH+"#H+";H+"#H+"6KH +"A;Hpa HaЉH.kXHzb_H%8H aWH(brH%Hk4H(@H(iHb8^H+"KHbV^HbW^H b:dHJa0MHaxZH-z#zfsH%H+"\KH+"iKHbHa:dHJ+"WH%lyH b8H+"WHaHaM;{{{  WTff R'n nt!DMwӪ XT  ZT  5u˖  WT ( ( 5u˖66 . { { { {  XTTT`` 5u˖ 5u˖{  {   {  { 5u˖;H +"KH+"H aMH z%yHa HaMH %zHaH%HbrH+"pH%sH+"pHppH bp H+"pH+"NXH+"jLHza`'HpqH@ br HB bp b(H2+"EHP+"xQHbp HaPH@z+"HbYH%'H@ bPH4(ZHbxH2p Hk4KHkH bpH bpqH%H%HWnH bxH6z%H bvHpYHb`Hk^KH bH<pWHpnHPplH%tHb`H b`H bH>%'tH bHzb`H bH8a8Hb`H bȂH:b`H%HkWH pH#z zH+"RH@k,Hk+dH+"LHpٚH@zbhH +"H+"H%(H%@H pw;}H+"%Hhz+"%Hpbs^H+"[MH+"`qH b<}Hp,&H b&H+"HP b'H b'H+" ZH`pkrH b'H%NXH(Hz+"eH +"H@+"YHh+"eH+"H8+"krH`kH+"rHPa H+"KH@+"RH0bx_Ha`^Ha@`H +"rH0z+"zH0+"`&H`+"kfH b'H+"rH@(5H+"nH bpH +"H+"fH+"1H+" H +"H+" sHbwH4z%XH@+"6H+"BH%TqH+"rH %]H@%IqH"%KqH+"fHbzHWWH+"Ha8H+"&HXaLHz; HaGH1+"RHaGH(p7[H aGH&%5H0(WHaH&aH&zb H axHaGH&a!H+"HaH(kHH8WiHW@Hbp HpH%ɅH +"HPb`rH$+"JHzpHa(dH%ąH b0 Ha@`H b@`HbHH&bIH+"GH@b[H+"H+"wH+"GH0p`H bHza;H bxH+"BxH+"HaHH%QHa8H +"#THayHk<H+" H(Ha"H+"xHa"H za"H2+"THkyqH+"1H bӞH+".H bQ HP+"; kxH b`H bp H+"sH%Hk"H+"k'H@+"fsH+"g'HP b H+"ysH+"sH+"H+"sH+"'H8z+"sH+"'H0+"sH+"'H bpH+"'H b`H(ZH(zH@+"EH`b`HWzH@b`'H+"RHb`H*WH#z8H(rz(WNEz1ulNELS~@1o@ XT@ WT@ N@)x@rQ@(1uo(KqhxR~h ZT` WT 1uo .w <z<o .> 5V .> 54 .C3 3  R1o)x.>1o N,1o.)x.2>41o8lS~Z)x.\1o`1o.|,, UEs3w&& $)x&()x&,1o ZTPP^ 1uo^XXd 1uod\\  WT XT WT VV   VTWB*`Dܲ`@ ke(0sh <m@ ke(0q!h ke( aw ܲGdܲ#Wܲ#WB3DܲGd@ ke(03h ke( C &qFre @AE2cD! D2rܲGd|8 HWJ4f<VYw ܲGd$ܲ#WJ#Dܲ#@ܲGd@ ke(0#h ke( f Yw ܲGdܲ#WJI&}Dܲ#@ܲGd@  I&}h}@h $ &wܲGd"ܲ#WXJ(XDܲ""@ܲ#@ܲGd@ 4(h 8< eB  <Dܲ#@ܲGd@ ke(0"4fh ke(& & CC w ܲGd$ܲ#rWt0: t0D  @,hC,h eWJ;VNDܲ#@ܲGd@ ke(0F VNh ke( RRRwܲGdܲ#Wrr +Dܲ#@ ke(0D+h!!hh<w ܲGd.ܲ#6ܲ""W Rq: Dܲ#@ܲGd@ ke(0Z:hkh ke(^  & 6`  fRCҐCҐRC  &w ܲGd\ܲ#WJ,OqDܲ#@ܲGd@ ke(0,Oqh ke(  & BAwܲGdܲ#WJ-Dܲ#@ܲGd@ ke(<Q2+h xQh}h$r +h ke(H97; uwy{D& fW#v&wFܲ#WRbs;D V9phBYh@;(hv8h:h Z L@W @@@ 8@ A Be   @  @ A@@K@P @WByXDܲ`@ ke(0,h ke( w ܲ`WHJ<0-h ke( qw ܲGdܲ#W:,D ke(0,h ke( CË @ÊAW H WJ,VNDܲ#@ܲGd@ ke(0,VNh ke( RwܲGdܲ#WJ,QDs@ܲGd@ ke(06,Qh ke(: P)&< h !thXU(hLhhwhE`h,h4h(!h&h,Ayh`hąh<"h #h$*:dhVqhTqhPh@ Bu;T531/-+)'%#!   erfA|5 |yVWNEz1u,NELS~@lS~@1o@ XT@ WT@ N@)x@rQ@(1uo(Kqh ZT` VT& WT 1u< THDܲ#@ܲGd@ ke(0 `Th ke($ & w ܲGd"ܲ#WJDܲ#@ܲGd@ ke(0{h ke( _w ܲGdܲ#W J֯L Dܲ#@ܲGd@ ke(0q!yh ke( ew ܲGdܲ#WJ֯Dܲ#@ܲGd == (  ܲGd&sWJ,:dDܲ#@ܲGd@ ke(0(,:dh ke(,A & & &&&wܲGd*ܲ#WJ,Dܲ#@ܲGd@ ke(0,h ke( ?w ܲGdܲ#W RvL Dܲ#@ܲGd@ ke(0yhq:yh ke( =DݪK@d;@ :4u~h >W &=e e@ B  $ݪK6d;WRD z@*@ \q@4u~@ <}h @& %NBwA & fww z4u~2 \q>*WRsD,0z@ܲ#@ܲGd@)%@ Zgh ^&  & =cw ܲGdܲ#WXB_MXDܲ#@ܲGd@ 0_Mh 4~ Q Q Q IwܲGd2ܲ#WB_MDܲ#@ܲGd@ 0_Mh 4 x fI1ɕqq  wܲGd2ܲ#WXB_MXDܲ#@ܲGd@ ._Mh 2 Qѕ =He mw&f&fe  s&ܲGd,0z)%,ܲ#B,0zF)%WBձDܲGd@ ke(0pIqh ke(t   _(  ?f'& f' ?E@@ a B 0e  ܲGdWRձDs@ܲGd@ ke(04Kq hKq^h ke(8KM & & &&& =Q QwܲGd0ܲ#WXBwXDܲ#@ܲGd@ (wh , Qѕf IwܲGd*ܲ#WtB,tDܲ#@ܲGd@ (,h , Qѕf IwܲGd*ܲ#WJu~Dܲ#@ܲGd@ ke(0 zQDh ke($&  RR=aܲGd4sWBsrDܲGd@ ke(0.srh ke(2 e@AB ܲGdWJ#DܲGd@ܲ@w@ ke(0Yqh ke(  wܲGdܲ@wWJUs%Dܲ#@ܲGd@ ke(0 Us%h ke($ Qwܲ=dRI! wܲGd"ܲ#2WR\MD,0z@ܲGd@)` @@ |S]h  Ε 4e   e  f &f& %&ܲGd.,0z2)` @l,0zp)` |s"WXR5dXDܲ""@ܲ#@ܲGd@ f &hfrh  e I I &=Gd"ܲ#WBձzDܲ`@ ke(0[qMh ke( /w ܲ`WzxDlOpH)H)H)H)xH)p H)%H[ H)` H)p H)5H  WJ XDܲ#@ܲGd@ ke(0&wh ke(* GwܲGd(ܲ#WRy=  # I  a(Ia(I BCD"C" wܲGd|ܲ# | ܲ""WZ PwDs@ ( Pwh xh h zh \qh ,& & & & Aff& sWBD Pw@4u~@ ,ysh 0 fB A  & & fw4u~. PwWB,H:= Dܲ#@ܲGd@C,@ ke(0$yh ke((  wܲGdC,&ܲ#W Ry Ds@ܲ#@ ke(0@Iqh0y}h ke(D B (W/ D  7 f& }w(sBܲ#WJy%Dܲ#@ܲGd@ ke(02y%h ke(6 @  >h> ke(PC & ` `Ba#   L Lܲ""WBܲ@wDܲ#@ ke(0(ܲ@wh ke(,CC &w*ܲ#^W~R~Dܲ#@ܲGd@ .Qh,1hHwh ` e BBCC w qqq0 fqC >.h >&   (w  *ܲGdC,$(*ܲ#.s4N8ݩ%WJ[!}Dܲ#@ܲGd@C,@ 2[!}h 6  2 w ܲGdC,4ܲ#WB#yDݩ%@@ RL h V&f&f   /<   >!EwܲGd4ܲ#WXZ #XDܲ#@ܲGd@ Zg(0y@h.yhX:` Zg( e2w 7 Nw&f&fCDEe  > ܲGd X:`0ܲ#:ܲGd>X:`BX:`HNPܲ# dX:`(|   cs X:` WB zDܲGd@ܲ@w@ 2sh>Q IܲGd4ܲ#VܲGd4|w C Q Qqwܲ#ܲGd2ܲ#tWr}Ds@ܲ#@ܲGd@L @$9΅@w@C,@ }hh  j  2@  e ' w  /*jܲGd"C,8w>L lܲ#ps |<   e$9΅WXJ>J 6 X eETETwܲGd4ܲ@wWB 4fDܲ#@ܲGd@ z4fh  -w ܲGdܲ#TWXDs@ܲGd@ ke(0,Cph ke(0 & & &&&ܲGd,sWJ%Dܲ#@ܲGd@C,@ %h "  w ܲGdC, ܲ#Wz}Ds@N@N]@ܲ#@ܲGd@ X@NBx@N{8@N{@$9΅@C,@ }h >+w   ܲ#ܲ#$99&ܲ""|W:xDܲ#@  ÐHXh & 1w ܲ#vW2*D *h )Wt0B5dt0Dܲ""@ܲ#@ Z5dh ^%% CåA  @a%~%f U&B~Nvw Rܲ>4   *e  f w  NܲGdC,N X$NBxDN{PN]ZN{8^fhܲ#lsrs~$9΅ | e WXR1yXDN@ݩ%@ XN]hN{8hN{h \&&&f&f   ` % s*N.ݩ%$WJ` Ds@# z> @#Zܲ""jW @$9@ sL rܲ#vs&|/?%2WJy%Dܲ#@ܲGd@C,@ y%h    w ܲGdC,ܲ#WBy]Dܲ""@ܲ#@ Xy]hS \@$A E& & B ?E@  D Q (w% Nܲ#Xܲ""?<   e$9΅WrAyDs@ܲ#@ܲGd@L @$9΅@w@C,@ AyhAyh       2@  e 9ܲGd"C,zw|2       w   /<  L Vܲ#Zs|$9΅ e?WBydDܲ#@ܲGd@ ydh  w ܲGdܲ#WJy@Dܲ#@ܲGd@C,@ y@h "  w ܲGdC, ܲ#WXBT,XDܲ#@ܲGd@ '%h  w ܲGdܲ#zWX:LdXD?' sݩ%Wtbf]tDs@G> @$9s@GVN@:$@:4F@ Rh &)_& & &  & && && Ε 61& [1)ȋ& & & ,s.G> 2GVN6:$B$9sZG> nG> T|& Ε 1 &  a@ G> GVN:4F6G> WJ q}Dܲ#@?<WjSyD5!@5 @ @@@  Xhݩ%hwh<  ,#b3!  b3!a & > >265 : FX |>WXzTy`XDNHQHHNBxH BxHQHN:dHBxHH N H  :\}h>Nt!h>t!hN\}h\}h?YܲGd@C,@ 2 q}h 6  2 w ܲGdC,4ܲ#WJr%Dܲ#@ܲGd@C,@ r%h   w ܲGdC,ܲ#WtBs@8tDܲ#@ܲGd@ s@8h   eCBBaIBBJbCB?%}6t!h   >>5!> >|>>t?  B ɒɐBܲGd| & &  wܲ#WR9wKDܲ#@E4d@ܲGd@C,@ (9wKh ,  wܲGdC, E4d*ܲ#WtBrwdtDܲ#@ܲGd@ drwdh h e ICBBaI    B wܲGdfܲ#W? 5!>l>>d @-@K'1sWXz ]XD1o@ sJhab1vh 1ph1sh1uh 1wh1qh"1th1rhc0Z aX cXb $*J c c c c c c c$ c*c^   fwvAAU Xs ssss$@N AaW0ݪKWBDݪK@W@ 9xh w (@f ťZ+ťAť9%ť0ť$ ť  ť.@&fA EAa$WhݪK|BWRDݪK@W@ Zg`Zg(0l9zh Zg` ZA90$ . @( Zg(pw f &"  @Vs *s 0s@a VaZ1oWXB XD `E4dhEdhHʫh~h d% & ^UU U U UUUN a  tWXz4a` XD?H"ɪKr@X@""@w@ 46L h Ch C\}h9`h1ohZBh =Krh1Kh4}h?yh ~, , t t t 4@ @&fA EAa ׇ  &W Zg` Zg`RݪK ^Zg`Wz$@Ds@W@c&~@T;@i@  D"0:`h,:(}hD:Zh:h2:<h":h:h :_h&  D"  ߥ *  + 23E Ew    Е-   0@A W   c&~T;sJWxi*|e`fÊ    E @  ~, ""  wɪKr X ,  WXzBa8"XD c[H [KrH[KH[}H[yH[L H [\}H[H [`H[oH zWt:ͫetD  ̅ ͫeh  ̅enW0R 0DB,0zH*sH&5 H.sH([H, @W:L@Di@ H[(}h L & & @( f  e ee e (iW0JdXR0D:(}@W@d;@ V<h Zw ' UD$BA &( U BQ Е* W&d;H:(}xW02D0D NKh @ܲ`@ Ldh  w ܲ`WZSDܲ#@ܲGd@C,@ TShSvhSh  XKM&     2 &wܲGd&C,Vܲ#WXJ|@XDܲ#@ܲGd@C,@ R|@h V   2 G@WL zܲ#~s.| /<  e$$9΅W0B%Ps0Ds@ K0""h @      w    s , `  H 8   WPγRdX:PγDdVN@5!@Bd> @ dX:h dVNd> WJ DݪK@W@ <GP}hZg(0?Th Zg`*ABDEFIMNOPQRSTUXYZ<> zz      " $  &" ($ & ~& *( &*  V,  `. 0 2 p4 6 8 :*: < Zg(w && D¥% AH ( w>   J!     rZg` Zg`H Zg` $Zg`(4Zg`8P )pD)pH}V)p \Zg`d)ptP|Pbp  Zцw    T߇ B܇7ق&7 %n)p)p }P "Zg`$)p*)p.}4Zg`D)pJ)pPZg`fZg`pZg`tZg`i wVȥ ȥ ȥAc B&ХVA C e!  aeb A  Е*WB<&e@) DZg`F)pL)pPhp! XZg` fZg`$n@ tZg` U N 1ȥ9C ʥ ʥ ҥ@w VpAp  $Е.  AЕ;    A EA  E 6D [(}[(}4:ZRa}`@Q WOҳz2dOҳD@@:2@`@@ `^@)@)@'@)Ty@}@ @ @z:t @)p@$9@P@9x@<&e@@y@)W@)p@:@}@:@M@ 8r@=@b)'@@=@)Ps@' q@)p@:@hp!@ Zg`xZg(0MhA @ Zg`P 8r Zg`"P&:DZg` rZg`V~=|L  \fdwȕ e 7 5j1-C 7 | Zg`Zg`fZg`d Zg`&@=4P8)W > V :2 'LBCH  "  A69x:Zg`$H9xLZg`& VZg`\ ZZg`j)Ps nZg`h4Е. nw &$wW! pppp: Zg` P$ 8r(Zg`0Zg`&4Zg`$8)W<)W@)WD)WHZg`NZg` RZg`\)W`)Wd)Ww$w&   CBw C %ʥ ʥ ҥ=(#    Rw7X)WZg`$ Zg`& Zg`$: BZg` LZg`(XZg`jZg`tZg` xZg`A Taz  Wb` DW@:<@i@ Zg`$Zg(0a}h@Qh0 Zg`(JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC Zg(w D&& bЕ- eaePPPЕ-$w D  &Е. ce  Е:   $W$ 6W\i |B:<W`zXR`D:`@:Z@:@ 07 ԋ_  7 j hz Zg`Zg` Zg`Zg`@y `^ Zg`$$ `^&Zg`&4:t 6Zg`@ :Zg`>FZg`JZg`XZg`j7 E L4  w7 " 2 $  h jZg`Zg`Zg`$Zg`2Zg`" @>    (zZg`Zg`Zg`Zg`Zg` Zg`(&Zg`DZg`J:LZg`@ PZg`>VZP `Zg`n` tZg`^( 4A Е.) ыѝѝɝwы@>4 t&R Zg`()Ps Zg`A: "Zg`)0M4M8MH:2JZg`@ NZg`>2WJ4sDW@  D"0hB{pRpR΋pBCt5N KR΋KBAE:D0CĊ f eB  Dҁ CSĊ  WBrdȀ E Br Ε f)& 6 l(*  E 'W " =N  W :l+W = 1 #W ,W / %W %W *Հ W <W [W >W ] v(* 6 eWN@B:h;N@D  D"0@d;hB)hD  D"w eE D` bl lrw   B eE"s    s-WJW,|  CslW02v 0D "h &&f& v |W:vqD  D"0Wh  D"&f tW2vPB%m h  D"D&   `@ ` B   & A @    WΚXb9}ΚXDȋ8 ~נ%נ*נ-נ.נ0נ9נAנZȠ yנ0נ7נ*נ,A jȠh f  oנ"A   #A aנ$tנ%נ*נ0נ9נAנZנ_נ.  נ.נ; dנ0נ9 ]נ- X נ* QA  נ, Dנ=  >5 B>U (w^נ/* . ,נ$נ-נ.נ0נ9נAנZ נ_ נ:@l  Dנ"B0| d `ef  d   ;a @  W f@ Е- e&ݪK$i6iDiXabt:ePPPЕ- Е 50e %< f< f @ (Օ: 5.תZ: 8Zg`>i(Pi Zi di .tՕ: @e e0e0UiW0zܩu~0DݪM@ݪK@W@i@ab@ Zg`ZgB i  0W|PB@=|PDd@ Cx0@=h Cxf&f E^`  UQ  UQ ËUI U `e | !ddC    D%*.C U 0 0 W ,Uw6W /@ : ^BDaW-Ί WNWOD!BΊz CECCD! D! ΋5  e ΐ TB =(0ܩu~h:h::"h Zg`< Zg(w &fe&  w &ff=elC    5p  d  W"W`iri|  A &@d &@ &m M M` M`5u  @ @ e@ M`u 5`2ii$i0i:ݪKFݪKRݪKfݪKBW @ `u  #;eu o e CC `g0?@MMWw5@5*6 T @2ȋoNgXT; z| eT5 N ) @   J 5 w DC uw  E  ggC%  6  p + k5e d ^ [U5@ g.g$9!Rg&Wz[ @SD8$9W@@@`@}s@Ѳ:@s@@9x@h'@ (@X@o@zԱ2&@ 8r@'@=@@=@$9!@g@:@g,@w@ Zg(0ghg<hxgh2gChgRhghghgh Zg(u j  ~5 , ɥ/b J  1ECe, e  * g,CE)W@o@Ա2&@2[(}@)X@ Zg(0dh Zg(w EH  P A Е:%ʋ B   5Е" e pe d\o)))X":<)TyNԱ2&`)W[Y n)W[Y z[Y[Y  z|Е"A 2 A (A Е.A Е;A      HХ"Е" B)W[Y )W)W$)W0)<)ZB:ZN[(}CNg|F' @%7U @ E N , D(@e  D5@@e,C& n: K s@w@&p ! ȕp* eBEETH EBe 9x9x*@:=R@=t M5    B "e(5 @ 2=2 D(0(@$8 &SY e& g' g*<`L2edEC nWt02#}t0D yh &3Wz[ SD8}s@Ѳ:@s@:br@@:s@ @o@T; z@ 8r@g@'@zg<@g@g@g@g@$9!@:@gC@gR@g@g@g@g@w@:@:NK@ Zg(0D۩ Shgh:g,h. Zg(w T&8uE@ %aC $.$.$.w V &1 52D(e0(E E U@5 e`########0ol e" 885( * t0 H0 J0 L  w   D 5 42&$9!<Vw^obsf (lXt}s u46 > A(! ! (* @&s eBB7 pBԱ2&`vd!# *pB   dw ɥ ɥ D D w  jDl@ TeT5l@ X' q)h'":&)P,$9!.)Ps4:@oF)PV 8r`)Wd)P|`d@  e  An5j)f  2/      RՀa>s (X)W)' }s&' q(),h'Fs @WNBݪMND@ Zg(0TݪMh Zg(X @ DX:|X: ̆  E vE c  @  . &fBX:6X::X:LX:RX:TX:tX:~X:t     8  " .$   ̥ZḀ90    .X: X:\HX:RX: FWPϳRePϳD:t @:@:@ (eh:hDK   e  T T T T H1CdT T L $)dL t dL d  FWX*ZKXD \Wj\DDs@c&~@T;@o@  D"0DhDh\Dh  D"% w &Ba +- ʥ# . U 0   b c&~T;s$o*|  `     JD WWxD!@ ki f x:RHxhAW AE B EF<:>@BDRFHJHLxNPhRTVX| &- ae  $e  & & & & && & & & &)4  ^b: R &E@ U U @ P J .1 6 (  2  4t  DS  ɥ ɥ    d ɥ ɥ ɥ@ɥ/ .W;Vz S;VDs@:G@<&Kq@`@$9p@)@}s@Ѳ:@)Ty@s@<&9@:t @z)p@)P@)@h'@ @ (@)W@X@o@:@ 8r@=@)'@@=@)Ps@Z' q@$9!@)p@:@<&D@ Zg(0@ShASh"?Sh Zg(w 5 funhj tuhdB DWQXR^QXDo@  D"0\h hdh  D"w  w & W+W- Ba. W#  B0  c  c S W %ec e`s oo<|  # 3  & ˥ Z ^C  WXZ7aXD@S@?S@o@ N.D,hD,h ۩"S Rw w &e`` a  `D8jwaw<  vw &  AdBbA>o*)TyH)PR$9!T)P`<&9b)h:t nѲ:r)Ps|ep& f P aAAf@pnp C֋ 8Ë7AB`f VT:GѲ:@)pD)pH L)PsP)PX:^Ѳ:b)Pf)Psn)pr)pa`& WaWz  ɥ"N  ajfu-nhwFɥ;]a)wנ"å.@j  a`$9pl$9!De`P D 2o ?So@S ۩"S` ,۩"S :۩"S`WXzR:XD<&`@<&Kq@`@[8@)P@[Z@)W@)p@stCyH T,HkxH!0{HL H0{mHz`qH a9H"-DH)XHaKH #{8H7{ HT,KHc&RH'(ZH,R"H tyH(zH@.8Hc&|KH6z .Hc&H0{DHlSHc&WH:#0H#0H4{*LH#0Hs,XH@#09H [t{8H3^sHc& XH?tBxHz.yH-EH#{8H)~ZH3sH0{9H#0H.{H)ZH #z zH.yH #0LHc&dHAkH'-0Hz0{H0{Ht H#0DH0{HtE}H@)PsWtz! &tD)@)Bx@$9~Z@)p@W@<&e@ @)@)Ps@FOɴDh4}H(`XH"S`H;"HcT2Hn|'H%'HWBxH cT3HpBxH2gH a8YH zJwBxHP_MH,pH)XHr 2gH|'KHsMH(4H&y}H?TH|8p&HF8 &HDd$HB|'H xHzzBxH sQH8v4HFwH85}H?THz}}HT` XH |'HH,-MH"*}H s2gH;g.@ZHz|'%H8(H |'YHeH|'VNH y}H|'zHsSH4: HT`ZHfkfHdvLH@|'G[H|'JwH2leHz}HT`HtM dHFt @)p@:@ 4h w    j2-  (@ep@ D  e  ` e RW $9~Z")Ps.:4<&e6):t <)B)BxJ)pP)pT b:F|     R#R- )Bx:& ,)pWbDݪK@W@:<@i@ Zg(08a}h@Qh$F:m;H.sQH<m;$H2f2gH$f\}H9dH*fH,i' XH?THxc:H |'QH|~MH zBxH2H?TTHv|'9RHsSH6ETHc:Hn|'zHBxHPm;KH0BxH sH*e;8THH z;g<3](h khSShSSh33h33h##h##hrcScShcScShSTSThSTSTh{'m'p h{'h{'{'h ;g<;g.SFc Zg(w D&& VЕ- \Е-$w D  &Е. ce  Е:   B% W*WPit:<| & G`ЕJЕAЕNЕFЕEЕBЕMЕAЕRЕAЕPЕRЕMЕAЕYЕJЕUЕNЕJЕUЕLЕAЕݪKDUЕGЕSЕEЕPЕOЕCЕTЕNЕOЕVЕDЕEЕCbW`z.`D:`@:Z@:@@QEAwFwIAwMAwlNwOAwPAwQAwRAwrlSwTAwUAwXAwYAwZAw<w>w w~WOɴz)gS GGy%HSVN@S@3p@%pHSTp@3VN@STVN@" %X:;g%h %X: 8Sp3pSTp S 3STSVN3VNSTVNWOɴz$gHOɴD X:;gh_;g%h;g@;gAh;g?Td?Th;gSdSh;gbdh;g3d3h;gVSdVSh;gf'tdf'h%X:d%h;g:Ttd:ThWOɴzY(SOɴDBxH(G& wf& e w &ppp0f& e wT xą(x6tRp:tRqqJtRqqP b%V b%\ b%`tRb bp p&zxlDf& e w&WW? ( Af& e f& e :ąx6v[q(Dg zV{`xdtR%r|xC    @`0  eW      Gl ;gY(xrSphP3phSTph{< YT{{` rP!  && ;gY(P%PPr r P' ( ;gY((%P*  @@PPPG   WpFv[qv[q&tRNtRKqXtRKq^v[qdv[qhtRntRKqxd;TdC` P    ~wXA;A*v[q6d:T:#(LgP#Ԁv[q&f& v     F  7  % &R2tR :?T<D:(} H?T<L?T< R?T< V?T<^$9n;`sh?T< l?T< |    ~H~ WOZxG'J JffP ;gY(P%P @@B WD z?TTD D tR@ȍ`@:(}@$9n;@s@5 @g z@{@ݪK@tRp@${0 H&@ztRa@tRKq@tRqq@%K@$0 H7{d:TB#ZXtR%\QVN^bbtRJdaWh5{yjaxZ|0f& e w:f& e wGQSe[HeH x@_&@ ;g@&;g@h ;g@*t9RKBRMR@ Q` Tex ZSxMSZ-qw2K2`3M2d _X&"8"$,E&f(_&VW4h:kfNq4hD;gX:@;gs:H WDz~Application has called MSGBRD routine with bad parameter block.>~~~?SYSDISK:[ZZS HeH: ;gf'" &vR;VN;>  {' SVNf'm'p {'&{'v{'{' {'WOȴJzOȴD @;g.@;gf'@ h w vWOȴ:zOȴD@ h wWOȴJ(zOȴD;g.@~@;gf'@ %Kh HH~WOȴBSzOȴD;gVS@@ Sxh w~WOȴBTzOȴD;gS@ Z@ Teh w ZWOȴjXzOȴD;gVS@;gS@;g.@5@;g%@;gf'@;g3@ _X&h w5WOȴj_zOȴD;gVS@;gS@;g.@;g%@;gf'@;g3HYS]LB001:[ZZSYS]LB000:[ZZSYS]TMSGBOARD.SYSVWBf:Ds@${p@$9:@ RZh rwD7K%A@4eT~@׭M${p  ${p &${p RZs\$9: ns|0ȋWOɴR'g~OɴD;> @ k@;VN@ ;gH7w~~WD0B](zD0Dp@;g.@ eMh wpWD0J'zD0D`@;g.@;g%@ drh w`~WD0B:zD0DZ@;g.@ ve\gh wZWOȴZ zOȴD!@;g.@;g%@;g@;g3@  ZhH.S;g.h ;gS ;VN;>  kBWOɴj-gZOɴDR@3](@;> @S@ k@;VN@ ;gS;gSh ;gS   k  FSF;VN;> ~&R3](~    FFDWOɴj$gpSOɴD#@R@3](@;> @ k@;VN@Hk w!~WOȴBzOȴD@;g@ xh w~WOȴB.zOȴD~@;g.@ ,Eh w~WOȴJ2zOȴDCkM@;g%@;g3@ 2`h wCkMWOȴR2zOȴD;g.@EM@;g%@;g3@ H  ;g;gh ;g   k  F#F;VN;> ~&R3](~  ,,#6WOɴj(gMOɴD3@3](@;> @ k@%5Lw@;VN@ ;g3;g3h ;g3   k  F3F;VN;> ~%5Lw3](~ H2dh wEMWOȴJ2zOȴDF%:@;g%@;g3@ 2Kh wF%:WOȴJ3zOȴDFp@;g%@;g3@ 3Mh wFpWOȴJQzOȴD kM@;gS@;g%@ Q`h w kMWOȴJ9RzOȴD;gS@H  bWOɴj-gpSOɴD3](@;> @cS@ k@;VN@MSLw@ ;gVS;gVSh ;gVSF ;VN;>  cS F kMSLw,, cS~3](~$$&&448< 8<WOɴr&gKOɴDf'@m'p @;> @SVN@{'@{'@;VN@ ;gf'";gf'hH q;g%@%:@ 9RKh w%:WOȴJBRzOȴD;gS@;g%@p@ BRMh wpWOZMSzOD;gVS@!@;g.@;g%@;g3@ MSZh w!WOȴZSzOȴD Z@;gS@;g.@;g%@;g3@ R@h w Z IIE    " b$ & ( ~v( * *,  &.  V0 h2 4 6 x8 :B: < >  @ Zg(w && D¥%  B&ХVA C e!  aeb A  Е*WB@pV30 %pe p%'wA R~wfpp p|%'wA eR~pw%AAe?R~7K @7/(Za(}`a(} ha(} la(}tsd%  wIqqq  I &# zs&a(},a(} 0a(}W+2IBkfK+2IL5!@( HP ?ShI@d@ _&h wdvWOȴ:fzOȴDKw@ fh wKw~WOȴB-qzOȴDԱ?T@;g%@ -qwh wԱ?TWϚϳrVKϚϳDcVN@VH  SfVgV@{0{ { YT  S fVfVњIh:ϚγD Q;g'hWϚz'ϚD3M@Q`@Te@_X&@2`@R@@QH;> @Sx@BRM@ Z@2d@zMSZ@-qw@8"@2K@,E@f@m;VN@9RK@x@_&@ Rkf&kfhQ  RϚ,^ kf;VN ;> ^I. gVgV cVNPp    %P(   $  SYSDISK:[ZZSYS]USERMENU.SYSTVWϚγ:VzϚγD  S;gVhWOȴJzOȴD;g.@[q@;gf'@ 8"h I^|  kf*t9RKBRMR@ Q` Tex ZSxMSZ-qw2K2`3M2d _X&"8"$,E&f(_&Wњгbs""њгD:(}@@-qw@dr@ B0XCe^ s""h B0RMSDEFLTER/$<LB000:[ZZSYS]RUNERR.MSG $ <<<LB000:[ZZSYS]RMSERR.MSGVV Ce^h  CI Ow[qWOȴj[zOȴD;gVS@;gS@;g.@5i@;g%@;gf'@;g3@ _Xzh w5i&WzxRD:`@:Z@:@ 9vz     I   %     " $<ww w "w } B0 dr (:(}6:(} :B0$VL-qw B0 B0-qw 4B0V:(} ZB0>\B0 `B0VbB0WDzR[DD\DeH \YqHu@HHs@DsfH@4H JwJ < W Oѳz% zOѳDs@Iq@5 @ z@@ 9@9@ݩ݁@@E`@)x@@zz@f@G]\@&@r@U݁@Z@v:@i{@($@VN@Db@ ; z ('ghr(0gh<DhDEhDhDh_{0{ { YT WT2GLT &>%:h ; zJ7 J %%wL(,D@%XK%XT wUp@wJO@fL e0 _L$5 *_W Oγz3OγD&ZH&f@&\g@&s@&'@&@&'@&<@& N@&x@&N`@&,@z&Fy@&Ny@&.@&,@&4d@3@&@&p@&@&@   (_hn'~h.hz(}h(4}hU(4}h&o'dhc'kMh(~he'WhU(0h8'a h(XahJ(` h&%h&a h`&}h*&.}h<B&4}hN'^h&sh&0Mhr'_hJ7@% %wX_J_J &_L *_ N_U R_p d_ h_ r_ v_|d  wjAє~ J~%w&@A є~ A @`@`@`wwJ7 J %%(GLT&_Jh_Jn_JrwL(,D@%XK%XT wUp@w@% %w  wASJ _L _ 2_U 6_p H_ L_ V_ Z_lGLTt~J(^h\(}h   _7 7 7 7 7 7 7 P3 &3*3-&,<3?&N3Q&,`3c&<r3u&.7 7 7 7 7 7 7 V3 &3&s,3/&N`>3A&<P3S&fb3e&t3w&\g7 J JT~%@A S~ wP%w&w %wL.(,  wAѝ8_J0GLTJ X_L \_.nGLT~_ɝ# Aќ ~A ќ ~A  ќ ~A ќ ~w %wL.(,  wAH_# _ &_ 6_ F_R `_L d_.tGLTlww# As ~A s ~A  s ~A s ~ w,w  J|7 7 7 7 7 7 V 3 &4d3& N.31&p@3C&sR3U&xd3g&Fyv3y&Ny@z7 7 7   33!&'033&':W zX:<D_LHE` \_j&| e wbf& e w> 0LfL e   0B Iq "_0H_ N_L T_L^r5 x_2 KK~;HF~  WT WT WT$ WT WT" WT"F.HELP. WTF WT,,22SYSDISK:[1,2]FMSERR.MSGJJ @&.2JL.$,BW.2 J L.$,@ %WT$5  WT$0$.4:@KT F F SY:.FLB.  WT ($ Db G]\  i{WT WPγRdX:PγDdVN@5!@d> @ 6dX:h dVNd> ^WXb:;XDݪK@W@:<@i@ Zg(0va}h@Qhb Zg(w T MAOR_FTEK P&.4: @VV"DP Pll %PL F F SY:.FLB  WT ($ Db G]\  i{WT W Oϳ*fyOϳLs@T; z@"(Mfyh fyh fy*&f{ B~Bͥ BKDAS$SY& & & ff  oN eͥD ͥM ͥYͥZW|PAAMA   &f& C @H_NTMOS$SY& & &  f f,:<J:<  P  >eeD&& \Е- Е-' Vw D  &pWtЕ. ce  Е:   B%  & G`ЕJЕAЕNЕFЕEЕBK ͥ*&Bͥw@e  @e*Lh z@e lE2 &  h*r& & & & & e * )-%LsT; z* Pfe&~ E |zhh&W Oγz%'OγD5RH zH;TH 9H{H9HHHyHWH@(HKcЕMЕi>:<XݪKAЕRЕAЕPЕRЕMЕAЕYЕJЕUЕNЕJЕUЕLЕAЕUЕGЕSЕEЕPЕOЕCЕTЕNЕOЕVЕDlЕEЕC@H_NTMOS$SY& & &  f f,:<J:<  P  >eeD&& \Е- Е-' Vw D  &pWtЕ. ce  Е:   B%  & G`ЕJЕAЕNЕFЕEЕBK <Hr<H><H.<HF{<(dHR<H<Hz<8H:p@;H0  WT WT WT$ WT WT" WT"F.HELP. WTF  LALmLmLmLmLmLmLmLmL mL m MMmMmMmMmMmMmMmMmM mM m NSNmNmNmNmNmNmNmNmN mN m OOmOmOmOmOmOmOmOmO mO mO